diff options
author | Leo C | 2018-12-07 17:18:14 +0100 |
---|---|---|
committer | Leo C | 2018-12-07 20:26:31 +0100 |
commit | d0ff7c76b85c1d1f7e76672462c0ba85861ab9b3 (patch) | |
tree | 739568035462a8df59b0278c5fb4aed6b0962d67 | |
parent | 27a5c416cf4ea0b19a9deeaa7ccc0b436b894bca (diff) | |
download | ddt180-d0ff7c76b85c1d1f7e76672462c0ba85861ab9b3.zip |
optimize mainloop; cmd_H: remove +- expression2
-rw-r--r-- | ddt180.z80 | 32 |
1 files changed, 4 insertions, 28 deletions
@@ -208,6 +208,7 @@ mainloop: call bp_clr_temporary
ld hl,(cmd_rpt)
ld de,mainloop
+ push de
call cp_hl_de
ld a,'>'
call outchar
@@ -216,7 +217,8 @@ mainloop: call get_line
call skipbl
jr z,exe_hl
- ld hl,mainloop
+ pop hl
+ push hl
ld (cmd_rpt),hl
inc de
sub '@'
@@ -232,8 +234,7 @@ mainloop: ld l,a
exe_hl:
- call CALL_HL
- jr mainloop
+ jp (hl)
;-------------------------------------------------------------------------------
@@ -2125,7 +2126,6 @@ l0d8ah: ; Input a byte from port
cmd_I:
- ld hl,cmd_I
ld (cmd_rpt),hl
ld hl,(last_I)
call get_lastarg_def
@@ -2145,7 +2145,6 @@ cmd_I: ; Output a byte to a port
cmd_O:
- ld hl,cmd_O
ld (cmd_rpt),hl
ld hl,(last_O_val)
call get_arg_def
@@ -2237,30 +2236,11 @@ cmdm_up: ; off all loaded files, and Top address of available memory
; > H expression
; evaluate expression and display result in hex, decimal and other formats
-; > H expression expression
-; display sum und difference of expressions
cmd_H:
call expr
jp c,p_max_high0
- call next_arg
- push hl
- call expr
- push af
call assert_eol
- pop af
- ex de,hl
- pop hl
- jr c,l0e5eh
- push hl
- push de
- add hl,de
- call l0e5eh
- pop de
- pop hl
- and a
- sbc hl,de
-l0e5eh:
call out_hl
call outbl2
call out_hl_neg
@@ -2440,7 +2420,6 @@ l0f42h: ; Display memory in hex and ASCII
cmd_D:
- ld hl,cmd_D
ld (cmd_rpt),hl
ld hl,(last_D)
ld bc,128
@@ -2954,7 +2933,6 @@ l1773h: ; List disassembled code
cmd_L:
- ld hl,cmd_L
ld (cmd_rpt),hl
call expr
jr nc,l18dbh
@@ -4187,7 +4165,6 @@ l2113h: ; trace over Calls [No list] [Jumps only] /.While./.Until.
cmd_C:
- ld hl,cmd_C
ld a,1
jr cmd_tc
@@ -4199,7 +4176,6 @@ cmd_C: cmd_T:
xor a
- ld hl,cmd_T
cmd_tc:
ld (cmd_rpt),hl
ld (trace_call_flag),a
|