home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
iclvme2900.tar.gz
/
iclvme2900.tar
/
kmt_sp_mtm
< prev
next >
Wrap
Text File
|
1987-07-14
|
21KB
|
708 lines
*@ VME KERMIT SUPPORT PROCEDURE MESSAGE TEXT MODULE @
*@ ************************************************ @
*CREATE(KMTSPMTM)
*PROC(KMTSPMTM)
*VERSION(101)
*PARAMS(EXP&ICL)
*LINESPLIT(SPACE)
*@ MESSAGES MESSAGE TEXTS @
*@ ********************** @
*@ GENERAL MESSAGES @
*@ **************** @
*1 @ KMT_VERSION_NUMBER @
<L><TAB 25>SWURCC VME KERMIT VERSION <P2>
*2 @ KMT_SWURCC_BANNER @
<L>South West Universities Regional Computer Centre,
<HALT -1>Claverton Down, Bath BA2 7AY, U.K.
*3 @ NON-STANDARD MARK CHARACTER @
<L>The VME Kermit START-OF-PACKET character is Hex 1E (decimal 30).
<HALT -1>Please set the START-OF-PACKET character on your micro to correspond.
<HALT -1>Type: HELP START-OF-PACKET for further details.
*@ SUPPORT PROCEDURES MESSAGES @
*@ *************************** @
*50 @ KMT_SP_TRACE_MSG @
<CASE P1
THEN <>
DEFAULT <<HEX P2>>
ESAC>
*@ ERROR HANDLER MESSAGES @
*@ ********************** @
*@ DEVICE HANDLER MESSAGES @
*@ *********************** @
*150 @ KMT_DH_DATA_IN_MSG @
<L>KMT_DH_DATA_IN :- <HALT -1, J50>
*151 @ KMT_DH_DATA_OUT_MSG @
<L>KMT_DH_DATA_OUT :- <HALT -1, J50>
*152 @ KMT_DH_EVENT_MSG @
<L>KMT_DH_EVENT :- <HALT -1, J50>
*@ FILE HANDLER MESSAGES @
*@ ********************* @
*200 @ KMT_FH_RECORD_IN_MSG @
<L>KMT_FH_RECORD_IN :- <HALT -1,J50>
*201 @ KMT_FH_RECORD_OUT_MSG @
<L>KMT_FH_RECORD_OUT :- <HALT -1,J50>
*@ PACKET PROCESSOR MESSAGES @
*@ *************************
*250 @ KMT_PP_TRACE_MESSAGE @
<HEX P2, HALT -1>
<HALT -1>MARK = X"<HEX P3>"
<HALT -1>LEN = <P4>
<HALT -1>SEQ = <P5>
<HALT -1>TYPE = <CASE P6
THEN <INVALID TYPE>,
<B (BREAK)>,
<D (DATA)>,
<E (ERROR)>,
<F (FILE_HEADER)>,
<G (GENERIC_COMMAND)>,
<I (INIT_PARAM)>,
<K (KERMIT_COMMAND)>,
<N (NAK)>,
<R (REC_INIT)>,
<S (SEND_INIT)>,
<Y (ACK)>,
<Z (EOF)>
DEFAULT <INVALID TYPE>
ESAC>
<HALT -1>DATA = X"<HEX P7>"
<HALT -1>CHECKSUM = X"<HEX P8>"
*251 @ KMT_PP_PACKET_IN_MSG @
<L>KMT_PP_PACKET_IN :- <HALT -1,J250>
*252 @ KMT_PP_PACKET_OUT_MSG @
<L>KMT_PP_PACKET_OUT :- <HALT -1,J250>
*253 @ KMT_PP_PACKET_DATA_IN_MSG @
<L>KMT_PP_PACKET_DATA_IN <CASE P2
THEN J255,
J256,
J257
DEFAULT J255
ESAC>
*254 @ KMT_PP_PACKET_DATA_OUT_MSG @
<L>KMT_PP_PACKET_DATA_OUT <CASE P2
THEN J255,
J256,
J257
DEFAULT J255
ESAC>
*255 @ EBCDIC DATA @
(EBCDIC) :-
<HALT -1><P3>
*256 @ ASCII DATA @
(ASCII) :-
<HALT -1><P3>
*257 @ BINARY DATA @
(BINARY) :-
<HALT -1>X"<HEX P3>"
*258 @ KMT_PP_PARAM_OUT_MSG @
<L>KMT_PP_PARAM_OUT :- <HALT -1,CASE P1 J260,J261 ESAC>
*259 @ KMT_PP_PARAM_IN_MSG @
<L>KMT_PP_PARAM_IN :- <HALT -1,CASE P1 J260,J261 ESAC>
*260 @ NO PARAMATERS! @
<L>NONE!
*261 @ KMT_PP_PARAMS @
<HALT -1>MAXL = <P2><CASE P1 ,,J262 ESAC>
*262
<HALT -1>TIME = <P3><CASE P1 ,,,J263 ESAC>
*263
<HALT -1>NPAD = <P4><CASE P1 ,,,,J264 ESAC>
*264
<HALT -1>PADC = X"<HEX P5>"<CASE P1 ,,,,,J265 ESAC>
*265
<HALT -1>EOL = X"<HEX P6>"<CASE P1 ,,,,,,J266 ESAC>
*266
<HALT -1>QCTL = X"<HEX P7>"<CASE P1 ,,,,,,,J267 ESAC>
*267
<HALT -1>QBIN = X"<HEX P8>"<CASE P1 ,,,,,,,,J268 ESAC>
*268
<HALT -1>CHKT = "<P9>"<CASE P1 ,,,,,,,,,J269 ESAC>
*269
<HALT -1>REPT = X"<HEX P10>"<CASE P1 ,,,,,,,,,,J270 ESAC>
*270
<HALT -1>CAPAS = X"<HEX P11>"
*@ PROTOCOL HANDLER MESSAGES @
*@ *************************
*300 @ KMT_PH_STATES_MSG @
<L>KMT_PH_STATES :- <HALT -1,J301>
*301 @ KMT_PH_TRACE_MESSAGE @
STATE = <P2> (<CASE P2
THEN <REC_SERVER_IDLE>,
<REC_INIT>,
<REC_FILE>,
<REC_DATA>,
<SEND_INIT>,
<SEND_FILE>,
<SEND_DATA>,
<SEND_EOF>,
<SEND_BREAK>
DEFAULT <UNKNOWN STATE>
ESAC>),
EVENT = <P3> (<CASE P3
THEN <ENTRY>,
<BREAK>,
<DATA>,
<ERROR>,
<FILE_HEADER>,
<GENERIC_COMMAND>,
<INIT_PARAM>,
<KERMIT_COMMAND>,
<NAK>,
<REC_INIT>,
<SEND_INIT>,
<ACK>,
<EOF>,
<CORRUPT_DATA>,
<PROTOCOL_ERROR>
DEFAULT <UNKNOWN EVENT>
ESAC>)
*@ COMMAND AND PARAMETER CHECKING @
*5000 @ check Kermit initial mode @
<CASE P1 STARTS
<SERVER> THEN HALT 0,
<RECEIVE> THEN HALT 1,
<SEND> THEN HALT 2,
<COMMAND> THEN HALT 3
DEFAULT HALT 4 @ invalid mode @
ESAC
>
*5010 @ check Kermit command @
<CASE P1 STARTS
<SERVER> THEN HALT 0,
<RECEIVE> THEN HALT 1,
<SEND> THEN HALT 2,
<HELP> THEN HALT 3,
<EXIT> THEN HALT 4,
<SET> THEN HALT 5,
<SHOW> THEN HALT 6,
<STATISTICS> THEN HALT 7
DEFAULT HALT 8 @ invalid command @
ESAC
>
*5100 @ SET command: check for SEND or RECEIVE option @
<CASE P2 STARTS
<RECEIVE> THEN HALT 0,
<SEND> THEN HALT 1
DEFAULT HALT -1 @ not present - ok though @
ESAC
>
*5110 @ check SET parameter @
<CASE P2 STARTS
<DEBUG> THEN HALT 0,
<DELAY> THEN HALT 1,
<FILE> THEN HALT 2,
<RETRY> THEN HALT 3,
<PAUSE> THEN HALT 4
DEFAULT HALT 920 @ invalid parameter @
ESAC
>
*5120 @ check parameter following SEND or RECEIVE option @
<CASE P3 STARTS
<START-OF-PACKET> THEN HALT 0,
<PACKET-LENGTH> THEN HALT 1,
<TIMEOUT> THEN HALT 2,
<END-OF-LINE> THEN HALT 3,
<PADDING> THEN HALT 4,
<PAD-CHARACTER> THEN HALT 5,
<QUOTE> THEN HALT 6,
<EIGHTH-BIT-PREFIX> THEN HALT 7
DEFAULT HALT 921 @ invalid parameter @
ESAC
>
*5130 @ check DEBUG option @
<CASE P3 STARTS
<ALL> THEN HALT 0,
<FILE> THEN HALT 1,
<PROTOCOL> THEN HALT 2,
<PACKET> THEN HALT 3,
<DEVICE> THEN HALT 4
DEFAULT HALT 921 @ invalid DEBUG parameter @
ESAC
>
*5140 @ check FILE option @
<CASE P3 STARTS
<TYPE> THEN CASE P4 STARTS
<EBCDIC> THEN HALT 0,
<ASCII> THEN HALT 1,
<BINARY> THEN HALT 2
DEFAULT HALT 931
ESAC,
<NAMING> THEN CASE P4 STARTS
<UNTRANSLATED> THEN HALT 3,
<NORMAL-FORM> THEN HALT 4
DEFAULT HALT 931
ESAC,
<OVERWRITE> THEN CASE P4 STARTS
<OFF> THEN HALT 5,
<ON> THEN HALT 6
DEFAULT HALT 931
ESAC,
<INCOMPLETE> THEN CASE P4 STARTS
<DISCARD> THEN HALT 7,
<KEEP> THEN HALT 8
DEFAULT HALT 931
ESAC
DEFAULT HALT 921 @ invalid SET FILE argument @
ESAC
>
*5150 @ check OFF/ON option @
<CASE P4 STARTS
<OFF> THEN HALT 0,
<ON> THEN HALT 1
DEFAULT HALT 931
ESAC
>
*@ RESULTCODES MESSAGE TEXTS @
*@ ************************* @
*@ GENERAL RESULTCODES @
*@ ******************* @
*@ SUPPORT PROCEDURES RESULTCODES @
*@ ****************************** @
*80050 @ KMT_SP_NOT_HEX @
NON-HEXADECIMAL CHARACTERS FOUND IN STRING
*80051 @ KMT_SP_STRING_TOO_BIG @
KMT_SP_STRING_TOO_BIG
*@ ERROR HANDLER RESULTCODES @
*@ ************************* @
*80100 @ KMT_EH_ERROR_MSG @
<P2>
*80101 @ KMT_EH_SOFTWARE_ERROR @
AN UNRECOVERABLE SOFTWARE ERROR HAS OCCURED
*80102 @ KMT_EH_ICL_RESULT @
<>**** RC = <P2> RETURNED FROM PROCEDURE <CASE P1
THEN <*UNKNOWN*>,
<<P3>>
DEFAULT <<P3, HALT -1, P4>>
ESAC>
*@ DEVICE HANDLER RESULTCODES @
*@ ************************** @
*80150 @ KMT_DH_UNEXPECTED_BREAK_IN @
<>**** UNEXPECTED BREAK_IN EVENT ****
*80151 @ KMT_DH_UNEXPECTED_EVENT @
<>**** UNEXPECTED EVENT ****
*80152 @ KMT_DH_DATA_AVAILABLE @
KMT_DH_DATA_AVAILABLE
*80153 @ KMT_DH_QUEUE_EMPTY @
KMT_DH_QUEUE_EMPTY
*@ FILE HANDLER RESULTCODES @
*@ ************************ @
*80200 @ KMT_FH_RECORD_TOO_BIG @
<>**** MAXIMUM RECORD SIZE EXCEEDED, SIZE = <P2>, MAX SIZE = <P3>
*@ PACKET PROCESSOR RESULTCODES @
*@ **************************** @
*80250 @ KMT_PP_NO_INPUT_PACKET @
KMT_PP_NO_INPUT_PACKET
*80251 @ KMT_PP_UNSUPPORTED_PACKET_TYPE @
KMT_PP_UNSUPPORTED_PACKET_TYPE
*80252 @ KMT_PP_INVALID_PACKET_TYPE @
KMT_PP_INVALID_PACKET_TYPE
*80253 @ KMT_PP_INVALID_CHACKSUM @
KMT_PP_INVALID_CHECKSUM
*80254 @ KMT_PP_INVALID_PACKET_LENGTH @
KMT_PP_INVALID_PACKET_LENGTH
*80255 @ KMT_PP_RECORD_TOO_BIG @
<>**** MAXIMUM RECORD SIZE EXCEEDED, MAX SIZE = <P2>
*80256 @ KMT_PP_STRING_TOO_BIG @
<>**** MAXIMUM MESSAGE SIZE EXCEEDED, SIZE = <P2>, MAX SIZE = <P3>
*80257 @ KMT_PP_INVALID_CONFIG_PARAM @
INVALID CONFIGURATION PARAMETER
<CASE P2 <"MARK">,<"NPAD">,<"PADC">,<"EOL">,<"QCTL">,<"QBIN">,<> ESAC>,
VALUE = X"<HEX P3>"
<CASE P1 EQUALS <3>
THEN JP4
DEFAULT <>
ESAC>
*80258 @ KMT_PP_QBIN_AND_QCTL_EQUAL @
THE CONTROL-QUOTE AND EIGHTH-BIT-PREFIX CHARACTERS ARE EQUAL <HALT -1>
QBIN = X"<HEX P2>", REMOTE QCTL = X"<HEX P3>", LOCAL QCTL = X"<HEX P4>"
*80259 @ KMT_PP_QCTL_WARNING @
<>**** WARNING THE REMOTE QCTL CHARACTER X"<HEX P2>" WILL RESULT IN THE
CORRUPTION OF ANY X"<HEX P3>" CHARACTERS TO X"<HEX P2>"
*80260 @ KMT_PP_QBIN_REJECTED @
THE EIGHTH-BIT PREFIXING HAS BEEN REJECTED BY THE REMOTE SYSTEM
*80270 @ INVALID CONFIG PARAM REASONS@
(less than minimum packet length)
*80271
(too many PAD characters requested)
*80272
(not a control character)
*80273
(not a printable character)
*80274
(character not acceptable for VME I/O)
*80275
(not a valid character)
*80276
(same as START-OF-PACKET character)
*80277
(same as END-OF-LINE character)
*@ VME COMMAND ERRORS @
*85000 @ filenames not reqd @
<L>**** File names not required with <P1> option.
*85001 @ rem_file not reqd for Receive @
<L>**** Remote filename not required with Receive option.
*85010 @ vme_file mandatory for Send @
<L>**** Filename must be specified with Send option.
*85020 @ invalid option @
<L>**** <P1> is not a valid VME Kermit option.
*85030 @ terminated with fatal error @
<L>**** VME Kermit terminated due to fatal error.<L>
*85031 @ logging out vm on exit @
<L>Logging out.....!<L>
*85032 @ terminate with a new line @
<S1>
*@ USER INTERFACE (KMT_UI) MESSAGES @
*85820
<L>TRANSFER STATISTICS <HALT -1>
<S5>Packets in <P1,TAB40>Packets out <P2,HALT -1>
<S5>Retries <P3,TAB40>Timeouts <P4,HALT -1>
<S5>Records read <P5,TAB40>Records written <P6,HALT -1>
*85821
<L>GENERAL PARAMETERS <HALT -1>
<S5>Send delay (secs) <P1,TAB40>TX pause (10th sec) <P2,HALT -1>
<S5>Maximum retries <P3,HALT -1>
*85822
RECEIVE PARAMETERS <J85824>
*85823
SEND PARAMETERS <J85824>
*85824
<HALT -1>
<S5>Packet start X<HEX P1,TAB40>End of line X<HEX P6,HALT -1>
<S5>Packet length <P2, TAB40>Timeout (secs) <P3,HALT -1>
<S5>Padding <P4, TAB40>Pad character X<HEX P5,HALT -1>
<S5>Quote character <P7, TAB40>8th bit prefix <P8,HALT -1>
*85825
FILE PARAMETERS <HALT -1>
<S5>File type <CASE P1 <EBCDIC>,<ASCII>,<BINARY>,<UNKNOWN> ESAC>
<TAB40>Overwrite option <CASE P2 EQUALS
<1> THEN <OFF>,
<2> THEN <ON>
DEFAULT <UNKNOWN>
ESAC,HALT -1>
<S5>Incomplete <CASE P3 <DISCARD>,<KEEP> ESAC>
<TAB40>Naming <CASE P4 <UNTRANSLAED>,<NORMAL-FORM> ESAC,HALT -1>
*85826
TERMINAL PARAMETERS <HALT -1>
<S5>Input length <P1,TAB40>Output length <P2,HALT -1>
*85827
DEBUGGING PARAMETERS <HALT -1>
<S5>File <CASE P1 <OFF>,<ON> ESAC>
<TAB40>Protocol <CASE P2 <OFF>,<ON> ESAC,HALT -1>
<S5>Packet <CASE P3 <OFF>,<ON> ESAC>
<TAB40>Device <CASE P4 <OFF>,<ON> ESAC,HALT -1>
*@ USER INTERFACE (KMT_UI) ERROR MESSAGES @
*85910 @ invalid command @
<L>**** <P1> is not a valid VME Kermit command.
*85920 @ invalid parameter P2 @
<L>**** <P2> is not a valid <P1> command parameter.
*85921 @ invalid parameter P3 @
<L>**** <P3> is not a valid <P1> <P2> command parameter.
*85930 @ invalid option P3 @
<L>**** <P3> is not a valid <P1> <P2> command option.
*85931 @ invalid option P4 @
<L>**** <P4> is not a valid <P1> <P2> <P3> option.
*85932 @ command parameter missing @
<L>**** Command parameter missing.
*85933 @ QUOTE and EIGHTH-BIT-PREFIX characters equal @
<L>**** QUOTE and EIGHTH-BIT-PREFIX characters equal.
*85934 @ Padding and packet length combined exceeds device length @
<L>**** Padding plus packet length exceeds the device line length.
*85935 @ START-OF-PACKET/END-OF-LINE/PADC not a control character @
<L>**** <P1> <P2> <P3> parameter must be in range 0 - 31 or 127.
*85936 @ parameter not acceptable for VME I/O @
<L>**** <P2> <P3> parameter not acceptable for VME I/O.
*85937 @ conflict with another character @
<L>**** <P2> <P3> parameter conflicts with <P2>
<CASE P5 <START-OF-PACKET>,<END-OF-LINE>,<PAD>,<> ESAC> character.
*@ PROTOCOL HANDLER MESSAGES @
*87000 @ transfer cancelled by remote Kermit @
<L>File transfer cancelled by remote Kermit.
*87001 @ filename used by remote Kermit for sent file @
<L>File <P1> sent as <P2> to remote Kermit.
*87002 @ filename used by local Kermit for receive file @
<L>File <P1> stored as <P2> on VME Kermit.
*87010 @ error packet received, log details @
<L>Remote Kermit error: <HALT -1>
<P1>
*@ PROTOCOL HANDLER ERRORS @
*89000 @ unexpected pkt_no @
Unexpected packet number.
*89001 @ unexpected pkt_type @
Unexpected packet type.
*89010 @ Generic command failed @
Generic command "<P1>" failed.
*89011 @ Generic command not implemented/recognised @
Generic command "<P1>" not implemented.
*89020 @ Kermit command failed in Server mode @
Kermit command "<P1>" failed in Server mode.
*89021 @ Kermit command not implemented in Server mode @
Kermit command "<P1>" not implemented in Server mode.
*89022 @ No command in Kermit command packet @
No command found in Kermit command packet.
*89030 @ No filename in Rec_Init pkt @
No filename in Receive Init packet.
*89031 @ No filename in File_Hdr pkt @
No filename in File Header packet.
*89040 @ Unable to open Rec file @
Unable to open Receive file.
*89041 @ Unable to open Send file @
Unable to open Send file.
*89042 @ Unable to close Rec file @
Unable to close file received.
*89043 @ Unable to close Send file @
Unable to close Send file.
*89044 @ Unable to save Rec file @
Unable to save file received.
*89046 @ error writing to file @
Unable to write data to file.
*89047 @ error reading from file @
Unable to read data from file.
*89050 @ Retry count exceeded max_try.
Maximum retries exceeded.
*89060 @ Fatal error in Get_Packet @
Fatal I/O error: unable to read packet.
*89061 @ Fatal error in Send_Packet @
Fatal I/O error: unable to send packet.
*89070 @ their parameters unacceptable @
Initial parameters unacceptable.
*END @ KMT_SP_MTUP_MODULE @