Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | C - - - - - H A P A R T . F I - - - - -\r |
2 | C EXTRACT PARTS OF 3 WORD VARIABLES \r | |
3 | INTEGER S1,S2,S3,S4,S5,S6,T1,T2,T3,Q1,Q2,Q3,Q4,H1,H2,LOC,IATX\r | |
4 | EXTERNAL S1,S2,S3,S4,S5,S6,T1,T2,T3,Q1,Q2,Q3,Q4,H1,H2,LOC,IATX\r | |
5 | INTEGER SHIFT\r | |
6 | EXTERNAL SHIFT\r | |
7 | INTEGER TOASCI,FLD\r | |
8 | EXTERNAL TOASCI,FLD\r | |
9 | INTEGER IBOOL,INOT,IAND,IOR\r | |
10 | REAL BOOL\r | |
11 | EXTERNAL IBOOL,BOOL,INOT,IAND,IOR\r | |
12 | LOGICAL EQL\r | |
13 | EXTERNAL EQL\r | |
14 | C - - - - -\r | |
15 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |