332B TerminalLineInfo¶
Stub MON 332B (218 decimal) · Mnemonic TREPP · Group: Monitor Calls for Terminal Handling (manual section 2.6)
Available from: Background programs (manual compatibility box)
Emulation source: src/handlers/mon_332B_TerminalLineInfo.c
Description¶
Gets information about a terminal line. You may also enable programs to continue in spite of errors on the terminal line.
Parameters¶
| Name | Type | Direction | Description |
|---|---|---|---|
FunctionCode |
INTEGER | In | Function code: 0=disable continue after errors, 1=enable continue, 2=get line info. |
DeviceNo |
INTEGER | In | Logical device number of a terminal. Use 1 for your own terminal. |
ReturnInfo |
INTEGER | Out | Terminal line information (returned for function code 2). |
Direction: In = the program supplies the value, Out = the call returns it, In/Out = both.
See also¶
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).
INTEGER : FuncCode, DeviceNo, ReturnInfo
...
ON ROUTINEERROR DO
IF ErrCode >< 0 THEN ...
ENDON
Monitor_Call('TerminalLineInfo', FuncCode, DeviceNo, ReturnInfo)
INTEGER FuncCode, DeviceNo, ReturnInfo
Monitor Call('TerminalLineInfo', FuncCode, DeviceNo, ReturnInfo)
IF (ErrCode .NE. 0) THEN ...
FuncCode, DeviceNo, ReturnInfo : INTEGER2
TermLineInfo(FuncCode, DeviceNo, ReturnInfo); [note routine name.]
IF ErrCode <> 0 THEN ...
01 FuncCode COMP.
01 DeviceNo COMP.
01 ReturnInfo COMP.
01 ErrCode COMP.
MONITOR-CALL "TerminalLineInfo" USING FuncCode, DeviceNo, ReturnInfo.
CALL "CbError" USING ErrCode.
IF ErrCode NOT = 0 GO ...
FuncCode : W BLOCK 1
DeviceNo : W BLOCK 1
ReturnInfo : W BLOCK 1
ErrCode : W BLOCK 1
TerminalLineInfo : EQU 37B9 + 332B
...
CALLG TerminalLineInfo, 2, FuncCode, DeviceNo
IF K GO ERROR
W1 := ReturnInfo
...
ERROR : W1 =: ErrCode
%ErrorCode in W1 register.
LDT LDN %Load register T with the logical device number.
LDA FUNC %Load register A with function code.
MON 332 %Monitor call TerminalStatus.
STA STAT %Returned status. Standard Error Code.
STA LINFO %Returns here if function code = 2 and no
%errors have occurred.
...
LDN, 1
FUNC, 0
LINFO, 0
STAT, 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_332B_TerminalLineInfo |
| Code lines | 7 (non-blank, non-comment lines in the file) |
Source¶
SINTRAN III Monitor Calls (ND-860228.2 EN), page 531.