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

   1 ;
   2 ; Piotr Fusik, 24.10.2003
   3 ; originally by Ullrich von Bassewitz
   4 ;
   5 ; CC65 runtime: Scale the primary register by 8
   6 ;
   7
   8         .export         asrax3
   9         .importzp       tmp1
  10
  11 asrax3: stx     tmp1
  12         cpx     #$80            ; Put bit 7 into carry
  13         ror     tmp1
  14         ror     a
  15         cpx     #$80
  16         ror     tmp1
  17         ror     a
  18         cpx     #$80
  19         ror     tmp1
  20         ror     a
  21         ldx     tmp1
  22         rts
  23