Mercurial > hg > Members > kono > os9 > sbc09

comparison CoCoOS9/level2v3/CMDS/tsmon.asm @ 31:bd2b07db8917 cocoos9lv2v3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
CoCoOS9 version
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 14 Jul 2018 15:16:13 +0900
parents
children
comparison
equal deleted inserted replaced
30:7b1b25ff010a 31:bd2b07db8917
1 ********************************************************************
2 * TSMon - Time sharing monitor
3 *
4 * $Id: tsmon.asm,v 1.1.1.1 2001/02/21 23:30:54 boisy Exp $
5 *
6 * Ed. Comments Who YY/MM/DD
7 * ------------------------------------------------------------------
8 * 8 Original Tandy distribution version
9
10 nam Tsmon
11 ttl Time sharing monitor
12
13 * Disassembled 98/09/14 23:52:10 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 8
23
24 mod eom,name,tylg,atrv,start,size
25
26 ChildPID rmb 1
27 DevName rmb 2
28 ParmArea rmb 2
29 u0005 rmb 451
30 size equ .
31
32 name fcs /Tsmon/
33 fcb edition
34
35 Login fcc "LOGIN"
36 Param fcb C$CR
37
38 * Intercept routine
39 IcptRtn rti
40
41 start stx <DevName store pointer to device name
42 std <ParmArea save parameter area size
43 leax <IcptRtn,pcr
44 os9 F$Icpt install interrupt svc rtn
45 L0024 ldx <DevName get device name pointer
46 ldd <ParmArea get parameter area size
47 cmpd #$0002 size is 2?
48 bcs L0052 if less than, just use stdin
49 lda ,x else get char at X
50 cmpa #C$CR carriage return?
51 beq L0052 yep, just use stdin
52 clra else set A to 0
53 os9 I$Close close stdin
54 lda #READ.!WRITE.
55 os9 I$Open open path to device (path 0 is used)
56 bcs Error branch if error
57 inca A = 1 (stdout)
58 os9 I$Close close stdout path
59 inca A = 2 (stderr)
60 os9 I$Close close stderr path
61 clra A = 0 (stdin)
62 os9 I$Dup duplicate to standard out
63 bcs Error branch if error
64 os9 I$Dup duplicate to standard error
65 bcs Error branch if error
66 L0052 clra A = 0 (stdin)
67 leax u0005,u X = buffer
68 ldy #$0001 character count
69 os9 I$ReadLn read
70 bcs L0024
71 lda #Objct
72 clrb size of data area
73 leax <Login,pcr point to Login name
74 leau <Param,pcr and parameter area
75 ldy #$0000 size of parameter area
76 os9 F$Fork fork it!
77 bcs L0024 branch if error
78 sta <ChildPID save PID of Login process
79 L0072 os9 F$Wait wait for it to die
80 cmpa <ChildPID A = PID of dead process.. same as our child?
81 bne L0072 if not, continue waiting
82 bra L0024 else restart procedure
83 Error os9 F$Exit
84
85 emod
86 eom equ *
87 end