Specifications

Operation
Page
68
SET no error.
WHILE system-id <console-user>
= source-address AND no error
DO
transmit, Release Console message.
receipt-number
:= Next-receipt-number (channel-id).
Transact, Request ID message.
ENDWH
I LE .
Close (port-id).
ELSE
return-code
:= unrecognized port.
ENDIF.
RETURN Release-remote-console.
ROUTINE Send-console-command (port-id, command-break-flag,
command-data-buffer, response-data-buffer)
:
IF port is open THEN
IF command-pending THEN
return-code
:= function denied.
ELSE
receipt-number
:= Next-receipt-number (channel-id).
COMPLEMENT message number.
SET command-pending.
START Must-transact, Send Console Command And Poll
message.
ENDIF.
ELSE
return-code
:= unrecognized port.
ENDIF.
RETURN Send-console-command.
ROUTINE Console-response-poll (receipt-number)
:
IF command-pending THEN
IF Must-transact operation completed THEN
IF message number
= <message number> THEN
Response-data-buffer
:= <response data>.
CLEAR command-pending.
IF
<Command data lost flag> OR
<Response data lost flag> OR
Receive with overrun THEN
SET corresponding Data-lost-flags.
return-code
:= Data lost.
ELSE
return-code
:= Success.
ENDIF.
ELSE
START must-transact, Send Console Command And Poll
message.
ENDIF.
ELSE
return-code
:= pending.
END1 F
.
ELSE
return-code
:= unrecognized request.
'ENDIF.
RETURN Console-response-poll.