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

   1 ;
   2 ; Ullrich von Bassewitz, 06.08.1998
   3 ;
   4 ; CC65 runtime: boolean negation for longs
   5 ;
   6
   7         .export         bnegeax
   8         .importzp       sreg, tmp1
   9
  10 bnegeax:
  11         stx     tmp1
  12         ldx     #0              ; High byte of result
  13         ora     tmp1
  14         ora     sreg
  15         ora     sreg+1
  16         bne     @L0
  17         lda     #1
  18         rts
  19
  20 @L0:    txa                     ; X is zero
  21         rts
  22