COMTRAN Reconstruction

J28-6169 · January 1962

90.05 listing

PDF page 202 of 221. Download the scanned PDF

The page as scanned

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

The text read off it

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

Symbolic assembly listing: error routine, high-detail and low-detail handling, end-of-masters Sample-program compilation listing — printer output page 11 of 16 (labels GN)064–GN)067, LOW.DETAIL, END.OF.MASTERS, END.OF.DETAILS) (PDF p.202).

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


00264      0604 00 0 00205   10010            +6      STI   SYS)133
00265      4500 00 0 01667   10001            +7      CAL   BL)2
00266      0361 00 0 01747   10001            +8      ACL   CP)+43
00267      0602 00 0 00204   10010            +9      SLW   SYS)132
00270      0074 00 4 00266   10010            +10     TSX   SYS)182,4
00271      1 00025 1 00360   10010            +11     TXI   SYS)240,1,21
00272      1 00002 1 00361   10010            +12     TXI   SYS)241,1,2
00273      0074 00 4 00011   10010            +13     TSX   IOC)9,4
00274      0 00000 0 04007   10010            +14     PZE   ERRORFILE,,0
00275      7 00004 0 00076   10001            +15     IOST  ERROROUT,,4
00276      3 01717 0 01722   10101            +16     TXH   CP)+22,0,CP)+19
00277      0074 00 4 00010   10010            +17     TSX   IOC)8,4
00300      0 00404 0 04001   11010            +18     PZE   INPUTMASTER,,SYS)260
00301      0 00433 0 00304   11001            +19     PZE   GN)064,,SYS)283
00302      5 00017 6 01667   10001            +20     IOCTN*  BL)2,,15
00303      0020 00 0 00307   10001            +21     TRA   GN)065
00304      0774 00 7 00307   10001    GN)064          AXT   *+3,7
00305      0634 00 4 00331   10001            +1      SXA   END.OF.MASTERS,4
00306      0020 00 0 00332   10001            +2      TRA   END.OF.MASTERS+1
00307      0020 00 0 00241   10001    GN)065          TRA   COMPARE.EMPLOYEE.NUMBERS
00310      0441 00 0 01746   10001    LOW.DETAIL      LDI   CP)+42
00311      0604 00 0 00205   10010            +1      STI   SYS)133
00312      4500 00 0 01670   10001            +2      CAL   BL)3
00313      0361 00 0 01750   10001            +3      ACL   CP)+44
00314      0602 00 0 00204   10010            +4      SLW   SYS)132
00315      0074 00 4 00266   10010            +5      TSX   SYS)182,4
00316      1 00017 1 00360   10010            +6      TXI   SYS)240,1,15
00317      1 00010 1 00361   10010            +7      TXI   SYS)241,1,8
00320      4500 00 0 01721   10001            +8      CAL   CP)+21
00321      0320 00 0 00076   10001            +9      ANS   ERRORTYPE
00322      0760 00 0 00006   10000            +10     COM
00323      4320 00 0 01677   10001            +11     ANA   CP)+3
00324      4602 00 0 00076   10001            +12     ORS   ERRORTYPE
00325      0074 00 4 00011   10010            +13     TSX   IOC)9,4
00326      0 00000 0 04007   10010            +14     PZE   ERRORFILE,,0
00327      7 00004 0 00076   10001            +15     IOST  ERROROUT,,4
00330      0020 00 0 00232   10001            +16     TRA   GET.DETAIL
00331      0774 00 0 00000   10000    END.OF.MASTERS  AXT   0
00332      4500 00 0 01723   10001            +1      CAL   CP)+23
00333      0535 00 1 01670   10001            +2      LAC   BL)3,1
00334      7 00000 1 00446   10010            +3      TXL   SYS)294,1,0
00335      4340 00 1 00000   10000            +4      LAS   2)EMPLOYEE.NUMBER,1
00336      0020 00 0 00342   10001            +5      TRA   GN)066
00337      0020 00 0 00341   10001            +6      TRA   *+2
00340      0020 00 0 00342   10001            +7      TRA   GN)066
00341      0020 00 0 00370   10001            +8      TRA   END.OF.RUN
00342      4500 00 0 01667   10001    GN)066          CAL   BL)2
00343      0361 00 0 01751   10001            +1      ACL   CP)+45
00344      0602 00 0 00205   10010            +2      SLW   SYS)133
00345      0074 00 4 00266   10010            +3      TSX   SYS)182,4
00346      1 00006 1 00365   10010            +4      TXI   SYS)245,1,6
00347      747474747474      10000            +5      OCT   747474747474
00350      0020 60 0 00331   10001    GN)067          TRA*  END.OF.MASTERS
00351      4500 00 0 01723   10001    END.OF.DETAILS  CAL   CP)+23
00352      0535 00 1 01667   10001            +1      LAC   BL)2,1

Transcriber’s note — row 00350's tag field (60) and the asterisk following TRA are as printed; verified against an enlarged crop of the page image.