I have some trouble with the implemented U< in my figforth for the 6502.
For example :
$7FFF $D800 U< true
$4000 $D800 U< true
$0400 $D800 U< false
$E000 $D800 U< false
The code is :
Code:
1472 0C0E ; U<
1473 0C0E ; Unsigned less than
1474 0C0E ;
1475 0C0E 82 55 BC L1246 .BYTE $82,"U",$BC
1476 0C11 02 0C .WORD L1244 ; link to =
1477 0C13 D6 09 ULESS .WORD DOCOL
1478 0C15 FA 0B .WORD SUB ; subtract two values
1479 0C17 88 08 .WORD ZLESS ; test sign
1480 0C19 0C 08 .WORD SEMIS
Is there a better code to do this comparision/