diff options
| author | Leo C | 2018-12-07 17:12:34 +0100 |
|---|---|---|
| committer | Leo C | 2018-12-07 17:12:34 +0100 |
| commit | 35b535f6ac49b6533a60236bb2cd9f46f2c79c88 (patch) | |
| tree | 378387c8da73ddcc5b581e35e986a34bb29039ac | |
| parent | 1190f4f040cac38f70ef6a25352b3154929d9a78 (diff) | |
| download | ddt180-35b535f6ac49b6533a60236bb2cd9f46f2c79c88.zip | |
Remove cmd_@
| -rw-r--r-- | ddt180.z80 | 83 |
1 files changed, 13 insertions, 70 deletions
@@ -120,7 +120,6 @@ reg.iff: db 0c3h
reg.pc: dw TPA
var.$: dw 0000h
-var.@: dw 0
cmd_rpt:dw mainloop
@@ -132,9 +131,7 @@ conbuf: ld sp,stack
exx
ld de,ddtz_base
- or a
- sbc hl,de
- add hl,de
+ call cp_hl_de
jr c,l0079h
ex de,hl
l0079h:
@@ -171,7 +168,7 @@ l0093h: ;-------------------------------------------------------------------------------
CMDTAB:
- dw cmd_@ ;examine/substitute the displacement register @
+ dw ERROR ;cmd_@ ;examine/substitute the displacement register @
dw ERROR ;cmd_A ;Assemble
dw cmd_B ;Breakpoints display/set/clear
dw cmd_C ;trace over Calls
@@ -249,25 +246,6 @@ crlf: jr c,mainloop
ret
-out.hl.@:
- call out_hl
- push de
- push hl
- ld de,(var.@)
- ld a,d
- or e
- jr z,l01bfh
- call outbl
- call pstr_inl
- dc '@'
- and a
- sbc hl,de
- call out_hl
-l01bfh:
- pop hl
- pop de
- ret
-
sub_01d9h:
call pstr_inl
dc '-'
@@ -557,10 +535,6 @@ l0300h: sub_0303h:
ld hl,t_reg_names
ld b,07fh
- jr l030ch
-
-sub_030ah:
- ld b,0ffh
l030ch:
inc b
ld a,(hl)
@@ -571,10 +545,6 @@ l030ch: res 7,b
ret
-sub_0318h:
- push bc
- res 7,b
- defb 03eh ;ld a,nn
sub_031ch:
push bc
push de
@@ -988,9 +958,6 @@ do_factor: ld hl,TPA
cp 'L'
ret z
- ld hl,(var.@)
- cp '@'
- ret z
ld hl,(var.$)
cp '$'
ret z
@@ -1238,8 +1205,6 @@ l065bh: djnz l065bh
pop af
pop hl
- call nz,outbl6
- call nz,p_offset
jp crlf
p_f:
@@ -1298,7 +1263,7 @@ p_regs: ex de,hl
dec a
jr z,l06d9h
- call out.hl.@
+ call out_hl
call z,outbl6
jr l06e2h
l06d9h:
@@ -1482,7 +1447,7 @@ l07cdh: call outbl
ld l,(ix+002h)
ld h,(ix+003h)
- call out.hl.@
+ call out_hl
call pstr_inl
dc ' :'
ld l,(ix+004h)
@@ -1906,7 +1871,7 @@ cmd_X: call sel_dc_string
l0c12h:
call l0c33h
-l0c15h:
+
call outbl
push de
push bc
@@ -1940,9 +1905,7 @@ l0c33h: ld a,(de)
dec de
ld h,a
- bit 1,c
- jp z,out_hl
- jp out.hl.@
+ jp out_hl
l0c4fh:
call p_f
@@ -2125,7 +2088,7 @@ cmd_S: call get_lastarg_def
l0d60h:
ld (last_S),hl
- call out.hl.@
+ call out_hl
call outbl
ld a,(hl)
call out_hex
@@ -2160,15 +2123,7 @@ l0d8ah: ; > @
; examine (substitute) displacement register @
-cmd_@:
- call assert_eol
- ld hl,msg_@
- ld de,var.@
- ld c,001h
- jp l0c12h
-
-msg_@:
- dc '@'
+;cmd_@:
;-------------------------------------------------------------------------------
; >>I [port]
@@ -2225,7 +2180,7 @@ l0dedh: cp b
jr z,l0e10h
ld c,a
- call out.hl.@
+ call out_hl
call outbl
ld a,b
call out_hex
@@ -2234,7 +2189,7 @@ l0dedh: call out_hex
call outbl
ex de,hl
- call out.hl.@
+ call out_hl
ex de,hl
call crlf
l0e10h:
@@ -2502,7 +2457,7 @@ sub_0f58h: push hl
push af
l0f5ch:
- call out.hl.@
+ call out_hl
call z,outbl2
call outbl
ld de,0
@@ -3051,7 +3006,7 @@ cmdl_p_line: p_disas_line:
call outbl2
- call out.hl.@
+ call out_hl
call z,outbl
call outbl
sub a
@@ -3065,19 +3020,7 @@ p_disas_line: call p_goto_col
; fall thru
;-------------------------------------------------------------------------------
-
-p_offset:
- ld de,(var.@)
- ld a,d
- or e
- ret z
- call pstr_inl
- dc '(@'
- and a
- sbc hl,de
- call out_hl
- add hl,de
- jp out_rparen
+ ret
;-------------------------------------------------------------------------------
|