151B GetRTAddress¶

Stub MON 151B (105 decimal) · Mnemonic GRTDA · Group: RT Program Execution (manual section 2.10)

Available from: All programs (manual compatibility box)

Emulation source: src/handlers/mon_151B_GetRTAddress.c

Description¶

Gets the address of an RT description. You specify the name of the RT program. See the SINTRAN III Real Time Guide (ND-860133) for further information.

Notes¶

In SINTRAN III, version J and older, this monitor call is only available to RT programs.

Parameters¶

Name	Type	Direction	Description
`RTProgramName`	STRING	In	RT-program name (up to 7 chars, uppercase). End with apostrophe if < 7 chars.
`RTProgram`	INTEGER	Out	RT program address. Returns -1 if RT-program doesn't exist.

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

Compatibility¶

Machines	Users	Programs
ND-100 and 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
Yes	Yes	Yes	Yes	No

Examples¶

From the manual (OCR text, not corrected).

PLANCFORTRANPascalCOBOLASSEMBLY-500MAC

BYTES : RTProgramName(0:6)
INTEGER : RTProgram
...
Monitor_Call('GetRTAddress', RTProgramName, RTProgram)

CHARACTER RTProgramName*7
INTEGER RTProgram
...
Monitor_Call('GetRTAddress', RTProgramName(1:7), RTProgram)

RTProgramName: PACKED ARRAY [0..6] OF CHAR;
RTProgram : INTEGER2;
...
GetRTAddress (RTProgramName, RTProgram);

01 RTProgramName PIC X(7).
01 RTProgram COMP.
...
MONITOR-CALL "GetRTAddress" USING RTProgramName, RTProgram.

RTProgramName : STRINGDATA 'SIB2A'''
RTProgram : W BLOCK 1
GetRTAddress : EQU 37B9 + 151B
...
%Get address of process SIB2A.
CALLG GetRTAddress, 1, RTProgramName
    IF K GO Error
...
W1 := RTProgram

LDA (PAR      %Load register A with address of parameter list.
MON 151       %Monitor call GetRTAddress.
STA RTPRO     %Store address of RT description.
...
RTPRO, 0
...
PAR, RTNAM    %String containing name of RT program.
...
RTNAM, 'SIB2A' %Get address of RT description of SIB2A.

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

Source¶

SINTRAN III Monitor Calls (ND-860228.2 EN).