File: RES500.LS of Disk: V50/Source/Source-Listing-MAC-1
(Source file text)
/OS/8 RESOURCES OVLY. 0 FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 1 FILE # 1 1 /OS/8 RESOURCES OVLY. 0 FOR KBM V40 2 / 3 / 4 / 5 / 6 / 7 / 8 / 9 / 10 / 11 /COPYRIGHT (C) 1978 BY DIGITAL EQUIPMENT CORPORATION 12 / AND 1979 BY DATAPLAN GMBH 13 / 14 / 15 / 16 / 17 / 18 / 19 / 20 / 21 / 22 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 23 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 24 /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 25 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 26 / 27 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 28 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 29 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 30 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 31 / 32 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 33 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 34 /DIGITAL. 35 / 36 / 37 / 38 / 39 / 40 / 41 / 42 / 43 / 44 / /OS/8 RESOURCES OVLY. 0 FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 2 FILE # 1 45 46 / OV0 FOR RESORC 47 48 .ENTRY VERSN,SIZE,BLOCK,ENTRY,MODE 49 .EXTERNAL GETTYP,DPRINT,OPRINT,PUTSP,PUTO 50 .EXTERNAL SLOTAB,PRINT,GERMAN 51 0037 PDHRT=37 52 0031 PDCWT=31 53 0032 PTYP=32 54 5600 INPBL0=5600 55 0030 PDHIT=30 56 4000 INPHND=4000 57 0036 BLOC=36 58 59 / GERMAN=1 60 61 0000 .RSECT OV0 62 0001 FIELD 1 /OS/8 RESOURCES OVLY. 0 FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 3 FILE # 1 63 64 10000 0000 VERSN, 0 65 10001 1036 TAD BLOC 66 10002 7650 SNA CLA 67 10003 5233 JMP SYSV /TEMP (ENTRY PT IS IN FIELD 1 7600 68 10004 1430 TAD I PDHIT 69 10005 0377 AND (177 70 10006 1036 TAD BLOC 71 10007 3245 GOVR, DCA DTM 72 10010 4223 JMS GETV 73 10011 7101 CLL IAC 74 10012 1376 TAD (-34 75 10013 7630 SZL CLA 76 10014 5230 JMP NOOOP 77 10015 4223 JMS GETV 78 10016 7440 PUTVR, SZA 79 10017 1375 TAD (40 80 10020 1375 TAD (40 81 10021 4774' JMS PUTO 82 10022 5600 JMP I VERSN 83 84 OTEM, 85 10023 0000 GETV, 0 86 10024 6201 CDF 0 87 10025 1645 TAD I DTM 88 10026 6211 CDF 10 89 10027 5623 JMP I GETV 90 91 10030 7240 NOOOP, STA 92 10031 1245 TAD DTM /SCAN BACKWARDS FOR HANDLER VERSION # (LT 33) 93 10032 5207 JMP GOVR 94 95 10033 1437 SYSV, TAD I PDHRT 96 10034 0377 AND (177 97 10035 1373 TAD (INPBL0+200 98 10036 3245 DCA DTM 99 10037 1645 TAD I DTM 100 10040 7100 CLL 101 10041 1376 TAD (-34 102 10042 7620 SNL CLA 103 10043 1645 TAD I DTM /PRINT BAD VERSION # AS SPACE 104 10044 5216 JMP PUTVR 105 10045 0000 DTM, 0 /OS/8 RESOURCES OVLY. 0 FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 4 FILE # 1 106 107 10046 0000 SIZE, 0 108 10047 4772' JMS GETTYP 109 10050 7041 CIA 110 10051 7100 CLL 111 10052 4771' JMS DPRINT 112 10053 4770' JMS PUTSP 113 10054 2032 ISZ PTYP /POINT TO KIND SUBROUTINE 114 10055 5646 JMP I SIZE 115 116 10056 0000 MODE, 0 117 10057 4770' JMS PUTSP 118 10060 1367 TAD (-5 119 10061 3320 DCA MKNT 120 10062 1431 TAD I PDCWT 121 10063 7006 RTL 122 10064 7004 RAL 123 10065 4305 JMS MSET 124 10066 0322 .IF NDF GERMAN <"R> 125 .IF DF GERMAN <"L> 126 10067 1431 TAD I PDCWT 127 10070 7006 RTL 128 10071 4305 JMS MSET 129 10072 0327 .IF NDF GERMAN <"W> 130 .IF DF GERMAN <"S> 131 10073 1431 TAD I PDCWT 132 10074 7004 RAL 133 10075 7020 CML 134 10076 4305 JMS MSET 135 10077 0306 .IF NDF GERMAN <"F> 136 .IF DF GERMAN <"D> 137 10100 1375 TAD (40 138 10101 4774' JMS PUTO 139 10102 2320 ISZ MKNT 140 10103 5300 JMP .-3 141 10104 5656 JMP I MODE 142 143 10105 0000 MSET, 0 144 10106 7200 CLA 145 10107 1705 TAD I MSET 146 10110 3766' DCA MCHAR 147 10111 2305 ISZ MSET 148 10112 7430 SZL 149 10113 5705 JMP I MSET 150 10114 2320 ISZ MKNT 151 10115 1766' TAD MCHAR 152 10116 4774' JMS PUTO 153 10117 5705 JMP I MSET /OS/8 RESOURCES OVLY. 0 FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 5 FILE # 1 154 155 10120 0000 MKNT, 0 ------ 10166 0255 + 10167 7773 10170 0000 * 10171 0000 * 10172 0000 * 10173 6000 10174 0000 * 10175 0040 10176 7744 10177 0177 156 0200 PAGE /OS/8 RESOURCES OVLY. 0 FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 6 FILE # 1 157 158 ET, 159 10200 0000 BLOCK, 0 160 10201 1430 TAD I PDHIT 161 10202 7006 RTL 162 10203 7006 RTL 163 10204 7006 RTL 164 10205 0377 AND (17 165 10206 7450 SNA 166 10207 5236 JMP SYS 167 10210 3302 DCA SLTM 168 10211 7240 STA 169 10212 1302 TAD SLTM 170 10213 7112 CLL RTR 171 10214 7012 RTR 172 10215 7010 RAR 173 10216 1376 TAD (INPHND 174 10217 3036 DCA BLOC 175 10220 1302 TAD SLTM 176 10221 1375 TAD (15 177 10222 4774' JMS OPRINT 178 10223 1430 TAD I PDHIT 179 10224 7700 SMA CLA 180 10225 1373 TAD (40-"+ 181 10226 1372 TAD ("+ 182 10227 4771' JMS PUTO /"+" MEANS 2 PAGE HANDLER 183 10230 4770' JMS PUTSP 184 10231 1302 TAD SLTM 185 10232 1367 TAD (SLOTAB-1 186 10233 3302 DCA SLTM 187 10234 2702 ISZ I SLTM 188 10235 5600 JMP I BLOCK 189 10236 3036 SYS, DCA BLOC /0 MEANS RESIDENT WITH SYS: 190 10237 1766 TAD I (INPBL0+212 /CHECK IF 2-PAGE SYS 191 10240 1365 TAD (-3 192 10241 7640 SZA CLA 193 10242 5250 JMP SMALSY /NO 194 10243 4764' JMS PRINT 195 10244 2331 TEXT /SYS+ / 10245 2353 10246 4000 196 10247 5600 JMP I BLOCK 197 10250 4764' SMALSY, JMS PRINT 198 10251 2331 TEXT /SYS / 10252 2340 10253 4000 199 10254 5600 JMP I BLOCK /OS/8 RESOURCES OVLY. 0 FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 7 FILE # 1 200 201 MCHAR, 202 10255 0000 ENTRY, 0 203 10256 4770' JMS PUTSP 204 10257 1036 TAD BLOC 205 10260 7650 SNA CLA 206 10261 5300 JMP SYSENT 207 10262 1430 TAD I PDHIT 208 10263 3200 EN2, DCA ET 209 10264 1200 TAD ET 210 10265 7012 RTR 211 10266 7012 RTR 212 10267 7012 RTR 213 10270 0363 AND (1 214 10271 7440 SZA 215 10272 1362 TAD (20 216 10273 1361 TAD (40 217 10274 4771' JMS PUTO 218 10275 1200 TAD ET 219 10276 4774' JMS OPRINT 220 10277 5655 JMP I ENTRY 221 222 10300 1437 SYSENT, TAD I PDHRT 223 10301 5263 JMP EN2 224 225 10302 0000 SLTM, 0 ------ 10361 0040 10362 0020 10363 0001 10364 0000 * 10365 7775 10366 6012 10367 7777 * 10370 0000 * 10371 0000 * 10372 0253 10373 7565 10374 0000 * 10375 0015 10376 4000 10377 0017 226 0400 PAGE /OS/8 RESOURCES OVLY. 0 FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 8 SYMBOL TABLE BLOC 0036 BLOCK E 0200+ OV0 DPRINT X **** DTM 0045+ OV0 ENTRY E 0255+ OV0 EN2 0263+ OV0 ET 0200+ OV0 FLD: 0 0200 ASECT GERMAN X **** GETTYP X **** GETV 0023+ OV0 GOVR 0007+ OV0 INPBL0 5600 INPHND 4000 MCHAR 0255+ OV0 MKNT 0120+ OV0 MODE E 0056+ OV0 MSET 0105+ OV0 NOOOP 0030+ OV0 OPRINT X **** OTEM 0023+ OV0 OV0 0400 RSECT PDCWT 0031 PDHIT 0030 PDHRT 0037 PRINT X **** PTYP 0032 PUTO X **** PUTSP X **** PUTVR 0016+ OV0 SIZE E 0046+ OV0 SLOTAB X **** SLTM 0302+ OV0 SMALSY 0250+ OV0 SYS 0236+ OV0 SYSENT 0300+ OV0 SYSV 0033+ OV0 VERSN E 0000+ OV0