|
0
|
1 ********************************************************************
|
|
|
2 * Tsmon - Timesharing monitor
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * 6 Original Microware distribution version
|
|
|
9
|
|
|
10 nam Tsmon
|
|
|
11 ttl Timesharing monitor
|
|
|
12
|
|
|
13 * Disassembled 02/04/03 22:36:47 by Disasm v1.6 (C) 1988 by RML
|
|
|
14
|
|
|
15 ifp1
|
|
|
16 use os9defs
|
|
|
17 endc
|
|
|
18 tylg set Prgrm+Objct
|
|
|
19 atrv set ReEnt+rev
|
|
|
20 rev set $01
|
|
|
21 mod eom,name,tylg,atrv,start,size
|
|
|
22 u0000 rmb 1
|
|
|
23 u0001 rmb 2
|
|
|
24 u0003 rmb 452
|
|
|
25 size equ .
|
|
|
26 name equ *
|
|
|
27 fcs /Tsmon/
|
|
|
28 fcb $06
|
|
|
29 L0013 fcb $4C L
|
|
|
30 fcb $4F O
|
|
|
31 fcb $47 G
|
|
|
32 fcb $49 I
|
|
|
33 fcb $4E N
|
|
|
34 L0018 fcb $0D
|
|
|
35 L0019 fcb $3B ;
|
|
|
36 start equ *
|
|
|
37 stx <u0001
|
|
|
38 std <u0003
|
|
|
39 L001E cmpd #$0002
|
|
|
40 bcs L0047
|
|
|
41 lda ,x
|
|
|
42 cmpa #$0D
|
|
|
43 beq L0047
|
|
|
44 clra
|
|
|
45 os9 I$Close
|
|
|
46 inca
|
|
|
47 os9 I$Close
|
|
|
48 inca
|
|
|
49 os9 I$Close
|
|
|
50 lda #$03
|
|
|
51 os9 I$Open
|
|
|
52 bcs L007C
|
|
|
53 os9 I$Dup
|
|
|
54 bcs L007C
|
|
|
55 os9 I$Dup
|
|
|
56 bcs L007C
|
|
|
57 L0047 leax <L0019,pcr
|
|
|
58 os9 F$Icpt
|
|
|
59 L004D clra
|
|
|
60 leax ,-s
|
|
|
61 ldy #$0001
|
|
|
62 os9 I$ReadLn
|
|
|
63 leas $01,s
|
|
|
64 bcs L004D
|
|
|
65 lda #$01
|
|
|
66 clrb
|
|
|
67 leax <L0013,pcr
|
|
|
68 leau <L0018,pcr
|
|
|
69 ldy #$0000
|
|
|
70 os9 F$Fork
|
|
|
71 bcs L004D
|
|
|
72 sta <u0000
|
|
|
73 L006F os9 F$Wait
|
|
|
74 cmpa <u0000
|
|
|
75 bne L006F
|
|
|
76 ldx <u0001
|
|
|
77 ldd <u0003
|
|
|
78 bra L001E
|
|
|
79 L007C os9 F$Exit
|
|
|
80 emod
|
|
|
81 eom equ *
|
