git.sur5r.net Git - cc65/blob - ugt.s

   1 ;
   2 ; Ullrich von Bassewitz, 06.08.1998
   3 ;
   4 ; CC65 runtime: Compare > for unsigned ints
   5 ;
   6
   7         .export         tosugt00, tosugta0, tosugtax
   8         .import         tosicmp, boolugt
   9
  10
  11 tosugt00:
  12         lda     #$00
  13 tosugta0:
  14         ldx     #$00
  15 tosugtax:
  16         jsr     tosicmp         ; Set flags
  17         jmp     boolugt         ; Convert to boolean
  18