// PALHD LAST MODIFIED ON FRIDAY, 12 JUNE 1970 // AT 5:13:24.80 BY R MABEE // LISTING OF PAL HEADFILE AND BCPL/360 BASIC HEADFILE GOTTEN // WITHIN SUPPRESSED BY NOLIST DIRECTIVE. TO OVERRIDE DIRECTIVE, // SPECIFY ALLSOURCE OPTION TO BCPL COMPILER. >>> NOLIST >>> EJECT // // ****************************** // * * // * PALHD * // * * // * (COMPATIBLE WITH PALSYS) * // * * // ****************************** // // GET BASIC BCPL/360 HEAD FILE >>> GET 'BASIC' MANIFEST // VECTOR APPLICATION $( H1=0; H2=1; H3=2; H4=3; H5=4 $) MANIFEST // SYNTACTIC OPERATORS $( BAR=101; END=102; WHERE=103; DOT=105 BRA=106; KET=107; IN=108; PERCENT=109 IFSO=110; IFNOT=111; M_DO=112 $) MANIFEST // AE TREE NODES $( DEF=121 M_LET=122; LAMBDA=123; M_VALOF=124; M_TEST=125 M_IF=126; M_WHILE=127; ASS=128 SEQ=130; COLON=131 NOSHARE=133; COND=134 COMMA=137; VALDEF=138 REC=139; M_AND=140; WITHIN=141 MPT=142; PAREN=143 $) MANIFEST //AE NODES AND POCODE SYMBOLS $( M_GOTO=148; M_RES=149 M_NOT=151; M_NIL=152; STRINGCONST=153; NAME=154 M_PLUS=157; M_MINUS=158 M_AUG=160; M_LOGOR=161; M_LOGAND=162 M_GE=163; M_NE=164; M_LE=165; M_GR=166; M_LS=167; M_EQ=168 M_MULT=169; M_DIV=170; M_POWER=171 M_POS=173; M_NEG=174; M_APPLY=175 $) MANIFEST // POCODE SYMBDLS $( M_LOADL=181; M_LOADR=182; M_LOADE=183; M_LOADS=184; M_LOADM=185 M_RESTOREE1=187; M_LOADGUESS=188 M_FORMCLOSURE=189; M_FORMLVALUE=190; M_FORMRVALUE=191 M_MEMBERS=192 M_JUMP=195; M_JUMPF=196; M_SAVE=197; M_RETURN=198 M_TESTEMPTY=199; M_LOSE1=200; M_UPDATE=201 M_DECLNAME=203; M_DECLNAMES=204; M_INITNAME=205; M_INITNAMES=206 M_DECLLABEL=207; M_SETLABES=208; M_BLOCKLINK=209; M_RESLINK=210 M_SETUP=211 INTEGER=213; LAB=214; PARAM=215; EQU=216 $) MANIFEST // AE NODES, POCODE SYMBOLS AND RUN-TIME NODE TYPES $( M_DUMMY=22O; JJ=221; M_TRUE=222; M_FALSE=223 NUMBER=224; M_TUPLE=225 $) MANIFEST // TRANSLATION SYMBOLS $( VAL=0; REF=1 $) MANIFEST // LENGTH OF ACTIVE INPUT FIELD IN INPUT RECORD $( LINET = 72 $) GLOBAL // PLACEMENT SET BY PALSYS $( PAL:184; TIMEOVFL:199; TIME_EXCEEDED:93 $) GLOBAL // COMPILER FUNCTIONS $( NEXTSYMB:300; KIND:301; RCH:302; LOOKUPWORD:303; CAE:304; RCOMLOOP:305; REPORT:306; RCOM:307; REXP:308; RBDEF:309; RDEF:310; RBV:311; RDNAMELIST:312; RDNAME:313; RDNS:314; RARG:315; RDBEXP:316; PLIST:317; NODETYPE:318; TRANS:319; FINDLABELS:320; TRANSLABELS:321; TRANSRHS:322; C_DECLNAMES:323; LOADDEFINEE:224; DECLGUESSES:325; C_INITNAMES:326; TRANSSCOPE:327; MAPF;328; MAPB:329; C_LENGTH:330; NEXTPARAM:331; UPSSP:332; NEWVEC:333; LIST1:334; LIST2:335; LIST3:336; LIST4:337; COMPLAB:338: OUTOP:335; OUTN:340; OUTP:341: OUTNAME:342; OUTNUMBER:343; OUTSTRING:344; OUTPSOP:345; OUT1:346; OUT2:347; OVERFLOW:348 $) GLOBAL // COMPILER GLOBAL VARIABLES $( SYMBV:360; SYMBP:361; SYMB:362; LINEP:363; EOP:364; EOPLEVEL:365; CHKIND:366; NAMECHAIN:367; DUMMYN:368; PARAMNUMBER:369; SSP:370; MSP:371; AETREEP:372 $) GLOBAL // VARIABLES COMMON WITH PALSYS $( CH : 218 // LAST CHARACTER READ CODEFILE : 219 // POINTER TO POCODE STORAGE AREA CODEFILEP : 220 // POINTER T0 NEXT WORD POCODE STORAGE COMPERROR : 229 // PRESENT JOB SEGMENT ERROR FLAG INPUT : 234 // PRESENT INPUT STREAM LISTING : 248 // INDICATES IF POCODE LISTING DESIRED LVCH : 251 // LVALUE OF CH NCODE : 257 // INDICATES IF POCODE TO BE RETAINED STACKWARNING : 269 // APPROXIMATE END BCPL RUN TIME STACK STORAGE : 272 // POINTER TO USABLE FREE STORAGE STORAGET : 273 // POINTER TO END OF USABLE FREE STORAGE TREE : 286 // PAL AE TREE PRINT DEPTH $) >>> LIST