Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-09-28 17:55:04 +00:00
Code Issues Projects Releases Wiki Activity

dsr_shape: more work

Browse Source
This commit is contained in:
Vince Weaver 2020-06-13 22:59:48 -04:00
parent 0979987ecb
commit 5cdfe2067e
1 changed files with 48 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
shapetable_party/dsr_shape.s
View File

@ -1,4 +1,6 @@
; 263 bytes ; shapetable party
; by Deater for -=dSr=-
; @party 2020
; zero page locations ; zero page locations
HGR_SHAPE = $1A HGR_SHAPE = $1A
@ -13,7 +15,6 @@ SCALE = $FC
XPOS = $FD XPOS = $FD
YPOS = $FF YPOS = $FF
; soft switches
; Soft Switches ; Soft Switches
KEYPRESS = $C000 KEYPRESS = $C000
KEYRESET = $C010 KEYRESET = $C010
@ -28,8 +29,10 @@ HCLR = $F3F2
HCLR_COLOR = $F3F4 HCLR_COLOR = $F3F4
HPOSN = $F411 HPOSN = $F411
XDRAW0 = $F65D XDRAW0 = $F65D
TEXT = $FB36 ; Set text mode
WAIT = $FCA8 ; delay 1/2(26+27A+5A^2) us WAIT = $FCA8 ; delay 1/2(26+27A+5A^2) us
dsr_demo: dsr_demo:
;========================================= ;=========================================
@ -115,7 +118,7 @@ main_loop:
and #$1f ; 2 and #$1f ; 2
beq long_frame ; 2 beq long_frame ; 2
ldy #24 ; 2 ldy #15 ; 2
jsr draw_and_beep ; 3 jsr draw_and_beep ; 3
done_frame: done_frame:
@ -151,11 +154,11 @@ long_frame:
;===================== ;=====================
draw_arm: draw_arm:
lda HGR_SCALE lda HGR_SCALE ; 2
pha pha ; 1
ldy #1 ldy #1 ; 2
sty HGR_SCALE sty HGR_SCALE ; 2
; setup X and Y co-ords ; setup X and Y co-ords
lda FRAME lda FRAME
@ -170,11 +173,11 @@ draw_arm:
jsr xdraw_custom_shape jsr xdraw_custom_shape
skip_arm: skip_arm:
pla pla ; 1
asl ; 2 ; make twice as big asl ; 1 ; make twice as big
sta HGR_SCALE sta HGR_SCALE ; 2
ldy #235 ; 2 ; long tone ldy #85 ; 2 ; long tone
jsr draw_and_beep ; 3 ; draw and beep jsr draw_and_beep ; 3 ; draw and beep
bit PAGE1 ; 3 ; display page back to page1 bit PAGE1 ; 3 ; display page back to page1
@ -231,61 +234,64 @@ shape_dsr:
.byte $24,$ad,$22,$24,$94,$21,$2c,$4d .byte $24,$ad,$22,$24,$94,$21,$2c,$4d
.byte $91,$3f,$36,$00 .byte $91,$3f,$36,$00
;========================== ;==========================
; draw/beep/undraw ; draw/beep/undraw
;========================== ;==========================
draw_and_beep: draw_and_beep:
sty tone_smc+1 sty tone_smc+1 ; 3
jsr xdraw jsr xdraw ; 3
;=========================== ;===========================
; BEEP (inlined) ; BEEP (inlined)
;=========================== ;===========================
beep: beep:
lda FRAME ; 2 lda FRAME ; 2 ; only play tone every 4th frame
and #$3 and #$3 ; 2
beq actual_beep beq actual_beep ; 2
nobeep: nobeep:
lda #100 ; 2 lda #100 ; 2
jsr WAIT ; 3 jsr WAIT ; 3
beq done_forever ; 2 (A always 0 after WAIT) beq check_finished ; 2 (A always 0 after WAIT)
actual_beep: actual_beep:
; BEEP ; BEEP
; repeat 30 times ; repeat 30 times
lda #30 ; 2 ldx #30 ; 2
tone1_loop: tone1_loop:
tone_smc: tone_smc:
ldy #24 ; 2 lda #15
loopC: ldx #6 ; 2 jsr WAIT ; 3 ; not as accurate as the cycle count
loopD: dex ; 1 ; method before, but saves a few bytes
bne loopD ; 2
dey ; 1
bne loopC ; 2
bit SPEAKER ; 3 ; click speaker bit SPEAKER ; 3 ; click speaker
sec ; 1 dex ; 1
sbc #1 ; 2
bne tone1_loop ; 2 bne tone1_loop ; 2
; Try X=6 Y=21 cycles=757 ; WAIT equiv: delay 1/2(26+27A+5A^2) us
; Try X=6 Y=24 cycles=865 ; A=2.5 B=13.5 C=13
; Try X=7 Y=235 cycles=9636 ; Try X=6 Y=21 cycles=757 C=-744 ; WAIT A=14.76
; Try X=6 Y=24 cycles=865 C=-852 ; WAIT A=15.95
; Try X=7 Y=235 cycles=9636 C=-19259 ; WAIT A=85.111
done_forever:
lda FRAME ; end with big dSr
beq done_forever
jmp xdraw ; draw
check_finished:
lda FRAME ; 2 ; end with big dSr
bne xdraw ; 2 ; draw
;==================================
; exit to basic
wait_until_keypress:
lda KEYPRESS ; 3 ; see if key pressed
bpl wait_until_keypress ; 2 ; loop if not
; bit KEYRESET
exit_to_prompt:
jsr TEXT ; 3 ; return to text mode
jmp $3D0 ; 3 ; return to Applesoft prompt