From
ldkraemer@gmail.com@21:1/5 to
All on Mon Sep 20 06:37:44 2021
/* pg_003.txt */
(0,195,331,332,54,161,4,264,263,262,160,10,353,358,28
,29,196,32,36,290,38,195,41,336,42,46,53,159,28,29,371,32,36,290,38
,195,41,336,42,46,53,159,344,310,309.368,333,55,70,289,3,7,16,29,33
,264,263,262,160,161,3,7,16,29,264,263,262,160,312,313,4,7,16,29,264
,263,262,160,292,157,162,343,298,157,162,5,208,300,157,162.20,25,57
,52,69,229,218,275,62,367,363,228,283,363,285,285,360,357,279,12,356
,13,361,211,355,352,274,11,18,191,288,287,26,207,209,6,311,22,243
,291,294,217,158,163,269,28,29,32,36,290,38,195,41,336,42,46,53,159
,37,164,281,14,28,29,32,36,268,290,38,195,41,336,42,155,156,214,46
,49,53,56,159,280,282,153,154,327,370,295,302,362,364,284,286,153
,261,154,327,318,261,24,39,4,7,16,29,34,35,264,263,262,160,193,359
,354,293,299,301,31,40,264,263,262,27,21,65,268,155,156,214,49,56
,297,304,66,296,303,13,19,341,163,278,30,51.45,30,317,325,30,28,32
,36,290,38,195,41,336,42,46,166,260,8,9,17,0);
declare 1ook2(101) address initial
(0,2,2,328,23,329,43,212,44,215,47,307,48,271,240,265
,240,58,59,59,265,60,265,61,305,63,273,64,277,67,206,68,68,265,240
,71,71,246,72,72,251,73,73,250,74,74,247,75,75,248,76,76,249,80,252
,81,253,82,254,88,257,92,267,120,319,121,320,127,366,128,365,131,131
,131,131,131,131,351,139,238,210,142,144,202,145,145,145,145.145,145
,349,227,219,147,333,149,290,132,152,152.244);
declare apply2(177) address initial
(0,0,77,280,101,194,192,100,115,116,114,189,201,203
,124,141,184,216,213,198,373,372,224,197,222,187,223,219,225,226,220
,97,143,342,345,221,151,151,338,242,231,95,108,110,314,315,283,316
,104,339,326,109,241,105,106,245,107,340,111,103,190,168,170,172,169
,171,167,174,175,173,256,255,83,258,176,176,90,87,87,87,87,87,87,87
,176,89,87,87,87,257,199,91,177,272,270,185,99,98,276,137,182,266
,134,237,78,234,96,285,113,118,119,117,306,308,132,84,85,135,93,93
,93,93,93,93,93,94,130,148,188,146,179,178,323,322,321,324,86,330
,233,126,79,232,112,140,125,136,337,334,183,204,150,346,347,348,186
,129,350,182,133,239,239,239,239,239,239,239,239,239,259,122,205,181
,180,236,123,369,138);
declare index1 data(0,1,2,50,70,4,70,6,6,11,6,6,12,13,14,28,6,6,6,42,43
,45,70,46,70,47,6,238,49,50,50,60,59,60,68,70,70,135,78,70,135,81,82
,85,85,86,87,90,91,92,93,94,99,95,96,97,98,99,100,103,105,90,106,91
,108,109,111,113,103,114,116,117,117,117,117,117,117,119,120,50,122
,122,122,123,125,126,70,128,128,129,131,132,134,135,70,70,59,148,149
,150,151,152.171,173,176,177,179,181,183,187,188,189,190,191,201,202
,203,204,205,206,207,207,70,208,209,212,212,213,213,214,70,215,221
,223,70,224,70,70,226,227,228,229,230,185,233,215,234,234,236,233
,238,249,250,1,4,6,8,10,12,14,18,21,23,25,27,29,31,35,38,41,44,47,50
,53,55,37,59,61,63,65,67,69,71,78,80,82,84,91,93,95,97,1,2,4,4,5,6,7
,7,8,8,8,8,8,8,8,11,12,14,14,15,15,16,16,16,16,16,17,17,19,19,24,24
,24,28,28,28,31,32,32,33,33,33,33,33,33,33,33,33,33,33,36,36,41,42
,42,60,60,60,60,60,60,61,61,61,67.67,70,70,70.70,70,72,72,72,74,74
,90,91,91,92,92,92,92,93,93,95,96,97,97,98,99,99,100,101,102,102,103
,103,104,104,105,106,106,106,107,107,107,108,108,108,108,108,108,108
,109,109,109,109,112,112,114,115,115,116,116,117,118,126,127,127,130
,130,130,132,132,135,136,136,136,136,137,137,137,138,139,140,141,142
,143,144,145,146,148,148,149,150,150,151,151,152,152,153,154,154,155
,155,156,157,157,158,158,159,169,169,170,170,171,171,173,174,175,176
,176);
declare index2 data(0,1,2,9,8,2,8,5 5,1,5,5,1,1,14,14,5,5,5,1,2.1,8,1,8
,2,5,11,1,9,9,8,1,8,2,8,8,13,3,8,13,1,3,1,1,1,3,1,1,1,1,1,1.1.1,1,1
,1,3,2,1,1,2,1,1,2,2,1,2,2,1,2,2,2,2,2,2,1,2,9,1,1,1,2,1,2,3,1,1,2,1
,2,1,13,8,8,1,1,1,1,1,19,2,3,1,2,2,2,4,1,1,1,1,10,1,1,1,1,1,1,1,1,8
,1,3,1,1,1,1,1,8,6,2,1,8,2,8,8,1,1,1,1,3,13,1,6,2,1,2,1,11,1,3,3,2,2
,2,2,2,4,3,2,2,2,2,2,4,3,3,3,3,3,3,2,2,2,2,2,2,2,2,2,7,2,2,2,7,2,2,2
,4,1,1,2,0,0,2,0,2,0,0,1,0,1,0,0,1,2,1,2,0,2,0,1,0,0,1,2,2,0,0,0,3,1
,1,3,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,1,0,2,2,3,1,1,0,2,2,0,2,0
,0,0,2,2,0,0,0,0,0,1,0,2,1,0,1,0,2,2,1,1,1,2,2,0,2,2,2,1,2,1,1,1,0,2
,1,2,2,2,2,2,1,2,1,2,2,2,2,0,1,0,1,1,1,2,1,1,1,2,1,2,2,0,2,0,1,2,0,2
,2,0,0,0,0,1,1,1,1,1,0,3,1,1,1,0,1,1,2,1,0,0,0,0,0,0,3,3,2,3,2,2,3,2
,2,2,2,1,2,3,2,0,2,1,2,3,0,2);
Larry
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)
From
ldkraemer@gmail.com@21:1/5 to
All on Wed Sep 22 06:23:11 2021
Steve,
Sure, I'm not that familiar with github, but I can upload the code there. Perhaps a few folks will go through it and correct
the errors that I have missed. Some of the data statements are very hard to read.
Just one page remaining to parse and post.
/* pg_002.txt */
lineno address,
pass1 byte initial(true),
pass2 byte initial(false),
nointflle byte initial(false),
rfcbaddr address initial(5eh),
rfcb based rfcbaddr(33) byte,
wfcb(33) byte initial(0,' ','ain',0,0,0,0),
nolook byte,
production byte,
arr$loc(5) address,
arr$num byte,
sub$proc$loc address,
sub$procSvar$num byte,
arr$dim byte,
diskoutbuff(intrecsize) byte;
/* the following global variables are used by the scanner */
declare token byte, /* type of token Just scanned */
hashcode byte, /* has value of current token */
nextchar byte, /* current character from getchar */
accum(identsize) byte, /* holds current token */
cont byte; /* indicates accum was full, still more */
/*******************************************************/
/* symbol table global variables */
/*******************************************************/
declare base address, /* base of current entry */
hashtable(hashtb1size) address,
sbtbltop address, /* current top of symbol table*/
sbtbl address,
ptr based base byte, /*first byte of entry */
aptraddr address, /*utlilty variable to access table*/
addrptr based aptraddr address,
byteptr based aptraddr byte,
printname address, /*set prior to lookup or enter*/
symhash byte,
prev$b1k$level(12) byte,
prev$index byte initial(255),
step$flag byte,
blk$cnt byte initial(0),
b1k$1eve1 byte initial(1);
declare read1 data(0,39,12,15,53,55,2,49,32,53,55,5,8,8,19,20,26,27,31
,34,35,39,40,42,43,48,53,53,19,20,26,27,31,34,35,39,40,42,43,48,53
,55,55,53,55,55,15,33,55,23,2,3,9,20,28,49,52,53,55,55,2,3,9,20,49
,52,53,55,49,55,2,3,9,20,49,52,33,55,2,49,55,55,2,49,55,2,2,2,49,55
,11,14,54,51,55,13,7,4,55,55,2,13,14,2,14,14,2,8,11,7,11,7,11,11,2,8
,4,6,10,24,53,55,16,7,11,2,7,11,17,7,11,7,49,33,11,19,20,27,31,34,35
,39,40,42,43,48,53,35,32,35,14,8,19,20,27,31,33,34,35,39,40,42,43,44
,45,47,48,50,53,54,55,4,11,1,12,15,21,7,11,7,11,4,11,1,7,12,15,32,7
,13,36,2,3,9,20,29,30,49,52,53,55,8,8,8,2,2,2,25,39,49,52,53,18,11
,55,33,44,45,47,50,54,7,11,55,7,11,8,11,41,55,38,50,51,46,22,37,7,22
,19,27,31,34,35,39,40,42,43,48,55,7,3,5,9,0);
declare look1 data(0,12,15,0,15,0,2,0,2,0,11,0,14,0,8,17,32,0,2,14,0,14
,0,11,0,14,0,11,0,11,0,2,14,17,0,6,10,0,6,10,0,6,10,0,6,10,9,6,10,0
,6,10,0,16,0,16,0,16,0,17,0,11,0,25,0,25,0,11,0,11,0,33,44,45,47,50
,54,0,11,0,55,0,46,0,33,44 43,47,30,34,0,32,0,22,0,46,0,3,5 9,0);
declare apply1 data(0,0,1,0,0,0,0,0,131,143,0,0,149,0,0,0,0,44,0,14,15
,40,93,0,37,93,143,0,37,143,0,0,0,27,130,0,3,4 32,95,0,0,3,4,6,22,24
,35,36,39,86,94,95,112,122,130,134,136,137,0,0,7,8,10,16,17,0,11,18
,00,26,0,124,0,3,4,5,14,15,27,32,37,40,93,95,96,101,143,1,50,0,0,0,0
,63,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,42,46,0,61,0,0,0,0,0,14,15,37,40
,93,101,143,0,0,3,79,0,30,0,31,33,0,0,0,0,0,0,0,0,0,0,0,0,125,0,0,0
,0,0,0,0,0,0,0,0,0,14,13,27,37,40,93,101,143,150,0,0,0,52,0,9,0,0,0
);
declare read2(254) address initial
Larry
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)