MAINDEC 15 D3RA D_TC02_DECtape_Random_Exerciser_Jan70 D TC02 DECtape Random Exerciser Jan70
MAINDEC-15-D3RA-D_TC02_DECtape_Random_Exerciser_Jan70 MAINDEC-15-D3RA-D_TC02_DECtape_Random_Exerciser_Jan70
User Manual: MAINDEC-15-D3RA-D_TC02_DECtape_Random_Exerciser_Jan70
Open the PDF directly: View PDF .
Page Count: 65
Download | |
Open PDF In Browser | View PDF |
?])P - ~S '])6" c- //1 PG IDENTIFICATION Product Code: MAINDEC-IS-D3RA-D (D) Product Name: TC02 DECtape Random Exerciser Date: January 14, 1970 Maintainer: Diagnostics Group Author: Edward P. SteInberger I. ABSTRACT TC02 DEC tape Random Exerciser is a program for use with the TC02 DECtape control and from 1 to 8 TU55 DEC tape transports. DEC tape functions are exercised by the random determination of function, direction, transport number, number of blocks and data pattern generation. Search, Read Data and Write Data are exercised in both Norma! and Continuous modes; Read All is exercised rn the ContinuolJ'i mode; Move is exercised. During the waiting period while uECtape funCIiom. ~:re being performed, small instruction test programs are being executed by the cer ~ra! processor to test the proper execution of the Data Break facility. 2. REQUIREMENTS 2.1 Equipment Standard PDP-15 computer with a TC02 DECtape control and at least one rU55 DECtape transport (up to eight may be tested), and one standard PDP-9 Format DECtape (1100 8 Blocks, 4008 words each) for each transport. 2.2 Storage 2.2. \ Program - Most of memory from 00000 to 04000. 2.2.3 2.3 Preliminary Programs 1C02 Basic Exerciser 3. LOADING PROCEDURE 3.1 Method The program is loaded from paper tape using the standard binary tape loading procedure. a. Place tape in the reader. b. Set the ADDRESS switches to 17700. c. Set BANK MODE switch to 1. d. Depress I/O RESET. e. Depress KEY READ IN. f. Program will be loaded into memory. 4. STARTING PROCEDURE 4. 1 Control Switch Settings The following is a table of Accumulator Switch settings and their action on the program. AC Switch o -_ Set As Action ..-_.. - ...• -_._-- ..._---_ .•. 1 HALT ON ERROR DONIT HALT ON ERROR DON IT PRINT ERRORS PRINT ERRORS PRINT ONLY 4 DATA ERRORS PRINT ALL DATA ERRORS HIT END ZONE TWICE FOR 0000 or 1077 HIT END ZONE ONCE FOR 0000 or lO77 EXERCISE TRANSPORT 8 o 1 o 2 3 10 _------ 1 o 1 o 1 o EXERCISE TRANSPORT 1 o 12 EXERCISE TRANSPORT 2 1 o 13 EXERCISE TRANSPORT 3 o 14 EXERCISE TRANSPORT 4 1 o EXERCISE TRANSPORT 5 15 2 4.1 Control Switch Settings Cont. AC Switch Action Set As o 16 17 1 EXERCISE TRANSPORT 6 1 EXERCISE TRANSPORT 7 o o 4.2 Starting Address The program's starti ng address is 00100. 4.3 Operator Action a. Load program per 3. 1 . b. Put each TU55 to be tested ON LINE with WRITE ENABLED and a standard PDP-9 DECtape on it. c. Set the selector dial{s) to the appropriate number(s). d. Set AC switches per 4.1 (Normal setting is OooXXX). e. Depress I/O RESET. f~ Depress Si ART 5. OPERATING PROCEDURE 5.1 Operational Switch Settings See 4.1. 5 .2 Subrouti ne Abstract None 3 5.3 Operator Action "Bad" DECtape transports may be "deselected" at any time by setting to 0 the AC Switch for that transport. 6. ERRORS All DECtape malfunctions detected by that program result in an error typeout (if ACS 1 is 0) and an error halt (if ACS 0 is 1). The halt wi II not occur unti I ~ errors pertaining to the block and operation have been typed. The fi rst three lines of every typeout indicate the DEC tape dri ve, operati on, direction, and mode, and the block in question. 6. 1 Error Halts 6. 1.1 Processor Test Error Ha Its Processor test errors cause error halts only. Listed below is the location of these halts and the condition causing each. Consult the program I isting for further information. These errors are non-recoverable, the program must be restarted at location 00100. Address Test and Cause ---'" 02057 lSI. Test Locl1tion 02201 shou Id :::: 0 02063 ISZ Test location 02200 should 02075 ROTATE 1 Test link should = 1 02102 ROTATE 1 Test Data Fai lure 02113 ROTATE 2 Test Link should 02120 ROTATE 2 Tes'j' Data foi lure 02130 SAD TEST Sad Failure 02170 JMS TEST JMS failure 4 =0 =1 6.1 .2 DEC tape Test Error Halts 6.1 .2. 1 Selection Error If no transports are selected by ACS 10 to 17, the computer wi \I halt at location 00107 to ai low the operator to set the ACS's and depress CONTINUE. 6. 1 .2.2 Read Data Error A "Read Data" error will cause an error halt at location 00327. To recover, depress "CONTINUE". 6.1 .2.3 Vlrite Data Error A "Write Datal! error will cause an error halt at location 01064. To recover, depress "CONTINUE II • 6. 1 .2.4 Read All Error .A ilReod All" status error will cause an error hdlt at location 01677. To recover, depress "CONTINUEII. "Read All" data errors will halt per 6.1.2.2. 6. 1.2.5 Move Error /':.. "f.!.f/0i~ C,t"U \I','i!! ccuse an el'ra!" hoit at location 02351. To rec.:)ver, depress CONTINUE". 6. 1 .2.6 Search Error A "Search" error will cause an error halt at location 02627. To recover I depress "CONTINUEII . 6.2 Error Recovery (Non-Processor) After an error typeout the processor will halt. To recover, depress "CONTINUE". For all errors, the program will attempt to repeat the same or a similar operation. If an error occur<; a second time for the same operotion§ tnli'! typeout and halt will occur again. If "CONTINUE II is depressed this time, the drive in error wi 1\ rewind and the random selections will commence at block 0 again. If, on the other hand, no error occurs, the program will continue normal operation. 6.2 Error Recovery (Non-Processor) Cont. For read errors ("Read Data" and "Read All"), the direction of the second read operation to the original error's direction. A second error will cause another typeout and ha It. Depressing "CONTINUE" wi II cause the drive to rewind to end zone. If no error occurs on the second pass, the block will be read a -third time in the original direction. Any error will cause a typeout and halt. The end result of repeated errors is rewind to end zone and random selection starting with block a to prevent the same read sequence. 6.3 Error Typeouts 6.3.1 Search Errors "Search" error typeouts contain the following information: Drive Number Search Direction and Mode Block Wanted and Direction Last N umber Put in Memory by TC02 Last BI()ck Number Found if More than Two Were Found Number of Blocks Found Since Last Startup or Turn-Around DECtope Status B Example: DRIVE 4 SEARCH FORWARD 000123 BLOCK WANTED FORWARD 000070 BLOCK fOUND 000073 ~AST 000004 BLOCKS READ 000100 STATUS B BLOCK 6 6.1.2 DECtape Test Error Halts 6. i .2. 1 Se lectj on Error If no transports are selected by ACS 10 to 17, the computer will halt at location 00107 to allow the operator to set the ACS's and depress CONTINUE. 6. 1 .2.2 Read Data Error A "Read Data" error will cause an error halt at location 00327. To recover, depress "CONTINUE". 6.1 .2.3 Write Data Error A "Write Data" error will cause an error halt at location 01064. To recover, depress "CONTINUE". 6. 1 .2.4 Read All Error ft, "Read All" status error will cause an error hdlt ot location 01677. To recover, depress IICONTINUE". "Read All" data errors will halt per 6.1.2.2. 6. 1 .2.5 Move Error '-" "Move" error will cause an error halt at location 02351. To recover, depress !ICONTINUEII. 6.1.2.6 Search Error A "Search" error will cause an error holt at location 02627. To recover, depress "CONTINUE" . 6.2 Error Recovery (Non-Processor) After an error typeout the processor will holt. To recover, depress "CONTINUE". For all errors, the program will attempt to repeat the some or a similar operation. If an error occurs a second time for the same operation, the typeout and halt will occur again. If "CONTINUE" is depressed this time, the drive in error will rewind and the random selections will commence at block 0 again. If, on the other hand, no error occurs, the program will continue normal operation. 5 6.2 Error Recovery (Non-Processor) Cont. For read errors ("Read Data" and "Read All"), the direction of the second read operation to the original error's direction. A second error wi II cause another typeout and halt. Depressing "CONTINUE" will cause the drive to rewind to end zone. If no error occurs on the second pass, the block will be read a third time in the original direction. Any error will cause a typeout and halt. The end result of repeated errors is rewind to end zone and random selection starting with block 0 to prevent the same read sequence. 6.3 Error Typeouts 6.3.1 Search Errors "Search" error typeouts contain the following information: Drive Number Search Direction and Mode Block Wanted and Direction Last Number Put in Memory by TC02 Last Block Number Found if More than Two Were Found Number of Blocks Found Since Lost Startup or Turn-Around DECtape Status B Example: DRIVE 4 SEARCH FORWARD 000123 BLOCK WANTED FORWARD 000070 BLOCK FOUND 000073 LAST BLOCK 000004 BLOCKS READ 000100 STATUS B 6 6.3.1 Search Errors Cont. The above example shows that the control was operating with Drive 114, searching in the forward direction for block #123. It encountered block #70 after block #73 (should have been #74). Up to this time it had read 4 blocks. DECtape status was normal. The block sequence was not consecutive, no doubt due to the loss of bit 15 of the block number. 6.3.2 Write Data Errors "Write Data" error typeouts contain the following information: Drive Number Direction and Mode DECtape Status B Contents of Word Count Register (Location 00030). Example: DRIVE 1 WRITE DAT A BAC KWARD CONTINUOUS 000765 BLOCK 600000 STATUS B 777634 we The above example shows that a mark track error occurred whi Ie writing data backwards in the continuous mode in block #765. 6.3.3 Read Data Errors "Read Data" error typeouts are of two types - status and data compare. 7 6.3.3.1 Status Error Typeouts These typeouts contain the following information: Drive Number Direction and Mode Block Being Read DEC tape Status B Contents of WC if not 0 (Note: No data comparison if WC is not 0). Example: DRIVE 7 READ DATA BACKWARD CONTINUOUS 001065 BLOCK 440000 STATUS B 777400 WC The above exomple shows that an attempt to read data from block #1065 on drive #7 in the backward direction in continuous mode caused a select error. Since WC is not 0, no data comparison was made. 6.3.3.2 Data Compare Errors These typeouts contain the following information: Drive Number Direction Mode Block Read 8 6.3.3.2 Data Compare Errors Cont. Correct Data Erroneous Data Address of Incorrect Data Example: DRIVE 5 READ DATA FORWARD DATA ERROR 001074 BLOCK 400000 COR 322667 INC 010374 ADDRS OF INC 000027 COR 067365 INC 010375 ADDRS OF INC The above example shows that an attempt to read data in the forward direction from block #1074 resulted in data errors. In the first printout: the correct data was 400000, the data from tape was 322667, the incorrect data is in location 010374. 6.3.4 Read All Errors "Read All" error typeouts are of three types - status, data compare, Checksum. 6.3.4.1 Status Error Typeouts Same format as "Read Data" - see 6.3.3.1. 9 6.3.4.2 Data Compare Error Typeouts Same format as "Read Data ll 6.3.4.3 - 6.3.3.2. Checksum Error Typeouts These typeouts contain the following information: Drive Number Read All Direction and Mode Block Number Reverse Checksum for Tape Data Checksum Calculated from 6-bit XOR of Data by the Program LPB Calculated by Program (6-bit XOR of RC, DC, C above). Example: DRIVE 8 READ ALL BACKWARD CONTINUOUS 000000 BLOCK CKSUM ERROR 000033 REV CHECKSUM 000022 DATA CHECKSUM CALCULATED 670000 CHECKSUM 000076 CALCULATED LPB The above example shows a checksum error. The 6-bit complement XOR of the Reverse Checksum, Calculated Data Checksum and Checksum should be 000077. However, it caiculated to 000076. 6.3.5 Program Interrupt Errors The program detects 3 c lasses of program interrupt errors. After the Pl typeout the program forces an operation typeout so that the function being performed may be determined. 6.3.5. 1 Program Interrupt and No DECtape F lag or Error F lag Skip The following typec.,ut will occur: PI 6.3.5.2 NO DECTAPE SKIP No Progrcm InterruRt or DEC tape F lag or Error F lag Skip after Timeout If no PI or DECtape hardware flags occur after 5 seconds for all functions except "MOVE II (which allows 45 seconds) the following typeout wi \I occur: NO PI 6.3.5.3 NO DECTAPE SKIP No Program Interrupt but DECtape F lag or Error F lag Skip ofter Timeout If no PI occurs, but hardware flags do occur after timeout (5 or 45 seconds) the following typeout will occur: NO PI 7. RESTRICTIONS 7. 1 Starting Restrictions DECTAPE SKIP None 7.2 Operating Restrictions Do not "deselect" a transport merely to change a reel of DEC tape and then reselect it. If a reel of DEC tape must be changed, Stop the program, change the reel of tape, then depress I/o RESET then START with 00100 in the Address Swi tches • 11 8. MISCELLANEOUS 8. 1 Execution Time Program does not stop unless an error occurs. 8.2 Data Format The data blocks written by the Random Exerciser are formatted to be bidirectional. Whether written forward or backward, they may be read in either direction on the TC02 with the resultant data looking the same. The first four words of the block contain pertinent information about the block. The first two words of each block are formatted as follows: WORD 1 r~----------- i 0 L--L-. ------------------- LOWEST BLOCK NUMBER r Control bit to indicate direction of write data o - forward I - backward I--r! , 0 1 WORD 2 WORD 1+ i _ _ _ _ _NU~BER ------------ - - --: I OF BLOCKS .......J f Complement of WORD 1 BIT 0 I - forward o - backward WORD 1 indicates the lowest numbered block in the series with bit 0 indicating the wirtten direction of the series of blocks. WORD 2 is 1 greater than the highest numbered block in the series, bit 0 in WORD 2 is the complement of bit 0 in WORD 1. 12 8.2 Data Format Cont. Ignoring bits 0 of the two words: WORD 2 - WORD 1 = number of blocks in series. WORD 3 and WORD 4 of the block are random numbers used to generate the rest of the data. WORD 5 of the block is WORD 3 rotated right one position using on 18-bit rotate. WORD 6 is WORD 4 rotated right one position also using on 18-bit rotate. This process is repeated until WORD 128 is WORD 126 rotated right. WORD 129 is the complement obverse of WORD 128. WORD 130 is the complement obverse of WORD 127, etc,. until the lost word of the block is complement obverse of the fj rst word of the block. WORD WORD WORD WORD WORD WORD 1 2 3 4 5 6 400617 000626 732654 201356 355326 100567 Block 617 to 625 inclusive were written backwards using these two words for data pattern WORD 3 Right One WORD 4 Right One, etc. WORD WORD WORD WORD 253 254 255 256 124675 321540 151777 061773 Complement Complement Complement Complement 9. PROGRAM DESCRIPTION 9. 1 Discussion obverse obverse obverse obverse of of of of WORD WORD WORD WORD 4 3 2 1 TC02 DECTAPE RANDOM EXERCISER will exercise a TC02 DECtape control and any configuration of from 1 to 8 TU55 DECtape Drives. Drive, direction of operation, number of blocks, and data patterns are by random selection. First the program randomly selects a drive, then a number between 1 and 32 (decimal) for the number of blocks, then the direction. There is one possibi lity in four that the direction will be backward. The number of blocks is added to or subtracted from the last block position of the drive selected. If the block generated has not been written, a write operation is initiated. If the lost block table indicates that the block selected has already been written, a read operation is initiated. If READ is selected, the program then generates a random number between 0 and 7. If the number is 0, the block is read in "Read All Continuous" mode; if 4, "Read Data Normal II mode; if any other number, "Read Data Continuous" mode and two blocks are read. If WRITE is selected and the 13 9. 1 Discussion Cent. number of blocks is a multiple of 3 (3, 6, 9, 12, etc.), the blocks are written in continuous mode. Otherwise, the blocks are written in normal mode. 14 PAGE DTRF15 1 004000 0044~0 000030 000031 00100 ~0100 fi'0101 00102 00103 00104 00 1 135 00106 00107 00110 00111 00112 70,7704 750004 503411 74"'200 600111 2035 1 0 102633 740040 600100 0434'53 75"'0~1 00114 043447 707554 ~011'5 1022~7 00113 0011f) 16~451 00117 00120 102244 0';'121 ~0122 00123 00124 vHH25 0012t- 00127 00 1 30 00131 00132 00133 00134 00135 00136 00137 600116 203401 043452 750004 503411 741200 600105 043453 10~551 750001 043457 ?03436 343452 7512~0 0.0141 00142 00143 00144 600231 2 0 3436 740001 343401 el43452 750001 043474 ~e14'5 100516 001 5034~4 0eJ14~ 6 ~0147 74vH~el 0\(J15~~ 043455 00151 00152 100527 503425 751200 00153 .TITLE DTRE1'5 .ASS /TC02 RANDOM EXERCISER - PDP-15 RANBFR=4000 BUFFRS=RANBFR+400 WC=30 CA=31 10~ .LOC LEM RANOEX LAS /READ ACS AND AND RUBOUT /SEE Ir ANY TRANSPORTS S~A JMP .+5 /WERE SPECIFIED ICONTROL COMES HERE LAC (MESS1 /IF NONE JMS MSPRNT XX JMP RANDEX OAC t>.1SBITS CLA!CMA OAC FRSWAT 707554 ICLEAR "8" JMS REPOSt IPUT ALL DRIVES IN END ~ONE D~M~ LSTBLK ICLEAR NUMBER OF BLOCKS JMS CHNGDR ICHECK TO SEE IF ALL WERE CLEARED JMP .-2 INO, THEY WEREN'T LAC ONE ()AC LSTDRV RDSWCH LAS /THIS SEQUENCE AND RU80UT IALLOWS THE OPERATOR SNA /TO DESELECT JMP RANDEX+5 I" BAD TRANSPORTS" DAC MSBITS /VIA THE AC SWITCHES IRANDO~ SELECTION OF OPERATIONS MOFPRO JMS RANSEL ISELECT A DRIVE CLA!CMA OAC PASFLG /CHECK TO SEE IF LAC CDRIVE TAO LSTDRV /THIS DRIVE WAS THE SNA!CLA /LAST ONE SELECTED IYES, IT WAS! JMP SAMDRV LAC CDRIVE CMA TAO ONE OAC LSTDRV CLA!CMA OAG RSQFLG ISELECT NUMBER OF ALOCKS FOR OPERATION (1-32) MOFPRl JMS RANDl /GET A RANODM NUMBER b.NO TERSEV CMA /MAKE -1 TO -32 (DEC) DAC NUMBLK ISELECT DIRECTION TO GO JMS RAND2 IGET ANOTHER RANrOM AND THREE SNA:CLA PAGE 2 RANOEX 0.~154 7400~1 130155 00156 00157 00160 00161 V'43446 223451 00162 1313163 1313164 00165 000166 00167 130170 00171 00172 00173 00174 750200 744002 203455 741400 600171 343401 363467 Ql43472 741100 143472 013175 00176 00177 00200 00201 00202 00203 00204 00205 00206 00207 00210 00211 00212 203472 740001 3634'51 741HHI 600721 100540 503413 741200 601431 503425 750200 601221 100253 600272 00213 00214 00215 00216 00217 00220 203432 707544 203472 063467 203446 063445 00221 100400 777400 100626 ~H~222 130223 00224 013225 7552(~0 60V'721 203446 740Q1V'1 004_000 00227 00 23 0 004400 443442 600325 600 123 013231 00232 00233 021234 100516 741100 600146 443474 0022 6 DTRE15 CMA IsrT BACKWARDS DAC OIRFLG IDIRECTION FLAG LAC* LST8LK SNA!CLA!CLL IHAS DRIVE BEEN WRITTEN ON? JMP WRITE1 INO, WRITE LAC I)IRFLG IGENERATE BLOCk SELECT POSITION + OR - NUMBER S~A!CLA CLL!CML LAC NUMBLK S2L JMP .+3 CMA TAO ONE TAO .. POSITN DAC RECORD SPA 1- RECORD? D~M RECORD IMAKE = 0 IHAS BLOCK SELECTEO BEEN WRITTEN IIF NOT, WRITE OPERATION SELECTED LAC RECORD CMA TAD .. LST8LK SPA IHAS BLOCK BEEN WRITTEN? JMP WRITE1 INO JMS RAND3 AND SEVEN SNA JMP RALLTS AND THREE SlA!CLA JMP RDCMOD RDTAB JMS RDDATA JMP REREAD IBLOCK HAS BEEN READ WITHOUT PARITY ERROR LAC TYTHOU 707544 ISTOP TAPE LAC RECORD DAC .. POSITN INEW POSITION LAC DIRF"LG DAC .. DIRECT IDIRECTION READ IMOVE FIRST FOUR WORDS TO REGENERATE DATA PATTERN JMS PREGEN IGENERATE DATA PATTERN LAW -400 JMS CODATA ICOMPARE 400 WORDS RAN8FR IGOOD DATA HERE RUFFRS I? DATA HERE 1St COCNTR JMP REREDA IREREAD BLOCK IF ERROR JMP ROSWCH IGO BACK, READ ACS, SELECT NEW DRIVE IDRIVE SELECTEO SAME AS LAST TIME' TFST FOR SERIES SAMDRV JMS RAND1 IGET A RANDOM SPA IREAD THIS STRING? JMP MOF"PRl + 1 IF' I NO 1 NEW 'BLOCK IS~ RSQF"LG PAGE 3 RANOEX 6 00 1 4 6 503425 V'lV'J?35 0k1236 (110237 00240 00241 00242 00243 00244 00245 00246 00247 00250 00251 00252 343401 343407 043472 203446 363472 503373 043472 601070 00?53 00254 00255 00256 00257 00260 00261 00262 00263 00?64 00265 00266 00267 00270 00271 000000 102353 203426 707544 777400 040030 203364 040031 101701 000100 620253 200030 751200 440253 620253 00272 00?73 00274 00275 00276 00277 00300 0(11301 003 0 2 00303 130304 00305 00306 00307 750001 043457 102726 102754 203472 102670 203511 1 0 2633 7 0 7572 10 2 670 203512 102633 200030 741200 600315 102670 203513 102633 600325 100400 777405 00310 ~1{1311 0031? 0~L313 00~14 00315 00316 00317 7512~0 740001 043446 740~HH 340031 DTRE1'> JMP ~OFPR1+1 AND THREE SNA!CLA IFORWARD? eMA INO, GO BACKWARD DAC OIRFLG CMA TAO ONE IFORWARD GETS TAO RBUFST IFIRST BLOCK DAC RECORD IBACKWARD GETS LAC DIRFLG ILAST BLOCK TADo RECORD AND INDEP IMASK TO 10 BITS lAND STORE DAC RECORD JMP RDSEQ IGO READ IREAD DATA SUBROUTINE (1 BLOCK) IDIRFLG=777777 (BACKWARD), 0 (FORWARD) RDDATA 0 JMS SEARCH LAC TRETHO 13000 707544 ICHANGE SEARCH TO READ DATA LAW -400 OAC Wc IINITIALllE WORD COUNT LAC BF1LOC DAC CA lAND CURRENT ADDRESS JMS WATINT IWAIT FOR COMPLETION 100 IDTF /STATUS ERROR EXIT JMPo RDDATA LAC WC SNA!CLA lSi RDDATA JMP* RDDATA INORMAL EXIT ITYPE STATUS ERROR ON READ 1 BLOCK ITEST FOR DATA ERRORS IF FULL READ REREAD CLA!CMA DAC PASFLG JMS ERSTP ISTOP TAPE JMS TYROAT LAC RECORD ITYPE BLOCK NUMBER JMS OPRINT LAC (MESS2 /TYPE "BLOCK" JMS MSPRNT 707572 IREAD "B" ITYPE CONTENTS OF "B" JMS OPRINT LAC (MESS3 ITypE "STATUS 8" JMS MSPRNT LAC WC SNA ISHORT JMP .+5 INO ITYPE C(WC) JMS OPRINT LAC. (MESS4 ITYPE "W.C." JMS MSPRNT JMP REREDA IREGENRATE PATTERN JMS PREGEN LAW "373 TAO CA PAGE DTRE15 4 ~032V1 V"403?4 00,~21 7774f1'0 ~032? 1006?6 00~23 vH~4V'~~0 00324 0032'5 00326 00327 0044V"0 75V"00.4 00~30 00331 00332 00333 00334 00335 00336 010337 00340 00341 00342 00343 00344 00345 00346 00347 003501 00351 00:S5? 00353 00354 010355 00356 00357 003601 00361 00362 00363 00364 00365 00366 00367 00370 0121371 00372 00373 00374 00375 00376 00377 00400 00401 00402 00403 00404 7511~0 740040 443457 600.3fll 203446 74QHHH 043446 100253 600274 H'0400 777400 100626 004000 004400 443442 600325 203446 740001 043446 100253 600274 777400 100626 004000 0104400 443442 600325 (>03410 243506 707545 101701 500000 600376 163451 163467 750001 063445 203 40 1 043452 600123 102340 600361 000000 203405 040010 777774 043440 nAC . +4 LArl -400 JMS CODATA RAN8FR 8UFFRS LAS SPA!CLA IHALT ON ERRORS? /YES XX ISr PASFLG /REWIND DRIVE IF NOT FIRST ERROR JMP REWORV LAC DIRFLG CMA ICHANGE TO READ IN OPPOSITE DIRECTION DAC DIRFLG JMS RDDATA IREAD DATA IERROR, AGAIN, TRV AGAIN JMP REREAD+2 JMS PREGEN IREGENERATE PATTERN LAW -400 ICOMPARE DATA JMS CODATA RANBFR BUFFRS IS~ COCNTR IDONE ALL BLOCKS? INO JMP REREDA LAC DIRFLG CMA ICHANGE DIRECTION OAC DIRFLG JMS ROOATA /READ AGAIN IANOTHER STATUS ERROR JMP REREAD+2 LAW -400 JMS CODATA ICOMPARE DATA READ RANBFR BUFFRS ISr COCNTR IDONE ALL BLOCKS? JMP REREOA INO REWDRV LAC REWIND XOR UNFUNC 707545 ICLEAR AND LOAD "A" JMS WATINT 500000 IERROR, END OF TAPE JMP .+10 DrM .. LSTBLK /CLEAR LAST BLOCK D~M" POSyTN lAND POSITION FOR DRIVE CLA!CMA ISET DIREcTION FOR DRIVE BACKWARD DAC" DIRECT LAC ONE OAC LSTDRV ISET LAST DRIVE TO 1 JMP RDSWCH IGO BACK ALMOST TO BEGINNING JMS MOVER+2 JMP REWDRV IMOVE FIRST 4 WORDS OF BLOCK READ lAND REGENERATr COMPARE PATTERN PREGEN 0 LAC RBFLOC DAC 10 LAW ':"4 DAC CNTR REREDA PAGE 5 00405 el ~14 0 t" ~04~7 004H~ RANOEX 220031 HW467 060010 75"J01 00411 3400~1 ~~412 040031 """413 "'0414 443440 "'~41':5 600405 100417 416 62~4V'!0 00417 00420 0vH1!000 vH~ 00421 00422 777774 043440 203407 ~0423 ~43463 vh~424 203406 0~425 043464 00426 "0427 0B430 203502 043501 223463 ~0431 043502 00432 00434 100467 063464 443463 00435 750001 00436 00437 043464 00433 0~44e 00441 00442 eJ0443 00444 00445 00446 00447 0045P.' 00451 00452 00453 00454 00455 00456 00457 00460 343464 443440 600426 777604 043440 203 50 1 744020 741400 2434~"~ 0435 0 3 063463 100467 063464 203502 043'501 ?03503 043502 443463 00461 75(i1(i1~1 00462 00463 eJ0464 00465 343464 043464 00466 443440 600444 620417 00467 000000 DTRE15 LAC:. CA JMS MCOMOB OAC. 10 CLA!CMA TAO CA DAC CA IS2 CNTR JMP .-7 JMS PATGEN JMP. PREGEN /GENERATE RANDOM DATA PATTERN /FIRST FOUR WORDS nF PATTERN ARE IN /RANDOM BUFFER WORDS 1 TO 4 PATGEN 0 LAW -4 DAC CNTR II~ITI4LIlE A COUNTER LAC RBUFST DAC PNTRl /AND TWO POINTERS LAC RBUFND DAC PNTR2 /FOR WORD TRANSFERS LAC TEM2 DAC TEMl /MOVE TEM1 LAC. PNTRl OAC TEM2 /AND TEM2 JMS MCOMOB /FORM COMPLEMENT OBVERSE DAC. PNT R2 /AND STORE IN RUFFER }S2 PNTRl /INCREMENT FORWARD ADDRESS CLA!CMA TAD PNTR2 /DECREMENT BACKWARD DAC PNTR2 1St CNTR /DONE 41 JMP .-13 INO LAW -174 DAC CNTR /FOR 174 (OCT) MORE GNPATR LAC TEMl /FORM ~EXT WORD CLL!RAR lor RANDOM StL XOR MUCH0 /PATTERN OAC TEM3 /STORE IN BUFFER DAC. PNTR1 JMS MCOMOB ISTORE COMP OBVERSE DAC. PNT R2 LAC TEM2 /MOVE DAC TEM1 /A LAC TEM3 /FEW DAC TEM2 /wORDS 1St PNTRl /lNCRE~ENT FORWARD ADDRESS CLA!CMA TAD PNTR2 IDECREMENT BACKWARD ADDRESS OAC PNTR2 1St CNTR IDONE ALL? JMP GNPATR INO JMP. PATGEN ICOMPLEMENT OBVERSE SUBROUTINE MCOMOB 0 PAGE 6 00470 00471 00472 00473 00474 00475 00476 00477 0~5001 00501 00502 00t)03 00504 00505 00506 00507 00510 00511 00512 00513 00514 00515 00516 00517 005201 00521 00522 00523 00524 00525 00526 00527 liH?l53V'1 00531 00532 00533 00534 00535 00536 00537 00540 00541 00542 00543 00544 00545 00546 00547 00550 00551 RANnEX 74 4 001 043454 143456 777772 043477 203514 04:<465 ?034'54 74HW0 7420,10 742010 74?:11 ,~ 043454 523465 243456 043456 443465 203454 443477 600501 203456 tl2(}1467 000000 200525 74 4 010 741400 340526 040525 620516 00~171 000003 000000 200536 744010 741400 340537 040536 620527 000015 000003 000000 200,547 744~10 741400 340550 040547 620540 000031 ~00003 000000 DTRE15 rMA!CLL nAC NUMBER OtM OBVERS LAW -6 nAC TALLY LAC (SEVEN OAC PN TR 3 LAC NUMBER SKP LOOP RTL RTL RTL OAC NUMBER AND .. PN TR 3 XOR oeVERS DAC OBVERS IS~ PNTR3 LAC NUMBER 1St TALLY JMP LOOP LAC OBVERS JMP.. MCOMOR IRANDO"1 NUMBfR GENERATORS RANDl 0 LAC Rl RAL!CLL S~L TAD Rl+1 OAC R1 JMP .. RANDl Rl 171 3 RAND2 0 LAC R2 RAL!CLL S~l R2 TAD R2+1 OAC R2 JMP .. RAND2 15 3 RAND3 0 LAC R3 RAL!CLL StL TAO R3+1 DAC R3 JMP .. RAND3 R3 31 3 IRANOOMLY SELECT A DRIVE ISTAYS IN THIS ROUTINE UNTIL A IORIVE IS FOUND AND DIRECTION AND IPOSITrON POINTERS ARE GENERATED RANSEl 0 pAGE 7 ~W)5? 00553 RANOEX 10({1527 '503413 ~"r;5d ~43436 ~05'55 ~0562 744020 742020 740020 043'5(116 203436 740001 ~121563 11143440 00'564 2121343121 443440 74100121 600572 74412120 60(1565 c:;12134'53 74120121 600552 21213436 343403 043467 21713436 343366 043445 21213436 343374 043451 62(21551 ~0r;56 ~121557 00'560 ~0r;61 ~Vl565 ~0566 0\1'567 00570 00571 0121572 1210573 00574 0057'3 121121576 0121577 012161210 012161211 0121602 0121603 012161214 0121605 0121606 012161217 0061''1 1210611 121121612 01216 13 0121614 121121615 0121616 0121617 121121620 00621 00622 1210623 00624 012162'3 ~12I00(1!12I 0121626 0121627 00630 0121631 0121632 0000010 043440 220626 043463 440626 ~43440 7501211211 3612161217 04012110 44121607 7501211211 3606l~7 040011 44121607 22001121 ~6012111 44344121 6121121621 6206~7 DTRE15 JMS RAND2 IGFT A RANDOM NUMBER AND SEVEN /MASK OFF UNWANTED BITS /SAVE DAC CDRIVE CLL!RAR RTR RAR IDRIVE NUMBER OAC UNFUNC LAC CDRIVE CMA OAC CNTR IFINO POSITION LAC TWOHUN 1St CNTR IOF SKP IBIT JMP EXIST IWITH RESPECT ITO CLL:RAR lACS JMP .-4 IASK WITH ACS rXIST AND MSBITS IOOES UNIT EXIST (TEST UNIT?)? SNA INO JMP RANSEL+l IYES LAC CDRlvE TAD POSTBL IF'O-RM POSITION P-oINTER DAC POSITN LAC CDRIVE TAD OIRTBL IF'ORM DIRECTION POINTER DAC OIRECT LAC CDRIVE TAD LSTTBL ILAST BLOCK WRITTEN POINTER OAC LSTBLK JMP. RANSEL IMOVE DATA SUBROUTINE 1# OF WORDS IN AC, ORIGIN JMS+l IDESTINATION JMS+2 MVDATA 0 DAC CNTR CLA!CMA TAD. MVDATA OAC 10 IS2 MvoATA CLA!CMA TAO. MVDATA oAC 11 Is~ MvDATA LAC. 10 DAC. 11 IS~ CNTR JMP .-3 JMP. MVDATA ICOMPARE DATA SUBROUTINE 1# OF WORDS IN AC, CORRECT ADDRESS IN JMS+l IQUESTIONABLE ADDRESS IN JMS+2 (II CODATA OAC CNTR IG.ET CORRECT ADDRESS LAC. CODATA OAC PNTRl IS~ CODATA PAGE 8 RANOEX {- 3 3 ?206?6 L~0634 V'l4~464 .10t3S 750'~(il1 ~IJ636 V14~442 37 00(,4'" V1 f~A 4"\ ~I '-~ n 4? ~l f~ 6 4 3 00644 ~h~ 6 4 >3 440626 223463 7400°1 343401 363464 vl;~ f~ vlb 74v~200 6 4 {, 6006'33 44:;463 00647 4434t14 1!1(.1650 443440 600640 620626 443442 600673 1027?6 7075':>2 >303402 7412010 600664 102765 741000 102754 203515 102633 203472 102670 203516 102633 750004 742010 740HH'J 600703 777774 343442 741t1100 600646 102714 223463 102670 203517 102633 223464 102670 203520 102633 203464 102670 203521 102633 600646 (~0 00651 00652 00653 00654 00655 00656 ~0657 00660 ~0661 00662 00663 00A64 00665 00666 00667 00670 00671 00672 00673 00674 0067'5 00676 00677 00700 00701 0eJ70? 00703 00704 00705 00706 00707 0071~ 007 11 007 12 ftHP13 00714 0071'5 00716 00717 0072'" DTRE1&:; IGET QUESTIONABLE ADDRESS LAC* CODATA nAC PNTR2 CLA!CMA ISET NO ERROR FLAG OAC COCNTR 1St CODATA COLOOP LAC" PNTR1 CMA TAD ONE TAD* PNTR2 S2A JMP COERRO 1St PNTR1 ISZZ PNTR2 1St CNTR JMP COLOOP JMP .. CODATA YSl COCNTR COERRO IFIRST ERROR? INO JMP COERRl JMS ERSTP ISTOp TAPE 707552 IREAO "A" AND ONETHO I"ALL" MODE? SNA JMP .+3 INO JMS TYRALL IYES, GO TYPE SKP JMS TYRDAT ITYPE "DATA ERROR" LAC (MESS5 JMS MSPRNT LAC RECORD JMS OPRINT ITYPE BLOCK NUMBER LAC (MESS2 ITYPE "BLOCK" JMS MSPRNT LAS COERR1 RTL SMA ISHOULD ONLY 4 BE TYPED JMP .+5 INO, TYPE ALL ERRORS LAW -4 IYES HAVE TAO COCNTR 14 BEEN SMA ITYPED? JMP COLOOP+6 IYES, DELETE REST OF TEST JMS CRLF LAC* PNTRl JMS OPRINT ITYPE STANDARD LAC (MESS6 JMS "iSPRNT lAND "COR" LAC" PNTR2 JMS OPRINT ITYPE INCORRECT LAC (MESS7 JMS MSPRNT lAND "INC" LAC PNTR2 JMS OPRINT ITVPE ADDRESS OF INCORRECT LAC (MESSa JMS MSPRNT ITYPE "ADDR" JMP COLOOP+6 IINJTIATE WRITE OPERATIONS PAGE DTRE15 9 ~~P21 ?0~4V'5 V'\-'1722 V'4r~10 ~ln23 ?23451 0~724 0.60.~10 Vl0 7 25 00726 00727 ?034r:;5 l~073~ ~h~731 0073? 00733 00734 00735 00736 00737 74~"'V'1 343401 363451 043472 77670.0 343472 74V"100 601034 203472 06V"010 0074~ 100540 00741 00742 00743 00744 00745 00746 00747 00750 00751 00752 00753 V"6Q\010 00754 0(21755 00756 00757 00760 00761 00762 00763 00764 "0765 00766 00767 00770 00771 0077? 00773 vHH74 00775 ~0776 00777 01000 01001 01002 01003 1~0516 06e010 100527 503425 751200 740001 043446 343407 04~010 040011 754002 740020 360010 060011 10Q\417 203455 Q\43475 203455 740001 043472 203446 74\?1200 203472 363451 04347 2 601332 10?353 203370 707544 777400 040030 203405 040031 101701 /GENFRATE PATTrRN WORDS AND 18LOCK NUMBERS WRITE1 LAC R8FLOC nAC 10 /SET UP 10 FOR STORAGE LAC .. LST8LK DACo 10 IStT UP FIRST WORD LAC NUM8LK CMA TAD ONE TAO .. LST8LK ILAST BLOCK+1 OAC RECORD LAW -1100 TAO RECORD SMA /RF.WINO UNIT? JMP REWCK IYES LAC RECORD DAC .. 10 JMS RAND3 /FIRST RANnOM WORD DACo 10 JMS RAND1 ISECOND RANDOM WORD DAC .. 10 JMS RAND2 AND THREE IFORM DIRECTION SNA!CLA CMA lAND STORE DAC OIRFLG TAD RBUFST DAC 10 DAC 11 IFORM FIRST WORD CLA!CLL!CML IINDICATE RAR 18ACKWARD TAO .. 10 lOR 2ND WORD DAC .. 11 IINDICATE FORWARD JMS PATGEN IGENERATE 256 WORD PATTERN LAC NUMBLK DAC SAVNUM ISAVE NUMBER OF BLOCKS CORT1R LAC NUMBLK CMA DAC RECORD LAC OIRFLG S2A IBACKWARD IS LAC RECORD ILAST BLOCK + NUMBER OF ALOCKS TAO" LSTBLK DAC RECORD ITO FIND FIRST BLOCK TO BE WRITTEN ITEST FOR WRITE DATA cONTINUOUS MODE IIF NUMBER OF BLOCKS = INC OF 3 JMP WDCMOD JMS SEARCH WRT1A LAC FIVTHO ISEARCH TO WRITE DATA 707544 IXOR INTO "A" LAW -400 DAC WC ISET UP WC L~C RBFLOC OAC CA lAND CA ,WAIT JMS WATINT PAGE 10 RANrEx ~1/'04 ~0'~lr~ 1111005 6~l:i ~1Vl0f, ?0C'0~0 042 V11(HD 7442~~c;, V1101V1 601042 01~11 ;>03 44 6 01~1;> 34~472 01013 01014 01 0 15 Vl P' 16 "1°17 ~:l1 \'120 7 411 \~ 0 7'-;4002 043472 75040' 0 443472 443455 A0V'l776 203472 063467 203446 063445 VlH~21 01022 v11023 0H~24 (II1Ci!25 01026 01'~27 el1Vl30 01031 01032 01033 01034 01035 01036 01(1137 01040 01041 01042 01043 0H144 0H145 01046 01047 VlH~50 01051 0H'l52 01053 01054 01055 01056 0111J57 01060 01061 01 Vl 62 01063 2\~4~01 503373 063451 203432 707544 600123 100540 7411(:\0 6~H~361 143472 143446 600211 102726 102776 203472 102670 203522 102633 203475 043455 707572 102670 203523 102633 200030 102670 203524 102633 75~0e4 751H'0 Vl1~64 74e040 01V'65 V'1V166 600.3Al 01067 60~763 01070 204000 443457 DTRE15 IOTF 1. elP JMP WSTERR LAC WC S2A!CLL Iwr = tl? INO JMP WSTERR LAC DIRFLG TAD RECORD SPA CLA!CLL!CML OAr. RECORD SNL!CLA IRECORO -17 INa +1 IS2 RECORD IDONE ALL BLOCKS? rs~ NUMBLK INa, DO ANOTHER JMP WRT1A+l WDINC LAC RECORD INEw POsITION DAC* POSITN LAC DIRFLG INEW DIREcTION DAC* DIRECT LAC RAN8FR+1 AND tNDEP INEW LAST BLOCK OAC* LSTBLK LAC TYTHOU IXOR INTO "A"03364 (II 1 1 6? ( 163 04V'!031 777400 j 01164 vh 1 6'5 01166 01167 01170 01171 0.1172 "'11 73 "'1174 01175 01176 01177 01200 01'201 012132 01203 01204 0120'5 01206 01207 01210 01211 01212 01213 01214 01215 01216 01217 01220. 04~~030 75~~00 707')44 7774V'0 j 011'6?6 004W~0 (i\0')~1r~1 44~442 600325 ;;>03455 7412013 6flh 214 203446 7412~~ 343401 343472 0.43472 lfiH 701 000100 600272 200030 740200 600272 601117 203472 063467 203446 063445 600123 0123~ 203446 740200 601232 203472 740001 363451 740.200 601235 60"'211 203472 7412(?!0 0.1234 01235 01236 01237 01240 01241 01242 01243 01244 102353 20341'7 707544 777000 040030 203364 "40031 101701 01221 01222 01223 01224 01225 0.1226 01227 0.1230 01231 01232 60"'211 JMP .+6 15TOP TAPE LAC 8F1LOC nAC CA 15ET UP CA LAW -400 OAC WC CLA 707544 LAW -400 IXOR INTO A JMS CODATA ICOMPARE DATA RANBFR RUFFRS+401 IANY COMPARE ERRORS rSl COCNTR IYES. READ OPPOSITE DIRECTION JMP REREDA LAC NUMBLK 5NA IRE AD AND COMPARE ALL? JMP NDOFRD IYE5 LAC OIRFLG INO SNA TAO ONE TAD RECORD ILAST BLOCK +1 OR -1 OAC RECORD JMS WATINT IWAIT j 00 IDTF ISTATUS ERROR, REREAO JMP REREAD LAC WC S2A IWC = 07 JMP REREAD INO, REREAD JMP RDBUF1 ICOMPARE FIRST BUFFER NDOFRD LAC RECORD OAC" POSITN INEW POSITION LAC OIRFLG DAC .. DIRECT /NEW DIREcTION JMP ROSWCH IGO BACK FOR ANOTHER IREAD DATA CONTINUOUS MODE /TWO B~OCKS AND COMPARE DATA READ RDCMOD LAC OIRFLG S~A IFORWARD? JMP ,+7 INO LAC RECORD CMA TAD .. LSTBLK IBLOCK +1 WRITTEN? S2A JMP ,+5 JMP RDTAB IBLOCK NOT WRITTEN. READ ONLY 1 LAC RECORD SNA JMP RDTAB IBLOCK 0 BACKWARDS. READ ONLY 1 JMS SEARCH IFIND FIRST BLOCK LAC TRTETH /13000 707544 IXOR INTO "A" (CHANGED TO READ CONT) LAW -1000 DAC wC ISET UP wC AND LAC RF1LOC DAC CA ICA FOR 2 BLOCKS JMS WATINT /WAIT FOR END OF TRANSFER PAGE 13 RANf)EX 911?4~ 00~100 911?4f- 6i-H314 1';'1247 200/13;1 9112';~ 74r~2\~? 01:251 911252 01253 01?54 01255 V11256 01257 01f?60 01261 911262 01263 01264 01265 911266 01267 01270 01271 01?72 01273 01274 01275 01276 01277 013091 01301 01302 01303 01304 01305 01306 01307 013191 01311 01312 01313 01314 01315 01316 01317 01320 01321 01322 01323 911324 01325 (111326 01327 [7;1330 01331 6~(:)272 2133 4 32 7~n';44 203446 7412~0 343401 343472 043472 1001400 777400 lVlV1626 004~00 0050~0 443442 60(7325 750001 343365 914V1031 1.00400 203446 74120.0 3434v"1 7400(:)1 343401 343472 043472 777400 10V1626 004QHH! 0044910 443442 600325 20 3 472 063467 6iHH 23 200030 7412910 601324 7491910.1 343401 340777 914V~30 60PJ272 203446 741200 343401 343472 043472 60~272 DTRE1'; 10TF 100 JMP ROC ERR IERROR, SEE WHICH RLOCK LAC WC IWC = ~? S~A INO JMP REREAD IGET "STOP" LAC TYTHOU 707544 IXOR PHO "A" LAC OIRFLG SNA TAD ONE TAO RECORD OAC RECORD JMS PREGEN IVERIFY LAST LAW -400 IBLOCK IFIRST JMS CODATA RANBFR 8UFFRS+400 IS2 COCNTR IANY DATA ERRORS IYES, REREAD JMP REREDA CLA!CMA TAD 8F2LOC DAC CA JMS PREGEN LAC DIRFLG SNA TAD ONE CMA TAO ONE TAD RECORD nAC RECORD LAW -400 JMS CODATA RAN8FR RUFFRS ISl COCNTR /ANY DATA ERRORS? /YES, REREAD JMP REREDA INO, SET NEW LAC RECORD IPOSITION [1AC* POSITN JMP RDSWCH IGO BACK FOR ANOTHER JOB LAC wc RDCERR IERROR IN 2ND BLOCK? SNA /n:s, COUNT ALOCK JMP ,+6 CMA TAD ONE TAD WRT1A+2 1-400 (OCT) DAC WC ITYPE STATUS ERROR JMP REREAD LAC DIRFLG IBACKWARD (-1 ) SNA IFORWARDS ( +1 TAO ONE TAD RECORD DAC RECORD JMP REREAD /WRITE DATA CONTINUOUS MODE IF /NUMBER OF BLOCKS IS AN INCREMENT OF 3 PAGE 14 RANnEX 01332 Vl1333 '14~~~5 011334 343425 (il133'5 Vl133A ?0~4'55 7412~({! 01:~37 601343 74011(il0 013401 f,00774 01~41 01342 (il1343 ItH344 (.i!1345 01346 ~H347 01350 01351 01352 ~H353 01354 01355 0 1 356 01357 01360 01361 01~~62 01363 01364 01365 01366 01367 01370 01371 01372 01373 01374 01375 01376 01377 01400 fi'1401 01402 01403 01404 01405 01406 01407 01410 01411 01412 01413 01414 01415 01416 01417 01420 44:;5v~5 ("11334 ;;>035(11'5 7400011 0435015 777(lJ00 100607 vH~4000 0044010 102353 203367 707544 776400 040030 203405 040031 HH701 0100100 6014(115 20(11030 740200 601405 203446 7542010 740002 343425 740400 601377 740001 3434011 343472 043472 750000 4435015 601354 601022 1435015 2001030 740001 3434011 340777 7411 0 0 601416 44350~ 601411 203446 754200 740002 DTRE1e; WOr.MOO n2M TRECTR LAC TAD SNA JMP SMA JMP NUM8LK THREE IAN INCREMENT OF 37 IYES, WRITE CaNT, IGONE PAST 07 IYES, NOT INC, OF 3 WRT1A-1 lNG, COUNT 1 1St TRECTR JMP WDCt-1DD+2 lAND REPEAT LAC TRECTR swCMoD CMA nAC TRECTR LAW -1Ii3 0 0 IMAKE PATTERN JMS MVDATA 13 8UFFERS RAN8FR ILONG RUFFRS JMS SEARCH LAC FIFTHO 115000 (SEARCH TO WRITE CaNT) SWCMDL IXOR INTO "A" 707544 LAW -1400 15FT UP WC IF OR 3 BLOCKS nAC WC LAC R8FLOC OAC CA lAND CA JMS WATINT IWAIT IDTF 100 JMP \.IoCERR INOT NORMAL INTERRUPT LAC WC S~A IWC = 01 JMP WDCERR INO LAC OIRFLG S~A!CLA!CLL IF"ORWARD7 INO, SET LINK CML TAO THREE IGFT 3 SNL IBACKWARD INO JMP ,+3 IYES, -3 CMA TAO ONE TAO RECORD DAC RECORD CLA 1St TRECTR IDONE ALL JMP SWCMoL INa, DO NEXT 3 JMP WDINC IYES OtM TRECTR WQCERR LAC WC eMA TAO ONE I -WC TAD WRT1A+? I -400 (OCT) SPA JMP ,+3 IS~ TRECTR JMP .-4 LAC OIRF"LG SlA!CLA!CLL IF'ORWARD? INO, BACKWARD, MAKE -1 OR -2 CML SWCMOD PAGE 15 RANOEX ~1427 2035(115 74040(1 6v'l1426 74vH101 343401 343472 (1143472 (111430 6~1042 0,1431 01432 vl1433 (111434 01435 01436 01437 (111440 01441 01442 "H443 1111444 203446 74120V'! 343401 7400(111 343401 343472 043472 7411(110 60(11123 343376 75"'100 600145 0 1 445 01446 01447 01450 01451 01452 01453 01454 01455 01456 (111457 01460 01461 01462 01463 01464 01465 01466 01467 14347 1 102353 707554 203446 741200 343401 343472 043472 707561 741000 601556 707601 601455 203435 74(11001 343401 343472 750200 601556 0147V1 01471 01472 01473 01474 (111475 (111476 01477 01500 01501 20343 1 707544 777374 01421 Vl142? 01423 01424 01425 01426 040030 21013364 040(1131 101701 eI~0100 601657 200030 DTRE1e:; LAC TRECTR SNL JMP .+3 CMA TAD ONE TAn RECORD OAC qECORD IBLOCK IN ERROR JMP WSTERR ITYPE OUT WRIT[ ERROR IREAD ALL ROUTINF IREV CKSM, DAT~, AND CKSM ARE READ ICKSMS ARE GFNFRATED AND TESTED RALLTS LAC DIRFLG SNA IBACKWARDS? TAO ONE INO, FORWARD CMA TAO ONE 1+1 FOR RACKWARD, -1 FOR FORWARD TAO RECORD OAC RECORD SPA JMP RDSwCH ICAN'T DO 0 TAO "1BLOCK SMA!CLA JMP MOFPR1 lOR 1100 IFINn THE RLOCK ANn CHANGE TO READ ALL ICLEAR READ ALL ERROR FLAG D~M RAEFLG IClEAR READ All ERROR FLAG IFIND BLOCK JMS SEARCH 707554 ICLEAR DTF AND EF LAC OIRFLG SNA TAO ONE TAD RECORD OAC RECORD 707561 ISKIP ON ERROR FLAG SKP JMP RASERR IDECTAPE ERROR 707601 ISKIP ON DECTAPE FLAG JMP .-4 INO FLAGS, CHECK AGAIN LAC 8LKFND IGET CURRENT DECTAPE BLOCK NUMBER CMA TAO ONE TAD RECORD S2A!CLA lIS IT THE ONE WE ARE LOOKING FOR? JMP RASERR INO, ERROR ICHANGE TO RFAQ ALL CONTINUOUS LAC TWVTHO ISEARCH TO READ ALL CONT 707544 IXOR INTO "A" LAW -404 OAC wC 15ET ~r. FOR 404 WORDS LAC 8F1LOC DAC CA 15ET CA JMS WATINT IWAIT 100 IOTF IREAD ALL STATUS ERROR JMP ERRRAR LAC wC PAGE 16 RANDEX DTRE1~ 01'502 01503 7402()l0 ~lA f-01657 VllS04 ?Vl~432 JMP ERRRAR LAC TYTHOU ~1505 707544 01506 01'507 01510 01511 01512 203404 014 (1\ ~~ lei 01 1'513 01514 01515 01516 777400 ~43440 143437 2044C'!2 503421 043473 22V'1010 01517 1015M~ 01520 01 5 21 01522 011523 01524 0152f5 01526 443440 01527 01530 01531 01532 01533 01534 01535 01536 01537 01540 01541 01542 01543 01544 01545 01546 01547 0155V'1 01551 131552 01553 01554 01555 01556 f/!1557 0156()l 01561 01562 01563 01564 601516 203437 503421 043444 7700(110 520010 043450 HH560 203473 HH560 203437 7401001 503421 740200 601602 203472 063467 750001 34~031 040031 10V'14V'0 777400 100626 0040V'10 004403 443471 443442 6003 2 5 600121 143457 602562 ~00000 740001 Ql43501 777775 043477 Iwr = VI? INO ISTOP TAPE 707544 IXOR I~TO "A" /GrNERATE CKSMS ANn TEST SUM = 0eJ LAC RADLOC DAC 10 /SrTUP 10 LAW -400 nAC CNTR lAND COUNTER FOR OlM CKSUMR /PROCESSING, cERO CHECKSUM LAC RUFFRS+2 AND SEVSEV nAC REVCHK ISAVE REVERSE CHrCK LAC* 10 jGET NEXT DATAWORD JMS XORSUM IXOR INTO CHECKSUM lSi! CNTR IOONE? JMP .-3 INO IYES, GET FINAL LAC CKSUMR IMASK AND SEVSEV OAC DATASM lAND SAVE LAw 10000 ILOAD AC wITH 770000 AND* 10 ICOMBINE WITH FORWARD CKSM lAND SAVE DAC FWDCHK JMS XORSUM ICOM8INE FWDCHK AND DATASM LAC REVCHK JMS XORSUM ICOM8INE WITH REVCHK LAC CKSUMR CMA AND SEVSEV S~A lIS RESULT 01 JMP ERRCKS INO, ERROR RADCHK LAC RECORD OAC* POSITN IUPDATE POSITION TABLE CLA!CMA TAD CA DAC CA ISUBTRACT 1 FROM CA JMS PREGEN IGENERATE PATTERN LAW -400 ICOMPARE AGAINST JMS CODATA IPATTERN OBTAINED RANBFR IFROM TAPE RUFFRS+3 IANY READ ALL ERRORS IS2 RAEFLG INO, ANY DATA ERRORS IS1 COCNTR IYES, YES JMP REREDA JMP RDSWCH-2 INO, GO BACK RASERR D~M PASFLG JMP SRHERR ITC02 RANDOM EXERCISER - TAPE 2 IFORM 6-81T XOR OF AC AND CKSUMR ISAVE RESULTS IN CKSUMR XORSUM ~ CMA DAC TEM1 LAW -3 OAC TALLY PAGE 17 01565 01566 01567 01570 01571 (1)1572 01'573 01574 (1)1575 RANnEX 203~~1 744010 74?010 742010 742~10 01435011 50~421 243437 043437 01~76 2~3501 01~77 443477 601567 621560 01f,~0 01"131 01602 016133 0161214 0161215 01606 01607 01610 1211611 01612 131613 01614 01615 13 1 6 1 6 01617 01620 1211621 1211622 1211623 1211624 1211625 121 1626 01627 01630 1211631 1211632 121 1 6 33 1211634 1211635 1211636 01637 01640 1211641 01642 01643 1211644 01645 1211646 1211647 1211650 1211651 01652 102765 2VJ3472 11212670 20352'5 1V12633 203526 102633 11212714 203473 102670 21213527 102633 10 1 647 11212714 21213444 1026713 7602413 11212661 1030313 1131647 1 0 1653 102714 2121345121 1121267121 11211647 11212714 21213437 741211211211 51213421 12143437 10267121 HH653 203530 11212633 750001 0I4~471 6~H54e1 1210121000 203531 11212633 621647 DTRE15 LAC TEMl RAL:CLL RTL RTL RTL OAC TEM1 AND SEVSEV XOR CKSUMR OAC CKSUMR LAC TEM1 1St TALLY JMP .-11 JMP .. XORSUM ICHECKSUM ERROR TYPEOUT JMS TYRALL ERRCKS LAC RECORD ITYPE JMS OPRINT LAC (MESS2 ITYPE JMS MSPRNT LAC (MESS9 ITYPE JMS MSPRNT JMS CRLF LAC REVCHK ITYPE JMS OPRINT LAC (MESS10 ITYPE JMS MSPRNT ITYPE JMS CKSTYP JMS CRLF LAC DATASM ITYpE JMS 0PRINT LAW 24121 JMS TYPE JMS TYDATA ITYPE JMS CKSTYP JMS CALCTY JMS CRLF LAC rWDCHK JMS OPRINT ITYPE ITYPE JMS CKSTYP JMS CRLF LAC CKSUMR CMA AND SEVSEV DAC CKSUMR ITVPE JMS OPRINT JMS CALCTY LAC (MESS11 ITYPE JMS MSPRNT CLA:CMA OAC RAEFLG JMP RADCHK 1Il CKSTYP LAC (MESS12 JMS MSPRNT JMP.. CKSTYP ITVPE OUT HEADER OUT BLOCK NUMBER "BLOCK" "CKSUM ERROR" OUT REVCHECK "REV" "CHKSUM" DATA SUM "CHKSUM" FORWARD CHECKSUM "CHKSUM" CALcULATED CKSM "L.p.B." PAGE OTRE15 i8 01653 01654 00,rt~0 CALCTY ?0~532 Vlln55 V'J1656 102633 621653 V'J1657 1027?6 (MESS13 JMS MSPRNT JMP* CALCTY IREAD ALL STATUS ERROR TYPEOUT rRRRAR JMS ERSTP ISTOP TAPE JMS TYRALL ITYPE HEADER LAC RECORD JMS OPRINT ITYPE OUT BLOCK NUMBER LAC (MESS2 JMS MSPRNT ITYPE "BLOCK" 707572 /RFAD "8" JMS OPRINT ITYPE OUT B LAC (MESS3 JMS MSPRNT ITYpE "STATUS R" LAC WC JMS OPRINT ITYPE OUT WORD COUNT LAC (MESS4 JMS MSPRNT ITYPE "W.C." LAS SPA!CLA ISTOP ON ERROR? XX /YES JMP REWORV IWAIT FOR INTERRUPT ROUTINE ISYNCHRONI~E PROCESSOR TESTS WATINT 0 LAC (JMP I RECD DAC 1 LAW -4 DAC WTCNTR /INITIALIlE COUNTER FOR 5 SECONDS 707552 IREAD "A" AND SEVEN+3 17000 S~A lIS FUNCTION "MOVE" JMP .+3 INO, 5 SEC. OK LAW -30 ICHANGE COUNTER OAC WTCNTR ITO 45 SEC. IS~ FRSWAT IFIRST PROGRAM WAIT? JMP RESETD INO, RESTORE AC AND L JMS SETIDX IYES, SET UP ION ITURN ON PI JMP IS~TST IGO TO FIRST TEST RESETD D~M FRSWAT IINDICATE NOT FIRST WAIT rSr PICNTR ICOUNT PI COUNTER SKP INOT ~ERO JMS SETIDX IlERO LAC 0 OAC* PIDEX1 ISAVE OLD PC IS~ PIOE Xl LAC 0 RAL IRESTORE LINK LAC ACCUM /RESTORE AC ION ITURN ON PI JMP* 0 IEXIT IINTERRUPT RETURNS HERE tRECD OAC ACCUM /SAVE AC VI 16M'! lv~2765 01661 (/11062 01f163 01664 203472 102670 ?03533 1112633 Vl166~ 7"'7572 01666 01667 102670 203534 102633 200030 102670 203535 102633 (111670 01671 01672 01673 (111674 01675 01676 01677 0170'" 01701 01702 01703 01704 ~1705 01706 01707 (111710 01711 01712 01713 01714 01715 01716 01717 01720 01721 01722 01723 01724 01725 01726 7500Vl4 751100 740040 600361 000000 2035~6 040.001 777774 043507 707552 503416 740200 601714 777750 04351717 443447 601721 102015 7130042 6132046 143447 443460 741000 102015 200000 01730 01731 01732 01733 01734 063461 443461 201?0013 740010 203433 700042 620000 01735 043433 01.727 VI l ~r. PAGE 1q RANOEX ~1736 7~76nl ~1737 74HH1Vl 601743 01740 ~1741 7~7561 01742 01743 6017~2 ~1744 ~43476 01745 01746 22 1701 740001 50.3476 741200 441701 441701 20170.1 063462 443462 203435 503373 el4343'5 621701 ~1747 01750 ~1751 ~1752 ~1753 01754 017'55 01756 el1757 01760 01761 70.7572 DTRE15 ISKIP ON OTF INONE IOtCTAPE FLAG 15KIP ON ERROR FLAG 7075Al JMP r--JOTSKP INa DEC TAPE FLAGS IRE"AD "8" 707572 ISAVE B DAr. S8RECO LAC* IoIATINT IcOMPARE FLAGS SET CMA AND S8RECO IAGAINST FLAGS ALLOWED IANy ILLEGAL? SNA 1St WATINT INa, INCREMENT TWICE IYES, INCREMENT ONCE 1St ~ATINT LAC WATINT 1 5 AVE C(WATINT) DAC* PIOE X2 IMORE POINTER IS2 PIDE X2 ICLEAN UP LAC BLKFND IBLOCK NUMBER AND INOEP [lAC 8LKFNO IFROM TAPE IExIT JMP* WATINT .EJECT 7076~1 SKP JMP • + 3 PAGE RANO[X 20 ~H 7f)? 01763 01764 102726 203537 102633 Vl176~ 6"'?0~5 01766 01767 01770 01771 01772 01773 01774 0091(~00 443507 621766 7000 L2 707601 741000 601777 707561 740001 043476 ~h 77~ 01776 ~1777 02000 02!IJ01 0201)2 02003 02004 02005 02006 02007 02010 02011 02012 02rtJ13 02014 0201C; 02016 02017 02020 02021 02022 02023 02024 0202"5 02045 02045 02046 02047 02"'50 02051 02052 0212153 02054 02055 02056 02057 02060 0212161 02062 0.2063 02064 . 1027~6 203540 102633 443476 60?0917 20~541 102633 203542 102633 441701 750001 043447 621701 0000~0 777772 ~43460 202025 ~43461 20(>045 043462 622015 002026 002035 7591001 042204 142201 142200 442200 442201 602052 202201 740200 740040 750001 342200 7402e0 740040 442204 OTRE1e; NOTSKp JMS ERSTP ISTOP TAPE LAC (MESS14 ITYP[ "PI" JMS MSPRNT JMP PTSTNS PTSTNO 0 IS2 WTCNTR I~AITEO LONG ENOUGH? IN~. 00 NEXT TEST JMP* PTSTND IYES, TURN OFF PI rOF+10 7076~1 ISKIP ON OTF SKP JMP .+3 707561 ISKlp ON ERROR FLAG INO FLAGS, STORE -1 CMA lOR 0 IF ANY FLAG DAC SBRECO JMS ERSTP ISTOP TAPE LAC (MESS15 ITYPE "NO PI" JMS MSPRNT IANY D[CTAPE FLAGS 1St SBRECO IYES JMP PTSTNS+2 PTSTNS LAC (MESS16 ITYPE "NO" JMS MSPRNT LAC (MESS17 JMS MSPRNT ITYpE "OECTAPE SKIp" IS r WATINT CLA!CMA OAC FRS~AT JMP* WATINT SETIDX 0 LAW -6 DAC PICNTR LAC PITBL OAC PIoEX1 LAC PIRTBL DAC PIDEX2 JMPit SETIDX PITBL . + 1 PITBL+20 .LOC PIRTBL .-10 IPROCESSOR TESTS, RUN WHILE WAITING FOR INTERRUPT IISl TEST - 2.6 SECONDS ISlTST CLA!CMA OAC TEST5 OlM TEST2 DlM TEST1 ISl TESTl 1St TEST2 JMP .-2 LAC TEST2 S~A XX CLA!CMA TAO TEST1 SlA XX 1St TEST5 PAGE 21 02'~6,) V!2066 02067 1I!2070 V'211!71 (1)2072 (11;;'073 0?074 Vl2P7S 1I!2076 ~~2~~77 021011! 02101 02102 02103 02104 02 HP:; RANOEX 741000 6020f51 101766 20?2V'J1 744002 7411!0?0 7400H'l 740400 740040 74vHHH 343401 342201 740211!0 740040 442201 602070 HH766 V'J2106 02107 0211V! 02111 02112 02113 0211 4 202201 744000 742010 742020 741400 740040 ~;;'115 02116 02117 02120 02121 02122 02123 343401 342201 740200 740040 442201 602106 101766 02124 !t!2125 02126 02127 02130 02131 02132 02133 142203 2022V'J3 542203 7410\?l0 740040 442203 602125 101766 02134 02135 02136 02137 02140 02141 02142 02143 !t!2144 02145 02146 02147 7762V'J0 042200 777600 V'J42201 203543 042202 202?05 !t!42203 745000 202203 062202 442203 74~011!1 DTRE1e; SKP JMP 15~TST+3 JMS PTSTND /ROTATE 1 TEST - 3.9 SECONDS ROT iTS LAC TEST2 CLL!CML RAR RAL SNL XX CMA TAD ONE TAO TEST2 Si!A XX IS~ TE5T2 JMP ROT1TS JMS PTSTND /ROTATE 2 TEST - 3.9 SECONDS ROT2TS LAC TEST2 CLL RTL RTR Si!L XX CMA TAD ONE TAD TE5T2 S~A XX 15i! TEST2 JMP ROT2TS JMS PTSTND /SAD TEST - 2.1 SECONDS SADTST Di!M TEST4 LAC TEST4 SAD TEST4 SKP XX 15~ TE5T4 JMP SAOTST+l JMS PTSTND /JM5 TEST - 3 SECONDS JMSTST LA~ -1600 OAe TEST1 11600 LOOPS LAW -200 OAC TEST2 /200 JMS • LAC (6000 nAC TEST3 /FIRST ADDRESS OF JMS LAC JMSCON OAC TEST4 SKP!r:LL LAC TE5T4 OAC. TEST3 IS~ TEST4 PAGE DTRE15 22 ~;?15V' 44~20~ 02151 44(>201 ~215~ /S02145 02153 02154 0215'5 0215A 02157 0216V'! 02161 02162 202206 (112t6~ 021"4 02165 02166 02167 02170 02171 02172 02173 ··02174 02175 02176 02177 0220(11 02201 02202 02203 02204 02205 02206 (1162202 606000 7776W0 (1142201 402140 0422912 741000 202202 740001 362202 503375 740200 740040 442202 442201 A021A3 442200 602136 101766 602046 (11000(110 000000 0(;H1000 ""00000 000000 106000 602156 ~2207 0(11~(II00 02210 02211 02212 02213 02214 02215 02216 02217 0222(11 02221 02222 02223 02224 102225 203377 243506 707545 HH701 500000 602336 7500(111 063467 063445 102244 602211 622207 02225 02226 02227 0223(11 02231 02232 02233 02234 00(11(1100 143436 203430 (1143443 203453 503443 150200 602242 1St TEST~ ISiZ TEST2 JMP .-5 LAC RETJMP OAC* TEST3 JMP A000 LAW -2(110 JMPRET DAr: TEST2 XCT JMSTST+4 nAC TEST3 SKP LAC TEST3 CMA TAD* TEST3 AND MASK StA XX ISr TEST3 ISr TEST2 JMP .-10 ISr TEST1 JMP JMSTST+2 JMS PTSTNO JMP ISrTST TEST1 '" TEST2 (1\ TEST3 0 TEST4 '" TEST5 '" JMSCON JMS 6000 RETJMP JMP JMPRET IREWINO ALL SELECTED DRIVES TO REVERSE END tONE REPOSI 0 JMS RSFDRV /RESET POINTERS FOR FIRST DRIVE LAC MOV8AK IGET MORE BACKWARDS XOR UNFUNC ICOMBINE WITH UNIT NUMBER 707545 ICLEAR AND LOAD A JMS WATINT /WAIT 500000 /EXPECT END ~ONE AND EF JMP MOVER IMOVE ERROR (INCORRECT STATUS> CLA!CMA DAC* POSITN IINDICATE END ~ONE lAND BACKWARElS DAC* OIRECT ISET UP NEXT DRIVE JMS CHNGOR IREWIND NEXT DRIVE JMP REPOSI+2 JMP* REPOSI IALl DRIVES IN END tONE, EXIT IRESET CURRENT ORIVE POINTER TO FIRST ORIVE SELECTED RSFORV 0 OtM CDRIVE /tERO CURRENT ORIVE LAC TWOHUN /SET UP COMBIT DAC COMBIT LAC MSBITS AND COMBIT StA!ClA lIS THIS DRIVE SELECTED JMP RSFDRl IYES, SE1pOINTER PAGE 23 RANOEX ClJ2235 ClJ2236 203443 744020 V12237 ~4:\443 ~2?4Vl 443436 ClJ2241 6~?231 0,224(> 02243 1022f3 622225 02244 ~H'l~0(1l0 Vl2245 203443 744020 740400 61212254 10, 222 5 442244 622244 043443 443436 ':>03453 751200 602245 10 22 63 622244 0224fJ 0,2247 02250, 0, 22 5 1 02252 02253 02254 02255 02256 02257 02260 0, 22 6 1 02262 02(>63 02264 02265 1212266 1212267 02270 02271 02272 02273 02274 0,2275 02276 Pl2277 02300 02301 02302 02303 02314 0,2314 02325 02325 02336 02336 1212337 02340, 02341 02342 02343 ~0V'1000 203436 744020 74012120 742020 043506 203436 34230,3 043467 203436 342314 043445 203436 34.2325 043451 622263 0,02304 002315 00('326 10234121 602211 000,000 102726 102734 707572 DTRE15 LAC COMBIT IMOVE nRIVE 81T RIGHT CLL!RAR OAC COMBIT IINCREMENT DRIVE NUMBER ISr CDRIVE JMP RSFORV+4 IHAVE FOUND FIRST DRIVE SELECTED JMS GNPTRS IGENERATE CONTROL POINTERS RSFDRl IEXIT JMP* RSFDRV ISELECT NEXT DRIVE OR RESET TO rIRST AND SKIP Q! CHNGDR IGET DRIVE BIT LAC COMBIT IMOVE RIGHT CLL!RAR SNL ICHECKED ALL DRIVES INO JMP .+4 IYES RESET TO FIRST JMS RSFDRV IINCREMENT IS2 CHNGOR lAND EXIT JMP-o CHNGDR DAC COMBIT ISl CORIVE AND MS8ITS ITHIS DRIVE SELECTED? SNA!CLA INO JMP CHNGDR+l JMS GNPTRS IGENERATE DRIVE" POINTERS IEXIT JMP* CHNGDR IGENER~TE LAST RECMRD, DIRECTION AND UNIT NUMBER IPOINTERS FOR DECTAPE rUNCTIONS GNPTRS IGET DRIVE NUMBER LAC CORIVE '" CLL:RAR RAR RTR IREPOSITION FOR STORAGE lIN UNIT FUNCTION REGISTER DAC UNFUNC LAC CORIVE TAD PNTRS ISET UP POSITION DAC POSITN LAC CDRIVE TAO PNTRS+11 IDIRECTION AND DAC DIRECT LAC CDRIVE TAD PNTRS+22 ILAST RLOCK BLOCK POINTERS DAC LSTBLK JMP-o GNPTRS PNTRS • +1 .+10 .LOC • +1 .+10 .LOC • +1 .+10 .LOC IMOVE ERROR MOVER JMS .+2 JMP R[POSI+2 0, JMS ERSTP ISTOP TAPE ITYPE: OUT HEADER JMS TYMoVE IRE AD ItB" 707572 PAGE 24 RANDEX 02344 02345 1112346 0234 7 02350 02351 02352 102670 203544 tta2633 02353 02354 02355 02356 02357 02360 02361 02362 02363 02364 02365 02366 0 2 367 02370 02371 02372 02373 02374 02375 02376 02377 02400 02401 02402 02403 02404 02405 02406 02407 02410 02411 02412 02413 02414 02415 O2416 02417 02420 02421 02422 02423 02424 02425 02426 02427 000000 203446 754200 740002 2 0 3425 741400 602364 740001 343401 343472 740001 343401 043500 203446 751200 203371 343412 343506 707545 203372 040031 75e001 043434 101701 000100 602503 102441 602412 602412 707554 602402 707552 740001 503432 343371 707544 203472 740001 343401 043500 750001 043434 101701 800100 682562 75~004 751100 74"'040 622340 DTRE15 JMS OPRINT ITYPE OUT A LAC (MESS3 ITYPE "STATUS R" JMS t-1SPRNT LAS SPA!CLA XX JMP* MOV[R+2 ISEARCH ROUTINE - FINO BLOCK INDICATED IBY THE cONTENTS OF "RECORD" IN THE DIRECTION IINDICATED BY "DIRFLG", 0-FWD, -1-8KWD SEARCH 0 LAC DIRFLG S2A!CLA!CLL IFORWARD? INO, BACKWARD CML LAC THREE ICOMPUTE ITURN S~L IAROUND JMP .+3 IPOINT CMA IF OR TAD ONE IDECTAPE TAD RECORD ISEARCH CMA lAND TAD ONE ISTORE DAC TAPONT LAC OIRFLG SNA!CLA IFWD OR BKWD? LAC FTYTHO IBKWD (40'('HUJ) TAD SEAFOR ISEARCH FORWARD TAD UNFUNC ICOMBINE IN UNIT NUMBER ICLEAR AND LOAD HA" 707545 LAC loCON 18LKFNO ISET UP CA DAC CA CLA!CMA OAC RLKFLG ISET UP BLKFLG JMS WATINT IDTF 100 JMP SRE~TS IERROR, SEE Ir END ~ONE JMS SRCONT JMP SRTARN IBLOCK = BLOCK rOUND JMP SRTARN IGONE PAST BLOCK 707544+10 ICLEAR AC, XOR A JMP .-7 IHAVEN'T REACHED BLOCK YET SRTARN IREAD "A" 707552 CMA AND TYTHOU IMOTION BIT TAD FTYTHO 140,000 IXOR "A" (TURN AROUND) 707544 LAC RECORD CMA TAO ONE DAC TAPONT 15ET UP TAPONT CLA!CMA DAC BLKFLG lAND BLKFLG JMS WATINT IWAIT 100 IOTr JMP SRHERR IERROR PAGE :?'; RANnEX 1712 4 30 10?441 ?2431 02432 62? 3') ~~ 60(,')1)2 750001 343434 751201£' 60?'533 707544 6024?5 ~2433 ~2434 02435 0243A 02437 02440 02441 02442 02443 0 2 444 V'l244'5 0244A 02447 02450 02451 02452 1£'2453 02454 02455 02456 02457 02460 02461 02462 02463 02464 02465 02466 02467 0 2 470 02471 02472 02473 02474 02475 02476 1£'2477 02'500 02512'1 ~2502 02503 02504 02505 02'506 17l00GW0 443434 7410V'l0 60 2 461 707552 503371 7502!i'l0 740001 7412'10 343401 343470 740001 343401 343435 7502(110 602562 203435 043470 343500 741200 622441 442441 755100 7400(112 707552 503371 741400 602500 7502CJ10 442441 622441 7512V'l0 442441 622441 707572 742010 7541V'1~ 60?562 ~2'j07 2~B5C'1~ ~2"1C'1 ~2511 74010\11 6~?'515 02512 02'513 02'51 4 343376 7501(110 602530 DTRE15 JMS SRCONT ICHECK RELATION OF' 9LOCK IFOUND ALOCK, rXIT JMP* SEARCH JMP SRHERR CLA!CMA TAD RLKFLG IREAD ? 8LOCK NUMBERS SN.A!CLA IYES, CHANGE TO CONTINUOUS MODE JMP SRCMOD /XOR INTO "A" 6 02'527 k} 2 5 3 0 02')31 02532 V12533 02534 02535 0;:>536 02537 02')40 02541 02542 02543 02544 02t)4t) 02'546 02')47 02550 02551 02552 02553 02554 02555 02556 02557 02'560 liI2561 02562 02563 02564 "'2565 02566 02567 02570 02571 0~57? 02'573 0?'574 02-57'5 0257A 02577 02600 02601 02602 ~ ~~W0\~0 6025A? 602412 443434 602562 602412 203435 740001 34~401 34~472 741100 60:::?543 74(11001 343401 040030 203423 707544 HH7011 000,100 602562 203435 74~HHH 343401 343472 75V120Ql 602'562 203423 707544 6223'53 102726 102743 203472 102670 203545 10(>633 203446 751200 602575 1031(1\0 741000 103H'4 10?714 2034~5 10?670 203546 102633 DT~E1r; lAS RTL RAL SMA!CLA II\J F W FnRMAT TAPE? IYES, TURN AROUNO JMP SRTARN LAC TYTHOU 120,~0Q1 IXOR INTO "A" (GO AGAIN) 707544 IWAIT FOR Et JMS WATINT '50Vl~H~0 IERROR, ENn tONE JMP SRHERR JMP SRTARN ISt RLKFLG INoT FIRST INTERRUpT JMP SRHERR lEt IS ERROR ITURN AROUND JMP SRTARN IFINn DIFFERENCE SRCMOD LAC 8LKFND CMA lIN NUMBER TAO ONE IOF TA[) RECORD IBLOCKS SPA JMP .+3 IMAKE NEGATIVE CMA TAO ONE IF OR WORD COUNT DAC WC LAC TENTHO 110,000 kL~c;47 v'261~ 10;:>633 0;;>613 44~434 02614 74 D'0v'0 '~2A1S 02f-11S 1'(>"'17 ~2b2~ 02621 02622 ~12623 02f24 0262~ 02626 .02627 02630 ?~~ 3 4 ~ 4 10(>6 7 0 ?035,)0 102633 707572 H'J2670 203551 H'l2633 750'-104 751100 740040 443457 02~31 6~H:~361 02632 602354 ~2633 000000 503552 043466 750004 740010 751100 622633 223466 742020 742020 742020 742020 740020 102661 543411 622633 223466 102661 '543411 62;:>633 443466 60(>636 V12634 ?2635 ~2636 02637 02640 02641 0264;:> 02~43 02044 02645 02646 02647 02650 026'51 02652 ~2653 02654 02655 02656 02657 021'6~ ~2b61 (-'I~W0ri'0 0266? 503411 ~2A63 70~4(.'!6 02664 0266'5 02666 02667 7e1~401 61!l?664 700402 622661 DTRE15 CLA~rMA TAD RLKFLG SPA:CLA JMp .+5 LAC PREBLK ITYPE PREVIOUS BLOCK JMS OPRINT LAC (MESS2~ ITYPE "LAST BLOCK" JMS t-1SPRNT 1St 8LKFLG NOP LAC RLKFLG JMS OPRINT ITYPE OUT QUANTITY OF BLOCKS l.AC (MESS21 ITYPE "BLOCKS READ" JMS MSPRNT IRFAD "B" 707572 ITYPE OUT B JMS OPRINT LAC (MESS3 ITypE "STATUS A" JMS MSPRNT LAS /HALT ON ERROR? SPA!CLA IYES XX ISECOND ERROR? 1St PASFLG /YES, REWIND DRIVE JMP REWDRV INO, SEARCH AGAIN JMP SEARCH+1 ITYP[ TEXT ROUTINE MSPRNT ~ AND (7777 DAC PNTR4 LAS RAL SPA!CLA JMP .. MSPRNT LAC .. PNTR4 RTP RTR RTR RTR RAR JMS TYPE SAD RUBOUT ..IMP .. MSPRNT LAC .. PNTR4 JMS TYPE SAO RU80UT JMP .. MSPRNT lS2 PNTR4 JMP MSPRNT+3 TYPE 0 AND qUBOUT TLS TSF JMP .-1 TCF JMP .. TYPE ITYPE OUT CONTENTS OF AC IN OCTAL PAGE 28 R" ~~!1 E'J: DTRE1'5 (i1 OPRINT f!l?t..7() vhhW?0 02671 0?67? 02(,73 04~5""4 [lAC 750CW4 LAS RAL SPA:CLA J"'1P* QPRINT LAW -6 OAr r:NTRl LAC TE"'14 RAL:CLL RAL RTL OAC TE"'14 AND SEVEN XOR ASC I I JMS TYPE LAC TEM4 IStz r:NTR1 J"'1P .-10 JMP* OPRINT ~2('74 02675 0267f, '112677 0(17(1H'I 02701 02702 02703 02704 02705 02706 0,2707 0,2710 02711 Vl2712 02713 02714 02715 02716 02717 0272002721 02722 02723 02724 02725 74r~10 7511V'v) (, 2? 6 7~' 777772 ~43441 203504 744010 74(i1~~1C~ 74?01~ 0435?4 503413 243363 102601 203504 443441 602702 (-2?67~ 00V10~0 CRLF 75001214 740010 7511''10 622714 760215 102661 760212 102661 622714 LAS RAL SPA!CLA JMP* CRLF LAW 215 JMS TYPE LAw 212 JMS TYPE JMP* CRLF ISTOP TAPE ON ERROR, LEAVE FLAGS SET ERSTP 0 IRE"AD "A" 707552 ISTOP AND TYTHOU IDON'T CLEAR DTF AND EF TAO RU80UT 707544 IXOR INTO "Aft JMP* ERSTP ITYPE "MOVE" AND DIRECTION (2] TY"'1oVE JMS TYDRV LAC (MESS22 JMS MSPRNT J"'1S TYOIR JMS CRLF J"'1P* TYMOVE ITYPE SEARCH DIRECTION AND MODE TYSRCH 0 JMS TYDRV JMS cRLF LAC (MESS23 JMS MSPRNT JMS TYDIR JMS TYMODE JMS CRLF" JMP* TYSRCH 02726 02727 02730 0 2 73 1 02732 02733 00000,0 707552 503432 343411 7rtl7544 62?726 02734 "'2735 02736 02737 02740 02741 02742 103040 203553 102633 l030'16 102714 622734 02743 02744 02745 0274(02747 02750 02751 02752 02753 TE"'14 00(110~H~ 00091?(.iJ 103040 102714 203'5")4 n1?633 1031il56 10~070 102714 622743 VI pAGE '29 "'275 4 RA~nEX ~0'~vW0 ~\275" 10311 4 0 ~275f 10?71.4 ~2757 HB020 0276V 103~3fA 02761 10~vJ~6 2 76' 103"70 10(,714 62;:>7'54 tA ~~2763 ~~;:> 764 ,~2765 1':2766 00 ~JI~", r;r. 0 10:~ {' 4 0 0.2767 0277'" 02771 02772 02773 02774 102714 103020 10312134 103056 ~2775 t2?765 10307~ 10'714 02776 ~00000 ~2777 103040 102714 10391?4 1039130 103056 103070 102714 622776 039100 03:HH 03~~0? 12l3;i1 03 03004 031710'3 03006 03007 00"'~1110 03~1Ci'l 103040 102714 103024 103034 1030'36 103070 102714 623007 913011 03?'12 03013 03014 03015 03016 03017 03020 03 0 22 12l3V123 00000.0 2035'35 1 0 2633 623020 ~31l121 ~39!24 "'00000 03025 113'''26 03027 21213556 102633 n2312l24 '13 03~ 000000 03031 203557 102633 623030 03~32 03033 DTRE15 /TYPE "READ nATA" nlREcTION AND MODE ~ TYRDAT JMS TYORV JMS ~RLF JMS TYREAD JMS TYOATA JMS TYOIR JMS TYMODE JMS r;RLF JMP* TYROAT /TYPE "READ ALL" DIRECTION AND MODE 0 TYRALL JMS TYORV JMS CRLF JMS TYREAO JMS TYALL JMS TYDIR JMS TYMOOE JMS CRLF JMP* TYRALL /TYPE "WRITE DATA" DIRECTION AND MODE TYWDAT JMS TYORV '" JMS CRLF JMS TYWRIT JMS TYDATA JMS TYDIR JMS TYMODE JMS CRLF JMP* TYWDAT /TYPE "WRITE ALL" DIRECTION AND MODE TYWALL 0 JMS TvnRV JMS GRLF JMS TYWRIT JMS TYALL JMS TYDIR JMS TYMODE JMS CRLF JMP* TYWALL /TYPE "READ" TYREAD 0 LAC (MESS24 JMS MSPRNT JMP* TYREAn /TYPE I, WR I TE" TYWRIT 0 LAC (MESS25 JMS "1SPRNT JMP* TYWRIT /TYPE "DATA" TYDATA 0 LAC (HESS26 JMS MSPRNT JMP* TYDATA PAGE ~CJI R.llNnEX (Jj~7I34 (,11001~00 5 ;)0356'11 ~1,~ \1\3 v!~~03A 1"'?6~3 Vl3 i1 37 6230,34 V'~V14Vl "'(7)~vl00, "'3~41 7500V!4 (7)30.42 740010 03i'143 03(144 Vl3 ii14 '5 03V146 03V147 1il305CJ1 03051 030'52 03053 03054 03CJ155 (7)3056 03057 (7)306(7) 03061 03062 7511~0, 623040 2CJ1~~5hl 102633 203436 741200 343422 243363 102661 102714 623040 (7)3064 (7J3CJ165 03(7J66 03067 00000(7) 707552 5133371 741200 6030A5 2035A2 7410(7)0 203563 1Vl2633 623056 Vl3070 03(7)71 03072 03Vl73 03Vl74 03075 (7J3076 03(7)77 707552 503423 741200 623070 203564 102633 62307(7) 03HJ0 03HH 03102 03103 0000(7)0 203565 102633 6231(7)0 CJl3104 03105 Vl3106 03107 03110 (7J3111 03112 03113 03114 VlVl0C1l(7J0 2035('6 1 0 2633 623104 21'5212 316317 240324 322301 316323 03CJ163 (7)~.H,!(7)(?\0 DTRE15 ITYP[ "ALL" TYALL ~ LAr (MESS27 JMS '1SPRNT JMP* TYALL ITYPf f1RIVE ANfi NUMBER TynRV ~~ LAS RAL SP.A!CLA JMP* TYDRV LAC (MESS28 JMS MSPRNT LAC CDRIVE SNA TA[1 TEN XQR ASCII JMS TYPE JMS CRLF JMP* TYDRV ITYPE "FORWARD" OR "BACKWARD" TYDIR CIl IREAD "A" 7075'52 AND FTYTHO 1400(7J00 SNA JMP • + 3 LAC (MESS29 IBACKWARD SKP IFORWARD LAC (MESS30 JMS "1SPRNT JMP* TYDIR ITYPE "CONTINUOUS" IF NOT NORMAL MOOr (7) TYMODE IREAD "A" 707552 AND TE~JTHO /1''1000 SNA JMP* TYMODE LAC (MESS31 ITYPE "CONTINUOUS" JMS MSPRNT JMP* TYMODE ITYPE "BACKWARD" TYBKW 0 LAC (MESS29 JMS MSPRNT JMP* TYBKW ITYPE "FORWARD ft TYFWD 0 LAC (MESS3Vl JMS "1SPRNT JMP* TYFWD ICR,LF MESS1 ?15212 IN,O 316317 ISP,T 240324 IR,A 3223~1 IN,S 316323 PAGE 31 RA"JnEx OTRE1':> IP.O IR.T \.13117 3232 4 0 320317 322324 323240 ~312(l1 323~?-; 3233~5 03121 Vl312? 03123 0312 4 03125 ~14305 3143~5 3~n3:?4 3033:?4 3 ;1'5 30 4 3~53C~4 21'3212 215212 3770(1)0 ICR,lF ?403~2 ISP,R Vl311 S 0311f- 0312f- 32?317 ~2?3?4 377~?0 ?4?3V12 31 4 317 03127 0.3130 0,H31 313313 21"'212 ~3132 377000 03133 (1)313 4 03135 0313(03137 03140 03141 03142 03143 03144 0314'5 (l)314A 03147 03150 03151 03152 (1)3153 03154 03155 0315A 03157 1713160 03161 03162 03163 (113164 0316'5 03166 03167 24~~323 ~3170. 03171 03172 03173 3243(/'1 324325 323240 302215 212377 24(1)327 25631113 256215 212377 304301 240305 322322 317322 215212 3770(110 ;:>4030l3 31 7 322 21 t5 212 377000 240311 316303 215212 377000 240301 3043(114 322323 MESS6 MESS7 MEssa 3~3215 24~322 03201 MESS5 306240 311316 ~3203 03200 MESS4 24~317 ~3202 0317» 0317A 1113177 314317 303313 215212 3770(1)0 MESS3 240323 3243~11 212377 303313 32332' 31»240 30»322 322317 322215 212377 ~3174 MESS2 MESS9 MESS10 IS.SP IS.E Il.E IC.T IE.o IR.o. Il.O IC.K ICR.lF' IR. O. /SP,s 3243~1 IT,A 324325 3232417l 302215 212377 240327 25631713 256215 212377 304301 324301 240305 322322 317322 215212 377000 2403(J13 317322 215212 377000 240311 316303 215212 377000 2417l3(1)l 304304 322323 24171317 306240 311316 303215 212377 303313 323325 315240 305322 322317 322215 212377 /T,U IS,SP 18,CR IlF,R.O. ISP,w I,C /,CR IlF,RO /o,A IT,A ISP,[ IR,R IO,R /CR,lF IRa ISP,C IO,R ICR,lF IRa ISP,l IN,C ICR,lF IRa ISP,A 10,0 IR,S ISP,Q IF,Sp 11,N IC,CR /IF,RO IC,K IS,U IM,SP IE,R IR,O IR,CR IlF,RO 240322 ISP,R PAGE 32 RANnEx OTRE1') 03?~4 3~53?6 ~053?6 03;;05 240377 03214 03215 03216 03217 03?2 01 03221 03222 03223 03224 03225 03226 03227 03230 03231 03232 03233 03234 k13?35 03?36 03237 03240 03241 1'J3242 03243 03244 03?45 03246 03247 0325ti1 03251 03252 0.3253 03254 03255 03?56 1713?57 03260 03261 03262 ?4 (71:377 24'~31 4 2563;>0 25A302 ?56215 212377 24013 01 3 310305 303313 2 4 0323 321=;315 377000 ;:>403013 301314 3033?5 3143 0 1 32430.5 304377 215212 320.256 311256 240.377 215212 316317 ;:>40320 256311 256377 240.316 317377 2403"'4 30531713 3243l1'll 320305 240323 313311 320215 212377 24"'302 314317 303313 240.327 301316 324305 304377 240302 31 4 317 ~3?63 30~313 03264 V'l3?65 240306 317325 31fd(l14 215212 377000 240314 301323 Vl320A 03?(II7 "132101 03211 03212 0~~213 03;?6f- 03267 0327111 03271 03272 MESS11 ?5~320 2563~2 256215 212377 IE,V ISP,RO 240314 /. , P I. ,8 I. , CR ILF,RO 24~1303 MESS12 3103l~5 IH,E 303313 240323 325315 3770010 ISP,S IU,M MESS13 301314 3033;:>5 3143""1 324305 304377 MESS14 320256 311256 241?1377 MESS15 316317 240320 2563J1 256377 MESS16 317377 MESS17 MESS18 314317 303313 240327 301316 3243"'5 304377 MESS19 IRO 240303 IA,l ISP,C /C,U Il,A /T,E IO,RO 215212 /CR,LF ISP,RO 215212 ICR,LF IP, • II,. IN,O ISP,P I. , I I. , RO 240316 ISP,N IO,RO ISP,O IE,C IT,A IP,E ISP,S IK, I IP,CR ILF,RO 240302 ISP,B IL,O IC,K ISP,W IA,N IT,E IO,RO 240302 ISP,B IL,O IC,K 314317 303313 240306 317325 316304 215212 377000 IRO 301323 240314 lA,S MESS20 ISP,C IC,K 240304 305303 324301 320305 240323 313311 320215 212377 ISP,L /SP,F IO,U IN,O ICR,LF ISP,L PAGE 33 RANnEX DTRE15 IT,SP /8,C ~3273 324?4~ 32424~ ~3274 3~?,"314 302314 1113/75 03276 03)77 3173!1'3 IO,C 313215 ?1?377 IK,CR ILF,CR ~3304 317303 313215 21?:n7 240302 314317 303313 323240 322305 03305 3013~4 3013~4 IA,O Vl330f, 215212 377000 215212 315317 215212 377000 ICq,LF ~3300 L~3301 03302 ~3303 ;(\3307 033H'I 03311 03312 03313 03314 0~~315 03316 03317 033?0 03321 03322 (113323 03324 0332'5 03326 03327 03330 03331 03332 03333 03334 03335 03336 03337 03340 03341 03342 03343 03344 03345 03346 03347 03350 03351 0335? 03353 03354 0335'5 ~3356 7 03360 03361 (~335 MESS?l 3223~5 315317 3263"'5 24C?1377 MESS23 301322 303310 240377 MESS24 301304 240377 MESS25 311324 305240 3770~0 MESS26 IRO /M,O /V,E ISP,RQ 323305 IA,R /C,H ISP,RO 322305 MESS27 314240 377000 MESS28 215212 304322 3113?6 305240 240377 MESS29 303313 327301 ISP,RO 3273?2 /1.T IE,SP ISP,RQ 301314 Il,SP 316324 311316 325317 325323 IO,A IA,l /CR,lF IO,R II,V IE,SP /SP,RO 302301 ICK IS,A hJ,A IR,D 3770~0 IW,R IRO 215212 /CR,LF ISP,RO 306317 IRdr4 IA,R IO,SP ~ESS31 /R,E IT,A 240377 322327 301322 304240 IS,E IRO 3223~4 MESS30 ICR,LF IA,D 304301 324301 240377 ISP,R /L,Q IC,K IS,SP IR,E ?1~212 MESS22 326~~OI5 240377 3233015 301322 303310 240377 322305 301304 ?4V'!377 327322 311324 305240 377000 304301 324301 240377 301314 314240 377001'" 215212 215212 304322 311326 305240 240377 3023(111 303313 327301 322304 240377 306317 322327 301322 304240 3770"'0 303317 316324 311316 325317 325323 ?4!i'302 31431 7 303313 323240 IRa 303317 IN,T II,N IU,O IU,S /F,O le,o PAGE 34 RANr'lEX 3 6? ?4~~77 v)3363 vV\fl'?A0 '~3 03364 0.0 4 ,377 0~-565 00500V'! ~3~6f, 00?315 '~3367 (~1 t:; 0;q70 '-"05\~00 ~337'1 0401;1(il11 003435 V'lVl1777 ~337? ~n373 03374 03375 0(/1 (,II 0(,11?326 034_0? 017777 7767Vt0 060400 400000 000001 001000 V'!3403 0'-"?304 03404 03405 0044 0 2 003777 004377 03376 "'3377 03400 ~3401 ~3406 03407 03410 03411 03412 03413 03414 03415 03416 03417 03420 03421 03422 03423 03424 0342'5 03426 03427 03430 03431 03432 03433 03434 03435 03436 ~H?J4000 060400 01.30377 021400 00f?1007 000070 ~H!10700 007000 070000 700000 V100077 000010 010000 000037 000003 003000 0130V10 000200 012000 020000 000000 0000V10 000000 00f?1(~(i'l0 03437 00vHHH~ (,113440 vH10000 ~3441 0000Vl~ k13442 03443 03444 03445 03446 (iHiH~000 000000 vH!J0000 000"''''0 000000 DTRE15 24f?1377 /CONSTANTS ASCII ?60 BF1LOC BF2LOC DIRTBL FIFTHO FlVTHO FTYTHO IDCON 8LKF\lD INDEP 1777 LSTTBL MASK 17777 M8LOCK MOVBAK MUCHQI 40Vl000 ONE 1 ONE THO POSTBL RADLOC RBFLOC RBUFND R8UFST REWIND RUROUT SEAFOR SEVEN 7 70 700 7000 70000 /SP,RO RUFFRS-1 ICONSTANT FOR nATA STORE RUFFRS+400 /AODRESS OF SErOND BUFFER PNTRS+12 /DIRECTION TABLE 15~00 /SEARCH TO WRITE CONT 5000 40000 /BACKWARO /MASK FOR BLOCK NUMBER PNTRS+?3 /LAST BLOCK WRITTEN TAALF -1-11~0+1 060400 /-NUMBER OF BLOCKS /MOVE BACKWARDS 1000 PNTRS+l /DRIVE POSITION TABLE AUFFRS+2 /LOCATION -1 OF FIRST DATA WORD (READ ALL) RANBFR-1 RANBFR+377 RANBFR 060400 /MASK FOR 10-17 377 1?!214((10 7000~0 SEVSEv TEN 10 TENTHO TERSE V THREE 3 TRETHO TRTETH TWOHUN TWVTHO TYTHOU /VARIA8LES ACCUM 0 RLKFLG BLKFND CDRIVE CKSUMR CNTR 0 CNTRl 0 COCNTR COMBIT OATASM DIRECT DIRFLG 77 /MASK 10000 37 /CONTINUOUS /MAsK 3000 13000 /SEARCH TO READ '/SEARCH TO READ CONTINUOUS 200 12000 20000 /SEARCH TO READ ALL CONTINUOUS /GO, STOP lAC AT P.I ~ /NUMBER OF BLOCK FOUND /CURRENT DRIVE NUMBER I?! /CALCULATED CHrCKsUM /EXTRA~EOUS COUNTER /CDUNTER FOR OPRINT ~ /COMPARE ERROR FLAG ~ /BIT POSITION FOR TEST AGAINST S.R. o /SAVED DATA SUM ((I /CONTAINS OIRrcTION READ ((I /INDICATES DIRECTION TO GO ((I ((I PAGE 35 RAI\.jDEX ~3447 ~V'r;,~'~0 4 '5 ~~ 0C11~~"'0 034~1 ~H:'l0(?l0\~ ~)45? ;;j;5453 0000.00 000000 0.~~454 000\~00 vB455 0000.00 0j45~ 00(11~V'0 03457 vH~W0"'0 0346~ 0.0.00V'0 03461 0.3462 000rlVl0 r!I\ih'!0C"0. 0~~463 00(l1v'0(1 :;1:~ 03464 034615 03466 03467 03470 03471 03472 03473 03474 03475 1:13476 03477 0.3500 0350 1 03502 03503 03504 03505 03506 0~S'507 00(1!0(iH~ o elliHH'l 0 0V10'1e10 000.000 0000.(il0 000.000 0.0000.0 000000 000.000 00 (iHHHlI 000.000 000000 0.0.0000 000.000 000000 000000 000000 000000 000000 0000t1!0 ~H10000 0.3"10 0.3511 03512 03'513 0.3514 0.3515 03516 03517 03520 03521 03'522 0.3523 03524 03'525 ~'3526 ~3C:;27 03530 (7,3531 03532 03533 V'3534 OTRE15 FRSWAT rWOCHK LSTBLK LSTORV MSBITS NUMBER NUMBLK 08VERS PASrLG PICNTR PIDE X1 PIDE X2 PNTR1 0 PNTR2 0 PNTR3 0 PNTR4 12) POSITN PREBLK RAEFLG RECORD REVCHK RSQFLG SAVNUM SBRECD TALLY 0. TAPONT TEM1 12) TEM2 0 TEM3 0 TE M4 0 TRECTR UNFUNC WTCNTR .END 003110 *L oL 003126 oL 003133 003141 *L oL 003413 oL 003145 oL 003126 003154 *L oL 003160 003164 *L 003126 *L ttL 003133 003141 *L oL 003126 003174 *L 003203 *L 003206 *L oL 003213 003221 *L oL 003126 oL 003133 0 V' 0 0 '" 0 0 0 0 0 0 /FORWARD CHECKSUM /LAST BLOCK WRITTEN POINTER INEGATIVE OF LAST ORIVE SELECTED IHOLO UNIT BITS ISTORE FOR MCOMOR INUMBER OF ALOCKS WITH WHICH TO OPERATE I08VERSE NUMBER IPI COUNTER IPI POINTER (I! IPI POINTER /EXTRAI\JEOUS POINTER IEXTRAI\.jEOUS POINTER IPOINTER FOR MCOMOB IPOINTER FOR MSPRNT' ~ 0. 0 IREAD ALL ERROR FLAG 0. 0 IRE VERSE CHECK FROM TAPE 0. ISTORE NUMBER OF BLOCKS QI ISTATUS OF B 0. ITALLY FOR MCOH08 ITURN AROUND POINT FOR SEARCH 0 ITEMP STORAGE IFOR PATG£N ISUBROUTINE ISTDRAGE FOR OPRINT ICOUNTER FOR WRITE DATA CONTINUOUS 0 IUNIT NUMBER 0 IWAIT COUNTER 0 PAGE 36 RANf)EX DTRE15 73535 00~141 3"\~6 (?3542 03543 03544 (1'3545 601735 003227 003233 003240 003242 006000 003133 0032"52 ~3546 ~03261 "'3547 003271 003300 003133 007777 003310 003314 003320 003323 003327 003332 003335 003343 003350 003355 003343 003350 5I2E=03567 ?3537 C"354V1 V3'541 ~~3S50 03551 03552 03553 03554 03555 V'3556 V'3557 0356~ 03'561 03562 03'563 03564 eJ3565 03566 *L *L *L *L *L *L. *L *L *L *L *L *L *L *L *L *L *L *L *L *L *L *L *L *L *L *L NO ERROR LINES PAGE ACCUM ASC I I AF1LOC RF2LOC RLKFLG ALKFND RUFFRS r;A CALCTY CDRIVE CHNGOR CKSTYP CKSUMR CLOF CLON CLSF CNTR CNTRl COCNTR CODATA COERRO COERR1 COLOOP COMBIT CORT1R CRLF DATASM DIRECT DIRFLG DIRT8L EEM ERRCKS ERRRAR ERSTP EXIST FIFTHO FIVTHO FRSWAT FTYTHO FWDCHK GNPATR GNPTRS IOCON INDEP tREeD JSlTST JMPRfT JMSCON JMSTST KRR KSF LEM LOOP LSTBLK LSTDRV 37 RA~nEx 03433 03363 0331-4 03365 ~3434 03435 ~04400 0121012131 1211653 1213436 02244 "'1647 1213437 712112112104 712112112144 7121012101 03440 1213441 1213442 006?6 1210653 121121673 12112164121 1213443 121121763 1212714 1213444 1213445 1213446 12133f\6 71217702 1211602 1211657 12127?6 1210572 1213367 121337121 03447 1213371 1213450 1210444 1212263 1213372 1213373 1211735 121212146 1212156 02205 1212134 7003t2 7003~1 707704 ~0501 1213451 03452 DTRE1~ PAGE OTRE15 ~8 LSTTqL 03374 MASK MBLOCK: 03376 MCOMOR 00467 MESS1 03110 MESS1 v] ,MESS 11 MESS12 MESS13 MESS14 MESS15 MESS16 MESS17 MESS18 MESS19 MESS2 03203 032')\6 03213 MESS2~ MESS21 M[SS22 MESS23 MESS24 M'[SS25 MESS26 MESS27 MESS28 MESS29 MESS3 MESS30 MESS31 MESSA M£SS5 MESS6 MESS7 MESS8 MESS9 MOFPRO MOFPR1 MOVBAK MOVER MSAITS MSPRNT MUCH0 MVDATA NOOFRD NOTSKP NUMBER NUMBLK OBV[RS ONE ONE THO OPRINT PASFLG PATGEN per PICNTR 03375 ~3221 03227 03233 03240 03242 03252 03261 03126 03271 03300 03310 03314 i2J33?0 .03323 03327 03332 03335 03343 03133 03350 03355 03141 03145 03154 03160 03164 03174 00130 00145 03377 02336 03453 02633 03400 00607 01214 01762 03454 03455 03456 03401 03402 02670 03457 00417 70029.l2 03460 PAGE PIDEX1 PIOEX2 PIRTRL PIT8L PNTRS PNTR1 PNTR2 PNTR3 PNTR4 POSITN POST8L PRE8LK PREGEI\J PSA PS8 PSF PTSTND PTSTNS RADCHK RADLOC RAfFLG RALLTS RAN8FR RANDEX RANDl RAND2 RAND3 RANSEL RA5ERR RBFLOC RBUFND RBUFST RCF RD8UF1 RDCERR RDCMOD RDDATA RDSEQ ROSWCH RDTAR RECORD REPOSI REREAD REREDA RESETO RETJMP REVCHK REWCK REwDRV REWIND ROT1TS ROT2TS RRB RSA RS8 3Q RANnEx 034(,1 03462 02045 020?5 02303 03463 03464 V'l3465 03466 03467 03403 03470 0V'1400 7002~4 700244 700201 01766 02005 01540 03404 03471 01431 ~040~0 00100 00516 00527 00540 00551 01556 034~5 03406 034et7 700102 01117 01314 01221 00253 01070 00123 00211 133472 132207 00272 00325 01721 02206 03473 01034 00361 03410 "'2070 02106 700112 700104 700144 DTRE15 PAGE 40 RU,JD EX RSF 70Q11V'1 RSFORV 0222'5 02242 RSFORl RSQFLG 03474 RUROUT 03411 00525 R1 00536 R2 0~547 R3 SAOTST 02124 SA""ORV 00231 SAVNUIv1 03475 SBR[CO 03476 SEAFOR 03412 SEARCH 02353 SETIOX 02015 SEVEN 03413 SEVSEV 034t21 SRCMOO 02533 SRCONT 02441 SREi!TS 02503 SRFBLK 02461 SRHERR 02562 SRTARN 02412 SWCMOL 01354 SWCMOO 01343 TALLY 03477 TAPONT 035vH' TCF 700402 TEMl 035~1 TEM2 03502 TEM3 03503 TEM4 03504 TEN 03422 TENTHO 03423 TERSE V 03424 TEST1 02200 TEST2 02201 TEST3 02202 TEST4 02203 TEST5 02204 THREE 03425 TLS 700406 TRECTR 03505 TRETHO 03426 TRTETH 03427 TSF 700401 TWO HUN 03430 TWVTHO 03431 TYALL 03034 TY8KW 03100 TYOATA 03030 TYOIR 03056 TYORV 03040 TYfWO 03104 TYMOOE 03070 DTRE15 PAGE TYMOVE TYPE TYRALL TYRDAT TYREAD TYSRCH TYTHOU TYWALL TYWOAT TYWRIT UNFUNC WATINT WG WDGERR WDGMOO WDING WRITE1 WRT1A WSTERR WTCNTR XQRSUM .EOT 41 RANOEX 1212734 ~2661 0:?765 12127~4 03 121 ? 121 1212743 1213432 030~7 02776 03024 035~6 017V11 ~"-'0030 01405 01332 01022 013721 1210775 ~1042 03507 0156121 0000121 DTRtl'; PAGE .EOT WC CA RAr-..:DEx ROSIot4C H MOFP~O ~OFPR1 RDTA8 SA~ORV ROOATA REREAD REREDA REWORV PREGEN PATGEN GNPATR MCOMOB LOOP RAND1 R1 RAND2 R2 RAN03 R3 RANSEL EXIST MVOATA CODATA COLOOP COERRO COERR1 WRITE1 CORT1R WRT1A WDINC REWCK WSTERR RDSEQ RDBUF1 NDOFRD ROC MOD RDCERR WDCMOD SWCMOD SWCMDL WDCERR RALlTS RADCHK RASERR XORSUM ERRCKS CKSTYP CAlCTY ERRRAR WATINT 42 Rf>f\jnEX 000P0 ~00030 000031 0~10Vl 0V'1123 0121130 00145 00211 002;:ril 0121253 00272 003?5 00361 00400 00417 00444 00467 0f'l501 00516 00525 00527 00536 1210540 00547 00551 00572 00607 00626 00640 00653 00673 00721 00763 00775 01022 01034 01042 01070 01117 01214 01221 01314 01332 01343 01354 01405 01431 01540 01556 01560 1211602 01647 01653 01657 01701 DTRE15 PAGE RESETl) IRECO NOTSKP PTSTNf) PTSTNS SETIOX PIT8L PIRT8L IS2TST ROT1TS ROT2TS SAOTST JMSTST JMPRET TEST1 TEST2 TEST3 TEST4 TEST5 JMSCON RETJMP REPOSI RSF"ORV RSF"OR1 CHNGOR GNPTRS PNTRS MOVER SEARCH SRTARN SRCQNT SRF"BLK SRE2TS SRCMOD SRHERR MSPRNT TYPE OPRINT CRLF" ERSTP TYMQVE TYSRCH TYROAT TYRALL TYWOAT TYWALL TYREAO TYWRIT TYI)ATA TYALL TYORV TYI)IR TY~OOE TYAKW TYF"WO 43 RANOEX 017?1 ~1735 01762 "'1766 02005 02015 02025 02045 02046 02070 02106 02124 02134 02156 02200 022"'1 022"'2 022"'3 02204 02205 02206 02207 02225 02242 02244 02263 02303 02336 02353 02412 02441 024f11 025et3 02533 02562 02633 02661 . 02670 02714 02726 02734 02743 02754 02765 02776 03007 03020 03024 03030 03034 03040 03056 03070 03100 03104 OTRE15 PAGE MESS1 MESS2 MESS3 .MESS4 MESS5 MESS6 MESS7 MESS8 MESS9 MESS1Vl MESS11 MESS12 MESS13 MESS14 MESS15 MESS16 MESS17 MESS18 MESS19 MESS20 MESS2i MESS22 MESS23 MESS24 MESS25 MESS26 MESS27 MESS28 MESS29 MESS30 MESS31 ASC I I RF1LOC RF2LOC OIRTBL FIFTHO FIVTHO FTYTHO IOCON INOEP LSTT8L MASK M8LOCK MOVBAK MUCH0 ONF ONfTHO POSTBL RAOLOC RBFLOC RBUFND RBUFST REWIND RUBOUT SEAFOR 44 RANOEX 03110 03126 03133 03141 03145 03154 03160 03164 03174 03203 03206 03213 03221 03227 03233 03240 03242 0·3252 03261 03271 03300 C!t3310 03314 03320 03323 03327 1213332 1213335 1213343 03350 03355 03363 03364 03365 03366 1213367 1213370 1213371 03372 1213373 1213374 03375 03376 03377 034"'0 03401 03402 03403· 03404 03405 03406 03407 121341121 03411 03412 DTRE1e; PAGE 45 SEVEN SEVSEV TEN TENTHO TERSE V THREE TRETHO TRTETH TWOHUf\J TWVTHO TYTHOU ACCUM ALKFLG ALKFNO CDRIVE CKSUMR CNTR CNTR1 COCNTR COMBIT DATASM DIRECT DIRFLG FRSWAT FWDCHK LSTBLK LSToRV MSBITS NUMBER NUMBLK OBVERS PASFLG PICNTR PIDEX1 PIDEX2 PNTR1 PNTR2 PNTR3 PN·TR4 POSITN PREBLK RAEFLG RECORD REVCHK RSQFLG SAVNUM SBRECD TALLY TAPONT TEM1 TEM2 TEM3 TEM4 TRECTR UNFUNC RANDEX 03413 03421 03422 03423 03424 034?5 03426 03427 03430 03431 03432 03433 03434 03435 03436 03437 03440 03441 03442 03443 03444 03445 03446 03447 03450 03451 03452 034'53 03454 03455 03456 03457 03460 03461 03462 03463 03464 03465 03466 03467 03470 03471 03472 03473 03474 03475 03476 03477 03500 03501 03502 035"'3 03504 03505 03506 DTRE15 PAGE 46 RANOEX WTCNTR 03507 RAN8FR vH~4000 RUFFRS eI~44e10 CLSF 700001 CLOF 700004 CLON 700044 RSF 700101 RCF 700102 RSA 700104 RR8 700112 RS8 700144 PSF 700201 PCF 70e1202 . 700204 PSA PSB 700244 KSF 700301 KR8 700312 TSF 700401 TCF 700402 TLS 700406 EEM 707702 LEM 707704 DTRE15 MAIN DEC EVALUATION REQUEST After sufficient familiarization with the operation and documentation of this MAIN DEC, please indicate your assessment of the following areas and return this form to Digital Equipment Corporation. IDENTIFICATION: MAINDEC NO. _ _ _ _ _ _ _ Program Title _ _ _ _ _ _ _ _ _ __ USAGE: Used by: Field Service 0 Production Frequency of Usage: Daily 0 0 Weekly Other_ _ _ _ _ _ _ _ _ _ _ _ _ __ 0 Monthly 0 o SUGGESTIONS FOR IMPROVEMENT 1. Are the program loading and operating instructions: c1ear?O, incomplete? follow?O 0, difficult to 2. Do the error reports and program documentation provide sufficient diagnostic information. in most cases? in very few cases?O. Suggestions for improvement: in all cases? 0, 0, 3. Is the program effective in isolating malfunctions: in all cases?O, in most cases ?D, in ve/Y few cases? O. Would additional Scope loops or Switch Register control be helpful ? _ _ Suggestions for improvement: 4. Does the program ever fail to detect malfunctions exposed by other software ? _ _ _ _ _ _ _ __ Were Margins used? Please describe malfunction in detail: 5. Does the program ever report non-existant malfunctions? _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ __ Please indicate erroneous report and any pertinent operating conditions: 6. Does this MAIN DEC ever expose malfunctions in the Central Processor or other peripheral units not detected by the appropriate MAINDEC?_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _~ Please describe malfunction and MAINDEC(S) used: 7. Does the documentRovide a general understanding of the functional programming requirements of the system? Good ,FairO, Nonen. Would a general description of programming requirements increase t e effectiveness of thi'slAAINDEC? _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ __ Remarks: ......................................................................................... Fold Here ......................................................................................... . ............................................................................ Do Not Tear - Fold Here and Staple .•............................................................... FIRST CLASS PERMIT NO. 33 MAYNARD, MASS. BUSINESS REPLY MAIL NO POSTAGE STAMP NECESSARY IF MAILED IN THE UNITED STATES Postage will be paid by: momoamo Digital Equipment Corporation Diagnostic Programming Group 146 Main Street, Bui Iding 12 Maynard, Massachusetts 01754
Source Exif Data:
File Type : PDF File Type Extension : pdf MIME Type : application/pdf PDF Version : 1.3 Linearized : No XMP Toolkit : Adobe XMP Core 4.2.1-c041 52.342996, 2008/05/07-21:37:19 Producer : Adobe Acrobat 9.0 Paper Capture Plug-in Modify Date : 2016:05:02 15:38:47-07:00 Create Date : 2016:05:02 15:38:47-07:00 Metadata Date : 2016:05:02 15:38:47-07:00 Format : application/pdf Document ID : uuid:ae89e519-f947-0c40-8962-51278036a2f0 Instance ID : uuid:498db54d-2d00-e847-9efb-08c622c4b1d6 Page Layout : SinglePage Page Mode : UseNone Page Count : 65EXIF Metadata provided by EXIF.tools