X-Git-Url: http://cloudbase.mooo.com/gitweb/ddt180.git/blobdiff_plain/ca1c9c55bf9f5453368770a8ae137bcb732f96aa..1190f4f040cac38f70ef6a25352b3154929d9a78:/ddt180.z80

diff --git a/ddt180.z80 b/ddt180.z80
index dbcebc8..5c13492 100644
--- a/ddt180.z80
+++ b/ddt180.z80
@@ -63,7 +63,6 @@ CONBUF_SIZE	equ	80	;Size of console input buffer
 EXPR_BUF_SIZE	equ	128	;expressen buffer for conditional breakpoints
 BP_CNT		equ	12	;Number of breakpoints
 BP_SIZE		equ	8	;Size of a breakpoint record
-YREG_CNT	equ	10	;Number of Y registers (0..9)
 
 ;-------------------------------------------------------------------------------
 
@@ -123,7 +122,6 @@ reg.pc:	dw	TPA
 var.$:	dw	0000h
 var.@:	dw	0
 
-error_func:dw	p_msg_error
 cmd_rpt:dw	mainloop
 
 ;-------------------------------------------------------------------------------
@@ -198,13 +196,16 @@ CMDTAB:
 	dw	cmd_V		;Verify (compare) two memory areas
 	dw	cmd_W		;Write a file to disk
 	dw	cmd_X		;eXamine [and substitute] registers
-	dw	cmd_Y		;examine [and substitute] Y variables
+	dw	ERROR ;cmd_Y	;examine [and substitute] Y variables
 	dw	cmd_Z		;Zap (fill) memory with a byte string
 
+ERROR:
+p_msg_error:
+	call	pstr_inl
+	dc	'?',CR,LF
+	;fall thru
 mainloop:
 	ld sp,stack
-	ld hl,p_msg_error
-	ld (error_func),hl
 	ld hl,(reg.pc)
 	ld (var.$),hl
 	call bp_clr_temporary
@@ -232,23 +233,16 @@ mainloop:
 	inc hl
 	ld h,(hl)
 	ld l,a
-	jr exe_hl
 
-ERROR:
-	ld hl,(error_func)
 exe_hl:
 	call CALL_HL
 	jr mainloop
 
 ;-------------------------------------------------------------------------------
 
-p_msg_error:
-	call	pstr_inl
-	dc	'?'
-	;fall thru
 crlf:
 	call	pstr_inl
-	db	CR,LF+80h
+	dc	CR,LF
 	call inchar
 	ld a,0
 	ld (con_col),a
@@ -1011,8 +1005,6 @@ do_factor:
 	jr z,fact_factor
 	cp '^'
 	jr z,fact_reg.CPU
-	cp 'Y'
-	jr z,fact_reg.Y
 	cp '('
 	jr z,fact_mem
 	cp '['
@@ -1025,21 +1017,6 @@ do_factor:
 
 ;-------------------------------------------------------------------------------
 
-fact_reg.Y:
-	call get.decdigit
-	jr c,error1
-	inc de
-get_y_val:
-	add a,a
-	ld hl,reg_Y
-	call add_hl_a
-	ld a,(hl)
-	inc hl
-	ld h,(hl)
-	ld l,a
-	and a
-	ret
-
 fact_factstring:
 	ld hl,0
 l054bh:
@@ -1903,45 +1880,6 @@ l0ab0h:
 ; > Y[0..9]
 ;      examine (and substitute) an Y variable
 
-cmd_Y:
-	call get.decdigit
-	jr c,l0bc3h
-	inc de
-	push af
-	call assert_eol
-	pop af
-	call sub_0bdch
-	jp l0c15h
-l0bc3h:
-	call assert_eol
-	xor a
-l0bc7h:
-	push af
-	call sub_0bdch
-	call	outbl4
-	pop af
-	inc a
-	bit 0,a
-	push	af
-	call 	z,crlf
-	pop af
-	cp YREG_CNT
-	jr c,l0bc7h
-	ret
-
-sub_0bdch:
-	ld c,a
-	ld b,0
-	add a,'0'+080h
-	ld de,msg_Y+1
-	ld (de),a
-	dec de
-	ld hl,reg_Y
-	add hl,bc
-	add hl,bc
-	ex de,hl
-	ld c,003h
-	jp l0c33h
 
 ;-------------------------------------------------------------------------------
 ; > X
@@ -2947,15 +2885,6 @@ rdhex_done:
 	pop hl
 	jp p_max_high
 
-
-test_numeral:
-	cp	'9'
-	ret	z
-	ccf
-	ret	c
-	cp	'0'
-	ret
-
 test_whitespace:
 	cp	' '
 	ret	z
@@ -4564,13 +4493,6 @@ expr_bufe:
 
 ;-------------------------------------------------------------------------------
 
-msg_Y:
-	dc	'Yn'
-reg_Y:
-	rept	YREG_CNT
-	 dw	0
-	endm
-
 last_S:
 	dw	TPA