;Infocom/asm: Assemble the INFOCOM executor
;
	COM	'<Infocom Executor, 11-May-86>'
	ORG	5A00H
;
HIMEM	EQU	4049H
EXIT	EQU	402DH
;
	COM	'<-----InfA----->'
*GET	INFA
	COM	'<-----Infb----->'
*GET	INFB
	COM	'<-----Infc----->'
*GET	INFC
	COM	'<-----Infd----->'
*GET	INFD
;
	END	H5200
                                                                                                                                                                                                                                         ;INFA/asm: Infocom executor source file A
H5200	LD	SP,H5D5D
	JP	H5FF3
H5206	JP	H56FC
H5209	LD	HL,(HIMEM)
	LD	A,L
	CP	0FFH
	JP	Z,H5215
	LD	L,0FFH
	DEC	H
H5215	LD	A,(H70F6)	;HL=xxFF.
	XOR	H
	AND	1
	RET	NZ
	DEC	H
	RET
H521E	CALL	H5270
	LD	A,(4217H)
	LD	C,A
	CALL	H5340
	XOR	A
	LD	(H5BCA),A
	LD	HL,H5BCC
	LD	A,(HL)
	OR	A
	JP	NZ,H5206
	INC	(HL)
	LD	A,1
	LD	(4214H),A
	LD	A,0EH
	LD	(H5BCB),A
	XOR	A
	LD	(H5B89),A	;cursor X
	LD	HL,H5B8A
	LD	(H5BC8),HL
	RET
H525B	LD	(H5BCA),A
	LD	HL,FCB_DAT
	CALL	H539A
	LD	DE,FCB_DAT
	LD	HL,H5A89
	LD	B,0
	CALL	4424H
	RET
H5270	LD	DE,FCB_DAT
	LD	C,0
	LD	B,8
	LD	HL,4318H
H527A	LD	A,(HL)
	CP	0DH
	JP	Z,H5290
	CP	' '
	JP	Z,H5290
	LD	(DE),A
	INC	HL
	INC	DE
	INC	C
	DEC	B
	JP	Z,H5290
	JP	H527A
H5290	LD	DE,H52EE
	LD	HL,H52DC
	LD	B,9
	CALL	H52C9
	LD	(H52ED),A
	LD	DE,H52F7
	LD	HL,H531C
	LD	B,9
	CALL	H52C9
	LD	(H5300),A
	LD	DE,H5301
	LD	HL,H530B
	LD	B,9
	CALL	H52C9
	LD	(H530A),A
	LD	DE,H533B
	LD	HL,H532D
	LD	B,5
	CALL	H52C9
	LD	(H533A),A
	RET
H52C9	PUSH	DE
	PUSH	BC
	LD	DE,FCB_DAT
	LD	B,C
	CALL	H539A
	POP	BC
	POP	DE
	PUSH	BC
	CALL	H539A
	POP	BC
	LD	A,B
	ADD	A,C
	RET
H52DC
	DEFS	17
H52ED	DEFB	0	;Length of name @ H52DC
H52EE	DEFM	'/DAT.SMC'
	DEFB	0DH
H52F7	DEFM	'/PUR.SMC'
	DEFB	0DH
H5300	DEFB	0
H5301	DEFM	'/PRE.SMC'
	DEFB	0DH
H530A	DEFB	0
H530B	DC	17,0
H531C	DC	17,0
H532D	DEFW	50DAH
	DEFW	0AC7AH
	DEFW	7B57H
	DEFW	5FADH
	DEFW	0CDC9H
	DEFW	50DAH
	DEFB	7AH
H533A	DEFB	0
H533B	DEFM	'/SAV',0DH
H5340	CALL	H6B0A
	DEC	C
	JP	NZ,H5340
	RET
H5348	LD	(H5A4B),HL
	CALL	H59CE
	LD	L,A
	LD	A,(H5BCA)
	CP	3
	LD	A,L
	JP	Z,H5369
	LD	HL,H70D5
	CP	(HL)
	JP	C,H5366
	SUB	(HL)
	CALL	H59F1
	JP	H5369
H5366	CALL	H5A15
H5369	LD	L,A
	LD	H,0
	ADD	HL,HL
	PUSH	HL
	CALL	H5376
	POP	HL
	INC	HL
	JP	H5376
H5376	LD	DE,FCB_DAT
	LD	(H5A57),HL
	CALL	4436H
	CALL	NZ,H5391
	LD	DE,H5A89
	LD	HL,(H5A4B)
	LD	B,0
	CALL	H539A
	LD	(H5A4B),HL
	RET
H5391	CP	1CH
	RET	Z
	CP	1DH
	RET	Z
	JP	H5206
H539A	LD	A,(DE)
	LD	(HL),A
	INC	HL
	INC	DE
	DEC	B
	JP	NZ,H539A
	RET
H53A3	LD	A,0FH
	LD	(H5BCB),A
	CALL	H54DF
	LD	A,1
	LD	(H70D3),A
	LD	HL,(H70D7)
	LD	D,(HL)
	LD	E,0
	INC	HL
H53B7	CALL	H5460
	CP	8
	JP	Z,H53EF
	CP	7FH
	JP	Z,H53EF
	CP	0DH
	JP	Z,H53FE
	CP	12H
	JP	Z,H543C
	CP	' '
	JP	C,H53B7
	LD	C,A
	LD	A,D
	CP	E
	JP	Z,H5458
	CALL	H54A0
	LD	A,C
	CP	'A'
	JP	C,H53E9
	CP	'['
	JP	NC,H53E9
	ADD	A,' '
H53E9	LD	(HL),A
	INC	HL
	INC	E
	JP	H53B7
H53EF	LD	A,E
	OR	A
	JP	Z,H5458
	DEC	E
	DEC	HL
	LD	C,8
	CALL	H54A0
	JP	H53B7
H53FE	PUSH	HL
	PUSH	DE
	XOR	A
	LD	(H70D3),A
	LD	HL,(H70F5)
	LD	DE,0011H
	ADD	HL,DE
	LD	A,(HL)
	AND	1
	JP	Z,H542D
	POP	DE
	PUSH	DE
	LD	A,E
	OR	A
	JP	Z,H542D
	LD	HL,(H70D7)
	INC	HL
H541C	LD	A,(HL)
	CP	'a'
	JP	C,H5424
	SUB	' '
H5424	LD	C,A
	INC	HL
	CALL	H556B
	DEC	E
	JP	NZ,H541C
H542D	POP	DE
	POP	HL
	LD	A,D
	CP	E
	JP	Z,H5437
	INC	E
	LD	(HL),0DH
H5437	CALL	H546F
	LD	A,E
	RET
H543C	PUSH	DE
	PUSH	HL
	LD	HL,(H70D7)
	INC	HL
	CALL	H546F
H5445	LD	A,E
	OR	A
	JP	Z,H5453
	LD	C,(HL)
	CALL	H54A0
	DEC	E
	INC	HL
	JP	H5445
H5453	POP	HL
	POP	DE
	JP	H53B7
H5458	LD	C,7
	CALL	H54A0
	JP	H53B7
H5460	PUSH	DE
	CALL	0049H
	POP	DE
	AND	7FH
	RET
H5468	LD	A,C
	CALL	0033H
	JP	H54DB
H546F	PUSH	BC
	PUSH	DE
	PUSH	HL
	LD	C,0DH
	LD	A,C
	CALL	0033H
	CALL	H5486
	LD	HL,H5BCB
	DEC	(HL)
	CALL	Z,H56AA
	POP	HL
	POP	DE
	POP	BC
	RET
H5486	PUSH	DE
	PUSH	HL
	LD	HL,(H70F5)
	LD	DE,0011H
	ADD	HL,DE
	LD	A,(HL)
	AND	1
	CALL	NZ,H556B
	POP	HL
	POP	DE
	RET
H5498	CALL	H5554
	JP	H54DB
H549E	LD	C,0DH
H54A0	PUSH	BC
	PUSH	DE
	PUSH	HL
	LD	A,C
	CP	8
	JP	Z,H54BD
	CP	1BH
	JP	Z,H5565
	CP	0CH
	JP	Z,H5565
	CP	0DH
	JP	Z,H5498
	CP	' '
	JP	C,H54DB
H54BD	LD	A,(H70D3)
	OR	A
	JP	NZ,H5468
	LD	A,(H5B89)
	CP	'>'		;width.. '>' or 3e?
	CALL	NC,H5554
	LD	A,(H5B89)	;inc cursor X
	INC	A
	LD	(H5B89),A
	LD	HL,(H5BC8)
	LD	(HL),C
	INC	HL
	LD	(H5BC8),HL
H54DB	POP	HL
	POP	DE
	POP	BC
	RET
H54DF	PUSH	BC
	LD	A,(H5B89)	;cursor X
	OR	A
	JP	Z,H5552
	JP	H5509
H54EA	PUSH	BC
	LD	A,(H5B89)	;cursor X
	OR	A
	JP	Z,H5552
	DEC	A
	LD	B,A
	LD	A,C
	CP	0DH
	JP	Z,H5509
	LD	HL,(H5BC8)
	DEC	HL
H54FE	LD	A,(HL)
	CP	' '
	JP	Z,H5510
	DEC	HL
	DEC	B
	JP	P,H54FE
H5509	LD	HL,(H5BC8)
	LD	A,(H5B89)	;Cursor X
	LD	B,A
H5510	PUSH	BC
	PUSH	HL
	LD	HL,H5B8A
	LD	A,B
	OR	A
	JP	Z,H5529
H551A	PUSH	BC
	LD	C,(HL)
	LD	A,C
	CALL	0033H
	CALL	H5486
	INC	HL
	POP	BC
	DEC	B
	JP	NZ,H551A
H5529	POP	HL
	INC	HL
	POP	BC
	LD	A,(H5B89)
	SUB	B
	DEC	A
	JP	P,H5535
	XOR	A
H5535	LD	(H5B89),A
	JP	Z,H5546
	LD	DE,H5B8A
H553E	LD	A,(HL)
	LD	(DE),A
	INC	HL
	INC	DE
	DEC	B
	JP	NZ,H553E
H5546	LD	HL,H5B8A
	LD	A,(H5B89)	;Cursor X
	CALL	H6E24
	LD	(H5BC8),HL
H5552	POP	BC
	RET
H5554	CALL	H54EA
	JP	H546F
H555A	LD	HL,(H70F5)
	LD	DE,0001H
	ADD	HL,DE
	LD	A,(HL)
	AND	2
	RET
H5565	;	CALL	01C9H
	JP	H54DB
H556B	LD	A,(H70D3)
	OR	A
;	RET	NZ
	RET		;was NZ.
	LD	A,C
	PUSH	DE
	CALL	003BH
	POP	DE
	RET
H5577	LD	A,0FH
	CALL	0033H
	LD	A,1
	LD	(H70D3),A
	LD	HL,(4020H)
	PUSH	HL
	CALL	H555A
	JP	NZ,H55DE
;
	LD	A,10H		;Print room name
	CALL	H621F		;(Get room number)
	LD	A,L
	CALL	H653D		;Print room #A.
;
	LD	A,'.'
	CALL	33H
;
	LD	B,8
	LD	DE,H5662A	;Score message
	CALL	H55B5
;
	LD	A,11H		;Print score.
	CALL	H621F
	CALL	H6AB3		;what??
;
	LD	B,8
	LD	DE,H5662B	;Moves message
	CALL	H55B5
;
	LD	A,12H		;print # moves
	CALL	H621F		;?2
	CALL	H6AB3		;
H55A7	POP	HL
	LD	A,0EH
	CALL	0033H
	LD	A,0DH
	CALL	33H
	XOR	A
	LD	(H70D3),A
	RET
;
H55B5	LD	A,(DE)
H55BD	PUSH	DE
	CALL	33H
	POP	DE
H55C0
	INC	DE
	DEC	B
	JP	NZ,H55B5
	LD	HL,3C07H
	RET
;
H55DE		;TIME code...
	LD	B,7
	LD	DE,H5622		;Time...
	CALL	H55B5
;added
	LD	A,11H
	CALL	H621F		;get 'score'->time
	LD	A,L
	PUSH	AF
	CP	0DH		;if 13:00 to 23:59 sub 12
	JP	C,H55F3
	SUB	0CH
	LD	L,A
H55F3	CALL	H6AB3		;print HL
	LD	C,':'
	CALL	H54A0
;
	LD	A,12H
	CALL	H621F
;
	CALL	H56E2		;?
	LD	C,' '
	CALL	H54A0
	LD	C,'a'
	POP	AF
	CP	18H		;if 24
	JP	Z,H5617
	CP	0CH		;if 12
	JP	C,H5617
	LD	C,'p'
H5617	CALL	H54A0		;A or P
	LD	C,'m'
	CALL	H54A0		;M or M
	JP	H55A7
;
H5622
	DEFM	' Time: '
H5662A	DEFM	' Score: '
H5662B	DEFM	' Moves: '
H56A2	DEFM	'--More--',0DH
H56AA	LD	(HL),0EH
	LD	A,0FH		;Turn off cursor
	CALL	0033H
	LD	HL,H56A2	;--More-- message
	LD	B,9
H56C5	LD	A,(HL)
	CALL	33H
	INC	HL
	DEC	B
	JP	NZ,H56C5
	CALL	H5460		;Wait for key
	LD	A,0EH		;Turn cursor on again
	CALL	0033H
	RET
H56E2	LD	DE,000AH
	CALL	H6C41
	LD	C,'0'
	CALL	NC,H54A0
	JP	H6AB3
H56F0	LD	DE,FCB_DAT
	CALL	4428H
	CALL	EXIT
	JP	H56F0
H56FC	XOR	A
	LD	(H5BCC),A
	LD	DE,FCB_DAT
	CALL	4428H
	JP	H5200
H5709	XOR	A
	LD	(H5BCA),A
	LD	DE,FCB_DAT
	CALL	4428H
	CALL	H57BA
	LD	DE,FCB_DAT
	LD	HL,H5A89
	LD	B,0
	CALL	4420H
	JP	NZ,H62A6
	LD	HL,(H70F5)
	LD	BC,0000H
	ADD	HL,BC
	LD	A,(HL)
	LD	(H5A89),A
	LD	HL,(H5D5D)
	LD	(H5A8A),HL
	LD	HL,H5A8C
	LD	DE,H70A3
	LD	BC,0029H
	LD	B,C
	CALL	H539A
	LD	DE,FCB_DAT
	CALL	4439H
	JP	NZ,H57A1
	LD	C,2
	LD	DE,H5D5F
H5750	LD	B,0
	LD	HL,H5A89
	CALL	H539A
	PUSH	BC
	PUSH	DE
	LD	DE,FCB_DAT
	CALL	4439H
	JP	NZ,H57A1
	POP	DE
	POP	BC
	DEC	C
	JP	NZ,H5750
	LD	HL,(H70F5)
	LD	DE,000EH
	ADD	HL,DE
	LD	C,(HL)
	LD	HL,(H70F5)
	EX	DE,HL
H5775	PUSH	BC
	LD	HL,H5A89
	LD	B,0
	CALL	H539A
	PUSH	DE
	LD	DE,FCB_DAT
	CALL	4439H
	POP	DE
	POP	BC
	JP	NZ,H57A1
	DEC	C
	JP	P,H5775
H578E	LD	DE,FCB_DAT
	CALL	4428H
	CALL	H5812
	CALL	H549E
	XOR	A
	LD	(H70EA),A
	JP	H629C
H57A1	LD	DE,FCB_DAT
	CALL	442CH
	JP	H57B0
H57AA	LD	DE,FCB_DAT
	CALL	4428H
H57B0	CALL	H5812
	XOR	A
	LD	(H70EA),A
	JP	H62A6
H57BA	LD	HL,H58A9
	CALL	H5906
	LD	HL,H532D
	LD	A,(H533A)
	LD	B,A
	DEC	B
H57C8	PUSH	BC
	LD	C,(HL)
	LD	A,C
	CALL	0033H
	CALL	H5486
	INC	HL
	POP	BC
	DEC	B
	JP	NZ,H57C8
	LD	HL,H58E5
	CALL	H5906
	LD	HL,FCB_DAT
	LD	B,17H
	CALL	0040H
	DEC	B
	JP	P,H57F6
	LD	DE,H532D
	LD	HL,FCB_DAT
	LD	A,(H533A)
	LD	B,A
	CALL	H539A
H57F6	LD	B,17H
	LD	HL,H5A4C
H57FB	INC	HL
	DEC	B
	RET	M
	LD	A,(HL)
	CP	0DH
	RET	Z
	CP	'a'
	JP	C,H57FB
	CP	7BH
	JP	NC,H57FB
	SUB	' '
	LD	(HL),A
	JP	H57FB
H5812	LD	HL,H5823
H5815	CALL	H5906
	CALL	H5460
	LD	HL,H5821
	JP	H5906
H5821	DEFW	000DH
H5823	DEFM	'Load Game Disk if Swapped,'
	DEFM	' type <ENTER> to continue '
	DEFW	003EH
H5859	DEFM	'Load Disk 2, type <ENTER> '
	DEFM	'to continue >'
	DEFB	0
H5881	DEFM	'Load Disk 1, type <ENTER> '
	DEFM	'to continue >'
	DEFB	0
H58A9	DEFM	'Load SAVE disk, then enter'
	DEFM	' file name'
	DEFB	0DH
	DEFM	'(default file name is '
	DEFB	0
H58E5	DEFW	2E29H
	DEFB	0DH
	DEFM	'Type <ENTER> to continue. '
	DEFM	' > '
	DEFB	0
H5906	LD	C,(HL)
	LD	A,(HL)
	OR	A
	RET	Z
	CALL	0033H
	CALL	H5486
	INC	HL
	JP	H5906
H5914	XOR	A
	LD	(H5BCA),A
	LD	DE,FCB_DAT
	CALL	4428H
	CALL	H57BA
	LD	DE,FCB_DAT
	LD	HL,H5A89
	LD	B,0
	CALL	4424H
	JP	NZ,H57AA
	LD	DE,FCB_DAT
	CALL	4436H
	JP	NZ,H57AA
	LD	HL,(H70F5)
	LD	DE,0000H
	ADD	HL,DE
	LD	A,(H5A89)
	CP	(HL)
	JP	NZ,H57AA
	LD	HL,(H5A8A)
	LD	(H5D5D),HL
	LD	DE,H5A8C
	LD	HL,H70A3
	LD	BC,0029H
	LD	B,C
	CALL	H539A
	LD	C,1
	LD	HL,H5D5F
H595E	PUSH	BC
	PUSH	HL
	LD	DE,FCB_DAT
	CALL	4436H
	POP	HL
	POP	BC
	JP	NZ,H57AA
	LD	DE,H5A89
	LD	B,0
	CALL	H539A
	DEC	C
	JP	NZ,H595E
	PUSH	HL
	LD	DE,FCB_DAT
	CALL	4436H
	POP	HL
	JP	NZ,H57AA
	LD	DE,H5A89
	LD	B,0C0H
	CALL	H539A
	LD	HL,(H70F5)
	LD	DE,0011H
	ADD	HL,DE
	LD	(H5A48),HL
	LD	A,(HL)
	AND	1
	LD	(H5A4A),A
	LD	HL,(H70F5)
	LD	DE,000EH
	ADD	HL,DE
	LD	C,(HL)
	LD	HL,(H70F5)
H59A5	PUSH	BC
	PUSH	HL
	LD	DE,FCB_DAT
	CALL	4436H
	POP	HL
	POP	BC
	JP	NZ,H56FC
	LD	DE,H5A89
	LD	B,0
	CALL	H539A
	DEC	C
	JP	P,H59A5
	LD	HL,(H5A48)
	LD	A,(HL)
	AND	0FEH
	PUSH	HL
	LD	HL,H5A4A
	OR	(HL)
	POP	HL
	LD	(HL),A
	JP	H578E
H59CE	PUSH	AF
	LD	A,(H5BCA)
	CP	3
	JP	Z,H5A39
	OR	A
	JP	NZ,H5A39
	LD	DE,H52DC
	LD	A,(H52ED)
	LD	B,A
	LD	A,3
	CALL	H525B
	JP	Z,H5A39
	XOR	A
	LD	(H5BCA),A
	JP	H5A39
H59F1	PUSH	AF
	LD	A,(H5BCA)
	CP	2
	JP	Z,H5A39
	CALL	H5A3B
H59FD	LD	DE,H531C
	LD	A,(H5300)
	LD	B,A
	LD	A,2
	CALL	H525B
	JP	Z,H5A39
	LD	HL,H5859
	CALL	H5815
	JP	H59FD
H5A15	PUSH	AF
	LD	A,(H5BCA)
	CP	1
	JP	Z,H5A39
	CALL	H5A3B
H5A21	LD	DE,H530B
	LD	A,(H530A)
	LD	B,A
	LD	A,1
	CALL	H525B
	JP	Z,H5A39
	LD	HL,H5881
	CALL	H5815
	JP	H5A21
H5A39	POP	AF
	RET
H5A3B	OR	A
	RET	Z
	LD	DE,FCB_DAT
	CALL	4428H
	XOR	A
	LD	(H5BCA),A
	RET
H5A48	DEFW	0
H5A4A	DEFB	0
H5A4B	DEFB	0
H5A4C	DEFB	0
FCB_DAT	DEFM	'ZORK/DAT',0DH
	DEFB	0C2H
H5A57	DEFW	3399H
	DEFW	0C63AH
	DEFW	0B766H
	DEFW	7BC8H
	DEFW	0CAB7H
	DEFW	572CH
	DEFW	0AFEH
	DEFW	99DCH
	DEFW	3A33H
	DEFW	67D2H
	DEFW	20FEH
	DEFW	2CC2H
	DEFW	7B57H
	DEFW	0932H
	DEFW	0CD67H
	DEFW	469CH
	DEFW	3FCDH
	DEFW	0C333H
	DEFW	47BEH
	DEFW	2DCDH
	DEFW	0C23AH
	DEFW	3399H
	DEFW	3AF5H
	DEFW	67BEH
	DEFW	08FEH
;Added instead...
H5A89	DEFB	0		;256 byte buffer
H5A8A	DEFW	0
H5A8C	DEFW	0
	DC	256-5,0
H5B89	DEFB	0		;Cursor position X
    ;INFB/asm: Infocom source file B
H5B8A	DEFW	0FEF1H
	DEFW	0CA2CH
	DEFW	5827H
	DEFW	0CDC9H
	DEFW	3399H
	DEFW	43C3H
	DEFW	0F658H
	DEFW	7710H
	DEFW	0B1CDH
	DEFW	0C333H
	DEFW	5842H
	DEFW	0E67EH
	DEFW	0C838H
	DEFW	0E67EH
	DEFW	7707H
	DEFW	0AFE5H
	DEFM	'#w#w#w'
	DEFW	0C9E1H
	DEFW	1A22H
	DEFW	0CD67H
	DEFW	5890H
	DEFW	0D23AH
	DEFW	0FE67H
	DEFW	0C855H
	DEFW	0E678H
	DEFW	0C280H
	DEFW	33ABH
	DEFW	0F678H
	DEFW	3220H
H5BC8	DEFW	5B8AH
H5BCA	DEFB	0
H5BCB	DEFB	0EH
H5BCC	DEFW	2200H
	DEFW	6716H
	DEFW	0A9CDH
	DEFW	0EB3CH
	DEFW	0C378H
	DEFW	4882H
	DEFB	0CDH
	DEFM	'sM:'
	DEFW	6884H
	DEFW	0C8B7H
	DEFW	0C9C3H
	DEFW	2233H
	DEFW	671AH
	DEFW	90CDH
	DEFW	7858H
	DEFW	80E6H
	DEFW	0ABC2H
	DEFW	2A33H
	DEFW	671AH
	DEFB	0CDH
	DEFM	'XX#'
	DEFW	0E67EH
	DEFW	0C294H
	DEFW	33B1H
	DEFW	0E67EH
	DEFW	0B040H
	DEFB	0F6H
	DEFM	' w#s#r#'
	DEFW	0EBD5H
	DEFW	0B52AH
	DEFW	0EB67H
	DEFM	's#r'
	DEFW	0C3E1H
	DEFW	4882H
	DEFW	0CDF5H
	DEFB	0B7H
	DEFM	'r:%i'
	DEFW	0C4B7H
	DEFW	5A7CH
	DEFW	0CD3AH
	DEFW	0B766H
	DEFW	0ADC4H
	DEFW	0F15AH
	DEFW	0C621H
	DEFW	3466H
	DEFW	3D7EH
	DEFB	0C2H
	DEFM	'tY!'
	DEFW	6894H
	DEFW	0B77EH
	DEFW	0FDC2H
	DEFW	2158H
	DEFW	67F2H
	DEFW	0B77EH
	DEFW	0FDC2H
	DEFM	'X!/j#'
	DEFW	0601H
	DEFW	1100H
	DEFW	6894H
	DEFW	237EH
	DEFW	20FEH
	DEFW	1FCAH
	DEFW	0FE59H
	DEFW	0CA09H
	DEFW	591FH
	DEFW	0CAB7H
	DEFW	591FH
	DEFW	0DFEH
	DEFW	1FCAH
	DEFW	1259H
	DEFW	0413H
	DEFW	0C20DH
	DEFW	5903H
	DEFW	8E21H
	DEFM	'hp"'
	DEFW	6716H
	DEFW	020EH
	DEFW	0F5CDH
	DEFW	0CD48H
	DEFM	'AS!'
	DEFB	0D0H
	DEFM	't"Ei'
	DEFW	9FCDH
	DEFW	0DA3BH
	DEFM	'[Y"'
	DEFW	6716H
	DEFW	0E67EH
	DEFW	777FH
	DEFW	7E23H
	DEFW	40E6H
	DEFW	70C2H
	DEFW	7E5AH
	DEFW	04E6H
	DEFB	0CAH
	DEFM	'4Y#'
	DEFW	235EH
	DEFW	0156H
	DEFW	0005H
	DEFW	0F5CDH
	DEFW	0C348H
	DEFM	'4Y*'
	DEFW	67AFH
	DEFW	01EBH
	DEFW	000AH
	DEFW	0F5CDH
	DEFW	0148H
	DEFW	010DH
	DEFW	0AD2AH
	DEFW	0EB67H
	DEFW	0B27BH
	DEFW	0F5C4H
	DEFW	0C348H
	DEFM	'k0*'
	DEFW	671DH
	DEFW	0D4F5H
	DEFW	4D73H
	DEFW	0C5D5H
	DEFW	9CCDH
	DEFW	2146H
	DEFW	0FFFFH
	DEFW	0B22H
	DEFW	2267H
	DEFW	670DH
	DEFW	0BECDH
	DEFW	2147H
	DEFW	5AF9H
	DEFB	0CDH
	DEFM	'#H!'
	DEFW	68A9H
	DEFW	083EH
	DEFW	80CDH
	DEFW	0CD65H
	DEFW	47A8H
	DEFW	0EE21H
	DEFW	0CD5AH
	DEFM	'#H!'
	DEFW	68E5H
	DEFW	043EH
	DEFW	80CDH
	DEFW	0CD65H
	DEFW	47A8H
	DEFW	0B9CDH
	DEFW	2A5AH
	DEFW	66C7H
	DEFW	0B57CH
	DEFW	0CFCAH
	DEFW	0E559H
	DEFW	2DCDH
	DEFW	0E148H
	DEFW	0F23AH
	DEFM	'i<2'
	DEFW	6892H
	DEFW	2DC4H
	DEFW	0AF48H
	DEFW	9232H
	DEFW	0C368H
	DEFB	0D5H
	DEFM	'Y!PZ'
	DEFW	0D5CDH
	DEFM	'Z!TZ'
	DEFW	0D5CDH
	DEFW	2A5AH
	DEFW	66C9H
	DEFW	0B57CH
	DEFW	0ACAH
	DEFM	'Z>,'
	DEFW	0C3CDH
	DEFW	3A72H
	DEFB	0F2H
	DEFM	'i<>,'
	DEFW	91C4H
	DEFW	0E571H
	DEFW	2DCDH
	DEFW	0E148H
	DEFW	0F23AH
	DEFM	'i<2'
	DEFW	6892H
	DEFW	2DC4H
	DEFW	0AF48H
	DEFW	9232H
	DEFM	'h!dZ'
	DEFW	0D5CDH
	DEFW	0CD5AH
	DEFW	5AB9H
	DEFW	0D1C1H
	DEFW	0D2F1H
	DEFW	5A18H
	DEFW	0006H
H5D5D	DEFW	5F1FH
H5D5F	DEFW	0CD00H
	DEFW	48CFH
	DEFW	0E0EH
	DEFW	0F5CDH
	DEFW	2A48H
	DEFW	6885H
	DEFW	0FE7CH
	DEFW	0CAF8H
	DEFW	5A30H
	DEFW	0CDAFH
	DEFW	4976H
	DEFW	20C3H
	DEFW	015AH
	DEFW	000FH
	DEFW	0F5CDH
	DEFW	0648H
	DEFW	0CD00H
	DEFM	'[I:'
	DEFW	69B0H
	DEFW	0CAB7H
	DEFM	'GZ>'
	DEFW	0CD80H
	DEFW	72C3H
	DEFW	93CDH
	DEFW	0CD72H
	DEFW	72ACH
	DEFW	07C3H
	DEFM	'0No '
	DEFB	0
	DEFM	' Fatal error(s)'
	DEFB	0
	DEFM	' Warning(s)'
	DEFW	0E00H
	DEFW	3A00H
	DEFW	67A8H
	DEFW	0CD47H
	DEFW	48F5H
	DEFW	34C3H
	DEFW	0CD59H
	DEFW	5AD2H
	DEFW	8B21H
	DEFW	0CD5AH
	DEFW	5AD5H
	DEFW	77CDH
	DEFW	0C348H
	DEFB	0B9H
	DEFM	'ZREPT/IRP/IRPC/MACRO'
	DEFB	0
	DEFM	'Unterminated '
	DEFW	0CD00H
	DEFW	5AD2H
	DEFW	0E221H
	DEFW	0CD5AH
	DEFW	5AD5H
	DEFB	0CDH
	DEFM	'wH>'
	DEFW	0CD0DH
	DEFW	47A8H
	DEFW	0A3EH
	DEFW	0A8CDH
	DEFW	3A47H
	DEFW	69F2H
	DEFW	0C83CH
	DEFW	0D3EH
	DEFW	91CDH
	DEFW	3E71H
	DEFW	0C30AH
	DEFW	7191H
	DEFW	9F21H
	DEFW	0E55AH
	DEFW	23CDH
	DEFW	0E148H
	DEFW	0F23AH
	DEFW	3C69H
	DEFW	0C3C8H
	DEFM	'gnConditional'
	DEFB	0
	DEFM	'Symbols:'
	DEFW	0A0DH
	DEFB	0
	DEFM	'Macros:'
	DEFW	0A0DH
	DEFB	0
	DEFM	':%i'
	DEFW	21B7H
	DEFW	0000H
	DEFM	'"Mi"Oi*#i'
	DEFB	0C2H
	DEFM	':[!'
	DEFW	0000H
	DEFW	0EB39H
	DEFW	0021H
	DEFW	19FEH
	DEFB	0E5H
	DEFM	'*Ii'
	DEFW	0EBE5H
	DEFB	0CDH
	DEFM	'Zcz'
	DEFW	571FH
	DEFW	1F7BH
	DEFW	0E15FH
	DEFW	0D119H
	DEFB	0CDH
	DEFM	'[<>'
	DEFW	0DA00H
	DEFW	5B3AH
	DEFB	0EBH
	DEFM	'<2%i'
	DEFB	0AFH
	DEFM	'2&i20i'
	DEFB	0EBH
	DEFM	'*Ii$'
	DEFW	5BCDH
	DEFW	0D23CH
	DEFW	5B55H
	DEFB	0EBH
	DEFM	'"#i'
	DEFW	25C9H
	DEFW	0CDEBH
	DEFM	'8e!%i5'
	DEFW	03C3H
	DEFW	0CD5BH
	DEFW	3422H
	DEFW	7EC0H
	DEFW	3CB7H
	DEFW	3DF0H
	DEFW	0E6F5H
	DEFW	0CA10H
	DEFB	8BH
	DEFM	'[:0i<20i'
	DEFW	0E6F1H
	DEFW	0EE08H
	DEFW	0C008H
	DEFM	':0i'
	DEFW	0C8B7H
	DEFM	':0i=20i<'
	DEFW	23C9H
	DEFW	0FE7EH
	DEFW	0C21BH
	DEFM	'w[:0i'
	DEFW	0C2B7H
	DEFM	'w[::i'
	DEFW	0C2B7H
	DEFW	5B77H
	DEFW	37F1H
	DEFB	0C9H
	DEFM	'"#i:%i=2%i'
	DEFW	0CDC9H
	DEFW	39C2H
	DEFW	26FEH
	DEFW	0EAC2H
	DEFW	2A5BH
	DEFW	671DH
	DEFW	0FE7EH
	DEFW	0CA20H
	DEFW	5BE8H
	DEFW	09FEH
	DEFW	0E8CAH
	DEFW	0E55BH
	DEFW	0CDC5H
	DEFW	3A2DH
	DEFW	0F6CDH
	DEFW	0C15BH
	DEFW	22E1H
	DEFW	671DH
	DEFW	0E8C2H
	DEFM	'[>&2'
H5F1F	DEFW	6927H
	DEFW	57C3H
	DEFW	0FE5CH
	DEFW	0C226H
	DEFW	5BEAH
	DEFW	273AH
	DEFW	0B769H
	DEFW	0EFC2H
	DEFM	'[>&'
	DEFW	33CDH
	DEFW	0B764H
	DEFW	0F5F8H
	DEFW	32AFH
	DEFW	6927H
	DEFW	0C9F1H
	DEFM	'*2i'
	DEFW	0006H
	DEFW	0B77EH
	DEFW	24CAH
	DEFW	115CH
	DEFW	67BEH
	DEFW	0BE1AH
	DEFW	19C2H
	DEFW	4F5CH
	DEFW	132BH
	DEFW	0BE1AH
	DEFW	19C2H
	DEFW	0D5CH
	DEFW	09C2H
	DEFW	785CH
	DEFW	80F6H
H5F5F	DEFW	0C9BFH
	DEFW	7E2BH
	DEFW	07FEH
	DEFW	19D2H
	DEFW	045CH
	DEFW	0FBC3H
	DEFM	'[:;i'
	DEFW	0C0B7H
	DEFM	'*<i'
	DEFW	0C006H
	DEFW	0B77EH
	DEFW	55CAH
	DEFW	115CH
	DEFW	67BEH
	DEFW	0BE1AH
	DEFW	4AC2H
	DEFW	4F5CH
	DEFW	132BH
	DEFW	0BE1AH
	DEFW	4AC2H
	DEFW	0D5CH
	DEFW	3CC2H
	DEFW	0AF5CH
	DEFW	0C978H
	DEFW	7E2BH
	DEFW	07FEH
	DEFW	4AD2H
	DEFW	045CH
	DEFW	2EC3H
	DEFW	3C5CH
H5F9E	DEFB	0C9H
H5F9F	DEFW	1D2AH
	DEFW	0E567H
	DEFW	2DCDH
	DEFW	0F53AH
	DEFW	0F6CDH
	DEFW	0C25BH
	DEFW	5C90H
	DEFW	0F147H
	DEFW	0F5E1H
	DEFW	237EH
	DEFW	20FEH
	DEFW	75CAH
	DEFW	0FE5CH
	DEFW	0C209H
	DEFW	5C7DH
	DEFW	0CDE5H
	DEFW	5BEAH
	DEFW	0C3E1H
	DEFW	5C69H
	DEFW	0CD78H
	DEFW	5BEAH
	DEFW	47F1H
	DEFW	0F1F5H
	DEFW	0DCC2H
	DEFW	0FE5BH
	DEFW	0C226H
	DEFW	5BDCH
	DEFW	0EC3H
	DEFW	0F13AH
	DEFW	0F5E1H
	DEFW	1D22H
	DEFW	0CD67H
H5FDF	DEFB	1
H5FE0	DEFB	0DH
	DEFM	'UPDATED 05.20.84'
	DEFW	000DH
H5FF3	XOR	A
	LD	(H70EA),A
	LD	(H70F1),A
	LD	(H70F8),A
	LD	A,1
	LD	(H70C4),A
	LD	HL,H5F1F
	LD	(H5D5D),HL
	LD	DE,H5F1F
	LD	BC,4000H
H600E	XOR	A
	LD	(DE),A
	LD	HL,0040H
	ADD	HL,DE
	LD	(HL),C
	INC	(HL)
	LD	HL,0080H
	ADD	HL,DE
	LD	(HL),C
	DEC	(HL)
	INC	C
	INC	DE
	DEC	B
	JP	NZ,H600E
	LD	HL,003FH
	ADD	HL,DE
	LD	(HL),0FFH
	LD	A,'?'
	LD	(H70F9),A
	LD	HL,(H7107)
	LD	DE,00FFH
	ADD	HL,DE
	LD	L,0
	LD	(H70F5),HL
	CALL	H521E
	LD	HL,(H70F5)
	XOR	A
	CALL	H5348
	LD	HL,(H70F5)
	LD	DE,0004H
	ADD	HL,DE
	LD	D,(HL)
	INC	HL
	LD	E,(HL)
	LD	HL,0200H
	ADD	HL,DE
	LD	A,H
	AND	0FEH
	LD	H,A
	LD	L,0
	DEC	HL
	EX	DE,HL
	LD	BC,0004H
	LD	HL,(H70F5)
	ADD	HL,BC
	LD	(HL),D
	INC	HL
	LD	(HL),E
	LD	HL,(H70F5)
	PUSH	DE
	ADD	HL,DE
	EX	DE,HL
	CALL	H5209
	EX	DE,HL
	CALL	H6C41
	POP	DE
	CALL	C,H5206
	LD	A,D
	RRCA
	AND	7FH
	LD	D,A
	INC	A
	LD	(H70D5),A
	LD	HL,(H70F5)
	LD	BC,0200H
	LD	E,0
H6085	LD	A,D
	OR	A
	JP	Z,H609A
	DEC	D
	ADD	HL,BC
	INC	E
	LD	A,E
	PUSH	BC
	PUSH	DE
	PUSH	HL
	CALL	H5348
	POP	HL
	POP	DE
	POP	BC
	JP	H6085
H609A	LD	HL,(H70F5)
	EX	DE,HL
	LD	HL,0001H
	ADD	HL,DE
	LD	A,(HL)
	AND	1
	CALL	NZ,H5206
	LD	HL,0007H
	ADD	HL,DE
	LD	A,(HL)
	LD	(H70C2),A
	DEC	HL
	LD	A,(HL)
	AND	1
	LD	(H70C3),A
	LD	A,(HL)
	RRCA
	AND	7FH
	LD	(H70C1),A
	LD	HL,000CH
	ADD	HL,DE
	PUSH	DE
	LD	D,(HL)
	INC	HL
	LD	E,(HL)
	EX	DE,HL
	POP	DE
	ADD	HL,DE
	LD	(H70E1),HL
	LD	HL,0018H
	ADD	HL,DE
	PUSH	DE
	LD	D,(HL)
	INC	HL
	LD	E,(HL)
	EX	DE,HL
	POP	DE
	ADD	HL,DE
	LD	(H70E4),HL
	LD	HL,0004H
	ADD	HL,DE
	PUSH	DE
	LD	D,(HL)
	INC	HL
	LD	E,(HL)
	POP	HL
	ADD	HL,DE
	INC	HL
	LD	(H70F3),HL
	DEC	HL
	EX	DE,HL
	CALL	H5209
	LD	A,H
	SUB	D
	RRCA
	AND	7FH
	CP	'@'
	JP	C,H60F9
	LD	A,'@'
H60F9	LD	(H70F7),A
	DEC	A
	LD	(H70F9),A
	LD	HL,H5F5F
	CALL	H6E24
	LD	(HL),0FFH
	LD	B,5
	LD	HL,0FFFFH
	LD	(H70C8),HL
	LD	(H70CA),HL
H6113	CALL	H6B0A
	DEC	B
	JP	NZ,H6113
	XOR	A
	LD	(H70D3),A
	LD	HL,(H70F5)
	LD	DE,0001H
	ADD	HL,DE
	LD	A,(HL)
	LD	B,A
	LD	A,(H5FDF)
	OR	A
	LD	A,B
	JP	NZ,H6131
	OR	10H
H6131	LD	(HL),A
	JP	H6135
H6135	XOR	A
	LD	(H70DF),A
	CALL	H6C76
	LD	(H70E0),A
	CP	80H
	JP	C,H61DB
	CP	0B0H
	JP	C,H61B2
	CP	0C0H
	JP	C,H61A5
	CALL	H6C76
	LD	DE,H70D7
	LD	B,4
	LD	C,A
H6157	PUSH	BC
	PUSH	DE
	LD	A,C
	AND	0C0H
	CALL	Z,H6212
	CP	80H
	CALL	Z,H623D
	CP	'@'
	CALL	Z,H6209
	POP	DE
	POP	BC
	CP	0C0H
	JP	Z,H6182
	EX	DE,HL
	LD	(HL),E
	INC	HL
	LD	(HL),D
	INC	HL
	EX	DE,HL
	LD	HL,H70DF
	INC	(HL)
	LD	A,C
	RLCA
	RLCA
	LD	C,A
	DEC	B
	JP	NZ,H6157
H6182	LD	HL,H6390
	LD	A,(H70E0)
	CP	0E0H
	JP	C,H61FC
	SUB	0E0H
	CP	0AH
	JP	NC,H64DB
H6194	ADD	A,A
	LD	C,A
	LD	B,0
	ADD	HL,BC
	LD	E,(HL)
	INC	HL
	LD	D,(HL)
	LD	HL,(H70D7)
	EX	DE,HL
	LD	A,(H70DF)
	LD	B,A
	JP	(HL)
H61A5	SUB	0B0H
	CP	0EH
	JP	NC,H64DB
	LD	HL,H6322
	JP	H6194
H61B2	AND	'0'
	CALL	Z,H6212
	CP	10H
	CALL	Z,H6209
	CP	' '
	CALL	Z,H623D
	LD	A,1
	LD	(H70DF),A
	LD	(H70D7),HL
	LD	A,(H70E0)
	AND	0CFH
	SUB	80H
	CP	10H
	JP	NC,H64DB
	LD	HL,H633E
	JP	H6194
H61DB	AND	'@'
	CALL	NZ,H623D
	CALL	Z,H6209
	LD	(H70D7),HL
	LD	A,(H70E0)
	AND	' '
	CALL	NZ,H623D
	CALL	Z,H6209
	LD	(H70D9),HL
	LD	A,2
	LD	(H70DF),A
	LD	A,(H70E0)
H61FC	AND	1FH
	CP	19H
	JP	NC,H64DB
	LD	HL,H635E
	JP	H6194
H6209	PUSH	AF
	CALL	H6C76
	LD	L,A
	LD	H,0
	POP	AF
	RET
H6212	PUSH	AF
	CALL	H6C76
	LD	H,A
	PUSH	HL
	CALL	H6C76
	POP	HL
	LD	L,A
	POP	AF
	RET
H621F	PUSH	AF
	OR	A
	JP	Z,H622E
	JP	H6245
H6227	OR	A
	JP	Z,H6235
	JP	H6279
H622E	POP	AF
	CALL	H6C61
	JP	H6C48
H6235	PUSH	HL
	CALL	H6C61
	POP	HL
	JP	H6C48
H623D	PUSH	AF
	CALL	H6C76
	OR	A
	JP	Z,H6265
H6245	CP	10H
	JP	NC,H6259
	DEC	A
	ADD	A,A
	LD	E,A
	LD	D,0
	LD	HL,H70A3
H6252	ADD	HL,DE
	LD	D,(HL)
	INC	HL
	LD	E,(HL)
	EX	DE,HL
	POP	AF
	RET
H6259	SUB	10H
	LD	E,A
	LD	D,0
	LD	HL,(H70E1)
	ADD	HL,DE
	JP	H6252
H6265	CALL	H6C61
	POP	AF
	RET
H626A	XOR	A
H626B	LD	L,A
	LD	H,0
H626E	CALL	H6274
	JP	H6135
H6274	PUSH	HL
	CALL	H6C76
	POP	HL
H6279	OR	A
	JP	Z,H6C48
	EX	DE,HL
	CP	10H
	JP	NC,H6290
	DEC	A
	ADD	A,A
	LD	C,A
	LD	B,0
	LD	HL,H70A3
H628B	ADD	HL,BC
	LD	(HL),D
	INC	HL
	LD	(HL),E
	RET
H6290	SUB	10H
	LD	C,A
	LD	B,0
	LD	HL,(H70E1)
	ADD	HL,BC
	JP	H628B
H629C	CALL	H6C76
	OR	A
	JP	M,H62B5
	JP	H62AD
H62A6	CALL	H6C76
	OR	A
	JP	P,H62B5
H62AD	AND	'@'
	CALL	Z,H6C76
	JP	H6135
H62B5	LD	B,A
	AND	'@'
	JP	Z,H62C4
	LD	A,B
	AND	'?'
	LD	C,A
	LD	B,0
	JP	H62D8
H62C4	LD	A,B
	AND	'?'
	LD	B,A
	PUSH	BC
	CALL	H6C76
	POP	BC
	LD	C,A
	LD	A,B
	AND	' '
	JP	Z,H62D8
	LD	A,B
	OR	0C0H
	LD	B,A
H62D8	LD	A,B
	OR	C
	JP	Z,H63AD
	DEC	BC
	LD	A,B
	OR	C
	JP	Z,H63A4
H62E3	DEC	BC
	LD	H,B
	LD	L,C
	LD	(H70E6),HL
	LD	HL,(H70C2)
	LD	E,C
	LD	A,B
	AND	1
	LD	D,A
	LD	A,B
	RLCA
	LD	A,B
	RRA
	LD	B,A
	ADD	HL,DE
	LD	A,H
	AND	2
	JP	Z,H6300
	DEC	H
	DEC	H
	INC	B
H6300	LD	(H70C2),HL
	LD	HL,H70C1
	LD	A,B
	OR	A
	JP	Z,H6314
	ADD	A,(HL)
	LD	(HL),A
	XOR	A
	LD	(H70EA),A
	JP	H6135
H6314	LD	HL,(H70E8)
	EX	DE,HL
	LD	HL,(H70E6)
	ADD	HL,DE
	LD	(H70E8),HL
	JP	H6135
H6322	DEFW	H63A4
	DEFW	H63AD
	DEFW	H63B3
	DEFW	H63E5
	DEFW	H63EE
	DEFW	H5709
	DEFW	H5914
	DEFW	H56FC
	DEFW	H63F1
	DEFW	H63FA
	DEFW	H56F0
	DEFW	H6400
	DEFW	H6406
	DEFW	H640C
H633E	DEFW	H645E
	DEFW	H6469
	DEFW	H6475
	DEFW	H648F
	DEFW	H649F
	DEFW	H64AF
	DEFW	H64B5
	DEFW	H64D2
	DEFW	H64DB
	DEFW	H64DE
	DEFW	H6534
	DEFW	H654F
	DEFW	H659A
	DEFW	H65A3
	DEFW	H65AF
	DEFW	H65B8
H635E	DEFW	H64DB
	DEFW	H67DE
	DEFW	H65C4
	DEFW	H65D1
	DEFW	H65DD
	DEFW	H65E8
	DEFW	H65F8
	DEFW	H660C
	DEFW	H661E
	DEFW	H662A
	DEFW	H6636
	DEFW	H6645
	DEFW	H6652
	DEFW	H6661
	DEFW	H666D
	DEFW	H6699
	DEFW	H66AB
	DEFW	H66BF
	DEFW	H670B
	DEFW	H6730
	DEFW	H675A
	DEFW	H6761
	DEFW	H676D
	DEFW	H6799
	DEFW	H67D0
H6390	DEFW	H680B
	DEFW	H6897
	DEFW	H68B0
	DEFW	H68C4
	DEFW	H68F6
	DEFW	H6AA0
	DEFW	H6AAA
	DEFW	H6AE9
	DEFW	H6AF8
	DEFW	H6B01
;
H63A4	LD	HL,0001H
H63A7	LD	(H70D7),HL
	JP	H654F
H63AD	LD	HL,0000H
	JP	H63A7
H63B3	CALL	H63B9
	JP	H6135
H63B9	LD	HL,(H70C2)
	LD	(H70ED),HL
	LD	A,(H70C1)
	LD	(H70EC),A
	XOR	A
	LD	(H70F1),A
	CALL	H6E45
	LD	HL,(H70ED)
	LD	(H70C2),HL
	LD	A,(H70EC)
	LD	(H70C1),A
	LD	A,(H70F1)
	LD	(H70EA),A
	LD	HL,(H70EF)
	LD	(H70E8),HL
	RET
H63E5	CALL	H63B9
                                         ;INFC/asm: Infocom source file C
	CALL	H549E
	JP	H63A4
H63EE	JP	H6135
H63F1	CALL	H6C61
	LD	(H70D7),HL
	JP	H654F
H63FA	CALL	H6C61
	JP	H6135
H6400	CALL	H549E
	JP	H6135
H6406	CALL	H5577
	JP	H6135
H640C	LD	A,1
	LD	(H70D4),A
	LD	HL,H5FE0
	CALL	H5906
	LD	HL,(H70F5)
	LD	DE,001AH
	ADD	HL,DE
	LD	D,(HL)
	INC	HL
	LD	E,(HL)
	LD	HL,0FFE0H
	ADD	HL,DE
	EX	DE,HL
	LD	BC,0000H
	LD	HL,0040H
	CALL	H6D00
H642F	PUSH	BC
	PUSH	DE
	CALL	H6D41
	POP	DE
	POP	BC
	LD	A,H
	LD	H,0
	ADD	HL,BC
	CALL	H6E24
	LD	B,H
	LD	C,L
	DEC	DE
	LD	A,D
	OR	E
	JP	NZ,H642F
	LD	DE,001CH
	LD	HL,(H70F5)
	ADD	HL,DE
	LD	D,(HL)
	INC	HL
	LD	E,(HL)
	LD	H,B
	LD	L,C
	XOR	A
	LD	(H70D4),A
	CALL	H6C41
	JP	Z,H629C
	JP	H62A6
H645E	LD	HL,(H70D7)
	LD	A,H
	OR	L
	JP	Z,H629C
	JP	H62A6
H6469	LD	A,(H70D7)
	CALL	H6C10
	LD	DE,0005H
	JP	H647E
H6475	LD	A,(H70D7)
	CALL	H6C10
	LD	DE,0006H
H647E	ADD	HL,DE
	LD	A,(HL)
	PUSH	AF
	LD	L,A
	LD	H,0
	CALL	H6274
	POP	AF
	OR	A
	JP	NZ,H629C
	JP	H62A6
H648F	LD	A,(H70D7)
	CALL	H6C10
	LD	DE,0004H
	ADD	HL,DE
	LD	L,(HL)
	LD	H,0
	JP	H626E
H649F	LD	HL,(H70D7)
	EX	DE,HL
	LD	HL,(H70F5)
	ADD	HL,DE
	DEC	HL
	CALL	H6C01
	INC	A
	JP	H626B
H64AF	CALL	H64BB
	JP	H6135
H64B5	CALL	H64C8
	JP	H6135
H64BB	LD	A,(H70D7)
	CALL	H621F
	INC	HL
H64C2	PUSH	HL
	CALL	H6227
	POP	HL
	RET
H64C8	LD	A,(H70D7)
	CALL	H621F
	DEC	HL
	JP	H64C2
H64D2	LD	HL,(H70D7)
	CALL	H6D00
	JP	H65A9
H64DB	JP	H6135
H64DE	CALL	H64E4
	JP	H6135
H64E4	LD	A,(H70D7)
	LD	B,A
	CALL	H6C10
	EX	DE,HL
	LD	HL,0004H
	ADD	HL,DE
	LD	A,(HL)
	OR	A
	RET	Z
	PUSH	DE
	CALL	H6C10
	LD	DE,0006H
	EX	DE,HL
	ADD	HL,DE
	LD	C,(HL)
	LD	A,B
	CP	C
	JP	NZ,H6511
	POP	HL
	PUSH	HL
	LD	BC,0005H
	ADD	HL,BC
	LD	A,(HL)
	LD	HL,0006H
	ADD	HL,DE
	LD	(HL),A
	JP	H6529
H6511	LD	A,C
	CALL	H6C10
	LD	DE,0005H
	ADD	HL,DE
	LD	D,H
	LD	E,L
	LD	C,(HL)
	LD	A,B
	CP	C
	JP	NZ,H6511
	LD	BC,0005H
	POP	HL
	PUSH	HL
	ADD	HL,BC
	LD	A,(HL)
	LD	(DE),A
H6529	POP	HL
	LD	DE,0004H
	ADD	HL,DE
	LD	(HL),0
	INC	HL
	LD	(HL),0
	RET
H6534	LD	A,(H70D7)
	CALL	H653D
	JP	H6135
H653D	CALL	H6C10
	LD	DE,0007H
	ADD	HL,DE
	LD	D,(HL)
	INC	HL
	LD	E,(HL)
	EX	DE,HL
	INC	HL
	CALL	H6D00
	JP	H6E45
H654F	LD	HL,(H70C5)
	LD	(H5D5D),HL
	LD	A,(H70C7)
	LD	(H70C4),A
	CALL	H6C61
	LD	A,L
	LD	(H70C1),A
	LD	B,H
	LD	A,H
	ADD	A,A
	JP	Z,H657D
	LD	HL,H70A1
	CALL	H6E24
H656E	EX	DE,HL
	CALL	H6C61
	EX	DE,HL
	LD	(HL),D
	INC	HL
	LD	(HL),E
	DEC	HL
	DEC	HL
	DEC	HL
	DEC	B
	JP	NZ,H656E
H657D	CALL	H6C61
	LD	(H70C2),HL
	CALL	H6C61
	LD	(H70C5),HL
	CALL	H6C61
	LD	A,L
	LD	(H70C7),A
	XOR	A
	LD	(H70EA),A
	LD	HL,(H70D7)
	JP	H626E
H659A	LD	HL,(H70D7)
	LD	B,H
	LD	C,L
	DEC	BC
	JP	H62E3
H65A3	LD	HL,(H70D7)
	CALL	H6D12
H65A9	CALL	H6E45
	JP	H6135
H65AF	LD	A,(H70D7)
	CALL	H621F
	JP	H626E
H65B8	LD	HL,(H70D7)
	LD	A,H
	CPL
	LD	H,A
	LD	A,L
	CPL
	LD	L,A
	JP	H626E
H65C4	CALL	H6C31
	EX	DE,HL
	CALL	H6C39
	JP	NC,H629C
	JP	H62A6
H65D1	CALL	H6C31
	CALL	H6C39
	JP	NC,H629C
	JP	H62A6
H65DD	CALL	H64C8
	EX	DE,HL
	LD	HL,(H70D9)
	EX	DE,HL
	JP	H65EF
H65E8	CALL	H64BB
	EX	DE,HL
	LD	HL,(H70D9)
H65EF	CALL	H6C39
	JP	NC,H629C
	JP	H62A6
H65F8	LD	A,(H70D7)
	CALL	H6C10
	LD	DE,0004H
	ADD	HL,DE
	LD	A,(H70D9)
	CP	(HL)
	JP	Z,H629C
	JP	H62A6
H660C	CALL	H6C31
	LD	A,H
	AND	D
	LD	D,A
	LD	A,L
	AND	E
	LD	E,A
	CALL	H6C41
	JP	Z,H629C
	JP	H62A6
H661E	CALL	H6C31
	LD	A,D
	OR	H
	LD	H,A
	LD	A,E
	OR	L
	LD	L,A
	JP	H626E
H662A	CALL	H6C31
	LD	A,H
	AND	D
	LD	H,A
	LD	A,L
	AND	E
	LD	L,A
	JP	H626E
H6636	CALL	H6BBC
	LD	A,D
	AND	B
	LD	D,A
	LD	A,E
	AND	C
	OR	D
	JP	NZ,H629C
	JP	H62A6
H6645	CALL	H6BBC
	LD	A,D
	OR	B
	LD	(HL),A
	INC	HL
	LD	A,E
	OR	C
	LD	(HL),A
	JP	H6135
H6652	CALL	H6BBC
	LD	A,B
	CPL
	AND	D
	LD	(HL),A
	INC	HL
	LD	A,C
	CPL
	AND	E
	LD	(HL),A
	JP	H6135
H6661	LD	A,(H70D7)
	LD	HL,(H70D9)
H6667	CALL	H6227
	JP	H6135
H666D	CALL	H64E4
	LD	A,(H70D7)
	CALL	H6C10
	PUSH	HL
	LD	DE,0004H
	ADD	HL,DE
	LD	A,(H70D9)
	LD	(HL),A
	CALL	H6C10
	LD	DE,0006H
	ADD	HL,DE
	LD	B,(HL)
	LD	A,(H70D7)
	LD	(HL),A
	POP	HL
	LD	A,B
	OR	A
	JP	Z,H6135
	LD	DE,0005H
	ADD	HL,DE
	LD	(HL),A
	JP	H6135
H6699	LD	HL,(H70D9)
	ADD	HL,HL
	EX	DE,HL
	LD	HL,(H70D7)
	ADD	HL,DE
	CALL	H6D00
	CALL	H6D41
	JP	H626E
H66AB	LD	HL,(H70D9)
	EX	DE,HL
	LD	HL,(H70D7)
	ADD	HL,DE
	CALL	H6D00
	CALL	H6D4C
	LD	L,A
	LD	H,0
	JP	H626E
H66BF	CALL	H6BE6
H66C2	CALL	H6BFD
	LD	B,A
	LD	A,(H70D9)
	CP	B
	JP	Z,H66F3
	JP	NC,H66D6
	CALL	H6C08
	JP	H66C2
H66D6	LD	HL,(H70F5)
	LD	DE,000AH
	ADD	HL,DE
	LD	D,(HL)
	INC	HL
	LD	E,(HL)
	LD	HL,(H70F5)
	ADD	HL,DE
	LD	A,(H70D9)
	ADD	A,A
	CALL	H6E24
	DEC	HL
	LD	E,(HL)
	DEC	HL
	LD	D,(HL)
	EX	DE,HL
	JP	H626E
H66F3	CALL	H6C01
	INC	HL
	DEC	A
	JP	M,H6705
	CALL	NZ,H5206
	LD	D,(HL)
	INC	HL
	LD	E,(HL)
	EX	DE,HL
	JP	H626E
H6705	LD	L,(HL)
	LD	H,0
	JP	H626E
H670B	CALL	H6BE6
H670E	CALL	H6BFD
	LD	B,A
	LD	A,(H70D9)
	CP	B
	JP	Z,H6722
	JP	NC,H626A
	CALL	H6C08
	JP	H670E
H6722	INC	HL
	EX	DE,HL
	LD	HL,(H70F5)
	LD	A,E
	SUB	L
	LD	L,A
	LD	A,D
	SBC	A,H
	LD	H,A
	JP	H626E
H6730	CALL	H6BE6
	LD	A,(H70D9)
	OR	A
	JP	Z,H674E
H673A	CALL	H6BFD
	LD	B,A
	LD	A,(H70D9)
	CP	B
	JP	Z,H6754
	JP	NC,H626A
	CALL	H6C08
	JP	H673A
H674E	CALL	H6BFD
	JP	H626B
H6754	CALL	H6C08
	JP	H674E
H675A	CALL	H6C31
	ADD	HL,DE
	JP	H626E
H6761	CALL	H6C31
	LD	A,E
	SUB	L
	LD	L,A
	LD	A,D
	SBC	A,H
	LD	H,A
	JP	H626E
H676D	CALL	H6C31
	EX	DE,HL
	CALL	H6B94
	PUSH	HL
	LD	HL,0002H
	CALL	H6C41
	JP	Z,H6794
	LD	HL,0004H
	CALL	H6C41
	JP	Z,H6791
	POP	HL
	CALL	H6B38
H678B	CALL	H6BA1
	JP	H626E
H6791	POP	HL
	ADD	HL,HL
	PUSH	HL
H6794	POP	HL
	ADD	HL,HL
	JP	H678B
H6799	CALL	H6C31
	EX	DE,HL
	CALL	H6B94
	PUSH	HL
	LD	HL,0002H
	CALL	H6C41
	JP	Z,H67BA
	LD	HL,0004H
	CALL	H6C41
	JP	Z,H67C1
	POP	HL
	CALL	H6B61
	JP	H678B
H67BA	POP	HL
H67BB	CALL	H67C8
	JP	H678B
H67C1	POP	HL
	CALL	H67C8
	JP	H67BB
H67C8	OR	A
	LD	A,H
	RRA
	LD	H,A
	LD	A,L
	RRA
	LD	L,A
	RET
H67D0	CALL	H6C31
	EX	DE,HL
	CALL	H6B94
	CALL	H6B61
	EX	DE,HL
	JP	H626E
H67DE	LD	HL,(H70D7)
	EX	DE,HL
	LD	A,(H70DF)
	LD	B,A
	DEC	B
	CALL	Z,H5206
	LD	HL,(H70D9)
	CALL	H67FF
	LD	HL,(H70DB)
	CALL	H67FF
	LD	HL,(H70DD)
	CALL	H67FF
	CALL	H5206
H67FF	CALL	H6C41
	POP	HL
	JP	Z,H629C
	DEC	B
	JP	Z,H62A6
	JP	(HL)
H680B	LD	HL,(H70D7)
	LD	A,H
	OR	L
	JP	Z,H626E
	LD	HL,(H70C7)
	CALL	H6C48
	LD	HL,(H70C5)
	CALL	H6C48
	LD	HL,(H70C2)
	CALL	H6C48
	LD	HL,(H70C1)
	PUSH	HL
	XOR	A
	LD	(H70EA),A
	LD	H,A
	LD	A,(H70D7)
	LD	L,A
	ADD	HL,HL
	LD	(H70C2),HL
	LD	A,(H70D8)
	LD	(H70C1),A
	CALL	H6C76
	POP	HL
	LD	B,A
	LD	H,A
	PUSH	HL
	LD	HL,H70A3
	OR	A
	JP	Z,H6868
H684A	PUSH	BC
	LD	D,(HL)
	INC	HL
	LD	E,(HL)
	EX	DE,HL
	CALL	H6C48
	DEC	DE
	PUSH	DE
	CALL	H6C76
	LD	D,A
	PUSH	DE
	CALL	H6C76
	POP	DE
	LD	E,A
	POP	HL
	LD	(HL),D
	INC	HL
	LD	(HL),E
	INC	HL
	POP	BC
	DEC	B
	JP	NZ,H684A
H6868	LD	A,(H70DF)
	LD	B,A
	DEC	B
	JP	Z,H6884
	LD	HL,H70D9
	LD	DE,H70A3
H6876	LD	A,(HL)
	INC	HL
	INC	DE
	LD	(DE),A
	DEC	DE
	LD	A,(HL)
	INC	HL
	LD	(DE),A
	INC	DE
	INC	DE
	DEC	B
	JP	NZ,H6876
H6884	POP	HL
	CALL	H6C48
	LD	A,(H70C4)
	LD	(H70C7),A
	LD	HL,(H5D5D)
	LD	(H70C5),HL
	JP	H6135
H6897	LD	HL,(H70D9)
	ADD	HL,HL
	EX	DE,HL
	LD	HL,(H70D7)
	ADD	HL,DE
	EX	DE,HL
	LD	HL,(H70F5)
	ADD	HL,DE
	EX	DE,HL
	LD	HL,(H70DB)
	EX	DE,HL
	LD	(HL),D
	INC	HL
	LD	(HL),E
	JP	H6135
H68B0	LD	HL,(H70D9)
	EX	DE,HL
	LD	HL,(H70D7)
	ADD	HL,DE
	EX	DE,HL
	LD	HL,(H70F5)
	ADD	HL,DE
	LD	A,(H70DB)
	LD	(HL),A
	JP	H6135
H68C4	CALL	H6BE6
H68C7	CALL	H6BFD
	LD	B,A
	LD	A,(H70D9)
	CP	B
	JP	Z,H68DB
	CALL	NC,H5206
	CALL	H6C08
	JP	H68C7
H68DB	CALL	H6C01
	INC	HL
	EX	DE,HL
	LD	HL,(H70DB)
	DEC	A
	JP	M,H68F1
	CALL	NZ,H5206
	EX	DE,HL
	LD	(HL),D
	INC	HL
	LD	(HL),E
	JP	H6135
H68F1	EX	DE,HL
	LD	(HL),E
	JP	H6135
H68F6	CALL	H5577
	CALL	H6B0A
	LD	HL,(H70F5)
	EX	DE,HL
	LD	HL,(H70D7)
	ADD	HL,DE
	LD	(H70D7),HL
	LD	HL,(H70D9)
	ADD	HL,DE
	LD	(H70D9),HL
	CALL	H53A3
	LD	B,A
	LD	C,0
	LD	HL,(H70D9)
	INC	HL
	LD	(HL),0
	INC	HL
	LD	(H7105),HL
	LD	HL,(H70D7)
	INC	HL
H6922	PUSH	HL
	LD	HL,(H70D9)
	LD	A,(HL)
	INC	HL
	CP	(HL)
	POP	HL
	JP	Z,H6135
	LD	A,B
	OR	C
	JP	Z,H6135
	LD	A,C
	CP	6
	CALL	Z,H69BB
	LD	A,C
	OR	A
	JP	NZ,H696D
	PUSH	HL
	LD	D,6
	LD	HL,H70CC
H6943	LD	(HL),0
	INC	HL
	DEC	D
	JP	NZ,H6943
	POP	HL
	LD	A,(H70D7)
	LD	D,A
	LD	A,L
	SUB	D
	PUSH	HL
	LD	HL,(H7105)
	INC	HL
	INC	HL
	INC	HL
	LD	(HL),A
	POP	HL
	LD	A,(HL)
	CALL	H69E2
	JP	C,H698A
	LD	A,(HL)
	CALL	H69C9
	JP	NC,H696D
	INC	HL
	DEC	B
	JP	H6922
H696D	LD	A,B
	OR	A
	JP	Z,H6990
	LD	A,(HL)
	CALL	H69C9
	JP	C,H6990
	LD	D,(HL)
	PUSH	HL
	LD	HL,H70CC
	LD	A,C
	CALL	H6E24
	LD	(HL),D
	POP	HL
	DEC	B
	INC	C
	INC	HL
	JP	H6922
H698A	LD	(H70CC),A
	INC	C
	DEC	B
	INC	HL
H6990	LD	A,C
	OR	A
	JP	Z,H6922
	PUSH	HL
	PUSH	BC
	LD	HL,(H7105)
	INC	HL
	INC	HL
	LD	(HL),C
	CALL	H6FAC
	CALL	H6A09
	LD	HL,(H7105)
	LD	(HL),D
	INC	HL
	LD	(HL),E
	INC	HL
	INC	HL
	INC	HL
	LD	(H7105),HL
	LD	HL,(H70D9)
	INC	HL
	INC	(HL)
	POP	BC
	POP	HL
	LD	C,0
	JP	H6922
H69BB	LD	A,B
	OR	A
	RET	Z
	LD	A,(HL)
	CALL	H69C9
	RET	C
	INC	HL
	DEC	B
	INC	C
	JP	H69BB
H69C9	CALL	H69E2
	RET	C
	PUSH	HL
	LD	HL,H69FF
	LD	D,0AH
H69D3	CP	(HL)
	JP	Z,H69DF
	INC	HL
	DEC	D
	JP	NZ,H69D3
H69DC	POP	HL
	OR	A
	RET
H69DF	POP	HL
	SCF
	RET
H69E2	PUSH	HL
	CALL	H69F0
	LD	D,(HL)
	DEC	D
	INC	D
	JP	Z,H69DC
	INC	HL
	JP	H69D3
H69F0	LD	HL,(H70F5)
	LD	DE,0008H
	ADD	HL,DE
	LD	D,(HL)
	INC	HL
	LD	E,(HL)
	LD	HL,(H70F5)
	ADD	HL,DE
	RET
H69FF	DEFM	' .,?'
	DEFW	0A0DH
	DEFW	0C09H
	DEFW	2222H
H6A09	CALL	H69F0
	LD	A,(HL)
	INC	HL
	CALL	H6E24
	LD	A,(HL)
	ADD	A,A
	ADD	A,A
	ADD	A,A
	ADD	A,A
	LD	C,A
	INC	HL
	LD	D,(HL)
	INC	HL
	LD	E,(HL)
	INC	HL
	LD	A,(H7100)
	LD	B,A
	JP	H6A2C
H6A23	OR	D
	JP	Z,H6A41
H6A27	LD	A,(HL)
	CP	B
	JP	NC,H6A41
H6A2C	LD	A,L
	ADD	A,C
	LD	L,A
	LD	A,H
	ADC	A,0
	LD	H,A
	LD	A,E
	SUB	10H
	LD	E,A
	JP	Z,H6A23
	JP	NC,H6A27
	DEC	D
	JP	P,H6A27
H6A41	LD	A,L
	SUB	C
	LD	L,A
	LD	A,H
	SBC	A,0
	LD	H,A
	LD	A,E
	ADD	A,10H
	LD	E,A
	LD	A,D
	ADC	A,0
	LD	D,A
	LD	A,C
	RRCA
	RRCA
	RRCA
	RRCA
	LD	C,A
H6A56	LD	A,(H7100)
	CP	(HL)
	JP	C,H6A8E
	JP	NZ,H6A84
	INC	HL
	LD	A,(H70FF)
	CP	(HL)
	JP	C,H6A8E
	JP	NZ,H6A83
	INC	HL
	LD	A,(H7102)
	CP	(HL)
	JP	C,H6A8E
	JP	NZ,H6A82
	INC	HL
	LD	A,(H7101)
	CP	(HL)
	JP	C,H6A8E
	JP	Z,H6A92
	DEC	HL
H6A82	DEC	HL
H6A83	DEC	HL
H6A84	LD	A,C
	CALL	H6E24
	DEC	DE
	LD	A,D
	OR	E
	JP	NZ,H6A56
H6A8E	LD	DE,0000H
	RET
H6A92	DEC	HL
	DEC	HL
	DEC	HL
	EX	DE,HL
	LD	HL,(H70F5)
	LD	A,E
	SUB	L
	LD	E,A
	LD	A,D
	SBC	A,H
	LD	D,A
	RET
H6AA0	LD	A,(H70D7)
	LD	C,A
	CALL	H54A0
	JP	H6135
H6AAA	LD	HL,(H70D7)
	CALL	H6AB3
	JP	H6135
H6AB3	LD	A,H
	OR	A
	CALL	M,H6AE1
	LD	B,0
H6ABA	LD	A,H
	OR	L
	JP	Z,H6ACA
	LD	DE,000AH
	CALL	H6B61
	PUSH	DE
	INC	B
	JP	H6ABA
H6ACA	XOR	A
	ADD	A,B
	JP	Z,H6ADC
H6ACF	POP	DE
	LD	A,'0'
	ADD	A,E
	LD	C,A
	CALL	H54A0
	DEC	B
	JP	NZ,H6ACF
	RET
H6ADC	LD	C,'0'
	JP	H54A0
H6AE1	LD	C,'-'
	CALL	H54A0
	JP	H6BA7
H6AE9	LD	HL,(H70D7)
	EX	DE,HL
	CALL	H6B0A
	CALL	H6B61
	EX	DE,HL
	INC	HL
	JP	H626E
H6AF8	LD	HL,(H70D7)
	CALL	H6C48
	JP	H6135
H6B01	CALL	H6C61
	LD	A,(H70D7)
	JP	H6667
H6B0A	PUSH	BC
	LD	C,2
H6B0D	LD	B,8
	LD	HL,H70C8
	LD	A,(HL)
H6B13	RLCA
	RLCA
	RLCA
	XOR	(HL)
	RLA
	RLA
	LD	HL,H70C8
	LD	A,(HL)
	RLA
	LD	(HL),A
	INC	HL
	LD	A,(HL)
	RLA
	LD	(HL),A
	INC	HL
	LD	A,(HL)
	RLA
	LD	(HL),A
	INC	HL
	LD	A,(HL)
	RLA
	LD	(HL),A
	DEC	B
	JP	NZ,H6B13
	DEC	C
	JP	NZ,H6B0D
	POP	BC
	LD	HL,(H70CA)
	RET
H6B38	PUSH	BC
	LD	BC,0000H
	LD	A,10H
H6B3E	PUSH	AF
	LD	A,E
	AND	1
	JP	Z,H6B4A
	PUSH	HL
	ADD	HL,BC
	LD	B,H
	LD	C,L
	POP	HL
H6B4A	LD	A,B
	RRA
	LD	B,A
	LD	A,C
	RRA
	LD	C,A
	LD	A,D
	RRA
	LD	D,A
	LD	A,E
	RRA
	LD	E,A
                                                                           ;INFD/asm: Infocom source file D
;
	POP	AF
	DEC	A
	JP	NZ,H6B3E
	LD	H,D
	LD	L,E
	LD	D,B
	LD	E,C
	POP	BC
	RET
H6B61	PUSH	BC
	LD	B,H
	LD	C,L
	LD	A,D
	CPL
	LD	D,A
	LD	A,E
	CPL
	LD	E,A
	INC	DE
	LD	HL,0000H
	LD	A,11H
H6B70	PUSH	HL
	ADD	HL,DE
	JP	NC,H6B76
	EX	(SP),HL
H6B76	POP	HL
	PUSH	AF
	LD	A,C
	RLA
	LD	C,A
	LD	A,B
	RLA
	LD	B,A
	LD	A,L
	RLA
	LD	L,A
	LD	A,H
	RLA
	LD	H,A
	POP	AF
	DEC	A
	JP	NZ,H6B70
	OR	A
	LD	A,H
	RRA
	LD	D,A
	LD	A,L
	RRA
	LD	E,A
	LD	H,B
	LD	L,C
	POP	BC
	RET
H6B94	XOR	A
	LD	(H70D6),A
	CALL	H6BAF
	EX	DE,HL
	CALL	H6BAF
	EX	DE,HL
	RET
H6BA1	LD	A,(H70D6)
	AND	1
	RET	Z
H6BA7	XOR	A
	SUB	L
	LD	L,A
	LD	A,0
	SBC	A,H
	LD	H,A
	RET
H6BAF	LD	A,H
	OR	A
	RET	P
	LD	A,(H70D6)
	INC	A
	LD	(H70D6),A
	JP	H6BA7
H6BBC	LD	A,(H70D7)
	CALL	H6C10
	LD	A,(H70D9)
	CP	10H
	JP	C,H6BCE
	SUB	10H
	INC	HL
	INC	HL
H6BCE	PUSH	HL
	LD	B,A
	LD	A,0FH
	SUB	B
	LD	HL,0001H
H6BD6	JP	Z,H6BDE
	ADD	HL,HL
	DEC	A
	JP	H6BD6
H6BDE	LD	B,H
	LD	C,L
	POP	HL
	LD	D,(HL)
	INC	HL
	LD	E,(HL)
	DEC	HL
	RET
H6BE6	LD	A,(H70D7)
	CALL	H6C10
	LD	DE,0007H
	ADD	HL,DE
	LD	D,(HL)
	INC	HL
	LD	E,(HL)
	LD	HL,(H70F5)
	ADD	HL,DE
	LD	A,(HL)
	ADD	A,A
	INC	A
	JP	H6E24
H6BFD	LD	A,(HL)
	AND	1FH
	RET
H6C01	LD	A,(HL)
	RLCA
	RLCA
	RLCA
	AND	7
	RET
H6C08	CALL	H6C01
	ADD	A,2
	JP	H6E24
H6C10	PUSH	DE
	LD	L,A
	LD	H,0
	LD	D,H
	LD	E,L
	ADD	HL,HL
	ADD	HL,HL
	ADD	HL,HL
	ADD	HL,DE
	LD	DE,0035H
	ADD	HL,DE
	PUSH	HL
	LD	HL,(H70F5)
	LD	DE,000AH
	ADD	HL,DE
	LD	D,(HL)
	INC	HL
	LD	E,(HL)
	LD	HL,(H70F5)
	ADD	HL,DE
	POP	DE
	ADD	HL,DE
	POP	DE
	RET
H6C31	LD	HL,(H70D7)
	EX	DE,HL
	LD	HL,(H70D9)
	RET
H6C39	LD	A,D
	XOR	H
	JP	P,H6C41
	LD	A,H
	CP	D
	RET
H6C41	LD	A,D
	CP	H
	RET	NZ
	LD	A,L
	CP	E
	CCF
	RET
H6C48	PUSH	DE
	EX	DE,HL
	LD	HL,(H5D5D)
	DEC	HL
	LD	(HL),E
	DEC	HL
	LD	(HL),D
	LD	(H5D5D),HL
	LD	HL,H70C4
	INC	(HL)
	LD	A,(HL)
	CP	0E0H
	CALL	Z,H5206
	EX	DE,HL
	POP	DE
	RET
H6C61	PUSH	DE
	LD	HL,(H5D5D)
	LD	D,(HL)
	INC	HL
	LD	E,(HL)
	INC	HL
	LD	(H5D5D),HL
	LD	HL,H70C4
	DEC	(HL)
	CALL	Z,H5206
	EX	DE,HL
	POP	DE
	RET
H6C76	LD	A,(H70EA)
	OR	A
	JP	Z,H6CA3
	LD	HL,(H70E8)
	LD	B,(HL)
	INC	HL
	LD	(H70E8),HL
	LD	HL,(H70C2)
	INC	L
	LD	(H70C2),HL
	LD	A,B
	RET	NZ
	LD	A,H
	INC	H
	LD	(H70C2),HL
	OR	A
	LD	A,B
	RET	Z
	XOR	A
	LD	(H70C3),A
	LD	(H70EA),A
	LD	HL,H70C1
	INC	(HL)
	LD	A,B
	RET
H6CA3	LD	A,(H70C1)
	LD	HL,H70D5
	CP	(HL)
	LD	HL,(H70F5)
	JP	C,H6CC2
	CALL	H6E2B
	LD	(H70EB),A
	JP	C,H6CD5
H6CB9	CALL	H6DE5
	LD	A,(H70EB)
	LD	HL,(H70F3)
H6CC2	ADD	A,A
	ADD	A,H
	LD	H,A
	EX	DE,HL
	LD	HL,(H70C2)
	ADD	HL,DE
	LD	(H70E8),HL
	LD	A,0FFH
	LD	(H70EA),A
	JP	H6C76
H6CD5	LD	HL,H70F2
	CP	(HL)
	JP	NZ,H6CE2
	LD	B,A
	XOR	A
	LD	(H70F1),A
	LD	A,B
H6CE2	LD	HL,(H70F3)
	ADD	A,A
	ADD	A,H
	LD	H,A
	LD	A,(H70C1)
	CALL	H5348
	LD	A,(H70EB)
	LD	B,A
	LD	HL,H5F1F
	CALL	H6E24
	LD	A,(H70C1)
	LD	(HL),A
	LD	A,B
	JP	H6CB9
H6D00	LD	A,H
	OR	A
	RRA
	LD	(H70EC),A
H6D06	LD	A,H
	AND	1
	LD	H,A
	LD	(H70ED),HL
	XOR	A
	LD	(H70F1),A
	RET
H6D12	LD	A,H
	LD	(H70EC),A
	ADD	HL,HL
	JP	H6D06
H6D1A	XOR	A
	LD	(H70F1),A
	LD	A,(H70F9)
	LD	(H70F2),A
	CALL	H6DB2
	CALL	H6DE5
	LD	A,(H70F2)
	LD	B,A
	LD	HL,(H70F3)
	ADD	A,A
	ADD	A,H
	LD	H,A
	LD	(H70EF),HL
	LD	A,B
	LD	HL,H5F1F
	CALL	H6E24
	LD	(HL),0
	RET
H6D41	CALL	H6D4C
	PUSH	AF
	CALL	H6D4C
	LD	L,A
	POP	AF
	LD	H,A
	RET
H6D4C	LD	A,(H70F1)
	OR	A
	JP	Z,H6D79
	LD	HL,(H70EF)
	LD	B,(HL)
	INC	HL
	LD	(H70EF),HL
	LD	HL,(H70ED)
	INC	L
	LD	(H70ED),HL
	LD	A,B
	RET	NZ
	LD	A,H
	INC	H
	LD	(H70ED),HL
	OR	A
	LD	A,B
	RET	Z
	XOR	A
	LD	(H70EE),A
	LD	(H70F1),A
	LD	HL,H70EC
	INC	(HL)
	LD	A,B
	RET
H6D79	LD	A,(H70D4)
	OR	A
	JP	NZ,H6DBE
	LD	A,(H70EC)
	LD	HL,H70D5
	CP	(HL)
	LD	HL,(H70F5)
	JP	C,H6D9F
	CALL	H6E2B
	LD	(H70F2),A
	JP	C,H6DC4
H6D96	CALL	H6DE5
	LD	A,(H70F2)
	LD	HL,(H70F3)
H6D9F	ADD	A,A
	ADD	A,H
	LD	H,A
	EX	DE,HL
	LD	HL,(H70ED)
	ADD	HL,DE
	LD	(H70EF),HL
	LD	A,0FFH
	LD	(H70F1),A
	JP	H6D4C
H6DB2	LD	HL,H70EB
	CP	(HL)
	RET	NZ
	LD	B,A
	XOR	A
	LD	(H70EA),A
	LD	A,B
	RET
H6DBE	LD	A,(H70F9)
	LD	(H70F2),A
H6DC4	CALL	H6DB2
	LD	HL,(H70F3)
	ADD	A,A
	ADD	A,H
	LD	H,A
	LD	A,(H70EC)
	CALL	H5348
	LD	A,(H70F2)
	LD	B,A
	LD	HL,H5F1F
	CALL	H6E24
	LD	A,(H70EC)
	LD	(HL),A
	LD	A,B
	JP	H6D96
H6DE5	LD	C,A
	LD	A,(H70F8)
	CP	C
	RET	Z
	LD	B,A
	LD	A,C
	LD	(H70F8),A
	LD	HL,H5F5F
	CALL	H6E24
	LD	E,(HL)
	LD	(HL),B
	LD	HL,H5F9F
	LD	A,C
	CALL	H6E24
	LD	D,(HL)
	LD	(HL),0FFH
	LD	A,D
	LD	HL,H5F5F
	CALL	H6E24
	LD	(HL),E
	LD	A,B
	LD	HL,H5F9F
	CALL	H6E24
	LD	(HL),C
	LD	A,E
	INC	A
	JP	Z,H6E1F
	LD	HL,H5F9E
	CALL	H6E24
	LD	(HL),D
	RET
H6E1F	LD	A,D
	LD	(H70F9),A
	RET
H6E24	ADD	A,L
	LD	L,A
	LD	A,0
	ADC	A,H
	LD	H,A
	RET
H6E2B	LD	HL,H70F7
	LD	B,(HL)
	LD	C,0
	LD	HL,H5F1F
H6E34	CP	(HL)
	JP	Z,H6E43
	INC	C
	INC	HL
	DEC	B
	JP	NZ,H6E34
	LD	A,(H70F9)
	SCF
	RET
H6E43	LD	A,C
	RET
H6E45	XOR	A
	LD	(H70FB),A
	LD	(H70FC),A
	DEC	A
	LD	(H70FA),A
H6E50	CALL	H6F6B
	RET	C
	LD	B,A
	OR	A
	JP	Z,H6F0B
	CP	4
	JP	C,H6EAA
	CP	6
	JP	C,H6F23
	CALL	H6F5A
	OR	A
	JP	NZ,H6E74
	LD	A,'['
H6E6C	ADD	A,B
	LD	C,A
H6E6E	CALL	H54A0
	JP	H6E50
H6E74	DEC	A
	JP	NZ,H6E7D
	LD	A,';'
	JP	H6E6C
H6E7D	LD	A,B
	CP	6
	JP	Z,H6E92
	CP	7
	JP	Z,H6F10
	LD	HL,H6F3A
	CALL	H6E24
	LD	C,(HL)
	JP	H6E6E
H6E92	CALL	H6F6B
	RRCA
	RRCA
	RRCA
	LD	C,A
	PUSH	BC
	CALL	H6F6B
	POP	BC
	ADD	A,C
	LD	C,A
	CP	9
	JP	NZ,H6E6E
	LD	C,' '
	JP	H6E6E
H6EAA	DEC	A
	ADD	A,A
	ADD	A,A
	ADD	A,A
	ADD	A,A
	ADD	A,A
	LD	(H70E3),A
	CALL	H6F6B
	RET	C
	LD	B,A
	LD	A,(H70FB)
	LD	H,A
	LD	A,(H70FC)
	LD	L,A
	PUSH	HL
	LD	HL,(H70FD)
	PUSH	HL
	LD	HL,(H70ED)
	PUSH	HL
	LD	HL,(H70EC)
	PUSH	HL
	LD	HL,(H70E4)
	LD	A,(H70E3)
	ADD	A,B
	ADD	A,A
	CALL	H6E24
	LD	A,(HL)
	LD	(H70EC),A
	INC	HL
	LD	L,(HL)
	LD	H,0
	ADD	HL,HL
	LD	(H70ED),HL
	XOR	A
	LD	(H70F1),A
	CALL	H6E45
	XOR	A
	LD	(H70F1),A
	POP	HL
	LD	A,L
	LD	(H70EC),A
	POP	HL
	LD	(H70ED),HL
	POP	HL
	LD	(H70FD),HL
	POP	HL
	LD	A,H
	LD	(H70FB),A
	LD	A,L
	LD	(H70FC),A
	CALL	H6F5A
	JP	H6E50
H6F0B	LD	C,' '
	JP	H6E6E
H6F10	LD	C,0DH
	CALL	H54A0
	LD	C,0AH
	JP	H6E6E
H6F1A	LD	A,B
	SUB	3
	LD	(H70FA),A
	JP	H6E50
H6F23	CALL	H6F5A
	OR	A
	JP	Z,H6F1A
	DEC	A
	ADD	A,A
	ADD	A,B
	SUB	4
	PUSH	HL
	LD	HL,H6F3E
	CALL	H6E24
	LD	A,(HL)
	POP	HL
	LD	(H70FB),A
H6F3A	EQU	$-1
	JP	H6E50
H6F3E	DEFW	0001H
	DEFW	0200H
	DEFM	'0123456789.,!?'
	DEFW	235FH
	DEFW	2227H
	DEFW	5C2FH
	DEFM	'-:('
H6F59	DEFB	29H
H6F5A	LD	A,(H70FA)
	INC	A
	LD	A,(H70FB)
	RET	Z
	PUSH	HL
	LD	HL,H70FA
	LD	A,(HL)
	LD	(HL),0FFH
	POP	HL
	RET
H6F6B	LD	A,(H70FC)
	OR	A
	SCF
	RET	M
	JP	NZ,H6F84
	INC	A
	LD	(H70FC),A
	CALL	H6D41
	LD	(H70FD),HL
	LD	A,H
	RRCA
	RRCA
	AND	1FH
	RET
H6F84	DEC	A
	JP	NZ,H6F97
	LD	A,2
	LD	(H70FC),A
	LD	HL,(H70FD)
	ADD	HL,HL
	ADD	HL,HL
	ADD	HL,HL
	LD	A,H
	AND	1FH
	RET
H6F97	XOR	A
	LD	(H70FC),A
	LD	HL,(H70FD)
	LD	A,H
	OR	A
	JP	P,H6FA8
	LD	A,0FFH
	LD	(H70FC),A
H6FA8	LD	A,L
	AND	1FH
	RET
H6FAC	XOR	A
	LD	(H70FB),A
	LD	HL,H70FF
	LD	B,6
H6FB5	LD	(HL),5
	INC	HL
	DEC	B
	JP	NZ,H6FB5
	LD	B,6
	LD	DE,H70FF
	LD	HL,H70CC
H6FC4	LD	C,(HL)
	INC	HL
	LD	A,C
	OR	A
	LD	A,5
	JP	Z,H6FF9
	LD	A,C
	CP	' '
	LD	A,0
	JP	Z,H6FF9
	PUSH	DE
	LD	A,C
	CALL	H7057
	LD	E,A
	LD	A,(H70FB)
	CP	E
	JP	Z,H6FED
	LD	A,E
	ADD	A,3
	POP	DE
	LD	(DE),A
	INC	DE
	DEC	B
	JP	Z,H7076
	PUSH	DE
H6FED	LD	A,C
	POP	DE
	CALL	H7057
	DEC	A
	JP	P,H7002
	LD	A,C
	SUB	'['
H6FF9	LD	(DE),A
	INC	DE
	DEC	B
	JP	NZ,H6FC4
	JP	H7076
H7002	JP	NZ,H700B
	LD	A,C
	SUB	';'
	JP	H6FF9
H700B	LD	A,C
	CP	0DH
	JP	NZ,H701D
	LD	A,(HL)
	CP	0AH
	JP	NZ,H701D
	INC	HL
	LD	A,7
	JP	H6FF9
H701D	LD	A,C
	CALL	H703E
	JP	NZ,H6FF9
	LD	A,6
	LD	(DE),A
	INC	DE
	DEC	B
	JP	Z,H7076
	LD	A,C
	RLCA
	RLCA
	RLCA
	AND	3
	LD	(DE),A
	INC	DE
	DEC	B
	JP	Z,H7076
	LD	A,C
	AND	1FH
	JP	H6FF9
H703E	PUSH	BC
	PUSH	HL
	LD	HL,H6F59
	LD	B,18H
H7045	CP	(HL)
	JP	Z,H7051
	DEC	HL
	DEC	B
	JP	NZ,H7045
	POP	HL
	POP	BC
	RET
H7051	LD	A,B
	ADD	A,7
	POP	HL
	POP	BC
	RET
H7057	CP	'a'
	JP	C,H7063
	CP	7BH
	JP	NC,H7063
	XOR	A
	RET
H7063	CP	'A'
	JP	C,H7070
	CP	'['
	JP	NC,H7070
	LD	A,1
	RET
H7070	OR	A
	RET	Z
	RET	M
	LD	A,2
	RET
H7076	LD	BC,H70FF
	LD	HL,0000H
	LD	D,H
	CALL	H7099
	CALL	H7099
	CALL	H7099
	LD	(H70FF),HL
	LD	HL,0001H
	CALL	H7099
	CALL	H7099
	CALL	H7099
	LD	(H7101),HL
	RET
H7099	LD	A,(BC)
	INC	BC
	LD	E,A
	ADD	HL,HL
	ADD	HL,HL
	ADD	HL,HL
	ADD	HL,HL
	ADD	HL,HL
H70A1	ADD	HL,DE
	RET
H70A3	DC	18H,0
	DEFW	1350H
	DEFW	71E5H
	DEFW	3012H
H70C1	DEFB	0
H70C2	DEFB	0
H70C3	DEFB	0
H70C4	DEFB	1
H70C5	DEFW	0
H70C7	DEFB	0
H70C8	DEFM	'jW'
H70CA	DEFW	993CH
H70CC	DEFM	'K3=ZOR'
	DEFB	0FFH
H70D3	DEFB	1
H70D4	DEFB	0
H70D5	DEFB	1
H70D6	DEFB	0
H70D7	DEFB	0
H70D8	DEFB	0
H70D9	DEFW	0
H70DB	DEFW	0
H70DD	DEFW	0
H70DF	DEFB	0
H70E0	DEFB	0
H70E1	DEFW	0
H70E3	DEFB	0
H70E4	DEFW	0
H70E6	DEFW	0
H70E8	DEFW	0
H70EA	DEFB	0
H70EB	DEFB	0
H70EC	DEFB	0
H70ED	DEFB	0
H70EE	DEFB	0
H70EF	DEFW	0
H70F1	DEFB	0
H70F2	DEFB	0
H70F3	DEFW	0
H70F5	DEFB	0
H70F6	DEFB	0	;Something to do with top of mem
H70F7	DEFB	0
H70F8	DEFB	0
H70F9	DEFB	3FH
H70FA	DEFB	0
H70FB	DEFB	0
H70FC	DEFB	0
H70FD	DEFW	0
H70FF	DEFB	0
H7100	DEFB	0
H7101	DEFB	0
H7102	DC	3,0
H7105	DEFW	0000H
H7107	DEFW	H7109
H7109	DEFB	0C9H
;End of source.
                                        