--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/level1/cmds/load.a	Sat Jul 30 03:36:05 2005 +0000
@@ -0,0 +1,34 @@
+********************************************************************
+* Load - Load a module
+*
+* $Id$
+*
+* Edt/Rev  YYYY/MM/DD  Modified by
+* Comment
+* ------------------------------------------------------------------
+*   4      ????/??/??
+* From Tandy OS-9 Level One VR 02.00.00.
+
+         nam   Load
+         ttl   Load a module
+
+         use   defsfile.d
+
+rev      set   $00
+edition  set   4
+
+         psect load_a,Prgrm+Objct,ReEnt+rev,edition,200,start
+
+         vsect dp
+u0000    rmb   200
+         endsect
+
+start    os9   F$Load   
+         bcs   Exit
+         lda   ,x
+         cmpa  #C$CR
+         bne   start
+         clrb  
+Exit     os9   F$Exit   
+
+         endsect