cartridge version WIP. Not really usable yet.

1 files changed, 85 insertions, 0 deletions

diff --git a/bank7.s b/bank7.s
new file mode 100644
index 0000000..c86f889
--- /dev/null
+++ b/bank7.s
@@ -0,0 +1,85 @@
+
+ .include "atari.inc"
+
+font = $9c00
+CCNTL  = $d500
+destptr = FR0
+srcptr = FR1
+codedest = $0400
+
+cart_trailer = $bffa
+ .org $a000 ; left cartridge
+
+titledata:
+ .incbin "titledata.dat"
+
+dlist:
+
+; copy 7680 bytes from $8000-$9dff to (destptr).
+; on exit, destptr points to the next 7680 byte chunk.
+copy_30_pages:
+ lda #$0
+ tay
+ sta srcptr
+ lda #$80
+ sta srcptr+1
+ ldx #$1e
+@copypage:
+ lda (srcptr),y
+ sta (destptr),y
+ dey
+ bne @copypage
+ inc srcptr+1
+ inc destptr+1
+ dex
+ bne @copypage
+init:
+ rts
+
+start:
+; turn off ANTIC DMA to speed up copying to RAM
+ lda #0
+ sta SDMCTL
+ sta DMACTL
+
+; copy code to RAM
+ lda #<codedest
+ sta destptr
+ lda #>codedest
+ sta destptr+1
+ lda #0    ; bank 0...
+ sta CCNTL ; ...select it
+ jsr copy_30_pages
+ lda #1    ; bank 1...
+ sta CCNTL ; ...select it
+ jsr copy_30_pages
+ lda #2    ; bank 2...
+ sta CCNTL ; ...select it
+ jsr copy_30_pages
+ lda #3    ; bank 3...
+ sta CCNTL ; ...select it
+ jsr copy_30_pages
+
+ ; leave bank 3 enabled, as it has our custom font in it
+
+; set up display list
+ lda #34
+ sta SDMCTL
+ lda #>font
+ sta CHBAS
+ ;lda $ff
+ ;sta CH
+;@wait4key:
+ ;cmp CH
+ ;beq @wait4key
+ jsr $0400
+
+ .if * > cart_trailer
+  .fatal "bank7 code too large"
+ .endif
+
+ .res cart_trailer - *, $ff
+ .word start ; entry point
+ .byte 0     ; 0 = cartridge present
+ .byte 4     ; init and run the cart, don't boot the disk, non-diagnostic
+ .word init  ; init address (just an RTS)