Mercurial > hg > Members > kono > nitros9-code

comparison level1/cmds/build.asm @ 0:6641a883d6b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author boisy
date Thu, 04 Apr 2002 16:34:12 +0000
parents
children fad2545d83fc
comparison
equal deleted inserted replaced
-1:000000000000 0:6641a883d6b0
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