home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / computervision / kermit.make < prev    next >
Text File  |  2020-01-01  |  3KB  |  111 lines
  1. * 16 sep 86 cdo; copied to the byu catalog
  2. * 12 sep 85 esj  changed loadsym to janmake.symfile.universe
  3. * 26 aug 85 esj  added loadlib.kermit and globals dodotct and lclchq
  4. *  6 aug 85 esj  birthday
  5. *---------------------< cvcommand.make.command.kermit >---------------------
  6. *
  7. *
  8. *
  9. *load symbol files & insert equate files
  10. *---------------------------------------
  11. loadsym janmake.symfile.universe
  12. *
  13. *
  14. *
  15. *define object code block
  16. *------------------------
  17. equ &blksiz 3000
  18. equ &blktop &command+&blksiz
  19. *
  20. *
  21. *
  22. *define common area (globals) block
  23. *----------------------------------
  24. equ &gvsiz 2000
  25. equ &gvtop &blktop+&gvsiz
  26. *
  27. *
  28. *
  29. *define misc: sort buffers or temp buffer.......
  30. *-----------------------------------------------
  31. equ   &remspac     &cortop - &gvtop - 100
  32. if &remspac  > 1000
  33.       equ &arraysz 1000
  34. else
  35.       equ &arraysz &remspac
  36. endc
  37. *
  38. *
  39. *
  40. *define start : code is loaded from
  41. *----------------------------------
  42. cororg &command
  43. *
  44. *
  45. *
  46. block &gvtop,&cortop  ;(misc area)
  47. *---------------------------------
  48. *
  49. *
  50. *
  51. block &blktop,&gvtop ;(common area)
  52. *----------------------------------
  53. print " loading globals "
  54.  
  55. global fd(100), ifd(100), ifdflg(1)
  56. global delay(1), eol(1), eschar(1), filname(85), hoston(1)
  57. global ibmon(1), maxtry(1), myeol(1)
  58. global mypad(1), mypchar(1), myquote(1), n(1), numtry(1)
  59. global oldtry(1), packet(85), pad(1), padchar(1), paksiz(1)
  60. global parity(1), prompt(1), quote(1), recpkt(85)
  61. global rmtdev(2), localdev(2)
  62. global rmttty(85), rpsiz(1), sbaud(1), size(1)
  63. global soh(1), sparity(1), speed(1), sport(1), spsiz(1), state(1)
  64. global venqack(1), vxonxoff(1)
  65. global xnew(1), xcount(1), xeof(1)
  66. global tpname(84), timeout(2), dodotct(1), lclchq(1001)
  67. *
  68. block &command,&blktop ;(object code block)
  69. *------------------------------------------
  70.  
  71. print " loading code "
  72. *
  73. calltv kmain
  74. *
  75. * MUST BE INCLUDED WITH EVERY SUBMISSION!
  76. insert byu.prog.kermit.version-log
  77. *
  78. *load subroutines
  79. *-----------------------------------------
  80. load byu.prog.kermit/kmain, bufemp, bufill, chtoin, ctl, ctoi
  81. load byu.prog.kermit/ibmgetln, kgetlin
  82. load byu.prog.kermit/pack, parser, putlin, rdata
  83. load byu.prog.kermit/recsw, rfile, rinit
  84. load byu.prog.kermit/rpack, rpar, sbreak
  85. load byu.prog.kermit/scopy, sdata, sendsw, seof
  86. load byu.prog.kermit/setcook, setport, setraw
  87. load byu.prog.kermit/sinit, spack, spar
  88. load byu.prog.kermit/squit, sreceive, nextfile
  89. load byu.prog.kermit/text-file-io, tgetch, tochar, tputch, un&pack
  90. load byu.prog.kermit/unchar, sfile, shelp, dodot
  91. load byu.prog.kermit/sconnect, ssend, sset, sstatus, xdelay
  92.  
  93. *load all undefined referenced subroutines
  94. *-----------------------------------------
  95.  
  96. print " loading loadlibs "
  97.  
  98. lib byu.prog.kermit.loadlib.kermit
  99. lib loadlib.oslib
  100. *
  101. *
  102. *
  103. *define: referencing command name or dloc
  104. *----------------------------------------
  105. if debug = -1
  106.    filename kermee
  107. else
  108.    filename =cvscommand.kermit
  109. endc
  110. cwrite &blksiz,&command,&cortop
  111.