234B SetPeripheralName

Stub   MON 234B (156 decimal) · Mnemonic SPEFI · Group: Monitor Calls for Printer Handling (manual section 2.7)

Available from: All programs (manual compatibility box)

Emulation source: src/handlers/mon_234B_SetPeripheralName.c

Description

Defines a peripheral file, e.g. a printer. You connect a file name to the logical device number of the peripheral.

• The file name should exist in advance, but with no file type. Otherwise you may include the file name in double quotes ("..."). An empty file type is default.

Parameters

Name	Type	Direction	Description
FileName	STRING	In	File name for the peripheral. See appendix G.
DeviceNumber	INTEGER2	In	Logical device number. See appendix B.

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

See also

SetTerminalFile, @SET-PERIPHERAL-FILE

Compatibility

Machines	Users	Programs
ND-100 and ND-500	User SYSTEM	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 : FileName(0:63)
INTEGER : DeviceNumber

...

ON ROUTINEERROR DO
    IF ErrCode > 0 THEN ...
ENDON
Monitor_Call('SetPeripheralName', FileName, DeviceNumber)

CHARACTER FileName*64
INTEGER DeviceNumber
...
Monitor_Call('SetPeripheralName', FileName(1:64), DeviceNumber)
IF (ErrCode .NE. 0) THEN ...

FileName : PACKED ARRAY [0..63] OF CHAR;
DeviceNumber : INTEGER2;
...
SetPeripheralName(FileName, DeviceNumber);
IF ErrCode <> 0 THEN ...

01 FileName PIC X(64).
01 DeviceNumber COMP.
01 ErrCode COMP.
...
MONITOR-CALL "SetPeripheralName" USING FileName, DeviceNumber.
CALL "CbError" USING ErrCode.
IF ErrCode NOT = 0 GO ...

FileName : STRINGDATA 'LINE-PRINTER'''   %Use LINE-PRINTER as name of dev.
DeviceNumber : W DATA 5                  % no. 5 (line printer no. 1).
ErrCode : W BLOCK 1
SetPeripheralName : EQU 37B9 + 234B

...

CALLG SetPeripheralName, 2, FileName, DeviceNumber
IF K GO ERROR

...

ERROR : W1 =: ErrCode                    %ErrorCode in W1 register.

LDX    (FILE          %Address of string with file name.
LDA    DEVNO          %Logical device number.
MON    234            %Monitor call SetPeripheralFile.
JMP    ERROR          %Error return from monitor call.
...                  %Normal return.
ERROR, ...           %Error number in register A.
...
FILE, 'LINE-PRINTER'  %Use LINE-PRINTER as name of device number 5.
DEVNO, 5              %Device number of line printer no. 1.

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

Source

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