home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
computervision.tar.gz
/
computervision.tar
/
kermit.shelp
< prev
next >
Wrap
Text File
|
1987-02-19
|
2KB
|
89 lines
; 18 aug 85 esj replaced s.e.fm.error.uil with kerdef
; 31 jly 85 esj created
;---------------------------------------< shelp >---------------------------
E'F A:S(NWLS)
E'O SHELP.
;---------------------------------------------------------------------------
;
; Purpose
; Print out the help file for kermit.
; Input
; none
; Output
; none
; Globals
; none
; Inserts
/INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
/INCLUDE SYM.EQU.FM.OPEN
/INCLUDE SYM.EQU.FM.BASIC
/INCLUDE SYM.EQU.FM.READ
; Local static
V'S HELPNAME = 31,$=SYSNEWS.CVCOMMAND.&BCD.KERMIT!$
V'S TXTSPEC = 03,
1 %CATLOG,%%SEARCH,
1 %FORMAT , %%TEXT,
1 %RTNERR
V'S RDSPC = 02,
1 %RTNERR,
1 %RETURN,1,
1 %%BYTCNT
V'S CLOSPC = 1,
1 %RTNERR
; Local dynamic
I'R CH ; channel holder
I'R LINE(100) ; line buffer
I'R OTSPC(9) ;
I'R STATUS(1) ; FM error code
;----------------------------------< start of code >------------------------
* Set to no error
STATUS = STATUS(1) = FM%NOERR
; call the fm and try to open the help file
E'E F&OPEN.(%OREAD ,
1 %IDFILNM ,
1 HELPNAME ,
1 TXTSPEC ,
1 CH ,
1 OTSPC ,
1 STATUS )
# E'E HEXDMP.(1,1,1,STATUS)
; type out contents of file
W'R STATUS .E. FM%NOERR
; if open status is ok, print till eof
R'T
E'E F&READ.(CH ,
1 1 ,
1 LINE ,
1 RDSPC ,
1 OTSPC ,
1 STATUS )
# E'E HEXDMP.(1,1,1,STATUS)
W'R STATUS .NE. FM%NOERR, B'K
E'E TYPE.(OTSPC(3),LINE)
F'R
E'L
E'E F&CLOSE.(CH, CLOSPC, STATUS)
F'N STATUS
E'N