From: Leo C <erbl259-lmu@yahoo.de>
Date: Sun, 9 Dec 2018 16:19:36 +0000 (+0100)
Subject: Remove relational ops from expr.
X-Git-Tag: v0.5~26
X-Git-Url: http://cloudbase.mooo.com/gitweb/ddt180.git/commitdiff_plain/bcd688164e12468c6a2d9e8ea000baa28ec1b189?ds=sidebyside

Remove relational ops from expr.
---

diff --git a/ddt180.z80 b/ddt180.z80
index 3a445c3..386bad7 100644
--- a/ddt180.z80
+++ b/ddt180.z80
@@ -777,91 +777,6 @@ l03b8h:
 expr:
 	call skipbl
 expr1:
-	call do_subexpr
-	ret c
-	call do_rel_op
-	ret nc
-	push bc
-	push hl
-	call do_subexpr
-	jr c,error0
-	ex de,hl
-	ex (sp),hl
-	and a
-	sbc hl,de
-	ld hl,0ffffh
-	pop de
-	ret
-
-;-------------------------------------------------------------------------------
-
-do_op_eq:
-	jr z,l03edh
-	jr l03ech
-do_op_ne:
-	jr nz,l03edh
-	jr l03ech
-do_op_le:
-	jr z,l03edh
-do_op_lt:
-	jr c,l03edh
-	jr l03ech
-do_op_gt:
-	jr z,l03ech
-do_op_ge:
-	jr nc,l03edh
-l03ech:
-	inc hl
-l03edh:
-	and a
-	ret
-do_rel_op:
-	push hl
-	ld hl,tab_eq_le_ge
-	call lookupch
-	jr nc,l041dh
-	ld a,b
-	or a
-	jr z,l0411h
-	ld a,(de)
-	cp '='
-	jr nz,l0406h
-	inc de
-	inc b
-	inc b
-	jr l0411h
-l0406h:
-	bit 0,b
-	jr z,l0411h
-	cp '>'
-	jr nz,l0411h
-	inc de
-	ld b,005h
-l0411h:
-	ld hl,tab_func_eqlege
-	ld a,b
-	add a,a
-	call add_hl_a
-	ld c,(hl)
-	inc hl
-	ld b,(hl)
-	scf
-l041dh:
-	pop hl
-	ret
-
-tab_eq_le_ge:
-	db	'=<>',0
-
-tab_func_eqlege:
-	dw	do_op_eq
-	dw	do_op_lt
-	dw	do_op_gt
-	dw	do_op_le
-	dw	do_op_ge
-	dw	do_op_ne
-
-do_subexpr:
 	call do_factor
 	ret c
 l0433h:
@@ -2248,7 +2163,6 @@ l0ef9h:
 	ld a,l
 	pop hl
 	jr c,l0f42h
-l0f1ah:
 	ld (hl),a
 	inc hl
 	jr l0f3ah