--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/level1/cmds/sleep.asm	Thu Apr 04 16:34:12 2002 +0000
@@ -0,0 +1,65 @@
+********************************************************************
+* Sleep - Sleep for some ticks
+*
+* $Id$
+*
+* Ed.    Comments                                       Who YY/MM/DD
+* ------------------------------------------------------------------
+* 2      Original Tandy distribution version
+
+         nam   Sleep
+         ttl   Sleep for some ticks
+
+* Disassembled 98/09/14 23:48:34 by Disasm v1.6 (C) 1988 by RML
+
+         ifp1
+         use   defsfile
+         endc
+
+tylg     set   Prgrm+Objct   
+atrv     set   ReEnt+rev
+rev      set   $01
+edition  set   2
+
+         mod   eom,name,tylg,atrv,start,size
+
+u0000    rmb   450
+size     equ   .
+
+name     fcs   /Sleep/
+         fcb   edition
+
+start    clra  
+         clrb  
+         bsr   L0028
+         bsr   L0028
+         bsr   L0028
+         bsr   L0028
+         bsr   L0028
+         tfr   d,x
+         os9   F$Sleep  
+         clrb  
+         os9   F$Exit   
+L0028    pshs  b,a
+         ldb   ,x
+         subb  #$30
+         bcs   L0048
+         cmpb  #$09
+         bhi   L0048
+         leax  $01,x
+         pshs  b
+         ldb   #$0A
+         mul   
+         stb   $01,s
+         lda   $02,s
+         ldb   #$0A
+         mul   
+         addb  ,s+
+         adca  ,s
+         std   ,s
+L0048    puls  pc,b,a
+
+         emod
+eom      equ   *
+         end
+