home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / extra / perkin.etc < prev    next >
Text File  |  2020-01-01  |  5KB  |  166 lines
  1. -----------------------CONKER.ETC----------------------------
  2.  -- These are miscellaneous files required for compiling and
  3.     running Kermit-CO  under OS/32, on Concurrent Computer Corp.
  4.     3200-series computers.
  5.  -- Edit these into seperate files, using names on dashed lines.
  6.      (Refer to file  CONKER.DOC for further info.)
  7. ------------------------KERMLINK.CSS-------------------------
  8. $BUILD LINK.CMD
  9. ESTABLISH TASK
  10. OPTION FLOAT,DFLOAT,ROLL,NAFP,XSVC1,LU=33,ABS=300
  11. OPTION SYS=X10000,WORK=(XF00,X16000),COM,CON,IOBLOCKS=4
  12. MAP NULL:
  13. IN KERMIT
  14. LIBRARY SYS:F7RTL51.OBJ/S
  15. BU KERMIT.TSK
  16. END
  17. $ENDB
  18. XDEL KERMIT.TSK
  19. REP LINK.CMD,0
  20. LO .BG,LINK,50;T .BG
  21. START ,COM=LINK.CMD,LOG=CON:
  22. $IFNE 0
  23. $WRITE **@0: ERRORS DETECTED DURING ESTABLISHMENT
  24. $CLEAR
  25. $ENDC
  26. $EXIT
  27. --------------------------KERMIT.CSS--------------------------
  28. *****KERMIT CSS For Concurrent-OS/32
  29. *  Note:  Kermit.tsk and Kermit.hlp are usually best
  30. *         installed on a group account; their references
  31. *         here should be modified accordingly.  This .CSS
  32. *         can then be installed on a System account for
  33. *         universal access.
  34. ENA TYP
  35. PRE ETM
  36. PRE PROMPT
  37. PRE MESSAGE
  38. LOAD KERMIT
  39. AS 1,CON:
  40. AS 2,CON:
  41. AS 15,KERMIT.HLP
  42. $IFNULL @1;$GOTO RUN1;$ENDC
  43. AS 16,@1
  44. $LABEL RUN1
  45. START
  46. ENA MESSAGE
  47. XDE MOREFILE
  48. $EXIT
  49. C------------------------- KERDEF ---------------------
  50. C     DEFINES VARIOUS CONSTANTS FOR KERMIT-CO
  51.       PARAMETER (AMPER=38)
  52.       PARAMETER (ATSIGN=64)
  53.       PARAMETER (BACKSLASH=92)
  54.       PARAMETER (BACKSPACE=8)
  55.       PARAMETER (BAD=-3)
  56.       PARAMETER (BANG=33)
  57.       PARAMETER (BAR=124)
  58.       PARAMETER (BIGA=65)
  59.       PARAMETER (BIGB=66)
  60.       PARAMETER (BIGC=67)
  61.       PARAMETER (BIGD=68)
  62.       PARAMETER (BIGE=69)
  63.       PARAMETER (BIGF=70)
  64.       PARAMETER (BIGG=71)
  65.       PARAMETER (BIGH=72)
  66.       PARAMETER (BIGI=73)
  67.       PARAMETER (BIGJ=74)
  68.       PARAMETER (BIGK=75)
  69.       PARAMETER (BIGL=76)
  70.       PARAMETER (BIGM=77)
  71.       PARAMETER (BIGN=78)
  72.       PARAMETER (BIGO=79)
  73.       PARAMETER (BIGP=80)
  74.       PARAMETER (BIGQ=81)
  75.       PARAMETER (BIGR=82)
  76.       PARAMETER (BIGS=83)
  77.       PARAMETER (BIGT=84)
  78.       PARAMETER (BIGU=85)
  79.       PARAMETER (BIGV=86)
  80.       PARAMETER (BIGW=87)
  81.       PARAMETER (BIGX=88)
  82.       PARAMETER (BIGY=89)
  83.       PARAMETER (BIGZ=90)
  84.       PARAMETER (BLANK=32)
  85.       PARAMETER (CARET=94)
  86.       PARAMETER (COLON=58)
  87.       PARAMETER (COMMA=44)
  88.       PARAMETER (CR=13)
  89.       PARAMETER (DEL=127)
  90.       PARAMETER (DIG0=48)
  91.       PARAMETER (DIG1=49)
  92.       PARAMETER (DIG2=50)
  93.       PARAMETER (DIG3=51)
  94.       PARAMETER (DIG4=52)
  95.       PARAMETER (DIG5=53)
  96.       PARAMETER (DIG6=54)
  97.       PARAMETER (DIG7=55)
  98.       PARAMETER (DIG8=56)
  99.       PARAMETER (DIG9=57)
  100.       PARAMETER (DIGIT=2)
  101.       PARAMETER (DOLLAR=36)
  102.       PARAMETER (DQUOTE=34)
  103.       PARAMETER (EOF=10003)
  104.       PARAMETER (EOS=10002)
  105.       PARAMETER (HUGE=30000)
  106.       PARAMETER (LETA=97)
  107.       PARAMETER (LETB=98)
  108.       PARAMETER (LETC=99)
  109.       PARAMETER (LETD=100)
  110.       PARAMETER (LETE=101)
  111.       PARAMETER (LETF=102)
  112.       PARAMETER (LETG=103)
  113.       PARAMETER (LETH=104)
  114.       PARAMETER (LETI=105)
  115.       PARAMETER (LETJ=106)
  116.       PARAMETER (LETK=107)
  117.       PARAMETER (LETL=108)
  118.       PARAMETER (LETM=109)
  119.       PARAMETER (LETN=110)
  120.       PARAMETER (LETO=111)
  121.       PARAMETER (LETP=112)
  122.       PARAMETER (LETQ=113)
  123.       PARAMETER (LETR=114)
  124.       PARAMETER (LETS=115)
  125.       PARAMETER (LETT=116)
  126.       PARAMETER (LETU=117)
  127.       PARAMETER (LETV=118)
  128.       PARAMETER (LETW=119)
  129.       PARAMETER (LETX=120)
  130.       PARAMETER (LETY=121)
  131.       PARAMETER (LETZ=122)
  132.       PARAMETER (LF=10)
  133.       PARAMETER (NO=0)
  134.       PARAMETER (OK=-2)
  135.       PARAMETER (PERCENT=37)
  136.       PARAMETER (PERIOD=46)
  137.       PARAMETER (PLUS=43)
  138.       PARAMETER (QMARK=63)
  139.       PARAMETER (SEMICOL=59)
  140.       PARAMETER (SHARP=35)
  141.       PARAMETER (SLASH=47)
  142.       PARAMETER (SQUOTE=39)
  143.       PARAMETER (STAR=42)
  144.       PARAMETER (STDOUT=1)
  145.       PARAMETER (TAB=9)
  146.       PARAMETER (TILDE=126)
  147.       PARAMETER (UNDERLINE=95)
  148.       PARAMETER (YES=1)
  149. C.....Added 4/1/86
  150.       PARAMETER (TXTFILE=1)      ; Ascii/Text  File
  151.       PARAMETER (BINFILE=2)      ; Binary/Image File
  152.       PARAMETER (CONFILE=3)      ; Contiguous/Image file
  153.       PARAMETER (LDELIM=10004)   ; Line Delimiter (DGETCH)
  154.  
  155. C-------------------------  KERCOM  ---------------------------
  156.       IMPLICIT INTEGER*2 (A-Z)
  157.       DIMENSION FILNAME(264),PACKET(132),RECPKT(132),RMTTTY(132)
  158.       COMMON /KER/ DELAY,EOL,ESCHAR,FD,FILNAME,HOSTON,
  159.      +   IBMON,LOCALINFD,LOCALOUTFD,LOCALSLU,MAXTRY,MOREFD,MYEOL,
  160.      +   MYPAD,MYPCHAR,MYTIMOUT,MYQUOTE,MYQUOT8B,Q8BCHR,N,NUMTRY,
  161.      +   OLDTRY,PACKET,PAD,PADCHAR,PAKSIZ,PARITY,PROMPT,TIMEOUT,
  162.      +   QUOTE,QUOT8B,RECPKT,RMTINFD,RMTOUTFD,RMTTTY,RPSIZ,SBAUD,SIZE,
  163.      +   SOH,SPARITY,SPEED,SPORT,SPSIZ,SPSIZADJ,STATE,DEBUGON,
  164.      +  TMode,FMode,FNamChek,FNamChng,SendEOR
  165. ------------------End-of-KERMCON.ETC---------------------------
  166.