Lose the JIT warmup count

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

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

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
 //

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

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

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