Mercurial > hg > Members > kono > nitros9-code

comparison level2/cmds/procs.asm @ 0:6641a883d6b0

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