1 /3 RK8 NON SYSTEM HANDLER 2 / 3 / 4 / 5 / 6 / 7 / 8 / 9 / 10 / 11 /COPYRIGHT (C) 1974,1975,1977 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 7774 -4 47 48 000001 2213 DEVICE RK01;DEVICE RKA0;4050;20;ZBLOCK 2 000002 6061 000003 2213 000004 0160 000005 4050 000006 0020 000007 0000 000010 0000 49 000011 2213 DEVICE RK01;DEVICE RKA1;4050;21;ZBLOCK 2 000012 6061 000013 2213 000014 0161 000015 4050 000016 0021 000017 0000 000020 0000 50 000021 2213 DEVICE RK01;DEVICE RKA2;4050;22;ZBLOCK 2 000022 6061 000023 2213 000024 0162 000025 4050 000026 0022 000027 0000 000030 0000 51 000031 2213 DEVICE RK01;DEVICE RKA3;4050;23;ZBLOCK 2 000032 6061 000033 2213 000034 0163 000035 4050 000036 0023 000037 0000 000040 0000 52 53 DLDC=6732 54 DCLS=6742 55 DRDS=6741 56 DSKD=6745 57 DSKE=6747 58 DCLA=6751 59 DLWC=6753 60 DLCA=6755 61 DLDR=6733 62 63 RKVERSION="A&77 64 65 /V3 CHANGES: 66 67 /1. VERSION # IS NOW 1 68 /2. A FULL 4K READ OR WRITE IS NOW LEGAL 69 70 *200 71 /THE ENTRY POINTS FOR RK8 ARE SET AT 20-23. VITAL!! 72 73 000200 0000 RLOC, 0 /FOR BUFFER ADDRESS 74 000201 0000 RREC, 0 /HOLDS RECORD NO. 75 000202 0076 R76, 76 76 000203 6733 RDLDR, DLDR 77 000204 0000 RKANO, 0 78 000205 2204 RKAISZ, ISZ RKANO 79 000206 0000 RBLKCT, 0 /HOLDS TOTAL WORD COUNT 80 000207 0000 RERRCT, 0 /# ERROR TRIES 81 000210 0177 R177, 177 82 000211 0040 R40, 40 83 000212 7775 RM3, -3 84 000213 0400 R400, 400 85 000214 7400 R7400, 7400 86 000215 0000 RKA, 0 /HOLDS ARGUMENT ADDRESS 87 000216 0034 R34, 34 88 000217 0001 RZERO, RKVERSION 89 IFNZRO .-220 90 000220 2204 RKA0, ISZ RKANO 91 000221 2204 RKA1, ISZ RKANO 92 000222 2204 RKA2, ISZ RKANO 93 000223 2204 RKA3, ISZ RKANO 94 000224 7600 R7600, 7600 95 000225 1212 TAD RM3 96 000226 3207 DCA RERRCT /3 TRIES ON ERROR 97 000227 1204 TAD RKANO /THIS CODE RESTORES THE ISZ RKANO 98 000230 7040 CMA /WHICH WAS DESTROYED IN THE CALL 99 000231 1270 TAD RKATAD 100 000232 3241 DCA RFUNCT 101 000233 7332 CLA CLL CML RTR 102 000234 1241 TAD RFUNCT /FORM DCA RKAN,WHERE RKAN WAS CALLED 103 000235 3244 DCA RKADCA 104 000236 6214 RDF 105 000237 1367 TAD RCDIF /RESTORE TO PROPER FIELD 106 000240 3357 DCA REXIT 107 000241 7402 RFUNCT, HLT /CONTAINS TAD RKAN WHEN EXECUTED 108 000242 3215 DCA RKA /SO WE SAVE ADDRESS OF ARGUMENTS 109 000243 1205 TAD RKAISZ /AND NOW RESTORE THE ISZ RKANO 110 000244 7402 RKADCA, HLT 111 000245 1615 TAD I RKA /FUNCTION WORD 112 000246 3241 DCA RFUNCT 113 000247 2215 ISZ RKA 114 000250 7240 CLA CMA /BUFFER ADDRESS -1 115 000251 1615 TAD I RKA 116 000252 3200 DCA RLOC 117 000253 2215 ISZ RKA 118 000254 1615 TAD I RKA /RECORD NUMBER 119 000255 3201 DCA RREC 120 000256 1241 TAD RFUNCT /NOW FORM RK8 IOT FROM FUNCTION. 121 000257 7104 CLL RAL /READ/WRITE TO LINK 122 000260 0224 AND R7600 /ISOLATE WORD COUNT 123 000261 3206 DCA RBLKCT 124 000262 7006 RTL /READ=6733,WRITE=6735 125 000263 1203 TAD RDLDR 126 000264 3306 DCA RINST 127 000265 1200 RLOOP, TAD RLOC /LOAD CURRENT ADDRESS 128 000266 6755 DLCA 129 000267 1206 TAD RBLKCT /TEST WORD COUNT FOR SIZE. 130 000270 1224 RKATAD, TAD R7600 /FULL=256, HALF=128 131 000271 7640 SZA CLA 132 000272 1224 TAD R7600 133 000273 1224 TAD R7600 134 000274 6753 DLWC /LOAD WORD COUNT 135 000275 1241 TAD RFUNCT /LOADING COMMAND WORD WITH FIELD 136 000276 7050 CMA RAR /AND DISK SELECTION 137 000277 0216 AND R34 138 000300 1204 TAD RKANO 139 000301 7044 CMA RAL 140 000302 0202 AND R76 141 000303 6732 DLDC 142 000304 6742 DCLS /CLEARS SELECT ERROR IF STILL UP 143 000305 1201 TAD RREC 144 000306 7402 RINST, HLT /GETS DISK IOT 145 000307 6745 DSKD /TEST COMPLETION FLAG 146 000310 7610 SKP CLA /NOT DONE YET 147 000311 5361 JMP RCTLC /DONE. CHECK FOR ^C 148 000312 6747 DSKE /IS ERROR UP? 149 000313 5307 JMP .-4 150 000314 2207 RERROR, ISZ RERRCT /ERROR BUMP COUNT 151 000315 5321 JMP .+4 152 000316 3204 DCA RKANO /IT'S ALL OVER. CLEAR FOR RECALL 153 000317 7330 CLA CLL CML RAR 154 000320 5356 JMP RETRN+1 /FATAL ERROR 155 000321 6741 DRDS /LOOK AT STSTUS 156 000322 0211 AND R40 /TRACK NOT FOUND BIT 157 000323 2217 ISZ RZERO /CARRY OVER FROM SYSTEM HANDLER 158 000324 5323 JMP .-1 159 000325 7650 SNA CLA 160 000326 5265 JMP RLOOP /TRY AGAIN 161 000327 6751 DCLA /RECALIBRATE 162 000330 6745 DSKD 163 000331 5330 JMP .-1 164 000332 5265 JMP RLOOP /AND TRY AGAIN 165 000333 6747 RNEXT, DSKE /TRANSFER DONE. IS ERROR UP? 166 000334 7410 SKP 167 000335 5314 JMP RERROR /YEP.TOUGH LUCK 168 000336 2201 ISZ RREC /BUMP RECORD NUMBER 169 000337 1200 TAD RLOC 170 000340 1213 TAD R400 /BUMP CURRENT ADDRESS 171 000341 3200 DCA RLOC 172 000342 1206 TAD RBLKCT /DONE WITH ALL TRANSFERS? 173 000343 7450 SNA 174 000344 5353 JMP RDONE /V3 0 OK HERE 175 000345 7120 CLL CML 176 000346 1214 TAD R7400 177 000347 7470 SZL SNA 178 000350 5353 JMP RDONE 179 000351 3206 DCA RBLKCT /NO..UPDATE TOTAL WORD COUNT 180 000352 5265 JMP RLOOP /AND DO THE TRANSFER 181 000353 7200 RDONE, CLA 182 000354 3204 DCA RKANO /CLEAR FOR RECALL 183 000355 2215 RETRN, ISZ RKA 184 000356 2215 ISZ RKA 185 000357 7402 REXIT, HLT 186 000360 5615 JMP I RKA 187 188 000361 6034 RCTLC, KRS /TEST FOR ^C IN KEYBOARD BUFFER 189 000362 0210 AND R177 /WITH THE FLAG UP 190 000363 1212 TAD RM3 191 000364 7650 SNA CLA 192 000365 6031 KSF 193 000366 5333 JMP RNEXT /NO ^C, KEEP GOING 194 000367 6203 RCDIF, CIF CDF 0 195 000370 5624 JMP I R7600 196 $ DCLA 6751 DCLS 6742 DLCA 6755 DLDC 6732 DLDR 6733 DLWC 6753 DRDS 6741 DSKD 6745 DSKE 6747 R177 0210 R34 0216 R40 0211 R400 0213 R7400 0214 R76 0202 R7600 0224 RBLKCT 0206 RCDIF 0367 RCTLC 0361 RDLDR 0203 RDONE 0353 RERRCT 0207 RERROR 0314 RETRN 0355 REXIT 0357 RFUNCT 0241 RINST 0306 RKA 0215 RKA0 0220 unreferenced RKA1 0221 unreferenced RKA2 0222 unreferenced RKA3 0223 unreferenced RKADCA 0244 RKAISZ 0205 RKANO 0204 RKATAD 0270 RKVERS 0001 RLOC 0200 RLOOP 0265 RM3 0212 RNEXT 0333 RREC 0201 RZERO 0217