Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/procs.asm @ 556:28a203bbd2cc
findstr and signal finished.
| author | roug |
|---|---|
| date | Tue, 22 Oct 2002 19:09:04 +0000 |
| parents | e9ce43cc215e |
| children | 790d0bf87621 |
| rev | line source |
|---|---|
| 0 | 1 ******************************************************************** |
| 14 | 2 * Procs - Show processes |
| 0 | 3 * |
| 4 * $Id$ | |
| 5 * | |
| 6 * Ed. Comments Who YY/MM/DD | |
| 7 * ------------------------------------------------------------------ | |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
185
diff
changeset
|
8 * 9 From Tandy OS-9 Level One VR 02.00.00 |
| 0 | 9 |
| 10 nam Procs | |
| 11 ttl program module | |
| 12 | |
| 14 | 13 * Disassembled 02/04/05 13:22:14 by Disasm v1.6 (C) 1988 by RML |
| 0 | 14 |
| 15 ifp1 | |
| 14 | 16 use defsfile |
| 0 | 17 endc |
| 14 | 18 |
| 0 | 19 tylg set Prgrm+Objct |
| 20 atrv set ReEnt+rev | |
| 21 rev set $01 | |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
185
diff
changeset
|
22 edition set 9 |
| 14 | 23 |
| 0 | 24 mod eom,name,tylg,atrv,start,size |
| 14 | 25 |
| 0 | 26 u0000 rmb 1 |
| 14 | 27 u0001 rmb 1 |
| 185 | 28 AProc rmb 2 |
| 29 WProc rmb 2 | |
| 30 SProc rmb 2 | |
| 14 | 31 u0008 rmb 2 |
| 32 u000A rmb 1 | |
| 33 u000B rmb 2 | |
| 34 u000D rmb 87 | |
| 0 | 35 u0064 rmb 132 |
| 14 | 36 u00E8 rmb 2156 |
| 37 u0954 rmb 450 | |
| 0 | 38 size equ . |
| 14 | 39 |
| 40 name fcs /Procs/ | |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
185
diff
changeset
|
41 fcb edition |
| 14 | 42 |
| 43 L0013 fcb C$LF | |
| 44 fcc "Usr # id pty sta mem pri mod" | |
| 45 fcb C$CR | |
| 46 L0032 fcs "----- --- --- --- --- -------" | |
| 47 L004F fcc " act" | |
| 48 fcb $A0 | |
| 49 L0054 fcc " wai" | |
| 50 fcb $A0 | |
| 51 L0059 fcc " sle" | |
| 52 fcb $A0 | |
| 53 L005E fcb C$LF | |
| 54 fcc "Usr # id pty state mem primary module" | |
| 55 fcb C$CR | |
| 56 L0089 fcs "----- --- --- -------- --- --------------" | |
| 57 L00B2 fcc " active " | |
| 58 fcb $A0 | |
| 59 L00BC fcc " waiting" | |
| 60 fcb $A0 | |
| 61 L00C6 fcc " sleeping" | |
| 0 | 62 fcb $A0 |
| 14 | 63 |
| 64 start clr <u0001 | |
| 0 | 65 clr <u0000 |
| 14 | 66 pshs y,x,b,a |
| 67 lda #$01 | |
| 68 ldb #SS.ScSiz | |
| 69 os9 I$GetStt | |
| 70 bcc L00E8 | |
| 71 cmpb #E$UnkSvc | |
| 72 beq L00EF | |
| 73 puls y,x,b,a | |
| 74 lbra L01F1 | |
| 75 L00E8 cmpx #80 | |
| 76 beq L00EF | |
| 77 inc <u0000 | |
| 78 L00EF puls y,x,b,a | |
| 0 | 79 lda ,x+ |
| 14 | 80 eora #'E |
| 0 | 81 anda #$DF |
| 14 | 82 bne L00FB |
| 83 inc <u0001 | |
| 84 L00FB leax u000D,u | |
| 85 stx <u000B | |
| 86 orcc #IntMasks | |
| 185 | 87 ldx >D.AProcQ |
| 88 stx <AProc | |
| 89 ldx >D.WProcQ | |
| 90 stx <WProc | |
| 91 ldx >D.SProcQ | |
| 92 stx <SProc | |
| 93 ldx >D.Proc | |
| 94 ldd P$User,x | |
| 14 | 95 std <u0008 |
| 0 | 96 pshs u |
| 14 | 97 leau >u0954,u |
| 0 | 98 lda #$01 |
| 185 | 99 ldx <AProc |
| 14 | 100 lbsr L0287 |
| 0 | 101 lda #$02 |
| 185 | 102 ldx <WProc |
| 14 | 103 lbsr L0287 |
| 0 | 104 lda #$03 |
| 185 | 105 ldx <SProc |
| 14 | 106 lbsr L0287 |
| 185 | 107 andcc #^IntMasks |
| 0 | 108 clra |
| 109 clrb | |
| 110 pshu b,a | |
| 111 pshu b,a | |
| 112 puls u | |
| 14 | 113 tst <u0000 |
| 114 beq L0156 | |
| 0 | 115 leay >L0013,pcr |
| 14 | 116 lbsr L01F4 |
| 117 lbsr L01FF | |
| 0 | 118 leay >L0032,pcr |
| 14 | 119 lbsr L01F4 |
| 120 lbsr L01FF | |
| 121 bra L016A | |
| 122 L0156 leay >L005E,pcr | |
| 123 lbsr L01F4 | |
| 124 lbsr L01FF | |
| 125 leay >L0089,pcr | |
| 126 lbsr L01F4 | |
| 127 lbsr L01FF | |
| 128 L016A leax >u0954,u | |
| 129 L016E leax -$09,x | |
| 0 | 130 ldd $05,x |
| 14 | 131 beq L01F0 |
| 0 | 132 ldd $07,x |
| 14 | 133 lbsr L0250 |
| 134 lbsr L0237 | |
| 0 | 135 ldb ,x |
| 14 | 136 lbsr L0214 |
| 137 lbsr L0237 | |
| 0 | 138 ldb $03,x |
| 14 | 139 lbsr L0214 |
| 0 | 140 lda $04,x |
| 14 | 141 tst <u0000 |
| 142 beq L0195 | |
| 0 | 143 leay >L004F,pcr |
| 14 | 144 bra L0199 |
| 145 L0195 leay >L00B2,pcr | |
| 146 L0199 cmpa #$01 | |
| 147 beq L01BD | |
| 148 tst <u0000 | |
| 149 beq L01A7 | |
| 0 | 150 leay >L0054,pcr |
| 14 | 151 bra L01AB |
| 152 L01A7 leay >L00BC,pcr | |
| 153 L01AB cmpa #$02 | |
| 154 beq L01BD | |
| 155 tst <u0000 | |
| 156 beq L01B9 | |
| 0 | 157 leay >L0059,pcr |
| 14 | 158 bra L01BD |
| 159 L01B9 leay >L00C6,pcr | |
| 160 L01BD bsr L01F4 | |
| 0 | 161 ldb $02,x |
| 14 | 162 bsr L0214 |
| 163 bsr L0237 | |
| 0 | 164 ldy $05,x |
| 165 ldd $04,y | |
| 166 leay d,y | |
| 14 | 167 bsr L01F4 |
| 168 bsr L0237 | |
| 169 tst <u0000 | |
| 170 bne L01EB | |
| 185 | 171 lda #'< |
| 14 | 172 bsr L023B |
| 173 lda $01,x | |
| 174 lbsr L02B5 | |
| 175 bcs L01EB | |
| 176 ldy $03,y | |
| 177 ldy $04,y | |
| 178 ldd $04,y | |
| 179 leay d,y | |
| 180 bsr L01F4 | |
| 181 L01EB bsr L01FF | |
| 182 lbra L016E | |
| 183 L01F0 clrb | |
| 184 L01F1 os9 F$Exit | |
| 185 L01F4 lda ,y | |
| 0 | 186 anda #$7F |
| 14 | 187 bsr L023B |
| 0 | 188 lda ,y+ |
| 14 | 189 bpl L01F4 |
| 0 | 190 rts |
| 14 | 191 L01FF pshs y,x,a |
| 185 | 192 lda #C$CR |
| 14 | 193 bsr L023B |
| 194 leax u000D,u | |
| 195 stx <u000B | |
| 185 | 196 ldy #80 |
| 0 | 197 lda #$01 |
| 198 os9 I$WritLn | |
| 199 puls pc,y,x,a | |
| 14 | 200 L0214 clr <u000A |
| 0 | 201 lda #$FF |
| 14 | 202 L0218 inca |
| 0 | 203 subb #$64 |
| 14 | 204 bcc L0218 |
| 205 bsr L022E | |
| 0 | 206 lda #$0A |
| 14 | 207 L0221 deca |
| 0 | 208 addb #$0A |
| 14 | 209 bcc L0221 |
| 210 bsr L022E | |
| 0 | 211 tfr b,a |
| 212 adda #$30 | |
| 14 | 213 bra L023B |
| 214 L022E tsta | |
| 215 beq L0233 | |
| 216 sta <u000A | |
| 217 L0233 tst <u000A | |
| 218 bne L0239 | |
| 219 L0237 lda #$F0 | |
| 220 L0239 adda #$30 | |
| 221 L023B pshs x | |
| 222 ldx <u000B | |
| 0 | 223 sta ,x+ |
| 14 | 224 stx <u000B |
| 0 | 225 puls pc,x |
| 14 | 226 L0245 fcb $27,$10,$03,$e8,$00,$64,$00,$0a,$00,$01,$ff |
| 185 | 227 L0250 pshs x,y,a,b |
| 14 | 228 leax <L0245,pcr |
| 0 | 229 ldy #$2F20 |
| 14 | 230 L0259 leay >$0100,y |
| 0 | 231 subd ,x |
| 14 | 232 bcc L0259 |
| 0 | 233 addd ,x++ |
| 234 pshs b,a | |
| 235 tfr y,d | |
| 236 tst ,x | |
| 14 | 237 bmi L0281 |
| 0 | 238 ldy #$2F30 |
| 239 cmpd #$3020 | |
| 14 | 240 bne L027B |
| 0 | 241 ldy #$2F20 |
| 185 | 242 lda #C$SPAC |
| 14 | 243 L027B bsr L023B |
| 0 | 244 puls b,a |
| 14 | 245 bra L0259 |
| 246 L0281 bsr L023B | |
| 0 | 247 leas $02,s |
| 248 puls pc,y,x,b,a | |
| 14 | 249 L0287 pshs y,b,a |
| 185 | 250 leax ,x point to first entry in queue |
| 14 | 251 beq L02B3 |
| 185 | 252 L028D ldd P$User,x |
| 14 | 253 tst <u0001 |
| 254 bne L0298 | |
| 255 cmpd <u0008 | |
| 256 bne L02AF | |
| 257 L0298 pshu b,a | |
| 185 | 258 lda P$Prior,x |
| 0 | 259 ldb ,s |
| 185 | 260 ldy <P$PModul,x |
| 0 | 261 pshu y,b,a |
| 185 | 262 lda P$PagCnt,x |
| 0 | 263 pshu a |
| 185 | 264 lda P$ID,x |
| 265 ldb <P$PATH,x | |
| 0 | 266 pshu b,a |
| 185 | 267 L02AF ldx P$Queue,x |
| 14 | 268 bne L028D |
| 269 L02B3 puls pc,y,b,a | |
| 270 L02B5 pshs x,b,a | |
| 185 | 271 ldx >D.PthDBT |
| 0 | 272 tsta |
| 14 | 273 beq L02CC |
| 0 | 274 clrb |
| 275 lsra | |
| 276 rorb | |
| 277 lsra | |
| 278 rorb | |
| 279 lda a,x | |
| 280 tfr d,y | |
| 14 | 281 beq L02CC |
| 0 | 282 tst ,y |
| 14 | 283 bne L02CD |
| 284 L02CC coma | |
| 285 L02CD puls pc,x,b,a | |
| 286 | |
| 0 | 287 emod |
| 288 eom equ * | |
| 14 | 289 end |