1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 04:30:10 +00:00

Set cursor in top left corner in clrscr()

as documented in conio.h
This commit is contained in:
Stephan Mühlstrasser 2014-11-29 20:50:48 +01:00
parent ac88639f4a
commit 6dc8621fa5

View File

@ -2,6 +2,8 @@
; void clrscr (void);
;
.export _clrscr
.import plot
.importzp CURS_X, CURS_Y
.include "c1p.inc"
; Adapted from the Challenger Character Graphics
@ -20,6 +22,10 @@ staloc:
inc staloc+2
dey
bne staloc
lda #>(SCRNBASE) ; load high byte
lda #>(SCRNBASE); load high byte
sta staloc+2 ; restore base address
rts
lda #$00 ; cursor in upper left corner
sta CURS_X
sta CURS_Y
jmp plot ; Set the cursor position