243B GetDirNameIndex¶

Stub MON 243B (163 decimal) · Mnemonic FDINA · Group: File System Operations (manual section 2.9)

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

Emulation source: src/handlers/mon_243B_GetDirNameIndex.c

Description¶

Gets directory index and name index. The name index identifies the device description of the disk. You have to specify the directory name.

Parameters¶

Name	Type	Direction	Description
`DirName`	STRING	In	Directory name string (1-16 characters).
`DirIndex`	INTEGER	Out
`NameIndex`	INTEGER	Out

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

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

BYTES : DirName(0:15)
INTEGER : DirIndex, NameIndex
...
ON ROUTINEERROR DO
IF ErrCode <> 0 THEN ...
ENDON
Monitor_Call('GetDirNameIndex', DirName, DirIndex, NameIndex)

CHARACTER DirName*16
INTEGER DirIndex, NameIndex
...
Monitor_Call('GetDirNameIndex', DirName (1:16), DirIndex, NameIndex)
IF (ErrCode .NE. 0) THEN ...

DirName : PACKED ARRAY [0..15] OF CHAR;
DirIndex, NameIndex : INTEGER2;
...
GetDirNameIndex (DirName, DirIndex, NameIndex);
IF ErrCode <> 0 THEN ...

01 DirName PIC X(16).
01 DirIndex COMP.
01 NameIndex COMP.
01 ErrCode COMP.
...
MONITOR-CALL "GetDirNameIndex" USING DirName, DirIndex, NameIndex.
CALL "CbError" USING ErrCode.
IF ErrCode NOT = 0 GO ...

DirName : STRINGDATA 'PACK-TWO'''
DirIndex : W BLOCK 1
NameIndex : W BLOCK 1
ErrCode : W BLOCK 1
GetDirNameIndex : EQU 37B9 + 243B
...
CALLG GetDirNameIndex, 3, DirName, DirIndex, NameIndex
    IF K GO ERROR
...
ERROR : W1 =: ErrCode    %ErrorCode in W1 register.

LDX (DIRNAM              %Address of directory name string.
MON 243                  %Monitor call GetDirNameIndex.
JMP ERROR                %Error return from monitor call.
STT DIRIX                %Normal return, store directory index.
STA NAMIX                %Store name index.
...
ERROR, ...               %Error number in register A.
...
DIRNAM, 'PACK-TWO'       %Obtain directory and name index of PACK-TWO.
DIRIX, 0
NAMIX, 0

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

Source¶

SINTRAN III Monitor Calls (ND-860228.2 EN).