# HG changeset patch
# User boisy
# Date 1237214389 0
# Node ID 7ee1bed662f23da7f1cf873557a3ce3bc72473ac
# Parent  9341eb8c18f5d9da50d350f6225115ddd9b8c239
Fixed driver to copy D.SysPrc in Level 2 to D.Proc before link

diff -r 9341eb8c18f5 -r 7ee1bed662f2 level1/modules/rbdw3.asm
--- 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
 *