Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/build.asm @ 1025:a20d2fd36cfa
Releases of all OS-9 packages are now under a common version number
| author | boisy |
|---|---|
| date | Fri, 07 Mar 2003 15:24:10 +0000 |
| parents | 66fe834fdbb9 |
| children | 84ea83668304 |
| rev | line source |
|---|---|
| 0 | 1 ******************************************************************** |
| 2 * Build - Simple text file creation utility | |
| 3 * | |
| 4 * $Id$ | |
| 5 * | |
| 6 * Ed. Comments Who YY/MM/DD | |
| 7 * ------------------------------------------------------------------ | |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
188
diff
changeset
|
8 * 6 From Tandy OS-9 Level Two VR 02.00.01 |
| 0 | 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 | |
| 188 | 22 edition set 6 |
| 0 | 23 |
| 24 mod eom,name,tylg,atrv,start,size | |
| 25 | |
| 918 | 26 fpath rmb 1 |
| 27 linebuff rmb 128 | |
| 28 stack rmb 450 | |
| 0 | 29 size equ . |
| 30 | |
| 31 name fcs /Build/ | |
| 32 fcb edition | |
| 33 | |
| 188 | 34 *start ldd #(WRITE.*256)+PREAD.+UPDAT. Level One edition 5 line |
| 35 start ldd #(WRITE.*256)+UPDAT. | |
| 918 | 36 os9 I$Create create file |
| 37 bcs Exit branch if error | |
| 38 sta <fpath else save path to file | |
| 39 InpLoop lda #1 stdout | |
| 40 leax <Prompt,pcr point to prompt | |
| 41 ldy #PromptL and size of prompt | |
| 42 os9 I$WritLn write line | |
| 43 clra stdin | |
| 44 leax linebuff,u point to line buffer | |
| 45 ldy #128 and max read size | |
| 46 os9 I$ReadLn read line | |
| 47 bcs Close branch if error | |
| 48 cmpy #$0001 1 byte read? | |
| 49 beq Close if so, must be CR, exit | |
| 50 lda <fpath else get file path | |
| 51 os9 I$WritLn write line to file | |
| 52 bcc InpLoop branch if ok | |
| 53 bra Exit else exit | |
| 54 Close lda <fpath get file path | |
| 55 os9 I$Close close it | |
| 56 bcs Exit branch if erro | |
| 57 clrb else clear carry | |
| 58 Exit os9 F$Exit and exit normally | |
| 0 | 59 |
| 60 Prompt fcc "? " | |
| 61 PromptL equ *-Prompt | |
| 62 | |
| 63 emod | |
| 64 eom equ * | |
| 65 end | |
| 66 |