Mercurial > hg > Members > kono > nitros9-code

changeset 2381:0bdb2eb2658d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updated source file with comments
author boisy
date Sat, 23 Jan 2010 04:04:40 +0000
parents 8bd5214a117f
children d5ecf07aae74
files level1/modules/kernel/krnp2.asm
diffstat 1 files changed, 9 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/level1/modules/kernel/krnp2.asm	Sat Jan 23 00:43:29 2010 +0000
+++ b/level1/modules/kernel/krnp2.asm	Sat Jan 23 04:04:40 2010 +0000
@@ -202,8 +202,8 @@
          cmpa  ,s
          bne   L0135
          ldu   $03,s
-         ldb   $02,u
-         stb   $02,y
+         ldb   R$B,u
+         stb   P$SID,y
          os9   F$Ret64
          puls  pc,u,y,x,a
 
@@ -260,7 +260,7 @@
          os9   F$AProc
          leay  ,u
          ldu   P$SP,x
-         ldu   $01,u
+         ldu   R$D,u
          lbsr  L0126
 L01C2    clra
          clrb
@@ -320,9 +320,9 @@
 L0225    std   P$ADDR,x
 L0227    lda   P$PagCnt,x
          clrb
-         std   $01,u
+         std   R$D,u
          adda  P$ADDR,x
-         std   $06,u
+         std   R$Y,u
          rts
 L0231    comb
          ldb   #E$MemFul
@@ -434,7 +434,7 @@
          std   R$X,u                   save back to caller
          beq   L02E9                   branch if give up tslice
          pshs  u,x
-         ldx   #$0043
+         ldx   #(D.SProcQ-P$Queue)
 L02FE    leay  ,x
          ldx   P$Queue,x
          beq   L0316
@@ -444,9 +444,9 @@
          puls  b,a
          beq   L0316
          ldu   P$SP,x
-         subd  $04,u
+         subd  R$X,u
          bcc   L02FE
-         addd  $04,u
+         addd  R$X,u
 L0316    puls  u,x
          std   R$X,u
          ldd   P$Queue,y
@@ -468,7 +468,7 @@
 L033A    lda   P$State,x
          anda  #^TimSleep
          sta   P$State,x
-         ldd   #$0043
+         ldd   #(D.SProcQ-P$Queue)
 L0343    tfr   d,y
          ldd   P$Queue,y
          bne   L0343