125B ForceRelease¶

Stub MON 125B (85 decimal) · Mnemonic PRLRS · Group: RT Program Execution (manual section 2.10)

Available from: RT programs (manual compatibility box)

Emulation source: src/handlers/mon_125B_ForceRelease.c

Description¶

Releases a device reserved by an RT program other than that which is calling. You can then reserve the device for your own RT program. Some devices, such as terminals, have both an input and output part. You can only release one part with each ForceRelease.

Use ReservationInfo to get the RT description address of the reserving RT program. You may then give the device back with ForceReserve.
Programs in a waiting queue may reserve the device between your ForceRelease and ReserveResource calls if they have higher priority than your program.
The SINTRAN III Real Time Guide (ND-860133) describes this in more detail.

Parameters¶

Name	Type	Direction	Description
`DeviceNumber`	INTEGER	In	Logical device number. See appendix B.
`IOFlag`	INTEGER	In	Input or output flag. Use 0 for the input part and 1 for the output part.

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

Compatibility¶

Machines	Users	Programs
ND-100 and ND-500	User RT and user SYSTEM	RT 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
Yes	Yes	Yes	Yes	No

Examples¶

From the manual (OCR text, not corrected).

PLANCFORTRANPascalCOBOLASSEMBLY-500MAC

INTEGER : DeviceNumber, IOflag
...
Monitor_Call('ForceRelease', DeviceNumber, IOflag)

INTEGER DeviceNumber, IOflag
...
Monitor_Call('ForceRelease', DeviceNumber, IOflag)

DeviceNumber, IOflag: INTEGER2;
...
PrivRelease(DeviceNumber, IOflag);   [Note routine name.]

01 DeviceNumber     COMP.
01 IOflag           COMP.
...
MONITOR-CALL "ForceRelease" USING DeviceNumber, IOflag.

DeviceNumber : W BLOCK 1
IOflag : W BLOCK 1
ForceRelease : EQU 37B9 + 125B
...
CALLG ForceRelease, 2, DeviceNumber, IOflag

| LDA | (PAR | %Load register A with address of parameter list. |
| MON | 125  | %Monitor call ForceRelease.                      |
| ... |      |                                                  |
| PAR, DEVNO | %Logical device number.                          |
| IOFL | %    | Input or Output flag.                           |
| ... |      |                                                  |

DEVNO, ...
IOFL, ...

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

Source¶

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