DMKVSP History
References
-
-
Fixes Applied : 20
-
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.