ibm:vm370-lib:cp:dmkrsp.assemble_hst
Table of Contents
DMKRSP History
References
- Fixes Applied : 21
- Latest Source Date : Wednesday, January 10, 1979
- Last Fix ID : [HRC106DK]
Update History
CMS File Input : DMKRSP ASSEMBLE
Date : 1/10/1979 8:51:00 AM
VM Context : MAINT(394)
File Name : DMKRSP.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:47 AM
Created : 1/16/2021 7:31:47 AM
Update Order
- R09263DK 601 ISSUE MARK FORMS ON DRAIN PRINTING MULT COPIES
- R09313DK 601 ISSUE MARK FORMS BEFORE RECHAINING SPFBLOK
- R08952DK 601 FUTURE SERVICEABILITY
- R09343DK 602 FLUSH PRINT HOLD (3800) CAUSES LOST PRINT FILES
- R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
- R10076DK 604 CP DUMP SERVICES SUPPORT
- R09992DK 604 FLUSH COMMAND TO 3203-5 PRINTER CAUSES SYSTEM LOOP
- R09027DK 609 RDR DRAINED MSG CONTAINS GARBAGE IF RDR IS ACTIVE AT DRAIN COMMAND
- R09420DK 609 DMKRSP RESETS SPOOL FILE ID UNNECESSARILY WHEN QUEUES EMPTY
- R09859DK 610 3800 CHANNEL PROGRAM CHECK WITH OP CODE X'00' PRINT MULT COPIES
- R10003DK 610 MSDMKRSP500I COMMAND REJECT WHEN FLUSH HOLD COMMAND
- R10572DK 611 DMKTCS FRETS STORAGE, THEN TRIES TO USE AREA FOR RESTART CAW
- R10868DK 611 3203-5 LOST LINES WHEN START/STOP AND CHAN 9
- R09471DK 611 SAVING 3800 IMAGELIB AFTER FATAL I/O ERROR
- R11068DK 614 UV00862 D/T 3800 HANGS DURING BACKSPACE.
- R11232DK 618 UV02264 ABENDPGT002 ABENDPGT003 CHAIN PROBLEMS WITH SPLINKS
- R11799DK 618 UV02386 SYSTEM OR USER HOLD STATUS NOT BEING CHECKPOINTED
- R13267DK 622 UV04657 D/T3800 GOES IDLE THOUGH FILE IS AVAILABLE
- R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
- R12900DK 623 UV04857 DMKTCS FAILING TO CHECK FOR A CC FROM DMKRPAGT
- HRC302DK V04 CREATE INDIVIDUAL PRINT/PUNCH FILES IF HERCULES
- HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
R09263DK
Date Monday Jan 22, 1979 02:23:00 PM
Loaded from MAINT(294)
R09263DK: ./ I 934900 $ 934950 25
R09263DK: NI RSPFLAG1,X'FF'-(RSPBF1IO+RSPBF2IO+RSPBF1VL+RSPBF2VL) X
R09263DK: RESET THE I/O FLAGS @VA09263
R09263DK: ./ I 1261000 $ 1261100 100
R09263DK: OC RSPVPAG2,RSPVPAG2 DOUBLE BUFFERING ACTIVE? @VA09263
R09263DK: BNZ PRCCWS2 XFER IF SO @VA09263
R09263DK: ./ R 1263000 $ 1263000
R09263DK: PRCCWS2 TM RDEVTYPE,TYPPUN IS IT A PUNCH? @VA09263
R09263DK: ./ I 1299240 $ 1299247 6
R09263DK: L R2,RSPRPAGE GET THE DASD BUFFER ADDRESS @VA09263
R09263DK: LA R1,SPSIZE(,R2) POINT TO FIRST CCW @VA09263
R09263DK: ST R1,IOBCAW ADDRESS OF CHANNEL PROGRAM @VA09263
R09263DK: ./ I 1299930 $ 1299937 6
R09263DK: L R2,RSPRPAG2 GET THE DASD BUFFER ADDRESS @VA09263
R09263DK: LA R1,SPSIZE(,R2) POINT TO FIRST CCW @VA09263
R09263DK: ST R1,IOBCAW ADDRESS OF CHANNEL PROGRAM @VA09263
R09263DK: ./ I 1495000 $ 1495050 50
R09263DK: TM RDEVFLAG,RDEVSEP SEPARATOR PRINTED? @VA09263
R09263DK: BZ SAVEFIL2 XFER IF NOT @VA09263
R09263DK: LH R2,SFBCOPY SAVE NUMBER OF COPIES @VA09263
R09263DK: MVC SFBCOPY,=H'1' FORCE IT TO 1 @VA09263
R09263DK: CALL DMKTCSCO DO THE 'MARK FORM' @VA09263
R09263DK: STH R2,SFBCOPY RESTORE NUMBER OF COPIES @VA09263
R09263DK: ./ R 1496000 $ 1496000
R09263DK: SAVEFIL2 LA R2,30 SET FUNCTION INDEX @VA09263
BEGIN APPLY >>> ./ I 934900 $ 934950 25
END APPLY >>> ./ I 934900 $ 934950 25
BEGIN APPLY >>> ./ I 1261000 $ 1261100 100
END APPLY >>> ./ I 1261000 $ 1261100 100
BEGIN APPLY >>> ./ R 1263000 $ 1263000
END APPLY >>> ./ R 1263000 $ 1263000
BEGIN APPLY >>> ./ I 1299240 $ 1299247 6
END APPLY >>> ./ I 1299240 $ 1299247 6
BEGIN APPLY >>> ./ I 1299930 $ 1299937 6
END APPLY >>> ./ I 1299930 $ 1299937 6
BEGIN APPLY >>> ./ I 1495000 $ 1495050 50
END APPLY >>> ./ I 1495000 $ 1495050 50
BEGIN APPLY >>> ./ R 1496000 $ 1496000
END APPLY >>> ./ R 1496000 $ 1496000
Update Succeeded
Update Execution Time 23 milliseconds.
R09313DK
Date Tuesday Jan 30, 1979 01:18:00 PM
Loaded from MAINT(294)
R09313DK: ./ D 1495000
R09313DK: ./ I 1495300 $ 1495400 100
R09313DK: SAVEFIL2 BAL R5,RECHAIN RECHAIN THE FILE @VA09313
R09313DK: ./ R 1496000 $ 1496000
R09313DK: LA R2,30 SET FUNCTION INDEX @VA09313
BEGIN APPLY >>> ./ D 1495000
END APPLY >>> ./ D 1495000
BEGIN APPLY >>> ./ I 1495300 $ 1495400 100
END APPLY >>> ./ I 1495300 $ 1495400 100
BEGIN APPLY >>> ./ R 1496000 $ 1496000
END APPLY >>> ./ R 1496000 $ 1496000
Update Succeeded
Update Execution Time 16 milliseconds.
R08952DK
Date Wednesday Jan 24, 1979 01:02:00 AM
Loaded from MAINT(294)
R08952DK: ./ I 1338000 $ 1338500 500 00001000
R08952DK: DROP R12,R13 @VA08952 00002000
R08952DK: ./ R 1343000 $ 1343100 00003000
R08952DK: USING DMKRSP,R12,R13 @VA08952 00004000
BEGIN APPLY >>> ./ I 1338000 $ 1338500 500 00001000
END APPLY >>> ./ I 1338000 $ 1338500 500 00001000
BEGIN APPLY >>> ./ R 1343000 $ 1343100 00003000
END APPLY >>> ./ R 1343000 $ 1343100 00003000
Update Succeeded
Update Execution Time 23 milliseconds.
R09343DK
Date Wednesday Mar 28, 1979 02:08:00 AM
Loaded from MAINT(294)
R09343DK: ./ I 1458800 $ 1458840 35
R09343DK: TM SFBFLAG,SFBSHOLD IS FILE TO BE SAVED? @VA09343
R09343DK: BO SAVEFILE XFER IF SO @VA09343
R09343DK: TM RDEVFLAG,RDEVSEP SEPARATOR PRINTED? @VA09343
R09343DK: BZ PRDELET2 XFER IF NOT @VA09343
R09343DK: LH R2,SFBCOPY SAVE NUMBER OF COPIES @VA09343
R09343DK: MVC SFBCOPY,=H'1' FORCE IT TO 1 @VA09343
R09343DK: ./ I 1459200 $ 1459300 100
R09343DK: STH R2,SFBCOPY RESTORE NUMBER OF COPIES @VA09343
BEGIN APPLY >>> ./ I 1458800 $ 1458840 35
END APPLY >>> ./ I 1458800 $ 1458840 35
BEGIN APPLY >>> ./ I 1459200 $ 1459300 100
END APPLY >>> ./ I 1459200 $ 1459300 100
Update Succeeded
Update Execution Time 16 milliseconds.
R09957DK
Date Thursday Jul 12, 1979 09:53:00 AM
Loaded from MAINT(294)
R09957DK: ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
BEGIN APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Comment >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
END APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Update Succeeded
Update Execution Time 16 milliseconds.
R10076DK
Date Monday Jul 02, 1979 11:07:00 AM
Loaded from MAINT(294)
R10076DK: ./ I 00177000 $ 177500 500 04/12/79 08:04:36
R10076DK: ENTRY DMKRSPDP @V67CAH7 00177100
R10076DK: ./ I 01655000 $ 1655200 200 04/12/79 08:04:36
R10076DK: DC CL4'DUMP' @V67CAH7 01655100
R10076DK: DMKRSPDP DC A(0) ANCHOR OF DUMP IN @V67CAH7 01655200
R10076DK: * PROGRESS CHAIN 01655300
BEGIN APPLY >>> ./ I 00177000 $ 177500 500 04/12/79 08:04:36
END APPLY >>> ./ I 00177000 $ 177500 500 04/12/79 08:04:36
BEGIN APPLY >>> ./ I 01655000 $ 1655200 200 04/12/79 08:04:36
END APPLY >>> ./ I 01655000 $ 1655200 200 04/12/79 08:04:36
Update Succeeded
Update Execution Time 16 milliseconds.
R09992DK
Date Wednesday Sep 05, 1979 05:29:00 PM
Loaded from MAINT(294)
R09992DK: ./ R 1361000 $ 1361200 200 00001000
R09992DK: TERMCCW1 CCW X'1B',*-*,CC+SILI,1 SPACE 3 @VA09992 00002000
BEGIN APPLY >>> ./ R 1361000 $ 1361200 200 00001000
END APPLY >>> ./ R 1361000 $ 1361200 200 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09027DK
Date Tuesday Feb 05, 1980 12:11:00 PM
Loaded from MAINT(294)
R09027DK: ./ I 1593000 $ 1593300 300 00001000
R09027DK: LA R0,DRANMSZR READER MESSAGE SIZE @VA09027 00002000
R09027DK: TM RDEVTYPC,CLASURI IS IT A READER TYPE? @VA09027 00003000
R09027DK: BO GOMSG YES, DON'T RELOAD SIZE @VA09027 00004000
R09027DK: ./ I 1594000 $ 1594500 00005000
R09027DK: GOMSG EQU * @VA09027 00006000
R09027DK: ./ I 1633000 $ 1633500 00007000
R09027DK: DRANMSZR EQU *-DRANMSG @VA09027 00008000
BEGIN APPLY >>> ./ I 1593000 $ 1593300 300 00001000
END APPLY >>> ./ I 1593000 $ 1593300 300 00001000
BEGIN APPLY >>> ./ I 1594000 $ 1594500 00005000
END APPLY >>> ./ I 1594000 $ 1594500 00005000
BEGIN APPLY >>> ./ I 1633000 $ 1633500 00007000
END APPLY >>> ./ I 1633000 $ 1633500 00007000
Update Succeeded
Update Execution Time 16 milliseconds.
R09420DK
Date Tuesday Feb 05, 1980 12:12:00 PM
Loaded from MAINT(294)
R09420DK: ./ D 01564000 01573000 $ BEGIN APPLY >>> ./ D 01564000 01573000 $ END APPLY >>> ./ D 01564000 01573000 $ Update Succeeded Update Execution Time 23 milliseconds.
R09859DK
Date Friday Mar 14, 1980 05:15:00 AM
Loaded from MAINT(294)
R09859DK: ./ I 1488000 $ 1488100 100 000001000
R09859DK: NI IOBFLAG,X'FF'-IOBRSTRT RESET RESTART IN IOBLOK @VA09859 00002000
BEGIN APPLY >>> ./ I 1488000 $ 1488100 100 000001000
END APPLY >>> ./ I 1488000 $ 1488100 100 000001000
Update Succeeded
Update Execution Time 16 milliseconds.
R10003DK
Date Friday Mar 14, 1980 07:13:00 AM
Loaded from MAINT(294)
R10003DK: ./ I 1495100 $ 1495110 10 00001000
R10003DK: CLI RDEVTYPE,TYP3800 IS IT 3800 ? @VA10003 00002000
R10003DK: BNE SAVEFIL2 NO,CONTINUE AS BEFORE @VA10003 00003000
BEGIN APPLY >>> ./ I 1495100 $ 1495110 10 00001000
END APPLY >>> ./ I 1495100 $ 1495110 10 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R10572DK
Date Saturday Mar 29, 1980 01:29:00 AM
Loaded from MAINT(294)
R10572DK: ./ R 934200 $ 934200 00001000
R10572DK: BZ PROCESS3 TRANSFER IF EVERYTHING OK @VA10572 00002000
R10572DK: ./ I 934400 $ 934405 5 00003000
R10572DK: NI IOBFLAG,X'FF'-IOBRSTRT RESET RESTART IN IOBLOK @VA10572 00004000
R10572DK: ./ I 934850 $ 934855 5 00005000
R10572DK: PROCESS3 DS 0H @VA10572 00006000
R10572DK: NI IOBFLAG,X'FF'-IOBRSTRT RESET RESTART IN IOBLOK @VA10572 00007000
BEGIN APPLY >>> ./ R 934200 $ 934200 00001000
END APPLY >>> ./ R 934200 $ 934200 00001000
BEGIN APPLY >>> ./ I 934400 $ 934405 5 00003000
END APPLY >>> ./ I 934400 $ 934405 5 00003000
BEGIN APPLY >>> ./ I 934850 $ 934855 5 00005000
END APPLY >>> ./ I 934850 $ 934855 5 00005000
Update Succeeded
Update Execution Time 23 milliseconds.
R10868DK
Date Saturday Mar 29, 1980 03:29:00 AM
Loaded from MAINT(294)
R10868DK: ./ I 1733000 $ 1733050 50 00001000
R10868DK: CLC RDEVTYPC(2),=AL1(CLASURO,TYP3203) 3203? @VA10868
R10868DK: BNE NOT3203 NO, DON'T CARE @VA10868 00003000
R10868DK: TM IOERDATA,X'FE' CHANNEL 9 ALONE ? @VA10868 00004000
R10868DK: BZ NOT3203 YES, DON'T UPDATE CSW @VA10868 00005000
R10868DK: L R15,IOERCSW GET FAILING CCW ADDR @VA10868 00006000
R10868DK: CLI 0(R15),X'08' IS NEXT CCW A TIC ? @VA10868 00007000
R10868DK: BNE SAVECSW NO, GO BUMP CSW @VA10868 00008000
R10868DK: L R15,0(R15) GET CORRECT CCW ADDR @VA10868 00009000
R10868DK: SAVECSW LA R15,8(R15) ADJUST CSW FOR RSE @VA10868 00010000
R10868DK: STCM R15,7,IOERCSW+1 SAVE UPDATED CSW @VA10868 00011000
R10868DK: B CALLSPL AND CALL DMKRSERR @VA10868 00012000
R10868DK: NOT3203 DS 0H @VA10868 00013000
BEGIN APPLY >>> ./ I 1733000 $ 1733050 50 00001000
END APPLY >>> ./ I 1733000 $ 1733050 50 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09471DK
Date Saturday Mar 29, 1980 03:27:00 AM
Loaded from MAINT(294)
R09471DK: ./ I 101000 $ 101100 00001000
R09471DK: * DMKQNTBL - ANCHOR FOR 3800 NAMED SYSTEMS (IMAGLIBS) 00002000
R09471DK: ./ I 188000 $ 188100 00003000
R09471DK: EXTRN DMKQNTBL @VA09471 00004000
R09471DK: ./ R 881000 $ 881100 00005000
R09471DK: BAL R5,DRAINPRT DO EMERG DRAIN @VA09471 00006000
R09471DK: ./ R 1384000 $ 1384100 00007000
R09471DK: BAL R5,DRAINPRT DO EMERG DRAIN @VA09471 00008000
R09471DK: ./ I 1598000 $ 1598020 20 00009000
R09471DK: DRAINPRT DS 0H @VA09471 00010000
R09471DK: TM RDEVFLAG,RDEVDRAN ALREADY DRAINED ? @VA09471 00011000
R09471DK: BOR R5 YES - 3800 ACT COUNT CORRECT @VA09471 00012000
R09471DK: OI RDEVFLAG,RDEVDRAN SET DEVICE AS DRAINED @VA09471 00013000
R09471DK: CLI RDEVTYPE,TYP3800 IS IT A 3800 ? @VA09471 00014000
R09471DK: BNER R5 NO - RETURN TO CALLER @VA09471 00015000
R09471DK: L R14,RDEVEXTN POINT TO RDEVBLOK EXT @VA09471 00016000
R09471DK: USING RSPXBLOK,R14 @VA09471 00017000
R09471DK: XC RSPXBLOK(RSPXSIZE*8),RSPXBLOK CLEAR BLOCK @VA09471 00018000
R09471DK: DROP R14 @VA09471 00019000
R09471DK: * NOW DECR ACT COUNT FOR IMAGELIB CONTAINED IN RDEVIMAG 00020000
R09471DK: L R1,=A(DMKQNTBL) START OF 3800 IMAGELIBS @VA09471 00021000
R09471DK: LTR R1,R1 ARE THERE ANY ? @VA09471 00022000
R09471DK: BZR R5 NO - GET OUT FAST @VA09471 00023000
R09471DK: TRANS 2,1,OPT=(BRING,DEFER,SYSTEM) GET IT IN @VA09471 00024000
R09471DK: LR R14,R2 POINT TO FIRST SYSTEM ENTRY @VA09471 00025000
R09471DK: USING NPRTBL,R14 @VA09471 00026000
R09471DK: LTR R14,R14 ANY IMAGELIBS ? @VA09471 00027000
R09471DK: BZR R5 NO - GET OUT FAST @VA09471 00028000
R09471DK: NXTIMAG DS 0H @VA09471 00029000
R09471DK: CLC RDEVIMAG,NPRNAME IS THIS CURRENT SYSTEM ? @VA09471 00030000
R09471DK: BE GOTIMAG YES - GO DECR ACT COUNT @VA09471 00031000
R09471DK: AL R14,NPRPNT NEXT SYSTEM @VA09471 00032000
R09471DK: CLC NPRPNT,ZEROES IS IT DUMMY LAST ENTRY ? @VA09471 00033000
R09471DK: BNE NXTIMAG NO GO CHECK IT OUT @VA09471 00034000
R09471DK: BR R5 YES - GET OUT FAST @VA09471 00035000
R09471DK: GOTIMAG DS 0H @VA09471 00036000
R09471DK: SR R15,R15 CLEAR WORK REGISTER @VA09471 00037000
R09471DK: IC R15,NPRCNT GET OLD ACT COUNT @VA09471 00038000
R09471DK: LTR R15,R15 ALREADY ZERO ? @VA09471 00039000
R09471DK: BZR R5 YES - GET OUT FAST @VA09471 00040000
R09471DK: BCTR R15,0 DECR COUNT @VA09471 00041000
R09471DK: STC R15,NPRCNT SAVE NEW COUNT @VA09471 00042000
R09471DK: BR R5 RETURN TO CALLER @VA09471 00043000
R09471DK: DROP R14 @VA09471 00044000
R09471DK: SPACE 3 00045000
R09471DK: ./ I 1811000 $ 1811100 00046000
R09471DK: COPY NPRTBL @VA09471 00047000
BEGIN APPLY >>> ./ I 101000 $ 101100 00001000
END APPLY >>> ./ I 101000 $ 101100 00001000
BEGIN APPLY >>> ./ I 188000 $ 188100 00003000
END APPLY >>> ./ I 188000 $ 188100 00003000
BEGIN APPLY >>> ./ R 881000 $ 881100 00005000
END APPLY >>> ./ R 881000 $ 881100 00005000
BEGIN APPLY >>> ./ R 1384000 $ 1384100 00007000
END APPLY >>> ./ R 1384000 $ 1384100 00007000
BEGIN APPLY >>> ./ I 1598000 $ 1598020 20 00009000
END APPLY >>> ./ I 1598000 $ 1598020 20 00009000
BEGIN APPLY >>> ./ I 1811000 $ 1811100 00046000
END APPLY >>> ./ I 1811000 $ 1811100 00046000
Update Succeeded
Update Execution Time 31 milliseconds.
R11068DK
Date Tuesday Jul 08, 1980 06:18:00 AM
Loaded from MAINT(294)
R11068DK: ./ I 993800 $ 993850 20
R11068DK: NI RSPFLAG1,X'FF'-(RSPBF1VL+RSPBF1IO+RSPBF2VL+RSPBF2IO) X
R11068DK: TURN OFF BUFFER FLAGS @VA11068
R11068DK: ./ I 01082000 $ 01082100 100
R11068DK: OC RSPVPAG2,RSPVPAG2 DOUBLE BUFFERING ACTIVE? @VA11068
R11068DK: BZ *+8 NO @VA11068
R11068DK: OI RSPFLAG1,RSPBF1VL MARK BUFFER VALID @VA11068
BEGIN APPLY >>> ./ I 993800 $ 993850 20
END APPLY >>> ./ I 993800 $ 993850 20
BEGIN APPLY >>> ./ I 01082000 $ 01082100 100
END APPLY >>> ./ I 01082000 $ 01082100 100
Update Succeeded
Update Execution Time 16 milliseconds.
R11232DK
Date Monday Dec 08, 1980 12:01:00 PM
Loaded from MAINT(294)
R11232DK: ./ R 179000 179000 $ 179000 100 00001000
R11232DK: EXTRN DMKPGTSG,DMKRSERR,DMKPGTVG,DMKPGTVR,DMKPGTSD @VA11232 00002000
R11232DK: ./ D 366000 366000 $ 00003000
R11232DK: ./ R 368000 368000 $ 368000 050 00004000
R11232DK: LR R3,R1 SAVE ADDRESS OF NEXT PAGE @VA11232 00005000
R11232DK: L R1,SFBSTART START CCPD @VA11232 00006000
R11232DK: L R0,SPPREPAG IS THIS THE FIRST BUFFER ? @VA11232 00007000
R11232DK: LTR R0,R0 IF BACK PTR = ZERO, IT IS @VA11232 00008000
R11232DK: BNZ STSTRT WE ARE NOT REWRITING FIRST BUFFER@VA11232 00009000
R11232DK: C R1,RSPDPAGE FIRST TIME WRITING FIRST BUFFER? @VA11232 00010000
R11232DK: BE STSTRT YES, SFBSTART IS GOOD @VA11232 00011000
R11232DK: L R1,RSPDPAGE GET NEW CCPD FOR FIRST BUFFER @VA11232 00012000
R11232DK: ST R1,SFBSTART SAVE NEW START CCPD IN SFBSTART @VA11232 00013000
R11232DK: ST R1,SFBLAST AND SFBLAST @VA11232 00014000
R11232DK: STSTRT ST R1,SPRMISC SPRMISC CONTAINS START CCPD @VA11232 00015000
R11232DK: ./ R 378000 379000 $ 378000 1000 00016000
R11232DK: OI RSPFLAG2,RSPERR INDICATE WRITE ERROR @VA11232 00017000
R11232DK: MVC RSPDPAGE(4),SPNXTPAG USE NEXT CCPD AS CURRENT @VA11232 00018000
R11232DK: ./ R 390000 390000 $ 390000 100 00019000
R11232DK: TM RSPFLAG2,RSPERR STILL IN ERROR RECOVERY ? @VA11232 00020000
R11232DK: ./ R 392000 392000 $ 392000 100 00021000
R11232DK: NI RSPFLAG2,X'FF'-RSPERR RESET ERROR FLAG @VA11232 00022000
R11232DK: ./ R 394000 396000 $ 394000 100 00023000
R11232DK: BZ RDRSIO NO PREVIOUS BUFFER TO UPDATE @VA11232 00024000
R11232DK: ./ R 405000 406000 $ 405000 500 00025000
R11232DK: BZ MSG428A NO VIRTUAL ADDRESSES @VA11232 00026000
R11232DK: ST R1,RSPVPG2 SAVE SEC. VIRTUAL BUFF FOR FRET @VA11232 00027000
R11232DK: TRANS 2,1,OPT=(BRING,DEFER,LOCK,SYSTEM),IOER=MSG428A @VA11232 00028000
R11232DK: ./ R 409000 409000 $ 409000 100 00029000
R11232DK: BNZ MSG428A ERROR READING PREVIOUS BUFFER @VA11232 00030000
R11232DK: ./ R 413000 414000 $ 413000 100 00031000
R11232DK: BNZ MSG428A BUFFER WRITE ERROR @VA11232 00032000
R11232DK: LR R2,R4 RESTORE ORIGINAL BUFFER ADDRESS @VA11232 00033000
R11232DK: L R0,SPPREPAG UPDATE SFBPNT AND SFBLAST @VA11232 00034000
R11232DK: ST R0,SFBPNT ... @VA11232 00035000
R11232DK: ST R0,SFBLAST SFBLAST ALSO @VA11232 00036000
R11232DK: SLR R0,R0 RELEASE STORAGE PAGE @VA11232 00037000
R11232DK: ./ R 417000 418000 $ 417000 100 00038000
R11232DK: LR R2,R4 POINT TO ORIGINAL BUFFER @VA11232 00039000
R11232DK: ST R0,RSPVPG2 CLEAR PTR TO SECOND VIRTUAL BUFF @VA11232 00040000
R11232DK: B STARTIO CALL FOR SIO @VA11232 00041000
R11232DK: RDRSIO MVC SFBLAST,SPPREPAG SAVE LAST GOOD BUFFER @VA11232 00042000
R11232DK: RDRSIO2 MVC SFBPNT,SPPREPAG AND IN LAST TOO @VA11232 00043000
R11232DK: STARTIO NI IOBFLAG,X'FF'-IOBRSTRT CLR RESTART FLAG @VA11232 00044000
R11232DK: ./ R 453000 453000 $ 453000 100 00045000
R11232DK: B RDRSIO2 GO READ NEXT CARD @VA11232 00046000
R11232DK: ./ R 573000 573000 $ 573000 100 00047000
R11232DK: L R9,RDEVSPL GET RSPLCTL CONTROL BLOCK @VA11232 00048000
R11232DK: L R2,RSPRPAGE GET REAL BUFFER ADDRESS @VA11232 00049000
R11232DK: SLR R15,R15 CLEAR @VA11232 00050000
R11232DK: ST R15,SPRMISC RESET TO ZERO FOR NOW @VA11232 00051000
R11232DK: ./ D 578000 578000 $ 00052000
R11232DK: ./ R 581000 581000 $ 581000 100 00053000
R11232DK: B RDRSIO2 FILL BUFFER @VA11232 00054000
R11232DK: ./ R 604000 605000 $ 604000 100 00055000
R11232DK: CLWRITE L R1,SFBSTART GET ORIGINAL START CCPD @VA11232 00056000
R11232DK: L R6,SPPREPAG SEE IF FIRST PAGE IS BEING @VA11232 00057000
R11232DK: LTR R6,R6 RE-WRITTEN @VA11232 00058000
R11232DK: BNZ USESTRT NO, USE SFBSTART @VA11232 00059000
R11232DK: C R1,RSPDPAGE RE-WRITTEN IN SAME SPOT ? @VA11232 00060000
R11232DK: BE USESTRT YES, USE SFBSTART @VA11232 00061000
R11232DK: L R1,RSPDPAGE SPRMISC MUST EQUAL NEW START @VA11232 00062000
R11232DK: ST R1,SFBSTART SAVE NEW START CCPD @VA11232 00063000
R11232DK: ST R1,SFBLAST MAKE IT LAST TOO @VA11232 00064000
R11232DK: USESTRT ST R1,SPNXTPAG CHAIN TAIL TO HEAD @VA11232 00065000
R11232DK: ST R1,SPRMISC SAVE IN SPRMISC ALSO @VA11232 00066000
R11232DK: LM R0,R1,RSPDPAGE GET BUFF ADDRESS AND SLOT @VA11232 00067000
R11232DK: ./ R 607000 608000 $ 607000 100 00068000
R11232DK: L R2,RSPRPAGE RESTORE BUFFER ADDRESS @VA11232 00069000
R11232DK: BZ RDRGOOD BUFFER WRITE SUCCESSFUL @VA11232 00070000
R11232DK: OI RSPFLAG2,RSPERR INDICATE WRITE ERROR @VA11232 00071000
R11232DK: ./ R 614000 616000 $ 614000 1000 00072000
R11232DK: RDRGOOD TM RSPFLAG2,RSPERR IN ERROR RECOVERY ? @VA11232 00073000
R11232DK: ./ R 618000 618000 $ 618000 100 00074000
R11232DK: NI RSPFLAG2,X'FF'-RSPERR RESET ERROR INDICATOR @VA11232 00075000
R11232DK: LR R4,R2 SAVE BUFFER ADDRESS @VA11232 00076000
R11232DK: ./ R 621000 622000 $ 621000 100 00077000
R11232DK: BZ CHFILE CHAIN FILE @VA11232 00078000
R11232DK: UPDPREV LR R0,R15 GET LAST BUFFER ADDRESS @VA11232 00079000
R11232DK: ./ R 624000 624000 $ 624000 100 00080000
R11232DK: BNZ BUFFERR PAGE READ ERROR @VA11232 00081000
R11232DK: ./ R 625000 625000 $ 625000 100 00082000
R11232DK: WRLAST MVC SPNXTPAG(4),RSPDPAGE UPDATE FORWARD POINTER @VA11232 00083000
R11232DK: ./ R 627000 627000 $ 627000 100 00084000
R11232DK: BZ CHFILE CHAIN COMPLETED SPOOL FILE @VA11232 00085000
R11232DK: BUFFERR LR R2,R4 RE-ESTABLISH BUFFER @VA11232 00086000
R11232DK: MVC SPNXTPAG(4),RSPDPAGE UPDATE FORWARD POINTER @VA11232 00087000
R11232DK: B MSG428B DEALLOCATE BUFFER @VA11232 00088000
R11232DK: ./ I 629000 $ 629100 100 00089000
R11232DK: L R2,RSPDPAGE RESTORE REAL BUFFER CCPD @VA11232 00090000
R11232DK: ST R2,SFBLAST MAKE IT LAST CCPD @VA11232 00091000
R11232DK: ./ R 648000 648000 $ 647100 100 00092000
R11232DK: SPACE 00093000
R11232DK: MSG428A EQU * @VA11232 00094000
R11232DK: XC RSPSWAP(8),RSPSWAP PREPARE DUMMY SWAPTABLE @VA11232 00095000
R11232DK: LR R2,R4 RESTORE ORIGINAL BUFFER @VA11232 00096000
R11232DK: L R4,SPPREPAG FIRST OF TWO CCPDS TO RELEASE @VA11232 00097000
R11232DK: ST R4,RSPSWAP+4 SAVE IN DUMMY SWAPTABLE ENTRY @VA11232 00098000
R11232DK: LA R5,RSPSWAP POINT TO DUMMY SWAPTABLE ENTRY @VA11232 00099000
R11232DK: CALL DMKPGTSD RELEASE SLOT @VA11232 00100000
R11232DK: B MSG428C GO DEALLOCATE SECOND SLOT @VA11232 00101000
R11232DK: MSG428B XC RSPSWAP(8),RSPSWAP CLEAR DUMMY SWAPTABLE @VA11232 00102000
R11232DK: LR R2,R4 RE-ESTABLISH BUFFER PTR. @VA11232 00103000
R11232DK: LA R5,RSPSWAP POINT TO DUMMY SWAPTABLE ENTRY @VA11232 00104000
R11232DK: MSG428C L R4,SPNXTPAG NEXT CCPD TO DEALLOCATE @VA11232 00105000
R11232DK: XC RSPSWAP(8),RSPSWAP CLEAR DUMMY SWAPTABLE ENTRY @VA11232 00106000
R11232DK: ST R4,RSPSWAP+4 STORE IN DUMMY SWAPTABLE ENTRY @VA11232 00107000
R11232DK: CALL DMKPGTSD DEALLOCATE PAGE @VA11232 00108000
R11232DK: SPACE 00109000
R11232DK: ./ R 665000 665000 $ 665000 100 00110000
R11232DK: NI RSPFLAG2,X'FF'-RSPERR RESET BUFFER ERROR FLAG @VA11232 00111000
R11232DK: ./ R 705000 705000 $ 705000 100 00112000
R11232DK: L R1,RSPVPG2 SECOND VIRTUAL BUFFER ADDRESS @VA11232 00113000
R11232DK: LTR R1,R1 IS THERE ONE ? @VA11232 00114000
R11232DK: BZ NOBUFF2 NO, NOTHING TO RELEASE @VA11232 00115000
R11232DK: CALL DMKRPAGT,PARM=SYSTEM RELEASE CORE PAGE @VA11232 00116000
R11232DK: CALL DMKPGTVR AND RELEASE VIRTUAL BUFFER @VA11232 00117000
R11232DK: NOBUFF2 LR R1,R9 PTR TO RSPLCTL WORKAREA @VA11232 00118000
R11232DK: ./ I 986000 $ 986100 100 00119000
R11232DK: EX R15,TSTALLOC SEE IF PAGE ALREADY ALLOCATED @VA11232 00120000
R11232DK: BOR R6 YES, DON'T ALLOCATE AGAIN @VA11232 00121000
R11232DK: ./ I 1357000 $ 1357100 100 00122000
R11232DK: TSTALLOC TM 0(R14),0 TEST IS PAGE ALLOCATED @VA11232 00123000
R11232DK: ./ R 1417000 1417000 $ 1416200 200 00124000
R11232DK: L R6,SPRMISC LOOK FOR NON-ZERO START CCPD @VA11232 00125000
R11232DK: LTR R6,R6 HAS SFBSTART BEEN SAVED THERE @VA11232 00126000
R11232DK: BZ PCHTST NO, USE VALUE IN SPNXTPAG @VA11232 00127000
R11232DK: ST R6,SFBPNT USE START CCPD @VA11232 00128000
R11232DK: PCHTST TM RDEVTYPE,TYPPUN PUNCH DEVICE @VA11232 00129000
R11232DK: ./ R 1482000 1484000 $ 1482200 200 00130000
R11232DK: L R2,RSPRPAGE RESTORE ADDRESS OF REAL PAGE @VA11232
R11232DK: L R0,SPRMISC LOOK FOR NON-ZERO START CCPD @VA11232 00131000
R11232DK: LTR R0,R0 HAS SFBSTART BEEN SAVED THERE @VA11232 00132000
R11232DK: BNZ BEGCCPD USE START CCPD FROM SPRMISC @VA11232 00133000
R11232DK: L R0,SPNXTPAG GET CCPD OF FIRST PAGE @VA11232
R11232DK: BEGCCPD ST R0,RSPDPAGE STORE START CCPD @VA11232 00135000
BEGIN APPLY >>> ./ R 179000 179000 $ 179000 100 00001000
END APPLY >>> ./ R 179000 179000 $ 179000 100 00001000
BEGIN APPLY >>> ./ D 366000 366000 $ 00003000
END APPLY >>> ./ D 366000 366000 $ 00003000
BEGIN APPLY >>> ./ R 368000 368000 $ 368000 050 00004000
END APPLY >>> ./ R 368000 368000 $ 368000 050 00004000
BEGIN APPLY >>> ./ R 378000 379000 $ 378000 1000 00016000
END APPLY >>> ./ R 378000 379000 $ 378000 1000 00016000
BEGIN APPLY >>> ./ R 390000 390000 $ 390000 100 00019000
END APPLY >>> ./ R 390000 390000 $ 390000 100 00019000
BEGIN APPLY >>> ./ R 392000 392000 $ 392000 100 00021000
END APPLY >>> ./ R 392000 392000 $ 392000 100 00021000
BEGIN APPLY >>> ./ R 394000 396000 $ 394000 100 00023000
END APPLY >>> ./ R 394000 396000 $ 394000 100 00023000
BEGIN APPLY >>> ./ R 405000 406000 $ 405000 500 00025000
END APPLY >>> ./ R 405000 406000 $ 405000 500 00025000
BEGIN APPLY >>> ./ R 409000 409000 $ 409000 100 00029000
END APPLY >>> ./ R 409000 409000 $ 409000 100 00029000
BEGIN APPLY >>> ./ R 413000 414000 $ 413000 100 00031000
END APPLY >>> ./ R 413000 414000 $ 413000 100 00031000
BEGIN APPLY >>> ./ R 417000 418000 $ 417000 100 00038000
END APPLY >>> ./ R 417000 418000 $ 417000 100 00038000
BEGIN APPLY >>> ./ R 453000 453000 $ 453000 100 00045000
END APPLY >>> ./ R 453000 453000 $ 453000 100 00045000
BEGIN APPLY >>> ./ R 573000 573000 $ 573000 100 00047000
END APPLY >>> ./ R 573000 573000 $ 573000 100 00047000
BEGIN APPLY >>> ./ D 578000 578000 $ 00052000
END APPLY >>> ./ D 578000 578000 $ 00052000
BEGIN APPLY >>> ./ R 581000 581000 $ 581000 100 00053000
END APPLY >>> ./ R 581000 581000 $ 581000 100 00053000
BEGIN APPLY >>> ./ R 604000 605000 $ 604000 100 00055000
END APPLY >>> ./ R 604000 605000 $ 604000 100 00055000
BEGIN APPLY >>> ./ R 607000 608000 $ 607000 100 00068000
END APPLY >>> ./ R 607000 608000 $ 607000 100 00068000
BEGIN APPLY >>> ./ R 614000 616000 $ 614000 1000 00072000
END APPLY >>> ./ R 614000 616000 $ 614000 1000 00072000
BEGIN APPLY >>> ./ R 618000 618000 $ 618000 100 00074000
END APPLY >>> ./ R 618000 618000 $ 618000 100 00074000
BEGIN APPLY >>> ./ R 621000 622000 $ 621000 100 00077000
END APPLY >>> ./ R 621000 622000 $ 621000 100 00077000
BEGIN APPLY >>> ./ R 624000 624000 $ 624000 100 00080000
END APPLY >>> ./ R 624000 624000 $ 624000 100 00080000
BEGIN APPLY >>> ./ R 625000 625000 $ 625000 100 00082000
END APPLY >>> ./ R 625000 625000 $ 625000 100 00082000
BEGIN APPLY >>> ./ R 627000 627000 $ 627000 100 00084000
END APPLY >>> ./ R 627000 627000 $ 627000 100 00084000
BEGIN APPLY >>> ./ I 629000 $ 629100 100 00089000
END APPLY >>> ./ I 629000 $ 629100 100 00089000
BEGIN APPLY >>> ./ R 648000 648000 $ 647100 100 00092000
END APPLY >>> ./ R 648000 648000 $ 647100 100 00092000
BEGIN APPLY >>> ./ R 665000 665000 $ 665000 100 00110000
END APPLY >>> ./ R 665000 665000 $ 665000 100 00110000
BEGIN APPLY >>> ./ R 705000 705000 $ 705000 100 00112000
END APPLY >>> ./ R 705000 705000 $ 705000 100 00112000
BEGIN APPLY >>> ./ I 986000 $ 986100 100 00119000
END APPLY >>> ./ I 986000 $ 986100 100 00119000
BEGIN APPLY >>> ./ I 1357000 $ 1357100 100 00122000
END APPLY >>> ./ I 1357000 $ 1357100 100 00122000
BEGIN APPLY >>> ./ R 1417000 1417000 $ 1416200 200 00124000
END APPLY >>> ./ R 1417000 1417000 $ 1416200 200 00124000
BEGIN APPLY >>> ./ R 1482000 1484000 $ 1482200 200 00130000
END APPLY >>> ./ R 1482000 1484000 $ 1482200 200 00130000
Update Succeeded
Update Execution Time 156 milliseconds.
R11799DK
Date Monday Dec 08, 1980 12:01:00 PM
Loaded from MAINT(294)
R11799DK: ./ I 1404000 $ 1404100 100 00001000
R11799DK: * THE CALL TO DMKCKSPL HAS BEEN MOVED FROM ROUTINE SAVEFILE 00004000
R11799DK: * SO THAT SYSTEM HOLD AND USER HOLD STATUS SET HERE IN DMKRSP 00005000
R11799DK: * AS A RESULT OF SOME KIND OF ERROR IN PRINTING THESE FILES 00006000
R11799DK: * WILL BE CHECKPOINTED. NOTE: SAVEFILE ALWAYS COMES HERE. 00007000
R11799DK: CALL DMKCKSPL,PARM=CHGSFB CHECKPOINT @VA11799 00008000
R11799DK: ./ D 1494000 $
BEGIN APPLY >>> ./ I 1404000 $ 1404100 100 00001000
END APPLY >>> ./ I 1404000 $ 1404100 100 00001000
BEGIN APPLY >>> ./ D 1494000 $
END APPLY >>> ./ D 1494000 $
Update Succeeded
Update Execution Time 23 milliseconds.
R13267DK
Date Wednesday Jun 24, 1981 06:16:00 AM
Loaded from MAINT(294)
R13267DK: ./ I 1505000 $ 1505500 500 00001000
R13267DK: XC RDEVSPL,RDEVSPL CLEAR POOINTER TO RSPLCTL @VA13267 00002000
R13267DK: ./ R 1518000 1519000 $ 1518000 2000 00003000
R13267DK: SR R9,R9 CLEAR THE ACTIVE FILE PTR @VA13267 00004000
BEGIN APPLY >>> ./ I 1505000 $ 1505500 500 00001000
END APPLY >>> ./ I 1505000 $ 1505500 500 00001000
BEGIN APPLY >>> ./ R 1518000 1519000 $ 1518000 2000 00003000
END APPLY >>> ./ R 1518000 1519000 $ 1518000 2000 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R12941DK
Date Tuesday Jul 07, 1981 01:37:00 PM
Loaded from MAINT(294)
R12941DK: ./ *
BEGIN APPLY >>> ./ *
Comment >>> ./ *
END APPLY >>> ./ *
Update Succeeded
Update Execution Time 16 milliseconds.
R12900DK
Date Friday Aug 07, 1981 06:30:00 AM
Loaded from MAINT(294)
R12900DK: ./ I 934200 $ 934225 25
R12900DK: BM MSG428E SPOOL PAGING ERROR @VA12900
BEGIN APPLY >>> ./ I 934200 $ 934225 25
END APPLY >>> ./ I 934200 $ 934225 25
Update Succeeded
Update Execution Time 23 milliseconds.
HRC106DK
Date Tuesday Feb 16, 2016 04:17:00 PM
Loaded from MAINT(094)
HRC106DK: ./ * Reassemble to pick up new RECBLOK
BEGIN APPLY >>> ./ * Reassemble to pick up new RECBLOK
Comment >>> ./ * Reassemble to pick up new RECBLOK
END APPLY >>> ./ * Reassemble to pick up new RECBLOK
Update Succeeded
Update Execution Time 16 milliseconds.
ibm/vm370-lib/cp/dmkrsp.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator