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: getting closer

Browse Source
This commit is contained in:
Vince Weaver 2019-11-15 22:17:49 -05:00
parent a819795da8
commit f67c1381fc
3 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
demosplash/demosplash.s
View File

@ -168,11 +168,11 @@ repeat_ending:
;======================
; wait until keypressed
;======================
wait_until_keypressed:
lda KEYPRESS
bpl wait_until_keypressed
bit KEYRESET
rts
;wait_until_keypressed:
; lda KEYPRESS
; bpl wait_until_keypressed
; bit KEYRESET
; rts

5
demosplash/escape.s
View File

@ -11,8 +11,7 @@ escape:
; setup music
; we are roughly at the beginning of pattern 0x18
; pattern $18
; line $15
; pattern $18, line $00
lda #$18
sta current_pattern_smc+1
@ -25,7 +24,7 @@ escape:
sta FRAME_PAGE
jsr update_pt3_play
lda #$3F ; assume on line $15, speed=3
lda #$0 ; assume on line $15, speed=3
sta FRAME_PLAY_OFFSET
lda #1

2
demosplash/starbase_keyboard.s
View File

@ -455,7 +455,7 @@ starbase_keypresses:
.byte '.',80 ; start charging laser, wait 180
.byte 'L',10 ; release, blasting door, wait 2
.byte 'D',20 ; walk right
.byte 'D',180 ; run right
.byte 'D',135 ; run right until we hit door
.byte 'A',2 ; walk left ; turn
.byte 'A',50 ; walk left ; walk left
.byte 'D',2 ; stop