ibm:vm370-lib:cp:dmkvsp.assemble_hst
Table of Contents
DMKVSP History
References
- Fixes Applied : 20
- Latest Source Date : Friday, February 2, 1979
- Last Fix ID : [HRC106DK]
Update History
CMS File Input : DMKVSP ASSEMBLE
Date : 2/2/1979 10:06:00 AM
VM Context : MAINT(394)
File Name : DMKVSP.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:48 AM
Created : 1/16/2021 7:31:48 AM
Update Order
- R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
- R09566DK 611 DMKVSP INCORRECTLY CLEARING PCI
- R09058DK 611 I/O ERROR ON SPOOL DEVICE DURING DMCP COMMAND DE-ALLOCATION ABEND
- R09064DK 611 LOST READER FILES WITH OPTION NOCONT AND NOEOF SET
- R09312DK 611 PARTIAL OUT611 WITH VNET CTCA DMKVSP RETURNS UNIT EXCEPTION
- R10788DK 611 UV00374 VCHCEPND AND VCHCEDEV SET FOR BMPX CHANNEL
- R11114DK 614 UV01421 WAIT,VMBLOK SWITCH,VM DROPPED FROM QUEUE
- R11232DK 618 UV02264 ABENDPGT002 ABENDPGT003 CHAIN PROBLEMS WITH SPLINKS
- R11439DK 618 UV02258 SPOOL XXX PURGE COMMAND PURGES WRONG SPOOLFILE
- R12243DK 618 UV02920 REMOVE DEAD CODE IN MODULE DMKVSP
- R12421DK 618 UV03030 UNUSED EXTERNAL REFERENCE DMKBOXHR IN MODULE DMKVSP
- R12125DK 618 UV03048 READER FILE MARKED 'INUSE' ON TIO.
- R12597DK 619 UV03740 SFBINUSE TURNED OFF BEFORE CALL TO DMKCKS.
- R11708DK 620 UV04103 VS1 GETS CC=2 TO VITURAL PRINTER WITH VM09312 ON
- R11722DK 620 UV02447 WRONG SENSE DATA FOR SPOOLED 3203/3262/3289-E D/T
- R13708DK 622 UV05051 ABENDPRG005 DMKVSP ATTEMPTING TO UNCHAIN SFBLOK
- R14162DK 627 UV05812 PE11439 MSDMKCKS400I CHECKPOINT FULL OF CON FILES
- R14403DK 627 UV05881 ALL VFCBFLAG BITS TURNED OFF EXCEPT INTENDED ONE
- R12613DK 629 UV06465 REG3,REG5 NOT SET UP IF D/C CCW HAS OPCODE FORCED TO '03'
- HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
R09957DK
Date Thursday Jul 12, 1979 09:55: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 23 milliseconds.
R09566DK
Date Wednesday Apr 02, 1980 06:01:00 AM
Loaded from MAINT(294)
R09566DK: ./ R 376000 $ 376100 100 00001000
R09566DK: MVI VDEVCSW+4,X'00' CLEAR STSTUS FOR NEW COMMAND @VA09566 00002000
R09566DK: NI VDEVCSW+5,PCI LEAVING PCI INTACT @VA09566 00003000
R09566DK: ./ R 859000 $ 859100 100 00004000
R09566DK: MVI VDEVCSW+4,X'00' CLEAR STSTUS FOR NEW COMMAND @VA09566 00005000
R09566DK: NI VDEVCSW+5,PCI LEAVING PCI INTACT @VA09566 00006000
BEGIN APPLY >>> ./ R 376000 $ 376100 100 00001000
END APPLY >>> ./ R 376000 $ 376100 100 00001000
BEGIN APPLY >>> ./ R 859000 $ 859100 100 00004000
END APPLY >>> ./ R 859000 $ 859100 100 00004000
Update Succeeded
Update Execution Time 23 milliseconds.
R09058DK
Date Wednesday Apr 02, 1980 04:01:00 AM
Loaded from MAINT(294)
R09058DK: ./ I 2531000 $ 2531100 100 00002000
R09058DK: CLI VDEVTYPE,TYP3210 IS THIS A SPOOLED CONSOLE @VA09058 00003000
R09058DK: * FILE ? 00004000
R09058DK: BE MSG429B YES, THEN SKIP AND LEAVE FLAGS @VA09058 00005000
R09058DK: * ALONE. 00006000
R09058DK: OI SFBFLAG2,SFBPURGE ELSE, THIS IS AN OPEN FILE @VA09058 00007000
R09058DK: * WITH INCOMPLETE DASD POINTERS 00008000
R09058DK: MSG429B DS 0H @VA09058 00010000
BEGIN APPLY >>> ./ I 2531000 $ 2531100 100 00002000
END APPLY >>> ./ I 2531000 $ 2531100 100 00002000
Update Succeeded
Update Execution Time 16 milliseconds.
R09064DK
Date Wednesday Apr 02, 1980 07:17:00 AM
Loaded from MAINT(294)
R09064DK: ./ R 657000 665000 $ 657050 100 00001000
R09064DK: * 5. IF NO MORE FILES REMAIN AND CONTINUOUS READING WITH END 00002000
R09064DK: * OF FILE IS IN EFFECT,POST UNIT EXCEPTION OTHERWISE POST 00003000
R09064DK: * INTERVENTION REQUIRED - READER EMPTY 00004000
R09064DK: * 00005000
R09064DK: * 6. IF NOT CONTINUOUS READING AND END OF FILE IS NOT SET THEN 00006000
R09064DK: * POST INTERVENTION REQUIRED - READER NOT READY 00007000
R09064DK: * 00008000
R09064DK: * 7. BEFORE THE EXIT IS MADE TO THE CALLER,BAL TO 00009000
R09064DK: * UNSTKBLK ROUTINE TO UNSTACK THE NEXT CPEXBLOK,IF ANY 00010000
R09064DK: * FOR THIS DEVICE. 00011000
R09064DK: ./ I 735000 $ 735100 100 00012000
R09064DK: TM VDEVSFLG,VDEVCONT IS THIS A CONTINUOUS READ ? @VA09064 00013000
R09064DK: BO CONTREAD YES,KEEP READER READY @VA09064 00014000
R09064DK: OI VDEVSTAT,VDEVNRDY INDICATE VIRTUAL DEVICE NOT @VA09064 00015000
R09064DK: * READY 00016000
R09064DK: CONTREAD EQU * @VA09064 00017000
BEGIN APPLY >>> ./ R 657000 665000 $ 657050 100 00001000
END APPLY >>> ./ R 657000 665000 $ 657050 100 00001000
BEGIN APPLY >>> ./ I 735000 $ 735100 100 00012000
END APPLY >>> ./ I 735000 $ 735100 100 00012000
Update Succeeded
Update Execution Time 31 milliseconds.
R09312DK
Date Wednesday Apr 02, 1980 12:12:00 PM
Loaded from MAINT(294)
R09312DK: ./ I 2581000 $ 2581050 50 00002000
R09312DK: NI VDEVFLAG,255-VDEVCCW1 RESET FIRST CCW INDICATOR @VA09312 00003000
BEGIN APPLY >>> ./ I 2581000 $ 2581050 50 00002000
END APPLY >>> ./ I 2581000 $ 2581050 50 00002000
Update Succeeded
Update Execution Time 16 milliseconds.
R10788DK
Date Wednesday Apr 02, 1980 03:05:00 AM
Loaded from MAINT(294)
R10788DK: ./ R 2605000 $ 2605300 400 00001000
R10788DK: VSP006 DS 0H @VA10788 00002000
R10788DK: TM VCHTYPE,VCHSEL IS IT SELECTOR CHANNEL @VA10788 00003000
R10788DK: ./ R 2638000 $ 2638500 00004000
R10788DK: TM VCHTYPE,VCHSEL IS IT SELECTOR CHANNEL @VA10788 00005000
BEGIN APPLY >>> ./ R 2605000 $ 2605300 400 00001000
END APPLY >>> ./ R 2605000 $ 2605300 400 00001000
BEGIN APPLY >>> ./ R 2638000 $ 2638500 00004000
END APPLY >>> ./ R 2638000 $ 2638500 00004000
Update Succeeded
Update Execution Time 16 milliseconds.
R11114DK
Date Tuesday Jul 08, 1980 05:30:00 AM
Loaded from MAINT(294)
R11114DK: ./ R 01772000 01776000 $ 01771200 00000200 01/22/80 13:53 00001000
R11114DK: CLI VDEVTYPE,TYP3210 CONSOLE DEVICE? @VA11114 00002000
R11114DK: BNE RETCODE IF NOT, GO SET RETURN CODE @VA11114 00003000
R11114DK: TM VDEVSFLG,VDEVSVC WAS A CPEXBLOK UNSTACKED? @VA11114 00004000
R11114DK: BO PRTEXIT IF SO, BEAT IT QUIETLY @VA11114 00005000
R11114DK: TM VMRSTAT,VMCPWAIT WAITIING FOR CP RESOURCE? @VA11114 00006000
R11114DK: BNZ PRTEXIT IF SO, OUT QUIETLY @VA11114 00007000
R11114DK: TM VMPEND,255 ANY PENDING INTERRUPTS AT ALL? @VA11114 00008000
R11114DK: BZ PRTEXIT NOPE, ALL IS WELL @VA11114 00009000
R11114DK: * AT THIS POINT, CONSOLE SPOOLING MAY HAVE BLOCKED A USER, 00010000
R11114DK: * SO GIVE HIM A SHOT AT DISPATCH: 00011000
R11114DK: LA R0,CPEXSIZE @VA11114 00012000
R11114DK: CALL DMKFREE NEED A CPEXBLOK NOW @VA11114 00013000
R11114DK: USING CPEXBLOK,R1 TELL SAM @VA11114 00014000
R11114DK: XC CPEXBLOK(CPEXSIZE*8),CPEXBLOK CLEARED, PLEASE @VA11114 00015000
R11114DK: LA R15,VSPCDISP WHERE TO COME BACK @VA11114 00016000
R11114DK: STM R15,R14,CPEXADD STOW THE REGISTERS @VA11114 00017000
R11114DK: CALL DMKSTKCP AND STACK RETURN @VA11114 00018000
R11114DK: B PRTEXIT NO RETURN CODE FOR CONSOLE @VA11114 00019000
R11114DK: DROP R1 NO MORE CPEXBLOK @VA11114 00020000
R11114DK: * 00021000
R11114DK: RETCODE DS 0H HERE TO SET RETURN CODE @VA11114 00022000
R11114DK: L R2,SAVEWRK2 GET RETURN CODE @VA11114 00023000
R11114DK: ST R2,SAVER2 AND STORE IN CALLER'S REG2 @VA11114 00024000
R11114DK: PRTEXIT DS 0H RETURN TO CALLER @VA11114 00025000
R11114DK: EXIT , -------------------------------->@VA11114 00026000
R11114DK: * 00027000
R11114DK: VSPCDISP DS 0H HERE ON CPEXBLOK UNSTACK @VA11114 00028000
R11114DK: GOTO DMKDSPCH WAKE UP, YOU ------------------->@VA11114 00029000
R11114DK: * 00030000
BEGIN APPLY >>> ./ R 01772000 01776000 $ 01771200 00000200 01/22/80 13:53 00001000
END APPLY >>> ./ R 01772000 01776000 $ 01771200 00000200 01/22/80 13:53 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R11232DK
Date Monday Dec 08, 1980 12:01:00 PM
Loaded from MAINT(294)
R11232DK: ./ I 178000 $ 178100 100 00001000
R11232DK: EXTRN DMKPGTSD @VA11232 00002000
R11232DK: ./ R 1366000 1367000 $ 1366000 100 00003000
R11232DK: CHAINBUF L R1,SFBSTART GET START CCPD @VA11232 00004000
R11232DK: L R0,SPPREPAG DETERMINE WHETHER RE-WRITING @VA11232 00005000
R11232DK: LTR R0,R0 FIRST PAGE BECAUSE OF ERROR @VA11232 00006000
R11232DK: BNZ USESTRT NOT FIRST PAGE @VA11232 00007000
R11232DK: C R1,VSPDPAGE ARE WE WRITING IT IN SAME SLOT? @VA11232 00008000
R11232DK: BE USESTRT YES, SFBSTART IS OK @VA11232 00009000
R11232DK: L R1,VSPDPAGE USE CURRENT BUFFER AS START CCPD @VA11232 00010000
R11232DK: ST R1,SFBSTART UPDATE SFBSTART AND SFBLAST @VA11232 00011000
R11232DK: ST R1,SFBLAST BEFORE WRITE @VA11232 00012000
R11232DK: USESTRT ST R1,SPRMISC SAVE NEW START CCPD @VA11232 00013000
R11232DK: ST R0,SFBPNT SFBPNT PTS TO PREV. WHILE WRITE @VA11232 00014000
R11232DK: ST R1,SPNXTPAG CHAIN TAIL OF FILE TO HEAD @VA11232 00015000
R11232DK: ./ R 1375000 1375000 $ 1375000 100 00016000
R11232DK: LR R3,R0 LAST BUFFER CCPD WRITTEN @VA11232 00017000
R11232DK: ./ R 1379000 1379000 $ 1379000 100 00018000
R11232DK: OI VSPFLAG1,VSPERR INDICATE BUFFER WRITE ERROR @VA11232 00019000
R11232DK: ./ D 1386000 1388000 $ 00020000
R11232DK: ./ R 1392000 1392000 $ 1392000 100 00021000
R11232DK: TM VSPFLAG1,VSPERR BUFFER WRITE ERROR ? @VA11232 00022000
R11232DK: ./ R 1393050 1393050 $ 1393100 100 00023000
R11232DK: ST R3,SFBLAST UPD. SFBLAST IF SUCCESSFUL WRITE @VA11232 00024000
R11232DK: ./ R 1397000 1397000 $ 1397000 100 00025000
R11232DK: TSTERR NI VSPFLAG1,X'FF'-VSPERR RESET ERROR INDICATOR @VA11232 00026000
R11232DK: ./ R 1400000 1401000 $ 1400000 100 00027000
R11232DK: BNZ UPDPREV UPDATE PREVIOUS BUFFER @VA11232 00028000
R11232DK: MVC SFBSTART,VSPDPAGE UPDATE NEW START CCPD @VA11232 00029000
R11232DK: B TSTPUR GO UPDATE SFBLAST @VA11232 00030000
R11232DK: UPDPREV L R1,VSPVPAGE GET VIRTUAL PAGE ADDRESS @VA11232 00031000
R11232DK: ./ R 1403000 1403000 $ 1403000 100 00032000
R11232DK: LR R2,R4 RE-ESTABLISH BUFFER ADDRESS @VA11232 00033000
R11232DK: BNZ EMSG429B SPOOL READ ERROR @VA11232 00034000
R11232DK: ./ R 1404000 1404000 $ 1404000 100 00035000
R11232DK: ST R3,SPNXTPAG UPDATE FORWARD BUFFER POINTER @VA11232 00036000
R11232DK: ./ R 1406000 1407000 $ 1406000 100 00037000
R11232DK: LR R2,R4 RE-ESTABLISH BUFFER ADDRESS @VA11232 00038000
R11232DK: BZ TSTPUR NO ERRORS, UPDATE SFBLAST @VA11232 00039000
R11232DK: L R6,SPPREPAG SFBPNT SHOULD POINT TO PREVIOUS @VA11232 00040000
R11232DK: ST R6,SFBPNT GOOD BUFFER WRITE @VA11232 00041000
R11232DK: B EMSG429B GO PURGE FILE @VA11232 00042000
R11232DK: ./ R 1428000 1428000 $ 1427200 200 00043000
R11232DK: L R1,VSPVPG2 SECOND VIRTUAL BUFFER ADDRESS @VA11232 00044000
R11232DK: LTR R1,R1 IS THERE ONE ? @VA11232 00045000
R11232DK: BZ NOBUFF2 NO, NOTHING TO RELEASE @VA11232 00046000
R11232DK: CALL DMKRPAGT,PARM=SYSTEM RELEASE CORE PAGE @VA11232 00047000
R11232DK: CALL DMKPGTVR AND RELEASE VIRTUAL BUFFER @VA11232 00048000
R11232DK: NOBUFF2 AL R8,VMDVSTRT RE-ESTABLISH VDEVBLOK ADDRESS @VA11232 00049000
R11232DK: ./ I 2526000 $ 2526100 100 00103000
R11232DK: SPACE 00104000
R11232DK: EMSG429B XC VSPCCW(8),VSPCCW CLEAR DUMMY SWAPTABLE @VA11232 00105000
R11232DK: LR R2,R4 RESTORE BUFFER ADDRESS @VA11232 00106000
R11232DK: LA R5,VSPCCW ADDRESS OF DUMMY SWAPTABLE @VA11232 00107000
R11232DK: EMSG429C L R4,VSPDPAGE DEALLOCATE CURRENT SLOT @VA11232 00108000
R11232DK: ST R4,VSPCCW+4 STORE IN DUMMY SWAPTABLE @VA11232 00109000
R11232DK: CALL DMKPGTSD DEALLOCATE PAGE @VA11232 00110000
R11232DK: ./ D 2531100 2531700 $ 00126000
BEGIN APPLY >>> ./ I 178000 $ 178100 100 00001000
END APPLY >>> ./ I 178000 $ 178100 100 00001000
BEGIN APPLY >>> ./ R 1366000 1367000 $ 1366000 100 00003000
END APPLY >>> ./ R 1366000 1367000 $ 1366000 100 00003000
BEGIN APPLY >>> ./ R 1375000 1375000 $ 1375000 100 00016000
END APPLY >>> ./ R 1375000 1375000 $ 1375000 100 00016000
BEGIN APPLY >>> ./ R 1379000 1379000 $ 1379000 100 00018000
END APPLY >>> ./ R 1379000 1379000 $ 1379000 100 00018000
BEGIN APPLY >>> ./ D 1386000 1388000 $ 00020000
END APPLY >>> ./ D 1386000 1388000 $ 00020000
BEGIN APPLY >>> ./ R 1392000 1392000 $ 1392000 100 00021000
END APPLY >>> ./ R 1392000 1392000 $ 1392000 100 00021000
BEGIN APPLY >>> ./ R 1393050 1393050 $ 1393100 100 00023000
END APPLY >>> ./ R 1393050 1393050 $ 1393100 100 00023000
BEGIN APPLY >>> ./ R 1397000 1397000 $ 1397000 100 00025000
END APPLY >>> ./ R 1397000 1397000 $ 1397000 100 00025000
BEGIN APPLY >>> ./ R 1400000 1401000 $ 1400000 100 00027000
END APPLY >>> ./ R 1400000 1401000 $ 1400000 100 00027000
BEGIN APPLY >>> ./ R 1403000 1403000 $ 1403000 100 00032000
END APPLY >>> ./ R 1403000 1403000 $ 1403000 100 00032000
BEGIN APPLY >>> ./ R 1404000 1404000 $ 1404000 100 00035000
END APPLY >>> ./ R 1404000 1404000 $ 1404000 100 00035000
BEGIN APPLY >>> ./ R 1406000 1407000 $ 1406000 100 00037000
END APPLY >>> ./ R 1406000 1407000 $ 1406000 100 00037000
BEGIN APPLY >>> ./ R 1428000 1428000 $ 1427200 200 00043000
END APPLY >>> ./ R 1428000 1428000 $ 1427200 200 00043000
BEGIN APPLY >>> ./ I 2526000 $ 2526100 100 00103000
END APPLY >>> ./ I 2526000 $ 2526100 100 00103000
BEGIN APPLY >>> ./ D 2531100 2531700 $ 00126000
END APPLY >>> ./ D 2531100 2531700 $ 00126000
Update Succeeded
Update Execution Time 63 milliseconds.
R11439DK
Date Monday Dec 08, 1980 12:01:00 PM
Loaded from MAINT(294)
R11439DK: ./ I 1408000 $ 1408500 00001000
R11439DK: OI SFBFLAG2,SFBPURGE PURGING AN OPEN SPOOL FILE @VA11439 00002000
BEGIN APPLY >>> ./ I 1408000 $ 1408500 00001000
END APPLY >>> ./ I 1408000 $ 1408500 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R12243DK
Date Monday Dec 08, 1980 12:01:00 PM
Loaded from MAINT(294)
R12243DK: ./ D 2718000 2719000 $ 00001000 BEGIN APPLY >>> ./ D 2718000 2719000 $ 00001000 END APPLY >>> ./ D 2718000 2719000 $ 00001000 Update Succeeded Update Execution Time 16 milliseconds.
R12421DK
Date Monday Dec 08, 1980 12:01:00 PM
Loaded from MAINT(294)
R12421DK: ./ R 176000 $ 176000 00001000
R12421DK: EXTRN DMKSCNVD @VA12421 00002000
BEGIN APPLY >>> ./ R 176000 $ 176000 00001000
END APPLY >>> ./ R 176000 $ 176000 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R12125DK
Date Monday Dec 08, 1980 12:01:00 PM
Loaded from MAINT(294)
R12125DK: ./ R 2213000 2215000 $ 2213500 500 00001000
R12125DK: SETFLAG DS 0H @VA12125
R12125DK: CLI VMINST,X'9D' TIO? @VA12125 00002000
R12125DK: BER R6 YES - EXIT @VA12125 00003000
R12125DK: OI SFBFLAG,SFBINUSE MARK SPOOL FILE IN USE @VA12125 00004000
BEGIN APPLY >>> ./ R 2213000 2215000 $ 2213500 500 00001000
END APPLY >>> ./ R 2213000 2215000 $ 2213500 500 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R12597DK
Date Thursday Feb 12, 1981 02:12:00 AM
Loaded from MAINT(294)
R12597DK: ./ R 00755000 $ 00755000 00001000
R12597DK: NI SFBFLAG,X'FF'-SFBEOF RESET EOF @VA12597 00002000
R12597DK: ./ I 00770000 $ 00770500 100 00003000
R12597DK: NI SFBFLAG,X'FF'-SFBINUSE RESET INUSE @VA12597 00004000
R12597DK: ./ I 00772000 $ 00772050 10 00005000
R12597DK: NI SFBFLAG,X'FF'-SFBINUSE RESET INUSE @VA12597 00006000
BEGIN APPLY >>> ./ R 00755000 $ 00755000 00001000
END APPLY >>> ./ R 00755000 $ 00755000 00001000
BEGIN APPLY >>> ./ I 00770000 $ 00770500 100 00003000
END APPLY >>> ./ I 00770000 $ 00770500 100 00003000
BEGIN APPLY >>> ./ I 00772000 $ 00772050 10 00005000
END APPLY >>> ./ I 00772000 $ 00772050 10 00005000
Update Succeeded
Update Execution Time 31 milliseconds.
R11708DK
Date Tuesday Apr 07, 1981 03:30:00 AM
Loaded from MAINT(294)
R11708DK: ./ I 1185000 $ 1185300 300 00001000
R11708DK: TM VDEVFLAG,VDEVCCW1 STILL ON FIRST CCW @VA11708 00002000
R11708DK: BO ENDCCW1 YES- LEAVE UE FOR INTERRUPT @VA11708 00003000
R11708DK: * AFTER INITIAL STATUS (CE) @VA11708 00004000
R11708DK: ./ D 2581050 00005000
BEGIN APPLY >>> ./ I 1185000 $ 1185300 300 00001000
END APPLY >>> ./ I 1185000 $ 1185300 300 00001000
BEGIN APPLY >>> ./ D 2581050 00005000
END APPLY >>> ./ D 2581050 00005000
Update Succeeded
Update Execution Time 23 milliseconds.
R11722DK
Date Thursday May 07, 1981 04:15:00 AM
Loaded from MAINT(294)
R11722DK: ./ I 2115000 $ 2115200 200 00001000
R11722DK: BE SENBYTE4 CHECK DEVICE FOR SENSE BYTE 4 @VA11722 00002000
R11722DK: SENRET EQU * @VA11722 00003000
R11722DK: ./ R 2117000 $ 2117100 50 00004000
R11722DK: B UPDATSEN CONTINUE WITH SENSE BYTES @VA11722 00005000
R11722DK: SENBYTE4 EQU * @VA11722 00006000
R11722DK: CLI VDEVTYPE,TYP3203 IS THIS A 3203 PRINTER ? @VA11722 00007000
R11722DK: BNE SENRET NO,CONTINUE @VA11722 00008000
R11722DK: MVI 0(R2),DEVID84 MOVE IN DEVICE IDENTIFIER @VA11722 00009000
R11722DK: B UPDATSEN CONTINUE WITH SENSE BYTES @VA11722 00010000
R11722DK: ./ I 2118000 $ 2118500 00011000
R11722DK: UPDATSEN EQU * @VA11722 00012000
R11722DK: ./ I 2716000 $ 2716100 100 00013000
R11722DK: SPACE 2 00014000
R11722DK: DEVID84 EQU X'84' DEVICE IDENTIFICATION @VA11722 00015000
BEGIN APPLY >>> ./ I 2115000 $ 2115200 200 00001000
END APPLY >>> ./ I 2115000 $ 2115200 200 00001000
BEGIN APPLY >>> ./ R 2117000 $ 2117100 50 00004000
END APPLY >>> ./ R 2117000 $ 2117100 50 00004000
BEGIN APPLY >>> ./ I 2118000 $ 2118500 00011000
END APPLY >>> ./ I 2118000 $ 2118500 00011000
BEGIN APPLY >>> ./ I 2716000 $ 2716100 100 00013000
END APPLY >>> ./ I 2716000 $ 2716100 100 00013000
Update Succeeded
Update Execution Time 16 milliseconds.
R13708DK
Date Monday Jul 27, 1981 11:57:00 AM
Loaded from MAINT(294)
R13708DK: ./ R 2128000 2131000 $ 2128000 1000 00001000
R13708DK: EJECT 00002000
R13708DK: * CALLED FROM DMKVSI, FOR PROCESSING VIRTUAL TIO,AS A 00003000
R13708DK: * SUBROUTINE TO TEST IF THE RDR IS EMPTY. 00004000
R13708DK: SPACE 00005000
R13708DK: ./ R 2136000 2141000 $ 2136000 6000 00006000
R13708DK: BAL R6,CHEKRDR GO SEARCH THE RDR FILE CHAIN @VA13708 00007000
R13708DK: ./ I 2192000 $ 2192500 500 00008000
R13708DK: CHEKRDR DS 0H @VA13708 00009000
BEGIN APPLY >>> ./ R 2128000 2131000 $ 2128000 1000 00001000
END APPLY >>> ./ R 2128000 2131000 $ 2128000 1000 00001000
BEGIN APPLY >>> ./ R 2136000 2141000 $ 2136000 6000 00006000
END APPLY >>> ./ R 2136000 2141000 $ 2136000 6000 00006000
BEGIN APPLY >>> ./ I 2192000 $ 2192500 500 00008000
END APPLY >>> ./ I 2192000 $ 2192500 500 00008000
Update Succeeded
Update Execution Time 23 milliseconds.
R14162DK
Date Friday Jan 15, 1982 04:27:00 PM
Loaded from MAINT(294)
R14162DK: ./ I 1408000 $ 1408100 100 00001000
R14162DK: CLI VDEVTYPE,TYP3210 IS THIS A SPOOLED CONSOLE @VA14162 00002000
R14162DK: BE NOPURFLG YES,THEN FILE HAS BEEN CKPT @VA14162 00003000
R14162DK: ./ I 1408500 $ 1408600 100 00004000
R14162DK: NOPURFLG DS 0H @VA14162 00005000
BEGIN APPLY >>> ./ I 1408000 $ 1408100 100 00001000
END APPLY >>> ./ I 1408000 $ 1408100 100 00001000
BEGIN APPLY >>> ./ I 1408500 $ 1408600 100 00004000
END APPLY >>> ./ I 1408500 $ 1408600 100 00004000
Update Succeeded
Update Execution Time 23 milliseconds.
R14403DK
Date Friday Jan 15, 1982 04:27:00 PM
Loaded from MAINT(294)
R14403DK: ./ R 02026000 02027000 $ 02026010 1000 00000100
R14403DK: NI VFCBFLAG-VFCBBLOK(R5),X'FF'-VFCBDIAG @VA14403 00000200
R14403DK: * RESET CMD 07 PROCESSING 00000300
BEGIN APPLY >>> ./ R 02026000 02027000 $ 02026010 1000 00000100
END APPLY >>> ./ R 02026000 02027000 $ 02026010 1000 00000100
Update Succeeded
Update Execution Time 16 milliseconds.
R12613DK
Date Friday Apr 02, 1982 07:23:00 PM
Loaded from MAINT(294)
R12613DK: ./ R 968000 $ 968000 200 00001000
R12613DK: FORCE3 TM VSPCCW+4,CD IS CCW DATA CHAINING? @VA12613 00002000
R12613DK: BZ FORCE3A NO - NO FLAG NECESSARY @VA12613 00003000
R12613DK: OI VSPFLAG1,VSPDCFOP FLAG CD CCW FORCED TO '03' @VA12613 00004000
R12613DK: FORCE3A MVI VSPCCW,X'03' FORCE '03'OP CODE @VA00716 00005000
R12613DK: ./ R 01020000 $ 01020000 100 00006000
R12613DK: PRTCD TM VSPFLAG1,VSPDCFOP WAS CD CCW FORCED TO '03'? @VA12613 00007000
R12613DK: BZ PRTCD1 NO - REG3 & REG5 INITIALIZED @VA12613 00008000
R12613DK: L R3,VSPBUFBK WE DIDN'T COME THRU CCWOK, SO @VA12613 00009000
R12613DK: LA R3,12(R3) ..INITIALIZE REG 3 AND REG5 @VA12613 00010000
R12613DK: LH R5,SFBRECSZ ...NOW @VA12613 00011000
R12613DK: NI VSPFLAG1,255-VSPDCFOP RESET FLAG @VA12613 00012000
R12613DK: PRTCD1 CLI VSPCCW,X'06' CK RD CMD ( 3211-TYPE PRNTR ) @V6CD1F1 00013000
BEGIN APPLY >>> ./ R 968000 $ 968000 200 00001000
END APPLY >>> ./ R 968000 $ 968000 200 00001000
BEGIN APPLY >>> ./ R 01020000 $ 01020000 100 00006000
END APPLY >>> ./ R 01020000 $ 01020000 100 00006000
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 23 milliseconds.
ibm/vm370-lib/cp/dmkvsp.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator