Kjetil's Information Center: A Blog About My Projects

Bad Apple!! for Epson HX-20

There exists a somewhat famous video which has a "monochrome" animation and music made by Alstroemeria Records based on the Touhou Project.

A popular activity is to make variants of this, including variants running on older computers. My contribution is for the Epson HX-20 and can be found here.

I had to use two Epson HX-20s for this due to severe hardware constraints. One HX-20 is streaming the video over the "high speed" serial link using the same method as described in my earlier post here. Some minor modifications were made in the C program to update at 30 FPS and display only 40x32 pixels, but the program running on the HX-20 is the same.

Another HX-20 is playing the audio through its piezo speaker. Here is that assembly program which plays the "Bad Apple!!" melody:

	processor hd6303

TRCSR equ $11
SRDR  equ $12
STDR  equ $13

	org $1000 ; Run from RAM
start:
	ldx #sound
loop:
	ldaa #$31 ; Advanced Sound Command
	jsr send

	ldaa 0,x ; Frequency Upper
	inx
	jsr send
	ldaa 0,x ; Frequency Lower
	inx
	jsr send

	ldaa 0,x ; Duration Upper
	inx
	jsr send
	ldaa 0,x ; Duration Lower
	inx
	jsr send

	ldaa 0,x
	cmpa #$ff
	bne loop
end:
	jmp end

send:
	dc.b $7B,$20,TRCSR ; tim #$20,TRCSR
	beq send
	staa STDR
recv:
	tst TRCSR
	bpl recv
	ldab SRDR
	rts

sound:
	dc.b 41,22,0,135
	dc.b 41,22,0,135
	dc.b 0,0,3,183
	dc.b 41,22,0,135
	dc.b 0,0,3,183
	dc.b 41,22,0,135
	dc.b 0,0,0,135
	dc.b 41,22,0,135
	dc.b 0,0,0,135
	dc.b 41,22,0,135
	dc.b 0,0,0,135
	dc.b 41,22,0,135
	dc.b 0,0,0,135
	dc.b 41,22,0,135
	dc.b 0,0,3,183
	dc.b 41,22,0,135
	dc.b 0,0,3,183
	dc.b 41,22,0,135
	dc.b 0,0,3,183
	dc.b 41,22,0,135
	dc.b 0,0,1,151
	dc.b 41,22,0,135
	dc.b 0,0,1,151
	dc.b 41,22,0,135
	dc.b 0,0,3,183
	dc.b 41,22,0,135
	dc.b 0,0,3,183
	dc.b 41,22,0,135
	dc.b 0,0,3,183
	dc.b 41,22,0,135
	dc.b 0,0,0,135
	dc.b 41,22,0,135
	dc.b 0,0,0,135
	dc.b 41,22,0,135
	dc.b 0,0,0,135
	dc.b 41,22,0,135
	dc.b 0,0,0,135
	dc.b 41,22,0,135
	dc.b 0,0,3,183
	dc.b 41,22,0,135
	dc.b 0,0,3,183
	dc.b 41,22,0,135
	dc.b 0,0,3,183
	dc.b 41,22,0,135
	dc.b 0,0,1,151
	dc.b 41,22,0,135
	dc.b 0,0,1,151
	dc.b 20,139,0,135
	dc.b 0,0,3,183
	dc.b 20,139,0,135
	dc.b 0,0,3,183
	dc.b 20,139,0,135
	dc.b 0,0,3,183
	dc.b 20,139,0,135
	dc.b 0,0,0,135
	dc.b 20,139,0,135
	dc.b 0,0,0,135
	dc.b 20,139,0,135
	dc.b 0,0,0,135
	dc.b 20,139,0,135
	dc.b 0,0,0,135
	dc.b 20,139,0,135
	dc.b 0,0,3,183
	dc.b 20,139,0,135
	dc.b 0,0,3,183
	dc.b 20,139,0,135
	dc.b 0,0,3,183
	dc.b 20,139,0,135
	dc.b 0,0,1,151
	dc.b 20,139,0,135
	dc.b 0,0,1,151
	dc.b 20,139,0,135
	dc.b 0,0,3,183
	dc.b 20,139,0,135
	dc.b 0,0,3,183
	dc.b 20,139,0,135
	dc.b 0,0,3,183
	dc.b 20,139,0,135
	dc.b 0,0,0,135
	dc.b 20,139,0,135
	dc.b 0,0,0,135
	dc.b 20,139,0,135
	dc.b 0,0,0,135
	dc.b 20,139,0,135
	dc.b 0,0,0,135
	dc.b 20,139,0,135
	dc.b 0,0,3,183
	dc.b 20,139,0,135
	dc.b 0,0,3,183
	dc.b 20,139,0,135
	dc.b 0,0,3,183
	dc.b 20,139,0,135
	dc.b 0,0,1,151
	dc.b 20,139,0,135
	dc.b 0,0,1,151
	dc.b 20,139,0,135
	dc.b 0,0,1,151
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 15,99,2,29
	dc.b 0,0,0,2
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 15,99,2,29
	dc.b 0,0,0,2
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,15
	dc.b 30,199,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 6,120,1,13
	dc.b 0,0,0,2
	dc.b 25,226,2,29
	dc.b 0,0,0,2
	dc.b 6,120,1,13
	dc.b 0,0,0,2
	dc.b 5,195,1,13
	dc.b 0,0,0,2
	dc.b 15,99,2,29
	dc.b 0,0,0,2
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 15,99,2,29
	dc.b 0,0,0,2
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 15,99,2,29
	dc.b 0,0,0,2
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,15
	dc.b 11,135,2,31
	dc.b 6,120,1,13
	dc.b 0,0,0,2
	dc.b 5,195,1,13
	dc.b 0,0,0,2
	dc.b 12,241,2,31
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 6,120,1,13
	dc.b 0,0,0,2
	dc.b 15,99,2,29
	dc.b 0,0,0,2
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 15,99,2,29
	dc.b 0,0,0,2
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 15,99,2,29
	dc.b 0,0,0,2
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,15
	dc.b 30,199,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 6,120,1,13
	dc.b 0,0,0,2
	dc.b 25,226,2,29
	dc.b 0,0,0,2
	dc.b 6,120,1,13
	dc.b 0,0,0,2
	dc.b 5,195,1,13
	dc.b 0,0,0,2
	dc.b 15,99,2,29
	dc.b 0,0,0,2
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 15,99,2,29
	dc.b 0,0,0,2
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 15,99,2,29
	dc.b 0,0,0,2
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,15
	dc.b 11,135,2,31
	dc.b 0,0,1,15
	dc.b 5,195,1,13
	dc.b 0,0,0,2
	dc.b 12,241,2,31
	dc.b 0,0,1,15
	dc.b 6,120,1,13
	dc.b 0,0,0,2
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 1,236,2,31
	dc.b 2,40,2,31
	dc.b 2,145,4,62
	dc.b 3,216,4,62
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 3,216,2,31
	dc.b 4,19,2,31
	dc.b 3,109,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 1,236,2,31
	dc.b 2,40,2,31
	dc.b 2,145,4,62
	dc.b 3,216,4,62
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 0,0,2,31
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,4,62
	dc.b 3,60,4,62
	dc.b 2,225,4,62
	dc.b 2,145,4,62
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 1,236,2,31
	dc.b 2,40,2,31
	dc.b 2,145,4,62
	dc.b 3,216,4,62
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 3,216,2,31
	dc.b 4,19,2,31
	dc.b 3,109,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 1,236,2,31
	dc.b 2,40,2,31
	dc.b 2,145,4,62
	dc.b 3,216,4,62
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 0,0,2,31
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,4,62
	dc.b 3,60,4,62
	dc.b 2,225,4,62
	dc.b 2,145,4,62
	dc.b 2,40,2,31
	dc.b 1,236,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,40,2,31
	dc.b 1,236,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 4,81,2,31
	dc.b 3,216,4,62
	dc.b 4,81,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 3,216,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,40,2,31
	dc.b 1,236,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,40,2,31
	dc.b 1,236,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 4,81,2,31
	dc.b 3,216,4,62
	dc.b 4,81,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 3,216,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,40,2,31
	dc.b 1,236,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,40,2,31
	dc.b 1,236,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 4,81,2,31
	dc.b 3,216,4,62
	dc.b 4,81,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 3,216,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,40,2,31
	dc.b 1,236,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,40,2,31
	dc.b 1,236,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 1,236,2,31
	dc.b 1,182,2,31
	dc.b 1,158,2,31
	dc.b 1,182,2,31
	dc.b 1,236,2,31
	dc.b 2,40,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 4,81,2,31
	dc.b 3,216,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,40,2,31
	dc.b 1,236,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,40,2,31
	dc.b 1,236,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 4,81,2,31
	dc.b 3,216,4,62
	dc.b 4,81,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 3,216,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,40,2,31
	dc.b 1,236,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,40,2,31
	dc.b 1,236,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 4,81,2,31
	dc.b 3,216,4,62
	dc.b 4,81,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 3,216,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 1,20,2,31
	dc.b 0,246,2,31
	dc.b 1,72,2,31
	dc.b 1,112,2,31
	dc.b 1,72,4,62
	dc.b 1,112,2,31
	dc.b 1,72,2,31
	dc.b 1,20,2,31
	dc.b 0,246,2,31
	dc.b 1,72,2,31
	dc.b 1,112,2,31
	dc.b 1,72,4,62
	dc.b 1,112,2,31
	dc.b 1,72,2,31
	dc.b 1,112,2,31
	dc.b 1,158,2,31
	dc.b 1,182,2,31
	dc.b 2,40,2,31
	dc.b 1,236,4,62
	dc.b 2,40,2,31
	dc.b 1,236,2,31
	dc.b 1,182,2,31
	dc.b 1,158,2,31
	dc.b 1,112,2,31
	dc.b 1,72,2,31
	dc.b 1,236,4,62
	dc.b 1,112,2,31
	dc.b 1,72,2,31
	dc.b 1,20,2,31
	dc.b 0,246,2,31
	dc.b 1,72,2,31
	dc.b 1,112,2,31
	dc.b 1,72,4,62
	dc.b 1,112,2,31
	dc.b 1,72,2,31
	dc.b 1,20,2,31
	dc.b 0,246,2,31
	dc.b 1,72,2,31
	dc.b 1,112,2,31
	dc.b 1,72,4,62
	dc.b 0,246,2,31
	dc.b 0,219,2,31
	dc.b 0,207,2,31
	dc.b 0,219,2,31
	dc.b 0,246,2,31
	dc.b 1,20,2,31
	dc.b 1,72,4,62
	dc.b 1,112,2,31
	dc.b 1,72,2,31
	dc.b 1,112,2,31
	dc.b 1,158,2,31
	dc.b 1,182,2,31
	dc.b 2,40,2,31
	dc.b 1,236,8,125
	dc.b 15,99,2,29
	dc.b 0,0,0,2
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 15,99,2,29
	dc.b 0,0,0,2
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 15,99,2,29
	dc.b 0,0,0,2
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,15
	dc.b 30,199,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 6,120,1,13
	dc.b 0,0,0,2
	dc.b 25,226,2,29
	dc.b 0,0,0,2
	dc.b 6,120,1,13
	dc.b 0,0,0,2
	dc.b 5,195,1,13
	dc.b 0,0,0,2
	dc.b 15,99,2,29
	dc.b 0,0,0,2
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 15,99,2,29
	dc.b 0,0,0,2
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 15,99,2,29
	dc.b 0,0,0,2
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,15
	dc.b 11,135,2,31
	dc.b 6,120,1,13
	dc.b 0,0,0,2
	dc.b 5,195,1,13
	dc.b 0,0,0,2
	dc.b 12,241,2,31
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 6,120,1,13
	dc.b 0,0,0,2
	dc.b 15,99,2,29
	dc.b 0,0,0,2
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 15,99,2,29
	dc.b 0,0,0,2
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 15,99,2,29
	dc.b 0,0,0,2
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,15
	dc.b 30,199,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 6,120,1,13
	dc.b 0,0,0,2
	dc.b 25,226,2,29
	dc.b 0,0,0,2
	dc.b 6,120,1,13
	dc.b 0,0,0,2
	dc.b 5,195,1,13
	dc.b 0,0,0,2
	dc.b 15,99,2,29
	dc.b 0,0,0,2
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 15,99,2,29
	dc.b 0,0,0,2
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 15,99,2,29
	dc.b 0,0,0,2
	dc.b 15,99,1,13
	dc.b 0,0,0,2
	dc.b 7,177,2,29
	dc.b 0,0,0,2
	dc.b 7,177,1,13
	dc.b 0,0,0,2
	dc.b 8,163,1,13
	dc.b 0,0,0,2
	dc.b 7,177,1,15
	dc.b 11,135,2,31
	dc.b 0,0,1,15
	dc.b 5,195,1,13
	dc.b 0,0,0,2
	dc.b 12,241,2,31
	dc.b 0,0,1,15
	dc.b 6,120,1,13
	dc.b 0,0,0,2
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 1,236,2,31
	dc.b 2,40,2,31
	dc.b 2,145,4,62
	dc.b 3,216,4,62
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 3,216,2,31
	dc.b 4,19,2,31
	dc.b 3,109,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 1,236,2,31
	dc.b 2,40,2,31
	dc.b 2,145,4,62
	dc.b 3,216,4,62
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 0,0,2,31
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,4,62
	dc.b 3,60,4,62
	dc.b 2,225,4,62
	dc.b 2,145,4,62
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 1,236,2,31
	dc.b 2,40,2,31
	dc.b 2,145,4,62
	dc.b 3,216,4,62
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 3,216,2,31
	dc.b 4,19,2,31
	dc.b 3,109,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 1,236,2,31
	dc.b 2,40,2,31
	dc.b 2,145,4,62
	dc.b 3,216,4,62
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 0,0,2,31
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,4,62
	dc.b 3,60,4,62
	dc.b 2,225,4,62
	dc.b 2,145,4,62
	dc.b 2,40,2,31
	dc.b 1,236,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,40,2,31
	dc.b 1,236,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 4,81,2,31
	dc.b 3,216,4,62
	dc.b 4,81,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 3,216,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,40,2,31
	dc.b 1,236,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,40,2,31
	dc.b 1,236,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 4,81,2,31
	dc.b 3,216,4,62
	dc.b 4,81,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 3,216,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,40,2,31
	dc.b 1,236,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,40,2,31
	dc.b 1,236,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 4,81,2,31
	dc.b 3,216,4,62
	dc.b 4,81,2,31
	dc.b 3,216,2,31
	dc.b 3,109,2,31
	dc.b 3,60,2,31
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 3,216,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,40,2,31
	dc.b 1,236,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,40,2,31
	dc.b 1,236,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 2,145,4,62
	dc.b 1,236,2,31
	dc.b 1,182,2,31
	dc.b 1,158,2,31
	dc.b 1,182,2,31
	dc.b 1,236,2,31
	dc.b 2,40,2,31
	dc.b 2,145,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,225,2,31
	dc.b 3,60,2,31
	dc.b 3,109,2,31
	dc.b 4,81,2,31
	dc.b 3,216,4,62
	dc.b 2,225,2,31
	dc.b 2,145,2,31
	dc.b 2,9,2,31
	dc.b 1,208,2,31
	dc.b 2,108,2,31
	dc.b 2,184,2,31
	dc.b 2,108,4,62
	dc.b 2,184,2,31
	dc.b 2,108,2,31
	dc.b 2,9,2,31
	dc.b 1,208,2,31
	dc.b 2,108,2,31
	dc.b 2,184,2,31
	dc.b 2,108,4,62
	dc.b 2,184,2,31
	dc.b 2,108,2,31
	dc.b 2,184,2,31
	dc.b 3,13,2,31
	dc.b 3,60,2,31
	dc.b 4,19,2,31
	dc.b 3,161,4,62
	dc.b 4,19,2,31
	dc.b 3,161,2,31
	dc.b 3,60,2,31
	dc.b 3,13,2,31
	dc.b 2,184,2,31
	dc.b 2,108,2,31
	dc.b 3,161,4,62
	dc.b 2,184,2,31
	dc.b 2,108,2,31
	dc.b 2,9,2,31
	dc.b 1,208,2,31
	dc.b 2,108,2,31
	dc.b 2,184,2,31
	dc.b 2,108,4,62
	dc.b 2,184,2,31
	dc.b 2,108,2,31
	dc.b 2,9,2,31
	dc.b 1,208,2,31
	dc.b 2,108,2,31
	dc.b 2,184,2,31
	dc.b 2,108,4,62
	dc.b 2,184,2,31
	dc.b 2,108,2,31
	dc.b 2,184,2,31
	dc.b 3,13,2,31
	dc.b 3,60,2,31
	dc.b 4,19,2,31
	dc.b 3,161,4,62
	dc.b 4,19,2,31
	dc.b 3,161,2,31
	dc.b 3,60,2,31
	dc.b 3,13,2,31
	dc.b 2,184,2,31
	dc.b 2,108,2,31
	dc.b 3,161,4,62
	dc.b 2,184,2,31
	dc.b 2,108,2,31
	dc.b 1,4,2,31
	dc.b 0,232,2,31
	dc.b 1,54,2,31
	dc.b 1,92,2,31
	dc.b 1,54,4,62
	dc.b 1,92,2,31
	dc.b 1,54,2,31
	dc.b 1,4,2,31
	dc.b 0,232,2,31
	dc.b 1,54,2,31
	dc.b 1,92,2,31
	dc.b 1,54,4,62
	dc.b 1,92,2,31
	dc.b 1,54,2,31
	dc.b 1,92,2,31
	dc.b 1,134,2,31
	dc.b 1,158,2,31
	dc.b 2,9,2,31
	dc.b 1,208,4,62
	dc.b 2,9,2,31
	dc.b 1,208,2,31
	dc.b 1,158,2,31
	dc.b 1,134,2,31
	dc.b 1,92,2,31
	dc.b 1,54,2,31
	dc.b 1,208,4,62
	dc.b 1,92,2,31
	dc.b 1,54,2,31
	dc.b 1,4,2,31
	dc.b 0,232,2,31
	dc.b 1,54,2,31
	dc.b 1,92,2,31
	dc.b 1,54,4,62
	dc.b 1,92,2,31
	dc.b 1,54,2,31
	dc.b 1,4,2,31
	dc.b 0,232,2,31
	dc.b 1,54,2,31
	dc.b 1,92,2,31
	dc.b 1,54,4,62
	dc.b 0,232,2,31
	dc.b 0,207,2,31
	dc.b 0,195,2,31
	dc.b 0,207,2,31
	dc.b 0,232,2,31
	dc.b 1,4,2,31
	dc.b 1,54,4,62
	dc.b 1,92,2,31
	dc.b 1,54,2,31
	dc.b 1,92,2,31
	dc.b 1,134,2,31
	dc.b 1,158,2,31
	dc.b 2,9,2,31
	dc.b 1,208,8,125
	dc.b $ff
          


The melody was converted in several steps from the MIDI version from nonstop2k.com and adapted to one channel.

Topic: Scripts and Code, by Kjetil @ 08/05-2026, Article Link