|
963
|
1 ********************************************************************
|
|
|
2 * devs - Show device table entries
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * 2 Original version
|
|
|
9 * 3 Reworked AD
|
|
|
10 * 4 Renamed to devs ala OS-9/68K, reworked BGP 03/01/07
|
|
|
11
|
|
|
12 nam devs
|
|
|
13 ttl Show device table entries
|
|
|
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 3
|
|
|
23
|
|
|
24 mod eom,name,tylg,atrv,start,size
|
|
|
25
|
|
|
26 MaxEnts set 64 maximmum entries we display
|
|
|
27
|
|
|
28 org 0
|
|
|
29 memstrt rmb 2
|
|
|
30 outptr rmb 2
|
|
|
31 counter rmb 1
|
|
|
32 narrow rmb 1
|
|
|
33 curdte rmb 2
|
|
|
34 ddevtbl rmb 2 device table pointer
|
|
|
35 devcount rmb 1
|
|
|
36 descptr rmb 2
|
|
|
37 numbytes rmb 1
|
|
|
38 lnbuff rmb 80
|
|
|
39 IFGT Level-1
|
|
|
40 datimg rmb 4
|
|
|
41 devtbcpy rmb MaxEnts*DEVSIZ
|
|
|
42 descrip rmb 256
|
|
|
43 syspdesc rmb P$Size
|
|
|
44 ENDC
|
|
|
45 stack rmb 200
|
|
|
46 size equ .
|
|
|
47
|
|
|
48 name fcs /devs/
|
|
|
49 fcb edition
|
|
|
50
|
|
|
51 Header1 fcc /Device Table at: /
|
|
|
52 x12Len equ *-Header1
|
|
|
53 NHeader fcc /Dv Desc Drvr Stat File Usr/
|
|
|
54 fcb C$CR
|
|
|
55 NHeaderL equ *-NHeader
|
|
|
56 NHeader2 fcc /Nm Port Name Mem Mgr Cnt/
|
|
|
57 fcb C$CR
|
|
|
58 NHeader2L equ *-NHeader2
|
|
|
59 NUndln fcc /------- ----------- ---- ---/
|
|
|
60 fcb C$CR
|
|
|
61 NUndlnL equ *-NUndln
|
|
|
62 Header fcc /Device Desc Driver Static File Usr/
|
|
|
63 fcb C$CR
|
|
|
64 HeaderL equ *-Header
|
|
|
65 Header2 fcc /Name Port Name Mem Manager Cnt/
|
|
|
66 fcb C$CR
|
|
|
67 Header2L equ *-Header2
|
|
|
68 Undln fcc /----------- ------------- ------- ---/
|
|
|
69 MyCR fcb C$CR
|
|
|
70 UndlnL equ *-Undln
|
|
|
71 Init fcs /Init/
|
|
|
72
|
|
|
73 start ldd ,x get parameter bytes
|
|
|
74 cmpd #$2D3F -?
|
|
|
75 lbeq Help
|
|
|
76 lda #MaxEnts get maximum entries we support
|
|
|
77 sta <devcount and save as count
|
|
|
78 leax Init,pcr
|
|
|
79 clra
|
|
|
80 pshs u
|
|
|
81 os9 F$Link
|
|
|
82 bcs Exit
|
|
|
83 lda <DevCnt,u get device count
|
|
|
84 os9 F$UnLink unlink module
|
|
|
85 puls u restore static pointer
|
|
|
86 cmpa <devcount is table same or larger than our default?
|
|
|
87 bge cont branch if so
|
|
|
88 sta <devcount else store smaller count
|
|
|
89 cont stu <memstrt
|
|
|
90 clr <narrow assume wide
|
|
|
91 lda #$01
|
|
|
92 ldb #SS.ScSiz
|
|
|
93 os9 I$GetStt
|
|
|
94 bcs cont2
|
|
|
95 cmpx #HeaderL+1
|
|
|
96 bge cont2
|
|
|
97 sta <narrow
|
|
|
98 cont2 leax >MyCR,pcr
|
|
|
99 ldy #$0001
|
|
|
100 os9 I$WritLn output a CR
|
|
|
101 lbcs Exit
|
|
|
102 leax >Header1,pcr dump out header
|
|
|
103 ldy #x12Len
|
|
|
104 os9 I$Write
|
|
|
105 lbcs Exit
|
|
|
106 IFGT Level-1
|
|
|
107 lda #$01
|
|
|
108 leax >syspdesc,u
|
|
|
109 os9 F$GPrDsc get system process descriptor
|
|
|
110 bcs Exit
|
|
|
111 leax <P$DATImg,x
|
|
|
112 stx <datimg save address of system's DAT image
|
|
|
113 ENDC
|
|
|
114 bra L00D3
|
|
|
115
|
|
|
116 ClnExit clrb
|
|
|
117 Exit os9 F$Exit
|
|
|
118
|
|
|
119 L00D3 equ *
|
|
|
120 IFGT Level-1
|
|
|
121 ldu <memstrt
|
|
|
122 leau <ddevtbl,u
|
|
|
123 ldd <datimg
|
|
|
124 ldx #D.DevTbl I/O device table
|
|
|
125 ldy #$0002 size of the pointer
|
|
|
126 os9 F$CpyMem
|
|
|
127 lbcs Exit
|
|
|
128 ldu <memstrt
|
|
|
129 ldd <ddevtbl
|
|
|
130 ELSE
|
|
|
131 ldd >D.DevTbl
|
|
|
132 std <ddevtbl
|
|
|
133 ENDC
|
|
|
134 leay <lnbuff,u
|
|
|
135 sty <outptr
|
|
|
136 lbsr HexWord output D as hex word
|
|
|
137 lbsr PrintBuf
|
|
|
138
|
|
|
139 lda #$01
|
|
|
140 leax >MyCR,pcr dump out another CR
|
|
|
141 ldy #$0001
|
|
|
142 os9 I$WritLn
|
|
|
143 lbcs Exit
|
|
|
144
|
|
|
145 leax >Header,pcr
|
|
|
146 ldy #HeaderL
|
|
|
147 tst <narrow
|
|
|
148 beq branch1
|
|
|
149 leax >NHeader,pcr
|
|
|
150 ldy #NHeaderL
|
|
|
151 branch1 os9 I$WritLn
|
|
|
152 lbcs Exit
|
|
|
153
|
|
|
154 leax >Header2,pcr
|
|
|
155 ldy #Header2L
|
|
|
156 tst <narrow
|
|
|
157 beq branch2
|
|
|
158 leax >NHeader2,pcr
|
|
|
159 ldy #NHeader2L
|
|
|
160 branch2 os9 I$WritLn
|
|
|
161 lbcs Exit
|
|
|
162 leax >Undln,pcr
|
|
|
163 ldy #UndlnL
|
|
|
164 tst <narrow
|
|
|
165 beq branch3
|
|
|
166 leax >NUndln,pcr
|
|
|
167 ldy #NUndlnL
|
|
|
168 branch3 os9 I$WritLn
|
|
|
169 lbcs Exit
|
|
|
170
|
|
|
171 IFGT Level-1
|
|
|
172 ldu <memstrt
|
|
|
173 lda <devcount
|
|
|
174 ldb #DEVSIZ
|
|
|
175 mul
|
|
|
176 tfr d,y
|
|
|
177 leau >devtbcpy,u
|
|
|
178 ldx <ddevtbl
|
|
|
179 ldd <datimg
|
|
|
180 os9 F$CpyMem copy the device table over
|
|
|
181 lbcs Exit
|
|
|
182 stu <curdte save pointer to start of DevTbl
|
|
|
183 ELSE
|
|
|
184 ldd <ddevtbl
|
|
|
185 std <curdte
|
|
|
186 ENDC
|
|
|
187 ldb <devcount
|
|
|
188 stb <counter total number of entries to get
|
|
|
189
|
|
|
190 L0155 bsr L0165
|
|
|
191 dec <counter
|
|
|
192 lbeq ClnExit if done them all, exit
|
|
|
193
|
|
|
194 ldx <curdte get current pointer
|
|
|
195 leax DEVSIZ,x go to the next one
|
|
|
196 stx <curdte save the pointer again
|
|
|
197 bra L0155 and loop back
|
|
|
198
|
|
|
199 L0165 ldu <memstrt get static pointer
|
|
|
200 leay <lnbuff,u point to line buffer
|
|
|
201 sty <outptr save as ptr
|
|
|
202 lda #C$SPAC space
|
|
|
203 ldb #5 assume this length
|
|
|
204 tst <narrow are we narrow?
|
|
|
205 beq L0171 branch if not
|
|
|
206 ldb #3 else load new size
|
|
|
207 L0171 sta ,y+ save spaces
|
|
|
208 decb
|
|
|
209 bne L0171
|
|
|
210
|
|
|
211 ldx <curdte get the current pointer
|
|
|
212 ldx V$DESC,x descriptor?
|
|
|
213 bne L017D if exists, go do it
|
|
|
214 rts otherwise exit
|
|
|
215
|
|
|
216 L017D equ *
|
|
|
217 IFGT Level-1
|
|
|
218 pshs u
|
|
|
219 leau >descrip,u to another buffer
|
|
|
220 ldd <datimg system DAT image
|
|
|
221 ldy #256
|
|
|
222 os9 F$CpyMem
|
|
|
223 puls u
|
|
|
224 lbcs Exit
|
|
|
225
|
|
|
226 leax >descrip,u point to the start of the buffer
|
|
|
227 ELSE
|
|
|
228 stx <descptr save descriptor pointer
|
|
|
229 ENDC
|
|
|
230 ldd M$Name,x pointer to the name
|
|
|
231 leax d,x
|
|
|
232 lda #5 assume this size
|
|
|
233 tst <narrow are we narrow?
|
|
|
234 beq branch4 branch if not
|
|
|
235 lda #3 else get new size
|
|
|
236 branch4 bsr Str2Buf dump out the first few bytes of the name
|
|
|
237
|
|
|
238 IFGT Level-1
|
|
|
239 leax >descrip,u
|
|
|
240 ELSE
|
|
|
241 ldx <descptr
|
|
|
242 ENDC
|
|
|
243 tst <narrow
|
|
|
244 bne skip1
|
|
|
245 lda M$Port,x port address of the device
|
|
|
246 lbsr HexByte
|
|
|
247 ldy <outptr
|
|
|
248 leay -1,y
|
|
|
249 sty <outptr
|
|
|
250 skip1 ldd M$Port+1,x
|
|
|
251 lbsr HexWord
|
|
|
252 lbsr Space
|
|
|
253 * IFGT Level-1
|
|
|
254 * leax >descrip,u
|
|
|
255 * ELSE
|
|
|
256 * ldx <descptr
|
|
|
257 * ENDC
|
|
|
258 ldd M$PDev,x device driver name offset
|
|
|
259 leax d,x
|
|
|
260 lda #9
|
|
|
261 tst <narrow
|
|
|
262 beq branch5
|
|
|
263 lda #7
|
|
|
264 branch5 bsr Str2Buf dump out bytes of the driver name
|
|
|
265 ldx <curdte
|
|
|
266 ldd V$STAT,x
|
|
|
267 lbsr HexWord
|
|
|
268 lbsr Space
|
|
|
269 IFGT Level-1
|
|
|
270 leax >descrip,u
|
|
|
271 ELSE
|
|
|
272 ldx <descptr
|
|
|
273 ENDC
|
|
|
274 ldd M$FMGr,x file manager name offset
|
|
|
275 leax d,x point to it
|
|
|
276 lda #9
|
|
|
277 tst <narrow
|
|
|
278 beq branch6
|
|
|
279 lda #7
|
|
|
280 branch6 bsr Str2Buf dump out bytes of the file manager's name
|
|
|
281 ldx <curdte
|
|
|
282 lda V$USRS,x use count
|
|
|
283 lbsr HexByte print it
|
|
|
284 ldx <outptr
|
|
|
285 leax -1,x
|
|
|
286 bra L01E8
|
|
|
287
|
|
|
288 PrintBuf ldx <outptr
|
|
|
289 L01E8 lda #C$CR save a CR in memory
|
|
|
290 sta ,x
|
|
|
291 ldu <memstrt
|
|
|
292 leax <lnbuff,u to the buffer
|
|
|
293 ldy #80 80 characters max.
|
|
|
294 lda #1
|
|
|
295 os9 I$WritLn dump the buffer out
|
|
|
296 lbcs Exit
|
|
|
297 rts
|
|
|
298
|
|
|
299 * Entry:
|
|
|
300 * A = number of bytes to write buffer
|
|
|
301 * X = ptr to string to write to buffer
|
|
|
302 Str2Buf sta <numbytes dump out A bytes at X
|
|
|
303 clrb
|
|
|
304 bra L0207
|
|
|
305
|
|
|
306 L0204 lbsr Put2Buf
|
|
|
307 L0207 incb increment B
|
|
|
308 cmpb <numbytes equal to number of bytes?
|
|
|
309 bcc NSpaces branch if so
|
|
|
310 lda ,x+ else get byte at X
|
|
|
311 bpl L0204 branch if hi bit clear
|
|
|
312 anda #$7F else clear it
|
|
|
313 lbsr Put2Buf dump it out
|
|
|
314 cmpb <numbytes compare against num bytes
|
|
|
315 bcc L0221 branch if equal
|
|
|
316
|
|
|
317 * Fill the rest with spaces
|
|
|
318 NSpaces lbsr Space
|
|
|
319 incb
|
|
|
320 cmpb <numbytes
|
|
|
321 bcs NSpaces
|
|
|
322 L0221 rts
|
|
|
323
|
|
|
324 HexWord pshs b
|
|
|
325 bsr MakeHex
|
|
|
326 puls a
|
|
|
327 HexByte bsr MakeHex
|
|
|
328 Space lda #C$SPAC output a space
|
|
|
329 bra Put2Buf
|
|
|
330
|
|
|
331 MakeHex tfr a,b
|
|
|
332 lsra
|
|
|
333 lsra
|
|
|
334 lsra
|
|
|
335 lsra
|
|
|
336 bsr L0238
|
|
|
337 tfr b,a
|
|
|
338 L0238 anda #$0F get the number
|
|
|
339 cmpa #$0A >10?
|
|
|
340 bcs L0240 no, make it a number
|
|
|
341 adda #$07 if so, make it A-F
|
|
|
342 L0240 adda #$30
|
|
|
343 * Entry: A = char to put in buffer
|
|
|
344 Put2Buf pshs x save X
|
|
|
345 ldx <outptr get buffer pointer
|
|
|
346 sta ,x+ store char and in X
|
|
|
347 stx <outptr save new outptr
|
|
|
348 puls pc,x and return
|
|
|
349
|
|
|
350 Help lda #1 to STDOUT
|
|
|
351 leax HMsg,pcr
|
|
|
352 ldy #HLen
|
|
|
353 os9 I$Write
|
|
|
354 clrb
|
|
|
355 os9 F$Exit
|
|
|
356
|
|
|
357 HMsg fcc /devs: show devices in device table/
|
|
|
358 fdb C$CR,C$LF
|
|
|
359 HLen equ *-HMsg
|
|
|
360
|
|
|
361 emod
|
|
|
362 eom equ *
|
|
|
363 end
|
