More cbm510 changes to make file I/O and kernal access work
git-svn-id: svn://svn.cc65.org/cc65/trunk@2846 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
@@ -1,20 +1,20 @@
|
||||
;
|
||||
; Ullrich von Bassewitz, 13.09.2001
|
||||
; Ullrich von Bassewitz, 28.09.1998
|
||||
;
|
||||
; Banking routines for the 510.
|
||||
; Banking routines for the 610.
|
||||
;
|
||||
|
||||
.export set_bank, sys_bank, restore_bank
|
||||
.importzp ptr1
|
||||
.importzp ptr1, segsave
|
||||
|
||||
.include "cbm510.inc"
|
||||
.include "cbm510.inc"
|
||||
|
||||
.code
|
||||
|
||||
.proc sys_bank
|
||||
pha
|
||||
lda IndReg
|
||||
sta IndSegSave
|
||||
sta segsave
|
||||
lda #$0F
|
||||
sta IndReg
|
||||
pla
|
||||
@@ -24,7 +24,7 @@
|
||||
.proc set_bank
|
||||
pha
|
||||
lda IndReg
|
||||
sta IndSegSave
|
||||
sta segsave
|
||||
pla
|
||||
sta IndReg
|
||||
rts
|
||||
@@ -32,7 +32,7 @@
|
||||
|
||||
.proc restore_bank
|
||||
pha
|
||||
lda IndSegSave
|
||||
lda segsave
|
||||
sta IndReg
|
||||
pla
|
||||
rts
|
||||
|
||||
Reference in New Issue
Block a user