From 98ec58291c61c7b73f6fc403bd0c5cd40e6ab58f Mon Sep 17 00:00:00 2001
From: Martin Haye <m1@snyder-haye.com>
Date: Fri, 30 Aug 2013 08:18:14 -0700
Subject: [PATCH] Turned on double buffering, and enabled multiple steps. At
 least we can see the speed now.

---
 Platform/Apple/virtual/src/raycast/render.s | 37 +++++++++++++++++----
 1 file changed, 30 insertions(+), 7 deletions(-)

diff --git a/Platform/Apple/virtual/src/raycast/render.s b/Platform/Apple/virtual/src/raycast/render.s
index 166ac471..e32b57af 100644
--- a/Platform/Apple/virtual/src/raycast/render.s
+++ b/Platform/Apple/virtual/src/raycast/render.s
@@ -19,8 +19,8 @@ codeBeg = *
     jmp selectMip5
 
 ; Conditional assembly flags
-DOUBLE_BUFFER = 0 ; whether to double-buffer
-DEBUG = 1 ; turn on verbose logging
+DOUBLE_BUFFER = 1 ; whether to double-buffer
+DEBUG = 0 ; turn on verbose logging
 
 ; Constants
 TOP_LINE       = $2180 ; 24 lines down from top
@@ -59,7 +59,7 @@ deltaDistX = $52 ; len 1
 deltaDistY = $53 ; len 1
 dist       = $54 ; len 2
 diff       = $56 ; len 2
-playerDir  = $57 ; len 1
+playerDir  = $58 ; len 1
 
 ; Other monitor locations
 a2l      = $3E
@@ -1186,12 +1186,15 @@ test:
     sta resetVec+2
 
 ; Establish the initial player position and direction
-    ; X=2.5, Y=2.5
-    lda #2
+    ; X=5.5
+    lda #5
     sta playerX+1
-    sta playerY+1
     lda #$80
     sta playerX
+    ; Y=2.5
+    lda #2
+    sta playerY+1
+    lda #$80
     sta playerY
     ; direction=0
     lda #0
@@ -1262,6 +1265,16 @@ test:
     lda #>@frameName
     jsr bload
 
+    .if DOUBLE_BUFFER
+    lda #>$4000
+    pha
+    lda #<$4000
+    pha
+    ldx #<@frameName
+    lda #>@frameName
+    jsr bload
+    .endif
+
 ; Build all the unrolls and tables
     DEBUG_STR "Making tables."
     jsr makeBlit
@@ -1361,8 +1374,18 @@ test:
 @pauseLup:
     lda kbd
     bpl @pauseLup
-@done:
     sta kbdStrobe ; eat the keypress
+    cmp #$9B
+    beq @done
+; advance
+    lda playerX
+    clc
+    adc #$40
+    sta playerX
+    bcc :+
+    inc playerX+1
+:   jmp @oneLevel
+@done:
     bit setText
     bit page1
 ; quit to monitor