1 /3 RK8 NON SYSTEM HANDLER
11 /COPYRIGHT (C) 1974,1975,1977 BY DIGITAL EQUIPMENT CORPORATION
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.
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.
32 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
33 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
48 DEVICE RK01;DEVICE RKA0;4050;20;ZBLOCK 2
49 DEVICE RK01;DEVICE RKA1;4050;21;ZBLOCK 2
50 DEVICE RK01;DEVICE RKA2;4050;22;ZBLOCK 2
51 DEVICE RK01;DEVICE RKA3;4050;23;ZBLOCK 2
67 /1. VERSION # IS NOW 1
68 /2. A FULL 4K READ OR WRITE IS NOW LEGAL
71 /THE ENTRY POINTS FOR RK8 ARE SET AT 20-23. VITAL!!
73 RLOC, 0 /FOR BUFFER ADDRESS
74 RREC, 0 /HOLDS RECORD NO.
79 RBLKCT, 0 /HOLDS TOTAL WORD COUNT
80 RERRCT, 0 /# ERROR TRIES
86 RKA, 0 /HOLDS ARGUMENT ADDRESS
89 IFNZRO .-220 <ADRERR,QQQ>
96 DCA RERRCT /3 TRIES ON ERROR
97 TAD RKANO /THIS CODE RESTORES THE ISZ RKANO
98 CMA /WHICH WAS DESTROYED IN THE CALL
102 TAD RFUNCT /FORM DCA RKAN,WHERE RKAN WAS CALLED
105 TAD RCDIF /RESTORE TO PROPER FIELD
107 RFUNCT, HLT /CONTAINS TAD RKAN WHEN EXECUTED
108 DCA RKA /SO WE SAVE ADDRESS OF ARGUMENTS
109 TAD RKAISZ /AND NOW RESTORE THE ISZ RKANO
111 TAD I RKA /FUNCTION WORD
114 CLA CMA /BUFFER ADDRESS -1
118 TAD I RKA /RECORD NUMBER
120 TAD RFUNCT /NOW FORM RK8 IOT FROM FUNCTION.
121 CLL RAL /READ/WRITE TO LINK
122 AND R7600 /ISOLATE WORD COUNT
124 RTL /READ=6733,WRITE=6735
127 \fRLOOP, TAD RLOC /LOAD CURRENT ADDRESS
129 TAD RBLKCT /TEST WORD COUNT FOR SIZE.
130 RKATAD, TAD R7600 /FULL=256, HALF=128
134 DLWC /LOAD WORD COUNT
135 TAD RFUNCT /LOADING COMMAND WORD WITH FIELD
136 CMA RAR /AND DISK SELECTION
142 DCLS /CLEARS SELECT ERROR IF STILL UP
144 RINST, HLT /GETS DISK IOT
145 DSKD /TEST COMPLETION FLAG
146 SKP CLA /NOT DONE YET
147 JMP RCTLC /DONE. CHECK FOR ^C
150 RERROR, ISZ RERRCT /ERROR BUMP COUNT
152 DCA RKANO /IT'S ALL OVER. CLEAR FOR RECALL
154 JMP RETRN+1 /FATAL ERROR
156 AND R40 /TRACK NOT FOUND BIT
157 ISZ RZERO /CARRY OVER FROM SYSTEM HANDLER
164 JMP RLOOP /AND TRY AGAIN
165 \fRNEXT, DSKE /TRANSFER DONE. IS ERROR UP?
167 JMP RERROR /YEP.TOUGH LUCK
168 ISZ RREC /BUMP RECORD NUMBER
170 TAD R400 /BUMP CURRENT ADDRESS
172 TAD RBLKCT /DONE WITH ALL TRANSFERS?
174 JMP RDONE /V3 0 OK HERE
179 DCA RBLKCT /NO..UPDATE TOTAL WORD COUNT
180 JMP RLOOP /AND DO THE TRANSFER
182 DCA RKANO /CLEAR FOR RECALL
188 RCTLC, KRS /TEST FOR ^C IN KEYBOARD BUFFER
189 AND R177 /WITH THE FLAG UP
193 JMP RNEXT /NO ^C, KEEP GOING