.ORIG   x3000
          AND     R0,R0,#0
          ADD     R1,R1,#0          ;; test X
          BRn     Xneg
;; X >= 0
          ADD     R2,R2,#0          ;; test Y
          BRn     XposYneg
;; X and Y have same signs
XYsame    NOT     R3,R2
          ADD     R3,R3,#1          ;; R3 is -y
          ADD     R3,R1,R3          ;; R3 is x-y
          BRn     XmYneg
;; X-Y > 0   .... X>Y ..... return 0
          RET
;; X-Y < 0
XmYneg    ADD     R0,R0,#1
          RET   

; ; Y < 0 <= X, X<Y is NOT true, return 0
XposYneg  RET

;; X < 0
Xneg      ADD     R2,R2,#0          ;; test Y
          BRn     XYsame
;; X < 0 <= Y                       ;; return 1
          ADD     R0,R0,#1
          RET
          .END