Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-05 21:34:30 +00:00
Code Issues Projects Releases Wiki Activity

ds: working on missing lines

Browse Source
This commit is contained in:
Vince Weaver 2019-11-14 18:49:15 -05:00
parent a6cd10e0a9
commit 7eede7cb27
1 changed files with 48 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
demosplash/missing.s
View File

@ -21,6 +21,7 @@ missing_intro:
jsr create_update_type1 ; now calls play_frame_compressed
jsr make_bars
;=============================
; Load graphic page0
@ -168,15 +169,56 @@ gloop2: dex ; 2
bne gloop1 ; 2nt/3
lda FRAME_PLAY_PAGE ; 3
cmp #4 ; 2
bne missing_display_loop ; 3
; lda FRAME_PLAY_PAGE ; 3
; cmp #4 ; 2
; bne missing_display_loop ; 3
; lda KEYPRESS ; 4
; bpl missing_no_keypress ; 3
; lda KEYPRESS ; 4
; bpl missing_display_loop ; 3
lda TEMP ; 3
nop ; 2
jmp missing_display_loop ; 3
rts
BAR_START = 2*8
; $9800 + (49*18) + 4 = $9800+886 = $9800+$376=$9b76
make_bars:
lda #<(UPDATE_START+49*(BAR_START+2)+4)
sta OUTL
lda #>(UPDATE_START+49*(BAR_START+2)+4)
sta OUTH
lda #<bar_colors_top
sta INL
lda #>bar_colors_top
sta INL
ldx #4
ldy #0
make_bars_loop:
lda (INL),Y
sta (OUTL),Y
dex
bpl make_bars_loop
rts
bar_colors_top:
.byte $03,$0b,$0f,$0b,$30
.byte $02,$06,$0f,$06,$20
.byte $04,$0c,$0f,$0c,$40
.byte $05,$07,$0f,$07,$50
bar_colors_bottom:
.byte $01,$03,$0f,$03,$10
.byte $08,$0d,$0f,$0d,$80
.byte $0c,$0e,$0f,$0e,$c0
.byte $09,$0d,$0f,$0d,$90