Trailing-Edge
-
PDP-10 Archives
-
BB-H064A-SM
-
sources/cgcmd.dat
There are no other files named cgcmd.dat in the archive.
DIMENSION K( 666),KA(84),KB(84),KC(84),KD(84),KE(84),KF(84),KG(84)
* ,KH(78)
DIMENSION IK(122),IKA(54),IKB(54),IKC(14)
DIMENSION JK(233),JKA(54),JKB(54),JKC(54),JKD(54),JKE(17)
EQUIVALENCE (K( 1),KA(1)),(K( 85),KB(1))
*,(K( 169),KC(1)),(K( 253),KD(1)),(K( 337),KE(1))
*,(K( 421),KF(1)),(K( 505),KG(1)),(K( 589),KH(1))
*
EQUIVALENCE (IK( 1),IKA(1)),(IK( 55),IKB(1))
*,(IK(109),IKC(1))
EQUIVALENCE (JK( 1),JKA(1)),(JK( 55),JKB(1))
*,(JK(109),JKC(1)),(JK(163),JKD(1)),(JK(217),JKE(1))
*
DATA KA/'O','L','D',' ','F','O','R','M','A','T',' ','S','T','A',
* 'R','T',' ','O','F',' ','J','O','B',' ','E','N','D',' ',
* 'R','U','N',' ','S','T','O','R','E',' ','K','N','O','W',
* 'N',' ','D','U','M','P',' ','R','E','D','E','F','I','N',
* 'E',' ','D','I','S','T','A','N','C','E',' ','L','O','C',
* 'A','T','E',' ','A','Z','I','M','U','T','H',' ','B','E'/
DATA KB/'A','R','I','N','G',' ','A','N','G','L','E',' ','D','E',
* 'F','L','E','C','T','I','O','N',' ','L','I','N','E',' ',
* 'I','N','V','E','R','S','E',' ','A','Z','I','M','U','T',
* 'H','S',' ','B','E','A','R','I','N','G','S',' ','P','A',
* 'R','A','L','L','E','L',' ','P','O','I','N','T','S',' ',
* 'I','N','T','E','R','S','E','C','T',' ','A','R','C',' '/
DATA KC/'A','R','E','A',' ','S','E','G','M','E','N','T',' ','P',
* 'L','U','S',' ','M','I','N','U','S',' ','T','A','N','G',
* 'E','N','T',' ','S','I','M','P','L','E',' ','C','U','R',
* 'V','E',' ','A','L','I','G','N','M','E','N','T',' ','D',
* 'E','F','I','N','E',' ','C','O','O','R','D','I','N','A',
* 'T','E',' ','P','O','A',' ','O','F','F','S','E','T',' '/
DATA KD/'S','T','A','T','I','O','N',' ','F','R','O','M',' ','D',
* 'I','V','I','D','E',' ','A','D','J','U','S','T',' ','T',
* 'R','A','V','E','R','S','E',' ','C','O','M','P','A','S',
* 'S',' ','C','R','A','N','D','A','L','L',' ','T','R','A',
* 'N','S','I','T',' ','V','E','R','T','I','C','A','L',' ',
* 'E','V','E','N',' ','S','T','A','T','I','O','N','S',' '/
DATA KE/'E','L','E','V','A','T','I','O','N',' ','D','R','A','I',
* 'N',' ','L','I','S','T',' ','P','O','I','N','T',' ','N',
* 'U','M','B','E','R','S',' ','S','P','I','R','A','L',' ',
* 'L','E','N','G','T','H',' ','P','O','S','P',' ','C','O',
* 'M','P','O','U','N','D',' ','F','I','T',' ','A','N','G',
* 'L','E','S',' ','E','X','T','E','N','D',' ','F','I','G'/
DATA KF/'U','R','E',' ','C','O','N','V','E','R','T',' ','M','E',
* 'R','I','D','I','A','N',' ','P','L','O','T','T','E','R',
* ' ','P','L','O','T',' ','C','O','M','M','E','N','T',' ',
* 'L','I','N','E','S',' ','A','N','N','O','T','A','T','I',
* 'O','N',' ','C','O','O','R','D','I','N','A','T','E','S',
* ' ','F','I','G','U','R','E','S',' ','P','U','N','C','H'/
DATA KG/' ','D','E','L','E','T','E',' ','D','E','F','L','E','C',
* 'T','I','O','N','S',' ','A','N','D',' ','O','F','F','S',
* 'E','T','S',' ','L','A','B','E','L','S',' ','N','E','W',
* ' ','M','A','P',' ','O','N',' ','S','T','R','E','E','T',
* 'S',' ','D','E','S','C','R','I','B','E',' ','A','N','G',
* 'U','L','A','R',' ','E','R','R','O','R',' ','S','E','T'/
DATA KH/' ','L','I','M','I','T',' ','W','I','D','T','H',' ','T',
* 'Y','P','E',' ','S','T','A','K','I','N','G',' ','N','O',
* 'T','E','S',' ','F','O','R','E','S','E','C','T','I','O',
* 'N',' ','O','U','T','P','U','T',' ','L','P','T',':',' ',
* 'T','T','Y',':',' ','D','S','K',':',' ','S','O','J',' ',
* 'E','O','J',' ','E','O','R',' '/
DATA IKA/ 1, -3, -6, -9, 12, 13, 14, 14, 15,
* 16, 17, 19, 21, 23, 25, 27, 29, 31,
* 33, 35, 37, 39, 42, 45, 48, 51, 52,
* 54, 56, 57, 59, 61, 62, 64, 65, 67,
* 69, 71, 74, 76, 78, 80, 82, 85, 88,
* 91, 93, 95, 97, 99, 101, 104, 106, 108/
DATA IKB/ 110, 112, 114, 116, 118, 120, 122, 124, 125,
* 125, 125, 125, 125, 127, 127, 127, 129, 131,
* 133, 135, 137, 139, 141, 143, 143, 145, 145,
* 147, 149, 151, 153, 153, 153, 155, 157, 159,
* 161, 164, 166, 166, 168, 171, 174, 176, 179,
* 182, 185, 187, 189, 191, 194, 197, 199, 202/
DATA IKC/ 205, -208, 211, 214, 217, 219, 221, -222, -225,
* -228, -231, -232, -233, 234/
DATA JKA/ 1, 5, 12, 18, 21, 25, 18, 21, 25,
* 18, 29, 33, 39, 45, 50, 59, 68, 75,
* 68, 83, 68, 91, 68, 97, 68, 108, 113,
* 121, 113, 130, 139, 108, 148, 155, 75, 155,
* 83, 155, 165, 108, 148, 165, 108, 75, 165,
* 108, 83, 165, 165, 155, 169, 169, 121, 169/
DATA JKB/ 130, 174, 174, 182, 174, 187, 193, 201, 208,
* 214, 224, 208, 231, 242, 231, 246, 253, 261,
* 231, 246, 214, 266, 108, 266, 165, 273, 169,
* 273, 280, 289, 273, 280, 297, 273, 280, 306,
* 314, 12, 314, 25, 323, 328, 246, 337, 208,
* 347, 353, 358, 364, 193, 246, 201, 372, 372/
DATA JKC/ 379, 372, 246, 231, 386, 108, 372, 391, 372,
* 372, 372, 208, 372, 400, 214, 404, 411, 165,
* 33, 418, 425, 433, 280, 121, 280, 130, 12,
* 442, 450, 455, 450, 148, 450, 463, 450, 469,
* 353, 480, 353, 492, 500, 480, 500, 492, 506,
* 480, 506, 492, 280, 404, 280, 513, 328, 525/
DATA JKD/ 529, 358, 537, 544, 548, 148, 552, 214, 68,
* 261, 214, 214, 246, 418, 108, 155, 418, 165,
* 155, 418, 418, 155, 139, 418, 555, 155, 266,
* 418, 148, 75, 155, 148, 83, 155, 400, 208,
* 563, 214, 121, 563, 214, 130, 273, 572, 580,
* 586, 580, 590, 586, 442, 596, 586, 442, 602/
DATA JKE/ 607, 615, 404, 155, 621, 586, 633, 640, 586,
* 633, 645, 586, 633, 650, 655, 659, 663/
DATA MAXCM/121/