mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-08-27 21:29:36 +00:00
credits: music is playing!
This commit is contained in:
parent
a8246b7ea0
commit
f509179449
@ -11,6 +11,8 @@
|
||||
LETTERD = $67
|
||||
LETTER = $68
|
||||
BLARGH = $69
|
||||
MBASE = $97
|
||||
MBOFFSET = $98
|
||||
|
||||
;===================
|
||||
; init screen
|
||||
@ -26,6 +28,11 @@
|
||||
lda #37
|
||||
sta TREE2X
|
||||
|
||||
lda #0
|
||||
sta MBOFFSET
|
||||
lda #>music
|
||||
sta MBASE
|
||||
|
||||
lda #<letters
|
||||
sta LETTERL
|
||||
lda #>letters
|
||||
@ -441,6 +448,76 @@ loop4:
|
||||
; gr
|
||||
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
|
||||
; 1+y(6+5x)
|
||||
; Try X=17 Y=57 cycles=5188, R8
|
||||
|
Binary file not shown.
Loading…
Reference in New Issue
Block a user