COMTRAN Reconstruction

J28-6169 · January 1962

90.05 listing

PDF page 201 of 221. Download the scanned PDF

The page as scanned

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

The text read off it

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

Symbolic assembly listing: master/detail file open and department/employee compare routines Sample-program compilation listing — printer output page 10 of 16 (labels GN)058–GN)063, GET.MASTER, GET.DETAIL, COMPARE.EMPLOYEE.NUMBERS, HIGH.DETAIL) (PDF p.201).

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


00200      0074 00 4 00010   10010            +11     TSX   IOC)8,4
00201      0 00404 0 04001   11010            +12     PZE   INPUTMASTER,,SYS)260
00202      0 00433 0 00205   11001            +13     PZE   GN)058,,SYS)283
00203      5 00017 6 01667   10001            +14     IOCTN*  BL)2,,15
00204      0020 00 0 00210   10001            +15     TRA   GN)059
00205      0774 00 7 00210   10001    GN)058          AXT   *+3,7
00206      0634 00 4 00331   10001            +1      SXA   END.OF.MASTERS,4
00207      0020 00 0 00332   10001            +2      TRA   END.OF.MASTERS+1
00210      4500 00 0 01714   10001    GN)059          CAL   CP)+16
00211      0320 00 0 00047   10001            +1      ANS   CURRENT.DEPT
00212      0535 00 1 01667   10001            +2      LAC   BL)2,1
00213      7 00000 1 00446   10010            +3      TXL   SYS)294,1,0
00214      4500 00 1 00000   10000            +4      CAL   1)DEPARTMENT,1
00215      0771 00 0 00022   10000            +5      ARS   18
00216      4320 00 0 01715   10001            +6      ANA   CP)+17
00217      4602 00 0 00047   10001            +7      ORS   CURRENT.DEPT
00220      0020 00 0 00232   10001            +8      TRA   GET.DETAIL
00221      3 01717 0 01716   10101    GET.MASTER      TXH   CP)+18,0,CP)+19
00222      0074 00 4 00010   10010            +1      TSX   IOC)8,4
00223      0 00404 0 04001   11010            +2      PZE   INPUTMASTER,,SYS)260
00224      0 00433 0 00227   11001            +3      PZE   GN)060,,SYS)283
00225      5 00017 6 01667   10001            +4      IOCTN*  BL)2,,15
00226      0020 00 0 00232   10001            +5      TRA   GN)061
00227      0774 00 7 00232   10001    GN)060          AXT   *+3,7
00230      0634 00 4 00331   10001            +1      SXA   END.OF.MASTERS,4
00231      0020 00 0 00332   10001            +2      TRA   END.OF.MASTERS+1
00232                                 GN)061
00232      3 01717 0 01720   10101    GET.DETAIL      TXH   CP)+20,0,CP)+19
00233      0074 00 4 00010   10010            +1      TSX   IOC)8,4
00234      0 00404 0 04003   11010            +2      PZE   DETAILFILE,,SYS)260
00235      0 00433 0 00240   11001            +3      PZE   GN)062,,SYS)283
00236      5 00003 6 01670   10001            +4      IOCTN*  BL)3,,3
00237      0020 00 0 00241   10001            +5      TRA   GN)063
00240      0020 00 0 00351   10001    GN)062          TRA   END.OF.DETAILS
00241                                 GN)063
00241      0535 00 1 01670   10001    COMPARE.EMPLOYEE.NUMBERS
                                                        LAC   BL)3,1
00242      7 00000 1 00446   10010            +1      TXL   SYS)294,1,0
00243      4500 00 1 00000   10000            +2      CAL   2)EMPLOYEE.NUMBER,1
00244      0535 00 2 01667   10001            +3      LAC   BL)2,2
00245      7 00000 2 00446   10010            +4      TXL   SYS)294,2,0
00246      4340 00 2 00000   10000            +5      LAS   1)EMPLOYEE.NUMBER,2
00247      0020 00 0 00251   10001            +6      TRA   *+2
00250      0020 00 0 00527   10001            +7      TRA   CHECK.NEW.DEPT
00251      4500 00 1 00000   10000            +8      CAL   2)EMPLOYEE.NUMBER,1
00252      4340 00 2 00000   10000            +9      LAS   1)EMPLOYEE.NUMBER,2
00253      0020 00 0 00256   10001            +10     TRA   *+3
00254      0020 00 0 00256   10001            +11     TRA   *+2
00255      0020 00 0 00310   10001            +12     TRA   LOW.DETAIL
00256      4500 00 0 01721   10001    HIGH.DETAIL     CAL   CP)+21
00257      0320 00 0 00076   10001            +1      ANS   ERRORTYPE
00260      0760 00 0 00006   10000            +2      COM
00261      4320 00 0 01676   10001            +3      ANA   CP)+2
00262      4602 00 0 00076   10001            +4      ORS   ERRORTYPE
00263      0441 00 0 01746   10001            +5      LDI   CP)+42