Apple-2-SW
/
dos33fsprogs
mirror of https://github.com/deater/dos33fsprogs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

peasant: hgr2: actually clear correct page

This commit is contained in:
Vince Weaver 2021-09-25 23:51:22 -04:00
parent 9ece0ceb8c
commit dc865e888b
1 changed files with 36 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
games/peasant/hgr_hgr2.s
View File

@ -5,13 +5,14 @@
; unrolled here takes 0x0A501 = 42,241 cycles ; unrolled here takes 0x0A501 = 42,241 cycles
hgr2: hgr2:
bit SET_GR
bit HIRES
bit PAGE2 bit PAGE2
bit FULLGR
lda #$40 lda #$40
sta HGR_PAGE sta HGR_PAGE
lda HIRES
lda SET_GR
lda #$00 lda #$00
hgr2_clearscreen: hgr2_clearscreen:
@ -19,38 +20,38 @@ hgr2_clearscreen:
before: before:
ldy #0 ldy #0
hgr_cls_loop: hgr_cls_loop:
sta $2000,Y sta $4000,Y
sta $2100,Y sta $4100,Y
sta $2200,Y sta $4200,Y
sta $2300,Y sta $4300,Y
sta $2400,Y sta $4400,Y
sta $2500,Y sta $4500,Y
sta $2600,Y sta $4600,Y
sta $2700,Y sta $4700,Y
sta $2800,Y sta $4800,Y
sta $2900,Y sta $4900,Y
sta $2A00,Y sta $4A00,Y
sta $2B00,Y sta $4B00,Y
sta $2C00,Y sta $4C00,Y
sta $2D00,Y sta $4D00,Y
sta $2E00,Y sta $4E00,Y
sta $2F00,Y sta $4F00,Y
sta $3000,Y sta $5000,Y
sta $3100,Y sta $5100,Y
sta $3200,Y sta $5200,Y
sta $3300,Y sta $5300,Y
sta $3400,Y sta $5400,Y
sta $3500,Y sta $5500,Y
sta $3600,Y sta $5600,Y
sta $3700,Y sta $5700,Y
sta $3800,Y sta $5800,Y
sta $3900,Y sta $5900,Y
sta $3A00,Y sta $5A00,Y
sta $3B00,Y sta $5B00,Y
sta $3C00,Y sta $5C00,Y
sta $3D00,Y sta $5D00,Y
sta $3E00,Y sta $5E00,Y
sta $3F00,Y sta $5F00,Y
iny iny
bne hgr_cls_loop bne hgr_cls_loop