152B GetRTName¶
Stub MON 152B (106 decimal) · Mnemonic GRTNA · Group: RT Program Execution (manual section 2.10)
Available from: All programs (manual compatibility box)
Emulation source: src/handlers/mon_152B_GetRTName.c
Description¶
Gets the name of an RT program. You specify the RT description address.
- This monitor call is only available to background programs in SINTRAN III VSX, version K.
Parameters¶
| Name | Type | Direction | Description |
|---|---|---|---|
RTProgram |
INTEGER | In | The address of the RT description. Use 0 for the calling program. |
RTProgramName |
STRING | Out | Name of the RT program (7 bytes). Returned with terminal apostrophe if less than 7 characters. |
Direction: In = the program supplies the value, Out = the call returns it, In/Out = both.
See also¶
GetOwnRTAddress, GetRTAddress, GetRTDescr, @GET-RT-NAME, and @LIST-RT-Programs
Compatibility¶
| Machines | Programs |
|---|---|
| ND-100 and ND-500 | 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).
INTEGER : RTProgram
BYTES : RTProgramName(0:6)
...
Monitor_Call('GetRTName', RTProgram, RTProgramName)
IF RTProgramName(0)=#1 THEN
...
INTEGER RTProgram
CHARACTER RTProgramName*6
...
Monitor_Call1('GetRTName', RTProgram, RTProgramName(1:7))
IF RTProgramName(1) = '
...
RTProgram : INTEGER2;
RTProgramName : PACKED ARRAY [0..6] OF CHAR;
...
GetRTName(RTProgram, RTProgramName);
01 RTProgram COMP.
01 RTProgramName PIC X(7).
...
MONITOR-CALL "GetRTName" USING RTProgram, RTProgramName.
IF RTProgramName = "'"
...
RTProgram : W BLOCK 1
RTProgramName : BY BLOCK 7
GetRTName : EQU 37B9 + 152B
...
CALLG GetRTName, 2, RTProgram, RTProgramName
LDA (PAR %Load register A with address of parameter list.
MON 152 %Monitor call GetRTName.
SKP IF DD UEQ 0
JMP ERR
STT RTNAM %Store 1st word of packed RT name.
STD RTNAM+1 %Store 2nd two words of packed RT name.
...
ERR, ...
PAR, RTPRO %Address of RT description.
...
RTPRO, ...
RTNAM, 0
*+4/ %Make a string of 7 bytes.
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_152B_GetRTName |
| Code lines | 6 (non-blank, non-comment lines in the file) |
Source¶
SINTRAN III Monitor Calls (ND-860228.2 EN), page 273.