From 3968f826258b42b576912fcd0234b4d192dd746b Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Wed, 28 Mar 2018 17:02:26 -0700
Subject: [PATCH] Lose the JIT warmup count

---
 src/inc/cmdsys.plh          |  1 -
 src/libsrc/apple/jitune.pla | 17 ++++++-----------
 src/vmsrc/apple/cmd.pla     |  1 -
 src/vmsrc/apple/cmdjit.pla  | 11 ++---------
 src/vmsrc/apple/plvmjit02.s | 20 ++++++--------------
 src/vmsrc/apple/sossys.pla  |  1 -
 6 files changed, 14 insertions(+), 37 deletions(-)

diff --git a/src/inc/cmdsys.plh b/src/inc/cmdsys.plh
index b744f1b..a65a01c 100644
--- a/src/inc/cmdsys.plh
+++ b/src/inc/cmdsys.plh
@@ -53,7 +53,6 @@ import cmdsys
         byte syserr
         byte jitcount
         byte jitsize
-        word jitwarmup
         byte refcons    // Apple /// specific
         byte devcons    // Apple /// specific
         byte cmdparser
diff --git a/src/libsrc/apple/jitune.pla b/src/libsrc/apple/jitune.pla
index 910e64e..4a4356b 100644
--- a/src/libsrc/apple/jitune.pla
+++ b/src/libsrc/apple/jitune.pla
@@ -23,28 +23,23 @@ end
 arg = argNext(argFirst)
 if ^arg
     if arg->1 >= '0' and arg->1 <= '9'
-        cmdsys:jitwarmup = atoi(arg)
+        val = atoi(arg)
+        if val > 255
+            val = 255
+        fin
+        cmdsys.jitcount = val
         arg = argNext(arg)
         if ^arg
             val = atoi(arg)
             if val > 255
                 val = 255
             fin
-            cmdsys.jitcount = val
-            arg = argNext(arg)
-            if ^arg
-                val = atoi(arg)
-                if val > 255
-                    val = 255
-                fin
-                cmdsys.jitsize = val
-            fin
+            cmdsys.jitsize = val
         fin
     else
         puts("Usage: JITUNE WARMUP [CALLCOUNT [MAXSIZE]]\n")
     fin
 fin
-puts("JIT Warm Up:    "); puti(cmdsys:jitwarmup); putln
 puts("JIT Call Count: "); puti(cmdsys.jitcount); putln
 puts("JIT Max Size:   "); puti(cmdsys.jitsize); putln
 done
diff --git a/src/vmsrc/apple/cmd.pla b/src/vmsrc/apple/cmd.pla
index b3c766c..bf6ed89 100755
--- a/src/vmsrc/apple/cmd.pla
+++ b/src/vmsrc/apple/cmd.pla
@@ -45,7 +45,6 @@ word            = @execmod, @open, @close, @read, @write
 byte perr
 byte jitcount   = $10
 byte jitsize    = $FF
-word jitwarmup  = $0100
 //
 // Working input buffer overlayed with strings table
 //
diff --git a/src/vmsrc/apple/cmdjit.pla b/src/vmsrc/apple/cmdjit.pla
index 686a32f..a2a4206 100755
--- a/src/vmsrc/apple/cmdjit.pla
+++ b/src/vmsrc/apple/cmdjit.pla
@@ -41,8 +41,6 @@ end
 //
 const jitcomp     = $03E2
 const jitcodeptr  = $03E4
-const jitwarming  = $03E6
-const jitcode     = $BF00
 //
 // Pedefined functions.
 //
@@ -60,9 +58,8 @@ word syspath
 word syscmdln
 word            = @execmod, @open, @close, @read, @write
 byte perr
-byte jitcount   = $01
-byte jitsize    = $FF
-word jitwarmup  = $0000
+byte jitcount   = 45
+byte jitsize    = 128
 //
 // Working input buffer overlayed with strings table
 //
@@ -1191,10 +1188,6 @@ def loadmod(mod)#1
         codefix = defaddr - bytecode
         defofst = defaddr - defofst
         //
-        // Reser JIT warmup count
-        //
-        *jitwarming = jitwarmup
-        //
         // Run through the DeFinition Dictionary.
         //
         deffirst    = 1
diff --git a/src/vmsrc/apple/plvmjit02.s b/src/vmsrc/apple/plvmjit02.s
index d7dc43e..cf16ce5 100755
--- a/src/vmsrc/apple/plvmjit02.s
+++ b/src/vmsrc/apple/plvmjit02.s
@@ -54,7 +54,6 @@ STRBUF  =       $0280
 INTERP  =       $03D0
 JITCOMP =       $03E2
 JITCODE =       $03E4
-JITWARM =       $03E6
 ;******************************
 ;*                            *
 ;* INTERPRETER INITIALIZATION *
@@ -442,14 +441,12 @@ JITINTRPX PHP
         SBC     #$00
         STA     TMPH
         LDY     #$05
-        LDA     JITWARM+1       ; CHECK WARMING
-        ORA     JITWARM
-        BEQ     DECCALL
-DECWARM LDA     JITWARM         ; DEC WARMING COUNT
-        BNE     +
-        DEC     JITWARM+1
-+       DEC     JITWARM
-NOJIT   DEY                     ; INTERP BYTECODE AS USUAL
+        LDA     (TMP),Y         ; DEC JIT COUNT
+        SEC
+        SBC     #$01
+        STA     (TMP),Y
+        BEQ     RUNJIT
+        DEY                     ; INTERP BYTECODE AS USUAL
         LDA     (TMP),Y
         STA     IPH
         DEY
@@ -460,11 +457,6 @@ NOJIT   DEY                     ; INTERP BYTECODE AS USUAL
         STA     OPPAGE
         STA     ALTRDON
         JMP     FETCHOP
-DECCALL LDA     (TMP),Y         ; DEC JIT COUNT
-        SEC
-        SBC     #$01
-        STA     (TMP),Y
-        BNE     NOJIT
 RUNJIT  LDA     JITCOMP
         STA     SRCL
         LDA     JITCOMP+1
diff --git a/src/vmsrc/apple/sossys.pla b/src/vmsrc/apple/sossys.pla
index 6ee789b..d408a4a 100755
--- a/src/vmsrc/apple/sossys.pla
+++ b/src/vmsrc/apple/sossys.pla
@@ -36,7 +36,6 @@ word              = @execmod, @open, @close, @read, @write
 byte perr
 byte jitcount     = $10
 byte jitsize      = $FF
-word jitwarmup    = $0100
 byte refcons      = 0
 byte devcons      = 0
 word cmdparser