		SUBTITLE	"< Pause and Sound routines, >"
		newpage
		scope
; Update to LSDOS 6.3.1 2022-09-16 dpm

		DW	00		; Stack guard.
			
PAUSEz		EQU     STACK$+2	;Where pause will be
zPAUSE		EQU	$		;Pause routine

		PUSH	BC		;Save the count
		LD	A,(SFLAG$)	;If system (FAST)
		BIT	3,A		;then double it
		CALL	NZ,CDLOOP	;Call if fast
		POP	BC		;Restore the count
CDLOOP		DEC	BC		;Count down routine
		LD	A,B
		OR	C
		JR	NZ,CDLOOP
		RET