Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/procs.asm @ 860:35aca42e87ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added better comments
author boisy
date Thu, 16 Jan 2003 03:06:50 +0000
parents 03a3c269ba1a
children c155aac72190
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 ********************************************************************
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
2 * Procs - Show processes
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
3 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
4 * $Id$
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
5 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
9 * 10 Now uses -e instead of e BGP 03/01/14
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
10
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
11 nam Procs
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
12 ttl program module
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
13
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
14 * Disassembled 02/04/05 13:22:14 by Disasm v1.6 (C) 1988 by RML
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
15
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
16 ifp1
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
17 use defsfile
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
18 endc
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
19
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20 tylg set Prgrm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 atrv set ReEnt+rev
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
22 rev set $01
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
23 edition set 10
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
24
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
25 mod eom,name,tylg,atrv,start,size
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
26
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
27 narrow rmb 1
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
28 eflag rmb 1
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
29 aproc rmb 2
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
30 wproc rmb 2
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
31 sproc rmb 2
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
32 myuid rmb 2
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
33 u000A rmb 1
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
34 bufptr rmb 2
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
35 buffer rmb 87
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36 u0064 rmb 132
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
37 u00E8 rmb 2156
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
38 PsBuf rmb 450
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39 size equ .
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
40
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
41 name fcs /Procs/
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 185
diff changeset
42 fcb edition
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
43
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
44 L0013 fcb C$LF
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
45 fcc "Usr # id pty sta mem pri mod"
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
46 fcb C$CR
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
47 DshSh fcs "----- --- --- --- --- -------"
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
48 ActSh fcs " act "
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
49 WaiSh fcs " wai "
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
50 SleSh fcs " sle "
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
51 L005E fcb C$LF
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
52 fcc "Usr # id pty state mem primary module"
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
53 fcb C$CR
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
54 DshLo fcs "----- --- --- -------- --- --------------"
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
55 ActLo fcs " active "
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
56 WaiLo fcs " waiting "
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
57 SleLo fcs " sleeping "
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
58
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
59 start clr <eflag
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
60 clr <narrow
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
61 pshs y,x,b,a
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
62 lda #$01
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
63 ldb #SS.ScSiz
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
64 os9 I$GetStt
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
65 bcc L00E8
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
66 cmpb #E$UnkSvc
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
67 beq L00EF
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
68 puls y,x,b,a
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
69 lbra L01F1
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
70 L00E8 cmpx #50
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
71 bge L00EF
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
72 inc <narrow
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
73 L00EF puls y,x,b,a
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
74 *
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
75 * Check for a '-E' as argument
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
76 *
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
77 ldd ,x+
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
78 andb #$DF
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
79 cmpd #$2D45
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
80 bne L00FB
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
81 inc <eflag
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
82 L00FB leax buffer,u
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
83 stx <bufptr
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
84 orcc #IntMasks
185
3a84dad1f851 made further changes
boisy
parents: 15
diff changeset
85 ldx >D.AProcQ
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
86 stx <aproc
185
3a84dad1f851 made further changes
boisy
parents: 15
diff changeset
87 ldx >D.WProcQ
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
88 stx <wproc
185
3a84dad1f851 made further changes
boisy
parents: 15
diff changeset
89 ldx >D.SProcQ
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
90 stx <sproc
185
3a84dad1f851 made further changes
boisy
parents: 15
diff changeset
91 ldx >D.Proc
3a84dad1f851 made further changes
boisy
parents: 15
diff changeset
92 ldd P$User,x
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
93 std <myuid
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
94 pshs u
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
95 leau >PsBuf,u Assign buffer to reg u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
96 lda #$01
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
97 ldx <aproc
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
98 lbsr LoopP
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
99 lda #$02
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
100 ldx <wproc
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
101 lbsr LoopP
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
102 lda #$03
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
103 ldx <sproc
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
104 lbsr LoopP
185
3a84dad1f851 made further changes
boisy
parents: 15
diff changeset
105 andcc #^IntMasks
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
106 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
107 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
108 pshu b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
109 pshu b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
110 puls u
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
111 tst <narrow
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
112 beq L0156
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
113 leay >L0013,pcr
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
114 lbsr WritY
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
115 lbsr WrBuf
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
116 leay >DshSh,pcr Write short dashes
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
117 lbsr WritY
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
118 lbsr WrBuf
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
119 bra L016A
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
120
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
121 * Write 80 char header
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
122 L0156 leay >L005E,pcr
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
123 lbsr WritY
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
124 lbsr WrBuf
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
125 leay >DshLo,pcr Write long dashes
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
126 lbsr WritY
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
127 lbsr WrBuf
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
128
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
129 L016A leax >PsBuf,u
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
130 NextW leax -$09,x
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
131 ldd $05,x
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
132 beq Finish
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
133 ldd $07,x
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
134 lbsr L0250
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
135 lbsr WrSpc Write Space
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
136 ldb ,x
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
137 lbsr L0214
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
138 lbsr WrSpc Write Space
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
139 ldb $03,x
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
140 lbsr L0214
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
141 lda $04,x
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
142 tst <narrow
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
143 beq L0195
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
144 leay >ActSh,pcr
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
145 bra L0199
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
146 L0195 leay >ActLo,pcr
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
147 L0199 cmpa #$01
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
148 beq L01BD branch if status is active
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
149 tst <narrow
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
150 beq L01A7
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
151 leay >WaiSh,pcr
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
152 bra L01AB
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
153 L01A7 leay >WaiLo,pcr
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
154 L01AB cmpa #$02
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
155 beq L01BD branch if status is waiting
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
156 tst <narrow
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
157 beq L01B9
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
158 leay >SleSh,pcr
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
159 bra L01BD
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
160 L01B9 leay >SleLo,pcr
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
161 L01BD bsr WritY
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
162 ldb $02,x
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
163 bsr L0214
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
164 bsr WrSpc Write Space
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
165 ldy $05,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
166 ldd $04,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
167 leay d,y
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
168 bsr WritY
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
169 bsr WrSpc Write Space
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
170 tst <narrow
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
171 bne L01EB
185
3a84dad1f851 made further changes
boisy
parents: 15
diff changeset
172 lda #'<
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
173 bsr WriCh
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
174 lda $01,x
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
175 lbsr L02B5
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
176 bcs L01EB
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
177 ldy $03,y
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
178 ldy $04,y
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
179 ldd $04,y
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
180 leay d,y
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
181 bsr WritY
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
182 L01EB bsr WrBuf
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
183 lbra NextW Next line
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
184
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
185 Finish clrb
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
186 L01F1 os9 F$Exit
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
187 *
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
188 * Write text pointed to by Reg Y to buffer
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
189 *
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
190 WritY lda ,y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
191 anda #$7F
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
192 bsr WriCh
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
193 lda ,y+
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
194 bpl WritY
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
195 rts
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
196 *
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
197 * Write out buffer to stdout (max 80 chars)
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
198 *
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
199 WrBuf pshs y,x,a
185
3a84dad1f851 made further changes
boisy
parents: 15
diff changeset
200 lda #C$CR
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
201 bsr WriCh
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
202 leax buffer,u
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
203 stx <bufptr
185
3a84dad1f851 made further changes
boisy
parents: 15
diff changeset
204 ldy #80
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
205 lda #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
206 os9 I$WritLn
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
207 puls pc,y,x,a
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
208
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
209 L0214 clr <u000A
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
210 lda #$FF
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
211 L0218 inca
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
212 subb #100
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
213 bcc L0218
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
214 bsr L022E
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
215 lda #10
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
216 L0221 deca
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
217 addb #10
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
218 bcc L0221
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
219 bsr L022E
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
220 tfr b,a
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
221 adda #'0
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
222 bra WriCh
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
223 L022E tsta
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
224 beq L0233
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
225 sta <u000A
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
226 L0233 tst <u000A
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
227 bne L0239
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
228 WrSpc lda #$F0
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
229 L0239 adda #'0
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
230 *
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
231 * Add char to buffer pointed to by bufptr
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
232 *
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
233 WriCh pshs x
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
234 ldx <bufptr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
235 sta ,x+
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
236 stx <bufptr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
237 puls pc,x
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
238
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
239 L0245 fcb $27,$10,$03,$e8,$00,$64,$00,$0a,$00,$01,$ff
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
240
185
3a84dad1f851 made further changes
boisy
parents: 15
diff changeset
241 L0250 pshs x,y,a,b
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
242 leax <L0245,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
243 ldy #$2F20
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
244 L0259 leay >$0100,y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
245 subd ,x
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
246 bcc L0259
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
247 addd ,x++
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
248 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
249 tfr y,d
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
250 tst ,x
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
251 bmi L0281
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
252 ldy #$2F30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
253 cmpd #$3020
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
254 bne L027B
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
255 ldy #$2F20
185
3a84dad1f851 made further changes
boisy
parents: 15
diff changeset
256 lda #C$SPAC
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
257 L027B bsr WriCh
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
258 puls b,a
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
259 bra L0259
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
260 L0281 bsr WriCh
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
261 leas $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
262 puls pc,y,x,b,a
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
263 *
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
264 * Loop through list of processes
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
265 * Reg X contains the pointer
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
266 *
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
267 LoopP pshs y,b,a
185
3a84dad1f851 made further changes
boisy
parents: 15
diff changeset
268 leax ,x point to first entry in queue
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
269 beq EndP
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
270 NextP ldd P$User,x
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
271 tst <eflag
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
272 bne L0298
842
03a3c269ba1a Added -e option
boisy
parents: 716
diff changeset
273 cmpd <myuid
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
274 bne ContP
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
275 L0298 pshu b,a put userid on stack
185
3a84dad1f851 made further changes
boisy
parents: 15
diff changeset
276 lda P$Prior,x
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
277 ldb ,s
185
3a84dad1f851 made further changes
boisy
parents: 15
diff changeset
278 ldy <P$PModul,x
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
279 pshu y,b,a put module,priority,status on stack
185
3a84dad1f851 made further changes
boisy
parents: 15
diff changeset
280 lda P$PagCnt,x
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
281 pshu a put pagecount on stack
185
3a84dad1f851 made further changes
boisy
parents: 15
diff changeset
282 lda P$ID,x
3a84dad1f851 made further changes
boisy
parents: 15
diff changeset
283 ldb <P$PATH,x
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
284 pshu b,a
716
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
285 ContP ldx P$Queue,x
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
286 bne NextP
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
287 EndP puls pc,y,b,a
790d0bf87621 Commented procs, since it is used to figure out what has to be
roug
parents: 200
diff changeset
288
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
289 L02B5 pshs x,b,a
185
3a84dad1f851 made further changes
boisy
parents: 15
diff changeset
290 ldx >D.PthDBT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
291 tsta
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
292 beq L02CC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
293 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
294 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
295 rorb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
296 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
297 rorb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
298 lda a,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
299 tfr d,y
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
300 beq L02CC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
301 tst ,y
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
302 bne L02CD
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
303 L02CC coma
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
304 L02CD puls pc,x,b,a
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
305
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
306 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
307 eom equ *
14
9b772b21c68f Procs disassembly, added to makefile
boisy
parents: 0
diff changeset
308 end