N CE03
; U880 OBJEKTKODE-EDITOR MCS 80
; LINE-PER-LINE ASSEMBLER, REASSEMBLER, LINKER
;
; KONSTANTENDEFINITIONEN
MTB:	DEF	00E20H	;STANDARD MARKENTABELLE
NZEIL:	DEF	16	;ZEILENANZAHL DISPLAY
;
OCE:	LD	(RM.STACK),SP
	LD	HL,M3367
	CALL	MC.TXS
	LD	DE,00009H
	LD	HL,(RM.IYSAV)
	INC	HL
	LD	A,H
	OR	L
	JRNZ	AA01-#
	LD	HL,MTB+1
AA01:	DEC	HL
	CALL	MC.HDS
	LD	E,009H
	CALL	MC.HDA
	RC
	PUSH	HL
	POP	IY
	LD	(RM.IYSAV),HL
	LD	E,(HL)
	INC	HL
	LD	D,(HL)
	INC	DE
	LD	A,D
	OR	E
	JRNZ	AA02-#
	DEC	HL
	LD	(HL),0
AA02:	LD	DE,0
	LD	B,6
M3014:	PUSH	DE
	DJNZ	M3014-#
	LD	BC,4
	LD	DE,RM.TABPO
	LD	HL,TWERT
	LDIR
	LD	(IY-07H),B
	LD	(IY-08H),B
M3023:	LD	D,001H
	JR	M302A-#
M3027:	CALL	MC.BKL
M302A:	LD	E,000H
	CALL	M32F3
M302F:	CALL	MC.TST
	JRZ	M302F-#
	LD	HL,M302F
	PUSH	HL
	LD	L,(IY-02H)
	LD	H,(IY-01H)
	CALL	MC.BKL
	LD	B,001H
	CMP	MC.DOWN
	JRZ	M304D-#
	LD	B,L(NZEIL-1(
	CMP	'N'
	JRNZ	M3074-#
M304D:	CALL	M306A
	CALL	MC.BKL
	LD	A,' '
	CALL	MC.BSS
	INC	D
	LD	A,D
	CMP	L(NZEIL)
	JRC	M3062-#
	DEC	D
	CALL	MC.BRO
M3062:	CALL	M3348
	DJNZ	M304D-#
	JMP	M3334
M306A:	CALL	M3AD9
M306D:	LD	(IY-02H),L
	LD	(IY-01H),H
	RET
M3074:	LD	B,001H
	CMP	MC.UP
	JRZ	M3080-#
	LD	B,L(NZEIL-1)
	CMP	'Z'
	JRNZ	M30C4-#
M3080:	PUSH	BC
	LD	C,(IY-02H)
	LD	B,(IY-01H)
	PUSH	DE
	PUSH	BC
	CALL	M3B28
	LD	L,C
	LD	H,B
	POP	BC
	POP	DE
	OR	A
	SBC	HL,BC
	LD	A,H
	CMP	0FFH
	JRC	M30BE-#
	ADD	HL,BC
M3099:	CALL	M306D
	LD	E,L
	LD	D,H
	CALL	M3AD9
	OR	A
	SBC	HL,BC
	JRNC	M30A9-#
	ADD	HL,BC
	JR	M3099-#
M30A9:	EX	DE,HL
	CALL	MC.BKL
	LD	A,' '
	CALL	MC.BSS
	DEC	D
	LD	A,D
	AND	A
	JRNZ	M30BB-#
	INC	D
	CALL	MC.BRU
M30BB:	CALL	M3348
M30BE:	POP	BC
	DJNZ	M3080-#
	JMP	M3334
M30C4:	POP	BC
	LD	BC,M3023
	PUSH	BC
	CMP	'G'
	JRNZ	M30E7-#
	CALL	M3287
	RZ
	JRNC	M30D7-#
	CALL	M3B5D
	ADD	HL,BC
M30D7:	LD	A,L
	OR	H
	JRNZ	M306D-#
	PUSH	IY
	POP	HL
M30DE:	CALL	M32C1
	RC
	CALL	MC.BBS
	JR	M30DE-#
M30E7:	CMP	'B'
	JRNZ	M3102-#
	PUSH	HL
	LD	HL,00000H
	CALL	M3287
	POP	DE
	RZ
	JRC	M30F9-#
	OR	A
	SBC	HL,DE
M30F9:	LD	(IY-06H),L
	LD	(IY-05H),H
	JMP	M39B0
M3102:	CMP	'A'
	JRNZ	M3110-#
	CALL	M3B28
	LD	(IY-02H),C
	LD	(IY-01H),B
	RET
M3110:	CMP	'-'
	JRNZ	N0001-#
	DEC	HL
	JR	N0002-#
N0001:	CMP	'+'
	JRNZ	M3118-#
	INC	HL
N0002:	JMP	M306D
M3118:	CMP	'R'
	JRNZ	M3122-#
	CALL	M3287
	JMP	CM.MEM+3
M3122:	CMP	'P'
	JPZ	MC.LST
	CMP	'O'
	JPZ	CQ.AUS
	CMP	'I'
	JPZ	CQ.EIN
	CMP	'X'
	JPZ	02400H
	CMP	MC.OFF
	JRNZ	M0020-#
	LD	A,MC.CLEAR
	CALL	MC.BSN
	LD	SP,(RM.STACK)
	RET
M0020:	CMP	'L'
	JRNZ	M313E-#
	LD	L,(IY-0AH)
	LD	H,(IY-09H)
	JMP	M306D
M313E:	CMP	'H'
	JRNZ	M3149-#
	LD	(IY-08H),L
	LD	(IY-07H),H
	RET
M3149:	CMP	MC.ENTER
	RZ
	POP	BC
	LD	BC,M3027
	PUSH	BC
	CMP	'Q'
	JRNZ	M0002-#
M3155:	LD	A,' '
	CALL	MC.BSN
	CALL	M324E
	RZ
M315E:	CALL	MC.TST
	JRZ	M315E-#
	CMP	MC.ENTER
	RNZ
	CALL	M306D
	CALL	M32F0
	JR	M3155-#
M0002:	CMP	'K'
	JRNZ	M316E-#
	LD	A,' '
	CALL	MC.BSN
	CALL	MC.BKL
	LD	E,7
	CALL	MC.BKS
	LD	C,11
	CALL	MC.BBZ
	RC
	PUSH	HL
	LD	B,4
M0003:	LD	A,082H
	PUSH	HL
	CALL	MC.ZLE
	LD	A,L
	POP	HL
	JRC	M0004-#
	LD	(HL),A
	INC	HL
	INC	E
	DJNZ	M0003-#
M0004:	POP	HL
	RET
M316E:	CMP	'V'
	JRZ	M3176-#
	CMP	'M'
	JRNZ	M31C6-#
M3176:	PUSH	DE
	CALL	M3287
	POP	DE
	RC
	RZ
	PUSH	HL
	LD	E,009H
	CALL	M3282
	JRC	M318F-#
	POP	DE
	RZ
	SBC	HL,DE
	RC
	PUSH	DE
	LD	C,L
	LD	B,H
	JR	M3192-#
M318F:	CALL	M3B5D
M3192:	CALL	MC.BKL
	LD	E,000H
	CALL	MC.BSL
	CMP	'V'
	JRZ	M31C1-#
	PUSH	BC
	LD	L,(IY-02H)
	LD	H,(IY-01H)
	CALL	M3B1B
	POP	BC
	POP	DE
	RNZ
M31AB:	CALL	M3AF0
	EX	DE,HL
	LD	E,(IY-02H)
	LD	D,(IY-01H)
M31B5:	LD	A,(HL)
	LD	(DE),A
	LD	(HL),0FFH
	INC	HL
	INC	DE
	DEC	BC
	LD	A,B
	OR	C
	JRNZ	M31B5-#
	RET
M31C1:	POP	DE
	CALL	M3AF0
	RET
M31C6:	CMP	'E'
	JRNZ	M320C-#
	PUSH	HL
	CALL	M3287
	POP	DE
	RZ
	JRNC	M31D5-#
	LD	L,E
	LD	H,D
	INC	HL
M31D5:	PUSH	DE
	PUSH	HL
	EX	DE,HL
	CALL	M3B5D
	EX	DE,HL
	POP	HL
	PUSH	HL
	PUSH	BC
	OR	A
	SBC	HL,DE
	JRC	M31EB-#
	EX	DE,HL
	ADD	HL,BC
	LD	B,D
	LD	C,E
	CALL	M3B1B
M31EB:	POP	BC
	POP	HL
	POP	DE
	RNZ
	CALL	M306D
	PUSH	HL
	CALL	M3AF0
	POP	HL
	LD	(IY-02H),E
	LD	(IY-01H),D
	ADD	HL,BC
	EX	DE,HL
	ADD	HL,BC
M3200:	DEC	HL
	DEC	DE
	LD	A,(HL)
	LD	(DE),A
	LD	(HL),000H
	DEC	BC
	LD	A,B
	OR	C
	JRNZ	M3200-#
	RET
M320C:	CMP	'S'
	JRNZ	M323F-#
	CALL	M3287
	RZ
	JRNC	M3219-#
	CALL	M3AD9
M3219:	LD	A,L
	SUB	(IY-02H)
	LD	A,H
	SBC	(IY-01H)
	RC
	PUSH	HL
	EX	DE,HL
	CALL	M3A77
	POP	HL
	CALL	M3B5D
	EX	DE,HL
	LD	L,(IY-02H)
	LD	H,(IY-01H)
M3232:	LD	(HL),0FFH
	INC	HL
	PUSH	HL
	OR	A
	SBC	HL,DE
	POP	HL
	JRC	M3232-#
	JMP	M31AB
M323F:	POP	HL
	LD	HL,00000H
	CMP	'T'
	JPNZ	M302F
	CALL	M30F9
	JMP	CD.ODT
M324E:	CALL	MC.BKL
	LD	E,015H
	LD	C,020H
	CALL	MC.BBZ
	RC
	CALL	M3AD9
	EX	DE,HL
	CALL	M3A77
	CALL	MC.BKL
	PUSH	DE
	CALL	M3377
	POP	DE
	RZ
	JRC	M3274-#
	LD	E,013H
	CALL	MC.BSS
	JR	M324E-#
M3274:	LD	E,000H
	PUSH	HL
	CALL	M32F3
	LD	A,'+'
	CALL	MC.BSS
	POP	HL
	OR	A
	RET
M3282:	CALL	MC.BKS
	JR	M3291-#
M3287:	PUSH	AF
	LD	A,MC.HOME
	CALL	MC.BSN
	POP	AF
	CALL	MC.BSN
M3291:	LD	A,'#'
	CALL	MC.BSN
	CALL	MC.BKL
	LD	C,6
	CALL	MC.BBZ
	CALL	MC.BSL
	CMP	021H
	RC
	CMP	040H
	JRNC	M32AE-#
	LD	A,085H
	CALL	MC.ZLE
	OR	0FFH
	RET
M32AE:	LD	C,A
	INC	E
	CALL	MC.BSL
	LD	L,A
	INC	E
	CALL	MC.BSL
	LD	H,A
	EX	DE,HL
	CALL	M370E
	EX	DE,HL
	RNC
	XOR	A
	RET
M32C1:	CALL	M3AC9
	RC
	JRZ	M32C1-#
	BIT	7,D
	JRZ	M32C1-#
	PUSH	HL
	PUSH	BC
	PUSH	AF
	LD	HL,M32E4
	CALL	MC.TXS
	POP	AF
	CALL	M3780
	LD	DE,00009H
	POP	HL
	CALL	MC.HDS
	POP	HL
	OR	0FFH
	RET
M32F0:	LD	DE,00100H
M32F3:	PUSH	DE
	LD	L,(IY-02H)
M32F7:	LD	H,(IY-01H)
	PUSH	HL
M32FB:	CALL	M3348
	INC	D
	CALL	M306A
	LD	A,D
	CMP	L(NZEIL)
	JRC	M32FB-#
M3307:	POP	HL
	CALL	M306D
	POP	DE
	JR	M3334-#
M3310:	CALL	MC.TXS
	LD	L,(IY-02H)
	LD	H,(IY-01H)
	LD	DE,00005H
	CALL	MC.HDS
	LD	E,010H
	CALL	MC.BKS
	CALL	M3B28
	CALL	M3777
	LD	DE,00014H
	LD	L,C
	LD	H,B
M3330:	CALL	MC.HDS
	RET
M3334:	CALL	MC.BKS
	PUSH	DE
	LD	HL,M3361
	CALL	M3310
	POP	DE
	CALL	MC.BKS
	LD	A,'*'
	CALL	MC.BSS
	RET
M3348:	CALL	MC.BKS
	PUSH	DE
	PUSH	HL
	POP	IX
	LD	A,MC.HOME
	CALL	MC.BSN
	LD	A,' '
	CALL	MC.BSS
	PUSH	BC
	PUSH	HL
	PUSH	IX
	CALL	M379D
	LD	A,C
	AND	3
	INC	A
	POP	IX
	POP	HL
	PUSH	HL
	LD	B,A
	INC	E
	CALL	MC.HDS
	LD	A,':'
	CALL	MC.BSS
	INC	E
M0001:	INC	E
	LD	A,(HL)
	CALL	MC.HBS
	INC	HL
	DJNZ	M0001-#
	POP	HL
	POP	BC
	LD	A,MC.TAB
	CALL	MC.BSN
	CALL	M381D
	POP	DE
	CALL	MC.BKS
	RET
TWERT:	DB	0	;TABULATORPOSITIONEN
	DB	0
	DB	4
	DB	27H
M3361:	DB	L(MC.BBEG+080H)
	DB	L(MC.HOME)
	DB	'OCE'
M3367:	DB	L(MC.CLEAR+080H)
	DB	'OCE  MTB#'
M32E4:	DB	L(MC.CLEAR+080H)
	DB	'     EXT'
	DB	L(MC.ZBEG)
	DB	' '
	DB	080H
M3377:	LD	E,015H
M3379:	CALL	MC.BSL
	CMP	020H
	INC	DE
	JRNZ	M3379-#
	LD	B,016H
M3383:	CALL	MC.BSL
	CMP	020H
	JRNZ	M338D-#
	INC	E
	DJNZ	M3383-#
M338D:	LD	(IY-12H),E
	LD	B,000H
	LD	HL,CF.AAA+0018BH
M3395:	BIT	6,(HL)
	JRZ	M339A-#
	INC	B
M339A:	INC	HL
M339B:	BIT	7,(HL)
	JRZ	M3395-#
	LD	E,(IY-12H)
	LD	(IY-14H),000H
	LD	(IY-16H),000H
M33AA:	LD	A,(HL)
	CMP	080H
	LD	C,A
	LD	(IY-13H),046H
	JPZ	M368F
	BIT	2,(IY-16H)
	JRNZ	M33CF-#
	BIT	6,A
	JRZ	M33DE-#
	SET	2,(IY-16H)
	INC	B
	LD	A,(IY-14H)
	LD	(IY-15H),A
	LD	(IY-18H),E
	JR	M33DE-#
M33CF:	AND	0C0H
	JRZ	M33DE-#
	CALL	MC.BSL
	CMP	020H
	JPNZ	M3465
	JMP	M353F
M33DE:	LD	A,(HL)
	AND	03FH
	CMP	003H
	JRZ	M33E9-#
	CMP	002H
	JRNZ	M340E-#
M33E9:	PUSH	HL
	PUSH	AF
	LD	HL,CF.AAA
	CALL	M36EA
	JRC	M3408-#
	DEC	A
	LD	L,A
	POP	AF
	BIT	0,A
	JRZ	M33FD-#
M33FA:	ADD	HL,HL
	ADD	HL,HL
	ADD	HL,HL
M33FD:	LD	A,(IY-14H)
	OR	L
	LD	(IY-14H),A
	XOR	A
	POP	HL
	JR	M3461-#
M3408:	POP	AF
M3409:	POP	HL
	INC	DE
	INC	HL
	JR	M3465-#
M340E:	CMP	004H
	JRNZ	M3420-#
	PUSH	HL
	LD	HL,CF.AAA+00015H
	CALL	M36EA
	JRC	M3409-#
	DEC	A
	ADD	A
M341D:	LD	L,A
	JR	M33FA-#
M3420:	CMP	001H
	JRNZ	M3430-#
	PUSH	HL
	LD	HL,CF.AAA+0001EH
M3428:	CALL	M36EA
	JRC	M3409-#
	DEC	A
	JR	M341D-#
M3430:	CMP	03DH
	JRNZ	M343A-#
	PUSH	HL
	LD	HL,CF.AAA+0000CH
	JR	M3428-#
M343A:	CMP	03EH
	JRNZ	M3487-#
	CALL	MC.BSL
	INC	E
	CMP	049H
	JRNZ	M3461-#
	CALL	MC.BSL
	INC	E
	CMP	058H
	JRZ	M3461-#
	CMP	059H
	JRNZ	M3461-#
	SET	7,(IY-16H)
	JR	M3461-#
M3458:	LD	C,A
	CALL	MC.BSL
	SUB	060H
	CPL
	CMP	C
	INC	DE
M3461:	INC	HL
	JPZ	M33AA
M3465:	BIT	2,(IY-16H)
	RES	2,(IY-16H)
	JPZ	M339B
M3470:	BIT	7,(HL)
	JPNZ	M339B
	BIT	6,(HL)
	INC	HL
	JRZ	M3470-#
	LD	E,(IY-18H)
	LD	A,(IY-15H)
	LD	(IY-14H),A
	DEC	HL
	JMP	M33AA
M3487:	CMP	03CH
	JRZ	M349F-#
	CMP	039H
	JRZ	M349F-#
	CMP	03BH
	JRZ	M349F-#
	CMP	038H
	JRZ	M349F-#
	CMP	022H
	JRZ	M349F-#
	CMP	03AH
	JRNZ	M3458-#
M349F:	PUSH	HL
	PUSH	BC
	RES	6,(IY-16H)
	RES	5,(IY-16H)
	LD	(IY-1AH),000H
	LD	(IY-19H),000H
	CALL	MC.BSL
	CMP	023H
	JRNZ	M34BD-#
	INC	DE
	SET	6,(IY-16H)
M34BD:	CMP	041H
	JRC	M34DF-#
	SET	5,(IY-16H)
	LD	(IY-1DH),A
	INC	E
	CALL	MC.BSL
	CMP	030H
	JRC	M34F4-#
	LD	(IY-1CH),A
	INC	E
	CALL	MC.BSL
	CMP	030H
	JRC	M34F4-#
	LD	(IY-1BH),A
	INC	E
M34DF:	CALL	MC.BSL
	INC	E
	CMP	02DH
	JRZ	M34F9-#
	CMP	02BH
	SCF
	JRZ	M34F9-#
	DEC	E
	BIT	5,(IY-16H)
	JRZ	M34F9-#
	XOR	A
M34F4:	POP	BC
	POP	HL
	JMP	M3461
M34F9:	PUSH	AF
	PUSH	DE
	LD	A,088H
	CALL	MC.ZLE
	CALL	MC.BSL
	INC	DE
	CMP	048H
	JRZ	M350F-#
	POP	DE
	LD	A,008H
	CALL	MC.ZLE
	PUSH	AF
M350F:	POP	AF
	POP	AF
	JRC	M351A-#
	LD	A,H
	CPL
	LD	H,A
	LD	A,L
	CPL
	LD	L,A
	INC	HL
M351A:	BIT	6,(IY-16H)
	JRZ	M3527-#
	LD	C,(IY-02H)
	LD	B,(IY-01H)
	ADD	HL,BC
M3527:	POP	BC
	EX	(SP),HL
	LD	A,(HL)
	EX	(SP),HL
	CMP	039H
	JRZ	M3537-#
	LD	(IY-1AH),L
	LD	(IY-19H),H
	JR	M353A-#
M3537:	LD	(IY-1EH),L
M353A:	XOR	A
	POP	HL
	JMP	M3461
M353F:	LD	C,B
	LD	B,000H
	LD	HL,CF.AAA+0002AH
	ADD	HL,BC
	LD	A,(HL)
	OR	(IY-14H)
	OR	(IY-15H)
	LD	HL,CF.AAA+000DAH
	ADD	HL,BC
	LD	C,(HL)
	LD	(IY-13H),020H
	LD	B,A
	PUSH	DE
	PUSH	BC
	LD	E,015H
	CALL	MC.BSL
	CMP	020H
	JRZ	M35B3-#
	LD	C,A
	INC	E
	CALL	MC.BSL
	LD	L,A
	INC	E
	CALL	MC.BSL
	LD	H,A
	EX	DE,HL
	PUSH	DE
	CALL	M370E
	POP	DE
	JRNC	M3582-#
	SET	7,C
	LD	(HL),C
	INC	HL
	LD	(HL),E
	INC	HL
	LD	(HL),D
	INC	HL
	INC	HL
	INC	HL
	LD	(HL),000H
	XOR	A
M3582:	DEC	HL
	DEC	HL
	LD	E,(IY-02H)
	LD	D,(IY-01H)
	POP	BC
	PUSH	BC
	PUSH	AF
	LD	A,C
	CMP	0E8H
	JRNZ	M35A4-#
	LD	A,B
	CMP	001H
	JRNZ	M35A4-#
	POP	AF
	XOR	A
	PUSH	AF
	DEC	HL
	SET	7,(HL)
	INC	HL
	LD	E,(IY-1AH)
	LD	D,(IY-19H)
M35A4:	POP	AF
	JRZ	M35B0-#
	LD	(IY-13H),04DH
	POP	BC
	POP	DE
	JMP	M368F
M35B0:	LD	(HL),E
	INC	HL
	LD	(HL),D
M35B3:	POP	BC
	POP	DE
	LD	A,C
	AND	0E0H
	CMP	0E0H
	JPZ	M3662
	LD	D,0CBH
	CMP	040H
	JRZ	M35DA-#
	LD	D,0EDH
	CMP	060H
	JRZ	M35DA-#
	LD	(IX),B
	BIT	7,A
	JRZ	M35F5-#
	LD	D,0DDH
	BIT	7,(IY-16H)
	JRZ	M35DA-#
	LD	D,0FDH
M35DA:	LD	(IX+01H),B
	BIT	4,C
	JRZ	M35F2-#
	BIT	6,C
	JRZ	M35EC-#
	LD	(IX+01H),0CBH
	LD	(IX+03H),B
M35EC:	LD	A,(IY-1EH)
	LD	(IX+02H),A
M35F2:	LD	(IX),D
M35F5:	BIT	3,C
	JRZ	M364E-#
	BIT	5,(IY-16H)
	JRZ	M363D-#
	PUSH	BC
	LD	C,(IY-1DH)
	LD	E,(IY-1CH)
	LD	D,(IY-1BH)
	CALL	M370E
	PUSH	BC
	JRNC	M361F-#
	SET	7,C
	LD	(HL),C
	INC	HL
	LD	(HL),E
	INC	HL
	LD	(HL),D
	INC	HL
	LD	(HL),000H
	INC	HL
	LD	(HL),000H
	INC	HL
	LD	(HL),000H
M361F:	CALL	M3713
	JRNC	M361F-#
	POP	BC
	LD	(HL),B
	INC	HL
	POP	BC
	LD	A,(IY-1AH)
	LD	(HL),A
	INC	HL
	LD	(HL),C
	INC	HL
	LD	E,(IY-02H)
	LD	D,(IY-01H)
	LD	(HL),E
	INC	HL
	LD	(HL),D
	INC	HL
	LD	(HL),000H
	JR	M364E-#
M363D:	LD	L,(IY-1AH)
	LD	H,(IY-19H)
	CALL	M3697
	JRNC	M364E-#
	LD	(IY-13H),04FH
	JR	M368F-#
M364E:	LD	A,C
	AND	003H
	ADD	(IY-02H)
	LD	L,A
	LD	A,000H
	ADC	(IY-01H)
	LD	H,A
	INC	HL
M365C:	LD	A,(IY-13H)
	CMP	02AH
	RET
M3662:	LD	A,B
	CMP	001H
	JRZ	M368F-#
	CMP	002H
M3669:	JPZ	M35F5
	CMP	003H
	JRZ	M3669-#
	CMP	004H
	JRNZ	M368B-#
	LD	B,018H
	INC	E
M3677:	INC	E
	CALL	MC.BSL
	CMP	027H
	JRZ	M3686-#
	LD	(IX),A
	INC	IX
	DJNZ	M3677-#
M3686:	PUSH	IX
	POP	HL
	JR	M365C-#
M368B:	LD	(IY-13H),02AH
M368F:	LD	L,(IY-02H)
	LD	H,(IY-01H)
	JR	M365C-#
M3697:	BIT	3,C
	RZ
	LD	A,C
	CMP	09BH
	JRNZ	M36A3-#
	LD	(IX+03H),L
	RET
M36A3:	CMP	00DH
	JRNZ	M36C7-#
	EX	DE,HL
	LD	L,(IY-02H)
	LD	H,(IY-01H)
	EX	DE,HL
	INC	DE
	INC	DE
	OR	A
	SBC	HL,DE
	LD	(IX+01H),L
	ADD	HL,HL
	INC	H
	JRNC	M36BF-#
	CCF
	RZ
	JR	M36C1-#
M36BF:	DEC	H
	RZ
M36C1:	SCF
	LD	(IX+01H),0FEH
	RET
M36C7:	CMP	0E8H
	JRC	M36D3-#
	LD	(IX),L
	RZ
	LD	(IX+01H),H
	RET
M36D3:	AND	003H
	CMP	003H
	JRNZ	M36E0-#
	LD	(IX+03H),H
	LD	(IX+02H),L
	RET
M36E0:	LD	(IX+01H),L
	CMP	001H
	RZ
	LD	(IX+02H),H
	RET
M36EA:	PUSH	BC
	PUSH	DE
	LD	C,000H
M36EE:	LD	A,(HL)
	INC	HL
	CMP	080H
	JRC	M36EE-#
	SCF
	JRZ	M370A-#
	INC	C
	POP	DE
	PUSH	DE
M36FA:	AND	07FH
	LD	B,A
	CALL	MC.BSL
	INC	E
	CMP	B
	JRNZ	M36EE-#
	LD	A,(HL)
	INC	HL
	CMP	080H
	JRC	M36FA-#
M370A:	LD	A,C
	POP	BC
	POP	BC
	RET
M370E:	PUSH	IY
	POP	HL
	LD	B,001H
M3713:	JR	M371A-#
M3715:	INC	HL
M3716:	INC	HL
M3717:	INC	HL
	INC	HL
	INC	HL
M371A:	LD	A,(HL)
	AND	A
	SCF
	RZ
	BIT	7,A
	JRZ	M3715-#
	INC	B
	AND	07FH
	CMP	C
	JRNZ	M3715-#
	INC	HL
	LD	A,(HL)
	AND	07FH
	CMP	E
	JRNZ	M3716-#
	INC	HL
	LD	A,(HL)
	AND	07FH
	CMP	D
	JRNZ	M3717-#
	INC	HL
	LD	E,(HL)
	INC	HL
	LD	D,(HL)
	INC	HL
	DEC	B
	LD	A,E
	OR	D
	RET
M373F:	LD	A,(HL)
	AND	A
	SCF
	RZ
	INC	HL
	INC	HL
	INC	HL
	LD	E,(HL)
	INC	HL
	LD	D,(HL)
	INC	HL
	EX	DE,HL
	AND	A
	SBC	HL,BC
	EX	DE,HL
	JRNZ	M373F-#
	PUSH	HL
	DEC	HL
	DEC	HL
	DEC	HL
	LD	D,(HL)
	DEC	HL
	LD	E,(HL)
	DEC	HL
	LD	A,(HL)
	POP	HL
	AND	A
	BIT	7,A
	RET
M3777:	PUSH	IY
	POP	HL
M377A:	CALL	M373F
	RC
	JRZ	M377A-#
M3780:	AND	07FH
	CALL	MC.BSN
	LD	A,E
	AND	07FH
	CALL	MC.BSN
	LD	A,D
	AND	07FH
	CALL	MC.BSN
	LD	A,':'
	BIT	7,D
	JRZ	M3799-#
	LD	A,'%'
M3799:	CALL	MC.BSN
	RET
M379D:	PUSH	HL
	PUSH	DE
	LD	A,(IX)
	LD	E,040H
	CMP	0CBH
	JRZ	M37C8-#
	LD	E,060H
	CMP	0EDH
	JRZ	M37C8-#
	LD	E,000H
	CMP	0DDH
	JRZ	M37B8-#
	CMP	0FDH
	JRNZ	M37CB-#
M37B8:	LD	A,(IX+01H)
	LD	E,080H
	CMP	0CBH
	JRNZ	M37CB-#
	LD	E,0C0H
	LD	A,(IX+03H)
	JR	M37CB-#
M37C8:	LD	A,(IX+01H)
M37CB:	LD	D,A
	CALL	M37FE
	JRZ	M37EE-#
	AND	0CFH
	CALL	M37FE
	JRZ	M37EE-#
	AND	0C7H
	CALL	M37FE
	JRZ	M37EE-#
	LD	A,D
	AND	0F8H
	CALL	M37FE
	JRZ	M37EE-#
	AND	0C0H
	CALL	M37FE
	JRNZ	M37FB-#
M37EE:	LD	BC,000AFH
	ADD	HL,BC
	LD	C,(HL)
	LD	DE,CF.AAA+000DAH
	AND	A
	SBC	HL,DE
	LD	B,L
	CMP	A
M37FB:	POP	DE
	POP	HL
	RET
M37FE:	LD	HL,CF.AAA+0002BH
	LD	BC,000AFH
M3804:	CPIR
	RNZ
	PUSH	HL
	PUSH	BC
	LD	BC,000AFH
	ADD	HL,BC
	LD	C,A
	LD	A,(HL)
	AND	0E0H
	CMP	E
	LD	A,C
	POP	BC
	POP	HL
	RZ
	DEC	C
	INC	C
	JRNZ	M3804-#
	BIT	7,A
	RET
M381D:	PUSH	BC
	PUSH	DE
	PUSH	HL
	LD	C,(IY-02H)
	LD	B,(IY-01H)
	CALL	M3777
	LD	B,001H
	JRNC	M382F-#
	LD	B,005H
M382F:	LD	A,020H
	CALL	MC.BSN
	DJNZ	M382F-#
	CALL	M379D
	RES	3,(IY-03H)
	LD	HL,CF.AAA+0018BH
M3840:	BIT	6,(HL)
	INC	HL
	JRZ	M3840-#
	DJNZ	M3840-#
	DEC	HL
	PUSH	HL
M3849:	BIT	7,(HL)
	DEC	HL
	JRZ	M3849-#
	INC	HL
	BIT	6,(HL)
	JPNZ	M3905
M3854:	LD	A,(HL)
	AND	03FH
	CMP	03EH
	JRNZ	M386D-#
	LD	A,049H
	CALL	MC.BSN
	BIT	5,(IX)
	LD	A,058H
	JRZ	M386A-#
	LD	A,059H
M386A:	JMP	M38F5
M386D:	PUSH	AF
	LD	A,C
	AND	0E0H
	LD	A,(IX)
	JRZ	M3880-#
	LD	A,(IX+01H)
	CMP	0CBH
	JRNZ	M3880-#
	LD	A,(IX)
	CMP	0CBH
	JRNZ	M387D-#
	LD	A,(IX+01H)
	JR	M3880-#
M387D:	LD	A,(IX+03H)
M3880:	LD	E,A
	POP	AF
	PUSH	HL
	LD	HL,CF.AAA
	CMP	002H
	JRZ	M38AD-#
	SRA	E
	SRA	E
	SRA	E
	CMP	003H
	JRZ	M38AD-#
	LD	HL,CF.AAA+0000CH
	CMP	03DH
	JRZ	M38AD-#
	LD	HL,CF.AAA+0001EH
	CMP	001H
	JRZ	M38AD-#
	SRA	E
	RES	2,E
	LD	HL,CF.AAA+00015H
	CMP	004H
	JRNZ	M38B6-#
M38AD:	LD	A,E
	AND	007H
	CALL	MC.TNS
	POP	HL
	JR	M38F8-#
M38B6:	LD	L,(IX+01H)
	LD	H,000H
	CMP	03CH
	JRZ	M3911-#
	BIT	7,L
	JRZ	M38C4-#
	DEC	H
M38C4:	PUSH	DE
	EX	DE,HL
	LD	L,(IY-02H)
	LD	H,(IY-01H)
	ADD	HL,DE
	INC	HL
	INC	HL
	POP	DE
	CMP	038H
	JRZ	M3911-#
	LD	L,(IX+01H)
	LD	H,(IX+02H)
	CMP	03AH
	JRZ	M3911-#
	LD	L,H
	CMP	039H
	JRZ	M3911-#
	LD	H,(IX+03H)
	CMP	03BH
	JRZ	M3911-#
	LD	L,H
	LD	H,000H
	CMP	022H
	JRZ	M3911-#
	POP	HL
	SUB	060H
	CPL
M38F5:	CALL	MC.BSN
M38F8:	INC	HL
	LD	A,(HL)
	AND	0C0H
	JPZ	M3854
	BIT	3,(IY-03H)
	JRNZ	M390D-#
M3905:	POP	HL
	SET	3,(IY-03H)
	JMP	M3854
M390D:	POP	HL
	POP	DE
	POP	BC
	RET
M3911:	PUSH	BC
	CMP	039H
	JRZ	M394A-#
M3915:	PUSH	AF
	PUSH	HL
	LD	C,(IY-02H)
	LD	B,(IY-01H)
	PUSH	IY
	POP	HL
M3920:	CALL	M373F
	JRC	M397E-#
	JRNZ	M3920-#
	LD	B,A
	PUSH	IY
	POP	HL
	JR	M3932-#
M392D:	INC	HL
	INC	HL
	INC	HL
	INC	HL
	INC	HL
M3932:	LD	A,(HL)
	AND	A
	JRZ	M397E-#
	BIT	7,A
	JRZ	M392D-#
	DJNZ	M392D-#
	LD	B,003H
M393E:	LD	A,(HL)
	INC	HL
	AND	07FH
	CALL	MC.BSN
	DJNZ	M393E-#
	POP	AF
	POP	HL
	EX	DE,HL
M394A:	LD	A,L
	NEG
	LD	H,A
	JRZ	M3982-#
	LD	A,'<'
	PUSH	AF
	LD	A,'+'
	JPM	M395B
	LD	L,H
	LD	A,'-'
M395B:	PUSH	HL
M395C:	CALL	MC.BSN
	CALL	MC.BKL
	POP	HL
	POP	AF
	CMP	'"'
	JRZ	M396C-#
	CMP	'<'
	JRNZ	M3979-#
M396C:	LD	A,L
	CALL	MC.HBS
M3970:	LD	A,'H'
	CALL	MC.BKS
	POP	BC
	POP	HL
	JMP	M38F5
M3979:	CALL	MC.HDS
	JR	M3970-#
M397E:	LD	A,'0'
	JR	M395C-#
M3982:	POP	BC
	POP	HL
	JMP	M38F8
M39B0:	LD	L,(IY-02H)
	LD	H,(IY-01H)
	PUSH	HL
	PUSH	IY
	POP	HL
M39BA:	CALL	M3AC9
	JPC	M3A34
	JRNZ	M39BA-#
	PUSH	HL
	PUSH	BC
	PUSH	DE
	PUSH	IY
	POP	HL
	LD	(IY-02H),A
M39CB:	CALL	M3AC9
	JRC	M39E5-#
	JRZ	M39CB-#
	DEC	(IY-02H)
	JRNZ	M39CB-#
	PUSH	AF
	LD	A,C
	OR	B
	JRNZ	M39FD-#
	POP	AF
	CALL	M3780
M39E5:	POP	BC
	POP	HL
M39E7:	CALL	MC.BKL
	CALL	MC.HDS
	LD	A,'*'
	LD	DE,00063H
	CALL	MC.BSS
M39F5:	CALL	MC.TST
	JRZ	M39F5-#
	POP	HL
	JR	M39BA-#
M39FD:	POP	AF
	BIT	7,D
	LD	L,C
	LD	H,B
	LD	E,(IY-06H)
	LD	D,(IY-05H)
	JRNZ	M3A0B-#
	ADD	HL,DE
M3A0B:	POP	BC
	LD	A,B
	LD	B,000H
	BIT	7,C
	JRZ	M3A14-#
	DEC	B
M3A14:	ADD	HL,BC
	POP	BC
	PUSH	BC
	POP	IX
	EX	DE,HL
	ADD	HL,BC
	EX	DE,HL
	LD	(IY-02H),E
	LD	(IY-01H),D
	LD	C,A
	CALL	M3697
	POP	HL
	JRNC	M39BA-#
	PUSH	HL
	PUSH	IX
	POP	HL
	JR	M39E7-#
M3A34:	LD	DE,00063H
	CALL	MC.BSL
	CMP	020H
	JRNZ	M3A73-#
	PUSH	IY
	POP	HL
	LD	E,000H
	PUSH	AF
M3A44:	POP	AF
M3A45:	PUSH	DE
	CALL	M3AC9
	POP	DE
	JRC	M3A73-#
	PUSH	AF
	JRZ	M3A50-#
	INC	E
M3A50:	LD	A,C
	OR	B
	JRNZ	M3A44-#
	POP	AF
	JRZ	M3A6D-#
	PUSH	HL
	PUSH	IY
	POP	HL
M3A5B:	LD	A,(HL)
	CMP	E
	JRC	M3A64-#
	CMP	080H
	JRNC	M3A64-#
	DEC	(HL)
M3A64:	PUSH	DE
	CALL	M3AC9
	POP	DE
	JRNC	M3A5B-#
	DEC	E
	POP	HL
M3A6D:	DEC	HL
	CALL	M3AAE
	JR	M3A45-#
M3A73:	POP	HL
	JMP	M306D
M3A77:	PUSH	BC
	PUSH	IY
	POP	HL
	PUSH	AF
	DEC	HL
M3A7D:	POP	AF
M3A7E:	INC	HL
M3A7F:	LD	A,(HL)
	AND	A
	JRNZ	M3A85-#
	POP	BC
	RET
M3A85:	BIT	7,A
	PUSH	AF
	INC	HL
	INC	HL
	INC	HL
	LD	A,(HL)
	SUB	(IY-02H)
	INC	HL
	LD	A,(HL)
	SBC	(IY-01H)
	JRC	M3A7D-#
	DEC	HL
	LD	A,(HL)
	SUB	E
	INC	HL
	LD	A,(HL)
	SBC	D
	JRNC	M3A7D-#
	POP	AF
	JRZ	M3AA9-#
	LD	(HL),000H
	DEC	HL
	LD	(HL),000H
	INC	HL
	JR	M3A7E-#
M3AA9:	CALL	M3AAE
	JR	M3A7F-#
M3AAE:	PUSH	DE
	LD	E,L
	LD	D,H
	INC	HL
	DEC	DE
	DEC	DE
	DEC	DE
	DEC	DE
	PUSH	DE
	LD	B,001H
M3AB9:	LD	A,(HL)
	LD	(DE),A
	LD	(HL),000H
	INC	HL
	INC	DE
	DJNZ	M3AB9-#
	LD	B,005H
	AND	A
	JRNZ	M3AB9-#
	POP	HL
	POP	DE
	RET
M3AC9:	LD	A,(HL)
	INC	HL
	LD	E,(HL)
	INC	HL
	LD	D,(HL)
	INC	HL
	LD	C,(HL)
	INC	HL
	LD	B,(HL)
	INC	HL
	SUB	001H
	INC	A
	BIT	7,A
	RET
M3AD9:	PUSH	BC
	LD	L,(IY-02H)
	LD	H,(IY-01H)
	PUSH	HL
	POP	IX
	CALL	M379D
	LD	A,C
	AND	003H
	INC	A
	LD	C,A
	LD	B,000H
	ADD	HL,BC
	POP	BC
	RET
M3AF0:	PUSH	IY
	POP	HL
	DEC	HL
	PUSH	DE
M3AF5:	POP	DE
	INC	HL
	INC	(HL)
	DEC	(HL)
	RZ
	INC	HL
	INC	HL
	INC	HL
	PUSH	DE
	LD	A,(HL)
	SUB	E
	LD	E,A
	INC	HL
	LD	A,(HL)
	SBC	D
	LD	D,A
	JRC	M3AF5-#
	LD	A,E
	SUB	C
	LD	A,D
	SBC	B
	JRNC	M3AF5-#
	DEC	HL
	LD	A,E
	ADD	(IY-02H)
	LD	(HL),A
	INC	HL
	LD	A,D
	ADC	(IY-01H)
	LD	(HL),A
	JR	M3AF5-#
M3B1B:	LD	A,(HL)
	INC	A
	JRZ	M3B21-#
	DEC	A
	RNZ
M3B21:	INC	HL
	DEC	BC
	LD	A,B
	OR	C
	RZ
	JR	M3B1B-#
M3B28:	PUSH	IY
	POP	HL
	LD	BC,00000H
	JR	M3B35-#
M3B30:	INC	HL
	INC	HL
M3B32:	INC	HL
	INC	HL
M3B34:	INC	HL
M3B35:	LD	A,(HL)
	AND	A
	RZ
	BIT	7,A
	JRZ	M3B30-#
	INC	HL
	INC	HL
	LD	A,(HL)
	AND	07FH
	CMP	041H
	JRC	M3B32-#
	INC	HL
	LD	E,(HL)
	INC	HL
	LD	D,(HL)
	LD	A,E
	SUB	(IY-02H)
	LD	A,D
	SBC	(IY-01H)
	JRNC	M3B34-#
	LD	A,E
	SUB	C
	LD	A,D
	SBC	B
	JRC	M3B34-#
	LD	B,D
	LD	C,E
	JR	M3B34-#
M3B5D:	PUSH	HL
	LD	BC,0FFFCH
	LD	A,0FFH
M3B63:	LD	E,004H
M3B65:	INC	BC
	INC	HL
	CMP	(HL)
	JRNZ	M3B65-#
M3B6A:	INC	HL
	INC	BC
	CMP	(HL)
	JRNZ	M3B63-#
	DEC	E
	JRNZ	M3B6A-#
	POP	HL
	RET
;
	END