LOWCORE IDENT SNOBOLX ******* 1 LCC OVERLAY(SNOBOLX,0,0) ******* 2 SPACE 14 LOWCORE 3 **************************************** LOWCORE 4 * * LOWCORE 5 * * LOWCORE 6 * * LOWCORE 7 * * LOWCORE 8 * * LOWCORE 9 * * LOWCORE 10 * * LOWCORE 11 * * LOWCORE 12 * * LOWCORE 13 * CAL-6000 SNOBOL4 COMPILER * LOWCORE 14 * DEVELOPED BY * LOWCORE 15 * CHARLES SIMONYI AND PAUL MCJONES * LOWCORE 16 * BERKELEY, 1968 - 1969 * LOWCORE 17 * * LOWCORE 18 * * LOWCORE 19 * * LOWCORE 20 * * LOWCORE 21 * * LOWCORE 22 * * LOWCORE 23 * * LOWCORE 24 * * LOWCORE 25 * * LOWCORE 26 **************************************** LOWCORE 27 TITLE CAL-6000 S N O B O L LOWCORE 28 TITLE ASSEMBLI PARAMETERS, WORKING STORAGE LOWCORE 29 STAKSP EQU 70 . SPACE ALLOCATED FOR P2-P3 STACKS LOWCORE 30 BGP3STK BSSZ STAKSP ******* 3 HASHLN = 139/2+1 ******* 4 HASHTBL BSSZ HASHLN ******* 5 BGP2STK = HASHTBL ******* 6 HASHLWD DATA 139.0 . NUMBER OF HASH TABLE ENTRIES LOWCORE 37 VERSION. DATA 10H OCT03$73 LOWCORE 38 LSCOUNT DATA 0 LOWCORE 39 * LOWCORE 40 * LOWCORE 41 * WORKING STORAGE USED BOTH DURING COMPILATION AND EXECUTION LOWCORE 42 * LOWCORE 43 FIELDLN DATA 0 . FIELDLENGTH LOWCORE 44 MAXLS EQU FIELDLN . UPPER LIMIT FOR LIST STORAGE LOWCORE 45 MAXHS DATA 0 . UPPER LIMIT FOR HEAP STORAGE LOWCORE 46 MINHS DATA 0 . LOWER LIM FOR HS LOWCORE 47 MAXSTAK DATA 0 . -UPPER LIMIT FOR STACK LOWCORE 48 FHBLRP DATA 0 . FREE HB LIST ROVING POINTER LOWCORE 49 MINSTAK DATA 0 . LOWER LIMIT FOR STACK LOWCORE 50 NXTWRD DATA -1 . COMPILER SOURCE MEDIUM DESCR. LOWCORE 51 FRSTWRD DATA 0 . LOWCORE 52 INFAIL DATA 0 . SIGN BIT - SIGNAL ERROR ON FAILURE LOWCORE 53 CODLIST DATA 0 . CHAIN OF CODTYP HEAP BLOCK LOWCORE 54 FILLIST DATA 0 . CHAIN OF FILTYP HB-S LOWCORE 55 OUTSTRM DATA 0 . POINTS TO STANDARD OUTPUT FILE LOWCORE 56 BUFFSIZ DATA 257 . SIZE OF I/O BUFFER PROPER LOWCORE 57 * LOWCORE 58 * SOME KEYWORDS LOWCORE 59 * LOWCORE 60 FLDLM DATA 40000B . (DEFAULT) LIMIT FOR FIELDLN LOWCORE 61 MXLNGTH DATA 377776B . MAXIMUM STRING LENGTH LOWCORE 62 STCOUNT DATA 1 LOWCORE 63 STLIM DATA 1000000 . LIMIT FOR STATEMENT (RULE) COUNT LOWCORE 64 ANCHOR DATA 0 . NOTZERO INDICATES ANCHORED SEARCH LOWCORE 65 * LOWCORE 66 FREQWD DATA 0 . FREQUENCY OF SELF-CHECKING LOWCORE 67 INTRPT DATA 0 . INTERRUPT IF LT STCOUNT LOWCORE 68 STATWD DATA 0 . ACTION AFTER INTERRUPT, MAY CONTAINLOWCORE 69 HBCSTAT DATA 0 . HEAP BLOCK COMPACTION STATUS WORD LOWCORE 70 STATHBC EQU 1 . DO HEAP STORAGE COMPACTION LOWCORE 71 STATSC EQU 2 . SELF CHECK LOWCORE 72 STATTRC EQU 20B . TURN ON TRACE LOWCORE 73 * OTHER STATWD BITS ARE USED TO TURN ON TRACE SELECTIVELY: LOWCORE 74 STATPST EQU 4 . TRACE POST LOWCORE 75 STATCMP EQU 10B . TRACE COMPILER LOWCORE 76 * LOWCORE 77 * WORKING STORAGE USED ONLY DURING COMPILATION LOWCORE 78 * LOWCORE 79 TEMPBASE EQU * LOWCORE 80 INSTRM DATA 0 . POINTS TO STANDARD INPUT FILE LOWCORE 81 ARROWD DATA 0 . ERROR FLAG FOR CURRENT LINE LOWCORE 82 MAXSTAT DATA 0 . POINTS TO THE LAST HB COMPILED LOWCORE 83 LBLLINK DATA 0 . CHAIN OF LABELS LOWCORE 84 VARLINK DATA 0 . CHAIN OF VARIABLES LOWCORE 85 TESTCND DATA 0 . USED IN P3 LOWCORE 86 TSTPMOP DATA 0 . USED IN P2 LOWCORE 87 PRGBASE DATA 0 . LOWCORE 88 COMPB7 DATA 0 LOWCORE 89 P1ERFLG DATA -1 LOWCORE 90 P0STWD VFD 12/2000B+0,30/0,18/=XNEWUNIT . PASS0: COLUMN NO., STATE LOWCORE 91 P1LTFLG DATA 0 . USED BY PASS1-PASS0 TO SUPPRESS BLKLOWCORE 92 CURWD DATA 0 . CURRENT WORD OF CHARS FOR PASS1 LOWCORE 93 P1TEMP1 DATA 0 . USED DURING CALLS TO PASSES 0 AND 2LOWCORE 94 P1TEMP2 DATA 0 . USED DURING CALLS TO PASS 0 ONLY LOWCORE 95 P1TEMP3 DATA 0 . USED DURING CALLS TO PASS 0 ONLY LOWCORE 96 LC DATA 0 LOWCORE 97 PAGENO DATA 1 LOWCORE 98 P1MAX DATA 0 LOWCORE 99 RULENO DATA 1 LOWCORE 100 P4SVX4 EQU P1TEMP3 LOWCORE 101 P4SVB5 EQU P1MAX LOWCORE 102 TITLE TEMPORARIES USED ONLY AT RUN-TIME LOWCORE 103 MACRO TEMP,PARAM LOWCORE 104 CCXXCC SET CCXXCC+1 LOWCORE 105 PARAM EQU TEMPBASE+CCXXCC LOWCORE 106 ENDM LOWCORE 107 * LOWCORE 108 CCXXCC SET -1 . INITIALIZE TEMP COUNTER LOWCORE 109 * LOWCORE 110 PIX TEMP LOWCORE 111 SIX TEMP LOWCORE 112 PIB TEMP LOWCORE 113 LENFAIL TEMP LOWCORE 114 SBASE TEMP LOWCORE 115 TEMPDOL TEMP LOWCORE 116 TEMPDOL1 TEMP . REFERRED TO AS TEMPDOL+1 LOWCORE 117 SLENGTH TEMP LOWCORE 118 PCHAIN TEMP LOWCORE 119 PMASX6 TEMP LOWCORE 120 PMASX0 TEMP LOWCORE 121 PMASX3 TEMP LOWCORE 122 PMASX2 TEMP LOWCORE 123 PMASX4 TEMP LOWCORE 124 PMASB1 TEMP LOWCORE 125 PMASB2 TEMP LOWCORE 126 PMASB4 TEMP LOWCORE 127 CALLB5P TEMP . USED IN CALL LOWCORE 128 DATAWD TEMP . USED IN DATA LOWCORE 129 PMA5 TEMP LOWCORE 130 SPOS TEMP LOWCORE 131 DTYPWD TEMP LOWCORE 132 UA TEMP . RETURN - PM CHEK INFO LOWCORE 133 ISVB1 TEMP . SAVE B1 IF INTERRUPT LOWCORE 134 ISVX5 TEMP . SAVE X5 IF INTERRUPT LOWCORE 135 * LOWCORE 136 * THE FOLLOWING LOCATIONS ARE USED BY THE SELF CHECK PROGRAM: LOWCORE 137 * LOWCORE 138 VIPTR TEMP . POINTS TO THE CURRENT SVD IN HS LOWCORE 139 VLASTB TEMP . POINTS TO THE CURRENT HEAP BLOCK LOWCORE 140 VNWLS TEMP . NUMBER OF WORDS IN LS LOWCORE 141 VNCODB TEMP . NUMBER OF CODTYP BLOCKS LOWCORE 142 VNFHB TEMP . NUMBER OF FREE HEAP BLOCKS LOWCORE 143 VNFILB TEMP . NUMBER OF FILTYP BLOCKS LOWCORE 144 * LOWCORE 145 * MAKE SURE ENOUGH TEMP SPACE IS ALLOCATED. LOWCORE 146 * LOWCORE 147 IFGE TEMPBASE+CCXXCC,* LOWCORE 148 BSSZ TEMPBASE+CCXXCC-* LOWCORE 149 ENDIF LOWCORE 150 * LOWCORE 151 MSGSTAT EQU PMASX3 . USED BY RTERROR LOWCORE 152 * LOWCORE 153 PMSTX3 EQU PMASX3 LOWCORE 154 PMSTB1 EQU PMASB1 LOWCORE 155 PMSTB3 EQU PMASB2 LOWCORE 156 PMSTB4 EQU PMASB4 LOWCORE 157 PMFA0 EQU PMASX3 LOWCORE 158 PMFX4 EQU PMASB1 LOWCORE 159 PMFA4 EQU PMASB2 LOWCORE 160 QARSV EQU PMASX3 LOWCORE 161 QIOSV EQU PMASX3 LOWCORE 162 QDEFSV1 EQU PMASX3 LOWCORE 163 QDEFSV2 EQU PMASB1 LOWCORE 164 QDEFSV3 EQU PMASB2 LOWCORE 165 QFRZSV EQU PMASB1 . MUST NOT EQUAL DATWD=TODWD=PMASX3 LOWCORE 166 QEQSV EQU PMASX3 LOWCORE 167 QDATSV1 EQU PMASX3 LOWCORE 168 * LOWCORE 169 * LOWCORE 170 ENTRY BGP3STK,BGP2STK LOWCORE 171 ENTRY HASHLWD,HASHLN,HASHTBL LOWCORE 172 ENTRY CODLIST,FILLIST,FHBLRP LOWCORE 173 ENTRY FIELDLN,MAXLS,MAXHS,MINHS LOWCORE 174 ENTRY MAXSTAK,MINSTAK LOWCORE 175 ENTRY FREQWD LOWCORE 176 ENTRY NXTWRD,FRSTWRD LOWCORE 177 ENTRY INFAIL LOWCORE 178 ENTRY CODLIST,FILLIST LOWCORE 179 ENTRY INSTRM,OUTSTRM,BUFFSIZ LOWCORE 180 ENTRY FLDLM,MXLNGTH,STCOUNT,STLIM,ANCHOR LOWCORE 181 ENTRY INTRPT,STATWD,STATHBC,STATSC LOWCORE 182 ENTRY STATTRC LOWCORE 183 ENTRY HBCSTAT LOWCORE 184 ENTRY STATPST,STATCMP LOWCORE 185 ENTRY ARROWD,MAXSTAT,LBLLINK,VARLINK LOWCORE 186 ENTRY TESTCND,TSTPMOP,PRGBASE LOWCORE 187 ENTRY COMPB7,P1ERFLG,LC,PAGENO,RULENO LOWCORE 188 ENTRY P1MAX,P1TEMP1,P1TEMP2,P1TEMP3,P4SVX4,P4SVB5 LOWCORE 189 ENTRY CURWD,P1LTFLG,P0STWD LOWCORE 190 ENTRY PIX,SIX,PIB,LENFAIL,SBASE LOWCORE 191 ENTRY TEMPDOL,SLENGTH,PCHAIN LOWCORE 192 ENTRY PMASX6,PMASX0,PMASX3,PMASX2,PMASX4 LOWCORE 193 ENTRY VIPTR,VLASTB,VNWLS,VNCODB,VNFHB,VNFILB LOWCORE 194 ENTRY PMASB1,PMASB2,PMASB4 LOWCORE 195 ENTRY CALLB5P,DATAWD,PMA5,SPOS,DTYPWD,UA LOWCORE 196 ENTRY MSGSTAT LOWCORE 197 ENTRY PMSTX3,PMSTB1,PMSTB3,PMSTB4 LOWCORE 198 ENTRY PMFA0,PMFX4,PMFA4 LOWCORE 199 ENTRY QARSV,QIOSV,QDEFSV1,QDEFSV2,QDEFSV3 LOWCORE 200 ENTRY QFRZSV,QEQSV,QDATSV1 LOWCORE 201 ENTRY ISVB1,ISVX5 LOWCORE 202 ENTRY LSCOUNT LOWCORE 203 * LOWCORE 204 * LOWCORE 205 END LOWCORE 206