db 0c3h\r
reg.pc: dw TPA\r
var.$: dw 0000h\r
-var.@: dw 0\r
\r
cmd_rpt:dw mainloop\r
\r
ld sp,stack\r
exx\r
ld de,ddtz_base\r
- or a\r
- sbc hl,de\r
- add hl,de\r
+ call cp_hl_de\r
jr c,l0079h\r
ex de,hl\r
l0079h:\r
;-------------------------------------------------------------------------------\r
\r
CMDTAB:\r
- dw cmd_@ ;examine/substitute the displacement register @\r
+ dw ERROR ;cmd_@ ;examine/substitute the displacement register @\r
dw ERROR ;cmd_A ;Assemble\r
dw cmd_B ;Breakpoints display/set/clear\r
dw cmd_C ;trace over Calls\r
call bp_clr_temporary\r
ld hl,(cmd_rpt)\r
ld de,mainloop\r
+ push de\r
call cp_hl_de\r
ld a,'>'\r
call outchar\r
call get_line\r
call skipbl\r
jr z,exe_hl\r
- ld hl,mainloop\r
+ pop hl\r
+ push hl\r
ld (cmd_rpt),hl\r
inc de\r
sub '@'\r
ld l,a\r
\r
exe_hl:\r
- call CALL_HL\r
- jr mainloop\r
+ jp (hl)\r
\r
;-------------------------------------------------------------------------------\r
\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
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
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
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
l063eh:\r
call p_regs\r
djnz l063eh\r
+ call outbl6\r
push hl\r
push de\r
ld iy,(reg.pc)\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
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
call outbl\r
ld l,(ix+002h)\r
ld h,(ix+003h)\r
- call out.hl.@\r
+ call out_hl\r
call pstr_inl\r
dc ' :'\r
ld l,(ix+004h)\r
call sel_dc_string\r
l0c12h:\r
call l0c33h\r
-l0c15h:\r
+\r
call outbl\r
push de\r
push bc\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
+ jp out_hl\r
\r
l0c4fh:\r
call p_f\r
call get_lastarg_def\r
l0d60h:\r
ld (last_S),hl\r
- call out.hl.@\r
+ call out_hl\r
call outbl\r
ld a,(hl)\r
call out_hex\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
+;cmd_@:\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
; 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
cp b\r
jr z,l0e10h\r
ld c,a\r
- call out.hl.@\r
+ call out_hl\r
call outbl\r
ld a,b\r
call out_hex\r
call out_hex\r
call outbl\r
ex de,hl\r
- call out.hl.@\r
+ call out_hl\r
ex de,hl\r
call crlf\r
l0e10h:\r
; off all loaded files, and Top address of available memory\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 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
; 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
push hl\r
push af\r
l0f5ch:\r
- call out.hl.@\r
+ call out_hl\r
call z,outbl2\r
call outbl\r
ld de,0\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
\r
p_disas_line:\r
call outbl2\r
- call out.hl.@\r
+ call out_hl\r
call z,outbl\r
call outbl\r
sub a\r
call p_goto_col\r
; fall thru\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
+ ret\r
\r
;-------------------------------------------------------------------------------\r
\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
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