Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/build.asm @ 3295:6b7a7b233925 default tip
makefile: Allow PORTS with level1/2 mix
https://sourceforge.net/p/nitros9/feature-requests/10/
| author | Tormod Volden <debian.tormod@gmail.com> |
|---|---|
| date | Tue, 19 Apr 2022 18:12:17 +0200 |
| parents | 84ea83668304 |
| children |
| rev | line source |
|---|---|
| 0 | 1 ******************************************************************** |
| 2 * Build - Simple text file creation utility | |
| 3 * | |
| 4 * $Id$ | |
| 5 * | |
|
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
918
diff
changeset
|
6 * Edt/Rev YYYY/MM/DD Modified by |
|
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
918
diff
changeset
|
7 * Comment |
| 0 | 8 * ------------------------------------------------------------------ |
|
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
918
diff
changeset
|
9 * 6 ????/??/?? |
|
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
918
diff
changeset
|
10 * From Tandy OS-9 Level Two VR 02.00.01. |
| 0 | 11 |
| 12 nam Build | |
| 13 ttl Simple text file creation utility | |
| 14 | |
| 15 * Disassembled 98/09/10 23:19:12 by Disasm v1.6 (C) 1988 by RML | |
| 16 | |
| 17 ifp1 | |
| 18 use defsfile | |
| 19 endc | |
| 20 | |
| 21 tylg set Prgrm+Objct | |
| 22 atrv set ReEnt+rev | |
|
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
918
diff
changeset
|
23 rev set $00 |
| 188 | 24 edition set 6 |
| 0 | 25 |
| 26 mod eom,name,tylg,atrv,start,size | |
| 27 | |
| 918 | 28 fpath rmb 1 |
| 29 linebuff rmb 128 | |
| 30 stack rmb 450 | |
| 0 | 31 size equ . |
| 32 | |
| 33 name fcs /Build/ | |
| 34 fcb edition | |
| 35 | |
| 188 | 36 *start ldd #(WRITE.*256)+PREAD.+UPDAT. Level One edition 5 line |
| 37 start ldd #(WRITE.*256)+UPDAT. | |
| 918 | 38 os9 I$Create create file |
| 39 bcs Exit branch if error | |
| 40 sta <fpath else save path to file | |
| 41 InpLoop lda #1 stdout | |
| 42 leax <Prompt,pcr point to prompt | |
| 43 ldy #PromptL and size of prompt | |
| 44 os9 I$WritLn write line | |
| 45 clra stdin | |
| 46 leax linebuff,u point to line buffer | |
| 47 ldy #128 and max read size | |
| 48 os9 I$ReadLn read line | |
| 49 bcs Close branch if error | |
| 50 cmpy #$0001 1 byte read? | |
| 51 beq Close if so, must be CR, exit | |
| 52 lda <fpath else get file path | |
| 53 os9 I$WritLn write line to file | |
| 54 bcc InpLoop branch if ok | |
| 55 bra Exit else exit | |
| 56 Close lda <fpath get file path | |
| 57 os9 I$Close close it | |
| 58 bcs Exit branch if erro | |
| 59 clrb else clear carry | |
| 60 Exit os9 F$Exit and exit normally | |
| 0 | 61 |
| 62 Prompt fcc "? " | |
| 63 PromptL equ *-Prompt | |
| 64 | |
| 65 emod | |
| 66 eom equ * | |
| 67 end | |
| 68 |