cc65/libsrc/cbm610/banking.s

;
; Ullrich von Bassewitz, 28.09.1998
;
; Banking routines for the 610.
;

 	.export		set_bank, sys_bank, restore_bank
	.importzp      	ptr1, segsave

	.include       	"cbm610.inc"

.code

.proc	sys_bank
	pha
	lda  	IndReg
	sta  	segsave
	lda  	#$0F
	sta  	IndReg
	pla
	rts
.endproc

.proc	set_bank
	pha
	lda  	IndReg
	sta  	segsave
	pla
	sta  	IndReg
	rts
.endproc

.proc	restore_bank
	pha
	lda	segsave
	sta	IndReg
	pla
	rts
.endproc
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`;`
			`; Ullrich von Bassewitz, 28.09.1998`
			`;`
			`; Banking routines for the 610.`
			`;`

			`.export set_bank, sys_bank, restore_bank`
Complete redesign of the CBM610 support. Use wrappers to call the kernal in bank 15 instead of implementing kernal functionality within the cc65 libs (eats performance but is much smaller and simpler). Improved startup/shutdown code allows a return to the system bank without calling the BASIC cold start vector. git-svn-id: svn://svn.cc65.org/cc65/trunk@2793 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-12-20 23:13:26 +00:00			`.importzp ptr1, segsave`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00
Complete redesign of the CBM610 support. Use wrappers to call the kernal in bank 15 instead of implementing kernal functionality within the cc65 libs (eats performance but is much smaller and simpler). Improved startup/shutdown code allows a return to the system bank without calling the BASIC cold start vector. git-svn-id: svn://svn.cc65.org/cc65/trunk@2793 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-12-20 23:13:26 +00:00			`.include "cbm610.inc"`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00
			`.code`

			`.proc sys_bank`
			`pha`
			`lda IndReg`
Complete redesign of the CBM610 support. Use wrappers to call the kernal in bank 15 instead of implementing kernal functionality within the cc65 libs (eats performance but is much smaller and simpler). Improved startup/shutdown code allows a return to the system bank without calling the BASIC cold start vector. git-svn-id: svn://svn.cc65.org/cc65/trunk@2793 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-12-20 23:13:26 +00:00			`sta segsave`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`lda #$0F`
			`sta IndReg`
			`pla`
			`rts`
			`.endproc`

			`.proc set_bank`
			`pha`
			`lda IndReg`
Complete redesign of the CBM610 support. Use wrappers to call the kernal in bank 15 instead of implementing kernal functionality within the cc65 libs (eats performance but is much smaller and simpler). Improved startup/shutdown code allows a return to the system bank without calling the BASIC cold start vector. git-svn-id: svn://svn.cc65.org/cc65/trunk@2793 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-12-20 23:13:26 +00:00			`sta segsave`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`pla`
			`sta IndReg`
			`rts`
			`.endproc`

			`.proc restore_bank`
			`pha`
Complete redesign of the CBM610 support. Use wrappers to call the kernal in bank 15 instead of implementing kernal functionality within the cc65 libs (eats performance but is much smaller and simpler). Improved startup/shutdown code allows a return to the system bank without calling the BASIC cold start vector. git-svn-id: svn://svn.cc65.org/cc65/trunk@2793 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-12-20 23:13:26 +00:00			`lda segsave`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`sta IndReg`
			`pla`
			`rts`
			`.endproc`