mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-10 08:54:51 +00:00
megademo: starring, update to time out
This commit is contained in:
parent
1bd180c358
commit
671d5c66c2
@ -28,7 +28,7 @@ apple_iie:
|
|||||||
jsr HOME
|
jsr HOME
|
||||||
|
|
||||||
|
|
||||||
; jsr waterfall
|
jsr starring
|
||||||
|
|
||||||
; jsr arriving_there
|
; jsr arriving_there
|
||||||
|
|
||||||
@ -134,6 +134,10 @@ loop_forever:
|
|||||||
; No Alignment Needed
|
; No Alignment Needed
|
||||||
;============================
|
;============================
|
||||||
|
|
||||||
|
; starring
|
||||||
|
.include "starring1.inc"
|
||||||
|
.include "starring2.inc"
|
||||||
|
|
||||||
; leaving
|
; leaving
|
||||||
.include "leaving.inc"
|
.include "leaving.inc"
|
||||||
|
|
||||||
@ -149,6 +153,11 @@ loop_forever:
|
|||||||
; No Alignment Needed
|
; No Alignment Needed
|
||||||
;============================
|
;============================
|
||||||
|
|
||||||
|
; starring
|
||||||
|
starring3:
|
||||||
|
.incbin "starring3.img.lz4",11
|
||||||
|
starring3_end:
|
||||||
|
|
||||||
; bird mountain
|
; bird mountain
|
||||||
katahdin:
|
katahdin:
|
||||||
.incbin "KATC.BIN.lz4",11 ; skip the header
|
.incbin "KATC.BIN.lz4",11 ; skip the header
|
||||||
@ -158,5 +167,3 @@ katahdin_end:
|
|||||||
sb_background_hgr:
|
sb_background_hgr:
|
||||||
.incbin "SB_BACKGROUNDC.BIN.lz4",11
|
.incbin "SB_BACKGROUNDC.BIN.lz4",11
|
||||||
sb_background_hgr_end:
|
sb_background_hgr_end:
|
||||||
|
|
||||||
|
|
||||||
|
@ -17,6 +17,7 @@ starring:
|
|||||||
|
|
||||||
lda #0
|
lda #0
|
||||||
sta FRAME
|
sta FRAME
|
||||||
|
sta FRAMEH
|
||||||
sta DRAW_PAGE
|
sta DRAW_PAGE
|
||||||
|
|
||||||
;=============================
|
;=============================
|
||||||
@ -142,9 +143,9 @@ suloop2:dex ; 2
|
|||||||
dey ; 2
|
dey ; 2
|
||||||
bne suloop1 ; 2nt/3
|
bne suloop1 ; 2nt/3
|
||||||
|
|
||||||
;======================================================
|
;======================================================
|
||||||
; We have 4550 cycles in the vblank, use them wisely
|
; We have 4550 cycles in the vblank, use them wisely
|
||||||
;======================================================
|
;======================================================
|
||||||
|
|
||||||
|
|
||||||
; we want to flip between GR Page0, GR Page1, HGR Page0
|
; we want to flip between GR Page0, GR Page1, HGR Page0
|
||||||
@ -157,7 +158,7 @@ suloop2:dex ; 2
|
|||||||
; FRAME==60 reset
|
; FRAME==60 reset
|
||||||
|
|
||||||
; default = 13+5+5+7 = 30
|
; default = 13+5+5+7 = 30
|
||||||
; sixty = 13+17 = 30
|
; sixty = 13+20 = 30
|
||||||
; forty = 13+5+12 = 30
|
; forty = 13+5+12 = 30
|
||||||
; twenty = 13+5+5+7 = 30
|
; twenty = 13+5+5+7 = 30
|
||||||
|
|
||||||
@ -209,16 +210,48 @@ st_forty: ; -1
|
|||||||
; 7
|
; 7
|
||||||
done_st_vblank:
|
done_st_vblank:
|
||||||
|
|
||||||
|
;================
|
||||||
|
; wrap counter
|
||||||
|
;================
|
||||||
|
; nowrap = 8+5=13
|
||||||
|
; wrap = 8+5=13
|
||||||
|
|
||||||
|
lda FRAME ; 3
|
||||||
|
cmp #40 ; ensure end on PAGE0 ; 2
|
||||||
|
beq st_wrap ; 3
|
||||||
|
st_nowrap:
|
||||||
|
;-1
|
||||||
|
lda $0 ; nop ; 3
|
||||||
|
bne st_wrap_done ; 3
|
||||||
|
st_wrap:
|
||||||
|
inc FRAMEH ; 5
|
||||||
|
st_wrap_done:
|
||||||
|
|
||||||
|
;==============
|
||||||
|
; timeout after 4s or so?
|
||||||
|
;==============
|
||||||
|
st_timeout:
|
||||||
|
lda FRAMEH ; 3
|
||||||
|
cmp #4 ; 2
|
||||||
|
beq st_done ; 3
|
||||||
|
; -1
|
||||||
|
;============
|
||||||
|
; 7
|
||||||
|
|
||||||
; do_nothing should be 4550
|
; do_nothing should be 4550
|
||||||
|
; -13 wrap
|
||||||
|
; -7 timeout
|
||||||
; -10 keypress
|
; -10 keypress
|
||||||
; -30 page flipping
|
; -30 page flipping
|
||||||
; ===========
|
; ===========
|
||||||
; 4407
|
; 4484
|
||||||
|
|
||||||
; Try X=99 Y=9 cycles=4510
|
; Try X=178 Y=5 cycles=4481 R3
|
||||||
|
|
||||||
ldy #9 ; 2
|
lda $0
|
||||||
stloop1:ldx #99 ; 2
|
|
||||||
|
ldy #5 ; 2
|
||||||
|
stloop1:ldx #178 ; 2
|
||||||
stloop2:dex ; 2
|
stloop2:dex ; 2
|
||||||
bne stloop2 ; 2nt/3
|
bne stloop2 ; 2nt/3
|
||||||
dey ; 2
|
dey ; 2
|
||||||
@ -227,18 +260,18 @@ stloop2:dex ; 2
|
|||||||
lda KEYPRESS ; 4
|
lda KEYPRESS ; 4
|
||||||
bpl st_no_keypress ; 3
|
bpl st_no_keypress ; 3
|
||||||
|
|
||||||
jmp st_start_over
|
jmp st_done
|
||||||
st_no_keypress:
|
st_no_keypress:
|
||||||
|
|
||||||
jmp st_display_loop ; 3
|
jmp st_display_loop ; 3
|
||||||
|
|
||||||
st_start_over:
|
st_done:
|
||||||
bit KEYRESET ; clear keypress ; 4
|
bit KEYRESET ; clear keypress ; 4
|
||||||
rts ; 6
|
rts ; 6
|
||||||
|
|
||||||
.include "starring1.inc"
|
;.include "starring1.inc"
|
||||||
.include "starring2.inc"
|
;.include "starring2.inc"
|
||||||
|
|
||||||
starring3:
|
;starring3:
|
||||||
.incbin "starring3.img.lz4",11
|
;.incbin "starring3.img.lz4",11
|
||||||
starring3_end:
|
;starring3_end:
|
||||||
|
Loading…
Reference in New Issue
Block a user