ORG 	F000H
;       << ZAPPLE 2-K V 100R MASKED ROM MONITOR SYSTEM >>
; disassembly in Zilog menmonics
	JP	BEGIN
	JP	0F619H
	JP	0F636H
	JP	0F48AH
	JP	0F4C4H
	JP	0F4ABH
	JP	0F51AH
	IN	A,(76H)	;IOBYTE
	RET
	JP	0F11DH
	JP	0F5ACH
	JP	0F6BEH
MSG:	
	DB	0DH,0AH,0,0,0,'Zapple V1.0R'
BEGIN:	
	LD	A,'S'	;init UARTS
	OUT	(70H),A
	OUT	(72H),A
	OUT	(74H),A
	LD	A,'Q'
	OUT	(70H),A
	OUT	(72H),A
	DEC	A
	OUT	(74H),A
	XOR	A
	OUT	(77H),A
	OUT	(7AH),A
	DEC	A
	OUT	(76H),A
	LD	A,4
	OUT	(77H),A
	IN	A,(7AH)
	OUT	(76H),A
	LD	A,0F8H
	LD	I,A
	LD	SP,0F05BH
	JP	0F5BAH
	LD	E,A
	RET	P
AHEAD:	
	LD	SP,HL
	EX	DE,HL
	LD	BC,0023H
	LD	HL,0F7A8H
	LDIR
	EX	DE,HL
	LD	BC,0FFA1H
	ADD	HL,BC
	PUSH	HL
	LD	HL,0000H
	LD	B,0AH
STKIT:	PUSH	HL
	DJNZ	0F074H
HELLO:	
	LD	B,11H
	CALL	0F44FH
START:	LD	DE,START
	PUSH	DE
	CALL	0F512H
	LD	C,'>'
	CALL	0F48AH
STAR0:	
	CALL	0F736H
	AND	7FH
	JR	Z,STAR0
	SUB	'A'
	RET	M
	CP	1AH
	RET	NC
	ADD	A,A
	LD	HL,TBL
	ADD	A,L
	LD	L,A
	LD	A,(HL)
	INC	HL
	LD	H,(HL)
	LD	L,A
	LD	C,2
	JP	(HL)
TBL:	
	DW	ASSIGN
	DW	0F121H
	DW	0F14EH
	DW	0F16FH
	DW	0F186H
	DW	0F1A2H
	DW	0F1AFH
	DW	0F57EH
	DW	0F81BH
	DW	0F1FDH
	DW	0F81EH
	DW	0F681H
	DW	0F21BH
	DW	0F4F8H
	DW	0F821H
	DW	0F12FH
	DW	0F757H
	DW	0F226H
	DW	0F2DFH
	DW	0F308H
	DW	0F4E0H
	DW	0F782H
	DW	0F370H
	DW	0F3B0H
	DW	0F328H
	DW	0F47BH
ASSIGN:	
	CALL	0F736H
	LD	HL,0F794H
	LD	BC,0400H
	LD	DE,0005H
A0:	
	CP	(HL)
	JR	Z,0F0EBH
	ADD	HL,DE
	INC	C
	DJNZ	A0
	JR	ERR
A1:
	LD	E,C
A2:	
	CALL	0F736H
	CP	'='
	JR	NZ,A2
	CALL	0F736H
	LD	BC,0400H
A3:	
	INC	HL
	CP	(HL)
	JR	Z,A4
	INC	C
	DJNZ	A3
ERR:	
	JP	0F464H
A4:	
	LD	A,3
	INC	E
A5:	
	DEC	E
	JR	Z,A6
	SLA	C
	SLA	C
	RLA
	RLA
	JR	A5
A6:	
	CPL
	LD	D,A
A7:	
	CALL	0F60AH
	JR	NC,A7
	IN	A,(76H)
	AND	D
	OR	C
	LD	C,A
	
	END