Mercurial > hg > Members > kono > nitros9-code

changeset 3187:205b35ff081e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
rel, L2 krnp2: Tidy up comments. Avoid numeric literals.
author Neal Crook <foofoobedoo@gmail.com>
date Sun, 30 Apr 2017 21:24:21 +0100
parents 7c917d36ea68
children b0ba9d16589a
files level1/modules/rel.asm level2/modules/kernel/krnp2.asm
diffstat 2 files changed, 11 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/level1/modules/rel.asm	Fri Jun 02 09:22:08 2017 +0200
+++ b/level1/modules/rel.asm	Sun Apr 30 21:24:21 2017 +0100
@@ -493,11 +493,11 @@
 BtDebug  pshs  cc,d,x     save the register
          orcc  #IntMasks  turn IRQ's off
          ldb   #Bt.Block  block to map in
-         stb   >$FFA0     map the boot screen into block 0
+         stb   >DAT.Regs+0 map the boot screen into block 0
          ldx   >$0002     where to put the bytes
          sta   ,x+        put the character on-screen
          stx   >$0002     save updated address
-         clr   >$FFA0     map block 0 in again
+         clr   >DAT.Regs+0 map block 0 in again
          puls  cc,d,x,pc  restore X and exit
 
 L0101
--- a/level2/modules/kernel/krnp2.asm	Fri Jun 02 09:22:08 2017 +0200
+++ b/level2/modules/kernel/krnp2.asm	Sun Apr 30 21:24:21 2017 +0100
@@ -175,7 +175,7 @@
          puls   cc,u,pc     restore IRQ's, register stack pointer & return
      ENDC
 
-krnp2    lda   #'2          into krnp2
+krnp2    lda   #'2          debug: signal that we made it into krnp2
          jsr   <D.BtBug
 
          leay   SvcTab,pc   install system calls
@@ -186,11 +186,11 @@
      ENDC
 * Change to default directory
 L003A    ldu    <D.Init     get init module pointer
-         ldd    SysStr,u    get pointer to system device name (usually '/dd')
+         ldd    SysStr,u    get pointer to system device name (usually '/DD')
          beq    L004F       don't exist, open std device
          leax   d,u         point to name
 
-         lda   #'x          tried chd'ing
+         lda   #'x          debug: signal that we tried chd'ing
          jsr   <D.BtBug
 
          lda    #(EXEC.+READ.) get file mode
@@ -198,12 +198,12 @@
          bcc    L004F       went ok, go on
          os9    F$Boot      try & load boot file
          bcc    L003A       go try again
-L004F    ldu    <D.Init     get pointer to init
-         ldd    <StdStr,u   point to default device (usually '/term')
+L004F    ldu    <D.Init     get init module pointer
+         ldd    <StdStr,u   point to default device (usually '/Term')
          beq    L0077       don't exist go do OS9P3
          leax   d,u         point to it
 
-         lda   #'o        tried opening output window
+         lda   #'o          debug: signal that we tried opening output window
          jsr   <D.BtBug
 
          lda    #UPDAT.     get file mode
@@ -223,9 +223,9 @@
          sta    <P$Path+1,x save stdout path
          os9    I$Dup       dupe it again
          sta    <P$Path+2,x save stderr path
-L0077    leax   <L0096,pc   point to 'OS9P3'
+L0077    leax   <L0096,pc   point to 'krnp3'
          lda    #Systm      get type
-         os9    F$Link      try & link
+         os9    F$Link      try to link
          bcs    L0083       not there, go on
          jsr    ,y          execute it
 * Execute module listed in Init module
@@ -233,7 +233,7 @@
          ldd    InitStr,u   get offset to name of first module
          leax   d,u         point to it
 
-         lda   #'C          tried to to CC3Go
+         lda   #'C          debug: signal that we tried to go to SysGo
          jsr   <D.BtBug
 
          lda    #Objct      get module type