# HG changeset patch
# User boisy
# Date 1060092448 0
# Node ID cd2122359eb906349361686ffb6371c79aeb1313
# Parent  90bad6d8388cc7dd9b112df27021295167c63b73
Removed extraneous jmp D.Crash from os9p2.asm

diff -r 90bad6d8388c -r cd2122359eb9 level2/modules/kernel/krn.asm
--- a/level2/modules/kernel/krn.asm	Tue Aug 05 13:46:17 2003 +0000
+++ b/level2/modules/kernel/krn.asm	Tue Aug 05 14:07:28 2003 +0000
@@ -33,7 +33,7 @@
          fcc   /0123456789ABCDEF/
          fcc   /01234567/
          ELSE
-         fcc   /12345123/
+         fcc   /123456789/
          ENDC
 
 * Might as well have this here as just past the end of OS9p1...
@@ -258,7 +258,6 @@
          bne   L0111        No, keep going till ghost is found
          stb    <D.MemSz    Save # 8k mem blocks that exist
          addr   x,d         add number of blocks to block map start
-         std    <D.BlkMap+2 save block map end pointer
          ELSE
          ldd    #$0008
 L0111    aslb
@@ -273,8 +272,9 @@
          stb    <D.MemSz
          pshs   x
          addd   ,s++
-         std    <D.BlkMap+2
          ENDC
+         std    <D.BlkMap+2 save block map end pointer
+
 * [D] at this point will contain 1 of the following:
 * $0010 - 128k
 * $0020 - 256k
@@ -510,8 +510,9 @@
          lbra  L0D80      go back to the process
 
 * add ldu P$SP,x, etc...
-AllClr   inc   <D.QCnt
+AllClr   equ   *
          IFNE  H6309
+         inc   <D.QCnt
          aim   #$1F,<D.QCnt
          beq   DoFull     every 32 system calls, do the full check
          ldw   #R$Size    --- size of the register stack
@@ -520,6 +521,7 @@
          tfm   u+,y+      --- move the stack to the top of memory
          ELSE
          lda   <D.QCnt
+         inca
          anda  #$1F
          sta   <D.QCnt
          beq   DoFull
diff -r 90bad6d8388c -r cd2122359eb9 level2/modules/kernel/krnp2.asm
--- a/level2/modules/kernel/krnp2.asm	Tue Aug 05 13:46:17 2003 +0000
+++ b/level2/modules/kernel/krnp2.asm	Tue Aug 05 14:07:28 2003 +0000
@@ -188,7 +188,6 @@
          lda    #(EXEC.+READ.) get file mode
          os9    I$ChgDir    change to it
          bcc    L004F       went ok, go on
- jmp <D.Crash
          os9    F$Boot      try & load boot file
          bcc    L003A       go try again
 L004F    ldu    <D.Init     get pointer to init
@@ -232,7 +231,7 @@
          ldy    #$0000
          ENDC
          os9    F$Fork      fork it
-         bcc   L0093      if no error, go execute it
+         bcc    L0093      if no error, go execute it
          jmp   <D.Crash   otherwise crash the system
 L0093    os9    F$NProc     let it take over