;DUMMY.MAC serves as a dummy for the STATUS subroutine
	.Z80
	ENTRY STATUS
STATUS:
	LD (SAVEHL),HL	;save HL
	POP HL		;get return address
	PUSH AF		;save AF
	LD A,'$'	;advance HL to '$'
LOOP:	CP (HL)
	INC HL
	JP NZ,LOOP
	POP AF		;restore AF
	PUSH HL		;store return address
	LD HL,(SAVEHL)	;restore HL
	RET

SAVEHL: DW 0

	END
