Re: [stella] I think I got F8 bankswitching to work.

[Aaron Bergstrom <aaron.bergstrom@xxxxxxxxxxxxxx>]

Ahh... ok, I think I added this correctly. The file seems to run fine in 
both stella and z26. Could you check it once more please?

Thanks,

Aaron

Thomas Jentzsch wrote:

> Aaron wrote:
>  
>
> > Can someone check this for me to see that I wrote it properly?
> >    
>
> It's almost good. 
>
> One thing is missing and that is the start-vector in the first bank. 
> Since you don't know in which bank the game starts, you have to 
> fill that vector in *each* bank.
>
> Usually you do the startup code only in one bank and let the other banks
> directly switch to that bank.
>
> Have fun!
> Thomas
> _______________________________________________________
> Thomas Jentzsch         | *** Every bit is sacred ! ***
> tjentzsch at web dot de |
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> ____________________________________________________________________________
> ImmobilienScout24 - Über 170.000 Immobilien - Finden Sie hier Ihre neue
> Traumwohnung! In Immobilien die Nr.1 im Netz: http://info.is24.de/web.de
>
> ----------------------------------------------------------------------------------------------
> Archives (includes files) at http://www.biglist.com/lists/stella/archives/
> Unsub & more at http://www.biglist.com/lists/stella/
>
>  

	processor 6502
	include vcs.h

SC = $80

	org $1000
	rorg $d000

MainLoop2
VSyncSetup2
	LDA #2
	STA VSYNC
	STA WSYNC
	STA WSYNC
	STA WSYNC
	LDA #43
	STA TIM64T
	LDA #0
	STA VSYNC
VBlankWait2
	LDA INTIM
	BNE VBlankWait2
	LDA #1
	LDY #191
	STA WSYNC
	STA VBLANK
BurnToEnd2
	STA WSYNC
	DEY
	BNE BurnToEnd2

	LDA #2
	STA WSYNC
	STA VBLANK

	LDY #30
OverScan2
	STA WSYNC
	DEY
	BNE OverScan2

	LDA #240
	DEC SC
	BIT SC
	BEQ Next2
	JMP MainLoop2
Next2
	JMP ChangeColor2

	org $1100
	rorg $d100
ChangeColor2
	STA SC
	LDA $1ff9
	nop
	nop
	nop
	nop
	nop
	nop
	LDX #$72
	STX COLUBK
	JMP MainLoop2

	org $1fea
	rorg $dfea
Start2
	LDX $1ff9
	
	org $1ffc
	rorg $dffc
	.word Start2
	.word Start2

;---------------------
;Bank 2
;---------------------

	org $2000
	rorg $f000

Start
	SEI
	CLD
	LDX  #$FF
	TXS
	LDA  #0

ClearMem
	STA 0,X 
	DEX    
	BNE ClearMem
	LDA #240
	STA SC
	LDA #$FE
	STA COLUBK

MainLoop
VSyncSetup
	LDA #2
	STA VSYNC
	STA WSYNC
	STA WSYNC
	STA WSYNC
	LDA #43
	STA TIM64T
	LDA #0
	STA VSYNC
VBlankWait
	LDA INTIM
	BNE VBlankWait
	LDA #1
	LDY #191
	STA WSYNC
	STA VBLANK
BurnToEnd
	STA WSYNC
	DEY
	BNE BurnToEnd 

	LDA #2
	STA WSYNC
	STA VBLANK

	LDY #30
OverScan
	STA WSYNC
	DEY
	BNE OverScan

	LDA #240
	DEC SC
	BIT SC
	BEQ Next
	JMP MainLoop
Next
	JMP ChangeColor

	org $2100
	rorg $f100
ChangeColor
	STA SC
	LDA $1ff8
	nop
	nop
	nop
	nop
	nop
	nop
	LDX #$FE
	STX COLUBK
	JMP MainLoop
	
	org $2ff0   ;other bank start
	rorg $fff0  ;
	jmp Start

	org $2ffc
	rorg $fffc
	.word Start
	.word Start

Attachment: btest.bin
Description: Binary data