# HG changeset patch
# User boisy
# Date 1237216810 0
# Node ID 0eaed2dfda4208de3a0152bc797072760de54816
# Parent  58ca25581f6dbbe5245d4e7c4021f5f5b3659372
Updated

diff -r 58ca25581f6d -r 0eaed2dfda42 level1/modules/clock2_dw3.asm
--- a/level1/modules/clock2_dw3.asm	Mon Mar 16 14:59:09 2009 +0000
+++ b/level1/modules/clock2_dw3.asm	Mon Mar 16 15:20:10 2009 +0000
@@ -69,20 +69,18 @@
          clra
          os9     F$Link
          IFGT    Level-1
-         bcs     InitEx
-         sty     >D.DWSUB
-         jsr     ,y			call initialization routine
-InitEx  
          puls    x
          stx     <D.Proc
-         rts
+         bcs     InitEx
+         sty     <D.DWSUB
          ELSE
          bcs     ex
          sty     >D.DWSUB
-         jmp     ,y			call initialization routine
          ENDC
+         jsr     ,y			call initialization routine
+InitEx   rts
 
-         emod            
+         emod          
 eom      equ   *         
          end             
 
diff -r 58ca25581f6d -r 0eaed2dfda42 level1/modules/scdwp.asm
--- a/level1/modules/scdwp.asm	Mon Mar 16 14:59:09 2009 +0000
+++ b/level1/modules/scdwp.asm	Mon Mar 16 15:20:10 2009 +0000
@@ -74,7 +74,38 @@
 *    B  = error code
 *
 Init
-         rts
+* Check if D.DWSUB already holds a valid subroutine module pointer
+         IFGT  Level-1
+         ldx   <D.DWSUB
+         ELSE
+         ldx   >D.DWSUB
+         ENDC
+         bne   InitEx
+
+* If here, D.DWSUB is 0, so we must link to subroutine module
+         IFGT  Level-1
+         ldx   <D.Proc
+         pshs  x
+         ldx   <D.SysPrc
+         stx   <D.Proc
+         ENDC
+         clra
+         leax  dw3name,pcr
+         os9   F$Link
+         IFGT  Level-1
+         puls  x
+         stx   <D.Proc
+         ENDC
+         bcs   InitEx
+         IFGT  Level-1
+         sty   <D.DWSUB
+         ELSE
+         sty   >D.DWSUB
+         ENDC
+         jsr   ,y			call init routine
+InitEx   rts
+
+dw3name  fcs  /dw3/
 
 * Write
 *