*@ 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                    @