Programmer's ROM - The Computer Language Library/programmersrom.iso/ada/defdata/wicatmsc.src

Text File | 1988-05-03 | 100.1 KB | 3,990 lines

--::::::::::::::
--debugfile.txt
--::::::::::::::
<<<<<<<  INITIAL STATE OF USER_TN  >>>>>>>>>

.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=     0  tail=     1


TRANS TO TELNET DATA BUFFER
head=     0  tail=     1


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     0  tail=     1


STATE INFORMATION.
------------------

port=     1
tl_port_number=     0
nvt_io_state = io_done
communication_state = no_connection_established
command_state = no_partial_command
ga_state = no_go_ahead_sent
ga_received = no_go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #     1 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #     1 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=     0  tail=     1


TRANS TO TELNET DATA BUFFER
head=     0  tail=     1


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     0  tail=     1


STATE INFORMATION.
------------------

port=     1
tl_port_number=     0
nvt_io_state = no_io_done
communication_state = no_connection_established
command_state = no_partial_command
ga_state = no_go_ahead_sent
ga_received = no_go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #     2 to user telnet  *** *** *** *******

begin process keyboard input
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
begin parse for semantics and make call
keybd.parse_for_semantics
command string=@O 1.1;2
command string length=     8
in determine command type, will try to do assign
in determine command type, body assign complete
command_string=@O 1.1;2
pre call of strip ex char
in strip off extra characters, item=@O 1.1;2  string_length=     8
open detected
open processed
leaving strip off extra characters, item=O   1.1;2 string_length=     9
post call of strip ex char
pre process_open_command_parameters
in process_open_command_parameters
pre strip
in strip_command_to_address
 address_length=     9
command string=1.1;2
address_length=     5
end strip_command_to_adress
post strip, pre get_port_#
in get port number
port #=     2
length=     3
end get port number
post get_port_#
pre get imp#
in get imp #
in get next number
address=1.1
length=     3
after processing...
length=     1
number=     1
imp_number=     1
end get imp #
post get imp #
pre get logical host #
in get logical host #
in get next number
address=1
length=     1
after processing...
length=     0
number=     1
logical_host_number=     1
end get logical host #
post get logical host#
pre get host #
in get_host_#
in get next number
address=
length=     0
after processing...
length=     0
number=     0
host #=     0
end get_host_#
post get host #
pre get network number
in get_network_#
in get next number
address=
length=     0
after processing...
length=     0
number=     0
network #=    10
in get_network_#
post get network number
port #=     2
imp #=     1
logical host #=     1
host #=     0
network #=    10
end process_open_command_parameters
post process_open_command_parameters
end determine command type
Making open command call to
virtual_transport_level.convert_service_call_to_transport_level_syntax
begin vir_tl.convert_service call...
virt_tl processed open call to TCP
network_number=    10
host_number=     0
logical_host_number=     1
imp_number=     1
port_number=     2
end of convt serv call to tl syntax
end parse for semantics and make call
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
call get and process
in vir_tl get_and_process_information...
msg #=    14
return lcn msg detected
end vir_tl get_and_process_information...
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #     2 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=     0  tail=     1


TRANS TO TELNET DATA BUFFER
head=     0  tail=     1


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     0  tail=     1


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = io_done
communication_state = no_connection_established
command_state = no_partial_command
ga_state = no_go_ahead_sent
ga_received = no_go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #     3 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
calling get&process because there is information
in vir_tl get_and_process_information...
msg #=    23
connection open msg detected
communication_state set to connection_established
  in pvirtlpac.store_message(s)
message ==>connection open
  end pvirtlpac.store_message(s)
end vir_tl get_and_process_information...
end vir_tl there is a message
in vir_tl there is a message
calling get&process because there is information
in vir_tl get_and_process_information...
msg #=    10
data msg detected
  telnet_ptr=   256  tcp_ptr :=   255
  position =   256  char_code =<   255>
stored
  position =   255  char_code =<   249>
stored
end vir_tl get_and_process_information...
end vir_tl there is a message
in get message
in vir_tl there is a message
end vir_tl there is a message
 at end of get message... message length =    16
in vir_tl there is a message
calling get&process because there is information
in vir_tl get_and_process_information...
msg #=    10
data msg detected
  telnet_ptr=   257  tcp_ptr :=   255
  position =   257  char_code =<   255>
stored
  position =   256  char_code =<   253>
stored
  position =   255  char_code =<     3>
stored
end vir_tl get_and_process_information...
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
call get and process
in vir_tl get_and_process_information...
msg #=    10
data msg detected
  telnet_ptr=   257  tcp_ptr :=   255
  position =   257  char_code =<   255>
stored
  position =   256  char_code =<   251>
stored
  position =   255  char_code =<     3>
stored
end vir_tl get_and_process_information...
end vir_tl there is input
telnet_apl.process_any_input thinks there is input
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<   255>
pvirtlpac.get_input end
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<   249>
pvirtlpac.get_input end
telnet_apl.proc_input.char=<   249>
was a control function
begin atrinpac.process_standard_control_function
synch is NOT in progress,   NOT urgent data,   char_code=<   249>
begin atrinpac.process_standard_control_function
in vir_tl there is input
end vir_tl there is input
telnet_apl.process_any_input thinks there is input
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<   255>
pvirtlpac.get_input end
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<   253>
pvirtlpac.get_input end
telnet_apl.proc_input.char=<   253>
was a control function
begin atrinpac.process_standard_control_function
synch is NOT in progress,   NOT urgent data,   char_code=<   253>
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<     3>
pvirtlpac.get_input end
begin vir_tl.send_data
begin vir_tl.convert_service call...
virt_tl processing send call to TCP
in pvirtlpac.send_data to tcp (actual tcp call)
data code=<   255>
data code=<   252>
data code=<     3>
tl_byte_count=     2
telnet_ptr=   253
tcp_ptr=   252
end virt_tl processing send call to TCP
end of convt serv call to tl syntax
end vir_tl.send_data
begin atrinpac.process_standard_control_function
in vir_tl there is input
end vir_tl there is input
telnet_apl.process_any_input thinks there is input
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<   255>
pvirtlpac.get_input end
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<   251>
pvirtlpac.get_input end
telnet_apl.proc_input.char=<   251>
was a control function
begin atrinpac.process_standard_control_function
synch is NOT in progress,   NOT urgent data,   char_code=<   251>
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<     3>
pvirtlpac.get_input end
begin vir_tl.send_data
begin vir_tl.convert_service call...
virt_tl processing send call to TCP
in pvirtlpac.send_data to tcp (actual tcp call)
data code=<   255>
data code=<   254>
data code=<     3>
tl_byte_count=     2
telnet_ptr=   253
tcp_ptr=   252
end virt_tl processing send call to TCP
end of convt serv call to tl syntax
end vir_tl.send_data
begin atrinpac.process_standard_control_function
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level
telnet go ahead sent
begin vir_tl.send_data
begin vir_tl.convert_service call...
virt_tl processing send call to TCP
in pvirtlpac.send_data to tcp (actual tcp call)
data code=<   255>
data code=<   249>
tl_byte_count=     1
telnet_ptr=   254
tcp_ptr=   253
end virt_tl processing send call to TCP
end of convt serv call to tl syntax
end vir_tl.send_data

^^^^^^^^ ^^^ ^^^ ^^^ after call #     3 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=    16  tail=   132
$@$ local suppress_ga option denied by local telnet $@$<<    10>><<    13>>$@$ remote suppress_ga option denied by local Telnet $@$<<    10>><<    13>>

TRANS TO TELNET DATA BUFFER
head=     8  tail=     9


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     0  tail=     1


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = no_io_done
communication_state = connection_established
command_state = no_partial_command
ga_state = go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #     4 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
in vir_tl there is a message
end vir_tl there is a message
in get message
in vir_tl there is a message
end vir_tl there is a message
 at end of get message... message length =    57
in vir_tl there is a message
end vir_tl there is a message
in vir_tl there is a message
end vir_tl there is a message
in get message
in vir_tl there is a message
end vir_tl there is a message
 at end of get message... message length =    58
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #     4 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   131  tail=   132


TRANS TO TELNET DATA BUFFER
head=     8  tail=     9


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     0  tail=     1


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = no_io_done
communication_state = connection_established
command_state = no_partial_command
ga_state = go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #     5 to user telnet  *** *** *** *******

begin process keyboard input
apl process keyboard input thinks there is input
character not a control function
current character is data
apl process keyboard input thinks there is input
character not a control function
current character is data
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #     5 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   131  tail=   132


TRANS TO TELNET DATA BUFFER
head=     8  tail=     9


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     8
@S A Y T

APL data buffer.
head=     0  tail=     1


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = io_done
communication_state = connection_established
command_state = partial_command
ga_state = go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #     6 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #     6 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   131  tail=   132


TRANS TO TELNET DATA BUFFER
head=     8  tail=     9


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     8
@S A Y T

APL data buffer.
head=     0  tail=     1


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = no_io_done
communication_state = connection_established
command_state = partial_command
ga_state = go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #     7 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #     7 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   131  tail=   132


TRANS TO TELNET DATA BUFFER
head=     8  tail=     9


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     8
@S A Y T

APL data buffer.
head=     0  tail=     1


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = no_io_done
communication_state = connection_established
command_state = partial_command
ga_state = go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #     8 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #     8 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   131  tail=   132


TRANS TO TELNET DATA BUFFER
head=     8  tail=     9


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     8
@S A Y T

APL data buffer.
head=     0  tail=     1


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = no_io_done
communication_state = connection_established
command_state = partial_command
ga_state = go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #     9 to user telnet  *** *** *** *******

begin process keyboard input
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
begin parse for semantics and make call
keybd.parse_for_semantics
command string=@S A Y T
command string length=     8
in determine command type, will try to do assign
in determine command type, body assign complete
command_string=@S A Y T
pre call of strip ex char
in strip off extra characters, item=@S A Y T  string_length=     8
non-open detected
item_pos=     3 item(item_pos)=
item_pos=     4 item(item_pos)=A
item_pos=     5 item(item_pos)=
item_pos=     6 item(item_pos)=Y
item_pos=     7 item(item_pos)=
item_pos=     8 item(item_pos)=T
leaving strip off extra characters, item=SAYT string_length=     0
post call of strip ex char
end determine command type
begin vir_tl.send_data
begin vir_tl.convert_service call...
virt_tl processing send call to TCP
in pvirtlpac.send_data to tcp (actual tcp call)
data code=<   255>
data code=<   246>
tl_byte_count=     1
telnet_ptr=   254
tcp_ptr=   253
end virt_tl processing send call to TCP
end of convt serv call to tl syntax
end vir_tl.send_data
end parse for semantics and make call
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #     9 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   131  tail=   132


TRANS TO TELNET DATA BUFFER
head=     8  tail=     9


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     0  tail=     1


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = io_done
communication_state = connection_established
command_state = no_partial_command
ga_state = go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    10 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
calling get&process because there is information
in vir_tl get_and_process_information...
msg #=    10
data msg detected
  telnet_ptr=   268  tcp_ptr :=   255
  position =   268  char_code =<    13>
stored
  position =   267  char_code =<    10>
  position =   266  char_code =<    73>
stored
  position =   265  char_code =<    32>
stored
  position =   264  char_code =<    65>
stored
  position =   263  char_code =<    77>
stored
  position =   262  char_code =<    32>
stored
  position =   261  char_code =<    72>
stored
  position =   260  char_code =<    69>
stored
  position =   259  char_code =<    82>
stored
  position =   258  char_code =<    69>
stored
  position =   257  char_code =<    46>
stored
  position =   256  char_code =<    13>
stored
  position =   255  char_code =<    10>
end vir_tl get_and_process_information...
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
telnet_apl.process_any_input thinks there is input
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<    13>
pvirtlpac.get_input end
telnet_apl.proc_input.char=<    13>
was not a control function
in vir_tl there is input
end vir_tl there is input
telnet_apl.process_any_input thinks there is input
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<    73>
pvirtlpac.get_input end
telnet_apl.proc_input.char=<    73>
was not a control function
in vir_tl there is input
end vir_tl there is input
telnet_apl.process_any_input thinks there is input
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<    32>
pvirtlpac.get_input end
telnet_apl.proc_input.char=<    32>
was not a control function
in vir_tl there is input
end vir_tl there is input
telnet_apl.process_any_input thinks there is input
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<    65>
pvirtlpac.get_input end
telnet_apl.proc_input.char=<    65>
was not a control function
in vir_tl there is input
end vir_tl there is input
telnet_apl.process_any_input thinks there is input
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<    77>
pvirtlpac.get_input end
telnet_apl.proc_input.char=<    77>
was not a control function
in vir_tl there is input
end vir_tl there is input
telnet_apl.process_any_input thinks there is input
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<    32>
pvirtlpac.get_input end
telnet_apl.proc_input.char=<    32>
was not a control function
in vir_tl there is input
end vir_tl there is input
telnet_apl.process_any_input thinks there is input
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<    72>
pvirtlpac.get_input end
telnet_apl.proc_input.char=<    72>
was not a control function
in vir_tl there is input
end vir_tl there is input
telnet_apl.process_any_input thinks there is input
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<    69>
pvirtlpac.get_input end
telnet_apl.proc_input.char=<    69>
was not a control function
in vir_tl there is input
end vir_tl there is input
telnet_apl.process_any_input thinks there is input
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<    82>
pvirtlpac.get_input end
telnet_apl.proc_input.char=<    82>
was not a control function
in vir_tl there is input
end vir_tl there is input
telnet_apl.process_any_input thinks there is input
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<    69>
pvirtlpac.get_input end
telnet_apl.proc_input.char=<    69>
was not a control function
in vir_tl there is input
end vir_tl there is input
telnet_apl.process_any_input thinks there is input
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<    46>
pvirtlpac.get_input end
telnet_apl.proc_input.char=<    46>
was not a control function
in vir_tl there is input
end vir_tl there is input
telnet_apl.process_any_input thinks there is input
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<    13>
pvirtlpac.get_input end
telnet_apl.proc_input.char=<    13>
was not a control function
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #    10 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   131  tail=   132


TRANS TO TELNET DATA BUFFER
head=    20  tail=    21


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     0  tail=     1


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = io_done
communication_state = connection_established
command_state = no_partial_command
ga_state = no_go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    11 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level
telnet go ahead sent
begin vir_tl.send_data
begin vir_tl.convert_service call...
virt_tl processing send call to TCP
in pvirtlpac.send_data to tcp (actual tcp call)
data code=<   255>
data code=<   249>
tl_byte_count=     1
telnet_ptr=   254
tcp_ptr=   253
end virt_tl processing send call to TCP
end of convt serv call to tl syntax
end vir_tl.send_data

^^^^^^^^ ^^^ ^^^ ^^^ after call #    11 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   131  tail=   132


TRANS TO TELNET DATA BUFFER
head=    20  tail=    21


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     0  tail=     1


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = no_io_done
communication_state = connection_established
command_state = no_partial_command
ga_state = go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    12 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #    12 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   131  tail=   132


TRANS TO TELNET DATA BUFFER
head=    20  tail=    21


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     0  tail=     1


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = no_io_done
communication_state = connection_established
command_state = no_partial_command
ga_state = go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    13 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #    13 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   131  tail=   132


TRANS TO TELNET DATA BUFFER
head=    20  tail=    21


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     0  tail=     1


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = no_io_done
communication_state = connection_established
command_state = no_partial_command
ga_state = go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    14 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #    14 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   131  tail=   132


TRANS TO TELNET DATA BUFFER
head=    20  tail=    21


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     0  tail=     1


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = no_io_done
communication_state = connection_established
command_state = no_partial_command
ga_state = go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    15 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #    15 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   131  tail=   132


TRANS TO TELNET DATA BUFFER
head=    20  tail=    21


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     0  tail=     1


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = no_io_done
communication_state = connection_established
command_state = no_partial_command
ga_state = go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    16 to user telnet  *** *** *** *******

begin process keyboard input
apl process keyboard input thinks there is input
character not a control function
current character is data
putting character in data buffer
apl process keyboard input thinks there is input
character not a control function
current character is data
putting character in data buffer
apl process keyboard input thinks there is input
character not a control function
current character is data
putting character in data buffer
apl process keyboard input thinks there is input
character not a control function
current character is data
putting character in data buffer
sending data buffer to trans level
begin vir_tl.send_data
begin vir_tl.convert_service call...
virt_tl processing send call to TCP
in pvirtlpac.send_data to tcp (actual tcp call)
data code=<    77>
data code=<    77>
data code=<    77>
data code=<    13>
data code=<    10>  lf inserted
tl_byte_count=     4
telnet_ptr=   251
tcp_ptr=   250
end virt_tl processing send call to TCP
end of convt serv call to tl syntax
end vir_tl.send_data
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #    16 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   131  tail=   132


TRANS TO TELNET DATA BUFFER
head=    20  tail=    21


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     4  tail=     5


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = io_done
communication_state = connection_established
command_state = no_partial_command
ga_state = go_ahead_sent
ga_received = no_go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    17 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #    17 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   131  tail=   132


TRANS TO TELNET DATA BUFFER
head=    20  tail=    21


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     4  tail=     5


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = no_io_done
communication_state = connection_established
command_state = no_partial_command
ga_state = go_ahead_sent
ga_received = no_go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    18 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
calling get&process because there is information
in vir_tl get_and_process_information...
msg #=    10
data msg detected
  telnet_ptr=   256  tcp_ptr :=   255
  position =   256  char_code =<   255>
stored
  position =   255  char_code =<   249>
stored
end vir_tl get_and_process_information...
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
telnet_apl.process_any_input thinks there is input
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<   255>
pvirtlpac.get_input end
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<   249>
pvirtlpac.get_input end
telnet_apl.proc_input.char=<   249>
was a control function
begin atrinpac.process_standard_control_function
synch is NOT in progress,   NOT urgent data,   char_code=<   249>
begin atrinpac.process_standard_control_function
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #    18 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   131  tail=   132


TRANS TO TELNET DATA BUFFER
head=    22  tail=    23


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     4  tail=     5


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = no_io_done
communication_state = connection_established
command_state = no_partial_command
ga_state = go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    19 to user telnet  *** *** *** *******

begin process keyboard input
apl process keyboard input thinks there is input
character not a control function
current character is data
apl process keyboard input thinks there is input
character not a control function
current character is data
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
begin parse for semantics and make call
keybd.parse_for_semantics
command string=@C
command string length=     2
in determine command type, will try to do assign
in determine command type, body assign complete
command_string=@C
pre call of strip ex char
in strip off extra characters, item=@C  string_length=     2
non-open detected
leaving strip off extra characters, item=C    string_length=     0
post call of strip ex char
end determine command type
Making close command call to
virtual_transport_level.convert_service_call_to_transport_level_syntax
begin vir_tl.convert_service call...
virt_tl processing close call to TCP
communication_state is no_connection_established
end of convt serv call to tl syntax
end parse for semantics and make call
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #    19 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   131  tail=   132


TRANS TO TELNET DATA BUFFER
head=    22  tail=    23


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     4  tail=     5


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = io_done
communication_state = connection_established
command_state = no_partial_command
ga_state = go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    20 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #    20 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   131  tail=   132


TRANS TO TELNET DATA BUFFER
head=    22  tail=    23


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     4  tail=     5


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = no_io_done
communication_state = connection_established
command_state = no_partial_command
ga_state = go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    21 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
calling get&process because there is information
in vir_tl get_and_process_information...
msg #=    18
  in pvirtlpac.store_message(s)
message ==>connection closed
  end pvirtlpac.store_message(s)
in passive open routine
end passive open
end vir_tl get_and_process_information...
end vir_tl there is a message
in vir_tl there is a message
end vir_tl there is a message
in get message
in vir_tl there is a message
end vir_tl there is a message
 at end of get message... message length =    18
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #    21 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   149  tail=   150


TRANS TO TELNET DATA BUFFER
head=    22  tail=    23


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     4  tail=     5


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = io_done
communication_state = no_connection_established
command_state = no_partial_command
ga_state = no_go_ahead_sent
ga_received = no_go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    22 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #    22 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   149  tail=   150


TRANS TO TELNET DATA BUFFER
head=    22  tail=    23


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     4  tail=     5


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = no_io_done
communication_state = no_connection_established
command_state = no_partial_command
ga_state = no_go_ahead_sent
ga_received = no_go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    23 to user telnet  *** *** *** *******

begin process keyboard input
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
apl process keyboard input thinks there is input
character not a control function
current character is part of partial command
begin parse for semantics and make call
keybd.parse_for_semantics
command string=@O 1.1;2
command string length=     8
in determine command type, will try to do assign
in determine command type, body assign complete
command_string=@O 1.1;2
pre call of strip ex char
in strip off extra characters, item=@O 1.1;2  string_length=     8
open detected
open processed
leaving strip off extra characters, item=O   1.1;2 string_length=     9
post call of strip ex char
pre process_open_command_parameters
in process_open_command_parameters
pre strip
in strip_command_to_address
 address_length=     9
command string=1.1;2
address_length=     5
end strip_command_to_adress
post strip, pre get_port_#
in get port number
port #=     2
length=     3
end get port number
post get_port_#
pre get imp#
in get imp #
in get next number
address=1.1
length=     3
after processing...
length=     1
number=     1
imp_number=     1
end get imp #
post get imp #
pre get logical host #
in get logical host #
in get next number
address=1
length=     1
after processing...
length=     0
number=     1
logical_host_number=     1
end get logical host #
post get logical host#
pre get host #
in get_host_#
in get next number
address=
length=     0
after processing...
length=     0
number=     0
host #=     0
end get_host_#
post get host #
pre get network number
in get_network_#
in get next number
address=
length=     0
after processing...
length=     0
number=     0
network #=    10
in get_network_#
post get network number
port #=     2
imp #=     1
logical host #=     1
host #=     0
network #=    10
end process_open_command_parameters
post process_open_command_parameters
end determine command type
Making open command call to
virtual_transport_level.convert_service_call_to_transport_level_syntax
begin vir_tl.convert_service call...
virt_tl processed open call to TCP
network_number=    10
host_number=     0
logical_host_number=     1
imp_number=     1
port_number=     2
end of convt serv call to tl syntax
end parse for semantics and make call
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
call get and process
in vir_tl get_and_process_information...
msg #=    14
return lcn msg detected
end vir_tl get_and_process_information...
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #    23 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   149  tail=   150


TRANS TO TELNET DATA BUFFER
head=    22  tail=    23


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     4  tail=     5


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = io_done
communication_state = no_connection_established
command_state = no_partial_command
ga_state = no_go_ahead_sent
ga_received = no_go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    24 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
calling get&process because there is information
in vir_tl get_and_process_information...
msg #=    23
connection open msg detected
communication_state set to connection_established
  in pvirtlpac.store_message(s)
message ==>connection open
  end pvirtlpac.store_message(s)
end vir_tl get_and_process_information...
end vir_tl there is a message
in vir_tl there is a message
calling get&process because there is information
in vir_tl get_and_process_information...
msg #=    10
data msg detected
  telnet_ptr=   256  tcp_ptr :=   255
  position =   256  char_code =<   255>
stored
  position =   255  char_code =<   249>
stored
end vir_tl get_and_process_information...
end vir_tl there is a message
in get message
in vir_tl there is a message
calling get&process because there is information
in vir_tl get_and_process_information...
msg #=    10
data msg detected
  telnet_ptr=   257  tcp_ptr :=   255
  position =   257  char_code =<   255>
stored
  position =   256  char_code =<   253>
stored
  position =   255  char_code =<     3>
stored
end vir_tl get_and_process_information...
end vir_tl there is a message
 at end of get message... message length =    16
in vir_tl there is a message
calling get&process because there is information
in vir_tl get_and_process_information...
msg #=    10
data msg detected
  telnet_ptr=   257  tcp_ptr :=   255
  position =   257  char_code =<   255>
stored
  position =   256  char_code =<   251>
stored
  position =   255  char_code =<     3>
stored
end vir_tl get_and_process_information...
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
telnet_apl.process_any_input thinks there is input
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<   255>
pvirtlpac.get_input end
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<   249>
pvirtlpac.get_input end
telnet_apl.proc_input.char=<   249>
was a control function
begin atrinpac.process_standard_control_function
synch is NOT in progress,   NOT urgent data,   char_code=<   249>
begin atrinpac.process_standard_control_function
in vir_tl there is input
end vir_tl there is input
telnet_apl.process_any_input thinks there is input
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<   255>
pvirtlpac.get_input end
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<   253>
pvirtlpac.get_input end
telnet_apl.proc_input.char=<   253>
was a control function
begin atrinpac.process_standard_control_function
synch is NOT in progress,   NOT urgent data,   char_code=<   253>
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<     3>
pvirtlpac.get_input end
begin vir_tl.send_data
begin vir_tl.convert_service call...
virt_tl processing send call to TCP
in pvirtlpac.send_data to tcp (actual tcp call)
data code=<   255>
data code=<   252>
data code=<     3>
tl_byte_count=     2
telnet_ptr=   253
tcp_ptr=   252
end virt_tl processing send call to TCP
end of convt serv call to tl syntax
end vir_tl.send_data
begin atrinpac.process_standard_control_function
in vir_tl there is input
end vir_tl there is input
telnet_apl.process_any_input thinks there is input
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<   255>
pvirtlpac.get_input end
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<   251>
pvirtlpac.get_input end
telnet_apl.proc_input.char=<   251>
was a control function
begin atrinpac.process_standard_control_function
synch is NOT in progress,   NOT urgent data,   char_code=<   251>
in vir_tl there is input
end vir_tl there is input
pvirtlpac.get_input begin
in vir_tl there is input
end vir_tl there is input
input code =<     3>
pvirtlpac.get_input end
begin vir_tl.send_data
begin vir_tl.convert_service call...
virt_tl processing send call to TCP
in pvirtlpac.send_data to tcp (actual tcp call)
data code=<   255>
data code=<   254>
data code=<     3>
tl_byte_count=     2
telnet_ptr=   253
tcp_ptr=   252
end virt_tl processing send call to TCP
end of convt serv call to tl syntax
end vir_tl.send_data
begin atrinpac.process_standard_control_function
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level
telnet go ahead sent
begin vir_tl.send_data
begin vir_tl.convert_service call...
virt_tl processing send call to TCP
in pvirtlpac.send_data to tcp (actual tcp call)
data code=<   255>
data code=<   249>
tl_byte_count=     1
telnet_ptr=   254
tcp_ptr=   253
end virt_tl processing send call to TCP
end of convt serv call to tl syntax
end vir_tl.send_data

^^^^^^^^ ^^^ ^^^ ^^^ after call #    24 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   165  tail=   281
$@$ local suppress_ga option denied by local telnet $@$<<    10>><<    13>>$@$ remote suppress_ga option denied by local Telnet $@$<<    10>><<    13>>

TRANS TO TELNET DATA BUFFER
head=    30  tail=    31


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     4  tail=     5


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = no_io_done
communication_state = connection_established
command_state = no_partial_command
ga_state = go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    25 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
in vir_tl there is a message
end vir_tl there is a message
in get message
in vir_tl there is a message
end vir_tl there is a message
 at end of get message... message length =    57
in vir_tl there is a message
end vir_tl there is a message
in vir_tl there is a message
end vir_tl there is a message
in get message
in vir_tl there is a message
end vir_tl there is a message
 at end of get message... message length =    58
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #    25 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   280  tail=   281


TRANS TO TELNET DATA BUFFER
head=    30  tail=    31


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     4  tail=     5


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = no_io_done
communication_state = connection_established
command_state = no_partial_command
ga_state = go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    26 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #    26 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   280  tail=   281


TRANS TO TELNET DATA BUFFER
head=    30  tail=    31


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     4  tail=     5


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = no_io_done
communication_state = connection_established
command_state = no_partial_command
ga_state = go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    27 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #    27 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   280  tail=   281


TRANS TO TELNET DATA BUFFER
head=    30  tail=    31


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     4  tail=     5


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = no_io_done
communication_state = connection_established
command_state = no_partial_command
ga_state = go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    28 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #    28 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   280  tail=   281


TRANS TO TELNET DATA BUFFER
head=    30  tail=    31


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     4  tail=     5


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = no_io_done
communication_state = connection_established
command_state = no_partial_command
ga_state = go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    29 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #    29 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   280  tail=   281


TRANS TO TELNET DATA BUFFER
head=    30  tail=    31


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     4  tail=     5


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = no_io_done
communication_state = connection_established
command_state = no_partial_command
ga_state = go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    30 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #    30 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   280  tail=   281


TRANS TO TELNET DATA BUFFER
head=    30  tail=    31


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     4  tail=     5


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = no_io_done
communication_state = connection_established
command_state = no_partial_command
ga_state = go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    31 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #    31 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   280  tail=   281


TRANS TO TELNET DATA BUFFER
head=    30  tail=    31


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     4  tail=     5


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = no_io_done
communication_state = connection_established
command_state = no_partial_command
ga_state = go_ahead_sent
ga_received = go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    32 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
calling get&process because there is information
in vir_tl get_and_process_information...
msg #=    24
  in pvirtlpac.store_message(s)
message ==>error: connection aborted due to user time out
  end pvirtlpac.store_message(s)
in passive open routine
end passive open
end vir_tl get_and_process_information...
end vir_tl there is a message
in vir_tl there is a message
end vir_tl there is a message
in get message
in vir_tl there is a message
end vir_tl there is a message
 at end of get message... message length =    47
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #    32 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   327  tail=   328


TRANS TO TELNET DATA BUFFER
head=    30  tail=    31


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     4  tail=     5


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = io_done
communication_state = no_connection_established
command_state = no_partial_command
ga_state = no_go_ahead_sent
ga_received = no_go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee


********  *** *** ***  call #    33 to user telnet  *** *** *** *******

begin process keyboard input
end process keyboard input
begin telnet_apl.process_any_messages.
in vir_tl there is a message
end vir_tl there is a message
end telnet_apl.process_any_messages.
begin telnet_apl.process_any_input_from_transport_level
in vir_tl there is input
end vir_tl there is input
end telnet_apl.process_any_input_from_transport_level

^^^^^^^^ ^^^ ^^^ ^^^ after call #    33 to user telnet  ^^^ ^^^ ^^^ ^^^^^^^^^


.......................... dump all start ......................


PPL TRANSPORT LEVEL BUFFERS.
----------------------------

TRANS TO TELNET MESSAGE BUFFER
head=   327  tail=   328


TRANS TO TELNET DATA BUFFER
head=    30  tail=    31


TELNET OPTION TABLES
--------------------

local options desired :

remote options desired :

local options pending :

remote options pending :

local options in effect :

remote options in effect :

USER CONTROL BLOCK.
------------------

APL partial command buffer.
length=     0


APL data buffer.
head=     4  tail=     5


STATE INFORMATION.
------------------

port=     1
tl_port_number=     2
nvt_io_state = no_io_done
communication_state = no_connection_established
command_state = no_partial_command
ga_state = no_go_ahead_sent
ga_received = no_go_ahead_received
synch_is_in_progress = no_synch_is_in_progress
last_keybd_char_was_cmd = FALSE
rcv_data_is_urgent = FALSE
last_data_char_rcv_not_cr = TRUE

eeeeeeeeeeeeeeeeeeeeeeeee  dump all end   eeeeeeeeeeeeeeeeeeeeee

--::::::::::::::
--ethertest.txt
--::::::::::::::
with SYSTEM ;
with TEXT_IO ;                       use TEXT_IO ;
with SUBNET_CALLS ;                  use SUBNET_CALLS ;
with BUFFER_DATA ;                    use BUFFER_DATA ;
with IP_GLOBALS ;                    use IP_GLOBALS ;
procedure ETHERNET_TESTER is
DATAGRAM : PACKED_BUFFER_PTR ;
MESSAGE_STRING : STRING(1..99) ;
LOCAL_DESTINATION : LOCAL_ADDRESS_TYPE := 2 ;
PRECEDENCE : PRECEDENCE_TYPE := ROUTINE ;
RELIABILITY : RELIABILITY_TYPE := NORMAL ;
DELAY_IP : DELAY_TYPE := NORMAL ;
THROUGHPUT : THROUGHPUT_TYPE := NORMAL ;
LENGTH : DATAGRAM_LENGTH := 99 ;
MESSAGE_HOLDER : STRING (0..255) ;
DUMMY : CHARACTER ;
a_byte : system_byte ;
ch : character ;
begin
   text_io.new_line;
   text_io.put_line("Ethernet Tester.  Rev 1.1  09-JUL-85");
  for i in 1..99 loop
     message_string (i) := '9' ;
  end loop ;
  text_io.new_line;
  text_io.put_line("Initializing...");
  INIT ;
  loop
   NEW_LINE ;
   PUT ("ready to execute one loop (Y/N) ? ") ;
   GET (DUMMY) ;
   BUFFGET (DATAGRAM, 1 ) ;

   text_io.new_line;
   text_io.put("Got a Buffer");
   for INDEX in 1..99 loop
    DATAGRAM.BYTE (INDEX) := CHARACTER'POS (MESSAGE_STRING (INDEX)) ;
   end loop ;
   text_io.new_line;
   text_io.put("Datagram.Byte initialized");
   DATAGRAM.subnet_ptr := 1 ;
   subnet_calls.snp.SEND (DATAGRAM,
         LOCAL_DESTINATION, -- (VAX MARS)
         PRECEDENCE,
         RELIABILITY,
         DELAY_IP,
         THROUGHPUT,
         LENGTH) ;
   text_io.new_line;
   text_io.put("Returned from SEND...");
   loop
   --NEW_LINE ;
   --PUT ("ready to read ethernet   (Y/N) ? ") ;
   --GET (DUMMY) ;
   SNP.SUBNET_GET ; --CHECK ETHERNET RECEIVE
   SNP.DELIVER (DATAGRAM) ;
   if DATAGRAM = null then
    --text_io.PUT_LINE ("no packets from ETHER ") ;
    null ;
   else
    PUT ("Message = ") ;
    for INDEX in 0..(datagram.size - 1) loop
     if ((INDEX mod 60) = 0) then
       new_line ;
       end if ;
     a_byte := datagram.byte (datagram.ip_ptr + index) ;
    if a_byte < character'pos('z') and a_byte > character'pos (' ') then
        ch := CHARACTER'VAL (DATAGRAM.BYTE (DATAGRAM.IP_PTR + INDEX)) ;
       ELSE CH := '.' ;
       end if ;
       put (ch) ;
      end loop ;
     end if ;
     end loop ;
     NEW_LINE ;
     PUT_LINE ("Send just completed!!! ") ;
    end loop ;
    exception
      when constraint_error =>
        text_io.put_line ("constraint error in ethertest") ;
      when others =>
        text_io.put_line (" other exception in ethertest") ;

   end ETHERNET_TESTER ;

--::::::::::::::
--proc.txt
--::::::::::::::
WITH SYSTEM, TEXT_IO, sequential_io  ;
USE SYSTEM, TEXT_IO ;
PROCEDURE remove_file_garbage IS

  PACKAGE SIO IS NEW SEQUENTIAL_IO (INTEGER) ;
  TYPE file_name IS
    RECORD
      f_n : STRING (1..50) ;
      f_n_l : INTEGER ;
    END record ;
  input_file_name, output_file_name : file_name ;
  line_count : INTEGER := 0 ;
  word, Left_byte, Right_byte : INTEGER ;
  word_count : long_INTEGER := 0 ;
  i_file, o_file : SIO.FILE_TYPE ;
  beginning_not_found : boolean := true ;
  BEGIN
    TEXT_IO.PUT ("SOURCE FILE NAME : ") ;
    GET_LINE (input_file_name.f_n, input_file_name.f_n_l) ;
    output_file_name.f_n(1..10) := "dummy.text" ;
    output_file_name.f_n_l := 10 ;

    SIO.create (o_file, SIO.out_FILE,
     output_file_name.f_n (1..output_file_name.f_n_l)) ;
    SIO.OPEN (i_file, SIO.in_FILE,
     input_file_name.f_n (1..input_file_name.f_n_l)) ;

     --search for beginning of program
     WHILE ((NOT (SIO.END_OF_FILE (i_file))) and beginning_not_found) LOOP
      SIO.READ (i_file, word) ;
      left_byte := word / 256 ;
      right_byte := word MOD 256 ;
      IF (left_byte = 87 or left_byte = 119) then -- 'W' or 'w'
        beginning_not_found := FALSE ;
      ELSIF (right_byte = 87 or right_byte = 119) then -- 'W' or 'w'
        left_byte := 0 ; -- null
        beginning_not_found := FALSE ;
      END IF ;
    end loop ;

    -- copy rest of program
    WHILE (NOT (SIO.END_OF_FILE (i_file))) LOOP
      word := 256 * left_byte  + right_byte ;
      SIO.WRITE (o_file, word) ;
      SIO.READ (i_file, word) ;
      word_count := word_count + 1 ;
      if (word_count mod 512) = 0 then
        text_io.put("                       k-byte count=") ;
        text_io.integer_io.put(integer(word_count / 512)) ;
        text_io.new_line ;
      end if ;
      left_byte := word / 256 ;
      right_byte := word MOD 256 ;
      IF left_byte = 12 THEN
        left_byte := 0 ;
      END if ;
      IF right_byte = 12 THEN
        right_byte := 0 ;
      END if ;
      if right_byte = 13 or left_byte = 13 then -- eol
        line_count := line_count + 1 ;
        if (line_count MOD 100) = 0 then
          text_io.put("line count=") ;
          text_io.integer_io.put(line_count) ;
          text_io.new_line ;
        end if ;
      end if ;
    END LOOP ;

    word := 256 * left_byte  + right_byte ;
    SIO.WRITE (o_file, word) ;

    text_io.new_line ;
    text_io.new_line ;
    text_io.put("total line count=") ;
    text_io.integer_io.put(line_count) ;
    text_io.new_line ;
    text_io.put("total k-byte count=") ;
    text_io.integer_io.put(integer(word_count / 512)) ;
    text_io.new_line ;
   SIO.CLOSE (i_file) ;
   SIO.CLOSE (o_file) ;
   text_io.new_line ;

  END remove_file_garbage ;


--::::::::::::::
--ul.txt
--::::::::::::::
-- modified 7/15/85 by Mike Thomas : use cr to clear vax in create
WITH SYSTEM, TEXT_IO ;
USE  SYSTEM, TEXT_IO ;
PROCEDURE upload_wicat_rosfile_to_vax_vmsfile IS
          -----------------------------------
--                            PROCEDURE
--
-- Prompt the user for all the WICAT filenames to transfer and their
-- corresponding VAX filenames.  Open the VAX port.  Enter
-- transparent mode to allow the user to logon to the VAX.
-- (user enters <control> <a> when finished with transparent mode)
-- For each filename : create the next VAX file; open the
-- the next WICAT file; while not end of WICAT file :
-- read a character from the WICAT file and write the character to the
-- VAX file; then close the VAX and WICAT files at end of WICAT file
-- detection.  Finally, enter transparent mode to allow the user to
-- log off and then close the vax port.
--
-- NOTES :
--
-- PROBLEMS WITH TEXT_IO...
-- THE PACKAGE TRASHES <CR> IT ALSO APPENDS A <LF> WHEN YOU WRITE
-- OUT A <CR>.  SO DETECT <CR>, AND WRITE A <CR> TO DESTINATION FILE.
-- WICAT FILES DON'T HAVE A <LF> READ IN AT END OF LINE.
--
--                     6/29       4:30 PM    Mike Thomas
--
---------------------   data declarations  -------------------------

  max_files                   : CONSTANT INTEGER := 60 ;
  vax_name_length             : CONSTANT INTEGER := 40 ;
  wicat_name_length           : CONSTANT INTEGER := 25 ;
  char_count                  : LONG_INTEGER ; -- # of chars transferred
  SUBTYPE vax_file_name      IS STRING(1..vax_name_length) ;
  SUBTYPE wicat_file_name    IS STRING(1..wicat_name_length) ;
  TYPE vax_file_array        IS ARRAY (1..max_files) OF vax_file_name ;
  TYPE wicat_file_array      IS ARRAY (1..max_files) OF wicat_file_name ;
  TYPE name_length_array     IS ARRAY (1..max_files) OF INTEGER ;

  TYPE vax_file_info_record IS
    RECORD
      vax_file_name   : vax_file_array ;
      name_length     : name_length_array ;
    END RECORD ;

  TYPE wicat_file_info_record IS
    RECORD
      wicat_file_name   : wicat_file_array ;
      name_length       : name_length_array ;
    END RECORD ;

  vf_data                  : vax_file_info_record ;
  wf_data                  : wicat_file_info_record ;

  char                     : CHARACTER ;
  SUBTYPE file_number     IS INTEGER RANGE 1..max_files ;
  number_of_files          : file_number ;
  end_of_file_not_found    : BOOLEAN ;

------------------------   file declarations  -------------------

  file_vax_out               : TEXT_IO.FILE_TYPE ;
  file_vax_in                : TEXT_IO.FILE_TYPE ;
  file_wicat                 : TEXT_IO.FILE_TYPE ;
  input_file                 : TEXT_IO.FILE_MODE := TEXT_IO.IN_FILE ;
  output_file                : TEXT_IO.FILE_MODE := TEXT_IO.OUT_FILE ;
------------------------  end of data declarations -----------------
  PROCEDURE prompt_the_user_for_filenames
            -----------------------------
   (vf_data               : OUT vax_file_info_record ;
    wf_data               : OUT wicat_file_info_record ;
    number_of_files       : OUT file_number) IS

    more_to_input : BOOLEAN := TRUE ;
    file_number   : INTEGER := 0 ;
  BEGIN
    TEXT_IO.PUT_LINE("INPUT THE WICAT AND VAX FILENAMES.  REMEMBER") ;
    TEXT_IO.PUT_LINE("TO USE THE FULL FILENAMES WHEN READING OR WRITING") ;
    TEXT_IO.PUT_LINE("FROM A DIRECTORY OTHER THAN YOUR DEFAULT DIRECTORY.") ;
    TEXT_IO.PUT_LINE("PRESS RETURN WITH NO FILENAME ENTERED TO END THE") ;
    TEXT_IO.PUT_LINE("INPUT SESSION.") ;
    TEXT_IO.PUT_LINE(" ") ;
    WHILE more_to_input LOOP

      DECLARE
        vax_file : vax_file_name RENAMES
         vf_data.vax_file_name(file_number + 1) ;
        vax_name_length : INTEGER RENAMES
         vf_data.name_length(file_number + 1) ;
        wicat_file : wicat_file_name RENAMES
         wf_data.wicat_file_name(file_number + 1) ;
        wicat_name_length : INTEGER RENAMES
         wf_data.name_length(file_number + 1) ;
      BEGIN
        TEXT_IO.PUT_LINE(" ") ;
        TEXT_IO.PUT("ENTER WICAT FILENAME -->") ;
        TEXT_IO.GET_LINE(wicat_file, wicat_name_length) ;
        IF wicat_name_length > 0 THEN
          TEXT_IO.PUT("ENTER VAX FILENAME ==>") ;
          TEXT_IO.GET_LINE(vax_file, vax_name_length) ;
          file_number := file_number + 1 ;
        ELSE
          more_to_input := FALSE ;
        END IF ;
      END ; -- BLOCK
      number_of_files := file_number ;
    END LOOP ;
    FOR I IN 1..FILE_NUMBER LOOP -- display files
      TEXT_IO.PUT_LINE(" ") ;
      TEXT_IO.PUT(WF_DATA.WICAT_FILE_NAME(I)(1..WF_DATA.NAME_LENGTH(I))) ;
      TEXT_IO.PUT(" -----> ") ;
      TEXT_IO.PUT(VF_DATA.VAX_FILE_NAME(I)(1..VF_DATA.NAME_LENGTH(I))) ;
    END LOOP ;
    TEXT_IO.PUT_LINE(" ") ;
    TEXT_IO.PUT_LINE(" ") ;
    TEXT_IO.PUT_LINE(" ") ;
    TEXT_IO.PUT_LINE(" ") ;

  END prompt_the_user_for_filenames ;

  PROCEDURE open_the_vax_port IS
            -----------------
  BEGIN
    OPEN(file_vax_in, input_file, "con2:") ; -- serial port 1 on wicat
    OPEN(file_vax_out, output_file, "con2:") ; -- serial port 1 on wicat
    --OPEN(file_vax_in, input_file, "console:") ;  -- console for testing (debug)***
    --OPEN(file_vax_out, output_file, "console:") ; -- console for testing (debug)***
  END open_the_vax_port ;

  PROCEDURE wait_for_echo (expected_char : in character) IS
    echoed_char : character ;
    ok : BOOLEAN := TRUE ;
    found : BOOLEAN := FALSE ;

  BEGIN

    while (not ok) or (not found) loop
      text_io.get (file_vax_in, echoed_char) ;
      --text_io.put_line("got character from vax: ");
      --text_io.integer_io.put(character'pos(echoed_char));
      if echoed_char = expected_char then
        found := TRUE ;
        --text_io.put_line("Matched character sent.");
      elsif echoed_char = ASCII.DC3 then
        ok := FALSE ;
        text_io.new_line;
        text_io.put_line("XOFF");
      elsif echoed_char = ASCII.DC1 then
        ok := TRUE ;
        text_io.new_line;
        text_io.put_line("XON");
      else
        if character'pos(echoed_char)=27 then
           text_io.put_line("expected character not received.  Got ");
           text_io.integer_io.put(character'pos(echoed_char));
           text_io.put(".  Expected ");
           text_io.integer_io.put(character'pos(expected_char));
           text_io.put_line(".");
        elsif echoed_char=ascii.lf then
           text_io.new_line;
        else
           text_io.put(echoed_char);
        end if;

      end if ;

    end loop ;

  END wait_for_echo ;




  PROCEDURE write_character_to_vax_file
            ---------------------------
   (char : IN CHARACTER) IS
  BEGIN
     if (char /= ascii.lf) and (char /= ascii.cr) and (char /= ascii.ht)
                           and (character'pos(char) /= 26) then
       if character'pos(char) < 32 then
          text_io.put_line("bad character sent: ");
          text_io.integer_io.put(character'pos(char));
       end if;
     end if;
     if character'pos(char) /= 27 then     -- filter out <esc>'s
       TEXT_IO.PUT(file_vax_out, char) ;
     end if;
    --text_io.put(char);
    --text_io.put("character sent: ");
    --text_io.integer_io.put(character'pos(char));
    if (char /= ASCII.SUB) and (char /= ASCII.CR)  then   -- VAX EDF marker not ehoed (?)
      wait_for_echo (char) ;
    end if ;

    if char = ASCII.CR then
      wait_for_echo (ASCII.LF) ;
    end if ;
  END write_character_to_vax_file ;

  PROCEDURE write_string_to_vax_file
            ------------------------
   (item : IN STRING)  IS
  BEGIN
    FOR i IN 1..item'length LOOP
      write_character_to_vax_file(item(i)) ;
    END LOOP ;
  END write_string_to_vax_file ;
  PROCEDURE create_vax_file
            ---------------
   (vax_file        : IN vax_file_name ;
    vax_name_length : IN INTEGER) IS
    crcr : STRING (1..4) ;
  BEGIN
    crcr(1) :=  ASCII.cr ;
    crcr(2) :=  ASCII.cr ; -- clear command line
    crcr(3) :=  ASCII.cr ; -- clear command line
    crcr(4) :=  ASCII.cr ; -- clear command line
    write_string_to_vax_file(crcr) ; -- clear;
    write_string_to_vax_file("set term/nowrap") ; -- avoid crlf by vax at eol
    write_character_to_vax_file(ASCII.CR) ;
    write_string_to_vax_file("create ") ;
    write_string_to_vax_file(vax_file(1..vax_name_length)) ;
    write_character_to_vax_file(ASCII.CR) ;

  END create_vax_file ;
  PROCEDURE read_character_from_wicat_file
            ------------------------------
   (char            : OUT CHARACTER;
    not_end_of_file : OUT BOOLEAN) IS

  BEGIN
    not_end_of_file := TRUE ;
    IF TEXT_IO.END_OF_LINE(file_wicat) THEN
      write_character_to_vax_file(ASCII.CR) ; -- TEXT_IO will append <lf>
    ELSE
      IF TEXT_IO.END_OF_PAGE(file_wicat) THEN
        write_character_to_vax_file(ASCII.FF) ;
      END IF ;
    END IF ;
    GET(file_wicat, char) ;

    EXCEPTION
      WHEN TEXT_IO.END_ERROR => not_end_of_file := FALSE ;

  END read_character_from_wicat_file ;


  PROCEDURE close_vax_file IS
            --------------

  end_of_file : CHARACTER := ASCII.SUB ;

  BEGIN
    write_character_to_vax_file(end_of_file) ; -- send control z
  END  close_vax_file ;

  PROCEDURE enter_transparent_mode IS -- not implimented yet
            ----------------------
  BEGIN
    NULL ;
  END enter_transparent_mode ;

BEGIN --  *** MAIN PROCEDURE ***
  prompt_the_user_for_filenames(vf_data, wf_data, number_of_files) ;
  open_the_vax_port ;
  enter_transparent_mode ; -- to allow user to sign on to VAX
  IF number_of_files > 0 THEN
    FOR file_number IN 1..number_of_files LOOP

      DECLARE
        vax_file   : vax_file_name RENAMES
         vf_data.vax_file_name(file_number) ;
        vax_name_length : INTEGER RENAMES
         vf_data.name_length(file_number) ;
        wicat_file : wicat_file_name RENAMES
         wf_data.wicat_file_name(file_number) ;
        wicat_name_length : INTEGER RENAMES
         wf_data.name_length(file_number) ;

      BEGIN
        char_count := 0 ;
        create_vax_file(vax_file, vax_name_length) ;
        TEXT_IO.PUT("UPLOADING    ") ;
        TEXT_IO.PUT(wicat_file(1..wicat_name_length)) ;
        TEXT_IO.PUT(" -----> ") ;
        TEXT_IO.PUT_LINE(vax_file(1..vax_name_length)) ;
        TEXT_IO.PUT_LINE("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^") ;
        TEXT_IO.OPEN(file_wicat, input_file, wicat_file(1..wicat_name_length));
        end_of_file_not_found := TRUE ;
        WHILE end_of_file_not_found LOOP
          read_character_from_wicat_file(char, end_of_file_not_found) ;
          IF end_of_file_not_found then
            write_character_to_vax_file(char) ;
            char_count := char_count + 1 ;
            IF char_count MOD 1024 = 0 THEN TEXT_IO.PUT(".") ; END IF ;
          END IF ;
        END LOOP ;
        close_vax_file ;
        CLOSE(file_wicat) ;
        TEXT_IO.PUT(ASCII.BEL); TEXT_IO.PUT_LINE(" ");-- signal done with one file
      END ; -- block
    END LOOP ;
  END IF;
  enter_transparent_mode ; -- to allow user to log off
  CLOSE(file_vax_in) ; -- close vax port
  CLOSE(file_vax_out) ;
  TEXT_IO.PUT(ASCII.BEL) ; -- signal done with all files
  TEXT_IO.PUT(ASCII.BEL) ;
  TEXT_IO.PUT(ASCII.BEL) ;
  TEXT_IO.PUT_LINE(" ") ;
  TEXT_IO.PUT_LINE("UPLOAD COMPLETE.") ;

END upload_wicat_rosfile_to_vax_vmsfile ;