Code: Select all
20 A$(1)="FNF(I-1)*I"
'Crafting' a stack and handling variables 'local' in vanilla CBM Basic can make you go 23 levels deep.
Regards,
Wim.
Code: Select all
20 A$(1)="FNF(I-1)*I"
Code: Select all
PHA
LDA $EDFD,X
STA $FD
LDA $D9,X
AND #$7F
STA $FE
PLA
STA ($FD),Y ; put char
LDA $FE
AND #$03
ORA #$94
STA $FE
LDA $0286
STA ($FD),Y ; put color
RTS
Code: Select all
BIT exit
BEQ ctrlchr
CMP #$FF
BEQ ispi
AND #$BF
BPL exit
EOR #$C0
.BYTE $2C
ispi LDA #$5E
exit RTS