6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-04-06 20:37:16 +00:00
Code Issues Projects Releases Wiki Activity

pattern number is preserved so cclear and clrscr will not mess with drawing

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@2065 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
izydorst 2003-04-17 11:51:43 +00:00
parent 04e4ecc319
commit c4fc55d877
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libsrc/geos/conio/cclear.s
View File

@ -40,8 +40,12 @@ _cclear:
ldx #r4
ldy #3
jsr DShiftLeft
lda #0 ; pattern
lda curPattern ; store current pattern
pha
lda #0 ; set pattern to clear
jsr SetPattern
jsr Rectangle
pla
jsr SetPattern ; restore pattern
jsr fixcursor
L9: rts

8
libsrc/geos/conio/clrscr.s
View File

@ -18,7 +18,9 @@
_clrscr:
lda #ST_WR_FORE | ST_WR_BACK
sta dispBufferOn
lda #0
lda curPattern ; save current pattern
pha
lda #0 ; set pattern to clear
jsr SetPattern
ldx #0
stx r3L
@ -39,4 +41,6 @@ L40: lda #>319 ; 40 columns
ldx #<319
L99: sta r4H
stx r4L
jmp Rectangle
jsr Rectangle
pla
jmp SetPattern ; restore pattern