|
335
|
1 ********************************************************************
|
|
|
2 * Procs - Show process information
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
1255
|
6 * Edt/Rev YYYY/MM/DD Modified by
|
|
|
7 * Comment
|
|
335
|
8 * ------------------------------------------------------------------
|
|
1255
|
9 * 14 ????/??/??
|
|
|
10 * Original Tandy/Microware version.
|
|
|
11 *
|
|
|
12 * 15 2003/01/14 Boisy Pitre
|
|
|
13 * Changed e to -e.
|
|
335
|
14
|
|
|
15 nam Procs
|
|
|
16 ttl program module
|
|
|
17
|
|
|
18 * Disassembled 98/09/11 17:07:20 by Disasm v1.6 (C) 1988 by RML
|
|
|
19
|
|
|
20 ifp1
|
|
|
21 use defsfile
|
|
|
22 endc
|
|
|
23
|
|
|
24 tylg set Prgrm+Objct
|
|
|
25 atrv set ReEnt+rev
|
|
1255
|
26 rev set $00
|
|
843
|
27 edition set 15
|
|
335
|
28
|
|
|
29 mod eom,name,tylg,atrv,start,size
|
|
|
30
|
|
843
|
31 showall rmb 1
|
|
335
|
32 u0001 rmb 1
|
|
843
|
33 narrow rmb 1
|
|
335
|
34 u0003 rmb 1
|
|
|
35 u0004 rmb 1
|
|
|
36 u0005 rmb 1
|
|
|
37 u0006 rmb 2
|
|
|
38 u0008 rmb 1
|
|
|
39 u0009 rmb 1
|
|
|
40 u000A rmb 32
|
|
|
41 u002A rmb 58
|
|
|
42 u0064 rmb 22
|
|
|
43 u007A rmb 110
|
|
|
44 u00E8 rmb 1164
|
|
|
45 size equ .
|
|
|
46
|
|
|
47 name fcs /Procs/
|
|
|
48 fcb edition
|
|
843
|
49 header1 fcs " User Mem Stack"
|
|
|
50 header2 fcs "Id PId Number Pty Age Sts Signl Siz Ptr Primary Module"
|
|
|
51 header3 fcs "--- --- ------- --- --- --- ----- --- ----- ----------------"
|
|
|
52 sheader1 fcs "Id PId User# Pty Age Sts"
|
|
|
53 sheader2 fcs " Sigl Mem StPtr Primary"
|
|
|
54 sheader3 fcs "============================="
|
|
|
55 ItsDead fcs "DEAD"
|
|
335
|
56
|
|
843
|
57 start clr <showall
|
|
|
58 clr <narrow assume wide screen
|
|
335
|
59 lda #$01
|
|
|
60 sta <u0001
|
|
843
|
61 ldd ,x+
|
|
|
62 andb #$DF
|
|
|
63 cmpd #$2D45 -e?
|
|
|
64 bne L0122 branch if nnot
|
|
|
65 inc <showall
|
|
335
|
66 L0122 leax <u002A,u
|
|
|
67 stx <u0006
|
|
|
68 leax <u007A,u
|
|
|
69 os9 F$GBlkMp
|
|
|
70 tfr a,b
|
|
|
71 nega
|
|
|
72 sta <u0008
|
|
|
73 lda #$FE
|
|
|
74 L0134 inca
|
|
|
75 lsrb
|
|
|
76 bne L0134
|
|
|
77 sta <u0009
|
|
|
78 os9 F$ID
|
|
|
79 sty <u0003
|
|
|
80 lbsr L024F
|
|
|
81 lda #$01
|
|
|
82 ldb #SS.ScSiz
|
|
843
|
83 os9 I$GetStt get window size
|
|
|
84 bcc L0154 branch if gotten
|
|
|
85 cmpb #E$UnkSvc unknown service?
|
|
|
86 lbne L0241 if not, erroor
|
|
|
87 bra L017B else assume wide screen
|
|
|
88 L0154 cmpx #60 at least this wide?
|
|
|
89 bge L017B branch if so
|
|
|
90 inc <narrow else set narrow flag
|
|
|
91 leay >sheader1,pcr
|
|
335
|
92 lbsr L0244
|
|
|
93 lbsr L024F
|
|
843
|
94 leay >sheader2,pcr
|
|
335
|
95 lbsr L0244
|
|
|
96 lbsr L024F
|
|
843
|
97 leay >sheader3,pcr
|
|
335
|
98 lbsr L0244
|
|
|
99 lbsr L024F
|
|
|
100 bra L0199
|
|
843
|
101 L017B leay >header1,pcr
|
|
335
|
102 lbsr L0244
|
|
|
103 lbsr L024F
|
|
843
|
104 leay >header2,pcr
|
|
335
|
105 lbsr L0244
|
|
|
106 lbsr L024F
|
|
843
|
107 leay >header3,pcr
|
|
335
|
108 lbsr L0244
|
|
|
109 lbsr L024F
|
|
|
110 L0199 inc <u0001
|
|
|
111 lbeq L0240
|
|
|
112 lda <u0001
|
|
|
113 leax <u007A,u
|
|
|
114 os9 F$GPrDsc
|
|
|
115 bcs L0199
|
|
|
116 ldd <u0003
|
|
|
117 cmpd $08,x
|
|
|
118 beq L01B4
|
|
843
|
119 tst <showall
|
|
335
|
120 beq L0199
|
|
|
121 L01B4 ldb ,x
|
|
|
122 lbsr L026F
|
|
|
123 lbsr L0292
|
|
|
124 ldb $01,x
|
|
|
125 lbsr L026F
|
|
|
126 lbsr L0292
|
|
|
127 ldd $08,x
|
|
|
128 lbsr L02C3
|
|
|
129 lbsr L0292
|
|
|
130 lbsr L0292
|
|
|
131 lbsr L0292
|
|
|
132 ldb $0A,x
|
|
|
133 lbsr L026F
|
|
|
134 lbsr L0292
|
|
843
|
135 tst <narrow
|
|
335
|
136 beq L01E1
|
|
|
137 lbsr L0292
|
|
|
138 L01E1 ldb $0B,x
|
|
|
139 lbsr L026F
|
|
|
140 lbsr L0292
|
|
843
|
141 tst <narrow
|
|
335
|
142 beq L01F0
|
|
|
143 lbsr L0292
|
|
|
144 L01F0 lda #$24
|
|
|
145 lbsr L0296
|
|
|
146 lda $0C,x
|
|
|
147 lbsr L02A0
|
|
|
148 clra
|
|
843
|
149 tst <narrow
|
|
335
|
150 beq L0202
|
|
|
151 lbsr L024F
|
|
|
152 L0202 ldb <$19,x
|
|
|
153 lbsr L02C3
|
|
|
154 lbsr L0292
|
|
|
155 lbsr L0292
|
|
|
156 ldb $07,x
|
|
|
157 bsr L026F
|
|
|
158 bsr L0292
|
|
843
|
159 tst <narrow
|
|
335
|
160 beq L021E
|
|
|
161 bsr L0292
|
|
|
162 bsr L0292
|
|
|
163 bsr L0292
|
|
|
164 L021E lda #$24
|
|
|
165 bsr L0296
|
|
|
166 lda $04,x
|
|
|
167 bsr L02A0
|
|
|
168 lda $05,x
|
|
|
169 bsr L02A0
|
|
|
170 bsr L0292
|
|
843
|
171 tst <narrow
|
|
335
|
172 beq L0234
|
|
|
173 bsr L0292
|
|
|
174 bsr L0292
|
|
|
175 L0234 lbsr L02FA
|
|
|
176 bsr L0244
|
|
|
177 bsr L0292
|
|
|
178 bsr L024F
|
|
|
179 lbra L0199
|
|
|
180 L0240 clrb
|
|
|
181 L0241 os9 F$Exit
|
|
|
182 L0244 lda ,y
|
|
|
183 anda #$7F
|
|
|
184 bsr L0296
|
|
|
185 lda ,y+
|
|
|
186 bpl L0244
|
|
|
187 rts
|
|
|
188 L024F pshs y,x,a
|
|
|
189 lda #C$CR
|
|
|
190 bsr L0296
|
|
|
191 leax <u002A,u
|
|
|
192 stx <u0006
|
|
843
|
193 tst <narrow
|
|
335
|
194 beq L0264
|
|
|
195 ldy #$0020
|
|
|
196 bra L0268
|
|
|
197 L0264 ldy #80
|
|
|
198 L0268 lda #$01
|
|
|
199 os9 I$WritLn
|
|
|
200 puls pc,y,x,a
|
|
|
201 L026F clr <u0005
|
|
|
202 lda #$FF
|
|
|
203 L0273 inca
|
|
|
204 subb #$64
|
|
|
205 bcc L0273
|
|
|
206 bsr L0289
|
|
|
207 lda #$0A
|
|
|
208 L027C deca
|
|
|
209 addb #$0A
|
|
|
210 bcc L027C
|
|
|
211 bsr L0289
|
|
|
212 tfr b,a
|
|
|
213 adda #$30
|
|
|
214 bra L0296
|
|
|
215 L0289 tsta
|
|
|
216 beq L028E
|
|
|
217 sta <u0005
|
|
|
218 L028E tst <u0005
|
|
|
219 bne L0294
|
|
|
220 L0292 lda #$F0
|
|
|
221 L0294 adda #$30
|
|
|
222 L0296 pshs x
|
|
|
223 ldx <u0006
|
|
|
224 sta ,x+
|
|
|
225 stx <u0006
|
|
|
226 puls pc,x
|
|
|
227 L02A0 pshs a
|
|
|
228 anda #$F0
|
|
|
229 lsra
|
|
|
230 lsra
|
|
|
231 lsra
|
|
|
232 lsra
|
|
|
233 bsr L02AE
|
|
|
234 puls a
|
|
|
235 anda #$0F
|
|
|
236 L02AE adda #$30
|
|
|
237 cmpa #$39
|
|
|
238 bls L0296
|
|
|
239 adda #$07
|
|
|
240 bra L0296
|
|
|
241 L02B8 fdb $2710,$03e8,$0064,$000a
|
|
|
242 fcb $00,$01,$ff
|
|
|
243
|
|
|
244 L02C3 pshs y,x,b,a
|
|
|
245 leax <L02B8,pcr
|
|
|
246 ldy #$2F20
|
|
|
247 L02CC leay >$0100,y
|
|
|
248 subd ,x
|
|
|
249 bcc L02CC
|
|
|
250 addd ,x++
|
|
|
251 pshs b,a
|
|
|
252 tfr y,d
|
|
|
253 tst ,x
|
|
|
254 bmi L02F4
|
|
|
255 ldy #$2F30
|
|
|
256 cmpd #$3020
|
|
|
257 bne L02EE
|
|
|
258 ldy #$2F20
|
|
|
259 lda #$20
|
|
|
260 L02EE bsr L0296
|
|
|
261 puls b,a
|
|
|
262 bra L02CC
|
|
|
263 L02F4 bsr L0296
|
|
|
264 leas $02,s
|
|
|
265 puls pc,y,x,b,a
|
|
|
266 L02FA pshs u,x
|
|
843
|
267 leay >ItsDead,pcr
|
|
335
|
268 lda $0C,x
|
|
|
269 bita #$01
|
|
|
270 bne L0330
|
|
|
271 leay <$40,x
|
|
|
272 tfr y,d
|
|
|
273 ldx <$11,x
|
|
|
274 ldy #$0009
|
|
|
275 leau u000A,u
|
|
|
276 os9 F$CpyMem
|
|
|
277 pshs b,a
|
|
|
278 ldd u0004,u
|
|
|
279 leax d,x
|
|
|
280 puls b,a
|
|
|
281 ldy #$0020
|
|
|
282 os9 F$CpyMem
|
|
|
283 leay ,u
|
|
|
284 lda <$1F,y
|
|
|
285 ora #$80
|
|
|
286 sta <$1F,y
|
|
|
287 L0330 puls pc,u,x
|
|
|
288
|
|
|
289 emod
|
|
|
290 eom equ *
|
|
|
291 end
|
|
|
292
|
