DMSZAP History
References
-
-
Fixes Applied : 7
-
Last Fix ID : [R11269DS]
Update History
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
Update Order
R08997DS 601 ZAP TXTLIB DUMP CSECT MAY LOOP IF TXTLIB IS LARGE
R09238DS 605 DMSZAP UNABLE TO APPLY ZAP TO FORTRAN COMPILER TEXT IN TXTLIB
R09155DS 605 DMSZAP DUMP INCORRECT IF TXTLIB CSECT CONTAINS ORG AT END OF TEXT
R10372DS 608 ZAP DUMP COMMAND FOR MODULE, CSECT, AND ADDRESS DUMPS WRONG CSECT
R10327DS 610 MSDMSZAP070E ISSUED ON CONTROL RECORD FOLLOWING REP
R10838DS 613 UV01337 CSECT SEARCH IN ZAP PROGRAM FAILS WITH INCORRECT ESD COUNT
R11269DS 615 UV01805 ZAP LOG ENTRIES CONTAIN INCORRECT DATE AND TIME STAMP
R08997DS
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.
R09238DS
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.
R09155DS
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.
R10372DS
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.
R10327DS
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.
R10838DS
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.
R11269DS
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.