|
|
1.1 root 1: C
2: C CLOCK INTERRUPTS
3: C
4: LOGICAL CFLAG
5: COMMON /CEVENT/ CLNT,CTICK(25),CACTIO(25),CFLAG(25)
6: C
7: COMMON /CINDEX/ CEVCUR,CEVMNT,CEVLNT,CEVMAT,CEVCND,
8: & CEVBAL,CEVBRN,CEVFUS,CEVLED,CEVSAF,CEVVLG,
9: & CEVGNO,CEVBUC,CEVSPH,CEVEGH,
10: & CEVFOR,CEVSCL,CEVZGI,CEVZGO,CEVSTE,
11: & CEVMRS,CEVPIN,CEVINQ,CEVFOL
12: INTEGER EQC(25,2)
13: EQUIVALENCE (CTICK, EQC)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.