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
48 DEVICE TC08;DEVICE SYS;4161;2007;0;1341
49 DEVICE TC08;DEVICE DTA0;4161;1007;0;1341
50 \f STARTB-ENDB-1 /NEGATIVE OF LENGTH OF BOOTSTRAP
56 STARTB, TAD B600 /THIS CODE ONLY EXECUTED ON DMS-TYPE BOOTSTRAP
57 DTCA DTXA /ALL IT DOES IS SIMULATE THE OTHER TYPE OF BOOTSTRAP
58 DTSF /MORAL: DISK MONITOR SYSTEM SUCKS
61 DCA BOOTX+1 /FUDGE TO MAKE USE OF SOME COMMON CODE
63 JMP BOOT3 /START READING OVER OURSELVES WITH RECORD 0 AGAIN
65 BM7642, -7641 /MUST BE BEFORE 7617
68 SNA CLA /WATCH THE PROGRESS OF THE READ
69 JMP BOOT2 /WHEN IT GETS PAST 7643, SWITCH TO FIELD 1
70 NOP /LOADS OVER DTSF IN 7616
71 JMP BOOT1 /LOADS OVER JMP .-1 IN 7617 - STARTS BOOTSTRAP
73 DTLB /ZAP A 10 INTO STATUS REG B TO LOAD INTO FIELD 1
74 DTSF /FROM HERE ON - LOAD THE FIELD 1 RESIDENT INTO FIELD 1
76 BOOT3, DTXA /CONTINUE READING NEXT RECORD(ALSO SEE CODE AT 7600)
82 JMP 7642 /JUMP INTO WAIT LOOP IN FIELD 1
83 JMP BOOT1 /DISK MONITOR FUDGE - JUMP INTO WAITING LOOP
90 DTSF /THIS IS LOADED INTO FIELD 1 WITH MONITOR RESIDENT
91 JMP .-1 /IT IS IN THE CD OUTPUT AREA AND SO WILL BE ZAPPED
92 CDF CIF 0 /BY THE KEYBOARD MONITOR
93 ENDB, JMP 7605 /OK, FIELD 0 RESIDENT READ IN, START UP MONITOR
95 /BOOTSTRAP FOR DECTAPE MONITOR IS THE SAME AS FOR THE
96 /DEC LIBRARY SYSTEM, RL MONITOR AND POLY BASIC - OR JUST
97 /READ RECORD 0 INTO 7600 AND TRANSFER TO 7600 A LA DISK
98 /MONITOR SYSTEM ON DECTAPE
112 SBLOCK=7776 /RELIC FROM OS/8 ASSEMBLY
116 DCA SYSCNT /3 TRIES ON ERROR
119 DCA SFIELD /RETURN FIELD SETUP
125 DCA SLOC /BUFFER ADDRESS-1
127 STRY, TAD S410 /SETUP DTA0 TO DO SEARCH REVERSE
128 DTCA DTXA /BUT MOTION BIT IS NOT ON
131 DCA SCA /7776=SBLOCK FROM OS/8 ASSEMBLY
136 RAL /LAST 4 INST. PUT MOTION BIT IN LINK
137 /IF THIS BIT WAS SET IN THE CALLING
138 /SEQUENCE, SEARCH STARTS FORWARD.
143 DTXA /ZAP MOTION BIT ON
146 SPA /CHECK FOR ANY ERRORS
150 CMA RTL /COMPLEMENT OF DIRECTION TO LINK
151 /IF LINK ON, SEARCHING FORWARD.
154 TAD SBLOCK /SEARCH FOR ONE RECORD BEFORE THE
155 /REQUIRED ONE. THEN REVERSE DIRECTION
158 TAD I SHNDLR /X+X=2*X; RECORDS TO BLOCKS
162 SZA CLA /IS IT PROPER RECORD?
164 SNL /YES..IF LINK IS ON,WAS FWD SRCH
165 JMP SC+1 /REVERSE..REVERSE TAPE MOTION
174 DCA SBLKCT /BLOCK COUNT
175 RAL /FUNCTION TO BIT 11
176 IFNZRO .-7700 <NZERR>
178 HLT /TO PROTECT AGAINST BAD PROGRAMMERS
181 RTL /FORMS EITHER READ OR WRITE
184 DCA SWC /TRANSFER 200 (8)
187 CLL CML /IN CASE OF FATAL ERROR
196 SERR2, ISZ SYSCNT /TRY AGAIN?
201 TAD S200 /STOP THE TAPE
203 RAR /GIVE FATAL RETURN