Mikael,
Here is what I added to the 'not equal' word to have a 'well-formed' flag.
Pete
AG7C
;*********
; <> x1 x2 -- flag return true if not equal
dw L_WITHIN
L_NOTEQUAL:
db NFA|2,"<>"
NOTEQUAL:
; ppz
; goto XOR
;
; for well-formed flag
rcall MINUS
movf Sminus, W, A
iorwf Srw, W, A
bnz test_true ; x1 not equal to x2
bra test_false ; x1 equal to x2
;*********
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
Mikael,
Here is what I added to the 'not equal' word to have a 'well-formed' flag.
Pete
AG7C
;*********
; <> x1 x2 -- flag return true if not equal
dw L_WITHIN
L_NOTEQUAL:
db NFA|2,"<>"
NOTEQUAL:
; ppz
; goto XOR
;
; for well-formed flag
rcall MINUS
movf Sminus, W, A
iorwf Srw, W, A
bnz test_true ; x1 not equal to x2
bra test_false ; x1 equal to x2
;*********
Hi Pete,
The XOR implementation was an optimization.
Since the a well formed flash is desirable, I will change <>.
BR Mike