mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-08 15:29:41 +00:00
lovebyte: more work on ending
This commit is contained in:
parent
97aa1d473b
commit
8621dbe235
|
@ -21,6 +21,7 @@ HGR_SCALE = $E7
|
||||||
TEMPY = $F0
|
TEMPY = $F0
|
||||||
HGR_ROTATION = $F9
|
HGR_ROTATION = $F9
|
||||||
|
|
||||||
|
SAVEY = $FA
|
||||||
INL = $FE
|
INL = $FE
|
||||||
INH = $FF
|
INH = $FF
|
||||||
|
|
||||||
|
|
|
@ -41,11 +41,17 @@ still:
|
||||||
ldy #39
|
ldy #39
|
||||||
jsr VLINE
|
jsr VLINE
|
||||||
|
|
||||||
|
;==============
|
||||||
|
; set screen for wrap
|
||||||
|
|
||||||
lda #20
|
lda #20
|
||||||
sta $20
|
sta $20 ; left edge
|
||||||
sta $21
|
sta $21 ; right edge
|
||||||
lda #2
|
lda #2
|
||||||
sta $22
|
sta $22 ; top edge
|
||||||
|
|
||||||
|
;==================
|
||||||
|
; draw opening
|
||||||
|
|
||||||
lda #<opening
|
lda #<opening
|
||||||
sta INL
|
sta INL
|
||||||
|
@ -61,6 +67,51 @@ opening_loop:
|
||||||
iny
|
iny
|
||||||
bne opening_loop ; bra
|
bne opening_loop ; bra
|
||||||
|
|
||||||
|
;===========================
|
||||||
|
; play music and draw loop
|
||||||
|
|
||||||
|
lda #<music_data
|
||||||
|
sta INL
|
||||||
|
lda #>music_data
|
||||||
|
sta INH
|
||||||
|
|
||||||
|
|
||||||
|
ldy #0
|
||||||
|
music_loop:
|
||||||
|
lda (INL),Y
|
||||||
|
beq done_music
|
||||||
|
sta $300 ; F
|
||||||
|
iny
|
||||||
|
lda (INL),Y
|
||||||
|
sta $301 ; D
|
||||||
|
iny
|
||||||
|
|
||||||
|
sty SAVEY
|
||||||
|
|
||||||
|
play_tone:
|
||||||
|
lda $C030 ; click speaker
|
||||||
|
duration_loop:
|
||||||
|
dey ; where is y set?
|
||||||
|
bne ahead
|
||||||
|
dec $0301 ; $301=D
|
||||||
|
beq done_tone
|
||||||
|
ahead:
|
||||||
|
dex
|
||||||
|
bne duration_loop
|
||||||
|
ldx $0300 ; $300=F
|
||||||
|
jmp play_tone
|
||||||
|
done_tone:
|
||||||
|
|
||||||
|
ldy SAVEY
|
||||||
|
jmp music_loop
|
||||||
|
|
||||||
|
done_music:
|
||||||
|
jmp done_music
|
||||||
|
|
||||||
|
; .byte 173,48,192,136,208,5,206,1,3,240,9
|
||||||
|
; .byte 202,208,245,174,0,3,76,2,3,96
|
||||||
|
|
||||||
|
|
||||||
done_still:
|
done_still:
|
||||||
jmp done_still
|
jmp done_still
|
||||||
|
|
||||||
|
@ -77,16 +128,20 @@ opening:
|
||||||
.byte " =MMM@MH +M@+ MX",13
|
.byte " =MMM@MH +M@+ MX",13
|
||||||
.byte " ,++ .MMMM= ",0
|
.byte " ,++ .MMMM= ",0
|
||||||
|
|
||||||
.if 0
|
|
||||||
.byte 13
|
; F,D
|
||||||
.byte " ,:/;=",13
|
music_data:
|
||||||
.byte " ,X M@@M=-HM@/",13
|
.byte 85,54
|
||||||
.byte " @@M MX.-XXXH@@#/",13
|
.byte 91,54
|
||||||
.byte " @@@X. -H$%%;",13
|
.byte 102,54
|
||||||
.byte "X/-M/ +M@M",13
|
.byte 102,54
|
||||||
.byte "@@M,. H @@",13
|
.byte 91,54
|
||||||
.byte "/MMMH. MM;=",13
|
.byte 0
|
||||||
.byte " .----. -H,@@M,",13
|
;80 T$="This ":D=54:F=85:GOSUB 8
|
||||||
.byte " =MMM@MH.+M@+/MX",13
|
;82 T$="was ":F=91:GOSUB 8
|
||||||
.byte " ,++,HMMMM==",0
|
;84 T$="a ":F=102:GOSUB 8
|
||||||
.endif
|
;86 T$="tri":GOSUB 8
|
||||||
|
;89 T$="umph."+C$:F=91:GOSUB 8
|
||||||
|
;90 FOR I=1 TO 800:NEXT
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user