,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
