Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/tee.asm @ 1523:82200a2c5721
Added mpi utility
| author | boisy |
|---|---|
| date | Wed, 17 Mar 2004 16:52:01 +0000 |
| parents | 84ea83668304 |
| children | 585e04f3959d |
| rev | line source |
|---|---|
| 0 | 1 ******************************************************************** |
| 2 * Tee - Split output to multiple devices | |
| 3 * | |
| 4 * $Id$ | |
| 5 * | |
|
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
924
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:
924
diff
changeset
|
7 * Comment |
| 0 | 8 * ------------------------------------------------------------------ |
|
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
924
diff
changeset
|
9 * 2 ????/??/?? |
|
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
924
diff
changeset
|
10 * From Tandy OS-9 Level One VR 02.00.00. |
| 0 | 11 |
| 12 nam Tee | |
| 13 ttl Split output to multiple devices | |
| 14 | |
| 15 * Disassembled 98/09/14 23:50:52 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:
924
diff
changeset
|
23 rev set $00 |
| 0 | 24 edition set 2 |
| 25 | |
| 26 mod eom,name,tylg,atrv,start,size | |
| 27 | |
| 924 | 28 org 0 |
| 0 | 29 u0000 rmb 1 |
| 30 u0001 rmb 13 | |
| 31 u000E rmb 1 | |
| 32 u000F rmb 706 | |
| 33 size equ . | |
| 34 | |
| 35 name fcs /Tee/ | |
| 36 fcb edition | |
| 37 | |
| 38 start clrb | |
| 13 | 39 clr u000E,u clear path counter |
| 0 | 40 cmpy #$0000 |
| 41 lbeq L0076 | |
| 42 leay u0001,u | |
| 13 | 43 |
| 44 * Walk the command line parameters | |
| 0 | 45 L001E lda ,x+ |
| 13 | 46 cmpa #C$SPAC |
| 0 | 47 beq L001E |
| 13 | 48 cmpa #C$COMA |
| 0 | 49 beq L001E |
| 13 | 50 cmpa #C$CR |
| 0 | 51 lbeq L0042 |
| 13 | 52 * We've found a file or device name |
| 53 leax -1,x | |
| 54 lda #WRITE. | |
| 55 ldb #PREAD.+UPDAT. | |
| 0 | 56 os9 I$Create |
| 57 bcs L0077 | |
| 58 ldb u000E,u | |
| 59 sta b,y | |
| 60 incb | |
| 61 stb u000E,u | |
| 62 bra L001E | |
| 63 L0042 stb u000E,u | |
| 13 | 64 |
| 65 * Devices on command line are open, start pumping data | |
| 0 | 66 L0044 clra |
| 67 leax u000F,u | |
| 13 | 68 ldy #256 |
| 0 | 69 os9 I$ReadLn |
| 70 bcc L0057 | |
| 13 | 71 cmpb #E$EOF |
| 0 | 72 beq L0076 |
| 73 coma | |
| 74 bra L0077 | |
| 75 L0057 inca | |
| 76 os9 I$WritLn | |
| 77 tst u000E,u | |
| 78 beq L0044 | |
| 79 clrb | |
| 80 L0060 leay u0001,u | |
| 81 lda b,y | |
| 82 leax u000F,u | |
| 13 | 83 ldy #256 |
| 0 | 84 os9 I$WritLn |
| 85 bcs L0077 | |
| 86 incb | |
| 87 cmpb u000E,u | |
| 88 bne L0060 | |
| 89 bra L0044 | |
| 90 L0076 clrb | |
| 91 L0077 os9 F$Exit | |
| 92 | |
| 93 emod | |
| 94 eom equ * | |
| 95 end |