;D:KERMIT.ACT
;<COMPILE THIS FILE>
; KERMIT protocol
; for Atari Home Computers
; version 1.2
; (C) 1984 John Howard Palevich
; to be distributed free of charge
;
;Started September 24, 1983

;Start code above T: and/or R:
;by compiling while those devices
;are in RAM.  There ought to be a
;better way!

MODULE

DEFINE MAXPACK = "94"

BYTE ARRAY
  RECPKT(MAXPACK),
  PACKET(MAXPACK),
  FILNAM,
  SBUF(2050)

DEFINE
  EOF = "-1",
  SOH = "1",
  CR = "13",

  MAXTRY = "5",
  MYQUOTE = "'#",
  TRUE = "1",
  FALSE = "0"

BYTE
  LMARGN = $52,;OS LEFT MARGIN
  CH = 764,    ;OS CH VARIABLE
  RTCLOCK = 20,;OS CLOCK IN JIFFYS
  CRSINH = $2F0, ;OS CURSOR INHIBIT FLAG
  BACKS,       ;CHAR TO SEND FOR BACK S
  baud,        ;baud rate variable
  dial,        ;nz for tone dialing
  DISKN,       ;DEFAULT DISK
  DNUM,        ;port num
  localecho,   ;local echo flag
  PARITY,      ;communication parity
  ERRORNUM,    ;ERROR NUMBER
  debug,       ;debugging flag

  STATE,
  PADCHAR,
  EOL,
  QUOTE

INT
  SIZE,
  N,
  RPSIZ,
  SPSIZ,
  PAD,
  TIMINT,
  NUMTRY,
  OLDTRY,
  FD,
  REMFD,
  IMAGE,
  HOST

INCLUDE "D:KIO.ACT"

; This is where KCOM#.ACT is
;included.  Include the KCOM file
;which matches the comunications
;device and/or modem you wish to use.
;
; For an 850 and a Hayes SmartModem,
;include KCOM850.ACT
;
; For the ATARI 1050,
;include KCOM1050.ACT
;
; For any other set of devices, write
;your own KCOM functions, and include
;that file here.

INCLUDE "D:KCOM850.ACT"

INCLUDE "D:KFUNC.ACT"
INCLUDE "D:KPRO.ACT"
INCLUDE "D:KTTY.ACT"
INCLUDE "D:KMENU.ACT"

; --- END OF D:KERMIT.ACT ---