git.sur5r.net Git - cc65/blob - libsrc/pce/revers.s

   1 ;
   2 ; 1998-08-07, Ullrich von Bassewitz
   3 ; 2015-11-23, Greg King
   4 ;
   5 ; unsigned char __fastcall__ revers (unsigned char onoff);
   6 ;
   7
   8         .export         _revers
   9
  10         .importzp       RVS
  11
  12 .proc   _revers
  13         cmp     #$01            ; False or true?
  14         cla
  15         ror     a               ; Either $00 or $80
  16         ldy     RVS             ; Load old value
  17         sta     RVS             ; Set new value
  18         tya
  19         asl     a
  20         rol     a               ; Either $00 or $01
  21         clx
  22         rts
  23 .endproc