1 /3 RF08 NON SYSTEM HANDLER / NULL:
11 /COPYRIGHT (C) 1974,1975 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
47 RF08=1 /CHANGE TO 0 FOR DF32 HANDLER
53 DEVICE RF;DEVICE RF;4064;RF&177;ZBLOCK 2
56 DEVICE DF;DEVICE DF;4124;DF&177;ZBLOCK 2
58 DEVICE RF;DEVICE NULL;0240;NULL&177;ZBLOCK 2
67 INITLC, 0 /PATCH TO 232 TO HAVE NULL STORE ^Z IN BUFFER
68 SYSER, CLA CLL CML RAR /4000
69 ISZ SYSCNT /TRY AGAIN?
71 JMP SFIELD /WHY BOTHER
74 DCA RF /RESET PARAMETERS AND TRY AGAIN
86 CIFCDF, CIF CDF 0 /RETURN TO OS/8 IF USER TYPED ^C
89 IFNZRO .-224 <ADRERR,QQQQ> /ENTRY PT MUST BE RELATIVE 24
93 DCA SYSCNT /# TRYS ON ERROR
94 RETRY, TAD I RF /HANDLER RUNS IN USER'S DATA FIELD
98 DCA SFUN /EITHER A READ OR WRITE
101 DCA SFIELD /GET FIELD OF BUFFER
106 DCA T1 /SET UP WORD COUNT
110 DCA T2 /BUFFER ADDRESS-1
120 RESRDF, HLT /RESTORE USER'S DATA FIELD
127 6615 /LOAD DISK EXTENDED MEMORY
134 6643 /LOAD HIGH ORDER
141 SFUN, HLT /BECOMES DISK IOT.(READ OR WRITE)
151 IFNZRO RF08 <SKP /SENSE OF SKIP IS REVERSED>
154 SFIELD, HLT /RETURN TO PROPER FIELD
155 6601 /CLEAR TROUBLESOME FLAG
158 IFZERO RF08 <S3700, 3700>
159 IFNZRO RF08 <S377, 0377>
166 TAD I NULL /GET FN WORD
168 ISZ NULL /POINT TO CORE LOC
169 TAD I NULL /GET START OF BUFFER
171 ISZ NULL /POINT TO BLOCK NUMBER
172 ISZ NULL /POINT TO ERROR RETURN
175 JMP BYE /LEAVE BUFFER ALONE ON A WRITE
177 AND S70 /ISOLATE FIELD OF BUFFER
182 AND S7600 /GET NO. OF WDS IN BUFFER
186 NFIELD, HLT /GO TO FIELD OF BUFFER
187 DCA I T1 /ZERO BUFFER
192 RAL /PUT R/W BIT IN LINK
193 CLA CML RAL /AC=1 IF READING
195 ISZ NULL /POINT TO GOOD RETURN IF WRITE
196 NULRET, HLT /BACK TO USER'S DATA FIELD, INST FIELD