COMTRAN Reconstruction

J28-6169 · January 1962

90.05 listing

PDF page 215 of 221. Download the scanned PDF

The page as scanned

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

The text read off it

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

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

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


    01566  0400 00 0 00113   10001        +59   ADD    4)HOURS
    01567  0601 00 0 00124   10001        +60   STO    5)HOURS
    01570  0500 00 0 00125   10001        +61   CLA    6)GROSS
    01571  0400 00 0 00114   10001        +62   ADD    5)GROSS
    01572  0601 00 0 00125   10001        +63   STO    6)GROSS
    01573  0500 00 0 00126   10001        +64   CLA    6)WHT
    01574  0400 00 0 00115   10001        +65   ADD    5)WHT
    01575  0601 00 0 00126   10001        +66   STO    6)WHT
    01576  0500 00 0 00127   10001        +67   CLA    6)FICA
    01577  0400 00 0 00116   10001        +68   ADD    5)FICA
    01600  0601 00 0 00127   10001        +69   STO    6)FICA
    01601  0500 00 0 00130   10001        +70   CLA    5)BONDEDUCTION
    01602  0400 00 0 00117   10001        +71   ADD    4)BONDEDUCTION
    01603  0601 00 0 00130   10001        +72   STO    5)BONDEDUCTION
    01604  0500 00 0 00131   10001        +73   CLA    5)INSURANCE
    01605  0400 00 0 00120   10001        +74   ADD    4)INSURANCE
    01606  0601 00 0 00131   10001        +75   STO    5)INSURANCE
    01607  0500 00 0 00132   10001        +76   CLA    5)RETIREMENT
    01610  0400 00 0 00121   10001        +77   ADD    4)RETIREMENT
    01611  0601 00 0 00132   10001        +78   STO    5)RETIREMENT
    01612  0500 00 0 00133   10001        +79   CLA    5)NETPAY
    01613  0400 00 0 00122   10001        +80   ADD    4)NETPAY
    01614  0601 00 0 00133   10001        +81   STO    5)NETPAY
    01615  0500 00 0 00134   10001        +82   CLA    3)BONDPURCHASES
    01616  0400 00 0 00123   10001        +83   ADD    2)BONDPURCHASES
    01617  0601 00 0 00134   10001        +84   STO    3)BONDPURCHASES
    01620  0020 60 0 01473   10001  GN)083        TRA*   DEPARTMENT.END
           5 00000 0 01671   00001                USE    2
    01666  5 00000 0 01666   00001                ORG    BL)1
    01666  0 00000 0 00035   10010         +1   PZE    IOC)29
    01667  0 00000 0 00000   10000         +2   PZE    0
    01670  0 00000 0 00000   10000         +3   PZE    0
           5 00000 0 01621   00001                USE    1
    01621  2 00000 0 00036   00001  RS)           BSS    30
    01657  2 00000 0 00007   00001  TS)           BSS    7
    01666  2 00000 0 00003   00001  BL)           BSS    3
    01671  2 00000 0 00003   00001  PI)           BSS    3
    01674  000000000000      10000  CP)           OCT    000000000000
    01675  000000000001      10000         +1   OCT    000000000001
    01676  446060606060      10000         +2   OCT    446060606060
    01677  246060606060      10000         +3   OCT    246060606060
    01700  276360606060      10000         +4   OCT    276360606060
    01701  000000000620      10000         +5   OCT    000000000620
    01702  000000000017      10000         +6   OCT    000000000017
    01703  000000000024      10000         +7   OCT    000000000024
    01704  000000000014      10000         +8   OCT    000000000014
    01705  000000000003      10000         +9   OCT    000000000003
    01706  000000034100      10000        +10   OCT    000000034100
    01707  000000000022      10000        +11   OCT    000000000022
    01710  000000000015      10000        +12   OCT    000000000015
    01711  000000000002      10000        +13   OCT    000000000002
    01712  606060011010      10000        +14   OCT    606060011010
    01713  730002606060      10000        +15   OCT    730002606060
    01714  777777000077      10000        +16   OCT    777777000077
    01715  000000777700      10000        +17   OCT    000000777700