* 16 sep 86 cdo; copied to the byu catalog
* 12 sep 85 esj  changed loadsym to janmake.symfile.universe
* 26 aug 85 esj  added loadlib.kermit and globals dodotct and lclchq
*  6 aug 85 esj  birthday
*---------------------< cvcommand.make.command.kermit >---------------------
*
*
*
*load symbol files & insert equate files
*---------------------------------------
loadsym janmake.symfile.universe
*
*
*
*define object code block
*------------------------
equ &blksiz 3000
equ &blktop &command+&blksiz
*
*
*
*define common area (globals) block
*----------------------------------
equ &gvsiz 2000
equ &gvtop &blktop+&gvsiz
*
*
*
*define misc: sort buffers or temp buffer.......
*-----------------------------------------------
equ   &remspac     &cortop - &gvtop - 100
if &remspac  > 1000
      equ &arraysz 1000
else
      equ &arraysz &remspac
endc
*
*
*
*define start : code is loaded from
*----------------------------------
cororg &command
*
*
*
block &gvtop,&cortop  ;(misc area)
*---------------------------------
*
*
*
block &blktop,&gvtop ;(common area)
*----------------------------------
print " loading globals "

global fd(100), ifd(100), ifdflg(1)
global delay(1), eol(1), eschar(1), filname(85), hoston(1)
global ibmon(1), maxtry(1), myeol(1)
global mypad(1), mypchar(1), myquote(1), n(1), numtry(1)
global oldtry(1), packet(85), pad(1), padchar(1), paksiz(1)
global parity(1), prompt(1), quote(1), recpkt(85)
global rmtdev(2), localdev(2)
global rmttty(85), rpsiz(1), sbaud(1), size(1)
global soh(1), sparity(1), speed(1), sport(1), spsiz(1), state(1)
global venqack(1), vxonxoff(1)
global xnew(1), xcount(1), xeof(1)
global tpname(84), timeout(2), dodotct(1), lclchq(1001)
*
block &command,&blktop ;(object code block)
*------------------------------------------

print " loading code "
*
calltv kmain
*
* MUST BE INCLUDED WITH EVERY SUBMISSION!
insert byu.prog.kermit.version-log
*
*load subroutines
*-----------------------------------------
load byu.prog.kermit/kmain, bufemp, bufill, chtoin, ctl, ctoi
load byu.prog.kermit/ibmgetln, kgetlin
load byu.prog.kermit/pack, parser, putlin, rdata
load byu.prog.kermit/recsw, rfile, rinit
load byu.prog.kermit/rpack, rpar, sbreak
load byu.prog.kermit/scopy, sdata, sendsw, seof
load byu.prog.kermit/setcook, setport, setraw
load byu.prog.kermit/sinit, spack, spar
load byu.prog.kermit/squit, sreceive, nextfile
load byu.prog.kermit/text-file-io, tgetch, tochar, tputch, un&pack
load byu.prog.kermit/unchar, sfile, shelp, dodot
load byu.prog.kermit/sconnect, ssend, sset, sstatus, xdelay

*load all undefined referenced subroutines
*-----------------------------------------

print " loading loadlibs "

lib byu.prog.kermit.loadlib.kermit
lib loadlib.oslib
*
*
*
*define: referencing command name or dloc
*----------------------------------------
if debug = -1
   filename kermee
else
   filename =cvscommand.kermit
endc
cwrite &blksiz,&command,&cortop