diff --git a/.gitignore b/.gitignore
index 8c262ef5..4c410b76 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,4 +1,5 @@
 /OutlawEditor/target/
 /Platform/Apple/tools/A2Copy/nbproject/private/
 /Platform/Apple/tools/A2Copy/dist/
-/Platform/Apple/tools/A2Copy/build/
\ No newline at end of file
+/Platform/Apple/tools/A2Copy/build/
+/Platform/Apple/virtual/data/images/*.bin
diff --git a/Platform/Apple/tools/A2Copy/build.xml b/Platform/Apple/tools/A2Copy/build.xml
index b5380796..f29a3fd4 100644
--- a/Platform/Apple/tools/A2Copy/build.xml
+++ b/Platform/Apple/tools/A2Copy/build.xml
@@ -51,8 +51,7 @@
       -init-macrodef-junit:     defines macro for junit execution
       -init-macrodef-debug:     defines macro for class debugging
       -init-macrodef-java:      defines macro for class execution
-      -do-jar-with-manifest:    JAR building (if you are using a manifest)
-      -do-jar-without-manifest: JAR building (if you are not using a manifest)
+      -do-jar:                  JAR building
       run:                      execution of project 
       -javadoc-build:           Javadoc generation
       test-report:              JUnit report generation
diff --git a/Platform/Apple/tools/A2Copy/nbproject/build-impl.xml b/Platform/Apple/tools/A2Copy/nbproject/build-impl.xml
index c7fc01b8..2d13575a 100644
--- a/Platform/Apple/tools/A2Copy/nbproject/build-impl.xml
+++ b/Platform/Apple/tools/A2Copy/nbproject/build-impl.xml
@@ -54,6 +54,7 @@ is divided into following sections:
         <property file="nbproject/project.properties"/>
     </target>
     <target depends="-pre-init,-init-private,-init-user,-init-project,-init-macrodef-property" name="-do-init">
+        <property name="platform.java" value="${java.home}/bin/java"/>
         <available file="${manifest.file}" property="manifest.available"/>
         <condition property="splashscreen.available">
             <and>
@@ -71,10 +72,11 @@ is divided into following sections:
                 </not>
             </and>
         </condition>
-        <condition property="manifest.available+main.class">
+        <condition property="profile.available">
             <and>
-                <isset property="manifest.available"/>
-                <isset property="main.class.available"/>
+                <isset property="javac.profile"/>
+                <length length="0" string="${javac.profile}" when="greater"/>
+                <matches pattern="1\.[89](\..*)?" string="${javac.source}"/>
             </and>
         </condition>
         <condition property="do.archive">
@@ -91,12 +93,6 @@ is divided into following sections:
                 </not>
             </and>
         </condition>
-        <condition property="manifest.available+main.class+mkdist.available">
-            <and>
-                <istrue value="${manifest.available+main.class}"/>
-                <isset property="do.mkdist"/>
-            </and>
-        </condition>
         <condition property="do.archive+manifest.available">
             <and>
                 <isset property="manifest.available"/>
@@ -115,24 +111,12 @@ is divided into following sections:
                 <istrue value="${do.archive}"/>
             </and>
         </condition>
-        <condition property="do.archive+manifest.available+main.class">
+        <condition property="do.archive+profile.available">
             <and>
-                <istrue value="${manifest.available+main.class}"/>
+                <isset property="profile.available"/>
                 <istrue value="${do.archive}"/>
             </and>
         </condition>
-        <condition property="manifest.available-mkdist.available">
-            <or>
-                <istrue value="${manifest.available}"/>
-                <isset property="do.mkdist"/>
-            </or>
-        </condition>
-        <condition property="manifest.available+main.class-mkdist.available">
-            <or>
-                <istrue value="${manifest.available+main.class}"/>
-                <isset property="do.mkdist"/>
-            </or>
-        </condition>
         <condition property="have.tests">
             <or>
                 <available file="${test.src.dir}"/>
@@ -188,6 +172,9 @@ is divided into following sections:
         <condition else="" property="endorsed.classpath.cmd.line.arg" value="-Xbootclasspath/p:'${toString:endorsed.classpath.path}'">
             <length length="0" string="${endorsed.classpath}" when="greater"/>
         </condition>
+        <condition else="" property="javac.profile.cmd.line.arg" value="-profile ${javac.profile}">
+            <isset property="profile.available"/>
+        </condition>
         <condition else="false" property="jdkBug6558476">
             <and>
                 <matches pattern="1\.[56]" string="${java.specification.version}"/>
@@ -275,6 +262,7 @@ is divided into following sections:
                         <path path="@{classpath}"/>
                     </classpath>
                     <compilerarg line="${endorsed.classpath.cmd.line.arg}"/>
+                    <compilerarg line="${javac.profile.cmd.line.arg}"/>
                     <compilerarg line="${javac.compilerargs}"/>
                     <compilerarg value="-processorpath"/>
                     <compilerarg path="@{processorpath}:${empty.dir}"/>
@@ -314,6 +302,7 @@ is divided into following sections:
                         <path path="@{classpath}"/>
                     </classpath>
                     <compilerarg line="${endorsed.classpath.cmd.line.arg}"/>
+                    <compilerarg line="${javac.profile.cmd.line.arg}"/>
                     <compilerarg line="${javac.compilerargs}"/>
                     <customize/>
                 </javac>
@@ -446,7 +435,7 @@ is divided into following sections:
                     </fileset>
                 </union>
                 <taskdef classname="org.testng.TestNGAntTask" classpath="${run.test.classpath}" name="testng"/>
-                <testng classfilesetref="test.set" failureProperty="tests.failed" methods="${testng.methods.arg}" mode="${testng.mode}" outputdir="${build.test.results.dir}" suitename="A2Copy" testname="TestNG tests" workingDir="${work.dir}">
+                <testng classfilesetref="test.set" failureProperty="tests.failed" listeners="org.testng.reporters.VerboseReporter" methods="${testng.methods.arg}" mode="${testng.mode}" outputdir="${build.test.results.dir}" suitename="A2Copy" testname="TestNG tests" workingDir="${work.dir}">
                     <xmlfileset dir="${build.test.classes.dir}" includes="@{testincludes}"/>
                     <propertyset>
                         <propertyref prefix="test-sys-prop."/>
@@ -837,7 +826,7 @@ is divided into following sections:
                     </chainedmapper>
                 </pathconvert>
                 <taskdef classname="org.netbeans.modules.java.j2seproject.copylibstask.CopyLibs" classpath="${libs.CopyLibs.classpath}" name="copylibs"/>
-                <copylibs compress="${jar.compress}" index="${jar.index}" indexMetaInf="${jar.index.metainf}" jarfile="${dist.jar}" manifest="@{manifest}" rebase="${copylibs.rebase}" runtimeclasspath="${run.classpath.without.build.classes.dir}">
+                <copylibs compress="${jar.compress}" excludeFromCopy="${copylibs.excludes}" index="${jar.index}" indexMetaInf="${jar.index.metainf}" jarfile="${dist.jar}" manifest="@{manifest}" rebase="${copylibs.rebase}" runtimeclasspath="${run.classpath.without.build.classes.dir}">
                     <fileset dir="${build.classes.dir}"/>
                     <manifest>
                         <attribute name="Class-Path" value="${jar.classpath}"/>
@@ -966,41 +955,25 @@ is divided into following sections:
         <!-- Empty placeholder for easier customization. -->
         <!-- You can override this target in the ../build.xml file. -->
     </target>
-    <target depends="init,compile,-pre-pre-jar,-pre-jar" if="do.archive" name="-do-jar-without-manifest" unless="manifest.available-mkdist.available">
-        <j2seproject1:jar/>
-    </target>
-    <target depends="init,compile,-pre-pre-jar,-pre-jar" if="do.archive+manifest.available" name="-do-jar-with-manifest" unless="manifest.available+main.class-mkdist.available">
-        <j2seproject1:jar manifest="${manifest.file}"/>
-    </target>
-    <target depends="init,compile,-pre-pre-jar,-pre-jar" if="do.archive+manifest.available+main.class" name="-do-jar-with-mainclass" unless="manifest.available+main.class+mkdist.available">
-        <j2seproject1:jar manifest="${manifest.file}">
-            <j2seproject1:manifest>
-                <j2seproject1:attribute name="Main-Class" value="${main.class}"/>
-            </j2seproject1:manifest>
-        </j2seproject1:jar>
-        <echo level="info">To run this application from the command line without Ant, try:</echo>
-        <property location="${build.classes.dir}" name="build.classes.dir.resolved"/>
-        <property location="${dist.jar}" name="dist.jar.resolved"/>
-        <pathconvert property="run.classpath.with.dist.jar">
-            <path path="${run.classpath}"/>
-            <map from="${build.classes.dir.resolved}" to="${dist.jar.resolved}"/>
-        </pathconvert>
-        <echo level="info">java -cp "${run.classpath.with.dist.jar}" ${main.class}</echo>
-    </target>
-    <target depends="init" if="do.archive" name="-do-jar-with-libraries-create-manifest" unless="manifest.available">
+    <target depends="init" if="do.archive" name="-do-jar-create-manifest" unless="manifest.available">
         <tempfile deleteonexit="true" destdir="${build.dir}" property="tmp.manifest.file"/>
         <touch file="${tmp.manifest.file}" verbose="false"/>
     </target>
-    <target depends="init" if="do.archive+manifest.available" name="-do-jar-with-libraries-copy-manifest">
+    <target depends="init" if="do.archive+manifest.available" name="-do-jar-copy-manifest">
         <tempfile deleteonexit="true" destdir="${build.dir}" property="tmp.manifest.file"/>
         <copy file="${manifest.file}" tofile="${tmp.manifest.file}"/>
     </target>
-    <target depends="init,-do-jar-with-libraries-create-manifest,-do-jar-with-libraries-copy-manifest" if="do.archive+main.class.available" name="-do-jar-with-libraries-set-main">
+    <target depends="init,-do-jar-create-manifest,-do-jar-copy-manifest" if="do.archive+main.class.available" name="-do-jar-set-mainclass">
         <manifest file="${tmp.manifest.file}" mode="update">
             <attribute name="Main-Class" value="${main.class}"/>
         </manifest>
     </target>
-    <target depends="init,-do-jar-with-libraries-create-manifest,-do-jar-with-libraries-copy-manifest" if="do.archive+splashscreen.available" name="-do-jar-with-libraries-set-splashscreen">
+    <target depends="init,-do-jar-create-manifest,-do-jar-copy-manifest" if="do.archive+profile.available" name="-do-jar-set-profile">
+        <manifest file="${tmp.manifest.file}" mode="update">
+            <attribute name="Profile" value="${javac.profile}"/>
+        </manifest>
+    </target>
+    <target depends="init,-do-jar-create-manifest,-do-jar-copy-manifest" if="do.archive+splashscreen.available" name="-do-jar-set-splashscreen">
         <basename file="${application.splash}" property="splashscreen.basename"/>
         <mkdir dir="${build.classes.dir}/META-INF"/>
         <copy failonerror="false" file="${application.splash}" todir="${build.classes.dir}/META-INF"/>
@@ -1008,23 +981,41 @@ is divided into following sections:
             <attribute name="SplashScreen-Image" value="META-INF/${splashscreen.basename}"/>
         </manifest>
     </target>
-    <target depends="init,-init-macrodef-copylibs,compile,-pre-pre-jar,-pre-jar,-do-jar-with-libraries-create-manifest,-do-jar-with-libraries-copy-manifest,-do-jar-with-libraries-set-main,-do-jar-with-libraries-set-splashscreen" if="do.mkdist" name="-do-jar-with-libraries-pack">
+    <target depends="init,-init-macrodef-copylibs,compile,-pre-pre-jar,-pre-jar,-do-jar-create-manifest,-do-jar-copy-manifest,-do-jar-set-mainclass,-do-jar-set-profile,-do-jar-set-splashscreen" if="do.mkdist" name="-do-jar-copylibs">
         <j2seproject3:copylibs manifest="${tmp.manifest.file}"/>
         <echo level="info">To run this application from the command line without Ant, try:</echo>
         <property location="${dist.jar}" name="dist.jar.resolved"/>
         <echo level="info">java -jar "${dist.jar.resolved}"</echo>
     </target>
-    <target depends="-do-jar-with-libraries-pack" if="do.archive" name="-do-jar-with-libraries-delete-manifest">
+    <target depends="init,compile,-pre-pre-jar,-pre-jar,-do-jar-create-manifest,-do-jar-copy-manifest,-do-jar-set-mainclass,-do-jar-set-profile,-do-jar-set-splashscreen" if="do.archive" name="-do-jar-jar" unless="do.mkdist">
+        <j2seproject1:jar manifest="${tmp.manifest.file}"/>
+        <property location="${build.classes.dir}" name="build.classes.dir.resolved"/>
+        <property location="${dist.jar}" name="dist.jar.resolved"/>
+        <pathconvert property="run.classpath.with.dist.jar">
+            <path path="${run.classpath}"/>
+            <map from="${build.classes.dir.resolved}" to="${dist.jar.resolved}"/>
+        </pathconvert>
+        <condition else="" property="jar.usage.message" value="To run this application from the command line without Ant, try:${line.separator}${platform.java} -cp ${run.classpath.with.dist.jar} ${main.class}">
+            <isset property="main.class.available"/>
+        </condition>
+        <condition else="debug" property="jar.usage.level" value="info">
+            <isset property="main.class.available"/>
+        </condition>
+        <echo level="${jar.usage.level}" message="${jar.usage.message}"/>
+    </target>
+    <target depends="-do-jar-copylibs" if="do.archive" name="-do-jar-delete-manifest">
         <delete>
             <fileset file="${tmp.manifest.file}"/>
         </delete>
     </target>
-    <target depends="init,compile,-pre-pre-jar,-pre-jar,-do-jar-with-libraries-create-manifest,-do-jar-with-libraries-copy-manifest,-do-jar-with-libraries-set-main,-do-jar-with-libraries-set-splashscreen,-do-jar-with-libraries-pack,-do-jar-with-libraries-delete-manifest" name="-do-jar-with-libraries"/>
+    <target depends="init,compile,-pre-pre-jar,-pre-jar,-do-jar-create-manifest,-do-jar-copy-manifest,-do-jar-set-mainclass,-do-jar-set-profile,-do-jar-set-splashscreen,-do-jar-jar,-do-jar-delete-manifest" name="-do-jar-without-libraries"/>
+    <target depends="init,compile,-pre-pre-jar,-pre-jar,-do-jar-create-manifest,-do-jar-copy-manifest,-do-jar-set-mainclass,-do-jar-set-profile,-do-jar-set-splashscreen,-do-jar-copylibs,-do-jar-delete-manifest" name="-do-jar-with-libraries"/>
     <target name="-post-jar">
         <!-- Empty placeholder for easier customization. -->
         <!-- You can override this target in the ../build.xml file. -->
     </target>
-    <target depends="init,compile,-pre-jar,-do-jar-with-manifest,-do-jar-without-manifest,-do-jar-with-mainclass,-do-jar-with-libraries,-post-jar" description="Build JAR." name="jar"/>
+    <target depends="init,compile,-pre-jar,-do-jar-without-libraries,-do-jar-with-libraries,-post-jar" name="-do-jar"/>
+    <target depends="init,compile,-pre-jar,-do-jar,-post-jar" description="Build JAR." name="jar"/>
     <!--
                 =================
                 EXECUTION SECTION
diff --git a/Platform/Apple/tools/A2Copy/nbproject/genfiles.properties b/Platform/Apple/tools/A2Copy/nbproject/genfiles.properties
index f0541e06..572891af 100644
--- a/Platform/Apple/tools/A2Copy/nbproject/genfiles.properties
+++ b/Platform/Apple/tools/A2Copy/nbproject/genfiles.properties
@@ -1,8 +1,8 @@
 build.xml.data.CRC32=5246bcd2
-build.xml.script.CRC32=6c234e50
-build.xml.stylesheet.CRC32=28e38971@1.56.1.46
+build.xml.script.CRC32=43b3eb1f
+build.xml.stylesheet.CRC32=8064a381@1.68.1.46
 # This file is used by a NetBeans-based IDE to track changes in generated files such as build-impl.xml.
 # Do not edit this file. You may delete it but then the IDE will never regenerate such files for you.
 nbproject/build-impl.xml.data.CRC32=5246bcd2
-nbproject/build-impl.xml.script.CRC32=17d64078
-nbproject/build-impl.xml.stylesheet.CRC32=c6d2a60f@1.56.1.46
+nbproject/build-impl.xml.script.CRC32=ca8bcaaf
+nbproject/build-impl.xml.stylesheet.CRC32=cdba79fa@1.68.1.46
diff --git a/Platform/Apple/virtual/build.xml b/Platform/Apple/virtual/build.xml
new file mode 100644
index 00000000..242e4c32
--- /dev/null
+++ b/Platform/Apple/virtual/build.xml
@@ -0,0 +1,57 @@
+<?xml version="1.0"?>
+
+<project name="lawless" default="build">
+  
+  <property name="projName" value="lawless"/> <!-- base part of output file name -->
+  <property name="src.dir" location="./src"/> 
+  <property name="build.dir" value="./build"/>
+  <property name="a2copy.dir" value="../tools/A2Copy/dist"/>
+  
+  <property name="IMG_FILE" value="${build.dir}/${projName}.bin#${ORG_ADDR}"/>
+  
+  <target name="all">
+    <antcall target="clean"/>
+    <antcall target="build"/>
+  </target>
+  
+  <target name="clean">
+    <delete failonerror="false" dir="${build.dir}"/>
+    <ant dir="${src.dir}/raycast" target="clean" useNativeBasedir="true" inheritAll="false"/>
+  </target>
+  
+  <target name="build">
+
+    <!-- Create build directory -->
+    <mkdir dir="${build.dir}"/>
+
+    <!-- Build sub-projects -->
+    <echo>Building raycast.</echo>
+    <ant dir="${src.dir}/raycast" target="build" useNativeBasedir="true" inheritAll="false"/>
+
+    <!-- Construct a directory to put on the Apple -->
+    <mkdir dir="${build.dir}/root"/>
+    <copy todir="${build.dir}/root">
+      <fileset dir="${src.dir}/raycast/build" includes="*.bin*"/>
+    </copy>
+    <mkdir dir="${build.dir}/root/"/>
+    <copy todir="${build.dir}/root/assets">
+      <fileset dir="./data/images" includes="*.bin*"/>
+    </copy>
+    <copy todir="${build.dir}/root/assets">
+      <fileset dir="./data/tables" includes="*.bin*"/>
+    </copy>
+
+    <!-- Make a new base image file -->
+    <bunzip2 src="./data/disks/base.2mg.bz2" dest="${build.dir}/${projName}.2mg"/>
+
+    <!-- And stuff the directory into it -->
+    <java jar="${a2copy.dir}/a2copy.jar" fork="true" failonerror="true">
+      <arg value="-put"/>
+      <arg value="${build.dir}/${projName}.2mg"/>
+      <arg value="/"/>
+      <arg value="${build.dir}/root"/>
+    </java>
+
+  </target>
+  
+</project>
diff --git a/Platform/Apple/virtual/data/disks/base.2mg.bz2 b/Platform/Apple/virtual/data/disks/base.2mg.bz2
new file mode 100644
index 00000000..dbbcab77
Binary files /dev/null and b/Platform/Apple/virtual/data/disks/base.2mg.bz2 differ
diff --git a/Platform/Apple/virtual/data/tables/precast.bin b/Platform/Apple/virtual/data/tables/precast.bin
new file mode 100644
index 00000000..616c6d7c
Binary files /dev/null and b/Platform/Apple/virtual/data/tables/precast.bin differ
diff --git a/Platform/Apple/virtual/src/include/sample.build.props b/Platform/Apple/virtual/src/include/sample.build.props
new file mode 100644
index 00000000..57c4fd1b
--- /dev/null
+++ b/Platform/Apple/virtual/src/include/sample.build.props
@@ -0,0 +1,8 @@
+# Put your local development paths here
+# Take note of the path delimiters (ie:  the  /  )
+
+# Required entries
+# CC65_BIN_DIR
+
+# Examples
+CC65_BIN_DIR=/opt/local/bin
diff --git a/Platform/Apple/virtual/src/raycast/build.xml b/Platform/Apple/virtual/src/raycast/build.xml
new file mode 100644
index 00000000..b8157e1c
--- /dev/null
+++ b/Platform/Apple/virtual/src/raycast/build.xml
@@ -0,0 +1,56 @@
+<?xml version="1.0"?>
+
+<project name="render" default="build">
+  
+  <property name="projName" value="render"/> <!-- base part of output bin name -->
+  <property name="src.dir" location="."/> 
+  <property name="include.dir" location="../include"/>
+  <property file="${include.dir}/build.props"/> <!-- needs to define CC65_BIN_DIR -->
+
+  <property name="build.dir" value="${src.dir}/build"/>
+  
+  <property name="CA65_TOOL" location="${CC65_BIN_DIR}/ca65"/> 
+  <property name="LD65_TOOL" location="${CC65_BIN_DIR}/ld65"/> 
+  
+  <property name="ASM_SETTINGS" value="-t apple2"/>
+  <property name="ASM_INCLUDES" value="-I .."/>
+  
+  <property name="ORG_ADDR" value="900"/> <!-- load address, in hex -->
+  
+  <property name="BIN_FILE" value="${build.dir}/${projName}.bin#${ORG_ADDR}"/>
+  
+  <target name="all">
+    <antcall target="clean"/>
+    <antcall target="build"/>
+  </target>
+  
+  <target name="clean">
+    <delete failonerror="false" dir="${build.dir}"/>
+  </target>
+  
+  <target name="build">
+
+    <!-- Create build directory -->
+    <mkdir dir="${build.dir}"/>
+    
+    <!-- Compile ASM  -->
+    <apply executable="${CA65_TOOL}" dir="${src.dir}" relative="true" parallel="false" verbose="true">
+      <fileset dir="${src.dir}" includes="*.s"/>
+      <mapper type="glob" from="*.s" to="${build.dir}/*.o"/>
+      <arg line="${ASM_INCLUDES}"/>
+      <arg line="${ASM_SETTINGS}"/>
+      <arg line="-o"/>
+      <targetfile/>
+      <srcfile/>
+    </apply>
+    
+    <!-- Link it -->
+    <apply executable="${LD65_TOOL}" dir="${build.dir}" failonerror="true" verbose="true">
+      <arg line="-t none --start-addr 0x${ORG_ADDR} -o"/>
+      <arg value="${BIN_FILE}"/>
+      <fileset dir="${build.dir}" includes="*.o"/>
+    </apply>
+
+  </target>
+  
+</project>
diff --git a/Platform/Apple/virtual/src/raycast/main.s b/Platform/Apple/virtual/src/raycast/main.s
deleted file mode 100644
index e69de29b..00000000
diff --git a/Platform/Apple/virtual/src/raycast/render.s b/Platform/Apple/virtual/src/raycast/render.s
new file mode 100644
index 00000000..be289a7e
--- /dev/null
+++ b/Platform/Apple/virtual/src/raycast/render.s
@@ -0,0 +1,1149 @@
+
+CODEBEG = *
+
+    .pc02 ; Enable 65c02 ops
+
+; This code is written bottom-up. That is,
+; simple routines first, then routines that
+; call those to build complexity. The main
+; code is at the very end. We jump to it now.
+    JMP TEST
+
+; Conditional assembly flags
+DBLBUF = 0 ; whether to double-buffer
+DEBUG = 0 ; turn on verbose logging
+
+; Constants
+TOPLINE = $2000
+NLINES = 126
+SKYCOL = $11 ; blue
+GROUNDCOL = $2 ; orange / black
+
+; My zero page
+LINECT = $3 ; len 1
+BUMP = $4 ; len 1
+TXCOLNUM = $5 ; len 1
+PLINE = $6 ; len 2
+PDST = $8 ; len 2
+PTEX = $A ; len 2
+PBUMP = $C ; len 2
+PIXNUM = $E ; len 1
+BYTENUM = $F ; len 1
+PTMP = $10 ; len 2
+BACKBUF = $12 ; len 1 (value 0 or 1)
+FRONTBUF = $13 ; len 1 (value 0 or 1)
+PCAST = $14 ; len 2
+
+; Monitor zero page
+STARTADDR = $3C
+ENDADDR = $3E
+DESTADDR = $42
+
+; Place to stick ProDOS names temporarily
+NAMEBUF = $280
+
+; Tables and buffers
+SH0101 = $1000
+SH0123 = $1100
+SH0145 = $1200
+SH0156 = $1300
+SH0157 = $1400
+SH4501 = $1500
+SH4523 = $1600
+SH4545 = $1700
+SH4556 = $1800
+SH4557 = $1900
+BLITIDXL = $1A00 ; size $80
+BLITIDXH = $1A80 ; size $80
+DCMIDXL = $1B00 ; size $40 (one entry per two lines)
+DCMIDXH = $1B40 ; size $40
+X1B80 = $1B80 ; unused
+DCMROLL = $1C00 ; size 11*(126/2) = 693 = $2B5, plus 1 for rts
+CBLITROLL = $1F00 ; size 3*(126/2) = 189 = $BD, plus 2 for tya & rts
+
+PRODOSBUF = $1000 ; temporary, before tbls built
+SCREEN = $2000
+
+TEXTURES = $4000 ; size $5550 (5460 bytes x 4 textures)
+TEXSIZE = 5460
+TEX0 = TEXTURES
+TEX1 = TEX0+TEXSIZE
+TEX2 = TEX1+TEXSIZE
+TEX3 = TEX2+TEXSIZE
+UN9550 = $9550 ; unused
+BLITROLL = $A000 ; size 29*126 = 3654 = $E80, plus 1 for rts
+BUMPS = $AF00 ; len 64*64 = $1000
+GLOBALPG = $BF00 ; ProDOS global page
+MLI = GLOBALPG ; also the call point for ProDOS MLI
+MEMMAP = $BF58
+
+; I/O locations
+KBD = $C000
+CLRAUXRD = $C002
+SETAUXRD = $C003
+CLRAUXWR = $C004
+SETAUXWR = $C005
+CLRAUXZP = $C008
+SETAUXZP = $C009
+KBDSTRB = $C010
+CLRTEXT = $C050
+SETTEXT = $C051
+CLRMIXED = $C052
+SETMIXED = $C053
+PAGE1 = $C054
+PAGE2 = $C055
+CLRHIRES = $C056
+SETHIRES = $C057
+
+; ROM routines
+AUXMOVE = $C311
+PRNTAX = $F941
+RDKEY = $FD0C
+CROUT = $FD8E
+PRBYTE = $FDDA
+COUT = $FDED
+PRERR = $FF2D
+MONITOR = $FF69
+
+; Pixel offsets for even and odd blit lines
+BLITOFFE: .byte 5,8,11,1,17,20,24
+BLITOFFO: .byte 34,37,40,30,46,49,53
+; texture addresses
+TEXADRL: .byte <TEX0,<TEX1,<TEX2,<TEX3
+TEXADRH: .byte >TEX0,>TEX1,>TEX2,>TEX3
+    ; mip level offsets
+MIPOFFL: .byte <0,<4096,<5120,<5376,<5440,<5456,<5460
+MIPOFFH: .byte >0,>4096,>5120,>5376,>5440,>5456,>5460
+
+NEXTLINE:
+    LDA PLINE+1 ; Hi byte of line
+    CLC
+    ADC #4 ; Next line is 1K up
+    TAX
+    EOR PLINE+1
+    AND #$20 ; Past end of screen?
+    BEQ @DONE ; If not, we're done
+    TXA
+    SEC
+    SBC #$20 ; Back to start
+    TAX
+    LDA PLINE ; Lo byte
+    CLC
+    ADC #$80 ; Inner blks offset by 128 bytes
+    STA PLINE
+    BCC @DONE
+    INX ; Next page
+    TXA
+    AND #7
+    CMP #4 ; Still inside inner blk?
+    BNE @DONE ; If so we're done
+    TXA
+    SEC
+    SBC #4 ; Back to start of inner blk
+    TAX
+    LDA PLINE
+    CLC
+    ADC #$28 ; Outer blks offset by 40 bytes
+    STA PLINE
+@DONE:
+    STX PLINE+1
+    RTS
+
+; Template for blitting code
+
+BLITTPL: ; comments show byte offset
+; even rows
+    LDA SH0157 ;  0: pixel 3
+    ASL ;  3: save half of pix 3 in carry
+    ORA SH0101 ;  4: pixel 0
+    ORA SH0123 ;  7: pixel 1
+    ORA SH0145 ; 10: pixel 2
+    STA (0),Y ; 13: even column
+    INY ; 15: prep for odd
+    LDA SH0101 ; 16: pixel 4
+    ORA SH0123 ; 19: pixel 5
+    ROL ; 22: recover half of pix 3
+    ORA SH0156 ; 23: pixel 6 - after rol to ensure right hi bit
+    STA (0),Y ; 26: odd column
+    DEY ; 28: prep for even
+; odd rows
+    LDA SH4557 ; 29: pixel 3
+    ASL ; 32: save half of pix 3 in carry
+    ORA SH4501 ; 33: pixel 0
+    ORA SH4523 ; 36: pixel 1
+    ORA SH4545 ; 39: pixel 2
+    STA (2),Y ; 42: even column
+    INY ; 44: prep for odd
+    LDA SH4501 ; 45: pixel 4
+    ORA SH4523 ; 48: pixel 5
+    ROL ; 51: recover half of pix 3
+    ORA SH4556 ; 52: pixel 6 - after rol to ensure right hi bit
+    STA (2),Y ; 55: odd column
+    DEY ; 57: prep for even
+    ; 58: total
+
+; Create the unrolled blit code
+MAKEBLIT:
+    LDA #0 ; Start with line zero
+    STA LINECT
+    LDA #<TOPLINE ; Begin with the first screen line
+    STA PLINE
+    LDA #>TOPLINE
+    STA PLINE+1
+    LDA #<BLITROLL ; Store to blit unroll code buf
+    STA PDST
+    LDA #>BLITROLL
+    STA PDST+1
+@LINELUP:
+; Copy the template
+    LDY #57
+@COPY:
+    LDA BLITTPL,Y
+    STA (PDST),Y
+    DEY
+    BPL @COPY
+     ; Record the address for the even line
+    JSR @STIDX
+; Set the even line pointers
+    LDY #14
+    JSR @STLINE
+    LDY #27
+    JSR @STLINE
+    ; Get ready for odd line
+    JSR @ADVANCE
+    ; Record the address for the odd line
+    JSR @STIDX
+; Set the odd line pointers
+    LDY #14
+    JSR @STLINE
+    LDY #27
+    JSR @STLINE
+    ; Prepare for next iteration
+    JSR @ADVANCE
+; Loop until all lines are done
+    LDA LINECT
+    CMP #NLINES
+    BNE @LINELUP
+    JSR @STIDX ; Last addr to index
+    JMP STRTS ; Finish with RTS for cleanliness
+@STLINE: ; Subroutine to store PLINE to PDST
+    LDA LINECT
+    ASL
+    STA (PDST),Y
+    RTS
+@STIDX: ; Subroutine to store tbl ptr to index
+    LDY LINECT
+    LDA PDST
+    STA BLITIDXL,Y
+    LDA PDST+1
+    STA BLITIDXH,Y
+    RTS
+@ADVANCE: ; Subroutine to go to next unroll
+    LDA #29
+    JSR ADVPDST
+    INC LINECT
+    JMP NEXTLINE
+
+; Create code to clear the blit
+MAKECBLIT:
+    LDX #0
+    LDY #0
+@LUP:
+    LDA @ST
+    STA CBLITROLL,X
+    INX
+    LDA BLITIDXL,Y
+    STA CBLITROLL,X
+    INX
+    LDA BLITIDXH,Y
+@ST:
+    STA CBLITROLL,X
+    INX
+    INY
+    INY
+    CPY #64
+    BNE @NOSWITCH
+    LDA @TYA ; switch from sky color to ground color
+    STA CBLITROLL,X
+    INX
+@NOSWITCH:
+    CPY #NLINES
+    BNE @LUP
+    LDA @RTS
+    STA CBLITROLL,X
+@RTS:
+    RTS
+@TYA:
+    TYA
+
+; Clear the blit
+CLRBLIT:
+    LDY #GROUNDCOL
+CLRBLIT2:
+    LDX BLITOFFE+0
+    LDA #SKYCOL
+    JSR CBLITROLL
+    LDX BLITOFFE+1
+    LDA #SKYCOL
+    JSR CBLITROLL
+    LDX BLITOFFE+2
+    LDA #SKYCOL
+    JSR CBLITROLL
+    LDX BLITOFFE+3
+    LDA #SKYCOL
+    JSR CBLITROLL
+    LDX BLITOFFE+4
+    LDA #SKYCOL
+    JSR CBLITROLL
+    LDX BLITOFFE+5
+    LDA #SKYCOL
+    JSR CBLITROLL
+    LDX BLITOFFE+6
+    LDA #SKYCOL
+    JSR CBLITROLL
+    LDX BLITOFFO+0
+    LDA #SKYCOL
+    JSR CBLITROLL
+    LDX BLITOFFO+1
+    LDA #SKYCOL
+    JSR CBLITROLL
+    LDX BLITOFFO+2
+    LDA #SKYCOL
+    JSR CBLITROLL
+    LDX BLITOFFO+3
+    LDA #SKYCOL
+    JSR CBLITROLL
+    LDX BLITOFFO+4
+    LDA #SKYCOL
+    JSR CBLITROLL
+    LDX BLITOFFO+5
+    LDA #SKYCOL
+    JSR CBLITROLL
+    LDX BLITOFFO+6
+    LDA #SKYCOL
+    JMP CBLITROLL
+
+; Construct the shift tables
+MAKESHIFT:
+    LDX #0
+@SH01:
+    TXA
+    AND #3
+@SH0101:
+    STA SH0101,X
+@SH0123:
+    ASL
+    ASL
+    STA SH0123,X
+@SH0145:
+    ASL
+    ASL
+    ORA #$80
+    STA SH0145,X
+@SH0156:
+    ASL
+    ORA #$80
+    STA SH0156,X
+@SH0157:
+    ASL
+    ASL
+    PHP
+    LSR
+    PLP
+    ROR
+    STA SH0157,X
+@SH45:
+    TXA
+    LSR
+    LSR
+    LSR
+    LSR
+    AND #3
+@SH4501:
+    ORA #$80
+    STA SH4501,X
+@SH4523:
+    ASL
+    ASL
+    ORA #$80
+    STA SH4523,X
+@SH4545:
+    ASL
+    ASL
+    ORA #$80
+    STA SH4545,X
+@SH4556:
+    ASL
+    ORA #$80
+    STA SH4556,X
+@SH4557:
+    ASL
+    ASL
+    PHP
+    LSR
+    PLP
+    ROR
+    STA SH4557,X
+@NEXT:
+    INX
+    BNE @SH01
+    RTS
+
+; Template for decimation. Offsets in comments
+DCMTPL:
+    LDA (PTEX),Y ; 0
+    STA BLITROLL,X ; 2
+    STA BLITROLL+29,X ; 5
+    LDA (PBUMP),Y ; 8
+    TAY ; 10
+    ; 11
+
+; Unroll the decimation code
+MAKEDCM:
+    LDX #0 ; Line counter
+    LDA #<DCMROLL
+    STA PDST
+    LDA #>DCMROLL
+    STA PDST+1
+@ONESET:
+; Save address to the index
+    JSR @STIDX
+    LDY #11 ; Copy the template
+@COPYSET: 
+    LDA DCMTPL,Y
+    STA (PDST),Y
+    DEY
+    BPL @COPYSET
+    LDY #3
+    JSR @STBLIT
+    LDY #6
+    JSR @STBLIT
+    LDA #11
+    JSR ADVPDST
+@MORE:
+    ; Loop until all lines done
+    CPX #NLINES
+    BCC @ONESET
+    JSR @STIDX ; Last addr to index
+    JMP STRTS ; Finish with an RTS for cleanliness
+@STBLIT: ; Store current blit addr
+    LDA BLITIDXL,X
+    STA (PDST),Y
+    INY
+    LDA BLITIDXH,X
+    STA (PDST),Y
+    INX ; Next line
+    RTS
+@STIDX:
+    TXA
+    LSR ; One entry per two lines
+    TAY
+    LDA PDST
+    STA DCMIDXL,Y
+    LDA PDST+1
+    STA DCMIDXH,Y
+    RTS
+
+STRTS:
+    LDA #$60 ; Store an RTS at PDST
+    LDY #0
+    STA (PDST),Y
+    RTS
+ADVPDST: ; Add A to PDST
+    CLC
+    ADC PDST
+    STA PDST
+    BCC @RTS
+    INC PDST+1
+@RTS:
+    RTS
+
+; Clear all the memory we're going to fill
+CLRMEM:
+    LDX #$10
+    LDA #$BE
+    JMP CLRSCR2
+
+; Clear the screens
+CLRSCR:
+    LDX #>SCREEN
+    .if DBLBUF
+    LDA #>SCREEN + $40 ; both hi-res screens
+    .else
+    LDA #>SCREEN + $20 ; one hi-res screen
+    .endif
+CLRSCR2:
+    STA @LIMIT+1
+    LDY #0
+    STY PDST
+    TYA
+@OUTER:
+    STX PDST+1
+@INNER:
+    STA (PDST),Y
+    INY
+    BNE @INNER
+    INX
+@LIMIT:
+    CPX #>SCREEN + $20
+    BNE @OUTER
+    RTS
+
+; Make a simple texture with alternating colors.
+; Input: Y = tex num
+;        A, X: color numbers, 0-3
+SIMPLETEX:
+    STA @LD1+1
+    TXA
+    ASL
+    ASL
+    ASL
+    ASL
+    STA @LD2+1
+    LDA TEXADRL,Y
+    STA PDST
+    LDA TEXADRH,Y
+    STA PDST+1
+    LDX #>TEXSIZE
+    LDY #0
+    STY @LIM+1
+@OUTER:
+@LD1:
+    LDA #0
+@LD2:
+    ORA #0
+@LUP:
+    STA (PDST),Y
+    INY
+@LIM:
+    CPY #0
+    BNE @LUP
+    INC PDST+1
+    DEX
+    BMI @DONE
+    BNE @OUTER
+    LDA #<TEXSIZE ; partial last page
+    STA @LIM+1
+    JMP @OUTER
+@DONE: RTS
+
+; Generate the table of "bumps" for decimation
+MAKEBUMPS:
+    LDA #63 ; 126/2 bump lists
+    STA LINECT
+    LDA #<BUMPS
+    STA PDST
+    LDA #>BUMPS
+    STA PDST+1
+    LDA #0
+    STA @RATIOL
+    LDA #1
+    STA @RATIOH
+; Goal is to make ratio = 63 divided by targetSize.
+; The calculation is cool & weird, but I verified
+; in Python that the logic actually works. You
+; start with hi=1, lo=0. To calculate the next
+; step, add hi to low and take the sum mod the next
+; target size. To use the ratio, increment by hi
+; and lo. Whenever the low byte goes beyond the
+; target size, add an extra to hi.
+@ONEPASS:
+    LDA LINECT ; Init A with the lo byte = target size
+    LSR ; ...div 2
+    LDX #0 ; Hi byte always starts at zero
+    LDY #0 ; Location to store at
+@BUMPLUP:
+    CLC  ; increment lo byte by ratio
+    ADC @RATIOL
+    CMP LINECT ; if we wrap around, need extra hi-byte bump
+    BCC @NOBM
+    SEC
+    SBC LINECT
+    INX
+@NOBM:
+    PHA ; save lo byte
+    TXA ; now work on hi byte
+    CLC
+    ADC @RATIOH
+    TAX
+    STA (PDST),Y ; store to the table
+    TAY ; next loc to store
+    CPX #63 ; check for end of column
+    PLA ; get lo byte back
+    BCC @BUMPLUP ; loop until whole column is done
+    LDA #64
+    JSR ADVPDST ; advance dst to next column
+@NEXT:
+    DEC LINECT ; all columns complete?
+    BEQ @DONE
+    LDA @RATIOL ; next ratio calculation (see explanation above)
+    CLC
+    ADC @RATIOH
+@MODLUP:
+    CMP LINECT
+    BCC @NOMOD
+    INC @RATIOH
+    SEC
+    SBC LINECT
+    BNE @MODLUP ; this must indeed be a loop
+@NOMOD:
+    STA @RATIOL
+    JMP @ONEPASS ; next column
+@DONE:
+    RTS
+@RATIOL: .byte 0
+@RATIOH: .byte 0
+
+; Decimate a column of the texture
+; Input: Y - texture number
+;        TXCOLNUM - src column num in the texture
+;        PIXNUM - dst pixel num in the blit roll
+;        LINECT - height to render, in dbl lines
+; The output will be vertically centered.
+DCMCOL:
+    ; if height is zero, render nothing
+    LDA LINECT
+    BNE @NOTZERO
+    RTS
+@NOTZERO:
+    ; determine mip level in X reg
+    LDX #0
+    LDA LINECT
+    STA @ADJHT
+    LDA TXCOLNUM
+    STA @ADJCOL
+    LDA #32
+@MIPLUP:
+    CMP LINECT
+    BCC @GOTMIP
+    INX
+    ASL @ADJHT
+    LSR @ADJCOL
+    LSR
+    CMP #2
+    BCS @MIPLUP
+@GOTMIP:
+    .if DEBUG
+    LDA #"t"
+    JSR COUT
+    TYA
+    JSR PRBYTE
+    LDA #" "
+    JSR COUT
+
+    LDA #"h"
+    JSR COUT
+    LDA LINECT
+    JSR PRBYTE
+    LDA #" "
+    JSR COUT
+
+    LDA #"m"
+    JSR COUT
+    TXA
+    JSR PRBYTE
+    LDA #" "
+    JSR COUT
+    .endif
+
+    ; calc addr of tex
+    LDA TEXADRL,Y
+    CLC
+    ADC MIPOFFL,X
+    STA PDST
+    LDA TEXADRH,Y
+    ADC MIPOFFH,X
+    STA PDST+1
+
+    .if DEBUG
+    LDA #"a"
+    JSR COUT
+    LDA PDST+1
+    JSR PRBYTE
+    LDA PDST
+    JSR PRBYTE
+    LDA #" "
+    JSR COUT
+    .endif
+
+@CALCOFF: ; calc offset within tex
+    LDA #0
+    STA PTEX+1
+    LDA @ADJCOL
+@SHIFT:
+    ASL
+    ROL PTEX+1
+    INX ; Note: destroys mip level
+    CPX #6
+    BNE @SHIFT
+
+    .if DEBUG
+    PHA
+    LDA #"x"
+    JSR COUT
+    LDA @ADJCOL
+    JSR PRBYTE
+    LDA #" "
+    JSR COUT
+
+    LDA #"o"
+    JSR COUT
+    LDA PTEX+1
+    JSR PRBYTE
+    PLA
+    PHA
+    JSR PRBYTE
+    LDA #" "
+    JSR COUT
+    PLA
+    .endif
+
+    CLC
+    ADC PDST
+    STA PTEX
+    LDA PTEX+1
+    ADC PDST+1
+    STA PTEX+1
+; calculate bump table ptr
+    LDX @ADJHT
+    JSR CALCBUMP
+    ; figure first line in decim unroll
+    LDA #63
+    SEC
+    SBC LINECT ; height 63 is first in decim tbl
+    LSR
+    TAX
+    LDA DCMIDXL,X
+    STA @CALL+1
+    LDA DCMIDXH,X
+    STA @CALL+2
+    ; figure last line of decim unroll
+    TXA
+    CLC
+    ADC LINECT
+    TAX
+    LDA DCMIDXL,X
+    STA PTMP
+    LDA DCMIDXH,X
+    STA PTMP+1
+; determine blit offset for writing
+    LDY PIXNUM
+    LDX BLITOFFE,Y
+    ; store RTS so decim returns @ right moment
+    LDY #0
+    LDA (PTMP),Y ; save existing byte
+    PHA
+    LDA @RTS
+    STA (PTMP),Y
+
+    .if DEBUG
+    PHX
+    PHY
+    JSR RDKEY
+    PHA
+    JSR CROUT
+    PLA
+    PLY
+    PLX
+    CMP #$9B
+    BNE @NOTESC
+    BRK
+@NOTESC:
+    NOP
+    .endif
+
+@CALL:
+    JSR DCMROLL
+; fix RTS to what it was before
+    LDY #0
+    PLA
+    STA (PTMP),Y
+
+    .if DEBUG
+    LDY BYTENUM ; to see results early
+    STA SETAUXZP
+    JSR BLITROLL
+    STA CLRAUXZP
+    .endif
+
+@RTS:
+    RTS
+@ADJHT: .byte 0
+@ADJCOL: .byte 0
+
+; Calc pointer into the bump table
+; Input: X - height to render in dbl lines
+CALCBUMP:
+    STX @SUB+1
+    LDA #0
+    STA PBUMP+1
+    LDA #63 ; bump 63 is actually first
+    SEC
+@SUB:
+    SBC #0
+    BPL @NOTNEG
+    LDA #0
+@NOTNEG:
+
+    .if DEBUG
+    PHA
+    LDA #"b"
+    JSR COUT
+    PLA
+    PHA
+    JSR PRBYTE
+    LDA #" "
+    JSR COUT
+    PLA
+    .endif
+
+    LDX #6
+@LUP:
+    ASL
+    ROL PBUMP+1
+    DEX
+    BNE @LUP
+    CLC
+    ADC #<BUMPS
+    STA PBUMP
+    LDA PBUMP+1
+    ADC #>BUMPS
+    STA PBUMP+1
+
+    .if DEBUG
+    LDA #"p"
+    JSR COUT
+    LDA PBUMP+1
+    JSR PRBYTE
+    LDA PBUMP
+    JSR PRBYTE
+    LDA #" "
+    JSR COUT
+    .endif
+
+    RTS
+
+; Build table of screen line pointers
+; on aux zero-page
+MAKELINES:
+    LDA #0
+    STA LINECT
+    LDA #<TOPLINE
+    STA PLINE
+    LDA #>TOPLINE
+    STA PLINE+1
+@LUP:
+    LDA LINECT
+    ASL
+    TAX
+    LDA PLINE
+    LDY PLINE+1
+    STA SETAUXZP
+    STA 0,X
+    STY 1,X
+    STA CLRAUXZP
+    JSR NEXTLINE
+    INC LINECT
+    LDA LINECT
+    CMP #NLINES
+    BNE @LUP
+    RTS
+
+; Set screen lines to current back buf
+SETBKBUF:
+; calculate screen start
+    LDA BACKBUF
+    ASL
+    ASL
+    ASL
+    ASL
+    ASL
+    CLC
+    ADC #$20
+    STA SETAUXZP
+    STA $FF
+    LDX #0
+@LUP:
+    LDA 1,X
+    AND #$1F
+    ORA $FF
+    STA 1,X
+    INX
+    INX
+    BNE @LUP
+    STA CLRAUXZP
+    RTS
+
+; Load file, len-prefixed name in A/X (hi/lo), to addr on stack
+; (push hi byte first, then push lo byte)
+BLOAD:
+    STX @MLICMD+1 ; filename lo
+    STA @MLICMD+2 ; filename hi
+    LDA #<PRODOSBUF
+    STA @MLICMD+3
+    LDA #>PRODOSBUF
+    STA @MLICMD+4
+    LDA #$C8 ; open
+    LDX #3
+    JSR @DOMLI
+    LDA @MLICMD+5 ; get handle and put it in place
+    STA @MLICMD+1
+    PLY ; save ret addr
+    PLX
+    PLA
+    STA @MLICMD+2 ; load addr lo
+    PLA
+    STA @MLICMD+3 ; load addr hi
+    PHX ; restore ret addr
+    PHY
+    LDA #$CA ; read
+    STA @MLICMD+5 ; also length (more than enough)
+    LDX #4
+    JSR @DOMLI
+@CLOSE:
+    STZ @MLICMD+1 ; close all
+    LDA #$CC
+    LDX #1
+    ; fall through
+@DOMLI:
+    STA @MLIOP
+    STX @MLICMD
+    JSR MLI
+@MLIOP: .byte 0
+    .addr @MLICMD
+    BCS @ERR
+    RTS
+@ERR:
+    JSR PRBYTE
+    JSR PRERR
+    LDX #$FF
+    TXS
+    JMP MONITOR
+@MLICMD: .res 10 ; 10 bytes should be plenty
+
+; Copy X pages starting at pg Y to aux mem
+CPTOAUX:
+    STA SETAUXWR
+    STY PDST+1
+    LDY #0
+    STY PDST
+@LUP:
+    LDA (PDST),Y
+    STA (PDST),Y
+    INY
+    BNE @LUP
+    INC PDST+1
+    DEX
+    BNE @LUP
+    STA CLRAUXWR
+    RTS
+
+; Fetch the next byte from the pre-raycasted data
+; Note this routine needs to be copied to aux mem.
+GETCAST:
+    LDY #0
+    STA SETAUXRD
+    LDA (PCAST),Y
+    STA CLRAUXRD
+    INC PCAST
+    BNE @DONE
+    INC PCAST+1
+@DONE:
+    RTS
+
+; Test code to see if things really work
+TEST:
+    ; clear ProDOS mem map so it lets us load
+    LDX #$18
+    LDA #1
+@MEMLUP:
+    STA MEMMAP-1,X
+    LDA #0
+    DEX
+    BNE @MEMLUP
+; load the pre-raycast data
+    LDA #$20 ; addr hi
+    PHA
+    LDA #0 ; addr lo
+    PHA
+    LDX #<@PRECASTNM
+    LDA #>@PRECASTNM
+    JSR BLOAD
+; copy it to aux mem
+    LDY #$20
+    LDX #$60
+    JSR CPTOAUX
+    LDA #0 ; set ptr to it
+    STA PCAST
+    LDA #$20
+    STA PCAST+1
+; copy our code to aux mem
+    LDY #>CODEBEG
+    LDX #>CODEEND - >CODEBEG + 1
+    JSR CPTOAUX
+; set up everything else
+    JSR CLRMEM
+    ; load the textures
+    LDA #>TEX0
+    PHA
+    LDA #<TEX0
+    PHA
+    LDX #<@TEX0NAME
+    LDA #>@TEX0NAME
+    JSR BLOAD
+
+    LDA #>TEX1
+    PHA
+    LDA #<TEX1
+    PHA
+    LDX #<@TEX1NAME
+    LDA #>@TEX1NAME
+    JSR BLOAD
+
+    LDA #>TEX2
+    PHA
+    LDA #<TEX2
+    PHA
+    LDX #<@TEX2NAME
+    LDA #>@TEX2NAME
+    JSR BLOAD
+
+    LDA #>TEX3
+    PHA
+    LDA #<TEX3
+    PHA
+    LDX #<@TEX3NAME
+    LDA #>@TEX3NAME
+    JSR BLOAD
+; build all the unrolls and tables
+    JSR MAKEBLIT
+    JSR MAKECBLIT
+    JSR MAKESHIFT
+    JSR MAKEDCM
+    JSR MAKEBUMPS
+    JSR MAKELINES
+    JSR CLRSCR
+; set up front and back buffers
+    LDA #0
+    STA FRONTBUF
+    .if DBLBUF
+    LDA #1
+    .endif
+    STA BACKBUF
+
+    BIT CLRTEXT
+    BIT SETHIRES
+
+    LDA #63
+    STA LINECT
+    LDA #1
+    STA @DIR
+    JSR CLRBLIT
+@ONELVL:
+    LDA #0
+    STA PIXNUM
+    STA BYTENUM
+    .if DBLBUF
+    JSR SETBKBUF
+    .endif
+
+    .if DEBUG
+    LDA PCAST+1
+    JSR PRBYTE
+    LDA PCAST
+    JSR PRBYTE
+    JSR CROUT
+    .endif
+
+@ONECOL:
+    JSR GETCAST ; first byte is height
+    CMP #$FF
+    BNE @NORESET
+; found end of cast data, start over
+    LDA #0
+    STA PCAST
+    LDA #$20
+    STA PCAST+1
+    JSR GETCAST
+@NORESET:
+    CMP #63
+    BCC @HTOK
+    LDA #62
+@HTOK:
+    STA LINECT
+    JSR GETCAST ; second byte is tex num and tex col
+    PHA
+    AND #$3F
+    CMP #63
+    BCC @COLOK
+    LDA #62
+@COLOK:
+    STA TXCOLNUM
+    PLA
+    LSR ; div by 64
+    LSR
+    LSR
+    LSR
+    LSR
+    LSR
+    TAY ; Y now holds tex num
+    JSR DCMCOL
+    INC PIXNUM
+    LDA PIXNUM
+    CMP #7
+    BNE @ONECOL
+@FLUSH:
+    LDY BYTENUM
+    STA SETAUXZP
+    JSR BLITROLL
+    STA CLRAUXZP
+    JSR CLRBLIT
+    LDA #0
+    STA PIXNUM
+    INC BYTENUM
+    INC BYTENUM
+    LDA BYTENUM
+    CMP #18
+    BNE @ONECOL
+@NEXTLVL:
+; flip onto the screen
+    .if DBLBUF
+    LDX BACKBUF
+    LDA FRONTBUF
+    STA BACKBUF
+    STX FRONTBUF
+    LDA PAGE1,X
+    .endif
+    ; adv past FE in cast data
+    JSR GETCAST
+    CMP #$FE
+    BNE @ERR
+    JSR GETCAST
+    CMP #$FE
+    BEQ @INCDEC
+@ERR:
+    BRK
+@INCDEC:
+    LDA KBD ; stop if ESC is pressed
+    CMP #$9B
+    BEQ @DONE
+    JMP @ONELVL
+@DONE:
+    STA KBDSTRB ; eat the keypress
+    BIT SETTEXT
+    BIT PAGE1
+    RTS
+@DIR: .byte 1
+@TEX0NAME: .byte 21
+    .byte "/LL/ASSETS/BUILDING01"
+@TEX1NAME: .byte 21
+    .byte "/LL/ASSETS/BUILDING02"
+@TEX2NAME: .byte 21
+    .byte "/LL/ASSETS/BUILDING03"
+@TEX3NAME: .byte 21
+    .byte "/LL/ASSETS/BUILDING04"
+@PRECASTNM: .byte 18
+    .byte "/LL/ASSETS/PRECAST"
+
+CODEEND = *
+