Mercurial > hg > Members > kono > nitros9-code

changeset 1247:121c6e31fe55

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
IFNE'd out seemingly useless fcb $24,00 for 6809
author boisy
date Tue, 12 Aug 2003 02:12:58 +0000
parents c90c8b615f8c
children 81ab09af8c3f
files level2/modules/kernel/fchain.asm level2/modules/kernel/fsrqmem.asm level2/modules/kernel/krn.asm
diffstat 3 files changed, 25 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/level2/modules/kernel/fchain.asm	Tue Aug 12 02:12:13 2003 +0000
+++ b/level2/modules/kernel/fchain.asm	Tue Aug 12 02:12:58 2003 +0000
@@ -93,7 +93,9 @@
 * Hmmm.. the code above FORCES the new process to have the same DAT image ptr
 * as the old process, not that it matters...
 
+         IFNE  H6309
          fcb   $24,$00		TODO: Identify this!
+         ENDC
          ldu   <D.Proc      get nre process
          lda   P$Task,u     new task number
          ldb   P$Task,x     old task number
--- a/level2/modules/kernel/fsrqmem.asm	Tue Aug 12 02:12:13 2003 +0000
+++ b/level2/modules/kernel/fsrqmem.asm	Tue Aug 12 02:12:58 2003 +0000
@@ -264,11 +264,12 @@
          pshs  x
          leax  d,x
 
-name.prt lda   ,x+        get first character of the name
-         jsr   <D.BtBug   print it out
-         bpl   name.prt
-         lda   #C$SPAC    a space
-         jsr   <D.BtBug
+         bsr   name.prt
+*name.prt lda   ,x+        get first character of the name
+*         jsr   <D.BtBug   print it out
+*         bpl   name.prt
+*         lda   #C$SPAC    a space
+*         jsr   <D.BtBug
 
          puls  x
          IFNE  H6309
@@ -303,3 +304,12 @@
          leas  4,s          purge stack
          clrb
          rts
+
+
+name.prt lda   ,x+        get first character of the name
+         jsr   <D.BtBug   print it out
+         bpl   name.prt
+         lda   #C$SPAC    a space
+         jsr   <D.BtBug
+         rts
+
--- a/level2/modules/kernel/krn.asm	Tue Aug 12 02:12:13 2003 +0000
+++ b/level2/modules/kernel/krn.asm	Tue Aug 12 02:12:58 2003 +0000
@@ -33,7 +33,8 @@
          fcc   /0123456789ABCDEF/
          fcc   /01234567/
          ELSE
-         fcc   /123456789ABCD/
+         fcc   /123456789ABCDEF/
+         fcc   /123/
          ENDC
 
 * Might as well have this here as just past the end of OS9p1...
@@ -601,7 +602,8 @@
 * Execute system call
 * Entry: B=Function call #
 *        Y=Function dispatch table pointer (D.SysDis or D.UsrDis)
-L033B    lslb               is it a I/O call? (Also multiplys by 2 for offset)
+L033B    
+         lslb               is it a I/O call? (Also multiplys by 2 for offset)
          bcc    L0345       no, go get normal vector
 * Execute I/O system calls
          ldx    IOEntry,y   get IOMan vector
@@ -612,7 +614,7 @@
 L0355    tfr    cc,a        move CC to A for stack update
          bcc    L035B       go update it if no error from call
          stb    R$B,u       save error code to caller's B
-L035B    ldb    ,u          get callers CC, R$CC=$00
+L035B    ldb    R$CC,u      get callers CC, R$CC=$00
          IFNE   H6309
          andd   #$2FD0      [A]=H,N,Z,V,C [B]=E,F,I
          orr    b,a         merge them together
@@ -622,11 +624,12 @@
          pshs   b
          ora    ,s+
          ENDC
-         sta    ,u          return it to caller, R$CC=$00
+         sta    R$CC,u      return it to caller, R$CC=$00
          rts
 
 * Execute regular system calls
-L0345    clra               clear MSB of offset
+L0345    
+         clra               clear MSB of offset
          ldx    d,y         get vector to call
          bne    L034F       it's initialized, go execute it
          comb               set carry for error