COMTRAN Reconstruction

J28-6169 · January 1962

90.05 listing

PDF page 207 of 221. Download the scanned PDF

The page as scanned

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

The text read off it

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

Symbolic assembly listing: table-search (SEARCH/GN)085-086), net-pay computation, and department/grand-total accumulation Sample-program compilation listing — printer output page 16 of 16 (labels GN)085, GN)086, NET) (PDF p.207).

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


00704      0500 00 0 01675   10001            +3      CLA   CP)+1
00705      0601 00 0 00111   10001            +4      STO   INDEX
00706      0500 00 0 01741   10001            +5      CLA   GN)088
00707      0601 00 0 01671   10001            +6      STO   PI)1
01405                                 GN)085          EQU   SEARCH+1
00710      0020 00 0 01405   10001            +1      TRA   SEARCH+1
00711      0500 00 0 00111   10001    GN)086          CLA   INDEX
00712      0400 00 0 01675   10001            +1      ADD   CP)+1
00713      0601 00 0 00111   10001            +2      STO   INDEX
00714      0500 00 0 01711   10001            +3      CLA   CP)+13
00715      0400 00 0 01671   10001            +4      ADD   PI)1
00716      0601 00 0 01671   10001            +5      STO   PI)1
00717      0500 00 0 01704   10001            +6      CLA   CP)+8
00720      0402 00 0 00111   10001            +7      SUB   INDEX
00721      0120 00 0 01405   10001            +8      TPL   GN)085
00722      0500 00 0 00102   10001    NET             CLA   4)GROSS
00723      0402 00 0 00105   10001            +1      SUB   4)FICA
00724      0402 00 0 00106   10001            +2      SUB   4)WHT
00725      0402 00 0 00103   10001            +3      SUB   3)RETIREMENT
00726      0402 00 0 00104   10001            +4      SUB   3)INSURANCE
00727      0535 00 1 01667   10001            +5      LAC   BL)2,1
00730      7 00000 1 00446   10010            +6      TXL   SYS)294,1,0
00731      0402 00 1 00014   10000            +7      SUB   1)BONDEDUCTION,1
00732      0601 00 0 00107   10001            +8      STO   3)NETPAY
00733      0500 00 0 00114   10001            +9      CLA   5)GROSS
00734      0400 00 0 00102   10001            +10     ADD   4)GROSS
00735      0601 00 0 00114   10001            +11     STO   5)GROSS
00736      0500 00 0 00121   10001            +12     CLA   4)RETIREMENT
00737      0400 00 0 00103   10001            +13     ADD   3)RETIREMENT
00740      0601 00 0 00121   10001            +14     STO   4)RETIREMENT
00741      0500 00 0 00120   10001            +15     CLA   4)INSURANCE
00742      0400 00 0 00104   10001            +16     ADD   3)INSURANCE
00743      0601 00 0 00120   10001            +17     STO   4)INSURANCE
00744      0500 00 0 00116   10001            +18     CLA   5)FICA
00745      0400 00 0 00105   10001            +19     ADD   4)FICA
00746      0601 00 0 00116   10001            +20     STO   5)FICA
00747      0500 00 0 00115   10001            +21     CLA   5)WHT
00750      0400 00 0 00106   10001            +22     ADD   4)WHT
00751      0601 00 0 00115   10001            +23     STO   5)WHT
00752      0500 00 0 00122   10001            +24     CLA   4)NETPAY
00753      0400 00 0 00107   10001            +25     ADD   3)NETPAY
00754      0601 00 0 00122   10001            +26     STO   4)NETPAY
00755      0500 00 0 00113   10001            +27     CLA   4)HOURS
00756      0400 00 0 00110   10001            +28     ADD   3)HOURS
00757      0601 00 0 00113   10001            +29     STO   4)HOURS
00760      0500 00 1 00007   10000            +30     CLA   1)GROSS,1
00761      0400 00 0 00102   10001            +31     ADD   4)GROSS
00762      0601 00 1 00007   10000            +32     STO   1)GROSS,1
00763      0500 00 1 00010   10000            +33     CLA   1)RETIREMENT,1
00764      0400 00 0 00103   10001            +34     ADD   3)RETIREMENT
00765      0601 00 1 00010   10000            +35     STO   1)RETIREMENT,1
00766      0500 00 1 00011   10000            +36     CLA   1)INSURANCE,1
00767      0400 00 0 00104   10001            +37     ADD   3)INSURANCE
00770      0601 00 1 00011   10000            +38     STO   1)INSURANCE,1
00771      4500 00 0 00006   10001            +39     CAL   3)EMPLOYEE.NUMBER