home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / computervision / kermit.kmain < prev    next >
Text File  |  2020-01-01  |  2KB  |  74 lines
  1. ; 15-AUG-85 MVI: CHANGED NO IOFLAG VALUE FROM 0 TO -1.
  2. ;  7 aug 85 dg/esj added no wait io support
  3. ; 17 jly 85 esj converted
  4. ;;;;;;;;;;;;;;    KMAIN       ;;;;;;;;;;;;;;;;;;;;;;;
  5. ;
  6.       E'F A:S(NWLS)
  7.       E'O KMAIN.
  8.  
  9. ;     CGOS-KERMIT MAIN PROGRAM
  10.  
  11. ;     CGOS KERMIT was converted from hp1000 kermit
  12. ;     guilty parties:   esj, lec, pcc
  13. ;     cohort in crime:  mvi
  14.  
  15. ;     HP1000 KERMIT was implemented by John Lee of RCA Laboratories
  16. ;     6/29/84
  17.  
  18. ;     Permission is granted to any individual or instution to copy
  19. ;     or use this program, except for explicitly commerical purpose.
  20.  
  21.  
  22. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERCOM
  23. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
  24.  
  25.  
  26.       G'L VENQACK,VXONXOFF
  27.       G'L VERNUM
  28.  
  29.  
  30. *     FORMATS TRANSFORMED TO V:S
  31.       V'S F99   =  $ CGOS KERMIT Version!$
  32.       V'S F100  =  $ Remote Host KERMIT mode now in effect!$
  33.  
  34.       DELAY = 15           ; 15 SECONDS
  35.       EOL = 13             ; CR
  36.       ESCHAR = 29          ; CNTR-]
  37.       HOSTON = YES         ; we are running in Remote Host mode
  38.       IBMON = NO
  39.  
  40. ;     set up no wait io for terminal io
  41.       LOCALDEV = $SD$      ; default comdev
  42.       LOCALDEV(1) = -1     ; no io flag yet
  43.       RMTDEV   = $SD$      ; default kermit device name since we wake up in
  44.       RMTDEV(1)   = -1     ; no io flag yet
  45.       MAXTRY = 5           ; remote mode
  46.       MYEOL = 13
  47.       MYPAD = 0
  48.       MYPCHAR = 0
  49.       MYQUOTE = 35
  50.       PAD = 0
  51.       PADCHAR = 0
  52.       PAKSIZ = 80
  53.       PROMPT = 17           ;DC1, IBM MODE ONLY
  54.       QUOTE = 35
  55.       SOH = 1
  56.       STATE = BIGC
  57.       SPARITY = NO
  58.       SBAUD = NO
  59.       SPORT = YES
  60.       VXONXOFF = 1     ;set XON/XOFF enabled
  61.       VENQACK = 0      ;set ENQ/ACK disabled
  62. ;
  63.  
  64.  
  65. ;     determine whether we are running in Remote or Local KERMIT mode
  66.       HOSTON  =  YES             ;remote kermit in effect
  67.       E:E TYPMSG.(F99)
  68.       E:E TYPEMSG.(VERNUM)
  69.       E:E TYPEMSG.(F100)
  70.  
  71.       E'E PARSER.
  72.       F'N
  73.       E'N
  74.