git.sur5r.net Git - cc65/blob - libsrc/runtime/ult.s

   1 ;
   2 ; Ullrich von Bassewitz, 06.08.1998
   3 ;
   4 ; CC65 runtime: Compare < for unsigned ints
   5 ;
   6
   7         .export         tosult00, tosulta0, tosultax
   8         .import         tosicmp, boolult, return0
   9
  10
  11 tosult00        = return0       ; This is always false
  12
  13 tosulta0:
  14         ldx     #$00
  15 tosultax:
  16         jsr     tosicmp         ; Set flags
  17         jmp     boolult         ; Convert to boolean
  18