home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
archives
/
hp1000.zip
/
kconcw.ftni
< prev
next >
Wrap
Text File
|
2011-08-10
|
461b
|
13 lines
! Goes with rev 1.99b or later; edited 2:48 PM THU., 15 OCT., 1987
! This common provides storage for the control-words used by Connect
! and its assistants.
integer*2 Ltx(2),Lrx(2),Rtx(2),Rrx(2)
integer*2 Ltc,Lrc,Rrc,Rtc,term,dstat
logical*2 fASI,fRcm,fLcm
common /kconcw/ Ltx,Lrx,Rtx,Rrx,term,dstat,fASI,fRcm,fLcm
equivalence (Ltx(2),Ltc),(Lrx(2),Lrc)
equivalence (Rtx(2),Rtc),(Rrx(2),Rrc)