diff options
Diffstat (limited to 'conio/cputc.s')
| -rw-r--r-- | conio/cputc.s | 36 |
1 files changed, 23 insertions, 13 deletions
diff --git a/conio/cputc.s b/conio/cputc.s index 5955b42..fb60ffc 100644 --- a/conio/cputc.s +++ b/conio/cputc.s @@ -1,3 +1,10 @@ +; this file modified for use with taipan: +; - \n treated like \r\n used to: moves cursor to +; start of next line. +; - \r no longer special (prints a graphics character) +; - $0a no longer treated as as \n (prints graphics char) +; - _cputcxy removed as taipan never uses it + ; ; Mark Keates, Christian Groessler ; @@ -5,7 +12,8 @@ ; void cputc (char c); ; - .export _cputcxy, _cputc + ;.export _cputcxy, _cputc + .export _cputc .export plot, cputdirect, putchar .import popa, _gotoxy, mul40 .importzp tmp4,ptr4 @@ -13,21 +21,21 @@ .include "atari.inc" -_cputcxy: - pha ; Save C - jsr popa ; Get Y - jsr _gotoxy ; Set cursor, drop x - pla ; Restore C +;_cputcxy: + ;pha ; Save C + ;jsr popa ; Get Y + ;jsr _gotoxy ; Set cursor, drop x + ;pla ; Restore C _cputc: - cmp #$0D ; CR - bne L4 - lda #0 - sta COLCRS - beq plot ; return +; cmp #$0D ; CR +; bne L4 +; lda #0 +; sta COLCRS +; beq plot ; return -L4: cmp #$0A ; LF - beq newline +L4: ;cmp #$0A ; LF + ;beq newline cmp #ATEOL ; Atari-EOL? beq newline @@ -55,6 +63,8 @@ cputdirect: ; accepts screen code .export newline newline: + lda #0 + sta COLCRS inc ROWCRS lda ROWCRS cmp #24 |