Renaming

[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
TPA	equ	0100h\r
	cseg\r
	.phase	TPA\r
\r
	jp	start\r
	ds	3\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	80	;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
SYMCASE_SENS	equ	0	;Symbols are case sensitive\r
SYMCASE_CONV	equ	1	;Convert case when symbols are loaded\r
SYMCASE_LOWER	equ	2	;Convert to lower case if set, else to upper case\r
\r
;-------------------------------------------------------------------------------\r
\r
ddtz_base:\r
	jp ddtz_bdos\r
l0003h:\r
	rst 30h\r
di_or_ei:\r
	nop\r
	ret\r
ddtz_bdos:\r
	jp	0\r
screen_width:\r
	db	80\r
symlen_max:\r
	db	16\r
\r
symattrib:\r
	db	0\r
\r
\r
current_cseg	defl	$ - current_cseg\r
	.phase	current_phase + current_cseg\r
signon:\r
	db	'Symbolic DDTZ/180'\r
	db	' - Version '\r
	maclib	version.inc\r
	defvers\r
	db	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	p_msg_error\r
cmd_rpt:dw	mainloop\r
\r
;-------------------------------------------------------------------------------\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 di_or_ei\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
;-------------------------------------------------------------------------------\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,p_msg_error\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
;-------------------------------------------------------------------------------\r
\r
p_msg_error:\r
	call	pstr_inl\r
	dc	'?'\r
	;fall thru\r
crlf:\r
	call	pstr_inl\r
	db	CR,LF+80h\r
	call inchar\r
	ld a,0\r
	ld (con_col),a\r
	jr c,mainloop\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
	call	pstr_inl\r
	dc	'@'\r
	and a\r
	sbc hl,de\r
	call out_hl\r
l01bfh:\r
	pop hl\r
	pop de\r
	ret\r
\r
sub_01d9h:\r
	call	pstr_inl\r
	dc	'-'\r
	dec hl\r
	jp cpl.hl\r
\r
out_hl_dec_neg:\r
	push hl\r
	call sub_01d9h\r
	defb 03eh		;ld a,..  swallow push hl\r
out.hl.dec:\r
	push hl\r
	ld b,006h\r
	call sub_01f9h\r
	pop hl\r
	call	pstr_inl\r
	dc	'.'\r
l01f3h:\r
	call outbl\r
	djnz l01f3h\r
	ret\r
\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
	or	0f0h\r
	daa\r
	add	a,0a0h\r
	adc	a,040h\r
	jr outchar\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
	rlca\r
	push	af\r
	ld	a,'0'/2\r
	adc	a,a\r
	call	outchar\r
	pop af\r
	djnz l01c9h\r
	ld a,'"'\r
	jr outchar\r
\r
out.ascii:\r
	push bc\r
	ld c,a\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
	ld b,a\r
	call	pstr_inl\r
	dc	'^'\r
	ld a,b\r
l0242h:\r
	call outchar\r
	cp ''''\r
	call z,outchar\r
	call outquote\r
	sla c\r
	pop bc\r
	ret nc\r
	ld a,'.'\r
	jr outchar\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
outquote:\r
	ld a,''''\r
outchar:\r
	push ix\r
	push iy\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
	pop iy\r
	pop ix\r
	ret\r
\r
pstr:\r
	ld a,(hl)\r
	inc hl\r
	and a\r
	ret z\r
	call outchar\r
	and a\r
	ret m\r
	jr pstr\r
\r
pstr_inl:\r
	ex	(sp),hl\r
	call	pstr\r
	ex	(sp),hl\r
	ret\r
\r
p_align_@_sym:\r
	push	de\r
	ld	de,(var.@)\r
	ld	a,d\r
	or	e\r
	pop	de\r
	ld	a,(symlen_cur)\r
	jr	z,$+4\r
	add	a,6\r
	add	a,c\r
	ld	c,a\r
p_goto_col:\r
	ld	a,(con_col)\r
	cp	c\r
	ret	nc\r
	ret	z\r
	call	outbl\r
	jr	p_goto_col\r
\r
;-------------------------------------------------------------------------------\r
\r
inchar:\r
	push ix\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
	pop ix\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 hl,conbuf+1\r
	ld	e,(hl)\r
	xor	a\r
	ld	d,a\r
	inc	hl\r
	ex	de,hl\r
	add	hl,de\r
	ld	(hl),a\r
	pop hl\r
	ret\r
\r
;-------------------------------------------------------------------------------\r
\r
get_char_upper:\r
	ld a,(de)\r
toupper:\r
	cp 'a'\r
	ret c\r
	cp 'z'+1\r
	ccf\r
	ret c\r
	and 05fh\r
	ret\r
\r
tolower:\r
	cp 'A'\r
	ret c\r
	cp 'Z'+1\r
	ccf\r
	ret c\r
	or 020h\r
	ret\r
\r
;-------------------------------------------------------------------------------\r
\r
skipbl0:\r
	inc de\r
skipbl:\r
	call get_char_upper\r
	call test_whitespace\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
;-------------------------------------------------------------------------------\r
\r
chk_stack:\r
	push hl\r
	push de\r
	ld hl,0\r
	add hl,sp\r
	ld de,stack-(STACK_SIZE-28)\r
	call cp_hl_de\r
	pop de\r
	pop hl\r
	jr c,to_error\r
	ret\r
\r
;-------------------------------------------------------------------------------\r
\r
add_hl_a:\r
	add a,l\r
	ld l,a\r
	ret nc\r
	inc h\r
	ret\r
\r
cp_hl_de:\r
	and a\r
	sbc hl,de\r
	add hl,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
;-------------------------------------------------------------------------------\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
p_symstr:\r
	push	bc\r
	ld	b,(hl)\r
pss_l:\r
	dec	hl\r
	ld	a,(hl)\r
	call	outchar\r
	djnz	pss_l\r
	dec	hl\r
	pop	bc\r
	ret\r
\r
p_symbol:\r
  if 0\r
	ld	a,(dash_flag)\r
	or	a\r
	ret	nz\r
  endif\r
	push	hl\r
	call	sym_getname\r
	call	nz,p_symstr\r
	pop	hl\r
	ret\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
	call	pstr_inl\r
	dc	':'\r
	call	crlf\r
pl_e:\r
	pop	hl\r
	ret\r
\r
;-------------------------------------------------------------------------------\r
\r
lookupch:\r
	ld b,0\r
l02f5h:\r
	ld a,(hl)\r
	and a\r
	ret z\r
	call get_char_upper\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,t_reg_names\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		;ld a,nn\r
sub_031ch:\r
	push bc\r
	push de\r
l031eh:\r
	call get_char_upper\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		;and a,..  clear carry\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		;ld a,..  swallow pop af\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			;'S' flag\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		;'S'?\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		;'S', but no expression following\r
	scf\r
	ret\r
\r
;-------------------------------------------------------------------------------\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
;-------------------------------------------------------------------------------\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		;de: x\r
	ld	b,h		;bc: y\r
	ld	c,l\r
	ld	hl,0		;hl: r\r
	ld	a,16\r
\r
;  de: x   (x shifted out, q shifted in)\r
;  bc: y\r
;  hl: r   (initially 0)\r
\r
div_lp:\r
	ex	de,hl\r
	add	hl,hl		;x <<= 1\r
	ex	de,hl\r
	adc	hl,hl		;r <<= 1\r
	inc	de\r
	or	a\r
	sbc	hl,bc\r
	jr 	nc,div_norestore\r
	dec	de\r
	add	hl,bc\r
div_norestore:\r
	dec	a\r
	jr	nz,div_lp\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
;-------------------------------------------------------------------------------\r
\r
fact_factor:\r
	call do_factor\r
	ret nc\r
	jp ERROR\r
\r
do_factor:\r
	call chk_stack\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
	ld hl,ddtz_base\r
	cp 'Z'\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
	jr z,expr_brckt\r
	cp ''''\r
	jr z,fact_factstring\r
	cp '.'\r
	jr z,fact_symbol\r
	dec de\r
	scf\r
	ret\r
\r
;-------------------------------------------------------------------------------\r
\r
fact_reg.Y:\r
	call get.decdigit\r
	jr c,error1\r
	inc de\r
get_y_val:\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,error1\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,error1\r
	ld a,(de)\r
	cp ')'\r
	jr nz,error1\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,error1\r
	ld a,(de)\r
	cp ']'\r
	inc de\r
	ret z\r
error1:\r
	jp ERROR\r
\r
fact_symbol:\r
	push	bc\r
	ld	hl,ddtz_base		;symtbl start\r
	ld	a,(symattrib)\r
	ld	c,07fh\r
	rra\r
	jr	c,fs_nxtsym\r
	res	5,c\r
\r
fs_nxtsym:\r
	ld	a,(hl)			;symlen\r
	cp	0c3h\r
	jr	z,error1\r
	ld	b,a			;symlen\r
	inc	b\r
	push	hl			;symtbl ptr\r
	push	de			;inpsym ptr\r
fs_nxtchar:\r
	ld	a,(de)\r
	djnz	fs_3\r
	call	test_sym_char\r
	jr	z,fs_cont\r
	pop	hl			;inpsym ptr (discard)\r
	inc	de\r
	cp	a,':'\r
	jr	z,fs_cont_1\r
	dec	de\r
\r
	pop	hl			;symtbl ptr\r
	inc	hl\r
	ld	a,(hl)			;symval h\r
	inc	hl\r
	ld	h,(hl)			;symval l\r
	ld	l,a\r
	or	a			;clear carry\r
	pop	bc\r
	ret\r
\r
fs_3:\r
	inc	de\r
	dec	hl\r
	xor	(hl)\r
	and	c\r
	jr	z,fs_nxtchar\r
fs_cont:				;start over\r
	pop	de			;inpsym ptr\r
fs_cont_1:\r
	pop	hl			;symtbl ptr\r
	ld	a,(hl)\r
	add	a,3\r
	call	sub_hl_a\r
	jr	fs_nxtsym\r
\r
;-------------------------------------------------------------------------------\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
	jr nz,error11\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
error11:\r
	jp ERROR\r
\r
sub_060ch:\r
	call get_char_upper\r
	cp 'Z'+1\r
	jr l0614h\r
\r
get.hexdigit:\r
	ld a,(de)\r
hex_digit:\r
	call toupper\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
	call get_char_upper\r
l061eh:\r
	cp '9'+1\r
	jr l0625h\r
\r
get.bindigit:\r
	call get_char_upper\r
	cp '1'+1\r
l0625h:\r
	ccf\r
	ret c\r
	cp '0'\r
	ret c\r
	sub '0'\r
	ret\r
\r
;-------------------------------------------------------------------------------\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
	pop de\r
	ex (sp),hl\r
	push af\r
	call crlf\r
	call p_f2\r
	call outbl2\r
	ld b,7\r
l065bh:\r
	call p_regs\r
	djnz l065bh\r
	pop af\r
	pop hl\r
	call nz,outbl6\r
	call nz,p_offset\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
\r
p_flags:\r
	push	hl\r
	ld	hl,t_flag_names+7\r
	ld	c,a\r
	ld	b,8\r
fl_loop:\r
	ld	a,' '\r
	cp	(hl)\r
	ld	a,c\r
	rlca\r
	ld	c,a\r
	jr	z,fl_skip\r
	ld	a,(hl)\r
	call	c,outchar\r
	call	nc,outbl\r
fl_skip:\r
	dec	hl\r
	djnz	fl_loop\r
	pop	hl\r
	ret\r
\r
p_regs:\r
	push de\r
	call pstr\r
	call	pstr_inl\r
	dc	'='\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
	ex de,hl\r
	ld e,(hl)\r
	inc hl\r
	ld d,(hl)\r
	ex de,hl\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
	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
;-------------------------------------------------------------------------------\r
; > G [startaddr] [;breakp..]\r
;      Go [to start] [with temporary breakpoints]\r
\r
cmd_G:\r
	sub a\r
	ld (trace_call_flag),a\r
	ld (bp_p_cpu_flag),a\r
	call expr\r
	jr c,l0740h\r
	ld (reg.pc),hl\r
l0740h:\r
	call skipbl\r
	jr z,user_go0\r
	cp ';'\r
	jp nz,ERROR\r
	inc de\r
	ld a,002h\r
	call bp_enter\r
user_go0:\r
	jp user_go\r
\r
;-------------------------------------------------------------------------------\r
\r
bpl_init:\r
	ld	b,BP_CNT\r
	ld	ix,bp_tab\r
	ex	(sp),hl\r
	ld	(pbl_loop_adr),hl\r
	ex	(sp),hl\r
	ret\r
\r
bpl_next:\r
	ld	de,BP_SIZE\r
	push	af\r
	add	ix,de\r
	pop	af\r
	dec	b\r
	ret	z\r
\r
	ex	(sp),hl\r
	ld	hl,(pbl_loop_adr)\r
	ex	(sp),hl\r
	ret\r
\r
bp_clr_temporary:\r
	call	bpl_init\r
\r
	ld a,(ix+000h)\r
	and 0f1h\r
	ld (ix+000h),a\r
	call bp_clr_condition\r
\r
	call bpl_next\r
	ret\r
\r
;-------------------------------------------------------------------------------\r
; > B\r
;      display all breakpoints\r
; > B breakp [breakp..]\r
;      set breakpoints\r
; > BX\r
;      clear all breakpoints\r
; > BX address [address..]\r
;      clear breakpoints\r
;\r
; where breakp is:\r
;      [R] expression [I condition]\r
\r
cmd_B:\r
	call skipbl\r
	jr z,bp_print\r
	inc de\r
	cp 'X'\r
	jr z,bp_clr0\r
	dec de\r
	ld a,001h\r
	jp bp_enter\r
\r
bp_clr0:\r
	call skipbl\r
	jr z,bp_clr_all\r
bp_clr_next:\r
	call expr\r
	jp c,assert_eol\r
	push de\r
	call bp_clr\r
	pop de\r
	call next_arg\r
	jr bp_clr_next\r
\r
bp_clr_all:\r
	scf\r
bp_clr:\r
	call	bpl_init\r
\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
	pop af\r
	call bpl_next\r
	ret\r
\r
bp_print:\r
	call	bpl_init\r
\r
	bit 0,(ix+000h)\r
	jr z,bp_pr_cont\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	outbl\r
	call	p_symbol\r
	ld	c,9\r
	call	p_align_@_sym\r
	call 	pstr_inl\r
	dc	':'\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
	call	pstr_inl\r
	dc	'I  '\r
	call pstr\r
l0805h:\r
	call crlf\r
bp_pr_cont:\r
	call bpl_next\r
	ret\r
\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,bp_e_1\r
	inc de\r
	set 4,b\r
bp_e_1:\r
	push bc\r
	call expr\r
	jr c,error12\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
	call	bpl_init\r
\r
	ld a,(ix+000h)\r
	and 00fh\r
	ret z\r
\r
	call	bpl_next\r
error12\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
	jr c,error12\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
	jr c,error12\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
	jr nc,error12\r
	pop	de\r
	pop	hl\r
	push	de\r
	ldir\r
	ex de,hl\r
	ld (hl),c		; trailing 0\r
	inc hl\r
	ld (expr_p1),hl\r
	pop	hl\r
	ret\r
\r
;-------------------------------------------------------------------------------\r
; Breakpoint handling routine.\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 di_or_ei\r
	ld h,a\r
	ld l,000h\r
	push hl\r
	ld a,0f3h		; EI\r
	jp po,l08dfh\r
	ld a,0fbh		; DI\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 bp_restore_mem\r
	ld a,(b_21e2_start)\r
	dec a\r
	jr z,l090bh\r
	call inchar		;Keyboard hit?\r
	jr c,do_break		;yes\r
	call sub_0913h\r
	and a\r
	jp z,user_go\r
	and 083h\r
	jp z,l2151h\r
do_break:\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 (bp_p_cpu_flag),a\r
	call	bpl_init\r
\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
\r
	call	bpl_next\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 (bp_p_cpu_flag),a\r
	ret\r
l0974h:\r
	ex af,af'\r
	or (ix+000h)\r
	ex af,af'\r
	ret\r
\r
bp_restore_mem:\r
	call	bpl_init\r
\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
\r
	call	bpl_next\r
	ret\r
\r
bp_tst_@pc:\r
	call	bpl_init\r
\r
	ld a,(ix+000h)\r
	and 003h\r
	jr z,bp_tst_e\r
	ld e,(ix+002h)\r
	ld d,(ix+003h)\r
	ld hl,(reg.pc)\r
	call cp_hl_de\r
	ret z\r
bp_tst_e:\r
	call	bpl_next\r
	sub a\r
	inc a\r
	ret\r
\r
bp_trace_enter:\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,bp_t_e\r
	rra\r
bp_t_e:\r
	ld (ix+000h),a\r
	ret\r
\r
bp_set_to_mem:\r
	call	bpl_init\r
\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
\r
	call	bpl_next\r
	ret\r
\r
;-------------------------------------------------------------------------------\r
\r
user_go:\r
	sub a\r
	ld (b_21e2_start),a\r
	ld a,(bp_p_cpu_flag)\r
	and a\r
	call nz,p_cpustat\r
	call bp_tst_@pc\r
	ld c,007h\r
	jr nz,l0a41h\r
	ld a,001h\r
	ld (b_21e2_start),a\r
	call tc_set_bp\r
	ld c,008h\r
l0a41h:\r
	call bp_set_to_mem\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
;-------------------------------------------------------------------------------\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
;-------------------------------------------------------------------------------\r
; > Y\r
;      examine all Y variables\r
; > Y[0..9]\r
;      examine (and substitute) an Y variable\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	outbl\r
	pop af\r
	push af\r
	call get_y_val\r
	call p_symbol\r
	pop af\r
	inc a\r
	push af\r
	rra\r
	push	af\r
	ld	c,11\r
	call	c,p_align_@_sym\r
	pop	af\r
	call 	nc,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
;-------------------------------------------------------------------------------\r
; > X\r
;      eXamine (display) all cpu registers and\r
;      the instruction at the current program counter\r
; > X register\r
;      eXamine (and substitute) a register\r
\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,t_reg_names\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
	ex de,hl\r
	pop bc\r
	pop hl\r
	ld (hl),e\r
	bit 0,c\r
	ret z\r
	inc hl\r
	ld (hl),d\r
	ret\r
l0c30h:\r
	pop af\r
	pop hl\r
	ret\r
\r
l0c33h:\r
	call pstr\r
	call	pstr_inl\r
	dc	'='\r
	ld a,(de)\r
	bit 0,c\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,c\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
\r
sub_0c6ah:\r
	push af\r
	call outbl\r
	call assert_eol\r
	call get_line\r
	pop af\r
	ex af,af'\r
	ld b,0\r
l0c76h:\r
	call skipbl\r
	ld a,b\r
	ret z\r
	push bc\r
	ld hl,t_flag_names\r
	call lookupch\r
	jp nc,ERROR\r
	inc	b\r
	xor	a\r
	scf\r
nxt_f:\r
	rla\r
	djnz	nxt_f\r
	pop	bc\r
	jr	c,l0c97h\r
	or	b\r
	ld	b,a\r
	jr l0c76h\r
\r
l0c97h:\r
	ex af,af'\r
	jp nc,ERROR\r
	ex af,af'\r
	ld a,0fbh\r
	ld (reg.iff),a\r
	jr l0c76h\r
\r
t_flag_names:\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
t_reg_names:\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
;-------------------------------------------------------------------------------\r
; > S [startaddr]\r
;      Substitute memory\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
	jr	nz,cmds_dash\r
	call get_char_upper\r
	or	a\r
	jr	nz,l0d8ah\r
	ret\r
cmds_dash:\r
	jp z,assert_eol\r
	cp '-'\r
	jr nz,l0d8ah\r
	call get_char_upper\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
;-------------------------------------------------------------------------------\r
; > @\r
;      examine (substitute) displacement register @\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
;-------------------------------------------------------------------------------\r
; >>I [port]\r
;      Input a byte from port\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
;-------------------------------------------------------------------------------\r
; >>O [byte] [port]\r
;      Output a byte to a port\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
;-------------------------------------------------------------------------------\r
; > Vstartaddr endaddr targetaddr\r
;      Verify (compare) two memory areas\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
;-------------------------------------------------------------------------------\r
; > M[V] startaddr endaddr destaddr\r
;      Move memory [and verify]\r
\r
cmd_M:\r
	call get_char_upper\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
;-------------------------------------------------------------------------------\r
; > H\r
;      display Highest load address of last filed loaded, Maximum "High"\r
;      off all loaded files, and Top address of available memory\r
; > HS\r
;      display symbol list\r
; > H expression\r
;      evaluate expression and display result in hex, decimal and other formats\r
; > H expression expression\r
;      display sum und difference of expressions\r
\r
cmd_H:\r
	call get_char_upper\r
	cp 'S'\r
	jr z,p_sym_list\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 outbl\r
	ld a,l\r
	call out.ascii\r
	call	outbl2\r
	call p_symbol\r
	jp crlf\r
\r
p_sym_list:\r
	inc	de\r
	call	assert_eol\r
	ld	a,(symlen_cur)\r
	add	a,7\r
	ld	b,a\r
	ld	c,0\r
	ld	hl,ddtz_base+2\r
psym_nxtsym:\r
	ld	d,(hl)\r
	dec	hl\r
	ld	e,(hl)\r
	dec	hl\r
	ld	a,(hl)\r
	cp	0c3h\r
	jr	z,psym_e\r
\r
	call	p_goto_col\r
	ex	de,hl\r
	call	out_hl\r
	call	outbl\r
	ex	de,hl\r
	call	p_symstr\r
\r
	ld	a,c\r
	add	b\r
	ld	c,a\r
	ld	a,(screen_width)\r
	sub	b\r
	cp	c\r
	jr	nc,psym_nxtsym\r
\r
	call	crlf\r
	ld	c,0\r
	jr	psym_nxtsym\r
\r
psym_e:\r
	ld	a,c\r
	or	a\r
	ret	z\r
	jp	crlf\r
\r
\r
;-------------------------------------------------------------------------------\r
; > Q[J] startaddr endaddr bytes\r
;      Query memory for a byte string [Justified]\r
\r
cmd_Q:\r
	call get_char_upper\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
;-------------------------------------------------------------------------------\r
; > Z startaddr endaddr bytes\r
;      Zap (fill) memory with a byte string\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
;-------------------------------------------------------------------------------\r
; >>D [startaddr] [endaddr]\r
;      Display memory in hex and ASCII\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
	push 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
	pop af\r
	push af\r
	jr nc,l0f97h\r
	ld (last_D),hl\r
l0f97h:\r
	call crlf\r
	ld a,b\r
	or c\r
	jr nz,l0f5ch\r
	pop af\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
;-------------------------------------------------------------------------------\r
; > Fcommandline\r
;      specifiy filenames and command line\r
\r
cmd_F:\r
	push de\r
	ld hl,DMA_BUF+1\r
	ld (hl),' '\r
	inc hl\r
l0fb6h:\r
	call get_char_upper\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
	call toupper\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
;-------------------------------------------------------------------------------\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
;-------------------------------------------------------------------------------\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
	ld a,01ah\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
	sub a,1\r
	jr z,l1132h\r
	jr nc,error2\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
	jr c,error2\r
	ld de,(BDOS+1)\r
	call cp_hl_de\r
	jr nc,error2\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,error2\r
hex_digit_v:\r
	call hex_digit\r
	ret nc\r
error2:\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
;-------------------------------------------------------------------------------\r
; > R [displacement]\r
;      Read a binary or hex file and or symbol file [add displacement]\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
	push hl\r
	add hl,de\r
l108eh:\r
	call read_sector\r
	jr nz,read_file_nxt\r
	pop hl\r
	jr read_symfile\r
\r
read_file_nxt:\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
	jr l108eh\r
\r
read_hexfile:\r
	push hl\r
l10aeh:\r
	call read_byte		; RECORD MARK\r
	jr z,rdhex_done\r
	cp ':'\r
	jr nz,l10aeh\r
	ld c,0\r
	call read_hexchar	; RECLEN\r
	ld b,a\r
	call read_hexchar	; LOAD ADDR H\r
	ld h,a\r
	call read_hexchar	; LOAD ADDR L\r
	ld l,a\r
	ld a,b\r
	and a\r
	jr z,rdhex_done\r
	call read_hexchar	; RECTYP\r
l10cch:\r
	call read_hexchar	; DATA\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	; CHKSUM\r
	ld a,c\r
	and a\r
	jr nz,error3\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
	push	hl		; offset\r
	call pstr_inl\r
	db	'SYMBOLS',CR,LF+80h\r
\r
	dec	de\r
	call	file_open\r
	ld	a,(symattrib)\r
	ld	c,a\r
rs_1:\r
	call	read_byte\r
rs_2:\r
	pop	de		; offset\r
	cp	1ah\r
	jp	z,p_max_high\r
	push	de		; offset\r
	cp	'!'\r
	jr	c,rs_1\r
	call	read_hexbyte0	; symval H\r
	ld	h,a\r
	call	read_hexbyte	; symval L\r
	ld	l,a\r
	add	hl,de\r
	call	read_byte\r
	cp	' '\r
	jr	z,rs_4\r
rs_3:	call	read_byte\r
	cp	' '\r
	jr	nc,rs_3\r
	jr	rs_2\r
\r
rs_4:\r
	push	hl		; symval\r
	ld	hl,(BDOS+1)	;\r
	ld	b,0		; setup symlen\r
rs_5:\r
	dec	hl		;\r
	call	read_byte	; next char of symbol name\r
	call	test_sym_char	; valid char?\r
	jr	nz,rs_6\r
	bit	SYMCASE_CONV,c\r
	jr	z,rs_51\r
	call	toupper\r
	bit	SYMCASE_LOWER,c\r
	call	nz,tolower\r
rs_51:\r
	ld	(hl),a		;\r
	inc	b		; symlen++\r
	ld	a,(symlen_max)	;\r
	cp	b		;\r
	jr	nc,rs_5		;\r
error3:\r
	jp	ERROR		;\r
\r
rs_6:\r
	call	test_symterm_ch\r
	jr	nz,error3\r
\r
	push	bc		; symlen\r
	ex	de,hl		;\r
	ld	hl,(BDOS+1)	;\r
	inc	hl		;\r
	ld	c,(hl)		;\r
	inc	hl		;\r
	ld	b,(hl)		;\r
	ex	de,hl\r
	ld	(hl),b		;\r
	dec	hl		;\r
	ld	(hl),c		;\r
	dec	hl		;\r
	ld	(hl),0c3h	;\r
\r
	ld	de,(max_load)	;\r
	call	cp_hl_de	;\r
	jr	c,error3	;\r
	ld	de,(reg_sp)	;\r
	call	cp_hl_de	;\r
	jr	nc,rs_61	;\r
	ld	(reg_sp),hl	;\r
rs_61:\r
	ld	de,(BDOS+1)	;\r
	ld	(BDOS+1),hl	;\r
	ex	de,hl		;\r
	pop	bc		; symlen\r
	ld	(hl),b		;\r
	inc	hl		;\r
	pop	de		; symval\r
	ld	(hl),e		;\r
	inc	hl		;\r
	ld	(hl),d		;\r
	ld	a,b		;\r
	ld	hl,symlen_cur	;\r
	cp	(hl)		; new max?\r
	jr	c,$+3		;\r
	ld	(hl),a		;\r
	jp	rs_1		;\r
\r
\r
; test for valid character for symbols\r
; return z if valid\r
\r
test_sym_char:\r
	cp	'$'\r
	ret	z\r
	cp	'%'\r
	ret	z\r
	cp	'.'\r
	ret	z\r
	cp	'_'\r
	ret	z\r
	call	test_alphanum\r
	ret	c		; cy == 1 --> z == 0\r
	cp	a		; return z\r
	ret\r
\r
\r
; check if char is in [0..9,?,@,A..Z,a..z]\r
; return cy if invalid\r
; return nc if valid alfanumeric char\r
\r
test_alphanum:\r
	cp	'z'\r
	ret	z\r
	ccf\r
	ret	c\r
	cp	'a'\r
	ret	nc\r
	cp	'Z'\r
	ret	z\r
	ccf\r
	ret	c\r
	cp	'?'\r
	ret	nc\r
test_numeral:\r
	cp	'9'\r
	ret	z\r
	ccf\r
	ret	c\r
	cp	'0'\r
	ret\r
\r
test_symterm_ch:\r
	cp	CR\r
	ret	z\r
	cp	LF\r
	ret	z\r
test_whitespace:\r
	cp	' '\r
	ret	z\r
	cp	TAB\r
	ret\r
\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
	call pstr_inl\r
	DC	'  Top = '\r
	ld hl,(BDOS+1)\r
	call out_hl\r
	jp crlf\r
\r
;-------------------------------------------------------------------------------\r
; > Wstartaddr endaddr\r
;      Write a file to disk\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,error4\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,error4\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
error4:\r
	jp ERROR\r
\r
close_file:\r
	ld de,dfcb1\r
	ld c,BDOS_CLOSE\r
	jp ddtz_bdos\r
\r
;-------------------------------------------------------------------------------\r
; > A [startaddr]\r
;      Assemble Zilog Z180 mnemonics\r
\r
cmd_A:\r
	ld hl,(last_A)\r
	call get_lastarg_def\r
	ld (last_A),hl\r
	ld (cmd_A_prev),hl\r
	ld hl,cmda_restart\r
	ld (error_func),hl\r
	ld (l1262h),sp\r
cmda_loop:\r
	ld hl,(last_A)\r
	ld (var.$),hl\r
	push hl\r
	call p_disas_line\r
	ld c,19\r
	call p_align_@_sym\r
	ld c,b\r
	push bc\r
	call get_line\r
	pop bc\r
	pop hl\r
	call skipbl\r
	cp '.'\r
	ret z\r
	cp '-'\r
	jr nz,l124bh\r
	ld hl,(cmd_A_prev)\r
	jr cmda_lpend\r
l124bh:\r
	push hl\r
	pop iy\r
	push hl\r
	and a\r
	call nz,asemble_line\r
	ld b,0\r
	pop hl\r
	ld (cmd_A_prev),hl\r
	add hl,bc\r
cmda_lpend:\r
	ld (last_A),hl\r
	jr cmda_loop\r
\r
cmda_restart:\r
	call p_msg_error\r
	ld sp,(l1262h)\r
	jr cmda_loop\r
\r
asemble_line:\r
	call skipbl\r
	ld hl,t_MNEMONICS\r
	call sub_030ah\r
	jr nc,error4\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
;-------------------------------------------------------------------------------\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
;-------------------------------------------------------------------------------\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,error5\r
	cp 006h\r
	jr z,error5\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,error5\r
	cp 006h\r
	jr z,error5\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,error5\r
	add a,b\r
	ld b,a\r
	jp gen.opc.ED2\r
\r
error5:\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
	call get_char_upper\r
	cp 'I'\r
	jp z,l1511h\r
	cp 'R'\r
	jp z,l1519h\r
	cp '('\r
	jr nz,error5\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
\r
l13aah:\r
	call get_char_upper\r
	cp 'A'\r
	jr nz,error5\r
	inc de\r
	ld b,032h\r
\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
\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
\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
	jr z,error60\r
l13ech:\r
	ld b,a\r
	jp as.opc.noarg\r
\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
	jr z,error60\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
\r
l1413h:\r
	call get_char_upper\r
	cp 'I'\r
	jr z,l1426h\r
	cp 'R'\r
	jr nz,l1432h\r
	ld a,b\r
	cp 007h\r
	jr nz,error60\r
	ld b,05fh\r
	jr l142eh\r
\r
l1426h:\r
	ld a,b\r
	cp 007h\r
	jr nz,error60\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
	jr nz,error60\r
	call arg.ww\r
	jr nc,l1466h\r
	cp 030h\r
	jr nc,error60\r
	add a,00ah\r
	ld b,a\r
	call test_paren_close\r
	jp as.opc.noarg\r
\r
error60:\r
	jp error\r
\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
	jr z,error60\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
\r
l14c3h:\r
	ld a,b\r
	cp 030h\r
	jr nz,error6\r
	ld b,0f9h\r
	jr as.opc.noarg	;14ca\r
\r
l14cch:\r
	call get_char_upper\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
\r
l14e3h:\r
	ld b,02ah\r
	jp as.store_3\r
\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
	call get_char_upper\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
\r
l1509h:\r
	call test_expr\r
	ld b,021h\r
	jp l1395h\r
\r
l1511h:\r
	inc de\r
	call assert_comma\r
	ld b,047h\r
	jr l151fh\r
\r
l1519h:\r
	inc de\r
	call assert_comma\r
	ld b,04fh\r
l151fh:\r
	call get_char_upper\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
	call get_char_upper\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
	jr nc,error6\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
\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
	jr nc,error6\r
	add a,009h\r
l1596h:\r
	ld b,a\r
	jp l14b4h\r
l159ah:\r
	call assert_comma\r
	call arg.ww\r
error61nc:\r
	jr nc,error6\r
	add a,009h\r
	jp l13ech\r
as.AND_CP_OR_SUB_XOR:\r
	call get_char_upper\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
	jr nc,error61nc\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
	jr nc,error61nc\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,error7\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,error7\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,error7\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,error7\r
	cp 006h\r
	jr z,error7\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
error7:\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,error7\r
	cp 006h\r
	jr z,error7\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,error7\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
	jr nc,error7\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
	jr nc,error8\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,error8\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,error8\r
	ret\r
\r
arg.addr_8bit:\r
	call get_char_upper\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 error8\r
\r
test_expr:\r
	push bc\r
	call expr\r
	pop bc\r
	ret nc\r
error8:\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
	call get_char_upper\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
	call get_char_upper\r
	cp '+'\r
	jr z,l1882h\r
	cp ')'\r
	ld hl,0\r
	jr z,l189ah\r
	cp '-'\r
	jr nz,error9\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
	call get_char_upper\r
	cp ')'\r
	jr nz,error9\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
error9:\r
	jp ERROR\r
\r
test_paren_close:\r
	call get_char_upper\r
	cp ')'\r
	jr nz,error9\r
	inc de\r
	ret\r
\r
;-------------------------------------------------------------------------------\r
; >>L [startaddr] [endaddr]\r
;      List disassembled code\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
	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
	call	cmdl_p_line\r
	pop bc\r
	djnz l18ebh\r
	ret\r
\r
l1905h:\r
	call assert_eol\r
	ld	d,h\r
	ld	e,l\r
	add	hl,bc\r
	ex	de,hl\r
l190fh:\r
	push	de\r
	call	cmdl_p_line\r
	pop 	de\r
	call	cp_hl_de\r
	jr	c,l190fh\r
	ret\r
\r
;-------------------------------------------------------------------------------\r
\r
cmdl_p_line:\r
	push	hl\r
	call	p_disas_line\r
	call	crlf\r
	pop	hl\r
	ld	c,b\r
	ld	b,0\r
	add	hl,bc\r
	ld	(last_L),hl\r
	ret\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
	push	hl\r
	pop	iy\r
	call p_disas_instr\r
	ret z\r
\r
	ld	c,15\r
	call	p_goto_col\r
	call	p_offset\r
	call	outbl\r
	jp	p_symbol\r
\r
;-------------------------------------------------------------------------------\r
\r
p_offset:\r
	ld de,(var.@)\r
	ld a,d\r
	or e\r
	ret z\r
	call	pstr_inl\r
	dc	'(@'\r
	and a\r
	sbc hl,de\r
	call out_hl\r
	add	hl,de\r
	jp out_rparen\r
\r
;-------------------------------------------------------------------------------\r
\r
p_disas_instr:\r
	sub a\r
	ld (disas_argtype),a\r
	call disas_get_instrlen\r
	jr nc,l197fh\r
	push	bc\r
	ld	a,(con_col)\r
	add	a,5\r
	ld	c,a\r
	call	pstr\r
	call	p_goto_col\r
	ex de,hl\r
	call call_hl\r
	pop bc\r
	ld a,(disas_argtype)\r
	ld hl,(disas_arg_16)\r
	or a\r
	scf\r
	ret\r
\r
l197fh:\r
	call pstr_inl\r
	DC	'???'\r
	ld b,1\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
;-------------------------------------------------------------------------------\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
;-------------------------------------------------------------------------------\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
;-------------------------------------------------------------------------------\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
;-------------------------------------------------------------------------------\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
;-------------------------------------------------------------------------------\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
;-------------------------------------------------------------------------------\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
	ld de,l1c97h\r
	inc hl\r
	ld c,(hl)\r
	jr get_mnemonic\r
\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
\r
l1aa8h:\r
	inc hl\r
	ld c,(hl)\r
	inc hl\r
	ld e,(hl)\r
	inc hl\r
	ld d,(hl)\r
get_mnemonic:\r
	ld hl,t_MNEMONICS\r
	ld b,0\r
	add hl,bc\r
	scf\r
	ret\r
\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 p_arg_jrel\r
	db 0ffh,018h,054h	;jr\r
	dw p_arg_jrel\r
	db 0e7h,020h,054h	;jr cc,\r
	dw p_arg_cc_jrel\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
;-------------------------------------------------------------------------------\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
	jr out_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
p_arg_cc_jrel:\r
	ld a,(iy+000h)\r
	and 018h\r
	call p_arg_cc0\r
	call p_char_comma\r
p_arg_jrel:\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
\r
l1d29h:\r
	call p_A_comma\r
sub_1d2ch:\r
	call p_char_lparen\r
	ld a,(iy+001h)\r
p_arg_nn_rp:\r
	call out_hex\r
out_rparen:\r
	jr p_char_rparen\r
\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 (disas_argtype),a\r
	ld (disas_arg_16),hl\r
	jp out_hl\r
\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 p_arg_addr\r
	call p_char_comma\r
	jp p_arg_hlixiy\r
\r
p_arg_hl_addr:\r
	call p_arg_hlixiy\r
	call p_char_comma\r
	jp p_arg_addr\r
\r
p_arg_addr_a:\r
	call p_arg_addr\r
p_char_comma_A:\r
	call p_char_comma\r
	jr p_char_A\r
\r
p_A_comma:\r
	call p_char_A\r
p_char_comma:\r
	ld a,','\r
	db 021h\r
p_char_A:\r
	ld a,'A'\r
	db 021h\r
l1d85h:\r
	ld a,'0'\r
	db 021h\r
l1d89h:\r
	ld a,'1'\r
	db 021h\r
l1d8dh:\r
	ld a,'2'\r
	db 021h\r
p_char_rparen:\r
	ld a,')'\r
	db 021h\r
p_char_lparen:\r
	ld a,'('\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 p_arg_addr\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 p_arg_addr\r
\r
p_arg_a_addr:\r
	call p_A_comma\r
p_arg_addr:\r
	call p_char_lparen\r
	ld l,(iy+001h)\r
	ld h,(iy+002h)\r
	ld a,001h\r
	call sub_1d50h\r
	jr p_char_rparen\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
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
	push af\r
	rlca\r
	ld a,'+'\r
	jr nc,l1e61h\r
	pop af\r
	neg\r
	push af\r
	ld a,'-'\r
l1e61h:\r
	call outchar\r
	pop af\r
	jp p_arg_nn_rp\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
;-------------------------------------------------------------------------------\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
;-------------------------------------------------------------------------------\r
\r
tc_set_bp:\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,0\r
	ld hl,(reg.pc)\r
	add hl,bc\r
	call bp_trace_enter\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,bp_trace_enter\r
l2037h:\r
	scf\r
	ret\r
\r
;-------------------------------------------------------------------------------\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	;rst n\r
	dw l20f9h\r
	db 0c7h,0c4h,000h	;call cc,mn\r
	dw l2080h\r
	db 0f7h,010h,000h	;djnz d; jr d\r
	dw l2093h\r
	db 0e7h,020h,000h	;jr cc,d\r
	dw l2093h\r
	db 0c7h,0c2h,000h	;jp cc,mn\r
	dw l208bh\r
	db 0c7h,0c0h,000h	;ret cc\r
	dw l20c5h\r
	db 0\r
\r
;-------------------------------------------------------------------------------\r
; call mn	call cc,mn\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
\r
; jp mn		jp cc,mn\r
l208bh:\r
	ld l,(iy+001h)\r
	ld h,(iy+002h)\r
	scf\r
	ret\r
\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
\r
; jp (hl)\r
l20a2h:\r
	ld hl,(reg.l)\r
	scf\r
	ret\r
\r
; Prefix DD\r
l20a7h:\r
	ld hl,(reg.ix)\r
	jr l20afh\r
; Prefix FD\r
l20ach:\r
	ld hl,(reg.iy)\r
l20afh:\r
	ld a,(iy+001h)\r
	cp 0e9h			; jp (ix); jp (iy)\r
	scf\r
	ret z\r
	and a\r
	ret\r
\r
; Prefix ED\r
l20b8h:\r
	ld a,(iy+001h)\r
	cp 04dh			; reti\r
	jr z,l20dch\r
	cp 045h			; retn\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 bp_trace_enter\r
l2115h:\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
\r
;-------------------------------------------------------------------------------\r
; >>C[N][J] [steps]\r
; >>C[N][J] W expression\r
; >>C[N][J] U expression\r
;     trace over Calls [No list] [Jumps only] /.While./.Until.\r
\r
cmd_C:\r
	ld hl,cmd_C\r
	ld a,1\r
	jr cmd_tc\r
\r
;-------------------------------------------------------------------------------\r
; >>T[N][J] [steps]\r
; >>T[N][J] W expression\r
; >>T[N][J] U expression\r
;      Trace [no List] [Jumps only] / .While. / .Until.\r
\r
cmd_T:\r
	xor a\r
	ld hl,cmd_T\r
cmd_tc:\r
	ld (cmd_rpt),hl\r
	ld (trace_call_flag),a\r
	call get_char_upper\r
	sub 'N'\r
	jr nz,tc_non\r
	inc de\r
tc_non:\r
	ld (trace_N_flag),a\r
	call get_char_upper\r
	sub 'J'\r
	jr nz,tc_noj\r
	inc de\r
tc_noj:\r
	ld (trace_J_flag),a\r
	call tc_chk_u_or_w\r
	jr z,tc_save_uw_expr_ptr\r
	ld hl,1				;default: 1 step\r
	call get_lastarg_def\r
tc_save_uw_expr_ptr:\r
	ld (trace_cnt_or_ptr),hl\r
	sub a\r
	ld (bp_p_cpu_flag),a\r
l214ch:\r
	call tc_set_bp\r
	jr user_go1\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)		;0 or 'U' or 'W'\r
	and a\r
	jr z,tc_cnt			;flag is 0, check for step count.\r
	ld de,(trace_cnt_or_ptr)\r
	call expr\r
	ld a,h\r
	or l\r
	add a,0ffh\r
	sbc a,a\r
	ld hl,trace_UW_flag		;'U' or 'W'\r
	xor (hl)\r
	bit 1,a				;'U' = 55H, 'W' = 57H\r
	jr z,l2193h\r
do_break0:				;print registers and go to main loop\r
	jp do_break\r
\r
tc_cnt:\r
	ld hl,(trace_cnt_or_ptr)\r
	dec hl\r
	ld (trace_cnt_or_ptr),hl\r
	ld a,h\r
	or l\r
	jr z,do_break0\r
l2193h:\r
	call tc_set_bp\r
	jr nc,do_break0\r
	ld a,(trace_N_flag)\r
	ld b,a\r
	ld a,(bp_p_cpu_flag)\r
	or b\r
	ld (bp_p_cpu_flag),a\r
user_go1:\r
	jp user_go\r
\r
tc_chk_u_or_w:\r
	call skipbl\r
	xor a\r
	ld (trace_UW_flag),a\r
	call get_char_upper\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
;-------------------------------------------------------------------------------\r
\r
con_col:\r
	db	0\r
\r
;-------------------------------------------------------------------------------\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_cnt_or_ptr:\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
bp_p_cpu_flag:\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
\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
;-------------------------------------------------------------------------------\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
disas_arg_16:\r
	dw	0\r
disas_argtype:\r
	db	0\r
\r
pbl_loop_adr:\r
	dw	0\r
\r
symlen_cur:		;max length of symbols read so far\r
	db	0\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