Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/tsmon.asm @ 1748:949d4df97cca
Fixed some comments, made better use of symbolics
| author | boisy |
|---|---|
| date | Thu, 03 Mar 2005 23:19:49 +0000 |
| parents | 84ea83668304 |
| children |
| rev | line source |
|---|---|
| 191 | 1 ******************************************************************* |
| 0 | 2 * Tsmon - Timesharing monitor |
| 3 * | |
| 4 * $Id$ | |
| 5 * | |
|
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
917
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:
917
diff
changeset
|
7 * Comment |
| 0 | 8 * ------------------------------------------------------------------ |
|
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
917
diff
changeset
|
9 * 6 ????/??/?? |
|
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
917
diff
changeset
|
10 * From Tandy OS-9 Level Two VR 02.00.01. |
| 0 | 11 |
| 12 nam Tsmon | |
| 13 ttl Timesharing monitor | |
| 14 | |
| 191 | 15 * Disassembled 02/07/13 23:44:55 by Disasm v1.6 (C) 1988 by RML |
| 0 | 16 |
| 17 ifp1 | |
| 129 | 18 use defsfile |
| 0 | 19 endc |
| 129 | 20 |
| 0 | 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:
917
diff
changeset
|
23 rev set $00 |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
191
diff
changeset
|
24 edition set 8 |
| 129 | 25 |
| 0 | 26 mod eom,name,tylg,atrv,start,size |
| 129 | 27 |
| 917 | 28 org 0 |
| 29 childid rmb 1 | |
| 30 parmptr rmb 2 | |
| 31 parmlen rmb 2 | |
| 32 inbuff rmb 451 | |
| 0 | 33 size equ . |
| 129 | 34 |
| 35 name fcs /Tsmon/ | |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
191
diff
changeset
|
36 fcb edition |
| 129 | 37 |
| 917 | 38 Login fcc "LOGIN" |
| 39 LoginPrm fcb C$CR | |
| 129 | 40 |
| 917 | 41 IcptRtn rti |
| 129 | 42 |
| 917 | 43 start stx <parmptr save parameter pointer |
| 44 std <parmlen save parameter length | |
| 45 leax <IcptRtn,pcr point to intercept routine | |
| 46 os9 F$Icpt and set it | |
| 47 L0024 ldx <parmptr get pointer to parameter | |
| 48 ldd <parmlen and length | |
| 49 cmpd #$0002 | |
| 191 | 50 bcs L0052 |
| 917 | 51 lda ,x get byte at command line |
| 52 cmpa #C$CR cr? | |
| 53 beq L0052 if so, branch | |
| 54 clra stdin | |
| 55 os9 I$Close close it | |
| 191 | 56 lda #UPDAT. |
| 917 | 57 os9 I$Open open device on command line |
| 58 bcs Exit branch if error | |
| 59 inca A = 1 | |
| 60 os9 I$Close close stdout | |
| 61 inca A = 2 | |
| 62 os9 I$Close close stderr | |
| 63 clra stdin path | |
| 64 os9 I$Dup dup to stdout | |
| 65 bcs Exit branch if error | |
| 66 os9 I$Dup dup to stderr | |
| 67 bcs Exit branch if error | |
| 68 L0052 clra stdin | |
| 69 leax inbuff,u point to buffer | |
| 70 ldy #$0001 read 1 byte | |
| 71 os9 I$ReadLn read line | |
| 72 bcs L0024 branch if error | |
| 73 lda #Objct object | |
| 74 clrb no additional mem | |
| 75 leax <Login,pcr point to login | |
| 76 leau <LoginPrm,pcr and to parameters | |
| 77 ldy #$0000 parameter size | |
| 78 os9 F$Fork fork program | |
| 79 bcs L0024 branch if error | |
| 80 sta <childid else save process ID of child | |
| 81 L0072 os9 F$Wait wait for it to finish | |
| 82 cmpa <childid same as PID we forked? | |
| 83 bne L0072 if not, wait more | |
| 84 bra L0024 else go back | |
| 85 Exit os9 F$Exit exit | |
| 129 | 86 |
| 0 | 87 emod |
| 88 eom equ * | |
| 129 | 89 end |