mirror of https://github.com/stella-emu/stella.git
755 lines
5.5 KiB
NASM
755 lines
5.5 KiB
NASM
;;A Bankswitching demo for the x07 scheme. 16 4K banks (64K total)
|
|
;;By: Rick Skrbina 6/11/09
|
|
|
|
|
|
processor 6502
|
|
include "vcs.h"
|
|
include "macro.h"
|
|
|
|
seg.u vars
|
|
org $80
|
|
|
|
|
|
seg bank0
|
|
org $0000
|
|
rorg $F000
|
|
|
|
Bank0
|
|
nop
|
|
nop
|
|
nop
|
|
|
|
CLEAN_START
|
|
|
|
|
|
Start_Frame
|
|
|
|
lda #2
|
|
sta VBLANK
|
|
sta VSYNC
|
|
sta WSYNC
|
|
sta WSYNC
|
|
sta WSYNC
|
|
lsr
|
|
sta VSYNC
|
|
|
|
ldy #37
|
|
VerticalBlank
|
|
sta WSYNC
|
|
dey
|
|
bne VerticalBlank
|
|
|
|
sty VBLANK
|
|
|
|
lda #$0F
|
|
sta COLUBK
|
|
|
|
ldy #12
|
|
Picture0
|
|
sta WSYNC
|
|
dey
|
|
bne Picture0
|
|
|
|
jsr Swch1
|
|
|
|
ldy #12
|
|
Picture1
|
|
sta WSYNC
|
|
dey
|
|
bne Picture1
|
|
|
|
jsr Swch2
|
|
|
|
ldy #12
|
|
Picture2
|
|
sta WSYNC
|
|
dey
|
|
bne Picture2
|
|
|
|
jsr Swch3
|
|
|
|
ldy #12
|
|
Picture3
|
|
sta WSYNC
|
|
dey
|
|
bne Picture3
|
|
|
|
jsr Swch4
|
|
|
|
ldy #12
|
|
Picture4
|
|
sta WSYNC
|
|
dey
|
|
bne Picture4
|
|
|
|
jsr Swch5
|
|
|
|
ldy #12
|
|
Picture5
|
|
sta WSYNC
|
|
dey
|
|
bne Picture5
|
|
|
|
jsr Swch6
|
|
|
|
ldy #12
|
|
Picture6
|
|
sta WSYNC
|
|
dey
|
|
bne Picture6
|
|
|
|
jsr Swch7
|
|
|
|
ldy #12
|
|
Picture7
|
|
sta WSYNC
|
|
dey
|
|
bne Picture7
|
|
|
|
jsr Swch8
|
|
|
|
ldy #12
|
|
Picture8
|
|
sta WSYNC
|
|
dey
|
|
bne Picture8
|
|
|
|
jsr Swch9
|
|
|
|
ldy #12
|
|
Picture9
|
|
sta WSYNC
|
|
dey
|
|
bne Picture9
|
|
|
|
jsr SwchA
|
|
|
|
ldy #12
|
|
PictureA
|
|
sta WSYNC
|
|
dey
|
|
bne PictureA
|
|
|
|
jsr SwchB
|
|
|
|
ldy #12
|
|
PictureB
|
|
sta WSYNC
|
|
dey
|
|
bne PictureB
|
|
|
|
jsr SwchC
|
|
|
|
ldy #12
|
|
PictureC
|
|
sta WSYNC
|
|
dey
|
|
bne PictureC
|
|
|
|
jsr SwchD
|
|
|
|
ldy #12
|
|
PictureD
|
|
sta WSYNC
|
|
dey
|
|
bne PictureD
|
|
|
|
jsr SwchE
|
|
|
|
; ldy #12
|
|
;PictureE
|
|
; sta WSYNC
|
|
; dey
|
|
; bne PictureE
|
|
|
|
; ldy #12
|
|
;PictureF
|
|
; sta WSYNC
|
|
; dey
|
|
; bne PictureF
|
|
|
|
lda #2
|
|
sta VBLANK
|
|
|
|
ldy #30
|
|
OverScan
|
|
sta WSYNC
|
|
dey
|
|
bne OverScan
|
|
|
|
jmp Start_Frame
|
|
|
|
org $0500
|
|
rorg $F500
|
|
|
|
Swch1
|
|
lda $081D
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
rts
|
|
|
|
;$F50A
|
|
|
|
Swch2
|
|
lda $082D
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
rts
|
|
|
|
;$F514
|
|
|
|
Swch3
|
|
lda $083D
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
rts
|
|
|
|
;$F51E
|
|
|
|
Swch4
|
|
lda $084D
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
rts
|
|
|
|
;$F528
|
|
|
|
Swch5
|
|
lda $085D
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
rts
|
|
|
|
;$F532
|
|
|
|
Swch6
|
|
lda $086D
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
rts
|
|
|
|
;$F53C
|
|
|
|
Swch7
|
|
lda $087D
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
rts
|
|
|
|
;$F543
|
|
|
|
Swch8
|
|
lda $088D
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
rts
|
|
|
|
;$F550
|
|
|
|
Swch9
|
|
lda $089D
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
rts
|
|
|
|
;$F55A
|
|
|
|
SwchA
|
|
lda $08AD
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
rts
|
|
|
|
;$F564
|
|
|
|
SwchB
|
|
lda $08BD
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
rts
|
|
|
|
;$F56E
|
|
|
|
SwchC
|
|
lda $08CD
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
rts
|
|
|
|
;$F578
|
|
|
|
SwchD
|
|
lda $08DD
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
rts
|
|
|
|
;$F582
|
|
|
|
SwchE
|
|
lda $08ED
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
rts
|
|
|
|
|
|
org $0FFC
|
|
rorg $FFFC
|
|
.word Bank0
|
|
.byte "00"
|
|
|
|
seg bank1
|
|
org $1000
|
|
rorg $F000
|
|
|
|
Bank1
|
|
nop $080D
|
|
Sub1
|
|
lda #$1F
|
|
sta COLUBK
|
|
; jmp Sub1
|
|
rts
|
|
|
|
org $1500
|
|
rorg $F500
|
|
nop
|
|
nop
|
|
nop
|
|
jsr Sub1
|
|
nop $080D
|
|
|
|
org $1FFC
|
|
rorg $FFFC
|
|
.word Bank1
|
|
.byte "01"
|
|
|
|
seg bank2
|
|
org $2000
|
|
rorg $F000
|
|
|
|
Bank2
|
|
nop $080D
|
|
Sub2
|
|
lda #$2F
|
|
sta COLUBK
|
|
rts
|
|
|
|
org $250A
|
|
rorg $F50A
|
|
nop
|
|
nop
|
|
nop
|
|
jsr Sub2
|
|
lda $080D
|
|
|
|
org $2FFC
|
|
rorg $FFFC
|
|
.word Bank2
|
|
.byte "02"
|
|
|
|
seg bank3
|
|
org $3000
|
|
rorg $F000
|
|
|
|
Bank3
|
|
nop $080D
|
|
|
|
Sub3
|
|
lda #$3F
|
|
sta COLUBK
|
|
rts
|
|
|
|
org $3514
|
|
rorg $F514
|
|
nop
|
|
nop
|
|
nop
|
|
jsr Sub3
|
|
lda $080D
|
|
|
|
org $3FFC
|
|
rorg $FFFC
|
|
.word Bank3
|
|
.byte "03"
|
|
|
|
seg bank4
|
|
org $4000
|
|
rorg $F000
|
|
|
|
Bank4
|
|
nop $080D
|
|
|
|
Sub4
|
|
lda #$4F
|
|
sta COLUBK
|
|
rts
|
|
|
|
org $451E
|
|
rorg $F51E
|
|
nop
|
|
nop
|
|
nop
|
|
jsr Sub4
|
|
lda $080D
|
|
|
|
org $4FFC
|
|
rorg $FFFC
|
|
.word Bank4
|
|
.byte "04"
|
|
|
|
seg bank5
|
|
org $5000
|
|
rorg $F000
|
|
|
|
Bank5
|
|
nop $080D
|
|
|
|
Sub5
|
|
lda #$5F
|
|
sta COLUBK
|
|
rts
|
|
|
|
org $5528
|
|
rorg $F528
|
|
nop
|
|
nop
|
|
nop
|
|
jsr Sub5
|
|
lda $080D
|
|
|
|
org $5FFC
|
|
rorg $FFFC
|
|
.word Bank5
|
|
.byte "05"
|
|
|
|
seg bank6
|
|
org $6000
|
|
rorg $F000
|
|
|
|
Bank6
|
|
nop $080D
|
|
|
|
Sub6
|
|
lda #$6F
|
|
sta COLUBK
|
|
rts
|
|
|
|
org $6532
|
|
rorg $F532
|
|
nop
|
|
nop
|
|
nop
|
|
jsr Sub6
|
|
lda $080D
|
|
|
|
org $6FFC
|
|
rorg $FFFC
|
|
.word Bank6
|
|
.byte "06"
|
|
|
|
seg bank7
|
|
org $7000
|
|
rorg $F000
|
|
|
|
Bank7
|
|
nop $080D
|
|
|
|
Sub7
|
|
lda #$7F
|
|
sta COLUBK
|
|
rts
|
|
|
|
org $753C
|
|
rorg $F53C
|
|
nop
|
|
nop
|
|
nop
|
|
jsr Sub7
|
|
lda $080D
|
|
|
|
org $7FFC
|
|
rorg $FFFC
|
|
.word Bank7
|
|
.byte "07"
|
|
|
|
seg bank8
|
|
org $8000
|
|
rorg $F000
|
|
|
|
Bank8
|
|
nop $080D
|
|
|
|
Sub8
|
|
lda #$8F
|
|
sta COLUBK
|
|
rts
|
|
|
|
org $8546
|
|
rorg $F546
|
|
nop
|
|
nop
|
|
nop
|
|
jsr Sub8
|
|
lda $080D
|
|
|
|
org $8FFC
|
|
rorg $FFFC
|
|
.word Bank8
|
|
.byte "08"
|
|
|
|
seg bank9
|
|
org $9000
|
|
rorg $F000
|
|
|
|
Bank9
|
|
nop $080D
|
|
|
|
Sub9
|
|
lda #$9F
|
|
sta COLUBK
|
|
rts
|
|
|
|
org $9550
|
|
rorg $F550
|
|
nop
|
|
nop
|
|
nop
|
|
jsr Sub9
|
|
lda $080D
|
|
|
|
org $9FFC
|
|
rorg $FFFC
|
|
.word Bank9
|
|
.byte "09"
|
|
|
|
seg bankA
|
|
org $A000
|
|
rorg $F000
|
|
|
|
BankA
|
|
nop $080D
|
|
|
|
SubA
|
|
lda #$AF
|
|
sta COLUBK
|
|
rts
|
|
|
|
org $A55A
|
|
rorg $F55A
|
|
nop
|
|
nop
|
|
nop
|
|
jsr SubA
|
|
lda $080D
|
|
|
|
org $AFFC
|
|
rorg $FFFC
|
|
.word BankA
|
|
.byte "0A"
|
|
|
|
seg bankB
|
|
org $B000
|
|
rorg $F000
|
|
|
|
BankB
|
|
nop $080D
|
|
|
|
SubB
|
|
lda #$BF
|
|
sta COLUBK
|
|
rts
|
|
|
|
org $B564
|
|
rorg $F564
|
|
nop
|
|
nop
|
|
nop
|
|
jsr SubB
|
|
lda $080D
|
|
|
|
org $BFFC
|
|
rorg $FFFC
|
|
.word BankB
|
|
.byte "0B"
|
|
|
|
seg bankC
|
|
org $C000
|
|
rorg $F000
|
|
|
|
BankC
|
|
nop $080D
|
|
|
|
SubC
|
|
lda #$CF
|
|
sta COLUBK
|
|
rts
|
|
|
|
org $C56E
|
|
rorg $F56E
|
|
nop
|
|
nop
|
|
nop
|
|
jsr SubC
|
|
lda $080D
|
|
|
|
org $CFFC
|
|
rorg $FFFC
|
|
.word BankC
|
|
.byte "0C"
|
|
|
|
seg bankD
|
|
org $D000
|
|
rorg $F000
|
|
|
|
BankD
|
|
nop $080D
|
|
|
|
SubD
|
|
lda #$DF
|
|
sta COLUBK
|
|
rts
|
|
|
|
org $D578
|
|
rorg $F578
|
|
nop
|
|
nop
|
|
nop
|
|
jsr SubD
|
|
lda $080D
|
|
|
|
org $DFFC
|
|
rorg $FFFC
|
|
.word BankD
|
|
.byte "0D"
|
|
|
|
seg bankE
|
|
org $E000
|
|
rorg $F000
|
|
|
|
BankE
|
|
nop $080D
|
|
|
|
SubE
|
|
|
|
lda #$EF
|
|
sta COLUBK+$40 ;Switch to bank F
|
|
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
|
|
ldy #12
|
|
PictureF
|
|
sta WSYNC
|
|
dey
|
|
bne PictureF
|
|
|
|
rts ;go back to bank 0
|
|
|
|
|
|
org $E582
|
|
rorg $F582
|
|
nop
|
|
nop
|
|
nop
|
|
jsr SubE
|
|
lda $080D
|
|
|
|
|
|
org $EFFC
|
|
rorg $FFFC
|
|
.word BankE
|
|
.byte "0E"
|
|
|
|
seg bankF
|
|
org $F000
|
|
rorg $F000
|
|
|
|
BankF
|
|
nop $080D
|
|
|
|
SubF
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
|
|
ldy #12
|
|
PictureE
|
|
sta WSYNC+$40 ;+$40 so no undesired BS
|
|
dey
|
|
bne PictureE
|
|
|
|
lda #$FF
|
|
sta COLUBK ;switch to bank E
|
|
|
|
|
|
org $FFFC
|
|
rorg $FFFC
|
|
.word BankF
|
|
.byte "0F"
|