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

   1 ;
   2 ; Ullrich von Bassewitz, 25.11.2002
   3 ;
   4 ; CC65 runtime: Swap 2 bytes of register variable space
   5 ;
   6
   7         .export         regswap2
   8         .importzp       sp, regbank
   9
  10 .proc   regswap2
  11
  12 ; First byte
  13
  14         lda     regbank,x               ; Get old value
  15         pha                             ; Save it
  16         lda     (sp),y                  ; Get stack loc
  17         sta     regbank,x               ; Store new value
  18         pla
  19         sta     (sp),y                  ; Store old value
  20
  21 ; Second byte
  22
  23         iny
  24         lda     regbank+1,x             ; Get old value
  25         pha                             ; Save it
  26         lda     (sp),y                  ; Get stack loc
  27         sta     regbank+1,x             ; Store new value
  28         pla
  29         sta     (sp),y                  ; Store old value
  30
  31         rts
  32
  33 .endproc
  34
  35