Mercurial > hg > Members > kono > os9 > sbc09

comparison CoCoOS9/level2v3/CMDS/build.asm @ 31:bd2b07db8917 cocoos9lv2v3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
CoCoOS9 version
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 14 Jul 2018 15:16:13 +0900
parents
children
comparison
equal deleted inserted replaced
30:7b1b25ff010a 31:bd2b07db8917
1 ********************************************************************
2 * Build - Simple text file creation utility
3 *
4 * $Id: build.asm,v 1.1.1.1 2001/02/21 23:30:54 boisy Exp $
5 *
6 * Ed. Comments Who YY/MM/DD
7 * ------------------------------------------------------------------
8 * 6 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 6
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)+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