Mercurial > hg > Members > kono > nitros9-code
view level1/cmds/tee.as @ 2787:28b6ec8a14d5 lwtools-port
Added 'extern' pragam, fixed up rules.mak, changed 'section text' to 'section code' in sources
| author | Boisy Pitre <boisy.pitre@nuance.com> |
|---|---|
| date | Sun, 27 Jan 2013 07:54:07 -0600 |
| parents | 03f26e88b809 |
| children | 19517af71188 |
line wrap: on
line source
******************************************************************** * Tee - Split output to multiple devices * * $Id$ * * Edt/Rev YYYY/MM/DD Modified by * Comment * ------------------------------------------------------------------ * 2 ????/??/?? * From Tandy OS-9 Level One VR 02.00.00. nam Tee ttl Split output to multiple devices * Disassembled 98/09/14 23:50:52 by Disasm v1.6 (C) 1988 by RML use defsfile.d rev set $00 edition set 2 section data u0000 rmb 1 parray rmb 13 pcount rmb 1 buff rmb 200 endsect * psect tee_a,Prgrm+Objct,ReEnt+rev,edition,200,start section code start clrb clr pcount clear path counter cmpy #$0000 any parameters? lbeq exitok exit if none leay parray else point Y to path array * Walk the command line parameters parse lda ,x+ cmpa #C$SPAC beq parse cmpa #C$COMA beq parse cmpa #C$CR lbeq parsex * We've found a file or device name leax -1,x lda #WRITE. ldb #PREAD.+UPDAT. os9 I$Create open a path to the device or file bcs exit branch if error ldb pcount else get path counter sta b,y save new path in the array offset incb increment counter stb pcount and save bra parse continue parsing command line parsex stb pcount * Devices on command line are open, start pumping data L0044 clra leax buff ldy #256 os9 I$ReadLn bcc L0057 cmpb #E$EOF beq exitok coma bra exit L0057 inca os9 I$WritLn tst pcount beq L0044 clrb L0060 leay parray lda b,y leax buff ldy #256 os9 I$WritLn bcs exit incb cmpb pcount bne L0060 bra L0044 exitok clrb exit os9 F$Exit endsect