1 /DECTAPE I-O ROUTINES OS8 FORTRAN II LIBRARY
11 /COPYRIGHT (C) 1974,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 MANUAL.
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 / CALL 4, RTAPE(WTAPE)
49 / ARG +-BLOCK (-MEANS START SEARCH FORWARD)
52 / VERSION NUMBER IS AVAILABLE AT ENTRY POINTS
61 LAP /ENABLE FIT INTO 1 PAGE
82 AA, NOP /SET DATA FIELD
88 DTERR, CALL 1,ERROR /CK FOR ERROR
98 TAD WTAPE /MOVE ARG ADDR TO RTAPE
108 TARGS, DCA DFUNC /READ=0, WRITE=1
109 JMS GETARG /GET UNIT #
112 TAD DFUNC /COMBINE WITH R-W BIT
114 JMS GETARG /GET BLK #
121 TAD (400 /REV. SRCH. BIT
124 RT3, JMS GETARG /GET W.C.
127 JMS GETARG /GET CORE ADDR
131 TAD AA /GET CORE FIELD
143 /START OF DECTAPE I-O
145 TAD DFUNC /UNIT & DIRECTION
148 DTCA DTXA /SET STATUS & CLR FLGS
150 TAD WCT /USE 7754 AS ADDR TO
152 DCAI CAD /STORE BLK FOUND
153 DTSERR, RTL /REENTRY FOR SRCH ERROR
154 RAL /ENDZONE FLAG TO LINK
155 CLA CML /CHANGE DIRECTION
156 TAD (200 /DTA GO FLAG
158 DTREV, TAD (400 /CHANGE DIR.
159 DTSRCH, DTXA /GO INTO SEARCH
160 DTSF DTRB /READ CONDITION
168 TAD (3 /FOR REV GET BLK-3
170 TADI WCT /# OF LAST BLK SEEN
171 CMA /CIA MIGHT BLOW THE LINK
175 JMP DTCONT /CONT. SRCH
177 JMP DTREV /IF REV, SNEAK BACK UP
178 TAD DWCT /SET WORD COUNT
182 LABEL, TAD DFIELD /LOAD FIELD BITS
184 IAC /GET R-W FUNCTION
188 TAD (130 /SET UP FUNCTION FOR
189 /THE XOR TO GIVE SRCH
190 /MODE CLEARED & SET CONTINUOUS MODE
193 DTWAIT, DTSF /WAIT FOR W.C. OVERFLOW
196 AND (200 /STOP-GO BIT
197 TAD (2 /SAVE DTA & ERROR FLAGS
199 DTRB /READ ERROR FLAGS
200 SPA CLA /CK FOR ERROR