ibm:vm370-lib:cp:dmkloh.assemble_hst
Table of Contents
DMKLOH History
References
- Fixes Applied : 10
- Latest Source Date : Thursday, December 7, 1978
- Last Fix ID : [HRC065DK]
Update History
CMS File Input : DMKLOH ASSEMBLE
Date : 12/7/1978 5:09:00 PM
VM Context : MAINT(394)
File Name : DMKLOH.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:47 AM
Created : 1/16/2021 7:31:47 AM
Update Order
- R09593DK 602 MOVE CODE FROM DMKLOG TO DMKLOH FOR SERVICE
- R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
- R09758DK 609 INCORRECT FLAG DEFINITION
- R11587DK 616 UV01618 FIELD SHOULD BE RDEVFLAG INSTEAD OF RDEVSTAT
- R13723DK 623 UV05095 SPLIT DMKLOG FOR MAINTENANCE
- R13200DK 623 UV04704 USER RE-CONNECT TIMER POP LATER ABENDLOK001
- R14288DK 623 UV05569 PEVM13280
- R14453DK 625 UV05587 WHEN DMKLOG WAS SPLIT, VM12564 DID NOT GET INC.
- R15234DK 629 UV06396 ABENDPSA004 AFTER VM14453.
- HRC065DK V01 Logical Device Support Facility
R09593DK
Date Wednesday Apr 18, 1979 03:22:00 AM
Loaded from MAINT(294)
R09593DK: ./ I 20000 $ 20100 100 DMK00010
R09593DK: * DMKLOHSS - MSS DISK ALLOCATION AFTER A MOUNT @VA09593 DMK00020
R09593DK: ./ I 41000 $ 41050 50 DMK00030
R09593DK: * DMKERMSG - SEND ERROR MESSAGE TO USER @VA09593 DMK00040
R09593DK: * DMKSCNRU - FIND RDEVBLOK FOR A DEDICATED DEVICE @VA09593 DMK00050
R09593DK: * DMKSCNVU - FIND VIRTUAL DEVICE BLOCKS @VA09593 DMK00060
R09593DK: * DMKSTKCP - STACK A CPEXBLOK FOR DMKDSP @VA09593 DMK00070
R09593DK: * DMKVDSAT - ATTACH A VIRTUAL DEVICE @VA09593 DMK00080
R09593DK: ./ I 113000 $ 113050 50 DMK00090
R09593DK: EXTRN DMKERMSG,DMKSCNRU,DMKSCNVU @VA09593 DMK00100
R09593DK: EXTRN DMKSTKCP,DMKVDSAT @VA09593 DMK00110
R09593DK: ./ R 312000 315000 $ 311100 50 DMK00120
R09593DK: EJECT DMK00130
R09593DK: DMKLOHSS RELOC ENTRY FROM THE DISPATCHER @VA09593 DMK00140
R09593DK: * DMK00150
R09593DK: * DMKLOHSS IS ENTERED FROM DMKDSP AFTER A REQUESTED DMK00160
R09593DK: * MSS VOLUME HAS BEEN MOUNTED. THE ADDRESS OF DMK00170
R09593DK: * LABEL 'DMKLOHSS' IS PLACED IN THE CPEXADD DMK00180
R09593DK: * FIELD OF A CPEXBLOK BY DMKSSS WHEN AN MSS DMK00190
R09593DK: * MOUNT IS REQUIRED TO SATISFY A DED REQUEST. DMK00200
R09593DK: * WHEN THE VOLUME HAS BEEN MOUNTED, MODULE DMK00210
R09593DK: * DMKDSB FINDS THE CPEXBLOK CHAINED FROM AN DMK00220
R09593DK: * MSSCOM BLOCK AND GOES TO DMKDSP. DMK00230
R09593DK: * DMK00240
R09593DK: * THIS ROUTINE WILL RESET THE ENVIRONMENT AS IF DMK00250
R09593DK: * THERE HAD BEEN NO ASYNCHRONOUS MSS MOUNT AND DMK00260
R09593DK: * THEN PROCEED TO COMPLETE THE DISK ALLOCATION. DMK00270
R09593DK: * DMK00280
R09593DK: LH R1,MSSVUA-OSVSCOM(R3) RDEV ADDR @VMI2009 DMK00290
R09593DK: CALL DMKSCNRU GET THE RDEVBLOK @V60B6B8 DMK00300
R09593DK: LR R1,R8 ADDR TO GPR 1 @V60B6B8 DMK00310
R09593DK: LR R2,R5 UDEVBLOK ADDR FOR DMKVDSAT @V60B6B8 DMK00320
R09593DK: CALL DMKVDSAT ATTACH THE DEVICE @V60B6B8 DMK00330
R09593DK: BZ TSTV333V GOOD RETURN FROM VDS @V60B6B8 DMK00340
R09593DK: LA R2,CON95 ERROR MSG ID @V60B6B8 DMK00350
R09593DK: LH R1,UDEVADD-UDEVBLOK(R5) VIRTUAL ADDRESS @V60B6B8 DMK00360
R09593DK: CALL DMKCVTBH CONVERT TO PRINTABLE HEX @V60B6B8 DMK00370
R09593DK: ICM R1,8,BLANKS BLANK FIRST CHAR @V60B6B8 DMK00380
R09593DK: ICM R0,14,DMKLOH+3 MODULE ID @VA09593 DMK00390
R09593DK: ICM R2,8,=X'80' INDICATE RETURN TO DMKLOH @V60B6B8 DMK00400
R09593DK: CALL DMKERMSG WRITE ERROR MSG @V60B6B8 DMK00410
R09593DK: B FREEUDEV @V60B6B8 DMK00420
R09593DK: TSTV333V EQU * SEE IF USER WANTS VIRTUAL 3330V @V60B6B8 DMK00430
R09593DK: TM UDEVFTR-UDEVBLOK(R5),VIRTUAL VIRT 3330V @V60B6B8 DMK00440
R09593DK: BZ FREEUDEV NO, ALL DONE @V60B6B8 DMK00450
R09593DK: LH R1,UDEVADD-UDEVBLOK(R5) VIRTUAL DEVICE ADDR @V60B6B8 DMK00460
R09593DK: CALL DMKSCNVU GET THE VDEVBLOK @V60B6B8 DMK00470
R09593DK: OI VDEVFLG2-VDEVBLOK(R8),VIRTUAL SET FLAG @V60B6B8 DMK00480
R09593DK: L R1,VDEVREAL-VDEVBLOK(R8) REAL DEV BLOK ADDR @V60B6B8 DMK00490
R09593DK: OI RDEVSTAT-RDEVBLOK(R1),RDEV333V SET RBLOK FLAG @V60B6B8 DMK00500
R09593DK: FREEUDEV EQU * @V60B6B8 DMK00510
R09593DK: LA R0,UDEVSIZE UDEVBLOK SIZE @V60B6B8 DMK00520
R09593DK: LR R1,R5 ADDR OF SAVED BLOCK @V60B6B8 DMK00530
R09593DK: CALL DMKFRET RETURN THE MEMORY @V60B6B8 DMK00540
R09593DK: * DMK00550
R09593DK: * NOW CHECK TO SEE IF THERE IS ANY PENDING I/O FOR DMK00560
R09593DK: * THE VIRTUAL DEVICE JUST ATTACHED. IF THERE DMK00570
R09593DK: * IS, THEN A CPEXBLOK REPRESENTING THE I/O DMK00580
R09593DK: * WILL HAVE BEEN CHAINED FROM THE MSSCOM BLOCK DMK00590
R09593DK: * WHEN THE USER SIO WAS RECEIVED. DMK00600
R09593DK: * DMK00610
R09593DK: * NOTE: WHEN DMKDSB QUEUES THE MSSCOM BLOCK DMK00620
R09593DK: * FROM FIELD DMKSSSMQ, AND CREATES THE CPEXBLOK DMK00630
R09593DK: * FOR DMKLOHSS, IT PLACES THE ADDRESS OF DMK00640
R09593DK: * THE MSSCOM BLOCK IN THE GPR 3 FIELD OF THE DMK00650
R09593DK: * CPEXBLOK. DMK00660
R09593DK: * DMK00670
R09593DK: USING OSVSCOM,R3 R3 SET BY DMKSSS @VMI2009 DMK00680
R09593DK: L R1,MSSTASK3 CPEXBLOK IF SIO FROM USER @V60B6B8 DMK00690
R09593DK: LTR R1,R1 IS THERE A SIO PENDING @V60B6B8 DMK00700
R09593DK: BZ FREECOM NO @V60B6B8 DMK00710
R09593DK: CALL DMKSTKCP STACK THE CPEXBLOK FOR DMKDSP @V60B6B8 DMK00720
R09593DK: FREECOM EQU * RETURN STORAGE FOR THE MSSCOM @V60B6B8 DMK00730
R09593DK: LR R1,R3 MSSCOM ADDRESS @VMI2009 DMK00740
R09593DK: LA R0,MSSSIZE NO. OF D-WORDS IN BLOCK @V60B6B8 DMK00750
R09593DK: CALL DMKFRET AND RETURN THE STORAGE @V60B6B8 DMK00760
R09593DK: DROP R3 @VMI2009 DMK00770
R09593DK: GOTO DMKDSPCH AND EXIT @V60B6B8 DMK00780
R09593DK: EJECT DMK00790
R09593DK: LTORG DMK00800
R09593DK: EJECT DMK00810
R09593DK: ./ I 363000 $ 363100 100 DMK00820
R09593DK: OSVSCOM MSSCOM @V60B6B8 DMK00830
R09593DK: CON95 EQU 95 DMKLOH095E MESSAGE @VA09593 DMK00840
R09593DK: COPY VBLOKS @VA09593 DMK00850
BEGIN APPLY >>> ./ I 20000 $ 20100 100 DMK00010
END APPLY >>> ./ I 20000 $ 20100 100 DMK00010
BEGIN APPLY >>> ./ I 41000 $ 41050 50 DMK00030
END APPLY >>> ./ I 41000 $ 41050 50 DMK00030
BEGIN APPLY >>> ./ I 113000 $ 113050 50 DMK00090
END APPLY >>> ./ I 113000 $ 113050 50 DMK00090
BEGIN APPLY >>> ./ R 312000 315000 $ 311100 50 DMK00120
END APPLY >>> ./ R 312000 315000 $ 311100 50 DMK00120
BEGIN APPLY >>> ./ I 363000 $ 363100 100 DMK00820
END APPLY >>> ./ I 363000 $ 363100 100 DMK00820
Update Succeeded
Update Execution Time 8 milliseconds.
R09957DK
Date Thursday Jul 12, 1979 09:52: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.
R09758DK
Date Wednesday Jan 23, 1980 01:15:00 AM
Loaded from MAINT(294)
R09758DK: ./ R 312850 $ 312855 00001000
R09758DK: OI VDEVFLG2-VDEVBLOK(R8),VDEVVIRT SET FLAG @VA09758 00002000
BEGIN APPLY >>> ./ R 312850 $ 312855 00001000
END APPLY >>> ./ R 312850 $ 312855 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R11587DK
Date Monday Sep 15, 1980 07:25:00 AM
Loaded from MAINT(294)
R11587DK: ./ R 312950 312950 $ 312960 10 00001000
R11587DK: OI RDEVFLAG-RDEVBLOK(R1),RDEV333V DED AS 3330V @VA11587 00002000
BEGIN APPLY >>> ./ R 312950 312950 $ 312960 10 00001000
END APPLY >>> ./ R 312950 312950 $ 312960 10 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R13723DK
Date Thursday Aug 27, 1981 08:04:00 AM
Loaded from MAINT(294)
R13723DK: ./ R 00020000 00020100 $ 20000 100 07/29/81 15:41:33
R13723DK: * 00020000
R13723DK: * DMKLOHRC - TO UPDATE VMBLOKS TO RECONNECT A DISCONNECTED USER 00020100
R13723DK: * (SEE COMMENT BLOCK IN DMKLOHRC FOR VITAL INFO). 00020200
R13723DK: * 00020300
R13723DK: * 00020400
R13723DK: * DMKLOHSS - MSS DISK ALLOCATION AFTER A MOUNT @VA09593 00020500
R13723DK: * 00020600
R13723DK: ./ I 00041250 $ 41450 200 07/29/81 15:41:33
R13723DK: * DMKSCHRT - TO PREVENT WAKE UP TO A DEV (REMOVE TRQBLOK 00041450
R13723DK: * FROM QUEUE). 00041650
R13723DK: ./ I 00085000 $ 85100 100 07/29/81 15:41:33
R13723DK: * 00085100
R13723DK: * 00085200
R13723DK: * CHANGE ACTIVITY - 00085300
R13723DK: * 00085400
R13723DK: * 1. APAR 13723: SPLIT OF DMKLOG AT LABEL LOG07A. CODE PLACED 00085500
R13723DK: * INTO DMKLOHRC. 07-24-81 00085600
R13723DK: * 00085700
R13723DK: * 00085800
R13723DK: ./ I 00113100 $ 113500 400 07/29/81 15:41:33
R13723DK: EXTRN DMKSCHRT @VA13723 00113500
R13723DK: ./ R 00311150 00324000 $ 311150 50 07/29/81 15:41:33
R13723DK: SPACE 2 00311150
R13723DK: *********************************************************************** 00311200
R13723DK: * * 00311250
R13723DK: * DMKLOHRC - TO UPDATE VMBLOKS TO RECONNECT A DISCONNECTED USER * 00311300
R13723DK: * * 00311350
R13723DK: *---------------------------------------------------------------------* 00311400
R13723DK: * * 00311450
R13723DK: * * 00311500
R13723DK: * ENTRY CONDITIONS: * 00311550
R13723DK: * * 00311600
R13723DK: * R1 - VMBLOK ADDRESS TO RECONNECT USER * 00311650
R13723DK: * R2 - LOGON COMMAND ARGUMENTS * 00311700
R13723DK: * * 00311750
R13723DK: * R6 - CONTAINS A BRANCH ADDRESS REQUIRED BY DMKLOG. THIS * 00311800
R13723DK: * ADDRESS MUST BE SAVED IF R6 IS TO BE USED AND RESTORED * 00311850
R13723DK: * AT EXIT TIME FROM THIS ROUTINE. * 00311900
R13723DK: * * 00311950
R13723DK: * * 00312000
R13723DK: * EXIT CONDITIONS: * 00312050
R13723DK: * * 00312100
R13723DK: * R1 - CONTAINS A RETURN CODE OF 0, 4, OR 8. THIS RETURN * 00312150
R13723DK: * IS REQUIRED BY DMKLOG FOR BRANCHING PURPOSES. * 00312200
R13723DK: * * 00312250
R13723DK: * R6 - CONTAINS THE RESTORED VALUE IT ORIGINALLY HAD UPON * 00312300
R13723DK: * ENTRY INTO THIS MODULE. * 00312350
R13723DK: * * 00312400
R13723DK: * * 00312450
R13723DK: * * 00312500
R13723DK: * * 00312550
R13723DK: * OPERATION - DMKLOHRC * 00312600
R13723DK: * * 00312650
R13723DK: * THE VMBLOK BELONGING TO THE DISCONNECTED USER IS REVISED TO USE * 00312700
R13723DK: * THE TERMINAL REAL DEVICE BLOCK POINTED TO BY THE 'CURRENT' GPR 11, * 00312750
R13723DK: * AND OTHER REVISIONS MADE AS NEEDED. THEN THE VMBLOK POINTED TO BY * 00312800
R13723DK: * GPR 11 IS RELEASED FROM THE SYSTEM, AND THE OTHER VMBLOK IS USED * 00312850
R13723DK: * THEREAFTER. * 00312900
R13723DK: *---------------------------------------------------------------------* 00312950
R13723DK: SPACE 2 00313000
R13723DK: DMKLOHRC RELOC @VA13723 00313050
R13723DK: LR R10,R1 PARM TO PERM REG @VA13723 00313100
R13723DK: ST R2,SAVEWRK1 STORE SAVEWRK1 INDICATORS @VA13723 00313150
R13723DK: TM SAVEWRK1,AUTOLOG+PSWRDCK AUTOLOG CMD? @VA05283 00313250
R13723DK: BNZ LOG07AB YES--BYPASS THE FOLLOWING CHECKS @VA05283 00313300
R13723DK: L R8,VMTERM TERMINAL RDEVBLOK ADDRESS @V200820 00313350
R13723DK: LTR R8,R8 IS TERMINAL STILL THERE? @VA04453 00313400
R13723DK: BZ LOHEXIT4 NO--ABORT RECONNECT @VA13723 00313450
R13723DK: USING RDEVBLOK,R8 @V200820 00313500
R13723DK: ST R8,VMTERM-VMBLOK(,R10) SET IN "OLD" USER VMBLOK @V200820 00313550
R13723DK: CLI RDEVTYPC,CLASSPEC LOGON VIA 370X NCP ? @V200820 00313600
R13723DK: BE LOG07AA YES - DIFFERENT @V200820 00313650
R13723DK: OI RDEVSTA3,RDEVATSW PREVENT ATTN DURING SWITCH @VA10462 00313700
R13723DK: SWITCH MAKE SURE WE'RE ON THE IO PROC @V4075A0 00313750
R13723DK: NI RDEVSTA3,X'FF'-RDEVATSW ALLOW ATTN AFTER SWITCH @VA10462 00313800
R13723DK: CLI RDEVTYPC,CLASTERM IS THIS A TERMINAL CLASS @V2D3931 00313850
R13723DK: BNE *+12 NO, CONTINUE @V2D3931 00313900
R13723DK: TM RDEVTYPE,TYPBSC IS THIS A BISYNC LINE @V2D3931 00313950
R13723DK: BO LOG07AA YES, ... @V2D3931 00314000
R13723DK: ST R10,RDEVUSER RESET RDEVBLOK POINTER TO VMBLOK @V200820 00314050
R13723DK: L R15,RDEVAIOB CHECK FOR AN ACTIVE IOBLOK @V200820 00314100
R13723DK: LTR R15,R15 IS THERE ONE RIGHT NOW ? @V200820 00314150
R13723DK: BNP LOG07AB NO -- GO GET RID OR R11 VMBLOK @V200820 00314200
R13723DK: ST R10,IOBUSER-IOBLOK(,R15) IOBLOK PTR TO VMBLOK @V200820 00314250
R13723DK: B LOG07AB @V200820 00314300
R13723DK: LOG07AA EQU * RECONNECT VIA 3705 TERMINAL @V200820 00314350
R13723DK: LH R7,VMTRMID RESOURCE I.D. FROM LOGON VMBLOK @V200820 00314400
R13723DK: STH R7,VMTRMID-VMBLOK(,R10) SET INTO GR10 VMBLOK @V200820 00314450
R13723DK: N R7,F4095 EXTRACT THE ACTUAL RESOURCE I.D. @V200820 00314500
R13723DK: MH R7,=AL2(NICSIZE*8) COMPUTE INDEX FOR NICBLOK @V200820 00314550
R13723DK: AL R7,RDEVNICL GR7 = ADDRESS OF TERMINAL NICBLOK@V200820 00314600
R13723DK: USING NICBLOK,R7 @V200820 00314650
R13723DK: ST R10,NICUSER RESET NICBLOK POINTER TO VMBLOK @V200820 00314700
R13723DK: DROP R7 @VA12982 00314750
R13723DK: LOG07AB EQU * RELEASE GR11 VMBLOK @V200820 00314800
R13723DK: TM VMOSTAT,VMSLEEP LOGONXXX ASLEEP ??? @VA07417 00314850
R13723DK: BNO LOG07AC NO, REAL FAST SKIP @VA07417 00314900
R13723DK: L R1,VMDELAY GET POSSIBLE TRQBLOK POINTER @VA07417 00314950
R13723DK: LTR R1,R1 WAS SLEEP WITH TIME INTERVAL ?? @VA07417 00315000
R13723DK: BNP LOG07AC NO, STILL EASY @VA07417 00315050
R13723DK: CALL DMKSCHRT PREVENT WAKEUP TO LOGONXXX @VA07417 00315100
R13723DK: LA R0,TRQBSIZE AND FRET TRQBLOK @VA07417 00315150
R13723DK: CALL DMKFRET @VA07417 00315200
R13723DK: LOG07AC EQU * LOGONXXX TRQBLOKS CLEANED UP @VA07417 00315250
R13723DK: L R5,ASYSVM LET R5 START FROM THE SYSTEM VMBLOK 00315300
R13723DK: L R3,VMPNT-VMBLOK(,R5) AND R3 STARTS WITH THE FIRST USER 00315350
R13723DK: L R7,VMPNT GET POINTER TO NEXT VMBLOK 00315400
R13723DK: LOG07B C R11,RUNUSER DOES RUNUSER BY ANY CHANCE POINT TO US ? 00315450
R13723DK: BNE LOG08 NO (WE DIDN'T THINK IT WOULD). 00315500
R13723DK: ST R5,RUNUSER YES, USE SYSTEM VMBLOK (NOT FRET'D BLOCK) 00315550
R13723DK: LOG08 LR R4,R3 REMEMBER PREVIOUS BLOCK 00315600
R13723DK: L R3,VMPNT-VMBLOK(,R3) GET PNTR TO NEXT BLOCK 00315650
R13723DK: CLR R3,R11 IS IT US ? 00315700
R13723DK: BNE LOG08 IF NOT, KEEP LOOKING. 00315750
R13723DK: ST R7,VMPNT-VMBLOK(,R4) PATCH CHAIN TO LEAVE US OUT 00315800
R13723DK: ST R4,VMPNT-VMBLOK(,R5) STORE NEW ANCHOR FOR CHAIN IN SYSVM 00315850
R13723DK: L R1,VMDFTPNT GET ADDRESS OF DEFERRED TASK @V4M0148 00315900
R13723DK: LTR R1,R1 IS THERE ONE? @V4M0148 00315950
R13723DK: BZ NODFT NO, SKIP FRET OF DEFERRED TASK @V4M0148 00316000
R13723DK: LA R0,CPEXSIZE GET SIZE OF DEFERRED TASK @V4M0148 00316050
R13723DK: CALL DMKFRET FRET DEFERRED TASK @V4M0148 00316100
R13723DK: NODFT DS 0H @V4M0148 00316150
R13723DK: LR R1,R11 'NEW' VMBLOK INTO R1 00316200
R13723DK: LR R11,R5 SWITCH TO ASYSVM @V407593 00316250
R13723DK: CHARGE START @V407593 00316300
R13723DK: DROP R11 @V407593 00316350
R13723DK: USING VMBLOK,R10 @V407593 00316400
R13723DK: C R1,STACKVM STACKVM = THIS VMBLOK? @VA09087 00316450
R13723DK: BNE LOGSVM NO - LET IT BE. @VA09087 00316500
R13723DK: MVC STACKVM,ZEROES YES - ZERO THE FIELD @VA09087 00316550
R13723DK: LOGSVM EQU * @VA09087 00316600
R13723DK: TM RDEVTFLG,RDEVTRQ IS THERE A TRQ ? @VA12982 00316650
R13723DK: BZ LOGSVM1 NO...CONTINUE @VA12982 00316700
R13723DK: L R6,RDEVAIRA GET TRQBLOK POINTER @VA12982 00316750
R13723DK: USING TRQBLOK,R6 SET UP TEMP BASE FOR TRQBLOK @VA12082 00316800
R13723DK: C R1,TRQBUSER IS IT FOR PSEUDO VMBLOK ? @VA13723 00316850
R13723DK: BNE LOGSVM1 NO...BRANCH @VA12982 00316900
R13723DK: LR R5,R1 SAVE VMBLOK FOR LATER USE @VA12982 00316950
R13723DK: LR R1,R15 GET READY TO FRET THE TRQBLOK @VA13723 00317000
R13723DK: CALL DMKSCHRT TAKE OFF THE CHAIN @VA12982 00317050
R13723DK: LR R1,R5 RESTORE VMBLOK @VA12982 00317100
R13723DK: ST R10,TRQBUSER UPDATE TRQBLOK USER @VA12982 00317150
R13723DK: NI RDEVTFLG,X'FF'-RDEVTRQ RESET TRQ INDICATOR @VA12982 00317200
R13723DK: DROP R6,R8 @VA12982 00317250
R13723DK: LOGSVM1 DS 0H @VA12982 00317300
R13723DK: LA R0,VMBSIZE NOW RETURN THE ONE WE WON'T BE USING 00317350
R13723DK: CALL DMKFRET TO FREE STORAGE 00317400
R13723DK: NI VMOSTAT,255-VMDISC RESET DISCONNECTED BIT 00317450
R13723DK: ST R10,SAVER11 RETURN RECONNECTED VMBLOK TO CALLER@V407593 00317500
R13723DK: OI VMRSTAT,VMCFWAIT PUT HIM IN CF WAIT @VA02059 00317550
R13723DK: OI VMOSTAT,VMCF .... AND FLAG CONS FUNC RUNNING @VA02811 00317600
R13723DK: EJECT 00317650
R13723DK: TM SAVEWRK1,RECON WAS THIS A RECONNECT ? 00317700
R13723DK: BZ LOG8A IF NO, INITIALIZE TIMERS 00317750
R13723DK: DROP R10 @V407593 00317800
R13723DK: LR R1,R10 SWITCH TO RECONNECTED VMBLOK @V407593 00317850
R13723DK: USING VMBLOK,R11 @V407593 00317900
R13723DK: BAL R5,SWVM GO TO SWITCH VMBLOKS @V4M0193 00317950
R13723DK: L R1,VMDELAY CHECK FOR DISCONNECT TRQBLOK @V200820 00318000
R13723DK: LTR R1,R1 IS THERE A PENDING INTERRUPT ? @V200820 00318050
R13723DK: BNP LOHEXIT0 NO -- CONTINUE RECONNECT PROCESS @VA13723 00318100
R13723DK: CALL DMKSCHRT REMOVE TRQBLOK FROM REQUEST QUEUE@V200820 00318150
R13723DK: LA R0,TRQBSIZE SIZE OF BLOCK IN DOUBLE-WORDS @V200820 00318200
R13723DK: CALL DMKFRET RETURN TRQBLOK TO FREE STORAGE @V200820 00318250
R13723DK: SLR R1,R1 @V200820 00318300
R13723DK: ST R1,VMDELAY CLEAR VMBLOK POINTER TO BLOCK @V200820 00318350
R13723DK: NI VMOSTAT,255-VMSLEEP REMOVE USER FROM SLEEP MODE @V200820 00318400
R13723DK: B LOHEXIT0 GO COMPLETE RECONNECT PROCESS @VA13723 00318450
R13723DK: DROP R11 @V407593 00318500
R13723DK: USING VMBLOK,R10 @V407593 00318550
R13723DK: LOG8A MVC VMTIMER,=X'FFFFFF00' ... 00318600
R13723DK: * SET VARIOUS FLAGS, ETC. SAME AS DMKBLDVM WOULD HAVE DONE 00318650
R13723DK: OI VMOSTAT,VMCF FLAG AS EXEC. CONS. FUNC.... @VA02059 00318700
R13723DK: OI VMRSTAT,VMLOGON ...LOGGING ON AND... @VA02059 00318750
R13723DK: OI VMMLEVEL,VMMSGON+VMWNGON+VMMCODE+VMMTEXT @VA02059 00318800
R13723DK: OI VMMLVL2,VMMIMSG AND THIS @V2A3663 00318850
R13723DK: MVI VMPSW+1,WAIT ... 00318900
R13723DK: MVC VMVTIME,ZEROES ZERO OUT TOTAL PROBLEM TIME. FOR START 00318950
R13723DK: MVC VMTMOUTQ,=X'7FFFFFFFFFFFF000' INITIALIZE VMTMOUTQ 00319000
R13723DK: MVC VMTTIME(16),VMTMOUTQ VMTTIME AND VMTMINQ 00319050
R13723DK: TM APSTAT1,APUOPER IS THIS AN AP SYSTEM? @V4M0203 00319100
R13723DK: BZ LOG8B NO, SKIP INIT OF CPTIME & APTIME @V4M0203 00319150
R13723DK: MVC VMCPTIME,HALFTIME INITIALIZE VMCPTIME @V4M0203 00319200
R13723DK: MVC VMAPTIME,HALFTIME INITIALIZE VMAPTIME @V4M0203 00319250
R13723DK: LOG8B DS 0H @V4M0203 00319300
R13723DK: DROP R10 @V407593 00319350
R13723DK: LR R1,R10 SWITCH TO NEW VMBLOK @V407593 00319400
R13723DK: USING VMBLOK,R11 @V407593 00319450
R13723DK: BAL R5,SWVM GO TO SWITCH VMBLOKS @V4M0193 00319500
R13723DK: SPACE 2 00319550
R13723DK: *---------------------------------------------------------------------* 00319600
R13723DK: * * 00319650
R13723DK: * THE FOLLOWING CODE SETS UP RETURN CODES FOR A BRANCH TABLE * 00319700
R13723DK: * WHEN RETURN IS MADE TO DMKLOG. * 00319750
R13723DK: *---------------------------------------------------------------------* 00319800
R13723DK: SPACE 1 00319850
R13723DK: LA R14,8 OP IS LOGGING ON, R11 UPDATED @VA13723 00319900
R13723DK: B LOHSAVE GO STORE IT FOR RETURN @VA13723 00319950
R13723DK: LOHEXIT4 LA R14,4 TERMINAL NO LONGER THERE, ABORT @VA13723 00320000
R13723DK: B LOHSAVE GO STORE IT FOR RETURN @VA13723 00320050
R13723DK: LOHEXIT0 SR R14,R14 OK, CONTINUE THE RECONNECT @VA13723 00320100
R13723DK: LOHSAVE ST R14,SAVER1 STORE BACK IN SAVE AREA @VA13723 00320150
R13723DK: EXIT 00320250
R13723DK: EJECT 00320300
R13723DK: DMKLOHSS RELOC ENTRY FROM THE DISPATCHER @VA09593 00320350
R13723DK: * 00320400
R13723DK: * DMKLOHSS IS ENTERED FROM DMKDSP AFTER A REQUESTED 00320450
R13723DK: * MSS VOLUME HAS BEEN MOUNTED. THE ADDRESS OF 00320500
R13723DK: * LABEL 'DMKLOHSS' IS PLACED IN THE CPEXADD 00320550
R13723DK: * FIELD OF A CPEXBLOK BY DMKSSS WHEN AN MSS 00320600
R13723DK: * MOUNT IS REQUIRED TO SATISFY A DED REQUEST. 00320650
R13723DK: * WHEN THE VOLUME HAS BEEN MOUNTED, MODULE 00320700
R13723DK: * DMKDSB FINDS THE CPEXBLOK CHAINED FROM AN 00320750
R13723DK: * MSSCOM BLOCK AND GOES TO DMKDSP. 00320800
R13723DK: * 00320850
R13723DK: * THIS ROUTINE WILL RESET THE ENVIRONMENT AS IF 00320900
R13723DK: * THERE HAD BEEN NO ASYNCHRONOUS MSS MOUNT AND 00320950
R13723DK: * THEN PROCEED TO COMPLETE THE DISK ALLOCATION. 00321000
R13723DK: * 00321050
R13723DK: LH R1,MSSVUA-OSVSCOM(R3) RDEV ADDR @VMI2009 00321100
R13723DK: CALL DMKSCNRU GET THE RDEVBLOK @V60B6B8 00321150
R13723DK: LR R1,R8 ADDR TO GPR 1 @V60B6B8 00321200
R13723DK: LR R2,R5 UDEVBLOK ADDR FOR DMKVDSAT @V60B6B8 00321250
R13723DK: CALL DMKVDSAT ATTACH THE DEVICE @V60B6B8 00321300
R13723DK: BZ TSTV333V GOOD RETURN FROM VDS @V60B6B8 00321350
R13723DK: LA R2,CON95 ERROR MSG ID @V60B6B8 00321400
R13723DK: LH R1,UDEVADD-UDEVBLOK(R5) VIRTUAL ADDRESS @V60B6B8 00321450
R13723DK: CALL DMKCVTBH CONVERT TO PRINTABLE HEX @V60B6B8 00321500
R13723DK: ICM R1,8,BLANKS BLANK FIRST CHAR @V60B6B8 00321550
R13723DK: ICM R0,14,DMKLOH+3 MODULE ID @VA09593 00321600
R13723DK: ICM R2,8,=X'80' INDICATE RETURN TO DMKLOH @V60B6B8 00321650
R13723DK: CALL DMKERMSG WRITE ERROR MSG @V60B6B8 00321700
R13723DK: B FREEUDEV @V60B6B8 00321750
R13723DK: TSTV333V EQU * SEE IF USER WANTS VIRTUAL 3330V @V60B6B8 00321800
R13723DK: TM UDEVFTR-UDEVBLOK(R5),VIRTUAL VIRT 3330V @V60B6B8 00321850
R13723DK: BZ FREEUDEV NO, ALL DONE @V60B6B8 00321900
R13723DK: LH R1,UDEVADD-UDEVBLOK(R5) VIRTUAL DEVICE ADDR @V60B6B8 00321950
R13723DK: CALL DMKSCNVU GET THE VDEVBLOK @V60B6B8 00322000
R13723DK: OI VDEVFLG2-VDEVBLOK(R8),VDEVVIRT SET FLAG @VA09758 00322050
R13723DK: L R1,VDEVREAL-VDEVBLOK(R8) REAL DEV BLOK ADDR @V60B6B8 00322100
R13723DK: OI RDEVFLAG-RDEVBLOK(R1),RDEV333V DED AS 3330V @VA11587 00322150
R13723DK: FREEUDEV EQU * @V60B6B8 00322200
R13723DK: LA R0,UDEVSIZE UDEVBLOK SIZE @V60B6B8 00322250
R13723DK: LR R1,R5 ADDR OF SAVED BLOCK @V60B6B8 00322300
R13723DK: CALL DMKFRET RETURN THE MEMORY @V60B6B8 00322350
R13723DK: * 00322400
R13723DK: * NOW CHECK TO SEE IF THERE IS ANY PENDING I/O FOR 00322450
R13723DK: * THE VIRTUAL DEVICE JUST ATTACHED. IF THERE 00322500
R13723DK: * IS, THEN A CPEXBLOK REPRESENTING THE I/O 00322550
R13723DK: * WILL HAVE BEEN CHAINED FROM THE MSSCOM BLOCK 00322600
R13723DK: * WHEN THE USER SIO WAS RECEIVED. 00322650
R13723DK: * 00322700
R13723DK: * NOTE: WHEN DMKDSB QUEUES THE MSSCOM BLOCK 00322750
R13723DK: * FROM FIELD DMKSSSMQ, AND CREATES THE CPEXBLOK 00322800
R13723DK: * FOR DMKLOHSS, IT PLACES THE ADDRESS OF 00322850
R13723DK: * THE MSSCOM BLOCK IN THE GPR 3 FIELD OF THE 00322900
R13723DK: * CPEXBLOK. 00322950
R13723DK: * 00323000
R13723DK: USING OSVSCOM,R3 R3 SET BY DMKSSS @VMI2009 00323050
R13723DK: L R1,MSSTASK3 CPEXBLOK IF SIO FROM USER @V60B6B8 00323100
R13723DK: LTR R1,R1 IS THERE A SIO PENDING @V60B6B8 00323150
R13723DK: BZ FREECOM NO @V60B6B8 00323200
R13723DK: CALL DMKSTKCP STACK THE CPEXBLOK FOR DMKDSP @V60B6B8 00323250
R13723DK: FREECOM EQU * RETURN STORAGE FOR THE MSSCOM @V60B6B8 00323300
R13723DK: LR R1,R3 MSSCOM ADDRESS @VMI2009 00323350
R13723DK: LA R0,MSSSIZE NO. OF D-WORDS IN BLOCK @V60B6B8 00323400
R13723DK: CALL DMKFRET AND RETURN THE STORAGE @V60B6B8 00323450
R13723DK: DROP R3 @VMI2009 00323500
R13723DK: GOTO DMKDSPCH AND EXIT @V60B6B8 00323550
R13723DK: EJECT 00323600
R13723DK: LTORG 00323650
R13723DK: EJECT 00323700
R13723DK: HALFTIME DC X'3FFFFFFFFFFFF000' TIME CONSTANT USED BY LOH @VA13723 00323750
R13723DK: * VARIOUS MESSAGES, RESPONSES, AND SKELETONS FOR SAME: 00323800
R13723DK: * 00323850
R13723DK: * NORMAL RESPONSES: 00323900
R13723DK: NR1 DC C'LOGMSG - ' FOR LOG MESSAGE TIME 00323950
R13723DK: NR2 DC C'LOGON AT ' FOR LOGON MESSAGE 00324000
R13723DK: NR3 DC C'RECONNECTED AT ' FOR RECONNECT MESSAGE 00324050
R13723DK: *NR4 DC C'HH:MM:SS TID' TIME 00324100
R13723DK: *NR5 DC C'WEEKDAY ' WEEKDAY 00324150
R13723DK: *NR6 DC C'MM/DD/YY' DATE 00324200
R13723DK: ./ I 00363300 $ 363400 100 07/29/81 15:41:33
R13723DK: COPY IOBLOKS IOBLOKS COPY FILE @VA13723 00363400
R13723DK: COPY TIMER TRQBLOK COPY FILE @VA13723 00363500
R13723DK: COPY NETWORK NICBLOK COPY FILE @VA13723 00363600
BEGIN APPLY >>> ./ R 00020000 00020100 $ 20000 100 07/29/81 15:41:33
END APPLY >>> ./ R 00020000 00020100 $ 20000 100 07/29/81 15:41:33
BEGIN APPLY >>> ./ I 00041250 $ 41450 200 07/29/81 15:41:33
END APPLY >>> ./ I 00041250 $ 41450 200 07/29/81 15:41:33
BEGIN APPLY >>> ./ I 00085000 $ 85100 100 07/29/81 15:41:33
END APPLY >>> ./ I 00085000 $ 85100 100 07/29/81 15:41:33
BEGIN APPLY >>> ./ I 00113100 $ 113500 400 07/29/81 15:41:33
END APPLY >>> ./ I 00113100 $ 113500 400 07/29/81 15:41:33
BEGIN APPLY >>> ./ R 00311150 00324000 $ 311150 50 07/29/81 15:41:33
END APPLY >>> ./ R 00311150 00324000 $ 311150 50 07/29/81 15:41:33
BEGIN APPLY >>> ./ I 00363300 $ 363400 100 07/29/81 15:41:33
END APPLY >>> ./ I 00363300 $ 363400 100 07/29/81 15:41:33
Update Succeeded
Update Execution Time 23 milliseconds.
R13200DK
Date Friday Aug 28, 1981 03:53:00 PM
Loaded from MAINT(294)
R13200DK: ./ I 313950 $ 313955 5 09050000
R13200DK: TM RDEVTFLG,RDEVTRQ 'NOT ACCEPTED', ETC. TIMER? @VA13200 22110000
R13200DK: BZ SETUSER NONE, CONTINUE @VA13200 22120000
R13200DK: NI RDEVTFLG,X'FF'-RDEVTRQ RESET FLAG BIT @VA13200 22130000
R13200DK: L R1,RDEVAIRA GET ADDRESS OF TRQBLOK @VA13200 22140000
R13200DK: LTR R1,R1 IS ADDRESS VALID? @VA13200
R13200DK: BZ SETUSER NO; ALREADY TAKEN CARE OF @VA13200
R13200DK: CALL DMKSCHRT RESET ACTIVE TIMER REQUEST @VA13200 22150000
R13200DK: SETUSER DS 0H @VA13200 09060000
R13200DK: ./ I 314650 $ 314655 5 09510000
R13200DK: TM NICSTAT,NICTRQ 'NOT ACCEPTED' TIMER, ETC. SET? @VA13200
R13200DK: BZ LOG07AB NO, CHECK IF IN 'SLEEP' @VA13200 09580000
R13200DK: NI NICSTAT,X'FF'-NICTRQ NO TIMER SET ANYMORE! @VA13200
R13200DK: L R1,NICATRB ADDRESS OF SCHEDULED TRQBLOK @VA13200
R13200DK: LTR R1,R1 IS TRQBLOK STILL AROUND? @VA13200
R13200DK: BZ LOG07AB NO; BEEN FRET'D; SKIP DEQUEUE @VA13200
R13200DK: CALL DMKSCHRT DEQUEUE: VMBLOK GOING AWAY. @VA13200
BEGIN APPLY >>> ./ I 313950 $ 313955 5 09050000
END APPLY >>> ./ I 313950 $ 313955 5 09050000
BEGIN APPLY >>> ./ I 314650 $ 314655 5 09510000
END APPLY >>> ./ I 314650 $ 314655 5 09510000
Update Succeeded
Update Execution Time 8 milliseconds.
R14288DK
Date Friday Aug 30, 1985 11:56:00 AM
Loaded from MAINT(294)
R14288DK: ./ * FORCE REASSEMBLY OF DMKLOH 00001000
BEGIN APPLY >>> ./ * FORCE REASSEMBLY OF DMKLOH 00001000
Comment >>> ./ * FORCE REASSEMBLY OF DMKLOH 00001000
END APPLY >>> ./ * FORCE REASSEMBLY OF DMKLOH 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R14453DK
Date Wednesday Oct 14, 1981 10:01:00 AM
Loaded from MAINT(294)
R14453DK: ./ I 317350 $ 317355 5 00001000
R14453DK: * SWITCH TO REAL VMBLOK AND GET VMBLOK LOCK 00002000
R14453DK: DROP R10 @VA14453 00003000
R14453DK: LR R1,R10 SWITCH TO REAL RECONN VMBLOK @VA14453 00004000
R14453DK: USING VMBLOK,R11 @VA14453 00005000
R14453DK: BAL R5,SWVM GO TO SWITCH VMBLOK @VA14453 00006000
R14453DK: ST R11,SAVER11 RETURN VMBLOK TO CALLER @VA14453 00007000
R14453DK: ./ D 317450 $ 00008000
R14453DK: ./ D 317750 317900 $ 00009000
R14453DK: ./ D 318450 318500 $ 00010000
R14453DK: ./ D 319300 319450 $ 00011000
BEGIN APPLY >>> ./ I 317350 $ 317355 5 00001000
END APPLY >>> ./ I 317350 $ 317355 5 00001000
BEGIN APPLY >>> ./ D 317450 $ 00008000
END APPLY >>> ./ D 317450 $ 00008000
BEGIN APPLY >>> ./ D 317750 317900 $ 00009000
END APPLY >>> ./ D 317750 317900 $ 00009000
BEGIN APPLY >>> ./ D 318450 318500 $ 00010000
END APPLY >>> ./ D 318450 318500 $ 00010000
BEGIN APPLY >>> ./ D 319300 319450 $ 00011000
END APPLY >>> ./ D 319300 319450 $ 00011000
Update Succeeded
Update Execution Time 16 milliseconds.
R15234DK
Date Monday Mar 15, 1982 08:43:00 AM
Loaded from MAINT(294)
R15234DK: ./ I 317350 $ 317400 100 00001000
R15234DK: ST R10,SAVER11 RETURN RECONNECTED VMBLOK TO @VA15234 00002000
R15234DK: * CALLER 00003000
R15234DK: ./ D 317355 317550 $ 00004000
R15234DK: ./ I 317700 $ 317710 30 00005000
R15234DK: DROP R10 @VA15234 00006000
R15234DK: LR R1,R10 SWITCH TO RECONNECTED VMBLOK @VA15234 00007000
R15234DK: USING VMBLOK,R11 @VA15234 00008000
R15234DK: BAL R5,SWVM @VA15234 00009000
R15234DK: NI VMOSTAT,255-VMDISC RESET DISCONNECTED BIT @VA15234 00010000
R15234DK: OI VMRSTAT,VMCFWAIT PUR HIM IN CF WAIT @VA15234 00011000
R15234DK: OI VMOSTAT,VMCF AND FLAG CONS FUNC RUNNING @VA15234 00012000
R15234DK: ./ I 318400 $ 318450 50 00013000
R15234DK: DROP R11 @VA15234 00014000
R15234DK: USING VMBLOK,R10 @VA15234 00015000
R15234DK: ./ I 318650 $ 318675 00016000
R15234DK: OI VMRSTAT,VMCFWAIT PUT IN CF WAIT @VA15234 00017000
R15234DK: ./ I 319250 $ 319300 50 00018000
R15234DK: DROP R10 @VA15234 00019000
R15234DK: LR R1,R10 SWITCH TO NEW VMBLOK @VA15234 00020000
R15234DK: USING VMBLOK,R11 @VA15234 00021000
R15234DK: BAL R5,SWVM GO SWITCH VMBLOK @VA15234 00022000
BEGIN APPLY >>> ./ I 317350 $ 317400 100 00001000
END APPLY >>> ./ I 317350 $ 317400 100 00001000
BEGIN APPLY >>> ./ D 317355 317550 $ 00004000
END APPLY >>> ./ D 317355 317550 $ 00004000
BEGIN APPLY >>> ./ I 317700 $ 317710 30 00005000
END APPLY >>> ./ I 317700 $ 317710 30 00005000
BEGIN APPLY >>> ./ I 318400 $ 318450 50 00013000
END APPLY >>> ./ I 318400 $ 318450 50 00013000
BEGIN APPLY >>> ./ I 318650 $ 318675 00016000
END APPLY >>> ./ I 318650 $ 318675 00016000
BEGIN APPLY >>> ./ I 319250 $ 319300 50 00018000
END APPLY >>> ./ I 319250 $ 319300 50 00018000
Update Succeeded
Update Execution Time 8 milliseconds.
HRC065DK
Date Friday May 19, 2017 07:03:00 PM
Loaded from MAINT(094)
HRC065DK: ./ I 00295000 $ 00295100 100
HRC065DK: TM RDEVADD,RDEVLDEV Is this an LDEV? HRC065DK
HRC065DK: BO TERMLDEV Yes, special handling HRC065DK
HRC065DK: ./ I 00303000 $ 00303100 100
HRC065DK: TERMLDEV EQU * HRC065DK
HRC065DK: LH R1,RDEVADD Get the LDEV address HRC065DK
HRC065DK: N R1,F4095 Keep only the dev num HRC065DK
HRC065DK: CALL DMKCVTBH Make it displayable HRC065DK
HRC065DK: ICM R1,8,=C'L' Insert LDEV identifier HRC065DK
HRC065DK: L R0,=C'GRF ' Use short GRAF name HRC065DK
HRC065DK: BR R4 Return with R0/R1 filledHRC065DK
BEGIN APPLY >>> ./ I 00295000 $ 00295100 100
END APPLY >>> ./ I 00295000 $ 00295100 100
BEGIN APPLY >>> ./ I 00303000 $ 00303100 100
END APPLY >>> ./ I 00303000 $ 00303100 100
Update Succeeded
Update Execution Time 23 milliseconds.
ibm/vm370-lib/cp/dmkloh.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator