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: keyboard input plausible

Browse Source
This commit is contained in:
Vince Weaver 2019-11-06 23:49:07 -05:00
parent 58e8791fe3
commit 9eb29fb652
1 changed files with 55 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
demosplash/escape.s
View File

@ -1484,18 +1484,64 @@ score_after:
.assert >score_before = >score_after, error, "score crosses page" .assert >score_before = >score_after, error, "score crosses page"
.align $100
escape_keys_before: escape_keys_before:
escape_keys: escape_keys:
.byte 'A',20 .byte 'A',5 ; up
.byte 'A',20 .byte 'A',20 ; faster
.byte 'Z',2 .byte 'Z',5 ; slower
.byte 'Z',2 .byte 'Z',5 ; stop
.byte ' ',5 .byte ' '+$80,20 ; shoot first asteroid
.byte '.',200 .byte 'Z',5 ; down
.byte '.',200 .byte 'Z',5 ; faster
.byte 27,2 .byte 'A',5 ; slower
.byte 'A',20 ; stop
.byte ' '+$80,20 ; shoot second asteroid
.byte 'Z',30 ; down
.byte '.'+$80,10
.byte 'A',5 ; up
.byte 'A',30 ; up
.byte '.'+$80,20
.byte 'Z',25 ; down
.byte 'Z',25 ; faster
.byte 'A',25 ; slower
.byte 'A',25 ; stop
.byte 'Z',5 ; down
.byte 'Z',10 ; faster
.byte 'Z',40 ; faster
.byte 'A',25 ; slower
.byte 'A',25 ; stop
.byte ','+$80,30
.byte 'A',5 ; down
.byte 'A',10 ; faster
.byte 'A',40 ; faster
.byte 'Z',25 ; slower
.byte 'Z',25 ; stop
.byte ' '+$80,30 ; shoot
.byte 'A',5 ; down
.byte 'A',10 ; faster
.byte 'A',40 ; faster
.byte 'Z',25 ; slower
.byte 'Z',25 ; stop
.byte 'Z',25 ; slower
.byte 'Z',45 ; stop
.byte 'A',5 ; down
.byte 'A',10 ; faster
.byte 'A',40 ; faster
.byte ','+$80,50
.byte 'Z',25 ; slower
.byte 'Z',25 ; stop
.byte 'Z',40 ; slower
.byte 'A',25 ; down
.byte 'A',10 ; faster
.byte 'A',25 ; faster
.byte 'Z',25 ; faster
.byte ' '+$80,30
.byte 27+$80,2
escape_keys_after: escape_keys_after:
.assert >escape_keys_before = >escape_keys_after, error, "keys crosses page" .assert >escape_keys_before = >escape_keys_after, error, "keys crosses page"