add vector to reduce demo rebuild

bin/buildfx.js

@@ -49,4 +49,4 @@ for (i = 0; i < entries.length; i++)
 f = a.createtextfile(WScript.Arguments(1))
 f.write(groups)
 f.close()
-new ActiveXObject("wscript.shell").run('cmd /c %acme% -o ' + WScript.Arguments(2) + " " + WScript.Arguments(1))
+new ActiveXObject("wscript.shell").run('cmd /c %acme% -o ' + WScript.Arguments(2) + " " + WScript.Arguments(1), 0, 1)

bin/buildokvs.js

@@ -41,6 +41,5 @@ if (!a.fileexists(WScript.Arguments(1)) || a.getfile(WScript.Arguments(1)).datel
     source.writeline("!text \"" + ((val >= 0) ? (entries[i].substr(val + 1)) : "") + "\"")
   }
 
-  x = new ActiveXObject("wscript.shell")
+  new ActiveXObject("wscript.shell").run('cmd /c %acme% -o ' + WScript.Arguments(1) + ' build\\okvs.tmp', 0, 1)
-  x.run('cmd /c %acme% -o ' + WScript.Arguments(1) + ' build\\okvs.tmp')
 }

bin/buildpre.js

@@ -58,4 +58,4 @@ for (i = 0; i < entries.length; i++)
 f = a.createtextfile(WScript.Arguments(1))
 f.write(groups)
 f.close()
-new ActiveXObject("wscript.shell").run('cmd /c %acme% -o ' + WScript.Arguments(2) + " " + WScript.Arguments(1))
+new ActiveXObject("wscript.shell").run('cmd /c %acme% -o ' + WScript.Arguments(2) + " " + WScript.Arguments(1), 0, 1)

bin/buildss.js

@@ -25,4 +25,4 @@ for (i = 0; i < entries.length; i++)
 f = a.createtextfile(WScript.Arguments(1))
 f.write(groups)
 f.close()
-new ActiveXObject("wscript.shell").run('cmd /c %acme% -o ' + WScript.Arguments(2) + " " + WScript.Arguments(1))
+new ActiveXObject("wscript.shell").run('cmd /c %acme% -o ' + WScript.Arguments(2) + " " + WScript.Arguments(1), 0, 1)

src/4cade.a

@@ -137,6 +137,9 @@ SwitchToBank2
          rts
          !source "src/prodos.path.a" ; paths end up on the same page
 
+; iLoadFileDirect (label is in constants.a)
+         jmp   LoadFileDirect        ; no direct calling - target can move
+
 ; WaitForVBL (label is in constants.a)
          jmp   WaitForVBL_iie        ; SMC to RTS on a II+
 

src/constants.a

@@ -115,6 +115,7 @@ gValLen      = $1F80
 gVal         = $1F81
 
 ; LC RAM 1
+iLoadFileDirect    = $FFEF
 WaitForVBL         = $FFF2
 UnwaitForVBL       = $FFF5
 
@@ -145,16 +146,14 @@ SUPPORTS_SHR   = %00110000
 CHEATS_ENABLED = %00001000
 
 ; shared symbols for prelaunch and effects to call ProRWTS2 functions
-iCurBlockLo    = $D401
+iCurBlockLo    = $D401               ; constant
-iCurBlockHi    = $D403
+iCurBlockHi    = $D403               ; constant
-iProDOS_enter  = $D670
+launchpatch    = $D60E               ; glue.launch.a
-LoadFileDirect = $DAD4
+iAddToPath     = $FE64               ; Roger Rabbit, avoid, use Infiltrator 2 style instead
-launchpatch    = $D60E
+itraverse      = $D8D8               ; Roger Rabbit, avoid, use Infiltrator 2 style instead
-iAddToPath     = $FE67
+ldrhi          = $56                 ; constant
-itraverse      = $D8D8
+namlo          = $57                 ; constant
-ldrhi          = $56
+namhi          = $58                 ; constant
-namlo          = $57
-namhi          = $58
 
 _CONSTANTS_=*
 }

src/glue.prorwts2.lc2.a

@@ -11,14 +11,7 @@ LoadFileInternal
          ldx   #0                    ; 0 = read into main memory
 LoadFileAuxInternal
          +LDADDR gPathname
-!if RELBASE != $2000 {
+LoadFileDirect
-  !ifdef PASS2 {
-  } else { ;PASS2
-    !if * != LoadFileDirect {
-      !error "LoadFileDirect=",*, ", fix constants.a, rebuild all src/demo and src/prelaunch"
-    }
-  }
-}
          +ST16 namlo                 ; set filename
          txa
          pha

src/macros.a

@@ -398,7 +398,7 @@
          pha
          ldx   #0         ; read to main memory
          +LDADDR .filepath
-         jsr   LoadFileDirect
+         jsr   iLoadFileDirect
          pla
          sta   iCurBlockHi
          pla

src/prelaunch/bejeweled.a

@@ -1,5 +1,5 @@
 ;license:MIT
-;(c) 2020 by qkumba
+;(c) 2020-2021 by qkumba
 
 !cpu 6502
 !to "build/PRELAUNCH/BEJEWELED",plain
@@ -28,7 +28,7 @@ helper
          dec   $8DB5      ; write address (low)
 
 nohelp
-         jmp   iProDOS_enter
+         jmp   $FDFD      ; SMC
 
 nocall
          plp
@@ -39,6 +39,10 @@ nocall
 
 callback
          jsr   $BE00
+         lda   $BF0B
+         sta   nohelp + 1
+         lda   $BF0C
+         sta   nohelp + 2
          lda   #<helper
          sta   $BF0B
          lda   #>helper

src/prodos.impl.lc2.a

@@ -18,14 +18,6 @@
 ipacket = first_zp ;word
 buffer = first_zp+2 ;word
 
-!if RELBASE != $2000 {
-  !ifdef PASS2 {
-  } else { ;PASS2
-    !if * != iProDOS_enter {
-      !error "iProDOS_enter=",*, ", fix constants.a"
-    }
-  }
-}
 ProDOS_enter
 !set CloseHandles = @imp_close
          stx   ProDOS_savedX+1
@@ -401,7 +393,7 @@ resetval=$f0
 !ifdef PASS2 {
 } else { ;PASS2
   !if * != itraverse {
-    !error "itraverse=",*, ", fix constants.a"
+    !error "itraverse=",*, ", fix constants.a, rebuild prelaunch"
   }
 }
 traverse

src/prodos.path.a

@@ -28,7 +28,7 @@ kRootDirectory=*+1
   !ifdef PASS2 {
   } else { ;PASS2
     !if * != iAddToPath {
-      !error "iAddToPath=",*, ", fix constants.a"
+      !error "iAddToPath=",*, ", fix constants.a, rebuild prelaunch"
     }
   }
 }