Compilation listing of file >2.1spec>online>mib083074>bcpl_cae2.bcpl.
Compilation performed for Martinson.SysMaint.a at 01/24/75  0649.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	//  Rcom -- read command and declaration.
     2	//  Last modified on 06/06/74 at 18:20:51 by R F Mabee.
     3	//  Installed on 6180 with Version 3.4 by R F Mabee.
     4	//  First installed on 645 with Version 2.7 by R F Mabee.
     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_cae_head"
	     1	//  Declarations for the syntax analyzer (Cae).
	     2	//  Last modified on 07/08/73 at 23:02:53 by R F Mabee.
	     3	//  Installed after 6180 bootstrap in Version 3.4 by R F Mabee.
	     4	//  First installed in Version 2.7, 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_cae_codes"
		     1	//  Report codes for the syntax analyzer.
		     2	//  Last modified on 07/05/73 at 23:04:24 by R F Mabee.
		     3	//  Installed on 6180 as Version 3.4, R F Mabee.
		     4	//  First installed as Version 2.7, 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		//  150 - 199 are reserved for Cae.
		    16	     $(	BlockExpected	= 150
		    17		ExpressionMissing	= 151
		    18		IncompleteCommand	= 152
		    19		MalformedDeclaration= 153
		    20		MalformedTest	= 154
		    21		MisplacedDeclaration= 155
		    22		MissingCOLON	= 156
		    23		MissingCOMMA	= 157
		    24		MissingDO		= 158
		    25	
		    26		MissingINTO	= 160
		    27		MissingRKET	= 161
		    28		MissingSECTKET	= 162
		    29		MissingSKET	= 163
		    30		MissingTO		= 164
		    31		NameExpected	= 165
		    32		PrematureTermination= 166
		    33		UnrecognizedCommand	= 167
		    34		ValdefExpected	= 168
		    35	     $)
	    18	
	    19	external		//  Routines of Cae, not referenced outside this phase.
	    20	     $(	Rblock = "bcpl_cae0$Rblock"
	    21		Rdef = "bcpl_cae0$Rdef"
	    22		Rdeclbody = "bcpl_cae0$Rdeclbody"
	    23		Rname = "bcpl_cae0$Rname"
	    24		Rnamelist = "bcpl_cae0$Rnamelist"
	    25		ReadList = "bcpl_cae0$ReadList"
	    26	
	    27		Rexp = "bcpl_cae1$Rexp"
	    28		Rcom = "bcpl_cae2$Rcom"
	    29	     $)
	    30	global		//  230 - 249 are reserved for Cae.
	    31	     $(	LabelList	: 230
	    32		ErrorNode	: 231
	    33	     $)
    13	
    14	let Rcom (n) = valof		//  n = 0 means read to end of containing block or program,
    15					//  n = 8 means accept exactly one command (definitions not allowed),
    16					//  n = 4 allows definitions but if first item is command, stops after it.
    17	     $(	let A, B, C, D = nil, nil, nil, nil
    18	  Top:	let Op = Symb logor LineCount lshift Left
    19		switchon Symb into
    20		     $(	case LET_S:
    21			case MANIFEST_S: case GLOBAL_S:
    22			case EXTERNAL_S: case STATIC_S:
    23				if n ge 8 do CaeReport (MisplacedDeclaration)
    24				Nextsymb ()
    25				test (Op & Right) = LET_S
    26				then A := Rdef ()
    27				or A := Rblock (Rdeclbody, Op & Right)
    28				B := Rcom (0)
    29				resultis List3 (Op, A, B)
    30	
    31			case SEMICOLON_S:
    32				unless n = 0 resultis 0
    33				Nextsymb ()
    34				goto Top
    35	
    36			case SECTBRA_S:
    37			case SECTBEGIN_S:
    38				A := Rblock (Rcom, 0)
    39				goto MORE
    40	
    41			case SECTKET_S:
    42			case SECTEND_S:
    43			case ENDPROG_S:
    44				resultis 0
    45	
    46	
    47			case NAME_S: case NUMBER_S: case STRINGCONST_S: case CHARCONST_S:
    48			case TRUE_S: case FALSE_S: case LV_S: case RV_S: case NOT_S:
    49			case RBRA_S: case VALOF_S: case PLUS_S: case MINUS_S:
    50			case LIST_S: case TABLE_S:
    51				A := ReadList (false)
    52				Op := Symb logor LineCount lshift Left
    53				if Symb = ASSIGN_S do
    54				     $(	Nextsymb ()
    55					B := ReadList (true)
    56					A := List3 (Op, A, B)
    57					goto MORE
    58				     $)
    59				if Symb = COLON_S do
    60				     $(	unless (A!0 & Right) = NAME_S do CaeReport (NameExpected)
    61					Nextsymb ()
    62					B := Rcom (n = 0 -> 4, n)		//  Stop at end of command.
    63					A := List5 (Op, A, B, LabelList, 0)
    64					LabelList := A
    65					goto MORE
    66				     $)
    67				if (A!0 & Right) = FNAP_S do
    68				     $(	A!0 := A!0 + RTAP_S - FNAP_S
    69					goto MORE
    70				     $)
    71				CaeReport (IncompleteCommand)
    72				goto Drain
    73	
    74			case GOTO_S: case RESULTIS_S:
    75				Nextsymb ()
    76				A := List2 (Op, Rexp (0))
    77				goto MORE
    78	
    79			case CALL_S:
    80				Nextsymb ()
    81				A := List2 (Op, Rexp (0))
    82				goto MORE
    83	
    84			case IF_S: case UNLESS_S:
    85			case WHILE_S: case UNTIL_S:
    86				Nextsymb ()
    87				A := Rexp (0)
    88				test Symb = DO_S
    89				then Nextsymb ()
    90				or CaeReport (MissingDO)
    91				B := Rcom (8)
    92				A := List3 (Op, A, B)
    93				goto MORE
    94	
    95			case TEST_S:
    96				Nextsymb ()
    97				A := Rexp (0)
    98				D := Symb
    99				unless D = DO_S logor D = IFSO_S logor D = IFNOT_S do
   100				     $(	CaeReport (MalformedTest)
   101					goto Drain
   102				     $)
   103				Nextsymb ()
   104				B := Rcom (8)
   105				unless Symb = (D = DO_S -> OR_S, D = IFSO_S -> IFNOT_S, IFSO_S) do
   106				     $(	CaeReport (MalformedTest)
   107					Op := D = IFNOT_S -> UNLESS_S, IF_S
   108					A := List3 (Op, A, B)
   109					goto Drain
   110				     $)
   111				Nextsymb ()
   112				C := Rcom (8)
   113				if D = IFNOT_S do
   114				     $(	let q = B
   115					B := C
   116					C := q
   117				     $)
   118				A := List4 (Op, A, B, C)
   119				goto MORE
   120	
   121			case FOR_S:
   122				Nextsymb ()
   123				A := Rname ()
   124				unless Symb = VALDEF_S do
   125				     $(	CaeReport (ValdefExpected)
   126					goto Drain
   127				     $)
   128				Nextsymb ()
   129				B := Rexp (0)
   130				D := 0
   131				if Symb = BY_S do
   132				     $(	Nextsymb ()
   133					D := Rexp (0)
   134				     $)
   135				test Symb = TO_S
   136				then $(	Nextsymb ()
   137					C := Rexp (0)
   138				     $)
   139				or   $(	CaeReport (MissingTO)
   140					C := ErrorNode
   141				     $)
   142				if Symb = BY_S & D = 0 do
   143				     $(	Nextsymb ()
   144					D := Rexp (0)
   145				     $)
   146				test Symb = DO_S
   147				then Nextsymb ()
   148				or CaeReport (MissingDO)
   149				A := List6 (Op, A, B, C, D, Rcom (8))
   150				goto MORE
   151	
   152			case BREAK_S: case LOOP_S:
   153			case RETURN_S: case FINISH_S:
   154			case ENDCASE_S:
   155				Nextsymb ()
   156				A := List1 (Op)
   157				goto MORE
   158	
   159			case SWITCHON_S:
   160				Nextsymb ()
   161				A := Rexp (0)
   162				test Symb = INTO_S
   163				then Nextsymb ()
   164				or CaeReport (MissingINTO)
   165				B := Rblock (Rcom, 0)
   166				A := List3 (Op, A, B)
   167				goto MORE
   168	
   169			case CASE_S:
   170				Nextsymb ()
   171				A := Rexp (0)
   172				B := 0
   173				if Symb = TO_S do
   174				     $(	Nextsymb ()
   175					B := Rexp (0)
   176				     $)
   177				test Symb = COLON_S
   178				then Nextsymb ()
   179				or CaeReport (MissingCOLON)
   180				C := Rcom (n = 0 -> 4, n)		//  Pick up just one command.
   181				A := List4 (Op, A, B, C)
   182				goto MORE
   183	
   184			case DEFAULT_S:
   185				Nextsymb ()
   186				test Symb = COLON_S
   187				then Nextsymb ()
   188				or CaeReport (MissingCOLON)
   189				A := List2 (Op, Rcom (n = 0 -> 4, n))		//  Stop at end of next command.
   190				goto MORE
   191	
   192			default:	CaeReport (UnrecognizedCommand)
   193	
   194			  Drain:	A := 0
   195				while true do switchon Symb into		//  Skip past rest of bad command.
   196				     $(	case SEMICOLON_S:
   197						if n = 0 goto MORE	//  We're supposed to pick up succeeding commands too.
   198					case SECTKET_S:		//  All the cases which must begin a new command.
   199					case SECTEND_S:
   200					case ENDPROG_S:
   201					case LET_S:
   202					case GLOBAL_S:
   203					case MANIFEST_S:
   204					case STATIC_S:
   205					case EXTERNAL_S:
   206						resultis A
   207					case AND_S:		//  Botched definition, read rest of it.
   208						Nextsymb ()
   209						A := Rdef ()
   210						loop
   211					case SECTBRA_S:
   212					case SECTBEGIN_S:
   213						A := Rblock (Rcom, 0)
   214						loop
   215					default:	Nextsymb ()
   216				     $)		//  Note indefinite looping.
   217		     $)
   218	
   219	  MORE:	Op := Symb logor LineCount lshift Left
   220		switchon Symb into
   221		     $(	case REPEAT_S:
   222				Nextsymb ()
   223				A := List2 (Op, A)
   224				goto MORE
   225	
   226			case REPEATWHILE_S:
   227			case REPEATUNTIL_S:
   228				Nextsymb ()
   229				B := Rexp (0)
   230				A := List3 (Op, A, B)
   231				goto MORE
   232	
   233			case SEMICOLON_S:
   234				unless n = 0 resultis A		//  If we're supposed to read only one command.
   235				Nextsymb ()
   236				B := Rcom (0)		//  This picks up all following commands.
   237				resultis List3 (Op, A, B)
   238	
   239			case SECTKET_S:		//  All the symbols which force the end of the current command.
   240			case SECTEND_S:
   241			case ENDPROG_S:
   242			case LET_S:
   243			case GLOBAL_S:
   244			case MANIFEST_S:
   245			case STATIC_S:
   246			case EXTERNAL_S:
   247			case AND_S:
   248			case OR_S:
   249				resultis A
   250	
   251			default:	CaeReport (IncompleteCommand)
   252				goto Drain
   253		     $)
   254	     $)



CAE time 4.4, 138 source lines per second.
cross reference table

A			bcpl_cae2:  17, 26, 27, 29, 38, 51, 56, 56, 60, 63, 63, 64, 67, 68, 68, 76, 81, 87, 92, 
			92, 97, 108, 108, 118, 118, 123, 149, 149, 156, 161, 166, 166, 171, 181, 181, 189, 194, 
			206, 209, 213, 223, 223, 230, 230, 234, 237, 249

AND_S			bcpl_symbols:  17, bcpl_cae2:  207, 247

ASSIGN_S			bcpl_symbols:  18, bcpl_cae2:  53

B			bcpl_cae2:  17, 28, 29, 55, 56, 62, 63, 91, 92, 104, 108, 114, 115, 118, 129, 149, 165, 
			166, 172, 175, 181, 229, 230, 236, 237

BE_S			bcpl_symbols:  19

BIT_S			bcpl_symbols:  20

BlockExpected		bcpl_cae_codes:  16

BREAK_S			bcpl_symbols:  21, bcpl_cae2:  152

BuildObject		bcpl_compiler_head:  72

BY_S			bcpl_symbols:  22, bcpl_cae2:  131, 142

C			bcpl_cae2:  17, 112, 115, 116, 118, 137, 140, 149, 180, 181

CAE			bcpl_compiler_head:  64

CaeReport			bcpl_compiler_head:  49, bcpl_cae2:  23, 60, 71, 90, 100, 106, 125, 139, 148, 164, 179, 
			188, 192, 251

CALL_S			bcpl_symbols:  23, bcpl_cae2:  79

CASE_S			bcpl_symbols:  24, bcpl_cae2:  169

CgInit			bcpl_compiler_head:  71

CGreport			bcpl_compiler_head:  51

Ch			bcpl_compiler_head:  92

CHARCONST_S		bcpl_symbols:  27, bcpl_cae2:  47

CHAR_S			bcpl_symbols:  26

Cleanup			bcpl_compiler_head:  61

COLON_S			bcpl_symbols:  28, bcpl_cae2:  59, 177, 186

Column			bcpl_compiler_head:  128

COMMA_S			bcpl_symbols:  29

CompareStrings		bcpl_compiler_head:  25

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

CONSTANT_S		bcpl_symbols:  31

CONSTDEF_S		bcpl_symbols:  32

ConvertNtoS		bcpl_compiler_head:  28

ConvertStoN		bcpl_compiler_head:  27

Crep			bcpl_compiler_head:  98

D			bcpl_cae2:  17, 98, 99, 99, 99, 105, 105, 107, 113, 130, 133, 142, 144, 149

DEFAULT_S			bcpl_symbols:  33, bcpl_cae2:  184

DictionaryEntry		bcpl_compiler_head:  127

DIV_F			bcpl_symbols:  34

DIV_S			bcpl_symbols:  36

DOUBLE_S			bcpl_symbols:  38

DO_S			bcpl_symbols:  37, bcpl_cae2:  88, 99, 105, 146

Drain			bcpl_cae2:  72, 101, 109, 126, 194, 252

ENDCASE_S			bcpl_symbols:  39, bcpl_cae2:  154

Endofstreamch		bcpl_compiler_head:  135

ENDPROG_S			bcpl_symbols:  40, bcpl_cae2:  43, 200, 241

EnterIntoCrossreference	bcpl_compiler_head:  57

EqualString		bcpl_compiler_head:  24

EQV_S			bcpl_symbols:  44

EQ_F			bcpl_symbols:  42

EQ_S			bcpl_symbols:  43

ErrorNode			bcpl_cae_head:  32, bcpl_cae2:  140

Errorsw			bcpl_compiler_head:  124

ERROR_S			bcpl_symbols:  41

Even			bcpl_compiler_head:  136

ExpressionMissing		bcpl_cae_codes:  17

EXTERNAL_S		bcpl_symbols:  46, bcpl_cae2:  22, 205, 246

FALSE_S			bcpl_symbols:  47, bcpl_cae2:  48

FileCount			bcpl_compiler_head:  118

FileNames			bcpl_compiler_head:  116

FileShift			bcpl_compiler_head:  138

FilesInfo			bcpl_compiler_head:  117

FindPrintName		bcpl_compiler_head:  56

FINISH_S			bcpl_symbols:  48, bcpl_cae2:  153

FIXED_S			bcpl_symbols:  49

FLOAT_S			bcpl_symbols:  50

FNAP_S			bcpl_symbols:  51, bcpl_cae2:  67, 68

FNDEF_S			bcpl_symbols:  52

Format			bcpl_compiler_head:  20

FormCharconst		bcpl_compiler_head:  46

FormStringconst		bcpl_compiler_head:  47

FOR_S			bcpl_symbols:  53, bcpl_cae2:  121

Freevec			bcpl_compiler_head:  34

GetStream			bcpl_compiler_head:  62

GetVersion		bcpl_compiler_head:  59

GET_S			bcpl_symbols:  57

GE_F			bcpl_symbols:  54

GE_S			bcpl_symbols:  56

GlobalTemp		bcpl_compiler_head:  131

GLOBAL_S			bcpl_symbols:  58, bcpl_cae2:  21, 202, 243

GOTO_S			bcpl_symbols:  59, bcpl_cae2:  74

GR_F			bcpl_symbols:  60

GR_S			bcpl_symbols:  61

HaveListingFile		bcpl_compiler_head:  105

IFNOT_S			bcpl_symbols:  63, bcpl_cae2:  99, 105, 107, 113

IFSO_S			bcpl_symbols:  64, bcpl_cae2:  99, 105, 105

IF_S			bcpl_symbols:  62, bcpl_cae2:  84, 107

IncompleteCommand		bcpl_cae_codes:  18, bcpl_cae2:  71, 251

INPUT			bcpl_compiler_head:  90

INTO_S			bcpl_symbols:  66, bcpl_cae2:  162

LABDEF_S			bcpl_symbols:  67

LabelList			bcpl_cae_head:  31, bcpl_cae2:  63, 64

LABEL_S			bcpl_symbols:  68

Left			bcpl_compiler_head:  134, bcpl_cae2:  18, 52, 219

Length			bcpl_compiler_head:  29

LengthInWords		bcpl_compiler_head:  30

LENGTH_S			bcpl_symbols:  71

LET_S			bcpl_symbols:  72, bcpl_cae2:  20, 25, 201, 242

LexInit			bcpl_compiler_head:  65

LE_F			bcpl_symbols:  69

LE_S			bcpl_symbols:  70

LineCount			bcpl_compiler_head:  123, bcpl_cae2:  18, 52, 219

LineMap			bcpl_compiler_head:  100

LineMask			bcpl_compiler_head:  138

List1			bcpl_compiler_head:  35, bcpl_cae2:  156

List2			bcpl_compiler_head:  36, bcpl_cae2:  76, 81, 189, 223

List3			bcpl_compiler_head:  37, bcpl_cae2:  29, 56, 92, 108, 166, 230, 237

List4			bcpl_compiler_head:  38, bcpl_cae2:  118, 181

List5			bcpl_compiler_head:  39, bcpl_cae2:  63

List6			bcpl_compiler_head:  40, bcpl_cae2:  149

Listing			bcpl_compiler_head:  95

LIST_S			bcpl_symbols:  73, bcpl_cae2:  50

LOCAL_S			bcpl_symbols:  74

LOGAND_S			bcpl_symbols:  76

LOGOR_S			bcpl_symbols:  77

LOOP_S			bcpl_symbols:  78, bcpl_cae2:  152

LSHIFT_S			bcpl_symbols:  81

LS_F			bcpl_symbols:  79

LS_S			bcpl_symbols:  80

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_cae2:  48

LV_STATIC			bcpl_symbols:  89

LV_TEMP			bcpl_symbols:  90

Machine			bcpl_compiler_head:  102

MAIN_S			bcpl_symbols:  91

MakeTimeString		bcpl_compiler_head:  44

MalformedDeclaration	bcpl_cae_codes:  19

MalformedTest		bcpl_cae_codes:  20, bcpl_cae2:  100, 106

MANIFEST_S		bcpl_symbols:  92, bcpl_cae2:  21, 203, 244

MINUS_F			bcpl_symbols:  93

MINUS_S			bcpl_symbols:  94, bcpl_cae2:  49

MisplacedDeclaration	bcpl_cae_codes:  21, bcpl_cae2:  23

MissingCOLON		bcpl_cae_codes:  22, bcpl_cae2:  179, 188

MissingCOMMA		bcpl_cae_codes:  23

MissingDO			bcpl_cae_codes:  24, bcpl_cae2:  90, 148

MissingINTO		bcpl_cae_codes:  26, bcpl_cae2:  164

MissingRKET		bcpl_cae_codes:  27

MissingSECTKET		bcpl_cae_codes:  28

MissingSKET		bcpl_cae_codes:  29

MissingTO			bcpl_cae_codes:  30, bcpl_cae2:  139

MONITOR			bcpl_compiler_head:  91

MORE			bcpl_cae2:  39, 57, 65, 69, 77, 82, 93, 119, 150, 157, 167, 182, 190, 197, 219, 224, 231

MULT_F			bcpl_symbols:  96

MULT_S			bcpl_symbols:  97

n			bcpl_cae2:  14, 23, 32, 62, 62, 180, 180, 189, 189, 197, 234

NAMECHAIN			bcpl_compiler_head:  125

NameExpected		bcpl_cae_codes:  31, bcpl_cae2:  60

NAME_S			bcpl_symbols:  98, bcpl_cae2:  47, 60

NEG_F			bcpl_symbols:  99

NEG_S			bcpl_symbols:  100

NEQV_S			bcpl_symbols:  101

Newvec			bcpl_compiler_head:  33

Nextparam			bcpl_compiler_head:  45

Nextsymb			bcpl_compiler_head:  53, bcpl_cae2:  24, 33, 54, 61, 75, 80, 86, 89, 96, 103, 111, 122, 
			128, 132, 136, 143, 147, 155, 160, 163, 170, 174, 178, 185, 187, 208, 215, 222, 228, 235

NE_F			bcpl_symbols:  102

NE_S			bcpl_symbols:  103

NIL_S			bcpl_symbols:  104

NOT_S			bcpl_symbols:  106, bcpl_cae2:  48

NUMBER_S			bcpl_symbols:  107, bcpl_cae2:  47

OcodeSw			bcpl_compiler_head:  104

OFFSET_S			bcpl_symbols:  108

Op			bcpl_cae2:  18, 25, 27, 29, 52, 56, 63, 76, 81, 92, 107, 108, 118, 149, 156, 166, 181, 
			189, 219, 223, 230, 237

Optimize			bcpl_compiler_head:  101

OptionString		bcpl_compiler_head:  115

OR_S			bcpl_symbols:  109, bcpl_cae2:  105, 248

OUTPUT			bcpl_compiler_head:  89

Packstring		bcpl_compiler_head:  21

Plist			bcpl_compiler_head:  68

PLUS_F			bcpl_symbols:  110

PLUS_S			bcpl_symbols:  111, bcpl_cae2:  49

Pname			bcpl_compiler_head:  67

POINTER_S			bcpl_symbols:  112

PopInput			bcpl_compiler_head:  43

POS_F			bcpl_symbols:  113

POS_S			bcpl_symbols:  114

PPrep			bcpl_compiler_head:  97

PrematureTermination	bcpl_cae_codes:  32

ProgramName		bcpl_compiler_head:  119

PushInput			bcpl_compiler_head:  42

q			bcpl_cae2:  114, 116

QuietSw			bcpl_compiler_head:  106

RandomI			bcpl_compiler_head:  31

Rblock			bcpl_cae_head:  20, bcpl_cae2:  27, 38, 165, 213

RBRA_S			bcpl_symbols:  116, bcpl_cae2:  49

Rcom			bcpl_cae_head:  28, bcpl_cae2:  14, 28, 38, 62, 91, 104, 112, 149, 165, 180, 189, 213, 
			236

Rdeclbody			bcpl_cae_head:  22, bcpl_cae2:  27

Rdef			bcpl_cae_head:  21, bcpl_cae2:  26, 209

Readch			bcpl_compiler_head:  16

ReadList			bcpl_cae_head:  25, bcpl_cae2:  51, 55

REGISTER_S		bcpl_symbols:  117

REL_S			bcpl_symbols:  118

RemoveEscapes		bcpl_compiler_head:  23

REM_S			bcpl_symbols:  119

REPEATUNTIL_S		bcpl_symbols:  122, bcpl_cae2:  227

REPEATWHILE_S		bcpl_symbols:  123, bcpl_cae2:  226

REPEAT_S			bcpl_symbols:  121, bcpl_cae2:  221

REP_S			bcpl_symbols:  120

RESULTIS_S		bcpl_symbols:  124, bcpl_cae2:  74

RETURN_S			bcpl_symbols:  126, bcpl_cae2:  153

Rexp			bcpl_cae_head:  27, bcpl_cae2:  76, 81, 87, 97, 129, 133, 137, 144, 161, 171, 175, 229

Right			bcpl_compiler_head:  134, bcpl_cae2:  25, 27, 60, 67

RKET_S			bcpl_symbols:  127

Rname			bcpl_cae_head:  23, bcpl_cae2:  123

Rnamelist			bcpl_cae_head:  24

RSHIFT_S			bcpl_symbols:  128

RTAP_S			bcpl_symbols:  129, bcpl_cae2:  68

RTDEF_S			bcpl_symbols:  130

RV_S			bcpl_symbols:  131, bcpl_cae2:  48

SBRA_S			bcpl_symbols:  132

SECTBEGIN_S		bcpl_symbols:  133, bcpl_cae2:  37, 212

SECTBRA_S			bcpl_symbols:  134, bcpl_cae2:  36, 211

SECTEND_S			bcpl_symbols:  136, bcpl_cae2:  42, 199, 240

SECTKET_S			bcpl_symbols:  137, bcpl_cae2:  41, 198, 239

SEMICOLON_S		bcpl_symbols:  138, bcpl_cae2:  31, 196, 233

SKET_S			bcpl_symbols:  139

STATIC_S			bcpl_symbols:  140, bcpl_cae2:  22, 204, 245

StoreString		bcpl_compiler_head:  41

STRINGCONST_S		bcpl_symbols:  142, bcpl_cae2:  47

STRING_S			bcpl_symbols:  141

STRUCTURE_S		bcpl_symbols:  143

SWITCHON_S		bcpl_symbols:  144, bcpl_cae2:  159

Symb			bcpl_compiler_head:  126, bcpl_cae2:  18, 19, 52, 53, 59, 88, 98, 105, 124, 131, 135, 
			142, 146, 162, 173, 177, 186, 195, 219, 220

SymbolName		bcpl_compiler_head:  55

Symbols			bcpl_compiler_head:  99

TABLE_S			bcpl_symbols:  146, bcpl_cae2:  50

TEMP_S			bcpl_symbols:  147

TEST_S			bcpl_symbols:  148, bcpl_cae2:  95

TimeNow			bcpl_compiler_head:  114

TimeNowString		bcpl_compiler_head:  113

Top			bcpl_cae2:  18, 34

TO_S			bcpl_symbols:  149, bcpl_cae2:  135, 173

Trans			bcpl_compiler_head:  70

Transreport		bcpl_compiler_head:  50

TRUE_S			bcpl_symbols:  150, bcpl_cae2:  48

TYPE_S			bcpl_symbols:  151

UnexpectedCase		bcpl_compiler_head:  139

UNLESS_S			bcpl_symbols:  152, bcpl_cae2:  84, 107

Unpackstring		bcpl_compiler_head:  22

UnrecognizedCommand		bcpl_cae_codes:  33, bcpl_cae2:  192

UNTIL_S			bcpl_symbols:  153, bcpl_cae2:  85

UpperCase			bcpl_compiler_head:  96

UserID			bcpl_compiler_head:  120

UtilitiesInit		bcpl_compiler_head:  60

ValdefExpected		bcpl_cae_codes:  34, bcpl_cae2:  125

VALDEF_S			bcpl_symbols:  154, bcpl_cae2:  124

VALOF_S			bcpl_symbols:  156, bcpl_cae2:  49

VECAP_S			bcpl_symbols:  158

VEC_S			bcpl_symbols:  157

Vmax			bcpl_compiler_head:  137

WHILE_S			bcpl_symbols:  159, bcpl_cae2:  85

Writech			bcpl_compiler_head:  17

WriteN			bcpl_compiler_head:  19

WriteObjectListing		bcpl_compiler_head:  73

WriteS			bcpl_compiler_head:  18

Xref			bcpl_compiler_head:  103




Trans time 1.7, 680 object words per second.
	"	Begin text of Rcom

aa 000000  000004 122143		zero	4,42083		" Rcom
aa 000001  157155 000000		zero	56941
			L1:
aa 000002  000000 213000  14		epaq	0		" set lp to linkage section
aa 000003  700026 764161		lprplp	sb|22,*au
aa 000004  200000 021100		adlx1	bp|0		" BCPL save
aa 000005  700000 542111		sprpbp	sb|0,x1
aa 000006  700001 544111		sprplp	sb|1,x1
aa 000007  700427 620111		eax0	sb|279,x1
aa 000010  777760 360003		anx0	-16,du
aa 000011  700025 740100		stx0	sb|21		" end of save sequence

			L2:
aa 000012  600214 236100  18		ldq	sp|140		" LineCount
aa 000013  000022 736000		qls	18
aa 000014  600217 276100		orq	sp|143		" Symb
aa 000015  700010 756111		stq	sb|8,x1		" Op
aa 000016  001075 710004  20		tra	L9
			L10:
aa 000017  700002 236111  23		ldq	sb|2,x1		" n
aa 000020  000010 116007		cmpq	8,dl		" 8
aa 000021  000005 604004		tmi	L11
aa 000022  000233 235007		lda	155,dl		" MisplacedDeclaration
aa 000023  700020 755111		sta	sb|16,x1
4a 000024  400042 272120		tsbbp	lp|L12,*		" CaeReport
aa 000025  000016 000001		zero	14,1
			L11:
4a 000026  400040 272120  24		tsbbp	lp|L13,*		" Nextsymb
aa 000027  000016 000000		zero	14
aa 000030  700010 235111  25		lda	sb|8,x1		" Op
aa 000031  777777 375007		ana	-1,dl		" Right
aa 000032  000070 115007		cmpa	56,dl		" LET_S
aa 000033  000005 601004		tnz	L14
4a 000034  400036 272120  26		tsbbp	lp|L16,*		" Rdef
aa 000035  000016 000000		zero	14
aa 000036  700007 756111		stq	sb|7,x1		" A
aa 000037  000011 710004		tra	L15
			L14:
4a 000040  400034 350120  27		eapap	lp|L17,*		" Rdeclbody
aa 000041  700020 540111		sprpap	sb|16,x1
aa 000042  700010 236111		ldq	sb|8,x1		" Op
aa 000043  777777 376007		anq	-1,dl		" Right
aa 000044  700021 756111		stq	sb|17,x1
4a 000045  400032 272120		tsbbp	lp|L18,*		" Rblock
aa 000046  000016 000002		zero	14,2
aa 000047  700007 756111		stq	sb|7,x1		" A
			L15:
aa 000050  700020 450111  28		stz	sb|16,x1
aa 000051  777733 272004		tsbbp	L1+2		" Rcom
aa 000052  000016 000001		zero	14,1
aa 000053  700004 756111		stq	sb|4,x1		" B
aa 000054  700010 236111  29		ldq	sb|8,x1		" Op
aa 000055  700020 756111		stq	sb|16,x1
aa 000056  700007 236111		ldq	sb|7,x1		" A
aa 000057  700021 756111		stq	sb|17,x1
aa 000060  700004 236111		ldq	sb|4,x1		" B
aa 000061  700022 756111		stq	sb|18,x1
4a 000062  400030 272120		tsbbp	lp|L19,*		" List3
aa 000063  000016 000003		zero	14,3
aa 000064  001416 710004  31		tra	L7
			L20:
aa 000065  700002 234111  32		szn	sb|2,x1		" n
aa 000066  000003 600004		tze	L21
aa 000067  000000 236007		ldq	0,dl		" 0
aa 000070  001412 710004		tra	L7
			L21:
4a 000071  400040 272120  33		tsbbp	lp|L13,*		" Nextsymb
aa 000072  000016 000000		zero	14
aa 000073  777717 710004  36		tra	L2
			L22:
aa 000074  777706 350004  38		eapap	L1		" Rcom
aa 000075  700020 540111		sprpap	sb|16,x1
aa 000076  700021 450111		stz	sb|17,x1
4a 000077  400032 272120		tsbbp	lp|L18,*		" Rblock
aa 000100  000016 000002		zero	14,2
aa 000101  700007 756111		stq	sb|7,x1		" A
aa 000102  001235 710004  41		tra	L3
			L23:
aa 000103  000000 236007  44		ldq	0,dl		" 0
aa 000104  001376 710004  47		tra	L7
			L24:
aa 000105  700020 450111  51		stz	sb|16,x1
4a 000106  400026 272120		tsbbp	lp|L25,*		" ReadList
aa 000107  000016 000001		zero	14,1
aa 000110  700007 756111		stq	sb|7,x1		" A
aa 000111  600214 236100  52		ldq	sp|140		" LineCount
aa 000112  000022 736000		qls	18
aa 000113  600217 276100		orq	sp|143		" Symb
aa 000114  700010 756111		stq	sb|8,x1		" Op
aa 000115  600217 236100  53		ldq	sp|143		" Symb
aa 000116  000002 116007		cmpq	2,dl		" ASSIGN_S
aa 000117  000022 601004		tnz	L26
4a 000120  400040 272120  54		tsbbp	lp|L13,*		" Nextsymb
aa 000121  000016 000000		zero	14
aa 000122  000001 335007  55		lca	1,dl		" true
aa 000123  700020 755111		sta	sb|16,x1
4a 000124  400026 272120		tsbbp	lp|L25,*		" ReadList
aa 000125  000016 000001		zero	14,1
aa 000126  700004 756111		stq	sb|4,x1		" B
aa 000127  700010 236111  56		ldq	sb|8,x1		" Op
aa 000130  700020 756111		stq	sb|16,x1
aa 000131  700007 236111		ldq	sb|7,x1		" A
aa 000132  700021 756111		stq	sb|17,x1
aa 000133  700004 236111		ldq	sb|4,x1		" B
aa 000134  700022 756111		stq	sb|18,x1
4a 000135  400030 272120		tsbbp	lp|L19,*		" List3
aa 000136  000016 000003		zero	14,3
aa 000137  700007 756111		stq	sb|7,x1		" A
aa 000140  001177 710004  57		tra	L3
			L26:
aa 000141  600217 236100  59		ldq	sp|143		" Symb
aa 000142  000014 116007		cmpq	12,dl		" COLON_S
aa 000143  000050 601004		tnz	L27
aa 000144  700007 760111  60		lprpap	sb|7,x1		" A
aa 000145  000000 235100		lda	ap|0
aa 000146  777777 375007		ana	-1,dl		" Right
aa 000147  000122 115007		cmpa	82,dl		" NAME_S
aa 000150  000005 600004		tze	L28
aa 000151  000245 235007		lda	165,dl		" NameExpected
aa 000152  700020 755111		sta	sb|16,x1
4a 000153  400042 272120		tsbbp	lp|L12,*		" CaeReport
aa 000154  000016 000001		zero	14,1
			L28:
4a 000155  400040 272120  61		tsbbp	lp|L13,*		" Nextsymb
aa 000156  000016 000000		zero	14
aa 000157  700002 234111  62		szn	sb|2,x1		" n
aa 000160  000003 601004		tnz	L29
aa 000161  000004 235007		lda	4,dl		" 4
aa 000162  000002 710004		tra	L30
			L29:
aa 000163  700002 235111		lda	sb|2,x1		" n
			L30:
aa 000164  700012 755111		sta	sb|10,x1
aa 000165  700012 235111		lda	sb|10,x1
aa 000166  700011 755111		sta	sb|9,x1
aa 000167  700011 235111		lda	sb|9,x1
aa 000170  700020 755111		sta	sb|16,x1
aa 000171  777613 272004		tsbbp	L1+2		" Rcom
aa 000172  000016 000001		zero	14,1
aa 000173  700004 756111		stq	sb|4,x1		" B
aa 000174  700010 236111  63		ldq	sb|8,x1		" Op
aa 000175  700020 756111		stq	sb|16,x1
aa 000176  700007 236111		ldq	sb|7,x1		" A
aa 000177  700021 756111		stq	sb|17,x1
aa 000200  700004 236111		ldq	sb|4,x1		" B
aa 000201  700022 756111		stq	sb|18,x1
aa 000202  600346 236100		ldq	sp|230		" LabelList
aa 000203  700023 756111		stq	sb|19,x1
aa 000204  700024 450111		stz	sb|20,x1
4a 000205  400024 272120		tsbbp	lp|L31,*		" List5
aa 000206  000016 000005		zero	14,5
aa 000207  700007 756111		stq	sb|7,x1		" A
aa 000210  700007 236111  64		ldq	sb|7,x1		" A
aa 000211  600346 756100		stq	sp|230		" LabelList
aa 000212  001125 710004  65		tra	L3
			L27:
aa 000213  700007 762111  67		lprpbp	sb|7,x1		" A
aa 000214  200000 236100		ldq	bp|0
aa 000215  777777 376007		anq	-1,dl		" Right
aa 000216  000043 116007		cmpq	35,dl		" FNAP_S
aa 000217  000010 601004		tnz	L32
aa 000220  700007 761111  68		lprpab	sb|7,x1		" A
aa 000221  100000 236100		ldq	ab|0
aa 000222  000161 076007		adq	113,dl		" RTAP_S
aa 000223  000043 176007		sbq	35,dl		" FNAP_S
aa 000224  700007 763111		lprpbb	sb|7,x1		" A
aa 000225  300000 756100		stq	bb|0
aa 000226  001111 710004  69		tra	L3
			L32:
aa 000227  000230 236007  71		ldq	152,dl		" IncompleteCommand
aa 000230  700020 756111		stq	sb|16,x1
4a 000231  400042 272120		tsbbp	lp|L12,*		" CaeReport
aa 000232  000016 000001		zero	14,1
aa 000233  000564 710004  74		tra	L4
			L33:
4a 000234  400040 272120  75		tsbbp	lp|L13,*		" Nextsymb
aa 000235  000016 000000		zero	14
aa 000236  700020 450111  76		stz	sb|16,x1
4a 000237  400022 272120		tsbbp	lp|L34,*		" Rexp
aa 000240  000016 000001		zero	14,1
aa 000241  700011 756111		stq	sb|9,x1
aa 000242  700010 236111		ldq	sb|8,x1		" Op
aa 000243  700020 756111		stq	sb|16,x1
aa 000244  700011 236111		ldq	sb|9,x1
aa 000245  700021 756111		stq	sb|17,x1
4a 000246  400020 272120		tsbbp	lp|L35,*		" List2
aa 000247  000016 000002		zero	14,2
aa 000250  700007 756111		stq	sb|7,x1		" A
aa 000251  001066 710004  79		tra	L3
			L36:
4a 000252  400040 272120  80		tsbbp	lp|L13,*		" Nextsymb
aa 000253  000016 000000		zero	14
aa 000254  700020 450111  81		stz	sb|16,x1
4a 000255  400022 272120		tsbbp	lp|L34,*		" Rexp
aa 000256  000016 000001		zero	14,1
aa 000257  700011 756111		stq	sb|9,x1
aa 000260  700010 236111		ldq	sb|8,x1		" Op
aa 000261  700020 756111		stq	sb|16,x1
aa 000262  700011 236111		ldq	sb|9,x1
aa 000263  700021 756111		stq	sb|17,x1
4a 000264  400020 272120		tsbbp	lp|L35,*		" List2
aa 000265  000016 000002		zero	14,2
aa 000266  700007 756111		stq	sb|7,x1		" A
aa 000267  001050 710004  84		tra	L3
			L37:
4a 000270  400040 272120  86		tsbbp	lp|L13,*		" Nextsymb
aa 000271  000016 000000		zero	14
aa 000272  700020 450111  87		stz	sb|16,x1
4a 000273  400022 272120		tsbbp	lp|L34,*		" Rexp
aa 000274  000016 000001		zero	14,1
aa 000275  700007 756111		stq	sb|7,x1		" A
aa 000276  600217 236100  88		ldq	sp|143		" Symb
aa 000277  000025 116007		cmpq	21,dl		" DO_S
aa 000300  000004 601004		tnz	L38
4a 000301  400040 272120  89		tsbbp	lp|L13,*		" Nextsymb
aa 000302  000016 000000		zero	14
aa 000303  000005 710004		tra	L39
			L38:
aa 000304  000236 235007  90		lda	158,dl		" MissingDO
aa 000305  700020 755111		sta	sb|16,x1
4a 000306  400042 272120		tsbbp	lp|L12,*		" CaeReport
aa 000307  000016 000001		zero	14,1
			L39:
aa 000310  000010 235007  91		lda	8,dl		" 8
aa 000311  700020 755111		sta	sb|16,x1
aa 000312  777472 272004		tsbbp	L1+2		" Rcom
aa 000313  000016 000001		zero	14,1
aa 000314  700004 756111		stq	sb|4,x1		" B
aa 000315  700010 236111  92		ldq	sb|8,x1		" Op
aa 000316  700020 756111		stq	sb|16,x1
aa 000317  700007 236111		ldq	sb|7,x1		" A
aa 000320  700021 756111		stq	sb|17,x1
aa 000321  700004 236111		ldq	sb|4,x1		" B
aa 000322  700022 756111		stq	sb|18,x1
4a 000323  400030 272120		tsbbp	lp|L19,*		" List3
aa 000324  000016 000003		zero	14,3
aa 000325  700007 756111		stq	sb|7,x1		" A
aa 000326  001011 710004  95		tra	L3
			L40:
4a 000327  400040 272120  96		tsbbp	lp|L13,*		" Nextsymb
aa 000330  000016 000000		zero	14
aa 000331  700020 450111  97		stz	sb|16,x1
4a 000332  400022 272120		tsbbp	lp|L34,*		" Rexp
aa 000333  000016 000001		zero	14,1
aa 000334  700007 756111		stq	sb|7,x1		" A
aa 000335  600217 236100  98		ldq	sp|143		" Symb
aa 000336  700005 756111		stq	sb|5,x1		" D
aa 000337  700005 236111  99		ldq	sb|5,x1		" D
aa 000340  000025 116007		cmpq	21,dl		" DO_S
aa 000341  000014 600004		tze	L41
aa 000342  700005 235111		lda	sb|5,x1		" D
aa 000343  000060 115007		cmpa	48,dl		" IFSO_S
aa 000344  000011 600004		tze	L41
aa 000345  700005 236111		ldq	sb|5,x1		" D
aa 000346  000057 116007		cmpq	47,dl		" IFNOT_S
aa 000347  000006 600004		tze	L41
aa 000350  000232 235007  100		lda	154,dl		" MalformedTest
aa 000351  700020 755111		sta	sb|16,x1
4a 000352  400042 272120		tsbbp	lp|L12,*		" CaeReport
aa 000353  000016 000001		zero	14,1
aa 000354  000443 710004  101		tra	L4
			L41:
4a 000355  400040 272120  103		tsbbp	lp|L13,*		" Nextsymb
aa 000356  000016 000000		zero	14
aa 000357  000010 235007  104		lda	8,dl		" 8
aa 000360  700020 755111		sta	sb|16,x1
aa 000361  777423 272004		tsbbp	L1+2		" Rcom
aa 000362  000016 000001		zero	14,1
aa 000363  700004 756111		stq	sb|4,x1		" B
aa 000364  700005 236111  105		ldq	sb|5,x1		" D
aa 000365  000025 116007		cmpq	21,dl		" DO_S
aa 000366  000003 601004		tnz	L43
aa 000367  000135 235007		lda	93,dl		" OR_S
aa 000370  000011 710004		tra	L44
			L43:
aa 000371  700005 236111		ldq	sb|5,x1		" D
aa 000372  000060 116007		cmpq	48,dl		" IFSO_S
aa 000373  000003 601004		tnz	L45
aa 000374  000057 235007		lda	47,dl		" IFNOT_S
aa 000375  000002 710004		tra	L46
			L45:
aa 000376  000060 235007		lda	48,dl		" IFSO_S
			L46:
aa 000377  700013 755111		sta	sb|11,x1
aa 000400  700013 235111		lda	sb|11,x1
			L44:
aa 000401  700014 755111		sta	sb|12,x1
aa 000402  700014 235111		lda	sb|12,x1
aa 000403  600217 115100		cmpa	sp|143		" Symb
aa 000404  000030 600004		tze	L42
aa 000405  000232 235007  106		lda	154,dl		" MalformedTest
aa 000406  700020 755111		sta	sb|16,x1
4a 000407  400042 272120		tsbbp	lp|L12,*		" CaeReport
aa 000410  000016 000001		zero	14,1
aa 000411  700005 235111  107		lda	sb|5,x1		" D
aa 000412  000057 115007		cmpa	47,dl		" IFNOT_S
aa 000413  000003 601004		tnz	L47
aa 000414  000210 236007		ldq	136,dl		" UNLESS_S
aa 000415  000002 710004		tra	L48
			L47:
aa 000416  000056 236007		ldq	46,dl		" IF_S
			L48:
aa 000417  700011 756111		stq	sb|9,x1
aa 000420  700011 236111		ldq	sb|9,x1
aa 000421  700010 756111		stq	sb|8,x1		" Op
aa 000422  700010 236111  108		ldq	sb|8,x1		" Op
aa 000423  700020 756111		stq	sb|16,x1
aa 000424  700007 236111		ldq	sb|7,x1		" A
aa 000425  700021 756111		stq	sb|17,x1
aa 000426  700004 236111		ldq	sb|4,x1		" B
aa 000427  700022 756111		stq	sb|18,x1
4a 000430  400030 272120		tsbbp	lp|L19,*		" List3
aa 000431  000016 000003		zero	14,3
aa 000432  700007 756111		stq	sb|7,x1		" A
aa 000433  000364 710004  109		tra	L4
			L42:
4a 000434  400040 272120  111		tsbbp	lp|L13,*		" Nextsymb
aa 000435  000016 000000		zero	14
aa 000436  000010 236007  112		ldq	8,dl		" 8
aa 000437  700020 756111		stq	sb|16,x1
aa 000440  777344 272004		tsbbp	L1+2		" Rcom
aa 000441  000016 000001		zero	14,1
aa 000442  700006 756111		stq	sb|6,x1		" C
aa 000443  700005 236111  113		ldq	sb|5,x1		" D
aa 000444  000057 116007		cmpq	47,dl		" IFNOT_S
aa 000445  000007 601004		tnz	L49
aa 000446  700004 235111  114		lda	sb|4,x1		" B
aa 000447  700011 755111		sta	sb|9,x1		" q
aa 000450  700006 235111  115		lda	sb|6,x1		" C
aa 000451  700004 755111		sta	sb|4,x1		" B
aa 000452  700011 235111  116		lda	sb|9,x1		" q
aa 000453  700006 755111		sta	sb|6,x1		" C
			L49:
aa 000454  700010 235111  118		lda	sb|8,x1		" Op
aa 000455  700020 755111		sta	sb|16,x1
aa 000456  700007 235111		lda	sb|7,x1		" A
aa 000457  700021 755111		sta	sb|17,x1
aa 000460  700004 235111		lda	sb|4,x1		" B
aa 000461  700022 755111		sta	sb|18,x1
aa 000462  700006 235111		lda	sb|6,x1		" C
aa 000463  700023 755111		sta	sb|19,x1
4a 000464  400016 272120		tsbbp	lp|L50,*		" List4
aa 000465  000016 000004		zero	14,4
aa 000466  700007 756111		stq	sb|7,x1		" A
aa 000467  000650 710004  121		tra	L3
			L51:
4a 000470  400040 272120  122		tsbbp	lp|L13,*		" Nextsymb
aa 000471  000016 000000		zero	14
4a 000472  400014 272120  123		tsbbp	lp|L52,*		" Rname
aa 000473  000016 000000		zero	14
aa 000474  700007 756111		stq	sb|7,x1		" A
aa 000475  600217 236100  124		ldq	sp|143		" Symb
aa 000476  000212 116007		cmpq	138,dl		" VALDEF_S
aa 000477  000006 600004		tze	L53
aa 000500  000250 235007  125		lda	168,dl		" ValdefExpected
aa 000501  700020 755111		sta	sb|16,x1
4a 000502  400042 272120		tsbbp	lp|L12,*		" CaeReport
aa 000503  000016 000001		zero	14,1
aa 000504  000313 710004  126		tra	L4
			L53:
4a 000505  400040 272120  128		tsbbp	lp|L13,*		" Nextsymb
aa 000506  000016 000000		zero	14
aa 000507  700020 450111  129		stz	sb|16,x1
4a 000510  400022 272120		tsbbp	lp|L34,*		" Rexp
aa 000511  000016 000001		zero	14,1
aa 000512  700004 756111		stq	sb|4,x1		" B
aa 000513  700005 450111  130		stz	sb|5,x1		" D
aa 000514  600217 236100  131		ldq	sp|143		" Symb
aa 000515  000006 116007		cmpq	6,dl		" BY_S
aa 000516  000007 601004		tnz	L54
4a 000517  400040 272120  132		tsbbp	lp|L13,*		" Nextsymb
aa 000520  000016 000000		zero	14
aa 000521  700020 450111  133		stz	sb|16,x1
4a 000522  400022 272120		tsbbp	lp|L34,*		" Rexp
aa 000523  000016 000001		zero	14,1
aa 000524  700005 756111		stq	sb|5,x1		" D
			L54:
aa 000525  600217 236100  135		ldq	sp|143		" Symb
aa 000526  000205 116007		cmpq	133,dl		" TO_S
aa 000527  000010 601004		tnz	L55
4a 000530  400040 272120  136		tsbbp	lp|L13,*		" Nextsymb
aa 000531  000016 000000		zero	14
aa 000532  700020 450111  137		stz	sb|16,x1
4a 000533  400022 272120		tsbbp	lp|L34,*		" Rexp
aa 000534  000016 000001		zero	14,1
aa 000535  700006 756111		stq	sb|6,x1		" C
aa 000536  000007 710004		tra	L56
			L55:
aa 000537  000244 236007  139		ldq	164,dl		" MissingTO
aa 000540  700020 756111		stq	sb|16,x1
4a 000541  400042 272120		tsbbp	lp|L12,*		" CaeReport
aa 000542  000016 000001		zero	14,1
aa 000543  600347 236100  140		ldq	sp|231		" ErrorNode
aa 000544  700006 756111		stq	sb|6,x1		" C
			L56:
aa 000545  600217 236100  142		ldq	sp|143		" Symb
aa 000546  000006 116007		cmpq	6,dl		" BY_S
aa 000547  000011 601004		tnz	L57
aa 000550  700005 234111		szn	sb|5,x1		" D
aa 000551  000007 601004		tnz	L57
4a 000552  400040 272120  143		tsbbp	lp|L13,*		" Nextsymb
aa 000553  000016 000000		zero	14
aa 000554  700020 450111  144		stz	sb|16,x1
4a 000555  400022 272120		tsbbp	lp|L34,*		" Rexp
aa 000556  000016 000001		zero	14,1
aa 000557  700005 756111		stq	sb|5,x1		" D
			L57:
aa 000560  600217 236100  146		ldq	sp|143		" Symb
aa 000561  000025 116007		cmpq	21,dl		" DO_S
aa 000562  000004 601004		tnz	L58
4a 000563  400040 272120  147		tsbbp	lp|L13,*		" Nextsymb
aa 000564  000016 000000		zero	14
aa 000565  000005 710004		tra	L59
			L58:
aa 000566  000236 235007  148		lda	158,dl		" MissingDO
aa 000567  700020 755111		sta	sb|16,x1
4a 000570  400042 272120		tsbbp	lp|L12,*		" CaeReport
aa 000571  000016 000001		zero	14,1
			L59:
aa 000572  000010 235007  149		lda	8,dl		" 8
aa 000573  700020 755111		sta	sb|16,x1
aa 000574  777210 272004		tsbbp	L1+2		" Rcom
aa 000575  000016 000001		zero	14,1
aa 000576  700011 756111		stq	sb|9,x1
aa 000577  700010 236111		ldq	sb|8,x1		" Op
aa 000600  700020 756111		stq	sb|16,x1
aa 000601  700007 236111		ldq	sb|7,x1		" A
aa 000602  700021 756111		stq	sb|17,x1
aa 000603  700004 236111		ldq	sb|4,x1		" B
aa 000604  700022 756111		stq	sb|18,x1
aa 000605  700006 236111		ldq	sb|6,x1		" C
aa 000606  700023 756111		stq	sb|19,x1
aa 000607  700005 236111		ldq	sb|5,x1		" D
aa 000610  700024 756111		stq	sb|20,x1
aa 000611  700011 236111		ldq	sb|9,x1
aa 000612  700025 756111		stq	sb|21,x1
4a 000613  400012 272120		tsbbp	lp|L60,*		" List6
aa 000614  000016 000006		zero	14,6
aa 000615  700007 756111		stq	sb|7,x1		" A
aa 000616  000521 710004  152		tra	L3
			L61:
4a 000617  400040 272120  155		tsbbp	lp|L13,*		" Nextsymb
aa 000620  000016 000000		zero	14
aa 000621  700010 236111  156		ldq	sb|8,x1		" Op
aa 000622  700020 756111		stq	sb|16,x1
4a 000623  400010 272120		tsbbp	lp|L62,*		" List1
aa 000624  000016 000001		zero	14,1
aa 000625  700007 756111		stq	sb|7,x1		" A
aa 000626  000511 710004  159		tra	L3
			L63:
4a 000627  400040 272120  160		tsbbp	lp|L13,*		" Nextsymb
aa 000630  000016 000000		zero	14
aa 000631  700020 450111  161		stz	sb|16,x1
4a 000632  400022 272120		tsbbp	lp|L34,*		" Rexp
aa 000633  000016 000001		zero	14,1
aa 000634  700007 756111		stq	sb|7,x1		" A
aa 000635  600217 236100  162		ldq	sp|143		" Symb
aa 000636  000062 116007		cmpq	50,dl		" INTO_S
aa 000637  000004 601004		tnz	L64
4a 000640  400040 272120  163		tsbbp	lp|L13,*		" Nextsymb
aa 000641  000016 000000		zero	14
aa 000642  000005 710004		tra	L65
			L64:
aa 000643  000240 235007  164		lda	160,dl		" MissingINTO
aa 000644  700020 755111		sta	sb|16,x1
4a 000645  400042 272120		tsbbp	lp|L12,*		" CaeReport
aa 000646  000016 000001		zero	14,1
			L65:
aa 000647  777133 371404  165		eaplb	L1		" Rcom
aa 000650  700020 545111		sprplb	sb|16,x1
aa 000651  700021 450111		stz	sb|17,x1
4a 000652  400032 272120		tsbbp	lp|L18,*		" Rblock
aa 000653  000016 000002		zero	14,2
aa 000654  700004 756111		stq	sb|4,x1		" B
aa 000655  700010 236111  166		ldq	sb|8,x1		" Op
aa 000656  700020 756111		stq	sb|16,x1
aa 000657  700007 236111		ldq	sb|7,x1		" A
aa 000660  700021 756111		stq	sb|17,x1
aa 000661  700004 236111		ldq	sb|4,x1		" B
aa 000662  700022 756111		stq	sb|18,x1
4a 000663  400030 272120		tsbbp	lp|L19,*		" List3
aa 000664  000016 000003		zero	14,3
aa 000665  700007 756111		stq	sb|7,x1		" A
aa 000666  000451 710004  169		tra	L3
			L66:
4a 000667  400040 272120  170		tsbbp	lp|L13,*		" Nextsymb
aa 000670  000016 000000		zero	14
aa 000671  700020 450111  171		stz	sb|16,x1
4a 000672  400022 272120		tsbbp	lp|L34,*		" Rexp
aa 000673  000016 000001		zero	14,1
aa 000674  700007 756111		stq	sb|7,x1		" A
aa 000675  700004 450111  172		stz	sb|4,x1		" B
aa 000676  600217 236100  173		ldq	sp|143		" Symb
aa 000677  000205 116007		cmpq	133,dl		" TO_S
aa 000700  000007 601004		tnz	L67
4a 000701  400040 272120  174		tsbbp	lp|L13,*		" Nextsymb
aa 000702  000016 000000		zero	14
aa 000703  700020 450111  175		stz	sb|16,x1
4a 000704  400022 272120		tsbbp	lp|L34,*		" Rexp
aa 000705  000016 000001		zero	14,1
aa 000706  700004 756111		stq	sb|4,x1		" B
			L67:
aa 000707  600217 236100  177		ldq	sp|143		" Symb
aa 000710  000014 116007		cmpq	12,dl		" COLON_S
aa 000711  000004 601004		tnz	L68
4a 000712  400040 272120  178		tsbbp	lp|L13,*		" Nextsymb
aa 000713  000016 000000		zero	14
aa 000714  000005 710004		tra	L69
			L68:
aa 000715  000234 235007  179		lda	156,dl		" MissingCOLON
aa 000716  700020 755111		sta	sb|16,x1
4a 000717  400042 272120		tsbbp	lp|L12,*		" CaeReport
aa 000720  000016 000001		zero	14,1
			L69:
aa 000721  700002 234111  180		szn	sb|2,x1		" n
aa 000722  000003 601004		tnz	L70
aa 000723  000004 235007		lda	4,dl		" 4
aa 000724  000002 710004		tra	L71
			L70:
aa 000725  700002 235111		lda	sb|2,x1		" n
			L71:
aa 000726  700012 755111		sta	sb|10,x1
aa 000727  700012 235111		lda	sb|10,x1
aa 000730  700011 755111		sta	sb|9,x1
aa 000731  700011 235111		lda	sb|9,x1
aa 000732  700020 755111		sta	sb|16,x1
aa 000733  777051 272004		tsbbp	L1+2		" Rcom
aa 000734  000016 000001		zero	14,1
aa 000735  700006 756111		stq	sb|6,x1		" C
aa 000736  700010 236111  181		ldq	sb|8,x1		" Op
aa 000737  700020 756111		stq	sb|16,x1
aa 000740  700007 236111		ldq	sb|7,x1		" A
aa 000741  700021 756111		stq	sb|17,x1
aa 000742  700004 236111		ldq	sb|4,x1		" B
aa 000743  700022 756111		stq	sb|18,x1
aa 000744  700006 236111		ldq	sb|6,x1		" C
aa 000745  700023 756111		stq	sb|19,x1
4a 000746  400016 272120		tsbbp	lp|L50,*		" List4
aa 000747  000016 000004		zero	14,4
aa 000750  700007 756111		stq	sb|7,x1		" A
aa 000751  000366 710004  184		tra	L3
			L72:
4a 000752  400040 272120  185		tsbbp	lp|L13,*		" Nextsymb
aa 000753  000016 000000		zero	14
aa 000754  600217 236100  186		ldq	sp|143		" Symb
aa 000755  000014 116007		cmpq	12,dl		" COLON_S
aa 000756  000004 601004		tnz	L73
4a 000757  400040 272120  187		tsbbp	lp|L13,*		" Nextsymb
aa 000760  000016 000000		zero	14
aa 000761  000005 710004		tra	L74
			L73:
aa 000762  000234 235007  188		lda	156,dl		" MissingCOLON
aa 000763  700020 755111		sta	sb|16,x1
4a 000764  400042 272120		tsbbp	lp|L12,*		" CaeReport
aa 000765  000016 000001		zero	14,1
			L74:
aa 000766  700002 234111  189		szn	sb|2,x1		" n
aa 000767  000003 601004		tnz	L75
aa 000770  000004 235007		lda	4,dl		" 4
aa 000771  000002 710004		tra	L76
			L75:
aa 000772  700002 235111		lda	sb|2,x1		" n
			L76:
aa 000773  700014 755111		sta	sb|12,x1
aa 000774  700014 235111		lda	sb|12,x1
aa 000775  700013 755111		sta	sb|11,x1
aa 000776  700013 235111		lda	sb|11,x1
aa 000777  700020 755111		sta	sb|16,x1
aa 001000  777004 272004		tsbbp	L1+2		" Rcom
aa 001001  000016 000001		zero	14,1
aa 001002  700011 756111		stq	sb|9,x1
aa 001003  700010 236111		ldq	sb|8,x1		" Op
aa 001004  700020 756111		stq	sb|16,x1
aa 001005  700011 236111		ldq	sb|9,x1
aa 001006  700021 756111		stq	sb|17,x1
4a 001007  400020 272120		tsbbp	lp|L35,*		" List2
aa 001010  000016 000002		zero	14,2
aa 001011  700007 756111		stq	sb|7,x1		" A
aa 001012  000325 710004  192		tra	L3
			L77:
aa 001013  000247 236007		ldq	167,dl		" UnrecognizedCommand
aa 001014  700020 756111		stq	sb|16,x1
4a 001015  400042 272120		tsbbp	lp|L12,*		" CaeReport
aa 001016  000016 000001		zero	14,1
			L4:
aa 001017  700007 450111  194		stz	sb|7,x1		" A
aa 001020  000070 710004  195		tra	L78
			L79:
aa 001021  000025 710004  196		tra	L81
			L82:
aa 001022  700002 234111  197		szn	sb|2,x1		" n
aa 001023  000314 600004		tze	L3
			L83:
aa 001024  700007 236111  206		ldq	sb|7,x1		" A
aa 001025  000455 710004  207		tra	L7
			L84:
4a 001026  400040 272120  208		tsbbp	lp|L13,*		" Nextsymb
aa 001027  000016 000000		zero	14
4a 001030  400036 272120  209		tsbbp	lp|L16,*		" Rdef
aa 001031  000016 000000		zero	14
aa 001032  700007 756111		stq	sb|7,x1		" A
aa 001033  000055 710004  211		tra	L78
			L85:
aa 001034  776746 371404  213		eaplb	L1		" Rcom
aa 001035  700020 545111		sprplb	sb|16,x1
aa 001036  700021 450111		stz	sb|17,x1
4a 001037  400032 272120		tsbbp	lp|L18,*		" Rblock
aa 001040  000016 000002		zero	14,2
aa 001041  700007 756111		stq	sb|7,x1		" A
aa 001042  000046 710004  215		tra	L78
			L86:
4a 001043  400040 272120		tsbbp	lp|L13,*		" Nextsymb
aa 001044  000016 000000		zero	14
aa 001045  000043 710004		tra	L80
			L81:

	"	Begin switchon

aa 001046  600217 235100		lda	sp|143		" Symb
aa 001047  000170 115007		cmpa	120,dl
aa 001050  000010 604004		tmi	L87
aa 001051  000172 115007		cmpa	122,dl
aa 001052  777752 604004		tmi	L83
aa 001053  000172 115007		cmpa	122,dl
aa 001054  777746 600004		tze	L82
aa 001055  000174 115007		cmpa	124,dl
aa 001056  777746 600004		tze	L83
aa 001057  777764 710004		tra	L86
			L87:
aa 001060  000165 115007		cmpa	117,dl
aa 001061  000004 604004		tmi	L88
aa 001062  000167 115007		cmpa	119,dl
aa 001063  777751 604004		tmi	L85
aa 001064  777757 710004		tra	L86
			L88:
aa 001065  000030 115007		cmpa	24,dl
aa 001066  000017 604004		tmi	L89
aa 001067  777735 600004		tze	L83
aa 001070  000114 115007		cmpa	76,dl
aa 001071  000003 604004		tmi	L90
aa 001072  777732 600004		tze	L83
aa 001073  777750 710004		tra	L86
			L90:
aa 001074  000070 115007		cmpa	56,dl
aa 001075  000003 604004		tmi	L91
aa 001076  777726 600004		tze	L83
aa 001077  777744 710004		tra	L86
			L91:
aa 001100  000036 115007		cmpa	30,dl
aa 001101  777723 600004		tze	L83
aa 001102  000052 115007		cmpa	42,dl
aa 001103  777721 600004		tze	L83
aa 001104  777737 710004		tra	L86
			L89:
aa 001105  000001 115007		cmpa	1,dl
aa 001106  777720 600004		tze	L84
aa 001107  777734 710004		tra	L86
			L80:
			L78:
aa 001110  000401 234004		szn	L92		" true
aa 001111  777710 601004		tnz	L79
aa 001112  000225 710004		tra	L8
			L9:

	"	Begin switchon

aa 001113  600217 235100		lda	sp|143		" Symb
aa 001114  000220 115007		cmpa	144,dl
aa 001115  777676 603004		trc	L77
0a 001116  001117 710005		tra	L93,al
			L93:
aa 001117  777674 710004		tra	L77
aa 001120  777673 710004		tra	L77
aa 001121  777672 710004		tra	L77
aa 001122  777671 710004		tra	L77
aa 001123  777670 710004		tra	L77
aa 001124  777473 710004		tra	L61
aa 001125  777666 710004		tra	L77
aa 001126  777124 710004		tra	L36
aa 001127  777540 710004		tra	L66
aa 001130  777663 710004		tra	L77
aa 001131  777662 710004		tra	L77
aa 001132  776753 710004		tra	L24
aa 001133  777660 710004		tra	L77
aa 001134  777657 710004		tra	L77
aa 001135  777656 710004		tra	L77
aa 001136  777655 710004		tra	L77
aa 001137  777654 710004		tra	L77
aa 001140  777612 710004		tra	L72
aa 001141  777652 710004		tra	L77
aa 001142  777651 710004		tra	L77
aa 001143  777650 710004		tra	L77
aa 001144  777647 710004		tra	L77
aa 001145  777646 710004		tra	L77
aa 001146  777451 710004		tra	L61
aa 001147  776734 710004		tra	L23
aa 001150  777643 710004		tra	L77
aa 001151  777642 710004		tra	L77
aa 001152  777641 710004		tra	L77
aa 001153  777640 710004		tra	L77
aa 001154  777637 710004		tra	L77
aa 001155  776642 710004		tra	L10
aa 001156  776727 710004		tra	L24
aa 001157  777440 710004		tra	L61
aa 001160  777633 710004		tra	L77
aa 001161  777632 710004		tra	L77
aa 001162  777631 710004		tra	L77
aa 001163  777630 710004		tra	L77
aa 001164  777304 710004		tra	L51
aa 001165  777626 710004		tra	L77
aa 001166  777625 710004		tra	L77
aa 001167  777624 710004		tra	L77
aa 001170  777623 710004		tra	L77
aa 001171  776626 710004		tra	L10
aa 001172  777042 710004		tra	L33
aa 001173  777620 710004		tra	L77
aa 001174  777617 710004		tra	L77
aa 001175  777073 710004		tra	L37
aa 001176  777615 710004		tra	L77
aa 001177  777614 710004		tra	L77
aa 001200  777613 710004		tra	L77
aa 001201  777612 710004		tra	L77
aa 001202  777611 710004		tra	L77
aa 001203  777610 710004		tra	L77
aa 001204  777607 710004		tra	L77
aa 001205  777606 710004		tra	L77
aa 001206  777605 710004		tra	L77
aa 001207  776610 710004		tra	L10
aa 001210  776675 710004		tra	L24
aa 001211  777602 710004		tra	L77
aa 001212  777601 710004		tra	L77
aa 001213  777600 710004		tra	L77
aa 001214  777577 710004		tra	L77
aa 001215  777402 710004		tra	L61
aa 001216  777575 710004		tra	L77
aa 001217  777574 710004		tra	L77
aa 001220  777573 710004		tra	L77
aa 001221  776664 710004		tra	L24
aa 001222  777571 710004		tra	L77
aa 001223  777570 710004		tra	L77
aa 001224  777567 710004		tra	L77
aa 001225  777566 710004		tra	L77
aa 001226  777565 710004		tra	L77
aa 001227  777564 710004		tra	L77
aa 001230  777563 710004		tra	L77
aa 001231  777562 710004		tra	L77
aa 001232  777561 710004		tra	L77
aa 001233  776564 710004		tra	L10
aa 001234  777557 710004		tra	L77
aa 001235  776650 710004		tra	L24
aa 001236  777555 710004		tra	L77
aa 001237  777554 710004		tra	L77
aa 001240  777553 710004		tra	L77
aa 001241  776644 710004		tra	L24
aa 001242  777551 710004		tra	L77
aa 001243  777550 710004		tra	L77
aa 001244  777547 710004		tra	L77
aa 001245  777546 710004		tra	L77
aa 001246  777545 710004		tra	L77
aa 001247  777544 710004		tra	L77
aa 001250  777543 710004		tra	L77
aa 001251  776634 710004		tra	L24
aa 001252  776633 710004		tra	L24
aa 001253  777540 710004		tra	L77
aa 001254  777537 710004		tra	L77
aa 001255  777536 710004		tra	L77
aa 001256  776627 710004		tra	L24
aa 001257  777534 710004		tra	L77
aa 001260  777533 710004		tra	L77
aa 001261  777532 710004		tra	L77
aa 001262  777531 710004		tra	L77
aa 001263  776622 710004		tra	L24
aa 001264  777527 710004		tra	L77
aa 001265  777526 710004		tra	L77
aa 001266  777525 710004		tra	L77
aa 001267  777524 710004		tra	L77
aa 001270  777523 710004		tra	L77
aa 001271  777522 710004		tra	L77
aa 001272  777521 710004		tra	L77
aa 001273  776741 710004		tra	L33
aa 001274  777517 710004		tra	L77
aa 001275  777322 710004		tra	L61
aa 001276  777515 710004		tra	L77
aa 001277  777514 710004		tra	L77
aa 001300  777513 710004		tra	L77
aa 001301  777512 710004		tra	L77
aa 001302  776603 710004		tra	L24
aa 001303  777510 710004		tra	L77
aa 001304  776570 710004		tra	L22
aa 001305  776567 710004		tra	L22
aa 001306  777505 710004		tra	L77
aa 001307  776574 710004		tra	L23
aa 001310  776573 710004		tra	L23
aa 001311  776554 710004		tra	L20
aa 001312  777501 710004		tra	L77
aa 001313  776504 710004		tra	L10
aa 001314  777477 710004		tra	L77
aa 001315  776570 710004		tra	L24
aa 001316  777475 710004		tra	L77
aa 001317  777310 710004		tra	L63
aa 001320  777473 710004		tra	L77
aa 001321  776564 710004		tra	L24
aa 001322  777471 710004		tra	L77
aa 001323  777004 710004		tra	L40
aa 001324  777467 710004		tra	L77
aa 001325  776560 710004		tra	L24
aa 001326  777465 710004		tra	L77
aa 001327  776741 710004		tra	L37
aa 001330  776740 710004		tra	L37
aa 001331  777462 710004		tra	L77
aa 001332  777461 710004		tra	L77
aa 001333  776552 710004		tra	L24
aa 001334  777457 710004		tra	L77
aa 001335  777456 710004		tra	L77
aa 001336  776732 710004		tra	L37
			L8:
			L3:
aa 001337  600214 236100  219		ldq	sp|140		" LineCount
aa 001340  000022 736000		qls	18
aa 001341  600217 276100		orq	sp|143		" Symb
aa 001342  700010 756111		stq	sb|8,x1		" Op
aa 001343  000065 710004  221		tra	L95
			L96:
4a 001344  400040 272120  222		tsbbp	lp|L13,*		" Nextsymb
aa 001345  000016 000000		zero	14
aa 001346  700010 236111  223		ldq	sb|8,x1		" Op
aa 001347  700020 756111		stq	sb|16,x1
aa 001350  700007 236111		ldq	sb|7,x1		" A
aa 001351  700021 756111		stq	sb|17,x1
4a 001352  400020 272120		tsbbp	lp|L35,*		" List2
aa 001353  000016 000002		zero	14,2
aa 001354  700007 756111		stq	sb|7,x1		" A
aa 001355  777762 710004  226		tra	L3
			L97:
4a 001356  400040 272120  228		tsbbp	lp|L13,*		" Nextsymb
aa 001357  000016 000000		zero	14
aa 001360  700020 450111  229		stz	sb|16,x1
4a 001361  400022 272120		tsbbp	lp|L34,*		" Rexp
aa 001362  000016 000001		zero	14,1
aa 001363  700004 756111		stq	sb|4,x1		" B
aa 001364  700010 236111  230		ldq	sb|8,x1		" Op
aa 001365  700020 756111		stq	sb|16,x1
aa 001366  700007 236111		ldq	sb|7,x1		" A
aa 001367  700021 756111		stq	sb|17,x1
aa 001370  700004 236111		ldq	sb|4,x1		" B
aa 001371  700022 756111		stq	sb|18,x1
4a 001372  400030 272120		tsbbp	lp|L19,*		" List3
aa 001373  000016 000003		zero	14,3
aa 001374  700007 756111		stq	sb|7,x1		" A
aa 001375  777742 710004  233		tra	L3
			L98:
aa 001376  700002 234111  234		szn	sb|2,x1		" n
aa 001377  000003 600004		tze	L99
aa 001400  700007 236111		ldq	sb|7,x1		" A
aa 001401  000101 710004		tra	L7
			L99:
4a 001402  400040 272120  235		tsbbp	lp|L13,*		" Nextsymb
aa 001403  000016 000000		zero	14
aa 001404  700020 450111  236		stz	sb|16,x1
aa 001405  776377 272004		tsbbp	L1+2		" Rcom
aa 001406  000016 000001		zero	14,1
aa 001407  700004 756111		stq	sb|4,x1		" B
aa 001410  700010 236111  237		ldq	sb|8,x1		" Op
aa 001411  700020 756111		stq	sb|16,x1
aa 001412  700007 236111		ldq	sb|7,x1		" A
aa 001413  700021 756111		stq	sb|17,x1
aa 001414  700004 236111		ldq	sb|4,x1		" B
aa 001415  700022 756111		stq	sb|18,x1
4a 001416  400030 272120		tsbbp	lp|L19,*		" List3
aa 001417  000016 000003		zero	14,3
aa 001420  000062 710004  239		tra	L7
			L100:
aa 001421  700007 236111  249		ldq	sb|7,x1		" A
aa 001422  000060 710004  251		tra	L7
			L101:
aa 001423  000230 235007		lda	152,dl		" IncompleteCommand
aa 001424  700020 755111		sta	sb|16,x1
4a 001425  400042 272120		tsbbp	lp|L12,*		" CaeReport
aa 001426  000016 000001		zero	14,1
aa 001427  777370 710004  252		tra	L4
			L95:

	"	Begin switchon

aa 001430  600217 235100		lda	sp|143		" Symb
aa 001431  000170 115007		cmpa	120,dl
aa 001432  000010 604004		tmi	L102
aa 001433  000172 115007		cmpa	122,dl
aa 001434  777765 604004		tmi	L100
aa 001435  000172 115007		cmpa	122,dl
aa 001436  777740 600004		tze	L98
aa 001437  000174 115007		cmpa	124,dl
aa 001440  777761 600004		tze	L100
aa 001441  777762 710004		tra	L101
			L102:
aa 001442  000152 115007		cmpa	106,dl
aa 001443  000004 604004		tmi	L103
aa 001444  000154 115007		cmpa	108,dl
aa 001445  777711 604004		tmi	L97
aa 001446  777755 710004		tra	L101
			L103:
aa 001447  000030 115007		cmpa	24,dl
aa 001450  000027 604004		tmi	L104
aa 001451  777750 600004		tze	L100
aa 001452  000043 773000		lrl	35
aa 001453  000010 507007		dvf	8,dl		" hash table size
0a 001454  001467 115006		cmpa	L105,ql
aa 001455  777746 601004		tnz	L101
0a 001456  001457 710006		tra	L106,ql
			L106:
aa 001457  777742 710004		tra	L100
aa 001460  777664 710004		tra	L96
aa 001461  777740 710004		tra	L100
aa 001462  777741 710004		tra	L101
aa 001463  777736 710004		tra	L100
aa 001464  777735 710004		tra	L100
aa 001465  777734 710004		tra	L100
aa 001466  777735 710004		tra	L101
			L105:
aa 001467  000000 000007		zero	0,7
aa 001470  000000 000015		zero	0,13
aa 001471  000000 000005		zero	0,5
aa 001472  000000 000000		zero	0
aa 001473  000000 000011		zero	0,9
aa 001474  000000 000013		zero	0,11
aa 001475  000000 000003		zero	0,3
aa 001476  000000 000000		zero	0
			L104:
aa 001477  000001 115007		cmpa	1,dl
aa 001500  777721 600004		tze	L100
aa 001501  777722 710004		tra	L101
			L94:
			L7:
aa 001502  700004 756111		stq	sb|4,x1
aa 001503  700004 236111		ldq	sb|4,x1
aa 001504  700000 762111		lprpbp	sb|0,x1		" bcpl return
aa 001505  200000 121100		sblx1	bp|0
aa 001506  700001 764111		lprplp	sb|1,x1
aa 001507  200001 710100		tra	bp|1		" end of return sequence
aa 001510  700003 756111		stq	sb|3,x1		" temporary

	"	Literal pool

			L92:
aa 001511  777777 777777		zero	-1,-1		" true
	"	Definition section part one - external entry points

5a 000000  000014 000000		" pointer to first definition
aa 000001  000000 600000		" flags: new format, ignore header
aa 000002  000000 000000		" list terminator

aa 000003  011142 143160		" "bcpl_cae2"
aa 000004  154137 143141
aa 000005  145062 000000
aa 000006  004122 143157		" "Rcom"
aa 000007  155000 000000
aa 000010  014163 171155		" "symbol_table"
aa 000011  142157 154137
aa 000012  164141 142154
aa 000013  145000 000000

	"	Segname definition for bcpl_cae2

55 000014  000017 000002		" forward, backward threads
5a 000015  000002 400003		" value defined, class flags
55 000016  000003 000017		" name pointer, first entry def

	"	Definition for Rcom

55 000017  000022 000014		" forward, backward threads
0a 000020  000002 500000		" value defined, class flags
55 000021  000006 000014		" name pointer, segname def pointer

	"	Definition for symbol_table

55 000022  000002 000017		" forward, backward threads
6a 000023  000000 400002		" value defined, class flags
55 000024  000010 000014		" name pointer, segname def pointer
	"	Definition section part two - symbolic info for external references

aa 000025  014142 143160		" "bcpl_utility"
aa 000026  154137 165164
aa 000027  151154 151164
aa 000030  171000 000000
aa 000031  005114 151163		" "List1"
aa 000032  164061 000000
5a 000033  000034 000000
aa 000034  000004 000000
55 000035  000025 000031
aa 000036  005114 151163		" "List6"
aa 000037  164066 000000
5a 000040  000041 000000
aa 000041  000004 000000
55 000042  000025 000036
aa 000043  011142 143160		" "bcpl_cae0"
aa 000044  154137 143141
aa 000045  145060 000000
aa 000046  005122 156141		" "Rname"
aa 000047  155145 000000
5a 000050  000051 000000
aa 000051  000004 000000
55 000052  000043 000046
aa 000053  005114 151163		" "List4"
aa 000054  164064 000000
5a 000055  000056 000000
aa 000056  000004 000000
55 000057  000025 000053
aa 000060  005114 151163		" "List2"
aa 000061  164062 000000
5a 000062  000063 000000
aa 000063  000004 000000
55 000064  000025 000060
aa 000065  011142 143160		" "bcpl_cae1"
aa 000066  154137 143141
aa 000067  145061 000000
aa 000070  004122 145170		" "Rexp"
aa 000071  160000 000000
5a 000072  000073 000000
aa 000073  000004 000000
55 000074  000065 000070
aa 000075  005114 151163		" "List5"
aa 000076  164065 000000
5a 000077  000100 000000
aa 000100  000004 000000
55 000101  000025 000075
aa 000102  010122 145141		" "ReadList"
aa 000103  144114 151163
aa 000104  164000 000000
5a 000105  000106 000000
aa 000106  000004 000000
55 000107  000043 000102
aa 000110  005114 151163		" "List3"
aa 000111  164063 000000
5a 000112  000113 000000
aa 000113  000004 000000
55 000114  000025 000110
aa 000115  006122 142154		" "Rblock"
aa 000116  157143 153000
5a 000117  000120 000000
aa 000120  000004 000000
55 000121  000043 000115
aa 000122  011122 144145		" "Rdeclbody"
aa 000123  143154 142157
aa 000124  144171 000000
5a 000125  000126 000000
aa 000126  000004 000000
55 000127  000043 000122
aa 000130  004122 144145		" "Rdef"
aa 000131  146000 000000
5a 000132  000133 000000
aa 000133  000004 000000
55 000134  000043 000130
aa 000135  011142 143160		" "bcpl_lex0"
aa 000136  154137 154145
aa 000137  170060 000000
aa 000140  010116 145170		" "Nextsymb"
aa 000141  164163 171155
aa 000142  142000 000000
5a 000143  000144 000000
aa 000144  000004 000000
55 000145  000135 000140
aa 000146  013142 143160		" "bcpl_report"
aa 000147  154137 162145
aa 000150  160157 162164
aa 000151  011103 141145		" "CaeReport"
aa 000152  122145 160157
aa 000153  162164 000000
5a 000154  000155 000000
aa 000155  000004 000000
55 000156  000146 000151
aa 000157  000000 000000		" padding
	"	Linkage section - static variables and external links

aa 000000  000000 000000		" linkage header
0a 000001  001512 000000		" address of defs
aa 000002  000000 000000
aa 000003  000000 000000
aa 000004  000000 000000
aa 000005  000000 000000
2a 000006  000010 000044		" offset to links, total length
aa 000007  000000 000044		" obsolete length

	"	External link pairs

			L62:
3a 000010  777770 000046		" "bcpl_utility$List1"
5a 000011  000033 000000
			L60:
3a 000012  777766 000046		" "bcpl_utility$List6"
5a 000013  000040 000000
			L52:
3a 000014  777764 000046		" "bcpl_cae0$Rname"
5a 000015  000050 000000
			L50:
3a 000016  777762 000046		" "bcpl_utility$List4"
5a 000017  000055 000000
			L35:
3a 000020  777760 000046		" "bcpl_utility$List2"
5a 000021  000062 000000
			L34:
3a 000022  777756 000046		" "bcpl_cae1$Rexp"
5a 000023  000072 000000
			L31:
3a 000024  777754 000046		" "bcpl_utility$List5"
5a 000025  000077 000000
			L25:
3a 000026  777752 000046		" "bcpl_cae0$ReadList"
5a 000027  000105 000000
			L19:
3a 000030  777750 000046		" "bcpl_utility$List3"
5a 000031  000112 000000
			L18:
3a 000032  777746 000046		" "bcpl_cae0$Rblock"
5a 000033  000117 000000
			L17:
3a 000034  777744 000046		" "bcpl_cae0$Rdeclbody"
5a 000035  000125 000000
			L16:
3a 000036  777742 000046		" "bcpl_cae0$Rdef"
5a 000037  000132 000000
			L13:
3a 000040  777740 000046		" "bcpl_lex0$Nextsymb"
5a 000041  000143 000000
			L12:
3a 000042  777736 000046		" "bcpl_report$CaeReport"
5a 000043  000154 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  433312 371141		" 01/24/75  0649.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 000161		" section header pointer, block size
aa 000020  000000 000161		" next block pointer, rel_text
aa 000021  000000 000227		" rel_def, rel_link
aa 000022  000237 000161		" 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 000050		" bcpl_cae2
aa 000027  023333 611401		" last modified on
aa 000030  000000 102333		" 01/24/75  0647.2 mst Fri
aa 000031  432366 400000
aa 000032  000112 000044		" bcpl_cae_head
aa 000033  021607 540211		" last modified on
aa 000034  000000 101621		" 05/06/74  1740.5 mst Mon
aa 000035  351400 200000
aa 000036  000123 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  000136 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  000147 000045		" bcpl_cae_codes
aa 000047  021607 540210		" last modified on
aa 000050  000000 101621		" 05/06/74  1740.5 mst Mon
aa 000051  351400 200000
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_cae2.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 137143
aa 000110  141145 062056
aa 000111  142143 160154
aa 000112  076154 144144		" ">ldd>include>bcpl_cae_head.incl.bcpl"
aa 000113  076151 156143
aa 000114  154165 144145
aa 000115  076142 143160
aa 000116  154137 143141
aa 000117  145137 150145
aa 000120  141144 056151
aa 000121  156143 154056
aa 000122  142143 160154
aa 000123  076154 144144		" ">ldd>include>bcpl_compiler_head.incl.bcpl"
aa 000124  076151 156143
aa 000125  154165 144145
aa 000126  076142 143160
aa 000127  154137 143157
aa 000130  155160 151154
aa 000131  145162 137150
aa 000132  145141 144056
aa 000133  151156 143154
aa 000134  056142 143160
aa 000135  154040 040040
aa 000136  076154 144144		" ">ldd>include>bcpl_symbols.incl.bcpl"
aa 000137  076151 156143
aa 000140  154165 144145
aa 000141  076142 143160
aa 000142  154137 163171
aa 000143  155142 157154
aa 000144  163056 151156
aa 000145  143154 056142
aa 000146  143160 154040
aa 000147  076154 144144		" ">ldd>include>bcpl_cae_codes.incl.bcpl"
aa 000150  076151 156143
aa 000151  154165 144145
aa 000152  076142 143160
aa 000153  154137 143141
aa 000154  145137 143157
aa 000155  144145 163056
aa 000156  151156 143154
aa 000157  056142 143160
aa 000160  154040 040040
	"	Relocation information


	"	text section relocation bits

aa 000161  000000 000002		" version number of rel-bits structure
aa 000162  000000 002411		" length in bits
aa 000163  740505 012000
aa 000164  050005 000123
aa 000165  601464 000024
aa 000166  000120 000123
aa 000167  601164 002474
aa 000170  021517 006720
aa 000171  247405 751701
aa 000172  172005 002400
aa 000173  002400 240120
aa 000174  000120 012005
aa 000175  000024 000517
aa 000176  006320 012005
aa 000177  170077 200517
aa 000200  014723 602064
aa 000201  002474 057500
aa 000202  050120 000024
aa 000203  012005 000005
aa 000204  002400 012005
aa 000205  000024 740215
aa 000206  002400 012000
aa 000207  247404 550005
aa 000210  000500 050024
aa 000211  000120 002400
aa 000212  051700 432001
aa 000213  200500 000500
aa 000214  240001 200024
aa 000215  740555 000500
aa 000216  012000 247404
aa 000217  550000 247402
aa 000220  150120 000120
aa 000221  012360 526074
aa 000222  453500 002400
aa 000223  240123 601064
aa 000224  000005 170057
aa 000225  200001 236026
aa 000226  600417 015600
l	"	inkage relocation bits

aa 000227  000000 000002		" version number of rel-bits structure
aa 000230  000000 000300		" length in bits
aa 000231  100002 204652
aa 000232  465246 524652
aa 000233  465246 524652
aa 000234  465246 524652
aa 000235  465246 524652
aa 000236  465200 000000
s	"	ymbol relocation bits

aa 000237  000000 000002		" version number of rel-bits structure
aa 000240  000000 000043		" length in bits
aa 000241  740365 770606
	"	Object map

aa 002200  000000 000001		" version number of object_map structure
aa 002201  157142 152137		" "obj_map "
aa 002202  155141 160040
aa 002203  000000 001512		" text offset, length
aa 002204  001512 000157		" def offset, length
aa 002205  001672 000044		" link offset, length
aa 002206  001736 000242		" symbol offset, length
aa 002207  000000 000000		" break map offset, length
aa 002210  340000 000000		" flags: ^bound, relocatable, procedure, standard
aa 002211  002200 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