1 /1 LINCTAPE HANDLER FOR BUILD 2 / 3 / 4 / 5 / 6 / 7 / 8 / 9 / 10 / 11 /COPYRIGHT (C) 1974,1975 BY DIGITAL EQUIPMENT CORPORATION 12 / 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 / 45 *0 46 000000 7770 -10 47 000001 1416 DEVICE LNC;DEVICE LTA0;4170;10;ZBLOCK 2 000002 0300 000003 1424 000004 0160 000005 4170 000006 0010 000007 0000 000010 0000 48 000011 1416 DEVICE LNC;DEVICE LTA1;4170;11;ZBLOCK 2 000012 0300 000013 1424 000014 0161 000015 4170 000016 0011 000017 0000 000020 0000 49 000021 1416 DEVICE LNC;DEVICE LTA2;4170;12;ZBLOCK 2 000022 0300 000023 1424 000024 0162 000025 4170 000026 0012 000027 0000 000030 0000 50 000031 1416 DEVICE LNC;DEVICE LTA3;4170;13;ZBLOCK 2 000032 0300 000033 1424 000034 0163 000035 4170 000036 0013 000037 0000 000040 0000 51 000041 1416 DEVICE LNC;DEVICE LTA4;4170;14;ZBLOCK 2 000042 0300 000043 1424 000044 0164 000045 4170 000046 0014 000047 0000 000050 0000 52 000051 1416 DEVICE LNC;DEVICE LTA5;4170;15;ZBLOCK 2 000052 0300 000053 1424 000054 0165 000055 4170 000056 0015 000057 0000 000060 0000 53 000061 1416 DEVICE LNC;DEVICE LTA6;4170;16;ZBLOCK 2 000062 0300 000063 1424 000064 0166 000065 4170 000066 0016 000067 0000 000070 0000 54 000071 1416 DEVICE LNC;DEVICE LTA7;4170;17;ZBLOCK 2 000072 0300 000073 1424 000074 0167 000075 4170 000076 0017 000077 0000 000100 0000 55 56 LINCVERSION="A&77 57 58 *200 59 /LINCTAPE HANDLER FOR PS/8 - CRUDE VERSION (WRITE OPERATION CHECKS 60 /AFTER EACH BLOCK) 61 /ALL 8 HANDLERS ARE IN THIS PAGE - SEE DECTAPE HANDLER FOR 62 /DUMB COMMENT 63 64 /PDP-12 OPCODES NEEDED 65 LINC= 6141 66 PDP= 0002 67 CLR= 0011 68 AXO= 0001 69 TMA= 0023 70 TAC= 0003 71 STDI= 0436 72 COM= 0017 73 ROLI1= 0261 74 ESF= 0004 75 76 000200 7575 LTM203, -203 77 000201 0000 LTA, 0 78 000202 0007 LTA7, 7 79 000203 0030 LTA30, 30 80 000204 0070 LTA70, 70 81 000205 0702 LTA702, 702 82 000206 3700 LT3700, 3700 83 000207 0001 LTATMP, LINCVERSION 84 000210 2233 DTA0, ISZ LTANO 85 000211 2233 DTA1, ISZ LTANO 86 000212 2233 DTA2, ISZ LTANO 87 000213 2233 DTA3, ISZ LTANO 88 000214 2233 DTA4, ISZ LTANO 89 000215 2233 DTA5, ISZ LTANO 90 000216 2233 DTA6, ISZ LTANO 91 000217 2233 DTA7, ISZ LTANO 92 000220 0200 LTA200, 200 93 000221 1233 TAD LTANO 94 000222 7040 CMA 95 000223 1305 TAD LTATAD 96 000224 3233 DCA LTANO 97 000225 7332 CLA CLL CML RTR 98 000226 1233 TAD LTANO 99 000227 3236 DCA LTADCA 100 000230 6214 RDF 101 000231 1340 TAD LCDIF0 102 000232 3371 DCA LTAXIT 103 000233 0000 LTANO, 0 104 000234 3201 DCA LTA 105 000235 1373 TAD LTAISZ 106 000236 0000 LTADCA, 0 107 000237 1601 TAD I LTA 108 000240 3374 DCA LTARG1 109 000241 2201 ISZ LTA 110 000242 1601 TAD I LTA 111 000243 3375 DCA LTARG2 112 000244 2201 ISZ LTA 113 000245 1601 TAD I LTA 114 000246 7104 CLL RAL /MOVE ARGUMENTS TO WORK AREA 115 000247 3316 DCA LTARG3 116 000250 2201 ISZ LTA 117 000251 2201 ISZ LTA 118 000252 1374 TAD LTARG1 /GET CORE FIELD 119 000253 0204 AND LTA70 120 000254 1376 TAD LTCDF 121 000255 3307 DCA LTSET 122 000256 1307 TAD LTSET 123 000257 0204 AND LTA70 124 000260 7106 CLL RTL 125 000261 7006 RTL /MOVE TO BITS 0-2. CONTROLLER 126 000262 7006 RTL /WANTS THEM THERE 127 000263 3207 SLTARG3,DCA LTATMP 128 000264 1233 TAD LTANO /GET UNIT NO. 129 000265 0202 AND LTA7 130 000266 7110 CLL RAR 131 000267 1207 TAD LTATMP 132 000270 1203 TAD LTA30 /SET BIT 7 ON. EXTENDED ADD. MODE 133 000271 6141 LINC 134 000272 0001 AXO /SEND DATA TO CONTROLLER 135 000273 0002 PDP 136 000274 7600 LT7600, 7600 137 000275 3233 DCA LTANO /RESET UNIT NO. 138 000276 1374 TAD LTARG1 139 000277 7006 RTL 140 000300 0346 AND LTA3 141 000301 7106 CLL RTL 142 000302 1205 TAD LTA702 /ADD TAPE INST; STORE IT 143 000303 3315 DCA LTINST 144 000304 1375 LTALP, TAD LTARG2 /CORE ADDRESS TO CONTROLLER 145 000305 1220 LTATAD, TAD LTA200 /SAVE 129 TH WORD 146 000306 3207 DCA LTATMP 147 000307 0000 LTSET, 0 148 000310 1607 TAD I LTATMP 149 000311 3236 DCA LTASVC /SAVE LOC. 150 000312 1375 TAD LTARG2 151 000313 6141 LINC 152 000314 0023 TMA 153 000315 0000 LTINST, 0 /TAPE INSTRUCTION HERE 154 000316 0000 LTARG3, 0 /BLOCK NO. HERE 155 000317 0002 LTAWLP, PDP 156 000320 7200 CLA 157 000321 1236 TAD LTASVC /RESTORE 129TH WORD 158 000322 3607 DCA I LTATMP 159 000323 1220 TAD LTA200 /ADD 200 FOR PARITY TTY 160 000324 6034 KRS 161 000325 1200 TAD LTM203 /TEST FOR ^C 162 000326 7650 SNA CLA 163 000327 6031 KSF /IS FLAG UP? 164 000330 5342 JMP NOTFUG /EITHER NOT ^C OR NO FLAG 165 000331 1203 TAD LTA30 166 000332 6141 LINC 167 000333 0004 ESF 168 000334 0002 PDP 169 000335 7700 LT7700, 7700 170 000336 1236 TAD LTASVC 171 000337 3607 DCA I LTATMP 172 000340 6203 LCDIF0, CDF CIF 0 173 000341 5674 JMP I LT7600 174 000342 6141 NOTFUG, LINC 175 000343 0436 STDI 176 000344 0017 COM 177 000345 0261 ROLI1 178 000346 0003 LTA3, TAC 179 000347 0002 PDP 180 000350 7420 SNL 181 000351 5317 JMP LTAWLP 182 000352 7101 LTADUN, CLL IAC 183 000353 7207 CLA IAC RTL 184 000354 0315 AND LTINST 185 000355 7650 SNA CLA 186 000356 5304 JMP LTALP 187 000357 1374 LTNERR, TAD LTARG1 188 000360 0206 AND LT3700 189 000361 1335 TAD LT7700 190 000362 7450 SNA /ALL DONE? 191 000363 5371 JMP LTAXIT 192 000364 3374 DCA LTARG1 /NO.. SAVE COUNT 193 000365 1207 TAD LTATMP 194 000366 3375 DCA LTARG2 195 000367 2316 ISZ LTARG3 196 000370 5304 JMP LTALP 197 000371 7402 LTAXIT, HLT 198 000372 5601 JMP I LTA 199 000373 2233 LTAISZ, ISZ LTANO 200 000374 0000 LTARG1, 0 201 000375 0000 LTARG2, 0 202 000376 6201 LTCDF, CDF 0 203 LTASVC=LTADCA 204 $$$$$$$$