56B SetUserParam

Stub   MON 56B (46 decimal) · Mnemonic PASET · Group: Monitor Calls for Error Handling (manual section 2.8)

Available from: not known - no compatibility box captured from the manual

Emulation source: src/handlers/mon_56B_SetUserParam.c

Description

Sets information about a background program. Use GetUserParam to read the 5 parameters when a program is terminated.

Notes

• SINTRAN III sets some of the parameter values if you give the command @ENABLE-TERMINATION-HANDLING first.
• The parameters are returned if the user press the ESCAPE key, if the monitor calls ExitFromProgram or ErrorMessage are executed, or if a fatal error occurs. You can set all parameters if no termination handling is enabled.

Parameters

Name	Type	Direction	Description
The five user parameters.	ARRAY	In	This is an array of 16-bit integers on the ND-100. ND-500 uses an array of 32-bit integers. SINTRAN III's termination handling returns the following: Parameter 1: The last byte contains the user index. The byte in front of it contains the directory index. 2: Logical device number of the terminal. 3: Fatal error or the monitor call ErrorMessage returns the error number. If ESCAPE was pressed, -1 is returned. 4: Set by SetUserParam. 5: Set by SetUserParam.

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

See also

TerminationHandling, GetUserParam, @DEFINE-TERMINATION-HANDLING, @DISABLE-TERMINATION-HANDLING, @SET-USER-PARAMETERS

Compatibility

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

From the YAML extraction; this call's page in the manual had no compatibility box that was captured.

Examples

From the manual (OCR text, not corrected).

PLANCFORTRANPascalCOBOLASSEMBLY-500MAC

INTEGER ARRAY : Buff(0:4)
...
Monitor_Call('SetUserParam', Buff(0))

INTEGER Buff(5)
...
Monitor_Call('SetUserParam', Buff(1))
IF (ErrCode .NE. 0) THEN ...

Buff : RECORD...END;
...
SetUserParam(Buff);
IF ErrCode <> 0 THEN ...

01 Buff.
02 array COMP OCCURS 5 TIMES.
01 ErrCode COMP.
...
MONITOR-CALL "SetUserParam" USING Buff.
CALL "CbError" USING ErrCode.
IF ErrCode NOT = 0 GO ...

Buff : H BLOCK 5
SetUserParam : EQU 37B9 + 56B
...
CALLG SetUserParam, 1, Buff
    IF K GO ERROR
...
ERROR : W1 =: ErrCode    %ErrorCode in W1 register.

LDA (PAR                 %Load register A with address of parameter list.
MON 56                  %Monitor call SetUserParam.
...
PAR, BUFF               %Buffer of 5 words for setting user parameters.
BUFF, index.            %Left byte: directory index, Right byte: user
...                     %Logical device number, terminal number.
...                     %-1 if escape, otherwise error number.
...                     %User defined.
...                     %User defined.

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_56B_SetUserParam
Code lines	6 (non-blank, non-comment lines in the file)

Source

SINTRAN III Monitor Calls (ND-860228.2 EN).