diff options
Diffstat (limited to 'conio/chline.s')
-rw-r--r-- | conio/chline.s | 23 |
1 files changed, 10 insertions, 13 deletions
diff --git a/conio/chline.s b/conio/chline.s index 81cf2e9..5b7ce6c 100644 --- a/conio/chline.s +++ b/conio/chline.s @@ -1,5 +1,5 @@ ; modified for taipan: -; - commented out _chlinexy as taipan never uses it. +; - removed _chlinexy as taipan never uses it. ; - get rid of the check for a 0 argument. taipan only calls chline() ; with constant non-zero args. ; @@ -9,9 +9,9 @@ ; void chline (unsigned char length); ; - .export _chline - .import popa, _gotoxy, cputdirect - .importzp tmp1 + .export _chline, _cspaces + .import cputdirect + .importzp tmp1, tmp2 .ifdef __ATARI5200__ CHRCODE = 14 @@ -19,17 +19,14 @@ CHRCODE = 14 CHRCODE = $12+64 .endif -;_chlinexy: -; pha ; Save the length -; jsr popa ; Get y -; jsr _gotoxy ; Call this one, will pop params -; pla ; Restore the length - +_cspaces: + ldx #0 + .byte $2c _chline: -; cmp #0 ; Is the length zero? -; beq L9 ; Jump if done + ldx #CHRCODE + stx tmp2 sta tmp1 -L1: lda #CHRCODE ; Horizontal line, screen code +L1: lda tmp2 jsr cputdirect ; Direct output dec tmp1 bne L1 |