Here is the BASIC program:
Code: Select all
10 print at 10,10;"*"
15 print at 10,10;
20 let x = peek 16398 + 256*peek 16399
30 let y = peek(x)
40 print at 0,0;x
50 print at 1,0;y
Here is the ASM:
Code: Select all
LD BC,$0A0A ; set print position
CALL PRINTAT
LD A,$17 ; print asterisk
CALL PRINT
LD BC,$0A0A
CALL PRINTAT ; set new PRINTAT location
LD A,(16398) ; Get value at new position
PUSH AF
LD BC,$0000 ; set print to 0,0
CALL PRINTAT
POP AF
CALL PRINT ; print at 0,0 what is in DF_CC
RET ; Return to BASIC
Thanks,
Tim