CTC0	EQU	078H
CTC1	EQU	079H
CTC2	EQU	07AH
CTC3	EQU	07BH

CDATA	EQU	07CH
CSTAT	EQU	07DH

PDATA	EQU 07EH
PSTAT	EQU 07FH

		ORG 0E000H
		
		JP	LE00F
		JP	LE067
		JP	LE708
		JP	LE710
LE00C:
		JP	LE71B
LE00F:
		IN	A,(PSTAT)	; Reset Jumpstart Hardware
		LD	HL,0FF60H
		LD	(0FFE6H),HL
		XOR	A
		LD	(0FFC0H),A
		LD	A,04EH		; Initialize 8251 USART
		OUT	(CSTAT),A
		LD	A,037H		; Initialize 8251 USART
		OUT	(CSTAT),A
		LD	A,05H
		OUT	(078H),A
		LD	C,07DH
		LD	DE,0001H
LE02C:
		IN	A,(C)
		JP	P, LE02C
LE031:
		INC	DE
		IN	A,(C)
		JP	M,LE031
		LD	SP, 0E04FH
		INC	SP
		POP	HL
		SCF
		SBC	HL,DE
		JR	C,0F9H
		DEC	SP
		POP	AF
		OUT	(078H),A
LE047:
		LD	A,064H
		LD	B,0C8H
LE049:
		DJNZ	LE049
		DEC	A
		JR	NZ,LE047
		JR	LE065
		
LE050:		
		DB	0DH,00H,01H,01AH,00H,02H,034H,00H,04H,068H,00H,08H,0D0H,00H,010H,0A0H
		DB	01H,020H 0FFH,07FH,057H
	
LE065:
		IN	A,(07CH)
LE067:
		XOR	A
		LD	(0FFFAH),A
		LD	A,01H
LE06D:
		LD	(0FFC6H),A
		LD	SP, 0FFC0H
		CALL	LE72F
		LD	C,02EH
		CALL	LE00C
		CALL	LE7B7
		CP	02EH
		JR	Z,LE06D
		PUSH	BC
		CALL	LE739