SOUND  MINOR	DEFW	0D530H
 	DEFW	0D530H
 	DEFW	0D550H
 	DEFW	0B090H
 	DEFW	0D050H
 	DEFW	0B0DFH
 	DEFW	00
 YEAH	DEFW	50E0H
 	DEFW	50E0H
 	DEFW	70D0H
 	DEFW	0F0C0H
 	DEFW	70D0H
 	DEFW	0FFC0H
 	DEFW	00
 SOUND1	LD	C,(IY)
 	LD	A,C
 	OR	A
 	RET	Z
 KNOCK	LD	B,(IY+1)
 	LD	A,1
 	OUT	(0FFH),A
 BUMP	DJNZ	BUMP
 	LD	B,(IY+1)
 	LD	A,2
 	OUT	(0FFH),A
 RAP	DJNZ	RAP
 	DEC	C
 	JP	NZ,KNOCK
 	INC	IY
 	INC	IY
 	LD	BC,-1
 	LD	HL,30H
 TAP	ADD	HL,BC
 	JP	C,TAP
 	JP	SOUND1
 NOISE1	EXX
 	LD	IY,YEAH
 	CALL	SOUND1
 	EXX
 	RET
 NOISE2	EXX
 	LD	IY,OCILAT
 LOW1	LD	D,(IY)
 	LD	E,(IY+1)
 	LD	H,(IY+2)
 	LD	L,(IY+3)
 	LD	A,0FEH
 	LD	(FRENCH),A
 HIGH1	CALL	SOUND2
 	EX	DE,HL
 	CALL	SOUND2
 	EX	DE,HL
 	INC	L
 	DEC	E
 	LD	A,(FRENCH)
 	DEC	A
 	LD	(FRENCH),A
 	OR	A
 	JP	NZ,HIGH1
 	EXX
 	RET
 SOUND2	LD	C,D
 	LD	A,C
 	OR	A
 	RET	Z
 SLICE	LD	B,E
 	LD	A,1
 	OUT	(0FFH),A
 DICE	DJNZ	DICE
 	LD	B,E
 	LD	A,2
 	OUT	(0FFH),A
 THRICE	DJNZ	THRICE
 	DEC	C
 	JP	NZ,SLICE
 	RET
 OCILAT	DEFW	0FF05H
 	DEFW	0105H
 STEADY	DEFW	20D0H
 FRENCH	DEFS	2
 FRIED	DEFS	2
 NOISE3	EXX
 	LD	IY,OCILAT
 	LD	D,(IY)
 	LD	E,(IY+1)
 	LD	A,40H
 	LD	(FRENCH),A
 HIGH3	CALL	SOUND2
 	INC	E
 	LD	A,(FRENCH)
 	DEC	A
 	LD	(FRENCH),A
 	OR	A
 	JR	NZ,HIGH3
 	EXX
 	RET
 NOISE4	EXX
 	LD	IY,OCILAT
 	INC	IY
 	INC	IY
 	LD	D,(IY)
 	LD	E,(IY+1)
 	LD	A,30H
 	LD	(FRENCH),A
 HIGH4	CALL	SOUND2
 	INC	E
 	LD	A,(FRENCH)
 	DEC	A
 	LD	(FRENCH),A
 	OR	A
 	JR	NZ,HIGH4
 	EXX
 	RET
 TRANS	DEFW	0A002H
 	DEFW	0A008H
 	DEFW	00
 NOISE5	EXX
 	LD	IY,TRANS
 	LD	D,(IY)
 	LD	E,(IY+1)
 	LD	B,60H
 SURGE	PUSH	BC
 	CALL	SOUND2
 	DEC	E
 	POP	BC
 	DJNZ	SURGE
 	LD	B,60H
 	LD	D,(IY+2)
 	LD	E,(IY+3)
 SOFTIE	PUSH	BC
 	CALL	SOUND2
 	DEC	E
 	POP	BC
 	DJNZ	SOFTIE
 	LD	B,0A0H
 	LD	E,(IY+3)
 SORTIE	PUSH	BC
 	CALL	SOUND2
 	INC	E
 	POP	BC
 	DJNZ	SORTIE
 	EXX
 	RET
 NOISE6	EXX
 	LD	D,15H
 	LD	E,0F0H
 	CALL	SOUND2
 	LD	D,15H
 	LD	E,40H
 	CALL	SOUND2
 	EXX
 	RET
 NOISEA	EXX
 	LD	IY,THUMP1
 	CALL	SOUND1
 	EXX
 	RET
 NOISEB	EXX
 	LD	IY,THUMP2
 	CALL	SOUND1
 	EXX
 	RET
 NOISEC	EXX
 	LD	IY,THUMP3
 	CALL	SOUND1
 	EXX
 	RET
 NOISED	EXX
 	LD	IY,THUMP4
 	CALL	SOUND1
 	EXX
 	RET
 NOISEE	EXX
 	LD	IY,THUMP5
 	CALL	SOUND1
 	EXX
 	RET
 NOISEF	EXX
 	LD	IY,THUMP6
 	CALL	SOUND1
 	EXX
 	RET
 THUMP1	DEFW	20D0H
 	DEFW	40A0H
 	DEFW	01090H
 	DEFW	00
 THUMP2	DEFW	06560H
 	DEFW	45E0H
 	DEFW	1595H
 	DEFW	00
 THUMP3	DEFW	6245H
 	DEFW	03055H
 	DEFW	25D0H
 	DEFW	00
 THUMP4	DEFW	15E0H
 	DEFW	1050H
 	DEFW	12D0H
 	DEFW	00
 THUMP5	DEFW	09020H
 	DEFW	0A020H
 	DEFW	08020H
 	DEFW	2080H
 	DEFW	00
 THUMP6	DEFW	20A0H
 	DEFW	1575H
 	DEFW	20C0H
 	DEFW	10D0H
 	DEFW	00
 NOISEG	CALL	NOISEA
 	CALL	NOISEB
 	CALL	NOISEC
 	CALL	NOISED
 	CALL	NOISEE
 	CALL	NOISEF
 	RET
 NOISEH	CALL	NOISEE
 	CALL	NOISEF
 	CALL	NOISEC
 	RET
 NOISEI	CALL	NOISEA
 	CALL	NOISEC
 	CALL	NOISED
 	RET
 NOISE7	EXX
 	LD	IY,JOKER
 	CALL	SOUND1
 	EXX
 	RET
 JOKER	DEFW	0FF20H
 	DEFW	00
 NOISEJ	EXX
 	LD	IY,OPUS
 	CALL	SOUND1
 	EXX
 	RET
 OPUS	DEFW	90A0H
 	DEFW	0A23FH
 	DEFW	0AC5CH
 	DEFW	9060H
 	DEFW	90A0H
 	DEFW	9040H
 	DEFW	8070H
 	DEFW	90F0H
 	DEFW	0A25DH
 	DEFW	0AD5BH
 	DEFW	9060H
 	DEFW	6BE0H
 	DEFW	5F48H
 	DEFW	54FFH
 	DEFW	00
 NOISEK	EXX
 	LD	IY,MINOR
 	CALL	SOUND1
 	EXX
 	RET
 	END	ENTRY
