423B CopyCapability¶

Stub MON 423B (275 decimal) · Mnemonic CAPCOP · Group: Segment Administration (manual section 2.12)

Available from: All programs (manual compatibility box)

Emulation source: src/handlers/mon_423B_CopyCapability.c

Description¶

Copies a capability for a segment. The segment itself is also copied. A capability describes each logical segment in a domain.

The destination segment number must be unused.

Parameters¶

Name	Type	Direction	Description
`SourceSegNo`	INTEGER	In	Source segment number.
`SourceType`	INTEGER	In	Source segment type.
`DestSegNo`	INTEGER	In	Destination segment number.
`DestType`	INTEGER	In	Destination segment type.
`AccCode`	INTEGER	In	Access code.
`RetSegNo`	INTEGER	Out	Returned segment number.

Direction: In = the program supplies the value, Out = the call returns it, In/Out = both.

Compatibility¶

Machines	Users	Programs
ND-500	All users	All programs

The manual's compatibility box for this call, word for word.

Yes/no fields from the YAML extraction (not in the manual's words):

ND-100	ND-500	User programs	RT programs	System programs
No	No	Yes	Yes	No

Disagreement

The manual box says ND-500, but the yes/no fields say ND-100 = No, ND-500 = No. The manual box is the source.

Examples¶

From the manual (OCR text, not corrected).

PLANCFORTRANPascalCOBOLASSEMBLY-500

INTEGER : SourceSegNo, SourceType, DestSegNo, DestType, AccCode, RetSegNo
...
ON ROUTINEERROR DO
&emsp; IF ErrCode > 0 THEN ...
ENDON
Monitor_Call('CopyCapability', SourceSegNo, SourceType, DestSegNo, &
&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;DestType, AccCode, RetSegNo)

INTEGER  SourceSegNo, SourceType, DestSegNo, DestType
INTEGER  AccCode, RetSegNo
...
Monitor_Call('CopyCapability', SourceSegNo, SourceType,
             DestSegNo, DestType, AccCode, RetSegNo)
IF (ErrCode .NE. 0) THEN ...

SourceSegNo, SourceType, DestSegNo, DestType, AccCode, RetSegNo : LONGINT;
...
CopyCapability(SourceSegNo, SourceType, DestSegNo,
               DestType, AccCode, RetSegNo)
IF ErrCode <> 0 THEN ...

01  SourceSegNo  COMP.
01  SourceType   COMP.
01  DestSegNo    COMP.
01  DestType     COMP.
01  AccCode      COMP.
01  RetSegNo     COMP.
01  ErrCode      COMP.
...
MONITOR-CALL "CopyCapability" USING SourceSegNo, SourceType,
                             DestSegNo, DestType, AccCode, RetSegNo.
CALL "CbError" USING ErrCode.
IF ErrCode NOT = 0 GO ...

| Parameter     | Type   |
|---------------|--------|
| SourceSegNo   | W BLOCK 1 |
| SourceType    | W BLOCK 1 |
| DestSegNo     | W BLOCK 1 |
| DestType      | W BLOCK 1 |
| AccCode       | W BLOCK 1 |
| RetSegNo      | W BLOCK 1 |
| ErrCode       | W BLOCK 1 |

CopyCapability : EQU 37B9 + 423B
...
CALLG CopyCapability, 6, SourceSegNo, SourceType, DestSegNo, &
&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;DestType, AccCode, RetSegNo

IF K GO ERROR
...
ERROR : W1 =: ErrCode &emsp;&emsp;%ErrorCode in W1 register.

ndmonlib implementation¶

Stub Registered MON_STATUS_NOT_IMPLEMENTED: the handler is a stub. mon_dispatch() in src/core/mon_dispatch.c reports the call as unimplemented without calling it.


Handler	`mon_423B_CopyCapability`
Code lines	10 (non-blank, non-comment lines in the file)

Source¶

SINTRAN III Monitor Calls (ND-860228.2 EN), page 121.