52B TerminalMode¶

Validated MON 52B (42 decimal) · Mnemonic TERMO · Group: Monitor Calls for Terminal Handling (manual section 2.6)

Available from: Background programs (manual compatibility box)

Emulation source: src/handlers/mon_52B_TerminalMode.c

Description¶

Selects various terminal functions. You may stop output on full page. Input may be converted to uppercase letters. A delay after carriage return can be set. You may also set automatic logout if the line between the terminal and the computer is broken.

Terminal mode can also be set on TADs.

Parameters¶

Name	Type	Direction	Description
`DeviceNumber`	INTEGER	In	Logical device number of the terminal. See appendix B. Use 1 for your own terminal.
`Mode`	INTEGER	In	Terminal mode (0-15): Bit 0: Capital letters (1=yes) Bit 1: Delay after return (1=yes) Bit 2: Stop on full page (1=yes) Bit 3: Auto-logout on line break (1=yes for modes 8-15)

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	Background 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	No	No	No

Examples¶

From the manual (OCR text, not corrected).

PLANCFORTRANPascalCOBOLASSEMBLY-500MAC

INTEGER : DeviceNumber, Mode

...

ON ROUTINEERROR DO

&nbsp;&nbsp;&nbsp;&nbsp;IF ErrCode > 0 THEN ...

ENDON

Monitor_Call('TerminalMode', DeviceNumber, Mode)

INTEGER DeviceNumber, Mode
...
Monitor_Call('TerminalMode', DeviceNumber, Mode)
If (ErrCode .NE. 0) THEN ...

DeviceNumber, Mode : INTEGER2;
...
TermMode(DeviceNumber, Mode);   \[Note routine name.\]
IF ErrCode <> 0 THEN ...

01 DeviceNumber COMP. 01 Mode COMP.
01 ErrCode COMP.
MONITOR-CALL "TerminaIMode" USING DeviceNumber, Mode.
CALL "CbError" USING ErrCode.
IF ErrCode NOT = 0 GO ...

DeviceNumber : W BLOCK 1
Mode : W BLOCK 1
ErrCode : W BLOCK 1
TerminalMode : EQU 37B9 + 52B
...
CALLG TerminalMode, 2, DeviceNumber, Mode
IF K GO ERROR
...
ERROR : W1 =: ErrCode &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;%ErrorCode in W1 register.

LDA (PAR &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;%Load register A with address of parameter list.
MON 52 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;%Monitor call TerminalMode.
JAF ERROR &nbsp;%Handle error if register A is non-zero.
...
ERROR, ... &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;%Error number in register A.
...
PAR, DEVNO &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;%Logical device number.
MODE &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;%Communication mode.
...
DEVNO, ...
MODE, ...

ndmonlib implementation¶

Validated Registered MON_STATUS_VALIDATED in src/core/mon_registry.c: implemented, tested and working.


Handler	`mon_52B_TerminalMode`
Code lines	20 (non-blank, non-comment lines in the file)

Source¶

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