; Banking routines for the 610.
;
- .export set_bank, sys_bank, restore_bank
- .importzp ptr1
+ .export set_bank, sys_bank, restore_bank
+ .importzp ptr1, segsave
- .include "zeropage.inc"
+ .include "cbm610.inc"
.code
-.proc sys_bank
- pha
- lda IndReg
- sta IndSegSave
- lda #$0F
- sta IndReg
- pla
- rts
+.proc sys_bank
+ pha
+ lda IndReg
+ sta segsave
+ lda #$0F
+ sta IndReg
+ pla
+ rts
.endproc
-.proc set_bank
- pha
- lda IndReg
- sta IndSegSave
- pla
- sta IndReg
- rts
+.proc set_bank
+ pha
+ lda IndReg
+ sta segsave
+ pla
+ sta IndReg
+ rts
.endproc
-.proc restore_bank
- pha
- lda IndSegSave
- sta IndReg
- pla
- rts
+.proc restore_bank
+ pha
+ lda segsave
+ sta IndReg
+ pla
+ rts
.endproc