home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / computervision / kermit.shelp < prev    next >
Text File  |  2020-01-01  |  2KB  |  89 lines
  1. ; 18 aug 85 esj replaced s.e.fm.error.uil with kerdef
  2. ; 31 jly 85 esj created
  3. ;---------------------------------------< shelp >---------------------------
  4.    E'F A:S(NWLS)
  5.    E'O SHELP.
  6. ;---------------------------------------------------------------------------
  7. ;
  8. ;  Purpose
  9. ;  Print out the help file for kermit.
  10.  
  11. ;  Input
  12. ;  none
  13.  
  14. ;  Output
  15. ;  none
  16.  
  17. ;  Globals
  18. ;  none
  19.  
  20. ; Inserts
  21. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
  22. /INCLUDE SYM.EQU.FM.OPEN
  23. /INCLUDE SYM.EQU.FM.BASIC
  24. /INCLUDE SYM.EQU.FM.READ
  25.  
  26. ;  Local static
  27.    V'S HELPNAME = 31,$=SYSNEWS.CVCOMMAND.&BCD.KERMIT!$
  28.  
  29.    V'S TXTSPEC =  03,
  30. 1                 %CATLOG,%%SEARCH,
  31. 1                 %FORMAT , %%TEXT,
  32. 1                 %RTNERR
  33.  
  34.    V'S RDSPC =    02,
  35. 1                 %RTNERR,
  36. 1                 %RETURN,1,
  37. 1                       %%BYTCNT
  38.  
  39.  
  40.    V'S CLOSPC =   1,
  41. 1                 %RTNERR
  42.  
  43.  
  44. ;  Local dynamic
  45.    I'R CH               ; channel holder
  46.    I'R LINE(100)        ; line buffer
  47.    I'R OTSPC(9)         ;
  48.    I'R STATUS(1)        ; FM error code
  49.  
  50.  
  51. ;----------------------------------< start of code >------------------------
  52.  
  53. *  Set to no error
  54.       STATUS = STATUS(1) = FM%NOERR
  55.  
  56.       ; call the fm and try to open the help file
  57.       E'E F&OPEN.(%OREAD   ,
  58. 1                 %IDFILNM ,
  59. 1                 HELPNAME ,
  60. 1                 TXTSPEC  ,
  61. 1                 CH       ,
  62. 1                 OTSPC    ,
  63. 1                 STATUS   )
  64.  
  65. #     E'E HEXDMP.(1,1,1,STATUS)
  66.  
  67. ;     type out contents of file
  68.       W'R STATUS .E. FM%NOERR
  69. ;        if open status is ok, print till eof
  70.          R'T
  71.            E'E F&READ.(CH       ,
  72. 1                       1        ,
  73. 1                       LINE     ,
  74. 1                       RDSPC    ,
  75. 1                       OTSPC    ,
  76. 1                       STATUS   )
  77.  
  78. #          E'E HEXDMP.(1,1,1,STATUS)
  79.             W'R STATUS .NE. FM%NOERR, B'K
  80.  
  81.             E'E TYPE.(OTSPC(3),LINE)
  82.          F'R
  83.       E'L
  84.  
  85.       E'E F&CLOSE.(CH, CLOSPC, STATUS)
  86.  
  87.       F'N STATUS
  88.       E'N
  89.