--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/CoCoOS9/level2v3/CMDS/build.asm	Sat Jul 14 15:16:13 2018 +0900
@@ -0,0 +1,64 @@
+********************************************************************
+* Build - Simple text file creation utility
+*
+* $Id: build.asm,v 1.1.1.1 2001/02/21 23:30:54 boisy Exp $
+*
+* Ed.    Comments                                       Who YY/MM/DD
+* ------------------------------------------------------------------
+* 6      Original Tandy distribution version
+
+         nam   Build
+         ttl   Simple text file creation utility
+
+* Disassembled 98/09/10 23:19:12 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   6
+
+         mod   eom,name,tylg,atrv,start,size
+
+FPath    rmb   1
+LineBuff rmb   578
+size     equ   .
+
+name     fcs   /Build/
+         fcb   edition
+
+start    ldd   #(WRITE.*256)+UPDAT.
+         os9   I$Create 
+         bcs   Exit
+         sta   <FPath
+InpLoop  lda   #1
+         leax  <Prompt,pcr
+         ldy   #PromptL
+         os9   I$WritLn 
+         clra  
+         leax  LineBuff,u
+         ldy   #128
+         os9   I$ReadLn 
+         bcs   Close
+         cmpy  #$0001
+         beq   Close
+         lda   <FPath
+         os9   I$WritLn 
+         bcc   InpLoop
+         bra   Exit
+Close    lda   <FPath
+         os9   I$Close  
+         bcs   Exit
+         clrb  
+Exit     os9   F$Exit   
+
+Prompt   fcc   "? "
+PromptL  equ   *-Prompt
+
+         emod
+eom      equ   *
+         end
+