Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-26 11:30:12 +00:00
Code Issues Projects Releases Wiki Activity

ds: have escape working

Browse Source
This commit is contained in:
Vince Weaver 2019-11-06 15:30:22 -05:00
parent 317da073b8
commit a2b886dc9f
1 changed files with 20 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
demosplash/create_update_type2.s
View File

@ -52,7 +52,7 @@ create_update2_inner_loop:
rts rts
;BARS_START = 46 ESCAPE_START = 30
;=========================== ;===========================
@ -107,23 +107,22 @@ setup_update_type2:
lda #$01 lda #$01
sta $91b0 sta $91b0
;====================
rts ;====================
.if 0
lda #4 ; which page lda #4 ; which page
sta RASTER_PAGE sta RASTER_PAGE
ldx #BARS_START ldx #ESCAPE_START
lda #<(UPDATE_START+(BARS_START*49)) lda #<(UPDATE_START+(ESCAPE_START*47))
sta OUTL sta OUTL
lda #>(UPDATE_START+(BARS_START*49)) lda #>(UPDATE_START+(ESCAPE_START*47))
sta OUTH sta OUTH
setup_rasterbars_outer_loop: setup_escape_outer_loop:
ldy #6 ldy #8
lda #13 lda #0
sta RASTER_X sta RASTER_X
setup_rasterbars_inner_loop: setup_escape_inner_loop:
txa txa
pha pha
inx inx
@ -143,15 +142,19 @@ setup_rasterbars_inner_loop:
adc RASTER_PAGE adc RASTER_PAGE
sta (OUTL),Y sta (OUTL),Y
iny iny
iny iny
iny
iny
pla pla
tax tax
cpy #48 cpy #43
bne setup_rasterbars_inner_loop bne setup_escape_inner_loop
clc clc
lda #49 lda #47
adc OUTL adc OUTL
sta OUTL sta OUTL
lda OUTH lda OUTH
@ -164,11 +167,11 @@ setup_rasterbars_inner_loop:
sta RASTER_PAGE sta RASTER_PAGE
inx inx
cpx #184 cpx #(128+ESCAPE_START)
bne setup_rasterbars_outer_loop bne setup_escape_outer_loop
rts rts
.endif
another_scanline: another_scanline:
.byte $2C,$54,$C0 ; bit PAGE0 ; 4 .byte $2C,$54,$C0 ; bit PAGE0 ; 4