6   00000   14005             PIVOT TRANSFERS                     BLOCK 00
    00010TR 00810    00       0X OPER. CODE
    00020TR 10430    00       8000 ADD.
    00030TR 01000    00       1X OPER. CODE
    00040TR 10460    00       8001  ADD.
    00050TR 02000    00       2X OPER. CODE
    00060TR 10480    00       8002  ADD.
    00070TR 03000    00       3X OPER. CODE
    00080TR 10500    00       8003  ADD.
    00090TR 04000    00       4X   OPER. CODE
    00100TR 17100    00       INVALID ADD.
    00110TR 17100    00       INVALID CODE
    00120TR 17100    00       INVALID ADD.
    00130TR 06000    00       6X   OPER. CODE
    00140TR 17100    00       INVALID ADD.
    00150TR 07000    00       7X   OPER. CODE
    00160TR 17100    00       INVALID ADD.
    00170TR 08000    00       8X   OPER. CODE
    00180TR 17100    00       INVALID ADD.
    00190TR 09000    00       9X    OPER.
7   00210                     PIVOT TRANS FOR 1X + 6X
    00220TR 01040    00 10 CODE ADD UPPER
    00230TR 01031    00 60 CODE RESET AND UPPER
    00240TR 01270    00 11 CODE SUB UPPER
    00250TR 01261    00 61 CODE RESET SUB UPPER
    00260TR 17100    00       INVALID
    00270TR 17100    00       INVALID
    00280TR 17100    00       INVALID
    00290TR 17100    00       INVALID
    00300TR 01680    00 14 CODE DIVIDE
    00310TR 06040    00 64 CODE DIVIDE + RESET UPPER
    00320TR 01300    00 15 CODE ADD LOWER
    00330TR 01300    00 65 CODE RESET ADD LOWER
    00340TR 01320    00 16 CODE SUB LOWER
    00350TR 01320    00 66 CODE RESET SUB LOWER
    00360TR 01340    00 17 CODE ADD ABS LOWER
    00370TR 01340    00 67 CODE RESET ADD ABS LOWER
    00380TR 01380    00 18 CODE SUB ABS LOWER
    00390TR 01380    00 68 CODE RESET SUB ABS LOWER
    00400TR 01420    00 19 CODE MULT
    00410TR 10000    00 69 CODE LOAD DISTRIBUTOR
    00810CMP50010    01       0X OP CODE
    00820TRE00850    00
    00830TRH17100    00
    00840TR 10000    00       00 NOOP
1   00850SEL 0911    00       01 STOP  TEST PROGRAM RUN
    00860TRS10000    00 OR STOP SWITCH
1   00870SEL 0500    00
    00880WR 16161+00100
    00890TR 16250    00
    01000UNL01030-00101                                           BLOCK 01
    01010SGN80020    01 UPPER ACC
    01020RAD80030    00 UPPER AND LOWER ACC
1   01030TR 14104    00
    01031ST 80030    00 RESET PSEUDO-ACC
1   01040SHR 0010    00       10 AU
    01050ADD80010    00
1   01060LNG 0010    00
    01061UNL80020    08 DEFINE LENGTH OF LOWER ACCUM
    01062ADD80030    00
1   01070SEL 0904    00       OVERFLOW TEST
    01080TRS01180    00
    01090ST 80030    00
    01100SGN80030    01 PUT SIGN OF LOWER ACC
    01110ADM80030    01 ON LOWER ACC
    01120ADM80020    01 AND UPPER ACC
    01130TR 10000    00  RETURN TO INTERP ROUTINE
    01140SGN01130-00401
1   01150SEL 0500    00
    01160WR 16175-00700
    01170TR 16250    00
1   01180SET 0020    00
1   01190SEL 0912    00
    01200TRS01240    00        OVERFLOW SWITCH
    01210RCV01130-00400
    01220TMT51010    01
    01230TR 01090    00
    01240RCV80470    00
    01250TMT51010    01
    01260TR 01090    00
    01261ST 80030    00 RESET PSEUDO-ACC
1   01270SHR 0010    00 61 AND 11 CODE  SUB UPPER
    01280SUB80010    00
    01290TR 01060    00
    01300ADD80010    00 65 AND 15 CODE  ADD LOWER
    01310TR 01070    00
    01320SUB80010    00 66 AND 16 CODE  SUB LOWER
    01330TR 01070    00
    01340LOD80010    01 67 AND 17 CODE  ADD ABS TO LOWER
    01350CMP51090    01
    01360TRH01320    00
    01370TR 01300    00
    01380LOD80010    01 68 AND 18 CODE  SUB ABS LOWER
    01390CMP51090    01
    01400TRH01300    00
    01410TR 01320    00
1   01420SHR 0010    00  19 CODE  MULTIPLY
    01430MPY80010    00
    01440LOD80030    05
    01450TRZ01090    05
1   01460SHR 0010    00
    01470SGN80010    15
    01480SGN80030    01
    01490TRP01600    00
    01500LOD51130    01
    01510ADM80030    01
    01520ADM80010    01
    01530ADM80020    01
    01540ADD80030    00
1   01550SEL 0904    00
    01560TRS01620    00
1   01570LNG 0010    01
    01580ADM80010    15
    01590TR 01090    00
    01600LOD51000    01
    01610TR 01510    00
1   01620SET 0010    00
1   01630LNG 0010    01
    01640ADD80010    00
    01650RCV80470    00
    01660TMT51010    01
    01670TR 01580    00
    01680DIV80010    00       14 DIV
1   01690SEL 0904    00
    01700TRS01150    00       STOP ON DIV. OVERFLOW
    01710NOP06080    00
    01720SGN80030    15
    01730ST 80030    00
1   01740SHR 0118    00
1   01750SET 0010    00
    01760UNL80020    00
    01770ADM80020    15
    01780TR 10000    00
    02000RCV80100-00900                                           BLOCK 02
    02010CMP50020    01
    02020TRE02210    00
    02030TRH02250    00
    02040CMP50010    01
    02050TRE02190    00
    02060TMT80030-00905       20 STL
    02070RCV80010-00900
    02080TMT80100-00905
    02090LOD02090    12
    02100TR 13000    00
    02110LOD80042    04
    02120LOD02120    12
    02130TR 11000    00
    02140UNL02170    04
1   02150SET 0007    00
    02160LOD80070    00
1   02170UNL 0000    00
    02180TR 10000    00
    02190TMT80020-00905       21 STU
    02200TR 02070    00
    02210LOD80030-00404       22 STDA
    02220UNL80010-00404
    02230TMT80010-00905
    02240TR 02090    00
    02250CMP50040    01
    02260TRE02230    00       24 STD
    02270TRH17100    00       INVALID OP
    02280SGN80010    15       23 STIA
    02290LOD80030    04
    02300UNL80010    04
    02310SGN80010    01
    02320ADM80010    15
    02330TR 02230    00
    03000SGN80020    15                                           BLOCK 03
    03010RAD80030    00
    03020LOD80042    15
    03030CMP50050    01
    03040TRE03220    00
    03050TRH03250    00
    03060CMP50010    01
    03070TRE03130    00
    03080TRH17100    00       INVALID INSTRUCTION
    03090UNL03100    15       30 SRT
1   03100SHR 0000    00
1   03110SET 0020    00
    03120SGN80030    01
    03121UNL80030    00
    03122ADM80030    01
    03123ADM80020    01
    03124TR 10000    00
    03130CMP50100-00115       31 SRD
    03140TRE03200    00
    03150UNL03160    15
1   03160RND 0000    00
1   03170SEL 0904    00
    03180TRS03110    00
    03190TR 03110    00
1   03200RND 0010    00
    03210TR 03170    00
    03220UNL03230    15       35 SLT
1   03230LNG 0000    00
    03240TR 03110    00
    03250CMP50060    01
    03260TRH17100    00       INVALID INSTRUCTION
1   03270SEL 0904    00       36 SCT
    03280SUB51140    15
    03290LOD50000    01
1   03300SET 0001    15
    03301NTR03390    00
    03302RAD51170    15
    03303TR 03330    00
    03310NTR03390    00
1   03320SET 0002    15
    03330ST 80030    00
    03340SGN80030    01
    03350ADM80020    01
    03360UNL80030    15
    03370ADM80030    01
    03380TR 10000    00
1   03390LNG 0001    00
    03400ADD51010    15
    03420TRS03440    00
    03430TR 03310    00
    03440NTR03460    00
    03450TR 03330    00
    03460ST 89990    15
1   03470SHR 0002    00
1   03480LNG 0002    00
    03490TRP03520    00
    03500SUB89990    00
    03510TR 01180    00
    03520ADD89990    00
    03530TR 01180    00
    04000CMP50060    01                                           BLOCK 04
    04010TRE04070    00
    04020TRH04130    00
    04030CMP50040    01
    04040TRE04210    00
    04050TRH04240    00
    04060TR 17100    00       INVALID
    04070SGN80030    15       46 BRMIN
    04080ADM80030    15
    04090TRP10000    15
    04100RCV80043-00300
    04110TMT80042-00304
    04120TR 10000    00
    04130CMP50070    01
    04140TRE04160    00
    04150TR 17100    00       INVALID
    04160RAD80470    00       47 BROV
    04170TRZ10000    00
    04180RCV80470    00
    04190TMT51000    01
    04200TR 04100    00
    04210RAD80020    00       44 BRNZU
    04220TRZ10000    00
    04230TR 04100    00
    04240SGN80020    15       45 BRNZ
    04250RAD80030    00
    04260TR 04220    00
    06000UNL06030-00101       6X CODES                            BLOCK 06
1   06010SET 0000    00
1   06020SET 0020    00       RESET ACCUMULATOR
1   06030TR 14109    00
    06040SGN80020    15       64 DIVRU
    06050SGN01710-00415
    06060RAD80030    00
    06070TR 01680    00
1   06080SET 0020    00
    06090ADM01710-00415
    06100TR 01090    00
    07000CMP50010    01 7X OP CODE  COMPARE FOR READ              BLOCK 07
    07010TRE07590    00             OR PUNCH
    07020TRH17100    00 INVALID OP CODE  NOT 70 OR 71
1   07030SEL 0100    00
    07040RD 71000+00100       70 READ
    07041TRS20000    00 END OF JOB
    07050RCV72000+00200 SET MAC 2
    07060TMT72000+01001 LOC OF J
    07070TMT71000+00201 LOC OF LOAD CD IDENT.
    07080LOD72000+00903
    07090ADM72000+00403
    07100RSU72000+00200
    07110TRP90000    00 TO READ MAP - NON LOAD CARD
    07120SGN71000+00201 REMOVE PLUS SIGN - LOAD CODE
    07130LOD71010    01 LOAD COL 80 IN 01
    07140RCV71010    00 SET RECORD MARK
    07150TMT80560-00101
    07160RCV70010-00500 MOVE CARD TO 10 WORD BUFFER
    07170TMT71000+00500 USING WORDS 1 TO 8
    07180UNL70080    01
    07190RCV80043-00300
    07200TMT80042-00304 MOVE D ADDRESS TO I ADDRESS
    07210LOD80042    02 FROM READ MAP - LOD UNITS AND TENS OF D ADDR
    07220CMP50120    02 LOC OF 49
    07230RCV80042-00100 SET MAC 2 TO D ADDR   TENS POS
    07240TRH07570    00
    07250TMT50110-00302 LOC OF 00
    07260LOD80042    04 DATA ADDRESS REGISTER
    07270LOD07270    12 A LOD A
    07280TR 11000    00 CONVERT 650 ADDRESS TO 705
    07290UNL07320    04 UNL D ADDR. REG. INTO RCV XXXX
    07300LOD50110-00104 LOD 0001
    07310ADM07320    04 INCREASE ADDR BY 0001
1   07320RCV 0000    00 SET MAC 2 TO DRUM ADDRESS
1   07321SET 0000    13 SET ASU 13 TO OPERATE LOOP 10 TIMES
1   07330SET 0010    13 TEN ZEROS
    07340LOD80590    04 70.01.0 WITH ASU 05
    07350UNL07400    04 SUPPLY 7.40  WITH WORD 1 ADDRESS
    07360LOD50110    04 LOC OF 0010
1   07400LOD 0000    00 LOAD WORD FROM 10 WORD BUFFER
    07410UNL80100    05 UNL ASU 05 INTO ALPHA REGISTER
    07420SGN80100    15 REMOVE SIGN
    07430ADD80540    05 REMOVE ZONES OF WORD IN ASU 05
    07440CMP80100    05 TEST FOR ZONES ON SAME WORD IN MEM
    07450TRE07530    00 WORD OK  NO ZONES OTHER THAN SIGN
    07460LOD80031    01 LOCATION OF BLANK -- FOR ILLEGAL OP CODE
    07470UNL80070-00601 UNLOAD INTO BETA REGISTER
    07480TMT80070-00607 MOVE CONTENTS OF BETA TO THE DRUM
    07490NTR07510    13 TEST END
    07500TR 10000    00 EXIT TO INTERPRETIVE ROUTINE
    07510ADM07400    04 INCR BY 0010 FOR NEXT WORD OF 10 WORD STOR
    07520TR 07400    00 REPEAT
    07530ADM80100    15 RETURN SIGN
    07540LOD07540    12 A LOD A
    07550TR 13000    00 TO PAC ROUTINE
    07560TR 07480    00 REPEAT
    07570TMT50140-00102 LOC OF 50
    07580TR 07260    00 REPEAT
    07590LOD80042    02 PUNCH ROUTINE
    07600CMP50120    02
    07610RCV80042-00100
    07620TRH07820    00
    07630TMT50150-00102 LOC OF 27
    07640LOD80042    04
    07650LOD07650    12
    07660TR 11000    00 TO CONVERT 650 ADDR TO 705
    07670UNL07740    04
    07680LOD80560    02
    07690ADM07740-00102
    07700LOD50130    04 LOC OF 0007
1   07710SET 0000    13
1   07720SET 0010    13
    07730RCV70010-00900
1   07740LOD 0000    00
    07750UNL80070    07
    07760LOD07760    12
    07770TR 12000    00      TO UNPACK
    07780TMT80100-00905
    07790ADM07740    04
    07800NTR07740    13
    07810TR 95000    00      TO PUNCH MAPPING
    07820TMT50160-00102
    07830TR 07640    00
1   07840SEL 0300    00      RETURN FROM PCH. MAPPING
    07850WR 71000+00100
    07860TR 10000    00
    08000CMP50040    01      84 TLU                               BLOCK 08
    08010TRE08030    00
    08020TR 17100    00      INVALID
    08030RAD80010    05      GET CONTENTS OF DISTR.
1   08031SET 0002    13
    08040LOD80042    13      UNITS AND TENS POS OF D-ADDR
    08050CMP50120    13      LOC OF 49
1   08060SET 0002    00
    08070TRH08480    00
    08080LOD50110-00200      ZEROS
    08090UNL80042    00      IN D-ADDR
    08100LOD80042    04
    08110LOD08110    12      A LOD A
    08120TR 11000    00      TO CONVERT 650 ADDR TO 705
    08130UNL08200    04
    08140LOD51160    00      LOC OF I4
    08150ADM08200    00
    08160LOD50130    04      LOC OF 0007
    08180RAD99930    14      LOC OF +48
    08190RCV80070-00600      BETA REG
1   08200TMT 0000    00
    08210LOD08210    12      A LOD A
    08220TR 12000    00      TO UNPAC
    08230SGN80100    15
    08240CMP80100    05
    08250TRH08400    00
1   08260SET 0004    00
    08270LOD08200    00
1   08280SHR 0003    00
    08290CMP80520    00      LOC OF Z
    08300TRH08311    00
    08310ADD51140    00
1   08311SET 0002    00
1   08320LNG 0003    01
    08321ADD51130    00
    08330DIV51070    00
    08350UNL80030-00400
1   08360SET 0004    13
    08370ADM80030-00413
    08390TR 10000    00
    08400ADM08200    04
    08410SUB51010    14
    08411TRZ08420    14
    08412TR 08190    00
    08420ADM08200    04
    08430ADM08200    04
    08440LOD08200-00301
    08450CMP16160-00601      LOC OF R
    08460TRE17100    00
    08470TR 08180    00
    08480LOD50140    00
    08490SUB51150    13
    08500TR 08090    00
    09000TRZ09100    01      90 BRANCH CODES                           BLOCK 09
    09010UNL09040    01
    09020RAD80010    00
1   09030LNG 0001    00
1   09040SHR 0000    00
1   09050SET 0001    00
    09060CMP50080    00      LOC OF 8
    09070TRE04100    00
    09080TRH10000    00
    09090TR 17100    00      INVALID
1   09100SET 0001    00
    09110LOD80010-00900
    09120TR 09060    00
1   09130RCV 0004    00OSTART - HSK 2                                START
1   09140TMT 0204    00
1   09150SET 0004    00
1   10000SEL 0913    00     HALF CYCLE SWITCH        INTERPRETIVE ROUTINE
    10010TRS16500    00
    10020RCV80051-00300 MOVE I ADDRESS TO
    10021TMT80043-00304 ADDRESS REGISTER
    10022RCV80041-00100 SET MAC 2 TO PROGRAM REGISTER
1   10030SEL 0914    00
    10040TRS16570    00     ADDRESS STOP SWITCH
    10050LOD80051-00301 LOAD HIGH ORDER OF ADDRESS REGISTER
    10060CMP50080    01 COMPARE FOR 8XXX ADDRESS
    10070TRE10390    00 800X TO 8000 ADDRESS ROUTINE
    10080CMP50010    01 LOC OF 1
    10090TRH17100    00 INVALID ADDRESS - GREATER THE 1999
    10100LOD80051    04 LOD ADDR REG IN 04
    10110LOD10110    12 A LOD A
    10120TR 11000    00 OUT - CONVERT 650 ADDR. TO 705
    10130UNL10150    04 RETURN FROM CONVERSION
1   10140SET 0007    00 SET 00 TO LENGTH OF 7
1   10150LOD 0000    00 LOD 650 WORD - IN PAC FORM
    10160UNL80070    00 PLACE IN BETA REGISTER
    10170LOD10170    12 A LOD A
    10180TR 12000    00      TO UNPAC
    10190TMT80100-00905 PUT UNPAC 650 WORD IN PROG. REGISTER - OR DISTR.
    10200NOP10520    00 SWITCH
    10210SGN80043    01 STRIP SIGN OF 650 WORD
    10220LOD80041-00101 LOD 10'S POS OF OP CODE
    10230CMP50010    01 LOC OF 1
    10240TRE10330    00
    10250CMP50060    01 LOC OF 6
    10270TRE10330    00
    10280UNL10300-00101 SET PIVOT TRANSFER
    10290LOD80041    01 LOD UNITS POS OF OP CODE
1   10291SEL 0914    00 TEST FOR ADDRESS STOP
    10292TRS16690    00 ON
    10293LOD80041    01 OFF - LOD UNITS POS. OF OP CODE IN 01
1   10300TR 14009    00    PIVOT
    10330RCV80051-00300
    10340TMT80042-00304    D.A. TO ADDRESS REGISTER
    10350SGN10200-00401 SET SWITCH TO TR
    10360SGN10440-00401 SET SWITCH TO TR
    10370RCV80010-00900 DATA TO DISTRIBUTOR - SET MAC 2
    10380TR 10050    00
    10390LOD80051    01 UNITS OF ADDR. REGISTER - FOR 800X ADDRESS
    10400ADD51010    01 LOC OF +1
    10410UNL10420-00101 SET PIVOT TRANSFER
1   10420TR 14004    00      PIVOT 800X
    10430TMT80000-00905 8000 - SEND STOR ENTRY SWITCHES TO P.R.
    10440NOP10520    00
    10450TR 10210    00
    10460TMT80010-00905      8001
    10470TR 10440    00
    10480TMT80030-00905      8002
    10490TR 10440    00
    10500TMT80020-00905      8003
    10510TR 10440    00
    10520LOD51010    01
    10530UNL10200-00401
    10540UNL10440-00401      RESET NOPS
    10560LOD80041-00101
    10570TR 10280    00
    11000ADD51010    04 CONVERT 650 ADDRESS TO 705 LOC +1         BLOCK 11
    11010ST 80530    04 4 POS BUFFER
    11020RAD51070    00 LOC OF +7
    11030MPY80530    00 CALC 705 ADDRESS
    11040NTR11100    00 TEST FOR 1XXXX ADDRESS
1   11050SET 0004    00
    11060UNL80530    00 PLACE 705 ADDRESS IN 80.53.0
    11070ADM80530-00206 PUT UPPER MEMORY ZONE ON HIGH ORDER POS.
    11080LOD80530    04 LOD CORRECTED ADDRESS IN ASU 04
    11090TR 19000    00 TO SUB ROUTINE OUT
    11100UNL80530    00 PUT 705 ADDRESS IN 80.53.0
    11110TR 11080    00 RETURN FOR EXIT
    12000LOD80070-00601 UNPAC ROUTINE - COMPARE                   BLOCK 12
    12010CMP80080    01 AGAINST BLANK FOR ILLEGAL OP CODE
    12020TRE17100    00
    12040LOD80070-00502 PUT OP CODE IN 02 WITH SIGN
    12050UNL80100-00802 PUT OP CODE IN 80.10.0 - ALPHA REG
1   12060SET 0005    00
    12070LOD80070    00 LOD REMAINDER OF BETA REGISTER
    12080UNL80650-00100
    12090ADD80540    00 LOC MINUS ZERO - STRIP ZONES
    12100UNL80100-00300
    12110SUB80550    00 LOC 111009  TO COMPLEMENT NUMERIC PART
1   12120LNG 0001    00
    12130ADM80650    00 TO UNSIGNED FIELD  ADD COMPLEMENT
    12140LOD80650-00101 LEAVING ZONES OVER CONSTANT 11009
    12150UNL12240-00101 DUMP ZONES INTO INSTRUCTIONS
    12160LOD80650-00201 TO OBTAIN CORRECT ASU
    12170UNL12250-00101
    12180LOD80650-00301
    12190UNL12260-00101
    12200LOD80650-00401
    12210UNL12270-00101
    12220LOD80650-00501
    12230UNL12280-00101
1   12240UNL19899    08 UNLOAD PROPER ASU S
1   12250UNL19903    08 INTO SPECIFIED ADDRESS
1   12260UNL19908    08
1   12270UNL19913    08
1   12280UNL19918    08
    12290TR 99010    00
    13000SGN80100    01 PAC ROUTINE - REMOVE SIGN                 BLOCK 13
    13010ADM80100-00801 STORE SIGN IN D-2
    13020LOD80100    03 LOD 3 TERMINAL DIGITS + CALC ZONES
    13030SUB51100    03 +256
    13040TRP13190    03 OUT ON PLUS
    13050ADD51100    03 +256
    13060SUB51110    03 +64
    13070TRP13210    03
    13080ADD51110    03 +64
    13090SUB51120    03 +16
    13100TRP13230    03
    13110ADD51120    03 +16
    13120SUB51040    03 +4
    13130TRP13250    03
    13140ADD51040    03 +4
    13150TRZ13270    03 NO ZONES
    13160SUB51010    03
    13170ADM80100-00206
    13180TR 13150    00
    13190ADM80100-00606
    13200TR 13030    00
    13210ADM80100-00506
    13220TR 13060    00
    13230ADM80100-00406
    13240TR 13090    00
    13250ADM80100-00306
    13260TR 13120    00
    13270LOD80100-00307 LOD NNNNNNNXXX INTO 07 AND
    13280UNL80070    07 MOVE TO BETA REGISTER
    13290TR 19000    00 TO SUB-ROUT OUT
1   14000SEL 0904    00         NUMERIC TO ALPHA                  BLOCK 14
    14010RCV80070-00400 SET MAC 2 TO BETA REG D5
    14011SGN80100    01 STRIP SIGN OF NUMERIC WORD
    14020RAD80470    00
1   14030SET 0005    00 TO OPERATE LOOP 5 TIMES
    14040LOD80480    04 SET UP LOD INSTR AT
    14050UNL14150    04 14.15.0 WITH ASU 02
    14051LOD50100    04 LOD OF 0002
    14060LOD80100-00901 LOD DIGIT 10 OF NUMERIC
    14070TRZ14180    01 ZERO EQUALS BLANK
    14080ADD51010    01 LOC OF +1
    14090TRS14120    00 OUT ON OVERFLOW
    14100ADM80100-00706 NO OVERFLOW - ADD A-BIT TO D9
    14110TR 14080    00 REPEAT
1   14120SET 0001    01 RESTORE   ASU 01
    14130TMT80100-00801 PUT ALPH. CHAR IN BETA REG
    14140ADM14150    04 ADD 2 TO LOD INSTR
1   14150LOD 0000    00 PICK UP NEXT PAIR FOR CONVERSION AND
    14160UNL80100-00802 DUMP IN HI-ORDER POSITIONS
    14170NTR14060    00 REPEAT 4 TIMES
    14171TR 19000    00 EXIT
    14180TMT80050    01 PUT BLANK IN BETA REG
    14190TR 14140    00 RETURN
    15000RCV80100-00900 ALPHA TO NUMERIC - SET MAC 2              BLOCK 15
    15010LOD80490    04 LOC OF 80.07.0 - 003 - BETA REG
    15020UNL15150    04
    15021LOD50110-00104 LOC OF 0001
    15030RAD51010    00 LOC OF +1
1   15040SET 0005    00
    15050LOD80070-00401
    15060CMP80500    01      R
    15070TRH15220    00
    15080CMP80510    01      I
    15090TRH15280    00
    15100CMP80050    01      BLANK
    15110TRE15300    00
    15120TMT50060    01      6
    15130SGN80070-00401
    15140TMT80070-00401
1   15150LOD         01
    15160UNL80070-00401
    15170ADM15150    04
    15180NTR15050    00
    15190LOD51000    01 PLACE SIGN ON
    15200ADM80100    01 NUMERIC WORD
    15210TR 19000    00      OUT
    15220CMP80520    01      Z
    15230TRH15260    00
    15240TMT50080    01      8
    15250TR 15130    00
    15260TMT50090    01      9
    15270TR 15130    00
    15280TMT50070    01      7
    15290TR 15130    00
    15300TMT50110-00402      00
    15310TR 15150    00
200416000               DIS      DISTRIBIUTOR                     BLOCK 16
201016010               0000000000
200116020
200516030                ACC      ACCUMULATOR
201016040               0000000000
201016050               0000000000
200116060
200616070                P.R.       PROGRAM REGISTER
200216080               00
200116090
200416100               0000
200116110
200416120               0000
200116130               |
201016140               HALF CYCLE
200116141               |
201216150               ADDRESS STOP
200116151               |
201916160               INVALID INSTRUCTION
200116161               |
201316170               650 STOP CODE
200116171               |
200816175               OVERFLOW
200116176               |
200916180               650 ADD.
200416190               0000
200116200
201016210               0000000000
200116220
200416230               WORD
200116231               |
500516240            00       ADD. SELECT SWITCH
    16250RCV16000+00100       DISPLAY 800X
    16260TMT80010-00905
    16270SGN16010    01
    16280UNL16020    01
    16290RCV16030+00100
    16310TMT80010+00105
    16320TMT80020+00105
    16321SGN16050    01
    16330UNL16060    01
    16340RCV16070+00100
    16350TMT80041-00102
    16360RCV16090+00100
    16370TMT80041+00104
    16380RCV16110+00100
    16390TMT80042+00104
    16400WR 16000-00300
    16410NOP16540    00       HALF CYCLE NOP
    16420NOP16650    00       ADDRESS STOP
1   16430HLT 2222    00
    16440TR 10000    00
    16500SGN16410-00414       HALF CYCLE
1   16510SEL 0500    00
    16520WR 16130+00100
    16530TR 16250    00
    16540ADM16410-00414
1   16550HLT 0913    00
    16560TR 10020    00
    16570LOD80043    04       ADDRESS STOP ON I-ADDR.
    16580CMP16240    04
    16590TRE16610    00
    16600TR 10050    00
1   16610SEL 0500    00
    16620WR 16141+00100
    16630SGN16420-00414
    16640TR 16250    00
    16650ADM16420-00414
1   16660HLT 0914    00
    16670NOP16750    00
    16680TR 10050    00
    16690LOD80042    04       ADDRESS STOP ON D-ADDR.
    16700CMP16240    04
    16710TRE16730    00
    16720TR 10293    00
    16730SGN16670-00414
    16740TR 16610    00
    16750ADM16670-00414
    16760TR 10293    00
    16770LOD16190    04       DISPLAY 650 WORD
    16780LOD16780    12
    16790TR 11000    00
    16800UNL16820    04
1   16810SET 0007    00
1   16820LOD 0000    00
    16830UNL80070    00
    16840LOD16840    12
    16850TR 12000    00
    16860SGN80100    15
    16870RCV16200+00100
    16880TMT80100-00905
    16890UNL16220    15
1   16900SEL 0500    00
    16910WR 16180-00800
1   16920HLT 1111    00
    16930LOD16190    04
    16940ADD51010    04
    16941UNL16190    04
    16950TR 16780    00
    16960RCV80100-00900      STORAGE READ IN
    16970TMT16200+00105
    16980LOD16220    01
    16990ADM80100    01
    17000LOD17000    12
    17010TR 13000    00
    17020LOD16190    04
    17030LOD17030    12
    17040TR 11000    00
    17050UNL17080    04
1   17060SET 0007    00
    17070LOD80070    00
1   17080UNL 0000    00
    17090TR 16770    00
1   17100SEL 0500    00      INVALID INSPECTION
    17110WR 16151+00100
    17120TR 16250    00
    19000UNL19030    12          SUBROUTINE OUT
    19010LOD50110    12
    19020ADM19030    12
1   19030TR  0000    00
1   20000HLT 7777    00
200150000               0   UNSIGNED CONSTANTS
200150010               1
200150020               2
200150030               3
200150040               4
200150050               5
200150060               6
200150070               7
200150080               8
200150090               9
200450100               0002
200550110               00010
200250120               49
200450130               0007
200250140               50
200250150               27
200250160               77
200450170               0005
200151000              +0   SIGNED CONSTANTS
200151010              +1
200151020              +2
200151030              +3
200151040              +4
200151050              +5
200151060              +6
200151070              +7
200151080              +8
200151090              +9
200351100              +256
200251110              +64
200251120              +16
200151130              -0
200251140              +10
200251150              +50
200451160               IZI4
200351170              + 00
501070010            00           10 WORD STORAGE
501070020
501070030
501070040
501070050
501070060
501070070
501070080
501070090
501070100
200571000                      80 COL CARD STORAGE
508071010
200171020               |
200172000
201072010                000000 0J
201080000              +0000000000                           STOR ENT SW
201080010              +0000000000                           DISTRIBUTOR
201080020              +0000000000                           UPPER ACCUM
201080030              +0000000000                           LOWER ACCUM
200180031
200280041              +00    OP REG                    PROGRAM REGISTER
200480042              +0000  DATA ADD REG
200480043              +0000  INSTR ADD REG
200180050
200480051                                               ADDRESS REGISTER
200180052
200780070              +0000000                              BETA REGIST
200180080
201080100              +0000000000                           ALPHA REGIS
200180110
200180470              +0        OVERFLOW REG.
3   80480   80100-00802
3   80490   80070-00301
200180500               R
200180510               I
200180520               Z
500480530
200180531
200180540               -
200680550               111009
200280560               #0
200180570               @
200180580               +
3   80590   70010    05
200780650               0000000
500589990            00
    90000RCV72000+00200 TEST FOR LOAD PUNCH IN                    READ MAP
    90001TMT72000+01001 COL 41 - CHECK-OFF TABLE
    90002TMT71000+04101
    90003LOD72000+00903
    90004ADM72000+00403
    90005RSU72000+00200
    90006TRP90009    00
    90007SGN71000+04101
    90008TR 07130    00
1   90009SET 0000    00 READ MAP - SET WORDS 1-2-3-4-5-6
1   90010SET 0100    00 7-8-9-10 TO ZERO
    90020UNL70100    00
1   90030SET 0001    13 LOAD + SIGN IN
    90040LOD80580    13 ASU 13
    90050ADM91410-00413 SET SW TO NOP
    90060RCV70100-00900
    90070LOD71000+04101
    90080CMP50050    01 TEST COL 41 FOR 5
    90090TRE91100    00
    90100SGN91410-00413
    90110CMP72010-00201 TEST COL 41 FOR BLANK
    90120TRE91010    00 OUT ON BLANK
    90140TMT98040    01
    90141CMP98030    01  TEST FOR TYPE 8
    90142TRE90150    00
    90143TMT98030    01  NOT TYPE 8 - TMT 8
    90144TR 90160    00
    90150TMT98040    01  TYPE 8 - TMT 9
    90160SGN71000+04200 TEST SIGN ON 42
    90170TRP90200    00 OUT ON +
    90180TMT98030    01 MINUS
    90190TR 90210    00
    90200TMT98040    01 PLUS
    90210TMT71000+04101
    90220TR 91190    00 CONTINUE CONTROL WORD
1   90250SET 0005    14
    90260LOD71000+04714 WORD 1 COLS 43 TO 47
    90270UNL80070    14
    90280LOD90280    12 CS
    90290TR 15000    00
    90300LOD80100    05
    90310UNL70010    05
    90320LOD71000+05003 WORD 2 COL 48-50
    90330UNL80070-00203
    90340LOD71000+06202 COLS 61-62
    90350UNL80070    02
    90360LOD90360    12 CS
    90370TR 15000    00
    90380LOD80100    05
    90390UNL70020    05
    90400LOD71000+05514 WORD 3 COLS 51-55
    90410UNL80070    14
    90420LOD90420    12 CS
    90430TR 15000    00
    90440LOD80100    05
    90450UNL70030    05
    90460LOD71000+06014 WORD 4 COLS 56-60
    90470UNL80070    14
    90480LOD90480    12 CS
    90490TR 15000    00
    90500LOD80100    05
    90510UNL70040    05
    90520LOD71000+06714 WORD 5 COLS 63-67
    90530UNL80070    14
    90540LOD90540    12 CS
    90550TR 15000    00
    90560LOD80100    05
    90570UNL70050    05
    90580LOD71000+07214 WORD 6 COLS 68-72
    90590UNL80070    14
    90600LOD90600    12 CS
    90610TR 15000    00
    90620LOD80100    05
    90630UNL70060    05
    90639RCV70070-00700 SET UP WORDS 7 - 8 - 9
    90640SGN98050    00
    90650TRP90890    00
1   90660SET 0004    15
    90670LOD98060    15
    90680CMP71000+02615
    90690TRE90830    00
    90700TMT71000+02315
    90710TMT98010    04
    90720TMT98010    02
    90730CMP71000+03615
    90740TRE90850    00
    90750TMT71000+03315
    90760TMT98010    04
    90770TMT98010    02
    90780CMP71000+04015
    90790TRE90870    00
    90800TMT71000+03715
    90810TMT98010    04
    90820TR 07210    00
    90830TMT71000+04404
    90840TR 90710    00
    90850TMT71000+05204
    90860TR 90760    00
    90870TMT71000+05704
    90880TR 90810    00
1   90890SET 0000    15
    90900TR 90830    00
7   91000               SET UP WORD 10  CNTRL INFO
    91010TMT98030    02 LOC OF 89    D10 AND D9
    91020SGN71000+04200
    91030TRP91060    00
    91040TMT98030    01 LOC OF 8   D8
    91050TR 91070    00
    91060TMT98040    01 LOC OF 9   D8
    91070TMT98020    01 LOC OF 0   D7
    91080TR 91190    00
    91100TMT98040    01 LOC OF 9   D10
    91110TMT98030    01 LOC OF 8   D9
    91120SGN71000+04200
    91130TRP91160    00
    91140TMT98030    01 LOC OF 8   D8
    91150TR 91170    00
    91160TMT98040    01 LOC OF 9   D8
    91170TMT71000+04101 LOC OF COL 41   D7
    91190SGN71000+00100
    91200ADM98050    00
    91210TRP91390    00
    91220LOD98060    01 LOC OF BLANK - X IN COL 1 CARDS
    91230CMP71000+02301 PUNCH IN COL 23
    91240TRE91330    00 BLANK IN B3
    91250TMT98030    01 LOC OF 8   D6
    91260CMP71000+03301 PUNCH IN COL 33
    91270TRE91350    00 BLANK IN 33
    91280TMT98030    01 LOC OF 8   D5
    91290CMP71000+03701 PUNCH IN COL 37
    91300TRE91370    00 BLANK IN 37
    91310TMT98030    01 LOC OF 8   D4
    91320TR 91400    00
    91330TMT98040    01 LOC OF 9   D6
    91340TR 91260    00
    91350TMT98040    01 LOC OF 9   D5
    91360TR 91290    00
    91370TMT98040    01 LOC OF 9   D5
    91380TR 91400    00
    91390TMT98040-00203 LOC OF 999   D6 D5 D4
    91400TMT98020    01 LOC OF 0   D3
    91410NOP91431    00 SWITCH FOR TYPE 5
    91420TMT98020    02 LOC OF 00   D2 D1
    91430TR 90250    00 EXIT
    91431LOD98060    01
    91440CMP71000+04801 COMPARE COL 48
    91450TRE91470    00 NO PUNCH IN 48
    91460TR 91420    00 NO PUNCH IN 48
    91470CMP71000+04901 COMPARE COL 49
    91480TRE91420    00 NO PUNCH IN 49
    91490TMT71000+04902 NO PUNCH IN 48 PUNCH IN 49 D 2  D1
    91510TR 90250    00 EXIT
1   95000SET 0005    14                                        PUNCH MAP
    95001LOD98002    01
    95002RCV98002    00
    95003TMT80560-00101
    95004RCV71000+00500
    95005TMT98002-07500
    95006UNL98002    01
    95007UNL71010    01
    95010SGN70100    13
    95020LOD98030    01 LOAD 8
    95030CMP70100-00301
    95040TRE97010    00
    95050LOD70010    05 PUNCH CARD A AND C -- ALPHA
    95060UNL80100    05 WORD IN A REGISTER
    95070LOD95070    12
    95080TR 14000    00
    95090LOD80070    14 IN B REGISTER
    95100UNL71000+04714 PUT IN CARD
    95110LOD70020    05 WORD 2
    95120UNL80100    05
    95130LOD95130    12
    95140TR 14000    00
    95150LOD80070-00203
    95160UNL71000+05003
    95170LOD80070    02
    95180UNL71000+06202
    95190LOD70030    05 WORD 3
    95200UNL80100    05
    95210LOD95210    12
    95220TR 14000    00
    95230LOD80070    14
    95240UNL71000+05514
    95250LOD70040    05 WORD 4
    95260UNL80100    05
    95270LOD95270    12
    95280TR 14000    00
    95290LOD80070    14
    95300UNL71000+06014
    95310LOD70050    05 WORD 5
    95320UNL80100    05
    95330LOD95330    12
    95340TR 14000    00
    95350LOD80070    14
    95360UNL71000+06714
    95370LOD70060    05 WORD 6
    95380UNL80100    05
    95390LOD95390    12
    95400TR 14000    00
    95410LOD80070    14
    95420UNL71000+07214
    95430LOD70090-00404
    95431UNL71000+02004
    95440LOD98030    01
    95441CMP70100-00201
    95442TRE95450    00
    95443SGN70090    01 REMOVE SIGN OF
    95444LOD70090    01 WORD 9 AND PUT TYPE
    95445UNL71000+04101 CODE IN COL 41
    95446LOD98030    01
    95450CMP70100    01 TEST SIGN
    95460TRE95500    00 MINUS
    95470CMP70100-00101 TEST FOR CARD A
    95480TRE95530    00 TO PUNCH CARD A
    95490TR 96010    00
    95500LOD98150    13
    95510UNL71000+04213 COL 42
    95511LOD80580    13
    95520TR 95470    00
    95530RCV71000+00100
    95540CMP70100-00401 FOR X IN COL 1
    95550TRE95610    00 ON X -- MINUS
    95560TMT98070    01 PLUS COL 1 - LOC OF +0
    95570TMT98020-00304 COL 2-5
    95580TMT98021-00304 COL 6-9
    95590TMT98070    01 COL 10
    95600TR 07840    00 RETURN TO BLOCK 7 END OF A
    95610TMT98080    01 COL 1 - MINUS 0
    95620TR 95570    00
7   96000               PUNCH CARD C
    96010RCV71000+00100
    96020CMP70100-00501 TEST SEL PJ 5-6-7-8
    96030TRE96170    00 TO 800X ROUTINE
    96040CMP70100-00401 TEST SIGN IN COL 1
    96050TRE96110    00 TO MINUS IN COL 1
    96060TMT98090    01 LOC +6
    96070TMT98110-00304 LOC 9195
    96080TMT98120-00304 LOC 4195
    96090TMT98130    01 LOC +3
    96100TR 96130    00
    96110TMT98100    01 LOC-6
    96120TR 96070    00
    96130RCV71000+02100
    96140TMT98140-00905 LOC 24    8000
    96150ADM71000+03013 LOC OF + SIGN
    96160TR 96260    00 TO SEL 13-14-15-16
    96170CMP70100-00401 TEST + OR- IN COL 1
    96180TRE96240    00 ON -
    96190TMT98070    01 ON +
    96200TMT98020-00304
    96210TMT98021-00304
    96220TMT98070    01
    96230TR 96260    00
    96240TMT98080    01 MINUS COL 1
    96250TR 96200    00
    96260CMP70100-00901 CONTROL INFO 10
    96270TRE96300    00
    96280LOD70080-00404
    96290UNL71000+02604
    96300CMP70100-00801 CI 9
    96310TRE96340    00
    96320LOD70070-00802
    96330UNL71000+03202
    96331TR 96360    00
    96340LOD80540    13
    96350UNL71000+07313
    96360CMP70100-00701 CI 8
    96370TRE96400    00
    96380LOD70070-00404
    96390UNL71000+03604
    96400CMP70100-00601 CI 7
    96410TRE07840    00 EXIT  RETURN TO BLOCK 7
    96420LOD70070    04
    96430UNL71000+04004
    96440CMP70100    01
    96450TRE96490    00
    96480TR 07840    00 EXIT RETURN TO BLOCK 7 END OF C
    96490LOD80540    13
    96491SGN71000+04001 REMOVE SIGN OF WD 7
    96500ADM71000+04013
    96510TR 07840    00 EXIT RETURN TO BLOCK 7 END OF C
7   97000               PUNCH CARD B
    97010RCV71000+00100 SET MAC 2
    97020TMT70050-00905 MOVE WORD 5 TO 1-10
    97030TMT70060-00905 MOVE WORD 6 TO 11-20
    97040TMT70070-00905 MOVE WORD 7 TO 21-30
    97050TMT70080-00905 MOVE WORD 8 TO 31-40
    97060TMT80580    01 + SIGN IN COL 41
    97070LOD70090-00404 COLS 43-46
    97080UNL71000+04604
    97090RCV71000+05100 SET MAC 2
    97100TMT70090-00902 COLS 51-52
    97110TMT70040-00704
    97120TMT70090-00304
    97130TR 07840    00 EXIT TO BLOCK 7 END OF B
203598000
203598001
201098002
200598010               00000
200598020               00000
200498021               0800
200398030               888
200398040               999
200198050
200498060
200198070              +0
200198080              -0
200198090              +6
200198100              -6
200498110               9195
200498120               4195
200198130              +3
201098140               24    8000
200198150               -
6   98700   19730                          UNPAC 650 DRUM FOR MEM PR
    98701RCV70060+00600
    98710TMT03160-00304
    98720TMT71000-00404
    98721TMT71000-00402
    98730LOD50110    04
1   98740SET 0004    13
    98750LOD50110-00213
1   98760SET 0004    14
    98761LOD98973    14
    98762UNL98810    14
    98770LOD50130    14
1   98780SET 0000    15
1   98790SET 0010    15
    98800RCV70060+01600
1   98810LOD 0007    07
    98820UNL80070    07
    98830LOD98830    12
    98840TR 12040    00
    98850TMT72010-00201
    98860TMT80100-00905
    98870ADM98810    14
    98880NTR98810    15
1   98890SEL 0400    00
    98900WR 70060+00600
    98910ADM70060+00904
    98920CMP70060+00913
    98930TRE98950    00
    98940TR 98780    00
1   98950HLT 9999    00 PRESS 705 START TO
1   98960SEL 0100    00  SELECT CARD READER FOR MEPR PROGRAM TO PRINT
1   98970RD  0000    00  INSTRUCTION AND CONSTANT AREA
1   98971TR  0004    00
200198972               0
200398973               #+7
6   99000   19895                 UNPAC CONTINUED                 BLOCK 99
1   99010RAD19950    03 ADD DECIMAL EQUIVALENTS OF ZONES
1   99020ADD19901    00
1   99030ADD19903    00
1   99040ADD19906    00
1   99050ADD19909    00
1   99060SET 0003    03
    99070UNL80100    03 PLACE 3 TERMINAL DIGITS IN ALPHA REG
    99071SGN80100-00801 MOVE SIGN TO
    99080ADM80100    01 UNITS POSITION
1   99090SEL 0904    00
    99100TRS19000    00
    99110TR 19000    00 EXIT TO SUBROUTINE OUT
6   99550   19956
200199560              +0
200199570              +1
200199580              +2
200199590              +3
200299610              + 0
200299630              + 0
200399660              +  0
200399690              +  0
200299710              + 4
200299730              +16
200399760              + 64
200399790              +256
200299810              + 8
200299830              +32
200399860              +128
200399890              +512
200299910              +12
200299930              +48
200399960              +192
200399990              +768
