306B GetTerminalMode¶
Stub MON 306B (198 decimal) · Mnemonic GTMOD · Group: Input and Output Monitor Calls (manual section 2.5)
Available from: All programs (manual compatibility box)
Emulation source: src/handlers/mon_306B_GetTerminalMode.c
Description¶
Gets the terminal mode. The terminal mode tells how the terminal function, i.e. if all letters are converted to uppercase, if output stops when a full page is displayed, etc.
Parameters¶
| Name | Type | Direction | Description |
|---|---|---|---|
DeviceNumber |
INTEGER2 | In | The logical device number of the terminal. See appendix B. |
TerminalMode |
INTEGER2 | Out | The terminal mode. Bit 0: Capital letters. Bit 1: Delay after return. Bit 2: Stop on full page. Bit 3: (modes 8-15). |
Direction: In = the program supplies the value, Out = the call returns it, In/Out = both.
See also¶
TerminalMode, @TERMINAL-MODE
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 | No | No | No |
Examples¶
From the manual (OCR text, not corrected).
INTEGER : DeviceNumber, TerminalMode
...
ON ROUTINEERROR DO
IF ErrCode > 0 THEN ...
ENDON
Monitor_Call('GetTerminalMode', DeviceNumber, TerminalMode)
INTEGER DeviceNumber, TerminalMode
...
Monitor_Call('GetTerminalMode', DeviceNumber, TerminalMode)
IF (ErrCode .NE. 0) THEN ...
DeviceNumber, TerminalMode : INTEGER2;
...
GetTermMode(DeviceNumber, TerminalMode); [Note routine name.]
IF ErrCode <> 0 THEN ...
01 DeviceNumber COMP.
01 TerminalMode COMP.
01 ErrCode COMP.
...
MONITOR-CALL "GetTerminalMode" USING DeviceNumber, TerminalMode.
CALL "CbError" USING ErrCode.
IF ErrCode NOT = 0 GO ...
Devno : W DATA 1 % Own terminal
TermMode : W BLOCK 1
ErrCode : W BLOCK 1
GetTerminalMode: EQU 37B9+306B
...
CALLG GetTerminalMode,2,DevNo,TerMode
IF K GO Error
...
Error: W1:=ErrCode %ErrorCode in I1 register
LDT DEVNO %Logical device number.
MON 306 %Monitor call GetTerminalMode.
JMP ERROR %Error return from monitor call.
STA TMODE %Normal return, store terminal mode number.
...
ERROR, ...
...
DEVNO, ...
TMODE, 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_306B_GetTerminalMode |
| Code lines | 6 (non-blank, non-comment lines in the file) |
Source¶
SINTRAN III Monitor Calls (ND-860228.2 EN), page 289.