diff --git a/demos/lovebyte2024/d2v/dont2.s b/demos/lovebyte2024/d2v/dont2.s index 65420ea1..ac3dec2b 100644 --- a/demos/lovebyte2024/d2v/dont2.s +++ b/demos/lovebyte2024/d2v/dont2.s @@ -21,6 +21,7 @@ HGR_SCALE = $E7 TEMPY = $F0 HGR_ROTATION = $F9 +SAVEY = $FA INL = $FE INH = $FF diff --git a/demos/lovebyte2024/d2v/still.s b/demos/lovebyte2024/d2v/still.s index 5c6aada0..d777d922 100644 --- a/demos/lovebyte2024/d2v/still.s +++ b/demos/lovebyte2024/d2v/still.s @@ -41,11 +41,17 @@ still: ldy #39 jsr VLINE + ;============== + ; set screen for wrap + lda #20 - sta $20 - sta $21 + sta $20 ; left edge + sta $21 ; right edge lda #2 - sta $22 + sta $22 ; top edge + + ;================== + ; draw opening 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: jmp done_still @@ -77,16 +128,20 @@ opening: .byte " =MMM@MH +M@+ MX",13 .byte " ,++ .MMMM= ",0 -.if 0 -.byte 13 -.byte " ,:/;=",13 -.byte " ,X M@@M=-HM@/",13 -.byte " @@M MX.-XXXH@@#/",13 -.byte " @@@X. -H$%%;",13 -.byte "X/-M/ +M@M",13 -.byte "@@M,. H @@",13 -.byte "/MMMH. MM;=",13 -.byte " .----. -H,@@M,",13 -.byte " =MMM@MH.+M@+/MX",13 -.byte " ,++,HMMMM==",0 -.endif + + ; F,D +music_data: + .byte 85,54 + .byte 91,54 + .byte 102,54 + .byte 102,54 + .byte 91,54 + .byte 0 +;80 T$="This ":D=54:F=85:GOSUB 8 +;82 T$="was ":F=91:GOSUB 8 +;84 T$="a ":F=102:GOSUB 8 +;86 T$="tri":GOSUB 8 +;89 T$="umph."+C$:F=91:GOSUB 8 +;90 FOR I=1 TO 800:NEXT + +