mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-13 12:56:30 +00:00
credits: music is playing!
This commit is contained in:
parent
a8246b7ea0
commit
f509179449
@ -11,6 +11,8 @@
|
|||||||
LETTERD = $67
|
LETTERD = $67
|
||||||
LETTER = $68
|
LETTER = $68
|
||||||
BLARGH = $69
|
BLARGH = $69
|
||||||
|
MBASE = $97
|
||||||
|
MBOFFSET = $98
|
||||||
|
|
||||||
;===================
|
;===================
|
||||||
; init screen
|
; init screen
|
||||||
@ -26,6 +28,11 @@
|
|||||||
lda #37
|
lda #37
|
||||||
sta TREE2X
|
sta TREE2X
|
||||||
|
|
||||||
|
lda #0
|
||||||
|
sta MBOFFSET
|
||||||
|
lda #>music
|
||||||
|
sta MBASE
|
||||||
|
|
||||||
lda #<letters
|
lda #<letters
|
||||||
sta LETTERL
|
sta LETTERL
|
||||||
lda #>letters
|
lda #>letters
|
||||||
@ -441,6 +448,76 @@ loop4:
|
|||||||
; gr
|
; gr
|
||||||
bit LORES ; 4
|
bit LORES ; 4
|
||||||
|
|
||||||
|
;=========================
|
||||||
|
; play mockingboard
|
||||||
|
|
||||||
|
|
||||||
|
lda MBASE
|
||||||
|
sta MB_ADDRH
|
||||||
|
lda #0
|
||||||
|
sta MB_ADDRL
|
||||||
|
|
||||||
|
ldx #0
|
||||||
|
ldy MBOFFSET
|
||||||
|
lda (MB_ADDRL),Y
|
||||||
|
sta MB_VALUE
|
||||||
|
jsr write_ay_both
|
||||||
|
|
||||||
|
clc
|
||||||
|
lda #6
|
||||||
|
adc MB_ADDRH
|
||||||
|
sta MB_ADDRH
|
||||||
|
|
||||||
|
ldx #2
|
||||||
|
ldy MBOFFSET
|
||||||
|
lda (MB_ADDRL),Y
|
||||||
|
sta MB_VALUE
|
||||||
|
jsr write_ay_both
|
||||||
|
|
||||||
|
clc
|
||||||
|
lda #6
|
||||||
|
adc MB_ADDRH
|
||||||
|
sta MB_ADDRH
|
||||||
|
|
||||||
|
ldx #3
|
||||||
|
ldy MBOFFSET
|
||||||
|
lda (MB_ADDRL),y
|
||||||
|
sta MB_VALUE
|
||||||
|
jsr write_ay_both
|
||||||
|
|
||||||
|
clc
|
||||||
|
lda #6
|
||||||
|
adc MB_ADDRH
|
||||||
|
sta MB_ADDRH
|
||||||
|
|
||||||
|
ldx #8
|
||||||
|
ldy MBOFFSET
|
||||||
|
lda (MB_ADDRL),y
|
||||||
|
sta MB_VALUE
|
||||||
|
jsr write_ay_both
|
||||||
|
|
||||||
|
clc
|
||||||
|
lda #6
|
||||||
|
adc MB_ADDRH
|
||||||
|
sta MB_ADDRH
|
||||||
|
|
||||||
|
ldx #9
|
||||||
|
ldy MBOFFSET
|
||||||
|
lda (MB_ADDRL),y
|
||||||
|
sta MB_VALUE
|
||||||
|
jsr write_ay_both
|
||||||
|
|
||||||
|
lda FRAME
|
||||||
|
and #1
|
||||||
|
clc
|
||||||
|
adc MBOFFSET
|
||||||
|
sta MBOFFSET
|
||||||
|
|
||||||
|
lda MBASE
|
||||||
|
adc #0
|
||||||
|
sta MBASE
|
||||||
|
|
||||||
|
|
||||||
; want 5200 - 4 = 5196 cycles
|
; want 5200 - 4 = 5196 cycles
|
||||||
; 1+y(6+5x)
|
; 1+y(6+5x)
|
||||||
; Try X=17 Y=57 cycles=5188, R8
|
; Try X=17 Y=57 cycles=5188, R8
|
||||||
|
Binary file not shown.
Loading…
Reference in New Issue
Block a user