--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/level1/modules/sysgo_d64.asm	Mon Jul 15 21:34:54 2002 +0000
@@ -0,0 +1,118 @@
+********************************************************************
+* progname - program module
+*
+* $Id$
+*
+* Ed.    Comments                                       Who YY/MM/DD
+* ------------------------------------------------------------------
+*  -     Original Dragon Data distribution version
+*
+* $Log$
+* Revision 1.1  2002/07/15 21:34:54  roug
+* SysGo is simpler on Dragon 64.
+*
+* Revision 1.1  2002/04/21 21:27:50  roug
+* These are the kernel modules from Dragon 64's OS9Boot.
+* OS9 and OS9p2 are older than what's in ../MODULES so I checked them
+* in as well.
+*
+*
+
+         nam   SysGo
+         ttl   os9 system module    
+
+* Disassembled 02/04/21 22:38:39 by Disasm v1.6 (C) 1988 by RML
+
+         ifp1
+         use   defsfile
+         use   scfdefs
+         endc
+tylg     set   Systm+Objct   
+atrv     set   ReEnt+rev
+rev      set   $01
+         mod   eom,name,tylg,atrv,start,size
+dataarea rmb   200
+size     equ   .
+name     equ   *
+         fcs   /SysGo/
+         fcb   $05 
+BootMsg  fcc   "  OS-9 LEVEL ONE   VERSION 1.2"
+         fcb   C$CR,C$LF
+         fcc   "COPYRIGHT 1980 BY MOTOROLA INC."
+         fcb   C$CR,C$LF
+	 fcc   "  AND MICROWARE SYSTEMS CORP."
+         fcb   C$CR,C$LF
+	 fcc   "   REPRODUCED UNDER LICENSE"
+         fcb   C$CR,C$LF
+	 fcc   "     TO DRAGON DATA LTD."
+         fcb   C$CR,C$LF
+	 fcc   "     ALL RIGHTS RESERVED."
+         fcb   C$CR,C$LF
+         fcb   C$LF
+MsgEnd   equ   *
+ChxPath  fcc   "Cmds"
+         fcb   C$CR
+	 fcc   ",,,,,,,,,,"
+Shell    fcc   "Shell"
+         fcb   C$CR
+         fcc   ",,,,,,,,,,"
+Startup  fcc   "STARTUP -P"
+         fcb   C$CR
+         fcc   ",,,,,,,,,,"
+
+BasicRst fcb   $55 U
+         fcb   $00 
+         fcb   $74 t
+         fcb   $12 
+         fcb   $7F ÿ
+         fcb   $FF 
+         fcb   $03 
+         fcb   $B7 7
+         fcb   $FF 
+         fcb   $DF _
+         fcb   $7E þ
+         fcb   $F0 p
+         fcb   $02 
+start    equ   *
+         leax  >IcptRtn,pcr
+         os9   F$Icpt   
+         leax  >BasicRst,pcr
+         ldu   #$0071
+         ldb   #$0D
+CopyLoop lda   ,x+
+         sta   ,u+
+         decb  
+         bne   CopyLoop
+
+* Print boot message
+         leax  >BootMsg,pcr
+         ldy   #MsgEnd-BootMsg
+         lda   #$01
+         os9   I$Write  
+         leax  >ChxPath,pcr
+         lda   #$04
+         os9   I$ChgDir 
+
+         leax  >Shell,pcr
+         leau  >Startup,pcr
+         ldd   #$0100
+         ldy   #$0015
+         os9   F$Fork   
+         bcs   DeadEnd
+         os9   F$Wait   
+
+FrkShell leax  >Shell,pcr
+         ldd   #$0100
+         ldy   #$0000
+         os9   F$Fork   
+         bcs   DeadEnd
+         os9   F$Wait   
+         bcc   FrkShell
+DeadEnd  bra   DeadEnd
+
+* Intercept routine
+IcptRtn  rti   
+
+         emod
+eom      equ   *
+         end