Mercurial > hg > Members > kono > nitros9-code

changeset 1250:1e1377bd37c1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Several fixes as per Rodney H's suggestions.
author boisy
date Sat, 16 Aug 2003 22:43:12 +0000
parents 6f0cffb3ab74
children 411c88ed62f6
files level2/modules/kernel/ffreehb.asm level2/modules/kernel/krn.asm level2/modules/kernel/krnp2.asm
diffstat 3 files changed, 20 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/level2/modules/kernel/ffreehb.asm	Sat Aug 16 11:22:34 2003 +0000
+++ b/level2/modules/kernel/ffreehb.asm	Sat Aug 16 22:43:12 2003 +0000
@@ -71,11 +71,11 @@
          tfm   u+,y+
          oim   #ImgChg,P$State,x
          ELSE
-L0ALoop  ldx   ,u++
-         stx   ,y++
+         lslb
+L0ALoop  lda   ,u+
+         sta   ,y+
          decb
          bne   L0ALoop
-         ldx   2,s
          lda   P$State,x
          ora   #ImgChg
          sta   P$State,x
--- a/level2/modules/kernel/krn.asm	Sat Aug 16 11:22:34 2003 +0000
+++ b/level2/modules/kernel/krn.asm	Sat Aug 16 22:43:12 2003 +0000
@@ -34,7 +34,7 @@
          fcc   /01234567/
          ELSE
          fcc   /123456789ABCDEF/
-         fcc   /123/
+         fcc   /1234/ 5678/
          ENDC
 
 * Might as well have this here as just past the end of OS9p1...
@@ -57,15 +57,16 @@
          aim   #$FE,<D.TINIT  map type 0
          lde   <D.TINIT   'nother 2 bytes saved if GRFDRV does a 'tfr cc,e'
          ste   >DAT.Task   and we can use A here, instead of E
+         clr   <D.SSTskN
          ELSE
          pshs  a
          lda   <D.TINIT
          anda  #$FE
          sta   <D.TINIT
          sta   >DAT.Task
+         clr   <D.SSTskN
          puls  a
          ENDC
-         clr   <D.SSTskN
          tfr   x,s
          tfr   a,cc
          rts   
--- a/level2/modules/kernel/krnp2.asm	Sat Aug 16 11:22:34 2003 +0000
+++ b/level2/modules/kernel/krnp2.asm	Sat Aug 16 22:43:12 2003 +0000
@@ -188,6 +188,8 @@
          lda    #(EXEC.+READ.) get file mode
          os9    I$ChgDir    change to it
          bcc    L004F       went ok, go on
+ tfr b,a
+ jsr <D.BtBug
          os9    F$Boot      try & load boot file
          bcc    L003A       go try again
 L004F    ldu    <D.Init     get pointer to init
@@ -283,6 +285,12 @@
          fdb    FGBlkMp-*-2
          fcb    F$GModDr
          fdb    FGModDr-*-2
+         IFEQ   NitrOS9
+         fcb    F$CpyMem
+         fdb    FCpyMem-*-2
+         fcb    F$DelRAM
+         fdb    FDelRAM-*-2
+         ENDC
          fcb    F$SUser      Added back here for room in OS9p1
          fdb    FSUser-*-2
          fcb    F$UnLoad
@@ -365,6 +373,12 @@
 
          use    fid.asm
 
+         IFEQ   NitrOS9
+         use    fcpymem.asm
+
+         use    fdelram.asm
+         ENDC
+
          use    fsswi.asm
 
          use    fstime.asm