The program is assembled into the cassette buffer, so load it using
Code: Select all
LOAD "FPHEX.PRG",8,1
NEW
Code: Select all
SYS 828
Code: Select all
PRINT USR(expression)
Moderator: Moderators
Code: Select all
LOAD "FPHEX.PRG",8,1
NEW
Code: Select all
SYS 828
Code: Select all
PRINT USR(expression)
Code: Select all
LOAD"FPHEX.PRG",8,1
POKE1,60:POKE2,3
A$=USR(3.1416)
PRINTA$
Code: Select all
.ORG $033C
;
JSR $DBCA ; copy fac #1 to $57 - $5B
LDA #15
JSR $D47D ; allocate string buffer of 15 bytes
LDY #0 ; index into string buffer
LDX #0 ; index into fac #1
LA8A0 LDA $57,X ; get byte from fac #1
JSR LA8A6 ; convert and put in result buffer
LDA #$20 ; put space in buffer
STA ($62),Y
INY
INX ; bump index in fac #1
CPX #6 ; all done ?
BNE LA8A0
JMP $D6FB ; return string as function result
;
LA8A6 PHA
LSR A
LSR A
LSR A
LSR A
JSR LA8B1
PLA
AND #$0F
LA8B1 ORA #'0'
CMP #'9'+1
BCC LA8B9
ADC #('A'-1)-('9'+1)
LA8B9 STA ($62),Y
INY
RTS
.end
Sometimes fair criticism gets down the wrong throat, me guesses.CurtisP wrote:Sorry for wasting your time with my ignorance. I'm done posting here.
Maybe it is that your definition of "constructive" that's flawed.CurtisP wrote:I don't mind constructive criticism