git.sur5r.net Git - cc65/blob - libsrc/cbm510/banking.s

   1 ;
   2 ; Ullrich von Bassewitz, 13.09.2001
   3 ;
   4 ; Banking routines for the 510.
   5 ;
   6
   7         .export         set_bank, sys_bank, restore_bank
   8         .importzp       ptr1
   9
  10         .include        "zeropage.inc"
  11
  12 .code
  13
  14 .proc   sys_bank
  15         pha
  16         lda     IndReg
  17         sta     IndSegSave
  18         lda     #$0F
  19         sta     IndReg
  20         pla
  21         rts
  22 .endproc
  23
  24 .proc   set_bank
  25         pha
  26         lda     IndReg
  27         sta     IndSegSave
  28         pla
  29         sta     IndReg
  30         rts
  31 .endproc
  32
  33 .proc   restore_bank
  34         pha
  35         lda     IndSegSave
  36         sta     IndReg
  37         pla
  38         rts
  39 .endproc
  40
  41