# HG changeset patch
# User boisy
# Date 1060196168 0
# Node ID 716c84dca8e4776a94d5dc6dfd09f717bef52dd7
# Parent  cd2122359eb906349361686ffb6371c79aeb1313
Source enhancements

diff -r cd2122359eb9 -r 716c84dca8e4 level2/modules/kernel/falltsk.asm
--- a/level2/modules/kernel/falltsk.asm	Tue Aug 05 14:07:28 2003 +0000
+++ b/level2/modules/kernel/falltsk.asm	Wed Aug 06 18:56:08 2003 +0000
@@ -50,7 +50,7 @@
          stu   b,x          save DAT image pointer in task table
          cmpb  #2           is it either system or GrfDrv?
          bhi   L0C9F        no, return
-         ldx   #$FFA0     update system DAT image
+         ldx   #DAT.Regs    update system DAT image
          lbsr  L0E93      go bash the hardware
 L0C9F    puls  cc,d,x,u,pc
 
diff -r cd2122359eb9 -r 716c84dca8e4 level2/modules/kernel/fld.asm
--- a/level2/modules/kernel/fld.asm	Tue Aug 05 14:07:28 2003 +0000
+++ b/level2/modules/kernel/fld.asm	Wed Aug 06 18:56:08 2003 +0000
@@ -11,11 +11,15 @@
          clrb                 Clear carry/setup for STB
          pshs  cc             Preserve interrupt status/settings
          orcc  #IntMasks      shut IRQ's off
-         sta   >$FFA0         Map block into $0000-$1FFF
+         sta   >DAT.Regs      Map block into $0000-$1FFF
+         IFNE  H6309
          brn    L0AC8
+         ENDC
          lda   ,x             Get byte
-         stb   >$FFA0         Map block 0 into $0000-$1FFF
+         stb   >DAT.Regs      Map block 0 into $0000-$1FFF
+         IFNE  H6309
          fdb   $21ED          LBRN ???
+         ENDC
          puls  pc,cc          Get interrupt status/(or turn on) & return
 
 * Get 1st byte of LDDDXY - also used by many other routines
@@ -24,10 +28,10 @@
          pshs  b,cc
          clrb
          orcc  #IntMasks      Shut off interrupts
-         sta   >$FFA0         Map in MMU block into slot 0
+         sta   >DAT.Regs      Map in MMU block into slot 0
          lda   ,x+            Get byte
-          stb   >$FFA0
-*         clr   >$FFA0         Map in MMU block #0 into slot 0
+         stb   >DAT.Regs
+*         clr   >DAT.Regs     Map in MMU block #0 into slot 0
 *         andcc #^IntMasks
          puls  b,cc
          bra   AdjBlk0
@@ -64,8 +68,8 @@
          ldb   3,y            Get MMU block #1
          pshs  cc             Preserve int. status
          orcc  #IntMasks      shut off int.
-         std   >$FFA0         Map in both blocks
+         std   >DAT.Regs      Map in both blocks
          ldd   ,x             Get 2 bytes
-         stu   >$FFA0         Map original blocks in
+         stu   >DAT.Regs      Map original blocks in
 *         tfr   y,w            Restore W
          puls  pc,u,y,x,cc    Restore regs & return
diff -r cd2122359eb9 -r 716c84dca8e4 level2/modules/kernel/fldabx.asm
--- a/level2/modules/kernel/fldabx.asm	Tue Aug 05 14:07:28 2003 +0000
+++ b/level2/modules/kernel/fldabx.asm	Wed Aug 06 18:56:08 2003 +0000
@@ -10,9 +10,9 @@
          bsr   L0BF5
          ldd   a,u
          orcc  #IntMasks
-         stb   >$FFA0
+         stb   >DAT.Regs
          ldb   ,x
-         clr   >$FFA0
+         clr   >DAT.Regs
          puls  cc,a,x,u
 
          stb   R$A,u        Save into caller's A & return
@@ -41,7 +41,7 @@
          ldd   a,u          get memory block
          lda   1,s
          orcc  #IntMasks
-         stb   >$FFA0
+         stb   >DAT.Regs
          sta   ,x
-         clr   >$FFA0
+         clr   >DAT.Regs
          puls  cc,d,x,u,pc
diff -r cd2122359eb9 -r 716c84dca8e4 level2/modules/kernel/krn.asm
--- a/level2/modules/kernel/krn.asm	Tue Aug 05 14:07:28 2003 +0000
+++ b/level2/modules/kernel/krn.asm	Wed Aug 06 18:56:08 2003 +0000
@@ -33,7 +33,7 @@
          fcc   /0123456789ABCDEF/
          fcc   /01234567/
          ELSE
-         fcc   /123456789/
+         fcc   /123456789ABCD/
          ENDC
 
 * Might as well have this here as just past the end of OS9p1...
diff -r cd2122359eb9 -r 716c84dca8e4 level2/modules/kernel/krnp2.asm
--- a/level2/modules/kernel/krnp2.asm	Tue Aug 05 14:07:28 2003 +0000
+++ b/level2/modules/kernel/krnp2.asm	Wed Aug 06 18:56:08 2003 +0000
@@ -231,8 +231,8 @@
          ldy    #$0000
          ENDC
          os9    F$Fork      fork it
-         bcc    L0093      if no error, go execute it
-         jmp   <D.Crash   otherwise crash the system
+         bcc    L0093       if no error, go execute it
+         jmp    <D.Crash    otherwise crash the system
 L0093    os9    F$NProc     let it take over
 
 L0096    fcs    /OS9p3/