.export _cputcxy, _cputc, cputdirect, putchar
.export newline, plot
.import popa, _gotoxy
- .import xsize, revers
+ .import PLOT
.include "plus4.inc"
- .include "../cbm/cbm.inc"
+
_cputcxy:
pha ; Save C
beq plot ; Recalculate pointers
L1: cmp #$0D ; LF?
- beq newline ; Recalculate pointers
+ beq newline ; Recalculate pointers
; Printable char of some sort
advance:
iny
- cpy xsize
+ cpy #XSIZE
bne L3
jsr newline ; new line
ldy #0 ; + cr
newline:
clc
- lda xsize
+ lda #XSIZE
adc SCREEN_PTR
sta SCREEN_PTR
bcc L4
inc SCREEN_PTR+1
clc
-L4: lda xsize
+L4: lda #XSIZE
adc CRAM_PTR
sta CRAM_PTR
bcc L5
; position in Y
putchar:
- ora revers ; Set revers bit
+ ora RVS ; Set revers bit
ldy CURS_X
sta (SCREEN_PTR),y ; Set char
lda CHARCOLOR