home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
archives
/
gould3.zip
/
k.timec
< prev
next >
Wrap
Text File
|
2011-08-09
|
1KB
|
14 lines
C 0001.000
C K.TIMECOM - Timing of kermit 0002.000
C 0003.000
INTEGER PUTIME !time for putc 0004.000
INTEGER GETIME !time for getc 0005.000
INTEGER PUTCOUNT !count put 0006.000
INTEGER GETCOUNT !count get 0007.000
INTEGER WAITIME !wait time 0008.000
INTEGER WAITCNT !count of waits 0009.000
INTEGER TOTIME !total time connect 0010.000
C 0011.000
COMMON /TIMECOM/ PUTIME, GETIME, PUTCOUNT, GETCOUNT, 0012.000
$ WAITIME, WAITCNT, TOTIME 0013.000