home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
computervision.tar.gz
/
computervision.tar
/
kermit.nextfile
< prev
next >
Wrap
Text File
|
1987-02-19
|
1KB
|
46 lines
; 7 aug 85 esj created
;--------------------------< nextfile >---------------------------------
E'F
E'O NEXTFILE.( FILEDESC, FNAME)
;-----------------------------------------------------------------------
; purpose
; to get the next file name from the file specified in fd
;
; input
I'R FILEDESC(*) ; descriptor of the file containing names
;
; output
I'R FNAME(*) ; cgos format filename. fname will = 0 when there
; are no more files to be opened
;
; insert files
/INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
;
; local static storage
I'R CHAR
;
; global
; none
;
;----------------------< start of code >--------------------------------
FNAME(0) = 0
R'T
E'E DGETCH.(CHAR, FILEDESC)
W'R CHAR .E. '0D' .OR. CHAR .E. -1
E'E PACKLINE.($! $, FNAME)
B'K
E'L
E'E PACKLINE.(CHAR,FNAME)
F'R
# E'E TYPE.(0,0)
# E'E HEXDMP.(FNAME, FNAME+FNAME+1, FNAME, FNAME)
W'R CHAR .E. -1
E'E CLOSTEXT.(FILEDESC)
FNAME = 0
E'L
F'N GOOD
E'N