________________________________
From: The IBM z/VM Operating System [mailto:[email protected]] On
Behalf Of Alain Benveniste
Sent: Friday, October 16, 2009 12:08 PM
To: [email protected]
Subject: Re: SVC 203
If it talks to someone...Here is the code.
Here is the code for CMSGETMN :
MACRO
&N CMSGETMN &LV=,&NSTAD=
&N IHBINNRA ,&LV
AH 0,=H'7'
SRA 0,3
AIF ('&NSTAD' EQ '').STDERR
DMSFREE DWORDS=(0),AREA=HIGH,TYPE=USER,ERR=L&SYSNDX.£A
B L&SYSNDX.£C
L&SYSNDX.£A CH 15,=H'1'
BE &NSTAD
HUH? if R15 is not 1, then you are guaranteed an exception by the following
instruction.
But you don't have NSTAND= in your invocation, so this doesn't matter in your
case
DC X'0000'
L&SYSNDX.£C DS 0H
MEXIT
.STDERR DMSFREE DWORDS=(0),AREA=HIGH,TYPE=USER,ERR=L&SYSNDX.£
And here the ERR= points to the x'0000' of the supposed NOP instruction, again
causing a program exception.
That would be the case if there is a problem reported by the DMSFREE function.
* FOLLOWING TWO STATEMENTS MAKE A NOP INSTRUCTION
DC X'4700'
L&SYSNDX.£ DC X'0000'
MEND
Here is the main source program:
CLDR TITLE 'DLNCLDR - STAIRS/CMS BOOTSTRAP LOADER ROUTINE'
00000100
* ------------------------------------------------------------ CMS32
00000200
* 5664-189 CMS32
00000300
* CONTAINS RESTRICTED MATERIALS OF IBM CMS32
00000400
* (C) COPYRIGHT IBM CORP. 1984, 1989 CMS32
00000500
* LICENSED MATERIALS - PROPERTY OF IBM CMS32
00000600
* REFER TO COPYRIGHT INSTRUCTIONS CMS32
00000700
* FORM NUMBER G120-2083 CMS32
00000800
* ------------------------------------------------------------ CMS32
00000900
* STAIRS/CMS RELEASE 2.0 CMS113
00001000
* ------------------------------------------------------------ CMS32
00001100
DLNCLDR CSECT
00001200
REGEQU
00001300
CC0 EQU 8
00001400
CC1 EQU 4
00001500
CC2 EQU 2
00001600
CC3 EQU 1
00001700
USING *,R15
00001800
ST R14,12(,R13)
00001900
BALR R10,0
00002000
USING *,R10
00002100
DLNCPYRT NAME='DLNCLDR' CMS32
00002200
* CHECK IF THERE IS A PARAMETER LIST
00002300
XR R6,R6 ZERO - NOT IN TEST MODE CMS11
00002400
CLI 8(R1),X'FF' IF NO PARAM LIST,
00002500
BE GETSS GO GET SHARED SEGMENT
00002600
LA R1,8(,R1) IF YES, STEP REG 1
00002700
CLI 0(R1),C'(' NOW CHECK IF THERE IS A PAREN
00002800
BNE *+8 IF YES,
00002900
LA R1,8(,R1) STEP AGAIN
00003000
CLI 0(R1),C'T' NOW CHECK IF 'TEST' MODE
00003100
BNE GETSN NO - GET SHARED SEGMENT ‡VA43154
00003200
LA R6,C'T' SIGNAL IN TEST MODE CMS11
00003300
B GETOWN THEN LOAD OWN COPY CMS11
00003400
* GO GET SHARED SEGMENT
00003500
GETSN MVC SEGNAME(8),0(R1) MOVE SEGMENT NAME ‡VA43154
00003600
GETSS LA R14,CONSTART
00003700
*ONSTART SSM =X'00' CMS113
00003800
CONSTART STENABLE INTTYPE=NONE CMS113
00003850
LA R14,CONSTART
00003900
USING NUCON,R0
00004000
PRINT NOGEN
00004100
NUCON
00004200
PRINT GEN
00004300
DLNCLDR CSECT
00004400
LH R1,NUMPNDWR
00004500
LTR R1,R1
00004600
BNZ CONWAIT
00004700
L R1,PENDREAD CMS11
00004800
LTR R1,R1
00004900
BNZ CONWAIT
00005000
DIAG R9,R8,X'60' DETERMINE VIRTUAL STORAGE SIZE
00005100
LOADSYSS EQU 0 LOADSYS IN SHARED MODE
00005200
LOADSYSN EQU 4 LOADSYS IN NONSHARED MODE
00005300
PURGESYS EQU 8 RELEASE NAMED SEGMENT
00005400
FINDSYS EQU 12 FIND STARTING ADDRESS
00005500
FINDOP LA R2,SEGNAME SEGMENT NAME
00005600
LA R3,FINDSYS FUNCTION
00005700
DIAG R2,R3,X'64' FIND ADDRESS OF SEGMENT
00005800
BC CC2,FINDER1
00005900
CR R2,R9
00006000
BL OVERLAY OVERLAYS USER ADDRESS SPACE
00006100
LOADOP LA R2,SEGNAME SEGMENT NAME
00006200
LA R3,LOADSYSS FUNCTION
00006300
DIAG R2,R3,X'64' LOAD SEGMENT
00006400
BC CC2,LOADER1
00006500
* SSM =X'FF' CMS113
00006600
STENABLE INTTYPE=ALL CMS113
00006650
SR R4,R4 INDICATE STORAGE NOT ALLOC'D CMS11
00006700
LR R5,R2 STORE ADDRESS OF DCSS CMS11
00006800
B INIT
00006900
FINDER1 CH R3,=H'44' IF DOESN'T EXIST,
00007000
BNE FINDOP LOAD IT IN
00007100
* SSM =X'FF' CMS113
00007200
STENABLE INTTYPE=ALL CMS113
00007250
B GETOWN
00007300
OVERLAY DS 0H CMS11
00007400
* LINEDIT TEXT='DCSS WOULD OVERLAY USER ADDRESS SPACE - TO
CONTIX00007500
NUE, USING LOW MEMORY, ENTER ''Y''' CMS11
00007600
* RDTERM BUFF CMS11
00007700
* CLI BUFF,C'Y' CMS11
00007800
* BNE GENERR CMS11
00007900
GETOWN COMPSWT ON
00008000
LINEDIT TEXT='*** WITHOUT SHARED SEGMENT ***',DOT=NO ‡VA47166
00008100
L R7,STRTADDR SAVE MODULE LOADING ADDRESS CMS30
00008200
LOAD EP=DLNCMAIN
00008300
L R4,LOCCNT COMPUTE SIZE OF CMS11
00008400
SR R4,R7 LOAD MODULE CMS30
00008500
CMSGETMN LV=(R4) ALLOCATE STORAGE CMS11
00008600
LR R5,R1 SAVE FOR DLNCMAIN CMS11
00008700
LR R15,R4 CMS11
00008800
LR R14,R1 MOVE CMS11
00008900
LR R0,R7 CONTENTS CMS11
00009000
LR R1,R15 OF MODULE CMS11
00009100
MVCL R14,R0 TO ALLOCATED STORAGECMS11
00009200
LTR R6,R6 NONZERO IF IN TEST MODE CMS11
00009300
BZ NOMSG NO TEST, NO MESSAGE CMS11
00009400
LINEDIT TEXT='MODULE IS AT ........',SUB=(HEX,(R5)) CMS11
00009500
NOMSG DELETE EP=DLNCMAIN CMS11
00009600
COMPSWT OFF CMS11
00009700
* RESET HIGH ADDRESS OF LOAD MODULE TO ORIGIN CMS11
00009800
DMSEXS MVC,LOCCNT,STRTADDR (DELETE DOES NOT DO THIS) CMS11
00009900
B INIT
00010000
BUFF DS XL130
00010100
*ONWAIT SSM =X'FF' CMS113
00010200
CONWAIT STENABLE INTTYPE=ALL CMS113
00010250
WAITT
00010300
B CONSTART
00010400
INIT STRINIT
00010500
LR R15,R5 TRANSFER CONTROL TO MODULE CMS11
00010600
BR R15 START OF SEGMENT
00010700
DS 0D
00010800
SEGNAME DC CL8'STAIRS'
00010900
LOADER1 CH R3,=H'44'
00011000
BNE LOADOP
00011100
LINEDIT TEXT='ERROR LOADING STAIRS SEGMENT'
00011200
GENERR LA R15,8
00011300
L R14,12(,R13)
00011400
BR R14
00011500
END
00011600
LAin
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets®
9151 Boulevard 26 • N. Richland Hills • TX 76010
(817) 255-3225 phone • (817)-961-6183 cell
[email protected] • www.HealthMarkets.com
Confidentiality Notice: This e-mail message may contain confidential or
proprietary information. If you are not the intended recipient, please contact
the sender by reply e-mail and destroy all copies of the original message.
HealthMarkets® is the brand name for products underwritten and issued by the
insurance subsidiaries of HealthMarkets, Inc. –The Chesapeake Life Insurance
Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA
Life and Health Insurance Company.SM
