
		ORG	0392h
        	SUBTITLE	"< SOUND/ASM - Contains SOUND routine >"
		NEWPAGE
		SCOPE
			
;	zSOUND SVC-104 - Operates sound generator
;	B => sound function
;	Bits 0-2 <0-7> = note # (0 highest)
;	Bits 3-7 <0-31> = relative sound duration
;	All regs except A unchanged
;	Z-flag set on exit
;	Note that interrupts disabled during duration


zSOUND	PUSH	BC		;Save registers
		PUSH	DE
		PUSH	HL
			
		ring.BELL	U0DCB$,0
		POP		HL
		POP		DE
		POP		BC
		xor		a
		RET
newline		db		CR.asc,LF.asc,ETX.asc
			