COMTRAN Reconstruction

J28-6169 · January 1962

90.05 listing

PDF page 203 of 221. Download the scanned PDF

The page as scanned

The scan of PDF page 203 of J28-6169
Select the scan to open it at full size.

The text read off it

[90.05 sample-program listing, PDF p.203]

Symbolic assembly listing: end-of-run and department-total gross/withholding/FICA/bond-deduction accumulation Sample-program compilation listing — printer output page 12 of 16 (labels GN)068–GN)069, END.OF.RUN) (PDF p.203).

DATE 10/18/61  TIME  2.45  ACCOUNT                     ID. CT PUBLICATIONS         PAGE  12


00353      7 00000 1 00446   10010            +2      TXL   SYS)294,1,0
00354      4340 00 1 00000   10000            +3      LAS   1)EMPLOYEE.NUMBER,1
00355      0020 00 0 00361   10001            +4      TRA   GN)068
00356      0020 00 0 00360   10001            +5      TRA   *+2
00357      0020 00 0 00361   10001            +6      TRA   GN)068
00360      0020 00 0 00370   10001            +7      TRA   END.OF.RUN
00361      4500 00 0 01670   10001    GN)068          CAL   BL)3
00362      0361 00 0 01752   10001            +1      ACL   CP)+46
00363      0602 00 0 00205   10010            +2      SLW   SYS)133
00364      0074 00 4 00266   10010            +3      TSX   SYS)182,4
00365      1 00006 1 00365   10010            +4      TXI   SYS)245,1,6
00366      747474747474      10000            +5      OCT   747474747474
00367      0020 00 0 00256   10001            +6      TRA   HIGH.DETAIL
00370                                 GN)069
00370      0774 00 7 00373   10001    END.OF.RUN      AXT   *+3,7
00371      0634 00 4 01473   10001            +1      SXA   DEPARTMENT.END,4
00372      0020 00 0 01474   10001            +2      TRA   DEPARTMENT.END+1
00373      0500 00 0 00125   10001            +3      CLA   6)GROSS
00374      0074 00 4 00264   10010            +4      TSX   SYS)180,4
00375      0 00001 0 00027   10001            +5      PZE   2)GROSS,,1
00376      1 00004 1 00413   10010            +6      TXI   SYS)267,1,4
00377      000005000004      10000            +7      OCT   000005000004
00400      0774 00 1 00007   10000            +8      AXT   7,1
00401      0500 00 0 00126   10001            +9      CLA   6)WHT
00402      0074 00 4 00264   10010            +10     TSX   SYS)180,4
00403      0 00005 0 00030   10001            +11     PZE   2)WHT,,5
00404      1 00004 1 00413   10010            +12     TXI   SYS)267,1,4
00405      000005000004      10000            +13     OCT   000005000004
00406      0774 00 1 00007   10000            +14     AXT   7,1
00407      0500 00 0 00127   10001            +15     CLA   6)FICA
00410      0074 00 4 00264   10010            +16     TSX   SYS)180,4
00411      0 00003 0 00032   10001            +17     PZE   2)FICA,,3
00412      1 00004 1 00413   10010            +18     TXI   SYS)267,1,4
00413      000004000003      10000            +19     OCT   000004000003
00414      0774 00 1 00006   10000            +20     AXT   6,1
00415      0500 00 0 00130   10001            +21     CLA   5)BONDEDUCTION
00416      0074 00 4 00264   10010            +22     TSX   SYS)180,4
00417      0 00000 0 00034   10001            +23     PZE   2)BONDEDUCTION,,0
00420      1 00004 1 00413   10010            +24     TXI   SYS)267,1,4
00421      000004000003      10000            +25     OCT   000004000003
00422      0774 00 1 00006   10000            +26     AXT   6,1
00423      0500 00 0 00133   10001            +27     CLA   5)NETPAY
00424      0765 00 0 00043   10000            +28     LRS   35
00425      0221 00 0 01724   10001            +29     DVP   CP)+24
00426      0074 00 4 00264   10010            +30     TSX   SYS)180,4
00427      0 00004 0 00040   10001            +31     PZE   1)NETPAY,,4
00430      1 00004 1 00413   10010            +32     TXI   SYS)267,1,4
00431      000004000003      10000            +33     OCT   000004000003
00432      0774 00 1 00006   10000            +34     AXT   6,1
00433      0500 00 0 00124   10001            +35     CLA   5)HOURS
00434      0074 00 4 00264   10010            +36     TSX   SYS)180,4
00435      0 00005 0 00025   10001            +37     PZE   HRS,,5
00436      1 00004 1 00413   10010            +38     TXI   SYS)267,1,4
00437      000004000003      10000            +39     OCT   000004000003
00440      0774 00 1 00005   10000            +40     AXT   5,1