|
0
|
1 ********************************************************************
|
|
|
2 * Build - Simple text file creation utility
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * 5 Original Tandy distribution version
|
|
|
9
|
|
|
10 nam Build
|
|
|
11 ttl Simple text file creation utility
|
|
|
12
|
|
|
13 * Disassembled 98/09/10 23:19:12 by Disasm v1.6 (C) 1988 by RML
|
|
|
14
|
|
|
15 ifp1
|
|
|
16 use defsfile
|
|
|
17 endc
|
|
|
18
|
|
|
19 tylg set Prgrm+Objct
|
|
|
20 atrv set ReEnt+rev
|
|
|
21 rev set $01
|
|
|
22 edition set 5
|
|
|
23
|
|
|
24 mod eom,name,tylg,atrv,start,size
|
|
|
25
|
|
|
26 FPath rmb 1
|
|
|
27 LineBuff rmb 578
|
|
|
28 size equ .
|
|
|
29
|
|
|
30 name fcs /Build/
|
|
|
31 fcb edition
|
|
|
32
|
|
|
33 start ldd #(WRITE.*256)+PREAD.+UPDAT.
|
|
|
34 os9 I$Create
|
|
|
35 bcs Exit
|
|
|
36 sta <FPath
|
|
|
37 InpLoop lda #1
|
|
|
38 leax <Prompt,pcr
|
|
|
39 ldy #PromptL
|
|
|
40 os9 I$WritLn
|
|
|
41 clra
|
|
|
42 leax LineBuff,u
|
|
|
43 ldy #128
|
|
|
44 os9 I$ReadLn
|
|
|
45 bcs Close
|
|
|
46 cmpy #$0001
|
|
|
47 beq Close
|
|
|
48 lda <FPath
|
|
|
49 os9 I$WritLn
|
|
|
50 bcc InpLoop
|
|
|
51 bra Exit
|
|
|
52 Close lda <FPath
|
|
|
53 os9 I$Close
|
|
|
54 bcs Exit
|
|
|
55 clrb
|
|
|
56 Exit os9 F$Exit
|
|
|
57
|
|
|
58 Prompt fcc "? "
|
|
|
59 PromptL equ *-Prompt
|
|
|
60
|
|
|
61 emod
|
|
|
62 eom equ *
|
|
|
63 end
|
|
|
64
|
