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