; Disassembled ddtz.com, version "DDT/Z    [8101]"
;
; Assemble with M80 or a compatible assembler
; to (re)create the original .com file.

;-------------------------------------------------------------------------------
; Relocation loader
;
	ASEG
	ORG	00100H

	LD	SP,ldr_end+stack
	LD	C,BDOS_PSTR
	LD	DE,ldr_end+expr_buf
	CALL	BDOS
	LD	HL,bitmap
	EXX
	LD	HL,(BDOS+1)
	LD	(ldr_end+1),HL
	LD	BC,ddtz_size-1
	LD	D,B
	LD	E,0FFH
	INC	DE
	INC	BC
	PUSH	BC
	OR	A
	SBC	HL,DE
	LD	(BDOS+1),HL
	EX	DE,HL
	LD	HL,ldr_end-1
A0128:	INC	HL
	LD	A,L
	AND	007H
	JR	NZ,A0133
	EXX
	LD	A,(HL)
	INC	HL
	EXX
	EX	AF,AF'
A0133:	EX	AF,AF'
	ADD	A,A
	JR	NC,A0141
	EX	AF,AF'
	DEC	HL
	LD	A,(HL)
	ADD	A,E
	LD	(HL),A
	INC	HL
	LD	A,(HL)
	ADC	A,D
	LD	(HL),A
	EX	AF,AF'
A0141:	EX	AF,AF'
	DEC	BC
	LD	A,B
	OR	C
	JR	NZ,A0128
	POP	BC
	EX	DE,HL
	ADD	HL,BC
	EX	DE,HL
	DEC	DE
	LDDR
	LD	HL,conbuf+2
	ADD	HL,DE
	JP	(HL)

	rept	(($+7) and 0FFF8H) - $
	 DEFB	000H
	endm

ldr_end:

	.phase	0
;-------------------------------------------------------------------------------
; DDT/Z core
;

; Some greneral definitions

TAB		equ	9
LF		equ	10
CR		equ	13

; CP/M memory layout

BDOS		equ	5
FCB		equ	05ch
FCB2		equ	06ch
DMA_BUF		equ	080h
TPA		equ	0100h

; BDOS function calls

BDOS_CIN	equ	1	;Console Input
BDOS_COUT	equ	2       ;Console Output
BDOS_PSTR	equ	9       ;Print String
BDOS_CBUF	equ	10      ;Read Console Buffer
BDOS_CSTAT	equ	11      ;Get Console Status
BDOS_OPEN	equ	15      ;Open File
BDOS_CLOSE	equ	16      ;Close File
BDOS_DELETE	equ	19      ;Delete File
BDOS_READ	equ	20      ;Read Sequential
BDOS_WRITE	equ	21      ;Write Sequential
BDOS_CREATE	equ	22      ;Make File
BDOS_SETDMA	equ	26      ;Set DMA Address

; ddtz specific definitions

STACK_SIZE	equ	64	;ddtz internal stack
CONBUF_SIZE	equ	80	;Size of console input buffer
EXPR_BUF_SIZE	equ	128	;expressen buffer for conditional breakpoints
BP_CNT		equ	12	;Number of breakpoints
BP_SIZE		equ	8	;Size of a breakpoint record
YREG_CNT	equ	10	;Number of Y registers (0..9)

;-------------------------------------------------------------------------------

ddtz_base:
	jp 0			;0000	c3 00 00 	. . .
l0003h:
	rst 30h			;0003	f7 	.
sub_0004h:
	nop			;0004	00 	.
	ret			;0005	c9 	.

	ds	STACK_SIZE

stack:
reg.l2:	db	000h		;0046	00 	.
reg.h2:	db	000h		;0047	00 	.
reg.e2:	db	000h		;0048	00 	.
reg.d2:	db	000h		;0049	00 	.
reg.c2:	db	000h		;004a	00 	.
reg.b2:	db	000h		;004b	00 	.
reg.f2:	db	000h		;004c	00 	.
reg.a2:	db	000h		;004d	00 	.
l004eh:	db	000h		;004e	00 	.
reg.i:	db	000h		;004f	00 	.
reg.iy:	dw	0000h		;0050	00 	.
reg.ix:	dw	0000h		;0052	00 	.
reg.f:	db	000h		;0054	00 	.
reg.a:	db	000h		;0055	00 	.
reg.c:	db	000h		;0056	00 	.
reg.b:	db	000h		;0057	00 	.
reg.e:	db	000h		;0058	00 	.
reg.d:	db	000h		;0059	00 	.
reg.l:	db	000h		;005a	00 	.
reg.h:	db	000h		;005b	00 	.
reg_sp:	dw	TPA		;005c	00 01	.
reg.iff:
	db	0f3h		;005e	f3 	.
	db	0c3h		;005f	c3 	.
REG.PC:	dw	TPA		;0060	00 01	.
l0062h:	dw	0000h		;0062	00 00	.
offs.@:	dw	0		;0064	00 00	.

CMD_ERR:dw	l0146h		;0066	46 01 	F .
cmd_rpt:dw	mainloop	;0068	bd 00 	. .

conbuf:
	db	CONBUF_SIZE	;006a	50 	P

	ld sp,stack		;006b	31 46 00 	1 F .
	exx			;006e	d9 	.
	ld de,ddtz_base		;006f	11 00 00 	. . .
	or a			;0072	b7 	.
	sbc hl,de		;0073	ed 52 	. R
	add hl,de			;0075	19 	.
	jr c,l0079h		;0076	38 01 	8 .
	ex de,hl		;0078	eb 	.
l0079h:
	ld de,TPA		;0079	11 00 01 	. . .
l007ch:
	dec hl			;007c	2b 	+
	ld (hl),000h		;007d	36 00 	6 .
	ld a,h			;007f	7c 	|
	sub d			;0080	92 	.
	ld b,a			;0081	47 	G
	ld a,l			;0082	7d 	}
	sub e			;0083	93 	.
	or b			;0084	b0 	.
	jr nz,l007ch		;0085	20 f5 	  .
	ld a,i			;0087	ed 57 	. W
	ld (reg.i),a		;0089	32 4f 00 	2 O .
	ld a,0f3h		;008c	3e f3 	> .
	jp po,l0093h		;008e	e2 93 00 	. . .
	ld a,0fbh		;0091	3e fb 	> .
l0093h:
	ld (reg.iff),a		;0093	32 5e 00 	2 ^ .
	call sub_0004h		;0096	cd 04 00 	. . .
	ld hl,ddtz_base		;0099	21 00 00 	! . .
	ld l,000h		;009c	2e 00 	. .
	ld (reg_sp),hl		;009e	22 5c 00 	" \ .
	ld a,(FCB+1)		;00a1	3a 5d 00 	: ] .
	cp ' '			;00a4	fe 20 	.
	ld hl,0			;00a6	21 00 00 	! . .
	call nz,read_file	;00a9	c4 68 10 	. h .
	jr mainloop		;00ac	18 0f 	. .

	ds	CONBUF_SIZE + 3 - ($ - conbuf)

mainloop:
	ld sp,stack		;00bd	31 46 00 	1 F .
	ld hl,l0146h		;00c0	21 46 01 	! F .
	ld (CMD_ERR),hl		;00c3	22 66 00 	" f .
	ld hl,(REG.PC)		;00c6	2a 60 00 	* ` .
	ld (l0062h),hl		;00c9	22 62 00 	" b .
	call bp_clr_temporary	;00cc	cd 54 07 	. T .
	ld hl,(cmd_rpt)		;00cf	2a 68 00 	* h .
	ld de,mainloop		;00d2	11 bd 00 	. . .
	call cp_hl_de		;00d5	cd ee 02 	. . .
	ld a,'>'		;00d8	3e 3e 	> >
	call outchar		;00da	cd 5d 02 	. ] .
	call nz,outchar		;00dd	c4 5d 02 	. ] .
	call z,outbl		;00e0	cc 9f 02 	. . .
	call get_line		;00e3	cd 4e 01 	. N .
	call skipbl		;00e6	cd bf 02 	. . .
	jr z,exe_hl		;00e9	28 1f 	( .
	ld hl,mainloop		;00eb	21 bd 00 	! . .
	ld (cmd_rpt),hl		;00ee	22 68 00 	" h .
	inc de			;00f1	13 	.
	sub '@'			;00f2	d6 40 	. @
	jr c,ERROR		;00f4	38 11 	8 .
	cp 'Z'+1-'@'		;00f6	fe 1b 	. .
	jr nc,ERROR		;00f8	30 0d 	0 .
	add a,a			;00fa	87 	.
	ld hl,CMDTAB		;00fb	21 10 01 	! . .
	call add_hl_a		;00fe	cd b9 02 	. . .
	ld a,(hl)		;0101	7e 	~
	inc hl			;0102	23 	#
	ld h,(hl)		;0103	66 	f
	ld l,a			;0104	6f 	o
	jr exe_hl		;0105	18 03 	. .
ERROR:
	ld hl,(CMD_ERR)	;0107	2a 66 00 	* f .
exe_hl:
	call CALL_HL		;010a	cd 0f 01 	. . .
	jr mainloop		;010d	18 ae 	. .
CALL_HL:
	jp (hl)			;010f	e9 	.

CMDTAB:
	defw cmd_@		;0110	92 0d 	. .
	defw cmd_A		;0112	fe 11 	. .
	defw cmd_B		;0114	6d 07 	m .
	defw cmd_C		;0116	17 21 	. !
	defw cmd_D		;0118	48 0f 	H .
	defw ERROR		;011a	07 01 	. .
	defw cmd_F		;011c	af 0f 	. .
	defw cmd_G		;011e	31 07 	1 .
	defw cmd_H		;0120	3d 0e 	= .
	defw cmd_I		;0122	a3 0d 	. .
	defw ERROR		;0124	07 01 	. .
	defw ERROR		;0126	07 01 	. .
	defw cmd_L		;0128	cd 18 	. .
	defw cmd_M		;012a	19 0e 	. .
	defw ERROR		;012c	07 01 	. .
	defw cmd_O		;012e	c7 0d 	. .
	defw ERROR		;0130	07 01 	. .
	defw cmd_Q		;0132	84 0e 	. .
	defw cmd_R		;0134	62 10 	b .
	defw cmd_S		;0136	5a 0d 	Z .
	defw cmd_T		;0138	1e 21 	. !
	defw ERROR		;013a	07 01 	. .
	defw cmd_V		;013c	ea 0d 	. .
	defw cmd_W		;013e	a0 11 	. .
	defw cmd_X		;0140	f1 0b 	. .
	defw cmd_Y		;0142	b2 0b 	. .
	defw cmd_Z		;0144	ba 0e 	. .

l0146h:
	ld a,'?'		;0146	3e 3f 	> ?
	call outchar		;0148	cd 5d 02 	. ] .
	jp crlf			;014b	c3 a3 02 	. . .
get_line:
	push hl			;014e	e5 	.
	ld de,conbuf		;014f	11 6a 00 	. j .
	ld c,BDOS_CBUF		;0152	0e 0a 	. .
	call ddtz_base		;0154	cd 00 00 	. . .
	call crlf		;0157	cd a3 02 	. . .
	ld de,conbuf+1		;015a	11 6b 00 	. k .
	ld a,(de)		;015d	1a 	.
	ld b,a			;015e	47 	G
	ld c,0			;015f	0e 00 	. .
	inc b			;0161	04 	.
l0162h:
	inc de			;0162	13 	.
	dec b			;0163	05 	.
	jr z,l0194h		;0164	28 2e 	( .
	ld a,(de)		;0166	1a 	.
	bit 0,c			;0167	cb 41 	. A
	call z,toupper		;0169	cc 9b 01 	. . .
	ld (de),a		;016c	12 	.
	cp ''''			;016d	fe 27 	. '
	jr nz,l0162h		;016f	20 f1 	  .
	push de			;0171	d5 	.
	dec de			;0172	1b 	.
	ld a,(de)		;0173	1a 	.
	cp ''''			;0174	fe 27 	. '
	jr z,l0190h		;0176	28 18 	( .
	dec de			;0178	1b 	.
	ld a,(de)		;0179	1a 	.
	cp '^'			;017a	fe 5e 	. ^
	jr z,l0184h		;017c	28 06 	( .
	dec de			;017e	1b 	.
	ld a,(de)		;017f	1a 	.
	cp '^'			;0180	fe 5e 	. ^
	jr nz,l0190h		;0182	20 0c 	  .
l0184h:
	inc de			;0184	13 	.
	push bc			;0185	c5 	.
	call sub_0303h		;0186	cd 03 03 	. . .
	pop bc			;0189	c1 	.
	dec de			;018a	1b 	.
	ld a,(de)		;018b	1a 	.
	cp ''''			;018c	fe 27 	. '
	jr z,l0191h		;018e	28 01 	( .
l0190h:
	inc c			;0190	0c 	.
l0191h:
	pop de			;0191	d1 	.
	jr l0162h		;0192	18 ce 	. .
l0194h:
	xor a			;0194	af 	.
	ld (de),a		;0195	12 	.
	ld de,conbuf+2		;0196	11 6c 00 	. l .
	pop hl			;0199	e1 	.
	ret			;019a	c9 	.

toupper:
	cp 'a'			;019b	fe 61 	. a
	ret c			;019d	d8 	.
	cp 'z'+1		;019e	fe 7b 	. {
	ret nc			;01a0	d0 	.
	and 05fh		;01a1	e6 5f 	. _
	ret			;01a3	c9 	.

out.hl.@:
	call out_hl		;01a4	cd 13 02 	. . .
	push de			;01a7	d5 	.
	push hl			;01a8	e5 	.
	ld de,(offs.@)		;01a9	ed 5b 64 00 	. [ d .
	ld a,d			;01ad	7a 	z
	or e			;01ae	b3 	.
	jr z,l01bfh		;01af	28 0e 	( .
	call outbl		;01b1	cd 9f 02 	. . .
	ld a,'@'		;01b4	3e 40 	> @
	call outchar		;01b6	cd 5d 02 	. ] .
	and a			;01b9	a7 	.
	sbc hl,de		;01ba	ed 52 	. R
	call out_hl		;01bc	cd 13 02 	. . .
l01bfh:
	pop hl			;01bf	e1 	.
	pop de			;01c0	d1 	.
	ret			;01c1	c9 	.
out.bin.w:
	ld a,h			;01c2	7c 	|
	call out.bin.b		;01c3	cd c7 01 	. . .
	ld a,l			;01c6	7d 	}
out.bin.b:
	ld b,8			;01c7	06 08 	. .
l01c9h:
	add a,a			;01c9	87 	.
	push af			;01ca	f5 	.
	ld a,00			;01cb	3e 00 	> .
	adc a,a			;01cd	8f 	.
	call out_dgt		;01ce	cd 21 02 	. ! .
	pop af			;01d1	f1 	.
	djnz l01c9h		;01d2	10 f5 	. .
	ld a,'"'		;01d4	3e 22 	> "
	jp outchar		;01d6	c3 5d 02 	. ] .

sub_01d9h:
	ld a,'-'		;01d9	3e 2d 	> -
	call outchar		;01db	cd 5d 02 	. ] .
	dec hl			;01de	2b 	+
	jp cpl.hl		;01df	c3 79 05 	. y .

out_hl_dec_neg:
	push hl			;01e2	e5 	.
	call sub_01d9h		;01e3	cd d9 01 	. . .
	defb 03eh		;01e6	3e 	>
out.hl.dec:
	push hl			;01e7	e5 	.
	ld b,006h		;01e8	06 06 	. .
	call sub_01f9h		;01ea	cd f9 01 	. . .
	pop hl			;01ed	e1 	.
	ld a,'.'		;01ee	3e 2e 	> .
	call outchar		;01f0	cd 5d 02 	. ] .
l01f3h:
	call outbl		;01f3	cd 9f 02 	. . .
	djnz l01f3h		;01f6	10 fb 	. .
	ret			;01f8	c9 	.
sub_01f9h:
	dec b			;01f9	05 	.
	push de			;01fa	d5 	.
	ld de,10		;01fb	11 0a 00 	. . .
	call div_hl_de		;01fe	cd 75 04 	. u .
	ld a,h			;0201	7c 	|
	or l			;0202	b5 	.
	call nz,sub_01f9h	;0203	c4 f9 01 	. . .
	ld a,e			;0206	7b 	{
	pop de			;0207	d1 	.
	jr out_dgt		;0208	18 17 	. .

out_hl_neg:
	push hl			;020a	e5 	.
	call sub_01d9h		;020b	cd d9 01 	. . .
	call out_hl		;020e	cd 13 02 	. . .
	pop hl			;0211	e1 	.
	ret			;0212	c9 	.

out_hl:
	ld a,h			;0213	7c 	|
	call out_hex		;0214	cd 18 02 	. . .
	ld a,l			;0217	7d 	}

out_hex:
	push af			;0218	f5 	.
	rra			;0219	1f 	.
	rra			;021a	1f 	.
	rra			;021b	1f 	.
	rra			;021c	1f 	.
	call out_dgt		;021d	cd 21 02 	. ! .
	pop af			;0220	f1 	.

out_dgt:
	and 0fh			;0221	e6 0f 	. .
	cp 10			;0223	fe 0a 	. .
	jr c,l0229h		;0225	38 02 	8 .
	add a,007h		;0227	c6 07 	. .
l0229h:
	add a,'0'		;0229	c6 30 	. 0
	jr outchar		;022b	18 30 	. 0
l022dh:
	ld a,'-'		;022d	3e 2d 	> -
	call outchar		;022f	cd 5d 02 	. ] .
	ld a,040h		;0232	3e 40 	> @
out.ascii:
	ex af,af'		;0234	08 	.
	call outquote		;0235	cd 5b 02 	. [ .
	ex af,af'		;0238	08 	.
	push af			;0239	f5 	.
	res 7,a			;023a	cb bf 	. .
	cp ' '			;023c	fe 20 	.
	jr nc,l0242h		;023e	30 02 	0 .
	sub 0c0h		;0240	d6 c0 	. .
l0242h:
	call outchar		;0242	cd 5d 02 	. ] .
	push af			;0245	f5 	.
	cp ''''			;0246	fe 27 	. '
	call z,outchar		;0248	cc 5d 02 	. ] .
	pop af			;024b	f1 	.
	ex af,af'		;024c	08 	.
	call outquote		;024d	cd 5b 02 	. [ .
	pop af			;0250	f1 	.
	or a			;0251	b7 	.
	ld a,'.'		;0252	3e 2e 	> .
	call m,outchar		;0254	fc 5d 02 	. ] .
	ex af,af'		;0257	08 	.
	jr c,l022dh		;0258	38 d3 	8 .
	ret			;025a	c9 	.

outquote:
	ld a,''''		;025b	3e 27 	> '
outchar:
	push hl			;025d	e5 	.
	push de			;025e	d5 	.
	push bc			;025f	c5 	.
	push af			;0260	f5 	.
	and 07fh		;0261	e6 7f 	. 
	ld e,a			;0263	5f 	_
	ld c,BDOS_COUT		;0264	0e 02 	. .
	call ddtz_base		;0266	cd 00 00 	. . .
	ld hl,con_col		;0269	21 72 02 	! r .
	inc (hl)		;026c	34 	4
	pop af			;026d	f1 	.
	pop bc			;026e	c1 	.
	pop de			;026f	d1 	.
	pop hl			;0270	e1 	.
	ret			;0271	c9 	.
con_col:
	db	0		;0272	00 	.
inchar:
	push hl			;0273	e5 	.
	push de			;0274	d5 	.
	push bc			;0275	c5 	.
	ld c,BDOS_CSTAT		;0276	0e 0b 	. .
	call ddtz_base		;0278	cd 00 00 	. . .
	and a			;027b	a7 	.
	jr z,l0284h		;027c	28 06 	( .
	ld c,BDOS_CIN		;027e	0e 01 	. .
	call ddtz_base		;0280	cd 00 00 	. . .
	scf			;0283	37 	7
l0284h:
	pop bc			;0284	c1 	.
	pop de			;0285	d1 	.
	pop hl			;0286	e1 	.
	ret			;0287	c9 	.
pstr:
	ld c,0			;0288	0e 00 	. .
l028ah:
	ld a,(hl)		;028a	7e 	~
	and a			;028b	a7 	.
	ret z			;028c	c8 	.
	call outchar		;028d	cd 5d 02 	. ] .
	inc c			;0290	0c 	.
	inc hl			;0291	23 	#
	and a			;0292	a7 	.
	ret m			;0293	f8 	.
	jr l028ah		;0294	18 f4 	. .

outbl6:
	call outbl2		;0296	cd 9c 02 	. . .
outbl4:
	call outbl2		;0299	cd 9c 02 	. . .
outbl2:
	call outbl		;029c	cd 9f 02 	. . .
outbl:
	ld a,' '		;029f	3e 20 	>
	jr outchar		;02a1	18 ba 	. .
crlf:
	call inchar		;02a3	cd 73 02 	. s .
	ld a,CR			;02a6	3e 0d 	> .
	call outchar		;02a8	cd 5d 02 	. ] .
	ld a,LF			;02ab	3e 0a 	> .
	call outchar		;02ad	cd 5d 02 	. ] .
	ld a,0			;02b0	3e 00 	> .
	ld (con_col),a		;02b2	32 72 02 	2 r .
	jp c,mainloop		;02b5	da bd 00 	. . .
	ret			;02b8	c9 	.
add_hl_a:
	add a,l			;02b9	85 	.
	ld l,a			;02ba	6f 	o
	ret nc			;02bb	d0 	.
	inc h			;02bc	24 	$
	ret			;02bd	c9 	.

skipbl0:
	inc de			;02be	13 	.
skipbl:
	ld a,(de)		;02bf	1a 	.
	cp ' '			;02c0	fe 20 	.
	jr z,skipbl0		;02c2	28 fa 	( .
	cp TAB			;02c4	fe 09 	. .
	jr z,skipbl0		;02c6	28 f6 	( .
	or a			;02c8	b7 	.
	ret			;02c9	c9 	.

next_arg:
	call skipbl		;02ca	cd bf 02 	. . .
	cp ','			;02cd	fe 2c 	. ,
	ret nz			;02cf	c0 	.
	inc de			;02d0	13 	.
	call skipbl		;02d1	cd bf 02 	. . .
	cp a			;02d4	bf 	.
	ret			;02d5	c9 	.

assert_eol:
	call skipbl		;02d6	cd bf 02 	. . .
	ret z			;02d9	c8 	.
to_error:
	jp ERROR		;02da	c3 07 01 	. . .

chk_sp:
	push hl			;02dd	e5 	.
	push de			;02de	d5 	.
	ld hl,0			;02df	21 00 00 	! . .
	add hl,sp		;02e2	39 	9
	ld de,stack-40		;02e3	11 1e 00 	. . .
	call cp_hl_de		;02e6	cd ee 02 	. . .
	pop de			;02e9	d1 	.
	pop hl			;02ea	e1 	.
	jr c,to_error		;02eb	38 ed 	8 .
	ret			;02ed	c9 	.

cp_hl_de:
	and a			;02ee	a7 	.
	sbc hl,de		;02ef	ed 52 	. R
	add hl,de		;02f1	19 	.
	ret			;02f2	c9 	.

lookupch:
	ld b,0			;02f3	06 00 	. .
l02f5h:
	ld a,(hl)		;02f5	7e 	~
	and a			;02f6	a7 	.
	ret z			;02f7	c8 	.
	ld a,(de)			;02f8	1a 	.
	cp (hl)			;02f9	be 	.
	jr z,l0300h		;02fa	28 04 	( .
	inc hl			;02fc	23 	#
	inc b			;02fd	04 	.
	jr l02f5h		;02fe	18 f5 	. .
l0300h:
	scf			;0300	37 	7
	inc de			;0301	13 	.
	ret			;0302	c9 	.

sub_0303h:
	ld hl,b_0cc3_start	;0303	21 c3 0c 	! . .
	ld b,07fh		;0306	06 7f 	.
	jr l030ch		;0308	18 02 	. .

sub_030ah:
	ld b,0ffh		;030a	06 ff 	. .
l030ch:
	inc b			;030c	04 	.
	ld a,(hl)		;030d	7e 	~
	and a			;030e	a7 	.
	ret z			;030f	c8 	.
	call sub_031ch		;0310	cd 1c 03 	. . .
	jr nc,l030ch		;0313	30 f7 	0 .
	res 7,b			;0315	cb b8 	. .
	ret			;0317	c9 	.

sub_0318h:
	push bc			;0318	c5 	.
	res 7,b			;0319	cb b8 	. .
	defb 03eh		;031b	3e 	>
sub_031ch:
	push bc			;031c	c5 	.
	push de			;031d	d5 	.
l031eh:
	ld a,(de)		;031e	1a 	.
	xor (hl)		;031f	ae 	.
	and 07fh		;0320	e6 7f 	.
	jr nz,l0336h		;0322	20 12 	  .
	bit 7,(hl)		;0324	cb 7e 	. ~
	inc hl			;0326	23 	#
	inc de			;0327	13 	.
	jr z,l031eh		;0328	28 f4 	( .
	scf			;032a	37 	7
	bit 7,b			;032b	cb 78 	. x
	call z,sub_060ch	;032d	cc 0c 06 	. . .
	jr nc,l0339h		;0330	30 07 	0 .
	pop af			;0332	f1 	.
	scf			;0333	37 	7
	pop bc			;0334	c1 	.
	ret			;0335	c9 	.
l0336h:
	call sub_0345h		;0336	cd 45 03 	. E .
l0339h:
	pop de			;0339	d1 	.
	and a			;033a	a7 	.
	pop bc			;033b	c1 	.
	ret			;033c	c9 	.

sel_dc_string:
	inc b			;033d	04 	.
l033eh:
	dec b			;033e	05 	.
	ret z			;033f	c8 	.
	call sub_0345h		;0340	cd 45 03 	. E .
	jr l033eh		;0343	18 f9 	. .

sub_0345h:
	ld a,(hl)		;0345	7e 	~
	and a			;0346	a7 	.
	ret z			;0347	c8 	.
l0348h:
	ld a,(hl)		;0348	7e 	~
	inc hl			;0349	23 	#
	and a			;034a	a7 	.
	ret m			;034b	f8 	.
	jr l0348h		;034c	18 fa 	. .

sub_034eh:
	call get_arg_range	;034e	cd 7d 03 	. } .
	push hl			;0351	e5 	.
	push bc			;0352	c5 	.
	call next_arg		;0353	cd ca 02 	. . .
	call sub_0363h		;0356	cd 63 03 	. c .
	ex de,hl		;0359	eb 	.
	pop bc			;035a	c1 	.
	pop hl			;035b	e1 	.
	ret			;035c	c9 	.

sub_035dh:
	call expr		;035d	cd be 03 	. . .
	jr c,error0		;0360	38 33 	8 3
	ret			;0362	c9 	.

sub_0363h:
	call sub_035dh		;0363	cd 5d 03 	. ] .
l0366h:
	jp assert_eol		;0366	c3 d6 02 	. . .

get_lastarg_def:
	call get_arg_def	;0369	cd 6e 03 	. n .
	jr l0366h		;036c	18 f8 	. .

get_arg_def:
	push hl			;036e	e5 	.
	call expr		;036f	cd be 03 	. . .
	jr c,l0375h		;0372	38 01 	8 .
	ex (sp),hl		;0374	e3 	.
l0375h:
	pop hl			;0375	e1 	.
	ret			;0376	c9 	.

sub_0377h:
	call b_037c_start	;0377	cd 7c 03 	. | .
	jr l0366h		;037a	18 ea 	. .

b_037c_start:
	defb 0e6h		;037c	e6 	.
get_arg_range:
	scf			;037d	37 	7
	ex af,af'		;037e	08 	.
	push bc			;037f	c5 	.
	push hl			;0380	e5 	.
	call expr		;0381	cd be 03 	. . .
	jr nc,l038ch		;0384	30 06 	0 .
	ex af,af'		;0386	08 	.
	jr c,error0		;0387	38 0c 	8 .
	ex af,af'		;0389	08 	.
	pop hl			;038a	e1 	.
	defb 03eh		;038b	3e 	>
l038ch:
	pop af			;038c	f1 	.
	call get_range		;038d	cd 9a 03 	. . .
	jr nc,l0398h		;0390	30 06 	0 .
	ex af,af'		;0392	08 	.
	pop bc			;0393	c1 	.
	ret nc			;0394	d0 	.
error0:
	jp ERROR		;0395	c3 07 01 	. . .
l0398h:
	pop af			;0398	f1 	.
	ret			;0399	c9 	.

get_range:
	call next_arg		;039a	cd ca 02 	. . .
	cp 'S'			;039d	fe 53 	. S
	jr nz,l03a2h		;039f	20 01 	  .
	inc de			;03a1	13 	.
l03a2h:
	push hl			;03a2	e5 	.
	push af			;03a3	f5 	.
	call expr		;03a4	cd be 03 	. . .
	jr c,l03b8h		;03a7	38 0f 	8 .
	ld b,h			;03a9	44 	D
	ld c,l			;03aa	4d 	M
	pop af			;03ab	f1 	.
	pop hl			;03ac	e1 	.
	jr z,l03b6h		;03ad	28 07 	( .
	ld a,c			;03af	79 	y
	sub l			;03b0	95 	.
	ld c,a			;03b1	4f 	O
	ld a,b			;03b2	78 	x
	sbc a,h			;03b3	9c 	.
	ld b,a			;03b4	47 	G
	inc bc			;03b5	03 	.
l03b6h:
	and a			;03b6	a7 	.
	ret			;03b7	c9 	.
l03b8h:
	pop af			;03b8	f1 	.
	pop hl			;03b9	e1 	.
	jr z,error0		;03ba	28 d9 	( .
	scf			;03bc	37 	7
	ret			;03bd	c9 	.

expr:
	call skipbl		;03be	cd bf 02 	. . .
expr1:
	call do_subexpr		;03c1	cd 2f 04 	. / .
	ret c			;03c4	d8 	.
	call do_rel_op		;03c5	cd ef 03 	. . .
	ret nc			;03c8	d0 	.
	push bc			;03c9	c5 	.
	push hl			;03ca	e5 	.
	call do_subexpr		;03cb	cd 2f 04 	. / .
	jr c,error0		;03ce	38 c5 	8 .
	ex de,hl		;03d0	eb 	.
	ex (sp),hl		;03d1	e3 	.
	and a			;03d2	a7 	.
	sbc hl,de		;03d3	ed 52 	. R
	ld hl,0ffffh		;03d5	21 ff ff 	! . .
	pop de			;03d8	d1 	.
	ret			;03d9	c9 	.

do_op_eq:
	jr z,l03edh		;03da	28 11 	( .
	jr l03ech		;03dc	18 0e 	. .
do_op_ne:
	jr nz,l03edh		;03de	20 0d 	  .
	jr l03ech		;03e0	18 0a 	. .
do_op_le:
	jr z,l03edh		;03e2	28 09 	( .
do_op_lt:
	jr c,l03edh		;03e4	38 07 	8 .
	jr l03ech		;03e6	18 04 	. .
do_op_gt:
	jr z,l03ech		;03e8	28 02 	( .
do_op_ge:
	jr nc,l03edh		;03ea	30 01 	0 .
l03ech:
	inc hl			;03ec	23 	#
l03edh:
	and a			;03ed	a7 	.
	ret			;03ee	c9 	.
do_rel_op:
	push hl			;03ef	e5 	.
	ld hl,tab_eq_le_ge	;03f0	21 1f 04 	! . .
	call lookupch		;03f3	cd f3 02 	. . .
	jr nc,l041dh		;03f6	30 25 	0 %
	ld a,b			;03f8	78 	x
	or a			;03f9	b7 	.
	jr z,l0411h		;03fa	28 15 	( .
	ld a,(de)			;03fc	1a 	.
	cp '='			;03fd	fe 3d 	. =
	jr nz,l0406h		;03ff	20 05 	  .
	inc de			;0401	13 	.
	inc b			;0402	04 	.
	inc b			;0403	04 	.
	jr l0411h		;0404	18 0b 	. .
l0406h:
	bit 0,b			;0406	cb 40 	. @
	jr z,l0411h		;0408	28 07 	( .
	cp '>'			;040a	fe 3e 	. >
	jr nz,l0411h		;040c	20 03 	  .
	inc de			;040e	13 	.
	ld b,005h		;040f	06 05 	. .
l0411h:
	ld hl,tab_func_eqlege	;0411	21 23 04 	! # .
	ld a,b			;0414	78 	x
	add a,a			;0415	87 	.
	call add_hl_a		;0416	cd b9 02 	. . .
	ld c,(hl)		;0419	4e 	N
	inc hl			;041a	23 	#
	ld b,(hl)		;041b	46 	F
	scf			;041c	37 	7
l041dh:
	pop hl			;041d	e1 	.
	ret			;041e	c9 	.

tab_eq_le_ge:
	db	'=<>',0

tab_func_eqlege:
	defw do_op_eq		;0423	da 03 	. .
	defw do_op_lt		;0425	e4 03 	. .
	defw do_op_gt		;0427	e8 03 	. .
	defw do_op_le		;0429	e2 03 	. .
	defw do_op_ge		;042b	ea 03 	. .
	defw do_op_ne		;042d	de 03 	. .

do_subexpr:
	call do_factor		;042f	cd e4 04 	. . .
	ret c			;0432	d8 	.
l0433h:
	call do_binary_op	;0433	cd ae 04 	. . .
	push hl			;0436	e5 	.
	push bc			;0437	c5 	.
	call do_factor		;0438	cd e4 04 	. . .
	pop bc			;043b	c1 	.
	ex de,hl		;043c	eb 	.
	ex (sp),hl		;043d	e3 	.
	jr nc,l0447h		;043e	30 07 	0 .
	pop de			;0440	d1 	.
	ld a,b			;0441	78 	x
	or c			;0442	b1 	.
	ret z			;0443	c8 	.
	jp ERROR		;0444	c3 07 01 	. . .

l0447h:
	ld a,b			;0447	78 	x
	or c			;0448	b1 	.
	push bc			;0449	c5 	.
	ret nz			;044a	c0 	.
	pop bc			;044b	c1 	.

doop_add:
	add hl,de		;044c	19 	.
l044dh:
	pop de			;044d	d1 	.
	jr l0433h		;044e	18 e3 	. .

doop_sub:
	and a			;0450	a7 	.
	sbc hl,de		;0451	ed 52 	. R
	jr l044dh		;0453	18 f8 	. .

doop_mlt:
	push bc			;0455	c5 	.
	ld b,h			;0456	44 	D
	ld c,l			;0457	4d 	M
	ld hl,0			;0458	21 00 00 	! . .
	ld a,010h		;045b	3e 10 	> .
l045dh:
	add hl,hl		;045d	29 	)
	ex de,hl		;045e	eb 	.
	add hl,hl		;045f	29 	)
	ex de,hl		;0460	eb 	.
	jr nc,l0464h		;0461	30 01 	0 .
	add hl,bc		;0463	09 	.
l0464h:
	dec a			;0464	3d 	=
	jr nz,l045dh		;0465	20 f6 	  .
	pop bc			;0467	c1 	.
	jr l044dh		;0468	18 e3 	. .

doop_div:
	call div_hl_de		;046a	cd 75 04 	. u .
	jr l044dh		;046d	18 de 	. .

doop_mod:
	call div_hl_de		;046f	cd 75 04 	. u .
	ex de,hl		;0472	eb 	.
	jr l044dh		;0473	18 d8 	. .

; divide x/y
;     hl: x
;     de: y
;   return:
;     hl: q  (x/y)
;     de: r  (x%y)

div_hl_de:
	push bc			;0475	c5 	.
	ex de,hl		;0476	eb 	.
	ld b,h			;0477	44 	D
	ld c,l			;0478	4d 	M
	ld hl,0			;0479	21 00 00 	! . .
	ld a,16			;047c	3e 10 	> .

;  de: x   (x shifted out, q shifted in)
;  bc: y
;  hl: r   (initially 0)

l047eh:
	push af			;047e	f5 	.
	add hl,hl		;047f	29 	)
	ex de,hl		;0480	eb 	.
	xor a			;0481	af 	.
	add hl,hl		;0482	29 	)
	ex de,hl		;0483	eb 	.
	adc a,l			;0484	8d 	.
	sub c			;0485	91 	.
	ld l,a			;0486	6f 	o
	ld a,h			;0487	7c 	|
	sbc a,b			;0488	98 	.
	ld h,a			;0489	67 	g
	inc de			;048a	13 	.
	jr nc,l048fh		;048b	30 02 	0 .
	add hl,bc		;048d	09 	.
	dec de			;048e	1b 	.
l048fh:
	pop af			;048f	f1 	.
	dec a			;0490	3d 	=
	jr nz,l047eh		;0491	20 eb 	  .
	ex de,hl		;0493	eb 	.
	pop bc			;0494	c1 	.
	ret			;0495	c9 	.

doop_and:
	ld a,h			;0496	7c 	|
	and d			;0497	a2 	.
	ld h,a			;0498	67 	g
	ld a,l			;0499	7d 	}
	and e			;049a	a3 	.
	ld l,a			;049b	6f 	o
	jr l044dh		;049c	18 af 	. .

doop_or:
	ld a,h			;049e	7c 	|
	or d			;049f	b2 	.
	ld h,a			;04a0	67 	g
	ld a,l			;04a1	7d 	}
	or e			;04a2	b3 	.
	ld l,a			;04a3	6f 	o
	jr l044dh		;04a4	18 a7 	. .

doop_xor:
	ld a,h			;04a6	7c 	|
	xor d			;04a7	aa 	.
	ld h,a			;04a8	67 	g
	ld a,l			;04a9	7d 	}
	xor e			;04aa	ab 	.
	ld l,a			;04ab	6f 	o
	jr l044dh		;04ac	18 9f 	. .

do_binary_op:
	push hl			;04ae	e5 	.
	ld hl,tab_op_a		;04af	21 c2 04 	! . .
	call lookupch		;04b2	cd f3 02 	. . .
	ld a,b			;04b5	78 	x
	ld hl,tblf_opa		;04b6	21 cb 04 	! . .
	add a,a			;04b9	87 	.
	call add_hl_a		;04ba	cd b9 02 	. . .
	ld c,(hl)		;04bd	4e 	N
	inc hl			;04be	23 	#
	ld b,(hl)		;04bf	46 	F
	pop hl			;04c0	e1 	.
	ret			;04c1	c9 	.

tab_op_a:
	DB	'+-*/%&!#',0

tblf_opa:
	defw doop_add		;04cb	4c 04 	L .
	defw doop_sub		;04cd	50 04 	P .
	defw doop_mlt		;04cf	55 04 	U .
	defw doop_div		;04d1	6a 04 	j .
	defw doop_mod		;04d3	6f 04 	o .
	defw doop_and		;04d5	96 04 	. .
	defw doop_or		;04d7	9e 04 	. .
	defw doop_xor		;04d9	a6 04 	. .
	defw 0			;04db	00 00 	. .

fact_factor:
	call do_factor		;04dd	cd e4 04 	. . .
	ret nc			;04e0	d0 	.
	jp ERROR		;04e1	c3 07 01 	. . .

do_factor:
	call chk_sp		;04e4	cd dd 02 	. . .
	call get.number		;04e7	cd aa 05 	. . .
	ret nc			;04ea	d0 	.
	inc de			;04eb	13 	.
	ld hl,ddtz_base-1	;04ec	21 ff ff 	! . .
	cp 'T'			;04ef	fe 54 	. T
	ret z			;04f1	c8 	.
	ld hl,(high_load)	;04f2	2a 9c 11 	* . .
	cp 'H'			;04f5	fe 48 	. H
	ret z			;04f7	c8 	.
	ld hl,(max_load)	;04f8	2a 9e 11 	* . .
	cp 'M'			;04fb	fe 4d 	. M
	ret z			;04fd	c8 	.
	ld hl,TPA		;04fe	21 00 01 	! . .
	cp 'L'			;0501	fe 4c 	. L
	ret z			;0503	c8 	.
	ld hl,(offs.@)		;0504	2a 64 00 	* d .
	cp '@'			;0507	fe 40 	. @
	ret z			;0509	c8 	.
	ld hl,(l0062h)		;050a	2a 62 00 	* b .
	cp '$'			;050d	fe 24 	. $
	ret z			;050f	c8 	.
	cp '-'			;0510	fe 2d 	. -
	jr z,fact_factneg	;0512	28 61 	( a
	cp '~'			;0514	fe 7e 	. ~
	jr z,fact_factinv	;0516	28 68 	( h
	cp '+'			;0518	fe 2b 	. +
	jr z,fact_factor	;051a	28 c1 	( .
	cp '^'			;051c	fe 5e 	. ^
	jr z,fact_reg.CPU	;051e	28 45 	( E
	cp 'Y'			;0520	fe 59 	. Y
	jr z,fact_reg.Y		;0522	28 10 	( .
	cp '('			;0524	fe 28 	. (
	jr z,fact_mem		;0526	28 5d 	( ]
	cp '['			;0528	fe 5b 	. [
	jp z,expr_brckt		;052a	ca 9d 05 	. . .
	cp ''''			;052d	fe 27 	. '
	jr z,fact_factstring	;052f	28 17 	( .
	dec de			;0531	1b 	.
	scf			;0532	37 	7
	ret			;0533	c9 	.

fact_reg.Y:
	call get.decdigit	;0534	cd 1d 06 	. . .
	jp c,ERROR		;0537	da 07 01 	. . .
	inc de			;053a	13 	.
	add a,a			;053b	87 	.
	ld hl,reg_Y		;053c	21 9e 0b 	! . .
	call add_hl_a		;053f	cd b9 02 	. . .
	ld a,(hl)		;0542	7e 	~
	inc hl			;0543	23 	#
	ld h,(hl)		;0544	66 	f
	ld l,a			;0545	6f 	o
	and a			;0546	a7 	.
	ret			;0547	c9 	.

fact_factstring:
	ld hl,0			;0548	21 00 00 	! . .
l054bh:
	ld a,(de)		;054b	1a 	.
	cp ''''			;054c	fe 27 	. '
	jr z,l0557h		;054e	28 07 	( .
	and a			;0550	a7 	.
	ret z			;0551	c8 	.
l0552h:
	ld h,l			;0552	65 	e
	ld l,a			;0553	6f 	o
	inc de			;0554	13 	.
	jr l054bh		;0555	18 f4 	. .
l0557h:
	inc de			;0557	13 	.
	ld a,(de)		;0558	1a 	.
	cp ''''			;0559	fe 27 	. '
	jr z,l0552h		;055b	28 f5 	( .
	sub '.'			;055d	d6 2e 	. .
	or a			;055f	b7 	.
	ret nz			;0560	c0 	.
	inc de			;0561	13 	.
	set 7,l			;0562	cb fd 	. .
	ret			;0564	c9 	.

fact_reg.CPU:
	call sub_0caeh		;0565	cd ae 0c 	. . .
	jr nc,error4		;0568	30 3d 	0 =
	ld a,(hl)		;056a	7e 	~
	inc hl			;056b	23 	#
	ld h,(hl)		;056c	66 	f
	ld l,a			;056d	6f 	o
	and a			;056e	a7 	.
	bit 0,c			;056f	cb 41 	. A
	ret nz			;0571	c0 	.
	ld h,000h		;0572	26 00 	& .
	ret			;0574	c9 	.

fact_factneg:
	call fact_factor	;0575	cd dd 04 	. . .
	dec hl			;0578	2b 	+
cpl.hl:
	ld a,h			;0579	7c 	|
	cpl			;057a	2f 	/
	ld h,a			;057b	67 	g
	ld a,l			;057c	7d 	}
	cpl			;057d	2f 	/
	ld l,a			;057e	6f 	o
	ret			;057f	c9 	.

fact_factinv:
	call fact_factor	;0580	cd dd 04 	. . .
	jr cpl.hl		;0583	18 f4 	. .

fact_mem:
	call expr1		;0585	cd c1 03 	. . .
	jr c,error4		;0588	38 1d 	8 .
	ld a,(de)		;058a	1a 	.
	cp ')'			;058b	fe 29 	. )
	jr nz,error4		;058d	20 18 	  .
	inc de			;058f	13 	.
	ld a,(hl)		;0590	7e 	~
	inc hl			;0591	23 	#
	ld h,(hl)		;0592	66 	f
	ld l,a			;0593	6f 	o
	ld a,(de)		;0594	1a 	.
	inc de			;0595	13 	.
	cp '.'			;0596	fe 2e 	. .
	ret z			;0598	c8 	.
	dec de			;0599	1b 	.
	xor a			;059a	af 	.
	ld h,a			;059b	67 	g
	ret			;059c	c9 	.

expr_brckt:
	call expr1		;059d	cd c1 03 	. . .
	jr c,error4		;05a0	38 05 	8 .
	ld a,(de)		;05a2	1a 	.
	cp ']'			;05a3	fe 5d 	. ]
	inc de			;05a5	13 	.
	ret z			;05a6	c8 	.
error4:
	jp ERROR		;05a7	c3 07 01 	. . .

get.number:
	call get.hexdigit	;05aa	cd 11 06 	. . .
	ret c			;05ad	d8 	.
	push de			;05ae	d5 	.
test_number:
	inc de			;05af	13 	.
	call get.hexdigit	;05b0	cd 11 06 	. . .
	jr nc,test_number	;05b3	30 fa 	0 .
	pop de			;05b5	d1 	.
	cp '.'			;05b6	fe 2e 	. .
	jr z,get_dec_number	;05b8	28 36 	( 6
	cp '"'			;05ba	fe 22 	. "
	jr z,get_bin_number	;05bc	28 17 	( .
	ld hl,0			;05be	21 00 00 	! . .
next_hexdigit:
	call get.hexdigit	;05c1	cd 11 06 	. . .
	jr c,hexnum_done	;05c4	38 0a 	8 .
	add hl,hl		;05c6	29 	)
	add hl,hl		;05c7	29 	)
	add hl,hl		;05c8	29 	)
	add hl,hl		;05c9	29 	)
	call add_hl_a		;05ca	cd b9 02 	. . .
	inc de			;05cd	13 	.
	jr next_hexdigit	;05ce	18 f1 	. .

hexnum_done:
	xor 'H'			;05d0	ee 48 	. H
	ret nz			;05d2	c0 	.
	inc de			;05d3	13 	.
	ret			;05d4	c9 	.

get_bin_number:
	ld hl,0			;05d5	21 00 00 	! . .
next_bindigit:
	call get.bindigit	;05d8	cd 22 06 	. " .
l05dbh:
	inc de			;05db	13 	.
	jr c,l05e4h		;05dc	38 06 	8 .
	add hl,hl		;05de	29 	)
	call add_hl_a		;05df	cd b9 02 	. . .
	jr next_bindigit	;05e2	18 f4 	. .
l05e4h:
	cp '"'			;05e4	fe 22 	. "
	jp nz,ERROR		;05e6	c2 07 01 	. . .
	call get.bindigit	;05e9	cd 22 06 	. " .
	jr nc,l05dbh		;05ec	30 ed 	0 .
	or a			;05ee	b7 	.
	ret			;05ef	c9 	.

get_dec_number:
	ld hl,0			;05f0	21 00 00 	! . .
next_decdigit:
	call get.decdigit	;05f3	cd 1d 06 	. . .
	inc de			;05f6	13 	.
	jr c,decnum_done	;05f7	38 0d 	8 .
	push bc			;05f9	c5 	.
	add hl,hl		;05fa	29 	)
	ld b,h			;05fb	44 	D
	ld c,l			;05fc	4d 	M
	add hl,hl		;05fd	29 	)
	add hl,hl		;05fe	29 	)
	add hl,bc		;05ff	09 	.
	pop bc			;0600	c1 	.
	call add_hl_a		;0601	cd b9 02 	. . .
	jr next_decdigit	;0604	18 ed 	. .
decnum_done:
	cp '.'			;0606	fe 2e 	. .
	ret z			;0608	c8 	.
	jp ERROR		;0609	c3 07 01 	. . .

sub_060ch:
	ld a,(de)		;060c	1a 	.
	cp '['			;060d	fe 5b 	. [
	jr l0614h		;060f	18 03 	. .

get.hexdigit:
	ld a,(de)		;0611	1a 	.
hex_digit:
	cp 'F'+1		;0612	fe 47 	. G
l0614h:
	ccf			;0614	3f 	?
	ret c			;0615	d8 	.
	cp 'A'			;0616	fe 41 	. A
	jr c,l061eh		;0618	38 04 	8 .
	sub 'A'-10		;061a	d6 37 	. 7
	ret			;061c	c9 	.

get.decdigit:
	ld a,(de)		;061d	1a 	.
l061eh:
	cp '9'+1		;061e	fe 3a 	. :
	jr l0625h		;0620	18 03 	. .

get.bindigit:
	ld a,(de)		;0622	1a 	.
	cp '1'+1		;0623	fe 32 	. 2
l0625h:
	ccf			;0625	3f 	?
	ret c			;0626	d8 	.
	cp '0'			;0627	fe 30 	. 0
	ret c			;0629	d8 	.
	sub '0'			;062a	d6 30 	. 0
	ret			;062c	c9 	.

p_cpustat0:
	call assert_eol		;062d	cd d6 02 	. . .
p_cpustat:
	call p_f		;0630	cd 6e 06 	. n .
	call outbl2		;0633	cd 9c 02 	. . .
	ld hl,b_06e9_start	;0636	21 e9 06 	! . .
	ld de,b_0709_start	;0639	11 09 07 	. . .
	ld b,6			;063c	06 06 	. .
l063eh:
	call p_regs		;063e	cd b2 06 	. . .
	djnz l063eh		;0641	10 fb 	. .
	push hl			;0643	e5 	.
	push de			;0644	d5 	.
	ld iy,(REG.PC)		;0645	fd 2a 60 00 	. * ` .
	call p_disas_instr	;0649	cd 65 19 	. e .
	exx			;064c	d9 	.
	ex af,af'		;064d	08 	.
	call crlf		;064e	cd a3 02 	. . .
	call p_f2		;0651	cd 81 06 	. . .
	call outbl2		;0654	cd 9c 02 	. . .
	pop de			;0657	d1 	.
	pop hl			;0658	e1 	.
	ld b,7			;0659	06 07 	. .
l065bh:
	call p_regs		;065b	cd b2 06 	. . .
	djnz l065bh		;065e	10 fb 	. .
	exx			;0660	d9 	.
	ex af,af'		;0661	08 	.
	and a			;0662	a7 	.
	jr z,l066bh		;0663	28 06 	( .
	call outbl6		;0665	cd 96 02 	. . .
	call p_offset		;0668	cd 49 19 	. I .
l066bh:
	jp crlf			;066b	c3 a3 02 	. . .

p_f:
	ld a,(reg.f)		;066e	3a 54 00 	: T .
	call p_flags		;0671	cd 8a 06 	. . .
	ld a,(reg.iff)		;0674	3a 5e 00 	: ^ .
	cp 0f3h			;0677	fe f3 	. .
	jp z,outbl		;0679	ca 9f 02 	. . .
	ld a,'E'		;067c	3e 45 	> E
	jp outchar		;067e	c3 5d 02 	. ] .
p_f2:
	ld a,(reg.f2)		;0681	3a 4c 00 	: L .
	call p_flags		;0684	cd 8a 06 	. . .
	jp outbl		;0687	c3 9f 02 	. . .
p_flags:
	ld b,a			;068a	47 	G
	ld a,'S'		;068b	3e 53 	> S
	call sub_06aah		;068d	cd aa 06 	. . .
	ld a,'Z'		;0690	3e 5a 	> Z
	call sub_06aah		;0692	cd aa 06 	. . .
	rl b			;0695	cb 10 	. .
	ld a,'H'		;0697	3e 48 	> H
	call sub_06aah		;0699	cd aa 06 	. . .
	rl b			;069c	cb 10 	. .
	ld a,'V'		;069e	3e 56 	> V
	call sub_06aah		;06a0	cd aa 06 	. . .
	ld a,'N'		;06a3	3e 4e 	> N
	call sub_06aah		;06a5	cd aa 06 	. . .
	ld a,'C'		;06a8	3e 43 	> C
sub_06aah:
	rl b			;06aa	cb 10 	. .
	jp c,outchar		;06ac	da 5d 02 	. ] .
	jp outbl		;06af	c3 9f 02 	. . .

p_regs:
	push bc			;06b2	c5 	.
	push de			;06b3	d5 	.
	call pstr		;06b4	cd 88 02 	. . .
	ld a,'='		;06b7	3e 3d 	> =
	call outchar		;06b9	cd 5d 02 	. ] .
	ex (sp),hl		;06bc	e3 	.
	ld e,(hl)		;06bd	5e 	^
	inc hl			;06be	23 	#
	ld d,(hl)		;06bf	56 	V
	inc hl			;06c0	23 	#
	ld a,(hl)		;06c1	7e 	~
	inc hl			;06c2	23 	#
	push hl			;06c3	e5 	.
	and a			;06c4	a7 	.
	jr z,l06deh		;06c5	28 17 	( .
	push af			;06c7	f5 	.
	ld a,(de)		;06c8	1a 	.
	ld l,a			;06c9	6f 	o
	inc de			;06ca	13 	.
	ld a,(de)		;06cb	1a 	.
	ld h,a			;06cc	67 	g
	pop af			;06cd	f1 	.
	dec a			;06ce	3d 	=
	jr z,l06d9h		;06cf	28 08 	( .
	call out.hl.@		;06d1	cd a4 01 	. . .
	call z,outbl6		;06d4	cc 96 02 	. . .
	jr l06e2h		;06d7	18 09 	. .
l06d9h:
	call out_hl		;06d9	cd 13 02 	. . .
	jr l06e2h		;06dc	18 04 	. .
l06deh:
	ld a,(de)		;06de	1a 	.
	call out_hex		;06df	cd 18 02 	. . .
l06e2h:
	call outbl		;06e2	cd 9f 02 	. . .
	pop de			;06e5	d1 	.
	pop hl			;06e6	e1 	.
	pop bc			;06e7	c1 	.
	ret			;06e8	c9 	.

b_06e9_start:
	DC	'A '
	DC	'BC '
	DC	'DE '
	DC	'HL '
	DC	'SP'
	DC	'PC'
	DC	'A'''
	DC	'BC'''
	DC	'DE'''
	DC	'HL'''
	DC	'IX'
	DC	'IY'
	DC	'I'
	DB	0

b_0709_start:
	defw reg.a		;0709	55 00 	U .
	defb 000h		;070b	00 	.
	defw reg.c		;070c	56 00 	V .
	defb 001h		;070e	01 	.
	defw reg.e		;070f	58 00 	X .
	defb 001h		;0711	01 	.
	defw reg.l		;0712	5a 00 	Z .
	defb 001h		;0714	01 	.
	defw reg_sp		;0715	5c 00 	\ .
	defb 001h		;0717	01 	.
	defw REG.PC		;0718	60 00 	` .
	defb 002h		;071a	02 	.
	defw reg.a2		;071b	4d 00 	M .
	defb 000h		;071d	00 	.
	defw reg.c2		;071e	4a 00 	J .
	defb 001h		;0720	01 	.
	defw reg.e2		;0721	48 00 	H .
	defb 001h		;0723	01 	.
	defw reg.l2		;0724	46 00 	F .
	defb 001h		;0726	01 	.
	defw reg.ix		;0727	52 00 	R .
	defb 001h		;0729	01 	.
	defw reg.iy		;072a	50 00 	P .
	defb 001h		;072c	01 	.
	defw reg.i		;072d	4f 00 	O .
	defb 000h		;072f	00 	.
	defb 000h		;0730	00 	.

cmd_G:
	sub a			;0731	97 	.
	ld (trace_call_flag),a	;0732	32 e3 21 	2 . !
	ld (l0941h),a		;0735	32 41 09 	2 A .
	call expr		;0738	cd be 03 	. . .
	jr c,l0740h		;073b	38 03 	8 .
	ld (REG.PC),hl		;073d	22 60 00 	" ` .
l0740h:
	call skipbl		;0740	cd bf 02 	. . .
	jp z,user_go		;0743	ca 25 0a 	. % .
	cp ';'			;0746	fe 3b 	. ;
	jp nz,ERROR		;0748	c2 07 01 	. . .
	inc de			;074b	13 	.
	ld a,002h		;074c	3e 02 	> .
	call bp_enter		;074e	cd 10 08 	. . .
	jp user_go		;0751	c3 25 0a 	. % .

bp_clr_temporary:
	ld b,BP_CNT		;0754	06 0c 	. .
	ld ix,bp_tab		;0756	dd 21 b8 0a 	. ! . .
l075ah:
	ld a,(ix+000h)		;075a	dd 7e 00 	. ~ .
	and 0f1h		;075d	e6 f1 	. .
	ld (ix+000h),a		;075f	dd 77 00 	. w .
	call bp_clr_condition	;0762	cd 5f 0a 	. _ .
	ld de,BP_SIZE		;0765	11 08 00 	. . .
	add ix,de		;0768	dd 19 	. .
	djnz l075ah		;076a	10 ee 	. .
	ret			;076c	c9 	.

cmd_B:
	call skipbl		;076d	cd bf 02 	. . .
	jr z,l07b7h		;0770	28 45 	( E
	inc de			;0772	13 	.
	cp 'X'			;0773	fe 58 	. X
	jr z,l077dh		;0775	28 06 	( .
	dec de			;0777	1b 	.
	ld a,001h		;0778	3e 01 	> .
	jp bp_enter		;077a	c3 10 08 	. . .
l077dh:
	call skipbl		;077d	cd bf 02 	. . .
	jr z,bp_clr_all		;0780	28 10 	( .
l0782h:
	call expr		;0782	cd be 03 	. . .
	jp c,assert_eol		;0785	da d6 02 	. . .
	push de			;0788	d5 	.
	call bp_clr		;0789	cd 93 07 	. . .
	pop de			;078c	d1 	.
	call next_arg		;078d	cd ca 02 	. . .
	jr l0782h		;0790	18 f0 	. .

bp_clr_all:
	scf			;0792	37 	7
bp_clr:
	ld b,BP_CNT		;0793	06 0c 	. .
	ld ix,bp_tab		;0795	dd 21 b8 0a 	. ! . .
l0799h:
	push af			;0799	f5 	.
	jr c,l07a7h		;079a	38 0b 	8 .
	ld e,(ix+002h)		;079c	dd 5e 02 	. ^ .
	ld d,(ix+003h)		;079f	dd 56 03 	. V .
	call cp_hl_de		;07a2	cd ee 02 	. . .
	jr nz,l07aeh		;07a5	20 07 	  .
l07a7h:
	ld (ix+000h),000h	;07a7	dd 36 00 00 	. 6 . .
	call bp_clr_condition	;07ab	cd 5f 0a 	. _ .
l07aeh:
	ld de,BP_SIZE		;07ae	11 08 00 	. . .
	add ix,de		;07b1	dd 19 	. .
	pop af			;07b3	f1 	.
	djnz l0799h		;07b4	10 e3 	. .
	ret			;07b6	c9 	.

l07b7h:
	ld b,BP_CNT		;07b7	06 0c 	. .
	ld ix,bp_tab		;07b9	dd 21 b8 0a 	. ! . .
l07bdh:
	bit 0,(ix+000h)		;07bd	dd cb 00 46 	. . . F
	jr z,l0808h		;07c1	28 45 	( E
	ld a,'R'		;07c3	3e 52 	> R
	bit 4,(ix+000h)		;07c5	dd cb 00 66 	. . . f
	jr nz,l07cdh		;07c9	20 02 	  .
	ld a,' '		;07cb	3e 20 	>
l07cdh:
	call outchar		;07cd	cd 5d 02 	. ] .
	call outbl		;07d0	cd 9f 02 	. . .
	ld l,(ix+002h)		;07d3	dd 6e 02 	. n .
	ld h,(ix+003h)		;07d6	dd 66 03 	. f .
	call out.hl.@		;07d9	cd a4 01 	. . .
	call outbl2		;07dc	cd 9c 02 	. . .
	ld a,':'		;07df	3e 3a 	> :
	call outchar		;07e1	cd 5d 02 	. ] .
	ld l,(ix+004h)		;07e4	dd 6e 04 	. n .
	ld h,(ix+005h)		;07e7	dd 66 05 	. f .
	call out_hl		;07ea	cd 13 02 	. . .
	ld l,(ix+006h)		;07ed	dd 6e 06 	. n .
	ld h,(ix+007h)		;07f0	dd 66 07 	. f .
	ld a,h			;07f3	7c 	|
	or l			;07f4	b5 	.
	jr z,l0805h		;07f5	28 0e 	( .
	call outbl4		;07f7	cd 99 02 	. . .
	ld a,'I'		;07fa	3e 49 	> I
	call outchar		;07fc	cd 5d 02 	. ] .
	call outbl2		;07ff	cd 9c 02 	. . .
	call pstr		;0802	cd 88 02 	. . .
l0805h:
	call crlf		;0805	cd a3 02 	. . .
l0808h:
	ld de,BP_SIZE		;0808	11 08 00 	. . .
	add ix,de		;080b	dd 19 	. .
	djnz l07bdh		;080d	10 ae 	. .
	ret			;080f	c9 	.

; Add break points to list
;   A = 1	 Permanent (B command)
;   A = 2	 Temporary (G command)

bp_enter:
	ld b,a			;0810	47 	G
	call skipbl		;0811	cd bf 02 	. . .
	ret z			;0814	c8 	.
	cp 'R'			;0815	fe 52 	. R
	jr nz,l081ch		;0817	20 03 	  .
	inc de			;0819	13 	.
	set 4,b			;081a	cb e0 	. .
l081ch:
	push bc			;081c	c5 	.
	call expr		;081d	cd be 03 	. . .
	jp c,ERROR		;0820	da 07 01 	. . .
	pop bc			;0823	c1 	.
	bit 0,b			;0824	cb 40 	. @
	push bc			;0826	c5 	.
	push de			;0827	d5 	.
	push hl			;0828	e5 	.
	call nz,bp_clr		;0829	c4 93 07 	. . .
	pop hl			;082c	e1 	.
	call bp_get_freeslot	;082d	cd 54 08 	. T .
	pop de			;0830	d1 	.
	ld (ix+002h),l		;0831	dd 75 02 	. u .
	ld (ix+003h),h		;0834	dd 74 03 	. t .
	call bp_get_count	;0837	cd 6c 08 	. l .
	ld (ix+004h),l		;083a	dd 75 04 	. u .
	ld (ix+005h),h		;083d	dd 74 05 	. t .
	call bp_get_condition	;0840	cd 7d 08 	. } .
	ld (ix+006h),l		;0843	dd 75 06 	. u .
	ld (ix+007h),h		;0846	dd 74 07 	. t .
	call next_arg		;0849	cd ca 02 	. . .
	pop af			;084c	f1 	.
	ld (ix+000h),a		;084d	dd 77 00 	. w .
	and 00fh		;0850	e6 0f 	. .
	jr bp_enter		;0852	18 bc 	. .

bp_get_freeslot:
	ld b,BP_CNT		;0854	06 0c 	. .
	ld ix,bp_tab		;0856	dd 21 b8 0a 	. ! . .
l085ah:
	ld a,(ix+000h)		;085a	dd 7e 00 	. ~ .
	and 00fh		;085d	e6 0f 	. .
	ret z			;085f	c8 	.
	push bc			;0860	c5 	.
	ld bc,BP_SIZE		;0861	01 08 00 	. . .
	add ix,bc		;0864	dd 09 	. .
	pop bc			;0866	c1 	.
	djnz l085ah		;0867	10 f1 	. .
	jp ERROR		;0869	c3 07 01 	. . .

bp_get_count:
	call skipbl		;086c	cd bf 02 	. . .
	ld hl,1			;086f	21 01 00 	! . .
	cp ':'			;0872	fe 3a 	. :
	ret nz			;0874	c0 	.
	inc de			;0875	13 	.
	call expr		;0876	cd be 03 	. . .
	jp c,ERROR		;0879	da 07 01 	. . .
	ret			;087c	c9 	.

bp_get_condition:
	call skipbl		;087d	cd bf 02 	. . .
	cp 'I'			;0880	fe 49 	. I
	ld hl,0			;0882	21 00 00 	! . .
	ret nz			;0885	c0 	.
	inc de			;0886	13 	.
	call skipbl		;0887	cd bf 02 	. . .
	push de			;088a	d5 	.
	call expr		;088b	cd be 03 	. . .
	jp c,ERROR		;088e	da 07 01 	. . .
	ex de,hl		;0891	eb 	.
	pop de			;0892	d1 	.
	push de			;0893	d5 	.
	sbc hl,de		;0894	ed 52 	. R
	ld b,h			;0896	44 	D
	ld c,l			;0897	4d 	M
	ld hl,(expr_p1)		;0898	2a 18 0b 	* . .
	push hl			;089b	e5 	.
	add hl,bc		;089c	09 	.
	ld de,expr_bufe		;089d	11 9c 0b 	. . .
	call cp_hl_de		;08a0	cd ee 02 	. . .
	jp nc,ERROR		;08a3	d2 07 01 	. . .
	pop hl			;08a6	e1 	.
	ld (expr_p2),hl		;08a7	22 1a 0b 	" . .
	pop de			;08aa	d1 	.
	ex de,hl		;08ab	eb 	.
	ldir			;08ac	ed b0 	. .
	xor a			;08ae	af 	.
	ld (de),a		;08af	12 	.
	inc de			;08b0	13 	.
	ex de,hl		;08b1	eb 	.
	ld (expr_p1),hl		;08b2	22 18 0b 	" . .
	ld hl,(expr_p2)		;08b5	2a 1a 0b 	* . .
	ret			;08b8	c9 	.

bpddtz:
	ld (reg.l),hl		;08b9	22 5a 00 	" Z .
	pop hl			;08bc	e1 	.
	dec hl			;08bd	2b 	+
	ld (REG.PC),hl		;08be	22 60 00 	" ` .
	ld (reg_sp),sp		;08c1	ed 73 5c 00 	. s \ .
	ld sp,reg.l		;08c5	31 5a 00 	1 Z .
	push de			;08c8	d5 	.
	push bc			;08c9	c5 	.
	push af			;08ca	f5 	.
	push ix			;08cb	dd e5 	. .
	push iy			;08cd	fd e5 	. .
	ld a,i			;08cf	ed 57 	. W
	call sub_0004h		;08d1	cd 04 00 	. . .
	ld h,a			;08d4	67 	g
	ld l,000h		;08d5	2e 00 	. .
	push hl			;08d7	e5 	.
	ld a,0f3h		;08d8	3e f3 	> .
	jp po,l08dfh		;08da	e2 df 08 	. . .
	ld a,0fbh		;08dd	3e fb 	> .
l08dfh:
	ld (reg.iff),a		;08df	32 5e 00 	2 ^ .
	ex af,af'		;08e2	08 	.
	push af			;08e3	f5 	.
	exx			;08e4	d9 	.
	push bc			;08e5	c5 	.
	push de			;08e6	d5 	.
	push hl			;08e7	e5 	.
	call sub_097ah		;08e8	cd 7a 09 	. z .
	ld a,(b_21e2_start)	;08eb	3a e2 21 	: . !
	dec a			;08ee	3d 	=
	jr z,l090bh		;08ef	28 1a 	( .
	call inchar		;08f1	cd 73 02 	. s .
	jr c,l0902h		;08f4	38 0c 	8 .
	call sub_0913h		;08f6	cd 13 09 	. . .
	and a			;08f9	a7 	.
	jp z,user_go		;08fa	ca 25 0a 	. % .
	and 083h		;08fd	e6 83 	. .
	jp z,l2151h		;08ff	ca 51 21 	. Q !
l0902h:
	call bp_clr_temporary	;0902	cd 54 07 	. T .
	call p_cpustat		;0905	cd 30 06 	. 0 .
	jp mainloop		;0908	c3 bd 00 	. . .

l090bh:
	ld (b_21e2_start),a	;090b	32 e2 21 	2 . !
	ld c,007h		;090e	0e 07 	. .
	jp l0a41h		;0910	c3 41 0a 	. A .

sub_0913h:
	ld a,080h		;0913	3e 80 	> .
	ex af,af'		;0915	08 	.
	sub a			;0916	97 	.
	ld (l0941h),a		;0917	32 41 09 	2 A .
	ld b,BP_CNT		;091a	06 0c 	. .
	ld ix,bp_tab		;091c	dd 21 b8 0a 	. ! . .
l0920h:
	ld a,(ix+000h)		;0920	dd 7e 00 	. ~ .
	and 007h		;0923	e6 07 	. .
	jr z,l0938h		;0925	28 11 	( .
	ld e,(ix+002h)		;0927	dd 5e 02 	. ^ .
	ld d,(ix+003h)		;092a	dd 56 03 	. V .
	ld hl,(REG.PC)		;092d	2a 60 00 	* ` .
	call cp_hl_de		;0930	cd ee 02 	. . .
	push bc			;0933	c5 	.
	call z,sub_0942h	;0934	cc 42 09 	. B .
	pop bc			;0937	c1 	.
l0938h:
	ld de,BP_SIZE		;0938	11 08 00 	. . .
	add ix,de		;093b	dd 19 	. .
	djnz l0920h		;093d	10 e1 	. .
	ex af,af'		;093f	08 	.
	ret			;0940	c9 	.

l0941h:
	db	0		;0941	00 	.

sub_0942h:
	ex af,af'		;0942	08 	.
	res 7,a			;0943	cb bf 	. .
	ex af,af'		;0945	08 	.
	ld e,(ix+006h)		;0946	dd 5e 06 	. ^ .
	ld d,(ix+007h)		;0949	dd 56 07 	. V .
	ld a,d			;094c	7a 	z
	or e			;094d	b3 	.
	ld hl,0ffffh		;094e	21 ff ff 	! . .
	call nz,expr		;0951	c4 be 03 	. . .
	ld a,h			;0954	7c 	|
	or l			;0955	b5 	.
	jr z,l0969h		;0956	28 11 	( .
	ld e,(ix+004h)		;0958	dd 5e 04 	. ^ .
	ld d,(ix+005h)		;095b	dd 56 05 	. V .
	dec de			;095e	1b 	.
	ld a,d			;095f	7a 	z
	or e			;0960	b3 	.
	jr z,l0974h		;0961	28 11 	( .
	ld (ix+004h),e		;0963	dd 73 04 	. s .
	ld (ix+005h),d		;0966	dd 72 05 	. r .
l0969h:
	bit 4,(ix+000h)		;0969	dd cb 00 66 	. . . f
	ret z			;096d	c8 	.
	ld a,001h		;096e	3e 01 	> .
	ld (l0941h),a		;0970	32 41 09 	2 A .
	ret			;0973	c9 	.
l0974h:
	ex af,af'		;0974	08 	.
	or (ix+000h)		;0975	dd b6 00 	. . .
	ex af,af'		;0978	08 	.
	ret			;0979	c9 	.

sub_097ah:
	ld b,BP_CNT		;097a	06 0c 	. .
	ld ix,bp_tab		;097c	dd 21 b8 0a 	. ! . .
l0980h:
	bit 5,(ix+000h)		;0980	dd cb 00 6e 	. . . n
	res 5,(ix+000h)		;0984	dd cb 00 ae 	. . . .
	jr z,l099ah		;0988	28 10 	( .
	ld l,(ix+002h)		;098a	dd 6e 02 	. n .
	ld h,(ix+003h)		;098d	dd 66 03 	. f .
	ld a,(l0003h)		;0990	3a 03 00 	: . .
	cp (hl)			;0993	be 	.
	jr nz,l099ah		;0994	20 04 	  .
	ld a,(ix+001h)		;0996	dd 7e 01 	. ~ .
	ld (hl),a		;0999	77 	w
l099ah:
	res 3,(ix+000h)		;099a	dd cb 00 9e 	. . . .
	ld de,BP_SIZE		;099e	11 08 00 	. . .
	add ix,de		;09a1	dd 19 	. .
	djnz l0980h		;09a3	10 db 	. .
	ret			;09a5	c9 	.

sub_09a6h:
	ld b,BP_CNT		;09a6	06 0c 	. .
	ld ix,bp_tab		;09a8	dd 21 b8 0a 	. ! . .
l09ach:
	ld a,(ix+000h)		;09ac	dd 7e 00 	. ~ .
	and 003h		;09af	e6 03 	. .
	jr z,l09c0h		;09b1	28 0d 	( .
	ld e,(ix+002h)		;09b3	dd 5e 02 	. ^ .
	ld d,(ix+003h)		;09b6	dd 56 03 	. V .
	ld hl,(REG.PC)		;09b9	2a 60 00 	* ` .
	call cp_hl_de		;09bc	cd ee 02 	. . .
	ret z			;09bf	c8 	.
l09c0h:
	ld de,BP_SIZE		;09c0	11 08 00 	. . .
	add ix,de		;09c3	dd 19 	. .
	djnz l09ach		;09c5	10 e5 	. .
	sub a			;09c7	97 	.
	inc a			;09c8	3c 	<
	ret			;09c9	c9 	.

sub_09cah:
	call bp_get_freeslot	;09ca	cd 54 08 	. T .
	ld (ix+004h),001h	;09cd	dd 36 04 01 	. 6 . .
	ld (ix+005h),000h	;09d1	dd 36 05 00 	. 6 . .
	ld (ix+002h),l		;09d5	dd 75 02 	. u .
	ld (ix+003h),h		;09d8	dd 74 03 	. t .
	ld (ix+006h),000h	;09db	dd 36 06 00 	. 6 . .
	ld (ix+007h),000h	;09df	dd 36 07 00 	. 6 . .
	ld a,(b_21e2_start)	;09e3	3a e2 21 	: . !
	and a			;09e6	a7 	.
	ld a,008h		;09e7	3e 08 	> .
	jr nz,l09edh		;09e9	20 02 	  .
	ld a,004h		;09eb	3e 04 	> .
l09edh:
	ld (ix+000h),a		;09ed	dd 77 00 	. w .
	ret			;09f0	c9 	.

sub_09f1h:
	ld b,BP_CNT		;09f1	06 0c 	. .
	ld ix,bp_tab		;09f3	dd 21 b8 0a 	. ! . .
l09f7h:
	ld a,(ix+000h)		;09f7	dd 7e 00 	. ~ .
	and c			;09fa	a1 	.
	jr z,l0a1dh		;09fb	28 20 	(
	set 5,(ix+000h)		;09fd	dd cb 00 ee 	. . . .
	ld l,(ix+002h)		;0a01	dd 6e 02 	. n .
	ld h,(ix+003h)		;0a04	dd 66 03 	. f .
	ld a,(hl)		;0a07	7e 	~
	ld (ix+001h),a		;0a08	dd 77 01 	. w .
	ld a,(l0003h)		;0a0b	3a 03 00 	: . .
	ld (hl),a		;0a0e	77 	w
	and 038h		;0a0f	e6 38 	. 8
	ld h,000h		;0a11	26 00 	& .
	ld l,a			;0a13	6f 	o
	ld (hl),0c3h		;0a14	36 c3 	6 .
	inc hl			;0a16	23 	#
	ld de,bpddtz		;0a17	11 b9 08 	. . .
	ld (hl),e		;0a1a	73 	s
	inc hl			;0a1b	23 	#
	ld (hl),d		;0a1c	72 	r
l0a1dh:
	ld de,BP_SIZE		;0a1d	11 08 00 	. . .
	add ix,de		;0a20	dd 19 	. .
	djnz l09f7h		;0a22	10 d3 	. .
	ret			;0a24	c9 	.

user_go:
	sub a			;0a25	97 	.
	ld (b_21e2_start),a	;0a26	32 e2 21 	2 . !
	ld a,(l0941h)		;0a29	3a 41 09 	: A .
	and a			;0a2c	a7 	.
	call nz,p_cpustat	;0a2d	c4 30 06 	. 0 .
	call sub_09a6h		;0a30	cd a6 09 	. . .
	ld c,007h		;0a33	0e 07 	. .
	jr nz,l0a41h		;0a35	20 0a 	  .
	ld a,001h		;0a37	3e 01 	> .
	ld (b_21e2_start),a	;0a39	32 e2 21 	2 . !
	call sub_1ffeh		;0a3c	cd fe 1f 	. . .
	ld c,008h		;0a3f	0e 08 	. .
l0a41h:
	call sub_09f1h		;0a41	cd f1 09 	. . .
	ld sp,reg.l2		;0a44	31 46 00 	1 F .
	pop hl			;0a47	e1 	.
	pop de			;0a48	d1 	.
	pop bc			;0a49	c1 	.
	pop af			;0a4a	f1 	.
	exx			;0a4b	d9 	.
	ex af,af'		;0a4c	08 	.
	pop af			;0a4d	f1 	.
	ld i,a			;0a4e	ed 47 	. G
	pop iy			;0a50	fd e1 	. .
	pop ix			;0a52	dd e1 	. .
	pop af			;0a54	f1 	.
	pop bc			;0a55	c1 	.
	pop de			;0a56	d1 	.
	pop hl			;0a57	e1 	.
	ld sp,(reg_sp)		;0a58	ed 7b 5c 00 	. { \ .
	jp reg.iff		;0a5c	c3 5e 00 	. ^ .

bp_clr_condition:
	ld a,(ix+000h)		;0a5f	dd 7e 00 	. ~ .
	and 003h		;0a62	e6 03 	. .
	ret nz			;0a64	c0 	.
	ld e,(ix+006h)		;0a65	dd 5e 06 	. ^ .
	ld d,(ix+007h)		;0a68	dd 56 07 	. V .
	ld a,d			;0a6b	7a 	z
	or e			;0a6c	b3 	.
	ret z			;0a6d	c8 	.
	push bc			;0a6e	c5 	.
	ld h,d			;0a6f	62 	b
	ld l,e			;0a70	6b 	k
	sub a			;0a71	97 	.
	ld (ix+006h),a		;0a72	dd 77 06 	. w .
	ld (ix+007h),a		;0a75	dd 77 07 	. w .
	ld bc,0ffffh		;0a78	01 ff ff 	. . .
	cpir			;0a7b	ed b1 	. .
l0a7dh:
	push de			;0a7d	d5 	.
	ld de,(expr_p1)		;0a7e	ed 5b 18 0b 	. [ . .
	call cp_hl_de		;0a82	cd ee 02 	. . .
	pop de			;0a85	d1 	.
	jr nc,l0a93h		;0a86	30 0b 	0 .
	call sub_0a99h		;0a88	cd 99 0a 	. . .
l0a8bh:
	ld a,(hl)			;0a8b	7e 	~
	ldi			;0a8c	ed a0 	. .
	and a			;0a8e	a7 	.
	jr nz,l0a8bh		;0a8f	20 fa 	  .
	jr l0a7dh		;0a91	18 ea 	. .
l0a93h:
	ld (expr_p1),de		;0a93	ed 53 18 0b 	. S . .
	pop bc			;0a97	c1 	.
	ret			;0a98	c9 	.

sub_0a99h:
	ld iy,bp_tab		;0a99	fd 21 b8 0a 	. ! . .
	push de			;0a9d	d5 	.
l0a9eh:
	ld e,(iy+006h)		;0a9e	fd 5e 06 	. ^ .
	ld d,(iy+007h)		;0aa1	fd 56 07 	. V .
	call cp_hl_de		;0aa4	cd ee 02 	. . .
	jr z,l0ab0h		;0aa7	28 07 	( .
	ld de,BP_SIZE		;0aa9	11 08 00 	. . .
	add iy,de		;0aac	fd 19 	. .
	jr l0a9eh		;0aae	18 ee 	. .
l0ab0h:
	pop de			;0ab0	d1 	.
	ld (iy+006h),e		;0ab1	fd 73 06 	. s .
	ld (iy+007h),d		;0ab4	fd 72 07 	. r .
	ret			;0ab7	c9 	.

bp_tab:
	rept BP_CNT
	 rept BP_SIZE
	  db	0
	 endm
	endm

expr_p1:
	defw expr_buf		;0b18	1c 0b 	. .
expr_p2:
	defw expr_buf		;0b1a	1c 0b 	. .

expr_buf:
	db	'DDT/Z',TAB
	db	'[8101]',CR,LF,'$'
	db	000h		;0b2b	00 	.
	db	06dh		;0b2c	6d 	m
	db	085h		;0b2d	85 	.
	db	0cch		;0b2e	cc 	.
	db	0f6h		;0b2f	f6 	.
	db	053h		;0b30	53 	S
	db	05bh		;0b31	5b 	[

	ds	EXPR_BUF_SIZE - ($ - expr_buf)
expr_bufe:

msg_Y:
	dc	'Yn'		;0b9c	59 ee	Y n.
reg_Y:
	rept	YREG_CNT
	 dw	0
	endm

cmd_Y:
	call get.decdigit	;0bb2	cd 1d 06 	. . .
	jr c,l0bc3h		;0bb5	38 0c 	8 .
	inc de			;0bb7	13 	.
	push af			;0bb8	f5 	.
	call assert_eol		;0bb9	cd d6 02 	. . .
	pop af			;0bbc	f1 	.
	call sub_0bdch		;0bbd	cd dc 0b 	. . .
	jp l0c15h		;0bc0	c3 15 0c 	. . .
l0bc3h:
	call assert_eol		;0bc3	cd d6 02 	. . .
	xor a			;0bc6	af 	.
l0bc7h:
	push af			;0bc7	f5 	.
	call sub_0bdch		;0bc8	cd dc 0b 	. . .
	call outbl4		;0bcb	cd 99 02 	. . .
	pop af			;0bce	f1 	.
	inc a			;0bcf	3c 	<
	bit 0,a			;0bd0	cb 47 	. G
	push af			;0bd2	f5 	.
	call z,crlf		;0bd3	cc a3 02 	. . .
	pop af			;0bd6	f1 	.
	cp YREG_CNT		;0bd7	fe 0a 	. .
	jr c,l0bc7h		;0bd9	38 ec 	8 .
	ret			;0bdb	c9 	.

sub_0bdch:
	ld c,a			;0bdc	4f 	O
	ld b,0			;0bdd	06 00 	. .
	add a,'0'+080h		;0bdf	c6 b0 	. .
	ld de,msg_Y+1		;0be1	11 9d 0b 	. . .
	ld (de),a		;0be4	12 	.
	dec de			;0be5	1b 	.
	ld hl,reg_Y		;0be6	21 9e 0b 	! . .
	add hl,bc		;0be9	09 	.
	add hl,bc		;0bea	09 	.
	ex de,hl		;0beb	eb 	.
	ld c,003h		;0bec	0e 03 	. .
	jp l0c33h		;0bee	c3 33 0c 	. 3 .

cmd_X:
	call skipbl		;0bf1	cd bf 02 	. . .
	call sub_0caeh		;0bf4	cd ae 0c 	. . .
	jp nc,p_cpustat0	;0bf7	d2 2d 06 	. - .
	call assert_eol		;0bfa	cd d6 02 	. . .
	ld a,b			;0bfd	78 	x
	cp 01eh			;0bfe	fe 1e 	. .
	jr z,l0c5fh		;0c00	28 5d 	( ]
	cp 01fh			;0c02	fe 1f 	. .
	jr z,l0c4fh		;0c04	28 49 	( I
	cp 01dh			;0c06	fe 1d 	. .
	jp z,ERROR		;0c08	ca 07 01 	. . .
	ex de,hl		;0c0b	eb 	.
	ld hl,b_0cc3_start	;0c0c	21 c3 0c 	! . .
	call sel_dc_string	;0c0f	cd 3d 03 	. = .
l0c12h:
	call l0c33h		;0c12	cd 33 0c 	. 3 .
l0c15h:
	call outbl		;0c15	cd 9f 02 	. . .
	push de			;0c18	d5 	.
	push bc			;0c19	c5 	.
	call get_line		;0c1a	cd 4e 01 	. N .
	call skipbl		;0c1d	cd bf 02 	. . .
	jr z,l0c30h		;0c20	28 0e 	( .
	call sub_0363h		;0c22	cd 63 03 	. c .
	ld b,h			;0c25	44 	D
	ld c,l			;0c26	4d 	M
	pop af			;0c27	f1 	.
	pop hl			;0c28	e1 	.
	ld (hl),c		;0c29	71 	q
	bit 0,a			;0c2a	cb 47 	. G
	ret z			;0c2c	c8 	.
	inc hl			;0c2d	23 	#
	ld (hl),b		;0c2e	70 	p
	ret			;0c2f	c9 	.
l0c30h:
	pop af			;0c30	f1 	.
	pop hl			;0c31	e1 	.
	ret			;0c32	c9 	.
l0c33h:
	ld b,c			;0c33	41 	A
	call pstr		;0c34	cd 88 02 	. . .
	ld a,'='		;0c37	3e 3d 	> =
	call outchar		;0c39	cd 5d 02 	. ] .
	ld a,(de)		;0c3c	1a 	.
	bit 0,b			;0c3d	cb 40 	. @
	jp z,out_hex		;0c3f	ca 18 02 	. . .
	ld l,a			;0c42	6f 	o
	inc de			;0c43	13 	.
	ld a,(de)		;0c44	1a 	.
	dec de			;0c45	1b 	.
	ld h,a			;0c46	67 	g
	bit 1,b			;0c47	cb 48 	. H
	jp z,out_hl		;0c49	ca 13 02 	. . .
	jp out.hl.@		;0c4c	c3 a4 01 	. . .

l0c4fh:
	call p_f		;0c4f	cd 6e 06 	. n .
	ld a,0f3h		;0c52	3e f3 	> .
	ld (reg.iff),a		;0c54	32 5e 00 	2 ^ .
	scf			;0c57	37 	7
	call sub_0c6ah		;0c58	cd 6a 0c 	. j .
	ld (reg.f),a		;0c5b	32 54 00 	2 T .
	ret			;0c5e	c9 	.
l0c5fh:
	call p_f2		;0c5f	cd 81 06 	. . .
	and a			;0c62	a7 	.
	call sub_0c6ah		;0c63	cd 6a 0c 	. j .
	ld (reg.f2),a		;0c66	32 4c 00 	2 L .
	ret			;0c69	c9 	.
sub_0c6ah:
	ex af,af'		;0c6a	08 	.
	ld b,000h		;0c6b	06 00 	. .
	call outbl		;0c6d	cd 9f 02 	. . .
	call assert_eol		;0c70	cd d6 02 	. . .
	call get_line		;0c73	cd 4e 01 	. N .
l0c76h:
	call skipbl		;0c76	cd bf 02 	. . .
	ld a,b			;0c79	78 	x
	ret z			;0c7a	c8 	.
	push bc			;0c7b	c5 	.
	ld hl,b_0ca4_start	;0c7c	21 a4 0c 	! . .
	call lookupch		;0c7f	cd f3 02 	. . .
	jp nc,ERROR		;0c82	d2 07 01 	. . .
	ld a,b			;0c85	78 	x
	cp 008h			;0c86	fe 08 	. .
	jr z,l0c97h		;0c88	28 0d 	( .
	pop bc			;0c8a	c1 	.
	rlca			;0c8b	07 	.
	rlca			;0c8c	07 	.
	rlca			;0c8d	07 	.
	add a,0c0h		;0c8e	c6 c0 	. .
	ld (l0c94h),a		;0c90	32 94 0c 	2 . .
	defb 0cbh		;0c93	cb 	.
l0c94h:
	defb 0c0h		;0c94	c0 	.
	jr l0c76h		;0c95	18 df 	. .
l0c97h:
	ex af,af'		;0c97	08 	.
	jp nc,ERROR		;0c98	d2 07 01 	. . .
	ex af,af'		;0c9b	08 	.
	ld a,0fbh		;0c9c	3e fb 	> .
	ld (reg.iff),a		;0c9e	32 5e 00 	2 ^ .
	pop bc			;0ca1	c1 	.
	jr l0c76h		;0ca2	18 d2 	. .

b_0ca4_start:
	db	'CNV H ZSE',0

sub_0caeh:
	call sub_0303h		;0cae	cd 03 03 	. . .
	ret nc			;0cb1	d0 	.
	ld a,b			;0cb2	78 	x
	add a,b			;0cb3	80 	.
	add a,b			;0cb4	80 	.
	ld hl,b_0cfa_start	;0cb5	21 fa 0c 	! . .
	call add_hl_a		;0cb8	cd b9 02 	. . .
	ld c,(hl)		;0cbb	4e 	N
	inc hl			;0cbc	23 	#
	ld a,(hl)		;0cbd	7e 	~
	inc hl			;0cbe	23 	#
	ld h,(hl)		;0cbf	66 	f
	ld l,a			;0cc0	6f 	o
	scf			;0cc1	37 	7
	ret			;0cc2	c9 	.

b_0cc3_start:
	DC	'BC'''
	DC	'DE'''
	DC	'HL'''
	DC	'BC'
	DC	'DE'
	DC	'HL'
	DC	'A'''
	DC	'B'''
	DC	'C'''
	DC	'D'''
	DC	'E'''
	DC	'H'''
	DC	'L'''
	DC	'A'
	DC	'B'
	DC	'C'
	DC	'D'
	DC	'E'
	DC	'H'
	DC	'L'
	DC	'IX'
	DC	'IY'
	DC	'SP'
	DC	'PC'
	DC	'X'
	DC	'Y'
	DC	'S'
	DC	'P'
	DC	'I'
	DC	'IP'
	DC	'F'''
	DC	'F'
	DB	0

b_0cfa_start:
	defb 003h		;0cfa	03 	.
	defw reg.c2		;0cfb	4a 00 	J .
	defb 003h		;0cfd	03 	.
	defw reg.e2		;0cfe	48 00 	H .
	defb 003h		;0d00	03 	.
	defw reg.l2		;0d01	46 00 	F .
	defb 003h		;0d03	03 	.
	defw reg.c		;0d04	56 00 	V .
	defb 003h		;0d06	03 	.
	defw reg.e		;0d07	58 00 	X .
	defb 003h		;0d09	03 	.
	defw reg.l		;0d0a	5a 00 	Z .
	defb 000h		;0d0c	00 	.
	defw reg.a2		;0d0d	4d 00 	M .
	defb 000h		;0d0f	00 	.
	defw reg.b2		;0d10	4b 00 	K .
	defb 000h		;0d12	00 	.
	defw reg.c2		;0d13	4a 00 	J .
	defb 000h		;0d15	00 	.
	defw reg.d2		;0d16	49 00 	I .
	defb 000h		;0d18	00 	.
	defw reg.e2		;0d19	48 00 	H .
	defb 000h		;0d1b	00 	.
	defw reg.h2		;0d1c	47 00 	G .
	defb 000h		;0d1e	00 	.
	defw reg.l2		;0d1f	46 00 	F .
	defb 000h		;0d21	00 	.
	defw reg.a		;0d22	55 00 	U .
	defb 000h		;0d24	00 	.
	defw reg.b		;0d25	57 00 	W .
	defb 000h		;0d27	00 	.
	defw reg.c		;0d28	56 00 	V .
	defb 000h		;0d2a	00 	.
	defw reg.d		;0d2b	59 00 	Y .
	defb 000h		;0d2d	00 	.
	defw reg.e		;0d2e	58 00 	X .
	defb 000h		;0d30	00 	.
	defw reg.h		;0d31	5b 00 	[ .
	defb 000h		;0d33	00 	.
	defw reg.l		;0d34	5a 00 	Z .
	defb 003h		;0d36	03 	.
	defw reg.ix		;0d37	52 00 	R .
	defb 003h		;0d39	03 	.
	defw reg.iy		;0d3a	50 00 	P .
	defb 003h		;0d3c	03 	.
	defw reg_sp		;0d3d	5c 00 	\ .
	defb 003h		;0d3f	03 	.
	defw REG.PC		;0d40	60 00 	` .
	defb 003h		;0d42	03 	.
	defw reg.ix		;0d43	52 00 	R .
	defb 003h		;0d45	03 	.
	defw reg.iy		;0d46	50 00 	P .
	defb 003h		;0d48	03 	.
	defw reg_sp		;0d49	5c 00 	\ .
	defb 003h		;0d4b	03 	.
	defw REG.PC		;0d4c	60 00 	` .
	defb 000h		;0d4e	00 	.
	defw reg.i		;0d4f	4f 00 	O .
	defb 003h		;0d51	03 	.
	defw l004eh		;0d52	4e 00 	N .
	defb 000h		;0d54	00 	.
	defw reg.f2		;0d55	4c 00 	L .
	defb 000h		;0d57	00 	.
	defw reg.f		;0d58	54 00 	T .

cmd_S:
	ld hl,(last_S)		;0d5a	2a 90 0d 	* . .
	call get_lastarg_def	;0d5d	cd 69 03 	. i .
l0d60h:
	ld (last_S),hl		;0d60	22 90 0d 	" . .
	call out.hl.@		;0d63	cd a4 01 	. . .
	call outbl		;0d66	cd 9f 02 	. . .
	ld a,(hl)		;0d69	7e 	~
	call out_hex		;0d6a	cd 18 02 	. . .
	call outbl2		;0d6d	cd 9c 02 	. . .
	call get_line		;0d70	cd 4e 01 	. N .
	call skipbl		;0d73	cd bf 02 	. . .
	inc hl			;0d76	23 	#
	jr z,l0d60h		;0d77	28 e7 	( .
	dec hl			;0d79	2b 	+
	inc de			;0d7a	13 	.
	cp '.'			;0d7b	fe 2e 	. .
	jp z,assert_eol		;0d7d	ca d6 02 	. . .
	cp '-'			;0d80	fe 2d 	. -
	jr nz,l0d8ah		;0d82	20 06 	  .
	ld a,(de)		;0d84	1a 	.
	or a			;0d85	b7 	.
	dec hl			;0d86	2b 	+
	jr z,l0d60h		;0d87	28 d7 	( .
	inc hl			;0d89	23 	#
l0d8ah:
	dec de			;0d8a	1b 	.
	call sub_0ef8h		;0d8b	cd f8 0e 	. . .
	jr l0d60h		;0d8e	18 d0 	. .

last_S:
	defw TPA		;0d90	00 01 	. .
cmd_@:
	call assert_eol		;0d92	cd d6 02 	. . .
	ld hl,msg_offset	;0d95	21 a0 0d 	! . .
	ld de,offs.@		;0d98	11 64 00 	. d .
	ld c,001h		;0d9b	0e 01 	. .
	jp l0c12h		;0d9d	c3 12 0c 	. . .

msg_offset:
	dc	'@'		;0da0	c0 	.

last_I:
	defw 0			;0da1	00 00 	. .
cmd_I:
	ld hl,cmd_I		;0da3	21 a3 0d 	! . .
	ld (cmd_rpt),hl		;0da6	22 68 00 	" h .
	ld hl,(last_I)		;0da9	2a a1 0d 	* . .
	call get_lastarg_def	;0dac	cd 69 03 	. i .
	ld (last_I),hl		;0daf	22 a1 0d 	" . .
	ld b,h			;0db2	44 	D
	ld c,l			;0db3	4d 	M
	in a,(c)		;0db4	ed 78 	. x
	push af			;0db6	f5 	.
	call out_hex		;0db7	cd 18 02 	. . .
	call outbl4		;0dba	cd 99 02 	. . .
	pop af			;0dbd	f1 	.
	call out.bin.b		;0dbe	cd c7 01 	. . .
	jp crlf			;0dc1	c3 a3 02 	. . .

last_O_addr:
	dw	0		;0dc4	00 	.
last_O_val:
	db	0		;0dc6	00 	.
cmd_O:
	ld hl,cmd_O		;0dc7	21 c7 0d 	! . .
	ld (cmd_rpt),hl		;0dca	22 68 00 	" h .
	ld hl,(last_O_val)	;0dcd	2a c6 0d 	* . .
	call get_arg_def	;0dd0	cd 6e 03 	. n .
	ld a,l			;0dd3	7d 	}
	ld (last_O_val),a	;0dd4	32 c6 0d 	2 . .
	push af			;0dd7	f5 	.
	call next_arg		;0dd8	cd ca 02 	. . .
	ld hl,(last_O_addr)	;0ddb	2a c4 0d 	* . .
	call get_lastarg_def	;0dde	cd 69 03 	. i .
	ld (last_O_addr),hl	;0de1	22 c4 0d 	" . .
	ld b,h			;0de4	44 	D
	ld c,l			;0de5	4d 	M
	pop af			;0de6	f1 	.
	out (c),a		;0de7	ed 79 	. y
	ret			;0de9	c9 	.

cmd_V:
	call sub_034eh		;0dea	cd 4e 03 	. N .
l0dedh:
	push bc			;0ded	c5 	.
	ld a,(de)		;0dee	1a 	.
	ld b,(hl)		;0def	46 	F
	cp b			;0df0	b8 	.
	jr z,l0e10h		;0df1	28 1d 	( .
	ld c,a			;0df3	4f 	O
	call out.hl.@		;0df4	cd a4 01 	. . .
	call outbl		;0df7	cd 9f 02 	. . .
	ld a,b			;0dfa	78 	x
	call out_hex		;0dfb	cd 18 02 	. . .
	call outbl2		;0dfe	cd 9c 02 	. . .
	ld a,c			;0e01	79 	y
	call out_hex		;0e02	cd 18 02 	. . .
	call outbl		;0e05	cd 9f 02 	. . .
	ex de,hl		;0e08	eb 	.
	call out.hl.@		;0e09	cd a4 01 	. . .
	ex de,hl		;0e0c	eb 	.
	call crlf		;0e0d	cd a3 02 	. . .
l0e10h:
	pop bc			;0e10	c1 	.
	inc hl			;0e11	23 	#
	inc de			;0e12	13 	.
	dec bc			;0e13	0b 	.
	ld a,b			;0e14	78 	x
	or c			;0e15	b1 	.
	jr nz,l0dedh		;0e16	20 d5 	  .
	ret			;0e18	c9 	.

cmd_M:
	ld a,(de)		;0e19	1a 	.
	cp 'V'			;0e1a	fe 56 	. V
	jr nz,l0e1fh		;0e1c	20 01 	  .
	inc de			;0e1e	13 	.
l0e1fh:
	push af			;0e1f	f5 	.
	call sub_034eh		;0e20	cd 4e 03 	. N .
	push hl			;0e23	e5 	.
	push de			;0e24	d5 	.
	push bc			;0e25	c5 	.
	call cp_hl_de		;0e26	cd ee 02 	. . .
	jr nc,$+11		;0e29	30 09 	0 .
	add hl,bc		;0e2b	09 	.
	ex de,hl		;0e2c	eb 	.
	add hl,bc		;0e2d	09 	.
	ex de,hl		;0e2e	eb 	.
	dec hl			;0e2f	2b 	+
	dec de			;0e30	1b 	.
	lddr			;0e31	ed b8 	. .
	ld bc,0b0edh		;0e33	01 ed b0 	. . .
	pop bc			;0e36	c1 	.
	pop de			;0e37	d1 	.
	pop hl			;0e38	e1 	.
	pop af			;0e39	f1 	.
	jr z,l0dedh		;0e3a	28 b1 	( .
	ret			;0e3c	c9 	.

cmd_H:
	call expr		;0e3d	cd be 03 	. . .
	jp c,p_max_high0	;0e40	da 6f 11 	. o .
	call next_arg		;0e43	cd ca 02 	. . .
	push hl			;0e46	e5 	.
	call expr		;0e47	cd be 03 	. . .
	push af			;0e4a	f5 	.
	call assert_eol		;0e4b	cd d6 02 	. . .
	pop af			;0e4e	f1 	.
	ex de,hl		;0e4f	eb 	.
	pop hl			;0e50	e1 	.
	jr c,l0e5eh		;0e51	38 0b 	8 .
	push hl			;0e53	e5 	.
	push de			;0e54	d5 	.
	add hl,de		;0e55	19 	.
	call l0e5eh		;0e56	cd 5e 0e 	. ^ .
	pop de			;0e59	d1 	.
	pop hl			;0e5a	e1 	.
	and a			;0e5b	a7 	.
	sbc hl,de		;0e5c	ed 52 	. R
l0e5eh:
	call out_hl		;0e5e	cd 13 02 	. . .
	call outbl2		;0e61	cd 9c 02 	. . .
	call out_hl_neg		;0e64	cd 0a 02 	. . .
	call outbl4		;0e67	cd 99 02 	. . .
	call out.hl.dec		;0e6a	cd e7 01 	. . .
	call outbl2		;0e6d	cd 9c 02 	. . .
	call out_hl_dec_neg	;0e70	cd e2 01 	. . .
	call outbl4		;0e73	cd 99 02 	. . .
	call out.bin.w		;0e76	cd c2 01 	. . .
	call outbl2		;0e79	cd 9c 02 	. . .
	ld a,l			;0e7c	7d 	}
	call out.ascii		;0e7d	cd 34 02 	. 4 .
	jp crlf			;0e80	c3 a3 02 	. . .

cmd_Q_jopt:
	db	-1		;0e83	ff 	.

cmd_Q:
	ld a,(de)		;0e84	1a 	.
	sub 'J'			;0e85	d6 4a 	. J
	ld (cmd_Q_jopt),a	;0e87	32 83 0e 	2 . .
	jr nz,l0e8dh		;0e8a	20 01 	  .
	inc de			;0e8c	13 	.
l0e8dh:
	call get_arg_range	;0e8d	cd 7d 03 	. } .
	push bc			;0e90	c5 	.
	push hl			;0e91	e5 	.
	call sub_0ee6h		;0e92	cd e6 0e 	. . .
	pop hl			;0e95	e1 	.
l0e96h:
	call sub_0ed7h		;0e96	cd d7 0e 	. . .
	jr nz,l0eb0h		;0e99	20 15 	  .
	push bc			;0e9b	c5 	.
	push hl			;0e9c	e5 	.
	ld a,(cmd_Q_jopt)	;0e9d	3a 83 0e 	: . .
	or a			;0ea0	b7 	.
	jr nz,l0ea7h		;0ea1	20 04 	  .
	ld bc,-8		;0ea3	01 f8 ff 	. . .
	add hl,bc		;0ea6	09 	.
l0ea7h:
	ld bc,16		;0ea7	01 10 00 	. . .
	and a			;0eaa	a7 	.
	call sub_0f58h		;0eab	cd 58 0f 	. X .
	pop hl			;0eae	e1 	.
	pop bc			;0eaf	c1 	.
l0eb0h:
	inc hl			;0eb0	23 	#
	ex (sp),hl		;0eb1	e3 	.
	dec hl			;0eb2	2b 	+
	ld a,h			;0eb3	7c 	|
	or l			;0eb4	b5 	.
	ex (sp),hl		;0eb5	e3 	.
	jr nz,l0e96h		;0eb6	20 de 	  .
	pop bc			;0eb8	c1 	.
	ret			;0eb9	c9 	.

cmd_Z:
	call get_arg_range	;0eba	cd 7d 03 	. } .
	push bc			;0ebd	c5 	.
	push hl			;0ebe	e5 	.
	call sub_0ee6h		;0ebf	cd e6 0e 	. . .
	ld a,b			;0ec2	78 	x
	pop hl			;0ec3	e1 	.
	pop bc			;0ec4	c1 	.
	push hl			;0ec5	e5 	.
	ex de,hl		;0ec6	eb 	.
l0ec7h:
	ldi			;0ec7	ed a0 	. .
	jp po,l0ed3h		;0ec9	e2 d3 0e 	. . .
	dec a			;0ecc	3d 	=
	jr nz,l0ec7h		;0ecd	20 f8 	  .
	pop hl			;0ecf	e1 	.
	ldir			;0ed0	ed b0 	. .
	ret			;0ed2	c9 	.
l0ed3h:
	pop hl			;0ed3	e1 	.
	ret			;0ed4	c9 	.

last_D:
	dw	TPA

sub_0ed7h:
	push	hl		;0ed7	e5 d5 	. .
	push	de
	push bc			;0ed9	c5 	.
l0edah:
	ld a,(de)		;0eda	1a 	.
	cp (hl)			;0edb	be 	.
	jr nz,l0ee2h		;0edc	20 04 	  .
	inc de			;0ede	13 	.
	inc hl			;0edf	23 	#
	djnz l0edah		;0ee0	10 f8 	. .
l0ee2h:
	pop bc			;0ee2	c1 	.
	pop de			;0ee3	d1 	.
	pop hl			;0ee4	e1 	.
	ret			;0ee5	c9 	.

sub_0ee6h:
	ld hl,conbuf+1		;0ee6	21 6b 00 	! k .
	call sub_0ef7h		;0ee9	cd f7 0e 	. . .
	ld de,conbuf+1		;0eec	11 6b 00 	. k .
	and a			;0eef	a7 	.
	sbc hl,de		;0ef0	ed 52 	. R
	ld b,l			;0ef2	45 	E
	ret nz			;0ef3	c0 	.
	jp ERROR		;0ef4	c3 07 01 	. . .

sub_0ef7h:
	db	0e6h		;0ef7	e6              and 037h (clear carry)
sub_0ef8h:
	scf			;0ef8	37 	. 7
l0ef9h:
	push af			;0ef9	f5 	.
	call next_arg		;0efa	cd ca 02 	. . .
	cp 'W'			;0efd	fe 57 	. W
	jr nz,l0f0eh		;0eff	20 0d 	  .
	inc de			;0f01	13 	.
	push hl			;0f02	e5 	.
	call sub_035dh		;0f03	cd 5d 03 	. ] .
	ex de,hl		;0f06	eb 	.
	ex (sp),hl		;0f07	e3 	.
	ld (hl),e		;0f08	73 	s
	inc hl			;0f09	23 	#
	ld a,d			;0f0a	7a 	z
	pop de			;0f0b	d1 	.
	jr l0f1ah		;0f0c	18 0c 	. .
l0f0eh:
	cp ''''			;0f0e	fe 27 	. '
	jr z,l0f1eh		;0f10	28 0c 	( .
	push hl			;0f12	e5 	.
	call expr		;0f13	cd be 03 	. . .
	ld a,l			;0f16	7d 	}
	pop hl			;0f17	e1 	.
	jr c,l0f42h		;0f18	38 28 	8 (
l0f1ah:
	ld (hl),a		;0f1a	77 	w
	inc hl			;0f1b	23 	#
	jr l0f3ah		;0f1c	18 1c 	. .
l0f1eh:
	inc de			;0f1e	13 	.
	ld a,(de)		;0f1f	1a 	.
	cp ''''			;0f20	fe 27 	. '
	jr z,l0f2bh		;0f22	28 07 	( .
	or a			;0f24	b7 	.
	jr z,l0f42h		;0f25	28 1b 	( .
l0f27h:
	ld (hl),a		;0f27	77 	w
	inc hl			;0f28	23 	#
	jr l0f1eh		;0f29	18 f3 	. .
l0f2bh:
	inc de			;0f2b	13 	.
	ld a,(de)		;0f2c	1a 	.
	cp ''''			;0f2d	fe 27 	. '
	jr z,l0f27h		;0f2f	28 f6 	( .
	cp '.'			;0f31	fe 2e 	. .
	jr nz,l0f3ah		;0f33	20 05 	  .
	inc de			;0f35	13 	.
	dec hl			;0f36	2b 	+
	set 7,(hl)		;0f37	cb fe 	. .
	inc hl			;0f39	23 	#
l0f3ah:
	pop af			;0f3a	f1 	.
	jr nc,l0ef9h		;0f3b	30 bc 	0 .
	ld (last_S),hl		;0f3d	22 90 0d 	" . .
	jr l0ef9h		;0f40	18 b7 	. .
l0f42h:
	pop af			;0f42	f1 	.
	ret nc			;0f43	d0 	.
	ld (last_S),hl		;0f44	22 90 0d 	" . .
	ret			;0f47	c9 	.

cmd_D:
	ld hl,cmd_D		;0f48	21 48 0f 	! H .
	ld (cmd_rpt),hl		;0f4b	22 68 00 	" h .
	ld hl,(last_D)		;0f4e	2a d5 0e 	* . .
	ld bc,128		;0f51	01 80 00 	. . .
	call sub_0377h		;0f54	cd 77 03 	. w .
	scf			;0f57	37 	7
sub_0f58h:
	push bc			;0f58	c5 	.
	push de			;0f59	d5 	.
	push hl			;0f5a	e5 	.
	ex af,af'		;0f5b	08 	.
l0f5ch:
	call out.hl.@		;0f5c	cd a4 01 	. . .
	call z,outbl2		;0f5f	cc 9c 02 	. . .
	call outbl		;0f62	cd 9f 02 	. . .
	ld de,0			;0f65	11 00 00 	. . .
l0f68h:
	ld a,(hl)		;0f68	7e 	~
	inc hl			;0f69	23 	#
	call out_hex		;0f6a	cd 18 02 	. . .
	call outbl		;0f6d	cd 9f 02 	. . .
	dec bc			;0f70	0b 	.
	inc e			;0f71	1c 	.
	ld a,e			;0f72	7b 	{
	cp 010h			;0f73	fe 10 	. .
	jr z,l0f80h		;0f75	28 09 	( .
	and 003h		;0f77	e6 03 	. .
	call z,outbl		;0f79	cc 9f 02 	. . .
	ld a,b			;0f7c	78 	x
	or c			;0f7d	b1 	.
	jr nz,l0f68h		;0f7e	20 e8 	  .
l0f80h:
	call outbl		;0f80	cd 9f 02 	. . .
	and a			;0f83	a7 	.
	sbc hl,de		;0f84	ed 52 	. R
l0f86h:
	ld a,(hl)		;0f86	7e 	~
	call sub_0fa3h		;0f87	cd a3 0f 	. . .
	call outchar		;0f8a	cd 5d 02 	. ] .
	inc hl			;0f8d	23 	#
	dec e			;0f8e	1d 	.
	jr nz,l0f86h		;0f8f	20 f5 	  .
	ex af,af'		;0f91	08 	.
	jr nc,l0f97h		;0f92	30 03 	0 .
	ld (last_D),hl		;0f94	22 d5 0e 	" . .
l0f97h:
	ex af,af'		;0f97	08 	.
	call crlf		;0f98	cd a3 02 	. . .
	ld a,b			;0f9b	78 	x
	or c			;0f9c	b1 	.
	jr nz,l0f5ch		;0f9d	20 bd 	  .
	pop hl			;0f9f	e1 	.
	pop de			;0fa0	d1 	.
	pop bc			;0fa1	c1 	.
	ret			;0fa2	c9 	.

sub_0fa3h:
	and 07fh		;0fa3	e6 7f 	. 
	cp 07fh			;0fa5	fe 7f 	. 
	jr z,l0fach		;0fa7	28 03 	( .
	cp ' '			;0fa9	fe 20 	.
	ret nc			;0fab	d0 	.
l0fach:
	ld a,'.'		;0fac	3e 2e 	> .
	ret			;0fae	c9 	.

cmd_F:
	push de			;0faf	d5 	.
	ld hl,DMA_BUF+1		;0fb0	21 81 00 	! . .
	ld (hl),' '		;0fb3	36 20 	6
	inc hl			;0fb5	23 	#
l0fb6h:
	ld a,(de)		;0fb6	1a 	.
	ld (hl),a		;0fb7	77 	w
	inc hl			;0fb8	23 	#
	inc de			;0fb9	13 	.
	and a			;0fba	a7 	.
	jr nz,l0fb6h		;0fbb	20 f9 	  .
	ld a,l			;0fbd	7d 	}
	sub DMA_BUF+2		;0fbe	d6 82 	. .
	ld (DMA_BUF),a		;0fc0	32 80 00 	2 . .
	pop hl			;0fc3	e1 	.
	ld de,FCB		;0fc4	11 5c 00 	. \ .
	call parse_filename	;0fc7	cd cd 0f 	. . .
	ld de,FCB2		;0fca	11 6c 00 	. l .

parse_filename:
	call sub_102ch		;0fcd	cd 2c 10 	. , .
	push de			;0fd0	d5 	.
	push bc			;0fd1	c5 	.
	ld b,(hl)		;0fd2	46 	F
	inc hl			;0fd3	23 	#
	ld a,(hl)		;0fd4	7e 	~
	cp ':'			;0fd5	fe 3a 	. :
	jr nz,l0fe1h		;0fd7	20 08 	  .
	inc hl			;0fd9	23 	#
	ld a,b			;0fda	78 	x
	sub 040h		;0fdb	d6 40 	. @
	and 01fh		;0fdd	e6 1f 	. .
	jr l0fe3h		;0fdf	18 02 	. .
l0fe1h:
	dec hl			;0fe1	2b 	+
	xor a			;0fe2	af 	.
l0fe3h:
	ld (de),a		;0fe3	12 	.
	inc de			;0fe4	13 	.
	ld b,8			;0fe5	06 08 	. .
	call sub_0ff2h		;0fe7	cd f2 0f 	. . .
	ld b,3			;0fea	06 03 	. .
	call sub_0ff2h		;0fec	cd f2 0f 	. . .
	pop bc			;0fef	c1 	.
	pop de			;0ff0	d1 	.
	ret			;0ff1	c9 	.

sub_0ff2h:
	call sub_1012h		;0ff2	cd 12 10 	. . .
	jr z,l0ffeh		;0ff5	28 07 	( .
	inc hl			;0ff7	23 	#
	ld (de),a			;0ff8	12 	.
	inc de			;0ff9	13 	.
	djnz sub_0ff2h		;0ffa	10 f6 	. .
	jr l1003h		;0ffc	18 05 	. .
l0ffeh:
	ld a,c			;0ffe	79 	y
l0fffh:
	ld (de),a		;0fff	12 	.
	inc de			;1000	13 	.
	djnz l0fffh		;1001	10 fc 	. .
l1003h:
	call sub_1012h		;1003	cd 12 10 	. . .
	inc hl			;1006	23 	#
	jr nz,l1003h		;1007	20 fa 	  .
	cp '*'			;1009	fe 2a 	. *
	jr z,l1003h		;100b	28 f6 	( .
	cp '.'			;100d	fe 2e 	. .
	ret z			;100f	c8 	.
	dec hl			;1010	2b 	+
	ret			;1011	c9 	.

sub_1012h:
	ld a,(hl)		;1012	7e 	~
	ld c,' '		;1013	0e 20 	.
	and 01fh		;1015	e6 1f 	. .
	ret z			;1017	c8 	.
	ld a,(hl)		;1018	7e 	~
	cp ' '			;1019	fe 20 	.
	ret z			;101b	c8 	.
	call sub_1043h		;101c	cd 43 10 	. C .
	ret z			;101f	c8 	.
	cp '/'			;1020	fe 2f 	. /
	ret z			;1022	c8 	.
	cp '.'			;1023	fe 2e 	. .
	ret z			;1025	c8 	.
	ld c,'?'		;1026	0e 3f 	. ?
	cp '*'			;1028	fe 2a 	. *
	ret			;102a	c9 	.

l102bh:
	inc hl			;102b	23 	#
sub_102ch:
	ld a,(hl)		;102c	7e 	~
	cp '/'			;102d	fe 2f 	. /
	jr z,l103bh		;102f	28 0a 	( .
	call sub_1043h		;1031	cd 43 10 	. C .
	jr z,l102bh		;1034	28 f5 	( .
l1036h:
	cp ' '			;1036	fe 20 	.
	jr z,l102bh		;1038	28 f1 	( .
	ret			;103a	c9 	.

l103bh:
	ld a,(hl)		;103b	7e 	~
	cp ' '+1			;103c	fe 21 	. !
	jr c,l1036h		;103e	38 f6 	8 .
	inc hl			;1040	23 	#
	jr l103bh		;1041	18 f8 	. .

sub_1043h:
	cp '='			;1043	fe 3d 	. =
	ret z			;1045	c8 	.
	cp '_'			;1046	fe 5f 	. _
	ret z			;1048	c8 	.
	cp ','			;1049	fe 2c 	. ,
	ret			;104b	c9 	.

fcb_clear_rc:
	xor a			;104c	af 	.
	ld hl,FCB+12		;104d	21 68 00 	! h .
	ld b,21			;1050	06 15 	. .
l1052h:
	ld (hl),a		;1052	77 	w
	inc hl			;1053	23 	#
	djnz l1052h		;1054	10 fc 	. .
	ld de,DMA_BUF		;1056	11 80 00 	. . .
	ld c,BDOS_SETDMA	;1059	0e 1a 	. .
	call ddtz_base		;105b	cd 00 00 	. . .
	ld de,FCB		;105e	11 5c 00 	. \ .
	ret			;1061	c9 	.

cmd_R:
	ld hl,0			;1062	21 00 00 	! . .
	call get_lastarg_def	;1065	cd 69 03 	. i .
read_file:
	push hl			;1068	e5 	.
	ld hl,0			;1069	21 00 00 	! . .
	ld (high_load),hl	;106c	22 9c 11 	" . .
	call fcb_clear_rc	;106f	cd 4c 10 	. L .
	ld c,BDOS_OPEN		;1072	0e 0f 	. .
	call ddtz_base		;1074	cd 00 00 	. . .
	inc a			;1077	3c 	<
	jp z,ERROR		;1078	ca 07 01 	. . .
	ld hl,FCB+9		;107b	21 65 00 	! e .
	ld de,str_hex		;107e	11 a5 10 	. . .
	ld b,3			;1081	06 03 	. .
	call strncmp		;1083	cd 67 11 	. g .
	pop hl			;1086	e1 	.
	jr z,read_hexfile	;1087	28 1f 	( .
	ld de,TPA		;1089	11 00 01 	. . .
	add hl,de		;108c	19 	.
	push hl			;108d	e5 	.
l108eh:
	call read_sector	;108e	cd 21 11 	. ! .
	pop hl			;1091	e1 	.
	jp z,p_max_high		;1092	ca 72 11 	. r .
	ld de,DMA_BUF		;1095	11 80 00 	. . .
	ld b,080h		;1098	06 80 	. .
l109ah:
	ld a,(de)		;109a	1a 	.
	call cmdR_storebyte	;109b	cd 36 11 	. 6 .
	inc de			;109e	13 	.
	inc hl			;109f	23 	#
	djnz l109ah		;10a0	10 f8 	. .
	push hl			;10a2	e5 	.
	jr l108eh		;10a3	18 e9 	. .

str_hex:
	db	'HEX'		;10a5	48 	H E X

read_hexfile:
	push hl			;10a8	e5 	.
	ld a,080h		;10a9	3e 80 	> .
	ld (cmdR_rindex),a	;10ab	32 20 11 	2   .
l10aeh:
	call read_byte		;10ae	cd 05 11 	. . .
	jr z,rdhex_done		;10b1	28 31 	( 1
	cp ':'			;10b3	fe 3a 	. :
	jr nz,l10aeh		;10b5	20 f7 	  .
	ld c,0			;10b7	0e 00 	. .
	call read_hexchar	;10b9	cd e8 10 	. . .
	ld b,a			;10bc	47 	G
	call read_hexchar	;10bd	cd e8 10 	. . .
	ld h,a			;10c0	67 	g
	call read_hexchar	;10c1	cd e8 10 	. . .
	ld l,a			;10c4	6f 	o
	ld a,b			;10c5	78 	x
	and a			;10c6	a7 	.
	jr z,rdhex_done		;10c7	28 1b 	( .
	call read_hexchar	;10c9	cd e8 10 	. . .
l10cch:
	call read_hexchar	;10cc	cd e8 10 	. . .
	pop de			;10cf	d1 	.
	push de			;10d0	d5 	.
	push hl			;10d1	e5 	.
	add hl,de		;10d2	19 	.
	call cmdR_storebyte	;10d3	cd 36 11 	. 6 .
	pop hl			;10d6	e1 	.
	inc hl			;10d7	23 	#
	djnz l10cch		;10d8	10 f2 	. .
	call read_hexchar		;10da	cd e8 10 	. . .
	ld a,c			;10dd	79 	y
	and a			;10de	a7 	.
	jp nz,ERROR		;10df	c2 07 01 	. . .
	jr l10aeh		;10e2	18 ca 	. .
rdhex_done:
	pop hl			;10e4	e1 	.
	jp p_max_high		;10e5	c3 72 11 	. r .

read_hexchar:
	call read_hexdigit	;10e8	cd f9 10 	. . .
	rlca			;10eb	07 	.
	rlca			;10ec	07 	.
	rlca			;10ed	07 	.
	rlca			;10ee	07 	.
	ld d,a			;10ef	57 	W
	call read_hexdigit	;10f0	cd f9 10 	. . .
	add a,d			;10f3	82 	.
	ld d,a			;10f4	57 	W
	add a,c			;10f5	81 	.
	ld c,a			;10f6	4f 	O
	ld a,d			;10f7	7a 	z
	ret			;10f8	c9 	.

read_hexdigit:
	call read_byte		;10f9	cd 05 11 	. . .
	jr z,l1102h		;10fc	28 04 	( .
	call hex_digit		;10fe	cd 12 06 	. . .
	ret nc			;1101	d0 	.
l1102h:
	jp ERROR		;1102	c3 07 01 	. . .

read_byte:
	ld a,(cmdR_rindex)	;1105	3a 20 11 	:   .
	cp 080h			;1108	fe 80 	. .
	jr nz,l1111h		;110a	20 05 	  .
	call read_sector	;110c	cd 21 11 	. ! .
	ret z			;110f	c8 	.
	sub a			;1110	97 	.
l1111h:
	inc a			;1111	3c 	<
	ld (cmdR_rindex),a	;1112	32 20 11 	2   .
	push hl			;1115	e5 	.
	add a,07fh		;1116	c6 7f 	. 
	ld l,a			;1118	6f 	o
	ld h,000h		;1119	26 00 	& .
	ld a,(hl)		;111b	7e 	~
	pop hl			;111c	e1 	.
	cp 01ah			;111d	fe 1a 	. .
	ret			;111f	c9 	.

cmdR_rindex:
	db	0		;1120	00 	.

read_sector:
	push hl			;1121	e5 	.
	push de			;1122	d5 	.
	push bc			;1123	c5 	.
	ld de,FCB		;1124	11 5c 00 	. \ .
	ld c,BDOS_READ		;1127	0e 14 	. .
	call ddtz_base		;1129	cd 00 00 	. . .
	dec a			;112c	3d 	=
	jr z,l1132h		;112d	28 03 	( .
	jp p,ERROR		;112f	f2 07 01 	. . .
l1132h:
	pop bc			;1132	c1 	.
	pop de			;1133	d1 	.
	pop hl			;1134	e1 	.
	ret			;1135	c9 	.

cmdR_storebyte:
	push af			;1136	f5 	.
	push de			;1137	d5 	.
	ld de,TPA		;1138	11 00 01 	. . .
	call cp_hl_de		;113b	cd ee 02 	. . .
	jp c,ERROR		;113e	da 07 01 	. . .
	ld de,(BDOS+1)		;1141	ed 5b 06 00 	. [ . .
	call cp_hl_de		;1145	cd ee 02 	. . .
	jp nc,ERROR		;1148	d2 07 01 	. . .
	ld de,(high_load)	;114b	ed 5b 9c 11 	. [ . .
	call cp_hl_de		;114f	cd ee 02 	. . .
	jr c,l1157h		;1152	38 03 	8 .
	ld (high_load),hl	;1154	22 9c 11 	" . .
l1157h:
	ld de,(max_load)	;1157	ed 5b 9e 11 	. [ . .
	call cp_hl_de		;115b	cd ee 02 	. . .
	jr c,l1163h		;115e	38 03 	8 .
	ld (max_load),hl	;1160	22 9e 11 	" . .
l1163h:
	pop de			;1163	d1 	.
	pop af			;1164	f1 	.
	ld (hl),a		;1165	77 	w
	ret			;1166	c9 	.

strncmp:
	ld a,(de)		;1167	1a 	.
	cp (hl)			;1168	be 	.
	inc de			;1169	13 	.
	inc hl			;116a	23 	#
	ret nz			;116b	c0 	.
	djnz strncmp		;116c	10 f9 	. .
	ret			;116e	c9 	.

p_max_high0:
	call assert_eol		;116f	cd d6 02 	. . .
p_max_high:
	ld hl,msg_high		;1172	21 8d 11 	! . .
	call pstr		;1175	cd 88 02 	. . .
	ld hl,(high_load)	;1178	2a 9c 11 	* . .
	call out_hl		;117b	cd 13 02 	. . .
	ld hl,msg_max		;117e	21 94 11 	! . .
	call pstr		;1181	cd 88 02 	. . .
	ld hl,(max_load)	;1184	2a 9e 11 	* . .
	call out_hl		;1187	cd 13 02 	. . .
	jp crlf			;118a	c3 a3 02 	. . .

msg_high:
	DC	'High = '
msg_max:
	DC	'  Max = '

high_load:
	defw TPA		;119c	00 01 	. .
max_load:
	defw TPA		;119e	00 01 	. .

cmd_W:
	call get_arg_range	;11a0	cd 7d 03 	. } .
	call assert_eol		;11a3	cd d6 02 	. . .
	push hl			;11a6	e5 	.
	ld a,c			;11a7	79 	y
	add a,07fh		;11a8	c6 7f 	. 
	jr nc,l11adh		;11aa	30 01 	0 .
	inc b			;11ac	04 	.
l11adh:
	and 080h		;11ad	e6 80 	. .
	ld c,a			;11af	4f 	O
	push bc			;11b0	c5 	.
	ld a,(FCB+1)		;11b1	3a 5d 00 	: ] .
	cp ' '			;11b4	fe 20 	.
	jr z,error5		;11b6	28 3b 	( ;
	call fcb_clear_rc	;11b8	cd 4c 10 	. L .
	push de			;11bb	d5 	.
	ld c,BDOS_DELETE	;11bc	0e 13 	. .
	call ddtz_base		;11be	cd 00 00 	. . .
	pop de			;11c1	d1 	.
	ld c,BDOS_CREATE	;11c2	0e 16 	. .
	call ddtz_base		;11c4	cd 00 00 	. . .
	inc a			;11c7	3c 	<
	jr z,error5		;11c8	28 29 	( )
	pop bc			;11ca	c1 	.
	pop hl			;11cb	e1 	.
l11cch:
	ld a,b			;11cc	78 	x
	or c			;11cd	b1 	.
	jr z,close_file		;11ce	28 26 	( &
	push bc			;11d0	c5 	.
	ld de,080h		;11d1	11 80 00 	. . . DMA_BUF
	ld b,d			;11d4	42 	B
	ld c,e			;11d5	4b 	K
	ldir			;11d6	ed b0 	. .
	call write_sector	;11d8	cd e4 11 	. . .
	ex (sp),hl		;11db	e3 	.
	ld bc,0ff80h		;11dc	01 80 ff 	. . .
	add hl,bc		;11df	09 	.
	ex (sp),hl		;11e0	e3 	.
	pop bc			;11e1	c1 	.
	jr l11cch		;11e2	18 e8 	. .

write_sector:
	push hl			;11e4	e5 	.
	ld de,FCB		;11e5	11 5c 00 	. \ .
	ld c,BDOS_WRITE		;11e8	0e 15 	. .
	call ddtz_base		;11ea	cd 00 00 	. . .
	pop hl			;11ed	e1 	.
	and a			;11ee	a7 	.
	ret z			;11ef	c8 	.
	call close_file		;11f0	cd f6 11 	. . .
error5:
	jp ERROR		;11f3	c3 07 01 	. . .

close_file:
	ld de,FCB		;11f6	11 5c 00 	. \ .
	ld c,BDOS_CLOSE		;11f9	0e 10 	. .
	jp ddtz_base		;11fb	c3 00 00 	. . .

cmd_A:
	ld hl,(last_A)		;11fe	2a 64 12 	* d .
	call get_lastarg_def	;1201	cd 69 03 	. i .
	push hl			;1204	e5 	.
	pop iy			;1205	fd e1 	. .
	ld hl,l1259h		;1207	21 59 12 	! Y .
	ld (CMD_ERR),hl		;120a	22 66 00 	" f .
	ld (l1262h),sp		;120d	ed 73 62 12 	. s b .
l1211h:
	push iy			;1211	fd e5 	. .
	pop hl			;1213	e1 	.
	ld (last_A),hl		;1214	22 64 12 	" d .
	ld (l0062h),hl		;1217	22 62 00 	" b .
	push hl			;121a	e5 	.
	call p_disas_line	;121b	cd 2d 19 	. - .
	pop iy			;121e	fd e1 	. .
	ld c,b			;1220	48 	H
	ld de,(offs.@)		;1221	ed 5b 64 00 	. [ d .
	ld a,d			;1225	7a 	z
	or e			;1226	b3 	.
	ld b,011h		;1227	06 11 	. .
	jr z,l122dh		;1229	28 02 	( .
	ld b,019h		;122b	06 19 	. .
l122dh:
	call outbl		;122d	cd 9f 02 	. . .
	ld a,(con_col)		;1230	3a 72 02 	: r .
	cp b			;1233	b8 	.
	jr c,l122dh		;1234	38 f7 	8 .
	push bc			;1236	c5 	.
	call get_line		;1237	cd 4e 01 	. N .
	pop bc			;123a	c1 	.
	call skipbl		;123b	cd bf 02 	. . .
	cp '.'			;123e	fe 2e 	. .
	ret z			;1240	c8 	.
	cp '-'			;1241	fe 2d 	. -
	jr nz,l124bh		;1243	20 06 	  .
	ld iy,(cmd_A_prev)	;1245	fd 2a 66 12 	. * f .
	jr l1211h		;1249	18 c6 	. .
l124bh:
	and a			;124b	a7 	.
	call nz,sub_1268h	;124c	c4 68 12 	. h .
	ld (cmd_A_prev),iy	;124f	fd 22 66 12 	. " f .
	ld b,0			;1253	06 00 	. .
	add iy,bc		;1255	fd 09 	. .
	jr l1211h		;1257	18 b8 	. .
l1259h:
	call l0146h		;1259	cd 46 01 	. F .
	ld sp,(l1262h)		;125c	ed 7b 62 12 	. { b .
	jr l1211h		;1260	18 af 	. .

l1262h:
	dw	0		;1262	00 00	.
last_A:
	dw	TPA		;1264	00 01	.
cmd_A_prev:
	dw	TPA		;1266	00 01 	. .

sub_1268h:
	call skipbl		;1268	cd bf 02 	. . .
	ld hl,t_MNEMONICS	;126b	21 c6 1e 	! . .
	call sub_030ah		;126e	cd 0a 03 	. . .
	jp nc,ERROR		;1271	d2 07 01 	. . .
	call skipbl		;1274	cd bf 02 	. . .
	push de			;1277	d5 	.
	ld a,b			;1278	78 	x
	add a,b			;1279	80 	.
	add a,b			;127a	80 	.
	ld hl,b_1289_start	;127b	21 89 12 	! . .
	call add_hl_a		;127e	cd b9 02 	. . .
	ld e,(hl)		;1281	5e 	^
	inc hl			;1282	23 	#
	ld d,(hl)		;1283	56 	V
	inc hl			;1284	23 	#
	ld b,(hl)		;1285	46 	F
	ex de,hl		;1286	eb 	.
	pop de			;1287	d1 	.
	jp (hl)			;1288	e9 	.

b_1289_start:
	defw as.ADC_SBC		;ADC	1289	51 15 	Q .
	defb 088h		;	128b	88 	.
	defw as.ADD		;ADD	128c	71 15 	q .
	defb 080h		;	128e	80 	.
	defw as.AND_CP_OR_SUB_XOR ;AND	128f	a8 15 	. .
	defb 0a0h		;	1291	a0 	.
	defw as.BITOP		;BIT	1292	09 16 	. .
	defb 040h		;	1294	40 	@
	defw as.CALL		;CALL	1295	2d 16 	- .
	defb 0c4h		;	1297	c4 	.
	defw as.opc.noarg	;CCF	1298	3b 15 	; .
	defb 03fh		;	129a	3f 	?
	defw as.AND_CP_OR_SUB_XOR ;CP	129b	a8 15 	. .
	defb 0b8h		;	129d	b8 	.
	defw gen.opc.ED2	;CPD	129e	44 15 	D .
	defb 0a9h		;	12a0	a9 	.
	defw gen.opc.ED2	;CPDR	12a1	44 15 	D .
	defb 0b9h		;	12a3	b9 	.
	defw gen.opc.ED2	;CPI	12a4	44 15 	D .
	defb 0a1h		;	12a6	a1 	.
	defw gen.opc.ED2	;CPIR	12a7	44 15 	D .
	defb 0b1h		;	12a9	b1 	.
	defw as.opc.noarg	;CPL	12aa	3b 15 	; .
	defb 02fh		;	12ac	2f 	/
	defw as.opc.noarg	;DAA	12ad	3b 15 	; .
	defb 027h		;	12af	27 	'
	defw as.DEC_INC		;DEC	12b0	98 17 	. .
	defb 005h		;	12b2	05 	.
	defw as.opc.noarg	;DI	12b3	3b 15 	; .
	defb 0f3h		;	12b5	f3 	.
	defw as.DJNZ		;DJNZ	12b6	99 16 	. .
	defb 010h		;	12b8	10 	.
	defw as.opc.noarg	;EI	12b9	3b 15 	; .
	defb 0fbh		;	12bb	fb 	.
	defw as.EX		;EX	12bc	49 17 	I .
	defb 0e3h		;	12be	e3 	.
	defw as.opc.noarg	;EXX	12bf	3b 15 	; .
	defb 0d9h		;	12c1	d9 	.
	defw as.opc.noarg	;HALT	12c2	3b 15 	; .
	defb 076h		;	12c4	76 	v
	defw as.IM		;IM	12c5	b4 16 	. .
	defb 046h		;	12c7	46 	F
	defw as.IN		;IN	12c8	ed 16 	. .
	defb 040h		;	12ca	40 	@
	defw as.DEC_INC		;INC	12cb	98 17 	. .
	defb 004h		;	12cd	04 	.
	defw gen.opc.ED2	;IND	12ce	44 15 	D .
	defb 0aah		;	12d0	aa 	.
	defw gen.opc.ED2	;INDR	12d1	44 15 	D .
	defb 0bah		;	12d3	ba 	.
	defw gen.opc.ED2	;INI	12d4	44 15 	D .
	defb 0a2h		;	12d6	a2 	.
	defw gen.opc.ED2	;INIR	12d7	44 15 	D .
	defb 0b2h		;	12d9	b2 	.
	defw as.JP		;JP	12da	53 16 	S .
	defb 0c2h		;	12dc	c2 	.
	defw as.JR		;JR	12dd	a0 16 	. .
	defb 020h		;	12df	20
	defw as.LD		;LD	12e0	52 13 	R .
	defb 040h		;	12e2	40 	@
	defw gen.opc.ED2	;LDD	12e3	44 15 	D .
	defb 0a8h		;	12e5	a8 	.
	defw gen.opc.ED2	;LDDR	12e6	44 15 	D .
	defb 0b8h		;	12e8	b8 	.
	defw gen.opc.ED2	;LDI	12e9	44 15 	D .
	defb 0a0h		;	12eb	a0 	.
	defw gen.opc.ED2	;LDIR	12ec	44 15 	D .
	defb 0b0h		;	12ee	b0 	.
	defw gen.opc.ED2	;NEG	12ef	44 15 	D .
	defb 044h		;	12f1	44 	D
	defw as.opc.noarg	;NOP	12f2	3b 15 	; .
	defb 000h		;	12f4	00 	.
	defw as.AND_CP_OR_SUB_XOR ;OR	12f5	a8 15 	. .
	defb 0b0h		;	12f7	b0 	.
	defw gen.opc.ED2	;OTDR	12f8	44 15 	D .
	defb 0bbh		;	12fa	bb 	.
	defw gen.opc.ED2	;OTIR	12fb	44 15 	D .
	defb 0b3h		;	12fd	b3 	.
	defw as.OUT		;OUT	12fe	21 17 	! .
	defb 041h		;	1300	41 	A
	defw gen.opc.ED2	;OUTD	1301	44 15 	D .
	defb 0abh		;	1303	ab 	.
	defw gen.opc.ED2	;OUTI	1304	44 15 	D .
	defb 0a3h		;	1306	a3 	.
	defw as.POP_PUSH	;POP	1307	d9 16 	. .
	defb 0c1h		;	1309	c1 	.
	defw as.POP_PUSH	;PUSH	130a	d9 16 	. .
	defb 0c5h		;	130c	c5 	.
	defw as.BITOP		;RES	130d	09 16 	. .
	defb 080h		;	130f	80 	.
	defw as.RET		;RET	1310	45 16 	E .
	defb 0c0h		;	1312	c0 	.
	defw gen.opc.ED2	;RETI	1313	44 15 	D .
	defb 04dh		;	1315	4d 	M
	defw gen.opc.ED2	;RETN	1316	44 15 	D .
	defb 045h		;	1318	45 	E
	defw as.SHIFTOP	;RL	1319	d5 15 	. .
	defb 010h		;	131b	10 	.
	defw as.opc.noarg	;RLA	131c	3b 15 	; .
	defb 017h		;	131e	17 	.
	defw as.SHIFTOP		;RLC	131f	d5 15 	. .
	defb 000h		;	1321	00 	.
	defw as.opc.noarg	;RLCA	1322	3b 15 	; .
	defb 007h		;	1324	07 	.
	defw gen.opc.ED2	;RLD	1325	44 15 	D .
	defb 06fh		;	1327	6f 	o
	defw as.SHIFTOP		;RR	1328	d5 15 	. .
	defb 018h		;	132a	18 	.
	defw as.opc.noarg	;RRA	132b	3b 15 	; .
	defb 01fh		;	132d	1f 	.
	defw as.SHIFTOP		;RRC	132e	d5 15 	. .
	defb 008h		;	1330	08 	.
	defw as.opc.noarg	;RRCA	1331	3b 15 	; .
	defb 00fh		;	1333	0f 	.
	defw gen.opc.ED2	;RRD	1334	44 15 	D .
	defb 067h		;	1336	67 	g
	defw as.RST		;RST	1337	ca 16 	. .
	defb 0c7h		;	1339	c7 	.
	defw as.ADC_SBC		;SBC	133a	51 15 	Q .
	defb 098h		;	133c	98 	.
	defw as.opc.noarg	;SCF	133d	3b 15 	; .
	defb 037h		;	133f	37 	7
	defw as.BITOP		;SET	1340	09 16 	. .
	defb 0c0h		;	1342	c0 	.
	defw as.SHIFTOP		;SLA	1343	d5 15 	. .
	defb 020h		;	1345	20
	defw as.SHIFTOP		;SRA	1346	d5 15 	. .
	defb 028h		;	1348	28 	(
	defw as.SHIFTOP		;SRL	1349	d5 15 	. .
	defb 038h		;	134b	38 	8
	defw as.AND_CP_OR_SUB_XOR ;SUB	134c	a8 15 	. .
	defb 090h		;	134e	90 	.
	defw as.AND_CP_OR_SUB_XOR ;XOR	134f	a8 15 	. .
	defb 0a8h		;	1351	a8 	.

as.LD:
	call arg.r_HL_A		;1352	cd 2e 18 	. . .
	jr c,l13d4h		;1355	38 7d 	8 }
	call arg.IDX_displcmnt	;1357	cd 55 18 	. U .
	jp c,l1471h		;135a	da 71 14 	. q .
	call arg.ww		;135d	cd 1b 18 	. . .
	jp c,l149ch		;1360	da 9c 14 	. . .
	call arg.IX_IY		;1363	cd 3d 18 	. = .
	jp c,l14f5h		;1366	da f5 14 	. . .
	ld a,(de)		;1369	1a 	.
	cp 'I'			;136a	fe 49 	. I
	jp z,l1511h		;136c	ca 11 15 	. . .
	cp 'R'			;136f	fe 52 	. R
	jp z,l1519h		;1371	ca 19 15 	. . .
	cp '('			;1374	fe 28 	. (
	jp nz,ERROR		;1376	c2 07 01 	. . .
	inc de			;1379	13 	.
	call arg.ww		;137a	cd 1b 18 	. . .
	jp c,l1528h		;137d	da 28 15 	. ( .
	call test_expr		;1380	cd 09 18 	. . .
	call test_paren_close	;1383	cd c5 18 	. . .
	call assert_comma	;1386	cd be 18 	. . .
	call arg.ww		;1389	cd 1b 18 	. . .
	jr c,l13c2h		;138c	38 34 	8 4
	call arg.IX_IY		;138e	cd 3d 18 	. = .
	jr nc,l13aah		;1391	30 17 	0 .
	ld b,022h		;1393	06 22 	. "
l1395h:
	call assert_eol		;1395	cd d6 02 	. . .
	ld a,(prefix_ixiy)	;1398	3a cc 18 	: . .
l139bh:
	ld (iy+000h),a		;139b	fd 77 00 	. w .
	ld (iy+001h),b		;139e	fd 70 01 	. p .
	ld (iy+002h),l		;13a1	fd 75 02 	. u .
	ld (iy+003h),h		;13a4	fd 74 03 	. t .
	ld c,004h		;13a7	0e 04 	. .
	ret			;13a9	c9 	.
l13aah:
	ld a,(de)		;13aa	1a 	.
	cp 'A'			;13ab	fe 41 	. A
	jp nz,ERROR		;13ad	c2 07 01 	. . .
	inc de			;13b0	13 	.
	ld b,032h		;13b1	06 32 	. 2
as.store_3:
	call assert_eol		;13b3	cd d6 02 	. . .
	ld (iy+000h),b		;13b6	fd 70 00 	. p .
	ld (iy+001h),l		;13b9	fd 75 01 	. u .
	ld (iy+002h),h		;13bc	fd 74 02 	. t .
	ld c,003h		;13bf	0e 03 	. .
	ret			;13c1	c9 	.
l13c2h:
	cp 020h			;13c2	fe 20 	.
	jr z,l13d0h		;13c4	28 0a 	( .
	add a,043h		;13c6	c6 43 	. C
	ld b,a			;13c8	47 	G
l13c9h:
	call assert_eol		;13c9	cd d6 02 	. . .
	ld a,0edh		;13cc	3e ed 	> .
	jr l139bh		;13ce	18 cb 	. .
l13d0h:
	ld b,022h		;13d0	06 22 	. "
	jr as.store_3		;13d2	18 df 	. .
l13d4h:
	ld b,a			;13d4	47 	G
	call assert_comma	;13d5	cd be 18 	. . .
	call arg.r_HL_A		;13d8	cd 2e 18 	. . .
	jr nc,l13f0h		;13db	30 13 	0 .
	push af			;13dd	f5 	.
	ld a,b			;13de	78 	x
	rlca			;13df	07 	.
	rlca			;13e0	07 	.
	rlca			;13e1	07 	.
	ld b,a			;13e2	47 	G
	pop af			;13e3	f1 	.
	add a,b			;13e4	80 	.
	add a,040h		;13e5	c6 40 	. @
	cp 076h			;13e7	fe 76 	. v
	jp z,ERROR		;13e9	ca 07 01 	. . .
l13ech:
	ld b,a			;13ec	47 	G
	jp as.opc.noarg	;13ed	c3 3b 15 	. ; .
l13f0h:
	call arg.IDX_displcmnt	;13f0	cd 55 18 	. U .
	jr nc,l1413h		;13f3	30 1e 	0 .
	ld a,b			;13f5	78 	x
	rlca			;13f6	07 	.
	rlca			;13f7	07 	.
	rlca			;13f8	07 	.
	add a,046h		;13f9	c6 46 	. F
	cp 076h			;13fb	fe 76 	. v
	jp z,ERROR		;13fd	ca 07 01 	. . .

l1400h:
	ld b,a			;1400	47 	G
	call assert_eol		;1401	cd d6 02 	. . .
	ld (iy+001h),b		;1404	fd 70 01 	. p .
	ld (iy+002h),c		;1407	fd 71 02 	. q .
	ld a,(prefix_ixiy)	;140a	3a cc 18 	: . .
	ld (iy+000h),a		;140d	fd 77 00 	. w .
	ld c,003h		;1410	0e 03 	. .
	ret			;1412	c9 	.
l1413h:
	ld a,(de)		;1413	1a 	.
	cp 'I'			;1414	fe 49 	. I
	jr z,l1426h		;1416	28 0e 	( .
	cp 'R'			;1418	fe 52 	. R
	jr nz,l1432h		;141a	20 16 	  .
	ld a,b			;141c	78 	x
	cp 007h			;141d	fe 07 	. .
	jp nz,ERROR		;141f	c2 07 01 	. . .
	ld b,05fh		;1422	06 5f 	. _
	jr l142eh		;1424	18 08 	. .
l1426h:
	ld a,b			;1426	78 	x
	cp 007h			;1427	fe 07 	. .
	jp nz,ERROR		;1429	c2 07 01 	. . .
	ld b,057h		;142c	06 57 	. W
l142eh:
	inc de			;142e	13 	.
	jp gen.opc.ED2		;142f	c3 44 15 	. D .
l1432h:
	cp '('			;1432	fe 28 	. (
	jr z,l144ch		;1434	28 16 	( .
	call arg.imm_8bit	;1436	cd ff 17 	. . .
	ld a,b			;1439	78 	x
	rlca			;143a	07 	.
	rlca			;143b	07 	.
	rlca			;143c	07 	.
	add a,006h		;143d	c6 06 	. .
l143fh:
	ld b,a			;143f	47 	G
as.store_2:
	call assert_eol		;1440	cd d6 02 	. . .
	ld (iy+000h),b		;1443	fd 70 00 	. p .
	ld (iy+001h),l		;1446	fd 75 01 	. u .
	ld c,002h		;1449	0e 02 	. .
	ret			;144b	c9 	.
l144ch:
	inc de			;144c	13 	.
	ld a,b			;144d	78 	x
	cp 007h			;144e	fe 07 	. .
	jp nz,ERROR		;1450	c2 07 01 	. . .
	call arg.ww		;1453	cd 1b 18 	. . .
	jr nc,l1466h		;1456	30 0e 	0 .
	cp 030h			;1458	fe 30 	. 0
	jp nc,ERROR		;145a	d2 07 01 	. . .
	add a,00ah		;145d	c6 0a 	. .
	ld b,a			;145f	47 	G
	call test_paren_close	;1460	cd c5 18 	. . .
	jp as.opc.noarg		;1463	c3 3b 15 	. ; .
l1466h:
	call test_expr		;1466	cd 09 18 	. . .
	call test_paren_close	;1469	cd c5 18 	. . .
	ld b,03ah		;146c	06 3a 	. :
	jp as.store_3		;146e	c3 b3 13 	. . .

l1471h:
	call assert_comma	;1471	cd be 18 	. . .
	call arg.r_HL_A		;1474	cd 2e 18 	. . .
	jr nc,l1483h		;1477	30 0a 	0 .
	cp 006h			;1479	fe 06 	. .
	jp z,ERROR		;147b	ca 07 01 	. . .
	add a,070h		;147e	c6 70 	. p
	jp l1400h		;1480	c3 00 14 	. . .

l1483h:
	call arg.imm_8bit	;1483	cd ff 17 	. . .
	call assert_eol		;1486	cd d6 02 	. . .
	ld a,(prefix_ixiy)	;1489	3a cc 18 	: . .
	ld (iy+000h),a		;148c	fd 77 00 	. w .
	ld (iy+001h),036h	;148f	fd 36 01 36 	. 6 . 6
	ld (iy+002h),c		;1493	fd 71 02 	. q .
	ld (iy+003h),l		;1496	fd 75 03 	. u .
	ld c,004h		;1499	0e 04 	. .
	ret			;149b	c9 	.
l149ch:
	ld b,a			;149c	47 	G
	call assert_comma	;149d	cd be 18 	. . .
	ld hl,t_HL.AF		;14a0	21 af 1f 	! . .
	call sub_0318h		;14a3	cd 18 03 	. . .
	jr c,l14c3h		;14a6	38 1b 	8 .
	call arg.IX_IY		;14a8	cd 3d 18 	. = .
	jr nc,l14cch		;14ab	30 1f 	0 .
	ld a,b			;14ad	78 	x
	cp 030h			;14ae	fe 30 	. 0
	jr nz,error6		;14b0	20 73 	  s
	ld b,0f9h		;14b2	06 f9 	. .
l14b4h:
	call assert_eol		;14b4	cd d6 02 	. . .
	ld a,(prefix_ixiy)	;14b7	3a cc 18 	: . .
	ld (iy+000h),a		;14ba	fd 77 00 	. w .
	ld (iy+001h),b		;14bd	fd 70 01 	. p .
	ld c,002h		;14c0	0e 02 	. .
	ret			;14c2	c9 	.
l14c3h:
	ld a,b			;14c3	78 	x
	cp 030h			;14c4	fe 30 	. 0
	jr nz,error6		;14c6	20 5d 	  ]
	ld b,0f9h		;14c8	06 f9 	. .
	jr as.opc.noarg	;14ca	18 6f 	. o
l14cch:
	ld a,(de)		;14cc	1a 	.
	cp '('			;14cd	fe 28 	. (
	jr nz,l14e8h		;14cf	20 17 	  .
	inc de			;14d1	13 	.
	call test_expr		;14d2	cd 09 18 	. . .
	call test_paren_close	;14d5	cd c5 18 	. . .
	ld a,b			;14d8	78 	x
	cp 020h			;14d9	fe 20 	.
	jr z,l14e3h		;14db	28 06 	( .
	add a,04bh		;14dd	c6 4b 	. K
	ld b,a			;14df	47 	G
	jp l13c9h		;14e0	c3 c9 13 	. . .
l14e3h:
	ld b,02ah		;14e3	06 2a 	. *
	jp as.store_3		;14e5	c3 b3 13 	. . .
l14e8h:
	call test_expr		;14e8	cd 09 18 	. . .
	call assert_eol		;14eb	cd d6 02 	. . .
	ld a,001h		;14ee	3e 01 	> .
	add a,b			;14f0	80 	.
	ld b,a			;14f1	47 	G
	jp as.store_3		;14f2	c3 b3 13 	. . .
l14f5h:
	call assert_comma	;14f5	cd be 18 	. . .
	ld a,(de)		;14f8	1a 	.
	cp '('			;14f9	fe 28 	. (
	jr nz,l1509h		;14fb	20 0c 	  .
	inc de			;14fd	13 	.
	call test_expr		;14fe	cd 09 18 	. . .
	call test_paren_close	;1501	cd c5 18 	. . .
	ld b,02ah		;1504	06 2a 	. *
	jp l1395h		;1506	c3 95 13 	. . .
l1509h:
	call test_expr		;1509	cd 09 18 	. . .
	ld b,021h		;150c	06 21 	. !
	jp l1395h		;150e	c3 95 13 	. . .
l1511h:
	inc de			;1511	13 	.
	call assert_comma	;1512	cd be 18 	. . .
	ld b,047h		;1515	06 47 	. G
	jr l151fh		;1517	18 06 	. .
l1519h:
	inc de			;1519	13 	.
	call assert_comma	;151a	cd be 18 	. . .
	ld b,04fh		;151d	06 4f 	. O
l151fh:
	ld a,(de)		;151f	1a 	.
	inc de			;1520	13 	.
	cp 'A'			;1521	fe 41 	. A
	jr z,gen.opc.ED2	;1523	28 1f 	( .
error6:
	jp ERROR		;1525	c3 07 01 	. . .

l1528h:
	cp 020h			;1528	fe 20 	.
	jr nc,error6		;152a	30 f9 	0 .
	add a,002h		;152c	c6 02 	. .
	ld b,a			;152e	47 	G
	call test_paren_close	;152f	cd c5 18 	. . .
	call assert_comma	;1532	cd be 18 	. . .
	ld a,(de)		;1535	1a 	.
	cp 'A'			;1536	fe 41 	. A
	jr nz,error6		;1538	20 eb 	  .
	inc de			;153a	13 	.
as.opc.noarg:
	call assert_eol		;153b	cd d6 02 	. . .
	ld (iy+000h),b		;153e	fd 70 00 	. p .
	ld c,001h		;1541	0e 01 	. .
	ret			;1543	c9 	.

gen.opc.ED2:
	call assert_eol		;1544	cd d6 02 	. . .
	ld (iy+000h),0edh	;1547	fd 36 00 ed 	. 6 . .
	ld (iy+001h),b		;154b	fd 70 01 	. p .
	ld c,002h		;154e	0e 02 	. .
	ret			;1550	c9 	.

as.ADC_SBC:
	ld hl,t_HL.AF		;1551	21 af 1f 	! . .
	call sub_0318h		;1554	cd 18 03 	. . .
	jr nc,as.AND_CP_OR_SUB_XOR ;1557	30 4f 	0 O
	call assert_comma	;1559	cd be 18 	. . .
	call arg.ww		;155c	cd 1b 18 	. . .
	jp nc,ERROR		;155f	d2 07 01 	. . .
	push af			;1562	f5 	.
	ld a,b			;1563	78 	x
	cp 088h			;1564	fe 88 	. .
	ld b,04ah		;1566	06 4a 	. J
	jr z,l156ch		;1568	28 02 	( .
	ld b,042h		;156a	06 42 	. B
l156ch:
	pop af			;156c	f1 	.
	add a,b			;156d	80 	.
l156eh:
	ld b,a			;156e	47 	G
	jr gen.opc.ED2		;156f	18 d3 	. .
as.ADD:
	ld hl,t_HL.AF		;1571	21 af 1f 	! . .
	call sub_0318h		;1574	cd 18 03 	. . .
	jr c,l159ah		;1577	38 21 	8 !
	call arg.IX_IY		;1579	cd 3d 18 	. = .
	jr nc,as.AND_CP_OR_SUB_XOR ;157c	30 2a 	0 *
	call assert_comma	;157e	cd be 18 	. . .
	ld hl,t_BC.DE.IX.SP	;1581	21 bd 1f 	! . .
	ld a,(prefix_ixiy)	;1584	3a cc 18 	: . .
	cp 0fdh			;1587	fe fd 	. .
	jr nz,l158eh		;1589	20 03 	  .
	ld hl,t_BC.DE.IY.SP	;158b	21 b4 1f 	! . .
l158eh:
	call arg.reg_16bit		;158e	cd 18 18 	. . .
	jp nc,ERROR		;1591	d2 07 01 	. . .
	add a,009h		;1594	c6 09 	. .
l1596h:
	ld b,a			;1596	47 	G
	jp l14b4h		;1597	c3 b4 14 	. . .
l159ah:
	call assert_comma	;159a	cd be 18 	. . .
	call arg.ww		;159d	cd 1b 18 	. . .
	jp nc,ERROR		;15a0	d2 07 01 	. . .
	add a,009h		;15a3	c6 09 	. .
	jp l13ech		;15a5	c3 ec 13 	. . .
as.AND_CP_OR_SUB_XOR:
	ld a,(de)		;15a8	1a 	.
	cp 'A'			;15a9	fe 41 	. A
	jr nz,l15b8h		;15ab	20 0b 	  .
	push de			;15ad	d5 	.
	inc de			;15ae	13 	.
	call next_arg		;15af	cd ca 02 	. . .
	jr z,l15b7h		;15b2	28 03 	( .
	pop de			;15b4	d1 	.
	jr l15b8h		;15b5	18 01 	. .
l15b7h:
	pop af			;15b7	f1 	.
l15b8h:
	call arg.r_HL_A		;15b8	cd 2e 18 	. . .
	jr c,l15cbh		;15bb	38 0e 	8 .
	call arg.IDX_displcmnt	;15bd	cd 55 18 	. U .
	jr c,l15cfh		;15c0	38 0d 	8 .
	call arg.imm_8bit	;15c2	cd ff 17 	. . .
	ld a,b			;15c5	78 	x
	add a,046h		;15c6	c6 46 	. F
	jp l143fh		;15c8	c3 3f 14 	. ? .
l15cbh:
	add a,b			;15cb	80 	.
	jp l13ech		;15cc	c3 ec 13 	. . .
l15cfh:
	ld a,b			;15cf	78 	x
	add a,006h		;15d0	c6 06 	. .
	jp l1400h		;15d2	c3 00 14 	. . .

as.SHIFTOP:
	call arg.r_HL_A		;15d5	cd 2e 18 	. . .
	jr c,l15fah		;15d8	38 20 	8
	call arg.IDX_displcmnt	;15da	cd 55 18 	. U .
	jp nc,ERROR		;15dd	d2 07 01 	. . .
	ld a,b			;15e0	78 	x
	add a,006h		;15e1	c6 06 	. .
	ld b,a			;15e3	47 	G
l15e4h:
	call assert_eol		;15e4	cd d6 02 	. . .
	ld a,(prefix_ixiy)	;15e7	3a cc 18 	: . .
	ld (iy+000h),a		;15ea	fd 77 00 	. w .
	ld (iy+001h),0cbh	;15ed	fd 36 01 cb 	. 6 . .
	ld (iy+002h),c		;15f1	fd 71 02 	. q .
	ld (iy+003h),b		;15f4	fd 70 03 	. p .
	ld c,004h		;15f7	0e 04 	. .
	ret			;15f9	c9 	.

l15fah:
	add a,b			;15fa	80 	.
l15fbh:
	ld b,a			;15fb	47 	G
	call assert_eol		;15fc	cd d6 02 	. . .
	ld (iy+001h),b		;15ff	fd 70 01 	. p .
	ld (iy+000h),0cbh	;1602	fd 36 00 cb 	. 6 . .
	ld c,002h		;1606	0e 02 	. .
	ret			;1608	c9 	.

as.BITOP:
	call arg.bit		;1609	cd d3 17 	. . .
	call assert_comma	;160c	cd be 18 	. . .
	call arg.r_HL_A		;160f	cd 2e 18 	. . .
	jr c,l1624h		;1612	38 10 	8 .
	call arg.IDX_displcmnt	;1614	cd 55 18 	. U .
	jp nc,ERROR		;1617	d2 07 01 	. . .
	ld a,l			;161a	7d 	}
	rlca			;161b	07 	.
	rlca			;161c	07 	.
	rlca			;161d	07 	.
	add a,006h		;161e	c6 06 	. .
	add a,b			;1620	80 	.
	ld b,a			;1621	47 	G
	jr l15e4h		;1622	18 c0 	. .
l1624h:
	add a,b			;1624	80 	.
	ld b,a			;1625	47 	G
	ld a,l			;1626	7d 	}
	rlca			;1627	07 	.
	rlca			;1628	07 	.
	rlca			;1629	07 	.
	add a,b			;162a	80 	.
	jr l15fbh		;162b	18 ce 	. .

as.CALL:
	push de			;162d	d5 	.
	call arg.cc_ZCPS	;162e	cd a5 18 	. . .
	jr nc,l163ch		;1631	30 09 	0 .
	add a,b			;1633	80 	.
	ld b,a			;1634	47 	G
	call next_arg		;1635	cd ca 02 	. . .
	jr z,l163eh		;1638	28 04 	( .
	pop de			;163a	d1 	.
	push de			;163b	d5 	.
l163ch:
	ld b,0cdh		;163c	06 cd 	. .
l163eh:
	pop af			;163e	f1 	.
	call test_expr		;163f	cd 09 18 	. . .
	jp as.store_3		;1642	c3 b3 13 	. . .

as.RET:
	call arg.cc_ZCPS	;1645	cd a5 18 	. . .
	jr nc,l164eh		;1648	30 04 	0 .
	add a,b			;164a	80 	.
	ld b,a			;164b	47 	G
	jr l1650h		;164c	18 02 	. .
l164eh:
	ld b,0c9h		;164e	06 c9 	. .
l1650h:
	jp as.opc.noarg		;1650	c3 3b 15 	. ; .

as.JP:
	push de			;1653	d5 	.
	call arg.cc_ZCPS	;1654	cd a5 18 	. . .
	jr c,l1666h		;1657	38 0d 	8 .
l1659h:
	pop de			;1659	d1 	.
	ld hl,l168ch		;165a	21 8c 16 	! . .
	call sub_030ah		;165d	cd 0a 03 	. . .
	jr c,l1674h		;1660	38 12 	8 .
	ld b,0c3h		;1662	06 c3 	. .
	jr l166eh		;1664	18 08 	. .

l1666h:
	add a,b			;1666	80 	.
	ld b,a			;1667	47 	G
	call next_arg		;1668	cd ca 02 	. . .
	jr nz,l1659h		;166b	20 ec 	  .
	pop af			;166d	f1 	.
l166eh:
	call test_expr		;166e	cd 09 18 	. . .
	jp as.store_3		;1671	c3 b3 13 	. . .
l1674h:
	call assert_eol		;1674	cd d6 02 	. . .
	ld a,b			;1677	78 	x
	and a			;1678	a7 	.
	jr nz,l1680h		;1679	20 05 	  .
	ld b,0e9h		;167b	06 e9 	. .
	jp as.opc.noarg		;167d	c3 3b 15 	. ; .
l1680h:
	ld b,0ddh		;1680	06 dd 	. .
	dec a			;1682	3d 	=
	jr z,l1687h		;1683	28 02 	( .
	ld b,0fdh		;1685	06 fd 	. .
l1687h:
	ld l,0e9h		;1687	2e e9 	. .
	jp as.store_2		;1689	c3 40 14 	. @ .

l168ch:
	DC	'(HL)'
	DC	'(IX)'
	DC	'(IY)'
	DB	0

as.DJNZ:
	call next_arg		;1699	cd ca 02 	. . .
	ld b,010h		;169c	06 10 	. .
	jr l16aeh		;169e	18 0e 	. .
as.JR:
	call arg.cc_ZC		;16a0	cd ac 18 	. . .
	jr c,l16a9h		;16a3	38 04 	8 .
	ld b,018h		;16a5	06 18 	. .
	jr l16aeh		;16a7	18 05 	. .
l16a9h:
	add a,b			;16a9	80 	.
	ld b,a			;16aa	47 	G
	call assert_comma	;16ab	cd be 18 	. . .
l16aeh:
	call arg.j_displ	;16ae	cd dc 17 	. . .
	jp as.store_2		;16b1	c3 40 14 	. @ .

as.IM:
	call arg.imm_8bit	;16b4	cd ff 17 	. . .
	ld a,l			;16b7	7d 	}
	cp 003h			;16b8	fe 03 	. .
	jr nc,error2		;16ba	30 5c 	0 \
	and a			;16bc	a7 	.
	jr z,l16c7h		;16bd	28 08 	( .
	ld b,056h		;16bf	06 56 	. V
	cp 001h			;16c1	fe 01 	. .
	jr z,l16c7h		;16c3	28 02 	( .
	ld b,05eh		;16c5	06 5e 	. ^
l16c7h:
	jp gen.opc.ED2		;16c7	c3 44 15 	. D .

as.RST:
	call arg.imm_8bit	;16ca	cd ff 17 	. . .
	ld a,l			;16cd	7d 	}
	push af			;16ce	f5 	.
	add a,b			;16cf	80 	.
	ld b,a			;16d0	47 	G
	pop af			;16d1	f1 	.
	and 0c7h		;16d2	e6 c7 	. .
	jr nz,error2		;16d4	20 42 	  B
	jp as.opc.noarg		;16d6	c3 3b 15 	. ; .

as.POP_PUSH:
	call arg.IX_IY		;16d9	cd 3d 18 	. = .
	jr c,l16e7h		;16dc	38 09 	8 .
	call arg.zz		;16de	cd 12 18 	. . .
	jr nc,error2		;16e1	30 35 	0 5
	add a,b			;16e3	80 	.
	jp l13ech		;16e4	c3 ec 13 	. . .
l16e7h:
	ld a,b			;16e7	78 	x
	add a,020h		;16e8	c6 20 	.
	jp l1596h		;16ea	c3 96 15 	. . .

as.IN:
	call arg.r_HL_A		;16ed	cd 2e 18 	. . .
	jr nc,error2		;16f0	30 26 	0 &
	cp 006h			;16f2	fe 06 	. .
	jr z,error2		;16f4	28 22 	( "
	rlca			;16f6	07 	.
	rlca			;16f7	07 	.
	rlca			;16f8	07 	.
	add a,b			;16f9	80 	.
	ld b,a			;16fa	47 	G
	cp 078h			;16fb	fe 78 	. x
	jr nz,l170fh		;16fd	20 10 	  .
	call assert_comma	;16ff	cd be 18 	. . .
	call sub_171bh		;1702	cd 1b 17 	. . .
	jr c,l1715h		;1705	38 0e 	8 .
	call arg.addr_8bit	;1707	cd f3 17 	. . .
	ld b,0dbh		;170a	06 db 	. .
	jp as.store_2		;170c	c3 40 14 	. @ .
l170fh:
	call assert_comma	;170f	cd be 18 	. . .
	call sub_171bh		;1712	cd 1b 17 	. . .
l1715h:
	jp c,gen.opc.ED2	;1715	da 44 15 	. D .
error2:
	jp ERROR		;1718	c3 07 01 	. . .

sub_171bh:
	ld hl,t__C_		;171b	21 f4 1f 	! . .
	jp sub_0318h		;171e	c3 18 03 	. . .

as.OUT:
	call sub_171bh		;1721	cd 1b 17 	. . .
	jr nc,l1739h		;1724	30 13 	0 .
	call assert_comma	;1726	cd be 18 	. . .
	call arg.r_HL_A		;1729	cd 2e 18 	. . .
	jr nc,error2		;172c	30 ea 	0 .
	cp 006h			;172e	fe 06 	. .
	jr z,error2		;1730	28 e6 	( .
	rlca			;1732	07 	.
	rlca			;1733	07 	.
	rlca			;1734	07 	.
	add a,b			;1735	80 	.
	jp l156eh		;1736	c3 6e 15 	. n .

l1739h:
	call arg.addr_8bit	;1739	cd f3 17 	. . .
	call assert_comma	;173c	cd be 18 	. . .
	cp 'A'			;173f	fe 41 	. A
	jr nz,error2		;1741	20 d5 	  .
	inc de			;1743	13 	.
	ld b,0d3h		;1744	06 d3 	. .
	jp as.store_2		;1746	c3 40 14 	. @ .

as.EX:
	ld hl,b_176d_start	;1749	21 6d 17 	! m .
	call sub_030ah		;174c	cd 0a 03 	. . .
	jp nc,ERROR		;174f	d2 07 01 	. . .
	ld c,b			;1752	48 	H
	call assert_eol		;1753	cd d6 02 	. . .
	ld b,000h		;1756	06 00 	. .
	ld hl,l178eh		;1758	21 8e 17 	! . .
	add hl,bc		;175b	09 	.
	add hl,bc		;175c	09 	.
	ld a,(hl)		;175d	7e 	~
	ld (iy+000h),a		;175e	fd 77 00 	. w .
	ld c,001h		;1761	0e 01 	. .
	inc hl			;1763	23 	#
	ld a,(hl)		;1764	7e 	~
	and a			;1765	a7 	.
	ret z			;1766	c8 	.
	ld (iy+001h),a		;1767	fd 77 01 	. w .
	ld c,002h		;176a	0e 02 	. .
	ret			;176c	c9 	.

b_176d_start:
	DC	'AF,AF'''
l1773h:
	DC	'DE,HL'
	DC	'(SP),HL'
	DC	'(SP),IX'
	DC	'(SP),IY'
	db	0
l178eh:
	db	008h,000h	;178e	08 	.
	db	0ebh,000h	;1790	eb 	.
	db	0e3h,000h	;1792	e3 	.
	db	0ddh,0e3h	;1794	dd 	.
	db	0fdh,0e3h	;1796	fd 	.

as.DEC_INC:
	call arg.IX_IY		;1798	cd 3d 18 	. = .
	jr c,l17b3h		;179b	38 16 	8 .
	call arg.ww		;179d	cd 1b 18 	. . .
	jr c,l17bfh		;17a0	38 1d 	8 .
	call arg.r_HL_A		;17a2	cd 2e 18 	. . .
	jr c,l17cch		;17a5	38 25 	8 %
	call arg.IDX_displcmnt	;17a7	cd 55 18 	. U .
	jp nc,ERROR		;17aa	d2 07 01 	. . .
	ld a,b			;17ad	78 	x
	add a,030h		;17ae	c6 30 	. 0
	jp l1400h		;17b0	c3 00 14 	. . .
l17b3h:
	ld a,b			;17b3	78 	x
	ld b,023h		;17b4	06 23 	. #
	cp 004h			;17b6	fe 04 	. .
	jr z,l17bch		;17b8	28 02 	( .
	ld b,02bh		;17ba	06 2b 	. +
l17bch:
	jp l14b4h		;17bc	c3 b4 14 	. . .
l17bfh:
	push af			;17bf	f5 	.
	ld a,b			;17c0	78 	x
	ld b,003h		;17c1	06 03 	. .
	cp 004h			;17c3	fe 04 	. .
	jr z,l17c9h		;17c5	28 02 	( .
	ld b,00bh		;17c7	06 0b 	. .
l17c9h:
	pop af			;17c9	f1 	.
	jr l17cfh		;17ca	18 03 	. .
l17cch:
	rlca			;17cc	07 	.
	rlca			;17cd	07 	.
	rlca			;17ce	07 	.
l17cfh:
	add a,b			;17cf	80 	.
	jp l13ech		;17d0	c3 ec 13 	. . .

arg.bit:
	call arg.imm_8bit	;17d3	cd ff 17 	. . .
	ld a,l			;17d6	7d 	}
	cp 008h			;17d7	fe 08 	. .
	jr nc,error3		;17d9	30 34 	0 4
	ret			;17db	c9 	.

arg.j_displ:
	call test_expr		;17dc	cd 09 18 	. . .
	push bc			;17df	c5 	.
	push iy			;17e0	fd e5 	. .
	pop bc			;17e2	c1 	.
	and a			;17e3	a7 	.
	sbc hl,bc		;17e4	ed 42 	. B
	dec hl			;17e6	2b 	+
	dec hl			;17e7	2b 	+
	pop bc			;17e8	c1 	.
	call sub_1802h		;17e9	cd 02 18 	. . .
	ld a,h			;17ec	7c 	|
	xor l			;17ed	ad 	.
	bit 7,a			;17ee	cb 7f 	. 
	jr nz,error3		;17f0	20 1d 	  .
	ret			;17f2	c9 	.

arg.addr_8bit:
	ld a,(de)		;17f3	1a 	.
	cp '('			;17f4	fe 28 	. (
	jr nz,arg.imm_8bit	;17f6	20 07 	  .
	inc de			;17f8	13 	.
	call arg.imm_8bit	;17f9	cd ff 17 	. . .
	jp test_paren_close	;17fc	c3 c5 18 	. . .

arg.imm_8bit:
	call test_expr		;17ff	cd 09 18 	. . .
sub_1802h:
	ld a,h			;1802	7c 	|
	and a			;1803	a7 	.
	ret z			;1804	c8 	.
	inc a			;1805	3c 	<
	ret z			;1806	c8 	.
	jr error3		;1807	18 06 	. .

test_expr:
	push bc			;1809	c5 	.
	call expr		;180a	cd be 03 	. . .
	pop bc			;180d	c1 	.
	ret nc			;180e	d0 	.
error3:
	jp ERROR		;180f	c3 07 01 	. . .

arg.zz:
	push hl			;1812	e5 	.
	ld hl,t_BC.DE.HL.AF	;1813	21 ab 1f 	! . .
	jr l181fh		;1816	18 07 	. .

arg.reg_16bit:
	push hl			;1818	e5 	.
	jr l181fh		;1819	18 04 	. .

arg.ww:
	push hl			;181b	e5 	.
	ld hl,t_BC.DE.HL.SP	;181c	21 a2 1f 	! . .
l181fh:
	push bc			;181f	c5 	.
	call sub_030ah		;1820	cd 0a 03 	. . .
	jr nc,l182bh		;1823	30 06 	0 .
	ld a,b			;1825	78 	x
	rlca			;1826	07 	.
	rlca			;1827	07 	.
	rlca			;1828	07 	.
	rlca			;1829	07 	.
	scf			;182a	37 	7
l182bh:
	pop bc			;182b	c1 	.
	pop hl			;182c	e1 	.
	ret			;182d	c9 	.

arg.r_HL_A:
	call skipbl		;182e	cd bf 02 	. . .
	push bc			;1831	c5 	.
	push hl			;1832	e5 	.
	ld hl,t_BCDEHL_HL_A	;1833	21 96 1f 	! . .
	call sub_030ah		;1836	cd 0a 03 	. . .
	ld a,b			;1839	78 	x
	pop hl			;183a	e1 	.
	pop bc			;183b	c1 	.
	ret			;183c	c9 	.

arg.IX_IY:
	push hl			;183d	e5 	.
	push bc			;183e	c5 	.
	ld hl,t_IX.IY		;183f	21 c8 1f 	! . .
	call sub_030ah		;1842	cd 0a 03 	. . .
	jr nc,l1852h		;1845	30 0b 	0 .
	ld a,0ddh		;1847	3e dd 	> .
	dec b			;1849	05 	.
	jr nz,l184eh		;184a	20 02 	  .
	ld a,0fdh		;184c	3e fd 	> .
l184eh:
	ld (prefix_ixiy),a	;184e	32 cc 18 	2 . .
	scf			;1851	37 	7
l1852h:
	pop bc			;1852	c1 	.
	pop hl			;1853	e1 	.
	ret			;1854	c9 	.

arg.IDX_displcmnt:
	push hl			;1855	e5 	.
	push bc			;1856	c5 	.
	ld a,(de)		;1857	1a 	.
	cp '('			;1858	fe 28 	. (
	jr nz,l18a1h		;185a	20 45 	  E
	push de			;185c	d5 	.
	inc de			;185d	13 	.
	ld hl,t_IX.IY		;185e	21 c8 1f 	! . .
	call sub_030ah		;1861	cd 0a 03 	. . .
	jr nc,l18a0h		;1864	30 3a 	0 :
	pop af			;1866	f1 	.
	ld a,0ddh		;1867	3e dd 	> .
	dec b			;1869	05 	.
	jr nz,l186eh		;186a	20 02 	  .
	ld a,0fdh		;186c	3e fd 	> .
l186eh:
	ld (prefix_ixiy),a	;186e	32 cc 18 	2 . .
	ld a,(de)		;1871	1a 	.
	cp '+'			;1872	fe 2b 	. +
	jr z,l1882h		;1874	28 0c 	( .
	cp ')'			;1876	fe 29 	. )
	ld hl,0			;1878	21 00 00 	! . .
	jr z,l189ah		;187b	28 1d 	( .
	cp '-'			;187d	fe 2d 	. -
	jp nz,ERROR		;187f	c2 07 01 	. . .
l1882h:
	push af			;1882	f5 	.
	inc de			;1883	13 	.
	call arg.imm_8bit	;1884	cd ff 17 	. . .
	pop af			;1887	f1 	.
	cp '+'			;1888	fe 2b 	. +
	jr z,l1894h		;188a	28 08 	( .
	ld b,h			;188c	44 	D
	ld c,l			;188d	4d 	M
	ld hl,0			;188e	21 00 00 	! . .
	and a			;1891	a7 	.
	sbc hl,bc		;1892	ed 42 	. B
l1894h:
	ld a,(de)		;1894	1a 	.
	cp ')'			;1895	fe 29 	. )
	jp nz,ERROR		;1897	c2 07 01 	. . .
l189ah:
	inc de			;189a	13 	.
	pop bc			;189b	c1 	.
	ld c,l			;189c	4d 	M
	pop hl			;189d	e1 	.
	scf			;189e	37 	7
	ret			;189f	c9 	.
l18a0h:
	pop de			;18a0	d1 	.
l18a1h:
	pop bc			;18a1	c1 	.
	pop hl			;18a2	e1 	.
	and a			;18a3	a7 	.
	ret			;18a4	c9 	.

arg.cc_ZCPS:
	ld hl,t_tstfl_ZCPS	;18a5	21 dc 1f 	! . .
	ld c,007h		;18a8	0e 07 	. .
	jr l18b1h		;18aa	18 05 	. .

arg.cc_ZC:
	ld hl,t_tstfl_ZC	;18ac	21 cd 1f 	! . .
	ld c,003h		;18af	0e 03 	. .
l18b1h:
	push bc			;18b1	c5 	.
	call sub_030ah		;18b2	cd 0a 03 	. . .
	ld a,b			;18b5	78 	x
	pop bc			;18b6	c1 	.
	ret nc			;18b7	d0 	.
	and c			;18b8	a1 	.
	rlca			;18b9	07 	.
	rlca			;18ba	07 	.
	rlca			;18bb	07 	.
	scf			;18bc	37 	7
	ret			;18bd	c9 	.

assert_comma:
	call next_arg		;18be	cd ca 02 	. . .
	ret z			;18c1	c8 	.
l18c2h:
	jp ERROR		;18c2	c3 07 01 	. . .

test_paren_close:
	ld a,(de)		;18c5	1a 	.
	cp ')'			;18c6	fe 29 	. )
	jr nz,l18c2h		;18c8	20 f8 	  .
	inc de			;18ca	13 	.
	ret			;18cb	c9 	.

prefix_ixiy:
	db	0		;18cc	00 	.

cmd_L:
	ld hl,cmd_L		;18cd	21 cd 18 	! . .
	ld (cmd_rpt),hl		;18d0	22 68 00 	" h .
	call expr		;18d3	cd be 03 	. . .
	jr nc,l18dbh		;18d6	30 03 	0 .
	ld hl,(last_L)		;18d8	2a f9 1f 	* . .
l18dbh:
	push hl			;18db	e5 	.
	pop iy			;18dc	fd e1 	. .
	call next_arg		;18de	cd ca 02 	. . .
	call get_range		;18e1	cd 9a 03 	. . .
	jr nc,l1905h		;18e4	30 1f 	0 .
	call assert_eol		;18e6	cd d6 02 	. . .
	ld b,16			;18e9	06 10 	. .
l18ebh:
	push bc			;18eb	c5 	.
	push iy			;18ec	fd e5 	. .
	pop hl			;18ee	e1 	.
	push hl			;18ef	e5 	.
	call p_disas_line	;18f0	cd 2d 19 	. - .
	call crlf		;18f3	cd a3 02 	. . .
	pop iy			;18f6	fd e1 	. .
	ld c,b			;18f8	48 	H
	ld b,0			;18f9	06 00 	. .
	add iy,bc		;18fb	fd 09 	. .
	ld (last_L),iy		;18fd	fd 22 f9 1f 	. " . .
	pop bc			;1901	c1 	.
	djnz l18ebh		;1902	10 e7 	. .
	ret			;1904	c9 	.
l1905h:
	call assert_eol		;1905	cd d6 02 	. . .
	ld h,b			;1908	60 	`
	ld l,c			;1909	69 	i
	ld a,b			;190a	78 	x
	or c			;190b	b1 	.
	jr nz,l190fh		;190c	20 01 	  .
	dec hl			;190e	2b 	+
l190fh:
	push hl			;190f	e5 	.
	push iy			;1910	fd e5 	. .
	pop hl			;1912	e1 	.
	push hl			;1913	e5 	.
	call p_disas_line	;1914	cd 2d 19 	. - .
	call crlf		;1917	cd a3 02 	. . .
	pop iy			;191a	fd e1 	. .
	ld e,b			;191c	58 	X
	ld d,000h		;191d	16 00 	. .
	add iy,de		;191f	fd 19 	. .
	ld (last_L),iy		;1921	fd 22 f9 1f 	. " . .
	pop hl			;1925	e1 	.
	and a			;1926	a7 	.
	sbc hl,de		;1927	ed 52 	. R
	ret z			;1929	c8 	.
	ret c			;192a	d8 	.
	jr l190fh		;192b	18 e2 	. .

p_disas_line:
	call out.hl.@		;192d	cd a4 01 	. . .
	call z,outbl		;1930	cc 9f 02 	. . .
	call outbl		;1933	cd 9f 02 	. . .
	sub a			;1936	97 	.
	ld (con_col),a		;1937	32 72 02 	2 r .
	call p_disas_instr	;193a	cd 65 19 	. e .
	and a			;193d	a7 	.
	ret z			;193e	c8 	.

l193fh:
	call outbl		;193f	cd 9f 02 	. . .
	ld a,(con_col)		;1942	3a 72 02 	: r .
	cp 16			;1945	fe 10 	. .
	jr c,l193fh		;1947	38 f6 	8 .

p_offset:
	ld de,(offs.@)		;1949	ed 5b 64 00 	. [ d .
	ld a,d			;194d	7a 	z
	or e			;194e	b3 	.
	ret z			;194f	c8 	.
	ld a,'('		;1950	3e 28 	> (
	call outchar		;1952	cd 5d 02 	. ] .
	ld a,'@'		;1955	3e 40 	> @
	call outchar		;1957	cd 5d 02 	. ] .
	and a			;195a	a7 	.
	sbc hl,de		;195b	ed 52 	. R
	call out_hl		;195d	cd 13 02 	. . .
	ld a,')'		;1960	3e 29 	> )
	jp outchar		;1962	c3 5d 02 	. ] .

p_disas_instr:
	sub a			;1965	97 	.
	ld (l1ffdh),a		;1966	32 fd 1f 	2 . .
	call disas_get_instrlen	;1969	cd 8c 19 	. . .
	jr nc,l197fh		;196c	30 11 	0 .
	push bc			;196e	c5 	.
	call p_mnemonic		;196f	cd b9 1e 	. . .
	ex de,hl		;1972	eb 	.
	call CALL_HL2		;1973	cd c1 19 	. . .
	pop bc			;1976	c1 	.
	ld a,(l1ffdh)		;1977	3a fd 1f 	: . .
	ld hl,(l1ffbh)		;197a	2a fb 1f 	* . .
	scf			;197d	37 	7
	ret			;197e	c9 	.

l197fh:
	ld hl,msg_undef_opcode	;197f	21 89 19 	! . .
	call pstr		;1982	cd 88 02 	. . .
	ld b,001h		;1985	06 01 	. .
	sub a			;1987	97 	.
	ret			;1988	c9 	.

msg_undef_opcode:
	DC	'???'

disas_get_instrlen:
	sub a			;198c	97 	.
	ld (isprefix_ixiy),a	;198d	32 f8 1f 	2 . .
	ld a,(iy+000h)		;1990	fd 7e 00 	. ~ .
	cp 0edh			;1993	fe ed 	. .
	jp z,disas_pfx.ED	;1995	ca 19 1a 	. . .
	cp 0ddh			;1998	fe dd 	. .
	jr z,l19abh		;199a	28 0f 	( .
	cp 0fdh			;199c	fe fd 	. .
	jr z,l19afh		;199e	28 0f 	( .
sub_19a0h:
	ld a,(iy+000h)		;19a0	fd 7e 00 	. ~ .
	cp 0cbh			;19a3	fe cb 	. .
	jp z,disas_pfx.CB	;19a5	ca 36 1a 	. 6 .
	jp disas_nopfx		;19a8	c3 4d 1a 	. M .
l19abh:
	ld a,1			;19ab	3e 01 	> .
	jr l19b1h		;19ad	18 02 	. .
l19afh:
	ld a,2			;19af	3e 02 	> .
l19b1h:
	ld (isprefix_ixiy),a	;19b1	32 f8 1f 	2 . .
	call disas_pfx.DDFD	;19b4	cd c2 19 	. . .
	ret nc			;19b7	d0 	.
	push bc			;19b8	c5 	.
	call sub_19a0h		;19b9	cd a0 19 	. . .
	pop af			;19bc	f1 	.
	add a,b			;19bd	80 	.
	ld b,a			;19be	47 	G
	scf			;19bf	37 	7
	ret			;19c0	c9 	.

CALL_HL2:
	jp (hl)			;19c1	e9 	.

disas_pfx.DDFD:
	inc iy			;19c2	fd 23 	. #
	ld hl,b_19ef_start	;19c4	21 ef 19 	! . .
	call test_DDFD		;19c7	cd 8c 1a 	. . .
	ld b,002h		;19ca	06 02 	. .
	ret c			;19cc	d8 	.
	ld hl,l1a0ah		;19cd	21 0a 1a 	! . .
	call test_DDFD		;19d0	cd 8c 1a 	. . .
	ld b,001h		;19d3	06 01 	. .
	ret c			;19d5	d8 	.
	ld a,(iy+000h)		;19d6	fd 7e 00 	. ~ .
	cp 0cbh			;19d9	fe cb 	. .
	jr nz,l19edh		;19db	20 10 	  .
	ld a,(iy+002h)		;19dd	fd 7e 02 	. ~ .
	cp 036h			;19e0	fe 36 	. 6
	ret z			;19e2	c8 	.
	and 007h		;19e3	e6 07 	. .
	cp 006h			;19e5	fe 06 	. .
	jr nz,l19edh		;19e7	20 04 	  .
	ld b,002h		;19e9	06 02 	. .
	scf			;19eb	37 	7
	ret			;19ec	c9 	.
l19edh:
	and a			;19ed	a7 	.
	ret			;19ee	c9 	.

; DD/FD 3 byte (ix+d)/(iy+d)
b_19ef_start:
	defb 034h		;19ef	34 	4
	defb 035h		;19f0	35 	5
	defb 036h		;19f1	36 	6
	defb 046h		;19f2	46 	F
	defb 04eh		;19f3	4e 	N
	defb 056h		;19f4	56 	V
	defb 05eh		;19f5	5e 	^
	defb 066h		;19f6	66 	f
	defb 06eh		;19f7	6e 	n
	defb 070h		;19f8	70 	p
	defb 071h		;19f9	71 	q
	defb 072h		;19fa	72 	r
	defb 073h		;19fb	73 	s
	defb 074h		;19fc	74 	t
	defb 075h		;19fd	75 	u
; ????
	defb 076h		;19fe	76 	v	????
	defb 077h		;19ff	77 	w
	defb 07eh		;1a00	7e 	~
	defb 086h		;1a01	86 	.
	defb 08eh		;1a02	8e 	.
	defb 096h		;1a03	96 	.
	defb 09eh		;1a04	9e 	.
	defb 0a6h		;1a05	a6 	.
	defb 0aeh		;1a06	ae 	.
	defb 0b6h		;1a07	b6 	.
	defb 0beh		;1a08	be 	.
	defb 0			;1a09	00 	.

; DD/FD 2 byte
l1a0ah:
	defb 009h		;1a0a	09 	.
	defb 019h		;1a0b	19 	.
	defb 021h		;1a0c	21 	!
	defb 022h		;1a0d	22 	"
	defb 023h		;1a0e	23 	#
	defb 029h		;1a0f	29 	)
	defb 02ah		;1a10	2a 	*
	defb 02bh		;1a11	2b 	+
	defb 039h		;1a12	39 	9
	defb 0e1h		;1a13	e1 	.
	defb 0e3h		;1a14	e3 	.
	defb 0e5h		;1a15	e5 	.
	defb 0e9h		;1a16	e9 	.
	defb 0f9h		;1a17	f9 	.
	defb 0			;1a18	00 	.

disas_pfx.ED:
	inc iy			;1a19	fd 23 	. #
	ld hl,b_1bc9_start	;1a1b	21 c9 1b 	! . .
	call sub_1a72h		;1a1e	cd 72 1a 	. r .
	ld b,2			;1a21	06 02 	. .
	ret c			;1a23	d8 	.
	ld hl,b_1bf4_start	;1a24	21 f4 1b 	! . .
	call lookup_opc		;1a27	cd 97 1a 	. . .
	ld b,2			;1a2a	06 02 	. .
	ret c			;1a2c	d8 	.
	ld hl,b_1c40_start	;1a2d	21 40 1c 	! @ .
	call lookup_opc		;1a30	cd 97 1a 	. . .
	ld b,4			;1a33	06 04 	. .
	ret			;1a35	c9 	.

disas_pfx.CB:
	push iy			;1a36	fd e5 	. .
	inc iy			;1a38	fd 23 	. #
	ld a,(isprefix_ixiy)	;1a3a	3a f8 1f 	: . .
	and a			;1a3d	a7 	.
	jr z,l1a42h		;1a3e	28 02 	( .
	inc iy			;1a40	fd 23 	. #
l1a42h:
	ld hl,b_1c55_start	;1a42	21 55 1c 	! U .
	call lookup_opc		;1a45	cd 97 1a 	. . .
	pop iy			;1a48	fd e1 	. .
	ld b,2			;1a4a	06 02 	. .
	ret			;1a4c	c9 	.

disas_nopfx:
	ld hl,b_1b54_start	;1a4d	21 54 1b 	! T .
	call lookup_opc		;1a50	cd 97 1a 	. . .
	ld b,2			;1a53	06 02 	. .
	ret c			;1a55	d8 	.
	ld hl,b_1ab6_start	;1a56	21 b6 1a 	! . .
	call sub_1a72h		;1a59	cd 72 1a 	. r .
	ld b,1			;1a5c	06 01 	. .
	ret c			;1a5e	d8 	.
	ld hl,b_1ad1_start	;1a5f	21 d1 1a 	! . .
	call lookup_opc		;1a62	cd 97 1a 	. . .
	ld b,1			;1a65	06 01 	. .
	ret c			;1a67	d8 	.
	ld hl,b_1b9b_start	;1a68	21 9b 1b 	! . .
	call lookup_opc		;1a6b	cd 97 1a 	. . .
	ret nc			;1a6e	d0 	.
	ld b,3			;1a6f	06 03 	. .
	ret			;1a71	c9 	.

sub_1a72h:
	ld a,(hl)		;1a72	7e 	~
	cp 0ffh			;1a73	fe ff 	. .
	ret z			;1a75	c8 	.
	cp (iy+000h)		;1a76	fd be 00 	. . .
	jr z,l1a7fh		;1a79	28 04 	( .
	inc hl			;1a7b	23 	#
	inc hl			;1a7c	23 	#
	jr sub_1a72h		;1a7d	18 f3 	. .
l1a7fh:
	inc hl			;1a7f	23 	#
	ld c,(hl)		;1a80	4e 	N
	ld hl,t_MNEMONICS	;1a81	21 c6 1e 	! . .
	ld b,0			;1a84	06 00 	. .
	add hl,bc		;1a86	09 	.
	ld de,l1c97h		;1a87	11 97 1c 	. . .
	scf			;1a8a	37 	7
	ret			;1a8b	c9 	.

test_DDFD:
	ld a,(hl)		;1a8c	7e 	~
	and a			;1a8d	a7 	.
	ret z			;1a8e	c8 	.
	inc hl			;1a8f	23 	#
	cp (iy+000h)		;1a90	fd be 00 	. . .
	jr nz,test_DDFD		;1a93	20 f7 	  .
	scf			;1a95	37 	7
	ret			;1a96	c9 	.

lookup_opc:
	ld a,(iy+000h)		;1a97	fd 7e 00 	. ~ .
	and (hl)		;1a9a	a6 	.
	inc hl			;1a9b	23 	#
	cp (hl)			;1a9c	be 	.
	jr z,l1aa8h		;1a9d	28 09 	( .
	inc hl			;1a9f	23 	#
	inc hl			;1aa0	23 	#
	inc hl			;1aa1	23 	#
	inc hl			;1aa2	23 	#
	ld a,(hl)		;1aa3	7e 	~
	and a			;1aa4	a7 	.
	jr nz,lookup_opc		;1aa5	20 f0 	  .
	ret			;1aa7	c9 	.
l1aa8h:
	inc hl			;1aa8	23 	#
	ld c,(hl)		;1aa9	4e 	N
	inc hl			;1aaa	23 	#
	ld e,(hl)		;1aab	5e 	^
	inc hl			;1aac	23 	#
	ld d,(hl)		;1aad	56 	V
	ld hl,t_MNEMONICS	;1aae	21 c6 1e 	! . .
	ld b,000h		;1ab1	06 00 	. .
	add hl,bc		;1ab3	09 	.
	scf			;1ab4	37 	7
	ret			;1ab5	c9 	.

; 1 byte opcodes (no parameters)
; Format: db opcode, t_MNEMONICS-index
b_1ab6_start:
	db 076h,039h		;halt
	db 0d9h,036h		;exx
	db 0f3h,02ch		;di
	db 0fbh,032h		;ei
	db 000h,069h		;nop
	db 007h,09eh		;rlca
	db 00fh,0adh		;rrca
	db 017h,098h		;rla
	db 01fh,0a7h		;rra
	db 027h,026h		;daa
	db 02fh,023h		;cpl
	db 037h,0bah		;scf
	db 03fh,010h		;ccf
	db 0ffh


;	1 byte opcodes
; Format: db mask, match, t_MNEMONICS-index
;	  dw argument formating fuction
b_1ad1_start:
	db 0c0h,040h,056h	;ld r,r
	dw p_arg_r_r
	db 0f8h,080h,003h	;add a,r
	dw p_arg_a_r
	db 0f8h,088h,000h	;adc a,r
	dw p_arg_a_r
	db 0f8h,090h,0c9h	;sub r
	dw p_arg_rs
	db 0f8h,098h,0b7h	;sbc a,r
	dw p_arg_a_r
	db 0f8h,0a0h,006h	;and r
	dw p_arg_rs
	db 0f8h,0a8h,0cch	;xor r
	dw p_arg_rs
	db 0f8h,0b0h,06ch	;or r
	dw p_arg_rs
	db 0f8h,0b8h,013h	;cp r
	dw p_arg_rs
	db 0c7h,0c0h,08bh	;ret cc
	dw p_arg_cc
	db 0c7h,0c7h,0b4h	;rst
	dw l1c98h
	db 0ffh,0c9h,08bh	;ret
	dw l1c97h
	db 0cfh,0c1h,081h	;pop rr
	dw p_arg_zz
	db 0cfh,0c5h,084h	;push rr
	dw p_arg_zz
	db 0ffh,0e3h,034h	;ex (sp),hl
	dw l1ca0h
	db 0ffh,0e9h,052h	;jp (hl)
	dw l1caeh
	db 0ffh,0ebh,034h	;ex de,hl
	dw p_arg_ex_dehl
	db 0ffh,0f9h,056h	;ld sp,hl
	dw l1cc1h
	db 0cfh,003h,041h	;inc rr
	dw p_arg_ww
	db 0cfh,00bh,029h	;dec rr
	dw p_arg_ww
	db 0c7h,004h,041h	;inc r
	dw p_arg_r
	db 0c7h,005h,029h	;dec r
	dw p_arg_r
	db 0ffh,008h,034h	;ex af,af'
	dw p_arg_ex_afaf
	db 0cfh,009h,003h	;add hl,rr
	dw l1cd3h
	db 0efh,002h,056h	;ld (rr),a ;rr=bc,de
	dw l1cdch
	db 0efh,00ah,056h	;ld a,(rr) ;rr=bc,de
	dw l1ce5h
	db 0

;	2 byte opdodes
b_1b54_start:
	db 0c7h,006h,056h	;ld r,nn
	dw l1cfah
	db 0ffh,0c6h,003h	;add a,nn
	dw l1cf5h
	db 0ffh,0ceh,000h	;adc a,nn
	dw l1cf5h
	db 0ffh,0d6h,0c9h	;sub a,nn
	dw l1d09h
	db 0ffh,0deh,0b7h	;sbc a,nn
	dw l1cf5h
	db 0ffh,0e6h,006h	;and a,nn
	dw l1d09h
	db 0ffh,0eeh,0cch	;xor nn
	dw l1d09h
	db 0ffh,0f6h,06ch	;or nn
	dw l1d09h
	db 0ffh,0feh,013h	;cp a,nn
	dw l1d09h
	db 0ffh,010h,02eh	;djnz
	dw l1d1ah
	db 0ffh,018h,054h	;jr
	dw l1d1ah
	db 0e7h,020h,054h	;jr,cc
	dw l1d0fh
	db 0ffh,0d3h,076h	;out (nn),a
	dw l1d37h
	db 0ffh,0dbh,03fh	;in a,(nn)
	dw l1d29h
	db 0

;	3 byte opcodes
b_1b9b_start:
	db 0c7h,0c2h,052h	;jp cc,mn
	dw p_arg_cc_mn
	db 0c7h,0c4h,00ch	;call cc,mn
	dw p_arg_cc_mn
	db 0cfh,001h,056h	;ld ww,mn
	dw p_arg_ww_mn
	db 0ffh,0c3h,052h	;jp mn
	dw p_arg_mn
	db 0ffh,0cdh,00ch	;call mn
	dw p_arg_mn
	db 0ffh,022h,056h	;ld (mn),hl
	dw p_arg_addr_hl
	db 0ffh,02ah,056h	;ld hl,(mn)
	dw p_arg_hl_addr
	db 0ffh,032h,056h	;ld (mn),a
	dw p_arg_addr_a
	db 0ffh,03ah,056h	;ld a,(mn)
	dw p_arg_a_addr
	db 0

; Prefix ED + 1 byte opcode, no arguments
; Format: opcode, t_MNEMONICS index
b_1bc9_start:
	db 044h,066h		;neg
	db 045h,092h		;retn
	db 04dh,08eh		;reti
	db 067h,0b1h		;rrd
	db 06fh,0a2h		;rld
	db 0a0h,05fh		;ldi
	db 0a1h,01ch		;cpi
	db 0a2h,04bh		;ini
	db 0a3h,07dh		;outi
	db 0a8h,058h		;ldd
	db 0a9h,015h		;cpd
	db 0aah,044h		;ind
	db 0abh,079h		;outd
	db 0b0h,062h		;ldir
	db 0b1h,01fh		;cpir
	db 0b2h,04eh		;inir
	db 0b3h,072h		;otir
	db 0b8h,05bh		;lddr
	db 0b9h,018h		;cpdr
	db 0bah,047h		;indr
	db 0bbh,06eh		;otdr
	db 0ffh			;<end mark>

b_1bf4_start:
	db 0e7h,040h,03fh	;in r,(c) ;r=b,c,d,e
	dw p_arg_in_c	   	;
	db 0f7h,060h,03fh	;in r,(c) ;r=h,l
	dw p_arg_in_c	   	;
	db 0ffh,078h,03fh	;in r,(c) ;r=a
	dw p_arg_in_c	   	;
	db 0e7h,041h,076h	;out (c),r ;r=b,c,d,e
	dw p_arg_out_c	   	;
	db 0f7h,061h,076h	;out (c),r ;r=h,l
	dw p_arg_out_c	   	;
	db 0ffh,079h,076h	;out (c),r ;r=a
	dw p_arg_out_c	   	;
	db 0cfh,042h,0b7h	;sbc hl,rr
	dw l1dcah	   	;
	db 0cfh,04ah,000h	;adc hl,rr
	dw l1dcah	   	;
	db 0ffh,046h,03dh	;im 0
	dw l1d85h	   	;
	db 0ffh,056h,03dh	;im 1
	dw l1d89h	   	;
	db 0ffh,05eh,03dh	;im 2
	dw l1d8dh	   	;
	db 0ffh,047h,056h	;ld i,a
	dw l1d92h	   	;
	db 0ffh,057h,056h	;ld a,i
	dw l1d97h	   	;
	db 0ffh,04fh,056h	;ld r,a
	dw l1d9ch	   	;
	db 0ffh,05fh,056h	;ld a,r
	dw l1da1h
	db 0

b_1c40_start:
	db 0efh,043h,056h	;ld (mn),ww	;ww=bc,de
	dw p_arg_addr_ww
	db 0ffh,073h,056h	;ld (mn),sp
	dw p_arg_addr_ww
	db 0efh,04bh,056h	;ld ww,(mn)	;ww=bc,de
	dw p_arg_ww_addr
	db 0ffh,07bh,056h	;ld sp,(mn)
	dw p_arg_ww_addr
	db 0

; CB
b_1c55_start:
	db 0f8h,000h,09bh	;rlc g
	dw l1e03h
	db 0f8h,008h,0aah	;rrc g
	dw l1e03h
	db 0f8h,010h,096h	;rl g
	dw l1e03h
	db 0f8h,018h,0a5h	;rr g
	dw l1e03h
	db 0f8h,020h,0c0h	;sla g
	dw l1e03h
	db 0f8h,028h,0c3h	;sra g
	dw l1e03h
	db 0f8h,038h,0c6h	;srl g
	dw l1e03h
	db 0c0h,040h,009h	;bit b,g
	dw p_arg_bitop
	db 0c0h,080h,088h	;res b,g
	dw p_arg_bitop
	db 0c0h,0c0h,0bdh	;set b,g
	dw p_arg_bitop
	db 0

p_arg_r_r:
	call p_arg_r		;1c88	cd 28 1e 	. ( .
	call p_char_comma	;1c8b	cd b4 1e 	. . .
	jp p_arg_rs		;1c8e	c3 30 1e 	. 0 .
p_arg_a_r:
	call p_A_comma		;1c91	cd b1 1e 	. . .
	jp p_arg_rs		;1c94	c3 30 1e 	. 0 .
l1c97h:
	ret			;1c97	c9 	.
l1c98h:
	ld a,(iy+000h)		;1c98	fd 7e 00 	. ~ .
	and 038h		;1c9b	e6 38 	. 8
	jp out_hex		;1c9d	c3 18 02 	. . .

l1ca0h:
	ld hl,b_1ca9_start	;1ca0	21 a9 1c 	! . .
	call pstr		;1ca3	cd 88 02 	. . .
	jp p_arg_hlixiy		;1ca6	c3 7e 1e 	. ~ .

b_1ca9_start:
	DC	'(SP),'

l1caeh:
	ld a,'('		;1cae	3e 28 	> (
	call outchar		;1cb0	cd 5d 02 	. ] .
	call p_arg_hlixiy	;1cb3	cd 7e 1e 	. ~ .
	ld a,')'		;1cb6	3e 29 	> )
	jp outchar		;1cb8	c3 5d 02 	. ] .
p_arg_ex_dehl:
	ld hl,l1773h		;1cbb	21 73 17 	! s .
	jp pstr			;1cbe	c3 88 02 	. . .

l1cc1h:
	ld hl,b_1cca_start	;1cc1	21 ca 1c 	! . .
	call pstr		;1cc4	cd 88 02 	. . .
	jp p_arg_hlixiy		;1cc7	c3 7e 1e 	. ~ .

b_1cca_start:
	DC	'SP,'

p_arg_ex_afaf:
	ld hl,b_176d_start	;1ccd	21 6d 17 	! m .
	jp pstr			;1cd0	c3 88 02 	. . .

l1cd3h:
	call p_arg_hlixiy	;1cd3	cd 7e 1e 	. ~ .
	call p_char_comma	;1cd6	cd b4 1e 	. . .
	jp p_arg_ww		;1cd9	c3 8b 1e 	. . .
l1cdch:
	call sub_1ce8h		;1cdc	cd e8 1c 	. . .
	call p_char_comma	;1cdf	cd b4 1e 	. . .
	jp p_char_A		;1ce2	c3 3d 1d 	. = .

l1ce5h:
	call p_A_comma		;1ce5	cd b1 1e 	. . .
sub_1ce8h:
	ld a,'('		;1ce8	3e 28 	> (
	call outchar		;1cea	cd 5d 02 	. ] .
	call p_arg_ww	;1ced	cd 8b 1e 	. . .
	ld a,')'		;1cf0	3e 29 	> )
	jp outchar		;1cf2	c3 5d 02 	. ] .
l1cf5h:
	call p_A_comma		;1cf5	cd b1 1e 	. . .
	jr l1d09h		;1cf8	18 0f 	. .
l1cfah:
	call p_arg_r		;1cfa	cd 28 1e 	. ( .
	call p_char_comma	;1cfd	cd b4 1e 	. . .
	ld a,(isprefix_ixiy)	;1d00	3a f8 1f 	: . .
	and a			;1d03	a7 	.
	ld a,(iy+002h)		;1d04	fd 7e 02 	. ~ .
	jr nz,l1d0ch		;1d07	20 03 	  .
l1d09h:
	ld a,(iy+001h)		;1d09	fd 7e 01 	. ~ .
l1d0ch:
	jp out_hex		;1d0c	c3 18 02 	. . .

l1d0fh:
	ld a,(iy+000h)		;1d0f	fd 7e 00 	. ~ .
	and 018h		;1d12	e6 18 	. .
	call p_arg_cc0		;1d14	cd a0 1e 	. . .
	call p_char_comma	;1d17	cd b4 1e 	. . .
l1d1ah:
	ld c,(iy+001h)		;1d1a	fd 4e 01 	. N .
	ld a,c			;1d1d	79 	y
	rla			;1d1e	17 	.
	sbc a,a			;1d1f	9f 	.
	ld b,a			;1d20	47 	G
	push iy			;1d21	fd e5 	. .
	pop hl			;1d23	e1 	.
	add hl,bc		;1d24	09 	.
	inc hl			;1d25	23 	#
	inc hl			;1d26	23 	#
	jr l1d4eh		;1d27	18 25 	. %
l1d29h:
	call p_A_comma		;1d29	cd b1 1e 	. . .
sub_1d2ch:
	ld a,'('		;1d2c	3e 28 	> (
	call outchar		;1d2e	cd 5d 02 	. ] .
	ld a,(iy+001h)		;1d31	fd 7e 01 	. ~ .
	jp l1e6bh		;1d34	c3 6b 1e 	. k .
l1d37h:
	call sub_1d2ch		;1d37	cd 2c 1d 	. , .
	call p_char_comma	;1d3a	cd b4 1e 	. . .
p_char_A:
	ld a,'A'		;1d3d	3e 41 	> A
	jp outchar		;1d3f	c3 5d 02 	. ] .

p_arg_cc_mn:
	call p_arg_cc		;1d42	cd 9d 1e 	. . .
	call p_char_comma	;1d45	cd b4 1e 	. . .
p_arg_mn:
	ld l,(iy+001h)		;1d48	fd 6e 01 	. n .
	ld h,(iy+002h)		;1d4b	fd 66 02 	. f .
l1d4eh:
	ld a,002h		;1d4e	3e 02 	> .
sub_1d50h:
	ld (l1ffdh),a		;1d50	32 fd 1f 	2 . .
	ld (l1ffbh),hl		;1d53	22 fb 1f 	" . .
	call out_hl		;1d56	cd 13 02 	. . .
	ret			;1d59	c9 	.
p_arg_ww_mn:
	call p_arg_ww		;1d5a	cd 8b 1e 	. . .
	call p_char_comma	;1d5d	cd b4 1e 	. . .
	jr p_arg_mn		;1d60	18 e6 	. .

p_arg_addr_hl:
	call sub_1e13h		;1d62	cd 13 1e 	. . .
	call p_char_comma	;1d65	cd b4 1e 	. . .
	jp p_arg_hlixiy		;1d68	c3 7e 1e 	. ~ .
p_arg_hl_addr:
	call p_arg_hlixiy	;1d6b	cd 7e 1e 	. ~ .
	call p_char_comma	;1d6e	cd b4 1e 	. . .
	jp sub_1e13h		;1d71	c3 13 1e 	. . .

p_arg_addr_a:
	call sub_1e13h		;1d74	cd 13 1e 	. . .
p_char_comma_A:
	call p_char_comma	;1d77	cd b4 1e 	. . .
	ld a,'A'		;1d7a	3e 41 	> A
	jp outchar		;1d87	18 06 	. .
p_arg_a_addr:
	call p_A_comma		;1d7f	cd b1 1e 	. . .
	jp sub_1e13h		;1d82	c3 13 1e 	. . .
l1d85h:
	ld a,'0'		;1d85	3e 30 	> 0
	jr l1d8fh		;1d87	18 06 	. .
l1d89h:
	ld a,'1'		;1d89	3e 31 	> 1
	jr l1d8fh		;1d8b	18 02 	. .
l1d8dh:
	ld a,'2'		;1d8d	3e 32 	> 2
l1d8fh:
	jp outchar		;1d8f	c3 5d 02 	. ] .
l1d92h:
	ld hl,b_1da7_start	;1d92	21 a7 1d 	! . .
	jr l1da4h		;1d95	18 0d 	. .
l1d97h:
	ld hl,l1daah		;1d97	21 aa 1d 	! . .
	jr l1da4h		;1d9a	18 08 	. .
l1d9ch:
	ld hl,l1dadh		;1d9c	21 ad 1d 	! . .
	jr l1da4h		;1d9f	18 03 	. .
l1da1h:
	ld hl,l1db0h		;1da1	21 b0 1d 	! . .
l1da4h:
	jp pstr			;1da4	c3 88 02 	. . .

b_1da7_start:
	DC	'I,A'
l1daah:
	DC	'A,I'
l1dadh:
	DC	'R,A'
l1db0h:
	DC	'A,R'

p_arg_in_c:
	call p_arg_r		;1db3	cd 28 1e 	. ( .
	call p_char_comma	;1db6	cd b4 1e 	. . .
	ld hl,t__C_		;1db9	21 f4 1f 	! . .
	jp pstr			;1dbc	c3 88 02 	. . .

p_arg_out_c:
	ld hl,t__C_		;1dbf	21 f4 1f 	! . .
	call pstr		;1dc2	cd 88 02 	. . .
	call p_char_comma	;1dc5	cd b4 1e 	. . .
	jr p_arg_r		;1dc8	18 5e 	. ^

l1dcah:
	call p_arg_hlixiy	;1dca	cd 7e 1e 	. ~ .
	call p_char_comma	;1dcd	cd b4 1e 	. . .
	jp p_arg_ww		;1dd0	c3 8b 1e 	. . .

p_arg_addr_ww:
	call sub_1e13h		;1dd3	cd 13 1e 	. . .
	call p_char_comma	;1dd6	cd b4 1e 	. . .
	jp p_arg_ww		;1dd9	c3 8b 1e 	. . .

p_arg_ww_addr:
	call p_arg_ww		;1ddc	cd 8b 1e 	. . .
	call p_char_comma	;1ddf	cd b4 1e 	. . .
	jr sub_1e13h		;1de2	18 2f 	. /

p_arg_bitop:
	ld a,(isprefix_ixiy)	;1de4	3a f8 1f 	: . .
	and a			;1de7	a7 	.
	jr nz,l1defh		;1de8	20 05 	  .
	ld a,(iy+001h)		;1dea	fd 7e 01 	. ~ .
	jr l1df2h		;1ded	18 03 	. .
l1defh:
	ld a,(iy+002h)		;1def	fd 7e 02 	. ~ .
l1df2h:
	push af			;1df2	f5 	.
	rra			;1df3	1f 	.
	rra			;1df4	1f 	.
	rra			;1df5	1f 	.
	and 007h		;1df6	e6 07 	. .
	add a,'0'		;1df8	c6 30 	. 0
	call outchar		;1dfa	cd 5d 02 	. ] .
	call p_char_comma	;1dfd	cd b4 1e 	. . .
	pop af			;1e00	f1 	.
	jr p_arg_r0		;1e01	18 30 	. 0

l1e03h:
	ld a,(isprefix_ixiy)	;1e03	3a f8 1f 	: . .
	and a			;1e06	a7 	.
	jr nz,l1e0eh		;1e07	20 05 	  .
	ld a,(iy+001h)		;1e09	fd 7e 01 	. ~ .
	jr l1e11h		;1e0c	18 03 	. .
l1e0eh:
	ld a,(iy+002h)		;1e0e	fd 7e 02 	. ~ .
l1e11h:
	jr p_arg_r0		;1e11	18 20 	.

sub_1e13h:
	ld a,'('		;1e13	3e 28 	> (
	call outchar		;1e15	cd 5d 02 	. ] .
	ld l,(iy+001h)		;1e18	fd 6e 01 	. n .
	ld h,(iy+002h)		;1e1b	fd 66 02 	. f .
	ld a,001h		;1e1e	3e 01 	> .
	call sub_1d50h		;1e20	cd 50 1d 	. P .

p_char_rparen:
	ld a,')'		;1e23	3e 29 	> )
	jp outchar		;1e25	c3 5d 02 	. ] .

p_arg_r:
	ld a,(iy+000h)		;1e28	fd 7e 00 	. ~ .
	rra			;1e2b	1f 	.
	rra			;1e2c	1f 	.
	rra			;1e2d	1f 	.
	jr p_arg_r0		;1e2e	18 03 	. .
p_arg_rs:
	ld a,(iy+000h)		;1e30	fd 7e 00 	. ~ .
p_arg_r0:
	and 007h		;1e33	e6 07 	. .
	cp 006h			;1e35	fe 06 	. .
	jr nz,p_arg_r1		;1e37	20 3a 	  :
	ld a,(isprefix_ixiy)	;1e39	3a f8 1f 	: . .
	and a			;1e3c	a7 	.
	ld a,006h		;1e3d	3e 06 	> .
	jr z,p_arg_r1		;1e3f	28 32 	( 2
	ld hl,b_1e78_start	;1e41	21 78 1e 	! x .
	ld a,(isprefix_ixiy)	;1e44	3a f8 1f 	: . .
	dec a			;1e47	3d 	=
	jr z,l1e4dh		;1e48	28 03 	( .
	ld hl,l1e7bh		;1e4a	21 7b 1e 	! { .
l1e4dh:
	call pstr		;1e4d	cd 88 02 	. . .
	ld a,(iy+001h)		;1e50	fd 7e 01 	. ~ .
	and a			;1e53	a7 	.
	jp m,l1e61h		;1e54	fa 61 1e 	. a .
	ld a,'+'		;1e57	3e 2b 	> +
	call outchar		;1e59	cd 5d 02 	. ] .
	ld a,(iy+001h)		;1e5c	fd 7e 01 	. ~ .
	jr l1e6bh		;1e5f	18 0a 	. .
l1e61h:
	ld a,'-'		;1e61	3e 2d 	> -
	call outchar		;1e63	cd 5d 02 	. ] .
	ld a,(iy+001h)		;1e66	fd 7e 01 	. ~ .
	neg			;1e69	ed 44 	. D
l1e6bh:
	call out_hex		;1e6b	cd 18 02 	. . .
	ld a,')'		;1e6e	3e 29 	> )
	jp outchar		;1e70	c3 5d 02 	. ] .

p_arg_r1:
	ld hl,t_BCDEHL_HL_A	;1e73	21 96 1f 	! . .
	jr p_arg		;1e76	18 32 	. 2

b_1e78_start:
	DC	'(IX'
l1e7bh:
	DC	'(IY'

p_arg_hlixiy:
	ld a,(isprefix_ixiy)	;1e7e	3a f8 1f 	: . .
	ld hl,t_HL.IX.IY	;1e81	21 c6 1f 	! . .
	jr p_arg		;1e84	18 24 	. $
p_arg_zz:
	ld hl,t_BC.DE.HL.AF	;1e86	21 ab 1f 	! . .
	jr l1e8eh		;1e89	18 03 	. .
p_arg_ww:
	ld hl,t_BC.DE.HL.SP	;1e8b	21 a2 1f 	! . .
l1e8eh:
	ld a,(iy+000h)		;1e8e	fd 7e 00 	. ~ .
	rra			;1e91	1f 	.
	rra			;1e92	1f 	.
	rra			;1e93	1f 	.
	rra			;1e94	1f 	.
	and 003h		;1e95	e6 03 	. .
	cp 002h			;1e97	fe 02 	. .
	jr z,p_arg_hlixiy	;1e99	28 e3 	( .
	jr p_arg		;1e9b	18 0d 	. .

p_arg_cc:
	ld a,(iy+000h)		;1e9d	fd 7e 00 	. ~ .
p_arg_cc0:
	rra			;1ea0	1f 	.
	rra			;1ea1	1f 	.
	rra			;1ea2	1f 	.
	and 007h		;1ea3	e6 07 	. .
	ld hl,t_tstfl_ZCPS	;1ea5	21 dc 1f 	! . .
	jr l1eaah		;1ea8	18 00 	. .
l1eaah:
p_arg:
	ld b,a			;1eaa	47 	G
	call sel_dc_string	;1eab	cd 3d 03 	. = .
	jp pstr			;1eae	c3 88 02 	. . .

p_A_comma:
	call p_char_A	;1eb1	cd 3d 1d 	. = .
p_char_comma:
	ld a,','		;1eb4	3e 2c 	> ,
	jp outchar		;1eb6	c3 5d 02 	. ] .

p_mnemonic:
	call pstr		;1eb9	cd 88 02 	. . .
l1ebch:
	call outbl		;1ebc	cd 9f 02 	. . .
	inc c			;1ebf	0c 	.
	ld a,c			;1ec0	79 	y
	cp 5			;1ec1	fe 05 	. .
	jr nz,l1ebch		;1ec3	20 f7 	  .
	ret			;1ec5	c9 	.

t_MNEMONICS:
	DC	'ADC'
	DC	'ADD'
	DC	'AND'
	DC	'BIT'
	DC	'CALL'
	DC	'CCF'
	DC	'CP'
	DC	'CPD'
	DC	'CPDR'
	DC	'CPI'
	DC	'CPIR'
	DC	'CPL'
	DC	'DAA'
	DC	'DEC'
	DC	'DI'
	DC	'DJNZ'
	DC	'EI'
	DC	'EX'
	DC	'EXX'
	DC	'HALT'
	DC	'IM'
	DC	'IN'
	DC	'INC'
	DC	'IND'
	DC	'INDR'
	DC	'INI'
	DC	'INIR'
	DC	'JP'
	DC	'JR'
	DC	'LD'
	DC	'LDD'
	DC	'LDDR'
	DC	'LDI'
	DC	'LDIR'
	DC	'NEG'
	DC	'NOP'
	DC	'OR'
	DC	'OTDR'
	DC	'OTIR'
	DC	'OUT'
	DC	'OUTD'
	DC	'OUTI'
	DC	'POP'
	DC	'PUSH'
	DC	'RES'
	DC	'RET'
	DC	'RETI'
	DC	'RETN'
	DC	'RL'
	DC	'RLA'
	DC	'RLC'
	DC	'RLCA'
	DC	'RLD'
	DC	'RR'
	DC	'RRA'
	DC	'RRC'
	DC	'RRCA'
	DC	'RRD'
	DC	'RST'
	DC	'SBC'
	DC	'SCF'
	DC	'SET'
	DC	'SLA'
	DC	'SRA'
	DC	'SRL'
	DC	'SUB'
	DC	'XOR'
 if 0
	DC	'IN0'
	DC	'MLT'
	DC	'OTDM'
	DC	'OTDMR'
	DC	'OTIM'
	DC	'OTIMR'
	DC	'OUT0'
	DC	'SLP'
	DC	'TST'
	DC	'TSTIO'
 endif
	DB	0

t_BCDEHL_HL_A:
	DC	'B'
	DC	'C'
	DC	'D'
	DC	'E'
	DC	'H'
	DC	'L'
	DC	'(HL)'
	DC	'A'
	DB	0
t_BC.DE.HL.SP:
	DC	'BC'
	DC	'DE'
	DC	'HL'
	DC	'SP'
	DB	0
t_BC.DE.HL.AF:
	DC	'BC'
	DC	'DE'
t_HL.AF:
	DC	'HL'
	DC	'AF'
	DB	0
t_BC.DE.IY.SP:
	DC	'BC'
	DC	'DE'
	DC	'IY'
	DC	'SP'
	DB	0
t_BC.DE.IX.SP:
	DC	'BC'
	DC	'DE'
	DC	'IX'
	DC	'SP'
	DB	0
t_HL.IX.IY:
	DC	'HL'
t_IX.IY:
	DC	'IX'
	DC	'IY'
	DB	0
t_tstfl_ZC:
	DC	'NZ'
	DC	'Z'
	DC	'NC'
	DC	'C'
	DC	'NE'
	DC	'EQ'
	DC	'GE'
	DC	'LT'
	DB	0
t_tstfl_ZCPS:
	DC	'NZ'
	DC	'Z'
	DC	'NC'
	DC	'C'
	DC	'PO'
	DC	'PE'
	DC	'P'
	DC	'M'
	DC	'NE'
	DC	'EQ'
	DC	'GE'
	DC	'LT'
	DC	'NV'
	DC	'V'
	DB	0
t__C_:
	DC	'(C)'
	DB	0

isprefix_ixiy:
	db	0		;1ff8	00 	.
last_L:
	dw	TPA		;1ff9	00 01	.
l1ffbh:
	dw	0		;1ffb	00 00	.
l1ffdh:
	db	0		;1ffd	00 	.

sub_1ffeh:
	ld hl,(REG.PC)		;1ffe	2a 60 00 	* ` .
	ld a,h			;2001	7c 	|
	or l			;2002	b5 	.
	jr z,l2037h		;2003	28 32 	( 2
	ld de,BDOS		;2005	11 05 00 	. . .
	and a			;2008	a7 	.
	sbc hl,de		;2009	ed 52 	. R
	ld hl,l20edh		;200b	21 ed 20 	! .
	jr z,l2031h		;200e	28 21 	( !
	ld iy,(REG.PC)		;2010	fd 2a 60 00 	. * ` .
	call disas_get_instrlen	;2014	cd 8c 19 	. . .
	jp nc,ERROR		;2017	d2 07 01 	. . .
	ld c,b			;201a	48 	H
	ld b,000h		;201b	06 00 	. .
	ld hl,(REG.PC)		;201d	2a 60 00 	* ` .
	add hl,bc		;2020	09 	.
	call sub_09cah		;2021	cd ca 09 	. . .
	ld iy,(REG.PC)		;2024	fd 2a 60 00 	. * ` .
	ld hl,b_2039_start	;2028	21 39 20 	! 9
	call lookup_opc		;202b	cd 97 1a 	. . .
	ccf			;202e	3f 	?
	ret c			;202f	d8 	.
	ex de,hl		;2030	eb 	.
l2031h:
	call CALL_HL		;2031	cd 0f 01 	. . .
	call c,sub_09cah	;2034	dc ca 09 	. . .
l2037h:
	scf			;2037	37 	7
	ret			;2038	c9 	.

b_2039_start:
	db 0ffh,0ddh,000h	;Prefix DD
	dw l20a7h
	db 0ffh,0fdh,000h	;Prefix FD
	dw l20ach
	db 0ffh,0edh,000h	;Prefix ED
	dw l20b8h

b_2048_start:
	db 0ffh,0cdh,000h	;call mn
	dw l2080h
	db 0ffh,0c3h,000h	;jp mn
	dw l208bh
	db 0ffh,0e9h,000h	;jp ()
	dw l20a2h
	db 0ffh,0c9h,000h	;ret
	dw l20dch
	db 0ffh,0cfh,000h	;rst 8
	dw l2115h
	db 0c7h,0c7h,000h	;
	dw l20f9h
	db 0c7h,0c4h,000h	;
	dw l2080h
	db 0f7h,010h,000h	;
	dw l2093h
	db 0e7h,020h,000h	;
	dw l2093h
	db 0c7h,0c2h,000h	;
	dw l208bh
	db 0c7h,0c0h,000h	;
	dw l20c5h
	db 0

l2080h:
	ld a,(b_21e2_start)	;2080	3a e2 21 	: . !
	and a			;2083	a7 	.
	jr nz,l208bh		;2084	20 05 	  .
	ld a,(trace_call_flag)	;2086	3a e3 21 	: . !
	and a			;2089	a7 	.
	ret nz			;208a	c0 	.
l208bh:
	ld l,(iy+001h)		;208b	fd 6e 01 	. n .
	ld h,(iy+002h)		;208e	fd 66 02 	. f .
	scf			;2091	37 	7
	ret			;2092	c9 	.
l2093h:
	ld c,(iy+001h)		;2093	fd 4e 01 	. N .
	ld a,c			;2096	79 	y
	rla			;2097	17 	.
	sbc a,a			;2098	9f 	.
	ld b,a			;2099	47 	G
	ld hl,(REG.PC)		;209a	2a 60 00 	* ` .
	add hl,bc		;209d	09 	.
	inc hl			;209e	23 	#
	inc hl			;209f	23 	#
	scf			;20a0	37 	7
	ret			;20a1	c9 	.
l20a2h:
	ld hl,(reg.l)		;20a2	2a 5a 00 	* Z .
	scf			;20a5	37 	7
	ret			;20a6	c9 	.
l20a7h:
	ld hl,(reg.ix)		;20a7	2a 52 00 	* R .
	jr l20afh		;20aa	18 03 	. .
l20ach:
	ld hl,(reg.iy)		;20ac	2a 50 00 	* P .
l20afh:
	ld a,(iy+001h)		;20af	fd 7e 01 	. ~ .
	cp 0e9h			;20b2	fe e9 	. .
	scf			;20b4	37 	7
	ret z			;20b5	c8 	.
	and a			;20b6	a7 	.
	ret			;20b7	c9 	.
l20b8h:
	ld a,(iy+001h)		;20b8	fd 7e 01 	. ~ .
	cp 04dh			;20bb	fe 4d 	. M
	jr z,l20dch		;20bd	28 1d 	( .
	cp 045h			;20bf	fe 45 	. E
	jr z,l20dch		;20c1	28 19 	( .
	and a			;20c3	a7 	.
	ret			;20c4	c9 	.
l20c5h:
	ld a,(iy+000h)		;20c5	fd 7e 00 	. ~ .
	ld (l20d7h),a		;20c8	32 d7 20 	2 .
	ld hl,(reg.f)		;20cb	2a 54 00 	* T .
	push hl			;20ce	e5 	.
	pop af			;20cf	f1 	.
	call l20d7h		;20d0	cd d7 20 	. .
	scf			;20d3	37 	7
	jr c,l20dch		;20d4	38 06 	8 .
	ret			;20d6	c9 	.
l20d7h:
	nop			;20d7	00 	.
	and a			;20d8	a7 	.
	pop hl			;20d9	e1 	.
	inc hl			;20da	23 	#
	jp (hl)			;20db	e9 	.

l20dch:
	ld a,(b_21e2_start)	;20dc	3a e2 21 	: . !
	and a			;20df	a7 	.
	jr nz,l20edh		;20e0	20 0b 	  .
	ld a,(trace_call_flag)	;20e2	3a e3 21 	: . !
	and a			;20e5	a7 	.
	jr z,l20edh		;20e6	28 05 	( .
	call l20edh		;20e8	cd ed 20 	. .
	pop hl			;20eb	e1 	.
	ret			;20ec	c9 	.
l20edh:
	ld hl,(reg_sp)		;20ed	2a 5c 00 	* \ .
	ld e,(hl)		;20f0	5e 	^
	inc hl			;20f1	23 	#
	ld d,(hl)		;20f2	56 	V
	ex de,hl		;20f3	eb 	.
	call sub_09cah		;20f4	cd ca 09 	. . .
	and a			;20f7	a7 	.
	ret			;20f8	c9 	.

l20f9h:
	ld a,(l0003h)		;20f9	3a 03 00 	: . .
	cp (iy+000h)		;20fc	fd be 00 	. . .
	ret z			;20ff	c8 	.
	ld a,(iy+000h)		;2100	fd 7e 00 	. ~ .
	and 038h		;2103	e6 38 	. 8
	ld l,a			;2105	6f 	o
	ld h,000h		;2106	26 00 	& .
	ld a,(b_21e2_start)	;2108	3a e2 21 	: . !
	and a			;210b	a7 	.
	jr nz,l2113h		;210c	20 05 	  .
	ld a,(trace_call_flag)	;210e	3a e3 21 	: . !
	and a			;2111	a7 	.
	ret nz			;2112	c0 	.
l2113h:
	scf			;2113	37 	7
	ret			;2114	c9 	.
l2115h:
	and a			;2115	a7 	.
	ret			;2116	c9 	.
cmd_C:
	ld hl,cmd_C		;2117	21 17 21 	! . !
	ld a,001h		;211a	3e 01 	> .
	jr l2122h		;211c	18 04 	. .
cmd_T:
	xor a			;211e	af 	.
	ld hl,cmd_T		;211f	21 1e 21 	! . !
l2122h:
	ld (cmd_rpt),hl		;2122	22 68 00 	" h .
	ld (trace_call_flag),a	;2125	32 e3 21 	2 . !
	ld a,(de)		;2128	1a 	.
	sub 'N'			;2129	d6 4e 	. N
	jr nz,l212eh		;212b	20 01 	  .
	inc de			;212d	13 	.
l212eh:
	ld (trace_N_flag),a	;212e	32 e7 21 	2 . !
	ld a,(de)		;2131	1a 	.
	sub 'J'			;2132	d6 4a 	. J
	jr nz,l2137h		;2134	20 01 	  .
	inc de			;2136	13 	.
l2137h:
	ld (trace_J_flag),a	;2137	32 e8 21 	2 . !
	call sub_21a6h		;213a	cd a6 21 	. . !
	jr z,l2145h		;213d	28 06 	( .
	ld hl,1			;213f	21 01 00 	! . .
	call get_lastarg_def	;2142	cd 69 03 	. i .
l2145h:
	ld (trace_count),hl	;2145	22 e5 21 	" . !
	sub a			;2148	97 	.
	ld (l0941h),a		;2149	32 41 09 	2 A .
l214ch:
	call sub_1ffeh		;214c	cd fe 1f 	. . .
	jr l21a3h		;214f	18 52 	. R

l2151h:
	call bp_clr_temporary	;2151	cd 54 07 	. T .
	ld a,(trace_J_flag)	;2154	3a e8 21 	: . !
	and a			;2157	a7 	.
	jr nz,l216bh		;2158	20 11 	  .
	ld iy,(REG.PC)		;215a	fd 2a 60 00 	. * ` .
	call sub_21c8h		;215e	cd c8 21 	. . !
	jr z,l216bh		;2161	28 08 	( .
	ld hl,b_2048_start	;2163	21 48 20 	! H
	call lookup_opc		;2166	cd 97 1a 	. . .
	jr nc,l214ch		;2169	30 e1 	0 .
l216bh:
	ld a,(trace_UW_flag)	;216b	3a e4 21 	: . !
	and a			;216e	a7 	.
	jr z,l2188h		;216f	28 17 	( .
	ld de,(trace_count)	;2171	ed 5b e5 21 	. [ . !
	call expr		;2175	cd be 03 	. . .
	ld a,h			;2178	7c 	|
	or l			;2179	b5 	.
	add a,0ffh		;217a	c6 ff 	. .
	sbc a,a			;217c	9f 	.
	ld hl,trace_UW_flag	;217d	21 e4 21 	! . !
	xor (hl)		;2180	ae 	.
	bit 1,a			;2181	cb 4f 	. O
	jr z,l2193h		;2183	28 0e 	( .
l2185h:
	jp l0902h		;2185	c3 02 09 	. . .
l2188h:
	ld hl,(trace_count)	;2188	2a e5 21 	* . !
	dec hl			;218b	2b 	+
	ld (trace_count),hl	;218c	22 e5 21 	" . !
	ld a,h			;218f	7c 	|
	or l			;2190	b5 	.
	jr z,l2185h		;2191	28 f2 	( .
l2193h:
	call sub_1ffeh		;2193	cd fe 1f 	. . .
	jr nc,l2185h		;2196	30 ed 	0 .
	ld a,(trace_N_flag)	;2198	3a e7 21 	: . !
	ld b,a			;219b	47 	G
	ld a,(l0941h)		;219c	3a 41 09 	: A .
	or b			;219f	b0 	.
	ld (l0941h),a		;21a0	32 41 09 	2 A .
l21a3h:
	jp user_go		;21a3	c3 25 0a 	. % .

sub_21a6h:
	call skipbl		;21a6	cd bf 02 	. . .
	xor a			;21a9	af 	.
	ld (trace_UW_flag),a	;21aa	32 e4 21 	2 . !
	ld a,(de)		;21ad	1a 	.
	cp 'U'			;21ae	fe 55 	. U
	jr z,l21b5h		;21b0	28 03 	( .
	cp 'W'			;21b2	fe 57 	. W
	ret nz			;21b4	c0 	.
l21b5h:
	inc de			;21b5	13 	.
	push af			;21b6	f5 	.
	push de			;21b7	d5 	.
	call expr		;21b8	cd be 03 	. . .
	jp c,ERROR		;21bb	da 07 01 	. . .
	call assert_eol		;21be	cd d6 02 	. . .
	pop hl			;21c1	e1 	.
	pop af			;21c2	f1 	.
	ld (trace_UW_flag),a	;21c3	32 e4 21 	2 . !
	sub a			;21c6	97 	.
	ret			;21c7	c9 	.

sub_21c8h:
	ld a,(iy+000h)		;21c8	fd 7e 00 	. ~ .
	cp 0edh			;21cb	fe ed 	. .
	jr z,l21dah		;21cd	28 0b 	( .
	and 0dfh		;21cf	e6 df 	. .
	cp 0ddh			;21d1	fe dd 	. .
	ret nz			;21d3	c0 	.
	ld a,(iy+001h)		;21d4	fd 7e 01 	. ~ .
	cp 0e9h			;21d7	fe e9 	. .
	ret			;21d9	c9 	.
l21dah:
	ld a,(iy+001h)		;21da	fd 7e 01 	. ~ .
	and 0f7h		;21dd	e6 f7 	. .
	cp 045h			;21df	fe 45 	. E
	ret			;21e1	c9 	.

b_21e2_start:
	db	0		;21e2	00 	.
trace_call_flag:
	db	0		;1=call, 0=trace  21e3	00 	.
trace_UW_flag:
	db	0		;0 or 'U' or 'W' 21e4	00 	.
trace_count:
	dw	0		;21e5	00 00	.
trace_N_flag:
	db	0		;0 if 'N'  21e7	00 	.
trace_J_flag:
	db	0		;0 if 'J'  21e8	00 	.

ddtz_size	equ	$-ddtz_base
ddtz_end:

;-------------------------------------------------------------------------------
	.dephase
bitmap:
	db	000H,000H,000H,000H,000H,000H,000H,000H
	db	000H,000H,000H,000H,001H,044H,040H,000H
	db	000H,010H,084H,090H,080H,010H,000H,001H
	db	024H,092H,049H,009H,024H,084H,080H,004H
	db	080H,048H,055H,055H,055H,055H,055H,055H
	db	054H,024H,042H,048H,000H,010H,000H,000H
	db	000H,080H,000H,080H,002H,008H,010H,082H
	db	004H,000H,080H,084H,044H,008H,024H,000H
	db	084H,004H,082H,001H,000H,000H,041H,000H
	db	008H,021H,002H,000H,000H,090H,000H,020H
	db	020H,001H,000H,092H,004H,021H,009H,000H
	db	000H,008H,010H,088H,004H,080H,000H,000H
	db	004H,000H,020H,000H,000H,001H,000H,080H
	db	020H,000H,084H,081H,004H,090H,040H,040H
	db	010H,001H,001H,008H,002H,000H,000H,000H
	db	091H,004H,000H,000H,000H,000H,024H,000H
	db	000H,000H,010H,080H,00AH,0AAH,044H,020H
	db	002H,000H,000H,000H,000H,008H,040H,000H
	db	000H,000H,000H,000H,000H,000H,048H,088H
	db	000H,00AH,0AAH,0A1H,012H,042H,008H,020H
	db	002H,008H,000H,000H,000H,008H,002H,042H
	db	040H,000H,000H,000H,001H,000H,001H,000H
	db	021H,000H,000H,001H,000H,048H,020H,000H
	db	010H,008H,000H,020H,040H,090H,004H,000H
	db	010H,010H,000H,000H,000H,001H,024H,090H
	db	080H,090H,092H,004H,001H,024H,092H,010H
	db	092H,041H,008H,010H,021H,002H,042H,010H
	db	000H,000H,012H,010H,048H,000H,000H,000H
	db	000H,024H,092H,049H,024H,092H,009H,021H
	db	024H,020H,090H,040H,008H,001H,000H,009H
	db	009H,011H,000H,080H,008H,004H,000H,008H
	db	000H,001H,020H,012H,010H,008H,000H,042H
	db	049H,000H,010H,001H,020H,011H,000H,040H
	db	020H,010H,000H,040H,000H,012H,000H,091H
	db	000H,044H,080H,021H,024H,040H,009H,010H
	db	089H,000H,010H,008H,040H,024H,010H,088H
	db	049H,024H,020H,041H,000H,001H,022H,000H
	db	000H,000H,010H,000H,000H,000H,020H,001H
	db	000H,000H,020H,000H,000H,010H,000H,012H
	db	000H,008H,000H,000H,004H,000H,002H,000H
	db	000H,004H,000H,040H,000H,091H,020H,012H
	db	012H,000H,000H,012H,000H,000H,000H,000H
	db	048H,020H,002H,008H,002H,000H,000H,000H
	db	000H,000H,000H,000H,000H,000H,000H,000H
	db	000H,000H,000H,050H,000H,000H,000H,000H
	db	000H,000H,000H,000H,000H,000H,000H,000H
	db	000H,000H,000H,000H,000H,000H,008H,011H
	db	024H,024H,004H,000H,010H,080H,092H,048H
	db	000H,022H,049H,009H,008H,000H,002H,010H
	db	040H,012H,042H,024H,044H,081H,024H,082H
	db	048H,000H,020H,020H,080H,000H,081H,020H
	db	000H,000H,000H,000H,000H,000H,000H,009H
	db	024H,092H,049H,024H,092H,049H,024H,092H
	db	049H,024H,092H,049H,024H,089H,024H,001H
	db	000H,004H,009H,021H,004H,092H,040H,048H
	db	090H,049H,022H,024H,090H,008H,002H,044H
	db	089H,011H,000H,000H,020H,080H,000H,001H
	db	024H,044H,000H,080H,092H,049H,024H,091H
	db	020H,041H,008H,081H,000H,004H,000H,008H
	db	040H,010H,000H,000H,000H,092H,002H,008H
	db	004H,000H,004H,000H,000H,000H,000H,001H
	db	002H,024H,082H,002H,048H,009H,000H,010H
	db	020H,048H,002H,020H,000H,000H,000H,000H
	db	000H,041H,000H,000H,000H,042H,008H,000H
	db	004H,000H,000H,002H,000H,000H,010H,000H
	db	000H,000H,000H,004H,001H,002H,042H,020H
	db	084H,000H,088H,004H,000H,004H,080H,011H
	db	010H,012H,004H,008H,041H,020H,020H,010H
	db	089H,002H,008H,000H,000H,010H,040H,004H
	db	081H,022H,042H,024H,020H,000H,049H,024H
	db	092H,048H,000H,000H,024H,000H,000H,020H
	db	082H,000H,000H,020H,000H,008H,024H,004H
	db	090H,048H,082H,044H,008H,001H,020H,044H
	db	000H,082H,020H,011H,000H,024H,092H,004H
	db	080H,024H,092H,049H,024H,092H,049H,024H
	db	092H,049H,024H,092H,049H,024H,092H,049H
	db	024H,092H,049H,024H,092H,049H,024H,092H
	db	049H,024H,088H,049H,024H,082H,010H,089H
	db	024H,090H,081H,020H,000H,001H,004H,000H
	db	000H,010H,001H,020H,000H,011H,020H,001H
	db	010H,008H,000H,000H,040H,010H,040H,080H
	db	020H,000H,024H,008H,024H,090H,092H,004H
	db	024H,090H,000H,001H,024H,020H,002H,040H
	db	000H,000H,009H,000H,021H,024H,009H,000H
	db	090H,090H,088H,008H,001H,000H,048H,004H
	db	002H,000H,012H,012H,040H,000H,012H,010H
	db	092H,004H,090H,049H,021H,000H,040H,021H
	db	008H,022H,009H,009H,002H,040H,000H,002H
	db	000H,012H,042H,040H,000H,000H,081H,000H
	db	049H,000H,022H,009H,000H,020H,092H,001H
	db	000H,010H,000H,010H,020H,004H,092H,000H
	db	000H,048H,000H,090H,082H,009H,000H,000H
	db	048H,042H,049H,024H,090H,090H,000H,092H
	db	000H,092H,044H,020H,000H,000H,000H,000H
	db	000H,000H,000H,021H,008H,048H,020H,002H
	db	000H,000H,024H,002H,000H,010H,000H,012H
	db	040H,008H,044H,002H,020H,000H,084H,080H
	db	048H,000H,080H,000H,090H,000H,080H,000H
	db	042H,000H,000H,040H,001H,002H,008H,000H
	db	088H,001H,024H,020H,090H,080H,024H,000H
	db	081H,000H,002H,040H,008H,001H,024H,048H
	db	048H,008H,008H,041H,008H,090H,044H,048H
	db	048H,001H,001H,000H,001H,020H,012H,010H
	db	002H,041H,020H,000H,000H,000H,000H,000H
	db	000H,000H,000H,004H,082H,041H,020H,008H
	db	009H,001H,020H,090H,048H,024H,000H,000H
	db	010H,040H,000H,000H,000H,000H,080H,000H
	db	000H,000H,004H,021H,008H,042H,010H,084H
	db	021H,008H,042H,010H,084H,021H,008H,042H
	db	010H,084H,020H,084H,021H,008H,042H,010H
	db	084H,021H,008H,041H,008H,042H,010H,084H
	db	021H,000H,000H,000H,000H,000H,000H,084H
	db	021H,008H,042H,010H,084H,021H,008H,042H
	db	008H,042H,010H,042H,010H,084H,021H,008H
	db	042H,024H,092H,001H,024H,080H,024H,024H
	db	092H,041H,024H,092H,049H,009H,009H,009H
	db	020H,002H,002H,040H,000H,010H,082H,048H
	db	049H,000H,024H,089H,009H,024H,092H,042H
	db	048H,000H,048H,042H,012H,000H,004H,092H
	db	049H,009H,024H,092H,042H,000H,000H,009H
	db	004H,000H,001H,000H,021H,000H,000H,010H
	db	012H,009H,002H,010H,004H,004H,024H,000H
	db	090H,084H,000H,000H,001H,004H,090H,092H
	db	000H,000H,000H,000H,000H,000H,000H,000H
	db	000H,000H,000H,000H,000H,000H,000H,000H
	db	000H,000H,000H,000H,000H,000H,000H,000H
	db	000H,000H,000H,000H,000H,000H,000H,000H
	db	000H,000H,000H,000H,000H,000H,000H,000H
	db	080H,004H,012H,041H,011H,024H,012H,004H
	db	021H,008H,042H,010H,084H,021H,008H,042H
	db	020H,080H,000H,008H,008H,042H,000H,000H
	db	000H,024H,020H,002H,008H,021H,002H,010H
	db	000H,020H,080H,040H,049H,000H,080H,048H
	db	009H,012H,012H,004H,084H,084H,009H,001H
	db	001H,022H,004H,022H,024H,088H,000H,024H
	db	084H,000H,000H,000H,000H,000H,000H,01AH
	db	004H,000H,001H,000H,021H,000H,000H,010H
	db	012H,009H,002H,010H,004H,004H,024H,000H
	db	090H,084H,000H,000H,001H,004H,090H,092H
	db	000H,000H,000H,000H,000H,000H,000H,000H
	db	000H,000H,000H,000H,000H,000H,000H,000H
	db	000H,000H,000H,000H,000H,000H,000H,000H
	db	000H,000H,000H,000H,000H,000H,000H,000H
	db	000H,000H,000H,000H,000H,000H,000H,000H
	db	080H,004H,012H,041H,011H,024H,012H,004H
	db	021H,008H,042H,010H,084H,021H,008H,042H
	db	020H,080H,000H,008H,008H,042H,000H,000H
	db	000H,024H,020H,002H,008H,021H,002H,010H
	db	000H,020H,080H,040H,049H,000H,080H,048H
	db	009H,012H,012H,004H,084H,084H,009H,001H
	db	001H,022H,004H,022H,024H,088H,000H,024H
	db	084H,000H,000H,000H,000H,000H,000H

	end