2 ; Ullrich von Bassewitz, 06.08.1998
4 ; void cputcxy (unsigned char x, unsigned char y, char c);
9 .export _cputcxy, _cputc
10 .export _gotoxy, cputdirect
11 .export newline, putchar
13 .import popa, SETWND, BASCALC
18 lda #$FF ; Normal character display mode
21 jsr SETWND ; Reset text window to full screen
24 ; Plot a character - also used as internal function
33 cmp #$0D ; Test for \r = carrage return
35 lda #$00 ; Goto left edge of screen
37 rts ; That's all we do
39 cmp #$0A ; Test for \n = line feed
41 ora #$80 ; Turn on high bit
42 cmp #$E0 ; Test for lowercase
44 and #$DF ; Convert to uppercase
48 inc CH ; Bump to next column
58 and INVFLG ; Apply normal, inverse, flash