Mercurial > hg > Members > kono > nitros9-code

changeset 2210:7ee1bed662f2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed driver to copy D.SysPrc in Level 2 to D.Proc before link
author boisy
date Mon, 16 Mar 2009 14:39:49 +0000
parents 9341eb8c18f5
children 0d9a3b9b5886
files level1/modules/rbdw3.asm
diffstat 1 files changed, 19 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/level1/modules/rbdw3.asm	Sun Mar 15 14:08:38 2009 +0000
+++ b/level1/modules/rbdw3.asm	Mon Mar 16 14:39:49 2009 +0000
@@ -98,6 +98,16 @@
 *    B  = error code
 *
 Init
+         IFGT  Level-1
+* Perform this so we can successfully do F$Link below
+         ldx   <D.Proc
+         pshs  a,x
+         ldx   <D.SysPrc
+         stx   <D.Proc 
+         ELSE
+         pshs  a
+         ENDC
+
          ldb   #NumDrvs
          stb   V.NDRV,u
          leax  DRVBEG,u
@@ -113,7 +123,7 @@
          clra
          leax  name+2,pcr
          os9   F$Link
-         bcs   CpyLSNEx 
+         bcs   InitEx 
          tfr   y,u		 
          IFGT  LEVEL-1
          stu   <D.DWSUB
@@ -123,12 +133,19 @@
 * Initialize the low level device
          jsr   ,u
          lda   #OP_INIT
-         pshs  a
          leax  ,s
          ldy   #$0001
          jsr   6,u
          clrb
+
+bye
+         IFGT  Level-1
+         puls  a,x
+         stx   <D.Proc
+         rts
+         ELSE
          puls  a,pc
+         ENDC
 
 * Read
 *