Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/build.asm @ 830:80e125a9357d
One more try to fix variable name collision
| author | boisy |
|---|---|
| date | Tue, 14 Jan 2003 03:08:40 +0000 |
| parents | e9ce43cc215e |
| children | 66fe834fdbb9 |
| 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 | |
| 26 FPath rmb 1 | |
| 27 LineBuff rmb 578 | |
| 28 size equ . | |
| 29 | |
| 30 name fcs /Build/ | |
| 31 fcb edition | |
| 32 | |
| 188 | 33 *start ldd #(WRITE.*256)+PREAD.+UPDAT. Level One edition 5 line |
| 34 start ldd #(WRITE.*256)+UPDAT. | |
| 0 | 35 os9 I$Create |
| 36 bcs Exit | |
| 37 sta <FPath | |
| 38 InpLoop lda #1 | |
| 39 leax <Prompt,pcr | |
| 40 ldy #PromptL | |
| 41 os9 I$WritLn | |
| 42 clra | |
| 43 leax LineBuff,u | |
| 44 ldy #128 | |
| 45 os9 I$ReadLn | |
| 46 bcs Close | |
| 47 cmpy #$0001 | |
| 48 beq Close | |
| 49 lda <FPath | |
| 50 os9 I$WritLn | |
| 51 bcc InpLoop | |
| 52 bra Exit | |
| 53 Close lda <FPath | |
| 54 os9 I$Close | |
| 55 bcs Exit | |
| 56 clrb | |
| 57 Exit os9 F$Exit | |
| 58 | |
| 59 Prompt fcc "? " | |
| 60 PromptL equ *-Prompt | |
| 61 | |
| 62 emod | |
| 63 eom equ * | |
| 64 end | |
| 65 |