home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
archives
/
hp1000.zip
/
kerdbg.ftni
< prev
next >
Wrap
Text File
|
2011-08-10
|
485b
|
11 lines
c Goes with rev 1.96c or later; edited 1:00 PM Thu., 12 Jun., 1986
integer*2 dbCB(144) ! Debug-file control-block
integer*2 dbLv ! Debugging level
integer*2 states,packets,all ! debugging level (binary) codes
parameter (states = 1)
parameter (packets = 2)
parameter (all = 3)
character dbNm*64 ! Debugging log-file name
common /kerdbg/ dbCB,dbLv,dbNm