COMTRAN Reconstruction

J28-6169 · January 1962

90.05 listing

PDF page 208 of 221. Download the scanned PDF

The page as scanned

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

The text read off it

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

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

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


    00772  0535 00 2 01670   10001        +40   LAC    BL)3,2
    00773  7 00000 2 00446   10010        +41   TXL    SYS)294,2,0
    00774  0560 00 2 00000   10000        +42   LDQ    2)EMPLOYEE.NUMBER,2
    00775  4773 00 0 00000   10000        +43   RQL    0
    00776  0771 00 0 00022   10000        +44   ARS    18
    00777  4763 00 0 00022   10000        +45   LGL    18
    01000  0602 00 0 00006   10001        +46   SLW    3)EMPLOYEE.NUMBER
    01001  4763 00 0 00022   10000        +47   LGL    18
    01002  0560 00 0 00007   10001        +48   LDQ    3)EMPLOYEE.NUMBER+1
    01003  4773 00 0 00022   10000        +49   RQL    18
    01004  4763 00 0 00022   10000        +50   LGL    18
    01005  0602 00 0 00007   10001        +51   SLW    3)EMPLOYEE.NUMBER+1
    01006  4500 00 0 01725   10001        +52   CAL    CP)+25
    01007  0320 00 0 00024   10001        +53   ANS    4)MONTH
    01010  0760 00 0 00006   10000        +54   COM
    01011  4320 00 2 00001   10000        +55   ANA    2)MONTH,2
    01012  4602 00 0 00024   10001        +56   ORS    4)MONTH
    01013  4500 00 0 01714   10001        +57   CAL    CP)+16
    01014  0320 00 0 00024   10001        +58   ANS    4)DAY
    01015  4500 00 2 00001   10000        +59   CAL    2)DAY,2
    01016  0771 00 0 00006   10000        +60   ARS    6
    01017  4320 00 0 01715   10001        +61   ANA    CP)+17
    01020  4602 00 0 00024   10001        +62   ORS    4)DAY
    01021  4500 00 0 00025   10001        +63   CAL    4)YEAR
    01022  4765 00 0 00030   10000        +64   LGR    24
    01023  4500 00 2 00001   10000        +65   CAL    2)YEAR,2
    01024  4763 00 0 00030   10000        +66   LGL    24
    01025  0602 00 0 00025   10001        +67   SLW    4)YEAR
    01026  4500 00 0 01725   10001        +68   CAL    CP)+25
    01027  0320 00 0 00020   10001        +69   ANS    3)DEPARTMENT
    01030  0760 00 0 00006   10000        +70   COM
    01031  4320 00 2 00000   10000        +71   ANA    2)DEPARTMENT,2
    01032  4602 00 0 00020   10001        +72   ORS    3)DEPARTMENT
    01033  4500 00 0 00020   10001        +73   CAL    3)EMPLOYEE
    01034  0560 00 2 00000   10000        +74   LDQ    2)EMPLOYEE,2
    01035  4773 00 0 00014   10000        +75   RQL    12
    01036  0771 00 0 00022   10000        +76   ARS    18
    01037  4763 00 0 00022   10000        +77   LGL    18
    01040  0602 00 0 00020   10001        +78   SLW    3)EMPLOYEE
    01041  4763 00 0 00006   10000        +79   LGL    6
    01042  0560 00 0 00021   10001        +80   LDQ    3)EMPLOYEE+1
    01043  4773 00 0 00006   10000        +81   RQL    6
    01044  4763 00 0 00036   10000        +82   LGL    30
    01045  0602 00 0 00021   10001        +83   SLW    3)EMPLOYEE+1
    01046  4500 00 0 01737   10001        +84   CAL    CP)+35
    01047  0320 00 0 00000   10001        +85   ANS    3)MONTH
    01050  4500 00 2 00001   10000        +86   CAL    2)MONTH,2
    01051  0771 00 0 00006   10000        +87   ARS    6
    01052  4320 00 0 01740   10001        +88   ANA    CP)+36
    01053  4602 00 0 00000   10001        +89   ORS    3)MONTH
    01054  0560 00 0 00000   10001        +90   LDQ    3)DAY
    01055  4763 00 0 00030   10000        +91   LGL    24
    01056  0560 00 2 00001   10000        +92   LDQ    2)DAY,2
    01057  4773 00 0 00014   10000        +93   RQL    12
    01060  4765 00 0 00030   10000        +94   LGR    24