From c68524fb30716a9ece935f85df5e02e14403b161 Mon Sep 17 00:00:00 2001
From: Ian C <ianc@noddybox.co.uk>
Date: Sat, 25 May 2024 21:37:36 +0100
Subject: Initial test skeleton with flashing colours to try on real VCS

---
 vcsdrive.asm | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

(limited to 'vcsdrive.asm')

diff --git a/vcsdrive.asm b/vcsdrive.asm
index dd84ef1..c271652 100644
--- a/vcsdrive.asm
+++ b/vcsdrive.asm
@@ -19,3 +19,36 @@
 ;
 ; Code
 ;
+        processor       6502
+        option          output-file,vcsdrive.bin
+
+        include         vcs.asm
+
+        org             $f000
+
+        ; Set up stack pointer
+start:
+        sei
+        cld
+        ldx             #$ff
+        txs
+
+        ; Initialise page zero
+        lda             #0
+.zero:
+        sta             $0,x
+        dex
+        bne             zero
+
+        ; Set background
+        lda             #$3e
+        clc
+.loop:
+        sta             COLUBK
+        adc             #1
+        jmp             loop
+
+        ; Set start adresses and pad ROM
+        org             $fffc
+        word            start
+        word            start
-- 
cgit v1.2.3