   1   1                   PROGRAM FOR FORTRAN                                    
   2   1                  STATEMENTS TO IT STATEMENTS                             
   3                 BLR   1000   1010                                          
   4                 BLR   1150   1171      FUNCTIONS                           
   5                 BLR   1200   1210      NONARITH T                          
   6                 BLR   1450   1454      EQU VAR TA                          
   7                 BLR   1500   1519      JIBASE TBL                          
   8                 BLR   1600   1699      VARBL TABL                          
   9                 BLR   1821   1830      STARTNARIT                          
  10                 BLR   1900   1930      PACK BAND                           
  11                 BLR   1948   1949                                          
  12                 REG  R1951   1960      READ BAND                           
  13                 REG  P1977   1986      PUNCH BAND                          
  14                 BLR   1990   1998      COMP GP TA                          
  15                 SYN  START   1999                                          
  16                 SYN  RESET   0228                                          
  17                 SYN  STORG   1961                                          
  18                 SYN  SUBSC   1962                                          
  19        START    RCD   1952  RESET      READ FIRST   1999    70  1952  0228
  20        RESET    RAL   1960               CARD       0228    65  1960  0015
  21                 SLT   0001             TEST FOR     0015    35  0001  0021
  22                 NZU  START                          0021    44  1999  0026
  23                 STU  IAD               SUB A        0026    21  0030  0033
  24                 STD  SW4                  SUB  A    0033    24  0036  0039
  25                 STD  SW5                  SUB  A    0039    24  0042  0045
  26                 STD  CTVAR                          0045    24  0048  0001
  27                 LDD  EGHTS                          0001    69  0004  0007
  28                 STD  P0010                          0007    24  1986  0089
  29                 LDD  CNPKA                          0089    69  0092  0095
  30                 STD  SWPKA  PACK                    0095    24  0098  0051
  31        CNPKA    STL  TESTA  SUBA1      SWITCH PKA   0092    20  0047  0000
  32        READ     RAL  IAC                 IS WD END  0050    65  0003  0057
  33                 NZE  AREAD              FRST WD IN  0057    45  0010  0011
  34                 RAL  TEMAE              PACK BAND   0011    65  0014  0019
  35                 SLO  ENDCN               IF NO RD   0019    16  0022  0027
  36                 NZE  AREAD   1830      NEXT CARD    0027    45  0010  1830
  37        ENDCN     00   6575   6400                   0022    00  6575  6400
  38        AREAD    RCD   1951               IF YES     0010    70  1951  0101
  39                 RAL   1960              PUNCH HEDR  0101    65  1960  0065
  40                 SLT   0001              CARD AND    0065    35  0001  0071
  41                 NZU  READ               REINITIA    0071    44  0050  0076
  42                 SLT   0001              LIZE        0076    35  0001  0083
  43                 NZU  PACK                           0083    44  0051  0038
  44                 LDD  CNPKA              PACK SW A1  0038    69  0092  0145
  45                 STD  SWPKA  SWT                     0145    24  0098  0151
  46        SWT      LDD  IN2    TR CA      SUBA         0151    69  0054  0107
  47        TR CA    STD  SW 59                          0107    24  0060  0013
  48                 RAL  TEMAE                          0013    65  0014  0069
  49                 STU  TESTA                          0069    21  0047  0100
  50                 NZE  NZT5   IN2                     0100    45  0104  0054
  51        NZT5     SLT   0002                          0104    35  0002  0061
  52                 NZU  NZT 4  NZT5                    0061    44  0115  0104
  53        PACK     RAL  LTR F                          0051    65  0154  0009
  54                 LDD         TR UC                   0009    69  0012  0165
  55                 STD  TEMPH                          0012    24  0215  0018
  56                 STL  P0006                          0018    20  1982  0035
  57                 AUP  PACKA                          0035    10  0088  0043
  58                 LDD  TJASW  SUB X                   0043    69  0046  0049
  59        SUBA1    LDD  CNPKB               PACK SW A2 0000    69  0053  0006
  60                 STD  SWPKA                          0006    24  0098  0201
  61                 LDD  PACKA                          0201    69  0088  0041
  62                 STD  SW 59                          0041    24  0060  0063
  63                 LDD  SWH                 SWITCH 3   0063    69  0016  0119
  64                 STD  SW 60                          0119    24  0072  0025
  65                 RAU   1960               STATEMENT  0025    60  1960  0265
  66                 STD  P0008                          0265    24  1984  0037
  67                 STL  IAC                            0037    20  0003  0056
  68                 STU  P0009  TRA1B                   0056    21  1985  0138
  69        TRA1B    RAL  TESTA  TR AA                   0138    65  0047  0251
  70        CNPKB    STL  TESTA  SUBA2                   0053    20  0047  0150
  71        SUBA2    ALO  TEMAE  TR AA                   0150    15  0014  0251
  72        TR AA    SLT   0002                 TO TEMP  0251    35  0002  0157
  73                 NZU  NZT 4               TEST 6 CHA 0157    44  0115  0062
  74                 STL  TEMAE  SUB A                   0062    20  0014  0017
  75        NZT 4    SRT   0002               FIVE CHAR  0115    30  0002  0121
  76                 STU  TEMAE                          0121    21  0014  0067
  77                 AUP  IAC                   INDEX    0067    10  0003  0207
  78                 SUP  CNBKB                          0207    11  0110  0315
  79                 NZU         STP R                   0315    44  0169  0020
  80                 AUP  CNBIB                          0169    10  0122  0077
  81                 STU  IAC                   STORE    0077    21  0003  0106
  82                 AUP  CN F1   8003         WORD      0106    10  0059  8003
  83        CN F1    STL   1899  SUB A                   0059    20  1899  0017
  84        SUB A    RAL  TESTA               LT PARNT   0017    65  0047  0301
  85                 SLO  PARNL                          0301    16  0204  0109
  86                 NZE  NZTT                           0109    45  0112  0113
  87                 RAL  ONE    TR  L      ADD TO COU   0113    65  0066  0171
  88        TR  L    ALO  IAD                            0171    15  0030  0085
  89                 STL  IAD    TR  M                   0085    20  0030  0133
  90        NZTT     ALO  PLUS                           0112    15  0365  0219
  91                 NZE  SW 60                          0219    45  0072  0023
  92                 RSL  ONE    TR  L      SUB TO COU   0023    66  0066  0171
  93        TR  M    NZE  NZT9A               SET SW 3   0133    45  0086  0087
  94                 LDD  SWH    TR  N         ON        0087    69  0016  0269
  95        NZT9A    LDD  SW 59  TR  N         OFF       0086    69  0060  0269
  96        TR  N    STD  SW 60  SW 59                   0269    24  0072  0060
  97        TR  O    NZE  NZT10             SW B ON      0200    45  0254  0005
  98                 LDD  ONE               EQUAL OUT    0005    69  0066  0319
  99                 STD  SW4    SW 59                   0319    24  0036  0060
 100        NZT10    ALO  CN A5                          0254    15  0257  0111
 101                 NZE  SW 59                          0111    45  0060  0415
 102                 LDD  ONE               COMMA OUT    0415    69  0066  0369
 103                 STD  SW5    SW 59                   0369    24  0042  0060
 104        SWH      SLO  MULT   TR  O      SUBA         0016    16  0419  0200
 105        IN2      RAL  IAD    TR ML      PARN COUNT   0054    65  0030  0135
 106        TR ML    STU  IAD               ZERO IAD     0135    21  0030  0183
 107                 NZE  STOPA               TEST       0183    45  0136  0137
 108                 RAL  SW4               TEST TYPE    0137    65  0036  0091
 109                 STU  SW4               RESET EQUA   0091    21  0036  0139
 110                 NZE         IN3                     0139    45  0142  0093
 111                 RAL  SW5                            0142    65  0042  0097
 112                 NZE  IN3    IN4        OUT          0097    45  0093  0351
 113        IN3      RAL   1900                          0093    65  1900  0055
 114                 STU  SW5                            0055    21  0042  0195
 115                 SRT   0006               LOOK UP    0195    30  0006  0159
 116                 SLT   0006               FOR        0159    35  0006  0073
 117                 STL  TEMAA                          0073    20  0127  0080
 118                 RAL  CN J1               NON        0080    65  0233  0187
 119                 LDD  TEMAA                          0187    69  0127  0130
 120                 TLU   1200   8002        STATEMEN   0130    84  1200  8002
 121        TR  P    SLO  TEMAA                          0250    16  0127  0031
 122                 SLT   0004               LOOK UP    0031    35  0004  0141
 123                 NZU  STOPB             NZ IS ERRO   0141    44  0245  0096
 124                 SRT   0004   8002      ZT IS OK     0096    30  0004  8002
 125        CN J1    RAL   0000  TR  P      SUBA         0233    65  0000  0250
 126        SCAN     STL  TEMAE                          0300    20  0014  0117
 127                 STD   1992                          0117    24  1992  0295
 128                 LDD  NNAL1                          0295    69  0148  0401
 129                 STD  NN L1                          0401    24  0304  0307
 130                 LDD  SWBA1                          0307    69  0160  0163
 131                 STD  SW BA                          0163    24  0116  0469
 132                 LDD  TJ10B                          0469    69  0172  0075
 133                 STD  TJ 10                          0075    24  0028  0081
 134                 LDD  NZU2A                          0081    69  0034  0237
 135                 STD  NZU2                           0237    24  0040  0143
 136                 LDD  SW OA  TR MT                   0143    69  0146  0099
 137        TR MT    STD  SW 56                          0099    24  0002  0105
 138                 RAU  IAC                            0105    60  0003  0357
 139                 STL  F3                             0357    20  0161  0064
 140                 STD  TEMAC                          0064    24  0167  0070
 141                 LDD  SW BH  TR TN                   0070    69  0123  0126
 142        SW BH    NZU  TR RN  ZT H4                   0123    44  0177  0078
 143        TR RN    ALO  F3                             0177    15  0161  0465
 144                 ALO  ONE                            0465    15  0066  0221
 145                 STL  F3                             0221    20  0161  0114
 146                 RAU   8003  SW 56                   0114    60  8003  0002
 147        SW OA    SUP  DECPT                          0146    11  0149  0103
 148                 NZU         ZT G8                   0103    44  0407  0008
 149                 SUP  TWO 1                          0407    11  0210  0515
 150                 NZU         ZT G9                   0515    44  0519  0120
 151                 SUP  NINE                           0519    11  0222  0227
 152                 NZU         ZT H1                   0227    44  0131  0032
 153                 SUP  ONE 1                          0131    11  0084  0189
 154                 NZU         ZT H2                   0189    44  0193  0044
 155                 SUP  ONE 1                          0193    11  0084  0239
 156                 NZU         ZT N8                   0239    44  0243  0094
 157                 SUP  EIGHT                          0243    11  0196  0451
 158                 NZU         ZT H3                   0451    44  0155  0156
 159                 AUP  PARNL  TR MV                   0155    10  0204  0209
 160        TR MV    STU  TEMAF  TR MW                   0209    21  0164  0217
 161        TR MW    RAL  TEMAC                          0217    65  0167  0271
 162                 SLT   0002                          0271    35  0002  0277
 163                 ALO  TEMAF                          0277    15  0164  0569
 164                 STL  TEMAC  NZTB2                   0569    20  0167  0170
 165        ZT H4    RAL  TEMPF                          0078    65  0181  0185
 166                 SLO  ONE    TR RJ                   0185    16  0066  0321
 167        TR RJ    STL  TEMPF                          0321    20  0181  0134
 168                 STU  TEMAC                          0134    21  0167  0220
 169                 NZE  TX DG                          0220    45  0024  0125
 170                 LDD   1991                          0125    69  1991  0144
 171                 BD1  FLO2   ARITH                   0144    91  0147  0199
 172        ZT H2    RAU  MINUS  TR PN                   0044    60  0197  0501
 173        TR PN    LDD  F3                             0501    69  0161  0214
 174                 STD  OUTP                           0214    24  0267  0270
 175                 LDD  SW PA  TR RP                   0270    69  0173  0176
 176        TR RP    STD  SW 59                          0176    24  0060  0213
 177                 ALO  TEMAA                          0213    15  0127  0231
 178                 SRT   0002                          0231    30  0002  0287
 179                 STL  TEMAA  TR RH                   0287    20  0127  0180
 180        TR RH    RAL  NXTWD                          0180    65  0283  0337
 181                 SLO  ONE                            0337    16  0066  0371
 182                 LDD  NN M1                          0371    69  0074  0327
 183                 SDA  NXTWD  TR PR                   0327    22  0283  0186
 184        TR PR    RAU  TEMAC                          0186    60  0167  0421
 185                 NZU         TR NK                   0421    44  0175  0226
 186                 SRT   0002                          0175    30  0002  0281
 187                 STU  TEMAC                          0281    21  0167  0320
 188                 RAL   8002                          0320    65  8002  0029
 189                 SLT   0002  SW 59                   0029    35  0002  0060
 190        TR NK    STU  TEMAA  NXTWD                   0226    21  0127  0283
 191        NN M1    RAL   0000                          0074    65  0000  0205
 192                 STL  TEMAC  TR RH                   0205    20  0167  0180
 193        ZT G9    RAU  PLUS   TR PN                   0120    60  0365  0501
 194        SW PA    SUP  PARNR                          0173    11  0276  0331
 195                 NZU  NZTI4  ZT I4                   0331    44  0235  0236
 196        ZT I4    AUP   8001                          0236    10  8001  0293
 197                 LDD  OUT1S  TR PS                   0293    69  0246  0249
 198        TR PS    STD  F8                             0249    24  0052  0255
 199                 ALO  TEMAA                          0255    15  0127  0381
 200                 SRT   0002                          0381    30  0002  0387
 201                 STL  TEMAA                          0387    20  0127  0230
 202                 RAL  F3                             0230    65  0161  0565
 203                 SLO  ONE                            0565    16  0066  0471
 204                 STL  F3     F8                      0471    20  0161  0052
 205        OUT1S    RAL  ONE    TR PU                   0246    65  0066  0521
 206        TR PU    ALO  SW 61                          0521    15  0124  0079
 207                 STL  SW 61  TR PR                   0079    20  0124  0186
 208        NZTI4    SUP  ONE 1                          0235    11  0084  0289
 209                 NZU  NZTI5                          0289    44  0343  0194
 210                 RAU  PLUS   TR PV                   0194    60  0365  0619
 211        TR PV    LDD         TR PS                   0619    69  0272  0249
 212                 RSL  SW 61  TR UX                   0272    66  0124  0129
 213        TR UX    BMI  TR PR  ZT L3                   0129    46  0186  0333
 214        NZTI5    SUP  NINE                           0343    11  0222  0377
 215                 NZU  NZTI7                          0377    44  0431  0082
 216                 RAU  MULT                           0082    60  0419  0223
 217                 LDD         TR PS                   0223    69  0326  0249
 218                 RSL  SW 61                          0326    66  0124  0179
 219                 NZE  TR UX  NZTI8                   0179    45  0129  0383
 220        NZTI7    SUP  ONE 1                          0431    11  0084  0339
 221                 NZU  NZTQ5                          0339    44  0393  0244
 222                 RAU  MINUS  TR PV                   0244    60  0197  0619
 223        NZTQ5    SUP  ONE 1                          0393    11  0084  0389
 224                 NZU  NZTJ5                          0389    44  0443  0294
 225                 RAU  DIVID  TR PV                   0294    60  0247  0619
 226        NZTJ5    SUP  SEVEN                          0443    11  0296  0551
 227                 NZU  NZTJ6                          0551    44  0305  0206
 228                 RAU  COMMA  TR PV                   0206    60  0259  0619
 229        NZTJ6    SUP  ONE 1                          0305    11  0084  0439
 230                 NZU  NZTJ7  ZT J7                   0439    44  0493  0344
 231        ZT J7    RAU  PARNL                          0344    60  0204  0309
 232                 LDD         TR PS                   0309    69  0162  0249
 233                 RSL  ONE    TR PU                   0162    66  0066  0521
 234        NZTJ7    SUP  NINE                           0493    11  0222  0427
 235                 NZU  NZTJ8  ZT J8                   0427    44  0481  0132
 236        NZTJ8    AUP  EQUAL                          0481    10  0184  0489
 237                 LDD  TR PR  TR PS                   0489    69  0186  0249
 238        ZT J8    RAU  EQUAL                          0132    60  0184  0539
 239                 LDD  ZT L3  TR PS                   0539    69  0333  0249
 240        NZTI8    LDD  SW PC                          0383    69  0286  0589
 241                 STD  SW 59  TR PR                   0589    24  0060  0186
 242        SW PC    SUP  PARNR                          0286    11  0276  0531
 243                 NZU         ZT I4                   0531    44  0285  0236
 244                 SUP  ONE 1                          0285    11  0084  0639
 245                 NZU  NZTK3                          0639    44  0543  0394
 246                 RAU  PLUS   TR PY                   0394    60  0365  0669
 247        TR PY    LDD         TR PS                   0669    69  0322  0249
 248                 RSU  SW 61                          0322    61  0124  0229
 249                 BMI  TR PR  ZT K4                   0229    46  0186  0433
 250        NZTK3    SUP  CN A5                          0543    11  0257  0211
 251                 NZU  NZTK4                          0211    44  0615  0166
 252                 RAU  MINUS  TR PY                   0166    60  0197  0669
 253        NZTK4    SUP  EIGHT                          0615    11  0196  0601
 254                 NZU  NZTK5                          0601    44  0355  0256
 255                 RAU  COMMA  TR PY                   0256    60  0259  0669
 256        NZTK5    SUP  ONE 1                          0355    11  0084  0689
 257                 NZU  NZT03                          0689    44  0593  0444
 258                 RSL  SW 61                          0444    66  0124  0279
 259                 BMI  ZT J7                          0279    46  0344  0483
 260                 LDD  SW PD                          0483    69  0336  0739
 261                 STD  SW 59  ZT J7                   0739    24  0060  0344
 262        SW PD    SUP  LTR F                          0336    11  0154  0359
 263                 NZU         ZT O2                   0359    44  0263  0264
 264                 AUP   8001                          0263    10  8001  0719
 265                 LDD  SW PH                          0719    69  0372  0225
 266                 STD  SW 59   8001                   0225    24  0060  8001
 267        ZT O2    AUP   8001  TR SB                   0264    10  8001  0571
 268        NZT03    SUP  NINE                           0593    11  0222  0477
 269                 NZU  NZTJ8                          0477    44  0481  0182
 270                 RAU  EQUAL  TR SB                   0182    60  0184  0571
 271        TR SB    SRT   0002                          0571    30  0002  0527
 272                 AUP  TEMAC                          0527    10  0167  0621
 273                 SLT   0002                          0621    35  0002  0577
 274                 STU  TEMAC  TR QC                   0577    21  0167  0370
 275        ZT K4    LDD  OUT4V                          0433    69  0386  0789
 276                 STD  TESTO  TR QA                   0789    24  0192  0345
 277        OUT4V    RAL  F3                             0386    65  0161  0665
 278                 ALO  ONE                            0665    15  0066  0671
 279                 STL  F3     TR QC                   0671    20  0161  0370
 280        TR QC    RAL  OUTP                           0370    65  0267  0721
 281                 ALO  ONE                            0721    15  0066  0771
 282                 STL  OUTP                           0771    20  0267  0420
 283                 RAL  NN M3                          0420    65  0273  0627
 284                 ALO  IAC                            0627    15  0003  0457
 285                 STL  F4      8001                   0457    20  0261  8001
 286        NN M3    RAU   1899                          0273    60  1899  0153
 287                 SRT   0004                          0153    30  0004  0313
 288                 RAL   8002                          0313    65  8002  0821
 289                 NZE         ZT KB                   0821    45  0174  0275
 290                 RAL  F4                             0174    65  0261  0715
 291                 ALO  ONE                            0715    15  0066  0871
 292                 LDD  NN M4                          0871    69  0224  0677
 293                 SDA  F4                             0677    22  0261  0314
 294                 RAL  NN N6                          0314    65  0317  0921
 295                 SLO  F4                             0921    16  0261  0765
 296                 NZE   8001  STOPC                   0765    45  8001  0769
 297        NN M4    STU   0000  TR TZ                   0224    21  0000  0203
 298        TR TZ    RAL  IAC                            0203    65  0003  0507
 299                 ALO  ONE                            0507    15  0066  0971
 300                 STL  IAC    ZT KB                   0971    20  0003  0275
 301        ZT KB    RAL  NXTWD                          0275    65  0283  0437
 302                 ALO  ONE                            0437    15  0066  1021
 303                 LDD  NN M7                          1021    69  0274  0727
 304                 SDA  NXTWD                          0727    22  0283  0436
 305                 LDD  NN MB                          0436    69  0839  0242
 306                 SDA  STORE                          0242    22  0395  0198
 307                 RAU  PARNL                          0198    60  0204  0409
 308                 ALO  TEMAA                          0409    15  0127  0581
 309                 SRT   0002  TR QD                   0581    30  0002  0487
 310        TR QD    STL  TEMAA                          0487    20  0127  0280
 311                 LDD  OUT1V                          0280    69  0533  0486
 312                 STD  TESTO  TR RG                   0486    24  0192  0445
 313        SUB V    RAL  TEMAC                          0350    65  0167  1071
 314                 SLT   0002                          1071    35  0002  0777
 315                 NZU         TR QA                   0777    44  0631  0345
 316                 SRT   0002  STORE                   0631    30  0002  0395
 317        TR QA    RAU  TEMAC                          0345    60  0167  1121
 318                 ALO  TEMAA                          1121    15  0127  0681
 319                 SLT   0002                          0681    35  0002  0537
 320                 STU  TEMAC                          0537    21  0167  0470
 321                 STL  TEMAA  TESTO                   0470    20  0127  0192
 322        OUT1V    RAL  F3                             0533    65  0161  0815
 323                 ALO  ONE                            0815    15  0066  1221
 324                 STL  F3                             1221    20  0161  0364
 325                 SLO  OUTP                           0364    16  0267  1271
 326                 NZE  TR RG  SW QA                   1271    45  0445  0325
 327        NN MB    STL   0000  TR QE                   0839    20  0000  0253
 328        TR QE    STU  TEMAC                          0253    21  0167  0520
 329                 RAL  NXTWD                          0520    65  0283  0587
 330                 ALO  ONE                            0587    15  0066  1321
 331                 STL  NXTWD                          1321    20  0283  0536
 332                 LDD  STORE                          0536    69  0395  0248
 333                 SDA  STORE  TR RG                   0248    22  0395  0445
 334        TR RG    RAL  TEMAA                          0445    65  0127  0731
 335                 NZE  SUB V  NXTWD                   0731    45  0350  0283
 336        SW QA    RAL  OUTP                           0325    65  0267  1371
 337                 ALO  ONE                            1371    15  0066  1421
 338                 STL  OUTP                           1421    20  0267  0570
 337                 RAL  NXTWD                          0570    65  0283  0637
 340                 LDD   8003                          0637    69  8003  0494
 341                 SDA  F7                             0494    22  0297  0400
 342                 LDD  NNM16                          0400    69  0303  0306
 343                 SDA  NXTWD                          0306    22  0283  0586
 344                 LDD  NNM13                          0586    69  0889  0292
 345                 SDA  STORE                          0292    22  0395  0298
 346                 RAL  F4                             0298    65  0261  0865
 347                 LDD  STORE                          0865    69  0395  0348
 348                 SDA  F4                             0348    22  0261  0414
 349                 SLO  F7                             0414    16  0297  0651
 350                 SDA  F7                             0651    22  0297  0450
 351                 LDD  OUT5V                          0450    69  0353  0356
 352                 STD  TESTO                          0356    24  0192  0495
 353                 RAL  TEMAA                          0495    65  0127  0781
 354                 NZE  NZTO5  ZT O5                   0781    45  0234  0335
 355        NZTO5    AUP  PARNR                          0234    10  0276  0831
 355                 SRT   0002                          0831    30  0002  0687
 357                 STD   1993  TR SK                   0687    24  1993  0346
 358        ZT O5    RAL   1992                          0335    65  1992  0347
 356                 NZE         NZTO5                   0347    45  0500  0234
 360                 RSL   8002                          0500    66  8002  0459
 361                 STL  F7                             0459    20  0297  0550
 362                 RAL  TEMAA                          0550    65  0127  0881
 363                 STD   1992  NZTO5                   0881    24  1992  0234
 364        NNM13    STL   0000                          0889    20  0000  0403
 365                 RAL   1993                          0403    65  1993  0397
 366                 NZE         ZT O6                   0397    45  0600  0701
 367                 RAL  F7                             0600    65  0297  0751
 368                 STU   1993                          0751    21  1993  0396
 368                 SLO  ONE                            0396    16  0066  1471
 370                 STL  F7     ZT O6                   1471    20  0297  0701
 371        ZT O6    RAL  F4                             0701    65  0261  0915
 372                 SLO  STORE                          0915    16  0395  0299
 373                 NZE  TR QE  ZT L3                   0299    45  0253  0333
 374        NNM16    RAL   0000  TR SK                   0303    65  0000  0346
 375        TR SK    STL  TEMAA  SUB V                   0346    20  0127  0350
 376        ZT L3    RAL  TEMAE                          0333    65  0014  0819
 377                 NZE         TR RV                   0819    45  0422  0323
 378                 STD  OUTP                           0422    24  0267  0620
 379                 STU  TEMAE  TR RV                   0620    21  0014  0323
 380        TR RV    RAL  OUTP                           0323    65  0267  1521
 381                 LDD  TR MW  TR UD                   1521    69  0217  0670
 382        TR UD    STD  F1                             0670    24  0373  0376
 383                 STL  OUT Q                          0376    20  0931  0284
 384                 LDD         TR MT                   0284    69  0737  0099
 385                 STU  TEMAF                          0737    21  0164  0367
 386                 RAL  F3                             0367    65  0161  0965
 387                 SLO  OUT Q                          0965    16  0931  0385
 388                 NZE  TR MW                          0385    45  0217  0939
 389                 LDD  SW OA                          0939    69  0146  0349
 390                 STD  SW 56  F1                      0349    24  0002  0373
 391        OUT5V    RAL  TEMAA                          0353    65  0127  0981
 392                 NZE  SUB V                          0981    45  0350  0435
 393                 STD   1993                          0435    24  1993  0446
 394                 RAL  F7                             0446    65  0297  0801
 395                 BMI  TR RM                          0801    46  0354  0405
 396                 SLO  ONE                            0405    16  0066  1571
 397                 STL  F7     NXTWD                   1571    20  0297  0283
 398        TR RM    RAU  TEMAC                          0354    60  0167  1721
 399                 SCT   0000                          1721    36  0000  0643
 400                 RAL   8003  STORE                   0643    65  8003  0395
 401        ZT H3    RAU  TEMAF                          0156    60  0164  0869
 402                 SUP  LTR F                          0869    11  0154  0509
 403                 NZU         TR NF                   0509    44  0363  0464
 404                 AUP  SEVEN                          0363    10  0296  0851
 405                 BMI  TR NF                          0851    46  0464  0455
 406                 LDD  SW OE                          0455    69  0058  0311
 407                 STD  SW 56  TR NF                   0311    24  0002  0464
 408        TR NF    RAU  PARNL  TR MV                   0464    60  0204  0209
 409        SW OE    SUP  PARNR                          0058    11  0276  1031
 410                 NZU  NZTH6  TR SQ                   1031    44  0485  0636
 411        NZTH6    AUP   8001  TR MV                   0485    10  8001  0209
 412        TR SQ    AUP   8001                          0636    10  8001  0693
 413                 ALO  SW OA  TR SR                   0693    15  0146  0901
 414        TR SR    STL  SW 56  TR MV                   0901    20  0002  0209
 415        ZT H1    RAU  MULT                           0032    60  0419  0423
 416                 ALO         TR RO                   0423    15  0426  1081
 417                 SUP  MULT                           0426    11  0419  0473
 418                 NZU  TR MZ  TR SF                   0473    44  0827  0128
 419        TR MZ    AUP   8001                          0827    10  8001  0583
 420                 LDD  SW OA  TR SC                   0583    69  0146  0399
 421        TR SC    STD  SW 56   8001                   0399    24  0002  8001
 422        TR SF    RAL  F3     TR SA                   0128    65  0161  1015
 423        TR SA    ALO  ONE                            1015    15  0066  1771
 424                 STL  TEMAE                          1771    20  0014  0417
 425                 LDD  SW BL                          0417    69  0720  0523
 426                 STD  SW 50  TR SO                   0523    24  0476  0329
 427        TR SO    LDD  SW OI  TR SN                   0329    69  0232  0535
 428        TR SN    STD  SW 56  NZTB2                   0535    24  0002  0170
 429        TR RO    LDD  F3                             1081    69  0161  0514
 430                 STD  F6     TR SR                   0514    24  0467  0901
 431        ZT G8    AUP   8001                          0008    10  8001  1065
 432                 ALO         TR RO                   1065    15  0068  1081
 433                 SUP  LTR A                          0068    11  1871  0375
 434                 BMI  TR MZ                          0375    46  0827  0379
 435                 AUP   8001                          0379    10  8001  0585
 436                 SUP  LTR E                          0585    11  0188  0743
 437                 NZU  NZTH6                          0743    44  0485  0398
 438                 AUP   8001                          0398    10  8001  0505
 439                 ALO         TR SR                   0505    15  0108  0901
 440                 SUP  LTR A                          0108    11  1871  0425
 441                 BMI  TR SF  TR SQ                   0425    46  0128  0636
 442        SW BL    NZU  TR RN                          0720    44  0177  0324
 443                 RAL  TEMPF                          0324    65  0181  0635
 444                 SLO  ONE                            0635    16  0066  1971
 445                 NZE  TR RJ                          1971    45  0321  0475
 446                 RAL  ONE                            0475    65  0066  0472
 447                 STD   1992  TR RU                   0472    24  1992  0545
 448        TR RU    ALO  F3     TR SL                   0545    15  0161  1115
 449        TR SL    STL  OUTP                           1115    20  0267  0770
 440                 RAL  F6                             0770    65  0467  0522
 451                 LDD         TR UD                   0522    69  0525  0670
 452                 RAU  TEMAF                          0525    60  0164  0919
 453                 LDD  SW PH  TR RP                   0919    69  0372  0176
 454        SW PH    SUP  MULT                           0372    11  0419  0573
 455                 NZU         ZT N7                   0573    44  0877  0178
 456                 AUP   8001                          0877    10  8001  0633
 457                 SUP  DIVID                          0633    11  0247  0951
 458                 NZU         ZT N7                   0951    44  0555  0178
 459                 AUP   8001  SW PC                   0555    10  8001  0286
 460        ZT N7    AUP   8001  TR PY                   0178    10  8001  0669
 461        ZT N8    RAL  F3                             0094    65  0161  1215
 462                 STD  F6     TR SA                   1215    24  0467  1015
 463        SW OI    SUP  EQUAL                          0232    11  0184  0989
 464                 BMI         NZTB2                   0989    46  0342  0170
 465                 AUP  MULT                           0342    10  0419  0623
 466                 NZU         ZT N6                   0623    44  0927  0278
 467                 SUP  CN A5                          0927    11  0257  0361
 468                 NZU         ZT O4                   0361    44  1265  0216
 469                 SUP   8001                          1265    11  8001  0572
 470                 NZU         ZT N5                   0572    44  0575  0526
 471                 AUP  ONE 1                          0575    10  0084  1039
 472                 NZU         ZT Q4                   1039    44  0793  0544
 473                 AUP  PLUS                           0793    10  0365  0969
 474                 NZU  ZT Q4  ZT O1                   0969    44  0544  0374
 475        ZT Q4    RAL  F3     TR UY                   0544    65  0161  1315
 476        TR UY    SUP  SW 61                          1315    11  0124  0429
 477                 BMI  NZTB2  TR SL                   0429    46  0170  1115
 478        ZT O1    LDD         TR SN                   0374    69  0977  0535
 479                 SUP  LTR A                          0977    11  1871  0625
 480                 BMI  TR RY                          0625    46  0328  0479
 481                 AUP   8001                          0479    10  8001  0685
 482                 SUP  LTR E                          0685    11  0188  0843
 483                 NZU  NZTB2                          0843    44  0170  0448
 484                 LDD  TR SO  TR SN                   0448    69  0329  0535
 485        TR RY    AUP   8001  TR SM                   0328    10  8001  0735
 486        TR SM    LDD  SW OI  TR SC                   0735    69  0232  0399
 487        ZT N6    LDD  SW JA                          0278    69  1131  0334
 488                 STD  SW 56                          0334    24  0002  0605
 489                 RSL  ONE    TR SP                   0605    66  0066  0622
 490        TR SP    ALO  SW 61                          0622    15  0124  0529
 491                 STL  SW 61  NZTB2                   0529    20  0124  0170
 492        SW JA    SUP  LTR A                          1131    11  1871  0675
 493                 BMI  TR RY  ZT Q4                   0675    46  0328  0544
 494        ZT N5    RAL  ONE    TR SP                   0526    65  0066  0622
 495        ZT O4    LDD         TR SN                   0216    69  1019  0535
 496                 STU  TEMAF                          1019    21  0164  0517
 497                 SUP  MULT                           0517    11  0419  0673
 498                 NZU         TR UV                   0673    44  1027  0378
 499                 RSL  SW 61                          1027    66  0124  0579
 500                 BMI         TR SD                   0579    46  0282  0683
 501                 RAU  TEMAF  TR SM                   0282    60  0164  0735
 502        TR UV    RAL  SW 61                          0378    65  0124  0629
 503                 BMI  TR SD  TR SO                   0629    46  0683  0329
 504        TR SD    RSL  ONE    TR RU                   0683    66  0066  0545
 505        NN M7    RAL   0000  TR QD                   0274    65  0000  0487
 506        NN N6    STU   1931  TR TZ                   0317    21  1931  0203
 507        IN4      LDD  NINE   TR SH                   0351    69  0222  0725
 508        TR SH    STD   1991  SCAN                    0725    24  1991  0300
 509        ARITH    RAL  FIVE   RITH1                   0199    65  0102  0557
 510        RITH1    STU  TEMAB                          0557    21  0212  1365
 511                 AUP  TX DB                          1365    10  0118  0723
 512                 LDD  ZT C5  FLO 1                   0723    69  0576  0679
 513        FLO 1    STD  SW 62                          0679    24  0332  0785
 514                 STL  IAE                            0785    20  1089  0392
 515                 STU  SW 59                          0392    21  0060  0413
 516                 LDD  TX DE                          0413    69  0266  1069
 517                 STD  SW 60                          1069    24  0072  0775
 518                 LDD  SW FA                          0775    69  0428  1181
 519                 STD  SW 54                          1181    24  0384  0787
 520                 RAU  FOUR                           0787    60  0090  0595
 521                 STL  IAI                            0595    20  0449  0152
 522                 ALO  TX DL                          0152    15  0655  0559
 523                 LDD  SW BA  TR TN                   0559    69  0116  0126
 524        TR TN    STD  SW 50                          0126    24  0476  0729
 525                 STL  SW 61                          0729    20  0124  1077
 526                 STU  TEMPF                          1077    21  0181  0434
 527                 LDD  NN L1                          0434    69  0304  0607
 528                 STD  NXTWD  TX DG                   0607    24  0283  0024
 529        TX DG    RAL  NXTWD             WORD TO AC   0024    65  0283  0837
 530                 ALO  ONE               MODIFY NEX   0837    15  0066  0672
 531                 STL  NXTWD   8002       WORD ADDR   0672    20  0283  8002
 532        TR JM    SLT   0002                          0650    35  0002  0657
 533                 STL  TEMAA                          0657    20  0127  0330
 534                 RAU   8003  SW 50                   0330    60  8003  0476
 535        NZTAT    SUP  COMMA             TEST FOR     0700    11  0259  0463
 536                 NZU         TX DM       COMMA       0463    44  0567  0168
 537                 AUP  PLUS              TEST FOR     0567    10  0365  1119
 538                 NZU         TX DA       DECIMAL P   1119    44  0773  0424
 539                 SUP  ONE 1             TEST FOR     0773    11  0084  1139
 540                 NZU         SW 59       RIGHT PAE   1139    44  0893  0060
 541                 SUP  ONE 1             TEST FOR     0893    11  0084  1189
 542                 NZU         TX DJ       PLUS SIGN   1189    44  0943  0594
 543                 SUP  NINE              TEST FOR     0943    11  0222  1127
 544                 NZU         TX DC       MULT SIGN   1127    44  1231  0382
 545                 SUP  ONE 1             TEST FOR     1231    11  0084  1239
 546                 NZU         TX DK       MINUS SIG   1239    44  0993  0644
 547                 SUP  ONE 1             TEST FOR     0993    11  0084  1289
 548                 NZU         TX DD       DIVIDE SI   1289    44  1043  0694
 549                 SUP  EIGHT             TEST FOR     1043    11  0196  1051
 550                 NZU         SW 60       LEFT PARE   1051    44  0705  0072
 551                 SUP  NINE              TEST FOR     0705    11  0222  1177
 552                 NZU         TX DF       EQUAL SIG   1177    44  1281  0432
 553                 AUP  EQUAL  TR HA      RESTORE      1281    10  0184  1339
 554        TR HA    STU  TEMAC                          1339    21  0167  0820
 555                 RAL  TEMAB                          0820    65  0212  0617
 556                 SLT   0002                          0617    35  0002  0823
 557                 NZU  STOPM             TEST TEN A   0823    44  1227  0478
 558                 ALO  TEMAC                          0478    15  0167  0722
 559                 SLT   0002                          0722    35  0002  0779
 560                 NZU  NZTC8  ZT CB                   0779    44  0733  0484
 561        ZT CB    SRT   0002                          0484    30  0002  0191
 562                 STL  TEMAB  TR HB      STORE TEM    0191    20  0212  1415
 563        TR HB    RAL  IAE    TR JL      DECR SHIFT   1415    65  1089  1093
 564        TR JL    SLO  ONE                COUNT       1093    16  0066  0772
 565                 STL  IAE               STORE        0772    20  1089  0442
 566                 NZE  NZTB2  ZT B2      TEST         0442    45  0170  0447
 567        NZTB2    RAL  TEMAA  TR JM      TEMAA TO A   0170    65  0127  0650
 568        ZT B2    LDD  FIVE              RESET SHIF   0447    69  0102  0755
 569                 STD  IAE                COUNT       0755    24  1089  0492
 570                 RAL  IAC               DECR WORD    0492    65  0003  0707
 571                 SLO  ONE                COUNT       0707    16  0066  0822
 572                 STL  IAC               STORE        0822    20  0003  0406
 573                 NZE  TX DG  TX DH      TEST WORD    0406    45  0024  0411
 574        NZTC8    SUP  ZEROL             TEST TEM A   0733    11  0686  0241
 575                 BMI         ABNUM       FOR NUMER   0241    46  0744  0645
 576                 AUP  ZEROL  ZT CB                   0744    10  0686  0484
 577        ABNUM    LDD  TR HB                          0645    69  1415  0218
 578                 STD  OUTP   TR HC                   0218    24  0267  0870
 579        TR HC    AUP  ZEROL  TR JN      RESTORE      0870    10  0686  0291
 580        TR JN    SRT   0002  TR JO                   0291    30  0002  0497
 581        TR JO    STL  TEMAB  SW 54                   0497    20  0212  0384
 582        TR HE    STD  IAF                            0750    24  0453  0456
 583                 LDD  NN L2             NEXT PCH     0456    69  0609  0262
 584                 STD  TX DI              WORD INST   0262    24  1465  0268
 585                 LDD  NN L3             PUNCH STOR   0268    69  0872  0825
 586                 STD  STORE              INSTR       0825    24  0395  0498
 587                 LDD         TR UC                   0498    69  1101  0165
 588                 STD  P0006              PUNCH BAN   1101    24  1982  0835
 589                 LDD  SW FB                          0835    69  0238  0341
 590                 STD  SW 54   8001                   0341    24  0384  8001
 591        TR HN    SLT   0002  STORE                   0800    35  0002  0395
 592        TR HO    STL  TEMAB             LA TO TEM    0850    20  0212  1565
 593                 RAU  IAF               DECR SHIFT   1565    60  0453  0757
 594                 SUP  ONE                COUNT       0757    11  0066  0922
 595                 STU  IAF               STORE        0922    21  0453  0506
 596                 NZU  NZTB3                          0506    44  0659  0260
 597                 RAL  P0006                          0260    65  1982  0887
 598                 NZE  ZT B4                          0887    45  0140  0391
 599                 LDD  FIVE   TR MR                   0391    69  0102  0805
 600        TR MR    STD  IAF    TR KA                   0805    24  0453  0556
 601        NZTB3    RAL  TEMAB             TEM AB TO    0659    65  0212  0667
 602                 NZE  SW 54  OUTP       ANY MORE     0667    45  0384  0267
 603        ZT B4    PCH   1977  TR HP                   0140    71  1977  1277
 604        TR KA    RAL  TX DI                          0556    65  1465  1219
 605                 ALO  ONE               MODIFY NEX   1219    15  0066  0972
 606                 STL  TX DI              PCH WD IN   0972    20  1465  0318
 607                 LDD  STORE             MODIFY PUN   0318    69  0395  0548
 608                 SDA  STORE  NZTB3       STORE INS   0548    22  0395  0659
 609        TR HP    RAL  TEMPF                          1277    65  0181  0885
 610                 SLO  ONE                COUNT       0885    16  0066  1022
 611                 STL  TEMPF                          1022    20  0181  0534
 612                 NZE  NZTB6             TEST         0534    45  0288  1389
 613                 LDD  STOPN  TR LG      SET SW 54    1389    69  0542  0695
 614        TR LG    STD  SW 54  NZTB3       ERROR STO   0695    24  0384  0659
 615        NZTB6    LDD  SW FA  TR LG                   0288    69  0428  0695
 616        TX DH    LDD  OUT 1  TR IS                   0411    69  0564  0717
 617        TR HK    RAL  TEMAB             TEM AB TO    0900    65  0212  0767
 618                 NZE  NZTB7  OUTP       TEST         0767    45  0920  0267
 619        NZTB7    SLT   0002             TEM AB TO    0920    35  0002  1327
 620                 NZU         NZTB7       HIGH ORDE   1327    44  1331  0920
 621                 SUP  ZEROL             TEST FOR     1331    11  0686  0441
 622                 BMI  TR HF  TR HC       NUMERIC     0441    46  0794  0870
 623        TR HD    SCT   0000                          0950    36  0000  0873
 624                 STU  P0001                          0873    21  1977  0380
 625                 RAL  P0006  TJ SW       INSERT F    0380    65  1982  0937
 626        TJASW    SLT   0002             IN LAST WD   0046    35  0002  0503
 627                 NZU  TR RF  TR EX      OF PUNCH     0503    44  0807  0158
 628        TR EX    ALO  LAST   TR SG      STATEMENT    0158    15  0461  1715
 629        TJBSW    SLT   0004             OUTPUT       1050    35  0004  0511
 630                 NZU         TR EX                   0511    44  1765  0158
 631                 SRT   0002              INSERT OF   1765    30  0002  1072
 632                 NZU  TR RF             IN LAST WD   1072    44  0807  0626
 633                 PCH   1977             OF READ      0626    71  1977  1377
 634                 RAL  TEMPF             STATEMENT    1377    65  0181  0935
 635                 SLO  ONE               OUTPUT       0935    16  0066  1122
 636                 STL  TEMPF                          1122    20  0181  0584
 637                 NZE  TR RF  STOPN                   0584    45  0807  0542
 638        TR SG    STL  P0006                          1715    20  1982  0985
 639                 LDD   1991                          0985    69  1991  0844
 640                 BD1         PUNCH                   0844    91  0547  0499
 641                 PCH   1977  OUT19                   0547    71  1977  1427
 642        TR RF    RAL  SW 54                          0807    65  0384  1439
 643                 SLO  STOPN                          1439    16  0542  0597
 644                 NZE          8001                   0597    45  1100  8001
 645                 RAL  LAST                           1100    65  0461  1815
 646                 LDD  TR SG  TR UC                   1815    69  1715  0165
 647        TR UC    STD  OUT Q                          0165    24  0931  0634
 648                 STU  P0001                          0634    21  1977  0430
 649                 STD  P0002                          0430    24  1978  1381
 650                 STD  P0003                          1381    24  1979  0482
 651                 STD  P0004                          0482    24  1980  0783
 652                 STD  P0005  OUT Q                   0783    24  1981  0931
 653        TR HF    RAU  TEMAB  TJ 10                   0794    60  0212  0028
 654   1DUP TJ 10    LDD  TR JO  SUBJ                    0028    69  0497  1250
 655        TJ 10    LDD  TSTPR  SUBJ                    0028    69  1431  1250
 656        TJ10A    LDD  TSTPR  SUBJ                    1300    69  1431  1250
 657        TJ10B    LDD  TR JO  SUBJ                    0172    69  0497  1250
 658        TSTPR    NZU         TJ 20       PRECEDE     1431    44  1035  0736
 659                 STU  TEMAC             LOCATION     1035    21  0167  0970
 660                 SUP   8001             NUMBER OF    0970    11  8001  1477
 661                 RAL  LTR T             LAST VARi    1477    65  0480  1085
 662                 LDD  OUT30  TR KK      ABLE IN      1085    69  0338  0491
 663        OUT30    RAU  PRODT             READ OR      0338    60  0541  0745
 664                 LDD         SUBE       PUNCH        0745    69  0598  1251
 665                 LDD  OUT31  TR KK      STATEMENT    0598    69  1301  0491
 666        OUT31    RAU  TEMAC             BY T         1301    60  0167  1172
 667                 SRT   0004              EXIT TO     1172    30  0004  0833
 668                 SUP   8003             PUNCH OUT    0833    11  8003  0591
 669                 AUP  NINE              PUT AND      0591    10  0222  1527
 670                 SLT   0004             CONTINUE     1527    35  0004  0987
 671                 LDD         SUBE       PROCEDDING   0987    69  0190  1251
 672                 SLT   0002             STATEMENTS   0190    35  0002  0647
 673                 LDD  OUT 1  TR KK                   0647    69  0564  0491
 674        TJ 20    SLT   0002                          0736    35  0002  1143
 675                 SUP   8003                          1143    11  8003  1351
 676                 SRT   0002                          1351    30  0002  0857
 677                 ALO  LTR T  TR JO                   0857    15  0480  0497
 678        TX DF    RAU  LTR Z                          0432    60  1135  1489
 679                 LDD   1991                          1489    69  1991  0894
 680                 BD1  TR UO  TR HL                   0894    91  0697  0549
 681        TR UO    STU  TEMAC                          0697    21  0167  1020
 682                 LDD  OUT 3  TR JZ                   1020    69  0923  0676
 683        TR HL    STU  TEMAC              SIGN        0549    21  0167  1070
 684                 LDD  OUT 3  TR IS                   1070    69  0923  0717
 685        TR IS    STD  OUTP   TR HK                   0717    24  0267  0900
 686        TR HR    STD  TEMAB  TR JP                   1350    24  0212  1865
 687        TR JP    LDD  TR HB  TR JZ                   1865    69  1415  0676
 688        TR JZ    STD  OUTP   SW 54                   0676    24  0267  0384
 689        TX DD    RAU  LTR D  TR HL      STORE DIVI   0694    60  0747  0549
 690        TX DJ    RAU  LTR S  TR HL      STORE PLUS   0594    60  0797  0549
 691        TX DK    RAU  LTR M  TR HL      STORE MINU   0644    60  0847  0549
 692        TX DB    RAU  LTR R  TR HL      STORE RTPA   0118    60  1222  0549
 693        TX DM    RAU  LTRKH  TR HL      STOR COMMA   0168    60  1272  0549
 694        TX DC    LDD  SW BB  TR LI                   0382    69  1185  0388
 695        TR LI    STD  SW 50                          0388    24  0476  0829
 696                 LDD  TR HB  TR IS                   0829    69  1415  0717
 697        TR HM    NZU  NZTC1                          1400    44  0553  0404
 898                 LDD  SW BA                          0404    69  0116  1269
 899                 STD  SW 50                          1269    24  0476  0879
 700                 RAL  LTR P  TR JO                   0879    65  0532  0497
 701        TR LD    LDD  SW BF                          1550    69  0603  0606
 702                 STD  SW 50  TR MO                   0606    24  0476  0929
 703        TR MO    AUP  LTR E  TR HA                   0929    10  0188  1339
 704        TR MP    NZU         ZT G5                   1700    44  0653  0454
 705                 BMI  TR KP  TR MO                   0653    46  0656  0929
 706        ZT G5    RAU  LTR B  TR PI                   0454    60  0907  0561
 707        NZTC1    AUP  MULT                           0553    10  0419  0973
 708                 ALO  TEMAA                          0973    15  0127  1481
 709                 SRT   0002                          1481    30  0002  1037
 710                 STL  TEMAA                          1037    20  0127  0530
 711                 RAL  IAE                            0530    65  1089  1193
 712                 ALO  ONE                            1193    15  0066  1322
 713                 STL  IAE                            1322    20  1089  0592
 714                 LDD  LTR X  TR JK                   0592    69  0795  0648
 715        TX DA    RAU  LTR J                          0424    60  1577  1531
 716                 LDD  SW BG  TR PJ                   1531    69  0684  1087
 717        TR HU    NZU         ZT C2                   1750    44  0703  0504
 718                 BMI  TR KP  TR LD                   0703    46  0656  1550
 719        TR KP    AUP   8001                          0656    10  8001  0513
 720                 LDD  SW BA                          0513    69  0116  1319
 721                 STD  SW 50  NZTAT                   1319    24  0476  0700
 722        ZT C2    RAU  ZROB   TR PI                   0504    60  0957  0561
 723        TR PI    LDD  SW BA  TR PJ                   0561    69  0116  1087
 724        TR PJ    STD  SW 50  TR HL                   1087    24  0476  0549
 725        TX DE    RAU  TEMAB  TR KH                   0266    60  0212  0817
 726        TR KH    NZU  NZTC5  SW 62                   0817    44  1372  0332
 727        ZT C5    LDD  LTR L  TR HR                   0576    69  0979  1350
 728        NZTC5    SRT   0002                          1372    30  0002  1029
 729                 RAL   8002                          1029    65  8002  1137
 730                 SLO  LTRFH                          1137    16  0240  0845
 731                 NZE         SW 61                   0845    45  0698  0124
 732                 RSU  TEMAB                          0698    61  0212  0867
 733                 LDD  NZU2   SUBJ                    0867    69  0040  1250
 734   1DUP NZU2     NZU  TJ BA  STOPF                   0040    44  1243  0944
 735        NZU2     STU  TEMAC  TJ 5A                   0040    21  0167  1120
 736        NZU2A    NZU  TJ BA  STOPF                   0034    44  1243  0944
 737        TJ BA    STL  TEMAB                          1243    20  0212  1965
 738                 STU  TEMAC  TJ 8                    1965    21  0167  1220
 739        TJ 8     LDD  OUT 4  TR JZ                   1220    69  1023  0676
 740        TR IB    SLO  ONE 1                          1800    16  0084  1539
 741                 LDD   8003                          1539    69  8003  0496
 742                 SIA  TEMAE                          0496    23  0014  0917
 743                 SLT   0003                          0917    35  0003  0875
 744                 STU  TEMAF                          0875    21  0164  0967
 745                 NZU         ZT D1                   0967    44  1422  1472
 746                 RAL   8002                          1422    65  8002  1581
 747                 SLT   0003                          1581    35  0003  1589
 748                 STU  TEMAF                          1589    21  0164  1017
 749                 RSL   8003                          1017    66  8003  0925
 750                 ALO  TEMAE                          0925    15  0014  1369
 751                 STL  TEMAE                          1369    20  0014  1067
 752                 LDD  SW HB  TR IF                   1067    69  1270  1073
 753        TR IF    STD  SW 56  OUT 5                   1073    24  0002  0855
 754        ZT D1    LDD  SW HA  TR IF                   1472    69  0975  1073
 755        TR IK    STD  SW 50                          1850    24  0476  1079
 756                 SLO   8002                          1079    16  8002  1187
 757                 STL  F6                             1187    20  0467  1320
 758                 STD  F7                             1320    24  0297  1950
 759                 STD  F8                             1950    24  0052  0905
 760                 STD  F9                             0905    24  0208  0611
 761                 LDD  ONE 1  TR KN                   0611    69  0084  1237
 762        TR KN    STD  DIM I                          1237    24  0290  1293
 763                 STL  F1                             1293    20  0373  0726
 764                 STD  F3                             0726    24  0161  0614
 765                 STD  F4                             0614    24  0261  0664
 766                 STD  F5                             0664    24  1117  1370
 767                 LDD  SW IA  TR KI                   1370    69  1123  0776
 768        TR KI    STD  SW 57  TR HB                   0776    24  1129  1415
 769        TR IL    BMI  NZTD4                          1401    46  0554  0955
 770                 AUP   8001                          0955    10  8001  0661
 771                 STU  TEMAC  SW 57                   0661    21  0167  1129
 772        TR IM    SLT   0002                          1551    35  0002  1057
 773                 NZU  STOPO                          1057    44  0711  0312
 774                 ALO  TEMAC                          0312    15  0167  1522
 775                 STL  F1     TR HB                   1522    20  0373  1415
 776        NZTD4    AUP  MULT                           0554    10  0419  1173
 777                 BMI  NZTD6                          1173    46  0826  1727
 778                 AUP  LTR A                          1727    10  1871  1025
 779                 STU  TEMAC  SW IB                   1025    21  0167  1420
 780        TR IN    SLT   0002                          1701    35  0002  1107
 781                 NZU  STOPO                          1107    44  0711  0362
 782                 ALO  TEMAC                          0362    15  0167  1572
 783                 STL  F3     TR IG                   1572    20  0161  0714
 784        TR IG    LDD  SW IB  TR KI                   0714    69  1420  0776
 785        NZTD6    AUP  DIVID                          0826    10  0247  1751
 786                 NZU         ZT E1                   1751    44  1055  0706
 787                 AUP  ONE 1                          1055    10  0084  1739
 788                 NZU         TR IG                   1739    44  1343  0714
 789                 AUP  NINE                           1343    10  0222  1777
 790                 NZU  NZTE1  TR IP                   1777    44  1731  0582
 791        TR IP    LDD  SW IC  TR KI                   0582    69  1235  0776
 792        TR IO    SLT   0002                          1801    35  0002  1257
 793                 NZU  STOPO                          1257    44  0711  0412
 794                 ALO  TEMAC                          0412    15  0167  1722
 795                 STL  F5     TR HB                   1722    20  1117  1415
 796        ZT E1    LDD  ONE 1                          0706    69  0084  1287
 797                 STD  F4     TR IP                   1287    24  0261  0582
 798        NZTE1    RAL  F7                             1731    65  0297  1851
 799                 STD  F9                             1851    24  0208  0761
 800                 STU  F7                             0761    21  0297  0202
 801                 LDD  F6                             0202    69  0467  1470
 802                 STD  F8                             1470    24  0052  1105
 803                 STU  F6                             1105    21  0467  1520
 804                 RAL  F5                             1520    65  1117  1772
 805                 NZE         ZT E5                   1772    45  0876  1877
 806                 LDD  OUTQ1  TR LH                   0876    69  1179  0632
 807        TR LH    STD  OUT Q  SUB Q                   0632    24  0931  0734
 808        TR JR    RAL  F4                             0252    65  0261  0316
 809                 NZE  NZTJ2                          0316    45  1570  1872
 810                 RAL  F5     TR JT                   1872    65  1117  1972
 811        NZTJ2    RSL  F5     TR JT                   1570    66  1117  1972
 812        TR JT    ALO  TEMAE                          1972    15  0014  1419
 813                 STL  TEMAE  ZT E5                   1419    20  0014  1877
 814        ZT E5    RAL  F1                             1877    65  0373  0528
 815                 NZE  NZTE6  NZTE7                   0528    45  0682  0883
 816        SUB Q    STU  TEMAC  ZT F4                   0734    21  0167  1720
 817        ZT F4    SLT   0001                          1720    35  0001  0578
 818                 NZU         ZT F4                   0578    44  1781  1720
 819                 SUP  NINE                           1781    11  0222  0628
 820                 AUP  TEMAC                          0628    10  0167  1223
 821                 SLT   0001                          1223    35  0001  1229
 822                 STU  TEMAC                          1229    21  0167  1770
 823                 RAL   8002                          1770    65  8002  1279
 824                 NZE  ZT F4                          1279    45  1720  0933
 825                 RAU  TEMAC                          0933    60  0167  1273
 826                 MPY  DIM I  OUT Q                   1273    19  0290  0931
 827        NZTE6    LDD  OUTQ2  TR LH                   0682    69  1285  0632
 828        TR JV    RAU  F3                             0302    60  0161  0366
 829                 NZE  NZTE7                          0366    45  0883  1323
 830                 RAL  TEMAE                          1323    65  0014  1469
 831                 ALO  F6                             1469    15  0467  1373
 832                 STL  TEMAE                          1373    20  0014  1217
 833                 STU  F6                             1217    21  0467  1820
 834                 LDD  OUT12                          1820    69  1423  0926
 835                 STD  SW 58  SW 56                   0926    24  1329  0002
 836        NZTE7    LDD  OUT 6                          0883    69  0786  1789
 837                 STD  SW 58                          1789    24  1329  0732
 838                 RAU  F3                             0732    60  0161  0416
 839                 LDD  TR IR  SUBJ                    0416    69  1569  1250
 840        TR IR    STL  F7     SW 56                   1569    20  0297  0002
 841   1DUP SW 56    RAU  SW HA  TR IT       SWITCH 56   0002    60  0975  1379
 842        SW 56    RAL  F7     JTEST       BYPASS      0002    65  0297  0352
 843        JTEST    NZE  JSTOR  JZERO      INSERTION    0352    45  0756  1307
 844        JSTOR    RAL  LTR L             OF L AND R   0756    65  0979  0983
 845                 LDD         TR KK      FOR          0983    69  0836  0491
 846                 RAL  TEMAE             SPECIFIC     0836    65  0014  1719
 847                 BMI  TR IX  TR IU      VARIABLE     1719    46  1473  1523
 848        JZERO    RAL  F9                OF ARRAY     1307    65  0208  0563
 849                 NZE  JSTOR                          0563    45  0756  1267
 850                 RAU  TEMAE                          1267    60  0014  1769
 851                 LDD         SUBE                    1769    69  1573  1251
 852                 STL  TEMAB  TRAJK                   1573    20  0212  0466
 853        TR IT    STD  SW 56                          1379    24  0002  1255
 854                 LDD  TEMAF  TR KN                   1255    69  0164  1237
 855        TR IU    LDD  SW 58  TR IV                   1523    69  1329  0782
 856        TR IV    STD  OUTP                           0782    24  0267  1870
 857                 NZE  TR IZ  TR HC                   1870    45  0474  0870
 858        TR IZ    LDD  TR JO  TR UN                   0474    69  0497  0402
 859        TR UN    SLT   0004  SUBE1                   0402    35  0004  0613
 860        TR IX    RAL  LMCOM                          1473    65  0976  1831
 861                 LDD  OUT 7  TR KK                   1831    69  0784  0491
 862        TR IY    STD  OUTP                           0452    24  0267  1970
 863                 RAM  TEMAE  TR IZ                   1970    67  0014  0474
 864        TR JA    LDD  OUT 8  TR KK                   0502    69  1305  0491
 865        TR KK    STD  OUTP   TR JO                   0491    24  0267  0497
 866        TR JB    LDD  SW 58  TR KK                   0552    69  1329  0491
 867        TR JC    NZE  NZTE9  ZT E9                   0602    45  0806  1357
 868        NZTE9    LDD  OUT10  TR IV                   0806    69  0709  0782
 869        TR JD    LDD  OUT11  TR KK                   0652    69  1355  0491
 870        TR JF    LDD  OUT 9  TR KK                   0702    69  1405  0491
 871        TR JS    LDD  OUT12  TR KK                   0752    69  1423  0491
 872        ZT E9    RAL  F7                             1357    65  0297  0802
 873                 NZE         OUT12                   0802    45  0856  1423
 874                 RAL  TEMAF                          0856    65  0164  1819
 875                 NZE  NZTE9  OUT11                   1819    45  0806  1355
 876        TR JG    NZE         ZT F2                   0852    45  0906  1407
 877                 RAL  LTR S                          0906    65  0797  0902
 878                 LDD  OUT13  TR KK                   0902    69  1455  0491
 879        TR JH    LDD  OUT14  TR IV                   0952    69  1555  0782
 880        TR JI    LDD  OUT15  TR KK                   1052    69  1705  0491
 881        TR JJ    LDD  OUT16  TR KK                   1102    69  1755  0491
 882        ZT F2    RAL  F9                             1407    65  0208  0663
 883                 NZE         OUT16                   0663    45  0516  1755
 884                 RAL  LTR S  TR JI                   0516    65  0797  1052
 885        TR JK    STD  TEMAB  TRAJK                   0648    24  0212  0466
 886        TRAJK    LDD  SW BA                          0466    69  0116  1869
 887                 STD  SW 50  TR JP                   1869    24  0476  1865
 888        FLO      STL  TEMAB                          1252    20  0212  0566
 889                 RAU  NINE                           0566    60  0222  0678
 890                 SLT   0004                          0678    35  0004  1839
 891                 AUP   1900                          1839    10  1900  1805
 892                 STU   1900                          1805    21  1900  0753
 893                 LDD  EIGHT  TR SH                   0753    69  0196  0725
 894        FLO2     LDD  IAC                            0147    69  0003  0956
 895                 STD  IAFI                           0956    24  0759  0462
 896                 LDD  ONE                            0462    69  0066  1969
 897                 STD  TEMPH                          1969    24  0215  0368
 898                 RAL   1900                          0368    65  1900  1855
 899                 SLT   0004                          1855    35  0004  0616
 900                 STL   1900                          0616    20  1900  0803
 901                 RAL  THREE                          0803    65  1056  0811
 902                 AUP  SW KA                          0811    10  0764  1723
 903                 LDD  SW LB  FLO 1                   1723    69  1026  0679
 904        SW KA    RAL  TR UA                          0764    65  1317  1773
 905                 SUP  ONE    TR UW                   1773    11  0066  1873
 906        TR UA    NZU  TX DB  ZT F6                   1317    44  0118  1973
 907        TR LP    AUP  IAI                            1302    10  0449  0853
 908                 STU  IAI     8002                   0853    21  0449  8002
 909        ZT F6    LDD  SW BE  TR LI                   1973    69  1076  0388
 910        TR KF    SRT   0002                          1352    30  0002  0809
 911                 STL  TEMAF                          0809    20  0164  1367
 912                 RAL  IAC                            1367    65  0003  1457
 913                 SLO  ONE                            1457    16  0066  0524
 914                 LDD  IAFI                           0524    69  0759  0512
 915                 STD  IAC                            0512    24  0003  1106
 916                 STL  IAFI   OUT 1                   1106    20  0759  0564
 917        SW LB    RAL  ZT C5                          1026    65  0576  1881
 918                 AUP  ONE    TR UW                   1881    10  0066  1873
 919        TR UW    AUP  TEMPH                          1873    10  0215  0574
 920                 STU  TEMPH   8002                   0574    21  0215  8002
 921        TR KD    AUP  ONE    TR LP                   1402    10  0066  1302
 922        TX DL    RAL  TR UB                          0655    65  0258  0713
 923                 STU   1990  TR KD                   0713    21  1990  1402
 924        TR UB    LDD  TR LQ                          0258    69  0861  0814
 925                 STD  TEST                           0814    24  1417  0624
 926                 RAL  SW KB                          0624    65  0728  1033
 927                 AUP  SW MA                          1033    10  0886  0641
 928                 LDD  SW NA  TR QX                   0641    69  0994  0897
 929        TR QX    STD  SW 62                          0897    24  0332  1335
 930                 STL  SW 59                          1335    20  0060  0763
 931                 STU  SW 61  TEST                    0763    21  0124  1417
 932        TR LQ    RAL  MASK1                          0861    65  0864  0674
 933                 LDD  TEMAB                          0674    69  0212  0666
 934                 TLU   1161                          0666    84  1161  1467
 935                 LDD  MASK2                          1467    69  0724  0778
 936                 SDA  TESTO                          0778    22  0192  0895
 937                 SLO  CNAIB   8002                   0895    16  0748  8002
 938        MASK1    RAL   0000                          0864    65  0000  1256
 939                 SLO  TEMAB                          1256    16  0212  1567
 940                 NZE   1171                          1567    45  1171  0774
 941                 LDD  LTR Q                          0774    69  0828  1931
 942                 STD  TEMAB  TESTO                   1931    24  0212  0192
 943        MASK2    RAU   0000  TR UO                   0724    60  0000  0697
 944        TR LN    SLO  ONE                            1552    16  0066  0824
 945                 STL  IAI                            0824    20  0449  1702
 946                 NZE  TR LO                          1702    45  1306  1557
 947                 RAU  TX DL                          1557    60  0655  0859
 948                 LDD  TR LO                          0859    69  1306  0909
 949                 STD  TEST                           0909    24  1417  0874
 940                 LDD   1991                          0874    69  1991  1044
 951                 BD1         TR SE                   1044    91  0947  0599
 952                 ALO  SW KA                          0947    15  0764  0924
 953                 LDD  SW LB  TR QX                   0924    69  1026  0897
 954        TR SE    ALO  TX DB                          0599    15  0118  0974
 955                 LDD  ZT C5  TR QX                   0974    69  0576  0897
 956        TR LO    RAU  LTR Q  TR HL                   1306    60  0828  0549
 957        TR LZ    NZE         ZT G3                   1752    45  1356  1707
 958                 SLO  ONE                            1356    16  0066  1024
 959                 STL   1990  TX DB                   1024    20  1990  0118
 950        SW NA    RAL   1990                          0994    65  1990  0945
 961                 ALO  ONE                            0945    15  0066  1074
 962                 STL   1990  ZT C5                   1074    20  1990  0576
 963        ZT G3    RAL  IAI    TR LN                   1707    65  0449  1552
 964         1160     99   9999   9999      END OF TAB   1160    99  9999  9999
 965        SWBA1    NZU  NZTAT  TX DH                   0160    44  0700  0411
 966        SW BB    SUP  MULT   TR HM       FOR         1185    11  0419  1400
 967        SW BD    SUP  ZEROL  TR IL       50          1802    11  0686  1401
 968        SW BE    ALO  TEMAA  TR KF                   1076    15  0127  1352
 969        SW BF    SUP  LTR E  TR MP                   0603    11  0188  1700
 970        SW BG    SUP  LTR E  TR HU                   0684    11  0188  1750
 971        SW FA    RAL  FIVE   TR HE      SETTINGS F   0428    65  0102  0750
 972        SW FB    RAL  TEMAB  TX DI       SWITCH 54   0238    65  0212  1465
 973        SW HA    RAL  F7     JTEST      SETTINGS F   0975    65  0297  0352
 974        SW HB    RAU  SW HA  TR IT       SWITCH 56   1270    60  0975  1379
 975        SW IA    RAL  F1     TR IM      SETTINGS     1123    65  0373  1551
 976        SW IB    RAL  F3     TR IN       FOR         1420    65  0161  1701
 977        SW IC    RAL  F5     TR IO       SWITCH 57   1235    65  1117  1801
 978        SW KB    RAL   1990  TR LZ                   0728    65  1990  1752
 979        SW MA    RAL  TR LQ  TR KD                   0886    65  0861  1402
 980        NNAL1    RAL   1899  TR JM                   0148    65  1899  0650
 981        NN L1    RAL   1899  TR JM      NXT WD INS   0304    65  1899  0650
 982        NN L2    AUP   1977  TR HN      TO TX DI     0609    10  1977  0800
 983        NN L3    STU   1977  TR HO      STORE PCH    0872    21  1977  0850
 984        OUT 1    RAU  P0001  TR HD                   0564    60  1977  0950
 985        OUT 3    LDD  TEMAC  TR HR       EXITS       0923    69  0167  1350
 986        OUT 4    RAL  TEMAC  TR IB       FROM        1023    65  0167  1800
 987        OUT 6    RAL  SLCOM  TR JA                   0786    65  1889  0502
 988        OUT 5    LDD  SW BD  TR IK       STORE       0855    69  1802  1850
 989        OUT 7    LDD  OUT17  TR IY                   0784    69  1337  0452
 990        OUT 8    RAL  F6     TR JC       SUBROUTIN   1305    65  0467  0602
 991        OUT 9    RAL  LTR R  TR JS                   1405    65  1222  0752
 992        OUT10    RAL  LTR X  TR JD                   0709    65  0795  0652
 993        OUT11    RAL  F7     TR JF                   1355    65  0297  0702
 994        OUT12    RAL  F8     TR JG                   1423    65  0052  0852
 995        OUT13    RAL  F8     TR JH                   1455    65  0052  0952
 998        OUT14    RAL  LTR X  TR JI                   1555    65  0795  1052
 997        OUT15    RAL  F9     TR JJ                   1705    65  0208  1102
 998        OUT16    LDD  LTR R  TR JK                   1755    69  1222  0648
 999        OUT17    RAL  LTR R  TR JB                   1337    65  1222  0552
1000        OUT19    RAL  SW AB  IN10                    1427    65  0580  1385
1001        OUTQ1    STL  F5     TR JR                   1179    20  1117  0252
1002        OUTQ2    STL  F6     TR JV                   1285    20  0467  0302   
1003   1                                                                       
1004   1                 INSERT VARIABLES IN TABLE AND                        
1005   1                 ASSIGN I OR Y VALUE DEPENDING                        
1006   1                 IF VARIABLE IS FIXED POINT OR                        
1007   1                 FLOATING POINT                                         
1008        SUBJ     STD  OUT    SUBJ1         STORE     1250    24  0903  1406
1009        SUBJ1    SCT   0000               SIGNED VAR 1406    36  0000  1429
1010                 STU  TEST                IN TEMPLOC 1429    21  1417  1124
1011                 RAU  CTVAR                ZERO      1124    60  0048  0953
1012                 STL  SUBSC               TEMPORARY  0953    20  1962  0716
1013                 STD  STORG               COUNTERS   0716    24  1961  0914
1014                 NZE  J101   INSVR                   0914    45  0418  1174
1015        INSVR    AUP  ONE                            1174    10  0066  1224
1016                 ALO  ONE 1                          1224    15  0084  1939
1017                 STU  CTVAR                STORE     1939    21  0048  1852
1018                 STL  STORG               MNEMONIC   1852    20  1961  0964
1019                 AUP         J1           IN VARIBAL 0964    10  1717  1274
1020                 STD   1599  J2           TABLE      1717    24  1599  1053
1021        J1       LDD  TEST    8003                   1274    69  1417  8003
1022        J2       RAL   8001                TEST IF   1053    65  8001  0959
1023                 BMI         J4B          SUBSC OR   0959    46  0562  0813
1024                 RAU  SUBSC             NONSUBSC     0562    60  1962  1767
1025                 SUP  D20                HALT OVER   1767    11  1324  1479
1026                 NZU  J2A    STP N      20 SUBSC     1479    44  1083  0834
1027        STP N    HLT   0002  PACK       VARIABLES    0834    01  0002  0051
1028        J2A      AUP  D21                INCREMENT   1083    10  0936  0691
1029                 STU  SUBSC             SUBSC CTR    0691    21  1962  0766
1030                 RAU  TESTO                          0766    60  0192  0997
1031                 SRT   0003              SET UP      0997    30  0003  1456
1032                 STL  OUTE              J I BASE     1456    20  0911  1014
1033                 RAU  TESTN             WORD AND     1014    60  1817  1374
1034                 SLT   0004             STORE IN     1374    35  0004  1435
1035                 AUP  OUTE              SUBSCRPT     1435    10  0911  0816
1036                 AUP  STORG             TABLE        0816    10  1961  0866
1037                 ALO  SUBSC                          0866    15  1962  1867
1038                 ALO         J3                      1867    15  1424  1529
1039                 STU   1499  J4          SET SWCHS   1424    21  1499  1103
1040        J3       LDD  SETA              A AND A1     1529    69  0832  1485
1041                 SDA  SWCHA             FOR FIX      1485    22  1989  0642
1042                 LDD  SETA1             FLT TEST     0642    69  0995  0798
1043                 SDA  SWHA1   8002      IF SUBS VR   0798    22  1253  8002
1044        J4       RAU  TESTO              INCREMENT   1103    60  0192  1047
1045                 NZU  NZMPY             STORG CTR    1047    44  1303  1353
1046                 ALO  TESTN  J4A        BY I TIMES   1353    15  1817  1474
1047        NZMPY    MPY  TESTN  J4A                     1303    19  1817  1474
1048        J4A      ALO  STORG                          1474    15  1961  0916
1049                 SLO  ONE 1             J MINUS 1    0916    16  0084  0340
1050                 STL  STORG                          0340    20  1961  1064
1051                 STD  TOTLC  FXFLT                   1064    24  1967  1524
1052        FXFLT    RAM  TEST               TEST VAR    1524    67  1417  1574
1053                 SLT   0002             FOR FIX OR   1574    35  0002  0882
1054                 RAU   8003             FLT PT       0882    60  8003  0390
1055                 SUP  LTRNI                          0390    11  1393  1097
1056                 BMI  SWCHA              BRCH FLT    1097    46  1989  1403
1057                 SUP  SEVEN                          1403    11  0296  1553
1058                 BMI  SWHA1  SWCHA       BRCH FIX    1553    46  1253  1989
1059        SETA     RAM   1499              SW A SET    0832    67  1499  1703
1060                 RAU   8002  J6                      1703    60  8002  0961
1061        NORMA    RAU  STORG  J7          SW A NORM   1753    60  1961  0966
1062        SETA1    RAM   1499                          0995    67  1499  1803
1063                 RAU   8002  J8          SW A1 SET   1803    60  8002  1011
1064        NRMA1    RAU  STORG  J9          SWA1 NORM   1853    60  1961  1016
1065        J6       ALO  LTR Y  OUT                     0961    15  1114  0903
1066        J7       LDD  J6     SUBE2                   0966    69  0961  1214
1067        J8       ALO  LTR I  OUT                     1011    15  1264  0903
1068        J9       LDD  J8     SUBE2                   1016    69  1011  1214
1069        J4B      LDD  STORG                          0813    69  1961  1314
1070                 STD  TOTLC  NOSUB                   1314    24  1967  1724
1071        NOSUB    LDD  NORMA              SWS A AND   1724    69  1753  1556
1072                 STD  SWCHA             A1 NORM 44   1556    24  1989  0692
1073                 LDD  NRMA1             FIX FLT IF   0692    69  1853  1706
1074                 STD  SWHA1  FXFLT      NONSUBS VR   1706    24  1253  1524
1075        SUBE2    STD  OUTE2                          1214    24  0468  1774
1076                 LDD  DONE1  SUBE                    1774    69  0878  1251
1077        SUBE1    SLT   0006  SUBE                    0613    35  0006  1251
1078        SUBE     STD  OUTE   LOPFF       SET UP      1251    24  0911  1364
1079        LOPFF    NZU         OUTE       DOUBL DIGT   1364    44  0518  0911
1080                 SRT   0001             LOCATION     0518    30  0001  1075
1081                 STU  TESTE             NUMBER FOR   1075    21  0630  1133
1082                 SUP   8001             NONSUBSC     1133    11  8001  0440
1083                 SRT   0001             VARIABLES    0440    30  0001  1147
1084                 ALO  AZERO                          1147    15  0604  1059
1085                 AUP  TESTE  LOPFF                   1059    10  0630  1364
1086        DONE1    SRT   0002  OUTE2                   0878    30  0002  0468
1087        J101     SUP  HNDRD              HALT OVER   0418    11  1874  1579
1088                 NZE         STP N      100 VARS     1579    45  0932  0834
1089                 AUP   8001  NXTVR       TEST        0932    10  8001  0490
1090        NXTVR    ALO  ONE                            0490    15  0066  1974
1091                 STL  MCHCT             VARIABLE     1974    20  1729  0982
1092                 ALO         J101A      FOR TABLE    0982    15  1535  0540
1093                 RAM   1599  J101B       TEST        1535    67  1599  0654
1094        J101A    LDD  TSVAR                          0540    69  1443  0546
1095                 SDA  TSVAR   8002                   0546    22  1443  8002
1096        J101B    SML  TEST                           0654    18  1417  1125
1097                 NZE  J102   MATCH                   1125    45  0928  1779
1098        J102     LDD  NORMB              SWS B C     0928    69  1032  1585
1099                 STD  SWCHB             AND D NORM   1585    24  0438  0741
1100                 STD  SWCHC             TO REPEAT    0741    24  1094  1197
1101                 LDD  NORMD             TABLE        1197    69  0704  1757
1102                 STD  SWCHD  TSVAR      SEARCH       1757    24  0310  1443
1103        TSVAR    RAL   0000              INCREMENT   1443    65  0000  1756
1104                 BMI         PLSAD      STORG AND    1756    46  1109  0360
1105                 RAL  SUBSC             SUBSC CTRS   1109    65  1962  0568
1106                 ALO  ONE               AS NEEDED    0568    15  0066  1175
1107                 STL  SUBSC             BEFORE       1175    20  1962  1066
1108                 ALO         J103       CONTINUING   1066    15  1225  1879
1109                 RAM   1499  J104       SEARCH OR    1225    67  1499  0754
1110        J103     LDD  SETA              EXITING      1879    69  0832  1735
1111                 SDA  SWCHA              SET FIX     1735    22  1989  0742
1112                 LDD  SETA1             FLT SIGN     0742    69  0995  0848
1113                 SDA  SWHA1   8002      SW FOR MCH   0848    22  1253  8002
1114        J104     SLT   0003                          0754    35  0003  0863
1115                 NZU  J105                           0863    44  0618  0668
1116                 SLT   0003                          0668    35  0003  0978
1117                 RAL   8003  J106                    0978    65  8003  1785
1118        J105     STU  OUTE1                          0618    21  1275  1028
1119                 SUP   8003                          1028    11  8003  1835
1120                 SLT   0003                          1835    35  0003  1493
1121                 RAU   8003                          1493    60  8003  0804
1122                 MPY  OUTE1  J106                    0804    19  1275  1785
1123        J106     STL  PRODT  J107                    1785    20  0541  1144
1124        J106A    STL  PRODT  J107                    0854    20  0541  1144
1125        J107     RAL  SUBSC                          1144    65  1962  0718
1126                 ALO          8002                   0718    15  1325  8002
1127                 RAL   1499  SWCHD                   1325    65  1499  0310
1128        NORMD    BMI  PROC   J107A                   0704    46  1807  0308
1129        SETD     BMI  FXFLT  J107A                   0904    46  1524  0308
1130        J107A    RAL  PRODT                          0308    65  0541  1045
1131                 ALO  STORG  SWCHB                   1045    15  1961  0438
1132   1DUP SWCHB    STL  STORG  PROC        SERCH OVR   0438    20  1961  1807
1133        SWCHB    STL  STORG  FXFLT       YES MATCH   0438    20  1961  1524
1134        PROC     RAL  MCHCT              IF NO       1807    65  1729  1183
1135                 SLO  CTVAR             MATCH        1183    16  0048  0954
1136                 NZE  J108              INSERT       0954    45  0358  1259
1137                 RAU   8001             VARIABLE     1259    60  8001  1116
1138                 ALO  STORG  INSVR      IN TABLE     1116    15  1961  1174
1139        J108     ALO   8001  NXTVR       SERCH OVR   0358    15  8001  0490
1140        PLSAD    RAL  STORG                          0360    65  1961  1216
1141                 ALO  ONE 1  SWCHC                   1216    15  0084  1094
1142   1DUP SWCHC    STL  STORG  PROC        SERCH OVR   1094    20  1961  1807
1143        SWCHC    STL  STORG  NOSUB       YES MATCH   1094    20  1961  1724
1144        MATCH    LDD  SETB               SWS B C     1779    69  1082  1885
1145                 STD  SWCHB             AND D SET    1885    24  0438  0791
1146                 LDD  SETC              IF MATCH     0791    69  1194  1247
1147                 STD  SWCHC             FOUND        1247    24  1094  1297
1148                 LDD  SETD                           1297    69  0904  1857
1149                 STD  SWCHD  TSVAR                   1857    24  0310  1443
1150   1                                                                       
1151   1                  SUBROUTINE CONSTANTS                                  
1152        D20       00   0020   0000                   1324    00  0020  0000
1153        D21       00   0021   0000                   0936    00  0021  0000
1154        ONE       00   0001   0000                   0066    00  0001  0000
1155        ONE 1     00   0000   0001                   0084    00  0000  0001
1156        SETB     STL  STORG  FXFLT                   1082    20  1961  1524
1157        NORMB    STL  STORG  PROC                    1032    20  1961  1807
1158        SETC     STL  STORG  NOSUB                   1194    20  1961  1724
1159         1200     63   7600   1821       CONTINUE    1200    63  7600  1821
1160         1201     64   6900   1822       DIMENSION   1201    64  6900  1822
1161         1202     64   7600   1823       DO          1202    64  7600  1823
1162         1203     65   7800   1824       EQUIVALNCE  1203    65  7800  1824
1163         1204     67   7600   1825       GO TO       1204    67  7600  1825
1164         1205     69   6600   1826       IF          1205    69  6600  1826
1165         1206     77   6100   1827       PAUSE       1206    77  6100  1827
1166         1207     77   8400   1828       PUNCH       1207    77  8400  1828
1167         1208     79   6500   1829       READ        1208    79  6500  1829
1168         1209     82   8300   1827       STOP        1209    82  8300  1827
1169         1210     99   9999   9999       END OF TAB  1210    99  9999  9999
1170        SUBF2    STD  LAST   SUBF3                   1054    24  0461  1414
1171        SUBF3    STU  TEMAF  SUBF1                   1414    21  0164  0768
1172        SUBF1    STL  NEXT   SUB F                   0768    20  1375  1078
1173        SUB F    RAL  TEMAF  LP F1                   1078    65  0164  1425
1174        LP F1    NZE         ZT F1                   1425    45  1128  0680
1175                 SLT   0002              NEXT CHAR   1128    35  0002  1935
1176                 STL  TEMAF                          1935    20  0164  0818
1177                 RAU   8003  NEXT                    0818    60  8003  1375
1178        ZT F1    RAL  IAFI               DEC IAFI    0680    65  0759  0913
1179                 NZE         LAST        FINAL CHAR  0913    45  1266  0461
1180                 SLO  ONE                            1266    16  0066  1475
1181                 STL  IAFI                           1475    20  0759  0612
1182                 RSL   8002                          0612    66  8002  1525
1183                 ALO  IAC                            1525    15  0003  0408
1184                 ALO  CNFFI   8002                   0408    15  1061  8002
1185        CNFFI    RAL   1899  LP F1       SUB F       1061    65  1899  1425
1186        SUBK1    AUP   8001  SUB K                   1104    10  8001  1111
1187        SUBK2    AUP  COMMA  SUB K       RESTPR COM  1254    10  0259  1111
1188        SUB K    RAL   8003  TRSKI                   1111    65  8003  1575
1189        TRSKI    ALO  TEMPH                          1575    15  0215  1725
1190                 SLT   0002                          1725    35  0002  1132
1191                 NZU  SW6    ZT 30                   1132    44  0986  1036
1192        ZT 30    LDD  SWV    TR CC                   1036    69  0590  1543
1193        TR AS    LDD  STOPM  TR CC                   1304    69  1227  1543
1194        TR CC    STD  SW6    TR QR                   1543    24  0986  0640
1195        TR QR    STL  TEMPH  SUB F                   0640    20  0215  1078
1196        SWV      SRT   0002  TR AS       SUB K       0590    30  0002  1304
1197        PCH C    STL  P0001  PUNCH                   1354    20  1977  0499
1198        PUNCH    PCH   1977  PACK        END CONTIN  0499    71  1977  0051
1199        PCH B    PCH   1977  SUB F       DO PCH IF   1404    71  1977  1078
1200        HEADR    RAL  TOTLC              STATMNT NO  1554    65  1967  1775
1201                 STL  P0004              PCH 37 40   1775    20  1980  1233
1202                 STU  P0006                          1233    21  1982  1086
1203                 STU  P0007                  61 70   1086    21  1983  1136
1204                 STD  P0008                71  80    1136    24  1984  1387
1205                 STD  P0001                          1387    24  1977  0730
1206                 LDD  LOW88              SET CONTRO  0730    69  1283  1186
1207                 STD  P0010                          1186    24  1986  0690
1208                 PCH   1977  START                   0690    71  1977  1999
1209         1822    LDD  TR UH  TR UG       DIMENSION   1822    69  1875  1178
1210        TR UG    STD  OUT Q                          1178    24  0931  0884
1211                 RAL  IAC                            0884    65  0003  0458
1212                 SLO  TWO                 WORD COU   0458    16  1211  1316
1213                 STL  IAFI                           1316    20  0759  0662
1214                 RAU   1901  OUT Q                   0662    60  1901  0931
1215        TR UH    SLT   0008                          1875    35  0008  1593
1216                 ALO  SWDMA                          1593    15  0596  1704
1217                 LDD  TRDME  SUBF2                   1704    69  0508  1054
1218        TRDMA    NZU  SUBK1                          1754    44  1104  0558
1219                 RAL  TEMPH             PROCESS V    0558    65  0215  1975
1220                 STU  TEMPH                          1975    21  0215  0868
1221                 STL  TEST                           0868    20  1417  1126
1222                 STU  TESTO             ZERO V J     1126    21  0192  1095
1223                 STU  TESTN                          1095    21  1817  1176
1224                 RAL  SWDMB  SUBF1                   1176    65  0780  0768
1225        TRDMB    NZU         ZTDMC      COMMA TEST   1804    44  0608  0658
1226                 AUP  PARNR                          0608    10  0276  1182
1227                 NZU         ZTDMD      PARENR TES   1182    44  1236  1286
1228                 AUP  PARNR             2PAR Z COM   1236    10  0276  1232
1229                 SRT   0001             COLLECT SU   1232    30  0001  0740
1230                 SUP  NINE               CHARATER    0740    11  0222  1228
1231                 BMI  STOPF             N            1228    46  0944  1282
1232                 AUP  TESTO                          1282    10  0192  1347
1233                 SLT   0001  TRDMG                   1347    35  0001  1854
1234        ZTDMC    RAL  TESTO             SUBSCRIPT    0658    65  0192  1397
1235                 STL  TESTN  TRDMG                   1397    20  1817  1854
1236        TRDMG    STU  TESTO  SUB F      ZE           1854    21  0192  1078
1237        ZTDMD    LDD  TRDMC                          1286    69  0790  1743
1238                 STD  NEXT                           1743    24  1375  1278
1239                 RAL  TESTN             AT COMMA     1278    65  1817  1226
1240                 NZE  SUB F  ZTDMC      OVER 2 SUB   1226    45  1078  0658
1241        TRDMC    LDD  SWDMA  TRDMH      SUPPARLTRD   0790    69  0596  0649
1242        TRDMH    STD  NEXT   TRDMD                   0649    24  1375  1328
1243        TRDMD    LDD  NZU3   TRDMF                   1328    69  1332  1336
1244        TRDME    LDD  NZU1   TRDMF                   0508    69  1261  1336
1245        TRDMF    STD  OUT                            1336    24  0903  1806
1246                 RSU  TEST   SUBJ1                   1806    61  1417  1406
1247        NZU1     NZU  PACK   STOPF                   1261    44  0051  0944
1248        NZU3     NZU  SUB F  STOPF                   1332    44  1078  0944
1249        SWDMA    SUP  PARNL  TRDMA      NEXT 1       0596    11  0204  1754
1250        SWDMB    SUP  COMMA  TRDMB      NEXT 2       0780    11  0259  1804
1251         1823    LDD  TR UE  TR BD      DO STATMNT   1823    69  1276  0830
1252        TR BD    STD  OUT Q                          0830    24  0931  0934
1253                 RAL  IAC                            0934    65  0003  0708
1254                 SLO  ONE                            0708    16  0066  1326
1255                 STL  IAFI                           1326    20  0759  0712
1256                 RAU   1900             SHIFT OFF    0712    60  1900  1856
1257                 SLT   0004  OUT Q                   1856    35  0004  0931
1258        TR UE    ALO  SWDOA                          1276    15  0880  1386
1259                 LDD  CN B4  SUBF2                   1386    69  0840  1054
1260        SWDOA    SUP  ZEROL  TR  C                   0880    11  0686  0841
1261        TR  C    BMI         SUBK1                   0841    46  1244  1104
1262                 AUP  ZEROL                          1244    10  0686  0891
1263                 SLT   0002                          0891    35  0002  1447
1264                 ALO  TEMPH                          1447    15  0215  1376
1265                 STU  TEMPH                          1376    21  0215  0918
1266                 STL  TEST   TR  B                   0918    20  1417  1426
1267        TR  B    ALO  LTR K              ADD COMMA   1426    15  0930  1436
1268                 STD  P0003              PUNCH WOR   1436    24  1979  1382
1269                 STD  P0005              PUNCH WOR   1382    24  1981  0984
1270                 STL  P0001                          0984    20  1977  0980
1271                 RAL  SWDOB  SUBF1                   0980    65  1333  0768
1272        TR  D    NZU  SUBK1  ZT5                     0758    44  1104  0762
1273        ZT5      RAU  TEMPH                          0762    60  0215  1476
1274                 STL  TEMPH                          1476    20  0215  0968
1275                 LDD  TR  F  SUBJ                    0968    69  1526  1250
1276        TR  F    STL  P0002               PUNCH 2    1526    20  1978  1432
1277                 LDD  SWDOD             STLP0004TR   1432    69  1486  0890
1278                 STD  SW 59                          0890    24  0060  0963
1279                 RAL  SWDOC  SUBF1                   0963    65  1366  0768
1280        TR  G    NZU  SUBK2  ZT7                     0808    44  1254  0812
1281        ZT7      RAL  TEMPH                          0812    65  0215  1576
1282                 STL  TEST                TEST B     1576    20  1417  1726
1283                 STU  TEMPH  TX  E                   1726    21  0215  1018
1284        TX  E    SLT   0002             TO HIGH      1018    35  0002  1776
1285                 NZU         TX  E       ORDER       1776    44  1030  1018
1286                 SUP  ZEROL                          1030    11  0686  0941
1287                 BMI  NZT9                           0941    46  1294  1145
1288                 RAL  TEST   SW 59                   1145    65  1417  0060
1289        NZT9     RAU  TEST                           1294    60  1417  1876
1290                 LDD  SW 59  SUBJ                    1876    69  0060  1250
1291        TR  H    STU  P0006                          0858    21  1982  1536
1292                 PCH   1977             PCH CARD 0   1536    71  1977  1378
1293                 STU  P0001             ZERO PUNCH   1378    21  1977  1080
1294                 STU  P0002             WORDS FOR    1080    21  1978  1482
1295                 STD  P0004                          1482    24  1980  1383
1296                 LDD  SWDOE  TR QO                   1383    69  1586  0940
1297        TR  I    LDD  SWDOF  TR QO                   0908    69  1311  0940
1298        TR QO    STD  SW 59  SUB F                   0940    24  0060  1078
1299        TR  K    LDD  LTR F             F IN WORD    0958    69  0154  1058
1300                 STD  P0006  PUNCH        SIX        1058    24  1982  0499
1301        TR  J    NZE  ZT7                T STORE M   1108    45  0812  1013
1302                 LDD  SWDOG             STLP0004TR   1013    69  1416  1976
1303                 STD  SW 59                          1976    24  0060  1063
1304                 LDD  AONE              0000 0  91   1063    69  1466  1428
1305                 STD  P0002  ZT7        ONE FOR H3   1428    24  1978  0812
1306        CN B4    RAL  P0004  TR  J      LAST         0840    65  1980  1108
1307        SWDOB    SUP  EQUAL  TR  D      NEXT B       1333    11  0184  0758
1308        SWDOC    SUP  COMMA  TR  G      NEXT C       1366    11  0259  0808
1309        SWDOD    STL  P0004  TR  H      SWDO2  1     1486    20  1980  0858
1310        SWDOE    STL  P0004  TR  I      SWDO2  2     1586    20  1980  0908
1311        SWDOF    STL  P0002  TR  K      SWDO2  3     1311    20  1978  0958
1312        SWDOG    STL  P0004  TR  K      SWDO2  4     1416    20  1980  0958
1313         1826    RAU  CNIF6             IF STATMNT   1826    60  1130  1736
1314                 LDD  TRAEA  SUBJ                    1736    69  0990  1250
1315        TRAEA    STL  TEMPG  FLO                     0990    20  1195  1252
1316        IN10     LDD  LTR F                          1385    69  0154  1258
1317                 STD  P0006                          1258    24  1982  1786
1318                 STL  SW 59                          1786    20  0060  1113
1319                 RAL  SW AA                          1113    65  1566  1478
1320                 LDD  ZT 95  TR UI                   1478    69  1532  1836
1321        TR DM    NZU  SUBK2  ZT 95                   1308    44  1254  1532
1322        ZT 95    RAL  TEMPH                          1532    65  0215  1528
1323                 STU  TEMPH                          1528    21  0215  1068
1324                 SRT   0002                          1068    30  0002  1578
1325                 ALO  LTR G                          1578    15  1582  1437
1326                 STL  P0001  SW 59                   1437    20  1977  0060
1327        SW AB    LDD  ZROJO                          0580    69  1433  1886
1328                 STD  P0003                          1886    24  1979  1732
1329                 LDD  IF                             1732    69  1936  1040
1330                 STD  P0002                          1040    24  1978  1782
1331                 STU  P0009                          1782    21  1985  0488
1332                 RAL  LTR V                          0488    65  0991  1245
1333                 AUP  TEMPG                          1245    10  1195  0699
1334                 LDD         TRADP                   0699    69  1358  1361
1335                 LDD  TEMPG                          1358    69  1195  0898
1336                 STD  P0003                          0898    24  1979  1832
1337                 RAL  LTR U                          1832    65  1487  1041
1338                 AUP  ZROJO                          1041    10  1433  1537
1339                 LDD  SW AD  TRADP                   1537    69  1090  1361
1340        TRADP    STD  SW 59                          1361    24  0060  1213
1341                 STL  P0004                          1213    20  1980  1483
1342                 STU  P0005  PCH B                   1483    21  1981  1404
1343        TR DS    STD  P0004  PUNCH                   1408    24  1980  0499
1344        SW AA    SUP  COMMA  TR DM      IF           1566    11  0259  1308
1345        SW AD    LDD  LTR V  TR DS      IF           1090    69  0991  1408
1346         1825    STU  IAW               GO TO        1825    21  1180  1533
1347                 LDD         TR BD                   1533    69  1587  0830
1348                 SLT   0004                          1587    35  0004  1497
1349                 ALO  CN A7                          1497    15  1458  1263
1350                 LDD         SUBF2                   1263    69  1716  1054
1351                 RAL  TEMPH  IN5                     1716    65  0215  1728
1352        CN A7    SUP  PARNL                          1458    11  0204  1309
1353                 NZU  SUBK1  IN7                     1309    44  1104  1464
1354        IN5      SRT   0002                          1728    30  0002  1737
1355                 ALO  LTR G  PCH C                   1737    15  1582  1354
1356        IN7      RAL  CN F2                          1464    65  1118  1778
1357                 LDD  CNAF1  TR UI                   1778    69  1882  1836
1358        TR UI    STD  LAST   SUBF1                   1836    24  0461  0768
1359        TR  S    NZU         TR  U                   1558    44  1411  0862
1360                 SUP  PARNR                          1411    11  0276  1932
1361                 NZU  SUBK2  TR  U                   1932    44  1254  0862
1362        TR  U    RAL  TEMPH                          0862    65  0215  1878
1363                 STU  TEMPH             ZERO TEMPH   1878    21  0215  1218
1364                 NZE  LOOPR  SUB F                   1218    45  1230  1078
1365        LOOPR    AUP  IAW                            1230    10  1180  1787
1366                 SUP  CNAKB                          1787    11  1140  1295
1367                 NZU         STP N                   1295    44  0749  0834
1368                 AUP  CNAIB                          0749    10  0748  1708
1369                 STU  IAW                            1708    21  1180  1583
1370                 AUP  CN F5   8003      STL1149SUB   1583    10  1837  8003
1371        CN F5    STL   1989  SUB F      COMPUTED     1837    20  1989  1078
1372        TR  X    STD  P0002                          1758    24  1978  1733
1373                 LDD  LTR U                          1733    69  1487  1190
1374                 STD  P0004                          1190    24  1980  1783
1375                 RAU  TEMPH                          1783    60  0215  1280
1376                 LDD  TR  Y  SUBJ                    1280    69  1833  1250
1377        TR  Y    STL  P0003                          1833    20  1979  1883
1378                 RAL  IAW    TRGOG                   1883    65  1180  1887
1379        LOOPT    NZE         PUNCH                   1808    45  0912  0499
1380                 PCH   1977                          0912    71  1977  1330
1381                 STU  P0009                          1330    21  1985  0538
1382                 STL  IAW    TRGOG                   0538    20  1180  1887
1383        TRGOG    LDD         SUBE1                   1887    69  1240  0613
1384                 STL  P0005                          1240    20  1981  1034
1385                 RAL  IAW                            1034    65  1180  1937
1386                 ALO  CN F6   8002      LDD1149SUB   1937    15  1290  8002
1387        CN F6    RAL   1989  TR  Z      COMPUTED G   1290    65  1989  1793
1388        TR  Z    SRT   0002                          1793    30  0002  0799
1389                 ALO  LTR G                          0799    15  1582  1987
1390                 STL  P0001                          1987    20  1977  1380
1391                 RAL  IAW                            1380    65  1180  0588
1392                 SLO  ONE    LOOPT                   0588    16  0066  1808
1393        CNAF1    LDD  IF     TR  X      COMPUTED G   1882    69  1936  1758
1394        CN F2    SUP  PARNR  TR  S      COMPUTED G   1118    11  0276  1558
1395   1                                                                       
1396   1                 CHANGES FOR PUNCH ROUTINE                              
1397         1828    RAL  NNAL1              SET SW 50   1828    65  0148  1858
1398                 ALO  ONE               NXTWD AND    1858    15  0066  1430
1399                 AUP  SWBA2             1991 FOR     1430    10  1933  0638
1400                 LDD         TM RA      PROCESSING   0638    69  1091  1344
1401                 RAL  IAC               PUNCH        1091    65  0003  1359
1402                 SLO  ONE               STATEMENTS   1359    16  0066  1480
1403                 STL  IAC    ARITH                   1480    20  0003  0199
1404        SWBA2    SUP  COMMA              BYPASS      1933    11  0259  1313
1405                 NZU  TR HB             N COMMA      1313    44  1415  1268
1406                 LDD  TJ10A             AND RESET    1268    69  1300  1409
1407                 STD  TJ 10             SW 50 TO     1409    24  0028  1084
1408                 LDD  SWBA3             PROCESS      1084    69  0688  1141
1409                 STD  SW BA  TR LI      STATEMENT    1141    24  0116  0388
1410        SWBA3    NZU         TX DH       IF PARNL    0688    44  1191  0411
1411                 SUP  PARNL             WANT ELEM    1191    11  0204  1459
1412                 NZU         TJ 5       OF ARRAY     1459    44  1363  1564
1413                 AUP  ONE 1              IF COMMA    1363    10  0084  1340
1414                 NZU         TJ 3       VAR ASMBLD   1340    44  1843  1394
1415                 AUP  COMMA  TR HA      TO PROCESS   1843    10  0259  1339
1416        TJ 3     RAU  TEMAB                          1394    60  0212  1318
1417                 NZU         TR HB                   1318    44  1530  1415
1418                 LDD  STRUP  SUBJ                    1530    69  1134  1250
1419        STRUP    STU  TEMAC              PRECEDE     1134    21  0167  1580
1420                 SUP   8001             VAR LOC      1580    11  8001  0738
1421                 SLT   0002             NUMBER BY    0738    35  0002  1345
1422                 SUP   8003             T FOR READ   1345    11  8003  1559
1423                 SRT   0002             AND PUNCH    1559    30  0002  1766
1424                 ALO  LTR T             STATEMENTS   1766    15  0480  0788
1425                 LDD  OUT21  TR KK                   0788    69  1241  0491
1426        OUT21    RAU  TEMAC              IF WHOLE    1241    60  0167  1730
1427                 NZU  OUT22  TR HB      ARRAY        1730    44  1184  1415
1428        OUT22    RAU  PRODT             SPECIFIED    1184    60  0541  1395
1429                 LDD         SUBE       BY PUNCH     1395    69  0948  1251
1430                 LDD  OUT23             STATEMENT    0948    69  1709  0962
1431                 STD  OUTP   TR JO      PROCESS IJ   0962    24  0267  0497
1432        OUT23    RAU  TEMAC             PRODUCT      1709    60  0167  1780
1433                 SRT   0004             FOLLOWED     1780    30  0004  1291
1434                 SUP   8003             BY BASE      1291    11  8003  0849
1435                 AUP  NINE                           0849    10  0222  1880
1436                 SLT   0004                          1880    35  0004  1341
1437                 LDD         SUBE                    1341    69  1444  1251
1438                 SLT   0002                          1444    35  0002  1759
1439                 STL  TEMAB  TR JP                   1759    20  0212  1865
1440        TJ 5     LDD  NZU2B                          1564    69  1368  1234
1441                 STD  NZU2   TX DE                   1234    24  0040  0266
1442        NZU2B    STU  TEMAC  TJ 5A       RRECD LOC   1368    21  0167  1120
1443        TJ 5A    RAL  LTR T             NUM BY T     1120    65  0480  0838
1444                 STL  TEMAB  TJ 8                    0838    20  0212  1220
1445   1                                                                       
1446   1                  CHANGES FOR READ STATEMENTS                            
1447         1829    RAL  NNAL1              SET SW 50   1829    65  0148  1809
1448                 AUP  SWBA2             NXTWD AND    1809    10  1933  0888
1449                 LDD         TM RA      1991 FOR     0888    69  1391  1344
1450                 RAU   1900             READ STATE   1391    60  1900  1859
1451                 SRT   0002             MENTS        1859    30  0002  1816
1452                 STL   1900              BYBASS WD   1816    20  1900  0410
1453                 RAU  TR RD             READ         0410    60  1413  1418
1454                 ALO  LTRDF              STORE DF    1418    15  1284  1390
1455                 LDD  TJBSW  SUB X                   1390    69  1050  0049
1456        TR RD    RAL  ONE    RITH1                   1413    65  0066  0557
1457        TM RA    STD  OUTE                           1344    24  0911  1714
1458                 LDD  NINE                           1714    69  0222  1334
1459                 STD   1991                          1334    24  1991  1494
1460                 STU  SW BA                          1494    21  0116  1384
1461                 STL  NN L1  OUTE                    1384    20  0304  0911
1462        SUB X    STD  TJ SW                          0049    24  0937  1440
1463                 STL  LAST    8003                   1440    20  0461  8003
1464         1821    RAL  CCN01  PCH C      CONTINUE     1821    65  1434  1354
1465         1830    RAL  LTRFF             END          1830    65  1484  1490
1466                 LDD         TR UC                   1490    69  1893  0165
1467                 STL  P0006                          1893    20  1982  0938
1468                 PCH   1977  HEADR                   0938    71  1977  1554
1469         1827    RAL  CST01  PCH C      OAUSE STOP   1827    65  1534  1354
1470        ONE 1     00   0000   0001      ONE 1        0084    00  0000  0001
1471        TWO 1     00   0000   0002                   0210    00  0000  0002
1472        SEVEN     00   0000   0007                   0296    00  0000  0007
1473        EIGHT     00   0000   0008                   0196    00  0000  0008
1474        NINE      00   0000   0009      NINE IN 10   0222    00  0000  0009
1475        CN A5     00   0000   0010      EQUL N COM   0257    00  0000  0010
1476        DECPT     00   0000   0018      DECIMAL PT   0149    00  0000  0018
1477        PARNR     00   0000   0019                   0276    00  0000  0019
1478        PLUS      00   0000   0020      PLUS SIGN    0365    00  0000  0020
1479        MULT      00   0000   0029      MILT SIGN    0419    00  0000  0029
1480        MINUS     00   0000   0030      MINUS SIGN   0197    00  0000  0030
1481        DIVID     00   0000   0031                   0247    00  0000  0031
1482        COMMA     00   0000   0038                   0259    00  0000  0038
1483        PARNL     00   0000   0039                   0204    00  0000  0039
1484        EQUAL     00   0000   0048      EQUAL SIGN   0184    00  0000  0048
1485        LTR A     00   0000   0061                   1871    00  0000  0061
1486        LTR E     00   0000   0065                   0188    00  0000  0065
1487        LTR F     00   0000   0066                   0154    00  0000  0066
1488        LTRNI     00   0000   0069                   1393    00  0000  0069
1489        LTR K     00   0000   0072                   0930    00  0000  0072
1490        EGTON     00   0000   0081                   0460    00  0000  0081
1491        LOW88     00   0000   0088                   1283    00  0000  0088
1492        ZEROL     00   0000   0090      ALPHA O LO   0686    00  0000  0090
1493        AONE      00   0000   0091      ALPHA ONE    1466    00  0000  0091
1494        LTRFF     00   0000   6666                   1484    00  0000  6666
1495        IF        00   0000   6966                   1936    00  0000  6966
1496        ONE       00   0001   0000      ONE IN FIF   0066    00  0001  0000
1497        TWO       00   0002   0000      TWO IN FIF   1211    00  0002  0000
1498        THREE     00   0003   0000      THREE IN 5   1056    00  0003  0000
1499        FOUR      00   0004   0000      FOUR IN 5T   0090    00  0004  0000
1500        FIVE      00   0005   0000      FIVE IN 5T   0102    00  0005  0000
1501        SIX       00   0006   0000                   0510    00  0006  0000
1502        CNAKB     00   0010   0000                   1140    00  0010  0000
1503        CNAIB     00   0011   0000                   0748    00  0011  0000
1504        CNBKB     00   0025   0000                   0110    00  0025  0000
1505        CNBIB     00   0026   0000                   0122    00  0026  0000
1506        CNIF6     00   0091   6966                   1130    00  0091  6966
1507        HNDRD     00   0100   0000      TABLE CNST   1874    00  0100  0000
1508        LTR B     62   0000   0000                   0907    62  0000  0000
1509        LTR D     64   0000   0000                   0747    64  0000  0000
1510        LTRFH     66   0000   0000      F IN HOP     0240    66  0000  0000
1511        LTR G     67   0000   0000                   1582    67  0000  0000
1512        CST01     68   0000   0000      WORD HALT    1534    68  0000  0000
1513        LTR I     69   0000   0000                   1264    69  0000  0000
1514        LTR J     71   0000   0000                   1577    71  0000  0000
1515        LTR L     73   0000   0000                   0979    73  0000  0000
1516        LTR M     74   0000   0000                   0847    74  0000  0000
1517        LTR P     77   0000   0000                   0532    77  0000  0000
1518        LTR Q     78   0000   0000                   0828    78  0000  0000
1519        LTR R     79   0000   0000                   1222    79  0000  0000
1520        LTR S     82   0000   0000                   0797    82  0000  0000
1521        LTR T     83   0000   0000                   0480    83  0000  0000
1522        LTR U     84   0000   0000                   1487    84  0000  0000
1523        LTR V     85   0000   0000                   0991    85  0000  0000
1524        LTR X     87   0000   0000                   0795    87  0000  0000
1525        LTR Y     88   0000   0000                   1114    88  0000  0000
1526        LTR Z     89   0000   0000                   1135    89  0000  0000
1527        LTRDF     00   0000   6466                   1284    00  0000  6466
1528        LTRKH     72   0000   0000      K IN HOP     1272    72  0000  0000
1529        AZERO     90   0000   0000                   0604    90  0000  0000
1530        ZROB      90   6200   0000                   0957    90  6200  0000
1531        CCN01     88   9189   8891      CONT CONST   1434    88  9189  8891
1532        LMCOM     73   7400   0000                   0976    73  7400  0000
1533        SLCOM     82   7300   0000                   1889    82  7300  0000
1534        STOPA    HLT   0010  PACK       NZ PARN CO   0136    01  0010  0051
1535        STOPB    HLT   0001  PACK       TLU ERROR    0245    01  0001  0051
1536        STOPF    HLT   0400  PACK       NOT INTEGE   0944    01  0400  0051
1537        STOPH    HLT   0020  PACK       PACK ERROR   0560    01  0020  0051
1538        STP N    HLT   0002  PACK       TABLE OVFL   0834    01  0002  0051
1539        STP R    HLT   0003  PACK                    0020    01  0003  0051
1540        STOPM    HLT   0004  PACK       VARIABLE O   1227    01  0004  0051
1541        STOPN    HLT   0300  PACK       TRANSLTN O   0542    01  0300  0051
1542        STOPO    HLT   0100  PACK       SUBSCRPT O   0711    01  0100  0051
1543         1171    HLT   0030  PACK       FUNCTION N   1171    01  0030  0051
1544        STOPC    HLT   0005  PACK       SCAN OVRFL   0769    01  0005  0051
1545        EGHTS     00   0800   8080                   0004    00  0800  8080
1546        ZROJO     90   7190   0000      IF CONSTAN   1433    90  7190  0000
1547   1                  PROCESS EQUIVALENCE STATEMENT                          
1548         1824    RAL  IAC                INITIALZE   1824    65  0003  0610
1549                 SLO  THREE             WORD COUNT   0610    16  1056  1461
1550                 STL  IAFI              PARN COUNT   1461    20  0759  1012
1551                 STU  TEMAA                          1012    21  0127  1584
1552                 RAU   1902                          1584    60  1902  0660
1553                 SLT   0002               IS CHARAC  0660    35  0002  1468
1554                 ALO  EQSW1  SUBF3        IS CHARAC  1468    15  1734  1414
1555        EQSW1    SUP  PARNL              LEFT PAREN  1734    11  0204  0710
1556                 NZU         EQ1         COMMA OR    0710    44  1463  1764
1557                 AUP  ONE 1              RGHT PAREN  1463    10  0084  1540
1558                 NZU         EQ2          IF NO      1540    44  1943  1544
1559                 AUP  PARNR              RESTOR VAR  1943    10  0276  1784
1560                 NZU  SUBK1  EQ3                     1784    44  1104  0988
1561        EQ1      RAL  TEMAA               YES LEFT   1764    65  0127  1834
1562                 ALO  ONE                PAREN       1834    15  0066  1884
1563                 STU  F1                  INCREMENT  1884    21  0373  1934
1564                 STD  F3                 PARN COUNT  1934    24  0161  1814
1565                 STD  TEMAB                          1814    24  0212  1866
1566                 STD  F9                  INITIALZE  1866    24  0208  1561
1567                 STL  TEMAA  SUB F       FOR NEW     1561    20  0127  1078
1568   1                                     EQUIVL SET                        
1569        EQ2      RAU  TEMAA               YES COMMA  1544    60  0127  1038
1570                 NZU  EQ2A   EQOUT        PRNCT ZRO  1038    44  1441  0792
1571        EQ2A     RAU  TEMPH              START NEW   1441    60  0215  1088
1572                 STL  TEMPH              EQUIV SET   1088    20  0215  1568
1573                 LDD  OUTEQ  SUBJ                    1568    69  1138  1250
1574        OUTEQ    RAU   8003               NOT ZERO   1138    60  8003  1445
1575                 SRT   0004              PROCES VAR  1445    30  0004  0760
1576                 SUP   8003               IS BASE    0760    11  8003  1718
1577                 SRT   0006              OF NEW VAR  1718    30  0006  1188
1578                 STL  OUT Q               LESS THAN  1188    20  0931  1238
1579                 AUP  F1                  BASE OF    1238    10  0373  1288
1580                 NZU         EQ2AA        PREVIOUS   1288    44  1491  0842
1581                 SUP   8002               VARIABLE   1491    11  8002  0899
1582                 BMI  EQ2B   EQ2AA                   0899    46  0810  0842
1583        EQ2AA    STL  F1     EQ2B        SAVE LOW    0842    20  0373  0810
1584        EQ2B     RAL  PRODT             BASE         0810    65  0541  1495
1585                 SLO  F3                 IS JI       1495    16  0161  1966
1586                 BMI  EQ2C              PROD OF      1966    46  1338  1388
1587                 ALO   8001             NEW VAR      1388    15  8001  1545
1588                 STL  F3                GREATER      1545    20  0161  1864
1589                 LDD  EQ2BA             THAN PROD    1864    69  1768  1438
1590                 STD  EQSW2             OF PREVIOS   1438    24  1541  1594
1591                 LDD  OUT Q             VARIABLE     1594    69  0931  1488
1592                 STD  TEMAE  TREQ1       SAVE BSE    1488    24  0014  1818
1593        TREQ1    RAU  F9                OF LRG ARY   1818    60  0208  1563
1594                 SUP  FIVE                           1563    11  0102  0860
1595                 NZU         STP N       SAVE LRGE   0860    44  1713  0834
1596                 AUP  SIX               PRODUCT      1713    10  0510  1868
1597                 STU  F9                 STORE       1868    21  0208  1711
1598                 STD  F6                SUBSC TABL   1711    24  0467  1538
1599                 ALO  SUBSC             LOCAT IN     1538    15  1962  1968
1600                 AUP          8003      EQU BAR TA   1968    10  1588  8003
1601                 STL   1449  EQSW2       HALT IF     1588    20  1449  1541
1602        EQ2BA    ALO  EQ2B1             MORE         1768    15  1738  1744
1603                 LDD  EQSW3  EQ2BB       THAN        1744    69  1547  0910
1604        EQ2BB    STD  SW 50  EQ2BE       FIVE        0910    24  0476  1788
1605        EQ2BE    LDD  EQ2B2  EQ2BC       VARIABLES   1788    69  1591  1794
1606        EQ2BC    SDA  F8                IN EQU SET   1794    22  0052  0960
1607                 STL  F7                             0960    20  0297  1060
1608                 RSL  F1     F7          READ EQU    1060    66  0373  0297
1609        EQ2B1    LDD   1499  F8         VAR TABLE    1738    69  1499  0052
1610        EQ2B2    SIA   0000  EQ2BD      TO INSERT    1591    23  0000  1110
1611        EQ2BD    RAU  F6                LOW BASE     1110    60  0467  1838
1612                 SUP  ONE               IN 15XX      1838    11  0066  1888
1613                 NZU         SUB F                   1888    44  1741  1078
1614                 STU  F6                 IF IJ       1741    21  0467  1938
1615                 AUP          8003      PRODT OF     1938    10  1791  8003
1616                 RAL   1449  SW 50                   1791    65  1449  0476
1617        EQSW3    ALO  EQ2B3  EQ2BE                   1547    15  1260  1788
1618        EQ2B3    SUP   1499             EQUIV SET    1260    11  1499  1310
1619                 BMI         EQ2BD      CHNGE 15XX   1310    46  1763  1110
1620                 LDD   8003  F8         TO MINUS     1763    69  8003  0052
1621        EQ2C     LDD  EQ2CA             IN SUBSC     1338    69  1841  1844
1622                 STD  EQSW2  TREQ1      TABLE        1844    24  1541  1818
1623        EQ2CA    ALO  EQ2B3                          1841    15  1260  1988
1624                 LDD  EQSW4  EQ2BB                   1988    69  1891  0910
1625        EQSW4    ALO  EQ2B1  EQ2BE                   1891    15  1738  1788
1626        EQ3      RAL  TEMAA              YES RGHT    0988    65  0127  1590
1627                 SLO  ONE               PAREN        1590    16  0066  1740
1628                 STL  TEMAA              DECREMENT   1740    20  0127  1790
1629                 LDD  EQOUT             PAREN        1790    69  0792  1595
1630                 STD  LAST   EQ2A       COUNT        1595    24  0461  1441
1631        EQOUT    RAL  EQ3A1  EQ3A        PREPAR TO   0792    65  1745  0949
1632        EQ3A     SLO  EQ3A2             SCAN SUBSC   0949    16  1360  1840
1633                 NZE         EQ3D       TABLE AND    1840    45  1894  1795
1634                 ALO  EQ3B              ADJUST       1894    15  1597  1410
1635                 LDD  EQ3C1             BASES        1410    69  1813  1890
1636                 SDA  F4                             1890    22  0261  1964
1637                 LDD  EQ3C2                          1964    69  1940  1944
1638                 SDA  F5                             1944    22  1117  1941
1639                 STL  TEMAC   8001                   1941    20  0167  8001
1640        EQ3A1    RAL   1499  EQ3BA                   1745    65  1499  1460
1641        EQ3A2    RAL   1519  EQ3BA                   1360    65  1519  1460
1642        EQ3B     RAL   1520  EQ3BA                   1597    65  1520  1460
1643        EQ3BA    BMI         EQ3BB                   1460    46  1863  0892
1644                 LDD  SETM   STORM                   1863    69  0942  1845
1645        EQ3BB    LDD  EQ3BC  STORM                   0892    69  1895  1845
1646        STORM    STD  SWCHM              COMPARE     1845    24  0998  1560
1647                 RSM   8002             BASE OF      1560    68  8002  0992
1648                 SLT   0006             15XX WITH    0992    35  0006  1710
1649                 STU  OUTP              BSE OF EQV   1710    21  0267  1042
1650                 SUP   8003             SET          1042    11  8003  0999
1651                 SLT   0004              IF LESS     0999    35  0004  1760
1652                 AUP  F1                CONTINUE     1760    10  0373  1092
1653                 BMI  EQ3C              SCAN         1092    46  1945  0646
1654                 NZU  EQ3BC  SWCHM       IF EQUAL    0646    44  1895  0998
1655        EQ3BC    RAL  TEMAC  EQ3A       ADJUST LOC   1895    65  0167  0949
1656        SETM     RAM  OUTP              COUNT        0942    67  0267  1142
1657                 SLT   0004              IF GRTER    1142    35  0004  1810
1658                 LDD  EQ3BD             COMPARE      1810    69  1963  1192
1659                 STD  J106   J104       WITH ORIG    1192    24  1785  0754
1660        EQ3BD    ALO  TEMAB             BSE OF       1963    15  0212  1242
1661                 LDD  J106A             LRGST ARAY   1242    69  0854  1860
1662                 STD  J106               DECREASE    1860    24  1785  1292
1663                 STL  TEMAB  EQ3BC      OR INCRESE   1292    20  0212  1895
1664        EQ3C     SUP   8001             BASE OF      1945    11  8001  1761
1665                 AUP  TEMAE             15XX AS      1761    10  0014  1342
1666                 BMI  EQ3CB             NEEDED       1342    46  0696  0746
1667                 SUP   8001                          0746    11  8001  1811
1668                 RAM   8003                          1811    67  8003  1392
1669                 ALO  F3     EQ3CA                   1392    15  0161  1442
1670        EQ3CA    SLO  TEMAB  F4                      1442    16  0212  0261
1671        EQ3C1    LDD   0000  F5                      1813    69  0000  1117
1672        EQ3C2    SIA   0000  EQ3BC                   1940    23  0000  1895
1673        EQ3CB    SUP   8001                          0696    11  8001  1861
1674                 RAM   8003  EQ3CA                   1861    67  8003  1442
1675        EQ3D     LDD  PACK                           1795    69  0051  1062
1676                 STD  LAST   SUB F                   1062    24  0461  1078
1677                 PAT                                                       
1678   1
   1                 EQU  MINUS   0167                                         
   2                 EQU  SWPKA   0098                                         
   3                 EQU  READ    0050                                         
   4                 EQU  PACKA   0088                                         
   5   1                   PACK                                                 
   6   1                  FOR TRANSIT I S AND II S                              
   7                 BLA   1000   1010                                         
   8                 REG  R1951   1960                                         
   9        PACKA    RAL  R0001                          0088    65  1951  1005
  10                 NZE         ZTPK1                   1005    45  1008  1009
  11                 SLT   0002                          1008    35  0002  1492
  12                 STL  R0001                          1492    20  1951  1004
  13                 RAL   8003                          1004    65  8003  1112
  14                 NZE  SWPKT  PACKA                   1112    45  1542  0088
  15        ZTPK1    RAL  R0002                          1009    65  1952  1007
  16                 NZE         ZTPK2                   1007    45  1010  1212
  17                 SLT   0002                          1010    35  0002  1592
  18                 STL  R0002                          1592    20  1952  1006
  19                 RAL   8003                          1006    65  8003  1742
  20                 NZE  SWPKT  ZTPK1                   1742    45  1542  1009
  21        ZTPK2    RAL  R0003                          1212    65  1953  1262
  22                 NZE         ZTPK3                   1262    45  1792  1842
  23                 SLT   0002                          1792    35  0002  1049
  24                 STL  R0003                          1049    20  1953  1312
  25                 RAL   8003                          1312    65  8003  1892
  26                 NZE  SWPKT  ZTPK2                   1892    45  1542  1212
  27        ZTPK3    RAL  R0004                          1842    65  1954  1362
  28                 NZE         ZTPK4                   1362    45  1942  0796
  29                 SLT   0002                          1942    35  0002  1099
  30                 STL  R0004                          1099    20  1954  1412
  31                 RAL   8003                          1412    65  8003  0846
  32                 NZE  SWPKT  ZTPK3                   0846    45  1542  1842
  33        ZTPK4    RAL  R0005                          0796    65  1955  1462
  34                 NZE         ZTPK5                   1462    45  0896  0946
  35                 SLT   0002                          0896    35  0002  1003
  36                 STL  R0005                          1003    20  1955  1562
  37                 RAL   8003                          1562    65  8003  0996
  38                 NZE  SWPKT  ZTPK4                   0996    45  1542  0796
  39        ZTPK5    RAL  R0006                          0946    65  1956  1712
  40                 NZE         READ                    1712    45  1046  0050
  41                 SLT   0002                          1046    35  0002  1762
  42                 STL  R0006                          1762    20  1956  1812
  43                 RAL   8003                          1812    65  8003  1096
  44                 NZE  SWPKT  ZTPK5                   1096    45  1542  0946
  45        SWPKT    SLO  I49                            1542    16  1146  1001
  46                 NZE  NZK1                           1001    45  1862  1196
  47                 RAL  MINUS  SWPKA                   1196    65  0197  0098
  48        NZK1     ALO   8001  SWPKA                   1862    15  8001  0098
  49        I49       00   0000   0049                   1146    00  0000  0049
  50                 PAT                                                                      
  51                 PST                                                                       
