Mercurial > hg > Members > kono > nitros9-code

view level1/cmds/build.asm @ 96:307e956c5124

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial import of iniz.asm
author boisy
date Sat, 06 Jul 2002 02:57:08 +0000
parents 6641a883d6b0
children fad2545d83fc
line wrap: on
line source

********************************************************************
* Build - Simple text file creation utility
*
* $Id$
*
* Ed.    Comments                                       Who YY/MM/DD
* ------------------------------------------------------------------
* 5      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   5

         mod   eom,name,tylg,atrv,start,size

FPath    rmb   1
LineBuff rmb   578
size     equ   .

name     fcs   /Build/
         fcb   edition

start    ldd   #(WRITE.*256)+PREAD.+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