2 ; Ullrich von Bassewitz, 06.08.1998
4 ; void cputcxy (unsigned char x, unsigned char y, char c);
8 .export _cputcxy, _cputc
9 .export _gotoxy, cputdirect
10 .export newline, putchar
16 ; Plot a character - also used as internal function
25 cmp #$0D ; Test for \r = carrage return
27 lda #$00 ; Goto left edge of screen
29 rts ; That's all we do
31 cmp #$0A ; Test for \n = line feed
36 ;; Bump to next column
47 ora #$80 ; Turn on high bit
48 and TEXTTYP ; Apply normal, inverse, flash
50 ldx RD80COL ; In 80 column mode?
51 bpl col40 ; No, in 40 cols
57 bcs col40 ; odd cols go in 40 col memory