bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

More P500 support

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@920 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2001-09-14 14:37:08 +00:00
parent c4a49faf48
commit e1a9115fd4
8 changed files with 220 additions and 86 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
libsrc/cbm510/clrscr.s
View File

@@ -18,19 +18,26 @@
sta CURS_Y
jsr plot ; Set cursor to top left corner
ldx #4
ldy #$00
lda #$20 ; Screencode for blank
L1: sta (CharPtr),y
iny
bne L1
inc CharPtr+1
dex
bne L1
jmp plot ; Set screen pointer again
ldx #$00
ldy #$00
jsr clearpage
jsr clearpage
jsr clearpage
ldx #<(40*25)
jsr clearpage ; Clear remainder of last page
jmp plot ; Set screen pointer again
.endproc
.proc clearpage
@L1: sta (SCREEN_PTR),y
iny
dex
bne @L1
inc SCREEN_PTR+1
rts
.endproc