Mercurial > hg > Members > kono > nitros9-code
view level1/cmds/tee.a @ 2758:e4a0f58a5f9b
Found that people who do not have the envirornment variable NITROS9DIR set before building the project get a error missing file "/rules.mak". Found this is caused do to the fact that the code to set this envirornment variable is in the rules.mak which can't get loaded.
To fix this the code needed to set the envirornment variable that is in the rules.mak is now in the makefile(s) right before the include for the rules.mak file. This should fix the problem for those who do not have the NITROS9DIR envirornment variable preset.
| author | drencor-xeen |
|---|---|
| date | Mon, 14 Jan 2013 14:37:46 -0600 |
| parents | a51439f6b206 |
| children | aaba193af04f |
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 psect tee_a,Prgrm+Objct,ReEnt+rev,edition,200,start vsect dp u0000 rmb 1 parray rmb 13 pcount rmb 1 buff rmb 200 endsect 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