DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦41fa22faf⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5813       |X   |		.CONST	0x5813								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 03f8       |    |		.CONST	0x03f8								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 01a8       |    |		.CONST	0x01a8								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0022       | "  |		.CONST	0x0022								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1								; Debug Table 0x0 = .DEBUG	0x000b,0x0472,0x8000,0x0000,0x005a,0x6a65,0x0000,0x000b
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
000d 0129       | )  |		Execute	Any,Make_Visible
000e 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xe,0xffff
0010 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0x10,0xfffe
0012 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x12,0xfffd
0014 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x14,0xfffc
0016 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x16,0xfffb
0018 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x18,0xfffa
001a 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x1a,0xfff9
001c 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x1c,0xffff
001e 029a 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x9 = 0x1e,0xfffe
0020 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xa = 0x20,0xfffd
0022 00bf       |    |		Action	Accept_Activation
0023 e002       |    |		Load	0x0,0x2								; Debug Table 0x1 = .DEBUG	0x0023,0x048a,0x8000,0x0000,0x005a,0x7085,0x0000,0x000b
													; Debug Table 0x1.0x0 = 0x23,0xffff
0024 1922       | "  |		Execute	Package,Field_Reference,Field_Number 0x22
0025 0007       |    |		Action	Break_Optional
0026 e20d       |    |		Load	0x1,0xd								; Debug Table 0x1.0x1 = 0x26,0xfffe
0027 02c7       |    |		Declare_Variable	Any
0028 4803       |H   |		Short_Literal	0x3
0029 0092 02f4  |    |		Action	Push_String_Extended,0x2f4					; "all_purpose_fatal"
002b 8218       |    |		Call	0x1,0x18
002c c219       |    |		Store	0x1,0x19
002d e20d       |    |		Load	0x1,0xd								; Debug Table 0x1.0x2 = 0x2d,0xfffd
002e 02c7       |    |		Declare_Variable	Any
002f 4802       |H   |		Short_Literal	0x2
0030 0092 02f5  |    |		Action	Push_String_Extended,0x2f5					; "all_purpose_error"
0032 8218       |    |		Call	0x1,0x18
0033 c21a       |    |		Store	0x1,0x1a
0034 e20d       |    |		Load	0x1,0xd								; Debug Table 0x1.0x3 = 0x34,0xfffc
0035 02c7       |    |		Declare_Variable	Any
0036 4801       |H   |		Short_Literal	0x1
0037 0092 02f6  |    |		Action	Push_String_Extended,0x2f6					; "all_purpose_warning"
0039 8218       |    |		Call	0x1,0x18
003a c21b       |    |		Store	0x1,0x1b
003b e20d       |    |		Load	0x1,0xd								; Debug Table 0x1.0x4 = 0x3b,0xfffb
003c 02c7       |    |		Declare_Variable	Any
003d 4802       |H   |		Short_Literal	0x2
003e 0092 02f7  |    |		Action	Push_String_Extended,0x2f7					; "Unimplemented"
0040 8218       |    |		Call	0x1,0x18
0041 c21c       |    |		Store	0x1,0x1c
0042 e20d       |    |		Load	0x1,0xd								; Debug Table 0x1.0x5 = 0x42,0xfffa
0043 02c7       |    |		Declare_Variable	Any
0044 4802       |H   |		Short_Literal	0x2
0045 0092 02f8  |    |		Action	Push_String_Extended,0x2f8					; "Internal_Error"
0047 8218       |    |		Call	0x1,0x18
0048 c21d       |    |		Store	0x1,0x1d
0049 e003       |    |		Load	0x0,0x3								; Debug Table 0x1.0x6 = 0x49,0xfff9
004a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
004b 0266       | f  |		Execute	Discrete,Bounds
004c e20d       |    |		Load	0x1,0xd
004d 029f 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Call
004f 4801       |H   |		Short_Literal	0x1
0050 035d       | ]  |		Declare_Type	Array,Defined
0051 00d8       |    |		Load_Top	At_Offset_0
0052 0337       | 7  |		Declare_Variable	Array
0053 00d8       |    |		Load_Top	At_Offset_0
0054 0337       | 7  |		Declare_Variable	Array
0055 4800       |H   |		Short_Literal	0x0
0056 0092 02f9  |    |		Action	Push_String_Extended,0x2f9					; "Successful"
0058 8218       |    |		Call	0x1,0x18
0059 e002       |    |		Load	0x0,0x2
005a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
005b 0119       |    |		Execute	Any,Check_In_Formal_Type
005c 4800       |H   |		Short_Literal	0x0
005d 00da       |    |		Load_Top	At_Offset_2
005e 01d6       |    |		Execute	Vector,Field_Write
005f 4802       |H   |		Short_Literal	0x2
0060 0092 02fa  |    |		Action	Push_String_Extended,0x2fa					; "Lock_Error"
0062 8218       |    |		Call	0x1,0x18
0063 e002       |    |		Load	0x0,0x2
0064 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0065 0119       |    |		Execute	Any,Check_In_Formal_Type
0066 4801       |H   |		Short_Literal	0x1
0067 00da       |    |		Load_Top	At_Offset_2
0068 01d6       |    |		Execute	Vector,Field_Write
0069 4802       |H   |		Short_Literal	0x2
006a 0092 02fb  |    |		Action	Push_String_Extended,0x2fb					; "Semantic_Error"
006c 8218       |    |		Call	0x1,0x18
006d e002       |    |		Load	0x0,0x2
006e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006f 0119       |    |		Execute	Any,Check_In_Formal_Type
0070 4802       |H   |		Short_Literal	0x2
0071 00da       |    |		Load_Top	At_Offset_2
0072 01d6       |    |		Execute	Vector,Field_Write
0073 4802       |H   |		Short_Literal	0x2
0074 0092 02fc  |    |		Action	Push_String_Extended,0x2fc					; "Code_Generation_Error"
0076 8218       |    |		Call	0x1,0x18
0077 e002       |    |		Load	0x0,0x2
0078 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0079 0119       |    |		Execute	Any,Check_In_Formal_Type
007a 4803       |H   |		Short_Literal	0x3
007b 00da       |    |		Load_Top	At_Offset_2
007c 01d6       |    |		Execute	Vector,Field_Write
007d 4802       |H   |		Short_Literal	0x2
007e 0092 02fd  |    |		Action	Push_String_Extended,0x2fd					; "Obsolescence_Error"
0080 8218       |    |		Call	0x1,0x18
0081 e002       |    |		Load	0x0,0x2
0082 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0083 0119       |    |		Execute	Any,Check_In_Formal_Type
0084 4804       |H   |		Short_Literal	0x4
0085 00da       |    |		Load_Top	At_Offset_2
0086 01d6       |    |		Execute	Vector,Field_Write
0087 4802       |H   |		Short_Literal	0x2
0088 0092 02fe  |    |		Action	Push_String_Extended,0x2fe					; "Bad_Tree_Parameter"
008a 8218       |    |		Call	0x1,0x18
008b e002       |    |		Load	0x0,0x2
008c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
008d 0119       |    |		Execute	Any,Check_In_Formal_Type
008e 4805       |H   |		Short_Literal	0x5
008f 00da       |    |		Load_Top	At_Offset_2
0090 01d6       |    |		Execute	Vector,Field_Write
0091 4802       |H   |		Short_Literal	0x2
0092 0092 02ff  |    |		Action	Push_String_Extended,0x2ff					; "Illegal_Operation"
0094 8218       |    |		Call	0x1,0x18
0095 e002       |    |		Load	0x0,0x2
0096 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0097 0119       |    |		Execute	Any,Check_In_Formal_Type
0098 4806       |H   |		Short_Literal	0x6
0099 00da       |    |		Load_Top	At_Offset_2
009a 01d6       |    |		Execute	Vector,Field_Write
009b 4802       |H   |		Short_Literal	0x2
009c 0092 0300  |    |		Action	Push_String_Extended,0x300					; "Consistency_Error"
009e 8218       |    |		Call	0x1,0x18
009f e002       |    |		Load	0x0,0x2
00a0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a1 0119       |    |		Execute	Any,Check_In_Formal_Type
00a2 4807       |H   |		Short_Literal	0x7
00a3 00da       |    |		Load_Top	At_Offset_2
00a4 01d6       |    |		Execute	Vector,Field_Write
00a5 4802       |H   |		Short_Literal	0x2
00a6 0092 0301  |    |		Action	Push_String_Extended,0x301					; "Version_Error"
00a8 8218       |    |		Call	0x1,0x18
00a9 e002       |    |		Load	0x0,0x2
00aa 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ab 0119       |    |		Execute	Any,Check_In_Formal_Type
00ac 4808       |H   |		Short_Literal	0x8
00ad 00da       |    |		Load_Top	At_Offset_2
00ae 01d6       |    |		Execute	Vector,Field_Write
00af 4802       |H   |		Short_Literal	0x2
00b0 0092 0302  |    |		Action	Push_String_Extended,0x302					; "Name_Error"
00b2 8218       |    |		Call	0x1,0x18
00b3 e002       |    |		Load	0x0,0x2
00b4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00b5 0119       |    |		Execute	Any,Check_In_Formal_Type
00b6 4809       |H   |		Short_Literal	0x9
00b7 00da       |    |		Load_Top	At_Offset_2
00b8 01d6       |    |		Execute	Vector,Field_Write
00b9 4802       |H   |		Short_Literal	0x2
00ba 0092 0303  |    |		Action	Push_String_Extended,0x303					; "Access_Error"
00bc 8218       |    |		Call	0x1,0x18
00bd e002       |    |		Load	0x0,0x2
00be 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00bf 0119       |    |		Execute	Any,Check_In_Formal_Type
00c0 480a       |H   |		Short_Literal	0xa
00c1 00da       |    |		Load_Top	At_Offset_2
00c2 01d6       |    |		Execute	Vector,Field_Write
00c3 4802       |H   |		Short_Literal	0x2
00c4 0092 0304  |    |		Action	Push_String_Extended,0x304					; "Policy_Error"
00c6 8218       |    |		Call	0x1,0x18
00c7 e002       |    |		Load	0x0,0x2
00c8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c9 0119       |    |		Execute	Any,Check_In_Formal_Type
00ca 480b       |H   |		Short_Literal	0xb
00cb 00da       |    |		Load_Top	At_Offset_2
00cc 01d6       |    |		Execute	Vector,Field_Write
00cd 4802       |H   |		Short_Literal	0x2
00ce 0092 0305  |    |		Action	Push_String_Extended,0x305					; "Bad_Action"
00d0 8218       |    |		Call	0x1,0x18
00d1 e002       |    |		Load	0x0,0x2
00d2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00d3 0119       |    |		Execute	Any,Check_In_Formal_Type
00d4 480c       |H   |		Short_Literal	0xc
00d5 00da       |    |		Load_Top	At_Offset_2
00d6 01d6       |    |		Execute	Vector,Field_Write
00d7 4802       |H   |		Short_Literal	0x2
00d8 0092 0306  |    |		Action	Push_String_Extended,0x306					; "Class_Error"
00da 8218       |    |		Call	0x1,0x18
00db e002       |    |		Load	0x0,0x2
00dc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00dd 0119       |    |		Execute	Any,Check_In_Formal_Type
00de 480d       |H   |		Short_Literal	0xd
00df 00da       |    |		Load_Top	At_Offset_2
00e0 01d6       |    |		Execute	Vector,Field_Write
00e1 4802       |H   |		Short_Literal	0x2
00e2 0092 0307  |    |		Action	Push_String_Extended,0x307					; "Other_Error"
00e4 8218       |    |		Call	0x1,0x18
00e5 e002       |    |		Load	0x0,0x2
00e6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00e7 0119       |    |		Execute	Any,Check_In_Formal_Type
00e8 480e       |H   |		Short_Literal	0xe
00e9 00da       |    |		Load_Top	At_Offset_2
00ea 01d6       |    |		Execute	Vector,Field_Write
00eb 00d9       |    |		Load_Top	At_Offset_1
00ec 01d4       |    |		Execute	Vector,Structure_Write
00ed e003       |    |		Load	0x0,0x3								; Debug Table 0x1.0x7 = 0xed,0xfff8
00ee 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00ef 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00f0 0266       | f  |		Execute	Discrete,Bounds
00f1 e20d       |    |		Load	0x1,0xd
00f2 029f 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Call
00f4 4801       |H   |		Short_Literal	0x1
00f5 035d       | ]  |		Declare_Type	Array,Defined
00f6 00d8       |    |		Load_Top	At_Offset_0
00f7 0337       | 7  |		Declare_Variable	Array
00f8 00d8       |    |		Load_Top	At_Offset_0
00f9 0337       | 7  |		Declare_Variable	Array
00fa 4800       |H   |		Short_Literal	0x0
00fb 0092 02f9  |    |		Action	Push_String_Extended,0x2f9					; "Successful"
00fd 8218       |    |		Call	0x1,0x18
00fe e002       |    |		Load	0x0,0x2
00ff 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0100 0119       |    |		Execute	Any,Check_In_Formal_Type
0101 4800       |H   |		Short_Literal	0x0
0102 00da       |    |		Load_Top	At_Offset_2
0103 01d6       |    |		Execute	Vector,Field_Write
0104 4802       |H   |		Short_Literal	0x2
0105 0092 0308  |    |		Action	Push_String_Extended,0x308					; "Bad_Context"
0107 8218       |    |		Call	0x1,0x18
0108 e002       |    |		Load	0x0,0x2
0109 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
010a 0119       |    |		Execute	Any,Check_In_Formal_Type
010b 4801       |H   |		Short_Literal	0x1
010c 00da       |    |		Load_Top	At_Offset_2
010d 01d6       |    |		Execute	Vector,Field_Write
010e 4802       |H   |		Short_Literal	0x2
010f 0092 0309  |    |		Action	Push_String_Extended,0x309					; "Ill_Formed_Name"
0111 8218       |    |		Call	0x1,0x18
0112 e002       |    |		Load	0x0,0x2
0113 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0114 0119       |    |		Execute	Any,Check_In_Formal_Type
0115 4802       |H   |		Short_Literal	0x2
0116 00da       |    |		Load_Top	At_Offset_2
0117 01d6       |    |		Execute	Vector,Field_Write
0118 4802       |H   |		Short_Literal	0x2
0119 0092 030a  |    |		Action	Push_String_Extended,0x30a					; "Undefined"
011b 8218       |    |		Call	0x1,0x18
011c e002       |    |		Load	0x0,0x2
011d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
011e 0119       |    |		Execute	Any,Check_In_Formal_Type
011f 4803       |H   |		Short_Literal	0x3
0120 00da       |    |		Load_Top	At_Offset_2
0121 01d6       |    |		Execute	Vector,Field_Write
0122 4802       |H   |		Short_Literal	0x2
0123 0092 02fa  |    |		Action	Push_String_Extended,0x2fa					; "Lock_Error"
0125 8218       |    |		Call	0x1,0x18
0126 e002       |    |		Load	0x0,0x2
0127 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0128 0119       |    |		Execute	Any,Check_In_Formal_Type
0129 4804       |H   |		Short_Literal	0x4
012a 00da       |    |		Load_Top	At_Offset_2
012b 01d6       |    |		Execute	Vector,Field_Write
012c 4802       |H   |		Short_Literal	0x2
012d 0092 0303  |    |		Action	Push_String_Extended,0x303					; "Access_Error"
012f 8218       |    |		Call	0x1,0x18
0130 e002       |    |		Load	0x0,0x2
0131 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0132 0119       |    |		Execute	Any,Check_In_Formal_Type
0133 4805       |H   |		Short_Literal	0x5
0134 00da       |    |		Load_Top	At_Offset_2
0135 01d6       |    |		Execute	Vector,Field_Write
0136 4802       |H   |		Short_Literal	0x2
0137 0092 030b  |    |		Action	Push_String_Extended,0x30b					; "Ambiguous"
0139 8218       |    |		Call	0x1,0x18
013a e002       |    |		Load	0x0,0x2
013b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
013c 0119       |    |		Execute	Any,Check_In_Formal_Type
013d 4806       |H   |		Short_Literal	0x6
013e 00da       |    |		Load_Top	At_Offset_2
013f 01d6       |    |		Execute	Vector,Field_Write
0140 4802       |H   |		Short_Literal	0x2
0141 0092 030c  |    |		Action	Push_String_Extended,0x30c					; "No_Selection"
0143 8218       |    |		Call	0x1,0x18
0144 e002       |    |		Load	0x0,0x2
0145 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0146 0119       |    |		Execute	Any,Check_In_Formal_Type
0147 4807       |H   |		Short_Literal	0x7
0148 00da       |    |		Load_Top	At_Offset_2
0149 01d6       |    |		Execute	Vector,Field_Write
014a 4802       |H   |		Short_Literal	0x2
014b 0092 030d  |    |		Action	Push_String_Extended,0x30d					; "Cursor_Not_In_Selection"
014d 8218       |    |		Call	0x1,0x18
014e e002       |    |		Load	0x0,0x2
014f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0150 0119       |    |		Execute	Any,Check_In_Formal_Type
0151 4808       |H   |		Short_Literal	0x8
0152 00da       |    |		Load_Top	At_Offset_2
0153 01d6       |    |		Execute	Vector,Field_Write
0154 4802       |H   |		Short_Literal	0x2
0155 0092 030e  |    |		Action	Push_String_Extended,0x30e					; "Selections_Not_Supported"
0157 8218       |    |		Call	0x1,0x18
0158 e002       |    |		Load	0x0,0x2
0159 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
015a 0119       |    |		Execute	Any,Check_In_Formal_Type
015b 4809       |H   |		Short_Literal	0x9
015c 00da       |    |		Load_Top	At_Offset_2
015d 01d6       |    |		Execute	Vector,Field_Write
015e 4802       |H   |		Short_Literal	0x2
015f 0092 0306  |    |		Action	Push_String_Extended,0x306					; "Class_Error"
0161 8218       |    |		Call	0x1,0x18
0162 e002       |    |		Load	0x0,0x2
0163 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0164 0119       |    |		Execute	Any,Check_In_Formal_Type
0165 480a       |H   |		Short_Literal	0xa
0166 00da       |    |		Load_Top	At_Offset_2
0167 01d6       |    |		Execute	Vector,Field_Write
0168 4802       |H   |		Short_Literal	0x2
0169 0092 030f  |    |		Action	Push_String_Extended,0x30f					; "No_Declaration"
016b 8218       |    |		Call	0x1,0x18
016c e002       |    |		Load	0x0,0x2
016d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
016e 0119       |    |		Execute	Any,Check_In_Formal_Type
016f 480b       |H   |		Short_Literal	0xb
0170 00da       |    |		Load_Top	At_Offset_2
0171 01d6       |    |		Execute	Vector,Field_Write
0172 4802       |H   |		Short_Literal	0x2
0173 0092 0310  |    |		Action	Push_String_Extended,0x310					; "No_Object"
0175 8218       |    |		Call	0x1,0x18
0176 e002       |    |		Load	0x0,0x2
0177 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0178 0119       |    |		Execute	Any,Check_In_Formal_Type
0179 480c       |H   |		Short_Literal	0xc
017a 00da       |    |		Load_Top	At_Offset_2
017b 01d6       |    |		Execute	Vector,Field_Write
017c 4802       |H   |		Short_Literal	0x2
017d 0092 0311  |    |		Action	Push_String_Extended,0x311					; "No_Editor"
017f 8218       |    |		Call	0x1,0x18
0180 e002       |    |		Load	0x0,0x2
0181 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0182 0119       |    |		Execute	Any,Check_In_Formal_Type
0183 480d       |H   |		Short_Literal	0xd
0184 00da       |    |		Load_Top	At_Offset_2
0185 01d6       |    |		Execute	Vector,Field_Write
0186 4802       |H   |		Short_Literal	0x2
0187 0092 0312  |    |		Action	Push_String_Extended,0x312					; "Unsuccessful"
0189 8218       |    |		Call	0x1,0x18
018a e002       |    |		Load	0x0,0x2
018b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
018c 0119       |    |		Execute	Any,Check_In_Formal_Type
018d 480e       |H   |		Short_Literal	0xe
018e 00da       |    |		Load_Top	At_Offset_2
018f 01d6       |    |		Execute	Vector,Field_Write
0190 00d9       |    |		Load_Top	At_Offset_1
0191 01d4       |    |		Execute	Vector,Structure_Write
0192 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x8 = 0x192,0xfff7
0193 00c7       |    |		Action	Elaborate_Subprogram
0194 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x9 = 0x194,0xfff6
0195 00c7       |    |		Action	Elaborate_Subprogram
0196 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0xa = 0x196,0xfff5
0197 00c7       |    |		Action	Elaborate_Subprogram
0198 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0xb = 0x198,0xfff4
0199 00c7       |    |		Action	Elaborate_Subprogram
019a 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0xc = 0x19a,0xfff3
019b 00c7       |    |		Action	Elaborate_Subprogram
019c 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0xd = 0x19c,0xfff2
019d 00c7       |    |		Action	Elaborate_Subprogram
019e 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0xe = 0x19e,0xfff1
019f 00c7       |    |		Action	Elaborate_Subprogram
01a0 029d 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call			; Debug Table 0x1.0xf = 0x1a0,0xffff
01a2 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0x10 = 0x1a2,0xfffe
01a3 00c7       |    |		Action	Elaborate_Subprogram
01a4 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0x11 = 0x1a4,0xfffd
01a5 00c7       |    |		Action	Elaborate_Subprogram
01a6 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0x12 = 0x1a6,0xfffc
01a7 00c7       |    |		Action	Elaborate_Subprogram
01a8			BODY_0008:
01a8 00bc       |    |		Action	Signal_Activated
01a9 00bb       |    |		Action	Signal_Completion
01aa 0000 0000  |    |		.BLANK	0000[0x6]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 e219       |    |		Load	0x1,0x19							; Debug Table 0x2 = .DEBUG	0x01b3,0x04b2,0x0002,0x0000,0x005a,0x6a65,0x0000,0x0013
													; Debug Table 0x2.0x0 = 0x1b3,0x1
01b4 00d8       |    |		Load_Top	At_Offset_0
01b5 0120       |    |		Execute	Any,Is_Value
01b6 7002       |p   |		Jump_Nonzero	0x1b9
01b7 00d8       |    |		Load_Top	At_Offset_0
01b8 011e       |    |		Execute	Any,Convert
01b9 00ca       |    |		Action	Exit_Nullary_Function
01ba 0000 0000  |    |		.BLANK	0000[0x6]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 e21a       |    |		Load	0x1,0x1a							; Debug Table 0x3 = .DEBUG	0x01c3,0x04b6,0x0002,0x0000,0x005a,0x6a65,0x0000,0x0018
													; Debug Table 0x3.0x0 = 0x1c3,0x1
01c4 00d8       |    |		Load_Top	At_Offset_0
01c5 0120       |    |		Execute	Any,Is_Value
01c6 7002       |p   |		Jump_Nonzero	0x1c9
01c7 00d8       |    |		Load_Top	At_Offset_0
01c8 011e       |    |		Execute	Any,Convert
01c9 00ca       |    |		Action	Exit_Nullary_Function
01ca 0000 0000  |    |		.BLANK	0000[0x6]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 e21b       |    |		Load	0x1,0x1b							; Debug Table 0x4 = .DEBUG	0x01d3,0x04ba,0x0002,0x0000,0x005a,0x6a65,0x0000,0x001d
													; Debug Table 0x4.0x0 = 0x1d3,0x1
01d4 00d8       |    |		Load_Top	At_Offset_0
01d5 0120       |    |		Execute	Any,Is_Value
01d6 7002       |p   |		Jump_Nonzero	0x1d9
01d7 00d8       |    |		Load_Top	At_Offset_0
01d8 011e       |    |		Execute	Any,Convert
01d9 00ca       |    |		Action	Exit_Nullary_Function
01da 0000 0000  |    |		.BLANK	0000[0x6]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 e21c       |    |		Load	0x1,0x1c							; Debug Table 0x5 = .DEBUG	0x01e3,0x04be,0x0002,0x0000,0x005a,0x6a65,0x0000,0x0022
													; Debug Table 0x5.0x0 = 0x1e3,0x1
01e4 00d8       |    |		Load_Top	At_Offset_0
01e5 0120       |    |		Execute	Any,Is_Value
01e6 7002       |p   |		Jump_Nonzero	0x1e9
01e7 00d8       |    |		Load_Top	At_Offset_0
01e8 011e       |    |		Execute	Any,Convert
01e9 00ca       |    |		Action	Exit_Nullary_Function
01ea 0000 0000  |    |		.BLANK	0000[0x6]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3       |    |		.CONST	0x01f3								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0001       |    |		.CONST	0x0001								; Number of locals
01f3			BODY_01f0:
01f3			INIT_01f0:
01f3 e21d       |    |		Load	0x1,0x1d							; Debug Table 0x6 = .DEBUG	0x01f3,0x04c2,0x0002,0x0000,0x005a,0x6a65,0x0000,0x0027
													; Debug Table 0x6.0x0 = 0x1f3,0x1
01f4 00d8       |    |		Load_Top	At_Offset_0
01f5 0120       |    |		Execute	Any,Is_Value
01f6 7002       |p   |		Jump_Nonzero	0x1f9
01f7 00d8       |    |		Load_Top	At_Offset_0
01f8 011e       |    |		Execute	Any,Convert
01f9 00ca       |    |		Action	Exit_Nullary_Function
01fa 0000 0000  |    |		.BLANK	0000[0x6]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7 = .DEBUG	0x0203,0x04c6,0x0002,0x0000,0x005a,0x6a65,0x0000,0x002c
													; Debug Table 0x7.0x0 = 0x203,0x1
0204 e21f       |    |		Load	0x1,0x1f
0205 01d7       |    |		Execute	Vector,Field_Read
0206 00d8       |    |		Load_Top	At_Offset_0
0207 0120       |    |		Execute	Any,Is_Value
0208 7002       |p   |		Jump_Nonzero	0x20b
0209 00d8       |    |		Load_Top	At_Offset_0
020a 011e       |    |		Execute	Any,Convert
020b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
020c 0000 0000  |    |		.BLANK	0000[0x4]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8 = .DEBUG	0x0213,0x04ca,0x0002,0x0000,0x005a,0x6a65,0x0000,0x0037
													; Debug Table 0x8.0x0 = 0x213,0x1
0214 e221       | !  |		Load	0x1,0x21
0215 01d7       |    |		Execute	Vector,Field_Read
0216 00d8       |    |		Load_Top	At_Offset_0
0217 0120       |    |		Execute	Any,Is_Value
0218 7002       |p   |		Jump_Nonzero	0x21b
0219 00d8       |    |		Load_Top	At_Offset_0
021a 011e       |    |		Execute	Any,Convert
021b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
021c 0000 0000  |    |		.BLANK	0000[0x4]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0233       | 3  |		.CONST	0x0233								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0003       |    |		.CONST	0x0003								; Number of locals
0223			INIT_0220:
0223 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9 = .DEBUG	0x0223,0x04ce,0x0001,0x0000,0x005a,0x6a65,0x0000,0x0049
													; Debug Table 0x9.0x0 = 0x223,0xffff
0224 e5fd       |    |		Load	0x2,-0x3
0225 0092 0313  |    |		Action	Push_String_Extended,0x313					; "<1>"
0227 e004       |    |		Load	0x0,0x4
0228 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0229 00e2       |    |		Load_Encached	Integer_Cache
022a 03f1       |    |		Declare_Variable	Discrete,With_Value
022b 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9.0x1 = 0x22b,0xfffe
022c e5fd       |    |		Load	0x2,-0x3
022d 0092 0314  |    |		Action	Push_String_Extended,0x314					; "<2>"
022f e004       |    |		Load	0x0,0x4
0230 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0231 00e2       |    |		Load_Encached	Integer_Cache
0232 03f1       |    |		Declare_Variable	Discrete,With_Value
0233			BODY_0220:
0233 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0x2 = 0x233,0x1
0234 7005       |p   |		Jump_Nonzero	0x23a
0235 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x9.0x3 = 0x235,0x2
0236 01dd       |    |		Execute	Vector,First
0237 0afd       |    |		Execute_Immediate	Plus,-0x3
0238 0248       | H  |		Execute	Discrete,Check_In_Integer
0239 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
023a 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x4 = 0x23a,0x3
023b 7005       |p   |		Jump_Nonzero	0x241
023c e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x9.0x5 = 0x23c,0x4
023d 01dc       |    |		Execute	Vector,Last
023e 0a01       |    |		Execute_Immediate	Plus,0x1
023f 0248       | H  |		Execute	Discrete,Check_In_Integer
0240 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0241 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0x6 = 0x241,0x5
0242 00d9       |    |		Load_Top	At_Offset_1
0243 027a       | z  |		Execute	Discrete,Less_Equal
0244 6822       |h"  |		Jump_Zero	0x267
0245 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x9.0x7 = 0x245,0x6
0246 e5fd       |    |		Load	0x2,-0x3
0247 01dd       |    |		Execute	Vector,First
0248 00db       |    |		Load_Top	At_Offset_3
0249 0aff       |    |		Execute_Immediate	Plus,-0x1
024a 0248       | H  |		Execute	Discrete,Check_In_Integer
024b e5fd       |    |		Load	0x2,-0x3
024c 01cf       |    |		Execute	Vector,Slice_Read
024d e5fe       |    |		Load	0x2,-0x2
024e 8222       | "  |		Call	0x1,0x22
024f 01cc       |    |		Execute	Vector,Catenate
0250 00db       |    |		Load_Top	At_Offset_3
0251 0a03       |    |		Execute_Immediate	Plus,0x3
0252 0248       | H  |		Execute	Discrete,Check_In_Integer
0253 00db       |    |		Load_Top	At_Offset_3
0254 0aff       |    |		Execute_Immediate	Plus,-0x1
0255 0248       | H  |		Execute	Discrete,Check_In_Integer
0256 e5fd       |    |		Load	0x2,-0x3
0257 01cf       |    |		Execute	Vector,Slice_Read
0258 01cc       |    |		Execute	Vector,Catenate
0259 e5fc       |    |		Load	0x2,-0x4
025a 8222       | "  |		Call	0x1,0x22
025b 01cc       |    |		Execute	Vector,Catenate
025c 00da       |    |		Load_Top	At_Offset_2
025d 0a03       |    |		Execute_Immediate	Plus,0x3
025e 0248       | H  |		Execute	Discrete,Check_In_Integer
025f e5fd       |    |		Load	0x2,-0x3
0260 01dc       |    |		Execute	Vector,Last
0261 e5fd       |    |		Load	0x2,-0x3
0262 01cf       |    |		Execute	Vector,Slice_Read
0263 01cc       |    |		Execute	Vector,Catenate
0264 e5ff       |    |		Load	0x2,-0x1
0265 8217       |    |		Call	0x1,0x17
0266 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0267 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x9.0x8 = 0x267,0x7
0268 e5fd       |    |		Load	0x2,-0x3
0269 01dd       |    |		Execute	Vector,First
026a 00da       |    |		Load_Top	At_Offset_2
026b 0aff       |    |		Execute_Immediate	Plus,-0x1
026c 0248       | H  |		Execute	Discrete,Check_In_Integer
026d e5fd       |    |		Load	0x2,-0x3
026e 01cf       |    |		Execute	Vector,Slice_Read
026f e5fc       |    |		Load	0x2,-0x4
0270 8222       | "  |		Call	0x1,0x22
0271 01cc       |    |		Execute	Vector,Catenate
0272 00da       |    |		Load_Top	At_Offset_2
0273 0a03       |    |		Execute_Immediate	Plus,0x3
0274 0248       | H  |		Execute	Discrete,Check_In_Integer
0275 e402       |    |		Load	0x2,0x2
0276 0aff       |    |		Execute_Immediate	Plus,-0x1
0277 0248       | H  |		Execute	Discrete,Check_In_Integer
0278 e5fd       |    |		Load	0x2,-0x3
0279 01cf       |    |		Execute	Vector,Slice_Read
027a 01cc       |    |		Execute	Vector,Catenate
027b e5fe       |    |		Load	0x2,-0x2
027c 8222       | "  |		Call	0x1,0x22
027d 01cc       |    |		Execute	Vector,Catenate
027e 00db       |    |		Load_Top	At_Offset_3
027f 0a03       |    |		Execute_Immediate	Plus,0x3
0280 0248       | H  |		Execute	Discrete,Check_In_Integer
0281 e5fd       |    |		Load	0x2,-0x3
0282 01dc       |    |		Execute	Vector,Last
0283 e5fd       |    |		Load	0x2,-0x3
0284 01cf       |    |		Execute	Vector,Slice_Read
0285 01cc       |    |		Execute	Vector,Catenate
0286 e5ff       |    |		Load	0x2,-0x1
0287 8217       |    |		Call	0x1,0x17
0288 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0289 0000 0000  |    |		.BLANK	0000[0x7]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293       |    |		.CONST	0x0293								; Address of begin
0291 0004       |    |		.CONST	0x0004								; Address of exception handler
0292 0001       |    |		.CONST	0x0001								; Number of locals
0293			BODY_0290:
0293			INIT_0290:
0293 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xa = .DEBUG	0x0293,0x04e2,0x0001,0x0000,0x005a,0x6a65,0x0000,0x0069
													; Debug Table 0xa.0x0 = 0x293,0x1
0294 e5fe       |    |		Load	0x2,-0x2
0295 e005       |    |		Load	0x0,0x5
0296 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
0297 e5ff       |    |		Load	0x2,-0x1
0298 8217       |    |		Call	0x1,0x17
0299 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
029a 0000 0000  |    |		.BLANK	0000[0x6]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3       |    |		.CONST	0x02a3								; Address of begin
02a1 02ab       |    |		.CONST	0x02ab								; Address of exception handler
02a2 0001       |    |		.CONST	0x0001								; Number of locals
02a3			BODY_02a0:
02a3			INIT_02a0:
02a3 e006       |    |		Load	0x0,0x6								; Debug Table 0xb = .DEBUG	0x02a3,0x04e6,0x0001,0x0000,0x005a,0x6a65,0x0000,0x007c
													; Debug Table 0xb.0x0 = 0x2a3,0x1
02a4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02a5 e5fe       |    |		Load	0x2,-0x2
02a6 e5fd       |    |		Load	0x2,-0x3
02a7 e5ff       |    |		Load	0x2,-0x1
02a8 e001       |    |		Load	0x0,0x1
02a9 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
02aa 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02ab			TRAP_02a0:
02ab 0007       |    |		Action	Break_Optional
02ac 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0xb.0x1 = 0x2ac,0x2
02ad 0000 0000  |    |		.XXX[0x3]
02af 0000       |    |
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 00d1       |    |		Pop_Control	Pop_Count_1						; Debug Table 0xc = .DEBUG	0x02b3,0x04ec,0x0005,0x0000,0x005a,0x7085,0x0000,0x0059
02b4 00da       |    |		Load_Top	At_Offset_2
02b5 01dc       |    |		Execute	Vector,Last
02b6 00db       |    |		Load_Top	At_Offset_3
02b7 01dd       |    |		Execute	Vector,First
02b8 0263       | c  |		Execute	Discrete,Above_Bound
02b9 700a       |p   |		Jump_Nonzero	0x2c4
02ba 00d8       |    |		Load_Top	At_Offset_0
02bb e5ff       |    |		Load	0x2,-0x1
02bc 01d5       |    |		Execute	Vector,Field_Reference
02bd 0125       | %  |		Execute	Any,Set_Constraint
02be 00d8       |    |		Load_Top	At_Offset_0
02bf e5ff       |    |		Load	0x2,-0x1
02c0 01d5       |    |		Execute	Vector,Field_Reference
02c1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02c2 0a01       |    |		Execute_Immediate	Plus,0x1
02c3 7ff4       |    |		Jump	0x2b8
02c4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02c5 0000 0000  |    |		.XXX[0x3]
02c7 0000       |    |
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb 00d1       |    |		Pop_Control	Pop_Count_1						; Debug Table 0xd = .DEBUG	0x02cb,0x04ee,0x0005,0x0000,0x005a,0x7085,0x0000,0x00ef
02cc 00da       |    |		Load_Top	At_Offset_2
02cd 01dc       |    |		Execute	Vector,Last
02ce 00db       |    |		Load_Top	At_Offset_3
02cf 01dd       |    |		Execute	Vector,First
02d0 0263       | c  |		Execute	Discrete,Above_Bound
02d1 700a       |p   |		Jump_Nonzero	0x2dc
02d2 00d8       |    |		Load_Top	At_Offset_0
02d3 e5ff       |    |		Load	0x2,-0x1
02d4 01d5       |    |		Execute	Vector,Field_Reference
02d5 0125       | %  |		Execute	Any,Set_Constraint
02d6 00d8       |    |		Load_Top	At_Offset_0
02d7 e5ff       |    |		Load	0x2,-0x1
02d8 01d5       |    |		Execute	Vector,Field_Reference
02d9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02da 0a01       |    |		Execute_Immediate	Plus,0x1
02db 7ff4       |    |		Jump	0x2d0
02dc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02dd 0000 0000  |    |		.XXX[0x3]
02df 0000       |    |
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e4       |    |		.CONST	0x02e4								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0001       |    |		.CONST	0x0001								; Number of locals
02e3			INIT_02e0:
02e3 0007       |    |		Action	Break_Optional							; Debug Table 0xe = .DEBUG	0x02e3,0x04f0,0x0002,0x0000,0x005a,0x7085,0x0000,0x020c
													; Debug Table 0xe.0x0 = 0x2e3,0xffff
02e4			BODY_02e0:
02e4 0007       |    |		Action	Break_Optional							; Debug Table 0xe.0x1 = 0x2e4,0x1
02e5 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xe.0x2 = 0x2e5,0x401
02e6 021d       |    |		Execute	Heap_Access,Is_Null
02e7 6802       |h   |		Jump_Zero	0x2ea							; Debug Table 0xe.0x3 = 0x2e7,0x1
02e8 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0xe.0x4 = 0x2e8,0x2
02e9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02ea 4822       |H"  |		Short_Literal	0x22							; Debug Table 0xe.0x5 = 0x2ea,0x3
02eb 4822       |H"  |		Short_Literal	0x22
02ec 4801       |H   |		Short_Literal	0x1
02ed 4828       |H(  |		Short_Literal	0x28
02ee e5ff       |    |		Load	0x2,-0x1
02ef e007       |    |		Load	0x0,0x7
02f0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02f1 01ca       |    |		Execute	Vector,Prepend
02f2 01cb       |    |		Execute	Vector,Append
02f3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02f4 ; --------------------------------------------------------------------------------------
02f4 ; STRING TABLE
02f4 ; --------------------------------------------------------------------------------------
02f4 0044       | D  |		.STRTAB	0x0044->0x0316							; "all_purpose_fatal"
02f5 0053       | S  |		.STRTAB	0x0053->0x031e							; "all_purpose_error"
02f6 0062       | b  |		.STRTAB	0x0062->0x0327							; "all_purpose_warning"
02f7 0073       | s  |		.STRTAB	0x0073->0x0330							; "Unimplemented"
02f8 007e       | ~  |		.STRTAB	0x007e->0x0337							; "Internal_Error"
02f9 008a       |    |		.STRTAB	0x008a->0x033e							; "Successful"
02fa 0092       |    |		.STRTAB	0x0092->0x0343							; "Lock_Error"
02fb 009a       |    |		.STRTAB	0x009a->0x0348							; "Semantic_Error"
02fc 00a6       |    |		.STRTAB	0x00a6->0x034f							; "Code_Generation_Error"
02fd 00b9       |    |		.STRTAB	0x00b9->0x0359							; "Obsolescence_Error"
02fe 00c9       |    |		.STRTAB	0x00c9->0x0362							; "Bad_Tree_Parameter"
02ff 00d9       |    |		.STRTAB	0x00d9->0x036b							; "Illegal_Operation"
0300 00e8       |    |		.STRTAB	0x00e8->0x0374							; "Consistency_Error"
0301 00f7       |    |		.STRTAB	0x00f7->0x037c							; "Version_Error"
0302 0102       |    |		.STRTAB	0x0102->0x0383							; "Name_Error"
0303 010a       |    |		.STRTAB	0x010a->0x0388							; "Access_Error"
0304 0114       |    |		.STRTAB	0x0114->0x038e							; "Policy_Error"
0305 011e       |    |		.STRTAB	0x011e->0x0394							; "Bad_Action"
0306 0126       | &  |		.STRTAB	0x0126->0x0399							; "Class_Error"
0307 012f       | /  |		.STRTAB	0x012f->0x039e							; "Other_Error"
0308 0138       | 8  |		.STRTAB	0x0138->0x03a4							; "Bad_Context"
0309 0141       | A  |		.STRTAB	0x0141->0x03a9							; "Ill_Formed_Name"
030a 014e       | N  |		.STRTAB	0x014e->0x03b1							; "Undefined"
030b 0155       | U  |		.STRTAB	0x0155->0x03b5							; "Ambiguous"
030c 015c       | \  |		.STRTAB	0x015c->0x03ba							; "No_Selection"
030d 0166       | f  |		.STRTAB	0x0166->0x03c0							; "Cursor_Not_In_Selection"
030e 017b       | {  |		.STRTAB	0x017b->0x03cb							; "Selections_Not_Supported"
030f 0191       |    |		.STRTAB	0x0191->0x03d7							; "No_Declaration"
0310 019d       |    |		.STRTAB	0x019d->0x03de							; "No_Object"
0311 01a4       |    |		.STRTAB	0x01a4->0x03e3							; "No_Editor"
0312 01ab       |    |		.STRTAB	0x01ab->0x03e7							; "Unsuccessful"
0313 01b5       |    |		.STRTAB	0x01b5->0x03ed							; "<1>"
0314 01b6       |    |		.STRTAB	0x01b6->0x03ef							; "<2>"
0315 01b7       |    |		.STREND 0x01b7->0x03f0
0316 616c 6c5f  |all_|		.STRTAB_STRINGS
03f1 0000 0000  |    |		.BLANK	0000[0x7]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; Debug Table
03f8 ; --------------------------------------------------------------------------------------
03f8 0003 000f  |    |		.CONST	0x0003,0x000f
03fa 000b 0472  |   r|		.DEBUG	0x000b,0x0472,0x8000,0x0000,0x005a,0x6a65,0x0000,0x000b
0402 0023 048a  | #  |		.DEBUG	0x0023,0x048a,0x8000,0x0000,0x005a,0x7085,0x0000,0x000b
040a 01b3 04b2  |    |		.DEBUG	0x01b3,0x04b2,0x0002,0x0000,0x005a,0x6a65,0x0000,0x0013
0412 01c3 04b6  |    |		.DEBUG	0x01c3,0x04b6,0x0002,0x0000,0x005a,0x6a65,0x0000,0x0018
041a 01d3 04ba  |    |		.DEBUG	0x01d3,0x04ba,0x0002,0x0000,0x005a,0x6a65,0x0000,0x001d
0422 01e3 04be  |    |		.DEBUG	0x01e3,0x04be,0x0002,0x0000,0x005a,0x6a65,0x0000,0x0022
042a 01f3 04c2  |    |		.DEBUG	0x01f3,0x04c2,0x0002,0x0000,0x005a,0x6a65,0x0000,0x0027
0432 0203 04c6  |    |		.DEBUG	0x0203,0x04c6,0x0002,0x0000,0x005a,0x6a65,0x0000,0x002c
043a 0213 04ca  |    |		.DEBUG	0x0213,0x04ca,0x0002,0x0000,0x005a,0x6a65,0x0000,0x0037
0442 0223 04ce  | #  |		.DEBUG	0x0223,0x04ce,0x0001,0x0000,0x005a,0x6a65,0x0000,0x0049
044a 0293 04e2  |    |		.DEBUG	0x0293,0x04e2,0x0001,0x0000,0x005a,0x6a65,0x0000,0x0069
0452 02a3 04e6  |    |		.DEBUG	0x02a3,0x04e6,0x0001,0x0000,0x005a,0x6a65,0x0000,0x007c
045a 02b3 04ec  |    |		.DEBUG	0x02b3,0x04ec,0x0005,0x0000,0x005a,0x7085,0x0000,0x0059
0462 02cb 04ee  |    |		.DEBUG	0x02cb,0x04ee,0x0005,0x0000,0x005a,0x7085,0x0000,0x00ef
046a 02e3 04f0  |    |		.DEBUG	0x02e3,0x04f0,0x0002,0x0000,0x005a,0x7085,0x0000,0x020c
0472 ; --------------------------------------------------------------------------------------
0472 ; Debug3 Subtable 0x0
0472 ; --------------------------------------------------------------------------------------
0472 000b 0000  |    |		.DBG3TAB	0x000b,0x0000
0474 000b ffff  |    |		.CONST	0x000b,0xffff
0476 000e ffff  |    |		.CONST	0x000e,0xffff
0478 0010 fffe  |    |		.CONST	0x0010,0xfffe
047a 0012 fffd  |    |		.CONST	0x0012,0xfffd
047c 0014 fffc  |    |		.CONST	0x0014,0xfffc
047e 0016 fffb  |    |		.CONST	0x0016,0xfffb
0480 0018 fffa  |    |		.CONST	0x0018,0xfffa
0482 001a fff9  |    |		.CONST	0x001a,0xfff9
0484 001c ffff  |    |		.CONST	0x001c,0xffff
0486 001e fffe  |    |		.CONST	0x001e,0xfffe
0488 0020 fffd  |    |		.CONST	0x0020,0xfffd
048a ; --------------------------------------------------------------------------------------
048a ; Debug3 Subtable 0x1
048a ; --------------------------------------------------------------------------------------
048a 0013 0000  |    |		.DBG3TAB	0x0013,0x0000
048c 0023 ffff  | #  |		.CONST	0x0023,0xffff
048e 0026 fffe  | &  |		.CONST	0x0026,0xfffe
0490 002d fffd  | -  |		.CONST	0x002d,0xfffd
0492 0034 fffc  | 4  |		.CONST	0x0034,0xfffc
0494 003b fffb  | ;  |		.CONST	0x003b,0xfffb
0496 0042 fffa  | B  |		.CONST	0x0042,0xfffa
0498 0049 fff9  | I  |		.CONST	0x0049,0xfff9
049a 00ed fff8  |    |		.CONST	0x00ed,0xfff8
049c 0192 fff7  |    |		.CONST	0x0192,0xfff7
049e 0194 fff6  |    |		.CONST	0x0194,0xfff6
04a0 0196 fff5  |    |		.CONST	0x0196,0xfff5
04a2 0198 fff4  |    |		.CONST	0x0198,0xfff4
04a4 019a fff3  |    |		.CONST	0x019a,0xfff3
04a6 019c fff2  |    |		.CONST	0x019c,0xfff2
04a8 019e fff1  |    |		.CONST	0x019e,0xfff1
04aa 01a0 ffff  |    |		.CONST	0x01a0,0xffff
04ac 01a2 fffe  |    |		.CONST	0x01a2,0xfffe
04ae 01a4 fffd  |    |		.CONST	0x01a4,0xfffd
04b0 01a6 fffc  |    |		.CONST	0x01a6,0xfffc
04b2 ; --------------------------------------------------------------------------------------
04b2 ; Debug3 Subtable 0x2
04b2 ; --------------------------------------------------------------------------------------
04b2 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
04b4 01b3 0001  |    |		.CONST	0x01b3,0x0001
04b6 ; --------------------------------------------------------------------------------------
04b6 ; Debug3 Subtable 0x3
04b6 ; --------------------------------------------------------------------------------------
04b6 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
04b8 01c3 0001  |    |		.CONST	0x01c3,0x0001
04ba ; --------------------------------------------------------------------------------------
04ba ; Debug3 Subtable 0x4
04ba ; --------------------------------------------------------------------------------------
04ba 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
04bc 01d3 0001  |    |		.CONST	0x01d3,0x0001
04be ; --------------------------------------------------------------------------------------
04be ; Debug3 Subtable 0x5
04be ; --------------------------------------------------------------------------------------
04be 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
04c0 01e3 0001  |    |		.CONST	0x01e3,0x0001
04c2 ; --------------------------------------------------------------------------------------
04c2 ; Debug3 Subtable 0x6
04c2 ; --------------------------------------------------------------------------------------
04c2 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
04c4 01f3 0001  |    |		.CONST	0x01f3,0x0001
04c6 ; --------------------------------------------------------------------------------------
04c6 ; Debug3 Subtable 0x7
04c6 ; --------------------------------------------------------------------------------------
04c6 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
04c8 0203 0001  |    |		.CONST	0x0203,0x0001
04ca ; --------------------------------------------------------------------------------------
04ca ; Debug3 Subtable 0x8
04ca ; --------------------------------------------------------------------------------------
04ca 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
04cc 0213 0001  |    |		.CONST	0x0213,0x0001
04ce ; --------------------------------------------------------------------------------------
04ce ; Debug3 Subtable 0x9
04ce ; --------------------------------------------------------------------------------------
04ce 0002 0007  |    |		.DBG3TAB	0x0002,0x0007
04d0 0223 ffff  | #  |		.CONST	0x0223,0xffff
04d2 022b fffe  | +  |		.CONST	0x022b,0xfffe
04d4 0233 0001  | 3  |		.CONST	0x0233,0x0001
04d6 0235 0002  | 5  |		.CONST	0x0235,0x0002
04d8 023a 0003  | :  |		.CONST	0x023a,0x0003
04da 023c 0004  | <  |		.CONST	0x023c,0x0004
04dc 0241 0005  | A  |		.CONST	0x0241,0x0005
04de 0245 0006  | E  |		.CONST	0x0245,0x0006
04e0 0267 0007  | g  |		.CONST	0x0267,0x0007
04e2 ; --------------------------------------------------------------------------------------
04e2 ; Debug3 Subtable 0xa
04e2 ; --------------------------------------------------------------------------------------
04e2 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
04e4 0293 0001  |    |		.CONST	0x0293,0x0001
04e6 ; --------------------------------------------------------------------------------------
04e6 ; Debug3 Subtable 0xb
04e6 ; --------------------------------------------------------------------------------------
04e6 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
04e8 02a3 0001  |    |		.CONST	0x02a3,0x0001
04ea 02ac 0002  |    |		.CONST	0x02ac,0x0002
04ec ; --------------------------------------------------------------------------------------
04ec ; Debug3 Subtable 0xc
04ec ; --------------------------------------------------------------------------------------
04ec 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
04ee ; --------------------------------------------------------------------------------------
04ee ; Debug3 Subtable 0xd
04ee ; --------------------------------------------------------------------------------------
04ee 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
04f0 ; --------------------------------------------------------------------------------------
04f0 ; Debug3 Subtable 0xe
04f0 ; --------------------------------------------------------------------------------------
04f0 0001 0005  |    |		.DBG3TAB	0x0001,0x0005
04f2 02e3 ffff  |    |		.CONST	0x02e3,0xffff
04f4 02e4 0001  |    |		.CONST	0x02e4,0x0001
04f6 02e5 0401  |    |		.CONST	0x02e5,0x0401
04f8 02e7 0001  |    |		.CONST	0x02e7,0x0001
04fa 02e8 0002  |    |		.CONST	0x02e8,0x0002
04fc 02ea 0003  |    |		.CONST	0x02ea,0x0003
04fe 0000 0000  |    |		.BLANK	0000[0x102]