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