Mercurial > hg > Members > kono > nitros9-code
view level1/cmds/tsmon.asm @ 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 | 84ea83668304 |
| children |
line wrap: on
line source
******************************************************************* * Tsmon - Timesharing monitor * * $Id$ * * Edt/Rev YYYY/MM/DD Modified by * Comment * ------------------------------------------------------------------ * 6 ????/??/?? * From Tandy OS-9 Level Two VR 02.00.01. nam Tsmon ttl Timesharing monitor * Disassembled 02/07/13 23:44:55 by Disasm v1.6 (C) 1988 by RML ifp1 use defsfile endc tylg set Prgrm+Objct atrv set ReEnt+rev rev set $00 edition set 8 mod eom,name,tylg,atrv,start,size org 0 childid rmb 1 parmptr rmb 2 parmlen rmb 2 inbuff rmb 451 size equ . name fcs /Tsmon/ fcb edition Login fcc "LOGIN" LoginPrm fcb C$CR IcptRtn rti start stx <parmptr save parameter pointer std <parmlen save parameter length leax <IcptRtn,pcr point to intercept routine os9 F$Icpt and set it L0024 ldx <parmptr get pointer to parameter ldd <parmlen and length cmpd #$0002 bcs L0052 lda ,x get byte at command line cmpa #C$CR cr? beq L0052 if so, branch clra stdin os9 I$Close close it lda #UPDAT. os9 I$Open open device on command line bcs Exit branch if error inca A = 1 os9 I$Close close stdout inca A = 2 os9 I$Close close stderr clra stdin path os9 I$Dup dup to stdout bcs Exit branch if error os9 I$Dup dup to stderr bcs Exit branch if error L0052 clra stdin leax inbuff,u point to buffer ldy #$0001 read 1 byte os9 I$ReadLn read line bcs L0024 branch if error lda #Objct object clrb no additional mem leax <Login,pcr point to login leau <LoginPrm,pcr and to parameters ldy #$0000 parameter size os9 F$Fork fork program bcs L0024 branch if error sta <childid else save process ID of child L0072 os9 F$Wait wait for it to finish cmpa <childid same as PID we forked? bne L0072 if not, wait more bra L0024 else go back Exit os9 F$Exit exit emod eom equ * end