6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-12-22 12:30:41 +00:00
Code Issues Projects Releases Wiki Activity

call setcursur when finished

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@1662 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cpg 2002-11-27 15:05:01 +00:00
parent b2b21175d6
commit 6116ee51ec
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libsrc/atari/clrscr.s
View File

@ -7,6 +7,7 @@
.export _clrscr .export _clrscr
.include "atari.inc" .include "atari.inc"
.importzp ptr1 .importzp ptr1
.import setcursor
_clrscr:lda SAVMSC ; screen memory _clrscr:lda SAVMSC ; screen memory
sta ptr1 sta ptr1
@ -15,6 +16,7 @@ _clrscr:lda SAVMSC ; screen memory
adc #>(40*24) adc #>(40*24)
sta ptr1+1 sta ptr1+1
lda #0 ; screen code of space char lda #0 ; screen code of space char
sta OLDCHR
ldy #<(40*24) ; 40x24: size of default atari screen ldy #<(40*24) ; 40x24: size of default atari screen
ldx #>(40*24) ldx #>(40*24)
_clr1: sta (ptr1),y _clr1: sta (ptr1),y
@ -31,5 +33,4 @@ _clr1: sta (ptr1),y
done: sta COLCRS done: sta COLCRS
sta ROWCRS sta ROWCRS
rts jmp setcursor