Compilation listing of file >2.1spec>online>mib083074>bcpl_report.bcpl.
Compilation performed for Martinson.SysMaint.a at 01/24/75  0700.2 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	//  Error reporting routines for all phases of the BCPL compiler.
     2	//  Last modified on 06/06/74 at 18:26:13 by R F Mabee.
     3	//  Revisions for 6180 bootstrap installed with Version 3.4, R F Mabee.
     4	//  First installed as 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_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	     $)
    13	get "bcpl_lex_codes"
	     1	//  Report codes for the lexical analyzer.
	     2	//  Last modified on 07/05/73 at 23:01:26 by R F Mabee.
	     3	//  Installed on 6180 Multics as Version 3.4 by R F Mabee.
	     4	//  First installed with 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		//  100 - 149 are reserved for the lexical phase.
	    16	     $(	BadCharacter	= 100
	    17		BadDollar		= 101
	    18		BadFloat		= 102
	    19		BadNumber		= 103
	    20		BadSystemword	= 104
	    21		GetStringMissing	= 105
	    22		TokenTooLong	= 106
	    23	     $)
    14	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	     $)
    15	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	     $)
    16	get "bcpl_cg_codes"
	     1	//  Report codes for the code generation phase.
	     2	//  Last modified on 08/15/73 at 00:33:36 by R F Mabee.
	     3	//  First installed in Version 3.4 by R F Mabee.
	     4	//  Code generation error codes separated from bcpl_trans_codes in April 1973.
	     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		//  300 - 399 are reserved for CG.
	    16	     $(	BadAddress	= 300
	    17		BadLabel		= 301
	    18		BadRegOpPair	= 302
	    19		DupCase		= 303
	    20		DupLabel		= 304
	    21		LinkRefersThis	= 305
	    22		OverCase		= 306
	    23		PhaseError	= 307
	    24		UndefLab		= 308
	    25	     $)
    17	
    18	let WriteMessage (Stream, n, a, b) be
    19	     $(	let Fatal = true
    20		let s = valof switchon n into
    21		     $(	default:	resultis "Unknown error code"
    22	
    23			//  General-purpose error message.
    24			case UnexpectedCase:
    25				resultis "Internal error - case ^d not expected in ^s"
    26	
    27			//  Lexical analysis error messages.
    28			case BadCharacter:
    29				resultis "Illegal character ^o"
    30	
    31			case BadDollar:
    32				resultis "Illegal character after '$' ^o"
    33	
    34			case BadFloat:
    35				resultis "Illegal use of '.'"
    36	
    37			case BadNumber:
    38				resultis "Malformed number"
    39	
    40			case BadSystemword:
    41				resultis "Unknown system word ^s"
    42	
    43			case GetStringMissing:
    44				resultis "File name missing after 'get'"
    45	
    46			case TokenTooLong:
    47				Fatal := false
    48				resultis "String part of token exceeds implementation limit of ^d characters"
    49	
    50			//  Syntactic analysis error messages.
    51			case BlockExpected:
    52				resultis "Block expected"
    53	
    54			case ExpressionMissing:
    55				resultis "Expression missing"
    56	
    57			case IncompleteCommand:
    58				resultis "Incomplete command"
    59	
    60			case MalformedDeclaration:
    61				resultis "Malformed declaration"
    62	
    63			case MalformedTest:
    64				resultis "Malformed 'test' command"
    65	
    66			case MisplacedDeclaration:
    67				resultis "Misplaced declaration"
    68	
    69			case MissingCOLON:
    70				Fatal := false
    71				resultis "Missing colon"
    72	
    73			case MissingCOMMA:
    74				Fatal := false
    75				resultis "Missing comma"
    76	
    77			case MissingDO:
    78				Fatal := false
    79				resultis "Missing 'do'"
    80	
    81			case MissingINTO:
    82				Fatal := false
    83				resultis "Missing 'into'"
    84	
    85			case MissingRKET:
    86				Fatal := false
    87				resultis "Missing ')'"
    88	
    89			case MissingSECTKET:
    90				resultis "Closing section bracket missing"
    91	
    92			case MissingSKET:
    93				Fatal := false
    94				resultis "Missing ']'"
    95	
    96			case MissingTO:
    97				Fatal := false
    98				resultis "Missing 'to'"
    99	
   100			case NameExpected:
   101				resultis "Name expected"
   102	
   103			case PrematureTermination:
   104				resultis "Program is prematurely terminated"
   105	
   106	
   107			case UnrecognizedCommand:
   108				resultis "Unrecognized command"
   109	
   110			case ValdefExpected:
   111				resultis "'=' expected in 'for' command"
   112	
   113			//  Semantic translation error messages.
   114			case BadCall:
   115				resultis "Bad format in 'call' command"
   116	
   117			case BadDescriptors:
   118				resultis "Incompatible descriptor information in 'call' command."
   119	
   120			case BadLink:
   121				resultis "Unrecognized expression in external declaration (^s)"
   122	
   123			case Conformality:
   124				resultis "Conformality error - lists in assignment different lengths"
   125	
   126			case DupDefault:
   127				resultis "Two defaults in one switchon"
   128	
   129			case DupName:
   130				resultis "Duplicate name ^s"
   131	
   132			case FreeVar:
   133				resultis "Reference to a variable ^s local to another routine body"
   134	
   135			case LmodeRequired:
   136				resultis "Expression invalid for Lmode context (^s)"
   137	
   138			case NegVector:
   139				resultis "Vector length is negative"
   140	
   141			case NoLoop:
   142				resultis "Command ^s not inside a loop"
   143	
   144			case NoSwitch:
   145				resultis "Command ^s not inside a switchon"
   146	
   147			case NotConstant:
   148				resultis "Expression invalid for constant context (^s)"
   149	
   150			case NotInsideRtdef:
   151				resultis "Command ^s not inside a routine body"
   152	
   153			case NotName:
   154				resultis "Name expected in definition"
   155	
   156			case NoValof:
   157				resultis "Command ^s not inside a valof block"
   158	
   159			case UndefName:
   160				resultis "Undefined name ^s"
   161	
   162			case UnrecognizedExpression:
   163				resultis "Expression could not be recognized (^s)"
   164	
   165			//  Code generator error messages.
   166			case BadAddress:
   167				resultis "Compiler error: Address field too large ^o"
   168	
   169			case BadLabel:
   170				resultis "Compiler error: Internal label ^d out of range"
   171	
   172			case BadRegOpPair:
   173				resultis "Compiler error: Incompatible register/opcode pair in FormOpcode ^o/^o"
   174	
   175			case DupCase:
   176				resultis "Duplicate case constant ^d"
   177	
   178			case DupLabel:
   179				resultis "Compiler error: Internal label ^d doubly defined"
   180	
   181			case LinkRefersThis:
   182				Fatal := false
   183				resultis "External reference to same segment ^s"
   184	
   185			case OverCase:
   186				resultis "The number of cases in a switchon exceeds the implementation limit of ^d"
   187	
   188			case PhaseError:
   189				resultis "Compiler error: Discrepancy between passes detected in ^s"
   190	
   191			case UndefLab:
   192				resultis "Compiler error: Internal label ^d not defined"
   193		     $)
   194	
   195		Errorsw := Errorsw | Fatal
   196	
   197		Format (Stream, "Error ^d: ", n)
   198		Format (Stream, s, a, b)
   199		unless LineCount = 0 do Format (Stream, " in line ^d", LineCount & LineMask)
   200		let f = LineCount rshift FileShift
   201		unless f = 0 do Format (Stream, " of file ^s", FileNames!f)
   202		WriteS (Stream, ".*n")
   203	     $)
   204	
   205	let CaeReport (n, a, b) be
   206	     $(	unless QuietSw do WriteMessage (MONITOR, n, a, b)
   207		if HaveListingFile do
   208		     $(	Writech (OUTPUT, '*n')
   209			WriteMessage (OUTPUT, n, a, b)
   210		     $)
   211	     $)
   212	and Transreport (n, x) be
   213	     $(	let Id = ""
   214		unless x = 0 do
   215		     $(	Id := FindPrintName (x)
   216			if LineCount = 0 do LineCount := x!0 rshift Left
   217		     $)
   218		CaeReport (n, Id)
   219	     $)
   220	and CGreport (n, a, b) be
   221		CaeReport (n, a, b)



CAE time 3.5, 136 source lines per second.
cross reference table

a			bcpl_report:  18, 198, 205, 206, 209, 220, 221

b			bcpl_report:  18, 198, 205, 206, 209, 220, 221

BadAddress		bcpl_cg_codes:  16, bcpl_report:  166

BadCall			bcpl_trans_codes:  16, bcpl_report:  114

BadCharacter		bcpl_lex_codes:  16, bcpl_report:  28

BadDescriptors		bcpl_trans_codes:  17, bcpl_report:  117

BadDollar			bcpl_lex_codes:  17, bcpl_report:  31

BadFloat			bcpl_lex_codes:  18, bcpl_report:  34

BadLabel			bcpl_cg_codes:  17, bcpl_report:  169

BadLink			bcpl_trans_codes:  18, bcpl_report:  120

BadNumber			bcpl_lex_codes:  19, bcpl_report:  37

BadRegOpPair		bcpl_cg_codes:  18, bcpl_report:  172

BadSystemword		bcpl_lex_codes:  20, bcpl_report:  40

BlockExpected		bcpl_cae_codes:  16, bcpl_report:  51

BuildObject		bcpl_compiler_head:  72

CAE			bcpl_compiler_head:  64

CaeReport			bcpl_compiler_head:  49, bcpl_report:  205, 218, 221

CgInit			bcpl_compiler_head:  71

CGreport			bcpl_compiler_head:  51, bcpl_report:  220

Ch			bcpl_compiler_head:  92

Cleanup			bcpl_compiler_head:  61

Column			bcpl_compiler_head:  128

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

Conformality		bcpl_trans_codes:  19, bcpl_report:  123

ConvertNtoS		bcpl_compiler_head:  28

ConvertStoN		bcpl_compiler_head:  27

Crep			bcpl_compiler_head:  98

DictionaryEntry		bcpl_compiler_head:  127

DupCase			bcpl_cg_codes:  19, bcpl_report:  175

DupDefault		bcpl_trans_codes:  20, bcpl_report:  126

DupLabel			bcpl_cg_codes:  20, bcpl_report:  178

DupName			bcpl_trans_codes:  21, bcpl_report:  129

Endofstreamch		bcpl_compiler_head:  135

EnterIntoCrossreference	bcpl_compiler_head:  57

EqualString		bcpl_compiler_head:  24

Errorsw			bcpl_compiler_head:  124, bcpl_report:  195, 195

Even			bcpl_compiler_head:  136

ExpressionMissing		bcpl_cae_codes:  17, bcpl_report:  54

f			bcpl_report:  200, 201, 201

Fatal			bcpl_report:  19, 47, 70, 74, 78, 82, 86, 93, 97, 182, 195

FileCount			bcpl_compiler_head:  118

FileNames			bcpl_compiler_head:  116, bcpl_report:  201

FileShift			bcpl_compiler_head:  138, bcpl_report:  200

FilesInfo			bcpl_compiler_head:  117

FindPrintName		bcpl_compiler_head:  56, bcpl_report:  215

Format			bcpl_compiler_head:  20, bcpl_report:  197, 198, 199, 201

FormCharconst		bcpl_compiler_head:  46

FormStringconst		bcpl_compiler_head:  47

FreeVar			bcpl_trans_codes:  22, bcpl_report:  132

Freevec			bcpl_compiler_head:  34

GetStream			bcpl_compiler_head:  62

GetStringMissing		bcpl_lex_codes:  21, bcpl_report:  43

GetVersion		bcpl_compiler_head:  59

GlobalTemp		bcpl_compiler_head:  131

HaveListingFile		bcpl_compiler_head:  105, bcpl_report:  207

Id			bcpl_report:  213, 215, 218

IncompleteCommand		bcpl_cae_codes:  18, bcpl_report:  57

INPUT			bcpl_compiler_head:  90

Left			bcpl_compiler_head:  134, bcpl_report:  216

Length			bcpl_compiler_head:  29

LengthInWords		bcpl_compiler_head:  30

LexInit			bcpl_compiler_head:  65

LineCount			bcpl_compiler_head:  123, bcpl_report:  199, 199, 200, 216, 216

LineMap			bcpl_compiler_head:  100

LineMask			bcpl_compiler_head:  138, bcpl_report:  199

LinkRefersThis		bcpl_cg_codes:  21, bcpl_report:  181

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

LmodeRequired		bcpl_trans_codes:  23, bcpl_report:  135

Machine			bcpl_compiler_head:  102

MakeTimeString		bcpl_compiler_head:  44

MalformedDeclaration	bcpl_cae_codes:  19, bcpl_report:  60

MalformedTest		bcpl_cae_codes:  20, bcpl_report:  63

MisplacedDeclaration	bcpl_cae_codes:  21, bcpl_report:  66

MissingCOLON		bcpl_cae_codes:  22, bcpl_report:  69

MissingCOMMA		bcpl_cae_codes:  23, bcpl_report:  73

MissingDO			bcpl_cae_codes:  24, bcpl_report:  77

MissingINTO		bcpl_cae_codes:  26, bcpl_report:  81

MissingRKET		bcpl_cae_codes:  27, bcpl_report:  85

MissingSECTKET		bcpl_cae_codes:  28, bcpl_report:  89

MissingSKET		bcpl_cae_codes:  29, bcpl_report:  92

MissingTO			bcpl_cae_codes:  30, bcpl_report:  96

MONITOR			bcpl_compiler_head:  91, bcpl_report:  206

n			bcpl_report:  18, 20, 197, 205, 206, 209, 212, 218, 220, 221

NAMECHAIN			bcpl_compiler_head:  125

NameExpected		bcpl_cae_codes:  31, bcpl_report:  100

NegVector			bcpl_trans_codes:  24, bcpl_report:  138

Newvec			bcpl_compiler_head:  33

Nextparam			bcpl_compiler_head:  45

Nextsymb			bcpl_compiler_head:  53

NoLoop			bcpl_trans_codes:  26, bcpl_report:  141

NoSwitch			bcpl_trans_codes:  27, bcpl_report:  144

NotConstant		bcpl_trans_codes:  28, bcpl_report:  147

NotInsideRtdef		bcpl_trans_codes:  29, bcpl_report:  150

NotName			bcpl_trans_codes:  30, bcpl_report:  153

NoValof			bcpl_trans_codes:  31, bcpl_report:  156

OcodeSw			bcpl_compiler_head:  104

Optimize			bcpl_compiler_head:  101

OptionString		bcpl_compiler_head:  115

OUTPUT			bcpl_compiler_head:  89, bcpl_report:  208, 209

OverCase			bcpl_cg_codes:  22, bcpl_report:  185

Packstring		bcpl_compiler_head:  21

PhaseError		bcpl_cg_codes:  23, bcpl_report:  188

Plist			bcpl_compiler_head:  68

Pname			bcpl_compiler_head:  67

PopInput			bcpl_compiler_head:  43

PPrep			bcpl_compiler_head:  97

PrematureTermination	bcpl_cae_codes:  32, bcpl_report:  103

ProgramName		bcpl_compiler_head:  119

PushInput			bcpl_compiler_head:  42

QuietSw			bcpl_compiler_head:  106, bcpl_report:  206

RandomI			bcpl_compiler_head:  31

Readch			bcpl_compiler_head:  16

RemoveEscapes		bcpl_compiler_head:  23

Right			bcpl_compiler_head:  134

s			bcpl_report:  20, 198

StoreString		bcpl_compiler_head:  41

Stream			bcpl_report:  18, 197, 198, 199, 201, 202

Symb			bcpl_compiler_head:  126

SymbolName		bcpl_compiler_head:  55

Symbols			bcpl_compiler_head:  99

TimeNow			bcpl_compiler_head:  114

TimeNowString		bcpl_compiler_head:  113

TokenTooLong		bcpl_lex_codes:  22, bcpl_report:  46

Trans			bcpl_compiler_head:  70

Transreport		bcpl_compiler_head:  50, bcpl_report:  212

UndefLab			bcpl_cg_codes:  24, bcpl_report:  191

UndefName			bcpl_trans_codes:  32, bcpl_report:  159

UnexpectedCase		bcpl_compiler_head:  139, bcpl_report:  24

Unpackstring		bcpl_compiler_head:  22

UnrecognizedCommand		bcpl_cae_codes:  33, bcpl_report:  107

UnrecognizedExpression	bcpl_trans_codes:  33, bcpl_report:  162

UpperCase			bcpl_compiler_head:  96

UserID			bcpl_compiler_head:  120

UtilitiesInit		bcpl_compiler_head:  60

ValdefExpected		bcpl_cae_codes:  34, bcpl_report:  110

Vmax			bcpl_compiler_head:  137

Writech			bcpl_compiler_head:  17, bcpl_report:  208

WriteMessage		bcpl_report:  18, 206, 209

WriteN			bcpl_compiler_head:  19

WriteObjectListing		bcpl_compiler_head:  73

WriteS			bcpl_compiler_head:  18, bcpl_report:  202

x			bcpl_report:  212, 214, 215, 216

Xref			bcpl_compiler_head:  103




Trans time 1.7, 672 object words per second.
	"	Begin text of WriteMessage

aa 000000  000014 127162		zero	12,44658		" WriteMessage
aa 000001  151164 145115		zero	53876,51789
aa 000002  145163 163141		zero	51827,58977
aa 000003  147145 000000		zero	52837
			L1:
aa 000004  000000 213000  18		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  700425 620111		eax0	sb|277,x1
aa 000012  777760 360003		anx0	-16,du
aa 000013  700025 740100		stx0	sb|21		" end of save sequence

aa 000014  000001 336007  19		lcq	1,dl		" true
aa 000015  700006 756111		stq	sb|6,x1		" Fatal
aa 000016  000164 710004  21		tra	L7
			L8:
aa 000017  001443 350004		eapap	L9		" "Unknown error code"
aa 000020  000430 710004  24		tra	L5
			L10:
aa 000021  001425 350004  25		eapap	L11		" "Internal error - case ^d not expected in ^s"
aa 000022  000426 710004  28		tra	L5
			L12:
aa 000023  001415 350004  29		eapap	L13		" "Illegal character ^o"
aa 000024  000424 710004  31		tra	L5
			L14:
aa 000025  001403 350004  32		eapap	L15		" "Illegal character after '$' ^o"
aa 000026  000422 710004  34		tra	L5
			L16:
aa 000027  001374 350004  35		eapap	L17		" "Illegal use of '.'"
aa 000030  000420 710004  37		tra	L5
			L18:
aa 000031  001365 350004  38		eapap	L19		" "Malformed number"
aa 000032  000416 710004  40		tra	L5
			L20:
aa 000033  001355 350004  41		eapap	L21		" "Unknown system word ^s"
aa 000034  000414 710004  43		tra	L5
			L22:
aa 000035  001343 350004  44		eapap	L23		" "File name missing after 'get'"
aa 000036  000412 710004  46		tra	L5
			L24:
aa 000037  700006 450111  47		stz	sb|6,x1		" Fatal
aa 000040  001317 350004  48		eapap	L25		" "String part of token exceeds implementation limit of ^d characters"
aa 000041  000407 710004  51		tra	L5
			L26:
aa 000042  001311 350004  52		eapap	L27		" "Block expected"
aa 000043  000405 710004  54		tra	L5
			L28:
aa 000044  001302 350004  55		eapap	L29		" "Expression missing"
aa 000045  000403 710004  57		tra	L5
			L30:
aa 000046  001273 350004  58		eapap	L31		" "Incomplete command"
aa 000047  000401 710004  60		tra	L5
			L32:
aa 000050  001263 350004  61		eapap	L33		" "Malformed declaration"
aa 000051  000377 710004  63		tra	L5
			L34:
aa 000052  001252 350004  64		eapap	L35		" "Malformed 'test' command"
aa 000053  000375 710004  66		tra	L5
			L36:
aa 000054  001242 350004  67		eapap	L37		" "Misplaced declaration"
aa 000055  000373 710004  69		tra	L5
			L38:
aa 000056  700006 450111  70		stz	sb|6,x1		" Fatal
aa 000057  001233 350004  71		eapap	L39		" "Missing colon"
aa 000060  000370 710004  73		tra	L5
			L40:
aa 000061  700006 450111  74		stz	sb|6,x1		" Fatal
aa 000062  001224 350004  75		eapap	L41		" "Missing comma"
aa 000063  000365 710004  77		tra	L5
			L42:
aa 000064  700006 450111  78		stz	sb|6,x1		" Fatal
aa 000065  001215 350004  79		eapap	L43		" "Missing 'do'"
aa 000066  000362 710004  81		tra	L5
			L44:
aa 000067  700006 450111  82		stz	sb|6,x1		" Fatal
aa 000070  001206 350004  83		eapap	L45		" "Missing 'into'"
aa 000071  000357 710004  85		tra	L5
			L46:
aa 000072  700006 450111  86		stz	sb|6,x1		" Fatal
aa 000073  001177 350004  87		eapap	L47		" "Missing ')'"
aa 000074  000354 710004  89		tra	L5
			L48:
aa 000075  001164 350004  90		eapap	L49		" "Closing section bracket missing"
aa 000076  000352 710004  92		tra	L5
			L50:
aa 000077  700006 450111  93		stz	sb|6,x1		" Fatal
aa 000100  001155 350004  94		eapap	L51		" "Missing ']'"
aa 000101  000347 710004  96		tra	L5
			L52:
aa 000102  700006 450111  97		stz	sb|6,x1		" Fatal
aa 000103  001146 350004  98		eapap	L53		" "Missing 'to'"
aa 000104  000344 710004  100		tra	L5
			L54:
aa 000105  001140 350004  101		eapap	L55		" "Name expected"
aa 000106  000342 710004  103		tra	L5
			L56:
aa 000107  001125 350004  104		eapap	L57		" "Program is prematurely terminated"
aa 000110  000340 710004  107		tra	L5
			L58:
aa 000111  001115 350004  108		eapap	L59		" "Unrecognized command"
aa 000112  000336 710004  110		tra	L5
			L60:
aa 000113  001103 350004  111		eapap	L61		" "'=' expected in 'for' command"
aa 000114  000334 710004  114		tra	L5
			L62:
aa 000115  001071 350004  115		eapap	L63		" "Bad format in 'call' command"
aa 000116  000332 710004  117		tra	L5
			L64:
aa 000117  001051 350004  118		eapap	L65		" "Incompatible descriptor information in 'call' command."
aa 000120  000330 710004  120		tra	L5
			L66:
aa 000121  001031 350004  121		eapap	L67		" "Unrecognized expression in external declaration (^s)"
aa 000122  000326 710004  123		tra	L5
			L68:
aa 000123  001010 350004  124		eapap	L69		" "Conformality error - lists in assignment different lengths"
aa 000124  000324 710004  126		tra	L5
			L70:
aa 000125  000776 350004  127		eapap	L71		" "Two defaults in one switchon"
aa 000126  000322 710004  129		tra	L5
			L72:
aa 000127  000767 350004  130		eapap	L73		" "Duplicate name ^s"
aa 000130  000320 710004  132		tra	L5
			L74:
aa 000131  000746 350004  133		eapap	L75		" "Reference to a variable ^s local to another routine body"
aa 000132  000316 710004  135		tra	L5
			L76:
aa 000133  000731 350004  136		eapap	L77		" "Expression invalid for Lmode context (^s)"
aa 000134  000314 710004  138		tra	L5
			L78:
aa 000135  000720 350004  139		eapap	L79		" "Vector length is negative"
aa 000136  000312 710004  141		tra	L5
			L80:
aa 000137  000706 350004  142		eapap	L81		" "Command ^s not inside a loop"
aa 000140  000310 710004  144		tra	L5
			L82:
aa 000141  000673 350004  145		eapap	L83		" "Command ^s not inside a switchon"
aa 000142  000306 710004  147		tra	L5
			L84:
aa 000143  000655 350004  148		eapap	L85		" "Expression invalid for constant context (^s)"
aa 000144  000304 710004  150		tra	L5
			L86:
aa 000145  000641 350004  151		eapap	L87		" "Command ^s not inside a routine body"
aa 000146  000302 710004  153		tra	L5
			L88:
aa 000147  000627 350004  154		eapap	L89		" "Name expected in definition"
aa 000150  000300 710004  156		tra	L5
			L90:
aa 000151  000613 350004  157		eapap	L91		" "Command ^s not inside a valof block"
aa 000152  000276 710004  159		tra	L5
			L92:
aa 000153  000604 350004  160		eapap	L93		" "Undefined name ^s"
aa 000154  000274 710004  162		tra	L5
			L94:
aa 000155  000567 350004  163		eapap	L95		" "Expression could not be recognized (^s)"
aa 000156  000272 710004  166		tra	L5
			L96:
aa 000157  000552 350004  167		eapap	L97		" "Compiler error: Address field too large ^o"
aa 000160  000270 710004  169		tra	L5
			L98:
aa 000161  000534 350004  170		eapap	L99		" "Compiler error: Internal label ^d out of range"
aa 000162  000266 710004  172		tra	L5
			L100:
aa 000163  000510 350004  173		eapap	L101		" "Compiler error: Incompatible register/opcode pair in FormOpcode ^o/^o"
aa 000164  000264 710004  175		tra	L5
			L102:
aa 000165  000477 350004  176		eapap	L103		" "Duplicate case constant ^d"
aa 000166  000262 710004  178		tra	L5
			L104:
aa 000167  000460 350004  179		eapap	L105		" "Compiler error: Internal label ^d doubly defined"
aa 000170  000260 710004  181		tra	L5
			L106:
aa 000171  700006 450111  182		stz	sb|6,x1		" Fatal
aa 000172  000443 350004  183		eapap	L107		" "External reference to same segment ^s"
aa 000173  000255 710004  185		tra	L5
			L108:
aa 000174  000416 350004  186		eapap	L109		" "The number of cases in a switchon exceeds the implementation limit of ^d"
aa 000175  000253 710004  188		tra	L5
			L110:
aa 000176  000375 350004  189		eapap	L111		" "Compiler error: Discrepancy between passes detected in ^s"
aa 000177  000251 710004  191		tra	L5
			L112:
aa 000200  000357 350004  192		eapap	L113		" "Compiler error: Internal label ^d not defined"
aa 000201  000247 710004		tra	L5
			L7:

	"	Begin switchon

aa 000202  700003 235111		lda	sb|3,x1		" n
aa 000203  000043 773000		lrl	35
aa 000204  000120 507007		dvf	80,dl		" hash table size
0a 000205  000330 115006		cmpa	L114,ql
aa 000206  777611 601004		tnz	L8
0a 000207  000210 710006		tra	L115,ql
			L115:
aa 000210  777657 710004		tra	L44
aa 000211  777661 710004		tra	L46
aa 000212  777663 710004		tra	L48
aa 000213  777664 710004		tra	L50
aa 000214  777666 710004		tra	L52
aa 000215  777670 710004		tra	L54
aa 000216  777671 710004		tra	L56
aa 000217  777672 710004		tra	L58
aa 000220  777673 710004		tra	L60
aa 000221  777576 710004		tra	L8
aa 000222  777575 710004		tra	L8
aa 000223  777574 710004		tra	L8
aa 000224  777573 710004		tra	L8
aa 000225  777572 710004		tra	L8
aa 000226  777571 710004		tra	L8
aa 000227  777570 710004		tra	L8
aa 000230  777567 710004		tra	L8
aa 000231  777566 710004		tra	L8
aa 000232  777565 710004		tra	L8
aa 000233  777566 710004		tra	L10
aa 000234  777567 710004		tra	L12
aa 000235  777570 710004		tra	L14
aa 000236  777571 710004		tra	L16
aa 000237  777572 710004		tra	L18
aa 000240  777573 710004		tra	L20
aa 000241  777574 710004		tra	L22
aa 000242  777575 710004		tra	L24
aa 000243  777554 710004		tra	L8
aa 000244  777553 710004		tra	L8
aa 000245  777552 710004		tra	L8
aa 000246  777551 710004		tra	L8
aa 000247  777550 710004		tra	L8
aa 000250  777547 710004		tra	L8
aa 000251  777546 710004		tra	L8
aa 000252  777545 710004		tra	L8
aa 000253  777544 710004		tra	L8
aa 000254  777543 710004		tra	L8
aa 000255  777542 710004		tra	L8
aa 000256  777541 710004		tra	L8
aa 000257  777540 710004		tra	L8
aa 000260  777635 710004		tra	L62
aa 000261  777636 710004		tra	L64
aa 000262  777637 710004		tra	L66
aa 000263  777640 710004		tra	L68
aa 000264  777641 710004		tra	L70
aa 000265  777642 710004		tra	L72
aa 000266  777643 710004		tra	L74
aa 000267  777644 710004		tra	L76
aa 000270  777645 710004		tra	L78
aa 000271  777526 710004		tra	L8
aa 000272  777645 710004		tra	L80
aa 000273  777646 710004		tra	L82
aa 000274  777647 710004		tra	L84
aa 000275  777650 710004		tra	L86
aa 000276  777651 710004		tra	L88
aa 000277  777652 710004		tra	L90
aa 000300  777653 710004		tra	L92
aa 000301  777654 710004		tra	L94
aa 000302  777515 710004		tra	L8
aa 000303  777514 710004		tra	L8
aa 000304  777653 710004		tra	L96
aa 000305  777654 710004		tra	L98
aa 000306  777655 710004		tra	L100
aa 000307  777656 710004		tra	L102
aa 000310  777657 710004		tra	L104
aa 000311  777660 710004		tra	L106
aa 000312  777662 710004		tra	L108
aa 000313  777663 710004		tra	L110
aa 000314  777664 710004		tra	L112
aa 000315  777502 710004		tra	L8
aa 000316  777524 710004		tra	L26
aa 000317  777525 710004		tra	L28
aa 000320  777526 710004		tra	L30
aa 000321  777527 710004		tra	L32
aa 000322  777530 710004		tra	L34
aa 000323  777531 710004		tra	L36
aa 000324  777532 710004		tra	L38
aa 000325  777534 710004		tra	L40
aa 000326  777536 710004		tra	L42
aa 000327  777470 710004		tra	L8
			L114:
aa 000330  000000 000002		zero	0,2
aa 000331  000000 000002		zero	0,2
aa 000332  000000 000002		zero	0,2
aa 000333  000000 000002		zero	0,2
aa 000334  000000 000002		zero	0,2
aa 000335  000000 000002		zero	0,2
aa 000336  000000 000002		zero	0,2
aa 000337  000000 000002		zero	0,2
aa 000340  000000 000002		zero	0,2
aa 000341  000000 000000		zero	0
aa 000342  000000 000000		zero	0
aa 000343  000000 000000		zero	0
aa 000344  000000 000000		zero	0
aa 000345  000000 000000		zero	0
aa 000346  000000 000000		zero	0
aa 000347  000000 000000		zero	0
aa 000350  000000 000000		zero	0
aa 000351  000000 000000		zero	0
aa 000352  000000 000000		zero	0
aa 000353  000000 000001		zero	0,1
aa 000354  000000 000001		zero	0,1
aa 000355  000000 000001		zero	0,1
aa 000356  000000 000001		zero	0,1
aa 000357  000000 000001		zero	0,1
aa 000360  000000 000001		zero	0,1
aa 000361  000000 000001		zero	0,1
aa 000362  000000 000001		zero	0,1
aa 000363  000000 000000		zero	0
aa 000364  000000 000000		zero	0
aa 000365  000000 000000		zero	0
aa 000366  000000 000000		zero	0
aa 000367  000000 000000		zero	0
aa 000370  000000 000000		zero	0
aa 000371  000000 000000		zero	0
aa 000372  000000 000000		zero	0
aa 000373  000000 000000		zero	0
aa 000374  000000 000000		zero	0
aa 000375  000000 000000		zero	0
aa 000376  000000 000000		zero	0
aa 000377  000000 000000		zero	0
aa 000400  000000 000002		zero	0,2
aa 000401  000000 000002		zero	0,2
aa 000402  000000 000002		zero	0,2
aa 000403  000000 000002		zero	0,2
aa 000404  000000 000002		zero	0,2
aa 000405  000000 000002		zero	0,2
aa 000406  000000 000002		zero	0,2
aa 000407  000000 000002		zero	0,2
aa 000410  000000 000002		zero	0,2
aa 000411  000000 000000		zero	0
aa 000412  000000 000002		zero	0,2
aa 000413  000000 000002		zero	0,2
aa 000414  000000 000002		zero	0,2
aa 000415  000000 000002		zero	0,2
aa 000416  000000 000002		zero	0,2
aa 000417  000000 000002		zero	0,2
aa 000420  000000 000002		zero	0,2
aa 000421  000000 000002		zero	0,2
aa 000422  000000 000000		zero	0
aa 000423  000000 000000		zero	0
aa 000424  000000 000003		zero	0,3
aa 000425  000000 000003		zero	0,3
aa 000426  000000 000003		zero	0,3
aa 000427  000000 000003		zero	0,3
aa 000430  000000 000003		zero	0,3
aa 000431  000000 000003		zero	0,3
aa 000432  000000 000003		zero	0,3
aa 000433  000000 000003		zero	0,3
aa 000434  000000 000003		zero	0,3
aa 000435  000000 000000		zero	0
aa 000436  000000 000001		zero	0,1
aa 000437  000000 000001		zero	0,1
aa 000440  000000 000001		zero	0,1
aa 000441  000000 000001		zero	0,1
aa 000442  000000 000001		zero	0,1
aa 000443  000000 000001		zero	0,1
aa 000444  000000 000001		zero	0,1
aa 000445  000000 000001		zero	0,1
aa 000446  000000 000001		zero	0,1
aa 000447  000000 000000		zero	0
			L6:
			L5:
aa 000450  700010 540111		sprpap	sb|8,x1
aa 000451  700010 236111		ldq	sb|8,x1
aa 000452  700007 756111		stq	sb|7,x1		" s
aa 000453  700006 236111  195		ldq	sb|6,x1		" Fatal
aa 000454  600215 256100		orsq	sp|141		" Errorsw
aa 000455  700002 236111  197		ldq	sb|2,x1		" Stream
aa 000456  700014 756111		stq	sb|12,x1
aa 000457  000075 350004		eapap	L116		" "Error ^d: "
aa 000460  700015 540111		sprpap	sb|13,x1
aa 000461  700003 236111		ldq	sb|3,x1		" n
aa 000462  700016 756111		stq	sb|14,x1
4a 000463  400016 272120		tsbbp	lp|L117,*		" Format
aa 000464  000012 000003		zero	10,3
aa 000465  700002 236111  198		ldq	sb|2,x1		" Stream
aa 000466  700014 756111		stq	sb|12,x1
aa 000467  700007 236111		ldq	sb|7,x1		" s
aa 000470  700015 756111		stq	sb|13,x1
aa 000471  700004 236111		ldq	sb|4,x1		" a
aa 000472  700016 756111		stq	sb|14,x1
aa 000473  700005 236111		ldq	sb|5,x1		" b
aa 000474  700017 756111		stq	sb|15,x1
4a 000475  400016 272120		tsbbp	lp|L117,*		" Format
aa 000476  000012 000004		zero	10,4
aa 000477  600214 234100  199		szn	sp|140		" LineCount
aa 000500  000012 600004		tze	L118
aa 000501  700002 236111		ldq	sb|2,x1		" Stream
aa 000502  700014 756111		stq	sb|12,x1
aa 000503  000045 350004		eapap	L119		" " in line ^d"
aa 000504  700015 540111		sprpap	sb|13,x1
aa 000505  600214 236100		ldq	sp|140		" LineCount
aa 000506  017777 376007		anq	8191,dl		" LineMask
aa 000507  700016 756111		stq	sb|14,x1
4a 000510  400016 272120		tsbbp	lp|L117,*		" Format
aa 000511  000012 000003		zero	10,3
			L118:
aa 000512  600214 236100  200		ldq	sp|140		" LineCount
aa 000513  000015 772000		qrl	13
aa 000514  700010 756111		stq	sb|8,x1		" f
aa 000515  700010 234111  201		szn	sb|8,x1		" f
aa 000516  000013 600004		tze	L120
aa 000517  700002 236111		ldq	sb|2,x1		" Stream
aa 000520  700014 756111		stq	sb|12,x1
aa 000521  000023 350004		eapap	L121		" " of file ^s"
aa 000522  700015 540111		sprpap	sb|13,x1
aa 000523  700010 722111		lxl2	sb|8,x1		" f
aa 000524  600177 760100		lprpap	sp|127		" FileNames
aa 000525  000000 236112		ldq	ap|0,x2
aa 000526  700016 756111		stq	sb|14,x1
4a 000527  400016 272120		tsbbp	lp|L117,*		" Format
aa 000530  000012 000003		zero	10,3
			L120:
aa 000531  700002 236111  202		ldq	sb|2,x1		" Stream
aa 000532  700014 756111		stq	sb|12,x1
aa 000533  000010 352004		eapbp	L122		" ".*n"
aa 000534  700015 542111		sprpbp	sb|13,x1
4a 000535  400014 272120		tsbbp	lp|L123,*		" WriteS
aa 000536  000012 000002		zero	10,2
			L4:
aa 000537  700000 762111		lprpbp	sb|0,x1		" bcpl return
aa 000540  200000 121100		sblx1	bp|0
aa 000541  700001 764111		lprplp	sb|1,x1
aa 000542  200001 710100		tra	bp|1		" end of return sequence

	"	Literal pool

			L122:
aa 000543  000002 056012		zero	2,23562		" ".*n"
			L121:
aa 000544  000013 040157		zero	11,16495		" " of file ^s"
aa 000545  146040 146151		zero	52256,52329
aa 000546  154145 040136		zero	55397,16478
aa 000547  163000 000000		zero	58880
			L119:
aa 000550  000013 040151		zero	11,16489		" " in line ^d"
aa 000551  156040 154151		zero	56352,55401
aa 000552  156145 040136		zero	56421,16478
aa 000553  144000 000000		zero	51200
			L116:
aa 000554  000012 105162		zero	10,35442		" "Error ^d: "
aa 000555  162157 162040		zero	58479,58400
aa 000556  136144 072040		zero	48228,29728
			L113:
aa 000557  000055 103157		zero	45,34415		" "Compiler error: Internal label ^d not defined"
aa 000560  155160 151154		zero	55920,53868
aa 000561  145162 040145		zero	51826,16485
aa 000562  162162 157162		zero	58482,56946
aa 000563  072040 111156		zero	29728,37486
aa 000564  164145 162156		zero	59493,58478
aa 000565  141154 040154		zero	49772,16492
aa 000566  141142 145154		zero	49762,51820
aa 000567  040136 144040		zero	16478,51232
aa 000570  156157 164040		zero	56431,59424
aa 000571  144145 146151		zero	51301,52329
aa 000572  156145 144000		zero	56421,51200
			L111:
aa 000573  000071 103157		zero	57,34415		" "Compiler error: Discrepancy between passes detected in ^s"
aa 000574  155160 151154		zero	55920,53868
aa 000575  145162 040145		zero	51826,16485
aa 000576  162162 157162		zero	58482,56946
aa 000577  072040 104151		zero	29728,34921
aa 000600  163143 162145		zero	58979,58469
aa 000601  160141 156143		zero	57441,56419
aa 000602  171040 142145		zero	61984,50277
aa 000603  164167 145145		zero	59511,51813
aa 000604  156040 160141		zero	56352,57441
aa 000605  163163 145163		zero	58995,51827
aa 000606  040144 145164		zero	16484,51828
aa 000607  145143 164145		zero	51811,59493
aa 000610  144040 151156		zero	51232,53870
aa 000611  040136 163000		zero	16478,58880
			L109:
aa 000612  000110 124150		zero	72,43112		" "The number of cases in a switchon exceeds the implementation limit of ^d"
aa 000613  145040 156165		zero	51744,56437
aa 000614  155142 145162		zero	55906,51826
aa 000615  040157 146040		zero	16495,52256
aa 000616  143141 163145		zero	50785,58981
aa 000617  163040 151156		zero	58912,53870
aa 000620  040141 040163		zero	16481,16499
aa 000621  167151 164143		zero	61033,59491
aa 000622  150157 156040		zero	53359,56352
aa 000623  145170 143145		zero	51832,50789
aa 000624  145144 163040		zero	51812,58912
aa 000625  164150 145040		zero	59496,51744
aa 000626  151155 160154		zero	53869,57452
aa 000627  145155 145156		zero	51821,51822
aa 000630  164141 164151		zero	59489,59497
aa 000631  157156 040154		zero	56942,16492
aa 000632  151155 151164		zero	53869,53876
aa 000633  040157 146040		zero	16495,52256
aa 000634  136144 000000		zero	48228
			L107:
aa 000635  000045 105170		zero	37,35448		" "External reference to same segment ^s"
aa 000636  164145 162156		zero	59493,58478
aa 000637  141154 040162		zero	49772,16498
aa 000640  145146 145162		zero	51814,51826
aa 000641  145156 143145		zero	51822,50789
aa 000642  040164 157040		zero	16500,56864
aa 000643  163141 155145		zero	58977,55909
aa 000644  040163 145147		zero	16499,51815
aa 000645  155145 156164		zero	55909,56436
aa 000646  040136 163000		zero	16478,58880
			L105:
aa 000647  000060 103157		zero	48,34415		" "Compiler error: Internal label ^d doubly defined"
aa 000650  155160 151154		zero	55920,53868
aa 000651  145162 040145		zero	51826,16485
aa 000652  162162 157162		zero	58482,56946
aa 000653  072040 111156		zero	29728,37486
aa 000654  164145 162156		zero	59493,58478
aa 000655  141154 040154		zero	49772,16492
aa 000656  141142 145154		zero	49762,51820
aa 000657  040136 144040		zero	16478,51232
aa 000660  144157 165142		zero	51311,60002
aa 000661  154171 040144		zero	55417,16484
aa 000662  145146 151156		zero	51814,53870
aa 000663  145144 000000		zero	51812
			L103:
aa 000664  000032 104165		zero	26,34933		" "Duplicate case constant ^d"
aa 000665  160154 151143		zero	57452,53859
aa 000666  141164 145040		zero	49780,51744
aa 000667  143141 163145		zero	50785,58981
aa 000670  040143 157156		zero	16483,56942
aa 000671  163164 141156		zero	58996,49774
aa 000672  164040 136144		zero	59424,48228
			L101:
aa 000673  000105 103157		zero	69,34415		" "Compiler error: Incompatible register/opcode pair in FormOpcode ^o/^o"
aa 000674  155160 151154		zero	55920,53868
aa 000675  145162 040145		zero	51826,16485
aa 000676  162162 157162		zero	58482,56946
aa 000677  072040 111156		zero	29728,37486
aa 000700  143157 155160		zero	50799,55920
aa 000701  141164 151142		zero	49780,53858
aa 000702  154145 040162		zero	55397,16498
aa 000703  145147 151163		zero	51815,53875
aa 000704  164145 162057		zero	59493,58415
aa 000705  157160 143157		zero	56944,50799
aa 000706  144145 040160		zero	51301,16496
aa 000707  141151 162040		zero	49769,58400
aa 000710  151156 040106		zero	53870,16454
aa 000711  157162 155117		zero	56946,55887
aa 000712  160143 157144		zero	57443,56932
aa 000713  145040 136157		zero	51744,48239
aa 000714  057136 157000		zero	24158,56832
			L99:
aa 000715  000056 103157		zero	46,34415		" "Compiler error: Internal label ^d out of range"
aa 000716  155160 151154		zero	55920,53868
aa 000717  145162 040145		zero	51826,16485
aa 000720  162162 157162		zero	58482,56946
aa 000721  072040 111156		zero	29728,37486
aa 000722  164145 162156		zero	59493,58478
aa 000723  141154 040154		zero	49772,16492
aa 000724  141142 145154		zero	49762,51820
aa 000725  040136 144040		zero	16478,51232
aa 000726  157165 164040		zero	56949,59424
aa 000727  157146 040162		zero	56934,16498
aa 000730  141156 147145		zero	49774,52837
			L97:
aa 000731  000052 103157		zero	42,34415		" "Compiler error: Address field too large ^o"
aa 000732  155160 151154		zero	55920,53868
aa 000733  145162 040145		zero	51826,16485
aa 000734  162162 157162		zero	58482,56946
aa 000735  072040 101144		zero	29728,33380
aa 000736  144162 145163		zero	51314,51827
aa 000737  163040 146151		zero	58912,52329
aa 000740  145154 144040		zero	51820,51232
aa 000741  164157 157040		zero	59503,56864
aa 000742  154141 162147		zero	55393,58471
aa 000743  145040 136157		zero	51744,48239
			L95:
aa 000744  000047 105170		zero	39,35448		" "Expression could not be recognized (^s)"
aa 000745  160162 145163		zero	57458,51827
aa 000746  163151 157156		zero	58985,56942
aa 000747  040143 157165		zero	16483,56949
aa 000750  154144 040156		zero	55396,16494
aa 000751  157164 040142		zero	56948,16482
aa 000752  145040 162145		zero	51744,58469
aa 000753  143157 147156		zero	50799,52846
aa 000754  151172 145144		zero	53882,51812
aa 000755  040050 136163		zero	16424,48243
aa 000756  051000 000000		zero	20992
			L93:
aa 000757  000021 125156		zero	17,43630		" "Undefined name ^s"
aa 000760  144145 146151		zero	51301,52329
aa 000761  156145 144040		zero	56421,51232
aa 000762  156141 155145		zero	56417,55909
aa 000763  040136 163000		zero	16478,58880
			L91:
aa 000764  000043 103157		zero	35,34415		" "Command ^s not inside a valof block"
aa 000765  155155 141156		zero	55917,49774
aa 000766  144040 136163		zero	51232,48243
aa 000767  040156 157164		zero	16494,56948
aa 000770  040151 156163		zero	16489,56435
aa 000771  151144 145040		zero	53860,51744
aa 000772  141040 166141		zero	49696,60513
aa 000773  154157 146040		zero	55407,52256
aa 000774  142154 157143		zero	50284,56931
aa 000775  153000 000000		zero	54784
			L89:
aa 000776  000033 116141		zero	27,40033		" "Name expected in definition"
aa 000777  155145 040145		zero	55909,16485
aa 001000  170160 145143		zero	61552,51811
aa 001001  164145 144040		zero	59493,51232
aa 001002  151156 040144		zero	53870,16484
aa 001003  145146 151156		zero	51814,53870
aa 001004  151164 151157		zero	53876,53871
aa 001005  156000 000000		zero	56320
			L87:
aa 001006  000044 103157		zero	36,34415		" "Command ^s not inside a routine body"
aa 001007  155155 141156		zero	55917,49774
aa 001010  144040 136163		zero	51232,48243
aa 001011  040156 157164		zero	16494,56948
aa 001012  040151 156163		zero	16489,56435
aa 001013  151144 145040		zero	53860,51744
aa 001014  141040 162157		zero	49696,58479
aa 001015  165164 151156		zero	60020,53870
aa 001016  145040 142157		zero	51744,50287
aa 001017  144171 000000		zero	51321
			L85:
aa 001020  000054 105170		zero	44,35448		" "Expression invalid for constant context (^s)"
aa 001021  160162 145163		zero	57458,51827
aa 001022  163151 157156		zero	58985,56942
aa 001023  040151 156166		zero	16489,56438
aa 001024  141154 151144		zero	49772,53860
aa 001025  040146 157162		zero	16486,56946
aa 001026  040143 157156		zero	16483,56942
aa 001027  163164 141156		zero	58996,49774
aa 001030  164040 143157		zero	59424,50799
aa 001031  156164 145170		zero	56436,51832
aa 001032  164040 050136		zero	59424,20574
aa 001033  163051 000000		zero	58921
			L83:
aa 001034  000040 103157		zero	32,34415		" "Command ^s not inside a switchon"
aa 001035  155155 141156		zero	55917,49774
aa 001036  144040 136163		zero	51232,48243
aa 001037  040156 157164		zero	16494,56948
aa 001040  040151 156163		zero	16489,56435
aa 001041  151144 145040		zero	53860,51744
aa 001042  141040 163167		zero	49696,58999
aa 001043  151164 143150		zero	53876,50792
aa 001044  157156 000000		zero	56942
			L81:
aa 001045  000034 103157		zero	28,34415		" "Command ^s not inside a loop"
aa 001046  155155 141156		zero	55917,49774
aa 001047  144040 136163		zero	51232,48243
aa 001050  040156 157164		zero	16494,56948
aa 001051  040151 156163		zero	16489,56435
aa 001052  151144 145040		zero	53860,51744
aa 001053  141040 154157		zero	49696,55407
aa 001054  157160 000000		zero	56944
			L79:
aa 001055  000031 126145		zero	25,44133		" "Vector length is negative"
aa 001056  143164 157162		zero	50804,56946
aa 001057  040154 145156		zero	16492,51822
aa 001060  147164 150040		zero	52852,53280
aa 001061  151163 040156		zero	53875,16494
aa 001062  145147 141164		zero	51815,49780
aa 001063  151166 145000		zero	53878,51712
			L77:
aa 001064  000051 105170		zero	41,35448		" "Expression invalid for Lmode context (^s)"
aa 001065  160162 145163		zero	57458,51827
aa 001066  163151 157156		zero	58985,56942
aa 001067  040151 156166		zero	16489,56438
aa 001070  141154 151144		zero	49772,53860
aa 001071  040146 157162		zero	16486,56946
aa 001072  040114 155157		zero	16460,55919
aa 001073  144145 040143		zero	51301,16483
aa 001074  157156 164145		zero	56942,59493
aa 001075  170164 040050		zero	61556,16424
aa 001076  136163 051000		zero	48243,20992
			L75:
aa 001077  000070 122145		zero	56,42085		" "Reference to a variable ^s local to another routine body"
aa 001100  146145 162145		zero	52325,58469
aa 001101  156143 145040		zero	56419,51744
aa 001102  164157 040141		zero	59503,16481
aa 001103  040166 141162		zero	16502,49778
aa 001104  151141 142154		zero	53857,50284
aa 001105  145040 136163		zero	51744,48243
aa 001106  040154 157143		zero	16492,56931
aa 001107  141154 040164		zero	49772,16500
aa 001110  157040 141156		zero	56864,49774
aa 001111  157164 150145		zero	56948,53349
aa 001112  162040 162157		zero	58400,58479
aa 001113  165164 151156		zero	60020,53870
aa 001114  145040 142157		zero	51744,50287
aa 001115  144171 000000		zero	51321
			L73:
aa 001116  000021 104165		zero	17,34933		" "Duplicate name ^s"
aa 001117  160154 151143		zero	57452,53859
aa 001120  141164 145040		zero	49780,51744
aa 001121  156141 155145		zero	56417,55909
aa 001122  040136 163000		zero	16478,58880
			L71:
aa 001123  000034 124167		zero	28,43127		" "Two defaults in one switchon"
aa 001124  157040 144145		zero	56864,51301
aa 001125  146141 165154		zero	52321,60012
aa 001126  164163 040151		zero	59507,16489
aa 001127  156040 157156		zero	56352,56942
aa 001130  145040 163167		zero	51744,58999
aa 001131  151164 143150		zero	53876,50792
aa 001132  157156 000000		zero	56942
			L69:
aa 001133  000072 103157		zero	58,34415		" "Conformality error - lists in assignment different lengths"
aa 001134  156146 157162		zero	56422,56946
aa 001135  155141 154151		zero	55905,55401
aa 001136  164171 040145		zero	59513,16485
aa 001137  162162 157162		zero	58482,56946
aa 001140  040055 040154		zero	16429,16492
aa 001141  151163 164163		zero	53875,59507
aa 001142  040151 156040		zero	16489,56352
aa 001143  141163 163151		zero	49779,58985
aa 001144  147156 155145		zero	52846,55909
aa 001145  156164 040144		zero	56436,16484
aa 001146  151146 146145		zero	53862,52325
aa 001147  162145 156164		zero	58469,56436
aa 001150  040154 145156		zero	16492,51822
aa 001151  147164 150163		zero	52852,53363
			L67:
aa 001152  000064 125156		zero	52,43630		" "Unrecognized expression in external declaration (^s)"
aa 001153  162145 143157		zero	58469,50799
aa 001154  147156 151172		zero	52846,53882
aa 001155  145144 040145		zero	51812,16485
aa 001156  170160 162145		zero	61552,58469
aa 001157  163163 151157		zero	58995,53871
aa 001160  156040 151156		zero	56352,53870
aa 001161  040145 170164		zero	16485,61556
aa 001162  145162 156141		zero	51826,56417
aa 001163  154040 144145		zero	55328,51301
aa 001164  143154 141162		zero	50796,49778
aa 001165  141164 151157		zero	49780,53871
aa 001166  156040 050136		zero	56352,20574
aa 001167  163051 000000		zero	58921
			L65:
aa 001170  000066 111156		zero	54,37486		" "Incompatible descriptor information in 'call' command."
aa 001171  143157 155160		zero	50799,55920
aa 001172  141164 151142		zero	49780,53858
aa 001173  154145 040144		zero	55397,16484
aa 001174  145163 143162		zero	51827,50802
aa 001175  151160 164157		zero	53872,59503
aa 001176  162040 151156		zero	58400,53870
aa 001177  146157 162155		zero	52335,58477
aa 001200  141164 151157		zero	49780,53871
aa 001201  156040 151156		zero	56352,53870
aa 001202  040047 143141		zero	16423,50785
aa 001203  154154 047040		zero	55404,20000
aa 001204  143157 155155		zero	50799,55917
aa 001205  141156 144056		zero	49774,51246
			L63:
aa 001206  000034 102141		zero	28,33889		" "Bad format in 'call' command"
aa 001207  144040 146157		zero	51232,52335
aa 001210  162155 141164		zero	58477,49780
aa 001211  040151 156040		zero	16489,56352
aa 001212  047143 141154		zero	20067,49772
aa 001213  154047 040143		zero	55335,16483
aa 001214  157155 155141		zero	56941,55905
aa 001215  156144 000000		zero	56420
			L61:
aa 001216  000035 047075		zero	29,20029		" "'=' expected in 'for' command"
aa 001217  047040 145170		zero	20000,51832
aa 001220  160145 143164		zero	57445,50804
aa 001221  145144 040151		zero	51812,16489
aa 001222  156040 047146		zero	56352,20070
aa 001223  157162 047040		zero	56946,20000
aa 001224  143157 155155		zero	50799,55917
aa 001225  141156 144000		zero	49774,51200
			L59:
aa 001226  000024 125156		zero	20,43630		" "Unrecognized command"
aa 001227  162145 143157		zero	58469,50799
aa 001230  147156 151172		zero	52846,53882
aa 001231  145144 040143		zero	51812,16483
aa 001232  157155 155141		zero	56941,55905
aa 001233  156144 000000		zero	56420
			L57:
aa 001234  000041 120162		zero	33,41074		" "Program is prematurely terminated"
aa 001235  157147 162141		zero	56935,58465
aa 001236  155040 151163		zero	55840,53875
aa 001237  040160 162145		zero	16496,58469
aa 001240  155141 164165		zero	55905,59509
aa 001241  162145 154171		zero	58469,55417
aa 001242  040164 145162		zero	16500,51826
aa 001243  155151 156141		zero	55913,56417
aa 001244  164145 144000		zero	59493,51200
			L55:
aa 001245  000015 116141		zero	13,40033		" "Name expected"
aa 001246  155145 040145		zero	55909,16485
aa 001247  170160 145143		zero	61552,51811
aa 001250  164145 144000		zero	59493,51200
			L53:
aa 001251  000014 115151		zero	12,39529		" "Missing 'to'"
aa 001252  163163 151156		zero	58995,53870
aa 001253  147040 047164		zero	52768,20084
aa 001254  157047 000000		zero	56871
			L51:
aa 001255  000013 115151		zero	11,39529		" "Missing ']'"
aa 001256  163163 151156		zero	58995,53870
aa 001257  147040 047135		zero	52768,20061
aa 001260  047000 000000		zero	19968
			L49:
aa 001261  000037 103154		zero	31,34412		" "Closing section bracket missing"
aa 001262  157163 151156		zero	56947,53870
aa 001263  147040 163145		zero	52768,58981
aa 001264  143164 151157		zero	50804,53871
aa 001265  156040 142162		zero	56352,50290
aa 001266  141143 153145		zero	49763,54885
aa 001267  164040 155151		zero	59424,55913
aa 001270  163163 151156		zero	58995,53870
aa 001271  147000 000000		zero	52736
			L47:
aa 001272  000013 115151		zero	11,39529		" "Missing ')'"
aa 001273  163163 151156		zero	58995,53870
aa 001274  147040 047051		zero	52768,20009
aa 001275  047000 000000		zero	19968
			L45:
aa 001276  000016 115151		zero	14,39529		" "Missing 'into'"
aa 001277  163163 151156		zero	58995,53870
aa 001300  147040 047151		zero	52768,20073
aa 001301  156164 157047		zero	56436,56871
			L43:
aa 001302  000014 115151		zero	12,39529		" "Missing 'do'"
aa 001303  163163 151156		zero	58995,53870
aa 001304  147040 047144		zero	52768,20068
aa 001305  157047 000000		zero	56871
			L41:
aa 001306  000015 115151		zero	13,39529		" "Missing comma"
aa 001307  163163 151156		zero	58995,53870
aa 001310  147040 143157		zero	52768,50799
aa 001311  155155 141000		zero	55917,49664
			L39:
aa 001312  000015 115151		zero	13,39529		" "Missing colon"
aa 001313  163163 151156		zero	58995,53870
aa 001314  147040 143157		zero	52768,50799
aa 001315  154157 156000		zero	55407,56320
			L37:
aa 001316  000025 115151		zero	21,39529		" "Misplaced declaration"
aa 001317  163160 154141		zero	58992,55393
aa 001320  143145 144040		zero	50789,51232
aa 001321  144145 143154		zero	51301,50796
aa 001322  141162 141164		zero	49778,49780
aa 001323  151157 156000		zero	53871,56320
			L35:
aa 001324  000030 115141		zero	24,39521		" "Malformed 'test' command"
aa 001325  154146 157162		zero	55398,56946
aa 001326  155145 144040		zero	55909,51232
aa 001327  047164 145163		zero	20084,51827
aa 001330  164047 040143		zero	59431,16483
aa 001331  157155 155141		zero	56941,55905
aa 001332  156144 000000		zero	56420
			L33:
aa 001333  000025 115141		zero	21,39521		" "Malformed declaration"
aa 001334  154146 157162		zero	55398,56946
aa 001335  155145 144040		zero	55909,51232
aa 001336  144145 143154		zero	51301,50796
aa 001337  141162 141164		zero	49778,49780
aa 001340  151157 156000		zero	53871,56320
			L31:
aa 001341  000022 111156		zero	18,37486		" "Incomplete command"
aa 001342  143157 155160		zero	50799,55920
aa 001343  154145 164145		zero	55397,59493
aa 001344  040143 157155		zero	16483,56941
aa 001345  155141 156144		zero	55905,56420
			L29:
aa 001346  000022 105170		zero	18,35448		" "Expression missing"
aa 001347  160162 145163		zero	57458,51827
aa 001350  163151 157156		zero	58985,56942
aa 001351  040155 151163		zero	16493,53875
aa 001352  163151 156147		zero	58985,56423
			L27:
aa 001353  000016 102154		zero	14,33900		" "Block expected"
aa 001354  157143 153040		zero	56931,54816
aa 001355  145170 160145		zero	51832,57445
aa 001356  143164 145144		zero	50804,51812
			L25:
aa 001357  000102 123164		zero	66,42612		" "String part of token exceeds implementation limit of ^d characters"
aa 001360  162151 156147		zero	58473,56423
aa 001361  040160 141162		zero	16496,49778
aa 001362  164040 157146		zero	59424,56934
aa 001363  040164 157153		zero	16500,56939
aa 001364  145156 040145		zero	51822,16485
aa 001365  170143 145145		zero	61539,51813
aa 001366  144163 040151		zero	51315,16489
aa 001367  155160 154145		zero	55920,55397
aa 001370  155145 156164		zero	55909,56436
aa 001371  141164 151157		zero	49780,53871
aa 001372  156040 154151		zero	56352,55401
aa 001373  155151 164040		zero	55913,59424
aa 001374  157146 040136		zero	56934,16478
aa 001375  144040 143150		zero	51232,50792
aa 001376  141162 141143		zero	49778,49763
aa 001377  164145 162163		zero	59493,58483
			L23:
aa 001400  000035 106151		zero	29,35945		" "File name missing after 'get'"
aa 001401  154145 040156		zero	55397,16494
aa 001402  141155 145040		zero	49773,51744
aa 001403  155151 163163		zero	55913,58995
aa 001404  151156 147040		zero	53870,52768
aa 001405  141146 164145		zero	49766,59493
aa 001406  162040 047147		zero	58400,20071
aa 001407  145164 047000		zero	51828,19968
			L21:
aa 001410  000026 125156		zero	22,43630		" "Unknown system word ^s"
aa 001411  153156 157167		zero	54894,56951
aa 001412  156040 163171		zero	56352,59001
aa 001413  163164 145155		zero	58996,51821
aa 001414  040167 157162		zero	16503,56946
aa 001415  144040 136163		zero	51232,48243
			L19:
aa 001416  000020 115141		zero	16,39521		" "Malformed number"
aa 001417  154146 157162		zero	55398,56946
aa 001420  155145 144040		zero	55909,51232
aa 001421  156165 155142		zero	56437,55906
aa 001422  145162 000000		zero	51826
			L17:
aa 001423  000022 111154		zero	18,37484		" "Illegal use of '.'"
aa 001424  154145 147141		zero	55397,52833
aa 001425  154040 165163		zero	55328,60019
aa 001426  145040 157146		zero	51744,56934
aa 001427  040047 056047		zero	16423,23591
			L15:
aa 001430  000036 111154		zero	30,37484		" "Illegal character after '$' ^o"
aa 001431  154145 147141		zero	55397,52833
aa 001432  154040 143150		zero	55328,50792
aa 001433  141162 141143		zero	49778,49763
aa 001434  164145 162040		zero	59493,58400
aa 001435  141146 164145		zero	49766,59493
aa 001436  162040 047044		zero	58400,20004
aa 001437  047040 136157		zero	20000,48239
			L13:
aa 001440  000024 111154		zero	20,37484		" "Illegal character ^o"
aa 001441  154145 147141		zero	55397,52833
aa 001442  154040 143150		zero	55328,50792
aa 001443  141162 141143		zero	49778,49763
aa 001444  164145 162040		zero	59493,58400
aa 001445  136157 000000		zero	48239
			L11:
aa 001446  000053 111156		zero	43,37486		" "Internal error - case ^d not expected in ^s"
aa 001447  164145 162156		zero	59493,58478
aa 001450  141154 040145		zero	49772,16485
aa 001451  162162 157162		zero	58482,56946
aa 001452  040055 040143		zero	16429,16483
aa 001453  141163 145040		zero	49779,51744
aa 001454  136144 040156		zero	48228,16494
aa 001455  157164 040145		zero	56948,16485
aa 001456  170160 145143		zero	61552,51811
aa 001457  164145 144040		zero	59493,51232
aa 001460  151156 040136		zero	53870,16478
aa 001461  163000 000000		zero	58880
			L9:
aa 001462  000022 125156		zero	18,43630		" "Unknown error code"
aa 001463  153156 157167		zero	54894,56951
aa 001464  156040 145162		zero	56352,51826
aa 001465  162157 162040		zero	58479,58400
aa 001466  143157 144145		zero	50799,51301
	"	Begin text of CaeReport

aa 001467  000011 103141		zero	9,34401		" CaeReport
aa 001470  145122 145160		zero	51794,51824
aa 001471  157162 164000		zero	56946,59392
			L124:
aa 001472  000000 213000  205		epaq	0		" set lp to linkage section
aa 001473  700026 764161		lprplp	sb|22,*au
aa 001474  200000 021100		adlx1	bp|0		" BCPL save
aa 001475  700000 542111		sprpbp	sb|0,x1
aa 001476  700001 544111		sprplp	sb|1,x1
aa 001477  700425 620111		eax0	sb|277,x1
aa 001500  777760 360003		anx0	-16,du
aa 001501  700025 740100		stx0	sb|21		" end of save sequence

aa 001502  600157 234100  206		szn	sp|111		" QuietSw
aa 001503  000013 601004		tnz	L130
aa 001504  600042 236100		ldq	sp|34		" MONITOR
aa 001505  700010 756111		stq	sb|8,x1
aa 001506  700002 236111		ldq	sb|2,x1		" n
aa 001507  700011 756111		stq	sb|9,x1
aa 001510  700003 236111		ldq	sb|3,x1		" a
aa 001511  700012 756111		stq	sb|10,x1
aa 001512  700004 236111		ldq	sb|4,x1		" b
aa 001513  700013 756111		stq	sb|11,x1
aa 001514  776272 272004		tsbbp	L1+2		" WriteMessage
aa 001515  000006 000004		zero	6,4
			L130:
aa 001516  600156 234100  207		szn	sp|110		" HaveListingFile
aa 001517  000021 600004		tze	L131
aa 001520  600040 236100  208		ldq	sp|32		" OUTPUT
aa 001521  700010 756111		stq	sb|8,x1
aa 001522  000012 236007		ldq	10,dl		" '*n'
aa 001523  700011 756111		stq	sb|9,x1
4a 001524  400012 272120		tsbbp	lp|L132,*		" Writech
aa 001525  000006 000002		zero	6,2
aa 001526  600040 236100  209		ldq	sp|32		" OUTPUT
aa 001527  700010 756111		stq	sb|8,x1
aa 001530  700002 236111		ldq	sb|2,x1		" n
aa 001531  700011 756111		stq	sb|9,x1
aa 001532  700003 236111		ldq	sb|3,x1		" a
aa 001533  700012 756111		stq	sb|10,x1
aa 001534  700004 236111		ldq	sb|4,x1		" b
aa 001535  700013 756111		stq	sb|11,x1
aa 001536  776250 272004		tsbbp	L1+2		" WriteMessage
aa 001537  000006 000004		zero	6,4
			L131:
			L129:
aa 001540  700000 762111		lprpbp	sb|0,x1		" bcpl return
aa 001541  200000 121100		sblx1	bp|0
aa 001542  700001 764111		lprplp	sb|1,x1
aa 001543  200001 710100		tra	bp|1		" end of return sequence
	"	Begin text of Transreport

aa 001544  000013 124162		zero	11,43122		" Transreport
aa 001545  141156 163162		zero	49774,58994
aa 001546  145160 157162		zero	51824,56946
aa 001547  164000 000000		zero	59392
			L125:
aa 001550  000000 213000  212		epaq	0		" set lp to linkage section
aa 001551  700026 764161		lprplp	sb|22,*au
aa 001552  200000 021100		adlx1	bp|0		" BCPL save
aa 001553  700000 542111		sprpbp	sb|0,x1
aa 001554  700001 544111		sprplp	sb|1,x1
aa 001555  700423 620111		eax0	sb|275,x1
aa 001556  777760 360003		anx0	-16,du
aa 001557  700025 740100		stx0	sb|21		" end of save sequence

aa 001560  000031 352004  213		eapbp	L136		" ""
aa 001561  700004 542111		sprpbp	sb|4,x1		" Id
aa 001562  700003 234111  214		szn	sb|3,x1		" x
aa 001563  000014 600004		tze	L137
aa 001564  700003 236111  215		ldq	sb|3,x1		" x
aa 001565  700010 756111		stq	sb|8,x1
4a 001566  400010 272120		tsbbp	lp|L138,*		" FindPrintName
aa 001567  000006 000001		zero	6,1
aa 001570  700004 756111		stq	sb|4,x1		" Id
aa 001571  600214 234100  216		szn	sp|140		" LineCount
aa 001572  000005 601004		tnz	L139
aa 001573  700003 762111		lprpbp	sb|3,x1		" x
aa 001574  200000 236100		ldq	bp|0
aa 001575  000022 772000		qrl	18
aa 001576  600214 756100		stq	sp|140		" LineCount
			L139:
			L137:
aa 001577  700002 236111  218		ldq	sb|2,x1		" n
aa 001600  700010 756111		stq	sb|8,x1
aa 001601  700004 236111		ldq	sb|4,x1		" Id
aa 001602  700011 756111		stq	sb|9,x1
aa 001603  777671 272004		tsbbp	L124+2		" CaeReport
aa 001604  000006 000002		zero	6,2
			L135:
aa 001605  700000 762111		lprpbp	sb|0,x1		" bcpl return
aa 001606  200000 121100		sblx1	bp|0
aa 001607  700001 764111		lprplp	sb|1,x1
aa 001610  200001 710100		tra	bp|1		" end of return sequence

	"	Literal pool

			L136:
aa 001611  000000 000000		zero	0		" ""
	"	Begin text of CGreport

aa 001612  000010 103107		zero	8,34375		" CGreport
aa 001613  162145 160157		zero	58469,57455
aa 001614  162164 000000		zero	58484
			L126:
aa 001615  000000 213000  220		epaq	0		" set lp to linkage section
aa 001616  700026 764161		lprplp	sb|22,*au
aa 001617  200000 021100		adlx1	bp|0		" BCPL save
aa 001620  700000 542111		sprpbp	sb|0,x1
aa 001621  700001 544111		sprplp	sb|1,x1
aa 001622  700424 620111		eax0	sb|276,x1
aa 001623  777760 360003		anx0	-16,du
aa 001624  700025 740100		stx0	sb|21		" end of save sequence

aa 001625  700002 236111  221		ldq	sb|2,x1		" n
aa 001626  700010 756111		stq	sb|8,x1
aa 001627  700003 236111		ldq	sb|3,x1		" a
aa 001630  700011 756111		stq	sb|9,x1
aa 001631  700004 236111		ldq	sb|4,x1		" b
aa 001632  700012 756111		stq	sb|10,x1
aa 001633  777641 272004		tsbbp	L124+2		" CaeReport
aa 001634  000006 000003		zero	6,3
			L142:
aa 001635  700000 762111		lprpbp	sb|0,x1		" bcpl return
aa 001636  200000 121100		sblx1	bp|0
aa 001637  700001 764111		lprplp	sb|1,x1
aa 001640  200001 710100		tra	bp|1		" end of return sequence
aa 001641  000000 000000		" padding
	"	Definition section part one - external entry points

5a 000000  000023 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_report"
aa 000004  154137 162145
aa 000005  160157 162164
aa 000006  010103 107162		" "CGreport"
aa 000007  145160 157162
aa 000010  164000 000000
aa 000011  013124 162141		" "Transreport"
aa 000012  156163 162145
aa 000013  160157 162164
aa 000014  011103 141145		" "CaeReport"
aa 000015  122145 160157
aa 000016  162164 000000
aa 000017  014163 171155		" "symbol_table"
aa 000020  142157 154137
aa 000021  164141 142154
aa 000022  145000 000000

	"	Segname definition for bcpl_report

55 000023  000026 000002		" forward, backward threads
5a 000024  000002 400003		" value defined, class flags
55 000025  000003 000026		" name pointer, first entry def

	"	Definition for CGreport

55 000026  000031 000023		" forward, backward threads
0a 000027  001615 500000		" value defined, class flags
55 000030  000006 000023		" name pointer, segname def pointer

	"	Definition for Transreport

55 000031  000034 000026		" forward, backward threads
0a 000032  001550 500000		" value defined, class flags
55 000033  000011 000023		" name pointer, segname def pointer

	"	Definition for CaeReport

55 000034  000037 000031		" forward, backward threads
0a 000035  001472 500000		" value defined, class flags
55 000036  000014 000023		" name pointer, segname def pointer

	"	Definition for symbol_table

55 000037  000002 000034		" forward, backward threads
6a 000040  000000 400002		" value defined, class flags
55 000041  000017 000023		" name pointer, segname def pointer
	"	Definition section part two - symbolic info for external references

aa 000042  012142 143160		" "bcpl_plist"
aa 000043  154137 160154
aa 000044  151163 164000
aa 000045  015106 151156		" "FindPrintName"
aa 000046  144120 162151
aa 000047  156164 116141
aa 000050  155145 000000
5a 000051  000052 000000
aa 000052  000004 000000
55 000053  000042 000045
aa 000054  022142 143160		" "bcpl_machine_code_"
aa 000055  154137 155141
aa 000056  143150 151156
aa 000057  145137 143157
aa 000060  144145 137000
aa 000061  007127 162151		" "Writech"
aa 000062  164145 143150
5a 000063  000064 000000
aa 000064  000004 000000
55 000065  000054 000061
aa 000066  017142 143160		" "bcpl_stream_io_"
aa 000067  154137 163164
aa 000070  162145 141155
aa 000071  137151 157137
aa 000072  006127 162151		" "WriteS"
aa 000073  164145 123000
5a 000074  000075 000000
aa 000075  000004 000000
55 000076  000066 000072
aa 000077  006106 157162		" "Format"
aa 000100  155141 164000
5a 000101  000102 000000
aa 000102  000004 000000
55 000103  000066 000077
	"	Linkage section - static variables and external links

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

	"	External link pairs

			L138:
3a 000010  777770 000046		" "bcpl_plist$FindPrintName"
5a 000011  000051 000000
			L132:
3a 000012  777766 000046		" "bcpl_machine_code_$Writech"
5a 000013  000063 000000
			L123:
3a 000014  777764 000046		" "bcpl_stream_io_$WriteS"
5a 000015  000074 000000
			L117:
3a 000016  777762 000046		" "bcpl_stream_io_$Format"
5a 000017  000101 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  440205 544542		" 01/24/75  0700.2 mst Fri
aa 000010  142143 160154		" "bcpl    "
aa 000011  040040 040040
aa 000012  000056 000035		" compiler version name - pointer, length
aa 000013  000066 000024		" user id - pointer, length
aa 000014  000073 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 000201		" section header pointer, block size
aa 000020  000000 000201		" next block pointer, rel_text
aa 000021  000000 000210		" rel_def, rel_link
aa 000022  000214 000201		" rel_symbol, default truncate
aa 000023  000024 000000		" optional truncate, unused
aa 000024  000000 000001		" source files map: version number
aa 000025  000000 000006		"                   number of files
aa 000026  000104 000052		" bcpl_report
aa 000027  023333 611427		" last modified on
aa 000030  000000 102333		" 01/24/75  0647.2 mst Fri
aa 000031  432366 600000
aa 000032  000117 000051		" bcpl_compiler_head
aa 000033  021607 540214		" last modified on
aa 000034  000000 101621		" 05/06/74  1740.6 mst Mon
aa 000035  351403 200000
aa 000036  000132 000045		" bcpl_lex_codes
aa 000037  021607 540215		" last modified on
aa 000040  000000 101621		" 05/06/74  1740.7 mst Mon
aa 000041  351432 600000
aa 000042  000144 000045		" bcpl_cae_codes
aa 000043  021607 540210		" last modified on
aa 000044  000000 101621		" 05/06/74  1740.5 mst Mon
aa 000045  351400 200000
aa 000046  000156 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  000170 000044		" bcpl_cg_codes
aa 000053  021607 540212		" last modified on
aa 000054  000000 101621		" 05/06/74  1740.6 mst Mon
aa 000055  351402 400000
aa 000056  102103 120114		" "BCPL version 3.4, August 1973"
aa 000057  040166 145162
aa 000060  163151 157156
aa 000061  040063 056064
aa 000062  054040 101165
aa 000063  147165 163164
aa 000064  040061 071067
aa 000065  063040 040040
aa 000066  115141 162164		" "Martinson.SysMaint.a"
aa 000067  151156 163157
aa 000070  156056 123171
aa 000071  163115 141151
aa 000072  156164 056141
aa 000073  163157 165162		" "source  xref  alist  optimize  6180"
aa 000074  143145 040040
aa 000075  170162 145146
aa 000076  040040 141154
aa 000077  151163 164040
aa 000100  040157 160164
aa 000101  151155 151172
aa 000102  145040 040066
aa 000103  061070 060040
aa 000104  076062 056061		" ">2.1spec>online>mib083074>bcpl_report.bcpl"
aa 000105  163160 145143
aa 000106  076157 156154
aa 000107  151156 145076
aa 000110  155151 142060
aa 000111  070063 060067
aa 000112  064076 142143
aa 000113  160154 137162
aa 000114  145160 157162
aa 000115  164056 142143
aa 000116  160154 040040
aa 000117  076154 144144		" ">ldd>include>bcpl_compiler_head.incl.bcpl"
aa 000120  076151 156143
aa 000121  154165 144145
aa 000122  076142 143160
aa 000123  154137 143157
aa 000124  155160 151154
aa 000125  145162 137150
aa 000126  145141 144056
aa 000127  151156 143154
aa 000130  056142 143160
aa 000131  154040 040040
aa 000132  076154 144144		" ">ldd>include>bcpl_lex_codes.incl.bcpl"
aa 000133  076151 156143
aa 000134  154165 144145
aa 000135  076142 143160
aa 000136  154137 154145
aa 000137  170137 143157
aa 000140  144145 163056
aa 000141  151156 143154
aa 000142  056142 143160
aa 000143  154040 040040
aa 000144  076154 144144		" ">ldd>include>bcpl_cae_codes.incl.bcpl"
aa 000145  076151 156143
aa 000146  154165 144145
aa 000147  076142 143160
aa 000150  154137 143141
aa 000151  145137 143157
aa 000152  144145 163056
aa 000153  151156 143154
aa 000154  056142 143160
aa 000155  154040 040040
aa 000156  076154 144144		" ">ldd>include>bcpl_trans_codes.incl.bcpl"
aa 000157  076151 156143
aa 000160  154165 144145
aa 000161  076142 143160
aa 000162  154137 164162
aa 000163  141156 163137
aa 000164  143157 144145
aa 000165  163056 151156
aa 000166  143154 056142
aa 000167  143160 154040
aa 000170  076154 144144		" ">ldd>include>bcpl_cg_codes.incl.bcpl"
aa 000171  076151 156143
aa 000172  154165 144145
aa 000173  076142 143160
aa 000174  154137 143147
aa 000175  137143 157144
aa 000176  145163 056151
aa 000177  156143 154056
aa 000200  142143 160154
	"	Relocation information


	"	text section relocation bits

aa 000201  000000 000002		" version number of rel-bits structure
aa 000202  000000 000263		" length in bits
aa 000203  744124 010362
aa 000204  536474 023517
aa 000205  005323 601664
aa 000206  000123 676664
aa 000207  741035 170256
l	"	inkage relocation bits

aa 000210  000000 000002		" version number of rel-bits structure
aa 000211  000000 000110		" length in bits
aa 000212  100002 204652
aa 000213  465246 524652
s	"	ymbol relocation bits

aa 000214  000000 000002		" version number of rel-bits structure
aa 000215  000000 000043		" length in bits
aa 000216  740365 770706
	"	Object map

aa 002205  000000 000001		" version number of object_map structure
aa 002206  157142 152137		" "obj_map "
aa 002207  155141 160040
aa 002210  000000 001641		" text offset, length
aa 002211  001642 000104		" def offset, length
aa 002212  001746 000020		" link offset, length
aa 002213  001766 000217		" symbol offset, length
aa 002214  000000 000000		" break map offset, length
aa 002215  340000 000000		" flags: ^bound, relocatable, procedure, standard
aa 002216  002205 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