X-Git-Url: http://cloudbase.mooo.com/gitweb/ddt180.git/blobdiff_plain/35b535f6ac49b6533a60236bb2cd9f46f2c79c88..d0ff7c76b85c1d1f7e76672462c0ba85861ab9b3:/ddt180.z80

diff --git a/ddt180.z80 b/ddt180.z80
index 0890182..da5cfe6 100644
--- a/ddt180.z80
+++ b/ddt180.z80
@@ -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)
 
 ;-------------------------------------------------------------------------------
 
@@ -1189,6 +1190,7 @@ p_cpustat:
 l063eh:
 	call p_regs
 	djnz l063eh
+	call outbl6
 	push hl
 	push de
 	ld iy,(reg.pc)
@@ -1261,12 +1263,6 @@ p_regs:
 	inc hl
 	ld d,(hl)
 	ex de,hl
-	dec a
-	jr z,l06d9h
-	call out_hl
-	call z,outbl6
-	jr l06e2h
-l06d9h:
 	call out_hl
 	jr l06e2h
 l06deh:
@@ -2130,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
@@ -2150,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
@@ -2242,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
@@ -2445,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
@@ -2959,7 +2933,6 @@ l1773h:
 ;      List disassembled code
 
 cmd_L:
-	ld hl,cmd_L
 	ld (cmd_rpt),hl
 	call expr
 	jr nc,l18dbh
@@ -4192,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
 
@@ -4204,7 +4176,6 @@ cmd_C:
 
 cmd_T:
 	xor a
-	ld hl,cmd_T
 cmd_tc:
 	ld (cmd_rpt),hl
 	ld (trace_call_flag),a