COMTRAN Reconstruction

J28-6169 · January 1962

90.05 listing

PDF page 209 of 221. Download the scanned PDF

The page as scanned

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

The text read off it

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

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

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


    01061  4600 00 0 00000   10001        +95   STQ    3)DAY
    01062  4500 00 0 01737   10001        +96   CAL    CP)+35
    01063  0320 00 0 00001   10001        +97   ANS    3)YEAR
    01064  4500 00 2 00001   10000        +98   CAL    2)YEAR,2
    01065  0767 00 0 00022   10000        +99   ALS    18
    01066  4320 00 0 01740   10001       +100   ANA    CP)+36
    01067  4602 00 0 00001   10001       +101   ORS    3)YEAR
    01070  0500 00 0 00102   10001       +102   CLA    4)GROSS
    01071  0074 00 4 00264   10010       +103   TSX    SYS)180,4
    01072  0 00001 0 00027   10001       +104   PZE    2)GROSS,,1
    01073  1 00004 1 00413   10010       +105   TXI    SYS)267,1,4
    01074  000005000004      10000       +106   OCT    000005000004
    01075  0774 00 1 00007   10000       +107   AXT    7,1
    01076  0500 00 0 00105   10001       +108   CLA    4)FICA
    01077  0074 00 4 00264   10010       +109   TSX    SYS)180,4
    01100  0 00003 0 00032   10001       +110   PZE    2)FICA,,3
    01101  1 00004 1 00413   10010       +111   TXI    SYS)267,1,4
    01102  000004000003      10000       +112   OCT    000004000003
    01103  0774 00 1 00006   10000       +113   AXT    6,1
    01104  0500 00 0 00106   10001       +114   CLA    4)WHT
    01105  0074 00 4 00264   10010       +115   TSX    SYS)180,4
    01106  0 00005 0 00030   10001       +116   PZE    2)WHT,,5
    01107  1 00004 1 00413   10010       +117   TXI    SYS)267,1,4
    01110  000005000004      10000       +118   OCT    000005000004
    01111  0774 00 1 00007   10000       +119   AXT    7,1
    01112  0500 00 0 00107   10001       +120   CLA    3)NETPAY
    01113  0765 00 0 00043   10000       +121   LRS    35
    01114  0221 00 0 01724   10001       +122   DVP    CP)+24
    01115  0074 00 4 00264   10010       +123   TSX    SYS)180,4
    01116  0 00004 0 00040   10001       +124   PZE    1)NETPAY,,4
    01117  1 00004 1 00413   10010       +125   TXI    SYS)267,1,4
    01120  000004000003      10000       +126   OCT    000004000003
    01121  0774 00 1 00006   10000       +127   AXT    6,1
    01122  0441 00 0 01753   10001       +128   LDI    CP)+47
    01123  0604 00 0 00205   10010       +129   STI    SYS)133
    01124  4500 00 0 01667   10001       +130   CAL    BL)2
    01125  0361 00 0 01764   10001       +131   ACL    CP)+56
    01126  0602 00 0 00204   10010       +132   SLW    SYS)132
    01127  0074 00 4 00266   10010       +133   TSX    SYS)182,4
    01130  1 00017 1 00357   10010       +134   TXI    SYS)239,1,15
    01131  0441 00 0 01765   10001       +135   LDI    CP)+57
    01132  0604 00 0 00205   10010       +136   STI    SYS)133
    01133  4500 00 0 01667   10001       +137   CAL    BL)2
    01134  0361 00 0 01764   10001       +138   ACL    CP)+56
    01135  0602 00 0 00204   10010       +139   SLW    SYS)132
    01136  0074 00 4 00266   10010       +140   TSX    SYS)182,4
    01137  1 00017 1 00360   10010       +141   TXI    SYS)240,1,15
    01140  1 00003 1 00361   10010       +142   TXI    SYS)241,1,3
    01141  0500 00 0 00107   10001       +143   CLA    3)NETPAY
    01142  0765 00 0 00043   10000       +144   LRS    35
    01143  0221 00 0 01724   10001       +145   DVP    CP)+24
    01144  0074 00 4 00264   10010       +146   TSX    SYS)180,4
    01145  0 00001 0 00016   10001       +147   PZE    AMOUNT,,1
    01146  1 00014 1 00413   10010       +148   TXI    SYS)267,1,12
    01147  000004000003      10000       +149   OCT    000004000003