File: RES502.LS of Disk: V50/Source/Source-Listing-MAC-1
(Source file text)
/OS/8 RESOURCES OVLY. 2 FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 1
FILE # 1
1 /OS/8 RESOURCES OVLY. 2 FOR KBM V50
2 /
3 /
4 /
5 /
6 /
7 /
8 /
9 /
10 /
11 /COPYRIGHT (C) 1978 BY DIGITAL EQUIPMENT CORPORATION
12 / AND 1979 BY DATAPLAN GMBH
13 / AND 2015 W. VAN DER MARK
14 /
15 /
16 /
17 /
18 /
19 /
20 /
21 /
22 /
23 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
24 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
25 /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
26 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
27 /
28 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
29 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
30 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
31 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
32 /
33 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
34 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
35 /DIGITAL.
36 /
37 /
38 /
39 /
40 /
41 /
42 /
43 /
44 /
45 /
/OS/8 RESOURCES OVLY. 2 FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 2
FILE # 1
46
47 .EXTERNAL PRINT,FREEDV,READI,CRLF,OPRINT,DPRINT,GERMAN
48 .EXTERNAL SLOTAB
49 .ENTRY DIRT,ZEROSL,CNTSLT
50
51 0020 FAST=20
52 0022 EXTEN=22
53
54 0010 X0=10
55
56 / GERMAN=1
57
58 .MACRO .PRINT ARG
59 JMS I (PRINT
60 TEXT "ARG"
61 .ENDM
/OS/8 RESOURCES OVLY. 2 FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 3
FILE # 1
62
63 0000 .RSECT OV2
64 0001 FIELD 1
65
66 .NOLIST ME,MEB
67
68 10000 0000 DIRT, 0
69 10001 4777 JMS I (READI
70 10002 1400 1400 /READ 6 BLOCKS
71 10003 4000 4000 /INTO 04000
72 10004 0001 1 /FROM BLOCK 1
73 10005 4776 JMS I (DVALID /CHECK IF VALID DIRECTORY
74 10006 1020 TAD FAST
75 10007 7650 SNA CLA
76 10010 5600 JMP I DIRT /NO DIRECT IN FAST MODE
77 10011 4775 JMS I (CRLF
78 10012 3307 DCA USED
79 10013 3310 DCA UNUSED
80 10014 3311 DCA NFILES
81 10015 3312 DCA NMTS
82 10016 3313 DCA NSEGS
83 10017 7330 STL CLA RAR /4000
84 10020 3326 LUP$: DCA DIRPTR
85 10021 2313 ISZ NSEGS
86 10022 4320 JMS GETDIR
87 10023 3314 DCA NENTRY /- NO. OF ENTRIES IN SEGMENT
88 10024 4320 JMS GETDIR
89 10025 3315 DCA STBLK /STARTING BLOCK # OF FIRST FILE IN SEGMENT
90 10026 4320 JMS GETDIR
91 10027 3316 DCA LINK /LINK TO NEXT SEGMENT
92 10030 4320 JMS GETDIR
93 10031 7200 CLA /IGNORE FLAG WORD TO TENTATIVE FILE
94 10032 4320 JMS GETDIR
95 10033 3317 DCA AIW /# OF ADDITIONAL INFO WORDS
96 10034 1314 TAD NENTRY
97 10035 3306 DCA DKNT
98 10036 4320 L$: JMS GETDIR
99 10037 7650 SNA CLA
100 10040 5256 JMP MT$ /AN EMPTY ENTRY
101 10041 1317 TAD AIW
102 10042 7041 CIA
103 10043 1374 TAD (3
104 10044 1326 TAD DIRPTR
105 10045 3326 DCA DIRPTR /POINT TO FILE LENGTH
106 10046 4320 JMS GETDIR /GET NEG OF NUMBER OF BLOCKS IN FILE
107 10047 7450 SNA
108 10050 5263 JMP 2$ /A TENTATIVE FILE, IGNORE
109 10051 7041 CIA
110 10052 1307 TAD USED
111 10053 3307 DCA USED
112 10054 2311 ISZ NFILES
113 10055 5263 JMP 2$
/OS/8 RESOURCES OVLY. 2 FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 4
FILE # 1
114
115 10056 4320 MT$: JMS GETDIR
116 10057 7041 CIA
117 10060 1310 TAD UNUSED
118 10061 3310 DCA UNUSED
119 10062 2312 ISZ NMTS
120 10063 2306 2$: ISZ DKNT /ANY MORE ENTRIES IN THIS SEGMENT?
121 10064 5236 JMP L$ /YES
122 10065 1316 TAD LINK
123 10066 7650 SNA CLA
124 10067 5302 JMP 3$
125 10070 1313 TAD NSEGS
126 10071 7040 CMA
127 10072 1316 TAD LINK /ASSUME LINKS ARE IN ORDER
128 10073 7640 SZA CLA
129 10074 5773 JMP I (BADDIR
130 10075 7240 STA /GO TO NEXT SEGMENT
131 10076 1326 TAD DIRPTR
132 10077 0372 AND (7400
133 10100 1371 TAD (400
134 10101 5220 JMP LUP$
135
136 10102 4770 3$: JMS I (PRINFO
137 10103 4775 LVDIR, JMS I (CRLF
138 10104 4775 JMS I (CRLF
139 10105 5600 JMP I DIRT
/OS/8 RESOURCES OVLY. 2 FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 5
FILE # 1
140
141 10106 0000 DKNT, 0
142 10107 0000 USED, 0 /NO. OF BLOCKS USED
143 10110 0000 UNUSED, 0 /# OF UNUSED BLOCKS ON DEVICE
144 10111 0000 NFILES, 0 /# OF FILES
145 10112 0000 NMTS, 0 /# OF EMPTIES
146 10113 0000 NSEGS, 0 /# OF DIRECTORY SEGMENTS USED
147
148 10114 0000 NENTRY, 0 /- # OF ENTRIES IN SEGMENT
149 10115 0000 STBLK, 0 /STARTING BLOCK # OF FIRST FILE IN SEGMENT
150 10116 0000 LINK, 0 /LINK TO NEXT SEGMENT
151 10117 0000 AIW, 0 /# OF ADDITIOANAL INFORMATION WORDS
152
153 10120 0000 GETDIR, 0
154 10121 6201 CDF 0
155 10122 1726 TAD I DIRPTR
156 10123 6211 CDF 10
157 10124 2326 ISZ DIRPTR
158 10125 5720 JMP I GETDIR
159
160 10126 0000 DIRPTR, 0
------
10170 0200 +
10171 0400
10172 7400
10173 0433 +
10174 0003
10175 0000 *
10176 0400 +
10177 0000 *
161 0200 PAGE
/OS/8 RESOURCES OVLY. 2 FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 6
FILE # 1
162
163 10200 0000 PRINFO, 0
164 10201 1022 TAD EXTEN
165 10202 7650 SNA CLA
166 10203 5253 JMP 2$ /JUST # OF FREE BLOCKS UNLESS /E
167 10204 1777 TAD I (NFILES
168 10205 7450 SNA
169 10206 5253 JMP 2$
170 10207 7120 STL
171 10210 4776 JMS I (DPRINT
172 .IF NDF GERMAN < .PRINT " FILES IN ">
173 .IF DF GERMAN < .PRINT " DATEIEN IN ">
174 10220 1774 TAD I (USED
175 10221 7120 STL
176 10222 4776 JMS I (DPRINT
177 .IF NDF GERMAN < .PRINT " BLOCKS">
178 .IF DF GERMAN < .PRINT " BLOECKEN">
179 10230 7240 STA
180 10231 1773 TAD I (NSEGS
181 10232 7650 SNA CLA
182 10233 5252 JMP 1$
183 .IF NDF GERMAN < .PRINT " USING ">
184 .IF DF GERMAN < .PRINT " AUF ">
185 10241 1773 TAD I (NSEGS
186 10242 7120 STL
187 10243 4776 JMS I (DPRINT
188 .IF NDF GERMAN < .PRINT " SEGMENTS">
189 .IF DF GERMAN < .PRINT " SEGMENTE VERTEILT">
190 10252 4772 1$: JMS I (CRLF
191 10253 1771 2$: TAD I (UNUSED
192 10254 7120 STL
193 10255 4776 JMS I (DPRINT
194 .IF NDF GERMAN < .PRINT " FREE BLOCKS">
195 .IF DF GERMAN < .PRINT " FREIE BLOECKE">
196 10266 1022 TAD EXTEN
197 10267 7650 SNA CLA
198 10270 5600 JMP I PRINFO
199 10271 1770 TAD I (NMTS
200 10272 7110 CLL RAR
201 10273 7650 SNA CLA
202 10274 5311 JMP 3$
203 .PRINT " ("
204 10300 1770 TAD I (NMTS
205 10301 7120 STL
206 10302 4776 JMS I (DPRINT
207 .IF NDF GERMAN < .PRINT " EMPTIES)">
208 .IF DF GERMAN < .PRINT " LOECHER)">
209 10311 7201 3$: CLA IAC
210 10312 1767 TAD I (AIW
211 10313 7640 SZA CLA
212 10314 4316 JMS PRAIW
213 10315 5600 JMP I PRINFO
/OS/8 RESOURCES OVLY. 2 FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 7
FILE # 1
214
215 10316 0000 PRAIW, 0
216 10317 4772 JMS I (CRLF
217 10320 1767 TAD I (AIW
218 10321 7041 CIA
219 10322 7120 STL
220 10323 4776 JMS I (DPRINT
221 .IF NDF GERMAN < .PRINT " EXTRA INFO WDS">
222 .IF DF GERMAN < .PRINT " EXTRA INF. WTR">
223 10335 5716 JMP I PRAIW
------
10367 0117 +
10370 0112 +
10371 0110 +
10372 0000 *
10373 0113 +
10374 0107 +
10375 0000 *
10376 0000 *
10377 0111 +
224 0400 PAGE
/OS/8 RESOURCES OVLY. 2 FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 8
FILE # 1
225
226 10400 0000 DVALID, 0
227 10401 7330 STL CLA RAR /4000
228 10402 3777 DCA I (DIRPTR
229 10403 4776 JMS I (GETDIR
230 10404 7100 CLL
231 10405 1375 TAD (200
232 10406 7620 SNL CLA
233 10407 5233 JMP BADDIR
234 10410 4776 JMS I (GETDIR
235 10411 7450 SNA
236 10412 5233 JMP BADDIR
237 10413 1374 TAD (-400 /REMEMBER COS
238 10414 7700 SMA CLA
239 10415 5233 JMP BADDIR
240 10416 4776 JMS I (GETDIR
241 10417 7200 CLA /LINKS THOROUGHLY CHECKED ELSEWHERE
242 10420 4776 JMS I (GETDIR
243 10421 7450 SNA
244 10422 5230 JMP OKDIR
245 10423 1373 TAD (-1400
246 10424 7100 CLL
247 10425 1372 TAD (-1000
248 10426 7630 SZL CLA
249 10427 5233 JMP BADDIR
250 10430 4776 OKDIR, JMS I (GETDIR
251 10431 7750 SPA SNA CLA
252 10432 5600 JMP I DVALID
253 BADDIR,
254 .IF NDF GERMAN < .PRINT "?BAD DIRECTORY">
255 .IF DF GERMAN < .PRINT "?VERZEICHNIS-FEHLER">
256 10444 5770 JMP I (LVDIR
/OS/8 RESOURCES OVLY. 2 FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 9
FILE # 1
257
258 10445 0000 SLTM, 0
259
260 SLKNT,
261 10446 0000 ZEROSL, 0
262 10447 1367 TAD (-10
263 10450 3245 DCA SLTM
264 10451 1366 TAD (SLOTAB-1
265 10452 3010 DCA X0
266 10453 3410 DCA I X0
267 10454 2245 ISZ SLTM
268 10455 5253 JMP .-2
269 10456 5646 JMP I ZEROSL
270
271 10457 0000 CNTSLT, 0
272 10460 1367 TAD (-10
273 10461 3245 DCA SLTM
274 10462 3246 DCA SLKNT
275 10463 1366 TAD (SLOTAB-1
276 10464 3010 DCA X0
277 10465 1410 L$: TAD I X0
278 10466 7650 SNA CLA
279 10467 2246 ISZ SLKNT
280 10470 2245 ISZ SLTM
281 10471 5265 JMP L$
282 .IF NDF GERMAN < .PRINT "FREE DEVICE SLOTS: ">
283 .IF DF GERMAN < .PRINT "OFFENE KANAELE: ">
284 10505 1765 TAD I (FREEDV
285 10506 4327 JMS XPRINT
286 .IF NDF GERMAN < .PRINT ", FREE BLOCK SLOTS: ">
287 .IF DF GERMAN < .PRINT ", FREIE GERAETE-BLOECKE: ">
288 10523 1246 TAD SLKNT
289 10524 4327 JMS XPRINT
290 10525 4764 JMS I (CRLF
291 10526 5657 JMP I CNTSLT
/OS/8 RESOURCES OVLY. 2 FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 10
FILE # 1
292
293 10527 0000 XPRINT, 0
294 10530 7450 SNA
295 10531 5334 JMP 1$
296 10532 4763 JMS I (OPRINT
297 10533 5727 JMP I XPRINT
298
299 1$:
300 .IF NDF GERMAN < .PRINT "NONE">
301 .IF DF GERMAN < .PRINT "KEINE">
302 10540 5727 JMP I XPRINT
------
10563 0000 *
10564 0000 *
10565 0000 *
10566 7777 *
10567 7770
10570 0103 +
10571 0000 *
10572 7000
10573 6400
10574 7400
10575 0200
10576 0120 +
10577 0126 +
303 0600 PAGE
/OS/8 RESOURCES OVLY. 2 FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 11
SYMBOL TABLE
AIW 0117+ OV2
BADDIR 0433+ OV2
CNTSLT E 0457+ OV2
CRLF X ****
DIRPTR 0126+ OV2
DIRT E 0000+ OV2
DKNT 0106+ OV2
DPRINT X ****
DVALID 0400+ OV2
EXTEN 0022
FAST 0020
FLD: 0 0200 ASECT
FREEDV X ****
GERMAN X ****
GETDIR 0120+ OV2
LINK 0116+ OV2
LVDIR 0103+ OV2
NENTRY 0114+ OV2
NFILES 0111+ OV2
NMTS 0112+ OV2
NSEGS 0113+ OV2
OKDIR 0430+ OV2
OPRINT X ****
OV2 0600 RSECT
PRAIW 0316+ OV2
PRINFO 0200+ OV2
PRINT X ****
READI X ****
SLKNT 0446+ OV2
SLOTAB X ****
SLTM 0445+ OV2
STBLK 0115+ OV2
UNUSED 0110+ OV2
USED 0107+ OV2
XPRINT 0527+ OV2
X0 0010
ZEROSL E 0446+ OV2
.PRINT M 0000