Command H: change ASCII format 'C'-'@' to '^C'

[ddt180.git] / ddt180.z80

; Disassembled ddtz.com, version "DDT/Z    [8101]"\r
; with modified relocater.\r
;\r
; Build steps:\r
;   - Assemble to a .REL file with M80 or a compatible assembler.\r
;   - Use Digital Research Link-80 to generate a .PRL file (op switch).\r
;   - Cut the .PRL header (first 256 byte) end rename the result to DDTZ.COM.\r
\r
;-------------------------------------------------------------------------------\r
; Relocation loader\r
;\r
\r
TPA	equ	0100h\r
	cseg\r
	.phase	TPA\r
\r
	jp	start\r
\r
ldr_end:\r
ldr_size	equ	$ - TPA\r
current_phase	defl	$\r
\r
	.dephase\r
current_cseg	defl	$\r
\r
;-------------------------------------------------------------------------------\r
; DDT/Z core\r
;\r
\r
; Some greneral definitions\r
\r
TAB		equ	9\r
LF		equ	10\r
CR		equ	13\r
\r
; CP/M memory layout\r
\r
BDOS		equ	5\r
dfcb1		equ	05ch\r
dfcb2		equ	06ch\r
DMA_BUF		equ	080h\r
TPA		equ	0100h\r
\r
; BDOS function calls\r
\r
BDOS_CIN	equ	1	;Console Input\r
BDOS_COUT	equ	2       ;Console Output\r
BDOS_PSTR	equ	9       ;Print String\r
BDOS_CBUF	equ	10      ;Read Console Buffer\r
BDOS_CSTAT	equ	11      ;Get Console Status\r
BDOS_OPEN	equ	15      ;Open File\r
BDOS_CLOSE	equ	16      ;Close File\r
BDOS_DELETE	equ	19      ;Delete File\r
BDOS_READ	equ	20      ;Read Sequential\r
BDOS_WRITE	equ	21      ;Write Sequential\r
BDOS_CREATE	equ	22      ;Make File\r
BDOS_SETDMA	equ	26      ;Set DMA Address\r
\r
; ddtz specific definitions\r
\r
STACK_SIZE	equ	64	;ddtz internal stack\r
CONBUF_SIZE	equ	80	;Size of console input buffer\r
EXPR_BUF_SIZE	equ	128	;expressen buffer for conditional breakpoints\r
BP_CNT		equ	12	;Number of breakpoints\r
BP_SIZE		equ	8	;Size of a breakpoint record\r
YREG_CNT	equ	10	;Number of Y registers (0..9)\r
\r
;-------------------------------------------------------------------------------\r
\r
ddtz_base:\r
	jp ddtz_bdos\r
l0003h:\r
	rst 30h\r
sub_0004h:\r
	nop\r
	ret\r
ddtz_bdos:\r
	jp	0\r
\r
current_cseg	defl	$ - current_cseg\r
	.phase	current_phase + current_cseg\r
signon:\r
	db	'DDT/180',TAB\r
	db	'[8101] 003',CR,LF,'$'\r
msgz80:\r
	db	'Z80 or better required!',cr,lf,'$'\r
\r
current_phase	defl	$\r
	.dephase\r
current_cseg	defl	$\r
	ds	STACK_SIZE - (current_phase - signon)\r
\r
\r
stack:\r
reg.l2:	db	000h\r
reg.h2:	db	000h\r
reg.e2:	db	000h\r
reg.d2:	db	000h\r
reg.c2:	db	000h\r
reg.b2:	db	000h\r
reg.f2:	db	000h\r
reg.a2:	db	000h\r
l004eh:	db	000h\r
reg.i:	db	000h\r
reg.iy:	dw	0000h\r
reg.ix:	dw	0000h\r
reg.f:	db	000h\r
reg.a:	db	000h\r
reg.c:	db	000h\r
reg.b:	db	000h\r
reg.e:	db	000h\r
reg.d:	db	000h\r
reg.l:	db	000h\r
reg.h:	db	000h\r
reg_sp:	dw	TPA\r
reg.iff:\r
	db	0f3h\r
	db	0c3h\r
reg.pc:	dw	TPA\r
var.$:	dw	0000h\r
var.@:	dw	0\r
\r
error_func:dw	l0146h\r
cmd_rpt:dw	mainloop\r
\r
conbuf:\r
	db	CONBUF_SIZE\r
\r
	ld sp,stack\r
	exx\r
	ld de,ddtz_base\r
	or a\r
	sbc hl,de\r
	add hl,de\r
	jr c,l0079h\r
	ex de,hl\r
l0079h:\r
	ld de,TPA\r
l007ch:\r
	dec hl\r
	ld (hl),000h\r
	ld a,h\r
	sub d\r
	ld b,a\r
	ld a,l\r
	sub e\r
	or b\r
	jr nz,l007ch\r
	ld a,i\r
	ld (reg.i),a\r
	ld a,0f3h\r
	jp po,l0093h\r
	ld a,0fbh\r
l0093h:\r
	ld (reg.iff),a\r
	call sub_0004h\r
	ld hl,ddtz_base\r
	ld l,000h\r
	ld (reg_sp),hl\r
	call cpy_fcb2\r
	ld a,(dfcb1+1)\r
	cp ' '\r
	ld hl,0\r
	call nz,read_file\r
	jr mainloop\r
\r
	ds	CONBUF_SIZE + 3 - ($ - conbuf)\r
\r
CMDTAB:\r
	dw	cmd_@		;examine/substitute the displacement register @\r
	dw	cmd_A		;Assemble\r
	dw	cmd_B		;Breakpoints display/set/clear\r
	dw	cmd_C		;trace over Calls\r
	dw	cmd_D		;Display memory in hex and ascii\r
	dw	ERROR		;\r
	dw	cmd_F		;specify Filename and command line\r
	dw	cmd_G		;Go\r
	dw	cmd_H		;compute Hex and other expressions\r
	dw	cmd_I		;Input a byte from port\r
	dw	ERROR		;\r
	dw	ERROR		;\r
	dw	cmd_L		;List disassembled code\r
	dw	cmd_M		;Move memory [and verify]\r
	dw	ERROR		;\r
	dw	cmd_O		;Output a byte to port\r
	dw	ERROR		;\r
	dw	cmd_Q		;Qery memory for byte string\r
	dw	cmd_R		;Read binary or hex file and/or symbol file\r
	dw	cmd_S		;Substitute memory\r
	dw	cmd_T		;Trace\r
	dw	ERROR		;\r
	dw	cmd_V		;Verify (compare) two memory areas\r
	dw	cmd_W		;Write a file to disk\r
	dw	cmd_X		;eXamine [and substitute] registers\r
	dw	cmd_Y		;examine [and substitute] Y variables\r
	dw	cmd_Z		;Zap (fill) memory with a byte string\r
\r
mainloop:\r
	ld sp,stack\r
	ld hl,l0146h\r
	ld (error_func),hl\r
	ld hl,(reg.pc)\r
	ld (var.$),hl\r
	call bp_clr_temporary\r
	ld hl,(cmd_rpt)\r
	ld de,mainloop\r
	call cp_hl_de\r
	ld a,'>'\r
	call outchar\r
	call nz,outchar\r
	call z,outbl\r
	call get_line\r
	call skipbl\r
	jr z,exe_hl\r
	ld hl,mainloop\r
	ld (cmd_rpt),hl\r
	inc de\r
	sub '@'\r
	jr c,ERROR\r
	cp 'Z'+1-'@'\r
	jr nc,ERROR\r
	add a,a\r
	ld hl,CMDTAB\r
	call add_hl_a\r
	ld a,(hl)\r
	inc hl\r
	ld h,(hl)\r
	ld l,a\r
	jr exe_hl\r
\r
ERROR:\r
	ld hl,(error_func)\r
exe_hl:\r
	call CALL_HL\r
	jr mainloop\r
\r
l0146h:\r
	ld a,'?'\r
	call outchar\r
	;fall thru\r
crlf:\r
	call inchar\r
	ld a,CR\r
	call outchar\r
	ld a,LF\r
	call outchar\r
	ld a,0\r
	ld (con_col),a\r
	jr c,mainloop\r
	ret\r
\r
get_line:\r
	push hl\r
	ld de,conbuf\r
	ld c,BDOS_CBUF\r
	call ddtz_bdos\r
	call crlf\r
	ld de,conbuf+1\r
	ld a,(de)\r
	ld b,a\r
	ld c,0\r
	inc b\r
l0162h:\r
	inc de\r
	dec b\r
	jr z,l0194h\r
	ld a,(de)\r
	bit 0,c\r
	call z,toupper\r
	ld (de),a\r
	cp ''''\r
	jr nz,l0162h\r
	push de\r
	dec de\r
	ld a,(de)\r
	cp ''''\r
	jr z,l0190h\r
	dec de\r
	ld a,(de)\r
	cp '^'\r
	jr z,l0184h\r
	dec de\r
	ld a,(de)\r
	cp '^'\r
	jr nz,l0190h\r
l0184h:\r
	inc de\r
	push bc\r
	call sub_0303h\r
	pop bc\r
	dec de\r
	ld a,(de)\r
	cp ''''\r
	jr z,l0191h\r
l0190h:\r
	inc c\r
l0191h:\r
	pop de\r
	jr l0162h\r
l0194h:\r
	xor a\r
	ld (de),a\r
	ld de,conbuf+2\r
	pop hl\r
	ret\r
\r
toupper:\r
	cp 'a'\r
	ret c\r
	cp 'z'+1\r
	ret nc\r
	and 05fh\r
	ret\r
\r
out.hl.@:\r
	call out_hl\r
	push de\r
	push hl\r
	ld de,(var.@)\r
	ld a,d\r
	or e\r
	jr z,l01bfh\r
	call outbl\r
	ld a,'@'\r
	call outchar\r
	and a\r
	sbc hl,de\r
	call out_hl\r
l01bfh:\r
	pop hl\r
	pop de\r
	ret\r
\r
out.bin.w:\r
	ld a,h\r
	call out.bin.b\r
	ld a,l\r
out.bin.b:\r
	ld b,8\r
l01c9h:\r
	add a,a\r
	push af\r
	ld a,00\r
	adc a,a\r
	call out_dgt\r
	pop af\r
	djnz l01c9h\r
	ld a,'"'\r
	jp outchar\r
\r
sub_01d9h:\r
	ld a,'-'\r
	call outchar\r
	dec hl\r
	jp cpl.hl\r
\r
out_hl_dec_neg:\r
	push hl\r
	call sub_01d9h\r
	defb 03eh\r
out.hl.dec:\r
	push hl\r
	ld b,006h\r
	call sub_01f9h\r
	pop hl\r
	ld a,'.'\r
	call outchar\r
l01f3h:\r
	call outbl\r
	djnz l01f3h\r
	ret\r
sub_01f9h:\r
	dec b\r
	push de\r
	ld de,10\r
	call div_hl_de\r
	ld a,h\r
	or l\r
	call nz,sub_01f9h\r
	ld a,e\r
	pop de\r
	jr out_dgt\r
\r
out_hl_neg:\r
	push hl\r
	call sub_01d9h\r
	call out_hl\r
	pop hl\r
	ret\r
\r
out_hl:\r
	ld a,h\r
	call out_hex\r
	ld a,l\r
\r
out_hex:\r
	push af\r
	rra\r
	rra\r
	rra\r
	rra\r
	call out_dgt\r
	pop af\r
\r
out_dgt:\r
	and 0fh\r
	cp 10\r
	jr c,l0229h\r
	add a,007h\r
l0229h:\r
	add a,'0'\r
	jr outchar\r
\r
out.ascii:\r
	push af\r
	res 7,a\r
	cp ' '\r
	push af\r
	call nc,outbl\r
	call outquote\r
	pop af\r
	jr nc,l0242h\r
	sub 0c0h\r
	ex af,af'\r
	ld a,'^'\r
	call outchar\r
	ex af,af'\r
l0242h:\r
	call outchar\r
	cp ''''\r
	call z,outchar\r
	ex af,af'\r
	call outquote\r
	pop af\r
	or a\r
	ld a,'.'\r
	call m,outchar\r
	ex af,af'\r
	ret\r
\r
p_char_lparen:\r
	ld a,'('\r
	jr outchar\r
\r
outquote:\r
	ld a,''''\r
outchar:\r
	push hl\r
	push de\r
	push bc\r
	push af\r
	and 07fh\r
	ld e,a\r
	ld c,BDOS_COUT\r
	call ddtz_bdos\r
	ld hl,con_col\r
	inc (hl)\r
	pop af\r
	pop bc\r
	pop de\r
	pop hl\r
	ret\r
\r
inchar:\r
	push hl\r
	push de\r
	push bc\r
	ld c,BDOS_CSTAT\r
	call ddtz_bdos\r
	and a\r
	jr z,l0284h\r
	ld c,BDOS_CIN\r
	call ddtz_bdos\r
	scf\r
l0284h:\r
	pop bc\r
	pop de\r
	pop hl\r
	ret\r
\r
pstr:\r
	ld c,0\r
l028ah:\r
	ld a,(hl)\r
	inc hl\r
	and a\r
	ret z\r
	call outchar\r
	inc c\r
	and a\r
	ret m\r
	jr l028ah\r
\r
pstr_inl:\r
	ex	(sp),hl\r
	call	pstr\r
	ex	(sp),hl\r
	ret\r
\r
outbl6:\r
	call outbl2\r
outbl4:\r
	call outbl2\r
outbl2:\r
	call outbl\r
outbl:\r
	ld a,' '\r
	jr outchar\r
\r
add_hl_a:\r
	add a,l\r
	ld l,a\r
	ret nc\r
	inc h\r
	ret\r
\r
skipbl0:\r
	inc de\r
skipbl:\r
	ld a,(de)\r
	cp ' '\r
	jr z,skipbl0\r
	cp TAB\r
	jr z,skipbl0\r
	or a\r
	ret\r
\r
next_arg:\r
	call skipbl\r
	cp ','\r
	ret nz\r
	inc de\r
	call skipbl\r
	cp a\r
	ret\r
\r
assert_eol:\r
	call skipbl\r
	ret z\r
to_error:\r
	jp ERROR\r
\r
chk_sp:\r
	push hl\r
	push de\r
	ld hl,0\r
	add hl,sp\r
	ld de,stack-40\r
	call cp_hl_de\r
	pop de\r
	pop hl\r
	jr c,to_error\r
	ret\r
\r
cp_hl_de:\r
	and a\r
	sbc hl,de\r
	add hl,de\r
	ret\r
\r
lookupch:\r
	ld b,0\r
l02f5h:\r
	ld a,(hl)\r
	and a\r
	ret z\r
	ld a,(de)\r
	cp (hl)\r
	jr z,l0300h\r
	inc hl\r
	inc b\r
	jr l02f5h\r
l0300h:\r
	scf\r
	inc de\r
	ret\r
\r
sub_0303h:\r
	ld hl,b_0cc3_start\r
	ld b,07fh\r
	jr l030ch\r
\r
sub_030ah:\r
	ld b,0ffh\r
l030ch:\r
	inc b\r
	ld a,(hl)\r
	and a\r
	ret z\r
	call sub_031ch\r
	jr nc,l030ch\r
	res 7,b\r
	ret\r
\r
sub_0318h:\r
	push bc\r
	res 7,b\r
	defb 03eh\r
sub_031ch:\r
	push bc\r
	push de\r
l031eh:\r
	ld a,(de)\r
	xor (hl)\r
	and 07fh\r
	jr nz,l0336h\r
	bit 7,(hl)\r
	inc hl\r
	inc de\r
	jr z,l031eh\r
	scf\r
	bit 7,b\r
	call z,sub_060ch\r
	jr nc,l0339h\r
	pop af\r
	scf\r
	pop bc\r
	ret\r
l0336h:\r
	call sub_0345h\r
l0339h:\r
	pop de\r
	and a\r
	pop bc\r
	ret\r
\r
sel_dc_string:\r
	inc b\r
l033eh:\r
	dec b\r
	ret z\r
	call sub_0345h\r
	jr l033eh\r
\r
sub_0345h:\r
	ld a,(hl)\r
	and a\r
	ret z\r
l0348h:\r
	ld a,(hl)\r
	inc hl\r
	and a\r
	ret m\r
	jr l0348h\r
\r
sub_034eh:\r
	call get_arg_range\r
	push hl\r
	push bc\r
	call next_arg\r
	call sub_0363h\r
	ex de,hl\r
	pop bc\r
	pop hl\r
	ret\r
\r
sub_035dh:\r
	call expr\r
	jr c,error0\r
	ret\r
\r
sub_0363h:\r
	call sub_035dh\r
l0366h:\r
	jp assert_eol\r
\r
get_lastarg_def:\r
	call get_arg_def\r
	jr l0366h\r
\r
get_arg_def:\r
	push hl\r
	call expr\r
	jr c,l0375h\r
	ex (sp),hl\r
l0375h:\r
	pop hl\r
	ret\r
\r
sub_0377h:\r
	call b_037c_start\r
	jr l0366h\r
\r
b_037c_start:\r
	defb 0e6h\r
get_arg_range:\r
	scf\r
	ex af,af'\r
	push bc\r
	push hl\r
	call expr\r
	jr nc,l038ch\r
	ex af,af'\r
	jr c,error0\r
	ex af,af'\r
	pop hl\r
	defb 03eh\r
l038ch:\r
	pop af\r
	call get_range\r
	jr nc,l0398h\r
	ex af,af'\r
	pop bc\r
	ret nc\r
error0:\r
	jp ERROR\r
l0398h:\r
	pop af\r
	ret\r
\r
get_range:\r
	call next_arg\r
	cp 'S'\r
	jr nz,l03a2h\r
	inc de\r
l03a2h:\r
	push hl\r
	push af\r
	call expr\r
	jr c,l03b8h\r
	ld b,h\r
	ld c,l\r
	pop af\r
	pop hl\r
	jr z,l03b6h\r
	ld a,c\r
	sub l\r
	ld c,a\r
	ld a,b\r
	sbc a,h\r
	ld b,a\r
	inc bc\r
l03b6h:\r
	and a\r
	ret\r
l03b8h:\r
	pop af\r
	pop hl\r
	jr z,error0\r
	scf\r
	ret\r
\r
expr:\r
	call skipbl\r
expr1:\r
	call do_subexpr\r
	ret c\r
	call do_rel_op\r
	ret nc\r
	push bc\r
	push hl\r
	call do_subexpr\r
	jr c,error0\r
	ex de,hl\r
	ex (sp),hl\r
	and a\r
	sbc hl,de\r
	ld hl,0ffffh\r
	pop de\r
	ret\r
\r
do_op_eq:\r
	jr z,l03edh\r
	jr l03ech\r
do_op_ne:\r
	jr nz,l03edh\r
	jr l03ech\r
do_op_le:\r
	jr z,l03edh\r
do_op_lt:\r
	jr c,l03edh\r
	jr l03ech\r
do_op_gt:\r
	jr z,l03ech\r
do_op_ge:\r
	jr nc,l03edh\r
l03ech:\r
	inc hl\r
l03edh:\r
	and a\r
	ret\r
do_rel_op:\r
	push hl\r
	ld hl,tab_eq_le_ge\r
	call lookupch\r
	jr nc,l041dh\r
	ld a,b\r
	or a\r
	jr z,l0411h\r
	ld a,(de)\r
	cp '='\r
	jr nz,l0406h\r
	inc de\r
	inc b\r
	inc b\r
	jr l0411h\r
l0406h:\r
	bit 0,b\r
	jr z,l0411h\r
	cp '>'\r
	jr nz,l0411h\r
	inc de\r
	ld b,005h\r
l0411h:\r
	ld hl,tab_func_eqlege\r
	ld a,b\r
	add a,a\r
	call add_hl_a\r
	ld c,(hl)\r
	inc hl\r
	ld b,(hl)\r
	scf\r
l041dh:\r
	pop hl\r
	ret\r
\r
tab_eq_le_ge:\r
	db	'=<>',0\r
\r
tab_func_eqlege:\r
	dw	do_op_eq\r
	dw	do_op_lt\r
	dw	do_op_gt\r
	dw	do_op_le\r
	dw	do_op_ge\r
	dw	do_op_ne\r
\r
do_subexpr:\r
	call do_factor\r
	ret c\r
l0433h:\r
	call do_binary_op\r
	push hl\r
	push bc\r
	call do_factor\r
	pop bc\r
	ex de,hl\r
	ex (sp),hl\r
	jr nc,l0447h\r
	pop de\r
	ld a,b\r
	or c\r
	ret z\r
	jp ERROR\r
\r
l0447h:\r
	ld a,b\r
	or c\r
	push bc\r
	ret nz\r
	pop bc\r
\r
doop_add:\r
	add hl,de\r
l044dh:\r
	pop de\r
	jr l0433h\r
\r
doop_sub:\r
	and a\r
	sbc hl,de\r
	jr l044dh\r
\r
doop_mlt:\r
	push bc\r
	ld b,h\r
	ld c,l\r
	ld hl,0\r
	ld a,010h\r
l045dh:\r
	add hl,hl\r
	ex de,hl\r
	add hl,hl\r
	ex de,hl\r
	jr nc,l0464h\r
	add hl,bc\r
l0464h:\r
	dec a\r
	jr nz,l045dh\r
	pop bc\r
	jr l044dh\r
\r
doop_div:\r
	call div_hl_de\r
	jr l044dh\r
\r
doop_mod:\r
	call div_hl_de\r
	ex de,hl\r
	jr l044dh\r
\r
; divide x/y\r
;     hl: x\r
;     de: y\r
;   return:\r
;     hl: q  (x/y)\r
;     de: r  (x%y)\r
\r
div_hl_de:\r
	push bc\r
	ex de,hl\r
	ld b,h\r
	ld c,l\r
	ld hl,0\r
	ld a,16\r
\r
;  de: x   (x shifted out, q shifted in)\r
;  bc: y\r
;  hl: r   (initially 0)\r
\r
l047eh:\r
	push af\r
	add hl,hl\r
	ex de,hl\r
	xor a\r
	add hl,hl\r
	ex de,hl\r
	adc a,l\r
	sub c\r
	ld l,a\r
	ld a,h\r
	sbc a,b\r
	ld h,a\r
	inc de\r
	jr nc,l048fh\r
	add hl,bc\r
	dec de\r
l048fh:\r
	pop af\r
	dec a\r
	jr nz,l047eh\r
	ex de,hl\r
	pop bc\r
	ret\r
\r
doop_and:\r
	ld a,h\r
	and d\r
	ld h,a\r
	ld a,l\r
	and e\r
	ld l,a\r
	jr l044dh\r
\r
doop_or:\r
	ld a,h\r
	or d\r
	ld h,a\r
	ld a,l\r
	or e\r
	ld l,a\r
	jr l044dh\r
\r
doop_xor:\r
	ld a,h\r
	xor d\r
	ld h,a\r
	ld a,l\r
	xor e\r
	ld l,a\r
	jr l044dh\r
\r
do_binary_op:\r
	push hl\r
	ld hl,tab_op_a\r
	call lookupch\r
	ld a,b\r
	ld hl,tblf_opa\r
	add a,a\r
	call add_hl_a\r
	ld c,(hl)\r
	inc hl\r
	ld b,(hl)\r
	pop hl\r
	ret\r
\r
tab_op_a:\r
	DB	'+-*/%&!#',0\r
\r
tblf_opa:\r
	dw	doop_add\r
	dw	doop_sub\r
	dw	doop_mlt\r
	dw	doop_div\r
	dw	doop_mod\r
	dw	doop_and\r
	dw	doop_or\r
	dw	doop_xor\r
	dw	0\r
\r
fact_factor:\r
	call do_factor\r
	ret nc\r
	jp ERROR\r
\r
do_factor:\r
	call chk_sp\r
	call get.number\r
	ret nc\r
	inc de\r
	ld hl,(BDOS+1)\r
	cp 'T'\r
	ret z\r
	ld hl,(high_load)\r
	cp 'H'\r
	ret z\r
	ld hl,(max_load)\r
	cp 'M'\r
	ret z\r
	ld hl,TPA\r
	cp 'L'\r
	ret z\r
	ld hl,(var.@)\r
	cp '@'\r
	ret z\r
	ld hl,(var.$)\r
	cp '$'\r
	ret z\r
	cp '-'\r
	jr z,fact_factneg\r
	cp '~'\r
	jr z,fact_factinv\r
	cp '+'\r
	jr z,fact_factor\r
	cp '^'\r
	jr z,fact_reg.CPU\r
	cp 'Y'\r
	jr z,fact_reg.Y\r
	cp '('\r
	jr z,fact_mem\r
	cp '['\r
	jp z,expr_brckt\r
	cp ''''\r
	jr z,fact_factstring\r
	dec de\r
	scf\r
	ret\r
\r
fact_reg.Y:\r
	call get.decdigit\r
	jp c,ERROR\r
	inc de\r
	add a,a\r
	ld hl,reg_Y\r
	call add_hl_a\r
	ld a,(hl)\r
	inc hl\r
	ld h,(hl)\r
	ld l,a\r
	and a\r
	ret\r
\r
fact_factstring:\r
	ld hl,0\r
l054bh:\r
	ld a,(de)\r
	cp ''''\r
	jr z,l0557h\r
	and a\r
	ret z\r
l0552h:\r
	ld h,l\r
	ld l,a\r
	inc de\r
	jr l054bh\r
l0557h:\r
	inc de\r
	ld a,(de)\r
	cp ''''\r
	jr z,l0552h\r
	sub '.'\r
	or a\r
	ret nz\r
	inc de\r
	set 7,l\r
	ret\r
\r
fact_reg.CPU:\r
	call sub_0caeh\r
	jr nc,error4\r
	ld a,(hl)\r
	inc hl\r
	ld h,(hl)\r
	ld l,a\r
	and a\r
	bit 0,c\r
	ret nz\r
	ld h,000h\r
	ret\r
\r
fact_factneg:\r
	call fact_factor\r
	dec hl\r
cpl.hl:\r
	ld a,h\r
	cpl\r
	ld h,a\r
	ld a,l\r
	cpl\r
	ld l,a\r
	ret\r
\r
fact_factinv:\r
	call fact_factor\r
	jr cpl.hl\r
\r
fact_mem:\r
	call expr1\r
	jr c,error4\r
	ld a,(de)\r
	cp ')'\r
	jr nz,error4\r
	inc de\r
	ld a,(hl)\r
	inc hl\r
	ld h,(hl)\r
	ld l,a\r
	ld a,(de)\r
	inc de\r
	cp '.'\r
	ret z\r
	dec de\r
	xor a\r
	ld h,a\r
	ret\r
\r
expr_brckt:\r
	call expr1\r
	jr c,error4\r
	ld a,(de)\r
	cp ']'\r
	inc de\r
	ret z\r
error4:\r
	jp ERROR\r
\r
get.number:\r
	call get.hexdigit\r
	ret c\r
	push de\r
test_number:\r
	inc de\r
	call get.hexdigit\r
	jr nc,test_number\r
	pop de\r
	cp '.'\r
	jr z,get_dec_number\r
	cp '"'\r
	jr z,get_bin_number\r
	ld hl,0\r
next_hexdigit:\r
	call get.hexdigit\r
	jr c,hexnum_done\r
	add hl,hl\r
	add hl,hl\r
	add hl,hl\r
	add hl,hl\r
	call add_hl_a\r
	inc de\r
	jr next_hexdigit\r
\r
hexnum_done:\r
	xor 'H'\r
	ret nz\r
	inc de\r
	ret\r
\r
get_bin_number:\r
	ld hl,0\r
next_bindigit:\r
	call get.bindigit\r
l05dbh:\r
	inc de\r
	jr c,l05e4h\r
	add hl,hl\r
	call add_hl_a\r
	jr next_bindigit\r
l05e4h:\r
	cp '"'\r
	jp nz,ERROR\r
	call get.bindigit\r
	jr nc,l05dbh\r
	or a\r
	ret\r
\r
get_dec_number:\r
	ld hl,0\r
next_decdigit:\r
	call get.decdigit\r
	inc de\r
	jr c,decnum_done\r
	push bc\r
	add hl,hl\r
	ld b,h\r
	ld c,l\r
	add hl,hl\r
	add hl,hl\r
	add hl,bc\r
	pop bc\r
	call add_hl_a\r
	jr next_decdigit\r
decnum_done:\r
	cp '.'\r
	ret z\r
	jp ERROR\r
\r
sub_060ch:\r
	ld a,(de)\r
	cp '['\r
	jr l0614h\r
\r
get.hexdigit:\r
	ld a,(de)\r
hex_digit:\r
	cp 'F'+1\r
l0614h:\r
	ccf\r
	ret c\r
	cp 'A'\r
	jr c,l061eh\r
	sub 'A'-10\r
	ret\r
\r
get.decdigit:\r
	ld a,(de)\r
l061eh:\r
	cp '9'+1\r
	jr l0625h\r
\r
get.bindigit:\r
	ld a,(de)\r
	cp '1'+1\r
l0625h:\r
	ccf\r
	ret c\r
	cp '0'\r
	ret c\r
	sub '0'\r
	ret\r
\r
p_cpustat0:\r
	call assert_eol\r
p_cpustat:\r
	call p_f\r
	call outbl2\r
	ld hl,b_06e9_start\r
	ld de,b_0709_start\r
	ld b,6\r
l063eh:\r
	call p_regs\r
	djnz l063eh\r
	push hl\r
	push de\r
	ld iy,(reg.pc)\r
	call p_disas_instr\r
	exx\r
	ex af,af'\r
	call crlf\r
	call p_f2\r
	call outbl2\r
	pop de\r
	pop hl\r
	ld b,7\r
l065bh:\r
	call p_regs\r
	djnz l065bh\r
	exx\r
	ex af,af'\r
	and a\r
	jr z,l066bh\r
	call outbl6\r
	call p_offset\r
l066bh:\r
	jp crlf\r
\r
p_f:\r
	ld a,(reg.f)\r
	call p_flags\r
	ld a,(reg.iff)\r
	cp 0f3h\r
	jp z,outbl\r
	ld a,'E'\r
	jp outchar\r
p_f2:\r
	ld a,(reg.f2)\r
	call p_flags\r
	jp outbl\r
p_flags:\r
	ld b,a\r
	ld a,'S'\r
	call sub_06aah\r
	ld a,'Z'\r
	call sub_06aah\r
	rl b\r
	ld a,'H'\r
	call sub_06aah\r
	rl b\r
	ld a,'V'\r
	call sub_06aah\r
	ld a,'N'\r
	call sub_06aah\r
	ld a,'C'\r
sub_06aah:\r
	rl b\r
	jp c,outchar\r
	jp outbl\r
\r
p_regs:\r
	push bc\r
	push de\r
	call pstr\r
	ld a,'='\r
	call outchar\r
	ex (sp),hl\r
	ld e,(hl)\r
	inc hl\r
	ld d,(hl)\r
	inc hl\r
	ld a,(hl)\r
	inc hl\r
	push hl\r
	and a\r
	jr z,l06deh\r
	push af\r
	ld a,(de)\r
	ld l,a\r
	inc de\r
	ld a,(de)\r
	ld h,a\r
	pop af\r
	dec a\r
	jr z,l06d9h\r
	call out.hl.@\r
	call z,outbl6\r
	jr l06e2h\r
l06d9h:\r
	call out_hl\r
	jr l06e2h\r
l06deh:\r
	ld a,(de)\r
	call out_hex\r
l06e2h:\r
	call outbl\r
	pop de\r
	pop hl\r
	pop bc\r
	ret\r
\r
b_06e9_start:\r
	DC	'A '\r
	DC	'BC '\r
	DC	'DE '\r
	DC	'HL '\r
	DC	'SP'\r
	DC	'PC'\r
	DC	'a'''\r
	DC	'bc'''\r
	DC	'de'''\r
	DC	'hl'''\r
	DC	'IX'\r
	DC	'IY'\r
	DC	'I'\r
	DB	0\r
\r
b_0709_start:\r
	dw	reg.a\r
	db	000h\r
	dw	reg.c\r
	db	001h\r
	dw	reg.e\r
	db	001h\r
	dw	reg.l\r
	db	001h\r
	dw	reg_sp\r
	db	001h\r
	dw	reg.pc\r
	db	002h\r
	dw	reg.a2\r
	db	000h\r
	dw	reg.c2\r
	db	001h\r
	dw	reg.e2\r
	db	001h\r
	dw	reg.l2\r
	db	001h\r
	dw	reg.ix\r
	db	001h\r
	dw	reg.iy\r
	db	001h\r
	dw	reg.i\r
	db	000h\r
	db	000h\r
\r
cmd_G:\r
	sub a\r
	ld (trace_call_flag),a\r
	ld (l0941h),a\r
	call expr\r
	jr c,l0740h\r
	ld (reg.pc),hl\r
l0740h:\r
	call skipbl\r
	jp z,user_go\r
	cp ';'\r
	jp nz,ERROR\r
	inc de\r
	ld a,002h\r
	call bp_enter\r
	jp user_go\r
\r
bp_clr_temporary:\r
	ld b,BP_CNT\r
	ld ix,bp_tab\r
l075ah:\r
	ld a,(ix+000h)\r
	and 0f1h\r
	ld (ix+000h),a\r
	call bp_clr_condition\r
	ld de,BP_SIZE\r
	add ix,de\r
	djnz l075ah\r
	ret\r
\r
cmd_B:\r
	call skipbl\r
	jr z,l07b7h\r
	inc de\r
	cp 'X'\r
	jr z,l077dh\r
	dec de\r
	ld a,001h\r
	jp bp_enter\r
l077dh:\r
	call skipbl\r
	jr z,bp_clr_all\r
l0782h:\r
	call expr\r
	jp c,assert_eol\r
	push de\r
	call bp_clr\r
	pop de\r
	call next_arg\r
	jr l0782h\r
\r
bp_clr_all:\r
	scf\r
bp_clr:\r
	ld b,BP_CNT\r
	ld ix,bp_tab\r
l0799h:\r
	push af\r
	jr c,l07a7h\r
	ld e,(ix+002h)\r
	ld d,(ix+003h)\r
	call cp_hl_de\r
	jr nz,l07aeh\r
l07a7h:\r
	ld (ix+000h),000h\r
	call bp_clr_condition\r
l07aeh:\r
	ld de,BP_SIZE\r
	add ix,de\r
	pop af\r
	djnz l0799h\r
	ret\r
\r
l07b7h:\r
	ld b,BP_CNT\r
	ld ix,bp_tab\r
l07bdh:\r
	bit 0,(ix+000h)\r
	jr z,l0808h\r
	ld a,'R'\r
	bit 4,(ix+000h)\r
	jr nz,l07cdh\r
	ld a,' '\r
l07cdh:\r
	call outchar\r
	call outbl\r
	ld l,(ix+002h)\r
	ld h,(ix+003h)\r
	call out.hl.@\r
	call outbl2\r
	ld a,':'\r
	call outchar\r
	ld l,(ix+004h)\r
	ld h,(ix+005h)\r
	call out_hl\r
	ld l,(ix+006h)\r
	ld h,(ix+007h)\r
	ld a,h\r
	or l\r
	jr z,l0805h\r
	call outbl4\r
	ld a,'I'\r
	call outchar\r
	call outbl2\r
	call pstr\r
l0805h:\r
	call crlf\r
l0808h:\r
	ld de,BP_SIZE\r
	add ix,de\r
	djnz l07bdh\r
	ret\r
\r
; Add break points to list\r
;   A = 1	 Permanent (B command)\r
;   A = 2	 Temporary (G command)\r
\r
bp_enter:\r
	ld b,a\r
	call skipbl\r
	ret z\r
	cp 'R'\r
	jr nz,l081ch\r
	inc de\r
	set 4,b\r
l081ch:\r
	push bc\r
	call expr\r
	jp c,ERROR\r
	pop bc\r
	bit 0,b\r
	push bc\r
	push de\r
	push hl\r
	call nz,bp_clr\r
	pop hl\r
	call bp_get_freeslot\r
	pop de\r
	ld (ix+002h),l\r
	ld (ix+003h),h\r
	call bp_get_count\r
	ld (ix+004h),l\r
	ld (ix+005h),h\r
	call bp_get_condition\r
	ld (ix+006h),l\r
	ld (ix+007h),h\r
	call next_arg\r
	pop af\r
	ld (ix+000h),a\r
	and 00fh\r
	jr bp_enter\r
\r
bp_get_freeslot:\r
	ld b,BP_CNT\r
	ld ix,bp_tab\r
l085ah:\r
	ld a,(ix+000h)\r
	and 00fh\r
	ret z\r
	push bc\r
	ld bc,BP_SIZE\r
	add ix,bc\r
	pop bc\r
	djnz l085ah\r
	jp ERROR\r
\r
bp_get_count:\r
	call skipbl\r
	ld hl,1\r
	cp ':'\r
	ret nz\r
	inc de\r
	call expr\r
	jp c,ERROR\r
	ret\r
\r
bp_get_condition:\r
	call skipbl\r
	cp 'I'\r
	ld hl,0\r
	ret nz\r
	inc de\r
	call skipbl\r
	push de\r
	call expr\r
	jp c,ERROR\r
	ex de,hl\r
	pop de\r
	push de\r
	sbc hl,de\r
	ld b,h\r
	ld c,l\r
	ld hl,(expr_p1)\r
	push hl\r
	add hl,bc\r
	ld de,expr_bufe\r
	call cp_hl_de\r
	jp nc,ERROR\r
	pop hl\r
	ld (expr_p2),hl\r
	pop de\r
	ex de,hl\r
	ldir\r
	xor a\r
	ld (de),a\r
	inc de\r
	ex de,hl\r
	ld (expr_p1),hl\r
	ld hl,(expr_p2)\r
	ret\r
\r
bpddtz:\r
	ld (reg.l),hl\r
	pop hl\r
	dec hl\r
	ld (reg.pc),hl\r
	ld (reg_sp),sp\r
	ld sp,reg.l\r
	push de\r
	push bc\r
	push af\r
	push ix\r
	push iy\r
	ld a,i\r
	call sub_0004h\r
	ld h,a\r
	ld l,000h\r
	push hl\r
	ld a,0f3h\r
	jp po,l08dfh\r
	ld a,0fbh\r
l08dfh:\r
	ld (reg.iff),a\r
	ex af,af'\r
	push af\r
	exx\r
	push bc\r
	push de\r
	push hl\r
	call sub_097ah\r
	ld a,(b_21e2_start)\r
	dec a\r
	jr z,l090bh\r
	call inchar\r
	jr c,l0902h\r
	call sub_0913h\r
	and a\r
	jp z,user_go\r
	and 083h\r
	jp z,l2151h\r
l0902h:\r
	call bp_clr_temporary\r
	call p_cpustat\r
	jp mainloop\r
\r
l090bh:\r
	ld (b_21e2_start),a\r
	ld c,007h\r
	jp l0a41h\r
\r
sub_0913h:\r
	ld a,080h\r
	ex af,af'\r
	sub a\r
	ld (l0941h),a\r
	ld b,BP_CNT\r
	ld ix,bp_tab\r
l0920h:\r
	ld a,(ix+000h)\r
	and 007h\r
	jr z,l0938h\r
	ld e,(ix+002h)\r
	ld d,(ix+003h)\r
	ld hl,(reg.pc)\r
	call cp_hl_de\r
	push bc\r
	call z,sub_0942h\r
	pop bc\r
l0938h:\r
	ld de,BP_SIZE\r
	add ix,de\r
	djnz l0920h\r
	ex af,af'\r
	ret\r
\r
sub_0942h:\r
	ex af,af'\r
	res 7,a\r
	ex af,af'\r
	ld e,(ix+006h)\r
	ld d,(ix+007h)\r
	ld a,d\r
	or e\r
	ld hl,0ffffh\r
	call nz,expr\r
	ld a,h\r
	or l\r
	jr z,l0969h\r
	ld e,(ix+004h)\r
	ld d,(ix+005h)\r
	dec de\r
	ld a,d\r
	or e\r
	jr z,l0974h\r
	ld (ix+004h),e\r
	ld (ix+005h),d\r
l0969h:\r
	bit 4,(ix+000h)\r
	ret z\r
	ld a,001h\r
	ld (l0941h),a\r
	ret\r
l0974h:\r
	ex af,af'\r
	or (ix+000h)\r
	ex af,af'\r
	ret\r
\r
sub_097ah:\r
	ld b,BP_CNT\r
	ld ix,bp_tab\r
l0980h:\r
	bit 5,(ix+000h)\r
	res 5,(ix+000h)\r
	jr z,l099ah\r
	ld l,(ix+002h)\r
	ld h,(ix+003h)\r
	ld a,(l0003h)\r
	cp (hl)\r
	jr nz,l099ah\r
	ld a,(ix+001h)\r
	ld (hl),a\r
l099ah:\r
	res 3,(ix+000h)\r
	ld de,BP_SIZE\r
	add ix,de\r
	djnz l0980h\r
	ret\r
\r
sub_09a6h:\r
	ld b,BP_CNT\r
	ld ix,bp_tab\r
l09ach:\r
	ld a,(ix+000h)\r
	and 003h\r
	jr z,l09c0h\r
	ld e,(ix+002h)\r
	ld d,(ix+003h)\r
	ld hl,(reg.pc)\r
	call cp_hl_de\r
	ret z\r
l09c0h:\r
	ld de,BP_SIZE\r
	add ix,de\r
	djnz l09ach\r
	sub a\r
	inc a\r
	ret\r
\r
sub_09cah:\r
	call bp_get_freeslot\r
	ld (ix+004h),001h\r
	ld (ix+005h),000h\r
	ld (ix+002h),l\r
	ld (ix+003h),h\r
	ld (ix+006h),000h\r
	ld (ix+007h),000h\r
	ld a,(b_21e2_start)\r
	and a\r
	ld a,008h\r
	jr nz,l09edh\r
	ld a,004h\r
l09edh:\r
	ld (ix+000h),a\r
	ret\r
\r
sub_09f1h:\r
	ld b,BP_CNT\r
	ld ix,bp_tab\r
l09f7h:\r
	ld a,(ix+000h)\r
	and c\r
	jr z,l0a1dh\r
	set 5,(ix+000h)\r
	ld l,(ix+002h)\r
	ld h,(ix+003h)\r
	ld a,(hl)\r
	ld (ix+001h),a\r
	ld a,(l0003h)\r
	ld (hl),a\r
	and 038h\r
	ld h,000h\r
	ld l,a\r
	ld (hl),0c3h\r
	inc hl\r
	ld de,bpddtz\r
	ld (hl),e\r
	inc hl\r
	ld (hl),d\r
l0a1dh:\r
	ld de,BP_SIZE\r
	add ix,de\r
	djnz l09f7h\r
	ret\r
\r
user_go:\r
	sub a\r
	ld (b_21e2_start),a\r
	ld a,(l0941h)\r
	and a\r
	call nz,p_cpustat\r
	call sub_09a6h\r
	ld c,007h\r
	jr nz,l0a41h\r
	ld a,001h\r
	ld (b_21e2_start),a\r
	call sub_1ffeh\r
	ld c,008h\r
l0a41h:\r
	call sub_09f1h\r
	ld sp,reg.l2\r
	pop hl\r
	pop de\r
	pop bc\r
	pop af\r
	exx\r
	ex af,af'\r
	pop af\r
	ld i,a\r
	pop iy\r
	pop ix\r
	pop af\r
	pop bc\r
	pop de\r
	pop hl\r
	ld sp,(reg_sp)\r
	jp reg.iff\r
\r
bp_clr_condition:\r
	ld a,(ix+000h)\r
	and 003h\r
	ret nz\r
	ld e,(ix+006h)\r
	ld d,(ix+007h)\r
	ld a,d\r
	or e\r
	ret z\r
	push bc\r
	ld h,d\r
	ld l,e\r
	sub a\r
	ld (ix+006h),a\r
	ld (ix+007h),a\r
	ld bc,0ffffh\r
	cpir\r
l0a7dh:\r
	push de\r
	ld de,(expr_p1)\r
	call cp_hl_de\r
	pop de\r
	jr nc,l0a93h\r
	call sub_0a99h\r
l0a8bh:\r
	ld a,(hl)\r
	ldi\r
	and a\r
	jr nz,l0a8bh\r
	jr l0a7dh\r
l0a93h:\r
	ld (expr_p1),de\r
	pop bc\r
	ret\r
\r
sub_0a99h:\r
	ld iy,bp_tab\r
	push de\r
l0a9eh:\r
	ld e,(iy+006h)\r
	ld d,(iy+007h)\r
	call cp_hl_de\r
	jr z,l0ab0h\r
	ld de,BP_SIZE\r
	add iy,de\r
	jr l0a9eh\r
l0ab0h:\r
	pop de\r
	ld (iy+006h),e\r
	ld (iy+007h),d\r
	ret\r
\r
cmd_Y:\r
	call get.decdigit\r
	jr c,l0bc3h\r
	inc de\r
	push af\r
	call assert_eol\r
	pop af\r
	call sub_0bdch\r
	jp l0c15h\r
l0bc3h:\r
	call assert_eol\r
	xor a\r
l0bc7h:\r
	push af\r
	call sub_0bdch\r
	call outbl4\r
	pop af\r
	inc a\r
	bit 0,a\r
	push af\r
	call z,crlf\r
	pop af\r
	cp YREG_CNT\r
	jr c,l0bc7h\r
	ret\r
\r
sub_0bdch:\r
	ld c,a\r
	ld b,0\r
	add a,'0'+080h\r
	ld de,msg_Y+1\r
	ld (de),a\r
	dec de\r
	ld hl,reg_Y\r
	add hl,bc\r
	add hl,bc\r
	ex de,hl\r
	ld c,003h\r
	jp l0c33h\r
\r
cmd_X:\r
	call skipbl\r
	call sub_0caeh\r
	jp nc,p_cpustat0\r
	call assert_eol\r
	ld a,b\r
	cp 01eh\r
	jr z,l0c5fh\r
	cp 01fh\r
	jr z,l0c4fh\r
	cp 01dh\r
	jp z,ERROR\r
	ex de,hl\r
	ld hl,b_0cc3_start\r
	call sel_dc_string\r
l0c12h:\r
	call l0c33h\r
l0c15h:\r
	call outbl\r
	push de\r
	push bc\r
	call get_line\r
	call skipbl\r
	jr z,l0c30h\r
	call sub_0363h\r
	ld b,h\r
	ld c,l\r
	pop af\r
	pop hl\r
	ld (hl),c\r
	bit 0,a\r
	ret z\r
	inc hl\r
	ld (hl),b\r
	ret\r
l0c30h:\r
	pop af\r
	pop hl\r
	ret\r
\r
l0c33h:\r
	ld b,c\r
	call pstr\r
	ld a,'='\r
	call outchar\r
	ld a,(de)\r
	bit 0,b\r
	jp z,out_hex\r
	ld l,a\r
	inc de\r
	ld a,(de)\r
	dec de\r
	ld h,a\r
	bit 1,b\r
	jp z,out_hl\r
	jp out.hl.@\r
\r
l0c4fh:\r
	call p_f\r
	ld a,0f3h\r
	ld (reg.iff),a\r
	scf\r
	call sub_0c6ah\r
	ld (reg.f),a\r
	ret\r
l0c5fh:\r
	call p_f2\r
	and a\r
	call sub_0c6ah\r
	ld (reg.f2),a\r
	ret\r
sub_0c6ah:\r
	ex af,af'\r
	ld b,000h\r
	call outbl\r
	call assert_eol\r
	call get_line\r
l0c76h:\r
	call skipbl\r
	ld a,b\r
	ret z\r
	push bc\r
	ld hl,b_0ca4_start\r
	call lookupch\r
	jp nc,ERROR\r
	ld a,b\r
	cp 008h\r
	jr z,l0c97h\r
	pop bc\r
	rlca\r
	rlca\r
	rlca\r
	add a,0c0h\r
	ld (l0c94h),a\r
	defb 0cbh\r
l0c94h:\r
	defb 0c0h\r
	jr l0c76h\r
l0c97h:\r
	ex af,af'\r
	jp nc,ERROR\r
	ex af,af'\r
	ld a,0fbh\r
	ld (reg.iff),a\r
	pop bc\r
	jr l0c76h\r
\r
b_0ca4_start:\r
	db	'CNV H ZSE',0\r
\r
sub_0caeh:\r
	call sub_0303h\r
	ret nc\r
	ld a,b\r
	add a,b\r
	add a,b\r
	ld hl,b_0cfa_start\r
	call add_hl_a\r
	ld c,(hl)\r
	inc hl\r
	ld a,(hl)\r
	inc hl\r
	ld h,(hl)\r
	ld l,a\r
	scf\r
	ret\r
\r
b_0cc3_start:\r
	DC	'BC'''\r
	DC	'DE'''\r
	DC	'HL'''\r
	DC	'BC'\r
	DC	'DE'\r
	DC	'HL'\r
	DC	'A'''\r
	DC	'B'''\r
	DC	'C'''\r
	DC	'D'''\r
	DC	'E'''\r
	DC	'H'''\r
	DC	'L'''\r
	DC	'A'\r
	DC	'B'\r
	DC	'C'\r
	DC	'D'\r
	DC	'E'\r
	DC	'H'\r
	DC	'L'\r
	DC	'IX'\r
	DC	'IY'\r
	DC	'SP'\r
	DC	'PC'\r
	DC	'X'\r
	DC	'Y'\r
	DC	'S'\r
	DC	'P'\r
	DC	'I'\r
	DC	'IP'\r
	DC	'F'''\r
	DC	'F'\r
	DB	0\r
\r
b_0cfa_start:\r
	db	003h\r
	dw	reg.c2\r
	db	003h\r
	dw	reg.e2\r
	db	003h\r
	dw	reg.l2\r
	db	003h\r
	dw	reg.c\r
	db	003h\r
	dw	reg.e\r
	db	003h\r
	dw	reg.l\r
	db	000h\r
	dw	reg.a2\r
	db	000h\r
	dw	reg.b2\r
	db	000h\r
	dw	reg.c2\r
	db	000h\r
	dw	reg.d2\r
	db	000h\r
	dw	reg.e2\r
	db	000h\r
	dw	reg.h2\r
	db	000h\r
	dw	reg.l2\r
	db	000h\r
	dw	reg.a\r
	db	000h\r
	dw	reg.b\r
	db	000h\r
	dw	reg.c\r
	db	000h\r
	dw	reg.d\r
	db	000h\r
	dw	reg.e\r
	db	000h\r
	dw	reg.h\r
	db	000h\r
	dw	reg.l\r
	db	003h\r
	dw	reg.ix\r
	db	003h\r
	dw	reg.iy\r
	db	003h\r
	dw	reg_sp\r
	db	003h\r
	dw	reg.pc\r
	db	003h\r
	dw	reg.ix\r
	db	003h\r
	dw	reg.iy\r
	db	003h\r
	dw	reg_sp\r
	db	003h\r
	dw	reg.pc\r
	db	000h\r
	dw	reg.i\r
	db	003h\r
	dw	l004eh\r
	db	000h\r
	dw	reg.f2\r
	db	000h\r
	dw	reg.f\r
\r
cmd_S:\r
	ld hl,(last_S)\r
	call get_lastarg_def\r
l0d60h:\r
	ld (last_S),hl\r
	call out.hl.@\r
	call outbl\r
	ld a,(hl)\r
	call out_hex\r
	call outbl2\r
	call get_line\r
	call skipbl\r
	inc hl\r
	jr z,l0d60h\r
	dec hl\r
	inc de\r
	cp '.'\r
	jp z,assert_eol\r
	cp '-'\r
	jr nz,l0d8ah\r
	ld a,(de)\r
	or a\r
	dec hl\r
	jr z,l0d60h\r
	inc hl\r
l0d8ah:\r
	dec de\r
	call sub_0ef8h\r
	jr l0d60h\r
\r
cmd_@:\r
	call assert_eol\r
	ld hl,msg_@\r
	ld de,var.@\r
	ld c,001h\r
	jp l0c12h\r
\r
msg_@:\r
	dc	'@'\r
\r
cmd_I:\r
	ld hl,cmd_I\r
	ld (cmd_rpt),hl\r
	ld hl,(last_I)\r
	call get_lastarg_def\r
	ld (last_I),hl\r
	ld b,h\r
	ld c,l\r
	in a,(c)\r
	push af\r
	call out_hex\r
	call outbl4\r
	pop af\r
	call out.bin.b\r
	jp crlf\r
\r
cmd_O:\r
	ld hl,cmd_O\r
	ld (cmd_rpt),hl\r
	ld hl,(last_O_val)\r
	call get_arg_def\r
	ld a,l\r
	ld (last_O_val),a\r
	push af\r
	call next_arg\r
	ld hl,(last_O_addr)\r
	call get_lastarg_def\r
	ld (last_O_addr),hl\r
	ld b,h\r
	ld c,l\r
	pop af\r
	out (c),a\r
	ret\r
\r
cmd_V:\r
	call sub_034eh\r
l0dedh:\r
	push bc\r
	ld a,(de)\r
	ld b,(hl)\r
	cp b\r
	jr z,l0e10h\r
	ld c,a\r
	call out.hl.@\r
	call outbl\r
	ld a,b\r
	call out_hex\r
	call outbl2\r
	ld a,c\r
	call out_hex\r
	call outbl\r
	ex de,hl\r
	call out.hl.@\r
	ex de,hl\r
	call crlf\r
l0e10h:\r
	pop bc\r
	inc hl\r
	inc de\r
	dec bc\r
	ld a,b\r
	or c\r
	jr nz,l0dedh\r
	ret\r
\r
cmd_M:\r
	ld a,(de)\r
	cp 'V'\r
	jr nz,l0e1fh\r
	inc de\r
l0e1fh:\r
	push af\r
	call sub_034eh\r
	push hl\r
	push de\r
	push bc\r
	call cp_hl_de\r
	jr nc,cmdm_up\r
	add hl,bc\r
	ex de,hl\r
	add hl,bc\r
	ex de,hl\r
	dec hl\r
	dec de\r
	lddr\r
	db 01h		;swallow ldir instruction (ld bc,...)\r
cmdm_up:\r
	ldir\r
	pop bc\r
	pop de\r
	pop hl\r
	pop af\r
	jr z,l0dedh\r
	ret\r
\r
cmd_H:\r
	ld a,(de)\r
	cp 'S'\r
	jr z,p_symbols\r
\r
	call expr\r
	jp c,p_max_high0\r
	call next_arg\r
	push hl\r
	call expr\r
	push af\r
	call assert_eol\r
	pop af\r
	ex de,hl\r
	pop hl\r
	jr c,l0e5eh\r
	push hl\r
	push de\r
	add hl,de\r
	call l0e5eh\r
	pop de\r
	pop hl\r
	and a\r
	sbc hl,de\r
l0e5eh:\r
	call out_hl\r
	call outbl2\r
	call out_hl_neg\r
	call outbl4\r
	call out.hl.dec\r
	call outbl2\r
	call out_hl_dec_neg\r
	call outbl4\r
	call out.bin.w\r
	call outbl2\r
	ld a,l\r
	call out.ascii\r
	jp crlf\r
\r
p_symbols:\r
	inc	de\r
	call	assert_eol\r
	ld	hl,ddtz_base+2\r
psym_l:\r
	ld	d,(hl)\r
	dec	hl\r
	ld	e,(hl)\r
	dec	hl\r
	ld	b,(hl)\r
	dec	hl\r
	ld	a,b\r
	cp	10h\r
	ret	nc\r
\r
	ex	de,hl\r
	call	out_hl\r
	ex	de,hl\r
	call	outbl\r
psymch_l:\r
	ld	a,(hl)\r
	dec	hl\r
	call	outchar\r
	djnz	psymch_l\r
	call	crlf\r
	jr	psym_l\r
\r
p_symstr:\r
	ld	b,(hl)\r
pss_l:\r
	dec	hl\r
	ld	a,(hl)\r
	call	outchar\r
	djnz	pss_l\r
	ret\r
\r
\r
p_label:\r
  if 0\r
	ld	a,(dash_flag)\r
	or	a\r
	ret	nz\r
  endif\r
	push	hl\r
	call	sym_getname\r
	jr	z,pl_e\r
	call	p_symstr\r
	ld	a,':'\r
	call	outchar\r
	call	crlf\r
pl_e:\r
	pop	hl\r
	ret\r
\r
sym_getname:\r
	push	de\r
	push	hl\r
	ld	hl,ddtz_base+2\r
sgn_l:\r
	ld	d,(hl)\r
	dec	hl\r
	ld	e,(hl)\r
	dec	hl\r
	ld	a,(hl)\r
	cp	0c3h\r
	jr	z,sgn_e\r
\r
	ex	(sp),hl\r
	call	cp_hl_de\r
	jr	z,sgn_e\r
	ex	(sp),hl\r
	call	sub_hl_a1\r
	jr	sgn_l\r
sgn_e:\r
	sub	0c3h\r
	pop	hl\r
	pop	de\r
	ret\r
\r
sub_hl_a1:\r
	dec	hl\r
sub_hl_a:\r
	push	bc\r
	ld	c,a\r
	ld	b,0\r
	or	a\r
	sbc	hl,bc\r
	pop	bc\r
	ret\r
\r
cmd_Q:\r
	ld a,(de)\r
	sub 'J'\r
	ld (cmd_Q_jopt),a\r
	jr nz,l0e8dh\r
	inc de\r
l0e8dh:\r
	call get_arg_range\r
	push bc\r
	push hl\r
	call sub_0ee6h\r
	pop hl\r
l0e96h:\r
	call sub_0ed7h\r
	jr nz,l0eb0h\r
	push bc\r
	push hl\r
	ld a,(cmd_Q_jopt)\r
	or a\r
	jr nz,l0ea7h\r
	ld bc,-8\r
	add hl,bc\r
l0ea7h:\r
	ld bc,16\r
	and a\r
	call sub_0f58h\r
	pop hl\r
	pop bc\r
l0eb0h:\r
	inc hl\r
	ex (sp),hl\r
	dec hl\r
	ld a,h\r
	or l\r
	ex (sp),hl\r
	jr nz,l0e96h\r
	pop bc\r
	ret\r
\r
cmd_Z:\r
	call get_arg_range\r
	push bc\r
	push hl\r
	call sub_0ee6h\r
	ld a,b\r
	pop hl\r
	pop bc\r
	push hl\r
	ex de,hl\r
l0ec7h:\r
	ldi\r
	jp po,l0ed3h\r
	dec a\r
	jr nz,l0ec7h\r
	pop hl\r
	ldir\r
	ret\r
l0ed3h:\r
	pop hl\r
	ret\r
\r
sub_0ed7h:\r
	push	hl\r
	push	de\r
	push bc\r
l0edah:\r
	ld a,(de)\r
	cp (hl)\r
	jr nz,l0ee2h\r
	inc de\r
	inc hl\r
	djnz l0edah\r
l0ee2h:\r
	pop bc\r
	pop de\r
	pop hl\r
	ret\r
\r
sub_0ee6h:\r
	ld hl,conbuf+1\r
	call sub_0ef7h\r
	ld de,conbuf+1\r
	and a\r
	sbc hl,de\r
	ld b,l\r
	ret nz\r
	jp ERROR\r
\r
sub_0ef7h:\r
	db	0e6h		; and 037h (clear carry)\r
sub_0ef8h:\r
	scf\r
l0ef9h:\r
	push af\r
	call next_arg\r
	cp 'W'\r
	jr nz,l0f0eh\r
	inc de\r
	push hl\r
	call sub_035dh\r
	ex de,hl\r
	ex (sp),hl\r
	ld (hl),e\r
	inc hl\r
	ld a,d\r
	pop de\r
	jr l0f1ah\r
l0f0eh:\r
	cp ''''\r
	jr z,l0f1eh\r
	push hl\r
	call expr\r
	ld a,l\r
	pop hl\r
	jr c,l0f42h\r
l0f1ah:\r
	ld (hl),a\r
	inc hl\r
	jr l0f3ah\r
l0f1eh:\r
	inc de\r
	ld a,(de)\r
	cp ''''\r
	jr z,l0f2bh\r
	or a\r
	jr z,l0f42h\r
l0f27h:\r
	ld (hl),a\r
	inc hl\r
	jr l0f1eh\r
l0f2bh:\r
	inc de\r
	ld a,(de)\r
	cp ''''\r
	jr z,l0f27h\r
	cp '.'\r
	jr nz,l0f3ah\r
	inc de\r
	dec hl\r
	set 7,(hl)\r
	inc hl\r
l0f3ah:\r
	pop af\r
	jr nc,l0ef9h\r
	ld (last_S),hl\r
	jr l0ef9h\r
l0f42h:\r
	pop af\r
	ret nc\r
	ld (last_S),hl\r
	ret\r
\r
cmd_D:\r
	ld hl,cmd_D\r
	ld (cmd_rpt),hl\r
	ld hl,(last_D)\r
	ld bc,128\r
	call sub_0377h\r
	scf\r
sub_0f58h:\r
	push bc\r
	push de\r
	push hl\r
	ex af,af'\r
l0f5ch:\r
	call out.hl.@\r
	call z,outbl2\r
	call outbl\r
	ld de,0\r
l0f68h:\r
	ld a,(hl)\r
	inc hl\r
	call out_hex\r
	call outbl\r
	dec bc\r
	inc e\r
	ld a,e\r
	cp 010h\r
	jr z,l0f80h\r
	and 003h\r
	call z,outbl\r
	ld a,b\r
	or c\r
	jr nz,l0f68h\r
l0f80h:\r
	call outbl\r
	and a\r
	sbc hl,de\r
l0f86h:\r
	ld a,(hl)\r
	call sub_0fa3h\r
	call outchar\r
	inc hl\r
	dec e\r
	jr nz,l0f86h\r
	ex af,af'\r
	jr nc,l0f97h\r
	ld (last_D),hl\r
l0f97h:\r
	ex af,af'\r
	call crlf\r
	ld a,b\r
	or c\r
	jr nz,l0f5ch\r
	pop hl\r
	pop de\r
	pop bc\r
	ret\r
\r
sub_0fa3h:\r
	and 07fh\r
	cp 07fh\r
	jr z,l0fach\r
	cp ' '\r
	ret nc\r
l0fach:\r
	ld a,'.'\r
	ret\r
\r
cmd_F:\r
	push de\r
	ld hl,DMA_BUF+1\r
	ld (hl),' '\r
	inc hl\r
l0fb6h:\r
	ld a,(de)\r
	ld (hl),a\r
	inc hl\r
	inc de\r
	and a\r
	jr nz,l0fb6h\r
	ld a,l\r
	sub DMA_BUF+2\r
	ld (DMA_BUF),a\r
	pop hl\r
	ld de,dfcb1\r
	call parse_filename\r
	ld de,dfcb2\r
	call parse_filename\r
	;fall thru\r
\r
cpy_fcb2:\r
	ld hl,dfcb2\r
	ld de,fcbsym\r
	ld bc,16\r
	ldir\r
	ret\r
\r
parse_filename:\r
	call sub_102ch\r
	push de\r
	push bc\r
	ld b,(hl)\r
	inc hl\r
	ld a,(hl)\r
	cp ':'\r
	jr nz,l0fe1h\r
	inc hl\r
	ld a,b\r
	sub 040h\r
	and 01fh\r
	jr l0fe3h\r
l0fe1h:\r
	dec hl\r
	xor a\r
l0fe3h:\r
	ld (de),a\r
	inc de\r
	ld b,8\r
	call sub_0ff2h\r
	ld b,3\r
	call sub_0ff2h\r
	pop bc\r
	pop de\r
	ret\r
\r
sub_0ff2h:\r
	call sub_1012h\r
	jr z,l0ffeh\r
	inc hl\r
	ld (de),a\r
	inc de\r
	djnz sub_0ff2h\r
	jr l1003h\r
l0ffeh:\r
	ld a,c\r
l0fffh:\r
	ld (de),a\r
	inc de\r
	djnz l0fffh\r
l1003h:\r
	call sub_1012h\r
	inc hl\r
	jr nz,l1003h\r
	cp '*'\r
	jr z,l1003h\r
	cp '.'\r
	ret z\r
	dec hl\r
	ret\r
\r
sub_1012h:\r
	ld a,(hl)\r
	ld c,' '\r
	and 01fh\r
	ret z\r
	ld a,(hl)\r
	cp ' '\r
	ret z\r
	call sub_1043h\r
	ret z\r
	cp '/'\r
	ret z\r
	cp '.'\r
	ret z\r
	ld c,'?'\r
	cp '*'\r
	ret\r
\r
l102bh:\r
	inc hl\r
sub_102ch:\r
	ld a,(hl)\r
	cp '/'\r
	jr z,l103bh\r
	call sub_1043h\r
	jr z,l102bh\r
l1036h:\r
	cp ' '\r
	jr z,l102bh\r
	ret\r
\r
l103bh:\r
	ld a,(hl)\r
	cp ' '+1\r
	jr c,l1036h\r
	inc hl\r
	jr l103bh\r
\r
sub_1043h:\r
	cp '='\r
	ret z\r
	cp '_'\r
	ret z\r
	cp ','\r
	ret\r
\r
setup_fcb:\r
	push de\r
	ld hl,12\r
	add hl,de\r
	xor a\r
	ld b,21\r
l1052h:\r
	ld (hl),a\r
	inc hl\r
	djnz l1052h\r
	ld de,DMA_BUF\r
	ld c,BDOS_SETDMA\r
	call ddtz_bdos\r
	pop de\r
	ret\r
\r
file_open:\r
	ld (cur_fcb),de\r
	call setup_fcb\r
	ld c,BDOS_OPEN\r
	call ddtz_bdos\r
	inc a\r
	jp z,ERROR\r
	ld a,080h\r
	ld (cmdR_rindex),a\r
	ret\r
\r
read_byte:\r
	ld a,(cmdR_rindex)\r
	cp 080h\r
	jr nz,l1111h\r
	call read_sector\r
	ret z\r
	sub a\r
l1111h:\r
	inc a\r
	ld (cmdR_rindex),a\r
	push hl\r
	add a,07fh\r
	ld l,a\r
	ld h,000h\r
	ld a,(hl)\r
	pop hl\r
	cp 01ah\r
	ret\r
\r
read_sector:\r
	push hl\r
	push de\r
	push bc\r
	ld de,(cur_fcb)\r
	ld c,BDOS_READ\r
	call ddtz_bdos\r
	dec a\r
	jr z,l1132h\r
	jp p,ERROR\r
l1132h:\r
	pop bc\r
	pop de\r
	pop hl\r
	ret\r
\r
cmdR_storebyte:\r
	push af\r
	push de\r
	ld de,TPA\r
	call cp_hl_de\r
	jp c,ERROR\r
	ld de,(BDOS+1)\r
	call cp_hl_de\r
	jp nc,ERROR\r
	ld de,(high_load)\r
	call cp_hl_de\r
	jr c,l1157h\r
	ld (high_load),hl\r
l1157h:\r
	ld de,(max_load)\r
	call cp_hl_de\r
	jr c,l1163h\r
	ld (max_load),hl\r
l1163h:\r
	pop de\r
	pop af\r
	ld (hl),a\r
	ret\r
\r
strncmp:\r
	ld a,(de)\r
	cp (hl)\r
	inc de\r
	inc hl\r
	ret nz\r
	djnz strncmp\r
	ret\r
\r
str_hex:\r
	db	'HEX'\r
\r
read_hexchar:\r
	call read_hexdigit\r
	rlca\r
	rlca\r
	rlca\r
	rlca\r
	ld d,a\r
	call read_hexdigit\r
	add a,d\r
	ld d,a\r
	add a,c\r
	ld c,a\r
	ld a,d\r
	ret\r
\r
read_hexdigit:\r
	call read_byte\r
	jr z,error8\r
hex_digit_v:\r
	call hex_digit\r
	ret nc\r
error8:\r
	jp ERROR\r
\r
read_hexbyte:\r
	call	read_byte\r
read_hexbyte0:\r
	push	bc\r
	call	hex_digit_v\r
	rlca\r
	rlca\r
	rlca\r
	rlca\r
	ld	c,a\r
	call	read_byte\r
	call	hex_digit_v\r
	or	c\r
	pop	bc\r
	ret\r
\r
cmd_R:\r
	ld hl,0\r
	call get_lastarg_def\r
read_file:\r
	ld de,dfcb1+1\r
	ld a,(de)\r
	cp '?'\r
	jr z,read_symfile\r
	dec de\r
	push hl\r
	ld hl,0\r
	ld (high_load),hl\r
	call file_open\r
	ld hl,dfcb1+9\r
	ld de,str_hex\r
	ld b,3\r
	call strncmp\r
	pop hl\r
	jr z,read_hexfile\r
	ld de,TPA\r
	add hl,de\r
	push hl\r
l108eh:\r
	call read_sector\r
	pop hl\r
	jr z,read_symfile\r
	ld de,DMA_BUF\r
	ld b,080h\r
l109ah:\r
	ld a,(de)\r
	call cmdR_storebyte\r
	inc de\r
	inc hl\r
	djnz l109ah\r
	push hl\r
	jr l108eh\r
\r
read_hexfile:\r
	push hl\r
l10aeh:\r
	call read_byte\r
	jr z,rdhex_done\r
	cp ':'\r
	jr nz,l10aeh\r
	ld c,0\r
	call read_hexchar\r
	ld b,a\r
	call read_hexchar\r
	ld h,a\r
	call read_hexchar\r
	ld l,a\r
	ld a,b\r
	and a\r
	jr z,rdhex_done\r
	call read_hexchar\r
l10cch:\r
	call read_hexchar\r
	pop de\r
	push de\r
	push hl\r
	add hl,de\r
	call cmdR_storebyte\r
	pop hl\r
	inc hl\r
	djnz l10cch\r
	call read_hexchar\r
	ld a,c\r
	and a\r
	jr nz,error9\r
	jr l10aeh\r
rdhex_done:\r
	pop hl\r
	jr read_symfile\r
\r
read_symfile:\r
	ld de,fcbsym+1\r
	ld a,(de)\r
	cp ' '\r
	jp z,p_max_high\r
\r
	call pstr_inl\r
	db	'SYMBOLS',CR,LF+80h\r
\r
	dec de\r
	call file_open\r
;------------------------------------------------------------------------\r
rs_1:\r
	call	read_byte\r
rs_2:\r
	cp	1ah\r
	jr	z,p_max_high\r
	cp	'!'\r
	jr	c,rs_1\r
	call	read_hexbyte0\r
	ld	d,a\r
	call	read_hexbyte	; symval\r
	ld	e,a\r
	push	de		; symval\r
	call	read_byte\r
	cp	' '\r
	jr	z,rs_4\r
	pop	hl		; discard symval\r
rs_3:	call	read_byte\r
	cp	' '\r
	jr	c,rs_2\r
	jr	rs_3\r
;\r
rs_4:	ld	hl,(BDOS+1)	;\r
	ld	e,0		; setup symlen\r
rs_5:	dec	hl		;\r
	call	read_byte	;\r
	cp	TAB		;\r
	jr	z,rs_6		;\r
	cp	CR		;\r
	jr	z,rs_6		;\r
	cp	'!'		;\r
	jr	c,error9		;\r
	ld	(hl),a		;\r
	inc	e		; symlen++\r
	ld	a,e		;\r
	cp	10h+1		;\r
	jr	c,rs_5		;\r
error9:\r
	jp	ERROR		;\r
;\r
rs_6:	push	de		; symlen\r
	push	hl		;\r
	ex	de,hl		;\r
	ld	hl,(BDOS+1)	;\r
	inc	hl		;\r
	ld	e,(hl)		;\r
	inc	hl		;\r
	ld	d,(hl)		;\r
	pop	hl		;\r
	ld	(hl),d		;\r
	dec	hl		;\r
	ld	(hl),e		;\r
	dec	hl		;\r
	ld	(hl),0c3h	;\r
\r
	ld	de,(max_load)	;\r
	call	cp_hl_de	;\r
	jr	c,error9	;\r
\r
	ld	de,(reg_sp)	;\r
	call	cp_hl_de	;\r
	jr	nc,rs_61	;\r
	ld	(reg_sp),hl	;\r
rs_61:\r
\r
	ld	de,(BDOS+1)	;\r
	ld	(BDOS+1),hl	;\r
	ex	de,hl		;\r
	pop	de		;\r
	ld	(hl),e		; symlen\r
	inc	hl		;\r
	pop	de		; symval\r
	ld	(hl),e		;\r
	inc	hl		;\r
	ld	(hl),d		;\r
	jp	rs_1		;\r
;------------------------------------------------------------------------\r
\r
p_max_high0:\r
	call assert_eol\r
p_max_high:\r
	call pstr_inl\r
	DC	'High = '\r
	ld hl,(high_load)\r
	call out_hl\r
	call pstr_inl\r
	DC	'  Max = '\r
	ld hl,(max_load)\r
	call out_hl\r
	jp crlf\r
\r
cmd_W:\r
	call get_arg_range\r
	call assert_eol\r
	push hl\r
	ld a,c\r
	add a,07fh\r
	jr nc,l11adh\r
	inc b\r
l11adh:\r
	and 080h\r
	ld c,a\r
	push bc\r
	ld a,(dfcb1+1)\r
	cp ' '\r
	jr z,error5\r
	ld de,dfcb1\r
	call setup_fcb\r
	push de\r
	ld c,BDOS_DELETE\r
	call ddtz_bdos\r
	pop de\r
	ld c,BDOS_CREATE\r
	call ddtz_bdos\r
	inc a\r
	jr z,error5\r
	pop bc\r
	pop hl\r
l11cch:\r
	ld a,b\r
	or c\r
	jr z,close_file\r
	push bc\r
	ld de,080h		; DMA_BUF\r
	ld b,d\r
	ld c,e\r
	ldir\r
	call write_sector\r
	ex (sp),hl\r
	ld bc,0ff80h\r
	add hl,bc\r
	ex (sp),hl\r
	pop bc\r
	jr l11cch\r
\r
write_sector:\r
	push hl\r
	ld de,dfcb1\r
	ld c,BDOS_WRITE\r
	call ddtz_bdos\r
	pop hl\r
	and a\r
	ret z\r
	call close_file\r
error5:\r
	jp ERROR\r
\r
close_file:\r
	ld de,dfcb1\r
	ld c,BDOS_CLOSE\r
	jp ddtz_bdos\r
\r
cmd_A:\r
	ld hl,(last_A)\r
	call get_lastarg_def\r
	push hl\r
	pop iy\r
	ld hl,l1259h\r
	ld (error_func),hl\r
	ld (l1262h),sp\r
l1211h:\r
	push iy\r
	pop hl\r
	ld (last_A),hl\r
	ld (var.$),hl\r
	push hl\r
	call p_disas_line\r
	pop iy\r
	ld c,b\r
	ld de,(var.@)\r
	ld a,d\r
	or e\r
	ld b,011h\r
	jr z,l122dh\r
	ld b,019h\r
l122dh:\r
	call outbl\r
	ld a,(con_col)\r
	cp b\r
	jr c,l122dh\r
	push bc\r
	call get_line\r
	pop bc\r
	call skipbl\r
	cp '.'\r
	ret z\r
	cp '-'\r
	jr nz,l124bh\r
	ld iy,(cmd_A_prev)\r
	jr l1211h\r
l124bh:\r
	and a\r
	call nz,sub_1268h\r
	ld (cmd_A_prev),iy\r
	ld b,0\r
	add iy,bc\r
	jr l1211h\r
\r
l1259h:\r
	call l0146h\r
	ld sp,(l1262h)\r
	jr l1211h\r
\r
sub_1268h:\r
	call skipbl\r
	ld hl,t_MNEMONICS\r
	call sub_030ah\r
	jp nc,ERROR\r
	call skipbl\r
	push de\r
	ld a,b\r
	add a,b\r
	add a,b\r
	ld hl,b_1289_start\r
	call add_hl_a\r
	ld e,(hl)\r
	inc hl\r
	ld d,(hl)\r
	inc hl\r
	ld b,(hl)\r
	ex de,hl\r
	pop de\r
\r
CALL_HL:\r
	jp (hl)\r
\r
b_1289_start:\r
	dw	as.ADC_SBC		;ADC\r
	db	088h			;\r
	dw	as.ADD			;ADD\r
	db	080h			;\r
	dw	as.AND_CP_OR_SUB_XOR	;AND\r
	db	0a0h			;\r
	dw	as.BITOP		;BIT\r
	db	040h			;\r
	dw	as.CALL			;CALL\r
	db	0c4h			;\r
	dw	as.opc.noarg		;CCF\r
	db	03fh			;\r
	dw	as.AND_CP_OR_SUB_XOR	;CP\r
	db	0b8h			;\r
	dw	gen.opc.ED2		;CPD\r
	db	0a9h			;\r
	dw	gen.opc.ED2		;CPDR\r
	db	0b9h			;\r
	dw	gen.opc.ED2		;CPI\r
	db	0a1h			;\r
	dw	gen.opc.ED2		;CPIR\r
	db	0b1h			;\r
	dw	as.opc.noarg		;CPL\r
	db	02fh			;\r
	dw	as.opc.noarg		;DAA\r
	db	027h			;\r
	dw	as.DEC_INC		;DEC\r
	db	005h			;\r
	dw	as.opc.noarg		;DI\r
	db	0f3h			;\r
	dw	as.DJNZ			;DJNZ\r
	db	010h			;\r
	dw	as.opc.noarg		;EI\r
	db	0fbh			;\r
	dw	as.EX			;EX\r
	db	0e3h			;\r
	dw	as.opc.noarg		;EXX\r
	db	0d9h			;\r
	dw	as.opc.noarg		;HALT\r
	db	076h			;\r
	dw	as.IM			;IM\r
	db	046h			;\r
	dw	as.IN			;IN\r
	db	040h			;\r
	dw	as.DEC_INC		;INC\r
	db	004h			;\r
	dw	gen.opc.ED2		;IND\r
	db	0aah			;\r
	dw	gen.opc.ED2		;INDR\r
	db	0bah			;\r
	dw	gen.opc.ED2		;INI\r
	db	0a2h			;\r
	dw	gen.opc.ED2		;INIR\r
	db	0b2h			;\r
	dw	as.JP			;JP\r
	db	0c2h			;\r
	dw	as.JR			;JR\r
	db	020h			;\r
	dw	as.LD			;LD\r
	db	040h			;\r
	dw	gen.opc.ED2		;LDD\r
	db	0a8h			;\r
	dw	gen.opc.ED2		;LDDR\r
	db	0b8h			;\r
	dw	gen.opc.ED2		;LDI\r
	db	0a0h			;\r
	dw	gen.opc.ED2		;LDIR\r
	db	0b0h			;\r
	dw	gen.opc.ED2		;NEG\r
	db	044h			;\r
	dw	as.opc.noarg		;NOP\r
	db	000h			;\r
	dw	as.AND_CP_OR_SUB_XOR 	;OR\r
	db	0b0h			;\r
	dw	gen.opc.ED2		;OTDR\r
	db	0bbh			;\r
	dw	gen.opc.ED2		;OTIR\r
	db	0b3h			;\r
	dw	as.OUT			;OUT\r
	db	041h			;\r
	dw	gen.opc.ED2		;OUTD\r
	db	0abh			;\r
	dw	gen.opc.ED2		;OUTI\r
	db	0a3h			;\r
	dw	as.POP_PUSH		;POP\r
	db	0c1h			;\r
	dw	as.POP_PUSH		;PUSH\r
	db	0c5h			;\r
	dw	as.BITOP		;RES\r
	db	080h			;\r
	dw	as.RET			;RET\r
	db	0c0h			;\r
	dw	gen.opc.ED2		;RETI\r
	db	04dh			;\r
	dw	gen.opc.ED2		;RETN\r
	db	045h			;\r
	dw	as.SHIFTOP		;RL\r
	db	010h			;\r
	dw	as.opc.noarg		;RLA\r
	db	017h			;\r
	dw	as.SHIFTOP		;RLC\r
	db	000h			;\r
	dw	as.opc.noarg		;RLCA\r
	db	007h			;\r
	dw	gen.opc.ED2		;RLD\r
	db	06fh			;\r
	dw	as.SHIFTOP		;RR\r
	db	018h			;\r
	dw	as.opc.noarg		;RRA\r
	db	01fh			;\r
	dw	as.SHIFTOP		;RRC\r
	db	008h			;\r
	dw	as.opc.noarg		;RRCA\r
	db	00fh			;\r
	dw	gen.opc.ED2		;RRD\r
	db	067h			;\r
	dw	as.RST			;RST\r
	db	0c7h			;\r
	dw	as.ADC_SBC		;SBC\r
	db	098h			;\r
	dw	as.opc.noarg		;SCF\r
	db	037h			;\r
	dw	as.BITOP		;SET\r
	db	0c0h			;\r
	dw	as.SHIFTOP		;SLA\r
	db	020h			;\r
	dw	as.SHIFTOP		;SRA\r
	db	028h			;\r
	dw	as.SHIFTOP		;SRL\r
	db	038h			;\r
	dw	as.AND_CP_OR_SUB_XOR 	;SUB\r
	db	090h			;\r
	dw	as.AND_CP_OR_SUB_XOR 	;XOR\r
	db	0a8h			;\r
\r
	dw	as.IN0			;IN0\r
	db	000h       		;\r
	dw	as.MLT			;MLT\r
	db	04ch       		;\r
	dw	gen.opc.ED2		;OTDM\r
	db	08bh       		;\r
	dw	gen.opc.ED2		;OTDMR\r
	db	09bh       		;\r
	dw	gen.opc.ED2		;OTIM\r
	db	083h       		;\r
	dw	gen.opc.ED2		;OTIMR\r
	db	093h       		;\r
	dw	as.OUTO    		;OUT0\r
	db	001h       		;\r
	dw	gen.opc.ED2		;SLP\r
	db	076h       		;\r
	dw	as.TST			;TST\r
	db	004h       		;\r
	dw	as.TSTIO		;TSTIO\r
	db	074h       		;\r
\r
as.TST:\r
	call arg.r_HL_A		;\r
	jr nc,as.tst_0\r
	rlca\r
	rlca\r
	rlca\r
	add a,b\r
	ld b,a\r
	jp gen.opc.ED2\r
as.tst_0:\r
	ld b,064h\r
as.TSTIO:\r
	call arg.imm_8bit	;\r
	jr as.store_io0\r
\r
as.IN0:\r
	call arg.r_HL_A		;\r
	jr nc,error7\r
	cp 006h\r
	jr z,error7\r
	rlca\r
	rlca\r
	rlca\r
	add a,b\r
	ld b,a\r
	call assert_comma	;\r
	call arg.addr_8bit	;\r
	jr as.store_io0\r
\r
as.OUTO:\r
	call arg.addr_8bit	;\r
	call assert_comma	;\r
	call arg.r_HL_A		;\r
	jr nc,error7\r
	cp 006h\r
	jr z,error7\r
	rlca\r
	rlca\r
	rlca\r
	add a,b\r
	ld b,a\r
\r
as.store_io0:\r
	call assert_eol\r
	ld (iy+000h),0edh\r
	ld (iy+001h),b\r
	ld (iy+002h),l\r
	ld c,003h\r
	ret\r
\r
as.MLT:\r
	call arg.ww		;\r
	jr nc,error7\r
	add a,b\r
	ld b,a\r
	jp gen.opc.ED2\r
\r
error7:\r
	jp ERROR\r
\r
as.LD:\r
	call arg.r_HL_A\r
	jr c,l13d4h\r
	call arg.IDX_displcmnt\r
	jp c,l1471h\r
	call arg.ww\r
	jp c,l149ch\r
	call arg.IX_IY\r
	jp c,l14f5h\r
	ld a,(de)\r
	cp 'I'\r
	jp z,l1511h\r
	cp 'R'\r
	jp z,l1519h\r
	cp '('\r
	jp nz,ERROR\r
	inc de\r
	call arg.ww\r
	jp c,l1528h\r
	call test_expr\r
	call test_paren_close\r
	call assert_comma\r
	call arg.ww\r
	jr c,l13c2h\r
	call arg.IX_IY\r
	jr nc,l13aah\r
	ld b,022h\r
l1395h:\r
	call assert_eol\r
	ld a,(prefix_ixiy)\r
l139bh:\r
	ld (iy+000h),a\r
	ld (iy+001h),b\r
	ld (iy+002h),l\r
	ld (iy+003h),h\r
	ld c,004h\r
	ret\r
l13aah:\r
	ld a,(de)\r
	cp 'A'\r
	jp nz,ERROR\r
	inc de\r
	ld b,032h\r
as.store_3:\r
	call assert_eol\r
	ld (iy+000h),b\r
	ld (iy+001h),l\r
	ld (iy+002h),h\r
	ld c,003h\r
	ret\r
l13c2h:\r
	cp 020h\r
	jr z,l13d0h\r
	add a,043h\r
	ld b,a\r
l13c9h:\r
	call assert_eol\r
	ld a,0edh\r
	jr l139bh\r
l13d0h:\r
	ld b,022h\r
	jr as.store_3\r
l13d4h:\r
	ld b,a\r
	call assert_comma\r
	call arg.r_HL_A\r
	jr nc,l13f0h\r
	push af\r
	ld a,b\r
	rlca\r
	rlca\r
	rlca\r
	ld b,a\r
	pop af\r
	add a,b\r
	add a,040h\r
	cp 076h\r
	jp z,ERROR\r
l13ech:\r
	ld b,a\r
	jp as.opc.noarg\r
l13f0h:\r
	call arg.IDX_displcmnt\r
	jr nc,l1413h\r
	ld a,b\r
	rlca\r
	rlca\r
	rlca\r
	add a,046h\r
	cp 076h\r
	jp z,ERROR\r
\r
l1400h:\r
	ld b,a\r
	call assert_eol\r
	ld (iy+001h),b\r
	ld (iy+002h),c\r
	ld a,(prefix_ixiy)\r
	ld (iy+000h),a\r
	ld c,003h\r
	ret\r
l1413h:\r
	ld a,(de)\r
	cp 'I'\r
	jr z,l1426h\r
	cp 'R'\r
	jr nz,l1432h\r
	ld a,b\r
	cp 007h\r
	jp nz,ERROR\r
	ld b,05fh\r
	jr l142eh\r
l1426h:\r
	ld a,b\r
	cp 007h\r
	jp nz,ERROR\r
	ld b,057h\r
l142eh:\r
	inc de\r
	jp gen.opc.ED2\r
l1432h:\r
	cp '('\r
	jr z,l144ch\r
	call arg.imm_8bit\r
	ld a,b\r
	rlca\r
	rlca\r
	rlca\r
	add a,006h\r
l143fh:\r
	ld b,a\r
as.store_2:\r
	call assert_eol\r
	ld (iy+000h),b\r
	ld (iy+001h),l\r
	ld c,002h\r
	ret\r
l144ch:\r
	inc de\r
	ld a,b\r
	cp 007h\r
	jp nz,ERROR\r
	call arg.ww\r
	jr nc,l1466h\r
	cp 030h\r
	jp nc,ERROR\r
	add a,00ah\r
	ld b,a\r
	call test_paren_close\r
	jp as.opc.noarg\r
l1466h:\r
	call test_expr\r
	call test_paren_close\r
	ld b,03ah\r
	jp as.store_3\r
\r
l1471h:\r
	call assert_comma\r
	call arg.r_HL_A\r
	jr nc,l1483h\r
	cp 006h\r
	jp z,ERROR\r
	add a,070h\r
	jp l1400h\r
\r
l1483h:\r
	call arg.imm_8bit\r
	call assert_eol\r
	ld a,(prefix_ixiy)\r
	ld (iy+000h),a\r
	ld (iy+001h),036h\r
	ld (iy+002h),c\r
	ld (iy+003h),l\r
	ld c,004h\r
	ret\r
l149ch:\r
	ld b,a\r
	call assert_comma\r
	ld hl,t_HL.AF\r
	call sub_0318h\r
	jr c,l14c3h\r
	call arg.IX_IY\r
	jr nc,l14cch\r
	ld a,b\r
	cp 030h\r
	jr nz,error6\r
	ld b,0f9h\r
l14b4h:\r
	call assert_eol\r
	ld a,(prefix_ixiy)\r
	ld (iy+000h),a\r
	ld (iy+001h),b\r
	ld c,002h\r
	ret\r
l14c3h:\r
	ld a,b\r
	cp 030h\r
	jr nz,error6\r
	ld b,0f9h\r
	jr as.opc.noarg	;14ca\r
l14cch:\r
	ld a,(de)\r
	cp '('\r
	jr nz,l14e8h\r
	inc de\r
	call test_expr\r
	call test_paren_close\r
	ld a,b\r
	cp 020h\r
	jr z,l14e3h\r
	add a,04bh\r
	ld b,a\r
	jp l13c9h\r
l14e3h:\r
	ld b,02ah\r
	jp as.store_3\r
l14e8h:\r
	call test_expr\r
	call assert_eol\r
	ld a,001h\r
	add a,b\r
	ld b,a\r
	jp as.store_3\r
l14f5h:\r
	call assert_comma\r
	ld a,(de)\r
	cp '('\r
	jr nz,l1509h\r
	inc de\r
	call test_expr\r
	call test_paren_close\r
	ld b,02ah\r
	jp l1395h\r
l1509h:\r
	call test_expr\r
	ld b,021h\r
	jp l1395h\r
l1511h:\r
	inc de\r
	call assert_comma\r
	ld b,047h\r
	jr l151fh\r
l1519h:\r
	inc de\r
	call assert_comma\r
	ld b,04fh\r
l151fh:\r
	ld a,(de)\r
	inc de\r
	cp 'A'\r
	jr z,gen.opc.ED2\r
error6:\r
	jp ERROR\r
\r
l1528h:\r
	cp 020h\r
	jr nc,error6\r
	add a,002h\r
	ld b,a\r
	call test_paren_close\r
	call assert_comma\r
	ld a,(de)\r
	cp 'A'\r
	jr nz,error6\r
	inc de\r
as.opc.noarg:\r
	call assert_eol\r
	ld (iy+000h),b\r
	ld c,001h\r
	ret\r
\r
gen.opc.ED2:\r
	call assert_eol\r
	ld (iy+000h),0edh\r
	ld (iy+001h),b\r
	ld c,002h\r
	ret\r
\r
as.ADC_SBC:\r
	ld hl,t_HL.AF\r
	call sub_0318h\r
	jr nc,as.AND_CP_OR_SUB_XOR\r
	call assert_comma\r
	call arg.ww\r
	jp nc,ERROR\r
	push af\r
	ld a,b\r
	cp 088h\r
	ld b,04ah\r
	jr z,l156ch\r
	ld b,042h\r
l156ch:\r
	pop af\r
	add a,b\r
l156eh:\r
	ld b,a\r
	jr gen.opc.ED2\r
as.ADD:\r
	ld hl,t_HL.AF\r
	call sub_0318h\r
	jr c,l159ah\r
	call arg.IX_IY\r
	jr nc,as.AND_CP_OR_SUB_XOR\r
	call assert_comma\r
	ld hl,t_BC.DE.IX.SP\r
	ld a,(prefix_ixiy)\r
	cp 0fdh\r
	jr nz,l158eh\r
	ld hl,t_BC.DE.IY.SP\r
l158eh:\r
	call arg.reg_16bit\r
	jp nc,ERROR\r
	add a,009h\r
l1596h:\r
	ld b,a\r
	jp l14b4h\r
l159ah:\r
	call assert_comma\r
	call arg.ww\r
	jp nc,ERROR\r
	add a,009h\r
	jp l13ech\r
as.AND_CP_OR_SUB_XOR:\r
	ld a,(de)\r
	cp 'A'\r
	jr nz,l15b8h\r
	push de\r
	inc de\r
	call next_arg\r
	jr z,l15b7h\r
	pop de\r
	jr l15b8h\r
l15b7h:\r
	pop af\r
l15b8h:\r
	call arg.r_HL_A\r
	jr c,l15cbh\r
	call arg.IDX_displcmnt\r
	jr c,l15cfh\r
	call arg.imm_8bit\r
	ld a,b\r
	add a,046h\r
	jp l143fh\r
l15cbh:\r
	add a,b\r
	jp l13ech\r
l15cfh:\r
	ld a,b\r
	add a,006h\r
	jp l1400h\r
\r
as.SHIFTOP:\r
	call arg.r_HL_A\r
	jr c,l15fah\r
	call arg.IDX_displcmnt\r
	jp nc,ERROR\r
	ld a,b\r
	add a,006h\r
	ld b,a\r
l15e4h:\r
	call assert_eol\r
	ld a,(prefix_ixiy)\r
	ld (iy+000h),a\r
	ld (iy+001h),0cbh\r
	ld (iy+002h),c\r
	ld (iy+003h),b\r
	ld c,004h\r
	ret\r
\r
l15fah:\r
	add a,b\r
l15fbh:\r
	ld b,a\r
	call assert_eol\r
	ld (iy+001h),b\r
	ld (iy+000h),0cbh\r
	ld c,002h\r
	ret\r
\r
as.BITOP:\r
	call arg.bit\r
	call assert_comma\r
	call arg.r_HL_A\r
	jr c,l1624h\r
	call arg.IDX_displcmnt\r
	jp nc,ERROR\r
	ld a,l\r
	rlca\r
	rlca\r
	rlca\r
	add a,006h\r
	add a,b\r
	ld b,a\r
	jr l15e4h\r
l1624h:\r
	add a,b\r
	ld b,a\r
	ld a,l\r
	rlca\r
	rlca\r
	rlca\r
	add a,b\r
	jr l15fbh\r
\r
as.CALL:\r
	push de\r
	call arg.cc_ZCPS\r
	jr nc,l163ch\r
	add a,b\r
	ld b,a\r
	call next_arg\r
	jr z,l163eh\r
	pop de\r
	push de\r
l163ch:\r
	ld b,0cdh\r
l163eh:\r
	pop af\r
	call test_expr\r
	jp as.store_3\r
\r
as.RET:\r
	call arg.cc_ZCPS\r
	jr nc,l164eh\r
	add a,b\r
	ld b,a\r
	jr l1650h\r
l164eh:\r
	ld b,0c9h\r
l1650h:\r
	jp as.opc.noarg\r
\r
as.JP:\r
	push de\r
	call arg.cc_ZCPS\r
	jr c,l1666h\r
l1659h:\r
	pop de\r
	ld hl,l168ch\r
	call sub_030ah\r
	jr c,l1674h\r
	ld b,0c3h\r
	jr l166eh\r
\r
l1666h:\r
	add a,b\r
	ld b,a\r
	call next_arg\r
	jr nz,l1659h\r
	pop af\r
l166eh:\r
	call test_expr\r
	jp as.store_3\r
l1674h:\r
	call assert_eol\r
	ld a,b\r
	and a\r
	jr nz,l1680h\r
	ld b,0e9h\r
	jp as.opc.noarg\r
l1680h:\r
	ld b,0ddh\r
	dec a\r
	jr z,l1687h\r
	ld b,0fdh\r
l1687h:\r
	ld l,0e9h\r
	jp as.store_2\r
\r
l168ch:\r
	DC	'(HL)'\r
	DC	'(IX)'\r
	DC	'(IY)'\r
	DB	0\r
\r
as.DJNZ:\r
	call next_arg\r
	ld b,010h\r
	jr l16aeh\r
as.JR:\r
	call arg.cc_ZC\r
	jr c,l16a9h\r
	ld b,018h\r
	jr l16aeh\r
l16a9h:\r
	add a,b\r
	ld b,a\r
	call assert_comma\r
l16aeh:\r
	call arg.j_displ\r
	jp as.store_2\r
\r
as.IM:\r
	call arg.imm_8bit\r
	ld a,l\r
	cp 003h\r
	jr nc,error2\r
	and a\r
	jr z,l16c7h\r
	ld b,056h\r
	cp 001h\r
	jr z,l16c7h\r
	ld b,05eh\r
l16c7h:\r
	jp gen.opc.ED2\r
\r
as.RST:\r
	call arg.imm_8bit\r
	ld a,l\r
	push af\r
	add a,b\r
	ld b,a\r
	pop af\r
	and 0c7h\r
	jr nz,error2\r
	jp as.opc.noarg\r
\r
as.POP_PUSH:\r
	call arg.IX_IY\r
	jr c,l16e7h\r
	call arg.zz\r
	jr nc,error2\r
	add a,b\r
	jp l13ech\r
l16e7h:\r
	ld a,b\r
	add a,020h\r
	jp l1596h\r
\r
as.IN:\r
	call arg.r_HL_A\r
	jr nc,error2\r
	cp 006h\r
	jr z,error2\r
	rlca\r
	rlca\r
	rlca\r
	add a,b\r
	ld b,a\r
	cp 078h\r
	jr nz,l170fh\r
	call assert_comma\r
	call sub_171bh\r
	jr c,l1715h\r
	call arg.addr_8bit\r
	ld b,0dbh\r
	jp as.store_2\r
l170fh:\r
	call assert_comma\r
	call sub_171bh\r
l1715h:\r
	jp c,gen.opc.ED2\r
error2:\r
	jp ERROR\r
\r
sub_171bh:\r
	ld hl,t__C_\r
	jp sub_0318h\r
\r
as.OUT:\r
	call sub_171bh\r
	jr nc,l1739h\r
	call assert_comma\r
	call arg.r_HL_A\r
	jr nc,error2\r
	cp 006h\r
	jr z,error2\r
	rlca\r
	rlca\r
	rlca\r
	add a,b\r
	jp l156eh\r
\r
l1739h:\r
	call arg.addr_8bit\r
	call assert_comma\r
	cp 'A'\r
	jr nz,error2\r
	inc de\r
	ld b,0d3h\r
	jp as.store_2\r
\r
as.EX:\r
	ld hl,b_176d_start\r
	call sub_030ah\r
	jp nc,ERROR\r
	ld c,b\r
	call assert_eol\r
	ld b,000h\r
	ld hl,l178eh\r
	add hl,bc\r
	add hl,bc\r
	ld a,(hl)\r
	ld (iy+000h),a\r
	ld c,001h\r
	inc hl\r
	ld a,(hl)\r
	and a\r
	ret z\r
	ld (iy+001h),a\r
	ld c,002h\r
	ret\r
\r
b_176d_start:\r
	DC	'AF,AF'''\r
l1773h:\r
	DC	'DE,HL'\r
	DC	'(SP),HL'\r
	DC	'(SP),IX'\r
	DC	'(SP),IY'\r
	db	0\r
l178eh:\r
	db	008h,000h\r
	db	0ebh,000h\r
	db	0e3h,000h\r
	db	0ddh,0e3h\r
	db	0fdh,0e3h\r
\r
as.DEC_INC:\r
	call arg.IX_IY\r
	jr c,l17b3h\r
	call arg.ww\r
	jr c,l17bfh\r
	call arg.r_HL_A\r
	jr c,l17cch\r
	call arg.IDX_displcmnt\r
	jp nc,ERROR\r
	ld a,b\r
	add a,030h\r
	jp l1400h\r
l17b3h:\r
	ld a,b\r
	ld b,023h\r
	cp 004h\r
	jr z,l17bch\r
	ld b,02bh\r
l17bch:\r
	jp l14b4h\r
l17bfh:\r
	push af\r
	ld a,b\r
	ld b,003h\r
	cp 004h\r
	jr z,l17c9h\r
	ld b,00bh\r
l17c9h:\r
	pop af\r
	jr l17cfh\r
l17cch:\r
	rlca\r
	rlca\r
	rlca\r
l17cfh:\r
	add a,b\r
	jp l13ech\r
\r
arg.bit:\r
	call arg.imm_8bit\r
	ld a,l\r
	cp 008h\r
	jr nc,error3\r
	ret\r
\r
arg.j_displ:\r
	call test_expr\r
	push bc\r
	push iy\r
	pop bc\r
	and a\r
	sbc hl,bc\r
	dec hl\r
	dec hl\r
	pop bc\r
	call sub_1802h\r
	ld a,h\r
	xor l\r
	bit 7,a\r
	jr nz,error3\r
	ret\r
\r
arg.addr_8bit:\r
	ld a,(de)\r
	cp '('\r
	jr nz,arg.imm_8bit\r
	inc de\r
	call arg.imm_8bit\r
	jp test_paren_close\r
\r
arg.imm_8bit:\r
	call test_expr\r
sub_1802h:\r
	ld a,h\r
	and a\r
	ret z\r
	inc a\r
	ret z\r
	jr error3\r
\r
test_expr:\r
	push bc\r
	call expr\r
	pop bc\r
	ret nc\r
error3:\r
	jp ERROR\r
\r
arg.zz:\r
	push hl\r
	ld hl,t_BC.DE.HL.AF\r
	jr l181fh\r
\r
arg.reg_16bit:\r
	push hl\r
	jr l181fh\r
\r
arg.ww:\r
	push hl\r
	ld hl,t_BC.DE.HL.SP\r
l181fh:\r
	push bc\r
	call sub_030ah\r
	jr nc,l182bh\r
	ld a,b\r
	rlca\r
	rlca\r
	rlca\r
	rlca\r
	scf\r
l182bh:\r
	pop bc\r
	pop hl\r
	ret\r
\r
arg.r_HL_A:\r
	call skipbl\r
	push bc\r
	push hl\r
	ld hl,t_BCDEHL_HL_A\r
	call sub_030ah\r
	ld a,b\r
	pop hl\r
	pop bc\r
	ret\r
\r
arg.IX_IY:\r
	push hl\r
	push bc\r
	ld hl,t_IX.IY\r
	call sub_030ah\r
	jr nc,l1852h\r
	ld a,0ddh\r
	dec b\r
	jr nz,l184eh\r
	ld a,0fdh\r
l184eh:\r
	ld (prefix_ixiy),a\r
	scf\r
l1852h:\r
	pop bc\r
	pop hl\r
	ret\r
\r
arg.IDX_displcmnt:\r
	push hl\r
	push bc\r
	ld a,(de)\r
	cp '('\r
	jr nz,l18a1h\r
	push de\r
	inc de\r
	ld hl,t_IX.IY\r
	call sub_030ah\r
	jr nc,l18a0h\r
	pop af\r
	ld a,0ddh\r
	dec b\r
	jr nz,l186eh\r
	ld a,0fdh\r
l186eh:\r
	ld (prefix_ixiy),a\r
	ld a,(de)\r
	cp '+'\r
	jr z,l1882h\r
	cp ')'\r
	ld hl,0\r
	jr z,l189ah\r
	cp '-'\r
	jp nz,ERROR\r
l1882h:\r
	push af\r
	inc de\r
	call arg.imm_8bit\r
	pop af\r
	cp '+'\r
	jr z,l1894h\r
	ld b,h\r
	ld c,l\r
	ld hl,0\r
	and a\r
	sbc hl,bc\r
l1894h:\r
	ld a,(de)\r
	cp ')'\r
	jp nz,ERROR\r
l189ah:\r
	inc de\r
	pop bc\r
	ld c,l\r
	pop hl\r
	scf\r
	ret\r
l18a0h:\r
	pop de\r
l18a1h:\r
	pop bc\r
	pop hl\r
	and a\r
	ret\r
\r
arg.cc_ZCPS:\r
	ld hl,t_tstfl_ZCPS\r
	ld c,007h\r
	jr l18b1h\r
\r
arg.cc_ZC:\r
	ld hl,t_tstfl_ZC\r
	ld c,003h\r
l18b1h:\r
	push bc\r
	call sub_030ah\r
	ld a,b\r
	pop bc\r
	ret nc\r
	and c\r
	rlca\r
	rlca\r
	rlca\r
	scf\r
	ret\r
\r
assert_comma:\r
	call next_arg\r
	ret z\r
l18c2h:\r
	jp ERROR\r
\r
test_paren_close:\r
	ld a,(de)\r
	cp ')'\r
	jr nz,l18c2h\r
	inc de\r
	ret\r
\r
cmd_L:\r
	ld hl,cmd_L\r
	ld (cmd_rpt),hl\r
	call expr\r
	jr nc,l18dbh\r
	ld hl,(last_L)\r
l18dbh:\r
	push hl\r
	pop iy\r
	call next_arg\r
	call get_range\r
	jr nc,l1905h\r
	call assert_eol\r
	ld b,16\r
l18ebh:\r
	push bc\r
	push iy\r
	pop hl\r
	push hl\r
	call p_disas_line\r
	call crlf\r
	pop iy\r
	ld c,b\r
	ld b,0\r
	add iy,bc\r
	ld (last_L),iy\r
	pop bc\r
	djnz l18ebh\r
	ret\r
l1905h:\r
	call assert_eol\r
	ld h,b\r
	ld l,c\r
	ld a,b\r
	or c\r
	jr nz,l190fh\r
	dec hl\r
l190fh:\r
	push hl\r
	push iy\r
	pop hl\r
	push hl\r
	call p_disas_line\r
	call crlf\r
	pop iy\r
	ld e,b\r
	ld d,000h\r
	add iy,de\r
	ld (last_L),iy\r
	pop hl\r
	and a\r
	sbc hl,de\r
	ret z\r
	ret c\r
	jr l190fh\r
\r
p_disas_line:\r
	call p_label\r
	call outbl2\r
	call out.hl.@\r
	call z,outbl\r
	call outbl\r
	sub a\r
	ld (con_col),a\r
	call p_disas_instr\r
	and a\r
	ret z\r
\r
l193fh:\r
	call outbl\r
	ld a,(con_col)\r
	cp 16\r
	jr c,l193fh\r
\r
p_offset:\r
	ld de,(var.@)\r
	ld a,d\r
	or e\r
	ret z\r
	call p_char_lparen\r
	ld a,'@'\r
	call outchar\r
	and a\r
	sbc hl,de\r
	call out_hl\r
	jp out_rparen\r
\r
p_disas_instr:\r
	sub a\r
	ld (l1ffdh),a\r
	call disas_get_instrlen\r
	jr nc,l197fh\r
	push bc\r
	call p_mnemonic\r
	ex de,hl\r
	call call_hl\r
	pop bc\r
	ld a,(l1ffdh)\r
	ld hl,(l1ffbh)\r
	scf\r
	ret\r
\r
l197fh:\r
	call pstr_inl\r
	DC	'???'\r
	ld b,001h\r
	sub a\r
	ret\r
\r
disas_get_instrlen:\r
	sub a\r
	ld (isprefix_ixiy),a\r
	ld a,(iy+000h)\r
	cp 0edh\r
	jp z,disas_pfx.ED\r
	cp 0ddh\r
	jr z,l19abh\r
	cp 0fdh\r
	jr z,l19afh\r
sub_19a0h:\r
	ld a,(iy+000h)\r
	cp 0cbh\r
	jp z,disas_pfx.CB\r
	jp disas_nopfx\r
l19abh:\r
	ld a,1\r
	jr l19b1h\r
l19afh:\r
	ld a,2\r
l19b1h:\r
	ld (isprefix_ixiy),a\r
	call disas_pfx.DDFD\r
	ret nc\r
	push bc\r
	call sub_19a0h\r
	pop af\r
	add a,b\r
	ld b,a\r
	scf\r
	ret\r
\r
disas_pfx.DDFD:\r
	inc iy\r
	ld hl,b_19ef_start\r
	call test_DDFD\r
	ld b,002h\r
	ret c\r
	ld hl,l1a0ah\r
	call test_DDFD\r
	ld b,001h\r
	ret c\r
	ld a,(iy+000h)\r
	cp 0cbh\r
	jr nz,l19edh\r
	ld a,(iy+002h)\r
	cp 036h\r
	ret z\r
	and 007h\r
	cp 006h\r
	jr nz,l19edh\r
	ld b,002h\r
	scf\r
	ret\r
l19edh:\r
	and a\r
	ret\r
\r
; DD/FD 3 byte (ix+d)/(iy+d)\r
b_19ef_start:\r
	db	034h\r
	db	035h\r
	db	036h\r
	db	046h\r
	db	04eh\r
	db	056h\r
	db	05eh\r
	db	066h\r
	db	06eh\r
	db	070h\r
	db	071h\r
	db	072h\r
	db	073h\r
	db	074h\r
	db	075h\r
	db	077h\r
	db	07eh\r
	db	086h\r
	db	08eh\r
	db	096h\r
	db	09eh\r
	db	0a6h\r
	db	0aeh\r
	db	0b6h\r
	db	0beh\r
	db	0\r
\r
; DD/FD 2 byte\r
l1a0ah:\r
	db	009h\r
	db	019h\r
	db	021h\r
	db	022h\r
	db	023h\r
	db	029h\r
	db	02ah\r
	db	02bh\r
	db	039h\r
	db	0e1h\r
	db	0e3h\r
	db	0e5h\r
	db	0e9h\r
	db	0f9h\r
	db	0\r
\r
disas_pfx.ED:\r
	inc iy\r
	ld hl,b_1bc9_start\r
	call sub_1a72h\r
	ld b,2\r
	ret c\r
	ld hl,b_1bf4_start\r
	call lookup_opc\r
	ld b,2\r
	ret c\r
\r
	ld hl,l228bh\r
	call lookup_opc\r
	ld b,3\r
	ret c\r
	ld hl,b_1c40_start\r
	call lookup_opc\r
	ld b,4\r
	ret\r
\r
disas_pfx.CB:\r
	push iy\r
	inc iy\r
	ld a,(isprefix_ixiy)\r
	and a\r
	jr z,l1a42h\r
	inc iy\r
l1a42h:\r
	ld hl,b_1c55_start\r
	call lookup_opc\r
	pop iy\r
	ld b,2\r
	ret\r
\r
disas_nopfx:\r
	ld hl,b_1b54_start\r
	call lookup_opc\r
	ld b,2\r
	ret c\r
	ld hl,b_1ab6_start\r
	call sub_1a72h\r
	ld b,1\r
	ret c\r
	ld hl,b_1ad1_start\r
	call lookup_opc\r
	ld b,1\r
	ret c\r
	ld hl,b_1b9b_start\r
	call lookup_opc\r
	ret nc\r
	ld b,3\r
	ret\r
\r
sub_1a72h:\r
	ld a,(hl)\r
	cp 0ffh\r
	ret z\r
	cp (iy+000h)\r
	jr z,l1a7fh\r
	inc hl\r
	inc hl\r
	jr sub_1a72h\r
l1a7fh:\r
	inc hl\r
	ld c,(hl)\r
	ld hl,t_MNEMONICS\r
	ld b,0\r
	add hl,bc\r
	ld de,l1c97h\r
	scf\r
	ret\r
\r
test_DDFD:\r
	ld a,(hl)\r
	and a\r
	ret z\r
	inc hl\r
	cp (iy+000h)\r
	jr nz,test_DDFD\r
	scf\r
	ret\r
\r
lookup_opc:\r
	ld a,(iy+000h)\r
	and (hl)\r
	inc hl\r
	cp (hl)\r
	jr z,l1aa8h\r
	inc hl\r
	inc hl\r
	inc hl\r
	inc hl\r
	ld a,(hl)\r
	and a\r
	jr nz,lookup_opc\r
	ret\r
l1aa8h:\r
	inc hl\r
	ld c,(hl)\r
	inc hl\r
	ld e,(hl)\r
	inc hl\r
	ld d,(hl)\r
	ld hl,t_MNEMONICS\r
	ld b,000h\r
	add hl,bc\r
	scf\r
	ret\r
\r
; 1 byte opcodes (no parameters)\r
; Format: db opcode, t_MNEMONICS-index\r
b_1ab6_start:\r
	db 076h,039h		;halt\r
	db 0d9h,036h		;exx\r
	db 0f3h,02ch		;di\r
	db 0fbh,032h		;ei\r
	db 000h,069h		;nop\r
	db 007h,09eh		;rlca\r
	db 00fh,0adh		;rrca\r
	db 017h,098h		;rla\r
	db 01fh,0a7h		;rra\r
	db 027h,026h		;daa\r
	db 02fh,023h		;cpl\r
	db 037h,0bah		;scf\r
	db 03fh,010h		;ccf\r
	db 0ffh\r
\r
\r
;	1 byte opcodes\r
; Format: db mask, match, t_MNEMONICS-index\r
;	  dw argument formating fuction\r
b_1ad1_start:\r
	db 0c0h,040h,056h	;ld r,r\r
	dw p_arg_r_r\r
	db 0f8h,080h,003h	;add a,r\r
	dw p_arg_a_r\r
	db 0f8h,088h,000h	;adc a,r\r
	dw p_arg_a_r\r
	db 0f8h,090h,0c9h	;sub r\r
	dw p_arg_rs\r
	db 0f8h,098h,0b7h	;sbc a,r\r
	dw p_arg_a_r\r
	db 0f8h,0a0h,006h	;and r\r
	dw p_arg_rs\r
	db 0f8h,0a8h,0cch	;xor r\r
	dw p_arg_rs\r
	db 0f8h,0b0h,06ch	;or r\r
	dw p_arg_rs\r
	db 0f8h,0b8h,013h	;cp r\r
	dw p_arg_rs\r
	db 0c7h,0c0h,08bh	;ret cc\r
	dw p_arg_cc\r
	db 0c7h,0c7h,0b4h	;rst\r
	dw l1c98h\r
	db 0ffh,0c9h,08bh	;ret\r
	dw l1c97h\r
	db 0cfh,0c1h,081h	;pop rr\r
	dw p_arg_zz\r
	db 0cfh,0c5h,084h	;push rr\r
	dw p_arg_zz\r
	db 0ffh,0e3h,034h	;ex (sp),hl\r
	dw l1ca0h\r
	db 0ffh,0e9h,052h	;jp (hl)\r
	dw l1caeh\r
	db 0ffh,0ebh,034h	;ex de,hl\r
	dw p_arg_ex_dehl\r
	db 0ffh,0f9h,056h	;ld sp,hl\r
	dw l1cc1h\r
	db 0cfh,003h,041h	;inc rr\r
	dw p_arg_ww\r
	db 0cfh,00bh,029h	;dec rr\r
	dw p_arg_ww\r
	db 0c7h,004h,041h	;inc r\r
	dw p_arg_r\r
	db 0c7h,005h,029h	;dec r\r
	dw p_arg_r\r
	db 0ffh,008h,034h	;ex af,af'\r
	dw p_arg_ex_afaf\r
	db 0cfh,009h,003h	;add hl,rr\r
	dw l1cd3h\r
	db 0efh,002h,056h	;ld (rr),a ;rr=bc,de\r
	dw l1cdch\r
	db 0efh,00ah,056h	;ld a,(rr) ;rr=bc,de\r
	dw l1ce5h\r
	db 0\r
\r
;	2 byte opdodes\r
b_1b54_start:\r
	db 0c7h,006h,056h	;ld r,nn\r
	dw l1cfah\r
	db 0ffh,0c6h,003h	;add a,nn\r
	dw l1cf5h\r
	db 0ffh,0ceh,000h	;adc a,nn\r
	dw l1cf5h\r
	db 0ffh,0d6h,0c9h	;sub a,nn\r
	dw l1d09h\r
	db 0ffh,0deh,0b7h	;sbc a,nn\r
	dw l1cf5h\r
	db 0ffh,0e6h,006h	;and a,nn\r
	dw l1d09h\r
	db 0ffh,0eeh,0cch	;xor nn\r
	dw l1d09h\r
	db 0ffh,0f6h,06ch	;or nn\r
	dw l1d09h\r
	db 0ffh,0feh,013h	;cp a,nn\r
	dw l1d09h\r
	db 0ffh,010h,02eh	;djnz\r
	dw l1d1ah\r
	db 0ffh,018h,054h	;jr\r
	dw l1d1ah\r
	db 0e7h,020h,054h	;jr,cc\r
	dw l1d0fh\r
	db 0ffh,0d3h,076h	;out (nn),a\r
	dw l1d37h\r
	db 0ffh,0dbh,03fh	;in a,(nn)\r
	dw l1d29h\r
	db 0\r
\r
;	3 byte opcodes\r
b_1b9b_start:\r
	db 0c7h,0c2h,052h	;jp cc,mn\r
	dw p_arg_cc_mn\r
	db 0c7h,0c4h,00ch	;call cc,mn\r
	dw p_arg_cc_mn\r
	db 0cfh,001h,056h	;ld ww,mn\r
	dw p_arg_ww_mn\r
	db 0ffh,0c3h,052h	;jp mn\r
	dw p_arg_mn\r
	db 0ffh,0cdh,00ch	;call mn\r
	dw p_arg_mn\r
	db 0ffh,022h,056h	;ld (mn),hl\r
	dw p_arg_addr_hl\r
	db 0ffh,02ah,056h	;ld hl,(mn)\r
	dw p_arg_hl_addr\r
	db 0ffh,032h,056h	;ld (mn),a\r
	dw p_arg_addr_a\r
	db 0ffh,03ah,056h	;ld a,(mn)\r
	dw p_arg_a_addr\r
	db 0\r
\r
; Prefix ED + 1 byte opcode, no arguments\r
; Format: opcode, t_MNEMONICS index\r
b_1bc9_start:\r
	db 044h,066h		;neg\r
	db 045h,092h		;retn\r
	db 04dh,08eh		;reti\r
	db 067h,0b1h		;rrd\r
	db 06fh,0a2h		;rld\r
	db 0a0h,05fh		;ldi\r
	db 0a1h,01ch		;cpi\r
	db 0a2h,04bh		;ini\r
	db 0a3h,07dh		;outi\r
	db 0a8h,058h		;ldd\r
	db 0a9h,015h		;cpd\r
	db 0aah,044h		;ind\r
	db 0abh,079h		;outd\r
	db 0b0h,062h		;ldir\r
	db 0b1h,01fh		;cpir\r
	db 0b2h,04eh		;inir\r
	db 0b3h,072h		;otir\r
	db 0b8h,05bh		;lddr\r
	db 0b9h,018h		;cpdr\r
	db 0bah,047h		;indr\r
	db 0bbh,06eh		;otdr\r
	db 08bh,0d5h		;otdm\r
	db 09bh,0d9h		;otdmr\r
	db 083h,0deh		;otim\r
	db 093h,0e2h		;otimr\r
	db 076h,0ebh		;slp\r
	db 0ffh			;<end mark>\r
\r
b_1bf4_start:\r
	db 0e7h,040h,03fh	;in r,(c) ;r=b,c,d,e\r
	dw p_arg_in_c	   	;\r
	db 0f7h,060h,03fh	;in r,(c) ;r=h,l\r
	dw p_arg_in_c	   	;\r
	db 0ffh,078h,03fh	;in r,(c) ;r=a\r
	dw p_arg_in_c	   	;\r
	db 0e7h,041h,076h	;out (c),r ;r=b,c,d,e\r
	dw p_arg_out_c	   	;\r
	db 0f7h,061h,076h	;out (c),r ;r=h,l\r
	dw p_arg_out_c	   	;\r
	db 0ffh,079h,076h	;out (c),r ;r=a\r
	dw p_arg_out_c	   	;\r
	db 0cfh,042h,0b7h	;sbc hl,rr\r
	dw l1dcah	   	;\r
	db 0cfh,04ah,000h	;adc hl,rr\r
	dw l1dcah	   	;\r
	db 0ffh,046h,03dh	;im 0\r
	dw l1d85h	   	;\r
	db 0ffh,056h,03dh	;im 1\r
	dw l1d89h	   	;\r
	db 0ffh,05eh,03dh	;im 2\r
	dw l1d8dh	   	;\r
	db 0ffh,047h,056h	;ld i,a\r
	dw l1d92h	   	;\r
	db 0ffh,057h,056h	;ld a,i\r
	dw l1d97h	   	;\r
	db 0ffh,04fh,056h	;ld r,a\r
	dw l1d9ch	   	;\r
	db 0ffh,05fh,056h	;ld a,r\r
	dw l1da1h\r
	db 0cfh,04ch,0d2h	;mlt rr\r
	dw p_arg_ww\r
	db 0c7h,004h,0eeh	;tst r\r
	dw p_arg_r\r
	db 0\r
\r
l228bh:\r
	db 0e7h,000h,0cfh	;in0 r,(m) ;r=b,c,d,e\r
	dw p_arg_r_m\r
	db 0f7h,020h,0cfh	;in0 r,(m) ;r=h,l\r
	dw p_arg_r_m\r
	db 0ffh,038h,0cfh	;in0 a,(m)\r
	dw p_arg_r_m\r
	db 0e7h,001h,0e7h	;out0 (m),r ;r=b,c,d,e\r
	dw p_arg_m_r\r
	db 0f7h,021h,0e7h	;out0 (m),r ;r=h,l\r
	dw p_arg_m_r\r
	db 0ffh,039h,0e7h	;out0 (m),a\r
	dw p_arg_m_r\r
	db 0ffh,064h,0eeh	;tst m\r
	dw l1d09h\r
	db 0ffh,074h,0f1h	;tstio m\r
	dw l1d09h\r
	db 0\r
\r
b_1c40_start:\r
	db 0efh,043h,056h	;ld (mn),ww	;ww=bc,de\r
	dw p_arg_addr_ww\r
	db 0ffh,073h,056h	;ld (mn),sp\r
	dw p_arg_addr_ww\r
	db 0efh,04bh,056h	;ld ww,(mn)	;ww=bc,de\r
	dw p_arg_ww_addr\r
	db 0ffh,07bh,056h	;ld sp,(mn)\r
	dw p_arg_ww_addr\r
	db 0\r
\r
; CB\r
b_1c55_start:\r
	db 0f8h,000h,09bh	;rlc g\r
	dw l1e03h\r
	db 0f8h,008h,0aah	;rrc g\r
	dw l1e03h\r
	db 0f8h,010h,096h	;rl g\r
	dw l1e03h\r
	db 0f8h,018h,0a5h	;rr g\r
	dw l1e03h\r
	db 0f8h,020h,0c0h	;sla g\r
	dw l1e03h\r
	db 0f8h,028h,0c3h	;sra g\r
	dw l1e03h\r
	db 0f8h,038h,0c6h	;srl g\r
	dw l1e03h\r
	db 0c0h,040h,009h	;bit b,g\r
	dw p_arg_bitop\r
	db 0c0h,080h,088h	;res b,g\r
	dw p_arg_bitop\r
	db 0c0h,0c0h,0bdh	;set b,g\r
	dw p_arg_bitop\r
	db 0\r
\r
p_arg_r_r:\r
	call p_arg_r\r
	call p_char_comma\r
	jp p_arg_rs\r
p_arg_a_r:\r
	call p_A_comma\r
	jp p_arg_rs\r
l1c97h:\r
	ret\r
\r
p_arg_r_m:\r
	call p_arg_r\r
	call p_char_comma\r
	jp sub_1d2ch\r
\r
p_arg_m_r:\r
	call sub_1d2ch\r
	call p_char_comma\r
	jp p_arg_r\r
\r
l1c98h:\r
	ld a,(iy+000h)\r
	and 038h\r
	jp out_hex\r
\r
l1ca0h:\r
	call pstr_inl\r
	DC	'(SP),'\r
	jp p_arg_hlixiy\r
\r
l1caeh:\r
	call p_char_lparen\r
	call p_arg_hlixiy\r
	jr out_rparen\r
\r
p_arg_ex_dehl:\r
	ld hl,l1773h\r
	jp pstr\r
\r
l1cc1h:\r
	call pstr_inl\r
	DC	'SP,'\r
	jp p_arg_hlixiy\r
\r
p_arg_ex_afaf:\r
	ld hl,b_176d_start\r
	jp pstr\r
\r
l1cd3h:\r
	call p_arg_hlixiy\r
	call p_char_comma\r
	jp p_arg_ww\r
l1cdch:\r
	call sub_1ce8h\r
	call p_char_comma\r
	jp p_char_A\r
\r
l1ce5h:\r
	call p_A_comma\r
sub_1ce8h:\r
	call p_char_lparen\r
	call p_arg_ww\r
out_rparen:\r
	jp p_char_rparen\r
\r
l1cf5h:\r
	call p_A_comma\r
	jr l1d09h\r
l1cfah:\r
	call p_arg_r\r
	call p_char_comma\r
	ld a,(isprefix_ixiy)\r
	and a\r
	ld a,(iy+002h)\r
	jr nz,l1d0ch\r
l1d09h:\r
	ld a,(iy+001h)\r
l1d0ch:\r
	jp out_hex\r
\r
l1d0fh:\r
	ld a,(iy+000h)\r
	and 018h\r
	call p_arg_cc0\r
	call p_char_comma\r
l1d1ah:\r
	ld c,(iy+001h)\r
	ld a,c\r
	rla\r
	sbc a,a\r
	ld b,a\r
	push iy\r
	pop hl\r
	add hl,bc\r
	inc hl\r
	inc hl\r
	jr l1d4eh\r
l1d29h:\r
	call p_A_comma\r
sub_1d2ch:\r
	call p_char_lparen\r
	ld a,(iy+001h)\r
	jp l1e6bh\r
l1d37h:\r
	call sub_1d2ch\r
	jr p_char_comma_A\r
\r
p_arg_cc_mn:\r
	call p_arg_cc\r
	call p_char_comma\r
p_arg_mn:\r
	ld l,(iy+001h)\r
	ld h,(iy+002h)\r
l1d4eh:\r
	ld a,002h\r
sub_1d50h:\r
	ld (l1ffdh),a\r
	ld (l1ffbh),hl\r
	call out_hl\r
	ret\r
p_arg_ww_mn:\r
	call p_arg_ww\r
	call p_char_comma\r
	jr p_arg_mn\r
\r
p_arg_addr_hl:\r
	call sub_1e13h\r
	call p_char_comma\r
	jp p_arg_hlixiy\r
p_arg_hl_addr:\r
	call p_arg_hlixiy\r
	call p_char_comma\r
	jp sub_1e13h\r
\r
p_arg_addr_a:\r
	call sub_1e13h\r
p_char_comma_A:\r
	call p_char_comma\r
p_char_A:\r
	ld a,'A'\r
	jr outchar1\r
p_arg_a_addr:\r
	call p_A_comma\r
	jp sub_1e13h\r
l1d85h:\r
	ld a,'0'\r
	jr outchar1\r
l1d89h:\r
	ld a,'1'\r
	jr outchar1\r
l1d8dh:\r
	ld a,'2'\r
	jr outchar1\r
\r
p_A_comma:\r
	call p_char_A\r
p_char_comma:\r
	ld a,','\r
outchar1:\r
	jp outchar\r
\r
l1d92h:\r
	ld hl,b_1da7_start\r
	jr l1da4h\r
l1d97h:\r
	ld hl,l1daah\r
	jr l1da4h\r
l1d9ch:\r
	ld hl,l1dadh\r
	jr l1da4h\r
l1da1h:\r
	ld hl,l1db0h\r
l1da4h:\r
	jp pstr\r
\r
b_1da7_start:\r
	DC	'I,A'\r
l1daah:\r
	DC	'A,I'\r
l1dadh:\r
	DC	'R,A'\r
l1db0h:\r
	DC	'A,R'\r
\r
p_arg_in_c:\r
	call p_arg_r\r
	call p_char_comma\r
	ld hl,t__C_\r
	jp pstr\r
\r
p_arg_out_c:\r
	ld hl,t__C_\r
	call pstr\r
	call p_char_comma\r
	jr p_arg_r\r
\r
l1dcah:\r
	call p_arg_hlixiy\r
	call p_char_comma\r
	jp p_arg_ww\r
\r
p_arg_addr_ww:\r
	call sub_1e13h\r
	call p_char_comma\r
	jp p_arg_ww\r
\r
p_arg_ww_addr:\r
	call p_arg_ww\r
	call p_char_comma\r
	jr sub_1e13h\r
\r
p_arg_bitop:\r
	ld a,(isprefix_ixiy)\r
	and a\r
	jr nz,l1defh\r
	ld a,(iy+001h)\r
	jr l1df2h\r
l1defh:\r
	ld a,(iy+002h)\r
l1df2h:\r
	push af\r
	rra\r
	rra\r
	rra\r
	and 007h\r
	add a,'0'\r
	call outchar\r
	call p_char_comma\r
	pop af\r
	jr p_arg_r0\r
\r
l1e03h:\r
	ld a,(isprefix_ixiy)\r
	and a\r
	jr nz,l1e0eh\r
	ld a,(iy+001h)\r
	jr l1e11h\r
l1e0eh:\r
	ld a,(iy+002h)\r
l1e11h:\r
	jr p_arg_r0\r
\r
sub_1e13h:\r
	call p_char_lparen\r
	ld l,(iy+001h)\r
	ld h,(iy+002h)\r
	ld a,001h\r
	call sub_1d50h\r
\r
p_char_rparen:\r
	ld a,')'\r
	jp outchar\r
\r
p_arg_r:\r
	ld a,(iy+000h)\r
	rra\r
	rra\r
	rra\r
	jr p_arg_r0\r
p_arg_rs:\r
	ld a,(iy+000h)\r
p_arg_r0:\r
	and 007h\r
	cp 006h\r
	jr nz,p_arg_r1\r
	ld a,(isprefix_ixiy)\r
	and a\r
	ld a,006h\r
	jr z,p_arg_r1\r
	ld hl,b_1e78_start\r
	ld a,(isprefix_ixiy)\r
	dec a\r
	jr z,l1e4dh\r
	ld hl,l1e7bh\r
l1e4dh:\r
	call pstr\r
	ld a,(iy+001h)\r
	and a\r
	jp m,l1e61h\r
	ld a,'+'\r
	call outchar\r
	ld a,(iy+001h)\r
	jr l1e6bh\r
l1e61h:\r
	ld a,'-'\r
	call outchar\r
	ld a,(iy+001h)\r
	neg\r
l1e6bh:\r
	call out_hex\r
	jr p_char_rparen\r
\r
p_arg_r1:\r
	ld hl,t_BCDEHL_HL_A\r
	jr p_arg\r
\r
b_1e78_start:\r
	DC	'(IX'\r
l1e7bh:\r
	DC	'(IY'\r
\r
p_arg_hlixiy:\r
	ld a,(isprefix_ixiy)\r
	ld hl,t_HL.IX.IY\r
	jr p_arg\r
p_arg_zz:\r
	ld hl,t_BC.DE.HL.AF\r
	jr l1e8eh\r
p_arg_ww:\r
	ld hl,t_BC.DE.HL.SP\r
l1e8eh:\r
	ld a,(iy+000h)\r
	rra\r
	rra\r
	rra\r
	rra\r
	and 003h\r
	cp 002h\r
	jr z,p_arg_hlixiy\r
	jr p_arg\r
\r
p_arg_cc:\r
	ld a,(iy+000h)\r
p_arg_cc0:\r
	rra\r
	rra\r
	rra\r
	and 007h\r
	ld hl,t_tstfl_ZCPS\r
p_arg:\r
	ld b,a\r
	call sel_dc_string\r
	jp pstr\r
\r
p_mnemonic:\r
	call pstr\r
l1ebch:\r
	call outbl\r
	inc c\r
	ld a,c\r
	cp 5\r
	jr c,l1ebch\r
	ret\r
\r
t_MNEMONICS:\r
	DC	'ADC'\r
	DC	'ADD'\r
	DC	'AND'\r
	DC	'BIT'\r
	DC	'CALL'\r
	DC	'CCF'\r
	DC	'CP'\r
	DC	'CPD'\r
	DC	'CPDR'\r
	DC	'CPI'\r
	DC	'CPIR'\r
	DC	'CPL'\r
	DC	'DAA'\r
	DC	'DEC'\r
	DC	'DI'\r
	DC	'DJNZ'\r
	DC	'EI'\r
	DC	'EX'\r
	DC	'EXX'\r
	DC	'HALT'\r
	DC	'IM'\r
	DC	'IN'\r
	DC	'INC'\r
	DC	'IND'\r
	DC	'INDR'\r
	DC	'INI'\r
	DC	'INIR'\r
	DC	'JP'\r
	DC	'JR'\r
	DC	'LD'\r
	DC	'LDD'\r
	DC	'LDDR'\r
	DC	'LDI'\r
	DC	'LDIR'\r
	DC	'NEG'\r
	DC	'NOP'\r
	DC	'OR'\r
	DC	'OTDR'\r
	DC	'OTIR'\r
	DC	'OUT'\r
	DC	'OUTD'\r
	DC	'OUTI'\r
	DC	'POP'\r
	DC	'PUSH'\r
	DC	'RES'\r
	DC	'RET'\r
	DC	'RETI'\r
	DC	'RETN'\r
	DC	'RL'\r
	DC	'RLA'\r
	DC	'RLC'\r
	DC	'RLCA'\r
	DC	'RLD'\r
	DC	'RR'\r
	DC	'RRA'\r
	DC	'RRC'\r
	DC	'RRCA'\r
	DC	'RRD'\r
	DC	'RST'\r
	DC	'SBC'\r
	DC	'SCF'\r
	DC	'SET'\r
	DC	'SLA'\r
	DC	'SRA'\r
	DC	'SRL'\r
	DC	'SUB'\r
	DC	'XOR'\r
	DC	'IN0'\r
	DC	'MLT'\r
	DC	'OTDM'\r
	DC	'OTDMR'\r
	DC	'OTIM'\r
	DC	'OTIMR'\r
	DC	'OUT0'\r
	DC	'SLP'\r
	DC	'TST'\r
	DC	'TSTIO'\r
	DB	0\r
\r
t_BCDEHL_HL_A:\r
	DC	'B'\r
	DC	'C'\r
	DC	'D'\r
	DC	'E'\r
	DC	'H'\r
	DC	'L'\r
	DC	'(HL)'\r
	DC	'A'\r
	DB	0\r
t_BC.DE.HL.SP:\r
	DC	'BC'\r
	DC	'DE'\r
	DC	'HL'\r
	DC	'SP'\r
	DB	0\r
t_BC.DE.HL.AF:\r
	DC	'BC'\r
	DC	'DE'\r
t_HL.AF:\r
	DC	'HL'\r
	DC	'AF'\r
	DB	0\r
t_BC.DE.IY.SP:\r
	DC	'BC'\r
	DC	'DE'\r
	DC	'IY'\r
	DC	'SP'\r
	DB	0\r
t_BC.DE.IX.SP:\r
	DC	'BC'\r
	DC	'DE'\r
	DC	'IX'\r
	DC	'SP'\r
	DB	0\r
t_HL.IX.IY:\r
	DC	'HL'\r
t_IX.IY:\r
	DC	'IX'\r
	DC	'IY'\r
	DB	0\r
t_tstfl_ZC:\r
	DC	'NZ'\r
	DC	'Z'\r
	DC	'NC'\r
	DC	'C'\r
	DC	'NE'\r
	DC	'EQ'\r
	DC	'GE'\r
	DC	'LT'\r
	DB	0\r
t_tstfl_ZCPS:\r
	DC	'NZ'\r
	DC	'Z'\r
	DC	'NC'\r
	DC	'C'\r
	DC	'PO'\r
	DC	'PE'\r
	DC	'P'\r
	DC	'M'\r
	DC	'NE'\r
	DC	'EQ'\r
	DC	'GE'\r
	DC	'LT'\r
	DC	'NV'\r
	DC	'V'\r
	DB	0\r
t__C_:\r
	DC	'(C)'\r
	DB	0\r
\r
sub_1ffeh:\r
	ld hl,(reg.pc)\r
	ld a,h\r
	or l\r
	jr z,l2037h\r
	ld de,BDOS\r
	and a\r
	sbc hl,de\r
	ld hl,l20edh\r
	jr z,l2031h\r
	ld iy,(reg.pc)\r
	call disas_get_instrlen\r
	jp nc,ERROR\r
	ld c,b\r
	ld b,000h\r
	ld hl,(reg.pc)\r
	add hl,bc\r
	call sub_09cah\r
	ld iy,(reg.pc)\r
	ld hl,b_2039_start\r
	call lookup_opc\r
	ccf\r
	ret c\r
	ex de,hl\r
l2031h:\r
	call CALL_HL\r
	call c,sub_09cah\r
l2037h:\r
	scf\r
	ret\r
\r
b_2039_start:\r
	db 0ffh,0ddh,000h	;Prefix DD\r
	dw l20a7h\r
	db 0ffh,0fdh,000h	;Prefix FD\r
	dw l20ach\r
	db 0ffh,0edh,000h	;Prefix ED\r
	dw l20b8h\r
\r
b_2048_start:\r
	db 0ffh,0cdh,000h	;call mn\r
	dw l2080h\r
	db 0ffh,0c3h,000h	;jp mn\r
	dw l208bh\r
	db 0ffh,0e9h,000h	;jp ()\r
	dw l20a2h\r
	db 0ffh,0c9h,000h	;ret\r
	dw l20dch\r
	db 0ffh,0cfh,000h	;rst 8\r
	dw l2115h\r
	db 0c7h,0c7h,000h	;\r
	dw l20f9h\r
	db 0c7h,0c4h,000h	;\r
	dw l2080h\r
	db 0f7h,010h,000h	;\r
	dw l2093h\r
	db 0e7h,020h,000h	;\r
	dw l2093h\r
	db 0c7h,0c2h,000h	;\r
	dw l208bh\r
	db 0c7h,0c0h,000h	;\r
	dw l20c5h\r
	db 0\r
\r
l2080h:\r
	ld a,(b_21e2_start)\r
	and a\r
	jr nz,l208bh\r
	ld a,(trace_call_flag)\r
	and a\r
	ret nz\r
l208bh:\r
	ld l,(iy+001h)\r
	ld h,(iy+002h)\r
	scf\r
	ret\r
l2093h:\r
	ld c,(iy+001h)\r
	ld a,c\r
	rla\r
	sbc a,a\r
	ld b,a\r
	ld hl,(reg.pc)\r
	add hl,bc\r
	inc hl\r
	inc hl\r
	scf\r
	ret\r
l20a2h:\r
	ld hl,(reg.l)\r
	scf\r
	ret\r
l20a7h:\r
	ld hl,(reg.ix)\r
	jr l20afh\r
l20ach:\r
	ld hl,(reg.iy)\r
l20afh:\r
	ld a,(iy+001h)\r
	cp 0e9h\r
	scf\r
	ret z\r
	and a\r
	ret\r
l20b8h:\r
	ld a,(iy+001h)\r
	cp 04dh\r
	jr z,l20dch\r
	cp 045h\r
	jr z,l20dch\r
	and a\r
	ret\r
l20c5h:\r
	ld a,(iy+000h)\r
	ld (l20d7h),a\r
	ld hl,(reg.f)\r
	push hl\r
	pop af\r
	call l20d7h\r
	scf\r
	jr c,l20dch\r
	ret\r
l20d7h:\r
	nop\r
	and a\r
	pop hl\r
	inc hl\r
	jp (hl)\r
\r
l20dch:\r
	ld a,(b_21e2_start)\r
	and a\r
	jr nz,l20edh\r
	ld a,(trace_call_flag)\r
	and a\r
	jr z,l20edh\r
	call l20edh\r
	pop hl\r
	ret\r
l20edh:\r
	ld hl,(reg_sp)\r
	ld e,(hl)\r
	inc hl\r
	ld d,(hl)\r
	ex de,hl\r
	call sub_09cah\r
	and a\r
	ret\r
\r
l20f9h:\r
	ld a,(l0003h)\r
	cp (iy+000h)\r
	ret z\r
	ld a,(iy+000h)\r
	and 038h\r
	ld l,a\r
	ld h,000h\r
	ld a,(b_21e2_start)\r
	and a\r
	jr nz,l2113h\r
	ld a,(trace_call_flag)\r
	and a\r
	ret nz\r
l2113h:\r
	scf\r
	ret\r
l2115h:\r
	and a\r
	ret\r
cmd_C:\r
	ld hl,cmd_C\r
	ld a,001h\r
	jr l2122h\r
cmd_T:\r
	xor a\r
	ld hl,cmd_T\r
l2122h:\r
	ld (cmd_rpt),hl\r
	ld (trace_call_flag),a\r
	ld a,(de)\r
	sub 'N'\r
	jr nz,l212eh\r
	inc de\r
l212eh:\r
	ld (trace_N_flag),a\r
	ld a,(de)\r
	sub 'J'\r
	jr nz,l2137h\r
	inc de\r
l2137h:\r
	ld (trace_J_flag),a\r
	call sub_21a6h\r
	jr z,l2145h\r
	ld hl,1\r
	call get_lastarg_def\r
l2145h:\r
	ld (trace_count),hl\r
	sub a\r
	ld (l0941h),a\r
l214ch:\r
	call sub_1ffeh\r
	jr l21a3h\r
\r
l2151h:\r
	call bp_clr_temporary\r
	ld a,(trace_J_flag)\r
	and a\r
	jr nz,l216bh\r
	ld iy,(reg.pc)\r
	call sub_21c8h\r
	jr z,l216bh\r
	ld hl,b_2048_start\r
	call lookup_opc\r
	jr nc,l214ch\r
l216bh:\r
	ld a,(trace_UW_flag)\r
	and a\r
	jr z,l2188h\r
	ld de,(trace_count)\r
	call expr\r
	ld a,h\r
	or l\r
	add a,0ffh\r
	sbc a,a\r
	ld hl,trace_UW_flag\r
	xor (hl)\r
	bit 1,a\r
	jr z,l2193h\r
l2185h:\r
	jp l0902h\r
l2188h:\r
	ld hl,(trace_count)\r
	dec hl\r
	ld (trace_count),hl\r
	ld a,h\r
	or l\r
	jr z,l2185h\r
l2193h:\r
	call sub_1ffeh\r
	jr nc,l2185h\r
	ld a,(trace_N_flag)\r
	ld b,a\r
	ld a,(l0941h)\r
	or b\r
	ld (l0941h),a\r
l21a3h:\r
	jp user_go\r
\r
sub_21a6h:\r
	call skipbl\r
	xor a\r
	ld (trace_UW_flag),a\r
	ld a,(de)\r
	cp 'U'\r
	jr z,l21b5h\r
	cp 'W'\r
	ret nz\r
l21b5h:\r
	inc de\r
	push af\r
	push de\r
	call expr\r
	jp c,ERROR\r
	call assert_eol\r
	pop hl\r
	pop af\r
	ld (trace_UW_flag),a\r
	sub a\r
	ret\r
\r
sub_21c8h:\r
	ld a,(iy+000h)\r
	cp 0edh\r
	jr z,l21dah\r
	and 0dfh\r
	cp 0ddh\r
	ret nz\r
	ld a,(iy+001h)\r
	cp 0e9h\r
	ret\r
l21dah:\r
	ld a,(iy+001h)\r
	and 0f7h\r
	cp 045h\r
	ret\r
\r
b_21e2_start:\r
	db	0\r
trace_call_flag:\r
	db	0		;1=call, 0=trace\r
trace_UW_flag:\r
	db	0		;0 or 'U' or 'W'\r
trace_count:\r
	dw	0\r
trace_N_flag:\r
	db	0		;0 if 'N'\r
trace_J_flag:\r
	db	0		;0 if 'J'\r
\r
;-------------------------------------------------------------------------------\r
\r
con_col:\r
	db	0\r
\r
l0941h:\r
	db	0\r
\r
bp_tab:\r
	rept BP_CNT\r
	 rept BP_SIZE\r
	  db	0\r
	 endm\r
	endm\r
\r
expr_p1:\r
	dw	expr_buf\r
expr_p2:\r
	dw	expr_buf\r
\r
expr_buf:\r
current_cseg	defl	$ - current_cseg\r
	.phase	current_phase + current_cseg\r
\r
start:\r
	LD	SP,ldr_end+(stack-ddtz_base)\r
	LD	DE,signon		;ldr_end+(expr_buf-ddtz_base)\r
	LD	C,BDOS_PSTR\r
	CALL	BDOS\r
\r
	xor	a\r
	dec	a\r
	jp	po,reloc\r
	ld	de,msgz80\r
	LD	C,BDOS_PSTR\r
	CALL	BDOS\r
	jp	0\r
\r
reloc:\r
	LD	HL,ldr_end+ddtz_size	;start of reloc bitmap\r
	ld	bc,0108h		;init bit counter\r
\r
	EXX\r
	LD	HL,(BDOS+1)\r
	LD	(ldr_end+(ddtz_bdos+1-ddtz_base)),HL\r
	LD	BC,ddtz_size-1\r
	LD	D,B\r
	LD	E,0FFH\r
	INC	DE			;size rounded up to next page boundary\r
	INC	BC			;ddtz_size\r
	OR	A\r
	SBC	HL,DE			;BDOS - size\r
	LD	(BDOS+1),HL		;-> new BDOS entry\r
\r
	push	hl\r
	PUSH	BC\r
	ld	de,ldr_end\r
	sbc	hl,de\r
	EX	DE,HL			;-> DE\r
	LD	HL,ldr_size\r
	add	hl,bc\r
	ld	b,h\r
	ld	c,l\r
	LD	HL,TPA\r
reloc_lp:\r
	EXX\r
	djnz	reloc_nl\r
	ld	b,c			;reload bit counter\r
	LD	e,(HL)			;get next 8 relocation bits\r
	INC	HL\r
reloc_nl:\r
	sla	e\r
	EXX\r
	JR	NC,reloc_next\r
	DEC	HL\r
	LD	A,(HL)\r
	ADD	A,E\r
	LD	(HL),A\r
	INC	HL\r
	LD	A,(HL)\r
	ADC	A,D\r
	LD	(HL),A\r
reloc_next:\r
	cpi\r
	jp	pe,reloc_lp\r
	dec	hl\r
\r
	POP	BC\r
	pop	de\r
	EX	DE,HL\r
	ADD	HL,BC\r
	EX	DE,HL\r
	DEC	DE\r
	LDDR\r
	LD	HL,conbuf+2-ddtz_base\r
	ADD	HL,DE\r
	JP	(HL)\r
\r
current_phase	defl	$\r
	.dephase\r
current_cseg	defl	$\r
\r
	ds	EXPR_BUF_SIZE - ($ - expr_buf)\r
expr_bufe:\r
\r
msg_Y:\r
	dc	'Yn'\r
reg_Y:\r
	rept	YREG_CNT\r
	 dw	0\r
	endm\r
\r
last_S:\r
	dw	TPA\r
\r
last_I:\r
	dw	0\r
\r
last_O_addr:\r
	dw	0\r
last_O_val:\r
	db	0\r
\r
cmd_Q_jopt:\r
	db	-1\r
\r
last_D:\r
	dw	TPA\r
\r
cmdR_rindex:\r
	db	0\r
\r
high_load:\r
	dw	TPA\r
max_load:\r
	dw	TPA\r
\r
l1262h:\r
	dw	0\r
last_A:\r
	dw	TPA\r
cmd_A_prev:\r
	dw	TPA\r
\r
prefix_ixiy:\r
	db	0\r
\r
isprefix_ixiy:\r
	db	0\r
last_L:\r
	dw	TPA\r
l1ffbh:\r
	dw	0\r
l1ffdh:\r
	db	0\r
\r
cur_fcb:\r
	dw	0\r
fcbsym:\r
	ds	33\r
\r
ddtz_size	equ	$-ddtz_base\r
ddtz_end:\r
\r
;-------------------------------------------------------------------------------\r
\r
	end\r