ibm:vm370-lib:cp:dmkvio.assemble_hst
Table of Contents
DMKVIO History
References
- Fixes Applied : 15
- Latest Source Date : Thursday, December 7, 1978
- Last Fix ID : [HRC013DK]
Update History
CMS File Input : DMKVIO ASSEMBLE
Date : 12/7/1978 5:19:00 PM
VM Context : MAINT(394)
File Name : DMKVIO.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:48 AM
Created : 1/16/2021 7:31:48 AM
Update Order
- R08823DK 601 INTERACTIVE USERS NOT GOING TO Q1
- R08669DK 601 DEVICE END LOST IF PRESENTED WITH ATTENTION
- R09068DK 602 CH CHECK REFLECTION WRONG ECSW
- R08860DK 602 DMKVIO ON PCI INTERRUPT FOR AUTOPOLL DOES NOT CHANGE CCW
- R08629DK 603 2250/3250
- R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
- R09137DK 606 MISSING LINE ON 3203 MOD 4
- R10312DK 607 CSW STATUS OF ZEROES PASSED TO VIRTUAL MACHINE IF PCI
- R10021DK 609 REDO TEST IN PTF V08669 FOR CORRECT TEST OF ATTN-CUE
- R10261DK 610 INTERACTIVE USER NOT GOING TO Q1 AFTER TIO
- R09216DK 614 UV00856 CHECK FOR COPY IOBLOK BEFORE REFLECT TO USER
- R10829DK 615 UV01669 STANDALONE IFCC NOT BEING REFLECTED TO USER.
- R12082DK 618 UV02723 CORRECT TERM. HANG AFTER ATTN+CUE STATUS
- R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
- HRC013DK V01 UNIVERSITY OF MAINE P.E.R. TRACE FACILITY
R08823DK
Date Wednesday Jan 24, 1979 12:15:00 PM
Loaded from MAINT(294)
R08823DK: ./ D 620000 622000 $ 00001000
R08823DK: ./ I 622650 $ 622700 50 00002000
R08823DK: CL R10,IOBLINK FINAL INTERRUPT ?? @VA08823 00003000
R08823DK: BNE VIOBFRET NO - TAKE BRANCH @VA08823 00004000
R08823DK: VIOFRET EQU * @VA08823 00005000
BEGIN APPLY >>> ./ D 620000 622000 $ 00001000
END APPLY >>> ./ D 620000 622000 $ 00001000
BEGIN APPLY >>> ./ I 622650 $ 622700 50 00002000
END APPLY >>> ./ I 622650 $ 622700 50 00002000
Update Succeeded
Update Execution Time 8 milliseconds.
R08669DK
Date Wednesday Jan 24, 1979 01:10:00 AM
Loaded from MAINT(294)
R08669DK: ./ I 434000 $ 434100 50 00001000
R08669DK: CLI CPUID,X'FF' CHECK IF RUNNING SECOND LEVEL @VA08669 00002000
R08669DK: * CP ?? 00003000
R08669DK: BNE VIOBY1 NO,SKIP CAN'T HAPPEN. @VA08669 00004000
R08669DK: CLI IOBCSW+4,ATTN+CUE DO WE HAVE ATTN AND CUE?? @VA08669 00005000
R08669DK: BE SAVESTAT YES @VA08669 00006000
R08669DK: VIOBY1 EQU * @VA08669 00007000
BEGIN APPLY >>> ./ I 434000 $ 434100 50 00001000
END APPLY >>> ./ I 434000 $ 434100 50 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R09068DK
Date Monday Apr 02, 1979 03:29:00 AM
Loaded from MAINT(294)
R09068DK: ./ I 279100 $ 279110 10 00001000
R09068DK: BAL R2,CHKIOERB CLEAN UP RESIDUAL IOER @VA09068 00002000
BEGIN APPLY >>> ./ I 279100 $ 279110 10 00001000
END APPLY >>> ./ I 279100 $ 279110 10 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R08860DK
Date Monday Apr 23, 1979 04:10:00 AM
Loaded from MAINT(294)
R08860DK: ./ R 167000 $ 167025 10 00001000
R08860DK: * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00002000
R08860DK: * R0=VIRTUAL CCW ADDRESS 00003000
R08860DK: * R2=RCWTASK END 00004000
R08860DK: * R5=RCWTASK+X'10' TO POINT TO FIRST CCW IN THIS RCWTASK 00005000
R08860DK: * R14=IOBCAW/RCWTASK 00006000
R08860DK: * R15=IOBCSW 00007000
R08860DK: * THIS ROUTINE WILL FIND OUT WHICH RCWTASK HAS THE 00008000
R08860DK: * INTERUPT IN IT. IT WILL THEN LOOK IN THE WRAP LIST 00009000
R08860DK: * TO FIND OUT WHICH CCW CAUSED THE INTERUPT BY CHECKING 00010000
R08860DK: * FOR THE DISPLACEMENT AND THE REAL VIRTUAL CCW ADDRESS. 00011000
R08860DK: * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00012000
R08860DK: SPACE 00013000
R08860DK: S R14,F16 POINT TO BEGINNING OF FIRST @VA08860 00014000
R08860DK: * RCWTASK 00015000
R08860DK: USING RCWTASK,R14 @VA08860 00016000
R08860DK: CLC RCWHEAD,FFS IS THIS REALLY A RCWTASK @VA08860 00017000
R08860DK: BNE CKCC NO, CONTINUE ON @VA08860 00018000
R08860DK: REFLECT1 DS 0H @VA08860 00019000
R08860DK: CLC RCWRCNT,ZEROES TEST CCW COUNT @VA08860 00020000
R08860DK: BE REFLECT2 NO, GET NEXT RCWTASK @VA08860 00021000
R08860DK: LH R2,RCWCCNT GET RCWTASK LENGTH @VA08860 00022000
R08860DK: SLL R2,3 TIMES 8 TO GET NUMBER OF BYTES @VA08860 00023000
R08860DK: LA R2,0(R14,R2) NOW GET END OF THE RCWTASK @VA08860 00024000
R08860DK: * SO THAT WE CAN GET THE RIGHT RCWTASK FOR THIS INTERUPT 00025000
R08860DK: * SO WE CAN ALTER THE TIC. 00026000
R08860DK: CR R15,R2 IS THE INTERUPT ABOVE OURS @VA08860 00027000
R08860DK: BH REFLECT2 YES,LOOK IN ANOTHER RCWTASK @VA08860 00028000
R08860DK: CR R15,R14 IS THE INTERUPT BELOW OURS @VA08860 00029000
R08860DK: BL REFLECT2 YES,LOOK IN ANOTHER RCWTASK @VA08860 00030000
R08860DK: LA R5,RCWCCW NO,IT IS IN OUR RCWTASK,NOW POINT@VA08860 00031000
R08860DK: * TO THE FIRST CCW IN THIS TASK 00032000
R08860DK: LR R1,R5 WE WILL NEED THIS LATER AND USE @VA08860 00033000
R08860DK: * R1 NOW 00034000
R08860DK: SLR R15,R1 GET DISPLACEMENT TO CURRENT CCW @VA08860 00035000
R08860DK: L R14,RCWVCAW NOW GET THE VIRTUAL START FOR @VA08860 00036000
R08860DK: * THESE CCW'S 00037000
R08860DK: LCTL C1,C1,VMSEG GET USER'S CONTROL REG @VA08860
R08860DK: LRA R0,0(R14) NOW GET THE REAL USER CCW @VA08860 00038000
R08860DK: * ADDRESS IN VM 00039000
R08860DK: BNZ CKCC NO,THE PAGE IS NOT RESIDENT FOR @VA08860 00040000
R08860DK: * SOME REASON 00041000
R08860DK: AR R0,R15 NOW GET THE DISPLACEMENT FROM @VA08860 00042000
R08860DK: * BEGINNING OF THIS STRING 00043000
R08860DK: B FINDTIC NOW LET'S SEE IF WE HAVE WRAPLIST@VA08860 00044000
R08860DK: SPACE 00045000
R08860DK: REFLECT2 DS 0H @VA08860 00046000
R08860DK: ICM R14,B'0111',RCWPNT+1 SEE IF THERE IS ANOTHER @VA08860 00047000
R08860DK: * RCWTASK 00048000
R08860DK: BNZ REFLECT1 YES,GO BACK TO FIND IF INTERUPT @VA08860 00049000
R08860DK: * IS IN THIS RCWTASK 00050000
R08860DK: B CKCC SOMETHING WRONG WE SHOULD OF @VA08860 00051000
R08860DK: * FOUND THE INTERUPT...... 00052000
R08860DK: DROP R14 @VA08860 00053000
R08860DK: ./ R 174000 $ 174200 100 00054000
R08860DK: BNE WRAPLP1 NO, CONTINUE FIND IT SOMEWHERE @VA08860 00055000
R08860DK: * ELSE 00056000
R08860DK: CL R0,0(R14) YES,IT COULD BE OURS CHECK FOR @VA08860 00057000
R08860DK: * SAME VIRT CCW ADDRESS 00058000
R08860DK: BE CKTIC YES,GO CHECK TO SEE IF TIC IS @VA08860 00059000
R08860DK: * CHANGED 00060000
R08860DK: WRAPLP1 DS 0H @VA08860 00061000
R08860DK: ./ I 176000 $ 176500 50 00062000
R08860DK: S R0,F8 BACKUP TO PREVIOUS CCW @VA08860 00063000
R08860DK: * THE PURPOSE FOR BACKING UP THE CCW'S IS THAT THE 00064000
R08860DK: * PCI INTERUPT CAN OCCUR AT ANYTIME AFTER THE 00065000
R08860DK: * PCI BIT IS DETECTED BY THE CHANNEL. THEREFORE 00066000
R08860DK: * THE ACTUAL INTERUPT CAN COME IN ANYWHERE. 00067000
R08860DK: ./ R 181000 $ 181050 050 00068000
R08860DK: AR R2,R5 NOW ADD THIS RCWTASK FIRST CCW @VA08860 00069000
R08860DK: * TO DISPLACEMENT 00070000
BEGIN APPLY >>> ./ R 167000 $ 167025 10 00001000
END APPLY >>> ./ R 167000 $ 167025 10 00001000
BEGIN APPLY >>> ./ R 174000 $ 174200 100 00054000
END APPLY >>> ./ R 174000 $ 174200 100 00054000
BEGIN APPLY >>> ./ I 176000 $ 176500 50 00062000
END APPLY >>> ./ I 176000 $ 176500 50 00062000
BEGIN APPLY >>> ./ R 181000 $ 181050 050 00068000
END APPLY >>> ./ R 181000 $ 181050 050 00068000
Update Succeeded
Update Execution Time 16 milliseconds.
R08629DK
Date Tuesday May 29, 1979 09:19:00 AM
Loaded from MAINT(294)
R08629DK: ./ I 120100 $ 120200 100 00001000
R08629DK: EXTRN DMKSTKIO @VA08629 00002000
R08629DK: ./ R 356000 356000 $ 356000 100 00003000
R08629DK: BNE VIOINT1 NOPE - NOT YET @VA08629 00004000
R08629DK: ./ R 433000 433000 $ 432100 50 00005000
R08629DK: TM IOBSPEC,IOBUNSL UNSOLICITED INTERRUPT? @VA08629 00006000
R08629DK: BZ ATTNPLUS NO SPECIAL CHECKING @VA08629 00007000
R08629DK: CLI VDEVTYPC,CLASGRAF LOOKING FOR 2250/3350 @VA08629 00008000
R08629DK: BNE ATTNPLUS GRAPHICS DEVICE @VA08629 00009000
R08629DK: TM VDEVTYPE,TYP2250 ... @VA08629 00010000
R08629DK: BZ ATTNPLUS NO SPECIAL CHECKING @VA08629 00011000
R08629DK: TM VDEVFLAG,VDEVUC WAITING FOR SENSE TO BE @VA08629 00012000
R08629DK: BZ ATTNPLUS OFFLOADED? NO, HANDLE NORMALLY @VA08629 00013000
R08629DK: * MUST WAIT FOR SENSE TO BE OFFLOADED BEFORE HANDLING ATTENTION 00014000
R08629DK: * I/O FOR KEYBOARD OR LIGHT PEN FUNCTIONS. 00015000
R08629DK: SLR R2,R2 CLEAR R2 @VA08629 00016000
R08629DK: ICM R2,7,VDEVIO QUEUE OF PENDING INTERRUPTS @VA08629 00017000
R08629DK: BNZ NEXTIOB FIND END OF CHAIN AND QUEUE I/O @VA08629 00018000
R08629DK: STCM R10,7,VDEVIO STORE POINTER TO IOBLOK @VA08629 00019000
R08629DK: B GOTODSP OFF TO THE DISPATCHER @VA08629 00020000
R08629DK: DROP R10 @VA08629 00021000
R08629DK: USING IOBLOK,R2 R2 IOBLOK ADDRESSABILITY @VA08629 00022000
R08629DK: NEXTIOB L R14,IOBFPNT POINTER TO NEXT IOB ON CHAIN @VA08629 00023000
R08629DK: LTR R14,R14 LOOKING FOR END OF CHAIN @VA08629 00024000
R08629DK: BZ QUEUE FOUND END - QUEUE THIS IOB @VA08629 00025000
R08629DK: LR R2,R14 SAVE THIS IOBLOK POINTER @VA08629 00026000
R08629DK: B NEXTIOB CONTINUE LOOKING FOR END @VA08629 00027000
R08629DK: QUEUE ST R10,IOBFPNT CHAIN IN CURRENT IOBLOK @VA08629 00028000
R08629DK: GOTODSP SLR R14,R14 CLEAR R14 TO ZERO POINTER @VA08629 00029000
R08629DK: ST R14,IOBFPNT-IOBLOK(R10) CLEAR FORWARD POINTER @VA08629 00030000
R08629DK: GOTO DMKDSPCH OFF TO THE DISPATCHER @VA08629 00031000
R08629DK: SPACE 00032000
R08629DK: USING IOBLOK,R10 RE-ESTABLISH R10 ADDRESSABILITY @VA08629 00033000
R08629DK: ATTNPLUS TM IOBCSW+4,X'FF'-(ATTN+UC) ANYTHING ELSE? @VA08629 00034000
R08629DK: ./ R 639051 641000 $ 639060 50 00035000
R08629DK: VIOBFRET EQU * @VA08629 00036000
R08629DK: VIORLSE LR R2,R10 SAVE IOBLOK ADDR TEMPORARILY @VA08629 00037000
R08629DK: TM IOBSPEC3,IOBSENSE SPECIAL 2250/3250 UC CASE? @VA08629 00038000
R08629DK: BZ VIONOSTK NO, KEEP GOING @VA08629 00039000
R08629DK: NI IOBSPEC3,X'FF'-IOBSENSE RESET 2250/3250 IND. @VA08629 00040000
R08629DK: SLR R10,R10 ... @VA08629 00041000
R08629DK: ICM R10,7,VDEVIO ANY PENDING I/O @VA08629 00042000
R08629DK: BZ VIONOSTK NO, BYPASS UNSTACK OF PEND I/O @VA08629 00043000
R08629DK: UNSTKNXT L R1,IOBFPNT-IOBLOK(R10) ADDR OF NEXT ON CHAIN @VA08629 00044000
R08629DK: CALL DMKSTKIO UNSTACK PENDING I/O @VA08629 00045000
R08629DK: LTR R1,R1 ANY MORE PENDING @VA08629 00046000
R08629DK: BZ VIOCLR NO, KEEP GOING @VA08629 00047000
R08629DK: LR R10,R1 PREPARE TO UNSTACK NEXT I/O @VA08629 00048000
R08629DK: B UNSTKNXT UNSTACK NEXT REQUEST @VA08629 00049000
R08629DK: VIOCLR STCM R1,7,VDEVIO CLEAR VDEVBLOK PEND CHAIN @VA08629 00050000
R08629DK: VIONOSTK EQU * @VA08629 00051000
R08629DK: LR R1,R2 NOW RELEASE IOBLOK @VA08629 00052000
R08629DK: LA R0,IOBSIZE SIZE IN DOUBLEWORDS @VA08629 00053000
R08629DK: CALL DMKFRET RELEASE STORAGE @VA08629 00054000
R08629DK: ./ R 652000 652000 $ 651100 100 00055000
R08629DK: SLR R3,R3 CLEAR @VA08629 00056000
R08629DK: ICM R3,7,VDEVIO ANY I/O PENDING? @VA08629 00057000
R08629DK: BZR R2 NO, NOTHING TO RELEASE @VA08629 00058000
R08629DK: LR R1,R3 GET IOBLOK INTO R10 FOR STACK @VA08629 00059000
R08629DK: VIORUNQ L R3,IOBFPNT-IOBLOK(R1) GET POINTER TO NEXT @VA08629 00060000
R08629DK: * PRIOR 00061000
R08629DK: LA R0,IOBSIZE SIZE OF STORAGE TO RELEASE @VA08629 00062000
R08629DK: CALL DMKFRET TO RELEASE PENDING I/O @VA08629 00063000
R08629DK: LTR R3,R3 ANYMORE ON CHAIN? @VA08629 00064000
R08629DK: BZR R2 NO, RETURN @VA08629 00065000
R08629DK: LR R1,R3 CONTINUE TO RELEASE PEND I/O @VA08629 00066000
R08629DK: B VIORUNQ ... @VA08629 00067000
BEGIN APPLY >>> ./ I 120100 $ 120200 100 00001000
END APPLY >>> ./ I 120100 $ 120200 100 00001000
BEGIN APPLY >>> ./ R 356000 356000 $ 356000 100 00003000
END APPLY >>> ./ R 356000 356000 $ 356000 100 00003000
BEGIN APPLY >>> ./ R 433000 433000 $ 432100 50 00005000
END APPLY >>> ./ R 433000 433000 $ 432100 50 00005000
BEGIN APPLY >>> ./ R 639051 641000 $ 639060 50 00035000
END APPLY >>> ./ R 639051 641000 $ 639060 50 00035000
BEGIN APPLY >>> ./ R 652000 652000 $ 651100 100 00055000
END APPLY >>> ./ R 652000 652000 $ 651100 100 00055000
Update Succeeded
Update Execution Time 23 milliseconds.
R09957DK
Date Thursday Jul 12, 1979 09:54: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 8 milliseconds.
R09137DK
Date Wednesday Oct 31, 1979 10:31:00 AM
Loaded from MAINT(294)
R09137DK: ./ I 535000 $ 535200 200 00001000
R09137DK: TM IOBSPEC3,IOBPST POST THIS INTERRUPT? @VA09137 00002000
R09137DK: BNO NOPOST NO @VA09137 00003000
R09137DK: OI VDEVFLG2,VDEVPST TELL DSP TO POST @VA09137 00004000
R09137DK: NOPOST EQU * @VA09137 00005000
BEGIN APPLY >>> ./ I 535000 $ 535200 200 00001000
END APPLY >>> ./ I 535000 $ 535200 200 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R10312DK
Date Thursday Dec 06, 1979 11:27:00 AM
Loaded from MAINT(294)
R10312DK: ./ R 167365 167445 $ 167370 10 00001000
R10312DK: LR R0,R15 SAVE DISPLACEMENT ACROSS CALL @VA10312 00002000
R10312DK: L R1,RCWVCAW ADDRESS TO TRANSLATE @VA10312 00003000
R10312DK: TRANS R2,R1,OPT=(BRING+DEFER) CHECK OUT PAGE ADDRESS @VA10312 00004000
R10312DK: LR R15,R0 RESTORE DISPLACEMENT @VA10312
R10312DK: BNZ TSTPCIL SOMETHING WRONG HERE @VA10312 00005000
R10312DK: AR R0,R2 POINT TO VIRTUAL CCW @VA10312 00006000
R10312DK: ./ R 167525 $ 167526 00007000
R10312DK: B TSTPCIL SOMETHING WRONG WE SHOULD HAVE @VA10312 00008000
R10312DK: ./ R 170000 $ 170100 00009000
R10312DK: BZ TSTPCIL BRANCH IF NONE @VA10312 00010000
R10312DK: ./ R 172000 $ 172100 00011000
R10312DK: BZ TSTPCIL BRANCH IF NONE OR END OF LIST @VA10312 00012000
R10312DK: ./ R 179000 $ 179100 00012000
R10312DK: B TSTPCIL NOT THIS TIME @VA10312 00012000
BEGIN APPLY >>> ./ R 167365 167445 $ 167370 10 00001000
END APPLY >>> ./ R 167365 167445 $ 167370 10 00001000
BEGIN APPLY >>> ./ R 167525 $ 167526 00007000
END APPLY >>> ./ R 167525 $ 167526 00007000
BEGIN APPLY >>> ./ R 170000 $ 170100 00009000
END APPLY >>> ./ R 170000 $ 170100 00009000
BEGIN APPLY >>> ./ R 172000 $ 172100 00011000
END APPLY >>> ./ R 172000 $ 172100 00011000
BEGIN APPLY >>> ./ R 179000 $ 179100 00012000
END APPLY >>> ./ R 179000 $ 179100 00012000
Update Succeeded
Update Execution Time 23 milliseconds.
R10021DK
Date Saturday Feb 09, 1980 10:09:00 AM
Loaded from MAINT(294)
R10021DK: ./ R 434100 $ 434110 00001000
R10021DK: CLI VDEVTYPC,CLASGRAF IS THIS A GRAPHICS TYPE @VA10021 00002000
BEGIN APPLY >>> ./ R 434100 $ 434110 00001000
END APPLY >>> ./ R 434100 $ 434110 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R10261DK
Date Thursday Mar 06, 1980 01:10:00 AM
Loaded from MAINT(294)
R10261DK: ./ R 581000 $ 581010 00001000
R10261DK: B CKTERM2 @VA10261 00002000
R10261DK: ./ I 616000 $ 616200 10 00003000
R10261DK: TM VDEVTYPC,CLASTERM+CLASGRAF TERMINAL DEVICE ? @VA10261 00004000
R10261DK: BZ CKTERM1 NO @VA10261 00005000
R10261DK: OI VMQSTAT,VMPRIDSP SET Q1 SWITCH @VA10261 00006000
R10261DK: CKTERM1 DS 0H @VA10261 00007000
R10261DK: CL R10,IOBLINK FINAL INTERRUPT ? @VA10261 00008000
R10261DK: BNE VIOBFRET NO. TAKE BRANCH @VA10261 00009000
R10261DK: B QTWO GO CHECK FOR INTERRUPT @VA10261 00010000
R10261DK: CKTERM2 DS 0H @VA10261 00011000
R10261DK: ./ D 622700 622800 00012000
BEGIN APPLY >>> ./ R 581000 $ 581010 00001000
END APPLY >>> ./ R 581000 $ 581010 00001000
BEGIN APPLY >>> ./ I 616000 $ 616200 10 00003000
END APPLY >>> ./ I 616000 $ 616200 10 00003000
BEGIN APPLY >>> ./ D 622700 622800 00012000
END APPLY >>> ./ D 622700 622800 00012000
Update Succeeded
Update Execution Time 16 milliseconds.
R09216DK
Date Tuesday Jul 08, 1980 06:30:00 AM
Loaded from MAINT(294)
R09216DK: ./ I 501000 $ 501100 50 00001000
R09216DK: CL R10,IOBLINK IS IT COPY IOB ? @VA09216 00002000
R09216DK: BNE NOUNTFR4 NO, DON'T UNTRANSLATE IT @VA09216 00003000
BEGIN APPLY >>> ./ I 501000 $ 501100 50 00001000
END APPLY >>> ./ I 501000 $ 501100 50 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R10829DK
Date Tuesday Jul 29, 1980 06:30:00 AM
Loaded from MAINT(294)
R10829DK: ./ I 458150 $ 458160 10 00001000
R10829DK: TM IOERCSW+5,IFCC WAS IT IFCC ONLY? @VA10829 00002000
R10829DK: BZ NOTIFCC NO, CONTINUE @VA10829 00003000
R10829DK: NI VDEVSTAT,255-VDEVCHBS IF ON, TURN IT OFF @VA10829 00004000
R10829DK: NOTIFCC EQU * @VA10829 00005000
BEGIN APPLY >>> ./ I 458150 $ 458160 10 00001000
END APPLY >>> ./ I 458150 $ 458160 10 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R12082DK
Date Friday Jan 09, 1981 10:21:00 AM
Loaded from MAINT(294)
R12082DK: ./ R 434000 435000 $ 434200 200 00001000
R12082DK: BZ SAVESTAT NO-ADD TO OLD STATUS @VA12082 00002000
R12082DK: CLI VDEVTYPC,CLASGRAF IS THIS GRAPHICS TYPE @VA12082 00003000
R12082DK: BNE VIOBY1 NO-POST AS SINGLE INTERRUPT @VA12082 00004000
R12082DK: CLI IOBCSW+4,ATTN+CUE DO WE HAVE ATTN AND CUE @VA12082 00005000
R12082DK: BNE VIOBY1 NO-POST AS SINGLE INTERRUPT @VA12082 00006000
R12082DK: TM VDEVINTS,X'04' DO WE HAVE DE END @VA12082 00007000
R12082DK: BO SAVESTAT YES-ADD TO OLD STATUS @VA12082 00008000
R12082DK: VIOBY1 EQU * @VA12082 00009000
R12082DK: OI VDEVFLAG,VDEVPOST FLAG AS SINGLE INTERRUPT @VA12082 00010000
BEGIN APPLY >>> ./ R 434000 435000 $ 434200 200 00001000
END APPLY >>> ./ R 434000 435000 $ 434200 200 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R12941DK
Date Tuesday Jul 07, 1981 01:39:00 PM
Loaded from MAINT(294)
R12941DK: ./ *
BEGIN APPLY >>> ./ *
Comment >>> ./ *
END APPLY >>> ./ *
Update Succeeded
Update Execution Time 16 milliseconds.
HRC013DK
Date Thursday Feb 09, 2006 12:21:00 AM
Loaded from MAINT(094)
HRC013DK: ./ * HRC013DK V01 UNIVERSITY OF MAINE P.E.R. TRACE FACILITY
BEGIN APPLY >>> ./ * HRC013DK V01 UNIVERSITY OF MAINE P.E.R. TRACE FACILITY
Comment >>> ./ * HRC013DK V01 UNIVERSITY OF MAINE P.E.R. TRACE FACILITY
END APPLY >>> ./ * HRC013DK V01 UNIVERSITY OF MAINE P.E.R. TRACE FACILITY
Update Succeeded
Update Execution Time 16 milliseconds.
ibm/vm370-lib/cp/dmkvio.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator