From 0925945d2e115b37e33557fcbf19519994b2d7ec Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Fri, 13 Apr 2018 13:34:10 -0700
Subject: [PATCH] Fix VM filename in VMLOAD

---
 PLASMA-SYS2.PO           | Bin 143360 -> 143360 bytes
 src/vmsrc/apple/plvm02.s |  14 +++++++-------
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/PLASMA-SYS2.PO b/PLASMA-SYS2.PO
index daf6b25c4d9fee32a7aeffbe4e7c2aa999840eb5..ae8b2cb48cd52e3bfe87b093abf9969d153f02d6 100755
GIT binary patch
delta 46
ycmZp8z|ru4W5XO4CVt+{^H>C}h3y4a3iLV%D98w`^y`Iinh)7;KV;8n_W=NCFc0Ve

delta 46
ycmZp8z|ru4W5XO4CIOz!^H>C}h3y1Z3iR3wD98w`^y`Iinh)7;KV;8n_W=NB<qzZl

diff --git a/src/vmsrc/apple/plvm02.s b/src/vmsrc/apple/plvm02.s
index 2268572..e5a0b2a 100755
--- a/src/vmsrc/apple/plvm02.s
+++ b/src/vmsrc/apple/plvm02.s
@@ -251,7 +251,7 @@ CMDENTRY =      *
         STA     $01FF           ; CLEAR CMDLINE BUFF
         STA     PPL             ; INIT FRAME POINTER
         STA     IFPL
-        LDA     #$BF
+        LDA     #$BF            ; FRAME POINTER AT $BF00, BELOW PRODOS
         STA     PPH
         STA     IFPH
         LDX     #$FE            ; INIT STACK POINTER (YES, $FE. SEE GETS)
@@ -1484,14 +1484,14 @@ ALTVM   =       *
         BCC     +               ; NOT 65802/65816 IF CARRY CLEAR
         XCE                     ; SWITCH BACK TO EMULATED MODE
         LDA     #<VM16          ; TRY 16 BIT VM
-        STA     OPENVM
-        LDA     #>VM16
         STA     OPENVM+1
+        LDA     #>VM16
+        STA     OPENVM+2
         JSR     +
         LDA     #<VM128         ; NOPE. TRY 128K VM
-        STA     OPENVM
-        LDA     #>VM128
         STA     OPENVM+1
+        LDA     #>VM128
+        STA     OPENVM+2
 +       JSR     PRODOS          ; OPEN CMD
         !BYTE   $C8
         !WORD   OPENVM
@@ -1508,11 +1508,11 @@ ALTVM   =       *
         BNE     NOVM
         JMP     $2000           ; JUMP TO ALT VM
 NOVM    RTS
-OPENVM  !BYTE 3
+OPENVM  !BYTE   3
         !WORD   VM128
         !WORD   $0800
 REFVM   !BYTE   0
-READVM  !BYTE 4
+READVM  !BYTE   4
         !BYTE   0
         !WORD   $2000
         !WORD   $9F00