Mercurial > hg > Members > kono > nitros9-code

changeset 3222:c086a5d69b78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Corrected ,pc should have been ,pcr in KRNP3.asm
author David Ladd <drencor-xeen@users.sourceforge.net>
date Wed, 20 Dec 2017 23:28:18 -0600
parents 13b52fb3aa79
children b1f1c72a8f79
files level2/modules/krnp3_perr.asm
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/level2/modules/krnp3_perr.asm	Wed Dec 20 16:14:06 2017 -0600
+++ b/level2/modules/krnp3_perr.asm	Wed Dec 20 23:28:18 2017 -0600
@@ -84,10 +84,10 @@
 *  Initialization routine and table
 *-
 Entry    equ   *
-         leay  SvcTbl,pc ;Get address of table
+         leay  SvcTbl,pcr ;Get address of table
          os9   F$SSvc     ;Install services in table
          lda   #Type      ;Get system module type for KrnP4
-         leax  P4Name,pc ;Get name for KrnP4
+         leax  P4Name,pcr ;Get name for KrnP4
          os9   F$Link     ;Try to link to it
          bcs   PErrBye    ;If not found, exit
          jmp   ,y         ;Execute it, return from there
@@ -126,7 +126,7 @@
          ldy   D.Proc     ;Get user's process descriptor
          ldu   P$SP,y     ;Get user's stack pointer
          leau  -DataMem,u ;Reserve a little space (89 bytes) to build string
-         leax  <ErrMsg,pc ;Get pointer to "Error #000"
+         leax  ErrMsg,pcr ;Get pointer to "Error #000"
          bsr   MoveBuf    ;Go copy it over
          bsr   WritNum    ;Go copy the number into it
          pshs  x,y,a      ;Save regs
@@ -136,7 +136,7 @@
          os9   I$Write    ;Write out Error message
          puls  x,y,a      ;Restore regs
          bcs   PErrBye    ;If error, abort
-         leax  <FilNam,pc ;Get pointer to "/dd/sys/errmsg"
+         leax  FilNam,pcr ;Get pointer to "/dd/sys/errmsg"
          bsr   MoveBuf    ;Go copy it over
          pshs  x          ;Preserve X
          lda   #READ.     ;Open path for read access