,0080121001 IRG MEASUREMENT - WRITE 5500B 0A ,008012,019,026030L0733761001,008012,00110011B361080AB421/340080 1 OF 2 5500B 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 5500B 03 L061S4910012,049L0772772/2772B413 CARD 1 OF 3 5500B 04 ,019026,033,040044,048049/340001 TITLE PRINT ROUTINE CARD 2 OF 3 5500B 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/`99//333080 CARD 3 OF 3 5500B 06 L0313961001B399S691 USE WHEN PROGRAM IS LOADED FROM TAPE 5500B 07 L0314041001BS88 ,, 5500B 08 L0314181001. STOP TO SET UP DR 4 & CHANGE DELAY TIMES5500B 09 L0314191001/332 START TEST 5500B 10 L0314231001/ 5500B 11 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 5500B 12 L0314321001U%U4R REWIND DRIVE 4 5500B 13 L0314371001,199 SET WM TO LIMIT DELAY INSTR 5500B 14 L0314411001B850 BR TO SET INSTR FOR MINIMUM DELAY 5500B 15 L0314451001M091454 SET TAPE WRITE B ADDR TO S40 5500B 16 L0314521001M085088 SET GAP COUNTER TO 001 5500B 17 L0314591001/299 CLEAR PRINT AREA 5500B 18 L0314631001)452 CLEAR WM FROM B ADDR OF TAPE WRITE INST.5500B 19 L0314671001L%U4S40W WRITE FIRST RECORD OF A PAIR 5500B 20 L0314751001B489 VARIABLE DELAY 5500B 21 L0314801001/489200 ,, 5500B 22 L0314871001/489279 ,, 5500B 23 L0314941001Z199200 ,, 5500B 24 L0315011001Z199200 ,, 5500B 25 L0315081001L%U4/19W WRITE SECOND RECORD OF A PAIR 5500B 26 L0315161001B550L BRANCH IF WRITE ERROR 5500B 27 L0315211001N082467 INSTR USED TO INCREASE DELAY FOR 5500B 28 L0315281001N000000 GROUPS 2, 3, AND 4 5500B 29 L0315351001N000000 ,, 5500B 30 L0315421001B5950861 BR TO WR SPACER REC IF LAST GAP OF GROUP5500B 31 L0315501001A082088 ADD 1 TO GAP COUNTER 5500B 32 L0315571001B570B B ON TO VARY LENGTH OF FIRST REC OF PAIR5500B 33 L0315621001B444 BRANCH TO WRITE NEXT PAIR OF RECORDS 5500B 34 L0315691001U%U4B BACKSPACE 5500B 35 L0315741001U%U4B BACKSPACE 5500B 36 L0315791001U%U4E SKIP 5500B 37 L0315841001B444 BRANCH TO WRITE NEXT PAIR OF RECORDS 5500B 38 L0315891001,452 SUBTR 10 FROM B ADDR OF TAPE WRITE TO 5500B 39 L0315931001A094454 INCREASE LENGTH OF FIRST REC OF PAIR 5500B 40 L0316001001B444 BRANCH TO WRITE NEXT PAIR OF RECORDS 5500B 41 L0316041001U%U4B BACKSPACE 5500B 42 L0316091001U%U4E SKIP 5500B 43 L0316141001L%U4/16W WRITE SPACER RECORD 5500B 44 L0316221001B585L BRANCH IF WRITE ERROR 5500B 45 L0316271001B620 BRANCH TO LOAD NEXT TYPE OF DELAY INSTR 5500B 46 L0316391001L/24460 SET UP DELAY INSTR FOR 1 TO 2 MS DLY 5500B 47 L0316461001M531502 ,, 5500B 48 L0316531001M`91611 ,, 5500B 49 L0316601001B426 BRANCH TO WRITE WITH 1 TO 2 MS DLY 5500B 50 L0316691001L/31467 SET UP DELAY INSTR FOR 2 TO 4 MS DLY 5500B 51 L0316761001D498505 ,, 5500B 52 L0316831001M`95611 ,, 5500B 53 L0316901001B426 BRANCH TO WRITE WITH 2 TO 4 MS DLY 5500B 54 L0316991001L/45474 SET UP DELAY INSTR FOR 4 TO 12 MS DLY 5500B 55 L0317061001L ,, 5500B 56 L0317071001L/66522 ,, 5500B 57 L0317141001L ,, 5500B 58 L0317151001L ,, 5500B 59 L0317161001M`99611 ,, 5500B 60 L0317231001B426 BRANCH TO WRITE WITH 4 TO 12 MS DLY 5500B 61 L0317391001M/71506 SET UP DELAY INSTR FOR 12 MS FIXED DLY 5500B 62 L0317461001M/03611 ,, 5500B 63 L0317531001B426 BRANCH TO WRITE WITH 12 MS FIXED DLY 5500B 64 L0317591001L`79488 SET UP DELAY INSTR FOR 5 SEC FIXED DLY 5500B 65 L0317661001L ,, 5500B 66 L0317671001L ,, 5500B 67 L0317681001L ,, 5500B 68 L0317691001,484 ,, 5500B 69 L0317731001D540529 ALTER INSTR IN 523 TO COUNT 10 GAPS 5500B 70 L0317801001D540577 ALTER INSTR IN 523 TO SUBTR 100 FROM 5500B 71 L0317871001M/07611 B ADDR OF TAPE WRITE INSTRUCTION 5500B 72 L0317941001B426 BRANCH TO WRITE WITH 5 SEC FIXED DLY 5500B 73 L0318101001L196479 SET UP INSTR TO BKSP REWRITE 5500B 74 L0318171001L ,, 5500B 75 L0318181001L ,, 5500B 76 L0318191001L ,, 5500B 77 L0318201001L132519 ,, 5500B 78 L0318271001L ,, 5500B 79 L0318281001L ,, 5500B 80 L0318291001M/11611 ,, 5500B 81 L0318361001B426 BR TO BKSP-REWR SECOND RECORD OF PAIR 5500B 82 L0318491001U%U4M WRITE TAPE MARK 5500B 83 L0318541001U%U4R REWIND 5500B 84 L0318591001B348 BRANCH TO LOAD READ PROGRAM 5500B 85 L0318691001L158488 SET UP INSTRUCTIONS FOR MINIMUM DELAY 5500B 86 L0318761001L158 ,, 5500B 87 L0318801001L ,, 5500B 88 L0318811001L ,, 5500B 89 L0318821001L ,, 5500B 90 L0318831001L172522 ,, 5500B 91 L0318901001L172 ,, 5500B 92 L0318941001L ,, 5500B 93 L0318951001D507529 ,, 5500B 94 L0319021001D582577 ,, 5500B 95 L0319091001M`87611 ,, 5500B 96 L0319161001B426 BRANCH TO BEGIN WRITING WITH MINIMUM DLY5500B 97 L031`711001M104109 CONSTANTS TO MODIFY DELAY INSTRUCTIONS 5500B 98 L031`781001A104109 ,, 5500B 99 L031`851001C100107 ,, 5500B100 L031`921001N0B468/ ,, 5500B101 L031/031001B620B650B680B720 UNCONDITIONAL BRANCH INSTRUCTIONS 5500B102 L031/191001B740B791B830 FOR GROUPS 2 TO 7 5500B103 L031/351001IRG( SPACER RECORD TM IN /19 5500B104 L031/391001B555L CONSTANTS TO MODIFY DELAY INSTR 5500B105 L031/441001C199199 ,, 5500B106 L031/511001Z274275 ,, 5500B107 L031/581001/475200 ,, 5500B108 L031/651001A082474 ,, 5500B109 L031/721001A085481 ,, 5500B110 L031/791001A085488 ,, 5500B111 L031/861001B523 ,, 5500B112 L031/991001 5500B113 L03110110011001 CONSTANT 5500B114 L0311051001XXX GAP COUNTER 5500B115 L0311081001S40 CONSTANT - B ADDR OF FIRST TAPE WR INST 5500B116 L0311111001I90 CONSTANT TO SUBTRACT 10 5500B117 L0311141001I00 CONSTANT TO SUBTRACT 100 5500B118 L03111710015000005 CONSTANTS 5500B119 L0311241001XXXXX ,, 5500B120 L03112910011! ,, 5500B121 L0311341001B5231051 CONSTANTS TO MODIFY DELAY INSTR 5500B122 L0311421001U%U4B ,, 5500B123 L0311471001B468 ,, 5500B124 L0311521001B489 ,, 5500B125 L0311571001/489200 ,, 5500B126 L0311641001/489279 ,, 5500B127 L0311711001Z199200 ,, 5500B128 L0311781001N082467 ,, 5500B129 L0311851001N000000 ,, 5500B130 L0311921001N0000 ,, 5500B131 L0311971001M111106 ,, 5500B132 L0312041001A083106 ,, 5500B133 L0312111001B489 ,, 5500B134 L012S501001" GROUP MARK IN S50 5500B135 ,019027,031,038042B031T98"B399L046352BW04BS88 IRG MEASUREMENT - WRITE 5500B136 ,0080121001 IRG MEASUREMENT - READ 5500B 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 5500B 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 5500B 03 L057S4510012,049L0772772/2772)/40/60N/80L/792602/2702413 CARD 1 OF 3 5500B 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 5500B 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 5500B 06 L0313961001B400S691 USE WHEN PROGRAM IS LOADED FROM TAPE 5500B 07 L0314041001BS88 ,, 5500B 08 L0314191001/332 START TEST 5500B 09 L0314231001/ 5500B 10 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 5500B 11 L0314321001U%U4R REWIND DRIVE 4 5500B 12 L0314371001B166 BRANCH TO SET INSTR FOR GROUP 1 5500B 13 L0314411001M090106 SET GROUP COUNTER TO 1 5500B 14 L0314481001M090131 SET GAP COUNTER TO 001 5500B 15 L0314551001M156 SET MIN GAP TO NINES 5500B 16 L0314591001M089 SET MAX GAP TO ZEROS 5500B 17 L0314631001M089 SET TIME FOR A GROUP OF GAPS TO ZEROS 5500B 18 L0314671001M089111 SET DELAY LOOP COUNTER TO ZEROS 5500B 19 L0314741001M159 SET TIME FOR 1 LOOP TO 529 5500B 20 L0314781001B534G G ON IF INDEXING IN THIS SYSTEM 5500B 21 L0314831001B469K TURN OFF EOR INDICATOR 5500B 22 L0314881001N0000 5500B 23 L0314931001B545C C ON IF MODEL IV 5500B 24 L0314981001M096105 SET RDD144 TIME FOR MOD II HIGH DENSITY 5500B 25 L0315051001L%U4S47R READ FIRST RECORD OF A PAIR 5500B 26 L0315131001U%U4A DIAGNOSTIC READ 5500B 27 L0315181001B992K BRANCH IF TAPE MARK IS SENSED 5500B 28 L0315231001V`15110S BRANCH IF NO TM SENSED AFTER 50 MS 5500B 29 L0315311001B594K BRANCH IF TAPE MARK IS SENSED 5500B 30 L0315361001A082111 ADD 1 TO LOOP COUNTER 5500B 31 L0315431001B605K BRANCH IF TAPE MARK IS SENSED 5500B 32 L0315481001B499 BRANCH TO REPEAT LOOP 5500B 33 L0315531001M162109 SET LOOP TIME TO 541 USEC IF INDEXING 5500B 34 L0315601001B464 ,, 5500B 35 L0315641001M093105 SET RDD144 TIME FOR MOD 4 HIGH DEN 5500B 36 L0315711001B486 ,, 5500B 37 L0316021001?158136 SOLVE FOR TIME OF 1 GAP 5500B 38 L0316091001B619 ,, 5500B 39 L0316131001?099136 ,, 5500B 40 L0316201001B619 ,, 5500B 41 L0316241001?102136 ,, 5500B 42 L0316311001A164111 ,, 5500B 43 L0316381001A105136 ,, 5500B 44 L0316451001M089138 MULTIPLY DELAY LOOP COUNTER BY TIME FOR 5500B 45 L0316521001A109136 1 LOOP USING MULTIPLE ADDITION 5500B 46 L0316591001A082138 ,, 5500B 47 L0316661001C138111 ,, 5500B 48 L0316731001B633/ ,, 5500B 49 L0316781001A136118 ADD USEC FOR 1 GAP TO USEC FOR A GRP 5500B 50 L0316851001L123143 FIND MAX GAP 5500B 51 L0316921001S136143 ,, 5500B 52 L0316991001V692143K ,, 5500B 53 L0317071001B699 ,, 5500B 54 L0317111001L136123 ,, 5500B 55 L0317181001L128143 FIND MIN GAP 5500B 56 L0317251001S136143 ,, 5500B 57 L0317321001V725143B ,, 5500B 58 L0317401001B732 ,, 5500B 59 L0317441001L136128 ,, 5500B 60 L0317511001B7611291 BRANCH IF LAST GAP OF THIS GROUP 5500B 61 L0317591001A082131 ADD 1 TO GAP COUNTER 5500B 62 L0317661001B448 BRANCH TO READ NEXT GAP 5500B 63 L0317741001. STOP IF ERROR IN READING SPACER RECORD 5500B 64 L0317751001U%U4B BACKSPACE 5500B 65 L0317801001L%U4S47R READ SPACER RECORD 5500B 66 L0317881001B756L BRANCH IF READ ERROR 5500B 67 L0317931001CS49151 COMPARE READ AREA TO CONSTANT -IRG- 5500B 68 L0318001001B755/ BRANCH IF UNEQUAL 5500B 69 L0318051001/299 CLEAR PRINT AREA 5500B 70 L0318091001L`53212 LOAD GROUP COMMENT IN PRINT AREA 5500B 71 L0318161001L123136 SOLVE FOR & LOAD RANGE IN PRINT AREA 5500B 72 L0318231001S128136 ,, 5500B 73 L0318301001A157135 ,, 5500B 74 L0318371001L147242 ,, 5500B 75 L0318441001E134242 ,, 5500B 76 L0318511001A157122 SOLVE FOR & LOAD MAX IN PRINT AREA 5500B 77 L0318581001L147224 ,, 5500B 78 L0318651001E121224 ,, 5500B 79 L0318721001A157127 SOLVE FOR & LOAD MIN IN PRINT AREA 5500B 80 L0318791001L147230 ,, 5500B 81 L0318861001E126230 ,, 5500B 82 L0318931001A157115 SOLVE FOR & LOAD AVG IN PRINT AREA 5500B 83 L0319001001L147236 ,, 5500B 84 L0319071001E114236 ,, 5500B 85 L0319141001L/98254 LOAD WORD ERROR IN PRINT AREA 5500B 86 L0319211001M332/98 IF ANY ERRORS IN SENSING TAPE MARK 5500B 87 L0319281001B918 BRANCH TO PRINT RESULTS 5500B 88 L0319371001B930S521 PRINT RESULTS IF 1 IN S52 5500B 89 L0319451001.931 STOP TO CHECK RESULTS IF NO PRINTER 5500B 90 L03194910012 PRINT 5500B 91 L0319501001B/801067 BRANCH TO REWIND IF END OF TEST 5500B 92 L0319581001,791 ADD 11 TO A FIELD OF INSTR IN 790 5500B 93 L0319621001A875793 TO LOAD NEXT GROUP COMMENT 5500B 94 L0319691001)791 ,, 5500B 95 L0319731001B9661065 BRANCH IF END OF 5TH GROUP 5500B 96 L0319811001B981 BRANCH TO ADD 1 TO GROUP COUNTER 5500B 97 L0319851001D873738 SET UP INSTR FOR A 10 GAP GROUP 5500B 98 L0319921001D ,, 5500B 99 L0319931001D951665 ,, 5500B100 L031`001001A082106 ADD 1 TO GROUP COUNTER 5500B101 L031`071001B429 BRANCH TO MEAS NEXT GROUP OF GAPS 5500B102 L031`111001C089111 TEST FOR ZEROS IN LOOP COUNTER 5500B103 L031`181001B583/ BR TO SOLVE FOR GAP TIME IF NO ZEROS 5500B104 L031`231001M148/90 FLAG PRINTOUT WITH * ERROR IF TM 5500B105 L031`301001B`22 WAS SENSED BEFORE ANY DELAY LOOPING 5500B106 L031`341001M148/98 FLAG PRINTOUT WITH ERROR * IF NO TM 5500B107 L031`411001M`40/96 WAS SENSED AFTER 50 MS DELAY LOOPING 5500B108 L031`481001B732 ,, 5500B109 L031`521001`53 CONSTANTS 5500B110 L031`551001ERROR ,, 5500B111 L031`621001MINIMUM DLY COMMENT FOR GROUP 1 5500B112 L031`731001 1-2 MS DLY COMMENT FOR GROUP 2 5500B113 L031`841001 2-4 MS DLY COMMENT FOR GROUP 3 5500B114 L031`9510014-12 MS DLY COMMENT FOR GROUP 4 5500B115 L031/061001 12 MS DLY COMMENT FOR GROUP 5 5500B116 L031/171001 5 SEC DLY COMMENT FOR GROUP 6 5500B117 L031/281001MIN & CREEP COMMENT FOR GROUP 7 5500B118 L031/391001WRITE CONDITION CONSTANTS FOR HEADINGS 5500B119 L031/591001MAX MIN AVG RA ,, 5500B120 L031/791001NGE OF GAPS IN MS ,, 5500B121 L016/841001U%U4R REWIND 5500B122 L016/891001B348 BRANCH TO LOAD NEXT PROGRAM 5500B123 L021/991001 BLANKS 5500B124 L0311011001100000001 CONSTANTS 5500B125 L0311101001144216 ,, 5500B126 L0311161001207 ,, 5500B127 L0311191001408 ,, 5500B128 L0311221001XXX RDD144 TIME 5500B129 L0311251001X GROUP COUNTER 5500B130 L0311261001529 TIME FOR 1 DELAY LOOP IN MSEC 5500B131 L0311291001XX DELAY LOOP COUNTER 5500B132 L0311311001XXXXXXX CTR FOR TOTAL USEC OF GAPS IN A GROUP 5500B133 L031138100100000 MAX GAP IN A GROUP 5500B134 L031143100199999 MIN GAP IN A GROUP 5500B135 L0311481001XXX GAP COUNTER 5500B136 L0311511001XXXXX COUNTER FOR USEC OF 1 GAP 5500B137 L0311561001XX COUNTER USED IN MULTIPLE ADDITION 5500B138 L0311581001XXXXX COUNTER USED IN SOLVING FOR MAX & MIN 5500B139 L0311631001 0. CONTROL WORD FOR EDIT 5500B140 L0311671001* CONSTANT 5500B141 L0311681001IRG CONSTANT COMPARED TO SPACER RECORD 5500B142 L031171100199999 CONSTANTS 5500B143 L0311761001529541 ,, 5500B144 L0311821001I9 ,, 5500B145 L0311851001M332/98 SET INSTR TO MEASURE GAPS IN GROUP 1 5500B146 L0311921001D650665 ,, 5500B147 L0311991001D788738 ,, 5500B148 L0312061001D ,, 5500B149 L0312071001M`35793 ,, 5500B150 L0312141001B422 BRANCH TO SET CTRS TO INITIAL COND 5500B151 L014S491001XXX TAPE READ-IN AREA 5500B152 L012S501001" GROUP MARK IN S50 5500B153 ,019027,031,038042B031T98"B400L046352B604BS88 IRG MEASUREMENT - READ 5500B154