phys. address 0x00040 points to fifo_list

[z180-stamp.git] / z180 / ddtz.180

	page	255\r
	.z80\r
\r
	extrn	?const,?conin,?cono\r
	extrn	getiff\r
	extrn	selbnk,@cbnk\r
\r
	global	ddtz,bpent\r
	global	$stack\r
\r
\r
	include config.inc\r
	if CPU_Z180\r
	include	z180reg.inc\r
	include z180.lib\r
	endif\r
\r
BS	equ	08h\r
TAB	equ	09h\r
CR	equ	0dh\r
LF	equ	0ah\r
DEL	equ	7fh\r
CNTRX	equ	'X'-'@'\r
\r
TPA	equ	100h\r
TOPRAM	equ	0f000h\r
\r
\r
MEMDUMP_CNT	equ	16		;mem dump bytes per line\r
BP_CNT 		equ	12		;number of breakbpoints\r
\r
\r
;--------------------------------------------------\r
;\r
\r
; copy code to common memory and execute it there\r
comst	macro\r
	call	?excom\r
	ds	1\r
?lcs	defl	$\r
	endm\r
\r
; mark end of common code snippet\r
comend	macro\r
?lce	defl	$\r
?lclen	defl	?lce-?lcs\r
	org	?lcs-1\r
	db	?lclen\r
	org	?lce\r
	ifndef	?lcmax\r
?lcmax	defl	0\r
	endif\r
	if	?lclen gt ?lcmax\r
?lcmax	defl	?lclen\r
	endif\r
	endm\r
\r
\r
\r
\r
	cseg\r
\r
;----------------------------------------------------------\r
\r
MSG:\r
	DB	'DDT/Z - HD64180  (ROM)'\r
	DB	CR,LF,0\r
\r
HLPMSG:\r
	DB 'DDT/Z180 (ROM) Commands:',CR,LF\r
	DB '> @                             examine/substitute the displacement register @',CR,LF\r
	DB '> A [address]                   Assemble',CR,LF\r
	DB '> B[X]                          display [or clear] all Breakpoints',CR,LF\r
	DB '  B breakp [:count] [breakp..]  set Breakpoints',CR,LF\r
	DB '  BX address [address..]        clear Breakpoints',CR,LF\r
	DB '>>C[N][J] [count]               trace over Calls [No list] [Jumps only]',CR,LF\r
	DB '  C[N][J] W|U expression        trace over Calls While|Until ...',CR,LF\r
	DB '>>D [startadr] [endadr]         Display memory in hex and ascii',CR,LF\r
	DB '> G [startadr] [;breakp..]      Go [to start] [temporary breakpoints]',CR,LF\r
	DB '> H [expression [expression]]   compute expressions / show High/max load adr.',CR,LF\r
	DB '>>I [port]                      Input a byte from port',CR,LF\r
	DB '>>L [startadr] [endadr]         List disassembled code',CR,LF\r
	DB '> M[V] startadr endadr destadr  Move memory [and verify]',CR,LF\r
	DB '>>O [byte] [port]               Output a byte to port',CR,LF\r
	DB '> Q[J] startadr endadr bytes    Qery memory for byte string [Justified]',CR,LF\r
	DB '> R [displacement]              Read intel hex from console [add displacemt]',CR,LF\r
	DB '> S address                     Substitute memory',CR,LF\r
	DB '>>T[N][J] [count]               Trace [No list] [Jumps only] [count steps]',CR,LF\r
	DB '  T[N][J] W|U expression        Trace While|Until expression',CR,LF\r
	DB '> V startadr endadr destadr     Verify (compare) two memory areas',CR,LF\r
	DB '> X[register]                   eXamine [and substitute] registers',CR,LF\r
	DB '> Y[0..9]                       eXamine [and substitute] Y variables',CR,LF\r
	DB '> Z startadr endadr bytes       Zap (fill) memory with a byte string',CR,LF\r
	DB 0\r
\r
ddtz:\r
	ld	sp,$stack\r
	ld	a,(wstrtflg)		;check warm start flag\r
	or	a\r
;;;	jr	nz,ddtz_w\r
\r
	exx\r
	ld	hl,sysramc\r
	ld	de,topcodbeg\r
	ld	bc,topcodend-topcodbeg\r
	ldir\r
\r
	exx\r
\r
	if CPU_Z180\r
	ld	a,e\r
	ld	(ubbr),a\r
	endif\r
\r
ddtz_w:\r
	ld hl,MSG\r
	call PSTR\r
	call ddtei\r
\r
; DDTZ main loop\r
\r
DDTZML:\r
	ld sp,$stack\r
	ld hl,l07eah\r
	ld (CMD_ERR),hl\r
	ld hl,(REG.PC)\r
	ld (OFFS.pc),hl\r
	call sub_0e68h\r
	ld hl,(CMD_RPT)\r
	ld de,DDTZML\r
	call CP.HL.DE\r
	ld a,'>'\r
	call OUTCHAR\r
	call nz,OUTCHAR\r
	call z,OUTBL\r
	call INLINE\r
	call SKIPBL\r
	jr z,exe_hl\r
	ld hl,DDTZML\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
ERROR:\r
	ld hl,(CMD_ERR)\r
exe_hl:\r
	call CALL.HL\r
	jr DDTZML\r
\r
CALL.HL:\r
	jp (hl)\r
\r
\r
CMDTAB:\r
	defw CMD.?		;Help\r
	defw CMD.@		;Offset\r
	defw CMD.A		;Assemble\r
	defw CMD.B		;Breakpoint\r
	defw CMD.C		;Call\r
	defw CMD.D		;Display\r
	defw ERROR		;\r
	defw ERROR		;\r
	defw CMD.G		;Go\r
	defw CMD.H		;Hex Math\r
	defw CMD.I		;In Port\r
	defw ERROR		;\r
	defw ERROR		;\r
	defw CMD.L		;List\r
	defw CMD.M		;Move\r
	defw ERROR		;\r
	defw CMD.O		;Out Port\r
	defw ERROR		;\r
	defw CMD.Q		;Query\r
	defw CMD.R		;Read Intel Hex\r
	defw CMD.S		;Substitute\r
	defw CMD.T		;Trace\r
	defw ERROR		;\r
	defw CMD.V		;Verify\r
	defw ERROR		;\r
	defw CMD.X		;eXamine\r
	defw CMD.Y		;eXamine Y Registers\r
	defw CMD.Z		;Zap (fill) memory\r
l07eah:\r
	ld a,'?'\r
	call OUTCHAR\r
	jp CRLF\r
\r
CMD.?:\r
	call	assert_eol\r
	ld	hl,HLPMSG\r
	call	PSTR\r
	ret\r
\r
$ci:\r
	push	hl\r
	push	de\r
	push	bc\r
	call	?conin\r
	pop	bc\r
	pop	de\r
	pop	hl\r
	ret\r
\r
$co:\r
	push	hl\r
	push	de\r
	push	bc\r
	ld	c,a\r
	call	?cono\r
	pop	bc\r
	pop	de\r
	pop	hl\r
	ret\r
\r
DELC:\r
	ld	a,b\r
	or	a\r
	ret	z\r
	call	DELC1\r
	dec	hl\r
	dec	b\r
	inc	c\r
	ld	a,(hl)\r
	cp	' '\r
	ret	nc\r
DELC1:\r
	push	de\r
	push	hl\r
	push	bc\r
	ld	c,BS\r
	call	?cono\r
	ld	c,' '\r
	call	?cono\r
	ld	c,BS\r
	call	?cono\r
	pop	bc\r
	pop	hl\r
	pop	de\r
	ret\r
\r
DELL:\r
	ld a,b			;\r
	or a			;\r
	ret z			;\r
	call DELC		;\r
	jr DELL			;\r
\r
INLINE:\r
	push hl			;\r
	ld hl,CI.BUF		;\r
	ld c,(hl)		;\r
	inc hl			;\r
	ld b,000h		;\r
	inc hl			;\r
inlnxtch:\r
	ld a,c			;\r
	or a			;\r
	jr z,inl_e		;\r
	call $ci		;\r
	cp CR			;\r
	jr z,inl_e		;Accept line\r
	cp LF			;\r
	jr z,inl_e		;Accept line\r
	cp BS			;\r
	jr nz,l0844h		;\r
	call DELC		;Delete Char\r
	jr inlnxtch		;\r
l0844h:\r
	cp DEL			;\r
	jr nz,l084dh		;\r
	call DELC		;Delete Char\r
	jr inlnxtch		;\r
l084dh:\r
	cp CNTRX		;\r
	jr nz,l0856h		;\r
	call DELL		;Delete Line\r
	jr inlnxtch		;\r
l0856h:\r
	cp TAB			;\r
	jr nz,l085ch		;\r
	ld a,' '		;\r
l085ch:\r
	ld (hl),a		;\r
	cp ' '			;\r
	jr nc,l0869h		;\r
	ld a,'^'		;Controll characters\r
	call $co		;\r
	ld a,(hl)		;\r
	add a,'@'		;\r
l0869h:\r
	call $co		;\r
	inc hl			;\r
	inc b			;\r
	dec c			;\r
	jr inlnxtch		;\r
\r
inl_e:\r
	ld hl,ci.buf+1		;\r
	ld (hl),b		;\r
	call CRLF		;\r
	ld de,ci.buf+1		;\r
	ld a,(de)		;\r
	ld b,a			;\r
	ld c,000h		;\r
	inc b			;\r
l0880h:\r
	inc de			;\r
	dec b			;\r
	jr z,l08b2h		;\r
	ld a,(de)		;\r
	bit 0,c			;\r
	call z,UPCASE		;\r
	ld (de),a		;\r
	cp ''''			;\r
	jr nz,l0880h		;\r
	push de			;\r
	dec de			;\r
	ld a,(de)		;\r
	cp ''''			;\r
	jr z,l08aeh		;\r
	dec de			;\r
	ld a,(de)		;\r
	cp '^'			;\r
	jr z,l08a2h		;\r
	dec de			;\r
	ld a,(de)		;\r
	cp '^'			;\r
	jr nz,l08aeh		;\r
l08a2h:\r
	inc de			;\r
	push bc			;\r
	call sub_0a0eh		;\r
	pop bc			;\r
	dec de			;\r
	ld a,(de)		;\r
	cp ''''			;\r
	jr z,l08afh		;\r
l08aeh:\r
	inc c			;\r
l08afh:\r
	pop de			;\r
	jr l0880h		;\r
l08b2h:\r
	xor a			;\r
	ld (de),a		;\r
	ld de,ci.buf+2		;\r
	pop hl			;\r
	ret			;\r
\r
UPCASE:\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,(offs.@)		;\r
	ld a,d			;\r
	or e			;\r
	jr z,l08ddh		;\r
	call OUTBL		;\r
	ld a,'@'		;\r
	call OUTCHAR		;\r
	and a			;\r
	sbc hl,de		;\r
	call out.hl		;\r
l08ddh:\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,008h		;\r
l08e7h:\r
	add a,a			;\r
	push af			;\r
	ld a,0			;\r
	adc a,a			;\r
	call out.digit		;\r
	pop af			;\r
	djnz l08e7h		;\r
	ld a,'"'		;\r
	jp OUTCHAR		;\r
\r
sub_08f7h:\r
	ld a,'-'		;\r
	call OUTCHAR		;\r
	dec hl			;\r
	jp cpl.hl		;\r
\r
out.hl.decm:\r
	push hl			;\r
	call sub_08f7h		;\r
	db	3eh		;  ld a,0E5h\r
out.hl.dec:\r
	push	hl\r
	ld b,6			;\r
	call sub_0917h		;\r
	pop hl			;\r
	ld a,'.'		;\r
	call OUTCHAR		;\r
l0911h:\r
	call OUTBL		;\r
	djnz l0911h		;\r
	ret			;\r
\r
\r
sub_0917h:\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_0917h\r
	ld a,e\r
	pop de\r
	jr out.digit\r
\r
sub_0928h:\r
	push hl\r
	call sub_08f7h\r
	call out.hl\r
	pop hl\r
	ret\r
out.hl:\r
	ld a,h\r
	call out.hex\r
	ld a,l\r
out.hex:\r
	push af\r
	rra\r
	rra\r
	rra\r
	rra\r
	call out.digit\r
	pop af\r
out.digit:\r
	and 00fh\r
	cp 10\r
	jr c,l0947h\r
	add a,007h\r
l0947h:\r
	add a,'0'\r
	jr OUTCHAR\r
l094bh:\r
	ld a,'-'\r
	call OUTCHAR\r
	ld a,040h\r
out.ascii:\r
	ex af,af'\r
	call outquote\r
	ex af,af'\r
	push af\r
	res 7,a\r
	cp ' '\r
	jr nc,l0960h\r
	sub 0c0h\r
l0960h:\r
	call OUTCHAR\r
	push af\r
	cp ''''\r
	call z,OUTCHAR\r
	pop af\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
	jr c,l094bh\r
	ret\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	c,a\r
	call	?cono\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
	call	?const\r
	and	a\r
	jr	z,inch1\r
	call	?conin\r
	scf\r
inch1:\r
	pop	bc\r
	pop	de\r
	pop	hl\r
	ret\r
\r
PSTR:\r
	ld c,000h\r
l0995h:\r
	ld a,(hl)\r
	and a\r
	ret z\r
	call OUTCHAR\r
	inc c\r
	inc hl\r
	and a\r
	ret m\r
	jr l0995h\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
CRLF:\r
	call inchar\r
	ld a,CR\r
	call OUTCHAR\r
	ld a,LF\r
	call OUTCHAR\r
	ld a,000h\r
	ld (CON.COL),a\r
	jp c,DDTZML\r
	ret\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 009h\r
	jr z,SKIPBL0\r
	or a\r
	ret\r
\r
skip_to_nextarg:\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
l09e5h:\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-50\r
	call CP.HL.DE\r
	pop de\r
	pop hl\r
	jr c,l09e5h\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,000h\r
l0a00h:\r
	ld a,(hl)\r
	and a\r
	ret z\r
	ld a,(de)\r
	cp (hl)\r
	jr z,l0a0bh\r
	inc hl\r
	inc b\r
	jr l0a00h\r
l0a0bh:\r
	scf\r
	inc de\r
	ret\r
\r
sub_0a0eh:\r
	ld hl,b_0x132A_start\r
	ld b,07fh\r
	jr l0a17h\r
\r
sub_0a15h:\r
	ld b,0ffh\r
l0a17h:\r
	inc b\r
	ld a,(hl)\r
	and a\r
	ret z\r
	call l0a27\r
	jr nc,l0a17h\r
	res 7,b\r
	ret\r
\r
sub_0a23h:\r
	push bc\r
	res 7,b\r
	db	3eh		;0a26  ld a,0c5h\r
l0a27:\r
	push bc\r
	push de\r
l0a29h:\r
	ld a,(de)\r
	xor (hl)\r
	and 07fh\r
	jr nz,l0a41h\r
	bit 7,(hl)\r
	inc hl\r
	inc de\r
	jr z,l0a29h\r
	scf\r
	bit 7,b\r
	call z,sub_0d20h\r
	jr nc,l0a44h\r
	pop af\r
	scf\r
	pop bc\r
	ret\r
\r
l0a41h:\r
	call sub_0a50h\r
l0a44h:\r
	pop de\r
	and a\r
	pop bc\r
	ret\r
\r
sub_0a48h:\r
	inc b\r
l0a49h:\r
	dec b\r
	ret z\r
	call sub_0a50h\r
	jr l0a49h\r
sub_0a50h:\r
	ld a,(hl)\r
	and a\r
	ret z\r
l0a53h:\r
	ld a,(hl)\r
	inc hl\r
	and a\r
	ret m\r
	jr l0a53h\r
\r
get_arg3:\r
	call get_arg_range\r
	push hl\r
	push bc\r
	call skip_to_nextarg\r
	call get_arg\r
	ex de,hl\r
	pop bc\r
	pop hl\r
	ret\r
\r
sub_0a68h:\r
	call EXPR\r
	jr c,error0\r
	ret\r
\r
get_arg:\r
	call sub_0a68h\r
l0a71h:\r
	jp assert_eol\r
\r
get_lastarg_def:\r
	call get_arg_def\r
	jr l0a71h\r
\r
get_arg_def:\r
	push hl\r
	call EXPR\r
	jr c,l0a80h\r
	ex (sp),hl\r
l0a80h:\r
	pop hl\r
	ret\r
\r
sub_0a82h:\r
	call sub_0a87h\r
	jr l0a71h\r
\r
sub_0a87h:\r
	db	0e6h		;0a87  and 037h (clear carry)\r
get_arg_range:\r
	scf\r
	ex af,af'\r
	push bc\r
	push hl\r
	call EXPR\r
	jr nc,l0a97h\r
	ex af,af'\r
	jr c,error0\r
	ex af,af'\r
	pop hl\r
\r
	defb 03eh\r
l0a97h:\r
	pop af\r
	call sub_0aa5h\r
	jr nc,l0aa3h\r
	ex af,af'\r
	pop bc\r
	ret nc\r
error0:\r
	jp ERROR\r
\r
l0aa3h:\r
	pop af\r
	ret\r
\r
sub_0aa5h:\r
	call skip_to_nextarg\r
	cp 'S'\r
	jr nz,l0aadh\r
	inc de\r
l0aadh:\r
	push hl\r
	push af\r
	call EXPR\r
	jr c,l0ac3h\r
	ld b,h\r
	ld c,l\r
	pop af\r
	pop hl\r
	jr z,l0ac1h\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
l0ac1h:\r
	and a\r
	ret\r
\r
l0ac3h:\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,l0af8h\r
	jr l0af7h\r
do_op_ne:\r
	jr nz,l0af8h\r
	jr l0af7h\r
do_op_le:\r
	jr z,l0af8h\r
do_op_lt:\r
	jr c,l0af8h\r
	jr l0af7h\r
do_op_gt:\r
	jr z,l0af7h\r
do_op_ge:\r
	jr nc,l0af8h\r
l0af7h:\r
	inc hl\r
l0af8h:\r
	and a\r
	ret\r
\r
do_rel_op:\r
	push hl\r
	ld hl,tab_eq_le_ge\r
	call lookupch\r
	jr nc,l0b28h\r
	ld a,b\r
	or a\r
	jr z,l0b1ch\r
	ld a,(de)\r
	cp '='\r
	jr nz,l0b11h\r
	inc de\r
	inc b\r
	inc b\r
	jr l0b1ch\r
\r
l0b11h:\r
	bit 0,b\r
	jr z,l0b1ch\r
	cp '>'\r
	jr nz,l0b1ch\r
	inc de\r
	ld b,005h\r
l0b1ch:\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
l0b28h:\r
	pop hl\r
	ret\r
\r
tab_eq_le_ge:\r
	db	'=<>',0\r
\r
tab_func_eqlege:\r
	defw do_op_eq\r
	defw do_op_lt\r
	defw do_op_gt\r
	defw do_op_le\r
	defw do_op_ge\r
	defw do_op_ne\r
\r
do_subexpr:\r
	call do_factor\r
	ret c\r
l0b3eh:\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,l0b52h\r
	pop de\r
	ld a,b\r
	or c\r
	ret z\r
	jp ERROR\r
\r
l0b52h:\r
	ld a,b\r
	or c\r
	push bc\r
	ret nz\r
	pop bc\r
do_op_add:\r
	add hl,de\r
l0b58h:\r
	pop de\r
	jr l0b3eh\r
\r
do_op_sub:\r
	and a\r
	sbc hl,de\r
	jr l0b58h\r
\r
do_op_mlt:\r
	push	bc\r
	if CPU_Z180\r
	ld	b,h\r
	ld	c,e\r
	ld	h,e\r
	ld	e,l\r
	mlt	bc\r
	mlt	de\r
	mlt	hl\r
	ld	a,h\r
	add	a,c\r
	add	a,e\r
	ld	h,a\r
	else\r
	 ld	b,h\r
	 ld	c,l\r
	 ld	hl,0\r
	 ld	a,16\r
mlt_1:\r
	 add	hl,hl\r
	 ex	de,hl\r
	 add	hl,hl\r
	 ex	de,hl\r
	 jr	nc,mlt_2\r
	 add	hl,bc\r
mlt_2:\r
	 dec	a\r
	 jr	nz,mlt_1\r
	endif\r
	pop	bc\r
	jr	l0b58h\r
\r
do_op_div:\r
	call DIV_HL_DE\r
	jr l0b58h\r
\r
do_op_mod:\r
	call DIV_HL_DE\r
	ex de,hl\r
	jr l0b58h\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
l0b89h:\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,l0b9ah\r
	add hl,bc\r
	dec de\r
l0b9ah:\r
	pop af\r
	dec a\r
	jr nz,l0b89h\r
	ex de,hl\r
	pop bc\r
	ret\r
\r
do_op_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 l0b58h\r
\r
do_op_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 l0b58h\r
\r
do_op_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 l0b58h\r
\r
do_binary_op:\r
	push hl\r
	ld hl,tab_op_a\r
	call lookupch\r
	ld a,b\r
	ld hl,tab_func_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
tab_func_opa:\r
	defw do_op_add\r
	defw do_op_sub\r
	defw do_op_mlt\r
	defw do_op_div\r
	defw do_op_mod\r
	defw do_op_and\r
	defw do_op_or\r
	defw do_op_xor\r
	defw 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,TOPRAM\r
	cp 'T'\r
	ret z\r
	ld hl,(HILOD)\r
	cp 'H'\r
	ret z\r
	ld hl,(MAXLOD)\r
	cp 'M'\r
	ret z\r
	ld hl,TPA\r
	cp 'L'\r
	ret z\r
	ld hl,(offs.@)\r
	cp '@'\r
	ret z\r
	ld hl,(OFFS.pc)\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		;0c35	[ expression ]\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
fact_factstring:\r
	ld hl,0\r
l0c56h:\r
	ld a,(de)\r
	cp ''''\r
	jr z,l0c62h\r
	and a\r
	ret z\r
l0c5dh:\r
	ld h,l\r
	ld l,a\r
	inc de\r
	jr l0c56h\r
\r
l0c62h:\r
	inc de\r
	ld a,(de)\r
	cp ''''\r
	jr z,l0c5dh\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_1315h\r
	jr nc,l0cbbh\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
fact_factinv:\r
	call fact_factor\r
	jr cpl.hl\r
\r
fact_mem:\r
	call EXPR1\r
	jr c,l0cbbh\r
	ld a,(de)\r
	cp ')'\r
	jr nz,l0cbbh\r
	inc de\r
	comst\r
	 ld a,(hl)\r
	 inc hl			;\r
	 ld h,(hl)		;\r
	comend\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,l0cbbh\r
	ld a,(de)\r
	cp ']'\r
	inc de\r
	ret z\r
l0cbbh:\r
	jp ERROR\r
\r
get.number:\r
	call get.hexdigit\r
	ret c\r
	push de\r
l0cc3h:\r
	inc de\r
	call get.hexdigit\r
	jr nc,l0cc3h\r
	pop de\r
	cp '.'\r
	jr z,l0d04h\r
	cp '"'\r
	jr z,l0ce9h\r
	ld hl,0\r
l0cd5h:\r
	call get.hexdigit\r
	jr c,l0ce4h\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 l0cd5h\r
l0ce4h:\r
	xor 'H'\r
	ret nz\r
	inc de\r
	ret\r
\r
l0ce9h:\r
	ld hl,0\r
l0cech:\r
	call get.decdigit\r
l0cefh:\r
	inc de\r
	jr c,l0cf8h\r
	add hl,hl\r
	call ADD_HL_A\r
	jr l0cech\r
l0cf8h:\r
	cp '"'\r
	jp nz,ERROR\r
	call get.decdigit\r
	jr nc,l0cefh\r
	or a\r
	ret\r
l0d04h:\r
	ld hl,0\r
l0d07h:\r
	call get.decdigit\r
	inc de\r
	jr c,l0d1ah\r
	push bc\r
	add hl,hl		;0d0e	hl *= 10\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 l0d07h\r
l0d1ah:\r
	cp '.'\r
	ret z\r
	jp ERROR\r
\r
sub_0d20h:\r
	ld a,(de)\r
	cp 05bh\r
	jr l0d28h\r
\r
get.hexdigit:\r
	ld a,(de)\r
sub_0d26h:\r
	cp 'F'+1\r
l0d28h:\r
	ccf\r
	ret c\r
	cp 'A'\r
	jr c,l0d32h\r
	sub 'A'-10\r
	ret\r
\r
get.decdigit:\r
	ld a,(de)\r
l0d32h:\r
	cp '9'+1\r
	jr l0d39h\r
get.bindigit:\r
	ld a,(de)\r
	cp '1'+1\r
l0d39h:\r
	ccf\r
	ret c\r
	cp '0'\r
	ret c\r
	sub '0'\r
	ret\r
\r
l0d41h:\r
	call assert_eol\r
\r
prnt_cpustat:\r
	call prnt_f\r
	call outbl2\r
	ld hl,b_0x0DFD_start\r
	ld de,b_0x0E1D_start\r
	ld b,006h\r
l0d52h:\r
	call prnt_regs\r
	djnz l0d52h\r
	push hl\r
	push de\r
	ld iy,(REG.PC)\r
	call sub_1f77h\r
	exx\r
	ex af,af'\r
	call CRLF\r
	call prnt_f2\r
	call outbl2\r
	pop de\r
	pop hl\r
	ld b,007h\r
l0d6fh:\r
	call prnt_regs\r
	djnz l0d6fh\r
	exx\r
	ex af,af'\r
	and a\r
	jr z,l0d7fh\r
	call outbl6\r
	call sub_1f5bh\r
l0d7fh:\r
	jp crlf\r
\r
prnt_f:\r
	ld a,(reg.f)\r
	call prnt_flags\r
	ld a,(reg.iff)\r
	cp 0f3h\r
	jp z,outbl\r
	ld a,'E'\r
	jp outchar\r
\r
prnt_f2:\r
	ld a,(reg.f2)\r
	call prnt_flags\r
	jp outbl\r
\r
prnt_flags:\r
	ld b,a\r
	ld a,'S'\r
	call sub_0dbeh\r
	ld a,'Z'\r
	call sub_0dbeh\r
	rl b\r
	ld a,'H'\r
	call sub_0dbeh\r
	rl b\r
	ld a,'V'\r
	call sub_0dbeh\r
	ld a,'N'\r
	call sub_0dbeh\r
	ld a,'C'\r
sub_0dbeh:\r
	rl b\r
	jp c,OUTCHAR\r
	jp OUTBL\r
\r
prnt_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,l0df2h\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,l0dedh\r
	call out.hl.@\r
	call z,outbl6\r
	jr l0df6h\r
l0dedh:\r
	call out.hl\r
	jr l0df6h\r
l0df2h:\r
	ld a,(de)\r
	call out.hex\r
l0df6h:\r
	call OUTBL\r
	pop de\r
	pop hl\r
	pop bc\r
	ret\r
\r
b_0x0DFD_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_0x0E1D_start:\r
	defw reg.a\r
	defb 000h\r
	defw reg.c\r
	defb 001h\r
	defw reg.e\r
	defb 001h\r
	defw reg.l\r
	defb 001h\r
	defw reg.sp\r
	defb 001h\r
	defw reg.pc\r
	defb 002h\r
	defw reg.a2\r
	defb 000h\r
	defw reg.c2\r
	defb 001h\r
	defw reg.e2\r
	defb 001h\r
	defw reg.l2\r
	defb 001h\r
	defw reg.ix\r
	defb 001h\r
	defw reg.iy\r
	defb 001h\r
	defw reg.i\r
	dw	0\r
\r
CMD.G:\r
	sub a\r
	ld (TCFLG),a\r
	ld (XA747),a\r
	call EXPR\r
	jr c,l0e54h\r
	ld (REG.PC),hl\r
l0e54h:\r
	call SKIPBL\r
	jp z,l1183h\r
	cp ';'\r
	jp nz,ERROR\r
	inc de\r
	ld a,002h\r
	call sub_0f24h\r
	jp l1183h\r
\r
sub_0e68h:\r
	ld b,BP_CNT\r
	ld ix,bp_tab\r
l0e6eh:\r
	ld a,(ix+000h)\r
	and 0f1h\r
	ld (ix+000h),a\r
	call sub_11c5h\r
	ld de,BP_SIZE\r
	add ix,de\r
	djnz l0e6eh\r
	ret\r
\r
CMD.B:\r
	call SKIPBL\r
	jr z,l0ecbh\r
	inc de\r
	cp 'X'\r
	jr z,l0e91h\r
	dec de\r
	ld a,001h\r
	jp sub_0f24h\r
l0e91h:\r
	call SKIPBL\r
	jr z,l0ea6h\r
l0e96h:\r
	call EXPR\r
	jp c,assert_eol\r
	push de\r
	call sub_0ea7h\r
	pop de\r
	call skip_to_nextarg\r
	jr l0e96h\r
l0ea6h:\r
	scf\r
sub_0ea7h:\r
	ld b,BP_CNT\r
	ld ix,bp_tab\r
l0eadh:\r
	push af\r
	jr c,l0ebbh\r
	ld e,(ix+002h)\r
	ld d,(ix+003h)\r
	call CP.HL.DE\r
	jr nz,l0ec2h\r
l0ebbh:\r
	ld (ix+000h),000h\r
	call sub_11c5h\r
l0ec2h:\r
	ld de,BP_SIZE\r
	add ix,de\r
	pop af\r
	djnz l0eadh\r
	ret\r
l0ecbh:\r
	ld b,BP_CNT\r
	ld ix,bp_tab\r
l0ed1h:\r
	bit 0,(ix+000h)\r
	jr z,l0f1ch\r
	ld a,'R'\r
	bit 4,(ix+000h)\r
	jr nz,l0ee1h\r
	ld a,' '\r
l0ee1h:\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,l0f19h\r
	call outbl4\r
	ld a,'I'\r
	call OUTCHAR\r
	call outbl2\r
	call PSTR\r
l0f19h:\r
	call CRLF\r
l0f1ch:\r
	ld de,BP_SIZE\r
	add ix,de\r
	djnz l0ed1h\r
	ret\r
\r
sub_0f24h:\r
	ld b,a\r
	call SKIPBL\r
	ret z\r
	cp 'R'\r
	jr nz,l0f30h\r
	inc de\r
	set 4,b\r
l0f30h:\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,sub_0ea7h\r
	pop hl\r
	call sub_0f68h\r
	pop de\r
	ld (ix+002h),l\r
	ld (ix+003h),h\r
	call sub_0f80h\r
	ld (ix+004h),l\r
	ld (ix+005h),h\r
	call sub_0f91h\r
	ld (ix+006h),l\r
	ld (ix+007h),h\r
	call skip_to_nextarg\r
	pop af\r
	ld (ix+000h),a\r
	and 00fh\r
	jr sub_0f24h\r
sub_0f68h:\r
	ld b,BP_CNT\r
	ld ix,bp_tab\r
l0f6eh:\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 l0f6eh\r
	jp ERROR\r
\r
sub_0f80h:\r
	call SKIPBL\r
	ld hl,1\r
	cp 03ah\r
	ret nz\r
	inc de\r
	call EXPR\r
	jp c,ERROR\r
	ret\r
sub_0f91h:\r
	call SKIPBL\r
	cp 049h\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,(sexp1)\r
	push hl\r
	add hl,bc\r
	ld de,sexpbufe\r
	call CP.HL.DE\r
	jp nc,ERROR\r
	pop hl\r
	ld (sexp2),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 (sexp1),hl\r
	ld hl,(sexp2)\r
	ret\r
\r
bpddtz:\r
	if ROMSYS\r
	 ld	h,ROMEN\r
	 jr	z,l0fd2h\r
	 inc	h\r
l0fd2h:\r
	 push	hl		;save rom enable stat\r
	endif\r
	push	bc\r
	push	de\r
	push	ix\r
	push	iy\r
	ld	a,i\r
	ld	h,a\r
	ld	l,000h\r
	push	hl		;save I register\r
\r
	if CPU_Z180\r
	 ld	a,0f3h		;DI\r
	 jp	po,l0fe6h\r
	 ld	a,0fbh		;EI\r
	else			;NMOS Z80 design flaw\r
	 call	getiff		;return Carry set, if INTs are disabled.\r
	 ld	a,0f3h		;DI\r
	 jr	c,l0fe6h\r
	 ld	a,0fbh		;EI\r
	endif\r
l0fe6h:\r
	ld	(reg.iff),a\r
	ld	hl,ivtab\r
	ld	a,h\r
	ld	i,a\r
	call	ddtei\r
	ex	af,af'\r
	push	af\r
	exx\r
	push	bc\r
	push	de\r
	push	hl\r
	call	bp.unset\r
	if CPU_Z180\r
	 in0	a,(itc)\r
	 jp	p,l1017h\r
	 res	TRAP,a\r
	 out0	(itc),a\r
	 bit	UFO,a\r
	 jr	z,l1011h\r
	 ld	hl,(REG.PC)\r
	 dec	hl\r
	 ld	(REG.PC),hl\r
l1011h:\r
	 ld	hl,MSG_trap\r
	 call	PSTR\r
l1017h:\r
	endif\r
\r
	ld	a,(XBFE8)\r
	dec	a\r
	jr	z,l1051h\r
	call	inchar\r
	jr	c,l102eh\r
	call	sub_1059h\r
	and	a\r
	jp	z,l1183h\r
	and	083h\r
	jp	z,l284ah\r
l102eh:\r
	call	sub_0e68h\r
	call prnt_cpustat\r
	jp	DDTZML\r
\r
	if CPU_Z180\r
MSG_trap:\r
	DB	CR,LF,'Undefined opcode trap'\r
	DB	CR,LF,0\r
	endif\r
\r
l1051h:\r
	ld (XBFE8),a\r
	ld c,007h\r
	jp l119fh\r
sub_1059h:\r
	ld a,080h\r
	ex af,af'\r
	sub a\r
	ld (XA747),a\r
	ld b,BP_CNT\r
	ld ix,bp_tab\r
l1066h:\r
	ld a,(ix+000h)\r
	and 007h\r
	jr z,l107eh\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_1087h\r
	pop bc\r
l107eh:\r
	ld de,BP_SIZE\r
	add ix,de\r
	djnz l1066h\r
	ex af,af'\r
	ret\r
sub_1087h:\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,l10aeh\r
	ld e,(ix+004h)\r
	ld d,(ix+005h)\r
	dec de\r
	ld a,d\r
	or e\r
	jr z,l10b9h\r
	ld (ix+004h),e\r
	ld (ix+005h),d\r
l10aeh:\r
	bit 4,(ix+000h)\r
	ret z\r
	ld a,001h\r
	ld (XA747),a\r
	ret\r
l10b9h:\r
	ex af,af'\r
	or (ix+000h)\r
	ex af,af'\r
	ret\r
\r
bp.unset:\r
	ld b,BP_CNT\r
	ld ix,bp_tab\r
l10c5h:\r
	bit 5,(ix+000h)\r
	res 5,(ix+000h)\r
	jr z,l10e7h\r
	ld l,(ix+002h)\r
	ld h,(ix+003h)\r
	ld a,(ddtzrst)\r
	comst\r
	cp (hl)\r
	comend\r
	jr nz,l10e7h\r
	ld a,(ix+001h)\r
	comst\r
	 ld (hl),a\r
	comend\r
l10e7h:\r
	res 3,(ix+000h)\r
	ld de,BP_SIZE\r
	add ix,de\r
	djnz l10c5h\r
	ret\r
sub_10f3h:\r
	ld b,BP_CNT\r
	ld ix,bp_tab\r
l10f9h:\r
	ld a,(ix+000h)\r
	and 003h\r
	jr z,l110dh\r
	ld e,(ix+002h)\r
	ld d,(ix+003h)\r
	ld hl,(REG.PC)\r
	call CP.HL.DE\r
	ret z\r
l110dh:\r
	ld de,BP_SIZE\r
	add ix,de\r
	djnz l10f9h\r
	sub a\r
	inc a\r
	ret\r
sub_1117h:\r
	call sub_0f68h\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,(XBFE8)\r
	and a\r
	ld a,008h\r
	jr nz,l113ah\r
	ld a,004h\r
l113ah:\r
	ld (ix+000h),a\r
	ret\r
\r
bp.set:\r
	ld b,BP_CNT\r
	ld ix,bp_tab\r
l1144h:\r
	ld a,(ix+000h)\r
	and c\r
	jr z,l117bh\r
	set 5,(ix+000h)\r
	ld l,(ix+002h)\r
	ld h,(ix+003h)\r
\r
\r
	ld a,(ddtzrst)\r
	comst\r
	ld e,(hl)\r
	ld (hl),a\r
	comend\r
	ld (ix+001h),e\r
	and 038h\r
	ld h,0\r
	ld l,a\r
	ld de,bpent\r
	comst			;\r
	ld (hl),0c3h\r
	inc hl\r
	ld (hl),e\r
	inc hl\r
	ld (hl),d\r
	comend\r
\r
\r
l117bh:\r
	ld de,BP_SIZE\r
	add ix,de\r
	djnz l1144h\r
	ret\r
\r
l1183h:\r
	sub a\r
	ld (XBFE8),a\r
	ld a,(XA747)\r
	and a\r
	call nz,prnt_cpustat\r
	call sub_10f3h\r
	ld c,007h\r
	jr nz,l119fh\r
	ld a,001h\r
	ld (XBFE8),a\r
	call sub_26e7h\r
	ld c,008h\r
l119fh:\r
	call bp.set\r
	ld sp,$stack		;11a2	set/restore user cpu state\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 de\r
	pop bc\r
	if ROMSYS\r
	 pop hl\r
	 ld a,l\r
	 and M_MWI\r
	 ld l,a\r
	 di\r
	 in0 a,(dcntl)\r
	 and ~M_MWI\r
	 or l\r
	 ld l,a\r
	 ld a,h\r
	else\r
	 pop hl\r
	 di\r
	endif\r
	jp $go			;11c2	common ram, switch banks and go to user prog\r
\r
sub_11c5h:\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
l11e3h:\r
	push de\r
	ld de,(sexp1)\r
	call CP.HL.DE\r
	pop de\r
	jr nc,l11f9h\r
	call sub_11ffh\r
l11f1h:\r
	ld a,(hl)\r
	ldi\r
	and a\r
	jr nz,l11f1h\r
	jr l11e3h\r
l11f9h:\r
	ld (sexp1),de\r
	pop bc\r
	ret\r
sub_11ffh:\r
	ld iy,bp_tab\r
	push de\r
l1204h:\r
	ld e,(iy+006h)\r
	ld d,(iy+007h)\r
	call CP.HL.DE\r
	jr z,l1216h\r
	ld de,BP_SIZE\r
	add iy,de\r
	jr l1204h\r
l1216h:\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,l122fh\r
	inc de\r
	push af\r
	call assert_eol\r
	pop af\r
	call sub_1248h\r
	jp l127ch\r
l122fh:\r
	call assert_eol\r
	xor a\r
l1233h:\r
	push af\r
	call sub_1248h\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 LF\r
	jr c,l1233h\r
	ret\r
\r
sub_1248h:\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 l129ah\r
\r
CMD.X:\r
	call SKIPBL\r
	call sub_1315h\r
	jp nc,l0d41h\r
	call assert_eol\r
	ld a,b\r
	cp 01fh\r
	jr z,l12c6h\r
	cp 020h\r
	jr z,l12b6h\r
	ex de,hl\r
	ld hl,b_0x132A_start\r
	call sub_0a48h\r
l1279h:\r
	call l129ah\r
l127ch:\r
	call OUTBL\r
	push de\r
	push bc\r
	call INLINE\r
	call SKIPBL\r
	jr z,l1297h\r
	call get_arg\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
l1297h:\r
	pop af\r
	pop hl\r
	ret\r
l129ah:\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
l12b6h:\r
	call prnt_f\r
	ld a,0f3h\r
	ld (reg.iff),a\r
	scf\r
	call sub_12d1h\r
	ld (reg.f),a\r
	ret\r
\r
l12c6h:\r
	call prnt_f2\r
	and a\r
	call sub_12d1h\r
	ld (reg.f2),a\r
	ret\r
\r
sub_12d1h:\r
	ex af,af'\r
	ld b,000h\r
	call outbl\r
	call assert_eol\r
	call inline\r
l12ddh:\r
	call skipbl\r
	ld a,b\r
	ret z\r
	push bc\r
	ld hl,tab_pr_flags\r
	call lookupch\r
	jp nc,error\r
	ld a,b\r
	cp 008h\r
	jr z,l12feh\r
	inc b\r
	ld a,001h\r
	jr l12f7h\r
l12f6h:\r
	rlca\r
l12f7h:\r
	djnz l12f6h\r
	pop bc\r
	or b\r
	ld b,a\r
	jr l12ddh\r
l12feh:\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 l12ddh\r
\r
tab_pr_flags:\r
	db	'CNV H ZSE'\r
	db	0\r
\r
sub_1315h:\r
	call sub_0a0eh\r
	ret nc\r
	ld a,b\r
	add a,b\r
	add a,b\r
	ld hl,b_0x136C_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_0x132A_start:\r
	if ROMSYS\r
	 DC	'ROMSEL'\r
	endif\r
	if CPU_Z180\r
	DC	'CBAR'\r
	DC	'BBR'\r
	else\r
	 DC	'BNK'\r
	endif\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	'F'''\r
	DC	'F'\r
	DB	0\r
b_0x136C_start:\r
	if ROMSYS\r
	 defb 000h\r
	 defw uromen\r
	endif\r
	if CPU_Z180\r
	defb 000h\r
	defw ucbar\r
	defb 000h\r
	defw ubbr\r
	else\r
	 defb 000h\r
	 defw ubnk\r
	endif\r
	defb 003h\r
	defw reg.c2\r
	defb 003h\r
	defw reg.e2\r
	defb 003h\r
	defw reg.l2\r
	defb 003h\r
	defw reg.c\r
	defb 003h\r
	defw reg.e\r
	defb 003h\r
	defw reg.l\r
	defb 000h\r
	defw reg.a2\r
	defb 000h\r
	defw reg.b2\r
	defb 000h\r
	defw reg.c2\r
	defb 000h\r
	defw reg.d2\r
	defb 000h\r
	defw reg.e2\r
	defb 000h\r
	defw reg.h2\r
	defb 000h\r
	defw reg.l2\r
	defb 000h\r
	defw reg.a\r
	defb 000h\r
	defw reg.b\r
	defb 000h\r
	defw reg.c\r
	defb 000h\r
	defw reg.d\r
	defb 000h\r
	defw reg.e\r
	defb 000h\r
	defw reg.h\r
	defb 000h\r
	defw reg.l\r
	defb 003h\r
	defw reg.ix\r
	defb 003h\r
	defw reg.iy\r
	defb 003h\r
	defw reg.sp\r
	defb 003h\r
	defw reg.pc\r
	defb 003h\r
	defw reg.ix\r
	defb 003h\r
	defw reg.iy\r
	defb 003h\r
	defw reg.sp\r
	defb 003h\r
	defw reg.pc\r
	defb 000h\r
	defw reg.i\r
	defb 000h\r
	defw reg.f2\r
	defb 000h\r
	defw reg.f\r
CMD.S:\r
	ld hl,(lst.S)\r
	call get_lastarg_def\r
l13d8h:\r
	ld (lst.S),hl\r
	call out.hl.@\r
	call OUTBL\r
	comst\r
	ld a,(hl)\r
	comend\r
	call out.hex\r
	call outbl2\r
	call INLINE\r
	call SKIPBL\r
	inc hl\r
	jr z,l13d8h\r
	dec hl\r
	inc de\r
	cp '.'\r
	jp z,assert_eol\r
	cp '-'\r
	jr nz,l1406h\r
	ld a,(de)\r
	or a\r
	dec hl\r
	jr z,l13d8h\r
	inc hl\r
l1406h:\r
	dec de\r
	call get_bytes_m\r
	jr l13d8h\r
\r
CMD.@:\r
	call assert_eol\r
	ld hl,MSG_at\r
	ld de,offs.@\r
	ld c,001h\r
	jp l1279h\r
MSG_at:\r
	dc	'@'\r
\r
CMD.I:\r
	ld hl,CMD.I\r
	ld (CMD_RPT),hl\r
	ld hl,(lst.IP)\r
	call get_lastarg_def\r
	ld (lst.IP),hl\r
	ld b,h\r
	ld c,l\r
	if CPU_Z180\r
	ld a,b\r
	or a\r
	jr nz,l1442h\r
	ld a,c\r
	ld hl,ucbar\r
	cp cbar\r
	jr z,l143fh\r
	ld hl,ubbr\r
	cp bbr\r
	jr nz,l1442h\r
l143fh:\r
	ld a,(hl)\r
	jr l1444h\r
l1442h:\r
	endif\r
	in a,(c)\r
l1444h:\r
	push af\r
	call out.hex\r
	call outbl4\r
	pop af\r
	call out.bin.b\r
	jp CRLF\r
CMD.O:\r
	ld hl,CMD.O\r
	ld (CMD_RPT),hl\r
	ld hl,(lst.OD)\r
	call get_arg_def\r
	ld a,l\r
	ld (lst.OD),a\r
	push af\r
	call skip_to_nextarg\r
	ld hl,(lst.OP)\r
	call get_lastarg_def\r
	ld (lst.OP),hl\r
	ld b,h\r
	ld c,l\r
	if CPU_Z180\r
	ld a,b\r
	or a\r
	jr nz,l1489h\r
	ld a,c\r
	ld hl,ucbar\r
	cp cbar\r
	jr z,l148dh\r
	ld hl,ubbr\r
	cp bbr\r
	jr z,l148dh\r
	cp cbr\r
	jp z,ERROR\r
l1489h:\r
	endif\r
	pop af\r
	out (c),a\r
	ret\r
	if CPU_Z180\r
l148dh:\r
	pop af\r
	ld (hl),a\r
	ret\r
	endif\r
\r
CMD.V:\r
	call get_arg3		;1490	get from, size, to\r
cmp_mem:\r
	push bc\r
	comst\r
	ld a,(de)\r
	ld b,(hl)\r
	comend\r
	cp b\r
	jr z,l14bah\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
l14bah:\r
	pop bc\r
	inc hl\r
	inc de\r
	dec bc\r
	ld a,b\r
	or c\r
	jr nz,cmp_mem\r
	ret\r
\r
CMD.M:\r
	ld a,(de)\r
	cp 'V'\r
	jr nz,bm_nv\r
	inc de\r
bm_nv:\r
	push af			;14c9	save 'V' flag\r
	call get_arg3\r
	push hl\r
	push de\r
	push bc\r
	call CP.HL.DE\r
	jr nc,bm_mvdown\r
	add hl,bc\r
	ex de,hl\r
	add hl,bc\r
	ex de,hl\r
	dec hl\r
	dec de\r
	comst\r
	lddr\r
	comend\r
	jr bm_done\r
bm_mvdown:\r
	comst\r
	ldir\r
	comend\r
bm_done:\r
	pop bc\r
	pop de\r
	pop hl\r
	pop af\r
	jr z,cmp_mem		;14ed	validate?\r
	ret\r
CMD.H:\r
	call EXPR\r
	jp c,l173ch\r
	call skip_to_nextarg\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,l1511h\r
	push hl\r
	push de\r
	add hl,de\r
	call l1511h\r
	pop de\r
	pop hl\r
	and a\r
	sbc hl,de\r
l1511h:\r
	call out.hl		;1511	val\r
	call outbl2\r
	call sub_0928h		;1517	-val\r
	call outbl4\r
	call out.hl.dec		;151d	dec\r
	call outbl2\r
	call out.hl.decm	;1523	-dec\r
	call outbl4\r
	call out.bin.w		;1529	bin\r
	call outbl2\r
	ld a,l\r
	call out.ascii\r
	jp CRLF\r
\r
CMD.Q:\r
	ld a,(de)\r
	sub 'J'\r
	ld (lst.Qj),a\r
	jr nz,l153fh\r
	inc de\r
l153fh:\r
	call get_arg_range\r
	push bc\r
	push hl\r
	call sub_15a7h\r
	pop hl\r
l1548h:\r
	call sub_1594h\r
	jr nz,l1562h\r
	push bc\r
	push hl\r
	ld a,(lst.Qj)\r
	or a\r
	jr nz,l1559h\r
	ld bc,-8\r
	add hl,bc\r
l1559h:\r
	ld bc,MEMDUMP_CNT\r
	and a\r
	call memdump\r
	pop hl\r
	pop bc\r
l1562h:\r
	inc hl\r
	ex (sp),hl\r
	dec hl\r
	ld a,h\r
	or l\r
	ex (sp),hl\r
	jr nz,l1548h\r
	pop bc\r
	ret\r
\r
CMD.Z:\r
	call get_arg_range\r
	push bc\r
	push hl\r
	call sub_15a7h\r
	ld a,b\r
	pop hl\r
	pop bc\r
	push hl\r
	ex de,hl\r
l1579h:\r
	push af\r
	ld a,(hl)\r
	comst\r
	ld (de),a\r
	comend\r
	pop af\r
	inc de\r
	cpi\r
	jp po,l1592h\r
	dec a\r
	jr nz,l1579h\r
	pop hl\r
	comst\r
	ldir\r
	comend\r
	ret\r
l1592h:\r
	pop hl\r
	ret\r
\r
sub_1594h:\r
	push hl\r
	push de\r
	push bc\r
l1597h:\r
	ld a,(de)\r
	comst\r
	cp (hl)\r
	comend\r
	jr nz,l15a3h\r
	inc de\r
	inc hl\r
	djnz l1597h\r
l15a3h:\r
	pop bc\r
	pop de\r
	pop hl\r
	ret\r
\r
sub_15a7h:\r
	ld hl,ci.buf+1\r
	call get_bytes\r
	ld de,ci.buf+1\r
	and a\r
	sbc hl,de\r
	ld b,l\r
	ret nz\r
	jp ERROR\r
\r
get_bytes:\r
	db	0e6h		;15b8  and 037h (clear carry, skip next opc)\r
get_bytes_m:\r
	scf\r
l15bah:\r
	push af\r
	call skip_to_nextarg\r
	cp 'W'\r
	jr nz,l15d9h\r
	inc de\r
	push hl\r
	call sub_0a68h\r
	ex de,hl\r
	pop bc\r
	pop af\r
	push af\r
	push bc\r
	ex (sp),hl\r
	jr nc,l15d3h\r
	comst\r
l15d3h:\r
	ld (hl),e\r
	comend\r
	inc hl\r
	ld c,d\r
	pop de\r
	jr l15e5h\r
l15d9h:\r
	cp ''''\r
	jr z,l15f1h\r
	push hl\r
	call EXPR\r
	ld c,l\r
	pop hl\r
	jr c,l1626h\r
l15e5h:\r
	pop af\r
	push af\r
	jr nc,l15edh\r
	comst\r
l15edh:\r
	ld (hl),c\r
	comend\r
	inc hl\r
	jr l161eh\r
l15f1h:\r
	inc de\r
	ld a,(de)\r
	cp ''''\r
	jr z,l1607h\r
	or a\r
	jr z,l1626h\r
l15fah:\r
	ld c,a\r
	pop af\r
	push af\r
	jr nc,l1603h\r
	comst\r
l1603h:\r
	ld (hl),c\r
	comend\r
	inc hl\r
	jr l15f1h\r
l1607h:\r
	inc de\r
	ld a,(de)\r
	cp ''''\r
	jr z,l15fah\r
	cp '.'\r
	jr nz,l161eh\r
	inc de\r
	dec hl\r
	pop af\r
	push af\r
	jr nc,l161bh\r
	comst\r
l161bh:\r
	set 7,(hl)\r
	comend\r
	inc hl\r
l161eh:\r
	pop af\r
	jr nc,l15bah\r
	ld (lst.S),hl\r
	jr l15bah\r
\r
l1626h:\r
	pop af\r
	ret nc\r
	ld (lst.S),hl\r
	ret\r
\r
CMD.D:\r
	ld hl,CMD.D\r
	ld (CMD_RPT),hl\r
	ld hl,(lst.D)\r
	ld bc,00080h\r
	call sub_0a82h\r
	scf\r
memdump:\r
	push bc\r
	push de\r
	push hl\r
	ex af,af'\r
l1640h:\r
	call out.hl.@\r
	call z,outbl2\r
	call OUTBL\r
	ld de,0\r
l164ch:\r
	comst\r
	ld a,(hl)\r
	comend\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,l1668h\r
	and 003h\r
	call z,OUTBL\r
	ld a,b\r
	or c\r
	jr nz,l164ch\r
l1668h:\r
	call OUTBL\r
	and a\r
	sbc hl,de\r
l166eh:\r
	comst\r
	ld a,(hl)\r
	comend\r
	call sub_168fh\r
	call OUTCHAR\r
	inc hl\r
	dec e\r
	jr nz,l166eh\r
	ex af,af'\r
	jr nc,l1683h\r
	ld (lst.D),hl\r
l1683h:\r
	ex af,af'\r
	call CRLF\r
	ld a,b\r
	or c\r
	jr nz,l1640h\r
	pop hl\r
	pop de\r
	pop bc\r
	ret\r
sub_168fh:\r
	and 07fh\r
	cp 07fh\r
	jr z,l1698h\r
	cp 020h\r
	ret nc\r
l1698h:\r
	ld a,02eh\r
	ret\r
\r
;	Read Intel Hex File from console.\r
CMD.R:\r
	ld hl,0\r
	call get_lastarg_def	;169e	get offset from command line\r
	push hl\r
	ld hl,0\r
	ld (HILOD),hl\r
w_recstart:\r
	call i.getchar\r
	jr z,l16deh\r
	cp ':'\r
	jr nz,w_recstart\r
	ld c,0			;16b1	init checksum\r
	call i.gethexbyte	;16b3	record len\r
	ld b,a\r
	call i.gethexbyte	;16b7	address high\r
	ld h,a\r
	call i.gethexbyte	;16bb	address low\r
	ld l,a\r
	call i.gethexbyte	;16bf	record type (ignored)\r
	ld a,b\r
	and a			;16c3	record len == 0?\r
	jr z,l16deh\r
l16c6h:\r
	call i.gethexbyte\r
	pop de			;16c9	offset\r
	push de\r
	push hl\r
	add hl,de\r
	call i.storebyte\r
	pop hl\r
	inc hl\r
	djnz l16c6h		;16d2	repeat for record len\r
	call i.gethexbyte	;16d4	checksum\r
	ld a,c\r
	and a\r
	jp nz,ERROR		;16d9	exit if checksum error\r
	jr w_recstart		;16dc	next record\r
l16deh:\r
	pop hl\r
	call i.gethexbyte\r
	jp l173fh\r
\r
i.gethexbyte:\r
	call sub_16f6h\r
	rlca\r
	rlca\r
	rlca\r
	rlca\r
	ld d,a\r
	call sub_16f6h\r
	add a,d\r
	ld d,a\r
	add a,c\r
	ld c,a\r
	ld a,d\r
	ret\r
\r
sub_16f6h:\r
	call i.getchar\r
	jr z,l16ffh\r
	call sub_0d26h\r
	ret nc\r
l16ffh:\r
	jp ERROR\r
\r
i.getchar:\r
	call $ci\r
	cp 01ah\r
	ret\r
\r
i.storebyte:\r
	push af\r
	push de\r
	ld de,TPA		;170a	lowest allowed load address\r
	call CP.HL.DE\r
	jp c,ERROR\r
	ld de,$stcka		;1713	highest allowed load address\r
	call CP.HL.DE\r
	jp nc,ERROR\r
	ld de,(HILOD)\r
	call CP.HL.DE\r
	jr c,l1728h\r
	ld (HILOD),hl\r
l1728h:\r
	ld de,(MAXLOD)\r
	call CP.HL.DE\r
	jr c,l1734h\r
	ld (MAXLOD),hl\r
l1734h:\r
	pop de\r
	pop af\r
	comst\r
	ld (hl),a		;173a	store byte\r
	comend\r
	ret\r
\r
l173ch:\r
	call assert_eol\r
l173fh:\r
	ld hl,MSG_high\r
	call PSTR\r
	ld hl,(HILOD)\r
	call out.hl\r
	ld hl,MSG_max\r
	call PSTR\r
	ld hl,(MAXLOD)\r
	call out.hl\r
	jp CRLF\r
\r
MSG_high:\r
	DC	'High = '\r
MSG_max:\r
	DC	'  Max = '\r
\r
CMD.A:\r
	ld hl,(lst.A)\r
	call get_lastarg_def\r
	push hl\r
	pop iy\r
	ld hl,l17c4h\r
	ld (CMD_ERR),hl\r
	ld (XB068),sp\r
l177ch:\r
	push iy\r
	pop hl\r
	ld (lst.A),hl\r
	ld (OFFS.pc),hl\r
	push hl\r
	call sub_1f3fh\r
	pop iy\r
	ld c,b\r
	ld de,(offs.@)\r
	ld a,d\r
	or e\r
	ld b,011h\r
	jr z,l1798h\r
	ld b,019h\r
l1798h:\r
	call OUTBL\r
	ld a,(CON.COL)\r
	cp b\r
	jr c,l1798h\r
	push bc\r
	call INLINE\r
	pop bc\r
	call SKIPBL\r
	cp '.'\r
	ret z\r
	cp '-'\r
	jr nz,l17b6h\r
	ld iy,(XB06C)\r
	jr l177ch\r
l17b6h:\r
	and a\r
	call nz,sub_17cdh\r
	ld (XB06C),iy\r
	ld b,0\r
	add iy,bc\r
	jr l177ch\r
l17c4h:\r
	call l07eah\r
	ld sp,(XB068)\r
	jr l177ch\r
\r
sub_17cdh:\r
	call SKIPBL\r
	ld hl,t_MNEMONICS\r
	call sub_0a15h\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_0x17EE_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
	jp (hl)\r
\r
b_0x17EE_start:\r
	defw l1b54h\r
\r
b_0x17F0_start:\r
	defb 088h\r
\r
b_0x17F1_start:\r
	defw l1b74h\r
\r
b_0x17F3_start:\r
	defb 080h\r
\r
b_0x17F4_start:\r
	defw l1babh\r
\r
b_0x17F6_start:\r
	defb 0a0h\r
\r
b_0x17F7_start:\r
	defw l1c14h\r
\r
b_0x17F9_start:\r
	defb 040h\r
\r
b_0x17FA_start:\r
	defw l1c38h\r
\r
b_0x17FC_start:\r
	defb 0c4h\r
\r
b_0x17FD_start:\r
	defw l1b36h\r
\r
b_0x17FF_start:\r
	defb 03fh\r
\r
b_0x1800_start:\r
	defw l1babh\r
\r
b_0x1802_start:\r
	defb 0b8h\r
\r
b_0x1803_start:\r
	defw gen.opc.ED2\r
\r
b_0x1805_start:\r
	defb 0a9h\r
\r
b_0x1806_start:\r
	defw gen.opc.ED2\r
\r
b_0x1808_start:\r
	defb 0b9h\r
\r
b_0x1809_start:\r
	defw gen.opc.ED2\r
\r
b_0x180B_start:\r
	defb 0a1h\r
\r
b_0x180C_start:\r
	defw gen.opc.ED2\r
\r
b_0x180E_start:\r
	defb 0b1h\r
\r
b_0x180F_start:\r
	defw l1b36h\r
\r
b_0x1811_start:\r
	defb 02fh\r
\r
b_0x1812_start:\r
	defw l1b36h\r
\r
b_0x1814_start:\r
	defb 027h\r
\r
b_0x1815_start:\r
	defw l1dabh\r
\r
b_0x1817_start:\r
	defb 005h\r
\r
b_0x1818_start:\r
	defw l1b36h\r
\r
b_0x181A_start:\r
	defb 0f3h\r
\r
b_0x181B_start:\r
	defw l1ca4h\r
\r
b_0x181D_start:\r
	defb 010h\r
\r
b_0x181E_start:\r
	defw l1b36h\r
\r
b_0x1820_start:\r
	defb 0fbh\r
\r
b_0x1821_start:\r
	defw l1d54h\r
\r
b_0x1823_start:\r
	defb 0e3h\r
\r
b_0x1824_start:\r
	defw l1b36h\r
\r
b_0x1826_start:\r
	defb 0d9h\r
\r
b_0x1827_start:\r
	defw l1b36h\r
\r
b_0x1829_start:\r
	defb 076h\r
\r
b_0x182A_start:\r
	defw l1cbfh\r
\r
b_0x182C_start:\r
	defb 046h\r
\r
b_0x182D_start:\r
	defw l1cf8h\r
\r
b_0x182F_start:\r
	defb 040h\r
\r
b_0x1830_start:\r
	defw l1dabh\r
\r
b_0x1832_start:\r
	defb 004h\r
\r
b_0x1833_start:\r
	defw gen.opc.ED2\r
\r
b_0x1835_start:\r
	defb 0aah\r
\r
b_0x1836_start:\r
	defw gen.opc.ED2\r
\r
b_0x1838_start:\r
	defb 0bah\r
\r
b_0x1839_start:\r
	defw gen.opc.ED2\r
\r
b_0x183B_start:\r
	defb 0a2h\r
\r
b_0x183C_start:\r
	defw gen.opc.ED2\r
\r
b_0x183E_start:\r
	defb 0b2h\r
\r
b_0x183F_start:\r
	defw l1c5eh\r
\r
b_0x1841_start:\r
	defb 0c2h\r
\r
b_0x1842_start:\r
	defw l1cabh\r
\r
b_0x1844_start:\r
	defb 020h\r
\r
b_0x1845_start:\r
	defw l1934h\r
\r
b_0x1847_start:\r
	defb 040h\r
\r
b_0x1848_start:\r
	defw gen.opc.ED2\r
\r
b_0x184A_start:\r
	defb 0a8h\r
\r
b_0x184B_start:\r
	defw gen.opc.ED2\r
\r
b_0x184D_start:\r
	defb 0b8h\r
\r
b_0x184E_start:\r
	defw gen.opc.ED2\r
\r
b_0x1850_start:\r
	defb 0a0h\r
\r
b_0x1851_start:\r
	defw gen.opc.ED2\r
\r
b_0x1853_start:\r
	defb 0b0h\r
\r
b_0x1854_start:\r
	defw gen.opc.ED2\r
\r
b_0x1856_start:\r
	defb 044h\r
\r
b_0x1857_start:\r
	defw l1b36h\r
\r
b_0x1859_start:\r
	defb 000h\r
\r
b_0x185A_start:\r
	defw l1babh\r
\r
b_0x185C_start:\r
	defb 0b0h\r
\r
b_0x185D_start:\r
	defw gen.opc.ED2\r
\r
b_0x185F_start:\r
	defb 0bbh\r
\r
b_0x1860_start:\r
	defw gen.opc.ED2\r
\r
b_0x1862_start:\r
	defb 0b3h\r
\r
b_0x1863_start:\r
	defw l1d2ch\r
\r
b_0x1865_start:\r
	defb 041h\r
\r
b_0x1866_start:\r
	defw gen.opc.ED2\r
\r
b_0x1868_start:\r
	defb 0abh\r
\r
b_0x1869_start:\r
	defw gen.opc.ED2\r
\r
b_0x186B_start:\r
	defb 0a3h\r
\r
b_0x186C_start:\r
	defw l1ce4h\r
\r
b_0x186E_start:\r
	defb 0c1h\r
\r
b_0x186F_start:\r
	defw l1ce4h\r
\r
b_0x1871_start:\r
	defb 0c5h\r
\r
b_0x1872_start:\r
	defw l1c14h\r
\r
b_0x1874_start:\r
	defb 080h\r
\r
b_0x1875_start:\r
	defw l1c50h\r
\r
b_0x1877_start:\r
	defb 0c0h\r
\r
b_0x1878_start:\r
	defw gen.opc.ED2\r
\r
b_0x187A_start:\r
	defb 04dh\r
\r
b_0x187B_start:\r
	defw gen.opc.ED2\r
\r
b_0x187D_start:\r
	defb 045h\r
\r
b_0x187E_start:\r
	defw l1bd8h\r
\r
b_0x1880_start:\r
	defb 010h\r
\r
b_0x1881_start:\r
	defw l1b36h\r
\r
b_0x1883_start:\r
	defb 017h\r
\r
b_0x1884_start:\r
	defw l1bd8h\r
\r
b_0x1886_start:\r
	defb 000h\r
\r
b_0x1887_start:\r
	defw l1b36h\r
\r
b_0x1889_start:\r
	defb 007h\r
\r
b_0x188A_start:\r
	defw gen.opc.ED2\r
\r
b_0x188C_start:\r
	defb 06fh\r
\r
b_0x188D_start:\r
	defw l1bd8h\r
\r
b_0x188F_start:\r
	defb 018h\r
\r
b_0x1890_start:\r
	defw l1b36h\r
\r
b_0x1892_start:\r
	defb 01fh\r
\r
b_0x1893_start:\r
	defw l1bd8h\r
\r
b_0x1895_start:\r
	defb 008h\r
\r
b_0x1896_start:\r
	defw l1b36h\r
\r
b_0x1898_start:\r
	defb 00fh\r
\r
b_0x1899_start:\r
	defw gen.opc.ED2\r
\r
b_0x189B_start:\r
	defb 067h\r
\r
b_0x189C_start:\r
	defw l1cd5h\r
\r
b_0x189E_start:\r
	defb 0c7h\r
\r
b_0x189F_start:\r
	defw l1b54h\r
\r
b_0x18A1_start:\r
	defb 098h\r
\r
b_0x18A2_start:\r
	defw l1b36h\r
\r
b_0x18A4_start:\r
	defb 037h\r
\r
b_0x18A5_start:\r
	defw l1c14h\r
\r
b_0x18A7_start:\r
	defb 0c0h\r
\r
b_0x18A8_start:\r
	defw l1bd8h\r
\r
b_0x18AA_start:\r
	defb 020h\r
\r
b_0x18AB_start:\r
	defw l1bd8h\r
\r
b_0x18AD_start:\r
	defb 028h\r
\r
b_0x18AE_start:\r
	defw l1bd8h\r
\r
b_0x18B0_start:\r
	defb 038h\r
\r
b_0x18B1_start:\r
	defw l1babh\r
\r
b_0x18B3_start:\r
	defb 090h\r
\r
b_0x18B4_start:\r
	defw l1babh\r
\r
b_0x18B6_start:\r
	defb 0a8h\r
\r
b_0x18B7_start:\r
	defw A.IN0\r
\r
b_0x18B9_start:\r
	defb 000h\r
\r
b_0x18BA_start:\r
	defw A.MLT\r
\r
b_0x18BC_start:\r
	defb 04ch\r
	ld b,e\r
	dec de\r
\r
b_0x18BF_start:\r
	defb 08bh\r
\r
b_0x18C0_start:\r
	defw gen.opc.ED2\r
\r
b_0x18C2_start:\r
	defb 09bh\r
\r
b_0x18C3_start:\r
	defw gen.opc.ED2\r
\r
b_0x18C5_start:\r
	defb 083h\r
\r
b_0x18C6_start:\r
	defw gen.opc.ED2\r
\r
b_0x18C8_start:\r
	defb 093h\r
\r
b_0x18C9_start:\r
	defw l18fdh\r
\r
b_0x18CB_start:\r
	defb 001h\r
\r
b_0x18CC_start:\r
	defw gen.opc.ED2\r
\r
b_0x18CE_start:\r
	defb 076h\r
\r
b_0x18CF_start:\r
	defw l191dh\r
\r
b_0x18D1_start:\r
	defb 004h\r
\r
b_0x18D2_start:\r
	defw l192ch\r
\r
b_0x18D4_start:\r
	defb 074h\r
A.IN0:\r
	call sub_1e41h\r
	jr nc,l1931h\r
	cp 006h\r
	jr z,l1931h\r
	rlca\r
	rlca\r
	rlca\r
	add a,b\r
	ld b,a\r
	call sub_1ed1h\r
	call sub_1e06h\r
l18e9h:\r
	call assert_eol\r
	comst\r
	ld (iy+000h),0edh\r
	ld (iy+001h),b\r
	ld (iy+002h),l\r
	comend\r
	ld c,003h\r
	ret\r
l18fdh:\r
	call sub_1e06h\r
	call sub_1ed1h\r
	call sub_1e41h\r
	jr nc,l1931h\r
	cp 006h\r
	jr z,l1931h\r
	rlca\r
	rlca\r
	rlca\r
	add a,b\r
	ld b,a\r
	jr l18e9h\r
A.MLT:\r
	call sub_1e2eh\r
	jr nc,l1931h\r
	add a,b\r
	ld b,a\r
	jp gen.opc.ED2\r
l191dh:\r
	call sub_1e41h\r
	jr nc,l192ah\r
	rlca\r
	rlca\r
	rlca\r
	add a,b\r
	ld b,a\r
	jp gen.opc.ED2\r
l192ah:\r
	ld b,064h\r
l192ch:\r
	call sub_1e12h\r
	jr l18e9h\r
l1931h:\r
	jp ERROR\r
l1934h:\r
	call sub_1e41h\r
	jp c,l19bfh\r
	call sub_1e68h\r
	jp c,l1a64h\r
	call sub_1e2eh\r
	jp c,l1a93h\r
	call sub_1e50h\r
	jp c,l1af0h\r
	ld a,(de)\r
	cp 049h\r
	jp z,l1b0ch\r
	cp 052h\r
	jp z,l1b14h\r
	cp 028h\r
	jp nz,ERROR\r
	inc de\r
	call sub_1e2eh\r
	jp c,l1b23h\r
	call tst_EXPR\r
	call sub_1ed8h\r
	call sub_1ed1h\r
	call sub_1e2eh\r
	jr c,l19adh\r
	call sub_1e50h\r
	jr nc,l1991h\r
	ld b,022h\r
l1978h:\r
	call assert_eol\r
	ld a,(pfx.IXY)\r
l197eh:\r
	comst\r
	ld (iy+000h),a\r
	ld (iy+001h),b\r
	ld (iy+002h),l\r
	ld (iy+003h),h\r
	comend\r
	ld c,004h\r
	ret\r
l1991h:\r
	ld a,(de)\r
	cp 041h\r
	jp nz,ERROR\r
	inc de\r
	ld b,032h\r
l199ah:\r
	call assert_eol\r
	comst\r
	ld (iy+000h),b\r
	ld (iy+001h),l\r
	ld (iy+002h),h\r
	comend\r
	ld c,003h\r
	ret\r
l19adh:\r
	cp 020h\r
	jr z,l19bbh\r
	add a,043h\r
	ld b,a\r
l19b4h:\r
	call assert_eol\r
	ld a,0edh\r
	jr l197eh\r
l19bbh:\r
	ld b,022h\r
	jr l199ah\r
l19bfh:\r
	ld b,a\r
	call sub_1ed1h\r
	call sub_1e41h\r
	jr nc,l19dbh\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
l19d7h:\r
	ld b,a\r
	jp l1b36h\r
l19dbh:\r
	call sub_1e68h\r
	jr nc,l1a02h\r
	ld a,b\r
	rlca\r
	rlca\r
	rlca\r
	add a,046h\r
	cp 076h\r
	jp z,ERROR\r
l19ebh:\r
	ld b,a\r
	call assert_eol\r
	ld a,(pfx.IXY)\r
	comst\r
	ld (iy+000h),a\r
	ld (iy+001h),b\r
	ld (iy+002h),c\r
	comend\r
	ld c,003h\r
	ret\r
l1a02h:\r
	ld a,(de)\r
	cp 'I'\r
	jr z,l1a15h\r
	cp 'R'\r
	jr nz,l1a21h\r
	ld a,b\r
	cp 007h\r
	jp nz,ERROR\r
	ld b,05fh\r
	jr l1a1dh\r
l1a15h:\r
	ld a,b\r
	cp 007h\r
	jp nz,ERROR\r
	ld b,057h\r
l1a1dh:\r
	inc de\r
	jp gen.opc.ED2\r
l1a21h:\r
	cp '('\r
	jr z,l1a3fh\r
	call sub_1e12h\r
	ld a,b			;1a28	ld r,nn\r
	rlca\r
	rlca\r
	rlca\r
	add a,006h\r
l1a2eh:\r
	ld b,a\r
l1a2fh:\r
	call assert_eol\r
	comst\r
	ld (iy+000h),b\r
	ld (iy+001h),l\r
	comend\r
	ld c,002h\r
	ret\r
l1a3fh:\r
	inc de\r
	ld a,b\r
	cp 007h\r
	jp nz,ERROR\r
	call sub_1e2eh\r
	jr nc,l1a59h\r
	cp 030h\r
	jp nc,ERROR\r
	add a,00ah\r
	ld b,a\r
	call sub_1ed8h\r
	jp l1b36h\r
l1a59h:\r
	call tst_EXPR\r
	call sub_1ed8h\r
	ld b,03ah\r
	jp l199ah\r
l1a64h:\r
	call sub_1ed1h\r
	call sub_1e41h\r
	jr nc,l1a76h\r
	cp 006h\r
	jp z,ERROR\r
	add a,070h\r
	jp l19ebh\r
l1a76h:\r
	call sub_1e12h\r
	call assert_eol\r
	ld a,(pfx.IXY)\r
	comst\r
	ld (iy+000h),a		;1a83	dd/fd\r
	ld (iy+001h),036h\r
	ld (iy+002h),c		;1a8a 	displacement\r
	ld (iy+003h),l		;1a8d	nn\r
	comend\r
	ld c,4\r
	ret\r
l1a93h:\r
	ld b,a\r
	call sub_1ed1h\r
	ld hl,t_HL.AF\r
	call sub_0a23h\r
	jr c,l1abeh\r
	call sub_1e50h\r
	jr nc,l1ac7h\r
	ld a,b\r
	cp 030h\r
	jr nz,l1b20h\r
	ld b,0f9h\r
l1aabh:\r
	call assert_eol\r
	ld a,(pfx.IXY)\r
	comst\r
	ld (iy+000h),a\r
	ld (iy+001h),b\r
	comend\r
	ld c,002h\r
	ret\r
l1abeh:\r
	ld a,b\r
	cp 030h\r
	jr nz,l1b20h\r
	ld b,0f9h\r
	jr l1b36h\r
l1ac7h:\r
	ld a,(de)\r
	cp 028h\r
	jr nz,l1ae3h\r
	inc de\r
	call tst_EXPR\r
	call sub_1ed8h\r
	ld a,b\r
	cp 020h\r
	jr z,l1adeh\r
	add a,04bh\r
	ld b,a\r
	jp l19b4h\r
l1adeh:\r
	ld b,02ah\r
	jp l199ah\r
l1ae3h:\r
	call tst_EXPR\r
	call assert_eol\r
	ld a,001h\r
	add a,b\r
	ld b,a\r
	jp l199ah\r
l1af0h:\r
	call sub_1ed1h\r
	ld a,(de)\r
	cp 028h\r
	jr nz,l1b04h\r
	inc de\r
	call tst_EXPR\r
	call sub_1ed8h\r
	ld b,02ah\r
	jp l1978h\r
l1b04h:\r
	call tst_EXPR\r
	ld b,021h\r
	jp l1978h\r
l1b0ch:\r
	inc de\r
	call sub_1ed1h\r
	ld b,047h\r
	jr l1b1ah\r
l1b14h:\r
	inc de\r
	call sub_1ed1h\r
	ld b,04fh\r
l1b1ah:\r
	ld a,(de)\r
	inc de\r
	cp 041h\r
	jr z,gen.opc.ED2\r
l1b20h:\r
	jp ERROR\r
l1b23h:\r
	cp 020h\r
	jr nc,l1b20h\r
	add a,002h\r
	ld b,a\r
	call sub_1ed8h\r
	call sub_1ed1h\r
	ld a,(de)\r
	cp 041h\r
	jr nz,l1b20h\r
	inc de\r
l1b36h:\r
	call assert_eol\r
	comst\r
	ld (iy+000h),b\r
	comend\r
	ld c,001h\r
	ret\r
gen.opc.ED2:\r
	call assert_eol\r
	comst\r
	ld (iy+000h),0edh\r
	ld (iy+001h),b\r
	comend\r
	ld c,002h\r
	ret\r
l1b54h:\r
	ld hl,t_HL.AF\r
	call sub_0a23h\r
	jr nc,l1babh\r
	call sub_1ed1h\r
	call sub_1e2eh\r
	jp nc,ERROR\r
	push af\r
	ld a,b\r
	cp 088h\r
	ld b,04ah\r
	jr z,l1b6fh\r
	ld b,042h\r
l1b6fh:\r
	pop af\r
	add a,b\r
l1b71h:\r
	ld b,a\r
	jr gen.opc.ED2\r
l1b74h:\r
	ld hl,t_HL.AF\r
	call sub_0a23h\r
	jr c,l1b9dh\r
	call sub_1e50h\r
	jr nc,l1babh\r
	call sub_1ed1h\r
	ld hl,t_BC.DE.IX.SP\r
	ld a,(pfx.IXY)\r
	cp 0fdh\r
	jr nz,l1b91h\r
	ld hl,t_BC.DE.IY.SP\r
l1b91h:\r
	call sub_1e2bh\r
	jp nc,ERROR\r
	add a,009h\r
l1b99h:\r
	ld b,a\r
	jp l1aabh\r
l1b9dh:\r
	call sub_1ed1h\r
	call sub_1e2eh\r
	jp nc,ERROR\r
	add a,009h\r
	jp l19d7h\r
l1babh:\r
	ld a,(de)\r
	cp 041h\r
	jr nz,l1bbbh\r
	push de\r
	inc de\r
	call skip_to_nextarg\r
	jr z,l1bbah\r
	pop de\r
	jr l1bbbh\r
l1bbah:\r
	pop af\r
l1bbbh:\r
	call sub_1e41h\r
	jr c,l1bceh\r
	call sub_1e68h\r
	jr c,l1bd2h\r
	call sub_1e12h\r
	ld a,b\r
	add a,046h\r
	jp l1a2eh\r
l1bceh:\r
	add a,b\r
	jp l19d7h\r
l1bd2h:\r
	ld a,b\r
	add a,006h\r
	jp l19ebh\r
l1bd8h:\r
	call sub_1e41h\r
	jr c,l1c01h\r
	call sub_1e68h\r
	jp nc,ERROR\r
	ld a,b\r
	add a,006h\r
	ld b,a\r
l1be7h:\r
	call assert_eol\r
	ld a,(pfx.IXY)\r
	comst\r
	ld (iy+000h),a\r
	ld (iy+001h),0cbh\r
	ld (iy+002h),c\r
	ld (iy+003h),b\r
	comend\r
	ld c,004h\r
	ret\r
l1c01h:\r
	add a,b\r
l1c02h:\r
	ld b,a\r
	call assert_eol\r
	comst\r
	ld (iy+000h),0cbh\r
	ld (iy+001h),b\r
	comend\r
	ld c,002h\r
	ret\r
l1c14h:\r
	call sub_1de6h\r
	call sub_1ed1h\r
	call sub_1e41h\r
	jr c,l1c2fh\r
	call sub_1e68h\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 l1be7h\r
l1c2fh:\r
	add a,b\r
	ld b,a\r
	ld a,l\r
	rlca\r
	rlca\r
	rlca\r
	add a,b\r
	jr l1c02h\r
l1c38h:\r
	push de\r
	call sub_1eb8h\r
	jr nc,l1c47h\r
	add a,b\r
	ld b,a\r
	call skip_to_nextarg\r
	jr z,l1c49h\r
	pop de\r
	push de\r
l1c47h:\r
	ld b,0cdh\r
l1c49h:\r
	pop af\r
	call tst_EXPR\r
	jp l199ah\r
l1c50h:\r
	call sub_1eb8h\r
	jr nc,l1c59h\r
	add a,b\r
	ld b,a\r
	jr l1c5bh\r
l1c59h:\r
	ld b,0c9h\r
l1c5bh:\r
	jp l1b36h\r
l1c5eh:\r
	push de\r
	call sub_1eb8h\r
	jr c,l1c71h\r
l1c64h:\r
	pop de\r
	ld hl,b_0x1C97_start\r
	call sub_0a15h\r
	jr c,l1c7fh\r
	ld b,0c3h\r
	jr l1c79h\r
l1c71h:\r
	add a,b\r
	ld b,a\r
	call skip_to_nextarg\r
	jr nz,l1c64h\r
	pop af\r
l1c79h:\r
	call tst_EXPR\r
	jp l199ah\r
l1c7fh:\r
	call assert_eol\r
	ld a,b\r
	and a\r
	jr nz,l1c8bh\r
	ld b,0e9h\r
	jp l1b36h\r
l1c8bh:\r
	ld b,0ddh\r
	dec a\r
	jr z,l1c92h\r
	ld b,0fdh\r
l1c92h:\r
	ld l,0e9h\r
	jp l1a2fh\r
\r
b_0x1C97_start:\r
	DC	'(HL)'\r
	DC	'(IX)'\r
	DC	'(IY)'\r
	DB	0\r
\r
l1ca4h:\r
	call skip_to_nextarg\r
	ld b,010h\r
	jr l1cb9h\r
l1cabh:\r
	call sub_1ebfh\r
	jr c,l1cb4h\r
	ld b,018h\r
	jr l1cb9h\r
l1cb4h:\r
	add a,b\r
	ld b,a\r
	call sub_1ed1h\r
l1cb9h:\r
	call sub_1defh\r
	jp l1a2fh\r
l1cbfh:\r
	call sub_1e12h\r
	ld a,l\r
	cp 003h\r
	jr nc,l1d23h\r
	and a\r
	jr z,l1cd2h\r
	ld b,056h\r
	cp 001h\r
	jr z,l1cd2h\r
	ld b,05eh\r
l1cd2h:\r
	jp gen.opc.ED2\r
l1cd5h:\r
	call sub_1e12h\r
	ld a,l\r
	push af\r
	add a,b\r
	ld b,a\r
	pop af\r
	and 0c7h\r
	jr nz,l1d23h\r
	jp l1b36h\r
l1ce4h:\r
	call sub_1e50h\r
	jr c,l1cf2h\r
	call sub_1e25h\r
	jr nc,l1d23h\r
	add a,b\r
	jp l19d7h\r
l1cf2h:\r
	ld a,b\r
	add a,020h\r
	jp l1b99h\r
l1cf8h:\r
	call sub_1e41h\r
	jr nc,l1d23h\r
	cp 006h\r
	jr z,l1d23h\r
	rlca\r
	rlca\r
	rlca\r
	add a,b\r
	ld b,a\r
	cp 078h\r
	jr nz,l1d1ah\r
	call sub_1ed1h\r
	call sub_1d26h\r
	jr c,l1d20h\r
	call sub_1e06h\r
	ld b,0dbh\r
	jp l1a2fh\r
l1d1ah:\r
	call sub_1ed1h\r
	call sub_1d26h\r
l1d20h:\r
	jp c,gen.opc.ED2\r
l1d23h:\r
	jp ERROR\r
sub_1d26h:\r
	ld hl,t__C_\r
	jp sub_0a23h\r
l1d2ch:\r
	call sub_1d26h\r
	jr nc,l1d44h\r
	call sub_1ed1h\r
	call sub_1e41h\r
	jr nc,l1d23h\r
	cp 006h\r
	jr z,l1d23h\r
	rlca\r
	rlca\r
	rlca\r
	add a,b\r
	jp l1b71h\r
l1d44h:\r
	call sub_1e06h\r
	call sub_1ed1h\r
	cp 041h\r
	jr nz,l1d23h\r
	inc de\r
	ld b,0d3h\r
	jp l1a2fh\r
l1d54h:\r
	ld hl,b_0x1D80_start\r
	call sub_0a15h\r
	jp nc,ERROR\r
	ld c,b\r
	call assert_eol\r
	ld b,000h\r
	ld hl,b_0x1DA1_start\r
	add hl,bc\r
	add hl,bc\r
	ld a,(hl)\r
	comst\r
	ld (iy+000h),a\r
	comend\r
	ld c,001h\r
	inc hl\r
	ld a,(hl)\r
	and a\r
	ret z\r
	comst\r
	ld (iy+001h),a\r
	comend\r
	ld c,002h\r
	ret\r
\r
b_0x1D80_start:\r
	DC	'AF,AF'''\r
l1d86h:\r
	DC	'DE,HL'\r
	DC	'(SP),HL'\r
	DC	'(SP),IX'\r
	DC	'(SP),IY'\r
	db	000h\r
\r
b_0x1DA1_start:\r
	db	008h\r
	db	000h\r
	db	0ebh\r
	db	000h\r
	db	0e3h\r
	db	000h\r
	db	0ddh\r
	db	0e3h\r
	db	0fdh\r
	db	0e3h\r
l1dabh:\r
	call sub_1e50h\r
	jr c,l1dc6h\r
	call sub_1e2eh\r
	jr c,l1dd2h\r
	call sub_1e41h\r
	jr c,l1ddfh\r
	call sub_1e68h\r
	jp nc,ERROR\r
	ld a,b\r
	add a,030h\r
	jp l19ebh\r
l1dc6h:\r
	ld a,b\r
	ld b,023h\r
	cp 004h\r
	jr z,l1dcfh\r
	ld b,02bh\r
l1dcfh:\r
	jp l1aabh\r
l1dd2h:\r
	push af\r
	ld a,b\r
	ld b,003h\r
	cp 004h\r
	jr z,l1ddch\r
	ld b,00bh\r
l1ddch:\r
	pop af\r
	jr l1de2h\r
l1ddfh:\r
	rlca\r
	rlca\r
	rlca\r
l1de2h:\r
	add a,b\r
	jp l19d7h\r
sub_1de6h:\r
	call sub_1e12h\r
	ld a,l\r
	cp 008h\r
	jr nc,error1\r
	ret\r
sub_1defh:\r
	call tst_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_1e15h\r
	ld a,h\r
	xor l\r
	bit 7,a\r
	jr nz,error1\r
	ret\r
sub_1e06h:\r
	ld a,(de)\r
	cp 028h\r
	jr nz,sub_1e12h\r
	inc de\r
	call sub_1e12h\r
	jp sub_1ed8h\r
\r
sub_1e12h:\r
	call tst_EXPR\r
sub_1e15h:\r
	ld a,h\r
	and a\r
	ret z\r
	inc a\r
	ret z\r
	jr error1\r
\r
tst_EXPR:\r
	push bc\r
	call EXPR\r
	pop bc\r
	ret nc\r
error1:\r
	jp ERROR\r
sub_1e25h:\r
	push hl\r
	ld hl,t_BC.DE.HL.AF\r
	jr l1e32h\r
sub_1e2bh:\r
	push hl\r
	jr l1e32h\r
sub_1e2eh:\r
	push hl\r
	ld hl,t_BC.DE.HL.SP\r
l1e32h:\r
	push bc\r
	call sub_0a15h\r
	jr nc,l1e3eh\r
	ld a,b\r
	rlca\r
	rlca\r
	rlca\r
	rlca\r
	scf\r
l1e3eh:\r
	pop bc\r
	pop hl\r
	ret\r
sub_1e41h:\r
	call SKIPBL\r
	push bc\r
	push hl\r
	ld hl,t_BCDEHL_HL_A\r
	call sub_0a15h\r
	ld a,b\r
	pop hl\r
	pop bc\r
	ret\r
sub_1e50h:\r
	push hl\r
	push bc\r
	ld hl,t_IX.IY\r
	call sub_0a15h\r
	jr nc,l1e65h\r
	ld a,0ddh\r
	dec b\r
	jr nz,l1e61h\r
	ld a,0fdh\r
l1e61h:\r
	ld (pfx.IXY),a\r
	scf\r
l1e65h:\r
	pop bc\r
	pop hl\r
	ret\r
sub_1e68h:\r
	push hl\r
	push bc\r
	ld a,(de)\r
	cp '('\r
	jr nz,l1eb4h\r
	push de\r
	inc de\r
	ld hl,t_IX.IY\r
	call sub_0a15h\r
	jr nc,l1eb3h\r
	pop af\r
	ld a,0ddh\r
	dec b\r
	jr nz,l1e81h\r
	ld a,0fdh\r
l1e81h:\r
	ld (pfx.IXY),a\r
	ld a,(de)\r
	cp '+'\r
	jr z,l1e95h\r
	cp ')'\r
	ld hl,0\r
	jr z,l1eadh\r
	cp '-'\r
	jp nz,ERROR\r
l1e95h:\r
	push af\r
	inc de\r
	call sub_1e12h		;1e97	get displacement\r
	pop af\r
	cp '+'\r
	jr z,l1ea7h\r
	ld b,h\r
	ld c,l\r
	ld hl,0\r
	and a\r
	sbc hl,bc\r
l1ea7h:\r
	ld a,(de)\r
	cp ')'\r
	jp nz,ERROR\r
l1eadh:\r
	inc de\r
	pop bc\r
	ld c,l\r
	pop hl\r
	scf\r
	ret\r
l1eb3h:\r
	pop de\r
l1eb4h:\r
	pop bc\r
	pop hl\r
	and a\r
	ret\r
sub_1eb8h:\r
	ld hl,t_tstfl_ZCPS\r
	ld c,007h\r
	jr l1ec4h\r
sub_1ebfh:\r
	ld hl,t_tstfl_ZC\r
	ld c,003h\r
l1ec4h:\r
	push bc\r
	call sub_0a15h\r
	ld a,b\r
	pop bc\r
	ret nc\r
	and c\r
	rlca\r
	rlca\r
	rlca\r
	scf\r
	ret\r
sub_1ed1h:\r
	call skip_to_nextarg\r
	ret z\r
l1ed5h:\r
	jp ERROR\r
sub_1ed8h:\r
	ld a,(de)\r
	cp 029h\r
	jr nz,l1ed5h\r
	inc de\r
	ret\r
CMD.L:\r
	ld hl,CMD.L\r
	ld (CMD_RPT),hl\r
	call EXPR\r
	jr nc,l1eedh\r
	ld hl,(lst.L)\r
l1eedh:\r
	push hl\r
	pop iy\r
	call skip_to_nextarg\r
	call sub_0aa5h\r
	jr nc,l1f17h\r
	call assert_eol\r
	ld b,010h\r
l1efdh:\r
	push bc\r
	push iy\r
	pop hl\r
	push hl\r
	call sub_1f3fh\r
	call CRLF\r
	pop iy\r
	ld c,b\r
	ld b,000h\r
	add iy,bc\r
	ld (lst.L),iy\r
	pop bc\r
	djnz l1efdh\r
	ret\r
l1f17h:\r
	call assert_eol\r
	ld h,b\r
	ld l,c\r
	ld a,b\r
	or c\r
	jr nz,l1f21h\r
	dec hl\r
l1f21h:\r
	push hl\r
	push iy\r
	pop hl\r
	push hl\r
	call sub_1f3fh\r
	call CRLF\r
	pop iy\r
	ld e,b\r
	ld d,000h\r
	add iy,de\r
	ld (lst.L),iy\r
	pop hl\r
	and a\r
	sbc hl,de\r
	ret z\r
	ret c\r
	jr l1f21h\r
sub_1f3fh:\r
	call out.hl.@\r
	call z,OUTBL\r
	call OUTBL\r
	sub a\r
	ld (CON.COL),a\r
	call sub_1f77h\r
	and a\r
	ret z\r
l1f51h:\r
	call OUTBL\r
	ld a,(CON.COL)\r
	cp 010h\r
	jr c,l1f51h\r
sub_1f5bh:\r
	ld de,(offs.@)\r
	ld a,d\r
	or e\r
	ret z\r
	ld a,'('\r
	call OUTCHAR\r
	ld a,'@'\r
	call OUTCHAR\r
	and a\r
	sbc hl,de\r
	call out.hl\r
	ld a,')'\r
	jp OUTCHAR\r
sub_1f77h:\r
	sub a\r
	ld (XBE03),a\r
	call sub_1f9eh\r
	jr nc,l1f91h\r
	push bc\r
	call sub_2581h\r
	ex de,hl\r
	call sub_1fdbh\r
	pop bc\r
	ld a,(XBE03)\r
	ld hl,(XBE01)\r
	scf\r
	ret\r
l1f91h:\r
	ld hl,b_0x1F9B_start\r
	call PSTR\r
	ld b,001h\r
	sub a\r
	ret\r
\r
b_0x1F9B_start:\r
	DC	'???'\r
\r
sub_1f9eh:\r
	sub a\r
	ld (is.pfx.IXY),a\r
	comst\r
	ld a,(iy+000h)\r
	comend\r
	cp 0edh\r
	jp z,disas_pfx.ED\r
	cp 0ddh\r
	jr z,l1fc5h\r
	cp 0fdh\r
	jr z,l1fc9h\r
sub_1fb6h:\r
	comst\r
	ld a,(iy+000h)\r
	comend\r
	cp 0cbh\r
	jp z,l2061h\r
	jp l2078h\r
l1fc5h:\r
	ld a,001h\r
	jr l1fcbh\r
l1fc9h:\r
	ld a,002h\r
l1fcbh:\r
	ld (is.pfx.IXY),a\r
	call sub_1fdch\r
	ret nc\r
	push bc\r
	call sub_1fb6h\r
	pop af\r
	add a,b\r
	ld b,a\r
	scf\r
	ret\r
\r
sub_1fdbh:\r
	jp (hl)\r
\r
sub_1fdch:\r
	inc iy\r
	ld hl,b_0x2011_start\r
	call sub_20bbh\r
	ld b,002h\r
	ret c\r
	ld hl,l202ch\r
	call sub_20bbh\r
	ld b,001h\r
	ret c\r
	comst\r
	ld a,(iy+000h)\r
	comend\r
	cp 0cbh\r
	jr nz,l200fh\r
	comst\r
	ld a,(iy+002h)\r
	comend\r
	cp 036h\r
	ret z\r
	and 007h\r
	cp 006h\r
	jr nz,l200fh\r
	ld b,002h\r
	scf\r
	ret\r
l200fh:\r
	and a\r
	ret\r
\r
b_0x2011_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	076h\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	000h\r
l202ch:\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	000h\r
\r
disas_pfx.ED:\r
	inc iy\r
	ld hl,b_0x2200_start\r
	call sub_209dh\r
	ld b,002h\r
	ret c\r
	ld hl,l2235h\r
	call lookup_opc\r
	ld b,002h\r
	ret c\r
	ld hl,l228bh\r
	call lookup_opc\r
	ld b,003h\r
	ret c\r
	ld hl,l22b4h\r
	call lookup_opc\r
	ld b,004h\r
	ret\r
l2061h:\r
	push iy\r
	inc iy\r
	ld a,(is.pfx.IXY)\r
	and a\r
	jr z,l206dh\r
	inc iy\r
l206dh:\r
	ld hl,l22c9h\r
	call lookup_opc\r
	pop iy\r
	ld b,002h\r
	ret\r
l2078h:\r
	ld hl,b_0x218B_start\r
	call lookup_opc\r
	ld b,002h\r
	ret c\r
	ld hl,b_0x20ED_start\r
	call sub_209dh\r
	ld b,001h\r
	ret c\r
	ld hl,b_0x2108_start\r
	call lookup_opc\r
	ld b,001h\r
	ret c\r
	ld hl,b_0x21D2_start\r
	call lookup_opc\r
	ret nc\r
	ld b,003h\r
	ret\r
\r
sub_209dh:\r
	ld a,(hl)\r
	cp 0ffh\r
	ret z\r
	comst\r
	cp (iy+000h)\r
	comend\r
	jr z,l20aeh\r
	inc hl\r
	inc hl\r
	jr sub_209dh\r
l20aeh:\r
	inc hl\r
	ld c,(hl)\r
	ld hl,t_MNEMONICS\r
	ld b,000h\r
	add hl,bc\r
	ld de,l230bh\r
	scf\r
	ret\r
sub_20bbh:\r
	ld a,(hl)\r
	and a\r
	ret z\r
	inc hl\r
	comst\r
	cp (iy+000h)\r
	comend\r
	jr nz,sub_20bbh\r
	scf\r
	ret\r
\r
lookup_opc:\r
	comst\r
	ld a,(iy+000h)\r
	comend\r
	and (hl)\r
	inc hl\r
	cp (hl)\r
	jr z,l20dfh\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
l20dfh:\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
b_0x20ED_start:			;	1 byte opcodes (no parameters)\r
	db	076h		;20ed	halt\r
	db	039h		;20ee\r
	db	0d9h		;20ef	exx\r
	db	036h\r
	db	0f3h		;20f1	di\r
	db	02ch\r
	db	0fbh		;20f3	ei\r
	db	032h\r
	db	000h		;20f5	nop\r
	db	069h\r
	db	007h		;20f7	rlca\r
	db	09eh\r
	db	00fh		;20f9	rrca\r
	db	0adh\r
	db	017h		;20fb	rla\r
	db	098h\r
	db	01fh		;20fd	rra\r
	db	0a7h\r
	db	027h		;20ff	daa\r
	db	026h\r
	db	02fh		;2101	cpl\r
	db	023h\r
	db	037h		;2103	scf\r
	db	0bah\r
	db	03fh		;2105	ccf\r
	db	010h\r
	db	0ffh		;2107	EOT\r
\r
b_0x2108_start:			;	1 byte opcodes\r
	defb 0c0h		;2108	ld r,r\r
	defb 040h\r
	defb 056h\r
	defw l22fch\r
\r
	defb 0f8h		;210d	add a,r\r
	defb 080h\r
	defb 003h\r
	defw l2305h\r
\r
	defb 0f8h		;2112	adc a,r\r
	defb 088h\r
	defb 000h\r
	defw l2305h\r
\r
	defb 0f8h\r
	defb 090h\r
	defb 0c9h\r
	defw l24ebh\r
\r
	defb 0f8h\r
	defb 098h\r
	defb 0b7h\r
	defw l2305h\r
\r
	defb 0f8h\r
	defb 0a0h\r
	defb 006h\r
	defw l24ebh\r
\r
	defb 0f8h\r
	defb 0a8h\r
	defb 0cch\r
	defw l24ebh\r
\r
	defb 0f8h\r
	defb 0b0h\r
	defb 06ch\r
	defw l24ebh\r
\r
	defb 0f8h\r
	defb 0b8h\r
	defb 013h\r
	defw l24ebh\r
\r
	defb 0c7h\r
	defb 0c0h		;2136	ret cc\r
	defb 08bh\r
	defw l2561h\r
\r
	defb 0c7h		;213a	rst\r
	defb 0c7h\r
	defb 0b4h\r
	defw l231eh\r
\r
	defb 0ffh		;213f	ret\r
	defb 0c9h\r
	defb 08bh\r
	defw l230bh\r
\r
	defb 0cfh		;2144	pop rr\r
	defb 0c1h\r
	defb 081h\r
	defw l2546h\r
\r
	defb 0cfh		;2149	push rr\r
	defb 0c5h\r
	defb 084h\r
	defw l2546h\r
\r
	defb 0ffh		;214e	ex (sp),hl\r
	defb 0e3h\r
	defb 034h\r
	defw l232ah\r
\r
	defb 0ffh		;2153	jp (hl)\r
	defb 0e9h\r
	defb 052h\r
	defw l2338h\r
\r
	defb 0ffh		;2158	ex de,hl\r
	defb 0ebh\r
	defb 034h\r
	defw l2345h\r
\r
	defb 0ffh		;215d	ld sp,hl\r
	defb 0f9h\r
	defb 056h\r
	defw l234bh\r
\r
	defb 0cfh		;2162	inc rr\r
	defb 003h\r
	defb 041h\r
	defw l254bh\r
\r
	defb 0cfh		;2167	dec rr\r
	defb 00bh\r
	defb 029h\r
	defw l254bh\r
\r
	defb 0c7h		;216c	inc r\r
	defb 004h\r
	defb 041h\r
	defw l24dfh\r
\r
	defb 0c7h		;2171	dec r\r
	defb 005h\r
	defb 029h\r
	defw l24dfh\r
\r
	defb 0ffh		;2176	ex af,af'\r
	defb 008h\r
	defb 034h\r
	defw l2357h\r
\r
	defb 0cfh		;217b	add hl,rr\r
	defb 009h\r
	defb 003h\r
	defw l235dh\r
\r
	defb 0efh		;2180	ld (rr),a ;rr=bc,de\r
	defb 002h\r
	defb 056h\r
	defw l2366h\r
\r
	defb 0efh		;2185	ld a,(rr) ;rr=bc,de\r
	defb 00ah\r
	defb 056h\r
	defw l236fh\r
\r
	defb 000h		;218a	EOT\r
\r
b_0x218B_start:			;	2 byte opdodes\r
	defb 0c7h		;218b	ld r,nn\r
	defb 006h\r
	defb 056h\r
	defw l2384h\r
\r
	defb 0ffh		;2190	add a,nn\r
	defb 0c6h\r
	defb 003h\r
	defw l237fh\r
\r
	defb 0ffh		;2195	adc a,nn\r
	defb 0ceh\r
	defb 000h\r
	defw l237fh\r
\r
	defb 0ffh		;219a	sub a,nn\r
	defb 0d6h\r
	defb 0c9h\r
	defw l2397h\r
\r
	defb 0ffh\r
	defb 0deh\r
	defb 0b7h\r
	defw l237fh\r
\r
	defb 0ffh		;21a4	and a,nn\r
	defb 0e6h\r
	defb 006h\r
	defw l2397h\r
\r
	defb 0ffh\r
	defb 0eeh\r
	defb 0cch\r
	defw l2397h\r
\r
	defb 0ffh\r
	defb 0f6h\r
	defb 06ch\r
	defw l2397h\r
\r
	defb 0ffh		;21b3	cp a,nn\r
	defb 0feh\r
	defb 013h\r
	defw l2397h\r
\r
	defb 0ffh		;21b8	djnz\r
	defb 010h\r
	defb 02eh\r
	defw l23b0h\r
\r
	defb 0ffh		;21bd	jr\r
	defb 018h\r
	defb 054h\r
	defw l23b0h\r
\r
	defb 0e7h		;21c2	jr,cc\r
	defb 020h\r
	defb 054h\r
	defw l23a1h\r
\r
	defb 0ffh\r
	defb 0d3h		;21c8	out (nn),a\r
	defb 076h\r
	defw l23d5h\r
\r
	defb 0ffh		;21cc	in a,(nn)\r
	defb 0dbh\r
	defb 03fh\r
	defw l23c3h\r
\r
	defb 000h		;21d1	EOT\r
\r
b_0x21D2_start:			;	3 byte opcodes\r
	defb 0c7h\r
	defb 0c2h\r
	defb 052h\r
	defw l23e0h\r
\r
	defb 0c7h\r
	defb 0c4h\r
	defb 00ch\r
	defw l23e0h\r
\r
	defb 0cfh\r
	defb 001h\r
	defb 056h\r
	defw l23fch\r
\r
	defb 0ffh\r
	defb 0c3h\r
	defb 052h\r
	defw l23e6h\r
\r
	defb 0ffh\r
	defb 0cdh\r
	defb 00ch\r
	defw l23e6h\r
\r
	defb 0ffh\r
	defb 022h\r
	defb 056h\r
	defw l2404h\r
\r
	defb 0ffh\r
	defb 02ah\r
	defb 056h\r
	defw l240dh\r
\r
	defb 0ffh\r
	defb 032h\r
	defb 056h\r
	defw l2416h\r
\r
	defb 0ffh\r
	defb 03ah\r
	defb 056h\r
	defw l2421h\r
\r
	defb 000h\r
\r
b_0x2200_start:			;	prefix ED + 1 byte opcode\r
	defb 044h		;2200	neg\r
	defb 066h\r
	defb 045h		;2202	retn\r
	defb 092h\r
	defb 04dh		;2204	reti\r
	defb 08eh\r
	defb 067h		;2206	rrd\r
	defb 0b1h\r
	defb 06fh		;2208	rld\r
	defb 0a2h\r
	defb 0a0h		;220a	ldi\r
	defb 05fh\r
	defb 0a1h\r
	defb 01ch\r
	defb 0a2h\r
	defb 04bh\r
	defb 0a3h\r
	defb 07dh\r
	defb 0a8h		;2212	ldd\r
	defb 058h\r
	defb 0a9h\r
	defb 015h\r
	defb 0aah\r
	defb 044h\r
	defb 0abh\r
	defb 079h\r
	defb 0b0h		;221a	ldir\r
	defb 062h\r
	defb 0b1h\r
	defb 01fh\r
	defb 0b2h\r
	defb 04eh\r
	defb 0b3h\r
	defb 072h\r
	defb 0b8h		;2222	lddr\r
	defb 05bh\r
	defb 0b9h\r
	defb 018h\r
	defb 0bah\r
	defb 047h\r
	defb 0bbh\r
	defb 06eh\r
	defb 08bh		;222a	otdm\r
	defb 0d5h\r
	defb 09bh		;222c	otdmr\r
	defb 0d9h\r
	defb 083h		;222e	otim\r
	defb 0deh\r
	defb 093h		;2230	otimr\r
	defb 0e2h\r
	defb 076h		;2232	slp\r
	defb 0ebh\r
	defb 0ffh		;2234	EOT\r
\r
l2235h:\r
	defb 0e7h		;2235	in r,(c) ;r=bcde\r
	defb 040h\r
	defb 03fh\r
	defw l2455h\r
\r
	defb 0f7h		;223a	in r,(c) ;r=hl\r
	defb 060h\r
	defb 03fh\r
	defw l2455h\r
\r
	defb 0ffh		;223f	in r,(c) ;r=a\r
	defb 078h\r
	defb 03fh\r
	defw l2455h\r
\r
	defb 0e7h\r
	defb 041h\r
	defb 076h\r
	defw l2461h\r
\r
	defb 0f7h\r
	defb 061h\r
	defb 076h\r
	defw l2461h\r
\r
	defb 0ffh		;224e	out (c),r ;r=a\r
	defb 079h\r
	defb 076h\r
	defw l2461h\r
\r
	defb 0cfh		;2253	sbc hl,rr\r
	defb 042h\r
	defb 0b7h\r
	defw l246dh\r
\r
	defb 0cfh		;2258	adc hl,rr\r
	defb 04ah\r
	defb 000h\r
	defw l246dh\r
\r
	defb 0ffh		;225d	im 0\r
	defb 046h\r
	defb 03dh\r
	defw l2427h\r
\r
	defb 0ffh		;2262	im 1\r
	defb 056h\r
	defb 03dh\r
	defw l242bh\r
\r
	defb 0ffh		;2267	im 2\r
	defb 05eh\r
	defb 03dh\r
	defw l242fh\r
\r
	defb 0ffh		;226c	ld i,a\r
	defb 047h\r
	defb 056h\r
	defw l2434h\r
\r
	defb 0ffh\r
	defb 057h\r
	defb 056h\r
	defw l2439h\r
\r
	defb 0ffh\r
	defb 04fh\r
	defb 056h\r
	defw l243eh\r
\r
	defb 0ffh\r
	defb 05fh\r
	defb 056h\r
	defw l2443h\r
\r
	defb 0cfh		;2280	mlt rr\r
	defb 04ch\r
	defb 0d2h\r
	defw l254bh\r
\r
	defb 0c7h		;2285	tst r\r
	defb 004h\r
	defb 0eeh\r
	defw l24dfh\r
\r
	defb 000h\r
\r
l228bh:\r
	defb 0e7h\r
	defb 000h\r
	defb 0cfh\r
\r
b_0x228E_start:\r
	defw l230ch\r
\r
b_0x2290_start:\r
	defb 0f7h\r
	defb 020h\r
	defb 0cfh\r
\r
b_0x2293_start:\r
	defw l230ch\r
\r
b_0x2295_start:\r
	defb 0ffh\r
	defb 038h\r
	defb 0cfh\r
\r
b_0x2298_start:\r
	defw l230ch\r
\r
b_0x229A_start:\r
	defb 0e7h\r
	defb 001h\r
	defb 0e7h\r
\r
b_0x229D_start:\r
	defw l2315h\r
\r
b_0x229F_start:\r
	defb 0f7h\r
	defb 021h\r
	defb 0e7h\r
\r
b_0x22A2_start:\r
	defw l2315h\r
\r
b_0x22A4_start:\r
	defb 0ffh\r
	defb 039h\r
	defb 0e7h\r
\r
b_0x22A7_start:\r
	defw l2315h\r
\r
b_0x22A9_start:\r
	defb 0ffh\r
	defb 064h\r
	defb 0eeh\r
\r
b_0x22AC_start:\r
	defw l2397h\r
\r
b_0x22AE_start:\r
	defb 0ffh\r
	defb 074h\r
	defb 0f1h\r
\r
b_0x22B1_start:\r
	defw l2397h\r
\r
b_0x22B3_start:\r
	defb 000h\r
l22b4h:\r
	defb 0efh\r
	defb 043h\r
	defb 056h\r
\r
b_0x22B7_start:\r
	defw l2476h\r
\r
b_0x22B9_start:\r
	defb 0ffh\r
	defb 073h\r
	defb 056h\r
\r
b_0x22BC_start:\r
	defw l2476h\r
\r
b_0x22BE_start:\r
	defb 0efh\r
	defb 04bh\r
	defb 056h\r
\r
b_0x22C1_start:\r
	defw l247fh\r
\r
b_0x22C3_start:\r
	defb 0ffh\r
	defb 07bh\r
	defb 056h\r
\r
b_0x22C6_start:\r
	defw l247fh\r
\r
b_0x22C8_start:\r
	defb 000h\r
l22c9h:\r
	defb 0f8h\r
	defb 000h\r
	defb 09bh\r
\r
b_0x22CC_start:\r
	defw l24aeh\r
\r
b_0x22CE_start:\r
	defb 0f8h\r
	defb 008h\r
	defb 0aah\r
\r
b_0x22D1_start:\r
	defw l24aeh\r
\r
b_0x22D3_start:\r
	defb 0f8h\r
	defb 010h\r
	defb 096h\r
\r
b_0x22D6_start:\r
	defw l24aeh\r
\r
b_0x22D8_start:\r
	defb 0f8h\r
	defb 018h\r
	defb 0a5h\r
\r
b_0x22DB_start:\r
	defw l24aeh\r
\r
b_0x22DD_start:\r
	defb 0f8h\r
	defb 020h\r
	defb 0c0h\r
\r
b_0x22E0_start:\r
	defw l24aeh\r
\r
b_0x22E2_start:\r
	defb 0f8h\r
	defb 028h\r
	defb 0c3h\r
\r
b_0x22E5_start:\r
	defw l24aeh\r
\r
b_0x22E7_start:\r
	defb 0f8h\r
	defb 038h\r
	defb 0c6h\r
\r
b_0x22EA_start:\r
	defw l24aeh\r
\r
b_0x22EC_start:\r
	defb 0c0h\r
	defb 040h\r
	defb 009h\r
\r
b_0x22EF_start:\r
	defw l2487h\r
\r
b_0x22F1_start:\r
	defb 0c0h\r
	defb 080h\r
	defb 088h\r
\r
b_0x22F4_start:\r
	defw l2487h\r
\r
b_0x22F6_start:\r
	defb 0c0h\r
	defb 0c0h\r
	defb 0bdh\r
\r
b_0x22F9_start:\r
	defw l2487h\r
\r
b_0x22FB_start:\r
	defb 000h\r
l22fch:\r
	call l24dfh\r
	call sub_257ch\r
	jp l24ebh\r
l2305h:\r
	call sub_2579h\r
	jp l24ebh\r
l230bh:\r
	ret\r
l230ch:\r
	call l24dfh\r
	call sub_257ch\r
	jp l23c6h\r
l2315h:\r
	call l23c6h\r
	call sub_257ch\r
	jp l24dfh\r
l231eh:\r
	comst\r
	ld a,(iy+000h)\r
	comend\r
	and 038h\r
	jp out.hex\r
l232ah:\r
	ld hl,b_0x2333_start\r
	call PSTR\r
	jp l253eh\r
\r
b_0x2333_start:\r
	DC	'(SP),'\r
\r
l2338h:\r
	ld a,'('\r
	call OUTCHAR\r
	call l253eh\r
	ld a,')'\r
	jp OUTCHAR\r
l2345h:\r
	ld hl,l1d86h\r
	jp PSTR\r
l234bh:\r
	ld hl,b_0x2354_start\r
	call PSTR\r
	jp l253eh\r
\r
b_0x2354_start:\r
	DC	'SP,'\r
\r
l2357h:\r
	ld hl,b_0x1D80_start\r
	jp PSTR\r
l235dh:\r
	call l253eh\r
	call sub_257ch\r
	jp l254bh\r
l2366h:\r
	call sub_2372h\r
	call sub_257ch\r
	jp l23dbh\r
l236fh:\r
	call sub_2579h\r
sub_2372h:\r
	ld a,'('\r
	call OUTCHAR\r
	call l254bh\r
	ld a,')'\r
	jp OUTCHAR\r
l237fh:\r
	call sub_2579h\r
	jr l2397h\r
l2384h:\r
	call l24dfh\r
	call sub_257ch\r
	ld a,(is.pfx.IXY)\r
	and a\r
	comst\r
	ld a,(iy+002h)\r
	comend\r
	jr nz,l239eh\r
l2397h:\r
	comst\r
	ld a,(iy+001h)\r
	comend\r
l239eh:\r
	jp out.hex\r
l23a1h:\r
	comst\r
	ld a,(iy+000h)\r
	comend\r
	and 018h\r
	call sub_2568h\r
	call sub_257ch\r
l23b0h:\r
	comst\r
	ld c,(iy+001h)\r
	comend\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 l23f0h\r
l23c3h:\r
	call sub_2579h\r
l23c6h:\r
	ld a,028h\r
	call OUTCHAR\r
	comst\r
	ld a,(iy+001h)\r
	comend\r
	jp l252bh\r
l23d5h:\r
	call l23c6h\r
	call sub_257ch\r
l23dbh:\r
	ld a,041h\r
	jp OUTCHAR\r
l23e0h:\r
	call l2561h\r
	call sub_257ch\r
l23e6h:\r
	comst\r
	ld l,(iy+001h)\r
	ld h,(iy+002h)\r
	comend\r
l23f0h:\r
	ld a,002h\r
sub_23f2h:\r
	ld (XBE03),a\r
	ld (XBE01),hl\r
	call out.hl\r
	ret\r
l23fch:\r
	call l254bh\r
	call sub_257ch\r
	jr l23e6h\r
l2404h:\r
	call sub_24c6h\r
	call sub_257ch\r
	jp l253eh\r
l240dh:\r
	call l253eh\r
	call sub_257ch\r
	jp sub_24c6h\r
l2416h:\r
	call sub_24c6h\r
	call sub_257ch\r
	ld a,041h\r
	jp OUTCHAR\r
l2421h:\r
	call sub_2579h\r
	jp sub_24c6h\r
l2427h:\r
	ld a,030h\r
	jr l2431h\r
l242bh:\r
	ld a,031h\r
	jr l2431h\r
l242fh:\r
	ld a,032h\r
l2431h:\r
	jp OUTCHAR\r
l2434h:\r
	ld hl,b_0x2449_start\r
	jr l2446h\r
l2439h:\r
	ld hl,l244ch\r
	jr l2446h\r
l243eh:\r
	ld hl,l244fh\r
	jr l2446h\r
l2443h:\r
	ld hl,l2452h\r
l2446h:\r
	jp PSTR\r
\r
b_0x2449_start:\r
	DC	'I,A'\r
l244ch:\r
	DC	'A,I'\r
l244fh:\r
	DC	'R,A'\r
l2452h:\r
	DC	'A,R'\r
\r
l2455h:\r
	call l24dfh\r
	call sub_257ch\r
	ld hl,t__C_\r
	jp PSTR\r
l2461h:\r
	ld hl,t__C_\r
	call PSTR\r
	call sub_257ch\r
	jp l24dfh\r
l246dh:\r
	call l253eh\r
	call sub_257ch\r
	jp l254bh\r
l2476h:\r
	call sub_24c6h\r
	call sub_257ch\r
	jp l254bh\r
l247fh:\r
	call l254bh\r
	call sub_257ch\r
	jr sub_24c6h\r
l2487h:\r
	ld a,(is.pfx.IXY)\r
	and a\r
	jr nz,l2496h\r
	comst\r
	ld a,(iy+001h)\r
	comend\r
	jr l249dh\r
l2496h:\r
	comst\r
	ld a,(iy+002h)\r
	comend\r
l249dh:\r
	push af\r
	rra\r
	rra\r
	rra\r
	and 007h\r
	add a,'0'\r
	call OUTCHAR\r
	call sub_257ch\r
	pop af\r
	jr l24f2h\r
l24aeh:\r
	ld a,(is.pfx.IXY)\r
	and a\r
	jr nz,l24bdh\r
	comst\r
	ld a,(iy+001h)\r
	comend\r
	jr l24c4h\r
l24bdh:\r
	comst\r
	ld a,(iy+002h)\r
	comend\r
l24c4h:\r
	jr l24f2h\r
sub_24c6h:\r
	ld a,'('\r
	call OUTCHAR\r
	comst\r
	ld l,(iy+001h)\r
	ld h,(iy+002h)\r
	comend\r
	ld a,001h\r
	call sub_23f2h\r
	ld a,')'\r
	jp OUTCHAR\r
l24dfh:\r
	comst\r
	ld a,(iy+000h)\r
	comend\r
	rra\r
	rra\r
	rra\r
	jr l24f2h\r
l24ebh:\r
	comst\r
	ld a,(iy+000h)\r
	comend\r
l24f2h:\r
	and 007h\r
	cp 006h\r
	jr nz,l2533h\r
	ld a,(is.pfx.IXY)\r
	and a\r
	ld a,006h\r
	jr z,l2533h\r
	ld hl,b_0x2538_start\r
	ld a,(is.pfx.IXY)\r
	dec a\r
	jr z,l250ch\r
	ld hl,b_0x253B_start\r
l250ch:\r
	call PSTR\r
	comst\r
	ld a,(iy+001h)\r
	comend\r
	and a\r
	push af\r
	jp m,l2523h\r
	ld a,'+'\r
	call OUTCHAR\r
	pop af\r
	jr l252bh\r
l2523h:\r
	ld a,'-'\r
	call OUTCHAR\r
	pop af\r
	neg\r
l252bh:\r
	call out.hex\r
	ld a,')'\r
	jp OUTCHAR\r
l2533h:\r
	ld hl,t_BCDEHL_HL_A\r
	jr l2572h\r
\r
b_0x2538_start:\r
	DC	'(IX'\r
b_0x253B_start:\r
	DC	'(IY'\r
\r
l253eh:\r
	ld a,(is.pfx.IXY)\r
	ld hl,t_HL.IX.IY\r
	jr l2572h\r
l2546h:\r
	ld hl,t_BC.DE.HL.AF\r
	jr l254eh\r
l254bh:\r
	ld hl,t_BC.DE.HL.SP\r
l254eh:\r
	comst\r
	ld a,(iy+000h)\r
	comend\r
	rra\r
	rra\r
	rra\r
	rra\r
	and 003h\r
	cp 002h\r
	jr z,l253eh\r
	jr l2572h\r
l2561h:\r
	comst\r
	ld a,(iy+000h)\r
	comend\r
sub_2568h:\r
	rra\r
	rra\r
	rra\r
	and 007h\r
	ld hl,t_tstfl_ZCPS\r
	jr l2572h\r
l2572h:\r
	ld b,a\r
	call sub_0a48h\r
	jp PSTR\r
sub_2579h:\r
	call l23dbh\r
sub_257ch:\r
	ld a,','\r
	jp OUTCHAR\r
sub_2581h:\r
	call PSTR\r
l2584h:\r
	call OUTBL\r
	inc c\r
	ld a,c\r
	cp 006h\r
	jr nz,l2584h\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_26e7h:\r
	ld hl,(REG.PC)\r
	ld a,h\r
	or l\r
	jr z,l2715h\r
	ld iy,(REG.PC)\r
	call sub_1f9eh\r
	jp nc,ERROR\r
	ld c,b\r
	ld b,000h\r
	ld hl,(REG.PC)\r
	add hl,bc\r
	call sub_1117h\r
	ld iy,(REG.PC)\r
	ld hl,b_0x2717_start\r
	call lookup_opc\r
	ccf\r
	ret c\r
	ex de,hl\r
	call CALL.HL\r
	call c,sub_1117h\r
l2715h:\r
	scf\r
	ret\r
\r
b_0x2717_start:\r
	db	0ffh\r
	db	0ddh\r
	db	000h\r
	dw	x278d\r
\r
	db	0ffh\r
	db	0fdh\r
	db	000h\r
	dw	x2792\r
\r
	db	0ffh\r
	db	0edh\r
	db	000h\r
	dw	x27a2\r
\r
l2726h:\r
	db	0ffh\r
	db	0cdh\r
	db	000h\r
	dw	x275e\r
\r
	db	0ffh\r
	db	0c3h\r
	db	000h\r
	dw	x2769\r
\r
	db	0ffh\r
	db	0e9h\r
	db	000h\r
	dw	x2788\r
\r
	db	0ffh\r
	db	0c9h\r
	db	000h\r
	dw	x27c9\r
\r
	db	0ffh\r
	db	0cfh\r
	db	000h\r
	dw	x280e\r
\r
	db	0c7h\r
	db	0c7h\r
	db	000h\r
	dw	x27ea\r
\r
	db	0c7h\r
	db	0c4h\r
	db	000h\r
	dw	x275e\r
\r
	db	0f7h\r
	db	010h\r
	db	000h\r
	dw	x2775\r
\r
	db	0e7h\r
	db	020h\r
	db	000h\r
	dw	x2775\r
\r
	db	0c7h\r
	db	0c2h\r
	db	000h\r
	dw	x2769\r
\r
	db	0c7h\r
	db	0c0h\r
	db	000h\r
	dw	x27b3\r
\r
	db	000h\r
\r
x275e:\r
	ld a,(XBFE8)\r
	and a\r
	jr nz,x2769\r
	ld a,(TCFLG)\r
	and a\r
	ret nz\r
\r
x2769:\r
	comst\r
	ld l,(iy+001h)\r
	ld h,(iy+002h)\r
	comend\r
	scf\r
	ret\r
\r
x2775:\r
	comst\r
	ld c,(iy+001h)\r
	comend\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
x2788:\r
	ld hl,(REG.L)\r
	scf\r
	ret\r
\r
x278d:\r
	ld hl,(reg.ix)\r
	jr l2795h\r
\r
x2792:\r
	ld hl,(reg.iy)\r
l2795h:\r
	comst\r
	ld a,(iy+001h)\r
	comend\r
	cp 0e9h\r
	scf\r
	ret z\r
	and a\r
	ret\r
\r
x27a2:\r
	comst\r
	ld a,(iy+001h)\r
	comend\r
	cp 04dh\r
	jr z,x27c9\r
	cp 045h\r
	jr z,x27c9\r
	and a\r
	ret\r
\r
x27b3:\r
	comst\r
	ld a,(iy+000h)\r
	comend\r
	ld (XBEDD),a\r
	ld hl,(REG.F)\r
	push hl\r
	pop af\r
	call XBEDD\r
	scf\r
	jr c,x27c9\r
	ret\r
\r
x27c9:\r
	ld a,(XBFE8)\r
	and a\r
	jr nz,l27dah\r
	ld a,(TCFLG)\r
	and a\r
	jr z,l27dah\r
	call l27dah\r
	pop hl\r
	ret\r
l27dah:\r
	ld hl,(REG.SP)\r
	comst\r
	ld e,(hl)\r
	inc hl\r
	ld d,(hl)\r
	comend\r
	ex de,hl\r
	call sub_1117h\r
	and a\r
	ret\r
\r
x27ea:\r
	ld a,(ddtzrst)\r
	comst\r
	cp (iy+000h)\r
	comend\r
	ret z\r
	comst\r
	ld a,(iy+000h)\r
	comend\r
	and 038h\r
	ld l,a\r
	ld h,000h\r
	ld a,(XBFE8)\r
	and a\r
	jr nz,l280ch\r
	ld a,(TCFLG)\r
	and a\r
	ret nz\r
l280ch:\r
	scf\r
	ret\r
\r
x280e:\r
	and a\r
	ret\r
\r
CMD.C:\r
	ld hl,CMD.C\r
	ld a,001h\r
	jr l281bh\r
\r
CMD.T:\r
	xor a\r
	ld hl,CMD.T\r
l281bh:\r
	ld (CMD_RPT),hl\r
	ld (TCFLG),a\r
	ld a,(de)\r
	sub 'N'\r
	jr nz,l2827h\r
	inc de\r
l2827h:\r
	ld (TCNFLG),a\r
	ld a,(de)\r
	sub 'J'\r
	jr nz,l2830h\r
	inc de\r
l2830h:\r
	ld (TRJFLG),a\r
	call sub_289fh\r
	jr z,l283eh\r
	ld hl,1\r
	call get_lastarg_def\r
l283eh:\r
	ld (TCCSTR),hl\r
	sub a\r
	ld (XA747),a\r
l2845h:\r
	call sub_26e7h\r
	jr l289ch\r
l284ah:\r
	call sub_0e68h\r
	ld a,(TRJFLG)\r
	and a\r
	jr nz,l2864h\r
	ld iy,(REG.PC)\r
	call sub_28c1h\r
	jr z,l2864h\r
	ld hl,l2726h\r
	call lookup_opc\r
	jr nc,l2845h\r
l2864h:\r
	ld a,(XBFEA)\r
	and a\r
	jr z,l2881h\r
	ld de,(TCCSTR)\r
	call EXPR\r
	ld a,h\r
	or l\r
	add a,0ffh\r
	sbc a,a\r
	ld hl,XBFEA\r
	xor (hl)\r
	bit 1,a\r
	jr z,l288ch\r
l287eh:\r
	jp l102eh\r
l2881h:\r
	ld hl,(TCCSTR)\r
	dec hl\r
	ld (TCCSTR),hl\r
	ld a,h\r
	or l\r
	jr z,l287eh\r
l288ch:\r
	call sub_26e7h\r
	jr nc,l287eh\r
	ld a,(TCNFLG)\r
	ld b,a\r
	ld a,(XA747)\r
	or b\r
	ld (XA747),a\r
l289ch:\r
	jp l1183h\r
\r
sub_289fh:\r
	call SKIPBL\r
	xor a\r
	ld (XBFEA),a\r
	ld a,(de)\r
	cp 'U'\r
	jr z,l28aeh\r
	cp 'W'\r
	ret nz\r
\r
l28aeh:\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 (XBFEA),a\r
	sub a\r
	ret\r
\r
sub_28c1h:\r
	comst\r
	ld a,(iy+000h)\r
	ld b,(iy+0001)\r
	comend\r
	cp 0edh\r
	jr z,l28dbh\r
	and 0dfh\r
	cp 0ddh\r
	ret nz\r
	ld a,b\r
	cp 0e9h\r
	ret\r
l28dbh:\r
	ld a,b\r
	and 0f7h\r
	cp 045h\r
	ret\r
\r
?excom:\r
	ex (sp),hl\r
	push af\r
	push bc\r
	push de\r
	ld c,(hl)\r
	ld b,000h\r
	inc hl\r
	ld a,?lcmax\r
	sub c\r
	ld de,?exeit\r
	ldir\r
	ex de,hl\r
	ld (hl),018h\r
	inc hl\r
	ld (hl),a\r
	ex de,hl\r
	pop de\r
	pop bc\r
	pop af\r
	ex (sp),hl\r
	if CPU_Z180\r
	push hl\r
	ld hl,(ubbr)\r
\r
	else\r
	 push af\r
	 ld a,(ubnk)\r
	endif\r
	if ROMSYS\r
	 push af\r
	 ld a,(uromen)\r
	endif\r
	jp ?comcod\r
\r
;------------------------------------------\r
;	ddtram\r
;------------------------------------------\r
\r
vartab:\r
;	dseg\r
	cseg\r
ddtram:\r
;todo:\r
; The following 2 params are changeable by user.\r
; Should these moved to top ram?\r
;\r
ddtzrst:\r
	rst	DDTZRSTVEC	;rst used by ddtz\r
ddtei:	ei			;ints enabled/disabled while ddtz is running\r
	ret			;\r
offs.pc:\r
	dw	TPA\r
offs.@:\r
	dw	0\r
CMD_ERR:\r
	dw	0\r
CMD_RPT:\r
	dw	DDTZML\r
ci.buf:\r
	db	80\r
	rept	83\r
	db	0\r
	endm\r
CON.COL:\r
	db 	0\r
XA747:\r
	db	0\r
bp_tab:\r
	rept	BP_CNT\r
	db	0,0\r
	dw	0,0,0\r
	endm\r
BP_SIZE	equ	8\r
sexp1:\r
	dw	sexpbuf\r
sexp2:\r
	dw	sexpbuf\r
sexpbuf:\r
	rept	128\r
	db	0\r
	endm\r
sexpbufe:\r
\r
msg.Y:\r
	dc	'Y0'\r
reg.Y:\r
	rept	10\r
	dw	0\r
	endm\r
lst.S:\r
	dw	0\r
lst.IP:\r
	dw	0\r
lst.OP:\r
	dw	0\r
lst.OD:\r
	db	0\r
lst.Qj:\r
	db	0\r
lst.D:\r
	dw	0\r
HILOD:\r
	dw	0\r
MAXLOD:\r
	dw	0\r
XB068:\r
	dw	0\r
lst.A:\r
	dw	0\r
XB06C:\r
	dw	0\r
pfx.IXY:\r
	db	000h\r
is.pfx.IXY:\r
	db	000h\r
lst.L:\r
	dw	0\r
XBE01:\r
	dw	0\r
XBE03:\r
	db	000h\r
XBEDD:\r
	ret		;ret cc\r
	and a\r
	pop hl\r
	inc hl\r
	jp (hl)\r
XBFE8:\r
	db	0\r
TCFLG:\r
	db	0\r
XBFEA:\r
	db	0\r
TCCSTR:\r
	dw	0\r
TCNFLG:\r
	db	0\r
TRJFLG:\r
	db	0\r
wstrtflg:\r
	db	1\r
\r
	cseg\r
vartabe:\r
\r
;------------------------------------------\r
\r
	.phase	sysram_start+stacksize\r
$stack:\r
$stcka	equ	$ - stacksize\r
\r
curphse	defl	$\r
	.dephase\r
sysramc:\r
	.phase curphse\r
topcodbeg:\r
\r
reg.l2:	db	0		; 0fe50h\r
reg.h2:	db	0		; 0fe51h\r
reg.e2:	db	0		; 0fe52h\r
reg.d2:	db	0		; 0fe53h\r
reg.c2:	db	0		; 0fe54h\r
reg.b2:	db	0		; 0fe55h\r
reg.f2:	db	0		; 0fe56h\r
reg.a2:	db	0		; 0fe57h\r
	db	0\r
reg.i:	db	high ivtab\r
reg.iy:	dw	0		; 0fe5ah\r
reg.ix:	dw	0		; 0fe5ch\r
reg.e:	db	0		; 0fe5eh\r
reg.d:	db	0		; 0fe5fh\r
reg.c:	db	0		; 0fe60h\r
reg.b:	db	0		; 0fe61h\r
	if	ROMSYS\r
udcntl:	 db	CWAITIO		; 0fe62h	(mem-, io- wait)\r
uromen:	 db	ROM_DIS		; 0fe63h\r
	endif\r
	if CPU_Z180\r
ubbr:	db	0		; 0fe64h\r
ucbar:	db	USR$CBAR	; 0fe65h\r
	else\r
	 db	0		; 0fe64h\r
ubnk:	 db	0		; 0fe65h\r
	endif\r
reg.f:	db	0		; 0fe66h\r
reg.a:	db	0		; 0fe67h\r
reg.l:	db	0		; 0fe68h\r
reg.h:	db	0		; 0fe69h\r
reg.sp:	dw	TOPRAM		; 0fe6ah\r
\r
$go:\r
	if	ROMSYS\r
	 out (000h),a		;064c fe6c\r
	 out0 (dcntl),l\r
	 pop hl\r
	endif\r
	if CPU_Z180\r
	out0 (cbar),h\r
	out0 (bbr),l\r
	else\r
	 ld a,h\r
	 call selbnk\r
	endif\r
	pop af\r
	pop hl\r
	ld sp,(reg.sp)\r
reg.iff:\r
	ei\r
	db	0C3h		;jp TPA	;065f feff ($+1): reg.pc\r
reg.pc:\r
	dw	TPA\r
\r
bpent:\r
	ld (reg.l),hl		;0662 fe82: bpent:\r
	pop hl\r
	dec hl\r
	ld (reg.pc),hl\r
	ld (reg.sp),sp\r
	ld sp,reg.l\r
	push af\r
	if CPU_Z180\r
;;;	 TODO: cbar on trap?\r
	in0 h,(cbar)\r
	in0 l,(bbr)\r
	ld a,SYS$CBAR\r
	out0 (cbar),a\r
	else\r
	 ld a,(@cbnk)\r
	 ld h,a\r
	 xor a\r
	 ld l,a\r
	 call selbnk\r
	endif\r
	 push hl\r
\r
	if ROMSYS\r
	 in0 l,(dcntl)\r
	 ld a,CWAITROM+CWAITIO\r
	 out0 (dcntl),a\r
	 ld a,($crom)\r
	 cp c$rom\r
	 ld a,ROM_EN\r
	 out (000h),a\r
	endif\r
\r
	jp bpddtz\r
\r
?comcod:\r
	if ROMSYS\r
	 out (000h),a		;0692 feb2\r
	 pop af\r
	endif\r
\r
	if CPU_Z180\r
	out0 (cbar),h\r
	out0 (bbr),l\r
	pop hl\r
	else\r
	 call selbnk\r
	 pop af\r
	endif\r
?exeit:\r
	ds ?lcmax+2\r
	push af\r
	if CPU_Z180\r
	ld a,SYS$CBAR\r
	out0 (cbar),a\r
\r
;;;	 TODO: bbr?\r
	else\r
	 xor a\r
	 call selbnk\r
	endif\r
	if ROMSYS\r
	 ld a,ROM_EN\r
	 out (000h),a\r
	endif\r
\r
	pop af\r
	ret\r
\r
topcodend:\r
curph	defl	$\r
	.dephase\r
sysrame:\r
\r
	end\r