home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / computervision / kermit.sset < prev    next >
Text File  |  2020-01-01  |  7KB  |  215 lines
  1. ; 16 jly 85 pcc allow the port attached by select line start with non-alpha
  2. ;               characters.
  3. ; 26 jly 85 esj attach to port on set line <XXXX> command
  4. ; 24 jly 85 esj fix setup port selection
  5. * 16-Jul-85 LEC; tpl conversion, parsing.
  6. ;----------------------------------------< sset >----------------------------
  7.       E:F
  8.       E'O SSET.(X)
  9. ;----------------------------------------------------------------------------
  10. ;
  11. ; Purpose
  12. ;     parse and set various selectable parameters
  13.  
  14. ; Input
  15. ;  none
  16.  
  17. ; Output
  18. ;  none
  19.  
  20. ; Inserts
  21. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERCOM
  22. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
  23.  
  24. ; Globals
  25.    G:L CHAR
  26.  
  27. ; Local storage
  28.    I:R OPTION(4),KEYWORD(4),X
  29.    I'R UNITNUM(1)
  30.  
  31. ;---------------------------< start of code >-------------------------------
  32. ;     grab option to set
  33.       E:E IDENT.(OPTION)
  34.  
  35.       W'R COMPNAM.(OPTION,$BAUD    $).E.0
  36.          E:E TYPEMSG.($Baud rate setting not supported!$)
  37.  
  38.       O'R COMPNAM.(OPTION,$DELAY   $).E.0
  39.          W'R (HOSTON.EQ.NO)
  40.             E:E TYPEMSG.($Delay setting not valid in Local Host mode!$)
  41.             F'N
  42.          E'L
  43.          E:E INT.(X)
  44.          W'R (X.LT.0)
  45.             E:E TYPEMSG.($Invalid delay setting!$)
  46.             F'N
  47.          O'R(X.GT.30)
  48.             E:E TYPEMSG.($Delay setting too long!$)
  49.             E:E TYPEMSG.($defaulted to 30 seconds!$)
  50.             DELAY=30
  51.             F'N
  52.          O'E
  53.             DELAY=X
  54.             F'N
  55.          E'L
  56.       O'R COMPNAM.(OPTION,$PARITY  $).E.0
  57.          E:E TYPEMSG.($Parity setting not supported.!$)
  58.  
  59.       O'R COMPNAM.(OPTION,$IBM     $).E.0              ;set IBM
  60.          W'R (HOSTON.EQ.YES)
  61.             E:E TYPEMSG.($SET IBM ON/OFF not supported in!$)
  62.             E:E TYPEMSG.($Remote Host mode!$)
  63.             F'N
  64.          O:E
  65.             E:E IDENT.(KEYWORD)
  66.             W'R COMPNAM.(KEYWORD,$ON      $).E.0
  67.                IBMON=YES                   ;set IBM flag ON
  68.             O'R COMPNAM.(KEYWORD,$OFF     $).E.0
  69.                IBMON=NO               ;set IBM flag OFF
  70.             O'E
  71.                E:E TYPEMSG.($Invalid SET IBM mode selected!$)
  72.                F'N
  73.             E'L
  74.          E:L
  75.       O'R COMPNAM.(OPTION,$ESCAPE  $).E.0              ;set escape
  76.          W'R (HOSTON.EQ.YES)
  77.             E:E TYPEMSG.($Escape setting not valid in!$)
  78.             E:E TYPEMSG.($Remote Host mode!$)
  79.             F'N
  80.          O:E
  81.             E:E INT.(X)
  82.             W'R ((X.GT.0).AND.(X.LT.32))
  83.                ESCHAR=X
  84.             O'E
  85.                E:E TYPEMSG.($Escape character must be between 0 & 32!$)
  86.                F'N
  87.             E'L
  88.          E:L
  89.       O'R COMPNAM.(OPTION,$LINE    $).E.0           ;set remote line
  90.  
  91.          W'R (SPORT.EQ.YES)          ;is set line supported ??
  92.             I = 0
  93. ;           fill keyword with blanks to set things up
  94.             E:E FILLCHRT.(8,$ $,KEYWORD,0)
  95.  
  96. ;           grab next 8 char. can't use ident because any char is
  97. ;           legal for a device name!
  98.             W:E (CHAR.NE.0) .AND. (CHAR.NE.$ $) .AND. (I.L.8)
  99.                E:E STCHRT.(CHAR,KEYWORD,I)
  100.                E:E NXTCHAR.(0)
  101.                I .INCR. 1
  102.             E:W
  103.  
  104.             W:R CHAR .E. $ $, E:E NXTCHAR.(1)
  105.             W:R COMPNAM.(KEYWORD,$COMDEV  $).E.0
  106.                RMTDEV = $SD$
  107.                HOSTON = YES
  108.                E'E DETACH.($KM$)
  109.             O:E
  110. ;              connect to the port indicated by the word following LINE
  111. #              E'E HEXDMP.(0,4,0,KEYWORD)
  112.                E'E UNBYUNM.( UNITNUM(1), KEYWORD)
  113.                W'R UNITNUM(1) .E. -1
  114.                   E'E TYPOUT.(4,KEYWORD)
  115.                   E'E TYPEMSG.($ does not exist.!$)
  116.                O'E
  117. ;                 if the port exists, attach to it.
  118. #                 E'E HEXDMP.(0,4,0,KEYWORD)
  119.                   UNITNUM = -1
  120. #                 E'E HEXDMP.(1,2,1,UNITNUM)
  121. ;                 detach from kermit device before attaching another
  122.                   E'E DETACH.($KM$)
  123.  
  124. ;                 now attach to the device
  125.                   W'R ATTACH.($KM$, UNITNUM) .E. 1
  126.                      RMTDEV = $KM$
  127.                      HOSTON = NO
  128.                      E'E TYPOUT.(4,KEYWORD)
  129.                      E'E TYPEMSG.($ is connected.!$)
  130.                   O'E
  131.                      E'E TYPOUT.(4,KEYWORD)
  132.                      E'E TYPEMSG.($ is not available for connection.!$)
  133. #                    E'E HEXDMP.(0,4,0,KEYWORD)
  134.                   E'L
  135.                E'L
  136.             E:L
  137.             F'N
  138.          O'E
  139.             E:E TYPEMSG.($SET remote line is not supported!$)
  140.             F'N
  141.          E'L
  142.  
  143.       O'R COMPNAM.(OPTION,$PROMPT  $).E.0
  144.          W'R (HOSTON.EQ.YES)
  145.             E:E TYPEMSG.($SET IBM PROMPT not valid!$)
  146.             E:E TYPEMSG.($In Remote Host mode!$)
  147.             F'N
  148.          O:E
  149.             E:E INT.(X)
  150.             W'R ((X.EQ.EOL).OR.(X.EQ.SOH))
  151.                E:E TYPEMSG.($Invalid;  in conflict with EOL or SOH!$)
  152.                F'N
  153.             O'E
  154.                W'R ((X.GT.0).AND.(X.LT.32))
  155.                   PROMPT=X
  156.                E:L
  157.             E'L
  158.          E:L
  159.       O'R COMPNAM.(OPTION,$PACKET  $).E.0
  160.          E:E INT.(X)
  161.          W'R ((X.GT.30).AND.(X.LT.95))
  162.             PAKSIZ=X
  163.             F'N
  164.          O'E
  165.             E:E TYPEMSG.($Invalid Packet size specifiecd!$)
  166.             F'N
  167.          E'L
  168.       O'R COMPNAM.(OPTION,$SOH     $).E.0
  169.          E:E INT.(X)
  170.          W'R (HOSTON.EQ.YES)
  171.             W'R (X.EQ.EOL)
  172.                E:E TYPEMSG.($Invalid; in conflict with EOL!$)
  173.                F'N
  174.             O'E
  175.                W'R ((X.GT.0).AND.(X.LT.32))
  176.                   SOH=X
  177.                   F'N
  178.                O'E
  179.                   E:E TYPEMSG.($Invalid; SOH must be between 0 & 32!$)
  180.                   F'N
  181.                E'L
  182.             E'L
  183.          O'E
  184.             W'R ((X.EQ.EOL).OR.(X.EQ.PROMPT))
  185.                E:E TYPEMSG.($Invalid; in conflict with EOL!$)
  186.                E:E TYPEMSG.($or IBM prompt!$)
  187.                F'N
  188.             O'E
  189.                W'R ((X.GT.0).AND.(X.LT.32))
  190.                   SOH=X
  191.                   F'N
  192.                O'E
  193.                   E:E TYPEMSG.($Invalid; SOH must be between!$)
  194.                   E:E TYPEMSG.($0 & 32!$)
  195.                   F'N
  196.                E'L
  197.             E'L
  198.          E'L
  199.       O'R COMPNAM.(OPTION,$QUOTE   $).E.0
  200.          E:E INT.(X)
  201.          W'R ((X.GT.32).AND.(X.LT.127))
  202.             MYQUOTE=X
  203.             F'N
  204.          O'E
  205.             E:E TYPEMSG.($QUOTE character must be between!$)
  206.             E:E TYPEMSG.($32 & 127!$)
  207.             F'N
  208.          E'L
  209.       O'E
  210.          E:E TYPEMSG.($Invalid SET parameter(s) detected!$)
  211.          F'N
  212.       E'L
  213.       F'N
  214.       E:N
  215.