home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
computervision.tar.gz
/
computervision.tar
/
kermit.make
< prev
next >
Wrap
Text File
|
1987-02-19
|
3KB
|
111 lines
* 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