• Abstract / Synopsis of DMSZAP
• Latest Source of DMSZAP
• Fixes Applied : 7
• Latest Source Date : Tuesday, December 12, 1978
• Last Fix ID : [R11269DS]

CMS File Input : DMSZAP ASSEMBLE
Date : 12/12/1978 8:38:00 AM
VM Context : MAINT(393)
File Name : DMSZAP.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:33 AM
Created : 1/16/2021 7:31:33 AM

1. R08997DS 601 ZAP TXTLIB DUMP CSECT MAY LOOP IF TXTLIB IS LARGE
2. R09238DS 605 DMSZAP UNABLE TO APPLY ZAP TO FORTRAN COMPILER TEXT IN TXTLIB
3. R09155DS 605 DMSZAP DUMP INCORRECT IF TXTLIB CSECT CONTAINS ORG AT END OF TEXT
4. R10372DS 608 ZAP DUMP COMMAND FOR MODULE, CSECT, AND ADDRESS DUMPS WRONG CSECT
5. R10327DS 610 MSDMSZAP070E ISSUED ON CONTROL RECORD FOLLOWING REP
6. R10838DS 613 UV01337 CSECT SEARCH IN ZAP PROGRAM FAILS WITH INCORRECT ESD COUNT
7. R11269DS 615 UV01805 ZAP LOG ENTRIES CONTAIN INCORRECT DATE AND TIME STAMP

Date Wednesday Feb 21, 1979 09:53:00 AM
Loaded from MAINT(193)

       R08997DS: ./ I 1530000 $ 1530200 200
       R08997DS:          TM    SWT,ZAPM            ZAP MODULE?                 @VA08997
       R08997DS:          BO    DORGI               YES, CONTINUE               @VA08997
       R08997DS:          L     R1,RECENDA          GET END DISPLACEMENT        @VA08997
       R08997DS: DORGI    EQU   *                                               @VA08997
       R08997DS: ./ I 1594000 $ 1594200 200
       R08997DS:          TM    SWT,ZAPM            ZAP MODULE?                 @VA08997
       R08997DS:          BO    SETADDC             YES,CONTINUE                @VA08997
       R08997DS:          L     R15,RECENDA         GET START DISPLACEMENT      @VA08997
       R08997DS: SETADDC  EQU   *                                               @VA08997
 BEGIN APPLY >>> ./ I 1530000 $ 1530200 200
   END APPLY >>> ./ I 1530000 $ 1530200 200
 BEGIN APPLY >>> ./ I 1594000 $ 1594200 200
   END APPLY >>> ./ I 1594000 $ 1594200 200
Update Succeeded
Update Execution Time 23 milliseconds.

Date Monday Oct 08, 1979 07:06:00 AM
Loaded from MAINT(193)

       R09238DS: ./ R 2060000 $ 2059100 80
       R09238DS:          TM    SWT,ZAPT       TXTLIB SPECIFIED?                @VA09238
       R09238DS:          BZ    CESDEND        NO, BYPASS                       @VA09238
       R09238DS:          BCT   R7,CESDEND     EXAMINE FIRST CSECT ONLY         @VA09238
       R09238DS:          ICM   R10,7,ESDLEN+1 GET LENGTH FIELD                 @VA09238
       R09238DS:          BNZ   CESDEND        BRANCH IF LENGTH IS FOUND        @VA09238
       R09238DS:          SR    R7,R7          CLEAR REGISTER                   @VA09238
       R09238DS:          ICM   R7,3,RECNUM    REMEMBER RECORD NUMBER           @VA09238
       R09238DS: CESDLOOP EQU   *                                               @VA09238
       R09238DS:          SR    R10,R10        CLEAR REGISTER                   @VA09238
       R09238DS:          ICM   R10,3,RECNUM   INITIALIZE FOR LOOP              @VA09238
       R09238DS:          LA    R10,1(R10)     NEXT RECORD                      @VA09238
       R09238DS:          STH   R10,RECNUM     SAVE RECORD NUMBER               @VA09238
       R09238DS:          BAL   R10,RDLIB      READ THE RECORD                  @VA09238
       R09238DS:          CLC   ENDREC,LIBRCD  END OF TXTLIB MEMBER?            @VA09238
       R09238DS:          BE    CESDEND2       IF SO, NO END CARD PRESENT       @VA09238
       R09238DS:          CLC   ENDRECA,LIBRCD SEARCH FOR END CARD              @VA09238
       R09238DS:          BNE   CESDLOOP       IF NOT FOUND, REPEAT LOOP        @VA09238
       R09238DS:          CLC   LIBRCD+28(4),BLANKS LENGTH FIELD FOUND?         @VA09238
       R09238DS:          BE    CESDEND2       NO, FIELD IS BLANK               @VA09238
       R09238DS:          MVC   ESDLEN+1(3),LIBRCD+29 MOVE TO ESD LENGTH FIELD  @VA09238
       R09238DS: CESDEND2 EQU   *                                               @VA09238
       R09238DS:          STH   R7,RECNUM      RESTORE RECORD NUMBER            @VA09238
       R09238DS: CESDEND  EQU   *                                               @VA09238
 BEGIN APPLY >>> ./ R 2060000 $ 2059100 80
   END APPLY >>> ./ R 2060000 $ 2059100 80
Update Succeeded
Update Execution Time 23 milliseconds.

Date Monday Oct 08, 1979 06:21:00 AM
Loaded from MAINT(193)

       R09155DS: ./ R 242000 $ 241700 700
       R09155DS: *   R13 WILL BE SET LATER
       R09155DS:          USING DMSZAP,R12,R11,R9,R13                           @VA09155
       R09155DS: ./ I 255000 $ 255300 300
       R09155DS:          LA    R13,4095(,R9)  INITIALIZE R13 AS                @VA09155
       R09155DS:          LA    R13,1(,R13)    FOURTH BASE REG                  @VA09155
       R09155DS: ./ I 1499000 $ 1499300 300
       R09155DS:          TM    ECSWT,EOCSORG  ORG FOUND AT END OF CSECT?       @VA09155
       R09155DS:          BO    DORGDA         YES, NOT LAST LINE               @VA09155
       R09155DS: ./ I 1611000 $ 1611100 80
       R09155DS:          SPACE
       R09155DS: ***********************************************************************
       R09155DS: *                                                                     *
       R09155DS: *        PROCESSING OF TXTLIB RECORDS IS COMPLETED AT CSECT END       *
       R09155DS: *        EXCEPT WHEN AN ORG IS INCLUDED AT THE END ADDRESS.           *
       R09155DS: *        TO DETECT THIS EXCEPTION THE RECORD POINTER IS ADJUSTED      *
       R09155DS: *        TEMPORARILY TO ALLOW READING THE NEXT RECORD.                *
       R09155DS: *                                                                     *
       R09155DS: ***********************************************************************
       R09155DS:          SPACE
       R09155DS:          STH   R1,LNINDSAV    SAVE LINE INDICATOR SETTING      @VA09155
       R09155DS: ./ R 1616000 1617000 $ 1615100 60
       R09155DS:          TM    SWT,ZAPT       DUMPING A TXTLIB?                @VA09155
       R09155DS:          BNO   ENDCSECT       NO, END OF CSECT                 @VA09155
       R09155DS:          TM    DUPSWT,DUPSTRTA     DUMPING PART OF CSECT?      @VA09155
       R09155DS:          BO    ENDCSECT       YES, NO SEARCH FOR ORG BACK      @VA09155
       R09155DS:          TM    ECSWT,ENDCD    END CARD ENCOUNTERED?            @VA09155
       R09155DS:          BO    ENDCSECT       YES, DON'T TEST FOR MORE TEXT    @VA09155
       R09155DS:          TM    ECSWT,EOCSORG  ORG FOUND AT END OF CSECT?       @VA09155
       R09155DS:          BO    SETNTLST       YES, TURN OFF LAST LINE FLAG     @VA09155
       R09155DS:          SR    R10,R10        CLEAR REGISTER                   @VA09155
       R09155DS:          ICM   R10,M3,RECNUM  CURRENT TEXT RECORD POINTER      @VA09155
       R09155DS:          LA    R10,1(R10)     POINT TO NEXT RECORD             @VA09155
       R09155DS:          L     R15,RECEND     END ADDRESS OF CURRENT TEXT      @VA09155
       R09155DS:          S     R15,PACKADDE   LOWER THAN END OF CSECT?         @VA09155
       R09155DS:          BNM   TRECNUM        NO, END OF DATA IF NO ORG FOUND  @VA09155
       R09155DS:          LA    R10,1(10)      NOT EOD, INCREASE RECORD NUMBER  @VA09155
       R09155DS: TRECNUM  EQU   *                                               @VA09155
       R09155DS:          STH   R10,RECNUM     SET TEMPORARY RECORD POINTER     @VA09155
       R09155DS:          BAL   R10,RDLIB      READ THE RECORD                  @VA09155
       R09155DS:          SR    R10,R10        CLEAR REGISTER                   @VA09155
       R09155DS:          ICM   R10,M3,RECNUM  GET RECORD NUMBER                @VA09155
       R09155DS:          BCTR  R10,0          RETURN TO PRECEDING RECORD       @VA09155
       R09155DS:          L     R15,RECEND     GET END ADDRESS OF CURRENT TEXT  @VA09155
       R09155DS:          S     R15,PACKADDE   LESS THAN END OF CSECT?          @VA09155
       R09155DS:          BNM   CRECNUM        NO, POINTER IS AT CURRENT RECORD @VA09155
       R09155DS:          BCTR  R10,0          READJUST RECORD POINTER          @VA09155
       R09155DS: CRECNUM  EQU   *                                               @VA09155
       R09155DS:          STH   R10,RECNUM     RESTORE RECORD NUMBER            @VA09155
       R09155DS:          CLC   TXTREC,LIBRCD  WAS FOLLOWING RECORD 'TXT'?      @VA09155
       R09155DS:          BNE   ENDCSTXT       NO, END OF TEXT                  @VA09155
       R09155DS:          CLC   LIBRCD+14(2),CSECTID+2 SAME CSECT ID?           @VA09155
       R09155DS:          BNE   ENDCSTXT       NO, NEXT CSECT READ              @VA09155
       R09155DS:          SR    R10,R10        CLEAR REGISTER                   @VA09155
       R09155DS:          ICM   R10,M7,LIBRCD+5     GET NEXT TEXT DISPLACEMENT  @VA09155
       R09155DS:          S     R10,PACKADDE   WITHIN ESD LIMIT?                @VA09155
       R09155DS:          BNM   ENDCSTXT       NO, END OF CSECT                 @VA09155
       R09155DS:          OI    ECSWT,EOCSORG  INDICATE ORG AT END OF CSECT     @VA09155
       R09155DS:          BAL   R10,RDLIB      READ CURRENT TEXT RECORD BACK IN @VA09155
       R09155DS:          B     SETNTLST       TURN OFF LAST LINE FLAG          @VA09155
       R09155DS: ENDCSTXT EQU   *                                               @VA09155
       R09155DS:          BAL   R10,RDLIB      RESTORE LAST TEXT RECORD         @VA09155
       R09155DS: ENDCSECT EQU   *                                               @VA09155
       R09155DS:          L     R15,PACKADDS   RESTORE START DISPLACEMENT       @VA09155
       R09155DS:          S     R15,PACKADDE   COMPARE WITH ESD LIMIT           @VA09155
       R09155DS:          BE    SETHFLN        BRANCH IF EQUAL                  @V2A3765
       R09155DS:          SR    R7,R15         GET LENGTH                       @V2A3765
       R09155DS: ./ I 1627000 $ 1627300 300
       R09155DS:          LH    R1,LNINDSAV    RESTORE LINE INDICATOR           @VA09155
       R09155DS: SETHFLN1 EQU   *                                               @VA09155
       R09155DS: ./ R 1631000 $ 1631000
       R09155DS:          BCT   R1,SETHFLN1    DO SECOND HALF OR FALL THRU      @VA09155
       R09155DS: ./ I 1649000 $ 1649500
       R09155DS: LNINDSAV DC    H'0'                                            @VA09155
       R09155DS: ./ I 1731000 $ 1731200 200
       R09155DS:          TM    ECSWT,ENDCD    CHECK FOR END CARD               @VA09155
       R09155DS:          BNO   LSTLNTST       IF NOT END, TEST FOR LAST LINE   @VA09155
       R09155DS:          OI    LINESWT,LASTLINE    INDICATE LAST LINE          @VA09155
       R09155DS: LSTLNTST EQU   *                                               @VA09155
       R09155DS: ./ R 2130000 2131000 $ 2130000 1000
       R09155DS: *        READ ZAP FILE SEARCHING FOR RECORD TO BE DUMPED,
       R09155DS: *        VERIFIED, OR REPLACED
       R09155DS: ./ I 2279000 $ 2279500
       R09155DS:          NI    ECSWT,255-EOCSORG   REMOVE SETTING              @VA09155
       R09155DS: ./ I 3056000 $ 3056500
       R09155DS: EOCSORG  EQU   X'10'          INDICATES ORG AT END OF CSECT    @VA09155
       R09155DS: ./ I 3117000 $ 3117300 300
       R09155DS: M3       EQU   3              MASK B'0011'                     @VA09155
       R09155DS: M7       EQU   7              MASK B'0111'                     @VA09155
 BEGIN APPLY >>> ./ R 242000 $ 241700 700
   END APPLY >>> ./ R 242000 $ 241700 700
 BEGIN APPLY >>> ./ I 255000 $ 255300 300
   END APPLY >>> ./ I 255000 $ 255300 300
 BEGIN APPLY >>> ./ I 1499000 $ 1499300 300
   END APPLY >>> ./ I 1499000 $ 1499300 300
 BEGIN APPLY >>> ./ I 1611000 $ 1611100 80
   END APPLY >>> ./ I 1611000 $ 1611100 80
 BEGIN APPLY >>> ./ R 1616000 1617000 $ 1615100 60
   END APPLY >>> ./ R 1616000 1617000 $ 1615100 60
 BEGIN APPLY >>> ./ I 1627000 $ 1627300 300
   END APPLY >>> ./ I 1627000 $ 1627300 300
 BEGIN APPLY >>> ./ R 1631000 $ 1631000
   END APPLY >>> ./ R 1631000 $ 1631000
 BEGIN APPLY >>> ./ I 1649000 $ 1649500
   END APPLY >>> ./ I 1649000 $ 1649500
 BEGIN APPLY >>> ./ I 1731000 $ 1731200 200
   END APPLY >>> ./ I 1731000 $ 1731200 200
 BEGIN APPLY >>> ./ R 2130000 2131000 $ 2130000 1000
   END APPLY >>> ./ R 2130000 2131000 $ 2130000 1000
 BEGIN APPLY >>> ./ I 2279000 $ 2279500
   END APPLY >>> ./ I 2279000 $ 2279500
 BEGIN APPLY >>> ./ I 3056000 $ 3056500
   END APPLY >>> ./ I 3056000 $ 3056500
 BEGIN APPLY >>> ./ I 3117000 $ 3117300 300
   END APPLY >>> ./ I 3117000 $ 3117300 300
Update Succeeded
Update Execution Time 78 milliseconds.

Date Friday Dec 28, 1979 12:27:00 PM
Loaded from MAINT(193)

       R10372DS: ./ D 722000
       R10372DS: ./ I 728000 $ 728500
       R10372DS:          ST    R15,PACKADDS   SAVE ADJUSTED START ADDRESS      @VA10372
       R10372DS: ./ D 734000 740000
       R10372DS: ./ D 743000
       R10372DS: ./ I 745000 $ 745500
       R10372DS:          ST    R15,PACKADDE   SAVE ADJUSTED END ADDRESS        @VA10372
 BEGIN APPLY >>> ./ D 722000
   END APPLY >>> ./ D 722000
 BEGIN APPLY >>> ./ I 728000 $ 728500
   END APPLY >>> ./ I 728000 $ 728500
 BEGIN APPLY >>> ./ D 734000 740000
   END APPLY >>> ./ D 734000 740000
 BEGIN APPLY >>> ./ D 743000
   END APPLY >>> ./ D 743000
 BEGIN APPLY >>> ./ I 745000 $ 745500
   END APPLY >>> ./ I 745000 $ 745500
Update Succeeded
Update Execution Time 47 milliseconds.

Date Wednesday Feb 27, 1980 01:30:00 AM
Loaded from MAINT(193)

       R10327DS: ./ R 516000 $ 516000
       R10327DS:          BAL   R10,DUMMYLOG   LOG MESSAGE                      @VA10327
       R10327DS: ./ I 558000 $ 558300 300
       R10327DS:          MVC   FSCBFM(1),RDMODE    ALSO, GET FILEMODE          @VA10327
       R10327DS:          MVC   WORKFSCB+24(1),RDMODE  SAME MODE FOR WORKFILE   @VA10327
       R10327DS: ./ R 622000 $ 622000
       R10327DS:          TM    OPSWT,REPOP    REP ALREADY PROCESSED?           @VA10327
       R10327DS: ./ R 626000 $ 626000
       R10327DS:          BAL   R10,LOGNOTF    OTHERWISE WRITE DUMMY RECORD     @VA10327
       R10327DS: ./ I 771000 $ 771100 100
       R10327DS:          TM    OPSWT,REPOP    REP ALREADY PROCESSED?           @VA10327
       R10327DS:          BNO   GOODTHR1       NO                               @VA10327
       R10327DS:          TM    OPSWT,NOGO     WAS ERROR ENCOUNTERED?           @VA10327
       R10327DS:          BO    GOODTHR1       YES, BYPASS LOG                  @VA10327
       R10327DS:          TM    SWT2,LOGHIT    WAS IT LOGGED?                   @VA10327
       R10327DS:          BO    GOODTHR1       YES                              @VA10327
       R10327DS:          OI    SWT2,REPNOLOG  INDICATE UNLOGGED REP            @VA10327
       R10327DS: GOODTHR1 EQU   *                                               @VA10327
       R10327DS: ./ I 864000 $ 864250 250
       R10327DS:          TM    SWT2,REPNOLOG  REP NOT YET LOGGED?              @VA10327
       R10327DS:          BNO   ENDVER         NO                               @VA10327
       R10327DS:          OI    OPSWT,REPOP    YES, SET REP INDICATOR ON        @VA10327
       R10327DS: ./ I 865000 $ 865500
       R10327DS:          NI    SWT2,X'FF'-REPNOLOG  RESET INDICATOR            @VA10327
       R10327DS: ./ R 933000 $ 933000
       R10327DS:          TM    OPSWT,REPOP    REP ALREADY PROCESSED?           @VA10327
       R10327DS: ./ R 937000 $ 937000
       R10327DS:          BAL   R10,LOGNOTF    OTHERWISE WRITE DUMMY RECORD     @VA10327
       R10327DS: ./ I 2701000 $ 2701300 300
       R10327DS:          MVC   AUXFM1(1),FSTM NEED SAME MODE LETTER IN         @VA10327
       R10327DS:          MVC   AUXFM2(1),FSTM     FILEID'S FOR RENAME          @VA10327
       R10327DS: ./ R 2802000 $ 2802000
       R10327DS:          TM    OPSWT,REPOP    REP ALREADY PROCESSED?           @VA10327
       R10327DS: ./ R 2806000 $ 2806000
       R10327DS:          BAL   R10,LOGNOTF    OTHERWISE WRITE DUMMY RECORD     @VA10327
       R10327DS: ./ R 2859000 $ 2859000
       R10327DS: AUXFM1   DC    CL8'A5'                                         @VA10327
       R10327DS: ./ R 2861000 $ 2861000
       R10327DS: AUXFM2   DC    CL8'A1'                                         @VA10327
       R10327DS: ./ I 3023000 $ 3023100
       R10327DS: REPNOLOG EQU   X'10'          REP NOT YET LOGGED               @VA10327
       R10327DS: ./ I 3343000 $ 3343125 125
       R10327DS:          EJECT
       R10327DS: DUMMYLOG EQU   *
       R10327DS:          DMSERR TEXT='DUMMY LOG ENTRY IN FILE ''........ ZAPLOG ..''', X
       R10327DS:                NUM=249,LET=I,SUB=(CHARA,MEMNAME,CHARA,AUXFM2),         X
       R10327DS:                MF=(E,RDERLIST)                                 @VA10327
       R10327DS:          BR    R10            RETURN                           @VA10327
 BEGIN APPLY >>> ./ R 516000 $ 516000
   END APPLY >>> ./ R 516000 $ 516000
 BEGIN APPLY >>> ./ I 558000 $ 558300 300
   END APPLY >>> ./ I 558000 $ 558300 300
 BEGIN APPLY >>> ./ R 622000 $ 622000
   END APPLY >>> ./ R 622000 $ 622000
 BEGIN APPLY >>> ./ R 626000 $ 626000
   END APPLY >>> ./ R 626000 $ 626000
 BEGIN APPLY >>> ./ I 771000 $ 771100 100
   END APPLY >>> ./ I 771000 $ 771100 100
 BEGIN APPLY >>> ./ I 864000 $ 864250 250
   END APPLY >>> ./ I 864000 $ 864250 250
 BEGIN APPLY >>> ./ I 865000 $ 865500
   END APPLY >>> ./ I 865000 $ 865500
 BEGIN APPLY >>> ./ R 933000 $ 933000
   END APPLY >>> ./ R 933000 $ 933000
 BEGIN APPLY >>> ./ R 937000 $ 937000
   END APPLY >>> ./ R 937000 $ 937000
 BEGIN APPLY >>> ./ I 2701000 $ 2701300 300
   END APPLY >>> ./ I 2701000 $ 2701300 300
 BEGIN APPLY >>> ./ R 2802000 $ 2802000
   END APPLY >>> ./ R 2802000 $ 2802000
 BEGIN APPLY >>> ./ R 2806000 $ 2806000
   END APPLY >>> ./ R 2806000 $ 2806000
 BEGIN APPLY >>> ./ R 2859000 $ 2859000
   END APPLY >>> ./ R 2859000 $ 2859000
 BEGIN APPLY >>> ./ R 2861000 $ 2861000
   END APPLY >>> ./ R 2861000 $ 2861000
 BEGIN APPLY >>> ./ I 3023000 $ 3023100
   END APPLY >>> ./ I 3023000 $ 3023100
 BEGIN APPLY >>> ./ I 3343000 $ 3343125 125
   END APPLY >>> ./ I 3343000 $ 3343125 125
Update Succeeded
Update Execution Time 102 milliseconds.

Date Wednesday Jun 04, 1980 05:28:00 AM
Loaded from MAINT(193)

       R10838DS: ./ R 2090000 2094000 $ 2091000 2000
       R10838DS:          CLI   ESDTYPE,XONE   IS ESD A LABEL DEFINITION?       @VA10838
       R10838DS:          BE    ESDNXT         YES, ITEM NOT COUNTED            @VA10838
       R10838DS: ./ R 3121000 $ 3121000
       R10838DS: XONE     EQU   1                                               @VA10838
 BEGIN APPLY >>> ./ R 2090000 2094000 $ 2091000 2000
   END APPLY >>> ./ R 2090000 2094000 $ 2091000 2000
 BEGIN APPLY >>> ./ R 3121000 $ 3121000
   END APPLY >>> ./ R 3121000 $ 3121000
Update Succeeded
Update Execution Time 23 milliseconds.

Date Thursday Jul 31, 1980 07:23:00 AM
Loaded from MAINT(193)

       R11269DS: ./ I 563000 $ 563300 300
       R11269DS:          LA    R1,DTTMBUF     PREPARE TO READ CP CLOCK         @VA11269
       R11269DS:          DC    X'8310000C'    'DIAGNOSE' TO READ CLOCK         @VA11269
       R11269DS: ./ R 566000 $ 566000
       R11269DS:          MVC   AUXDATE(L'CURRDATE+L'CURRTIME,R4),DTTMBUF               X
       R11269DS:                     GET DATE AND TIME FOR LOG ENTRY            @VA11269
       R11269DS: ./ I 2889000 $ 2889500
       R11269DS: DTTMBUF  DS    4D             DATE AND TIME BUFFER             @VA11269
 BEGIN APPLY >>> ./ I 563000 $ 563300 300
   END APPLY >>> ./ I 563000 $ 563300 300
 BEGIN APPLY >>> ./ R 566000 $ 566000
   END APPLY >>> ./ R 566000 $ 566000
 BEGIN APPLY >>> ./ I 2889000 $ 2889500
   END APPLY >>> ./ I 2889000 $ 2889500
Update Succeeded
Update Execution Time 39 milliseconds.