Compilation listing of file >2.1spec>online>mib083074>bcpl_trans5.bcpl. Compilation performed for Martinson.SysMaint.a at 01/24/75 0702.3 mst Fri. Compiled by BCPL version 3.4, August 1973. Compiler updated at 09/25/73 0959.1 mst Tue. Options applied: source xref alist optimize 6180. 1 // Functions to aid CompileExpression in evaluating expressions. 2 // Last modified on 06/06/74 at 18:27:11 by R F Mabee. 3 // First installed with Version 3.4 by R F Mabee. 4 // Written in March 1973 as part of cleanup accompanying 6180 bootstrap. 5 6 // Copyright (c) 1974 by Massachusetts Institute of Technology and Honeywell Information Systems, Inc. 7 8 // General permission is granted to copy and use this program, but not to sell it, provided that the above 9 // copyright statement is given. Contact Information Processing Services, MIT, for further information. 10 // Please contact R F Mabee at MIT for information on this program and versions for other machines. 11 12 get "bcpl_trans_head" 1 // Declarations for the semantic translator. 2 // Last modified on 07/21/73 at 20:36:10 by R F Mabee. 3 // Revised during 6180 bootstrap, and installed as Version 3.4 by R F Mabee. 4 // First installed as Version 2.7 by R F Mabee. 5 6 // Copyright (c) 1973 by the author, Robert F. Mabee. 7 // This file may only be reproduced or modified with explicit written 8 // permission of the author. Permission is hereby extended to those 9 // persons responsible for operating the Multics system to make such 10 // copies as are normally required to ensure the integrity of the Multics 11 // file system. Permission is also hereby extended to those persons 12 // responsible for maintaining the Multics program libraries to make such 13 // copies as are normally required for online installations. 14 15 get "bcpl_compiler_head" 1 // Declarations common to the entire BCPL compiler. 2 // Last modified on 07/28/73 at 03:56:32 by R F Mabee. 3 // Installed on 6180 as Version 3.4, R F Mabee. 4 // First installed on 645 as Version 2.7 by R F Mabee. 5 6 // Copyright (c) 1973 by the author, Robert F. Mabee. 7 // This file may only be reproduced or modified with explicit written 8 // permission of the author. Permission is hereby extended to those 9 // persons responsible for operating the Multics system to make such 10 // copies as are normally required to ensure the integrity of the Multics 11 // file system. Permission is also hereby extended to those persons 12 // responsible for maintaining the Multics program libraries to make such 13 // copies as are normally required for online installations. 14 15 external 16 $( Readch = "bcpl_machine_code_$Readch" // Library routines used by the compiler. 17 Writech = "bcpl_machine_code_$Writech" 18 WriteS = "bcpl_stream_io_$WriteS" 19 WriteN = "bcpl_stream_io_$WriteN" 20 Format = "bcpl_stream_io_$Format" 21 Packstring = "bcpl_machine_code_$Packstring" 22 Unpackstring = "bcpl_machine_code_$Unpackstring" 23 RemoveEscapes = "bcpl_conversions_$RemoveEscapes" 24 EqualString = "bcpl_strings_$EqualString" 25 CompareStrings = "bcpl_strings_$CompareStrings" // Alphabetic comparison. 26 Concatenate = "bcpl_strings_$Concatenate" 27 ConvertStoN = "bcpl_conversions_$ConvertStoN" 28 ConvertNtoS = "bcpl_conversions_$ConvertNtoS" 29 Length = "bcpl_strings_$Length" // Number of characters. 30 LengthInWords = "bcpl_strings_$LengthInWords" // Length of packed string. 31 RandomI = "bcpl_arithmetic_$RandomI" 32 33 Newvec = "bcpl_utility$Newvec" // Utility routines used throughout the compiler. 34 Freevec = "bcpl_utility$Freevec" 35 List1 = "bcpl_utility$List1" 36 List2 = "bcpl_utility$List2" 37 List3 = "bcpl_utility$List3" 38 List4 = "bcpl_utility$List4" 39 List5 = "bcpl_utility$List5" 40 List6 = "bcpl_utility$List6" 41 StoreString = "bcpl_utility$StoreString" 42 PushInput = "bcpl_utility$PushInput" 43 PopInput = "bcpl_utility$PopInput" 44 MakeTimeString = "bcpl_utility$MakeTimeString" 45 Nextparam = "bcpl_utility$Nextparam" 46 FormCharconst = "bcpl_utility$FormCharconst" 47 FormStringconst = "bcpl_utility$FormStringconst" 48 49 CaeReport = "bcpl_report$CaeReport" 50 Transreport = "bcpl_report$Transreport" 51 CGreport = "bcpl_report$CGreport" 52 53 Nextsymb = "bcpl_lex0$Nextsymb" 54 55 SymbolName = "bcpl_plist$SymbolName" 56 FindPrintName = "bcpl_plist$FindPrintName" 57 EnterIntoCrossreference = "bcpl_plist$EnterIntoCrossreference" 58 59 GetVersion = "bcpl_version$GetVersion" // Routines used only by the driver. 60 UtilitiesInit = "bcpl_utility$UtilitiesInit" 61 Cleanup = "bcpl_utility$Cleanup" 62 GetStream = "bcpl_utility$GetStream" 63 64 CAE = "bcpl_cae0$CAE" 65 LexInit = "bcpl_lex0$LexInit" 66 67 Pname = "bcpl_plist$Pname" 68 Plist = "bcpl_plist$Plist" 69 70 Trans = "bcpl_trans0$Trans" 71 CgInit = "bcpl_cg0$CgInit" 72 BuildObject = "bcpl_cg0$BuildObject" 73 WriteObjectListing = "bcpl_cg0$WriteObjectListing" 74 $) 75 76 global // Globals are reserved in blocks as follows: 77 $( // 0 - 31 system 78 // 32 - 99 library 79 // 100 - 149 options and other common cells 80 // 150 - 159 metering cells 81 // 160 - 169 bcpl_utility 82 // 170 - 199 to be assigned 83 // 200 - 229 lexical phase 84 // 230 - 249 syntax analyzer 85 // 250 - 299 translator 86 // 300 - 399 code generator 87 88 // Cells used for communication with the library. 89 OUTPUT : 32 90 INPUT : 33 91 MONITOR : 34 92 Ch : 36 93 94 // Options for this compilation. 95 Listing : 100 96 UpperCase : 101 97 PPrep : 102 98 Crep : 103 99 Symbols : 104 100 LineMap : 105 101 Optimize : 106 102 Machine : 107 103 Xref : 108 104 OcodeSw : 109 105 HaveListingFile : 110 106 QuietSw : 111 107 108 // Other information about this compilation. 109 CompilerVersionString : 120 110 CompilerVersionNumber : 121 111 CompilerDTMString : 122 112 CompilerDTM : 123 113 TimeNowString : 124 114 TimeNow : 125 115 OptionString : 126 116 FileNames : 127 117 FilesInfo : 128 118 FileCount : 129 119 ProgramName : 130 120 UserID : 131 121 122 // Working variables needing global scope. 123 LineCount : 140 124 Errorsw : 141 125 NAMECHAIN : 142 126 Symb : 143 127 DictionaryEntry : 144 128 Column : 145 129 $) 130 manifest 131 $( GlobalTemp = 199 $) // Number of cell available for local, temporary use. 132 133 manifest 134 $( Left = 18; Right = $8777777 135 Endofstreamch = $87777 136 Even = $87777777777776 137 Vmax = 511 138 LineMask = $817777; FileShift = 13 // Breakdown of line count. 139 UnexpectedCase = 99 // Error code for use throughout compiler. 140 $) 16 get "bcpl_symbols" 1 // All symbols used in the interface between any two phases of the compiler are defined here. 2 // This includes all canonical symbols, syntax tree nodes, and XOCODE operators. 3 // Last modified on 07/08/73 at 22:55:31 by R F Mabee. 4 // Revisions installed in Version 3.4 on 6180, R F Mabee. 5 // First installed with Version 2.7 by R F Mabee. 6 7 // Copyright (c) 1973 by the author, Robert F. Mabee. 8 // This file may only be reproduced or modified with explicit written 9 // permission of the author. Permission is hereby extended to those 10 // persons responsible for operating the Multics system to make such 11 // copies as are normally required to ensure the integrity of the Multics 12 // file system. Permission is also hereby extended to those persons 13 // responsible for maintaining the Multics program libraries to make such 14 // copies as are normally required for online installations. 15 16 manifest 17 $( AND_S = 1 18 ASSIGN_S = 2 19 BE_S = 3 20 BIT_S = 4 21 BREAK_S = 5 22 BY_S = 6 23 CALL_S = 07 24 CASE_S = 08 25 26 CHAR_S = 10 27 CHARCONST_S = 11 28 COLON_S = 12 29 COMMA_S = 13 30 COND_S = 14 31 CONSTANT_S = 15 32 CONSTDEF_S = 16 33 DEFAULT_S = 17 34 DIV_F = 18 35 36 DIV_S = 20 37 DO_S = 21 38 DOUBLE_S = 22 39 ENDCASE_S = 23 40 ENDPROG_S = 24 41 ERROR_S = 25 42 EQ_F = 26 43 EQ_S = 27 44 EQV_S = 28 45 46 EXTERNAL_S = 30 47 FALSE_S = 31 48 FINISH_S = 32 49 FIXED_S = 33 50 FLOAT_S = 34 51 FNAP_S = 35 52 FNDEF_S = 36 53 FOR_S = 37 54 GE_F = 38 55 56 GE_S = 40 57 GET_S = 41 58 GLOBAL_S = 42 59 GOTO_S = 43 60 GR_F = 44 61 GR_S = 45 62 IF_S = 46 63 IFNOT_S = 47 64 IFSO_S = 48 65 66 INTO_S = 50 67 LABDEF_S = 51 68 LABEL_S = 52 69 LE_F = 53 70 LE_S = 54 71 LENGTH_S = 55 72 LET_S = 56 73 LIST_S = 57 74 LOCAL_S = 58 75 76 LOGAND_S = 60 77 LOGOR_S = 61 78 LOOP_S = 62 79 LS_F = 63 80 LS_S = 64 81 LSHIFT_S = 65 82 LV_S = 66 83 LVECAP_S = 67 84 LV_ARG_OUT = 68 85 86 LV_FNAP_RESULT = 70 87 LV_GLOBAL = 71 88 LV_LOCAL = 72 89 LV_STATIC = 73 90 LV_TEMP = 74 91 MAIN_S = 75 92 MANIFEST_S = 76 93 MINUS_F = 77 94 MINUS_S = 78 95 96 MULT_F = 80 97 MULT_S = 81 98 NAME_S = 82 99 NEG_F = 83 100 NEG_S = 84 101 NEQV_S = 85 102 NE_F = 86 103 NE_S = 87 104 NIL_S = 88 105 106 NOT_S = 90 107 NUMBER_S = 91 108 OFFSET_S = 92 109 OR_S = 93 110 PLUS_F = 94 111 PLUS_S = 95 112 POINTER_S = 96 113 POS_F = 97 114 POS_S = 98 115 116 RBRA_S = 100 117 REGISTER_S = 101 118 REL_S = 102 119 REM_S = 103 120 REP_S = 104 121 REPEAT_S = 105 122 REPEATUNTIL_S = 106 123 REPEATWHILE_S = 107 124 RESULTIS_S = 108 125 126 RETURN_S = 110 127 RKET_S = 111 128 RSHIFT_S = 112 129 RTAP_S = 113 130 RTDEF_S = 114 131 RV_S = 115 132 SBRA_S = 116 133 SECTBEGIN_S = 117 134 SECTBRA_S = 118 135 136 SECTEND_S = 120 137 SECTKET_S = 121 138 SEMICOLON_S = 122 139 SKET_S = 123 140 STATIC_S = 124 141 STRING_S = 125 142 STRINGCONST_S = 126 143 STRUCTURE_S = 127 144 SWITCHON_S = 128 145 146 TABLE_S = 130 147 TEMP_S = 131 148 TEST_S = 132 149 TO_S = 133 150 TRUE_S = 134 151 TYPE_S = 135 152 UNLESS_S = 136 153 UNTIL_S = 137 154 VALDEF_S = 138 155 156 VALOF_S = 140 157 VEC_S = 141 158 VECAP_S = 142 159 WHILE_S = 143 160 $) 17 get "bcpl_trans_codes" 1 // Report codes for the translator phase. 2 // Last modified on 07/21/73 at 22:14:49 by R F Mabee. 3 // Revisions for 6180 bootstrap installed with Version 3.4, R F Mabee. 4 // First installed in Version 2.7 by R F Mabee. 5 6 // Copyright (c) 1973 by the author, Robert F. Mabee. 7 // This file may only be reproduced or modified with explicit written 8 // permission of the author. Permission is hereby extended to those 9 // persons responsible for operating the Multics system to make such 10 // copies as are normally required to ensure the integrity of the Multics 11 // file system. Permission is also hereby extended to those persons 12 // responsible for maintaining the Multics program libraries to make such 13 // copies as are normally required for online installations. 14 15 manifest // 200 - 299 are reserved for Trans. 16 $( BadCall = 200 17 BadDescriptors = 201 18 BadLink = 202 19 Conformality = 203 20 DupDefault = 204 21 DupName = 205 22 FreeVar = 206 23 LmodeRequired = 207 24 NegVector = 208 25 26 NoLoop = 210 27 NoSwitch = 211 28 NotConstant = 212 29 NotInsideRtdef = 213 30 NotName = 214 31 NoValof = 215 32 UndefName = 216 33 UnrecognizedExpression= 217 34 $) 18 19 external 20 $( Transbody = "bcpl_trans1$Transbody" // The routines of Trans. 21 22 Transdef = "bcpl_trans2$Transdef" 23 Addlocal = "bcpl_trans2$Addlocal" 24 Declitem = "bcpl_trans2$Declitem" 25 Declnames = "bcpl_trans2$Declnames" 26 Decllabels = "bcpl_trans2$Decllabels" 27 Checkdistinct = "bcpl_trans2$Checkdistinct" 28 Cellwithname = "bcpl_trans2$Cellwithname" 29 Removenames = "bcpl_trans2$Removenames" 30 31 TransConditional = "bcpl_trans3$TransConditional" 32 TransFor = "bcpl_trans3$TransFor" 33 WalkList = "bcpl_trans3$WalkList" 34 ListSize = "bcpl_trans3$ListSize" 35 Assignlist = "bcpl_trans3$Assignlist" 36 Target = "bcpl_trans3$Target" 37 TransLoop = "bcpl_trans3$TransLoop" 38 39 CompileExpression = "bcpl_trans4$CompileExpression" 40 CompileOperand = "bcpl_trans4$CompileOperand" 41 SetResult = "bcpl_trans4$SetResult" 42 43 Evalconst = "bcpl_trans5$Evalconst" 44 PartialEvalconst = "bcpl_trans5$PartialEvalconst" 45 IsConst = "bcpl_trans5$IsConst" 46 EvaluateOperator = "bcpl_trans5$EvaluateOperator" 47 CountTemporaries = "bcpl_trans5$CountTemporaries" 48 IsRelational = "bcpl_trans5$IsRelational" 49 50 ResetSSP = "bcpl_trans6$ResetSSP" 51 AllocateLocal = "bcpl_trans6$AllocateLocal" 52 DeallocateLocal = "bcpl_trans6$DeallocateLocal" 53 MakeTemp = "bcpl_trans6$MakeTemp" 54 MakeCopy = "bcpl_trans6$MakeCopy" 55 PutBackTemps = "bcpl_trans6$PutBackTemps" 56 TransFnap = "bcpl_trans6$TransFnap" 57 TransSystemCall = "bcpl_trans6$TransSystemCall" 58 59 GenerateLabel = "bcpl_cg_interface$GenerateLabel" 60 GenerateJump = "bcpl_cg_interface$GenerateJump" 61 GenerateRtdefBegin = "bcpl_cg_interface$GenerateRtdefBegin" 62 GenerateRtdefEnd = "bcpl_cg_interface$GenerateRtdefEnd" 63 ReserveArglist = "bcpl_cg_interface$ReserveArglist" 64 GenerateArg = "bcpl_cg_interface$GenerateArg" 65 GenerateFnap = "bcpl_cg_interface$GenerateFnap" 66 ReserveSystemArglist = "bcpl_cg_interface$ReserveSystemArglist" 67 GenerateSystemArg = "bcpl_cg_interface$GenerateSystemArg" 68 GenerateSystemCall = "bcpl_cg_interface$GenerateSystemCall" 69 GenerateResultBlock = "bcpl_cg_interface$GenerateResultBlock" 70 GenerateResultValue = "bcpl_cg_interface$GenerateResultValue" 71 GenerateClaimResult = "bcpl_cg_interface$GenerateClaimResult" 72 GenerateGoto = "bcpl_cg_interface$GenerateGoto" 73 GenerateFinish = "bcpl_cg_interface$GenerateFinish" 74 GenerateSwitch = "bcpl_cg_interface$GenerateSwitch" 75 GenerateMonadicOperator = "bcpl_cg_interface$GenerateMonadicOperator" 76 GenerateDiadicOperator = "bcpl_cg_interface$GenerateDiadicOperator" 77 GenerateOffsetOperator = "bcpl_cg_interface$GenerateOffsetOperator" 78 GenerateMonadicConditional = "bcpl_cg_interface$GenerateMonadicConditional" 79 GenerateDiadicConditional = "bcpl_cg_interface$GenerateDiadicConditional" 80 GenerateSSP = "bcpl_cg_interface$GenerateSSP" 81 GenerateLineNumber = "bcpl_cg_interface$GenerateLineNumber" 82 StoreAll = "bcpl_cg_interface$StoreAll" 83 CgFinish = "bcpl_cg_interface$CgFinish" 84 $) 85 global // 250 - 299 are reserved for Trans. 86 $( ArgInfo : 250 87 BreakLabel : 251 88 CaseFirst : 252 89 CaseList : 253 90 DefaultLabel : 254 91 DefList : 255 92 DvecC : 246 93 DvecP : 257 94 EndcaseLabel : 258 95 96 EnvBase : 260 97 FreeLocalList : 261 98 InsideRtdef : 262 99 LHSpointer : 263 100 LoopFlag : 264 101 LoopLabel : 265 102 PendingTemps : 266 103 ReturnLabel : 267 104 RtdefList : 268 105 106 RtdefNesting : 270 107 SSP : 271 108 StaticAllocationCounter : 272 109 StaticFirst : 273 110 StaticList : 274 111 SwitchFlag : 275 112 TableCell : 276 113 ValofFlag : 277 114 ValofLabel : 278 115 $) 116 manifest 117 $( DescSize = 2 118 DvecSize = 4 119 $) 13 14 let CountTemporaries (x) = valof 15 $( switchon x!0 & Right into 16 $( case NAME_S: 17 resultis IsNameConst (Cellwithname (x)) -> 0, 1 18 19 case NUMBER_S: 20 case CHARCONST_S: 21 case CONSTANT_S: 22 case TRUE_S: 23 case FALSE_S: 24 case NIL_S: 25 resultis 0 26 27 case STRINGCONST_S: 28 case TABLE_S: 29 case VEC_S: 30 resultis 1 31 32 case POS_S: case POS_F: 33 case NEG_S: case NEG_F: 34 case NOT_S: 35 case RV_S: 36 case LV_S: 37 let C = CountTemporaries (x!1) 38 if C = 1 resultis 2 39 resultis C 40 41 case PLUS_S: case PLUS_F: 42 case MINUS_S: case MINUS_F: 43 case MULT_S: case MULT_F: 44 case DIV_S: case DIV_F: 45 case REM_S: 46 case LOGOR_S: 47 case LOGAND_S: 48 case EQV_S: 49 case NEQV_S: 50 case LSHIFT_S: 51 case RSHIFT_S: 52 case VECAP_S: 53 let C1, C2 = CountTemporaries (x!1), CountTemporaries (x!2) 54 if C1 = 0 do 55 $( if C2 = 0 resultis 0 56 C1 := 1 57 $) 58 if C1 > C2 resultis C1 59 if C1 < C2 resultis C2 60 resultis C1 + 1 61 62 case FNAP_S: 63 case VALOF_S: 64 case COND_S: 65 case REL_S: 66 case LIST_S: 67 default: resultis 100 // Don't know, guess wild. 68 $) 69 $) 70 and IsNameConst (T) = valof 71 switchon T!1 into 72 $( case CONSTANT_S: case NUMBER_S: case CHARCONST_S: case TRUE_S: case FALSE_S: 73 resultis true 74 default: resultis false 75 $) 76 let PartialEvalconst (x, v) be 77 $( let Op = x!0 & Right 78 switchon Op into 79 $( case NAME_S: 80 let T = Cellwithname (x) 81 unless IsNameConst (T) endcase 82 v!0, v!1 := T!1, T!2 83 return 84 case NUMBER_S: 85 case CHARCONST_S: 86 v!0, v!1 := Op, x!1 87 return 88 case TRUE_S: 89 case FALSE_S: 90 v!0, v!1 := Op, Op = TRUE_S 91 return 92 default: 93 $) 94 v!0, v!1 := CONSTANT_S, Evalconst (x) 95 $) 96 and FinalEvalconst (Op, N) = valof 97 switchon Op into 98 $( case NUMBER_S: resultis ConvertStoN (N) 99 case CHARCONST_S: resultis FormCharconst (N) 100 case TRUE_S: resultis true 101 case FALSE_S: resultis false 102 case CONSTANT_S: resultis N 103 default: CGreport (UnexpectedCase, Op, "FinalEvalconst") 104 resultis N 105 $) 106 107 and Evalconst (x) = valof 108 $( let Op = x!0 & Right 109 switchon Op into 110 $( case NAME_S: 111 $( let T = Cellwithname (x) 112 unless IsNameConst (T) endcase // Go produce error message. 113 resultis FinalEvalconst (T!1, T!2) 114 $) 115 116 case NUMBER_S: 117 case CHARCONST_S: 118 case TRUE_S: 119 case FALSE_S: 120 resultis FinalEvalconst (Op, x!1) 121 122 case CONSTANT_S: 123 resultis x!1 124 125 case POS_S: case POS_F: 126 case NEG_S: case NEG_F: 127 case NOT_S: 128 resultis EvaluateOperator (Op, Evalconst (x!1)) 129 130 case PLUS_S: case PLUS_F: 131 case MINUS_S: case MINUS_F: 132 case MULT_S: case MULT_F: 133 case DIV_S: case DIV_F: 134 case REM_S: 135 case LOGOR_S: 136 case LOGAND_S: 137 case EQV_S: 138 case NEQV_S: 139 case LSHIFT_S: 140 case RSHIFT_S: 141 resultis EvaluateOperator (Op, Evalconst (x!1), Evalconst (x!2)) 142 143 case COND_S: 144 resultis Evalconst (Evalconst (x!1) -> x!2, x!3) 145 146 case REL_S: 147 x := x!1 148 $( let A = Evalconst (x!1) 149 while IsRelational (x!2) do 150 $( let Middle = Evalconst (x!2!1) 151 unless EvaluateOperator (x!0 & Right, A, Middle) resultis false 152 x, A := x!2, Middle 153 $) 154 resultis EvaluateOperator (x!0 & Right, A, Evalconst (x!2)) 155 $) 156 157 case VECAP_S: 158 if (x!1!0 & Right) = STRINGCONST_S do 159 $( let v = vec Vmax 160 let Len = FormStringconst (x!1!1, v) 161 let i = Evalconst (x!2) 162 if 0 le i le Len resultis v!i 163 $) 164 endcase 165 166 default: 167 $) 168 // Fall out to here if not a valid constant expression. 169 Transreport (NotConstant, x) 170 resultis RandomI () 171 $) 172 173 and IsRelational (x) = valof 174 switchon x!0 & Right into 175 $( case EQ_S: case EQ_F: 176 case NE_S: case NE_F: 177 case LS_S: case LS_F: 178 case LE_S: case LE_F: 179 case GR_S: case GR_F: 180 resultis true 181 182 default: resultis false 183 $) 184 185 and EvaluateOperator (Op, a, b) = valof switchon Op into 186 $( default: CGreport (UnexpectedCase, Op, "EvaluateOperator") 187 resultis RandomI () 188 189 case POS_S: resultis + a 190 case POS_F: resultis .+ a 191 case NEG_S: resultis - a 192 case NEG_F: resultis .- a 193 case NOT_S: resultis not a 194 195 case PLUS_S: resultis a + b 196 case PLUS_F: resultis a .+ b 197 case MINUS_S: resultis a - b 198 case MINUS_F: resultis a .- b 199 case MULT_S: resultis a * b 200 case MULT_F: resultis a .* b 201 case DIV_S: resultis a / b 202 case DIV_F: resultis a ./ b 203 case REM_S: resultis a rem b 204 case EQV_S: resultis a eqv b 205 case NEQV_S: resultis a neqv b 206 case LOGOR_S: resultis a logor b 207 case LOGAND_S: resultis a logand b 208 209 case LSHIFT_S: resultis a lshift b 210 case RSHIFT_S: resultis a rshift b 211 case EQ_S: resultis a = b 212 case EQ_F: resultis a .= b 213 case NE_S: resultis a ne b 214 case NE_F: resultis a .ne b 215 case LS_S: resultis a < b 216 case LS_F: resultis a .< b 217 case LE_S: resultis a le b 218 case LE_F: resultis a .le b 219 case GR_S: resultis a > b 220 case GR_F: resultis a .> b 221 case GE_S: resultis a ge b 222 case GE_F: resultis a .ge b 223 $) 224 225 let IsConst (x) = valof 226 $( 227 Top: switchon x!0 & Right into 228 $( case NAME_S: 229 resultis IsNameConst (Cellwithname (x)) 230 231 case NUMBER_S: 232 case CHARCONST_S: 233 case CONSTANT_S: 234 case TRUE_S: 235 case FALSE_S: 236 resultis true 237 238 case POS_S: case POS_F: 239 case NEG_S: case NEG_F: 240 case NOT_S: 241 case REL_S: 242 x := x!1 243 goto Top 244 245 case PLUS_S: case PLUS_F: 246 case MINUS_S: case MINUS_F: 247 case MULT_S: case MULT_F: 248 case DIV_S: case DIV_F: 249 case REM_S: 250 case LOGOR_S: 251 case LOGAND_S: 252 case EQV_S: 253 case NEQV_S: 254 case LSHIFT_S: 255 case RSHIFT_S: 256 case EQ_S: case EQ_F: 257 case NE_S: case NE_F: 258 case LS_S: case LS_F: 259 case LE_S: case LE_F: 260 case GR_S: case GR_F: 261 case GE_S: case GE_F: 262 unless IsConst (x!1) resultis false 263 x := x!2 264 goto Top 265 266 case COND_S: 267 if IsConst (x!1) resultis IsConst (Evalconst (x!1) -> x!2, x!3) 268 resultis false 269 270 default: resultis false 271 $) 272 $) CAE time 5.5, 131 source lines per second. cross reference table A bcpl_trans5: 148, 151, 152, 154 a bcpl_trans5: 185, 189, 190, 191, 192, 193, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222 Addlocal bcpl_trans_head: 23 AllocateLocal bcpl_trans_head: 51 AND_S bcpl_symbols: 17 ArgInfo bcpl_trans_head: 86 Assignlist bcpl_trans_head: 35 ASSIGN_S bcpl_symbols: 18 b bcpl_trans5: 185, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222 BadCall bcpl_trans_codes: 16 BadDescriptors bcpl_trans_codes: 17 BadLink bcpl_trans_codes: 18 BE_S bcpl_symbols: 19 BIT_S bcpl_symbols: 20 BreakLabel bcpl_trans_head: 87 BREAK_S bcpl_symbols: 21 BuildObject bcpl_compiler_head: 72 BY_S bcpl_symbols: 22 C bcpl_trans5: 37, 38, 39 C1 bcpl_trans5: 53, 54, 56, 58, 58, 59, 60 C2 bcpl_trans5: 53, 55, 58, 59, 59 CAE bcpl_compiler_head: 64 CaeReport bcpl_compiler_head: 49 CALL_S bcpl_symbols: 23 CaseFirst bcpl_trans_head: 88 CaseList bcpl_trans_head: 89 CASE_S bcpl_symbols: 24 Cellwithname bcpl_trans_head: 28, bcpl_trans5: 17, 80, 111, 229 CgFinish bcpl_trans_head: 83 CgInit bcpl_compiler_head: 71 CGreport bcpl_compiler_head: 51, bcpl_trans5: 103, 186 Ch bcpl_compiler_head: 92 CHARCONST_S bcpl_symbols: 27, bcpl_trans5: 20, 72, 85, 99, 117, 232 CHAR_S bcpl_symbols: 26 Checkdistinct bcpl_trans_head: 27 Cleanup bcpl_compiler_head: 61 COLON_S bcpl_symbols: 28 Column bcpl_compiler_head: 128 COMMA_S bcpl_symbols: 29 CompareStrings bcpl_compiler_head: 25 CompileExpression bcpl_trans_head: 39 CompileOperand bcpl_trans_head: 40 CompilerDTM bcpl_compiler_head: 112 CompilerDTMString bcpl_compiler_head: 111 CompilerVersionNumber bcpl_compiler_head: 110 CompilerVersionString bcpl_compiler_head: 109 Concatenate bcpl_compiler_head: 26 COND_S bcpl_symbols: 30, bcpl_trans5: 64, 143, 266 Conformality bcpl_trans_codes: 19 CONSTANT_S bcpl_symbols: 31, bcpl_trans5: 21, 72, 94, 102, 122, 233 CONSTDEF_S bcpl_symbols: 32 ConvertNtoS bcpl_compiler_head: 28 ConvertStoN bcpl_compiler_head: 27, bcpl_trans5: 98 CountTemporaries bcpl_trans_head: 47, bcpl_trans5: 14, 37, 53, 53 Crep bcpl_compiler_head: 98 DeallocateLocal bcpl_trans_head: 52 Declitem bcpl_trans_head: 24 Decllabels bcpl_trans_head: 26 Declnames bcpl_trans_head: 25 DefaultLabel bcpl_trans_head: 90 DEFAULT_S bcpl_symbols: 33 DefList bcpl_trans_head: 91 DescSize bcpl_trans_head: 117 DictionaryEntry bcpl_compiler_head: 127 DIV_F bcpl_symbols: 34, bcpl_trans5: 44, 133, 202, 248 DIV_S bcpl_symbols: 36, bcpl_trans5: 44, 133, 201, 248 DOUBLE_S bcpl_symbols: 38 DO_S bcpl_symbols: 37 DupDefault bcpl_trans_codes: 20 DupName bcpl_trans_codes: 21 DvecC bcpl_trans_head: 92 DvecP bcpl_trans_head: 93 DvecSize bcpl_trans_head: 118 EndcaseLabel bcpl_trans_head: 94 ENDCASE_S bcpl_symbols: 39 Endofstreamch bcpl_compiler_head: 135 ENDPROG_S bcpl_symbols: 40 EnterIntoCrossreference bcpl_compiler_head: 57 EnvBase bcpl_trans_head: 96 EqualString bcpl_compiler_head: 24 EQV_S bcpl_symbols: 44, bcpl_trans5: 48, 137, 204, 252 EQ_F bcpl_symbols: 42, bcpl_trans5: 175, 212, 256 EQ_S bcpl_symbols: 43, bcpl_trans5: 175, 211, 256 Errorsw bcpl_compiler_head: 124 ERROR_S bcpl_symbols: 41 Evalconst bcpl_trans_head: 43, bcpl_trans5: 94, 107, 128, 141, 141, 144, 144, 148, 150, 154, 161, 267 EvaluateOperator bcpl_trans_head: 46, bcpl_trans5: 128, 141, 151, 154, 185 Even bcpl_compiler_head: 136 EXTERNAL_S bcpl_symbols: 46 FALSE_S bcpl_symbols: 47, bcpl_trans5: 23, 72, 89, 101, 119, 235 FileCount bcpl_compiler_head: 118 FileNames bcpl_compiler_head: 116 FileShift bcpl_compiler_head: 138 FilesInfo bcpl_compiler_head: 117 FinalEvalconst bcpl_trans5: 96, 113, 120 FindPrintName bcpl_compiler_head: 56 FINISH_S bcpl_symbols: 48 FIXED_S bcpl_symbols: 49 FLOAT_S bcpl_symbols: 50 FNAP_S bcpl_symbols: 51, bcpl_trans5: 62 FNDEF_S bcpl_symbols: 52 Format bcpl_compiler_head: 20 FormCharconst bcpl_compiler_head: 46, bcpl_trans5: 99 FormStringconst bcpl_compiler_head: 47, bcpl_trans5: 160 FOR_S bcpl_symbols: 53 FreeLocalList bcpl_trans_head: 97 FreeVar bcpl_trans_codes: 22 Freevec bcpl_compiler_head: 34 GenerateArg bcpl_trans_head: 64 GenerateClaimResult bcpl_trans_head: 71 GenerateDiadicConditional bcpl_trans_head: 79 GenerateDiadicOperator bcpl_trans_head: 76 GenerateFinish bcpl_trans_head: 73 GenerateFnap bcpl_trans_head: 65 GenerateGoto bcpl_trans_head: 72 GenerateJump bcpl_trans_head: 60 GenerateLabel bcpl_trans_head: 59 GenerateLineNumber bcpl_trans_head: 81 GenerateMonadicConditional bcpl_trans_head: 78 GenerateMonadicOperator bcpl_trans_head: 75 GenerateOffsetOperator bcpl_trans_head: 77 GenerateResultBlock bcpl_trans_head: 69 GenerateResultValue bcpl_trans_head: 70 GenerateRtdefBegin bcpl_trans_head: 61 GenerateRtdefEnd bcpl_trans_head: 62 GenerateSSP bcpl_trans_head: 80 GenerateSwitch bcpl_trans_head: 74 GenerateSystemArg bcpl_trans_head: 67 GenerateSystemCall bcpl_trans_head: 68 GetStream bcpl_compiler_head: 62 GetVersion bcpl_compiler_head: 59 GET_S bcpl_symbols: 57 GE_F bcpl_symbols: 54, bcpl_trans5: 222, 261 GE_S bcpl_symbols: 56, bcpl_trans5: 221, 261 GlobalTemp bcpl_compiler_head: 131 GLOBAL_S bcpl_symbols: 58 GOTO_S bcpl_symbols: 59 GR_F bcpl_symbols: 60, bcpl_trans5: 179, 220, 260 GR_S bcpl_symbols: 61, bcpl_trans5: 179, 219, 260 HaveListingFile bcpl_compiler_head: 105 i bcpl_trans5: 161, 162, 162 IFNOT_S bcpl_symbols: 63 IFSO_S bcpl_symbols: 64 IF_S bcpl_symbols: 62 INPUT bcpl_compiler_head: 90 InsideRtdef bcpl_trans_head: 98 INTO_S bcpl_symbols: 66 IsConst bcpl_trans_head: 45, bcpl_trans5: 225, 262, 267, 267 IsNameConst bcpl_trans5: 17, 70, 81, 112, 229 IsRelational bcpl_trans_head: 48, bcpl_trans5: 149, 173 LABDEF_S bcpl_symbols: 67 LABEL_S bcpl_symbols: 68 Left bcpl_compiler_head: 134 Len bcpl_trans5: 160, 162 Length bcpl_compiler_head: 29 LengthInWords bcpl_compiler_head: 30 LENGTH_S bcpl_symbols: 71 LET_S bcpl_symbols: 72 LexInit bcpl_compiler_head: 65 LE_F bcpl_symbols: 69, bcpl_trans5: 178, 218, 259 LE_S bcpl_symbols: 70, bcpl_trans5: 178, 217, 259 LHSpointer bcpl_trans_head: 99 LineCount bcpl_compiler_head: 123 LineMap bcpl_compiler_head: 100 LineMask bcpl_compiler_head: 138 List1 bcpl_compiler_head: 35 List2 bcpl_compiler_head: 36 List3 bcpl_compiler_head: 37 List4 bcpl_compiler_head: 38 List5 bcpl_compiler_head: 39 List6 bcpl_compiler_head: 40 Listing bcpl_compiler_head: 95 ListSize bcpl_trans_head: 34 LIST_S bcpl_symbols: 73, bcpl_trans5: 66 LmodeRequired bcpl_trans_codes: 23 LOCAL_S bcpl_symbols: 74 LOGAND_S bcpl_symbols: 76, bcpl_trans5: 47, 136, 207, 251 LOGOR_S bcpl_symbols: 77, bcpl_trans5: 46, 135, 206, 250 LoopFlag bcpl_trans_head: 100 LoopLabel bcpl_trans_head: 101 LOOP_S bcpl_symbols: 78 LSHIFT_S bcpl_symbols: 81, bcpl_trans5: 50, 139, 209, 254 LS_F bcpl_symbols: 79, bcpl_trans5: 177, 216, 258 LS_S bcpl_symbols: 80, bcpl_trans5: 177, 215, 258 LVECAP_S bcpl_symbols: 83 LV_ARG_OUT bcpl_symbols: 84 LV_FNAP_RESULT bcpl_symbols: 86 LV_GLOBAL bcpl_symbols: 87 LV_LOCAL bcpl_symbols: 88 LV_S bcpl_symbols: 82, bcpl_trans5: 36 LV_STATIC bcpl_symbols: 89 LV_TEMP bcpl_symbols: 90 Machine bcpl_compiler_head: 102 MAIN_S bcpl_symbols: 91 MakeCopy bcpl_trans_head: 54 MakeTemp bcpl_trans_head: 53 MakeTimeString bcpl_compiler_head: 44 MANIFEST_S bcpl_symbols: 92 Middle bcpl_trans5: 150, 151, 152 MINUS_F bcpl_symbols: 93, bcpl_trans5: 42, 131, 198, 246 MINUS_S bcpl_symbols: 94, bcpl_trans5: 42, 131, 197, 246 MONITOR bcpl_compiler_head: 91 MULT_F bcpl_symbols: 96, bcpl_trans5: 43, 132, 200, 247 MULT_S bcpl_symbols: 97, bcpl_trans5: 43, 132, 199, 247 N bcpl_trans5: 96, 98, 99, 102, 104 NAMECHAIN bcpl_compiler_head: 125 NAME_S bcpl_symbols: 98, bcpl_trans5: 16, 79, 110, 228 NegVector bcpl_trans_codes: 24 NEG_F bcpl_symbols: 99, bcpl_trans5: 33, 126, 192, 239 NEG_S bcpl_symbols: 100, bcpl_trans5: 33, 126, 191, 239 NEQV_S bcpl_symbols: 101, bcpl_trans5: 49, 138, 205, 253 Newvec bcpl_compiler_head: 33 Nextparam bcpl_compiler_head: 45 Nextsymb bcpl_compiler_head: 53 NE_F bcpl_symbols: 102, bcpl_trans5: 176, 214, 257 NE_S bcpl_symbols: 103, bcpl_trans5: 176, 213, 257 NIL_S bcpl_symbols: 104, bcpl_trans5: 24 NoLoop bcpl_trans_codes: 26 NoSwitch bcpl_trans_codes: 27 NotConstant bcpl_trans_codes: 28, bcpl_trans5: 169 NotInsideRtdef bcpl_trans_codes: 29 NotName bcpl_trans_codes: 30 NOT_S bcpl_symbols: 106, bcpl_trans5: 34, 127, 193, 240 NoValof bcpl_trans_codes: 31 NUMBER_S bcpl_symbols: 107, bcpl_trans5: 19, 72, 84, 98, 116, 231 OcodeSw bcpl_compiler_head: 104 OFFSET_S bcpl_symbols: 108 Op bcpl_trans5: 77, 78, 86, 90, 90, 96, 97, 103, 108, 109, 120, 128, 141, 185, 185, 186 Optimize bcpl_compiler_head: 101 OptionString bcpl_compiler_head: 115 OR_S bcpl_symbols: 109 OUTPUT bcpl_compiler_head: 89 Packstring bcpl_compiler_head: 21 PartialEvalconst bcpl_trans_head: 44, bcpl_trans5: 76 PendingTemps bcpl_trans_head: 102 Plist bcpl_compiler_head: 68 PLUS_F bcpl_symbols: 110, bcpl_trans5: 41, 130, 196, 245 PLUS_S bcpl_symbols: 111, bcpl_trans5: 41, 130, 195, 245 Pname bcpl_compiler_head: 67 POINTER_S bcpl_symbols: 112 PopInput bcpl_compiler_head: 43 POS_F bcpl_symbols: 113, bcpl_trans5: 32, 125, 190, 238 POS_S bcpl_symbols: 114, bcpl_trans5: 32, 125, 189, 238 PPrep bcpl_compiler_head: 97 ProgramName bcpl_compiler_head: 119 PushInput bcpl_compiler_head: 42 PutBackTemps bcpl_trans_head: 55 QuietSw bcpl_compiler_head: 106 RandomI bcpl_compiler_head: 31, bcpl_trans5: 170, 187 RBRA_S bcpl_symbols: 116 Readch bcpl_compiler_head: 16 REGISTER_S bcpl_symbols: 117 REL_S bcpl_symbols: 118, bcpl_trans5: 65, 146, 241 RemoveEscapes bcpl_compiler_head: 23 Removenames bcpl_trans_head: 29 REM_S bcpl_symbols: 119, bcpl_trans5: 45, 134, 203, 249 REPEATUNTIL_S bcpl_symbols: 122 REPEATWHILE_S bcpl_symbols: 123 REPEAT_S bcpl_symbols: 121 REP_S bcpl_symbols: 120 ReserveArglist bcpl_trans_head: 63 ReserveSystemArglist bcpl_trans_head: 66 ResetSSP bcpl_trans_head: 50 RESULTIS_S bcpl_symbols: 124 ReturnLabel bcpl_trans_head: 103 RETURN_S bcpl_symbols: 126 Right bcpl_compiler_head: 134, bcpl_trans5: 15, 77, 108, 151, 154, 158, 174, 227 RKET_S bcpl_symbols: 127 RSHIFT_S bcpl_symbols: 128, bcpl_trans5: 51, 140, 210, 255 RTAP_S bcpl_symbols: 129 RtdefList bcpl_trans_head: 104 RtdefNesting bcpl_trans_head: 106 RTDEF_S bcpl_symbols: 130 RV_S bcpl_symbols: 131, bcpl_trans5: 35 SBRA_S bcpl_symbols: 132 SECTBEGIN_S bcpl_symbols: 133 SECTBRA_S bcpl_symbols: 134 SECTEND_S bcpl_symbols: 136 SECTKET_S bcpl_symbols: 137 SEMICOLON_S bcpl_symbols: 138 SetResult bcpl_trans_head: 41 SKET_S bcpl_symbols: 139 SSP bcpl_trans_head: 107 StaticAllocationCounter bcpl_trans_head: 108 StaticFirst bcpl_trans_head: 109 StaticList bcpl_trans_head: 110 STATIC_S bcpl_symbols: 140 StoreAll bcpl_trans_head: 82 StoreString bcpl_compiler_head: 41 STRINGCONST_S bcpl_symbols: 142, bcpl_trans5: 27, 158 STRING_S bcpl_symbols: 141 STRUCTURE_S bcpl_symbols: 143 SwitchFlag bcpl_trans_head: 111 SWITCHON_S bcpl_symbols: 144 Symb bcpl_compiler_head: 126 SymbolName bcpl_compiler_head: 55 Symbols bcpl_compiler_head: 99 T bcpl_trans5: 70, 71, 80, 81, 82, 82, 111, 112, 113, 113 TableCell bcpl_trans_head: 112 TABLE_S bcpl_symbols: 146, bcpl_trans5: 28 Target bcpl_trans_head: 36 TEMP_S bcpl_symbols: 147 TEST_S bcpl_symbols: 148 TimeNow bcpl_compiler_head: 114 TimeNowString bcpl_compiler_head: 113 Top bcpl_trans5: 227, 243, 264 TO_S bcpl_symbols: 149 Trans bcpl_compiler_head: 70 Transbody bcpl_trans_head: 20 TransConditional bcpl_trans_head: 31 Transdef bcpl_trans_head: 22 TransFnap bcpl_trans_head: 56 TransFor bcpl_trans_head: 32 TransLoop bcpl_trans_head: 37 Transreport bcpl_compiler_head: 50, bcpl_trans5: 169 TransSystemCall bcpl_trans_head: 57 TRUE_S bcpl_symbols: 150, bcpl_trans5: 22, 72, 88, 90, 100, 118, 234 TYPE_S bcpl_symbols: 151 UndefName bcpl_trans_codes: 32 UnexpectedCase bcpl_compiler_head: 139, bcpl_trans5: 103, 186 UNLESS_S bcpl_symbols: 152 Unpackstring bcpl_compiler_head: 22 UnrecognizedExpression bcpl_trans_codes: 33 UNTIL_S bcpl_symbols: 153 UpperCase bcpl_compiler_head: 96 UserID bcpl_compiler_head: 120 UtilitiesInit bcpl_compiler_head: 60 v bcpl_trans5: 76, 82, 82, 86, 86, 90, 90, 94, 94, 159, 160, 162 VALDEF_S bcpl_symbols: 154 ValofFlag bcpl_trans_head: 113 ValofLabel bcpl_trans_head: 114 VALOF_S bcpl_symbols: 156, bcpl_trans5: 63 VECAP_S bcpl_symbols: 158, bcpl_trans5: 52, 157 VEC_S bcpl_symbols: 157, bcpl_trans5: 29 Vmax bcpl_compiler_head: 137, bcpl_trans5: 159 WalkList bcpl_trans_head: 33 WHILE_S bcpl_symbols: 159 Writech bcpl_compiler_head: 17 WriteN bcpl_compiler_head: 19 WriteObjectListing bcpl_compiler_head: 73 WriteS bcpl_compiler_head: 18 x bcpl_trans5: 14, 15, 17, 37, 53, 53, 76, 77, 80, 86, 94, 107, 108, 111, 120, 123, 128, 141, 141, 144, 144, 144, 147, 147, 148, 149, 150, 151, 152, 152, 154, 154, 158, 160, 161, 169, 173, 174, 225, 227, 229, 242, 242, 262, 263, 263, 267, 267, 267, 267 Xref bcpl_compiler_head: 103 Trans time 2.5, 651 object words per second. " Begin text of IsNameConst aa 000000 000013 111163 zero 11,37491 " IsNameConst aa 000001 116141 155145 zero 40033,55909 aa 000002 103157 156163 zero 34415,56435 aa 000003 164000 000000 zero 59392 L2: aa 000004 000000 213000 70 epaq 0 " set lp to linkage section aa 000005 700026 764161 lprplp sb|22,*au aa 000006 200000 021100 adlx1 bp|0 " BCPL save aa 000007 700000 542111 sprpbp sb|0,x1 aa 000010 700001 544111 sprplp sb|1,x1 aa 000011 700417 620111 eax0 sb|271,x1 aa 000012 777760 360003 anx0 -16,du aa 000013 700025 740100 stx0 sb|21 " end of save sequence aa 000014 000005 710004 72 tra L7 L8: aa 000015 000001 336007 73 lcq 1,dl " true aa 000016 000034 710004 74 tra L5 L9: aa 000017 000000 236007 ldq 0,dl " false aa 000020 000032 710004 tra L5 L7: " Begin switchon aa 000021 700002 760111 lprpap sb|2,x1 " T aa 000022 000001 235100 lda ap|1 aa 000023 000043 773000 lrl 35 aa 000024 000011 507007 dvf 9,dl " hash table size 0a 000025 000041 115006 cmpa L10,ql aa 000026 777771 601004 tnz L9 0a 000027 000030 710006 tra L11,ql L11: aa 000030 777767 710004 tra L9 aa 000031 777764 710004 tra L8 aa 000032 777763 710004 tra L8 aa 000033 777764 710004 tra L9 aa 000034 777761 710004 tra L8 aa 000035 777762 710004 tra L9 aa 000036 777757 710004 tra L8 aa 000037 777760 710004 tra L9 aa 000040 777755 710004 tra L8 L10: aa 000041 000000 000000 zero 0 aa 000042 000000 000012 zero 0,10 aa 000043 000000 000001 zero 0,1 aa 000044 000000 000000 zero 0 aa 000045 000000 000003 zero 0,3 aa 000046 000000 000000 zero 0 aa 000047 000000 000001 zero 0,1 aa 000050 000000 000000 zero 0 aa 000051 000000 000016 zero 0,14 L6: L5: aa 000052 700004 756111 stq sb|4,x1 aa 000053 700004 236111 ldq sb|4,x1 aa 000054 700000 762111 lprpbp sb|0,x1 " bcpl return aa 000055 200000 121100 sblx1 bp|0 aa 000056 700001 764111 lprplp sb|1,x1 aa 000057 200001 710100 tra bp|1 " end of return sequence " Begin text of CountTemporaries aa 000060 000020 103157 zero 16,34415 " CountTemporaries aa 000061 165156 164124 zero 60014,59476 aa 000062 145155 160157 zero 51821,57455 aa 000063 162141 162151 zero 58465,58473 aa 000064 145163 000000 zero 51827 aa 000065 700003 756111 14 stq sb|3,x1 " temporary L1: aa 000066 000000 213000 epaq 0 " set lp to linkage section aa 000067 700026 764161 lprplp sb|22,*au aa 000070 200000 021100 adlx1 bp|0 " BCPL save aa 000071 700000 542111 sprpbp sb|0,x1 aa 000072 700001 544111 sprplp sb|1,x1 aa 000073 700422 620111 eax0 sb|274,x1 aa 000074 777760 360003 anx0 -16,du aa 000075 700025 740100 stx0 sb|21 " end of save sequence aa 000076 000107 710004 16 tra L16 L17: aa 000077 700002 236111 17 ldq sb|2,x1 " x aa 000100 700014 756111 stq sb|12,x1 4a 000101 400024 272120 tsbbp lp|L20,* " Cellwithname aa 000102 000012 000001 zero 10,1 aa 000103 700007 756111 stq sb|7,x1 aa 000104 700007 236111 ldq sb|7,x1 aa 000105 700014 756111 stq sb|12,x1 aa 000106 777700 272004 tsbbp L2+2 " IsNameConst aa 000107 000012 000001 zero 10,1 aa 000110 000000 116007 cmpq 0,dl aa 000111 000003 600004 tze L18 aa 000112 000000 236007 ldq 0,dl " 0 aa 000113 000002 710004 tra L19 L18: aa 000114 000001 236007 ldq 1,dl " 1 L19: aa 000115 700005 756111 stq sb|5,x1 aa 000116 700005 236111 ldq sb|5,x1 aa 000117 000302 710004 19 tra L14 L21: aa 000120 000000 236007 25 ldq 0,dl " 0 aa 000121 000300 710004 27 tra L14 L22: aa 000122 000001 236007 30 ldq 1,dl " 1 aa 000123 000276 710004 32 tra L14 L23: aa 000124 700002 762111 37 lprpbp sb|2,x1 " x aa 000125 200001 235100 lda bp|1 aa 000126 700014 755111 sta sb|12,x1 aa 000127 777741 272004 tsbbp L1+2 " CountTemporaries aa 000130 000012 000001 zero 10,1 aa 000131 700004 756111 stq sb|4,x1 " C aa 000132 700004 236111 38 ldq sb|4,x1 " C aa 000133 000001 116007 cmpq 1,dl " 1 aa 000134 000003 601004 tnz L24 aa 000135 000002 236007 ldq 2,dl " 2 aa 000136 000263 710004 tra L14 L24: aa 000137 700004 236111 39 ldq sb|4,x1 " C aa 000140 000261 710004 41 tra L14 L25: aa 000141 700002 761111 53 lprpab sb|2,x1 " x aa 000142 100002 235100 lda ab|2 aa 000143 700014 755111 sta sb|12,x1 aa 000144 777724 272004 tsbbp L1+2 " CountTemporaries aa 000145 000012 000001 zero 10,1 aa 000146 700005 756111 stq sb|5,x1 " C2 aa 000147 700002 763111 lprpbb sb|2,x1 " x aa 000150 300001 236100 ldq bb|1 aa 000151 700014 756111 stq sb|12,x1 aa 000152 777716 272004 tsbbp L1+2 " CountTemporaries aa 000153 000012 000001 zero 10,1 aa 000154 700006 756111 stq sb|6,x1 " C1 aa 000155 700006 234111 54 szn sb|6,x1 " C1 aa 000156 000007 601004 tnz L26 aa 000157 700005 234111 55 szn sb|5,x1 " C2 aa 000160 000003 601004 tnz L27 aa 000161 000000 236007 ldq 0,dl " 0 aa 000162 000237 710004 tra L14 L27: aa 000163 000001 235007 56 lda 1,dl " 1 aa 000164 700006 755111 sta sb|6,x1 " C1 L26: aa 000165 700006 235111 58 lda sb|6,x1 " C1 aa 000166 700005 115111 cmpa sb|5,x1 " C2 aa 000167 000003 604404 tmoz L28 aa 000170 700006 236111 ldq sb|6,x1 " C1 aa 000171 000230 710004 tra L14 L28: aa 000172 700006 235111 59 lda sb|6,x1 " C1 aa 000173 700005 115111 cmpa sb|5,x1 " C2 aa 000174 000003 605004 tpl L29 aa 000175 700005 236111 ldq sb|5,x1 " C2 aa 000176 000223 710004 tra L14 L29: aa 000177 700006 235111 60 lda sb|6,x1 " C1 aa 000200 000001 075007 ada 1,dl " 1 aa 000201 000044 777000 llr 36 " exchange A and Q aa 000202 000217 710004 62 tra L14 L30: L31: aa 000203 000144 236007 67 ldq 100,dl " 100 aa 000204 000215 710004 tra L14 L16: aa 000205 700002 765111 lprplb sb|2,x1 " x aa 000206 500000 235100 lda lb|0 aa 000207 777777 375007 ana -1,dl " Right " Begin switchon aa 000210 000013 175007 sba 11,dl aa 000211 000204 115007 cmpa 132,dl aa 000212 777771 603004 trc L31 0a 000213 000215 710005 tra L32,al aa 000214 700004 755111 sta sb|4,x1 " temporary L32: aa 000215 777703 710004 tra L21 aa 000216 777765 710004 tra L31 aa 000217 777764 710004 tra L31 aa 000220 777763 710004 tra L30 aa 000221 777677 710004 tra L21 aa 000222 777761 710004 tra L31 aa 000223 777760 710004 tra L31 aa 000224 777715 710004 tra L25 aa 000225 777756 710004 tra L31 aa 000226 777713 710004 tra L25 aa 000227 777754 710004 tra L31 aa 000230 777753 710004 tra L31 aa 000231 777752 710004 tra L31 aa 000232 777751 710004 tra L31 aa 000233 777750 710004 tra L31 aa 000234 777747 710004 tra L31 aa 000235 777746 710004 tra L31 aa 000236 777703 710004 tra L25 aa 000237 777744 710004 tra L31 aa 000240 777743 710004 tra L31 aa 000241 777657 710004 tra L21 aa 000242 777741 710004 tra L31 aa 000243 777740 710004 tra L31 aa 000244 777737 710004 tra L31 aa 000245 777736 710004 tra L30 aa 000246 777735 710004 tra L31 aa 000247 777734 710004 tra L31 aa 000250 777733 710004 tra L31 aa 000251 777732 710004 tra L31 aa 000252 777731 710004 tra L31 aa 000253 777730 710004 tra L31 aa 000254 777727 710004 tra L31 aa 000255 777726 710004 tra L31 aa 000256 777725 710004 tra L31 aa 000257 777724 710004 tra L31 aa 000260 777723 710004 tra L31 aa 000261 777722 710004 tra L31 aa 000262 777721 710004 tra L31 aa 000263 777720 710004 tra L31 aa 000264 777717 710004 tra L31 aa 000265 777716 710004 tra L31 aa 000266 777715 710004 tra L31 aa 000267 777714 710004 tra L31 aa 000270 777713 710004 tra L31 aa 000271 777712 710004 tra L31 aa 000272 777711 710004 tra L31 aa 000273 777710 710004 tra L30 aa 000274 777707 710004 tra L31 aa 000275 777706 710004 tra L31 aa 000276 777643 710004 tra L25 aa 000277 777642 710004 tra L25 aa 000300 777703 710004 tra L31 aa 000301 777702 710004 tra L31 aa 000302 777701 710004 tra L31 aa 000303 777636 710004 tra L25 aa 000304 777620 710004 tra L23 aa 000305 777676 710004 tra L31 aa 000306 777675 710004 tra L31 aa 000307 777674 710004 tra L31 aa 000310 777673 710004 tra L31 aa 000311 777672 710004 tra L31 aa 000312 777671 710004 tra L31 aa 000313 777670 710004 tra L31 aa 000314 777667 710004 tra L31 aa 000315 777666 710004 tra L31 aa 000316 777665 710004 tra L31 aa 000317 777622 710004 tra L25 aa 000320 777621 710004 tra L25 aa 000321 777662 710004 tra L31 aa 000322 777617 710004 tra L25 aa 000323 777616 710004 tra L25 aa 000324 777553 710004 tra L17 aa 000325 777577 710004 tra L23 aa 000326 777576 710004 tra L23 aa 000327 777612 710004 tra L25 aa 000330 777653 710004 tra L31 aa 000331 777652 710004 tra L31 aa 000332 777566 710004 tra L21 aa 000333 777650 710004 tra L31 aa 000334 777570 710004 tra L23 aa 000335 777563 710004 tra L21 aa 000336 777645 710004 tra L31 aa 000337 777644 710004 tra L31 aa 000340 777601 710004 tra L25 aa 000341 777600 710004 tra L25 aa 000342 777641 710004 tra L31 aa 000343 777561 710004 tra L23 aa 000344 777560 710004 tra L23 aa 000345 777636 710004 tra L31 aa 000346 777635 710004 tra L31 aa 000347 777634 710004 tra L31 aa 000350 777633 710004 tra L30 aa 000351 777570 710004 tra L25 aa 000352 777631 710004 tra L31 aa 000353 777630 710004 tra L31 aa 000354 777627 710004 tra L31 aa 000355 777626 710004 tra L31 aa 000356 777625 710004 tra L31 aa 000357 777624 710004 tra L31 aa 000360 777623 710004 tra L31 aa 000361 777622 710004 tra L31 aa 000362 777557 710004 tra L25 aa 000363 777620 710004 tra L31 aa 000364 777617 710004 tra L31 aa 000365 777537 710004 tra L23 aa 000366 777615 710004 tra L31 aa 000367 777614 710004 tra L31 aa 000370 777613 710004 tra L31 aa 000371 777612 710004 tra L31 aa 000372 777611 710004 tra L31 aa 000373 777610 710004 tra L31 aa 000374 777607 710004 tra L31 aa 000375 777606 710004 tra L31 aa 000376 777605 710004 tra L31 aa 000377 777604 710004 tra L31 aa 000400 777522 710004 tra L22 aa 000401 777602 710004 tra L31 aa 000402 777601 710004 tra L31 aa 000403 777600 710004 tra L31 aa 000404 777516 710004 tra L22 aa 000405 777576 710004 tra L31 aa 000406 777575 710004 tra L31 aa 000407 777574 710004 tra L31 aa 000410 777510 710004 tra L21 aa 000411 777572 710004 tra L31 aa 000412 777571 710004 tra L31 aa 000413 777570 710004 tra L31 aa 000414 777567 710004 tra L31 aa 000415 777566 710004 tra L31 aa 000416 777565 710004 tra L30 aa 000417 777503 710004 tra L22 aa 000420 777521 710004 tra L25 L15: L14: aa 000421 700004 756111 stq sb|4,x1 aa 000422 700004 236111 ldq sb|4,x1 aa 000423 700000 762111 lprpbp sb|0,x1 " bcpl return aa 000424 200000 121100 sblx1 bp|0 aa 000425 700001 764111 lprplp sb|1,x1 aa 000426 200001 710100 tra bp|1 " end of return sequence " Begin text of PartialEvalconst aa 000427 000020 120141 zero 16,41057 " PartialEvalconst aa 000430 162164 151141 zero 58484,53857 aa 000431 154105 166141 zero 55365,60513 aa 000432 154143 157156 zero 55395,56942 aa 000433 163164 000000 zero 58996 aa 000434 700003 756111 76 stq sb|3,x1 " temporary L33: aa 000435 000000 213000 epaq 0 " set lp to linkage section aa 000436 700026 764161 lprplp sb|22,*au aa 000437 200000 021100 adlx1 bp|0 " BCPL save aa 000440 700000 542111 sprpbp sb|0,x1 aa 000441 700001 544111 sprplp sb|1,x1 aa 000442 700422 620111 eax0 sb|274,x1 aa 000443 777760 360003 anx0 -16,du aa 000444 700025 740100 stx0 sb|21 " end of save sequence aa 000445 700002 760111 77 lprpap sb|2,x1 " x aa 000446 000000 236100 ldq ap|0 aa 000447 777777 376007 anq -1,dl " Right aa 000450 700004 756111 stq sb|4,x1 " Op aa 000451 000054 710004 79 tra L42 L43: aa 000452 700002 236111 80 ldq sb|2,x1 " x aa 000453 700014 756111 stq sb|12,x1 4a 000454 400024 272120 tsbbp lp|L20,* " Cellwithname aa 000455 000012 000001 zero 10,1 aa 000456 700005 756111 stq sb|5,x1 " T aa 000457 700005 236111 81 ldq sb|5,x1 " T aa 000460 700014 756111 stq sb|12,x1 aa 000461 777325 272004 tsbbp L2+2 " IsNameConst aa 000462 000012 000001 zero 10,1 aa 000463 000000 116007 cmpq 0,dl aa 000464 000065 600004 tze L41 aa 000465 700005 762111 82 lprpbp sb|5,x1 " T aa 000466 200001 236100 ldq bp|1 aa 000467 700003 761111 lprpab sb|3,x1 " v aa 000470 100000 756100 stq ab|0 aa 000471 700005 763111 lprpbb sb|5,x1 " T aa 000472 300002 236100 ldq bb|2 aa 000473 700003 765111 lprplb sb|3,x1 " v aa 000474 500001 756100 stq lb|1 aa 000475 000065 710004 84 tra L40 L44: aa 000476 700002 760111 86 lprpap sb|2,x1 " x aa 000477 000001 236100 ldq ap|1 aa 000500 700003 762111 lprpbp sb|3,x1 " v aa 000501 200001 756100 stq bp|1 aa 000502 700004 236111 ldq sb|4,x1 " Op aa 000503 700003 761111 lprpab sb|3,x1 " v aa 000504 100000 756100 stq ab|0 aa 000505 000055 710004 88 tra L40 L45: aa 000506 700004 236111 90 ldq sb|4,x1 " Op aa 000507 000206 116007 cmpq 134,dl " TRUE_S aa 000510 000003 601004 tnz L46 aa 000511 000001 335007 lca 1,dl " true aa 000512 000002 710004 tra L47 L46: aa 000513 000000 235007 lda 0,dl " false L47: aa 000514 700006 755111 sta sb|6,x1 aa 000515 700006 235111 lda sb|6,x1 aa 000516 700003 763111 lprpbb sb|3,x1 " v aa 000517 300001 755100 sta bb|1 aa 000520 700004 235111 lda sb|4,x1 " Op aa 000521 700003 765111 lprplb sb|3,x1 " v aa 000522 500000 755100 sta lb|0 aa 000523 000037 710004 92 tra L40 L48: aa 000524 000025 710004 tra L41 L42: " Begin switchon aa 000525 700004 235111 lda sb|4,x1 " Op aa 000526 000043 773000 lrl 35 aa 000527 000007 507007 dvf 7,dl " hash table size 0a 000530 000542 115006 cmpa L49,ql aa 000531 777773 601004 tnz L48 0a 000532 000533 710006 tra L50,ql L50: aa 000533 777743 710004 tra L44 aa 000534 777752 710004 tra L45 aa 000535 777767 710004 tra L48 aa 000536 777750 710004 tra L45 aa 000537 777737 710004 tra L44 aa 000540 777712 710004 tra L43 aa 000541 777763 710004 tra L48 L49: aa 000542 000000 000015 zero 0,13 aa 000543 000000 000023 zero 0,19 aa 000544 000000 000000 zero 0 aa 000545 000000 000004 zero 0,4 aa 000546 000000 000001 zero 0,1 aa 000547 000000 000013 zero 0,11 aa 000550 000000 000000 zero 0 L41: aa 000551 000017 236007 94 ldq 15,dl " CONSTANT_S aa 000552 700003 760111 lprpap sb|3,x1 " v aa 000553 000000 756100 stq ap|0 aa 000554 700002 236111 ldq sb|2,x1 " x aa 000555 700014 756111 stq sb|12,x1 aa 000556 000717 272004 tsbbp L35+2 " Evalconst aa 000557 000012 000001 zero 10,1 aa 000560 700003 762111 lprpbp sb|3,x1 " v aa 000561 200001 756100 stq bp|1 L40: aa 000562 700000 762111 lprpbp sb|0,x1 " bcpl return aa 000563 200000 121100 sblx1 bp|0 aa 000564 700001 764111 lprplp sb|1,x1 aa 000565 200001 710100 tra bp|1 " end of return sequence " Begin text of FinalEvalconst aa 000566 000016 106151 zero 14,35945 " FinalEvalconst aa 000567 156141 154105 zero 56417,55365 aa 000570 166141 154143 zero 60513,55395 aa 000571 157156 163164 zero 56942,58996 L34: aa 000572 000000 213000 96 epaq 0 " set lp to linkage section aa 000573 700026 764161 lprplp sb|22,*au aa 000574 200000 021100 adlx1 bp|0 " BCPL save aa 000575 700000 542111 sprpbp sb|0,x1 aa 000576 700001 544111 sprplp sb|1,x1 aa 000577 700424 620111 eax0 sb|276,x1 aa 000600 777760 360003 anx0 -16,du aa 000601 700025 740100 stx0 sb|21 " end of save sequence aa 000602 000033 710004 98 tra L55 L56: aa 000603 700003 236111 ldq sb|3,x1 " N aa 000604 700012 756111 stq sb|10,x1 4a 000605 400022 272120 tsbbp lp|L57,* " ConvertStoN aa 000606 000010 000001 zero 8,1 aa 000607 000056 710004 99 tra L53 L58: aa 000610 700003 236111 ldq sb|3,x1 " N aa 000611 700012 756111 stq sb|10,x1 4a 000612 400020 272120 tsbbp lp|L59,* " FormCharconst aa 000613 000010 000001 zero 8,1 aa 000614 000051 710004 100 tra L53 L60: aa 000615 000001 336007 lcq 1,dl " true aa 000616 000047 710004 101 tra L53 L61: aa 000617 000000 236007 ldq 0,dl " false aa 000620 000045 710004 102 tra L53 L62: aa 000621 700003 236111 ldq sb|3,x1 " N aa 000622 000043 710004 103 tra L53 L63: aa 000623 000143 235007 lda 99,dl " UnexpectedCase aa 000624 700012 755111 sta sb|10,x1 aa 000625 700002 235111 lda sb|2,x1 " Op aa 000626 700013 755111 sta sb|11,x1 aa 000627 000045 351404 eapab L64 " "FinalEvalconst" aa 000630 700014 541111 sprpab sb|12,x1 4a 000631 400016 272120 tsbbp lp|L65,* " CGreport aa 000632 000010 000003 zero 8,3 aa 000633 700003 236111 104 ldq sb|3,x1 " N aa 000634 000031 710004 tra L53 L55: " Begin switchon aa 000635 700002 235111 lda sb|2,x1 " Op aa 000636 000043 773000 lrl 35 aa 000637 000011 507007 dvf 9,dl " hash table size 0a 000640 000654 115006 cmpa L66,ql aa 000641 777762 601004 tnz L63 0a 000642 000643 710006 tra L67,ql L67: aa 000643 777760 710004 tra L63 aa 000644 777737 710004 tra L56 aa 000645 777743 710004 tra L58 aa 000646 777755 710004 tra L63 aa 000647 777750 710004 tra L61 aa 000650 777753 710004 tra L63 aa 000651 777750 710004 tra L62 aa 000652 777751 710004 tra L63 aa 000653 777742 710004 tra L60 L66: aa 000654 000000 000000 zero 0 aa 000655 000000 000012 zero 0,10 aa 000656 000000 000001 zero 0,1 aa 000657 000000 000000 zero 0 aa 000660 000000 000003 zero 0,3 aa 000661 000000 000000 zero 0 aa 000662 000000 000001 zero 0,1 aa 000663 000000 000000 zero 0 aa 000664 000000 000016 zero 0,14 L54: L53: aa 000665 700005 756111 stq sb|5,x1 aa 000666 700005 236111 ldq sb|5,x1 aa 000667 700000 762111 lprpbp sb|0,x1 " bcpl return aa 000670 200000 121100 sblx1 bp|0 aa 000671 700001 764111 lprplp sb|1,x1 aa 000672 200001 710100 tra bp|1 " end of return sequence aa 000673 700004 756111 stq sb|4,x1 " temporary " Literal pool L64: aa 000674 000016 106151 zero 14,35945 " "FinalEvalconst" aa 000675 156141 154105 zero 56417,55365 aa 000676 166141 154143 zero 60513,55395 aa 000677 157156 163164 zero 56942,58996 " Begin text of IsRelational aa 000700 000014 111163 zero 12,37491 " IsRelational aa 000701 122145 154141 zero 42085,55393 aa 000702 164151 157156 zero 59497,56942 aa 000703 141154 000000 zero 49772 L36: aa 000704 000000 213000 173 epaq 0 " set lp to linkage section aa 000705 700026 764161 lprplp sb|22,*au aa 000706 200000 021100 adlx1 bp|0 " BCPL save aa 000707 700000 542111 sprpbp sb|0,x1 aa 000710 700001 544111 sprplp sb|1,x1 aa 000711 700417 620111 eax0 sb|271,x1 aa 000712 777760 360003 anx0 -16,du aa 000713 700025 740100 stx0 sb|21 " end of save sequence aa 000714 000005 710004 175 tra L72 L73: aa 000715 000001 336007 180 lcq 1,dl " true aa 000716 000036 710004 182 tra L70 L74: aa 000717 000000 236007 ldq 0,dl " false aa 000720 000034 710004 tra L70 L72: aa 000721 700002 761111 lprpab sb|2,x1 " x aa 000722 100000 235100 lda ab|0 aa 000723 777777 375007 ana -1,dl " Right " Begin switchon aa 000724 000077 115007 cmpa 63,dl aa 000725 000011 604004 tmi L75 aa 000726 000101 115007 cmpa 65,dl aa 000727 777766 604004 tmi L73 aa 000730 000126 115007 cmpa 86,dl aa 000731 777764 600004 tze L73 aa 000732 000127 115007 cmpa 87,dl aa 000733 777762 600004 tze L73 aa 000734 777763 710004 tra L74 aa 000735 700004 755111 sta sb|4,x1 " temporary L75: aa 000736 000054 115007 cmpa 44,dl aa 000737 000010 604004 tmi L76 aa 000740 000056 115007 cmpa 46,dl aa 000741 777754 604004 tmi L73 aa 000742 000065 115007 cmpa 53,dl aa 000743 777752 600004 tze L73 aa 000744 000066 115007 cmpa 54,dl aa 000745 777750 600004 tze L73 aa 000746 777751 710004 tra L74 L76: aa 000747 000032 115007 cmpa 26,dl aa 000750 777745 600004 tze L73 aa 000751 000033 115007 cmpa 27,dl aa 000752 777743 600004 tze L73 aa 000753 777744 710004 tra L74 L71: L70: aa 000754 700004 756111 stq sb|4,x1 aa 000755 700004 236111 ldq sb|4,x1 aa 000756 700000 762111 lprpbp sb|0,x1 " bcpl return aa 000757 200000 121100 sblx1 bp|0 aa 000760 700001 764111 lprplp sb|1,x1 aa 000761 200001 710100 tra bp|1 " end of return sequence " Begin text of EvaluateOperator aa 000762 000020 105166 zero 16,35446 " EvaluateOperator aa 000763 141154 165141 zero 49772,60001 aa 000764 164145 117160 zero 59493,40560 aa 000765 145162 141164 zero 51826,49780 aa 000766 157162 000000 zero 56946 aa 000767 700003 756111 185 stq sb|3,x1 " temporary L37: aa 000770 000000 213000 epaq 0 " set lp to linkage section aa 000771 700026 764161 lprplp sb|22,*au aa 000772 200000 021100 adlx1 bp|0 " BCPL save aa 000773 700000 542111 sprpbp sb|0,x1 aa 000774 700001 544111 sprplp sb|1,x1 aa 000775 700424 620111 eax0 sb|276,x1 aa 000776 777760 360003 anx0 -16,du aa 000777 700025 740100 stx0 sb|21 " end of save sequence aa 001000 000307 710004 186 tra L81 L82: aa 001001 000143 236007 ldq 99,dl " UnexpectedCase aa 001002 700012 756111 stq sb|10,x1 aa 001003 700002 236111 ldq sb|2,x1 " Op aa 001004 700013 756111 stq sb|11,x1 aa 001005 000456 353404 eapbb L83 " "EvaluateOperator" aa 001006 700014 543111 sprpbb sb|12,x1 4a 001007 400016 272120 tsbbp lp|L65,* " CGreport aa 001010 000010 000003 zero 8,3 4a 001011 400014 272120 187 tsbbp lp|L84,* " RandomI aa 001012 000010 000000 zero 8 aa 001013 000440 710004 189 tra L79 L85: aa 001014 700003 236111 ldq sb|3,x1 " a aa 001015 000436 710004 190 tra L79 L86: aa 001016 700003 236111 ldq sb|3,x1 " a aa 001017 000434 710004 191 tra L79 L87: aa 001020 700003 336111 lcq sb|3,x1 " a aa 001021 000432 710004 192 tra L79 L88: aa 001022 700003 431111 fld sb|3,x1 " a aa 001023 000000 513007 fneg 0,dl aa 001024 700006 470111 fstr sb|6,x1 " temporary aa 001025 700006 236111 ldq sb|6,x1 aa 001026 000425 710004 193 tra L79 L89: aa 001027 000001 335007 lca 1,dl " true aa 001030 700003 675111 era sb|3,x1 " a aa 001031 000044 777000 llr 36 " exchange A and Q aa 001032 000421 710004 195 tra L79 L90: aa 001033 700003 236111 ldq sb|3,x1 " a aa 001034 700004 076111 adq sb|4,x1 " b aa 001035 000416 710004 196 tra L79 L91: aa 001036 700003 431111 fld sb|3,x1 " a aa 001037 700004 475111 fad sb|4,x1 " b aa 001040 700006 470111 fstr sb|6,x1 " temporary aa 001041 700006 236111 ldq sb|6,x1 aa 001042 000411 710004 197 tra L79 L92: aa 001043 700003 235111 lda sb|3,x1 " a aa 001044 700004 175111 sba sb|4,x1 " b aa 001045 000044 777000 llr 36 " exchange A and Q aa 001046 000405 710004 198 tra L79 L93: aa 001047 700003 431111 fld sb|3,x1 " a aa 001050 700004 575111 fsb sb|4,x1 " b aa 001051 700006 470111 fstr sb|6,x1 " temporary aa 001052 700006 236111 ldq sb|6,x1 aa 001053 000400 710004 199 tra L79 L94: aa 001054 700003 236111 ldq sb|3,x1 " a aa 001055 700004 402111 mpy sb|4,x1 " b aa 001056 000375 710004 200 tra L79 L95: aa 001057 700003 431111 fld sb|3,x1 " a aa 001060 700004 461111 fmp sb|4,x1 " b aa 001061 700006 470111 fstr sb|6,x1 " temporary aa 001062 700006 236111 ldq sb|6,x1 aa 001063 000370 710004 201 tra L79 L96: aa 001064 700003 236111 ldq sb|3,x1 " a aa 001065 700004 506111 div sb|4,x1 " b aa 001066 000365 710004 202 tra L79 L97: aa 001067 700003 431111 fld sb|3,x1 " a aa 001070 700004 565111 fdv sb|4,x1 " b aa 001071 700006 470111 fstr sb|6,x1 " temporary aa 001072 700006 236111 ldq sb|6,x1 aa 001073 000360 710004 203 tra L79 L98: aa 001074 700003 236111 ldq sb|3,x1 " a aa 001075 700004 506111 div sb|4,x1 " b aa 001076 000044 777000 llr 36 " exchange A and Q aa 001077 000354 710004 204 tra L79 L99: aa 001100 700003 236111 ldq sb|3,x1 " a aa 001101 700004 676111 erq sb|4,x1 " b aa 001102 000360 676004 erq L100 " true aa 001103 000350 710004 205 tra L79 L101: aa 001104 700003 236111 ldq sb|3,x1 " a aa 001105 700004 676111 erq sb|4,x1 " b aa 001106 000345 710004 206 tra L79 L102: aa 001107 700003 236111 ldq sb|3,x1 " a aa 001110 700004 276111 orq sb|4,x1 " b aa 001111 000342 710004 207 tra L79 L103: aa 001112 700003 236111 ldq sb|3,x1 " a aa 001113 700004 376111 anq sb|4,x1 " b aa 001114 000337 710004 209 tra L79 L104: aa 001115 700003 236111 ldq sb|3,x1 " a aa 001116 700004 722111 lxl2 sb|4,x1 " b aa 001117 000000 736012 qls 0,x2 aa 001120 000333 710004 210 tra L79 L105: aa 001121 700003 236111 ldq sb|3,x1 " a aa 001122 700004 723111 lxl3 sb|4,x1 " b aa 001123 000000 772013 qrl 0,x3 aa 001124 000327 710004 211 tra L79 L106: aa 001125 700003 236111 ldq sb|3,x1 " a aa 001126 700004 116111 cmpq sb|4,x1 " b aa 001127 000003 601004 tnz L107 aa 001130 000001 335007 lca 1,dl " true aa 001131 000002 710004 tra L108 L107: aa 001132 000000 235007 lda 0,dl " false L108: aa 001133 700007 755111 sta sb|7,x1 aa 001134 700007 235111 lda sb|7,x1 aa 001135 000044 777000 llr 36 " exchange A and Q aa 001136 000315 710004 212 tra L79 L109: aa 001137 700003 431111 fld sb|3,x1 " a aa 001140 700004 515111 fcmp sb|4,x1 " b aa 001141 000003 601004 tnz L110 aa 001142 000001 336007 lcq 1,dl " true aa 001143 000002 710004 tra L111 L110: aa 001144 000000 236007 ldq 0,dl " false L111: aa 001145 700007 756111 stq sb|7,x1 aa 001146 700007 236111 ldq sb|7,x1 aa 001147 000304 710004 213 tra L79 L112: aa 001150 700003 236111 ldq sb|3,x1 " a aa 001151 700004 116111 cmpq sb|4,x1 " b aa 001152 000003 600004 tze L113 aa 001153 000001 335007 lca 1,dl " true aa 001154 000002 710004 tra L114 L113: aa 001155 000000 235007 lda 0,dl " false L114: aa 001156 700007 755111 sta sb|7,x1 aa 001157 700007 235111 lda sb|7,x1 aa 001160 000044 777000 llr 36 " exchange A and Q aa 001161 000272 710004 214 tra L79 L115: aa 001162 700003 431111 fld sb|3,x1 " a aa 001163 700004 515111 fcmp sb|4,x1 " b aa 001164 000003 600004 tze L116 aa 001165 000001 336007 lcq 1,dl " true aa 001166 000002 710004 tra L117 L116: aa 001167 000000 236007 ldq 0,dl " false L117: aa 001170 700007 756111 stq sb|7,x1 aa 001171 700007 236111 ldq sb|7,x1 aa 001172 000261 710004 215 tra L79 L118: aa 001173 700003 236111 ldq sb|3,x1 " a aa 001174 700004 116111 cmpq sb|4,x1 " b aa 001175 000003 605004 tpl L119 aa 001176 000001 335007 lca 1,dl " true aa 001177 000002 710004 tra L120 L119: aa 001200 000000 235007 lda 0,dl " false L120: aa 001201 700007 755111 sta sb|7,x1 aa 001202 700007 235111 lda sb|7,x1 aa 001203 000044 777000 llr 36 " exchange A and Q aa 001204 000247 710004 216 tra L79 L121: aa 001205 700003 431111 fld sb|3,x1 " a aa 001206 700004 515111 fcmp sb|4,x1 " b aa 001207 000003 605004 tpl L122 aa 001210 000001 336007 lcq 1,dl " true aa 001211 000002 710004 tra L123 L122: aa 001212 000000 236007 ldq 0,dl " false L123: aa 001213 700007 756111 stq sb|7,x1 aa 001214 700007 236111 ldq sb|7,x1 aa 001215 000236 710004 217 tra L79 L124: aa 001216 700003 236111 ldq sb|3,x1 " a aa 001217 700004 116111 cmpq sb|4,x1 " b aa 001220 000003 605404 tpnz L125 aa 001221 000001 335007 lca 1,dl " true aa 001222 000002 710004 tra L126 L125: aa 001223 000000 235007 lda 0,dl " false L126: aa 001224 700007 755111 sta sb|7,x1 aa 001225 700007 235111 lda sb|7,x1 aa 001226 000044 777000 llr 36 " exchange A and Q aa 001227 000224 710004 218 tra L79 L127: aa 001230 700003 431111 fld sb|3,x1 " a aa 001231 700004 515111 fcmp sb|4,x1 " b aa 001232 000003 605404 tpnz L128 aa 001233 000001 336007 lcq 1,dl " true aa 001234 000002 710004 tra L129 L128: aa 001235 000000 236007 ldq 0,dl " false L129: aa 001236 700007 756111 stq sb|7,x1 aa 001237 700007 236111 ldq sb|7,x1 aa 001240 000213 710004 219 tra L79 L130: aa 001241 700003 236111 ldq sb|3,x1 " a aa 001242 700004 116111 cmpq sb|4,x1 " b aa 001243 000003 604404 tmoz L131 aa 001244 000001 335007 lca 1,dl " true aa 001245 000002 710004 tra L132 L131: aa 001246 000000 235007 lda 0,dl " false L132: aa 001247 700007 755111 sta sb|7,x1 aa 001250 700007 235111 lda sb|7,x1 aa 001251 000044 777000 llr 36 " exchange A and Q aa 001252 000201 710004 220 tra L79 L133: aa 001253 700003 431111 fld sb|3,x1 " a aa 001254 700004 515111 fcmp sb|4,x1 " b aa 001255 000003 604404 tmoz L134 aa 001256 000001 336007 lcq 1,dl " true aa 001257 000002 710004 tra L135 L134: aa 001260 000000 236007 ldq 0,dl " false L135: aa 001261 700007 756111 stq sb|7,x1 aa 001262 700007 236111 ldq sb|7,x1 aa 001263 000170 710004 221 tra L79 L136: aa 001264 700003 236111 ldq sb|3,x1 " a aa 001265 700004 116111 cmpq sb|4,x1 " b aa 001266 000003 604004 tmi L137 aa 001267 000001 335007 lca 1,dl " true aa 001270 000002 710004 tra L138 L137: aa 001271 000000 235007 lda 0,dl " false L138: aa 001272 700007 755111 sta sb|7,x1 aa 001273 700007 235111 lda sb|7,x1 aa 001274 000044 777000 llr 36 " exchange A and Q aa 001275 000156 710004 222 tra L79 L139: aa 001276 700003 431111 fld sb|3,x1 " a aa 001277 700004 515111 fcmp sb|4,x1 " b aa 001300 000003 604004 tmi L140 aa 001301 000001 336007 lcq 1,dl " true aa 001302 000002 710004 tra L141 L140: aa 001303 000000 236007 ldq 0,dl " false L141: aa 001304 700007 756111 stq sb|7,x1 aa 001305 700007 236111 ldq sb|7,x1 aa 001306 000145 710004 tra L79 L81: " Begin switchon aa 001307 700002 235111 lda sb|2,x1 " Op aa 001310 000022 175007 sba 18,dl aa 001311 000137 115007 cmpa 95,dl aa 001312 777467 603004 trc L82 0a 001313 001314 710005 tra L142,al L142: aa 001314 777553 710004 tra L97 aa 001315 777464 710004 tra L82 aa 001316 777546 710004 tra L96 aa 001317 777462 710004 tra L82 aa 001320 777461 710004 tra L82 aa 001321 777460 710004 tra L82 aa 001322 777457 710004 tra L82 aa 001323 777456 710004 tra L82 aa 001324 777613 710004 tra L109 aa 001325 777600 710004 tra L106 aa 001326 777552 710004 tra L99 aa 001327 777452 710004 tra L82 aa 001330 777451 710004 tra L82 aa 001331 777450 710004 tra L82 aa 001332 777447 710004 tra L82 aa 001333 777446 710004 tra L82 aa 001334 777445 710004 tra L82 aa 001335 777444 710004 tra L82 aa 001336 777443 710004 tra L82 aa 001337 777442 710004 tra L82 aa 001340 777736 710004 tra L139 aa 001341 777440 710004 tra L82 aa 001342 777722 710004 tra L136 aa 001343 777436 710004 tra L82 aa 001344 777435 710004 tra L82 aa 001345 777434 710004 tra L82 aa 001346 777705 710004 tra L133 aa 001347 777672 710004 tra L130 aa 001350 777431 710004 tra L82 aa 001351 777430 710004 tra L82 aa 001352 777427 710004 tra L82 aa 001353 777426 710004 tra L82 aa 001354 777425 710004 tra L82 aa 001355 777424 710004 tra L82 aa 001356 777423 710004 tra L82 aa 001357 777651 710004 tra L127 aa 001360 777636 710004 tra L124 aa 001361 777420 710004 tra L82 aa 001362 777417 710004 tra L82 aa 001363 777416 710004 tra L82 aa 001364 777415 710004 tra L82 aa 001365 777414 710004 tra L82 aa 001366 777524 710004 tra L103 aa 001367 777520 710004 tra L102 aa 001370 777411 710004 tra L82 aa 001371 777614 710004 tra L121 aa 001372 777601 710004 tra L118 aa 001373 777522 710004 tra L104 aa 001374 777405 710004 tra L82 aa 001375 777404 710004 tra L82 aa 001376 777403 710004 tra L82 aa 001377 777402 710004 tra L82 aa 001400 777401 710004 tra L82 aa 001401 777400 710004 tra L82 aa 001402 777377 710004 tra L82 aa 001403 777376 710004 tra L82 aa 001404 777375 710004 tra L82 aa 001405 777374 710004 tra L82 aa 001406 777373 710004 tra L82 aa 001407 777440 710004 tra L93 aa 001410 777433 710004 tra L92 aa 001411 777370 710004 tra L82 aa 001412 777445 710004 tra L95 aa 001413 777441 710004 tra L94 aa 001414 777365 710004 tra L82 aa 001415 777405 710004 tra L88 aa 001416 777402 710004 tra L87 aa 001417 777465 710004 tra L101 aa 001420 777542 710004 tra L115 aa 001421 777527 710004 tra L112 aa 001422 777357 710004 tra L82 aa 001423 777356 710004 tra L82 aa 001424 777403 710004 tra L89 aa 001425 777354 710004 tra L82 aa 001426 777353 710004 tra L82 aa 001427 777352 710004 tra L82 aa 001430 777406 710004 tra L91 aa 001431 777402 710004 tra L90 aa 001432 777347 710004 tra L82 aa 001433 777363 710004 tra L86 aa 001434 777360 710004 tra L85 aa 001435 777344 710004 tra L82 aa 001436 777343 710004 tra L82 aa 001437 777342 710004 tra L82 aa 001440 777341 710004 tra L82 aa 001441 777433 710004 tra L98 aa 001442 777337 710004 tra L82 aa 001443 777336 710004 tra L82 aa 001444 777335 710004 tra L82 aa 001445 777334 710004 tra L82 aa 001446 777333 710004 tra L82 aa 001447 777332 710004 tra L82 aa 001450 777331 710004 tra L82 aa 001451 777330 710004 tra L82 aa 001452 777447 710004 tra L105 L80: L79: aa 001453 700006 756111 stq sb|6,x1 aa 001454 700006 236111 ldq sb|6,x1 aa 001455 700000 762111 lprpbp sb|0,x1 " bcpl return aa 001456 200000 121100 sblx1 bp|0 aa 001457 700001 764111 lprplp sb|1,x1 aa 001460 200001 710100 tra bp|1 " end of return sequence aa 001461 700005 756111 stq sb|5,x1 " temporary " Literal pool L100: aa 001462 777777 777777 zero -1,-1 " true L83: aa 001463 000020 105166 zero 16,35446 " "EvaluateOperator" aa 001464 141154 165141 zero 49772,60001 aa 001465 164145 117160 zero 59493,40560 aa 001466 145162 141164 zero 51826,49780 aa 001467 157162 000000 zero 56946 " Begin text of Evalconst aa 001470 000011 105166 zero 9,35446 " Evalconst aa 001471 141154 143157 zero 49772,50799 aa 001472 156163 164000 zero 56435,59392 L35: aa 001473 000000 213000 107 epaq 0 " set lp to linkage section aa 001474 700026 764161 lprplp sb|22,*au aa 001475 200000 021100 adlx1 bp|0 " BCPL save aa 001476 700000 542111 sprpbp sb|0,x1 aa 001477 700001 544111 sprplp sb|1,x1 aa 001500 701040 620111 eax0 sb|544,x1 aa 001501 777760 360003 anx0 -16,du aa 001502 700025 740100 stx0 sb|21 " end of save sequence aa 001503 700002 763111 108 lprpbb sb|2,x1 " x aa 001504 300000 236100 ldq bb|0 aa 001505 777777 376007 anq -1,dl " Right aa 001506 700004 756111 stq sb|4,x1 " Op aa 001507 000264 710004 110 tra L147 L148: aa 001510 700002 236111 111 ldq sb|2,x1 " x aa 001511 701016 756111 stq sb|526,x1 4a 001512 400024 272120 tsbbp lp|L20,* " Cellwithname aa 001513 001014 000001 zero 524,1 aa 001514 700005 756111 stq sb|5,x1 " T aa 001515 700005 236111 112 ldq sb|5,x1 " T aa 001516 701016 756111 stq sb|526,x1 aa 001517 776267 272004 tsbbp L2+2 " IsNameConst aa 001520 001014 000001 zero 524,1 aa 001521 000000 116007 cmpq 0,dl aa 001522 000424 600004 tze L146 aa 001523 700005 765111 113 lprplb sb|5,x1 " T aa 001524 500001 236100 ldq lb|1 aa 001525 701016 756111 stq sb|526,x1 aa 001526 700005 760111 lprpap sb|5,x1 " T aa 001527 000002 236100 ldq ap|2 aa 001530 701017 756111 stq sb|527,x1 aa 001531 777043 272004 tsbbp L34+2 " FinalEvalconst aa 001532 001014 000002 zero 524,2 aa 001533 000423 710004 116 tra L145 L149: aa 001534 700004 236111 120 ldq sb|4,x1 " Op aa 001535 701016 756111 stq sb|526,x1 aa 001536 700002 762111 lprpbp sb|2,x1 " x aa 001537 200001 236100 ldq bp|1 aa 001540 701017 756111 stq sb|527,x1 aa 001541 777033 272004 tsbbp L34+2 " FinalEvalconst aa 001542 001014 000002 zero 524,2 aa 001543 000413 710004 122 tra L145 L150: aa 001544 700002 761111 123 lprpab sb|2,x1 " x aa 001545 100001 236100 ldq ab|1 aa 001546 000410 710004 125 tra L145 L151: aa 001547 700002 763111 128 lprpbb sb|2,x1 " x aa 001550 300001 235100 lda bb|1 aa 001551 701016 755111 sta sb|526,x1 aa 001552 777723 272004 tsbbp L35+2 " Evalconst aa 001553 001014 000001 zero 524,1 aa 001554 700007 756111 stq sb|7,x1 aa 001555 700004 236111 ldq sb|4,x1 " Op aa 001556 701016 756111 stq sb|526,x1 aa 001557 700007 236111 ldq sb|7,x1 aa 001560 701017 756111 stq sb|527,x1 aa 001561 777211 272004 tsbbp L37+2 " EvaluateOperator aa 001562 001014 000002 zero 524,2 aa 001563 000373 710004 130 tra L145 L152: aa 001564 700002 765111 141 lprplb sb|2,x1 " x aa 001565 500002 236100 ldq lb|2 aa 001566 701016 756111 stq sb|526,x1 aa 001567 777706 272004 tsbbp L35+2 " Evalconst aa 001570 001014 000001 zero 524,1 aa 001571 700007 756111 stq sb|7,x1 aa 001572 700002 760111 lprpap sb|2,x1 " x aa 001573 000001 236100 ldq ap|1 aa 001574 701016 756111 stq sb|526,x1 aa 001575 777700 272004 tsbbp L35+2 " Evalconst aa 001576 001014 000001 zero 524,1 aa 001577 700011 756111 stq sb|9,x1 aa 001600 700004 236111 ldq sb|4,x1 " Op aa 001601 701016 756111 stq sb|526,x1 aa 001602 700011 236111 ldq sb|9,x1 aa 001603 701017 756111 stq sb|527,x1 aa 001604 700007 236111 ldq sb|7,x1 aa 001605 701020 756111 stq sb|528,x1 aa 001606 777164 272004 tsbbp L37+2 " EvaluateOperator aa 001607 001014 000003 zero 524,3 aa 001610 000346 710004 143 tra L145 L153: aa 001611 700002 762111 144 lprpbp sb|2,x1 " x aa 001612 200001 236100 ldq bp|1 aa 001613 701016 756111 stq sb|526,x1 aa 001614 777661 272004 tsbbp L35+2 " Evalconst aa 001615 001014 000001 zero 524,1 aa 001616 000000 116007 cmpq 0,dl aa 001617 000004 600004 tze L154 aa 001620 700002 761111 lprpab sb|2,x1 " x aa 001621 100002 236100 ldq ab|2 aa 001622 000003 710004 tra L155 L154: aa 001623 700002 763111 lprpbb sb|2,x1 " x aa 001624 300003 236100 ldq bb|3 L155: aa 001625 700012 756111 stq sb|10,x1 aa 001626 700012 236111 ldq sb|10,x1 aa 001627 700007 756111 stq sb|7,x1 aa 001630 700007 236111 ldq sb|7,x1 aa 001631 701016 756111 stq sb|526,x1 aa 001632 777643 272004 tsbbp L35+2 " Evalconst aa 001633 001014 000001 zero 524,1 aa 001634 000322 710004 146 tra L145 L156: aa 001635 700002 765111 147 lprplb sb|2,x1 " x aa 001636 500001 236100 ldq lb|1 aa 001637 700002 756111 stq sb|2,x1 " x aa 001640 700002 760111 148 lprpap sb|2,x1 " x aa 001641 000001 236100 ldq ap|1 aa 001642 701016 756111 stq sb|526,x1 aa 001643 777632 272004 tsbbp L35+2 " Evalconst aa 001644 001014 000001 zero 524,1 aa 001645 700005 756111 stq sb|5,x1 " A aa 001646 000033 710004 149 tra L157 L158: aa 001647 700002 762111 150 lprpbp sb|2,x1 " x aa 001650 200002 762100 lprpbp bp|2 aa 001651 200001 236100 ldq bp|1 aa 001652 701016 756111 stq sb|526,x1 aa 001653 777622 272004 tsbbp L35+2 " Evalconst aa 001654 001014 000001 zero 524,1 aa 001655 700006 756111 stq sb|6,x1 " Middle aa 001656 700002 761111 151 lprpab sb|2,x1 " x aa 001657 100000 236100 ldq ab|0 aa 001660 777777 376007 anq -1,dl " Right aa 001661 701016 756111 stq sb|526,x1 aa 001662 700005 236111 ldq sb|5,x1 " A aa 001663 701017 756111 stq sb|527,x1 aa 001664 700006 236111 ldq sb|6,x1 " Middle aa 001665 701020 756111 stq sb|528,x1 aa 001666 777104 272004 tsbbp L37+2 " EvaluateOperator aa 001667 001014 000003 zero 524,3 aa 001670 000000 116007 cmpq 0,dl aa 001671 000003 601004 tnz L159 aa 001672 000000 236007 ldq 0,dl " false aa 001673 000263 710004 tra L145 L159: aa 001674 700006 235111 152 lda sb|6,x1 " Middle aa 001675 700005 755111 sta sb|5,x1 " A aa 001676 700002 763111 lprpbb sb|2,x1 " x aa 001677 300002 235100 lda bb|2 aa 001700 700002 755111 sta sb|2,x1 " x L157: aa 001701 700002 765111 lprplb sb|2,x1 " x aa 001702 500002 235100 lda lb|2 aa 001703 701016 755111 sta sb|526,x1 aa 001704 777002 272004 tsbbp L36+2 " IsRelational aa 001705 001014 000001 zero 524,1 aa 001706 000000 116007 cmpq 0,dl aa 001707 777740 601004 tnz L158 aa 001710 700002 760111 154 lprpap sb|2,x1 " x aa 001711 000002 236100 ldq ap|2 aa 001712 701016 756111 stq sb|526,x1 aa 001713 777562 272004 tsbbp L35+2 " Evalconst aa 001714 001014 000001 zero 524,1 aa 001715 700010 756111 stq sb|8,x1 aa 001716 700002 762111 lprpbp sb|2,x1 " x aa 001717 200000 236100 ldq bp|0 aa 001720 777777 376007 anq -1,dl " Right aa 001721 701016 756111 stq sb|526,x1 aa 001722 700005 236111 ldq sb|5,x1 " A aa 001723 701017 756111 stq sb|527,x1 aa 001724 700010 236111 ldq sb|8,x1 aa 001725 701020 756111 stq sb|528,x1 aa 001726 777044 272004 tsbbp L37+2 " EvaluateOperator aa 001727 001014 000003 zero 524,3 aa 001730 000226 710004 157 tra L145 L160: aa 001731 700002 761111 158 lprpab sb|2,x1 " x aa 001732 100001 761100 lprpab ab|1 aa 001733 100000 236100 ldq ab|0 aa 001734 777777 376007 anq -1,dl " Right aa 001735 000176 116007 cmpq 126,dl " STRINGCONST_S aa 001736 000033 601004 tnz L161 aa 001737 700014 353511 159 eapbb sb|12,x1 " a vector aa 001740 700005 543111 sprpbb sb|5,x1 " v aa 001741 700002 763111 160 lprpbb sb|2,x1 " x aa 001742 300001 763100 lprpbb bb|1 aa 001743 300001 236100 ldq bb|1 aa 001744 701016 756111 stq sb|526,x1 aa 001745 700005 236111 ldq sb|5,x1 " v aa 001746 701017 756111 stq sb|527,x1 4a 001747 400012 272120 tsbbp lp|L162,* " FormStringconst aa 001750 001014 000002 zero 524,2 aa 001751 700006 756111 stq sb|6,x1 " Len aa 001752 700002 765111 161 lprplb sb|2,x1 " x aa 001753 500002 236100 ldq lb|2 aa 001754 701016 756111 stq sb|526,x1 aa 001755 777520 272004 tsbbp L35+2 " Evalconst aa 001756 001014 000001 zero 524,1 aa 001757 700007 756111 stq sb|7,x1 " i aa 001760 700007 234111 162 szn sb|7,x1 " i aa 001761 000010 604004 tmi L163 aa 001762 700007 236111 ldq sb|7,x1 " i aa 001763 700006 116111 cmpq sb|6,x1 " Len aa 001764 000005 605404 tpnz L163 aa 001765 700007 724111 lxl4 sb|7,x1 " i aa 001766 700005 760111 lprpap sb|5,x1 " v aa 001767 000000 236114 ldq ap|0,x4 aa 001770 000166 710004 tra L145 L163: L161: aa 001771 000155 710004 166 tra L146 L164: aa 001772 000154 710004 tra L146 L147: " Begin switchon aa 001773 700004 235111 lda sb|4,x1 " Op aa 001774 000141 115007 cmpa 97,dl aa 001775 000026 604004 tmi L165 aa 001776 000143 115007 cmpa 99,dl aa 001777 777550 604004 tmi L151 aa 002000 000043 773000 lrl 35 aa 002001 000007 507007 dvf 7,dl " hash table size 0a 002002 002014 115006 cmpa L166,ql aa 002003 777767 601004 tnz L164 0a 002004 002005 710006 tra L167,ql L167: aa 002005 777557 710004 tra L152 aa 002006 777526 710004 tra L149 aa 002007 777722 710004 tra L160 aa 002010 777762 710004 tra L164 aa 002011 777624 710004 tra L156 aa 002012 777552 710004 tra L152 aa 002013 777757 710004 tra L164 L166: aa 002014 000000 000020 zero 0,16 aa 002015 000000 000023 zero 0,19 aa 002016 000000 000024 zero 0,20 aa 002017 000000 000000 zero 0 aa 002020 000000 000016 zero 0,14 aa 002021 000000 000016 zero 0,14 aa 002022 000000 000000 zero 0 L165: aa 002023 000043 773000 lrl 35 aa 002024 000047 507007 dvf 39,dl " hash table size 0a 002025 002077 115006 cmpa L168,ql aa 002026 777744 601004 tnz L164 0a 002027 002030 710006 tra L169,ql L169: aa 002030 777534 710004 tra L152 aa 002031 777741 710004 tra L164 aa 002032 777532 710004 tra L152 aa 002033 777531 710004 tra L152 aa 002034 777454 710004 tra L148 aa 002035 777512 710004 tra L151 aa 002036 777511 710004 tra L151 aa 002037 777525 710004 tra L152 aa 002040 777732 710004 tra L164 aa 002041 777731 710004 tra L164 aa 002042 777730 710004 tra L164 aa 002043 777471 710004 tra L149 aa 002044 777503 710004 tra L151 aa 002045 777467 710004 tra L149 aa 002046 777543 710004 tra L153 aa 002047 777475 710004 tra L150 aa 002050 777514 710004 tra L152 aa 002051 777513 710004 tra L152 aa 002052 777512 710004 tra L152 aa 002053 777717 710004 tra L164 aa 002054 777510 710004 tra L152 aa 002055 777507 710004 tra L152 aa 002056 777506 710004 tra L152 aa 002057 777713 710004 tra L164 aa 002060 777712 710004 tra L164 aa 002061 777711 710004 tra L164 aa 002062 777502 710004 tra L152 aa 002063 777707 710004 tra L164 aa 002064 777500 710004 tra L152 aa 002065 777705 710004 tra L164 aa 002066 777704 710004 tra L164 aa 002067 777445 710004 tra L149 aa 002070 777702 710004 tra L164 aa 002071 777701 710004 tra L164 aa 002072 777700 710004 tra L164 aa 002073 777677 710004 tra L164 aa 002074 777676 710004 tra L164 aa 002075 777675 710004 tra L164 aa 002076 777466 710004 tra L152 L168: aa 002077 000000 000002 zero 0,2 aa 002100 000000 000000 zero 0 aa 002101 000000 000002 zero 0,2 aa 002102 000000 000002 zero 0,2 aa 002103 000000 000002 zero 0,2 aa 002104 000000 000002 zero 0,2 aa 002105 000000 000002 zero 0,2 aa 002106 000000 000002 zero 0,2 aa 002107 000000 000000 zero 0 aa 002110 000000 000000 zero 0 aa 002111 000000 000000 zero 0 aa 002112 000000 000000 zero 0 aa 002113 000000 000002 zero 0,2 aa 002114 000000 000002 zero 0,2 aa 002115 000000 000000 zero 0 aa 002116 000000 000000 zero 0 aa 002117 000000 000002 zero 0,2 aa 002120 000000 000002 zero 0,2 aa 002121 000000 000000 zero 0 aa 002122 000000 000000 zero 0 aa 002123 000000 000000 zero 0 aa 002124 000000 000001 zero 0,1 aa 002125 000000 000001 zero 0,1 aa 002126 000000 000000 zero 0 aa 002127 000000 000000 zero 0 aa 002130 000000 000000 zero 0 aa 002131 000000 000001 zero 0,1 aa 002132 000000 000000 zero 0 aa 002133 000000 000000 zero 0 aa 002134 000000 000000 zero 0 aa 002135 000000 000000 zero 0 aa 002136 000000 000000 zero 0 aa 002137 000000 000000 zero 0 aa 002140 000000 000000 zero 0 aa 002141 000000 000000 zero 0 aa 002142 000000 000000 zero 0 aa 002143 000000 000000 zero 0 aa 002144 000000 000000 zero 0 aa 002145 000000 000001 zero 0,1 L146: aa 002146 000324 236007 169 ldq 212,dl " NotConstant aa 002147 701016 756111 stq sb|526,x1 aa 002150 700002 236111 ldq sb|2,x1 " x aa 002151 701017 756111 stq sb|527,x1 4a 002152 400010 272120 tsbbp lp|L170,* " Transreport aa 002153 001014 000002 zero 524,2 4a 002154 400014 272120 170 tsbbp lp|L84,* " RandomI aa 002155 001014 000000 zero 524 L145: aa 002156 700004 756111 stq sb|4,x1 aa 002157 700004 236111 ldq sb|4,x1 aa 002160 700000 762111 lprpbp sb|0,x1 " bcpl return aa 002161 200000 121100 sblx1 bp|0 aa 002162 700001 764111 lprplp sb|1,x1 aa 002163 200001 710100 tra bp|1 " end of return sequence " Begin text of IsConst aa 002164 000007 111163 zero 7,37491 " IsConst aa 002165 103157 156163 zero 34415,56435 aa 002166 164000 000000 zero 59392 aa 002167 700003 756111 225 stq sb|3,x1 " temporary L171: aa 002170 000000 213000 epaq 0 " set lp to linkage section aa 002171 700026 764161 lprplp sb|22,*au aa 002172 200000 021100 adlx1 bp|0 " BCPL save aa 002173 700000 542111 sprpbp sb|0,x1 aa 002174 700001 544111 sprplp sb|1,x1 aa 002175 700422 620111 eax0 sb|274,x1 aa 002176 777760 360003 anx0 -16,du aa 002177 700025 740100 stx0 sb|21 " end of save sequence L172: aa 002200 000075 710004 228 tra L177 L178: aa 002201 700002 236111 229 ldq sb|2,x1 " x aa 002202 700014 756111 stq sb|12,x1 4a 002203 400024 272120 tsbbp lp|L20,* " Cellwithname aa 002204 000012 000001 zero 10,1 aa 002205 700006 756111 stq sb|6,x1 aa 002206 700006 236111 ldq sb|6,x1 aa 002207 700014 756111 stq sb|12,x1 aa 002210 775576 272004 tsbbp L2+2 " IsNameConst aa 002211 000012 000001 zero 10,1 aa 002212 000267 710004 231 tra L175 L179: aa 002213 000001 336007 236 lcq 1,dl " true aa 002214 000265 710004 238 tra L175 L180: aa 002215 700002 762111 242 lprpbp sb|2,x1 " x aa 002216 200001 235100 lda bp|1 aa 002217 700002 755111 sta sb|2,x1 " x aa 002220 777760 710004 245 tra L172 L181: aa 002221 700002 761111 262 lprpab sb|2,x1 " x aa 002222 100001 235100 lda ab|1 aa 002223 700014 755111 sta sb|12,x1 aa 002224 777746 272004 tsbbp L171+2 " IsConst aa 002225 000012 000001 zero 10,1 aa 002226 000000 116007 cmpq 0,dl aa 002227 000003 601004 tnz L182 aa 002230 000000 236007 ldq 0,dl " false aa 002231 000250 710004 tra L175 L182: aa 002232 700002 763111 263 lprpbb sb|2,x1 " x aa 002233 300002 235100 lda bb|2 aa 002234 700002 755111 sta sb|2,x1 " x aa 002235 777743 710004 266 tra L172 L183: aa 002236 700002 765111 267 lprplb sb|2,x1 " x aa 002237 500001 235100 lda lb|1 aa 002240 700014 755111 sta sb|12,x1 aa 002241 777731 272004 tsbbp L171+2 " IsConst aa 002242 000012 000001 zero 10,1 aa 002243 000000 116007 cmpq 0,dl aa 002244 000025 600004 tze L184 aa 002245 700002 760111 lprpap sb|2,x1 " x aa 002246 000001 236100 ldq ap|1 aa 002247 700014 756111 stq sb|12,x1 aa 002250 777225 272004 tsbbp L35+2 " Evalconst aa 002251 000012 000001 zero 10,1 aa 002252 000000 116007 cmpq 0,dl aa 002253 000004 600004 tze L185 aa 002254 700002 762111 lprpbp sb|2,x1 " x aa 002255 200002 236100 ldq bp|2 aa 002256 000003 710004 tra L186 L185: aa 002257 700002 761111 lprpab sb|2,x1 " x aa 002260 100003 236100 ldq ab|3 L186: aa 002261 700011 756111 stq sb|9,x1 aa 002262 700011 236111 ldq sb|9,x1 aa 002263 700006 756111 stq sb|6,x1 aa 002264 700006 236111 ldq sb|6,x1 aa 002265 700014 756111 stq sb|12,x1 aa 002266 777704 272004 tsbbp L171+2 " IsConst aa 002267 000012 000001 zero 10,1 aa 002270 000211 710004 tra L175 L184: aa 002271 000000 236007 268 ldq 0,dl " false aa 002272 000207 710004 270 tra L175 L187: aa 002273 000000 236007 ldq 0,dl " false aa 002274 000205 710004 tra L175 L177: aa 002275 700002 763111 lprpbb sb|2,x1 " x aa 002276 300000 235100 lda bb|0 aa 002277 777777 375007 ana -1,dl " Right " Begin switchon aa 002300 000013 175007 sba 11,dl aa 002301 000174 115007 cmpa 124,dl aa 002302 777771 603004 trc L187 0a 002303 002305 710005 tra L188,al aa 002304 700004 755111 sta sb|4,x1 " temporary L188: aa 002305 777706 710004 tra L179 aa 002306 777765 710004 tra L187 aa 002307 777764 710004 tra L187 aa 002310 777726 710004 tra L183 aa 002311 777702 710004 tra L179 aa 002312 777761 710004 tra L187 aa 002313 777760 710004 tra L187 aa 002314 777705 710004 tra L181 aa 002315 777756 710004 tra L187 aa 002316 777703 710004 tra L181 aa 002317 777754 710004 tra L187 aa 002320 777753 710004 tra L187 aa 002321 777752 710004 tra L187 aa 002322 777751 710004 tra L187 aa 002323 777750 710004 tra L187 aa 002324 777675 710004 tra L181 aa 002325 777674 710004 tra L181 aa 002326 777673 710004 tra L181 aa 002327 777744 710004 tra L187 aa 002330 777743 710004 tra L187 aa 002331 777662 710004 tra L179 aa 002332 777741 710004 tra L187 aa 002333 777740 710004 tra L187 aa 002334 777737 710004 tra L187 aa 002335 777736 710004 tra L187 aa 002336 777735 710004 tra L187 aa 002337 777734 710004 tra L187 aa 002340 777661 710004 tra L181 aa 002341 777732 710004 tra L187 aa 002342 777657 710004 tra L181 aa 002343 777730 710004 tra L187 aa 002344 777727 710004 tra L187 aa 002345 777726 710004 tra L187 aa 002346 777653 710004 tra L181 aa 002347 777652 710004 tra L181 aa 002350 777723 710004 tra L187 aa 002351 777722 710004 tra L187 aa 002352 777721 710004 tra L187 aa 002353 777720 710004 tra L187 aa 002354 777717 710004 tra L187 aa 002355 777716 710004 tra L187 aa 002356 777715 710004 tra L187 aa 002357 777642 710004 tra L181 aa 002360 777641 710004 tra L181 aa 002361 777712 710004 tra L187 aa 002362 777711 710004 tra L187 aa 002363 777710 710004 tra L187 aa 002364 777707 710004 tra L187 aa 002365 777706 710004 tra L187 aa 002366 777633 710004 tra L181 aa 002367 777632 710004 tra L181 aa 002370 777703 710004 tra L187 aa 002371 777630 710004 tra L181 aa 002372 777627 710004 tra L181 aa 002373 777626 710004 tra L181 aa 002374 777677 710004 tra L187 aa 002375 777676 710004 tra L187 aa 002376 777675 710004 tra L187 aa 002377 777674 710004 tra L187 aa 002400 777673 710004 tra L187 aa 002401 777672 710004 tra L187 aa 002402 777671 710004 tra L187 aa 002403 777670 710004 tra L187 aa 002404 777667 710004 tra L187 aa 002405 777666 710004 tra L187 aa 002406 777665 710004 tra L187 aa 002407 777612 710004 tra L181 aa 002410 777611 710004 tra L181 aa 002411 777662 710004 tra L187 aa 002412 777607 710004 tra L181 aa 002413 777606 710004 tra L181 aa 002414 777565 710004 tra L178 aa 002415 777600 710004 tra L180 aa 002416 777577 710004 tra L180 aa 002417 777602 710004 tra L181 aa 002420 777601 710004 tra L181 aa 002421 777600 710004 tra L181 aa 002422 777651 710004 tra L187 aa 002423 777650 710004 tra L187 aa 002424 777571 710004 tra L180 aa 002425 777566 710004 tra L179 aa 002426 777645 710004 tra L187 aa 002427 777644 710004 tra L187 aa 002430 777571 710004 tra L181 aa 002431 777570 710004 tra L181 aa 002432 777641 710004 tra L187 aa 002433 777562 710004 tra L180 aa 002434 777561 710004 tra L180 aa 002435 777636 710004 tra L187 aa 002436 777635 710004 tra L187 aa 002437 777634 710004 tra L187 aa 002440 777555 710004 tra L180 aa 002441 777560 710004 tra L181 aa 002442 777631 710004 tra L187 aa 002443 777630 710004 tra L187 aa 002444 777627 710004 tra L187 aa 002445 777626 710004 tra L187 aa 002446 777625 710004 tra L187 aa 002447 777624 710004 tra L187 aa 002450 777623 710004 tra L187 aa 002451 777622 710004 tra L187 aa 002452 777547 710004 tra L181 aa 002453 777620 710004 tra L187 aa 002454 777617 710004 tra L187 aa 002455 777616 710004 tra L187 aa 002456 777615 710004 tra L187 aa 002457 777614 710004 tra L187 aa 002460 777613 710004 tra L187 aa 002461 777612 710004 tra L187 aa 002462 777611 710004 tra L187 aa 002463 777610 710004 tra L187 aa 002464 777607 710004 tra L187 aa 002465 777606 710004 tra L187 aa 002466 777605 710004 tra L187 aa 002467 777604 710004 tra L187 aa 002470 777603 710004 tra L187 aa 002471 777602 710004 tra L187 aa 002472 777601 710004 tra L187 aa 002473 777600 710004 tra L187 aa 002474 777577 710004 tra L187 aa 002475 777576 710004 tra L187 aa 002476 777575 710004 tra L187 aa 002477 777574 710004 tra L187 aa 002500 777513 710004 tra L179 L176: L175: aa 002501 700004 756111 stq sb|4,x1 aa 002502 700004 236111 ldq sb|4,x1 aa 002503 700000 762111 lprpbp sb|0,x1 " bcpl return aa 002504 200000 121100 sblx1 bp|0 aa 002505 700001 764111 lprplp sb|1,x1 aa 002506 200001 710100 tra bp|1 " end of return sequence aa 002507 000000 000000 " padding " Definition section part one - external entry points 5a 000000 000042 000000 " pointer to first definition aa 000001 000000 600000 " flags: new format, ignore header aa 000002 000000 000000 " list terminator aa 000003 013142 143160 " "bcpl_trans5" aa 000004 154137 164162 aa 000005 141156 163065 aa 000006 007111 163103 " "IsConst" aa 000007 157156 163164 aa 000010 020105 166141 " "EvaluateOperator" aa 000011 154165 141164 aa 000012 145117 160145 aa 000013 162141 164157 aa 000014 162000 000000 aa 000015 014111 163122 " "IsRelational" aa 000016 145154 141164 aa 000017 151157 156141 aa 000020 154000 000000 aa 000021 011105 166141 " "Evalconst" aa 000022 154143 157156 aa 000023 163164 000000 aa 000024 020120 141162 " "PartialEvalconst" aa 000025 164151 141154 aa 000026 105166 141154 aa 000027 143157 156163 aa 000030 164000 000000 aa 000031 020103 157165 " "CountTemporaries" aa 000032 156164 124145 aa 000033 155160 157162 aa 000034 141162 151145 aa 000035 163000 000000 aa 000036 014163 171155 " "symbol_table" aa 000037 142157 154137 aa 000040 164141 142154 aa 000041 145000 000000 " Segname definition for bcpl_trans5 55 000042 000045 000002 " forward, backward threads 5a 000043 000002 400003 " value defined, class flags 55 000044 000003 000045 " name pointer, first entry def " Definition for IsConst 55 000045 000050 000042 " forward, backward threads 0a 000046 002170 500000 " value defined, class flags 55 000047 000006 000042 " name pointer, segname def pointer " Definition for EvaluateOperator 55 000050 000053 000045 " forward, backward threads 0a 000051 000770 500000 " value defined, class flags 55 000052 000010 000042 " name pointer, segname def pointer " Definition for IsRelational 55 000053 000056 000050 " forward, backward threads 0a 000054 000704 500000 " value defined, class flags 55 000055 000015 000042 " name pointer, segname def pointer " Definition for Evalconst 55 000056 000061 000053 " forward, backward threads 0a 000057 001473 500000 " value defined, class flags 55 000060 000021 000042 " name pointer, segname def pointer " Definition for PartialEvalconst 55 000061 000064 000056 " forward, backward threads 0a 000062 000435 500000 " value defined, class flags 55 000063 000024 000042 " name pointer, segname def pointer " Definition for CountTemporaries 55 000064 000067 000061 " forward, backward threads 0a 000065 000066 500000 " value defined, class flags 55 000066 000031 000042 " name pointer, segname def pointer " Definition for symbol_table 55 000067 000002 000064 " forward, backward threads 6a 000070 000000 400002 " value defined, class flags 55 000071 000036 000042 " name pointer, segname def pointer " Definition section part two - symbolic info for external references aa 000072 013142 143160 " "bcpl_report" aa 000073 154137 162145 aa 000074 160157 162164 aa 000075 013124 162141 " "Transreport" aa 000076 156163 162145 aa 000077 160157 162164 5a 000100 000101 000000 aa 000101 000004 000000 55 000102 000072 000075 aa 000103 014142 143160 " "bcpl_utility" aa 000104 154137 165164 aa 000105 151154 151164 aa 000106 171000 000000 aa 000107 017106 157162 " "FormStringconst" aa 000110 155123 164162 aa 000111 151156 147143 aa 000112 157156 163164 5a 000113 000114 000000 aa 000114 000004 000000 55 000115 000103 000107 aa 000116 020142 143160 " "bcpl_arithmetic_" aa 000117 154137 141162 aa 000120 151164 150155 aa 000121 145164 151143 aa 000122 137000 000000 aa 000123 007122 141156 " "RandomI" aa 000124 144157 155111 5a 000125 000126 000000 aa 000126 000004 000000 55 000127 000116 000123 aa 000130 010103 107162 " "CGreport" aa 000131 145160 157162 aa 000132 164000 000000 5a 000133 000134 000000 aa 000134 000004 000000 55 000135 000072 000130 aa 000136 015106 157162 " "FormCharconst" aa 000137 155103 150141 aa 000140 162143 157156 aa 000141 163164 000000 5a 000142 000143 000000 aa 000143 000004 000000 55 000144 000103 000136 aa 000145 021142 143160 " "bcpl_conversions_" aa 000146 154137 143157 aa 000147 156166 145162 aa 000150 163151 157156 aa 000151 163137 000000 aa 000152 013103 157156 " "ConvertStoN" aa 000153 166145 162164 aa 000154 123164 157116 5a 000155 000156 000000 aa 000156 000004 000000 55 000157 000145 000152 aa 000160 013142 143160 " "bcpl_trans2" aa 000161 154137 164162 aa 000162 141156 163062 aa 000163 014103 145154 " "Cellwithname" aa 000164 154167 151164 aa 000165 150156 141155 aa 000166 145000 000000 5a 000167 000170 000000 aa 000170 000004 000000 55 000171 000160 000163 " Linkage section - static variables and external links aa 000000 000000 000000 " linkage header 0a 000001 002510 000000 " address of defs aa 000002 000000 000000 aa 000003 000000 000000 aa 000004 000000 000000 aa 000005 000000 000000 2a 000006 000010 000026 " offset to links, total length aa 000007 000000 000026 " obsolete length " External link pairs L170: 3a 000010 777770 000046 " "bcpl_report$Transreport" 5a 000011 000100 000000 L162: 3a 000012 777766 000046 " "bcpl_utility$FormStringconst" 5a 000013 000113 000000 L84: 3a 000014 777764 000046 " "bcpl_arithmetic_$RandomI" 5a 000015 000125 000000 L65: 3a 000016 777762 000046 " "bcpl_report$CGreport" 5a 000017 000133 000000 L59: 3a 000020 777760 000046 " "bcpl_utility$FormCharconst" 5a 000021 000142 000000 L57: 3a 000022 777756 000046 " "bcpl_conversions_$ConvertStoN" 5a 000023 000155 000000 L20: 3a 000024 777754 000046 " "bcpl_trans2$Cellwithname" 5a 000025 000167 000000 " Symbol section header aa 000000 000000 000001 " version number of header structure aa 000001 163171 155142 " "symbtree" aa 000002 164162 145145 aa 000003 000000 000003 " compiler version number aa 000004 000000 101170 " date/time compiler modified aa 000005 533311 032072 " 09/25/73 0959.1 mst Tue aa 000006 000000 102333 " time of this compilation aa 000007 441154 050572 " 01/24/75 0702.3 mst Fri aa 000010 142143 160154 " "bcpl " aa 000011 040040 040040 aa 000012 000052 000035 " compiler version name - pointer, length aa 000013 000062 000024 " user id - pointer, length aa 000014 000067 000043 " comment string - pointer, length aa 000015 000002 000002 " text and linkage boundaries aa 000016 000024 000000 " source map, symbol tree root 7a 000017 000000 000163 " section header pointer, block size aa 000020 000000 000163 " next block pointer, rel_text aa 000021 000000 000201 " rel_def, rel_link aa 000022 000206 000163 " rel_symbol, default truncate aa 000023 000024 000000 " optional truncate, unused aa 000024 000000 000001 " source files map: version number aa 000025 000000 000005 " number of files aa 000026 000100 000052 " bcpl_trans5 aa 000027 023333 611437 " last modified on aa 000030 000000 102333 " 01/24/75 0647.2 mst Fri aa 000031 432367 000000 aa 000032 000113 000046 " bcpl_trans_head aa 000033 021607 540225 " last modified on aa 000034 000000 101621 " 05/06/74 1740.8 mst Mon aa 000035 351476 000000 aa 000036 000125 000051 " bcpl_compiler_head aa 000037 021607 540214 " last modified on aa 000040 000000 101621 " 05/06/74 1740.6 mst Mon aa 000041 351403 200000 aa 000042 000140 000043 " bcpl_symbols aa 000043 021607 540223 " last modified on aa 000044 000000 101621 " 05/06/74 1740.8 mst Mon aa 000045 351474 000000 aa 000046 000151 000047 " bcpl_trans_codes aa 000047 021607 540224 " last modified on aa 000050 000000 101621 " 05/06/74 1740.8 mst Mon aa 000051 351475 000000 aa 000052 102103 120114 " "BCPL version 3.4, August 1973" aa 000053 040166 145162 aa 000054 163151 157156 aa 000055 040063 056064 aa 000056 054040 101165 aa 000057 147165 163164 aa 000060 040061 071067 aa 000061 063040 040040 aa 000062 115141 162164 " "Martinson.SysMaint.a" aa 000063 151156 163157 aa 000064 156056 123171 aa 000065 163115 141151 aa 000066 156164 056141 aa 000067 163157 165162 " "source xref alist optimize 6180" aa 000070 143145 040040 aa 000071 170162 145146 aa 000072 040040 141154 aa 000073 151163 164040 aa 000074 040157 160164 aa 000075 151155 151172 aa 000076 145040 040066 aa 000077 061070 060040 aa 000100 076062 056061 " ">2.1spec>online>mib083074>bcpl_trans5.bcpl" aa 000101 163160 145143 aa 000102 076157 156154 aa 000103 151156 145076 aa 000104 155151 142060 aa 000105 070063 060067 aa 000106 064076 142143 aa 000107 160154 137164 aa 000110 162141 156163 aa 000111 065056 142143 aa 000112 160154 040040 aa 000113 076154 144144 " ">ldd>include>bcpl_trans_head.incl.bcpl" aa 000114 076151 156143 aa 000115 154165 144145 aa 000116 076142 143160 aa 000117 154137 164162 aa 000120 141156 163137 aa 000121 150145 141144 aa 000122 056151 156143 aa 000123 154056 142143 aa 000124 160154 040040 aa 000125 076154 144144 " ">ldd>include>bcpl_compiler_head.incl.bcpl" aa 000126 076151 156143 aa 000127 154165 144145 aa 000130 076142 143160 aa 000131 154137 143157 aa 000132 155160 151154 aa 000133 145162 137150 aa 000134 145141 144056 aa 000135 151156 143154 aa 000136 056142 143160 aa 000137 154040 040040 aa 000140 076154 144144 " ">ldd>include>bcpl_symbols.incl.bcpl" aa 000141 076151 156143 aa 000142 154165 144145 aa 000143 076142 143160 aa 000144 154137 163171 aa 000145 155142 157154 aa 000146 163056 151156 aa 000147 143154 056142 aa 000150 143160 154040 aa 000151 076154 144144 " ">ldd>include>bcpl_trans_codes.incl.bcpl" aa 000152 076151 156143 aa 000153 154165 144145 aa 000154 076142 143160 aa 000155 154137 164162 aa 000156 141156 163137 aa 000157 143157 144145 aa 000160 163056 151156 aa 000161 143154 056142 aa 000162 143160 154040 " Relocation information " text section relocation bits aa 000163 000000 000002 " version number of rel-bits structure aa 000164 000000 000647 " length in bits aa 000165 740524 010360 aa 000166 516474 223417 aa 000167 120323 605360 aa 000170 041702 532000 aa 000171 247403 550000 aa 000172 040103 614464 aa 000173 051714 070361 aa 000174 766474 471517 aa 000175 015300 207404 aa 000176 140103 612264 aa 000177 051701 332360 aa 000200 776074 411000 l " inkage relocation bits aa 000201 000000 000002 " version number of rel-bits structure aa 000202 000000 000154 " length in bits aa 000203 100002 204652 aa 000204 465246 524652 aa 000205 465246 524652 s " ymbol relocation bits aa 000206 000000 000002 " version number of rel-bits structure aa 000207 000000 000043 " length in bits aa 000210 740365 770616 " Object map aa 003141 000000 000001 " version number of object_map structure aa 003142 157142 152137 " "obj_map " aa 003143 155141 160040 aa 003144 000000 002507 " text offset, length aa 003145 002510 000172 " def offset, length aa 003146 002702 000026 " link offset, length aa 003147 002730 000211 " symbol offset, length aa 003150 000000 000000 " break map offset, length aa 003151 340000 000000 " flags: ^bound, relocatable, procedure, standard aa 003152 003141 000000 " object map pointer, unused ----------------------------------------------------------- Historical Background This edition of the Multics software materials and documentation is provided and donated to Massachusetts Institute of Technology by Group BULL including BULL HN Information Systems Inc. as a contribution to computer science knowledge. This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology, Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell BULL Inc., Groupe BULL and BULL HN Information Systems Inc. to the development of this operating system. Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970), renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture for managing computer hardware properly and for executing programs. Many subsequent operating systems incorporated Multics principles. Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. . ----------------------------------------------------------- Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without fee is hereby granted,provided that the below copyright notice and historical background appear in all copies and that both the copyright notice and historical background and this permission notice appear in supporting documentation, and that the names of MIT, HIS, BULL or BULL HN not be used in advertising or publicity pertaining to distribution of the programs without specific prior written permission. Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc. Copyright 2006 by BULL HN Information Systems Inc. Copyright 2006 by Bull SAS All Rights Reserved