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

dsr_shape: more work

Browse Source
This commit is contained in:
Vince Weaver 2020-06-13 23:00:40 -04:00
parent d1968bbe21
commit 545a46975e
1 changed files with 13 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
shapetable_party/dsr_shape.s
View File

@ -2,7 +2,7 @@
; by Deater for -=dSr=-
; @party 2020
; 252 bytes
; trying to beat 254 bytes
; zero page locations
HGR_SHAPE = $1A
@ -244,34 +244,25 @@ rot_smc:
;==========================
draw_and_beep:
pha
pha ; 1 ; save delay for later
; sty tone_smc+1 ; 3
jsr xdraw ; 3 ; xdraw
jsr xdraw ; 3
; check for keypress
lda KEYPRESS ; 3 ; see if key pressed
bmi exit_to_prompt ; 2 ; loop if not
;===========================
; BEEP (inlined)
;===========================
beep:
actual_beep:
; BEEP
; repeat 30 times
ldx #30 ; 2
pla
tay
pla ; 1 ; restore delay
tay ; 1 ; move to Y
tone1_loop:
tone_smc:
; lda #15
tya
tya ; 1 ; load delay
jsr WAIT ; 3 ; not as accurate as the cycle count
; method before, but saves a few bytes
@ -293,6 +284,11 @@ no_click:
check_finished:
; check for keypress
lda KEYPRESS ; 3 ; see if key pressed
bmi exit_to_prompt ; 2 ; loop if not
lda FRAME ; 2 ; end with big dSr
bne xdraw ; 2 ; xdraw
@ -306,3 +302,4 @@ exit_to_prompt:
jsr TEXT ; 3 ; return to text mode
jmp $3D0 ; 3 ; return to Applesoft prompt