.export _cputcxy, _cputc
.export plot, cputdirect, putchar
- .import popa, _gotoxy, mul20
+ .import gotoxy, _mul20
.importzp ptr4
.import setcursor
- .constructor screen_setup, 26
- .import screen_setup_20x24
-screen_setup = screen_setup_20x24
+ .constructor screen_setup, 26
+ .import screen_setup_20x24
+screen_setup = screen_setup_20x24
_cputcxy:
pha ; Save C
- jsr popa ; Get Y
- jsr _gotoxy ; Set cursor, drop x
+ jsr gotoxy ; Set cursor, drop x and y
pla ; Restore C
_cputc:
pha ; save char
lda ROWCRS_5200
- jsr mul20 ; destroys tmp4
- clc
+ jsr _mul20 ; destroys tmp4, carry is cleared
adc SAVMSC ; add start of screen memory
sta ptr4
txa