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

   1 ;
   2 ; Ullrich von Bassewitz, 25.11.2002
   3 ;
   4 ; CC65 runtime: Swap x bytes of register variable space
   5 ;
   6
   7         .export         regswap
   8         .importzp       sp, regbank, tmp1
   9
  10 .proc   regswap
  11
  12         sta     tmp1                    ; Store count
  13 @L1:    lda     regbank,x               ; Get old value
  14         pha                             ; Save it
  15         lda     (sp),y                  ; Get stack loc
  16         sta     regbank,x               ; Store new value
  17         pla
  18         sta     (sp),y                  ; Store old value
  19         inx
  20         iny
  21         dec     tmp1
  22         bne     @L1
  23
  24         rts
  25
  26 .endproc
  27
  28