1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 19:29:37 +00:00
cc65/libsrc/cbm510/banking.s

42 lines
435 B
ArmAsm
Raw Normal View History

;
; Ullrich von Bassewitz, 13.09.2001
;
; Banking routines for the 510.
;
.export set_bank, sys_bank, restore_bank
.importzp ptr1
.include "cbm510.inc"
.code
.proc sys_bank
pha
lda IndReg
sta IndSegSave
lda #$0F
sta IndReg
pla
rts
.endproc
.proc set_bank
pha
lda IndReg
sta IndSegSave
pla
sta IndReg
rts
.endproc
.proc restore_bank
pha
lda IndSegSave
sta IndReg
pla
rts
.endproc