00100 (*+01() (*$L-*) ()+01*) 00110 (*+02() (*$I32*)(*$T-*)(*$W-*)(*$G-*)(*$D+*)(*$R-*)(*$L+*)(*$E+*) ()+02*) 00120 (*LIST OF TAILORING OPTIONS*) 00130 (***************************) 00140 (**) 00150 (* 1..9 DIFFERENT MACHINES 00160 01 = CDC 00170 02 = EM SYSTEM 00180 03 = NORD 100 00190 04 = POS PERQ 00200 05 = PNX PERQ 00210 11..19 DIFFERENT WORD LENGTHS 00220 11 = 60 BITS 00230 12 = 16 BITS 00240 13 = 32 BITS 00245 19 = 16 BITS WITH SZADDR=32 BITS (EG VAX2) 00250 21..29 DEBUGGING AIDS 00260 21 = MONITORING OF SEMANTIC ROUTINES 00270 22 = TIMING CHECK 00280 23 = TEMPORARY CODE EMITTER 00290 24 = EM CODE EMITTER 00300 25 = EM MACHINE ON CYBER 00310 31..39 PRAGMATS 00320 31 = CHECKS (RUN TIME) ON 00330 32 = ASSERTIONS (COMPILE TIME) CHECKED 00332 33 = GENERATE CODE FOR SYMBOLIC DEBUGGER 00340 41..49 DIFFERENT STACK STRATEGIES 00350 41 = STACK GROWS IN NEGATIVE DIRECTION 00360 42 = SEPARATE SPACES FOR CODE AND DATA 00370 43 = INTEGER LENGTH > MANTISSA LENGTH (E.G. CYBER OR NO FLOATING POINT) 00372 44 = FLOATING POINT NOT AVAILABLE 00380 50..59 SPECIAL OPTIONS 00390 50 = CDC CHARACTER CODE 00400 51 = UMRCC SPECIAL 7600 CODE 00410 52 = CDC 7600 (AS OPPOSED TO CYBER) 00420 53 = VERY LONG PROCEDURES SPLIT IN TWO TO HELP PASCAL COMPILER 00430 54 = EXPERIMENTAL ON ERROR FACILITY 00440 55 = REDUCED LISTING AND ERROR MESSAGES 00450 61..69 DIFFERENT LENGTH FEATURES 00460 61 = LONG WORDS 00470 (70..89 ARE ONLY RELEVANT FOR SEPARATE COMPILATION ) 00480 70 = ALL DECLARATIONS 00490 71..79 UNIT INTERFACES 00500 71 = PROGRAM HEADING 00510 72 = A68 PARSER (PRODTABLE) 00520 73 = A68 LEXICAL (LXIO'S) 00530 75 = P-OPS FOR OPERATORS 00540 76 = OTHER P-OPS 00550 77 = A68 CODE EMITTER (RUN-TIME OBJECTS) 00560 78 = CODETABLE 00570 80 = GLOBAL UNIT 00580 81..89 UNIT IMPLEMENTATIONS 00590 81 = A68 LEXICAL * 00600 82 = A68 PARSER * 00610 83 = A68 LEXEME INITIALISATION * 00620 84 = A68 MODE INITIALATION * 00630 85 = A68 SEMANTICS * 00640 86 = A68 CODE GENERATOR * 00650 87 = A68 CODE EMITTER 00660 *) 00670 (*+01() (*$G-+) ()+01*) 00680 (*+01() (*$W5750+) ()+01*) 00690 (*+01() (*$T-,P-+) ()+01*) 00700 (*+25() (*$G-+) ()+25*) 00710 (*+25() (*$W5750+) ()+25*) 00720 (*+25() (*$T-,P-+) ()+25*) 00730 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *) 00740 (**) 00750 (*-03() 00760 (*+01() PROGRAM A68SCOM(SOURCDECS, OUTPUT+, LGO, LSTFILE, A68INIT ); ()+01*) 00770 (*-01() (*-05() (*+71() 00780 PROGRAM A68SCOM(SOURCDECS, LGO, LSTFILE, A68INIT, DUMPF, OUTPUT); 00790 ()+71*) ()-05*) ()-01*) 00800 (*+25() PROGRAM A68SCOM(SOURCDECS, OUTPUT, LGO, LSTFILE, A68INIT ); ()+25*) 00810 ()-03*) 00820 (*+04() 00830 EXPORTS 00840 IMPORTS HACKS FROM HACKS; 00850 IMPORTS A68SIN FROM A68SIN; 00860 IMPORTS A68S1 FROM A68S1; 00870 ()+04*) 00880 (**) 00890 (*+70() 00900 CONST (* CONST CONST CONST CONST CONST CONST CONST CONST CONST CONST CONST CONST CONST CONST CONST CONST*) 00910 (**) 00920 (*ENVIRONMENT*) 00930 (*************) 00940 (**) 00950 VERSIONNUM='(VERSION 2.2)'; 00960 (*+01() 00970 ALG68NUM='ALG68S 2.2'; 00980 NOSNUM='NOS 2.2'; 00990 ()+01*) 01000 (*+11() 01010 MAXINT=7777777777777777B; 01040 MAXABSCHAR=63; 01070 MAXSIZE=110B; (*MAX SIZE OF NONSTOWED OBJECT*) 01080 TRUEVALUE=40000000000000000000B; 01090 ()+11*) 01100 (*+12() 01110 MAXINT=32767; 01120 (*+02() TRUEVALUE=1; ()+02*) (*SHOULD MATCH WITH RUN-TIME SYSTEM*) 01130 (*-02() TRUEVALUE=-32768; ()-02*) 01140 MAXSIZE=127; 01200 MAXABSCHAR=127; 01210 ()+12*) 01220 (*+13() 01230 MAXINT=2147483647; 01270 MAXABSCHAR=127; 01290 MAXSIZE=127; 01300 (*+02() TRUEVALUE=1; ()+02*) 01302 (*-02() TRUEVALUE=(*-2147483648*) -1; ()-02*) 01310 ()+13*) 01320 (*+01() RTNLENGTH=7; ()+01*) (*LENGTH OF PROCEDURE NAMES*) 01330 (*+02() RTNLENGTH=8; ()+02*) (*SHOULD MATCH WHAT YOUR PASCAL*) 01340 (*+03() RTNLENGTH=5; ()+03*) (*COMPILER PRODUCES*) 01350 (*+05() RTNLENGTH=7; ()+05*) 01370 (**) 01380 (*LISTING*) 01390 (*********) 01400 (**) 01410 CBUFSIZE=120; (*SIZE OF OUTPUT BUFFERS*) 01420 HTSIZE=163; (*HASH TABLE SIZE*) 01430 (*+01() LEX1SIZE=1; ()+01*) 01440 (*+02() (*+12() (*-19() LEX1SIZE=10; ()-19*) 01445 (*+19() LEX1SIZE=14; ()+19*) ()+12*) 01446 (*+13() LEX1SIZE=16; ()+13*) 01447 ()+02*) 01450 (*+03() LEX1SIZE=4; ()+03*) 01460 (*+04() LEX1SIZE=8; (*SIZE OF STATIC PART OF LEXEME*) ()+04*) 01470 (*+05() LEX1SIZE=8; ()+05*) 01480 (*+03() LINESPERPAGE=54; ()+03*) 01490 (*-03() LINESPERPAGE=58; ()-03*) 01500 (**) 01510 (**) 01520 (*MODE HANDLING*) 01530 (***************) 01540 (**) 01550 (*+01() MODE1SIZE=1; ()+01*) 01560 (*+02() MODE1SIZE=(*+12() (*-19() 14 ()-19*) (*+19() 18 ()+19*) ()+12*) (*+13() 20 ()+13*); ()+02*) 01570 (*+03() MODE1SIZE=4; ()+03*) 01580 (*+04() MODE1SIZE=8; ()+04*) 01590 (*+05() MODE1SIZE=10; ()+05*) 01600 (**) 01610 (**) 01620 (*LEXICAL ANALYSIS*) 01630 (******************) 01640 (*+11() TAXLEN=640; TAXLENWD=64; TAXLENWD2=128; CHARPERWORD=10; WORDSPERREAL=1; ()+11*) 01650 (*+12() TAXLEN=510; TAXLENWD=255; CHARPERWORD=2; WORDSPERREAL=(*+03()3()+03*)(*-03()4()-03*); ()+12*) 01660 (*+13() TAXLEN=508; TAXLENWD=127; CHARPERWORD=4; WORDSPERREAL=2; ()+13*) 01670 (*-73() LXIODUMMY=0; LXIOVDEFL=28; ()-73*) 01680 (**) 01690 (*ERROR HANDLING*) 01700 (****************) 01710 ELX=0; ESY=10; ESE=60; DUMMY=0; FINISH=9; 01720 ESY01=130; SR01=11; 01730 (**) 01740 (**) 01750 (*CODE EMITTER*) 01760 (**************) 01761 (*+02() OUTPUTEFET=38; 01762 (*+12() (*-19() FIRSTIBOFFSET=30; ()-19*) (*+19() FIRSTIBOFFSET=50; ()+19*) ()+12*) 01763 (*+13() FIRSTIBOFFSET=52; ()+13*) 01765 (*PARAMS SZREAL+SZWORD+(2*SZADDR)+LINKS (8*SZADDR) *) 01767 (* IF YOU CHANGE THIS YOU HAVE TO CHANGE FIRSTIBOFFSET IN E.H *) 01768 A68STAMP=13476; (* A HIGHLY IMPROBABLE NUMBER *) 01769 ()+02*) 01770 (*+77() 01780 (*+01() 01790 OUTPUTEFET=23B; (*OFFSET OF 'OUTPUT'*) 01800 FIRSTVAR=510B; (*OFFSET OF FIRST PASCAL VAR; KNOWN TO A68SCOD*) 01810 FIRSTIBOFFSET=531B; (*IF YOU ALTER THIS, THERE ARE SOME CORRESPONDING CHANGES TO THE CODETABLE*) 01820 ()+01*) 01840 (*+03() OUTPUTEFET=9999; FIRSTIBOFFSET=9999; (*NEED FIXING*) ()+03*) 01850 (*+04() OUTPUTEFET=9999; FIRSTIBOFFSET=83; ()+04*) 01860 (*+05() OUTPUTEFET=9999; FIRSTIBOFFSET=0; ()+05*) 01870 ()+77*) 01880 (*+02() 01890 (**) 01891 (* CONSTANTS FOR PRODUCING COMPACT EM-1 CODE *) 01892 (*+24() 01893 ADF= 2; ADI= 3; ADP= 4; CAND=7; ASP= 8; BEQ=10; BGE=11; BGT=12; BLE=13; BLT=16; BNE=17; BRA=18; 01894 CAI=19; CAL=20; CFF=21; CIF=24; CIU=26; CMF=27; CMI=28; CMU=31; COM=32; CSA=33; 01895 DUP=42; DVF=44; DVI=45; EXG=47; GTO=51; INC=52; INL=54; IOR=56; 01896 LAE=57; LAL=58; LAR=59; LDC=60; LDE=61; LDF=62; LDL=63; LFR=64; LIL=65; LIN=67; LOC=69; 01897 LOE=70; LOF=71; LOI=72; LOL=73; LOR=74; LOS=75; LPB=76; LPI=77; LXA=78; LXL=79; 01899 MLF=80; MLI=81; NGF=84; NGI=85; NOP=86; RET=88; ROL=91; 01900 SBF=95; SBI=96; SDE=99; SDF=100; SDL=101; CSET=102; SIL=104; STE=110; STF=111; STI=112; STL=113; STR=114; 01901 TEQ=116; TGE=117; TGT=118; TLE=119; TLT=120; TNE=121; 01902 XOR=123; 01903 ZEQ=124; ZER=125; ZGE=126; ZGT=127; ZNE=130; ZRF=132; ZRL=133; 01904 (*+78() BSS=150; CON=151; EEND=152; EXC=154; EXP=155; HOL=156; MES=159; PRO=160; ROM=161; ()+78*) 01907 EOOPNDS=255; 01908 ()+24*) 01909 (*-24() 01910 ADF='ADF';ADI='ADI';ADP='ADP';CAND='AND';ASP='ASP';BEQ='BEQ';BGE='BGE';BGT='BGT';BLE='BLE';BLT='BLT';BNE='BNE';BRA='BRA'; 01911 CAI='CAI';CAL='CAL';CFF='CFF';CIF='CIF';CIU='CIU';CMF='CMF';CMI='CMI';CMU='CMU';COM='COM';CSA='CSA'; 01912 DUP='DUP';DVF='DVF';DVI='DVI';EXG='EXG';GTO='GTO';INC='INC';INL='INL';IOR='IOR'; 01913 LAE='LAE';LAL='LAL';LAR='LAR';LDC='LDC';LDE='LDE';LDF='LDF';LDL='LDL';LFR='LFR';LIL='LIL';LIN='LIN';LOC='LOC'; 01914 LOE='LOE';LOF='LOF';LOI='LOI';LOL='LOL';LOR='LOR';LOS='LOS';LPB='LPB';LPI='LPI';LXA='LXA';LXL='LXL'; 01915 MLF='MLF';MLI='MLI';NGF='NGF';NGI='NGI';NOP='NOP';RET='RET';ROL='ROL'; 01916 SBF='SBF';SBI='SBI';SDE='SDE';SDF='SDF';SDL='SDL';CSET='SET';SIL='SIL';STE='STE';STR='STR';STF='STF';STI='STI';STL='STL'; 01917 TEQ='TEQ';TGE='TGE';TGT='TGT';TLE='TLE';TLT='TLT';TNE='TNE'; 01918 XOR='XOR'; 01919 ZEQ='ZEQ';ZER='ZER';ZGE='ZGE';ZGT='ZGT';ZNE='ZNE';ZRF='ZRF';ZRL='ZRL'; 01920 BSS='BSS';CON='CON';EEND='END';EXC='EXC';EXP='EXP';HOL='HOL';MES='MES';PRO='PRO';ROM='ROM'; 01922 EOOPNDS=' '; 01923 ()-24*) 01924 (**) 01925 CPACTLCL=241; CPACTGBL=242; CPACTCONS=245; CPACTLBL=248; CPACTPNAM=249; CPACTSTRNG=250; CPACTINT=251; CPACTUNS=252; CPACTFLOAT=253; 01931 (*-19() 01932 LFC=LOC; LFL=LOL; LFE=LOE; LFF=LOF; SFL=STL; SFE=STE; SFF=STF; 01933 ()-19*) 01934 (*+19() 01935 LFC=LDC; LFL=LDL; LFE=LDE; LFF=LDF; SFL=SDL; SFE=SDE; SFF=SDF; 01936 ()+19*) 01990 ()+02*) 02000 PNOOP=0(*6*); 02010 (*+75() 02020 PADD(*6*)=-6; PSUB(*6*)=-12; PMUL(*6*)=-18; PDIV(*6*)=-24; POVER(*2*)=-30; PMOD(*2*)=-32; 02030 PEXP(*6*)=-34; PEQ(*6*)=-40; PEQCS(*2*)=-46; PEQB(*3*)=-48; PNE(*6*)=-51; PNECS(*2*)=-57; PNEB(*3*)=-59; 02040 PLT(*4*)=-62; PLTCS(*2*)=-66; PLTBY=-68; PLE(*4*)=-69; PLECS(*2*)=-73; PLEBT(*2*)=-75; 02050 PGT(*4*)=-77; PGTCS(*2*)=-81; PGTBY=-83; PGE(*4*)=-84; PGECS(*2*)=-88; PGEBT(*2*)=-90; 02060 PCAT(*2*)=-92; (*SEE LATER(2)=-94;*) PPLSAB(*6*)=-96; PPLSABS(*2*)=-102; PPLSTOCS(*2*)=-104; 02070 PMINUSAB(*6*)=-106; PTIMSAB(*6*)=-112; PTIMSABS=-118; PDIVAB(*4*)=-119; POVERAB(*2*)=-123; 02080 PMODAB(*2*)=-125; PANDB(*2*)=-127; PORB(*2*)=-129; PUPB=-131; PUPBM=-132; PUPBMSTR=-133; 02090 PLWB=-134; PLWBM=-135; PLWBMSTR=-136; PSHL=-137; PSHR=-138; 02100 PELMBT=-139; PELMBY=-140; PMULCI(*2*)=-141; PMULIC(*2*)=-143; PPLITM(*2*)=-145; 02110 PNEGI(*6*)=-147; PABSI(*6*)=-153; (*SPARE=-159;*) PABSB(*2*)=-160; PABSCH=-162; 02120 PNOTB(*2*)=-163; PARG(*2*)=-165; PCONJ(*2*)=-167; PENTI(*2*)=-169; 02130 PROUN(*2*)=-171; PODD(*2*)=-173; PLENGI=-175; PLENGR=-176; PLENGC=-177; 02140 PSHRTI=-178; PSHRTR=-179; PSHRTC=-180; PSGNI(*4*)=-181; PREPR=-185; PBIN=-186; 02150 PRE=-187; PIM=-188; 02160 ()+75*) 02170 PNONE=-189; 02180 (*+76() 02182 PDUP1PILE=-94; PDUP2PILE=-95; (* THESE SHOULD BE MOVED AT NEXT OPPORTUNITY*) 02190 PSELECT(*3*)=1; PSTRNGSLICE(*2*)=4; PSTARTSLICE=6; PSLICE1=7; 02200 PSLICE2=8; PSLICEN=9; PCASE=10; PJMPF=11; PLPINIT(*4*)=12; 02210 PRANGENT=16; PRANGEXT(*3*)=17; 02220 PSCOPEEXT=20; PACTDRMULT=21; PACTDRSTRUCT=22; 02230 PDCLINIT(*4*)=23; PCREATEREF(*4*)=27; PPARM=31; PCHECKDESC=32; PDCLSP(*4*)=33; PLOADRT=37; 02240 PBOUNDS=38; PENVCHAIN(*2*)=39; PVARLISTEND(*2*)=41; PCASJMP(*2*)=43; PSCOPETT(*5, BUT 1ST 2 NOT USED*)=43; 02250 PASSIGTT(*5*)=48; PSCOPETN=53; PASSIGTN=54; POUTJUMP=55; PSCOPENT(*5, BUT 1ST 2 NOT USED*)=55; 02260 PASSIGNT(*4*)=60; PRECGEN=64; PSCOPENN=65; PASSIGNN=66; PSCOPEVAR(*3*)=67; PLOADVAR(*3*)=70; 02270 PDUP1ST(*2*)=73; PDUP2ND(*4*)=75; PGETTOTAL(*5*)=79; 02280 ()+76*) 02290 PIDTYREL(*2*)=84; PDEREF(*5*)=86; 02300 PVOIDNAKED=91; PSKIP(*3*)=92; PSKIPSTRUCT=95; PNIL=96; 02310 PPUSH(*3*)=97; PVOIDNORMAL=100; PDATALIST=101; PWIDEN(*8*)=102; 02320 PROWNONMULT=110; PROWMULT=111; 02330 (*+76() 02340 PCALL=112; PRETURN=113; 02350 PRNSTART=114; PLPINCR(*2*)=115; PLPTEST=117; PGBSTK=118; PLEAPGEN(*6*)=119; 02360 PGETTOTCMN(*3*)=125; PSELECTROW=128; PHOIST=129; PPREPSTRDISP=130; PPREPROWDISP(*2*)=131; 02370 PCOLLTOTAL(*5*)=133; PCOLLNAKED=138; PCOLLCHECK=139; PPEND=140; 02380 PLINE=141; PENDSLICE=142; PTRIM(*10*)=143; PJMP=153; PGETOUT=154; 02390 PGETMULT(*2*)=155; PNAKEDPTR=157; PPBEGIN(*2*)=158; PCASCOUNT=160; PLOADRTP=161; 02400 PASGVART(*9*)=162; PPASC(*4*)=171; 02410 PPUSHIM(*4*)=175; PSETIB=179; PGETPROC(*2*)=180; PASP=182; 02420 PFIXRG(*2*)=183;PDECM(*2*)=185;PCALLA(*3*)=187; 02430 (*+02() PSWAP(*4*)=190; ()+02*) 02440 (*+05() PSWAP=190; PHEAVE=191; PSTKTOE(*3*)=192; PALIGN=195; PDISCARD=196; ()+05*) 02450 (*+01() PSWAP=190; PLOADX0IM(*2*)=191;PLOADX1IM(*2*)=193;PLOADX2IM(*2*)=195;PLOADX3IM(*2*)=197;PLOADX4IM(*2*)=199; 02460 PSTATICLINK=201; PPOP=202; 02470 ()+01*) 02480 ()+76*) 02490 (*+01() (*-61() PLAST=363; ()-61*) (*+61() PLAST=419; ()+61*) ()+01*) 02500 (*+02() (*-61() PLAST=350; ()-61*) (*+61() PLAST=365; ()+61*) ()+02*) 02504 (*+05() PLAST=400; ()+05*) 02510 (**) 02520 (*-76() PENVCHAIN=39; PSWAP=129; PPEND=140; PJMP=153; PPUSHIM=175; ()-76*) 02530 (**) 02540 (*+01() 02550 LOADMARGIN=8; (*ALLOW ROOM ABOVE FIELDLENGTH NEEDED BY LOADER*) 02560 ABSMARGIN=500B; (*ADDITIONAL FL NEEDED BY ABSOLUTE LOAD OVER & ABOVE FL NEEDED BY RELOCATEABLE 02570 LOAD OF THE SAME PROGRAM. 500B IS NEEDED BECAUSE OF APPARENT BUG IN NOS1.4-531*) 02580 ()+01*) 02590 (*+25() 02600 LOADMARGIN=8; (*ALLOW ROOM ABOVE FIELDLENGTH NEEDED BY LOADER*) 02610 ABSMARGIN=320; (*ADDITIONAL FL NEEDED BY ABSOLUTE LOAD OVER & ABOVE FL NEEDED BY RELOCATEABLE 02620 LOAD OF THE SAME PROGRAM. 500B IS NEEDED BECAUSE OF APPARENT BUG IN NOS1.4-531*) 02630 ()+25*) 02640 (*+05() LASTRNLEVEL=9; ()+05*) 02650 (**) 02660 (*SEMANTIC ROUTINES*) 02670 (*******************) 02680 (**) 02690 SRSTKSIZE=40; (*SIZE OF SEMANTIC STACK*) 02700 (*+01() 02710 SZWORD=1; SZADDR=1; SZINT=1; SZREAL=1; SZLONG=2; SZNAKED=1; SZDL=1; SZPROC=1; SZTERM=2; 02720 (*SIZES OF OBJECTS IN ADDRESSING UNITS*) 02730 SIZIBTOP=0; (*SHOULD PROBABLY BE ABOLISHED*) 02740 SIZIBBASE=10; (*SIZE OF INVBL BASE*) 02750 SIZLEBBASE=4; (*SIZE OF LOCAL ENVIRONMENT BASE*) 02760 PARAMOFFSET=0; 02770 LOOPOFFSET=0; (*OFFSET OF LOOPCOUNT WITHIN CURRENT RGBLOCK*) 02780 RGOFFSET=3; (*OFFSET OF RGLASTUSED WITHIN CURRENT RGBLOCK*) 02790 ()+01*) 02800 (*+03() 02810 SZWORD=1; SZADDR=1; SZINT=1; SZREAL=3; (*SZLONG*) SZNAKED=3; SZDL=2; SZPROC=1; SZTERM=8; 02820 (*SIZE OF OBJECTS IN ADDRESSING UNITS*) 02830 SIZIBTOP=0; 02840 SIZIBBASE=20; 02850 SIZLEBBASE=6; 02860 ()+03*) 02870 (*+02() (*+12() (*-19() 02880 SZWORD=2; SZADDR=2; SZINT=2; SZREAL=8; SZLONG=4; SZNAKED=4; SZDL=2; SZPROC=4; SZTERM=16; 02890 (*SIZE OF OBJECTS IN ADDRESSING UNITS*) 02900 SIZIBTOP=0; 02910 SIZIBBASE=999; 02920 SIZLEBBASE=888; 02930 ()-19*) 02931 (*+19() 02932 SZWORD=2; SZADDR=4; SZINT=2; SZREAL=8; SZLONG=4; SZNAKED=8; SZDL=2; SZPROC=8; SZTERM=16; 02933 SIZIBTOP=0; 02934 SIZIBBASE=12; (* SAME AS RUN TIME IBCONST *) 02935 SIZLEBBASE=20; (* SIZE OF A RANGEBLOCK, SAME AS RUN TIME RGCONST *) 02936 RGOFFSET=4; (* OFFSET TO RG(LASTUSED/NEXTFREE) FROM CURLEB *) 02937 LOOPOFFSET=20; (* OFFSET TO LOOPCOUNT FROM CURLEB *) 02938 PARAMOFFSET=14; (* AMOUNT TO ADD TO GET AT ACTUAL PARAMS, AFTER BITPATTERN *) 02939 ()+19*) ()+12*) 02940 (*+13() 02941 SZWORD=4; SZADDR=4; SZINT=4; SZREAL=8; SZLONG=4; SZNAKED=8; SZDL=4; SZPROC=8; SZTERM=16; 02942 SIZIBTOP=0; 02943 SIZIBBASE=20; 02944 SIZLEBBASE=24; 02945 RGOFFSET=4; 02946 LOOPOFFSET=24; 02947 PARAMOFFSET=16; 02948 ()+13*) ()+02*) 02949 (*+04() 02950 SZWORD=1; SZADDR=2; SZINT=2; SZREAL=4; SZLONG=2; SZNAKED=4; SZDL=3; SZPROC=1; SZTERM=8; 02960 (*SIZE OF OBJECTS IN ADDRESSING UNITS*) 02970 SIZIBTOP=0; 02980 SIZIBBASE=999; 02990 SIZLEBBASE=888; 03000 ()+04*) 03010 (*+05() 03020 SZWORD=2; SZADDR=2; SZINT=2; SZREAL=4; SZLONG=4; SZNAKED=4; SZDL=4; SZPROC=4; SZTERM=16; 03030 SIZIBTOP=0; 03040 SIZIBBASE=12; 03050 PARAMOFFSET=12; 03060 SIZLEBBASE=12; 03062 LOOPOFFSET=12; 03064 RGOFFSET=2; 03070 ()+05*) 03080 (*+76() DLACTION=4; DLUNITS=8; ()+76*) (*+74() DLVAREMPTY=1; DLSTRUCT=4; DLMULT=6; ()+74*) 03090 DLASCR=12; (* DLBNDS=10; DLDESC=11; *) 03100 (*STATES*) 03110 (*+74() 03120 XINT=0; XLINT=1; XREAL=2; XLREAL=3; XCOMPL=4; XLCOMPL=5; 03130 XCHAR=6; XSTRNG=7; 03140 XBOOL=8; XBITS=9; XBYTES=10; 03150 ()+74*) 03160 (**) 03170 (**) 03180 (*PARSING*) 03190 (*********) 03200 (**) 03210 SRPLSTKSIZE=80; (*SIZE OF PARSER STACK*) 03220 PRODLEN=407; 03230 (**) 03240 (**) 03250 TYPE (*TYPE TYPE TYPE TYPE TYPE TYPE TYPE TYPE TYPE TYPE TYPE TYPE TYPE TYPE TYPE TYPE TYPE TYPE TYPE TYPE*) 03260 (**) 03270 (*MISCELLANEOUS*) 03280 (***************) 03290 (**) 03300 (*+01() A68INT=INTEGER; A68LONG = RECORD V1: INTEGER; V2: INTEGER END; ADDRINT=INTEGER; ()+01*) 03310 (*+02() (*+12() 03320 (*-19() A68INT=INTEGER; A68LONG=LONG; ADDRINT=INTEGER; ()-19*) 03325 (*+19() A68INT=INTEGER; A68LONG=LONG; ADDRINT=LONG; ()+19*) ()+12*) 03326 (*+13() A68INT=INTEGER; A68LONG=INTEGER; ADDRINT=INTEGER; ()+13*) 03330 ()+02*) 03340 (*+03() A68INT=INTEGER; A68LONG=REAL; ADDRINT=INTEGER; ()+03*) 03350 (*+04() A68INT=LONG; A68LONG=LONG; ADDRINT=LONG; ()+04*) 03360 (*+05() A68INT=INTEGER; A68LONG=REAL; ADDRINT=INTEGER; ()+05*) 03370 (*+01() DUMPOBJ=RECORD INT,MASK: INTEGER END; (*FOR A68INIT FILE*) ()+01*) 03380 (*+25() DUMPOBJ=RECORD INT,MASK: INTEGER END; (*FOR A68INIT FILE*) ()+25*) 03390 PINTEGER=^INTEGER; 03400 (*-03() 03410 LOADFILE=(*+01() SEGMENTED ()+01*) (*+25() SEGMENTED ()+25*)FILE OF ADDRINT; 03420 (*+01() FYL = SEGMENTED FILE OF CHAR; ()+01*) 03430 (*-01() FYL = (*+25() SEGMENTED FILE OF CHAR ()+25*) (*-25() TEXT ()-25*); ()-01*) 03440 ()-03*) 03450 (*+03() 03460 LOADFILE=BYTES; 03470 ()+03*) 03480 (**) 03490 SEVERAL=1..10; 03500 (*+11() BYTE=0..63; ()+11*) 03510 (*-11() BYTE=0..255; ()-11*) 03520 (**) 03530 (*LISTING*) 03540 (*********) 03550 (**) 03560 BUFFER=ARRAY[0..CBUFSIZE] OF CHAR; 03570 (*+01() 03580 W66=PACKED RECORD 03590 FILL1: PACKED ARRAY [1..4] OF CHAR; 03600 JOPR: 0..7777B; 03610 FILL2: PACKED ARRAY [1..4] OF CHAR; 03620 END; 03630 PW66=^W66; 03640 ()+01*) 03650 (*+05() ARGSTRING=PACKED ARRAY [1..50] OF CHAR; 03652 TIMSTRING=PACKED ARRAY [1..26] OF CHAR; 03654 ()+05*) 03660 (*MODE HANDLING*) 03670 (***************) 03680 (**) 03690 (*+11() LABL=-177777B..177777B; ()+11*) 03700 (*+12() LABL=-32767..32767; ()+12*) 03710 (*+13() LABL=-32767..32767; ()+13*) 03720 MDIDTYPE=(MDIDINT, MDIDLINT, MDIDREAL, MDIDLREAL, MDIDCHAR, MDIDBITS, MDIDBYTES, MDIDSTRNG, 03730 (*ALL THE ABOVE ARE WIDENABLE*) 03740 MDIDBOOL, MDIDCHAN, MDIDCOVER, MDIDVOID, MDIDSKIP, MDIDJUMP, MDIDNIL, 03750 MDIDOUT, MDIDIN, MDIDOUTB, MDIDINB, MDIDNUMBER, MDIDROWS, 03760 (*ALL THE ABOVE ARE UNITED*) 03770 MDIDBNDS, 03780 MDIDABSENT, MDIDERROR, MDIDPROC, MDIDREF, MDIDSTRUCT, MDIDROW, MDIDPASC); 03790 CNTR=0..63; (*POSSIBLE NUMBER OF FIELDS OR PARAMETERS*) 03800 MDM=PACKED RECORD 03810 MDID: MDIDTYPE; 03820 MDLEN: 0..127; (*THE LENGTH OCCUPIED BY THE MODE WHEN IT IS A FIELD OF A STRUCTURE 03830 - IE ITS UNDRESSED LENGTH*) 03840 MDDEPROC, MDRECUR, MDDRESSED, MDIO, MDPILE, MDSCOPE: BOOLEAN; 03850 MDCNT: CNTR; 03860 END; 03870 MODE=^MD; 03880 PLEX=^LEXEME; 03890 PSB=^SEMBLK; 03900 PSTB=^STBLOCK; 03910 (**) 03920 MD=PACKED RECORD (*MODE TABLE ENTRY*) 03930 CASE SEVERAL OF 03940 1:(MDLINK: MODE; (*CHAIN OF MODES OF SAME TYPE*) 03950 MDV: MDM; 03960 CASE SEVERAL OF 03970 1,2,3,6,7,8,9,10: (); 03980 4: (MDPRRMD: MODE; (*FOR RESULT, REFED TO, OR ROWED MODE*) 03990 (*+11() (*SHOULD FIT INTO ONE WORD UP TO HERE*) ()+11*) 04000 MDPRCPRMS: ARRAY[CNTR] OF MODE); 04010 5: (MDSTRSDB: LABL; (*PTR TO DBLOCK*) 04020 (*+11() (*SHOULD FIT INTO ONE WORD UP TO HERE*) ()+11*) 04030 MDSTRFLDS: ARRAY[CNTR] OF PACKED RECORD 04040 MDSTRFMD: MODE; 04050 MDSTRFLEX: PLEX; 04060 END) ); 04070 2:(MDWORDS: ARRAY[1..1] OF INTEGER); 04080 (*FOR GETTING AT MDPRCPRMS AND MDSTRFLDS. 04090 IT IS INTENDED THAT ONLY SUFFICIENT WORDS FOR THE PARTICULAR 04100 MODE WILL BE ALLOCATED*) 04110 3,4,5,6,7,8,9,10: () 04120 END; 04130 (**) 04140 STRTYP=(STRNONE, STREMPTY, STRSOFT, STRWEAK,STRMEEK,STRFIRM, STRSTRONG); 04150 (*COERCION STRENGTHS*) 04160 CODEPROC=(PROC, PASC); (*FOR PASCAL PROCEDURES OR OTHERWISE*) 04170 (**) 04180 (**) 04190 (*CODES FOR SEMANTIC ROUTINES*) 04200 (*****************************) 04210 (**) 04220 RTNTYPE = 0..245; 04230 (* SEMANTICROUTINES 10..120, 04240 ERRORTYPES 04250 ELX 121..129, 04260 ESY 130..172, 04270 ESE 173..245 *) 04280 (**) 04290 (**) 04300 (*LEXICAL ANALYSIS*) 04310 (******************) 04320 (**) 04330 (*-01() ALFA=PACKED ARRAY [1..10] OF CHAR;()-01*) 04331 BIGALFA = PACKED RECORD 04332 (*+01() CASE SEVERAL OF 1: ( ()+01*) 04335 ALF: ALFA; (*+01() ); 2: ( DUMMY: PACKED ARRAY[1..8] OF CHAR; ()+01*) 04336 IDSIZE:BYTE; 04337 XMODE:BYTE; 04338 (*+01() ) ; 3,4,5,6,7,8,9,10 : (); ()+01*) 04339 END; 04340 CL0TYPE=0..1; CL1TYPE=0..4; CL2TYPE=0..15; 04350 (*LEXEME CLASSES*) 04360 (*+73() 04370 LXIOTYPE=(LXIODUMMY, 04380 (*NONTERMINALS*) 04390 LXIOACTPL, LXIOACTRL, 04400 LXIOBOUNDS, LXIOBRINPT, LXIOBRTHPT, 04410 LXIOCSTICK, 04420 LXIODCLL, 04430 LXIOFLDSPL, LXIOFORDCL, LXIOFORRLB, 04440 LXIOIDEFL, 04450 LXIOLABSQ, 04460 LXIOMOIDDR, 04470 LXIONONRDR, 04480 LXIOODEFL, LXIOOPRAND, 04490 LXIOPRIM, LXIOPRMDRL, 04500 LXIORIDEFL, LXIORODEFL, LXIORSPEC, LXIORVDEFL, 04510 LXIOTERT, LXIOTRMSCL, 04520 LXIOUNLC, LXIOUNLP, LXIOUNSR, 04530 LXIOVDEFL, 04540 (*TERMINALS*) 04550 LXIOAGAIN, LXIOAT, 04560 LXIOBECOM, LXIOBEGIN, LXIOBOOLDEN, LXIOBY, 04570 LXIOCASE, LXIOCMMENT, 04580 LXIODO, 04590 LXIOELIF, LXIOELSE, LXIOEND, LXIOEQUAL, LXIOERROR, LXIOESAC, LXIOEXIT, 04600 LXIOFI, LXIOFOR, LXIOFROM, 04610 LXIOGO, LXIOGOTO, 04620 LXIOHEAP, 04630 LXIOIDTY, LXIOIF, LXIOIN, 04640 LXIOLOC, 04650 LXIOMODE, 04660 LXIONIL, 04670 LXIOOD, LXIOOF, LXIOOP, LXIOOPR, LXIOOUSE, LXIOOUT, 04680 LXIOPRAGMAT, LXIOPRDEN, LXIOPRIO, 04690 LXIOSEMIC, LXIOSKIP, LXIOSTART, LXIOSTOP, LXIOSTICK, LXIOSTRGDEN, 04700 LXIOTHEN, LXIOTO, 04710 LXIOWHILE, 04720 LXIOBUS, LXIOCLOSE, LXIOCOLON, LXIOCOMMA, LXIOLONG, LXIOMDIND, LXIOOPEN, LXIOOTHDR, LXIOPRDR, 04730 LXIOPROC, LXIOREF, LXIOSHORT, LXIOSTRUCT, LXIOSUB, LXIOTAB, LXIOTAG, LXIOVOID); 04740 (*THOSE IN THE LAST TWO LINES ARE SPECIALLY SEGREGATED FOR AR2*) 04750 ()+73*) 04760 (*-73() LXIOTYPE=0..127; ()-73*) 04770 LXM=PACKED RECORD (*SHOULD OCCUPY 1 WORD*) 04780 LXIO: LXIOTYPE; (*LEXEME VALUE*) 04790 LXCLASS0: CL0TYPE; LXCLASS1: CL1TYPE; LXCLASS2: CL2TYPE; 04800 CASE SEVERAL OF 04810 (*+11() 1:(LXP: 0..777777B); ()+11*) 04820 (*+12() 1:(LXP: 0..32767); ()+12*) 04830 (*+13() 1:(LXP: 0..32767); ()+13*) 04840 2:(LXPSTB: PSTB); 04850 3:(LXPSB: PSB); 04860 4:(LXPMD: MODE); 04870 5:(LXPYPTR: LABL); 04880 6:(LXPRTN: RTNTYPE); (*FOR PARSER GENERATOR ONLY*) 04890 7:(LXPIO: LXIOTYPE); (*FOR PARSER GENERATOR ONLY*) 04900 8,9,10:(); 04910 END; 04920 (**) 04930 LEXEME=PACKED RECORD 04940 CASE SEVERAL OF 04950 1:(LXV: LXM; (*THE ONLY FIELD FOR SIMPLE LEXEMES*) 04960 LXTOKEN: (TKTAG, TKBOLD, TKDENOT, TKSYMBOL); 04970 (*MEANING OF STRING*) 04980 LXCOUNT: 0..TAXLENWD; (*WORDS IN STRING*) 04990 LINK: PLEX; (*HASH TABLE CHAINING*) 05000 CASE SEVERAL OF 05010 1:(WORD1: A68INT ); 05020 2:( S10,S20: ALFA ); 05030 4:(INTEGERS: ARRAY [1..TAXLENWD] OF A68INT); 05040 (*+11() 6:(FUDGE1, FUDGE2: 0..1073741823); 05050 7:(FUDGE: PACKED ARRAY [1..TAXLENWD2] OF 0..1073741823); 05060 (*HALF WORDS FOR HASHING*) 05070 ()+11*) 05080 (*-11() 6,7: (); ()-11*) 05090 8:(STRNG: PACKED ARRAY [1..TAXLEN] OF CHAR); 05100 (*AS SINGLE CHARS*) 05110 9:(LXDENMD: MODE; LXDENRP: A68INT); 05120 (*ANOTHER VIEW OF S1, FOR DENOTATIONS*) 05130 10:( INSTEADLXDENMD: MODE ; LXDENRPREAL: REAL) ; 05140 3,5:() ); 05150 2:(LEXWORDS: ARRAY [1..1] OF A68INT); (*FOR COPYING WHOLE LEXEMES*) 05160 3,4,5,6,7,8,9,10:() 05170 END; 05180 HASHTAB=ARRAY [0..HTSIZE] OF PLEX; 05190 OPCHTABBOUND=0..46; (*BOUNDS OF OPCHTABLE*) 05200 (*+72() INDEXTYPE=(CONTROL, EOL, SPACE, ERRCH, DIGIT, POINT, QUOTE, 05210 PUNCT, PLSMIN, LETTER, STROP, EOFF, PRAG); ()+72*) 05220 (*-72() INDEXTYPE=0..12; ()-72*) 05230 TYPETYPE=SET OF (HEX, LOWC, UPC, DIG); 05240 (**) 05250 (**) 05260 (*CODE EMITTER*) 05270 (**************) 05280 (**) 05290 PMARKCHAIN=^MARKCHAIN; 05300 STATE=0..32; (*USED AS OPCOD OFFSETS*) 05310 (*+76() 05320 MARKCHAIN=PACKED RECORD 05330 MKXPTR: LABL; 05340 LINK: PMARKCHAIN 05350 END; 05360 ()+76*) 05370 (*-76() (*-02() MARKCHAIN = INTEGER; ()-02*) 05375 (*+02() MARKCHAIN = PACKED RECORD A:INTEGER;B:ADDRINT END; ()+02*) ()-76*) 05380 OLSTTYP=ARRAY[0..5] OF PACKED RECORD DP: BOOLEAN; OVAL: STATE END; 05390 POP=PNONE..PLAST; 05400 (**) 05410 (*+01() 05420 RELOCBASE=0..777B; 05430 CBUFPTRS=0..127; 05440 CODEBUF=RECORD 05450 BUFFER: ARRAY [CBUFPTRS] OF RECORD CASE SEVERAL OF 05460 1:(CODEWORD: INTEGER); 2:(ALFWORD: ALFA); 3,4,5,6,7,8,9,10:() END; 05470 FIRST, LAST: CBUFPTRS; 05480 RELOCATION: INTEGER; 05490 SEGLOC: LABL; 05500 FOUR: 1..5; FIFTEEN: 1..15; 05510 HEADERWORD: PACKED RECORD 05520 CASE INTEGER OF 05530 1: (TN, WC: 0..7777B; 05540 FILLER: 0..777B; 05550 R: RELOCBASE; 05560 S: 0..777777B); 05570 2: (WORD: INTEGER) 05580 END 05590 END; 05600 (**) 05610 PFILLCHAIN=^FILLCHAIN; 05620 FILLCHAIN=PACKED RECORD 05630 FSEGLOC: LABL; 05640 FFOUR: 1..4; 05650 COUNT: 0..31; 05660 LINK: PFILLCHAIN 05670 END; 05680 PFCHAIN=^FCHAIN; 05690 FCHAIN=PACKED RECORD 05700 FLAST: CBUFPTRS; 05710 FFOUR: 1..4; FFIFTEEN: 1..15; 05720 FSEGLOC, FLABL: LABL; 05730 LINK: PFCHAIN 05740 END; 05750 (**) 05760 SBTTYP=(SBTVOID,SBTID,SBTIDV,SBTLIT,SBTVAR,SBTDEN,SBTPROC,SBTRPROC,SBTSTK,(*+61()SBTSTK2,()+61*)SBTSTKN,SBTDL, 05770 (*+61() SBTX12, SBTX45, ()+61*) 05780 SBTX5,SBTX6,SBTX0,SBTX1,SBTXN); 05790 (*SBTSTKN IS AN ARBITRARY STACK ITEM; STBXN IS AN ARBITRARY REGISTER(?) ITEM*) 05800 (*SBTDL IS FOR DATA LISTS, WHICH ARE REALLY ON THE STACK BUT MAY START IN A REGISTER*) 05810 SUBSBTTYP=SBTX5..SBTX1; 05820 REGUSETYP=SET OF SUBSBTTYP; 05830 ()+01*) 05840 (*+02() 05850 SBTTYP=(SBTVOID,SBTID,SBTIDV,SBTVAR,SBTLIT,SBTDEN,SBTPROC,SBTRPROC,SBTSTK,SBTSTK2,SBTSTK2A,SBTSTK4,SBTSTKN,SBTDL, 05860 SBTPR1,SBTPR2,SBTPRR,SBTXN); 05870 ()+02*) 05880 (*+03() 05890 SBTTYP=(SBTVOID,SBTID,SBTIDV,SBTVAR,SBTLIT,SBTDEN,SBTPROC,SBTRPROC,SBTSTK,SBTSTKN,SBTDL,SBTX0,SBTX1,SBTXN); 05900 SUBSBTTYP=SBTX0..SBTX1; 05910 REGUSETYP=SET OF SUBSBTTYP; 05920 ()+03*) 05930 (*+04() 05940 SBTTYP=(SBTVOID,SBTID,SBTIDV,SBTVAR,SBTLIT,SBTDEN,SBTPROC,SBTRPROC,SBTSTK,SBTSTKN,SBTDL,SBTXN); 05950 ()+04*) 05960 (*+05() 05970 SBTTYP=(SBTVOID,SBTID,SBTIDV,SBTVAR,SBTLIT,SBTDEN,SBTPROC,SBTRPROC,SBTSTK,SBTSTK4,SBTSTKR0,SBTSTKN,SBTDL, 05980 SBTPR1,SBTPR2,SBTE,SBTER0,SBTFPR0,SBTFPR1,SBTFPR2,SBTFPR3,SBTXN); 05990 SUBSBTTYP=SBTE..SBTFPR3; 06000 REGUSETYP=PACKED RECORD 06010 ECOUNT: 0..8; 06020 EEXTRA: 0..8; 06030 FPR: SET OF SUBSBTTYP 06040 END; 06050 ()+05*) 06060 (*-23() 06070 (*+01() 06080 CODETYP=PACKED RECORD 06090 P1, P2, PR : SBTTYP; 06100 CASE INLINE: BOOLEAN OF 06110 TRUE: ( 06120 LEN: (F0, F15, F30, F30K); 06130 FMIJK: 0..7777777777B; 06140 REL: -177777B..177777B; (*FOR RELATIVE JUMPS*) 06150 NEXT: POP); 06160 FALSE: ( 06170 ROUTINE: PACKED ARRAY [1..RTNLENGTH] OF CHAR; 06180 LINKINS: PFILLCHAIN) 06190 END; 06200 ()+01*) 06210 (*+02() 06220 (*+24() COMPACT = 0..161; ()+24*) 06230 (*-24() COMPACT = PACKED ARRAY [1..3] OF CHAR; ()-24*) 06240 (*+78()PARAMTYPES = (OPX,ONX,OPL,ONL,LCX,GBX,WOP,WNP,WLB,NON,JMP,MOR,ACP,ANP,ACB,ACX,ANX,ACL,ANL); 06250 CODETYP = PACKED RECORD 06260 P1,P2,PR:SBTTYP; 06270 CASE INLINE:BOOLEAN OF 06280 TRUE : (EMCOD : COMPACT; 06290 PARTYP:PARAMTYPES; 06300 NEXT : POP; 06310 PARM : -32767..32767 ); 06320 FALSE: (ROUTINE : PACKED ARRAY [1..RTNLENGTH] OF CHAR); 06330 END; ()+78*) 06340 (*-78() (*-24() CODETYP=PACKED ARRAY [1..14] OF CHAR ; ()-24*) 06342 (*+24() CODETYP=PACKED ARRAY [1..12] OF CHAR ; ()+24*) ()-78*) 06350 ()+02*) 06360 (*+03() 06370 ROUTNAME=PACKED ARRAY [1..RTNLENGTH] OF CHAR; 06380 CODETYP=PACKED RECORD 06390 P1, P2, PR: SBTTYP; 06400 CASE INLINE: BOOLEAN OF 06410 TRUE:(NEXT: POP; 06420 CASE SEVERAL OF 06430 1: (FUN:INTEGER); 06440 2: (FDISP: 0..127; 06450 FSIGN: 0..1; 06460 FMODE: 0..7; 06470 FCODE: 0..31); 06480 3: (FILL1: 0..63; 06490 FBITS: 0..3; 06500 FILL2: 0..255); 06510 4,5,6,7,8,9,10: ()); 06520 FALSE:(ROUTINE: ROUTNAME) 06530 END; 06540 ()+03*) 06550 (*+05() 06560 (*-24() MNEMONICS = PACKED ARRAY[1..8] OF CHAR; ()-24*) 06570 (*+78() PARAMTYPES = (OPX,ONX,LCX,GBX,WOP,WNP,NON,JMP,MOR,ANP,ACP,ACX,ANX); 06580 CODETYP = PACKED RECORD 06590 P1,P2,PR:SBTTYP; 06600 CASE INLINE:BOOLEAN OF 06610 TRUE : (PERQCOD : MNEMONICS; 06620 PARTYP:PARAMTYPES; 06630 PARM : BYTE; 06640 NEXT : POP; ); 06650 FALSE: (ROUTINE : PACKED ARRAY [1..RTNLENGTH] OF CHAR); 06660 END; ()+78*) 06670 (*-78() CODETYP = ARRAY[1..4] OF INTEGER; ()-78*) 06680 ()+05*) 06690 ()-23*) 06700 (*+23() 06710 CODETYP=PACKED RECORD 06720 ROUTINE:ALFA; 06730 PR:SBTTYP 06740 END; 06750 ()+23*) 06760 SBTTYPSET=SET OF SBTTYP; 06770 (**) 06780 (**) 06790 (*CODE GENERATOR*) 06800 (****************) 06810 (**) 06820 (**) 06830 OPDTYP=(OCVNONE, OCVIMMED, OCVIMMLONG, OCVIMMPTR, OCVLCLGBL, 06835 OCVMEM, OCVEXT, OCVFREF, OCVLIT, OCVFIM, OCVRES, OCVSB, OCVSBP, OCVSBS); 06840 (**) 06850 (**) 06860 (*SEMANTIC ROUTINES*) 06870 (*******************) 06880 (**) 06890 (*+11() 06900 DEPTHR=0..4095; (*DEPTH TO WHICH RANGES ETC. ARE NESTED*) 06910 OFFSETR=-4095..4096; (*FOR OFFSETS WITHIN INVOCATION BLOCKS*) 06920 ()+11*) 06930 (*+12() 06940 (*-02() 06950 DEPTHR=0..127; 06960 OFFSETR=-256..255; 06970 ()-02*) 06980 (*+02() 06990 DEPTHR=0..255; 07000 OFFSETR=INTEGER; 07010 ()+02*) 07020 ()+12*) 07030 (*+13() 07040 DEPTHR=0..255; 07050 OFFSETR=-256..250; 07060 ()+13*) 07070 (*-61() STDOPTYP=0..70; ()-61*) (*FOR OPTABL*) 07080 (*+61() STDOPTYP=0..76; ()+61*) 07090 DEFTYP= (*PROPERTIES OF STBLOCK*) 07100 SET OF (STINIT, STVAR, STCONST, STRCONST, STRECUR, STUSED (*+05(),DUM6,DUM7,DUM8()+05*) ); 07110 BLKTYP= (*TYPES OF STBLOCK*) 07120 (STBDEFID, STBDEFLAB, STBDEFMI, STBDEFPRIO, STBDEFOP, 07130 STBNONE, 07140 STBAPPID, STBAPPLAB, STBAPPMI, STBAPPOP); 07150 (**) 07160 PROUTN=^ROUTN; 07170 ROUTN=(*-04()PACKED()-04*) RECORD (*PROPERTIES OF CURRENT ROUTINE*) 07180 RNLINK: PROUTN; (*TO PREVIOUS ROUTN*) 07190 RNLOCRG, (*CURRENT DEPTH OF LOCAL RANGES WITHIN THIS ROUTINE*) 07200 RNLEVEL: DEPTHR; (*DEPTH OF THIS ROUTINE*) 07210 RNNECLOCRG: DEPTHR; (*LOCAL RANGE DEPTH WITHIN RNNECLEV OF NECESSARY ENVIRON*) 07220 RNNECLEV: DEPTHR; (*ROUTINE DEPTH OF NECESSARY ENVIRON*) 07230 RNSTKDEPTH: OFFSETR; 07240 RNRTSTACK: PSB; (*RTSTACK ON ROUTINE ENTRY*) 07250 RNCURID: OFFSETR; (*FOR PREVIOUS ROUTN*) 07260 RNNONIC: DEPTHR; (*NO. OF ROUTNCHAINS REFERRING TO THIS ROUTN*) 07270 RNLENSTK: OFFSETR; (*MAXIMUM STACK DEPTH*) 07280 RNLENIDS: OFFSETR; (*MAXIMUM SPACE FOR LOCALS*) 07290 RNMODE: MODE; (*RESULT MODE*) 07300 RNPARAMS: OFFSETR; (*SPACE OCCUPIED BY PARAMETERS*) 07302 RNIDBLK: LABL; (*IDBLOCK FOR PARAMETERS RANGE*) 07304 RNLEX: PLEX; (*IDENTIFIER OF ROUTINE (NIL IF ANONYMOUS)*) 07310 RNADDRESS: LABL; (*ENTRY POINT*) 07320 RNPROCBLK: LABL; (*ADDRESS OF PROCBLOCK*) 07330 (*-02()(*-04() RNREGSINUSE: REGUSETYP (*RESERVE STATE OF REGS BEFORE ROUTINE-TEXT*) ()-04*)()-02*) 07340 END; 07350 (**) 07360 PROUTNCHAIN=^ROUTNCHAIN; 07370 ROUTNCHAIN=PACKED(*PACKED*) RECORD (*CHAIN OF ROUTNS STARTING FROM STROUTN OF AN STBLOCK*) 07380 DATA: PROUTN; 07390 LINK: PROUTNCHAIN 07400 END; 07410 (**) 07420 STBLOCK=(*-04()PACKED()-04*) RECORD (*SYMBOL TABLE BLOCK*) 07430 STLINK: PSTB; (*TO PREVIOUS INCARNATION OF INDICATOR*) 07440 STTHREAD: PSTB; (*CHAIN OF STBLOCKS IN SAME RANGE*) 07450 STLEX: PLEX; (*LEXEME FOR INDICATOR*) 07460 STDEFTYP: DEFTYP; 07470 STRANGE: DEPTHR; (*DEPTH OF RANGE*) 07480 STLEVEL: DEPTHR; (*DEPTH OF ROUTINE CONTAINING RANGE*) 07490 STLOCRG: DEPTHR; (*DEPTH OF LOCAL RANGE WITHIN ROUTINE*) 07500 CASE STBLKTYP: BLKTYP OF 07510 STBNONE: (); 07520 STBDEFID, STBDEFMI, STBDEFOP: 07530 (STMODE: MODE; 07540 CASE SEVERAL OF 07550 1:(STPTR:LABL); 07560 2:(STOFFSET: OFFSETR); (*OFFSET WITHIN INVBL*) 07570 3:(STVALUE: PLEX); (*FOR CODE PROCS*) 07580 4,5,6,7,8,9,10:() ); 07590 STBAPPID, STBAPPMI, STBAPPOP: 07600 (STDEFPTR: PSTB); (*PTR TO DEFINING OCCURRENCE*) 07610 STBDEFLAB, STBAPPLAB: 07620 (STROUTN: PROUTNCHAIN; 07630 STCURID: OFFSETR; (*FOR PREVENTING JUMPS OVER DECLARATIONS*) 07640 STXPTR: PACKED ARRAY[0..1]OF LABL); (*0 FOR LABEL, 1 FOR JUMPS OUT OF ROUTINES TO IT*) 07650 STBDEFPRIO: 07660 (STDYPRIO: 1..11; (*PRIORITY - 10 IS FOR MONADICS, 11 FOR UNDECLARED OPS*) 07670 STUSERLEX: PLEX; 07680 STSTDOP: STDOPTYP ) (*POINTER INTO OPTABL, FOR STD OPERATORS*) 07690 END; 07700 (**) 07710 DCLTYP= (*ATTRIBUTES OF RANGES*) 07720 (DCLCOLL, DCLLOCRNG, DCLPARM, DCLLABEL, DCLPILEDECS, 07730 DCLLOCGEN, DCLLOOP, DCLDELAY, DCLSAVEDESC, DCLACTDR, DCLPILE, DCLMODEDEF); 07740 (**) 07750 PRANGE=^RANGE; 07760 RANGE=(*-04()PACKED()-04*) RECORD (*PRESERVES PROPERTIES OF PREVIOUS RANGE*) 07770 RGLINK: PRANGE; (*TO PREVIOUS RANGE*) 07780 RGINF: SET OF DCLTYP; 07790 RGSTAT: STATE; 07800 RGDCIL: PSTB; (*THREAD OF PREVIOUS RANGE*) 07810 RGLEB: OFFSETR; (*LOCAL ENVIRONMENT BASE OF PREVIOUS LOCAL RANGE*) 07820 RGDEFN: DEFTYP; (*FROM PREVIOUS LOCAL RANGE*) 07830 RGMODE, RGPRVMODE: MODE;(*DITTO*) 07840 RGTODOCOUNT, RGPSCOUNT: DEPTHR; (*DITTO*) 07850 RGPSLABL: LABL; (*DITTO*) 07860 RGRTSTACK: PSB; (*RTSTACK ON RANGE ENTRY*) 07870 RGIDBLK: LABL; 07880 END; 07890 (**) 07900 PTRIMCHAIN=^TRIMCHAIN; 07910 TRIMCHAIN=PACKED(*PACKED*) RECORD 07920 TRTYPE: 0..9; 07930 LINK: PTRIMCHAIN 07940 END; 07950 SEMBLK=PACKED(*PACKED*) RECORD (*SEMANTIC BLOCK*) 07960 SBTYP: SBTTYP; 07970 SBLEN: DEPTHR; (*TO ACCOMODATE A REASONABLE DATA-LIST*) 07980 SBMODE: MODE; 07990 SBINF: SET OF (SBMORF, SBVOIDWARN, SBEMPTYBY, SBEMPTYTO, SBLEFTCOLL, SBPILEDECS, 08000 SBWEAKREF, SBNOREF, SBSTKDELAY, SBNAKED, SBNAKROW, SBCOLL, SBUNION, SBSLN, SBLOCGEN); 08010 SBDELAYS: DEPTHR; 08020 SBRTSTK: PSB; 08030 CASE SEVERAL OF 08040 1:(SBXPTR: LABL; 08050 SBCNT: CNTR; (*TO COUNT ACTUAL-PARAMETERS OF PROC*) 08060 CASE SEVERAL OF 08070 1:(SBLEX: PLEX); 08080 2:(SBVALUE: (*+01()LABL()+01*) (*+02()LONG()+02*) 08082 (*-01()(*-02()A68INT()-02*)()-01*)); 08090 3:(SBOFFSET: OFFSETR; 08100 SBLOCRG: DEPTHR; 08110 SBLEVEL: DEPTHR); 08120 4:(SBBALSTR: STRTYP); 08130 5,6,7,8,9,10:() ); 08140 2: (SBTRIMS: PTRIMCHAIN; 08150 SBTRIMCNT, 08160 SBSLICEDIM: -63..63; 08170 SBPRIMDIM: 0..63; 08180 SBUNITS: 0..189); 08190 3,4,5,6,7,8,9,10:() 08200 END; 08210 (**) 08220 PMODECHAIN=^MODECHAIN; 08230 MODECHAIN=PACKED(*PACKED*) RECORD (*CHAIN OF MODES STARTING AT SCL*) 08240 SCMODE: MODE; 08250 LINK: PMODECHAIN 08260 END; 08270 (**) 08280 XTYPE=-1..14; 08290 (*+74() 08300 OPIDNDXTYP= 08310 (IDIBRM,IDMON,IDMONL, (*MONADIC OPERATORS*) 08320 IDAA, (*BOTH OPERANDS IN SAME GROUP (EG ARITHMETIC*) 08330 IDAAL, (*AS IDAA, BUT RESULTMODE MAY BE LENGTHENED*) 08340 IDBB, (*BOTH OPERANDS TO BE THE SAME*) 08350 IDBI,IDIB,(*ONE OPERAND IS .INT*) 08360 IDIBR, (*.UPB AND .LWB*) 08370 IDSI, (* *:= ON STRINGS*) 08380 IDSC,IDCS,(* +:= AND +=: ON STRINGS*) 08390 IDRA (*ASSIGNING OPERATORS*) ); 08400 OPIDBLK=PACKED RECORD 08410 OPIDNDX: OPIDNDXTYP; 08420 OPMORE: BOOLEAN; (*IF THERE ARE MORE DEFINITIONS OF THE SAME OPERATOR*) 08430 OPOPCOD: POP; 08440 OPMIN,OPMAX: XTYPE; (*RANGE OF ACCEPTABLE MODES*) 08450 OPMODE: MODE; (*RESULT MODE (MDABSENT IMPLIES RESULT MODE DEDUCED FROM OPERANDS)*) 08460 END; 08470 ()+74*) 08480 (*-74() (*+02() (*+12() (*-19() OPIDBLK=RECORD A,B:REAL (* FOUR WORDS *) END; ()-19*) 08485 (*+19() OPIDBLK=PACKED RECORD A,B,C,D,E:INTEGER (*5 WORDS?*) END; ()+19*) ()+12*) 08486 (*+13() OPIDBLK=PACKED RECORD A,B,C:INTEGER; (*THREE WORDS*) END; ()+13*) ()+02*) 08490 (*+05() OPIDBLK=RECORD A,B,C: INTEGER (*THREE WORDS*) END; ()+05*) ()-74*) 08500 (**) 08510 (**) 08520 (*RUNTIME OBJECTS*) 08530 (*****************) 08540 (**) 08550 BITMAP = PACKED RECORD CASE SEVERAL OF 08560 1: ( 08570 (*+11() 08580 FILL: 0..77777777777777B; 08590 MASK: 0..37777B; 08600 COUNT: 0..15; ); 08610 ()+11*) 08620 (*+12() 08630 (*+03() MASK: 0..7777B; (*DIFFICULTIES ON NORD*) 08640 COUNT: 0..15; ); ()+03*) 08641 (*+02() MASK :INTEGER; 08642 COUNT :INTEGER; ); ()+02*) 08643 (*-03() (*-02() MASK: -127..127; 08644 COUNT: 0..255; ); ()-02*) ()-03*) 08650 ()+12*) 08660 (*+13() MASK: -32768..32767; 08670 COUNT: -32768..32767; ); 08680 ()+13*) 08690 2: (INT: (*-02()A68INT()-02*)(*+02()LONG()+02*); ); 08700 3,4,5,6,7,8,9,10: () 08710 END; 08720 (**) 08730 (*+77() 08731 (*+13() CCOUNTRANGE=0..32767; ()+13*) 08740 OBJECTP=^OBJECT; 08750 OBJECT=PACKED RECORD 08760 CASE SEVERAL OF 08770 1:(FIRSTWORD: INTEGER); 08780 (*+11() 08790 2:(PCOUNT: -1..4095; 08800 SORT: 0..31; 08820 OSCOPE: DEPTHR; 08830 LENGTH: 0..4095; 08832 FILLER: 0..1; 08835 DBLOCK: OBJECTP); 08840 ()+11*) 08850 (*+12() 08860 2:(PCOUNT: 0..2047; 08870 SORT: 0..31; 08880 OSCOPE: DEPTHR; 08890 LENGTH: 0..511; 08900 DBLOCK: OBJECTP); 08910 ()+12*) 08920 (*+13() 08930 2:(PCOUNT: 0..32767; 08940 SORT: 0..31; 08950 OSCOPE: DEPTHR; 08960 DBLOCK: OBJECTP 08961 ANCESTOR: OBJECTP; 08962 IHEAD: OBJECTP; 08963 DUMMY: CCOUNTRANGE; 08964 LENGTH: CCOUNTRANGE); 08990 ()+13*) 09000 3,4,5,6,7,8,9,10: () 09010 END; 09020 (**) 09030 ()+77*) 09040 (**) 09050 (*PARSING*) 09060 (*********) 09070 (*+72() 09080 CONFIG=(S, C0, C1, C2, A, SSA); 09090 (*METHODS OF MATCHING LXVS. 09100 SSA IS A SPECIAL FRIG FOR MATCHING TWO STACK ITEMS*) 09110 SYLXVTYP = PACKED RECORD 09120 CASE BOOLEAN OF 09130 TRUE: (CASE SEVERAL OF 09140 1: (LX1IO: LXIOTYPE); 09150 2: (LX1CL0: CL0TYPE); 09160 3: (LX1CL1: CL1TYPE); 09170 4: (LX1CL2: CL2TYPE); 09180 5,6,7,8,9,10: () ); 09190 FALSE:(FILLER: 0..127; 09200 CASE SEVERAL OF 09210 1: (LX2IO: LXIOTYPE); 09220 2: (LX2CL0: CL0TYPE); 09230 3: (LX2CL1: CL1TYPE); 09240 4: (LX2CL2: CL2TYPE); 09250 5,6,7,8,9,10: () ) 09260 END; 09270 PROD= PACKED RECORD 09280 PRSTKA: 0..3; 09290 PRSTKC: S..C2; 09300 PRINPC: CONFIG; 09310 RTN: RTNTYPE; 09320 SYLXV: SYLXVTYP; 09330 SEXIT: 0..PRODLEN; 09340 PRPUSH: LXIODUMMY..LXIOVDEFL; (*A SUBRANGE OF LXIOTYPE*) 09350 PRSKIP: BOOLEAN; 09360 FEXIT: 0..PRODLEN; 09370 PRPOP: 0..5; 09380 PRSCAN: 0..2; 09390 END; 09400 PLEXQ=^LEXQ; 09410 LEXQ=PACKED RECORD (*CHAIN OF LEXEMES STARTING AT PLINPQ*) 09420 DATA1: PLEX; 09430 LINK: PLEXQ 09440 END; 09450 ()+72*) 09460 (**) 09470 (*-72() (*+02() (*+12() PROD=RECORD A,B,C,D,E,F,G: INTEGER (*SEVEN WORDS*) END; ()+12*) 09471 (*+13() PROD=RECORD A,B,C,D:INTEGER (*FOUR WORDS*) END; ()+13*) ()+02*) 09480 (*+05() PROD=RECORD A,B,C,D: INTEGER (*FOUR WORDS*) END; ()+05*) ()-72*) 09490 (*-72() PLEXQ=^INTEGER; ()-72*) 09500 (**) 09510 (*ERROR HANDLING*) 09520 (****************) 09530 (**) 09540 ERRLEV=(ERRORR, WARNING); 09550 (**) 09560 (**) 09570 (*+01() MESS=PACKED ARRAY [1..50] OF CHAR; (*FOR PASCPMD*) ()+01*) 09580 (*+02() MESS=PACKED ARRAY [1..50] OF CHAR; (*FOR PASCPMD*) ()+02*) 09590 VAR (*VAR VAR VAR VAR VAR VAR VAR VAR VAR VAR VAR VAR VAR VAR VAR VAR VAR VAR VAR VAR VAR VAR VAR VAR VAR VAR VAR*) 09600 (**) 09610 (*FILES*) 09620 (*******) 09630 (**) 09640 (*+01() (*THE FILES MUST BE THE FIRST THINGS DECLARED ON THE STACK,FOR THE BENEFIT OF DUMP*) ()+01*) 09650 SOURCDECS: TEXT; 09660 LSTFILE: FYL; (*FILE FOR PROGRAM LISTING, IF ANY*) 09670 LGO: (*-05() (*-02()LOADFILE; ()-02*) ()-05*) 09680 (*+02() (*+24() FILE OF BYTE; ()+24*) 09681 (*-24() TEXT; ()-24*) ()+02*) 09690 (*+05() ARRAY[0..LASTRNLEVEL] OF TEXT; ()+05*) 09700 (*+01() 09710 (*REMARKS: TEXT;*) (*FILE FOR TEMPORARY MONITORING*) 09720 A68INIT: LOADFILE; (*FOR INITIALIZATION*) 09730 ()+01*) 09740 (*+02() A68INIT:LOADFILE ; 09745 DUMPF : LOADFILE ; ()+02*) 09750 (*+03() 09760 OUTPUT: TEXT; 09770 CPUCLK: INTEGER; 09780 ()+03*) 09790 (*+04() OUTPUT: TEXT; ()+04*) 09800 (*+05() A68INIT: LOADFILE; ()+05*) 09810 (**) 09820 (**) 09830 (*+01() 09840 CPUCLK: INTEGER; 09850 (*+22() 09860 PARSCLK, LXCLOCK, SEMCLK, EMITCLK: INTEGER; 09870 CPUCLKS, PARSCLKS, LXCLOCKS, SEMCLKS, EMITCLKS: INTEGER; 09880 ()+22*) 09890 DUMPED, HEAPSTART, FIELDLENGTH: INTEGER; (*USED BY INITINIT AND RESTORE*) 09900 FIRSTSTACK: INTEGER; (*TO MARK THE START OF THE DUMPABLE STACK*) 09910 (**) 09920 (**) 09930 ()+01*) 09940 (*+25() 09950 DUMPED, HEAPSTART, FIELDLENGTH: INTEGER; (*USED BY INITINIT AND RESTORE*) 09960 FIRSTSTACK: INTEGER; (*TO MARK THE START OF THE DUMPABLE STACK*) 09970 ()+25*) 09980 (*+02() (*-25() FIRSTSTACK:INTEGER; ()-25*) ()+02*) 09990 (*+05() (*-25() FIRSTSTACK:INTEGER; ()-25*) ()+05*) 10000 (*LISTING*) 10010 (*********) 10020 (**) 10030 LSTLINE, LEXLINE, PREVLINE: INTEGER; (*SOURCE LINE NUMBER*) 10040 SRCBUF, ERRBUF: BUFFER; 10050 (*BUFFERS FOR SOURCE LINE AND ERROR MARKER LINE*) 10060 SRCPTR, ERRPTR: -1..CBUFSIZE; 10070 (*POINTERS INTO SRCBUF AND ERRBUF*) 10080 ONLINE: BOOLEAN; 10090 LSTCNT: 0..101; (*LISTING LINE NUMBER*) 10100 LSTPAGE: INTEGER; (*LISTING PAGE NUMBER*) 10110 (*+01() DAT, TIM: ALFA; (*DATE AND TIME*) ()+01*) 10112 (*+03() DAT, TIM: ALFA; (*DATE AND TIME*) ()+03*) 10114 (*+05() TIM: TIMSTRING; (*DATE AND TIME*) ()+05*) 10120 (*+23() NUMPARAMS:0..5; ()+23*) 10130 (**) 10140 (**) 10150 (*MODE HANDLING*) 10160 (***************) 10170 (**) 10180 REFL, ROWL, PROCL, PASCL, STRUCTL: MODE; 10190 (*START OF CHAINS OF MODES OF EACH TYPE*) 10200 MDVREF, MDVROW, MDVPROC, MDVPASC, MDVSTRUCT: MDM; 10210 (*FOR OTHER MDVS SEE INITIALIZE*) 10220 MDINT, MDLINT, MDBITS, MDBYTES, MDREAL, MDLREAL, MDBOOL, MDCHAN, MDCHAR, 10230 MDSTRNG, MDFILE, MDVOID, MDSKIP, MDJUMP, MDNIL, MDCOMPL, MDLCOMPL, MDCOVER, 10240 MDOUT, MDIN, MDOUTB, MDINB, MDNUMBER, MDROUT, MDROWS, MDBNDS, MDABSENT ,MDERROR, MDREFERROR: MODE; 10250 (*+54() MDEXC: MODE; ()+54*) 10260 MODEID: ARRAY[MDIDTYPE] OF -1..14; 10270 PRCBNDS, PRCVF, PASCVF, PRCERROR: MODE; 10280 (*PROC RETURNING BOUNDS, PROC(REF FILE) VOID, CODE(REF FILE) VOID, PROC MDERROR*) 10290 LASTPREF, LASTPROC: MODE; 10300 LHMODE, RHMODE, LHFIRM, RHFIRM: MODE; (*USED IN OPERATOR IDENTIFICATION*) 10310 REFSTRNG, ROWBOOL, ROWCHAR, ROWIN, ROWINB: MODE; 10320 COERCLEN: INTEGER; 10330 BALSTR, M1COERC, M2COERC: STRTYP; (*USED IN BALANCING*) 10340 (**) 10350 (**) 10360 (*LEXICAL ANALYSIS*) 10370 (******************) 10380 (**) 10390 PRAGFLGS: SET OF (PRGPOINT, PRGUPPER, PRGLIST, PRGWARN, 10400 PRGMACH, PRGGO, LINENUMBERS); 10410 (*FLAGS SET BY PRAGMATS*) 10420 CHA: CHAR; (*CURRENT INPUT CHARACTER*) 10430 INDEX: INDEXTYPE; (*INDEX TYPE OF CHA*) 10440 TYP, TTYPE: TYPETYPE; (*TYPE TYPE OF CHA*) 10450 CHAC: LOWC..UPC; (*UPPER/LOWER CASE INDICATOR*) 10460 SRCSTCH: CHAR; (*INDICATES WHETHER IN MIDDLE OF 10470 PRAGMENT, STRING-DENOTATION, ETC*) 10480 SRCSTAT: CHAR; (*VALUE OF SRCSTCH AT START OF LINE*) 10490 HT: HASHTAB; 10500 (*HASH TABLE*) 10510 CURRENTLEX: LEXEME; 10520 INPRAGMENT: BOOLEAN; 10530 OPCHTABLE: ARRAY [OPCHTABBOUND] OF PACKED RECORD 10540 OTCHAR: CHAR; OTNEXT, OTALT: OPCHTABBOUND; OTLEX: PLEX END; 10550 (*TBALE USED BY GETOPR IN LX*) 10560 LONGSCNT: INTEGER; (*NO OF SUCCESIVE LONGS OR SHORTS*) 10570 LEXTRUE, LEXFALSE: PLEX; 10580 LEXBEGIN, LEXOPEN, LEXIF, LEXCASE, LEXWHILE, LEXBRTHPT: PLEX; 10590 LEXERROR, LEXSTART, LEXLSTOP, LEXSTOP: PLEX; 10600 (*GLOBAL LEXEMES. FOR OTHER LEXEMES SEE INITIALIZE*) 10610 LEXALEPH, LEXONE: PLEX; 10620 LXVTAG, LXVTAB, LXVOPR, LXVMDIND, LXVPRDEN, LXVSTRGDEN: LXM; 10630 (*GLOBAL LXVS. FOR OTHER LXVS SEE INITIALIZE*) 10640 PUSHTBL: ARRAY [LXIODUMMY..LXIOVDEFL] OF PLEX; 10650 (*TABLE OF LEXEMES STACKABLE BY PARSER*) 10660 (**) 10670 (**) 10680 (*ERROR HANDLING*) 10690 (****************) 10700 (**) 10710 ERRS, SEMERRS, WARNS: INTEGER; (*NUMBER OF ERRORS, ETC DETECTED*) 10720 ERRCHAR: CHAR; (*CHAR TO BE WRITTEN TO ERRBUF, 10730 USUALLY BLANK*) 10740 ERRNONBLANK: BOOLEAN; (*TRUE IF ERRBUF CONTAINS ANY 10750 NON-BLANKS*) 10760 ERRDEV: BOOLEAN; (*TRUE IF LINE TO BE OUTPUT TO ERROR 10770 DEVICE*) 10780 ERRLXPTR: 0..CBUFSIZE; (* ??? *) 10790 (**) 10800 (**) 10810 (*CODE EMITTER*) 10820 (**************) 10830 (**) 10860 OPRAND: ADDRINT; 10870 OCV: OPDTYP; 10872 LCLGBL: INTEGER; 10874 (*+01() 10876 XSEG: CODEBUF; 10880 TPFCHAIN: PFCHAIN; 10890 TPFILLCHAIN: PFILLCHAIN; 10900 ()+01*) 10910 MARKPTR: PMARKCHAIN; 10920 NEXTLABEL: LABL; 10930 GENDPOCV: OPDTYP; GENDPVAL: INTEGER; (*GLOBAL OUTPUTS OF GENDP*) 10940 NEEDDP: BOOLEAN; 10950 OLIST1, OLIST2, OLIST3, OLIST4, OLIST5, OLIST6: OLSTTYP; 10960 CODETABLE: ARRAY[POP] OF CODETYP; 10970 LENARRAY : ARRAY [SBTTYP] OF 0..MAXSIZE; 10980 (*WORDS: 0..777777B;*) (*STACK/HEAP SPACE FOR OBJECT PROGRAM*) 10990 (*+01() 11000 REGSINUSE : SET OF SUBSBTTYP; 11010 REGISTERS:ARRAY [SBTTYP] OF SET OF SUBSBTTYP; 11020 POPARRAY : ARRAY [SBTSTK..SBTX1,SBTVOID..SBTX1] OF POP; 11030 ()+01*) 11040 NEXTREG : INTEGER; 11050 ADJUSTSP: INTEGER; 11060 (*+02() 11070 POPARRAY : ARRAY [SBTSTK..SBTDL,SBTVOID..SBTPRR] OF POP; 11080 NUMBYTES : 0..31; 11110 DATASTATE: (STARTDATA,INDATA,ENDDATA,OUTDATA); 11111 HOLTOP,HOLBOTTOM: LABL; 11120 ()+02*) 11130 (*+03() 11140 REGSINUSE: SET OF SUBSBTTYP; 11150 REGISTERS: ARRAY [SBTTYP] OF SET OF SUBSBTTYP; 11160 ()+03*) 11170 (*+05() 11180 POPARRAY : ARRAY [SBTSTK..SBTFPR3,SBTVOID..SBTFPR3] OF POP; 11190 APARAMS: INTEGER; 11220 DATASTATE : (STARTDATA,INDATA,ENDDATA,OUTDATA); 11230 REGSINUSE: REGUSETYP; 11240 ()+05*) 11250 (**) 11260 (**) 11270 (*CODE GENERATOR*) 11280 (****************) 11290 (**) 11300 RTSTACK: PSB; 11310 RTSTKDEPTH: DEPTHR; 11320 (**) 11330 (*SEMANTIC ROUTINES*) 11340 (*******************) 11350 (**) 11360 SRSTK: ARRAY [0..SRSTKSIZE] OF RECORD 11370 CASE SEVERAL OF 11380 1:(SB: PSB); 11390 2:(STB: PSTB); 11400 3:(MD: MODE); 11410 4:(LEX: PLEX); 11420 5:(SUBP: -1..SRSTKSIZE); 11430 6,7,8,9,10: () 11440 END; (*SEMANTIC STACK*) 11450 (**) 11460 SRSEMP: -1..SRSTKSIZE; (*POINTS TO TOP ITEM OF SRSTK*) 11470 SRSUBP: 0..SRSTKSIZE; 11480 OPCOD: PSTB; (*USED IN OPIDUSER*) 11490 (*CURRENT ROUTINE*) 11500 ROUTNL: PROUTN; 11510 (*PROPERTIES OF CURRENT RANGE*) 11520 RANGEL: PRANGE; 11530 RGINFO: SET OF DCLTYP; 11540 RGSTATE: STATE; 11550 DCIL: PSTB; (*START OF THREAD*) 11560 RGLEV: DEPTHR; (*DEPTH OF RANGE*) 11570 (*PROPERTIES OF CURRENT LOCAL RANGE*) 11580 CURLEB: OFFSETR; (*BASE OF CURRENT LOCAL ENVIRONMENT*) 11590 DCLDEFN: DEFTYP; 11600 DCLMODE: MODE; 11610 DCLPRVMODE: MODE; 11620 TODOCOUNT, PSCOUNT: DEPTHR; 11640 (**) 11650 CURID: OFFSETR; (*CURRENT IDENTIFIER OFFSET*) 11660 SCL: PMODECHAIN; 11670 BALFLAG: BOOLEAN; (*INDICATES WHETHER THE SUBSTACK CONTAINS A SINGLE UNIT OR A BALANCE*) 11680 (**) 11690 OPTABL: ARRAY[STDOPTYP] OF OPIDBLK; 11700 XMODES: ARRAY[XTYPE] OF MODE; (*TO CONVERT XTYPES INTP GENUINE MODES*) 11710 COMMX: XTYPE; (*FOR COMMUNICATION BETWEEN OPIDSTD AND OPDOSTD*) 11720 OPBLK: -1..70; (*LIKEWISE*) 11730 (**) 11740 MONADUMMY, DYADUMMY: PSTB; (*FOR UNDEFINED OPERATORS*) 11750 BALANLEN: 0..MAXSIZE; (*COMMUNICATION BETWEEN UNITEDBALAND CGBALB*) 11760 (**) 11770 (*PARSING*) 11780 (*********) 11790 (**) 11800 SRPLSTK: ARRAY [0..SRPLSTKSIZE] OF PLEX; 11810 (*PARSER STACK*) 11820 PLSTKP: 0..SRPLSTKSIZE; (*POINTS TO TOP ITEM OF PLSTK*) 11830 PLINPQ: PLEXQ; (*START OF LOOKED-AHEAD LEXEME CHAIN*) 11840 PRODTBL: ARRAY [1..PRODLEN] OF PROD; 11850 (*TABLE OF PRODUCTION RULES*) 11860 PLPTR: 1..PRODLEN; (*POINTER INTO PRODTBL*) 11870 INP: PLEX; (*CURRENT LEXEME*) 11880 ENDOFPROG: BOOLEAN; 11890 (*+02() (*-25() LASTSTACK: INTEGER; ()-25*) ()+02*) 11900 (*+05() LASTSTACK: INTEGER; ()+05*) 11910 ()+70*) 11920 (**) 11930 (**)