COMTRAN Reconstruction

J28-6169 · January 1962

90.05 listing

PDF page 214 of 221. Download the scanned PDF

The page as scanned

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

The text read off it

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

Sample-program compiler listing (PDF page 214) Compiler listing page, Appendix 90.05 (PDF p.214).

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


    01477  1 00004 1 00413   10010         +4   TXI    SYS)267,1,4
    01500  000004000003      10000         +5   OCT    000004000003
    01501  0774 00 1 00005   10000         +6   AXT    5,1
    01502  0500 00 0 00114   10001         +7   CLA    5)GROSS
    01503  0074 00 4 00264   10010         +8   TSX    SYS)180,4
    01504  0 00001 0 00053   10001         +9   PZE    3)GROSS,,1
    01505  1 00004 1 00413   10010        +10   TXI    SYS)267,1,4
    01506  000005000004      10000        +11   OCT    000005000004
    01507  0774 00 1 00007   10000        +12   AXT    7,1
    01510  0500 00 0 00115   10001        +13   CLA    5)WHT
    01511  0074 00 4 00264   10010        +14   TSX    SYS)180,4
    01512  0 00005 0 00054   10001        +15   PZE    3)WHT,,5
    01513  1 00004 1 00413   10010        +16   TXI    SYS)267,1,4
    01514  000005000004      10000        +17   OCT    000005000004
    01515  0774 00 1 00007   10000        +18   AXT    7,1
    01516  0500 00 0 00116   10001        +19   CLA    5)FICA
    01517  0074 00 4 00264   10010        +20   TSX    SYS)180,4
    01520  0 00003 0 00056   10001        +21   PZE    3)FICA,,3
    01521  1 00004 1 00413   10010        +22   TXI    SYS)267,1,4
    01522  000004000003      10000        +23   OCT    000004000003
    01523  0774 00 1 00006   10000        +24   AXT    6,1
    01524  0500 00 0 00117   10001        +25   CLA    4)BONDEDUCTION
    01525  0074 00 4 00264   10010        +26   TSX    SYS)180,4
    01526  0 00000 0 00060   10001        +27   PZE    3)BONDEDUCTION,,0
    01527  1 00004 1 00413   10010        +28   TXI    SYS)267,1,4
    01530  000004000003      10000        +29   OCT    000004000003
    01531  0774 00 1 00006   10000        +30   AXT    6,1
    01532  0500 00 0 00120   10001        +31   CLA    4)INSURANCE
    01533  0074 00 4 00264   10010        +32   TSX    SYS)180,4
    01534  0 00003 0 00061   10001        +33   PZE    2)INSURANCE,,3
    01535  1 00004 1 00413   10010        +34   TXI    SYS)267,1,4
    01536  000004000003      10000        +35   OCT    000004000003
    01537  0774 00 1 00006   10000        +36   AXT    6,1
    01540  0500 00 0 00121   10001        +37   CLA    4)RETIREMENT
    01541  0074 00 4 00264   10010        +38   TSX    SYS)180,4
    01542  0 00000 0 00063   10001        +39   PZE    2)RETIREMENT,,0
    01543  1 00004 1 00413   10010        +40   TXI    SYS)267,1,4
    01544  000004000003      10000        +41   OCT    000004000003
    01545  0774 00 1 00006   10000        +42   AXT    6,1
    01546  0500 00 0 00122   10001        +43   CLA    4)NETPAY
    01547  0074 00 4 00264   10010        +44   TSX    SYS)180,4
    01550  0 00003 0 00064   10001        +45   PZE    2)NETPAY,,3
    01551  1 00004 1 00413   10010        +46   TXI    SYS)267,1,4
    01552  000005000004      10000        +47   OCT    000005000004
    01553  0774 00 1 00007   10000        +48   AXT    7,1
    01554  0500 00 0 00123   10001        +49   CLA    2)BONDPURCHASES
    01555  0074 00 4 00264   10010        +50   TSX    SYS)180,4
    01556  0 00001 0 00066   10001        +51   PZE    1)BONDPURCHASES,,1
    01557  1 00004 1 00413   10010        +52   TXI    SYS)267,1,4
    01560  000005000004      10000        +53   OCT    000005000004
    01561  0774 00 1 00007   10000        +54   AXT    7,1
    01562  0074 00 4 00011   10010        +55   TSX    IOC)9,4
    01563  0 00000 0 04005   10010        +56   PZE    PAYFILE,,0
    01564  7 00024 0 00044   10001        +57   IOST   DEPARTMENT.TOTAL,,20
    01565  0500 00 0 00124   10001        +58   CLA    5)HOURS