104-music-scale.lst

ENTRY_POINT	EQU 8000
BEEPER		EQU 03B5
DURATION	EQU 00C8
		ORG 8000
8000:		label start
8000:011880	LD BC, 8018
8003:		label next_note
8003:0A		LD A, (BC)
8004:6F		LD L, A
8005:03		INC BC
8006:0A		LD A, (BC)
8007:67		LD H, A
8008:03		INC BC
8009:85		ADD A, L
800A:C8		RET Z
800B:11C800	LD DE, 00C8
800E:C5		PUSH BC
800F:CDB503	CALL 03B5
8012:CD2A80	CALL 802A
8015:C1		POP BC
8016:18EB	JR 8003
8018:		label notes
8018:6A06B305	DEFW of 9 words
801C:1105C604
8020:3E04C403
8024:57032603
8028:0000
802A:		label delay
802A:06C8	LD B, C8
802C:		label outer_loop
802C:0E00	LD C, 00
802E:		label inner_loop
802E:0D		DEC C
802F:20FD	JR NZ, 802E
8031:10F9	DJNZ 802C
8033:C9		RET
8034:		END 8000
Emiting TAP basic loader
Emiting TAP from 8000 to 8033