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

trogdor: burninating all the people in the thatched roof cottages

Browse Source
This commit is contained in:
Vince Weaver 2024-01-28 00:58:45 -05:00
parent ab42f9623e
commit 88241022d3
1 changed files with 60 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
demos/trogdor/trogdor.s
View File

@ -742,12 +742,28 @@ scroll_in_loop2:
;======================================
; draw SCENE 13
;======================================
; 1429
; trog down, 5 frames
; cottage , 5 frames
; trog up, 5 frames
; cottage, 5 frames
; overall: DCUC DCUC DC
lda #<trog04_graphics
sta zx_src_l+1
lda #>trog04_graphics
sta zx_src_h+1
lda #$60
jsr zx02_full_decomp
jsr down_cottage
jsr up_cottage
jsr down_cottage
jsr up_cottage
jsr down_cottage
; TODO
;======================================
@ -911,3 +927,47 @@ dman_flames_common:
jsr wait_ticks
rts
down_cottage:
lda #0
sta SPRITE_X
lda #96
sta SPRITE_Y
lda #$60
jsr hgr_copy_magnify
jsr hgr_page_flip
lda #5
jsr wait_ticks
jmp common_cottage
up_cottage:
lda #0
sta SPRITE_X
lda #0
sta SPRITE_Y
lda #$60
jsr hgr_copy_magnify
jsr hgr_page_flip
lda #5
jsr wait_ticks
common_cottage:
ldy #$7f
jsr hgr_clear_screen
jsr hgr_copy_right
jsr hgr_page_flip
lda #5
jsr wait_ticks
rts