home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / rt11pascal / rtkerm.com < prev    next >
Text File  |  1984-05-21  |  853b  |  82 lines
  1. R PASCAL 
  2. TEMP.TMP=EDLOG,OPT,KERMIT
  3. R IMP
  4. TEMP.TMP=TEMP.TMP
  5. R MACRO
  6. KERMIT=TEMP.TMP
  7. 
  8. !
  9. R PASCAL 
  10. TEMP.TMP=GLOBAL,OPT,KPROC
  11. R IMP
  12. TEMP.TMP=TEMP.TMP
  13. R MACRO
  14. KPROC=TEMP.TMP
  15. 
  16. !
  17. R PASCAL 
  18. TEMP.TMP=GLOBAL,OPT,KTIME
  19. R IMP
  20. TEMP.TMP=TEMP.TMP
  21. R MACRO
  22. KTIME=TEMP.TMP
  23. 
  24. !
  25. R PASCAL 
  26. TEMP.TMP=GLOBAL,OPT,KINIT
  27. R IMP
  28. TEMP.TMP=TEMP.TMP
  29. R MACRO 
  30. KINIT=TEMP.TMP
  31. 
  32. !
  33. R PASCAL 
  34. TEMP.TMP=GLOBAL,KEXT,OPT,KSEND
  35. R IMP
  36. TEMP.TMP=TEMP.TMP
  37. R MACRO
  38. KSEND=TEMP.TMP
  39. 
  40. !
  41. R PASCAL 
  42. TEMP.TMP=OPT,KLINE
  43. R IMP
  44. TEMP.TMP=TEMP.TMP
  45. R MACRO
  46. KLINE=TEMP.TMP
  47. 
  48. !
  49. R PASCAL 
  50. TEMP.TMP=GLOBAL,KEXT,OPT,KRECV
  51. R IMP
  52. TEMP.TMP=TEMP.TMP
  53. R MACRO
  54. KRECV=TEMP.TMP
  55. 
  56. !
  57. R PASCAL 
  58. TEMP.TMP=GLOBAL,OPT,KPARSE
  59. R IMP
  60. TEMP.TMP=TEMP.TMP
  61. R MACRO
  62. KPARSE=TEMP.TMP
  63. 
  64. !
  65. ! LINK 
  66. !
  67. R LINK
  68. KERMIT,KERMIT=KERMIT,KPROC,PASCAL/T//
  69. KLINE
  70. KTIME
  71. KINIT/O:1
  72. KSEND/O:1
  73. KRECV/O:1
  74. KPARSE/O:1
  75. //
  76. $START
  77. 
  78. !
  79. ! diddle USR address
  80. !
  81. @USR
  82.