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

⟦e72309fff⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5e40f2

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0620       |    |		.CONST	0x0620								; 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 8003       |    |		.CONST	0x8003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0041       | A  |		.CONST	0x0041								; Address of begin
0019 00c0       |    |		.CONST	0x00c0								; Address of exception handler
001a 000c       |    |		.CONST	0x000c								; Number of locals
001b			INIT_0018:
001b 4800       |H   |		Short_Literal	0x0
001c 4806       |H   |		Short_Literal	0x6
001d 029f 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Call
001f 03fd       |    |		Declare_Type	Discrete,Defined
0020 e001       |    |		Load	0x0,0x1
0021 e002       |    |		Load	0x0,0x2
0022 00da       |    |		Load_Top	At_Offset_2
0023 e003       |    |		Load	0x0,0x3
0024 0387       |    |		Declare_Variable	Package
0025 00d8       |    |		Load_Top	At_Offset_0
0026 020f       |    |		Execute	Module,Activate
0027 00ec       |    |		Load_Encached	Diana_Tree_Cache
0028 02c7       |    |		Declare_Variable	Any
0029 00d8       |    |		Load_Top	At_Offset_0
002a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002b 00ec       |    |		Load_Encached	Diana_Tree_Cache
002c 02c7       |    |		Declare_Variable	Any
002d 00d8       |    |		Load_Top	At_Offset_0
002e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002f e004       |    |		Load	0x0,0x4
0030 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0031 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0032 e004       |    |		Load	0x0,0x4
0033 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0034 02c7       |    |		Declare_Variable	Any
0035 00d8       |    |		Load_Top	At_Offset_0
0036 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0037 029f 010b  |    |		Declare_Subprogram	INIT_0108,For_Call
0039 029f 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Call
003b 029f 01db  |    |		Declare_Subprogram	INIT_01d8,For_Call
003d 029f 024b  |   K|		Declare_Subprogram	INIT_0248,For_Call
003f 029f 037b  |   {|		Declare_Subprogram	INIT_0378,For_Call
0041			BODY_0018:
0041 e004       |    |		Load	0x0,0x4
0042 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0043 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0044 e404       |    |		Load	0x2,0x4
0045 0120       |    |		Execute	Any,Is_Value
0046 6803       |h   |		Jump_Zero	0x4a
0047 e004       |    |		Load	0x0,0x4
0048 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0049 7801       |x   |		Jump	0x4b
004a e404       |    |		Load	0x2,0x4
004b 608c       |`   |		Indirect_Literal	Discrete,0xd8,{0x00000000, 0x00004000}
004c e005       |    |		Load	0x0,0x5
004d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
004e e006       |    |		Load	0x0,0x6
004f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0050 e004       |    |		Load	0x0,0x4
0051 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0052 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0053 e5ff       |    |		Load	0x2,-0x1
0054 e004       |    |		Load	0x0,0x4
0055 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0056 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0057 c404       |    |		Store	0x2,0x4
0058 c406       |    |		Store	0x2,0x6
0059 e406       |    |		Load	0x2,0x6
005a 7044       |pD  |		Jump_Nonzero	0x9f
005b e404       |    |		Load	0x2,0x4
005c 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
005d 0b23       | #  |		Execute_Immediate	Case_Compare,0x23
005e 701b       |p   |		Jump_Nonzero	0x7a
005f 4824       |H$  |		Short_Literal	0x24
0060 4825       |H%  |		Short_Literal	0x25
0061 0262       | b  |		Execute	Discrete,In_Range
0062 702f       |p/  |		Jump_Nonzero	0x92
0063 e007       |    |		Load	0x0,0x7
0064 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0065 4805       |H   |		Short_Literal	0x5
0066 e404       |    |		Load	0x2,0x4
0067 e004       |    |		Load	0x0,0x4
0068 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0069 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
006a 0092 04d3  |    |		Action	Push_String_Extended,0x4d3					; " ("
006c 01cc       |    |		Execute	Vector,Catenate
006d e404       |    |		Load	0x2,0x4
006e 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
006f 00eb       |    |		Load_Encached	Diana_Cache
0070 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0071 011c       |    |		Execute	Any,Convert_Unchecked
0072 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0073 01cc       |    |		Execute	Vector,Catenate
0074 0092 04d4  |    |		Action	Push_String_Extended,0x4d4					; ") does not denote a parameter specification"
0076 01cc       |    |		Execute	Vector,Catenate
0077 e008       |    |		Load	0x0,0x8
0078 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0079 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
007a 00d1       |    |		Pop_Control	Pop_Count_1
007b e404       |    |		Load	0x2,0x4
007c 00eb       |    |		Load_Encached	Diana_Cache
007d 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
007e 00eb       |    |		Load_Encached	Diana_Cache
007f 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
0080 c405       |    |		Store	0x2,0x5
0081 e007       |    |		Load	0x0,0x7
0082 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0083 4802       |H   |		Short_Literal	0x2
0084 0092 04d5  |    |		Action	Push_String_Extended,0x4d5					; "Current default is "
0086 e405       |    |		Load	0x2,0x5
0087 00eb       |    |		Load_Encached	Diana_Cache
0088 18ca       |    |		Execute	Package,Field_Execute,Field_Number 0xca
0089 e009       |    |		Load	0x0,0x9
008a 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
008b 01cc       |    |		Execute	Vector,Catenate
008c e008       |    |		Load	0x0,0x8
008d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
008e e405       |    |		Load	0x2,0x5
008f 840c       |    |		Call	0x2,0xc
0090 c405       |    |		Store	0x2,0x5
0091 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0092 e007       |    |		Load	0x0,0x7
0093 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0094 4805       |H   |		Short_Literal	0x5
0095 e404       |    |		Load	0x2,0x4
0096 e004       |    |		Load	0x0,0x4
0097 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0098 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
0099 0092 04d6  |    |		Action	Push_String_Extended,0x4d6					; " is not an 'in' parameter"
009b 01cc       |    |		Execute	Vector,Catenate
009c e008       |    |		Load	0x0,0x8
009d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
009e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
009f e007       |    |		Load	0x0,0x7
00a0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00a1 4805       |H   |		Short_Literal	0x5
00a2 0092 04d7  |    |		Action	Push_String_Extended,0x4d7					; "Can't resolve "
00a4 e5ff       |    |		Load	0x2,-0x1
00a5 01cc       |    |		Execute	Vector,Catenate
00a6 0092 04d8  |    |		Action	Push_String_Extended,0x4d8					; " because "
00a8 01cc       |    |		Execute	Vector,Catenate
00a9 602e       |`.  |		Indirect_Literal	Discrete,0xd8,{0x00000000, 0x00004000}
00aa e005       |    |		Load	0x0,0x5
00ab 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00ac e006       |    |		Load	0x0,0x6
00ad 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00ae e00a       |    |		Load	0x0,0xa
00af 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00b0 4800       |H   |		Short_Literal	0x0
00b1 4800       |H   |		Short_Literal	0x0
00b2 e006       |    |		Load	0x0,0x6
00b3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00b4 e004       |    |		Load	0x0,0x4
00b5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00b6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00b7 e5ff       |    |		Load	0x2,-0x1
00b8 e406       |    |		Load	0x2,0x6
00b9 e004       |    |		Load	0x0,0x4
00ba 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00bb 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
00bc 01cc       |    |		Execute	Vector,Catenate
00bd e008       |    |		Load	0x0,0x8
00be 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00bf 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00c0			TRAP_0018:
00c0 0007       |    |		Action	Break_Optional
00c1 e007       |    |		Load	0x0,0x7
00c2 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00c3 4805       |H   |		Short_Literal	0x5
00c4 0092 04d9  |    |		Action	Push_String_Extended,0x4d9					; "Unhandled exception changing default for "
00c6 e5ff       |    |		Load	0x2,-0x1
00c7 01cc       |    |		Execute	Vector,Catenate
00c8 0092 04da  |    |		Action	Push_String_Extended,0x4da					; " to "
00ca 01cc       |    |		Execute	Vector,Catenate
00cb e5fe       |    |		Load	0x2,-0x2
00cc 01cc       |    |		Execute	Vector,Catenate
00cd 0092 04db  |    |		Action	Push_String_Extended,0x4db					; " "
00cf 01cc       |    |		Execute	Vector,Catenate
00d0 e5fd       |    |		Load	0x2,-0x3
00d1 01cc       |    |		Execute	Vector,Catenate
00d2 e008       |    |		Load	0x0,0x8
00d3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00d4 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00d5 0000 0000  |    |		.XXX[0x3]
00d7 0000       |    |
00d8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
00dc 0000 0000  |    |		.BLANK	0000[0x4]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 4607       |F   |		Jump_Case	0x8
00e4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00e5 7806       |x   |		Jump	0xec								; case 0x1
00e6 7809       |x   |		Jump	0xf0								; case 0x2
00e7 780d       |x   |		Jump	0xf5								; case 0x3
00e8 7810       |x   |		Jump	0xf9								; case 0x4
00e9 7811       |x   |		Jump	0xfb								; case 0x5
00ea 7812       |x   |		Jump	0xfd								; case 0x6
00eb 7815       |x   |		Jump	0x101								; case 0x7
00ec 00da       |    |		Load_Top	At_Offset_2
00ed 0091 04cc  |    |		Action	Push_String_Extended_Indexed,0x4cc				; "VOID"
00ef 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00f0 00db       |    |		Load_Top	At_Offset_3
00f1 00db       |    |		Load_Top	At_Offset_3
00f2 00e0       |    |		Load_Encached	Standard_Cache
00f3 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00f4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00f5 00da       |    |		Load_Top	At_Offset_2
00f6 00e0       |    |		Load_Encached	Standard_Cache
00f7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00f8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00f9 00db       |    |		Load_Top	At_Offset_3
00fa 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00fb 00db       |    |		Load_Top	At_Offset_3
00fc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00fd e402       |    |		Load	0x2,0x2
00fe 00dc       |    |		Load_Top	At_Offset_4
00ff 0267       | g  |		Execute	Discrete,Predecessor
0100 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0101 e402       |    |		Load	0x2,0x2
0102 00dc       |    |		Load_Top	At_Offset_4
0103 0268       | h  |		Execute	Discrete,Successor
0104 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0105 0000 0000  |    |		.XXX[0x3]
0107 0000       |    |
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0130       | 0  |		.CONST	0x0130								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 000a       |    |		.CONST	0x000a								; Number of locals
010b			INIT_0108:
010b 00db       |    |		Load_Top	At_Offset_3
010c e004       |    |		Load	0x0,0x4
010d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
010e 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
010f e7fe       |    |		Load	0x3,-0x2
0110 e004       |    |		Load	0x0,0x4
0111 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0112 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0113 e7ff       |    |		Load	0x3,-0x1
0114 00da       |    |		Load_Top	At_Offset_2
0115 01cc       |    |		Execute	Vector,Catenate
0116 0007       |    |		Action	Break_Optional
0117 00ec       |    |		Load_Encached	Diana_Tree_Cache
0118 02c7       |    |		Declare_Variable	Any
0119 00d8       |    |		Load_Top	At_Offset_0
011a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
011b e004       |    |		Load	0x0,0x4
011c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
011d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
011e 00ec       |    |		Load_Encached	Diana_Tree_Cache
011f 02c7       |    |		Declare_Variable	Any
0120 00d8       |    |		Load_Top	At_Offset_0
0121 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0122 00ec       |    |		Load_Encached	Diana_Tree_Cache
0123 02c7       |    |		Declare_Variable	Any
0124 00d8       |    |		Load_Top	At_Offset_0
0125 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0126 e004       |    |		Load	0x0,0x4
0127 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0128 1b33       | 3  |		Execute	Package,Field_Read,Field_Number 0x33
0129 02c7       |    |		Declare_Variable	Any
012a e004       |    |		Load	0x0,0x4
012b 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
012c 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
012d a609       |    |		Store_Unchecked	0x3,0x9
012e e004       |    |		Load	0x0,0x4
012f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0130			BODY_0108:
0130 e004       |    |		Load	0x0,0x4
0131 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0132 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0133 e605       |    |		Load	0x3,0x5
0134 0120       |    |		Execute	Any,Is_Value
0135 6803       |h   |		Jump_Zero	0x139
0136 e004       |    |		Load	0x0,0x4
0137 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0138 7801       |x   |		Jump	0x13a
0139 e605       |    |		Load	0x3,0x5
013a 6061       |`a  |		Indirect_Literal	Discrete,0x19c,{0x00000000, 0x00004000}
013b e005       |    |		Load	0x0,0x5
013c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
013d e006       |    |		Load	0x0,0x6
013e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
013f e004       |    |		Load	0x0,0x4
0140 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0141 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0142 e604       |    |		Load	0x3,0x4
0143 e004       |    |		Load	0x0,0x4
0144 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0145 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0146 c605       |    |		Store	0x3,0x5
0147 c606       |    |		Store	0x3,0x6
0148 00d9       |    |		Load_Top	At_Offset_1
0149 e004       |    |		Load	0x0,0x4
014a 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
014b 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
014c e606       |    |		Load	0x3,0x6
014d 7028       |p(  |		Jump_Nonzero	0x176
014e e603       |    |		Load	0x3,0x3
014f 01db       |    |		Execute	Vector,Length
0150 700d       |p   |		Jump_Nonzero	0x15e
0151 e602       |    |		Load	0x3,0x2
0152 4816       |H   |		Short_Literal	0x16
0153 00eb       |    |		Load_Encached	Diana_Cache
0154 187a       | z  |		Execute	Package,Field_Execute,Field_Number 0x7a
0155 c607       |    |		Store	0x3,0x7
0156 e7fd       |    |		Load	0x3,-0x3
0157 e607       |    |		Load	0x3,0x7
0158 495b       |I[  |		Short_Literal	0x15b
0159 00eb       |    |		Load_Encached	Diana_Cache
015a 0096       |    |		Execute	Package,Entry
015b 00db       |    |		Load_Top	At_Offset_3
015c c608       |    |		Store	0x3,0x8
015d 7812       |x   |		Jump	0x170
015e e7fd       |    |		Load	0x3,-0x3
015f e603       |    |		Load	0x3,0x3
0160 482e       |H.  |		Short_Literal	0x2e
0161 e604       |    |		Load	0x3,0x4
0162 01cb       |    |		Execute	Vector,Append
0163 8408       |    |		Call	0x2,0x8
0164 c608       |    |		Store	0x3,0x8
0165 e602       |    |		Load	0x3,0x2
0166 4817       |H   |		Short_Literal	0x17
0167 00eb       |    |		Load_Encached	Diana_Cache
0168 187a       | z  |		Execute	Package,Field_Execute,Field_Number 0x7a
0169 c607       |    |		Store	0x3,0x7
016a 00da       |    |		Load_Top	At_Offset_2
016b e607       |    |		Load	0x3,0x7
016c 4812       |H   |		Short_Literal	0x12
016d 00eb       |    |		Load_Encached	Diana_Cache
016e 187d       | }  |		Execute	Package,Field_Execute,Field_Number 0x7d
016f c608       |    |		Store	0x3,0x8
0170 e605       |    |		Load	0x3,0x5
0171 e607       |    |		Load	0x3,0x7
0172 4959       |IY  |		Short_Literal	0x159
0173 00eb       |    |		Load_Encached	Diana_Cache
0174 0096       |    |		Execute	Package,Entry
0175 7822       |x"  |		Jump	0x198
0176 e007       |    |		Load	0x0,0x7
0177 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0178 4805       |H   |		Short_Literal	0x5
0179 0092 04d7  |    |		Action	Push_String_Extended,0x4d7					; "Can't resolve "
017b e604       |    |		Load	0x3,0x4
017c 01cc       |    |		Execute	Vector,Catenate
017d 0092 04d8  |    |		Action	Push_String_Extended,0x4d8					; " because "
017f 01cc       |    |		Execute	Vector,Catenate
0180 601b       |`   |		Indirect_Literal	Discrete,0x19c,{0x00000000, 0x00004000}
0181 e005       |    |		Load	0x0,0x5
0182 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0183 e006       |    |		Load	0x0,0x6
0184 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0185 e00a       |    |		Load	0x0,0xa
0186 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0187 4800       |H   |		Short_Literal	0x0
0188 4800       |H   |		Short_Literal	0x0
0189 e006       |    |		Load	0x0,0x6
018a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
018b e004       |    |		Load	0x0,0x4
018c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
018d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
018e e604       |    |		Load	0x3,0x4
018f e606       |    |		Load	0x3,0x6
0190 e004       |    |		Load	0x0,0x4
0191 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0192 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
0193 01cc       |    |		Execute	Vector,Catenate
0194 e008       |    |		Load	0x0,0x8
0195 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0196 e00b       |    |		Load	0x0,0xb
0197 0257       | W  |		Execute	Discrete,Raise
0198 00da       |    |		Load_Top	At_Offset_2
0199 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
019a 0000 0000  |    |		.XXX[0x2]
019c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01ad       |    |		.CONST	0x01ad								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0003       |    |		.CONST	0x0003								; Number of locals
01a3			INIT_01a0:
01a3 00ec       |    |		Load_Encached	Diana_Tree_Cache
01a4 02c7       |    |		Declare_Variable	Any
01a5 00ec       |    |		Load_Encached	Diana_Tree_Cache
01a6 a602       |    |		Store_Unchecked	0x3,0x2
01a7 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache
01a8 02c7       |    |		Declare_Variable	Any
01a9 e7fe       |    |		Load	0x3,-0x2
01aa 00eb       |    |		Load_Encached	Diana_Cache
01ab 1888       |    |		Execute	Package,Field_Execute,Field_Number 0x88
01ac a603       |    |		Store_Unchecked	0x3,0x3
01ad			BODY_01a0:
01ad 00cf       |    |		Action	Mark_Auxiliary
01ae 7810       |x   |		Jump	0x1bf
01af 00d9       |    |		Load_Top	At_Offset_1
01b0 008b       |    |		Action	Heap_Access,Diana_Seq_Type_Get_Head
01b1 c602       |    |		Store	0x3,0x2
01b2 e7ff       |    |		Load	0x3,-0x1
01b3 00db       |    |		Load_Top	At_Offset_3
01b4 00eb       |    |		Load_Encached	Diana_Cache
01b5 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
01b6 00eb       |    |		Load_Encached	Diana_Cache
01b7 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
01b8 01df       |    |		Execute	Vector,Equal
01b9 7007       |p   |		Jump_Nonzero	0x1c1
01ba 00d9       |    |		Load_Top	At_Offset_1
01bb 0217       |    |		Execute	Heap_Access,All_Reference
01bc 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01bd c603       |    |		Store	0x3,0x3
01be 00c9       |    |		Action	Pop_Auxiliary_Loop
01bf 00d9       |    |		Load_Top	At_Offset_1
01c0 77ee       |w   |		Jump_Nonzero	0x1af
01c1 00ce       |    |		Action	Pop_Auxiliary
01c2 00d9       |    |		Load_Top	At_Offset_1
01c3 700e       |p   |		Jump_Nonzero	0x1d2
01c4 e007       |    |		Load	0x0,0x7
01c5 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01c6 4805       |H   |		Short_Literal	0x5
01c7 0092 04dc  |    |		Action	Push_String_Extended,0x4dc					; "Can't locate "
01c9 e7ff       |    |		Load	0x3,-0x1
01ca 01cc       |    |		Execute	Vector,Catenate
01cb 0092 04dd  |    |		Action	Push_String_Extended,0x4dd					; " in character set."
01cd 01cc       |    |		Execute	Vector,Catenate
01ce e008       |    |		Load	0x0,0x8
01cf 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01d0 e00b       |    |		Load	0x0,0xb
01d1 0257       | W  |		Execute	Discrete,Raise
01d2 00d9       |    |		Load_Top	At_Offset_1
01d3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01d4 0000 0000  |    |		.BLANK	0000[0x4]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01fc       |    |		.CONST	0x01fc								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0006       |    |		.CONST	0x0006								; Number of locals
01db			INIT_01d8:
01db 00ec       |    |		Load_Encached	Diana_Tree_Cache
01dc 02c7       |    |		Declare_Variable	Any
01dd 4801       |H   |		Short_Literal	0x1
01de 00eb       |    |		Load_Encached	Diana_Cache
01df 18a8       |    |		Execute	Package,Field_Execute,Field_Number 0xa8
01e0 a602       |    |		Store_Unchecked	0x3,0x2
01e1 00ec       |    |		Load_Encached	Diana_Tree_Cache
01e2 02c7       |    |		Declare_Variable	Any
01e3 e5fd       |    |		Load	0x2,-0x3
01e4 01db       |    |		Execute	Vector,Length
01e5 00d8       |    |		Load_Top	At_Offset_0
01e6 00e2       |    |		Load_Encached	Integer_Cache
01e7 0260       | `  |		Execute	Discrete,In_Type
01e8 7001       |p   |		Jump_Nonzero	0x1ea
01e9 0801       |    |		Execute_Immediate	Raise,0x1
01ea 00eb       |    |		Load_Encached	Diana_Cache
01eb 18a8       |    |		Execute	Package,Field_Execute,Field_Number 0xa8
01ec a603       |    |		Store_Unchecked	0x3,0x3
01ed 00ec       |    |		Load_Encached	Diana_Tree_Cache
01ee 02c7       |    |		Declare_Variable	Any
01ef 00d9       |    |		Load_Top	At_Offset_1
01f0 00db       |    |		Load_Top	At_Offset_3
01f1 4861       |Ha  |		Short_Literal	0x61
01f2 00eb       |    |		Load_Encached	Diana_Cache
01f3 187d       | }  |		Execute	Package,Field_Execute,Field_Number 0x7d
01f4 a604       |    |		Store_Unchecked	0x3,0x4
01f5 00ec       |    |		Load_Encached	Diana_Tree_Cache
01f6 02c7       |    |		Declare_Variable	Any
01f7 00d8       |    |		Load_Top	At_Offset_0
01f8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01f9 e004       |    |		Load	0x0,0x4
01fa 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01fb 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01fc			BODY_01d8:
01fc e004       |    |		Load	0x0,0x4
01fd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01fe 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01ff 00da       |    |		Load_Top	At_Offset_2
0200 0120       |    |		Execute	Any,Is_Value
0201 6803       |h   |		Jump_Zero	0x205
0202 e004       |    |		Load	0x0,0x4
0203 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0204 7801       |x   |		Jump	0x206
0205 00da       |    |		Load_Top	At_Offset_2
0206 6039       |`9  |		Indirect_Literal	Discrete,0x240,{0x00000000, 0x00004000}
0207 e005       |    |		Load	0x0,0x5
0208 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0209 e006       |    |		Load	0x0,0x6
020a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
020b e004       |    |		Load	0x0,0x4
020c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
020d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
020e e407       |    |		Load	0x2,0x7
020f e004       |    |		Load	0x0,0x4
0210 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0211 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0212 0092 04de  |    |		Action	Push_String_Extended,0x4de					; "`Standard.Integer"
0214 01cc       |    |		Execute	Vector,Catenate
0215 e004       |    |		Load	0x0,0x4
0216 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0217 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0218 c605       |    |		Store	0x3,0x5
0219 0059       | Y  |		Store_Top	Discrete,At_Offset_1
021a 00d8       |    |		Load_Top	At_Offset_0
021b 6809       |h   |		Jump_Zero	0x225
021c e007       |    |		Load	0x0,0x7
021d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
021e 4805       |H   |		Short_Literal	0x5
021f 0092 04df  |    |		Action	Push_String_Extended,0x4df					; "Can't locate Standard.Integer for building range constraint for string literal."
0221 e008       |    |		Load	0x0,0x8
0222 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0223 e00b       |    |		Load	0x0,0xb
0224 0257       | W  |		Execute	Discrete,Raise
0225 00d9       |    |		Load_Top	At_Offset_1
0226 4907       |I   |		Short_Literal	0x107
0227 00eb       |    |		Load_Encached	Diana_Cache
0228 0096       |    |		Execute	Package,Entry
0229 c605       |    |		Store	0x3,0x5
022a e7ff       |    |		Load	0x3,-0x1
022b 00db       |    |		Load_Top	At_Offset_3
022c e00c       |    |		Load	0x0,0xc
022d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
022e 00d9       |    |		Load_Top	At_Offset_1
022f 00db       |    |		Load_Top	At_Offset_3
0230 4956       |IV  |		Short_Literal	0x156
0231 00eb       |    |		Load_Encached	Diana_Cache
0232 0096       |    |		Execute	Package,Entry
0233 00d9       |    |		Load_Top	At_Offset_1
0234 e602       |    |		Load	0x3,0x2
0235 495b       |I[  |		Short_Literal	0x15b
0236 00eb       |    |		Load_Encached	Diana_Cache
0237 0096       |    |		Execute	Package,Entry
0238 00d9       |    |		Load_Top	At_Offset_1
0239 e603       |    |		Load	0x3,0x3
023a 495b       |I[  |		Short_Literal	0x15b
023b 00eb       |    |		Load_Encached	Diana_Cache
023c 0096       |    |		Execute	Package,Entry
023d 00da       |    |		Load_Top	At_Offset_2
023e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
023f 0000       |    |		.XXX[0x1]
0240 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0244 0000 0000  |    |		.BLANK	0000[0x4]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0273       | s  |		.CONST	0x0273								; Address of begin
0249 033d       | =  |		.CONST	0x033d								; Address of exception handler
024a 000b       |    |		.CONST	0x000b								; Number of locals
024b			INIT_0248:
024b 00ec       |    |		Load_Encached	Diana_Tree_Cache
024c 02c7       |    |		Declare_Variable	Any
024d e7fe       |    |		Load	0x3,-0x2
024e 00eb       |    |		Load_Encached	Diana_Cache
024f 18ca       |    |		Execute	Package,Field_Execute,Field_Number 0xca
0250 a602       |    |		Store_Unchecked	0x3,0x2
0251 00ec       |    |		Load_Encached	Diana_Tree_Cache
0252 02c7       |    |		Declare_Variable	Any
0253 00d8       |    |		Load_Top	At_Offset_0
0254 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0255 e004       |    |		Load	0x0,0x4
0256 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0257 1b33       | 3  |		Execute	Package,Field_Read,Field_Number 0x33
0258 02c7       |    |		Declare_Variable	Any
0259 e004       |    |		Load	0x0,0x4
025a 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
025b 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
025c a604       |    |		Store_Unchecked	0x3,0x4
025d e004       |    |		Load	0x0,0x4
025e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
025f 00ec       |    |		Load_Encached	Diana_Tree_Cache
0260 02c7       |    |		Declare_Variable	Any
0261 4801       |H   |		Short_Literal	0x1
0262 e7fe       |    |		Load	0x3,-0x2
0263 4976       |Iv  |		Short_Literal	0x176
0264 00eb       |    |		Load_Encached	Diana_Cache
0265 0098       |    |		Execute	Package,Field_Read_Dynamic
0266 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0267 a606       |    |		Store_Unchecked	0x3,0x6
0268 e402       |    |		Load	0x2,0x2
0269 0007       |    |		Action	Break_Optional
026a 00e1       |    |		Load_Encached	Boolean_Cache
026b 00e1       |    |		Load_Encached	Boolean_Cache
026c e004       |    |		Load	0x0,0x4
026d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
026e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
026f 00ec       |    |		Load_Encached	Diana_Tree_Cache
0270 02c7       |    |		Declare_Variable	Any
0271 00d8       |    |		Load_Top	At_Offset_0
0272 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0273			BODY_0248:
0273 00e1       |    |		Load_Encached	Boolean_Cache
0274 00e1       |    |		Load_Encached	Boolean_Cache
0275 e403       |    |		Load	0x2,0x3
0276 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0277 e5fe       |    |		Load	0x2,-0x2
0278 e403       |    |		Load	0x2,0x3
0279 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
027a c607       |    |		Store	0x3,0x7
027b c608       |    |		Store	0x3,0x8
027c 005b       | [  |		Store_Top	Discrete,At_Offset_3
027d e004       |    |		Load	0x0,0x4
027e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
027f 4800       |H   |		Short_Literal	0x0
0280 4800       |H   |		Short_Literal	0x0
0281 00ea       |    |		Load_Encached	Null_String_Cache
0282 e7fe       |    |		Load	0x3,-0x2
0283 e004       |    |		Load	0x0,0x4
0284 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0285 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0286 c605       |    |		Store	0x3,0x5
0287 e607       |    |		Load	0x3,0x7
0288 4606       |F   |		Jump_Case	0x7
0289 788b       |x   |		Jump	0x315								; case 0x0
028a 7812       |x   |		Jump	0x29d								; case 0x1
028b 7829       |x)  |		Jump	0x2b5								; case 0x2
028c 783e       |x>  |		Jump	0x2cb								; case 0x3
028d 786e       |xn  |		Jump	0x2fc								; case 0x4
028e 7852       |xR  |		Jump	0x2e1								; case 0x5
028f 7800       |x   |		Jump	0x290								; case 0x6
0290 4807       |H   |		Short_Literal	0x7
0291 00eb       |    |		Load_Encached	Diana_Cache
0292 1878       | x  |		Execute	Package,Field_Execute,Field_Number 0x78
0293 c603       |    |		Store	0x3,0x3
0294 e606       |    |		Load	0x3,0x6
0295 4902       |I   |		Short_Literal	0x102
0296 00eb       |    |		Load_Encached	Diana_Cache
0297 0096       |    |		Execute	Package,Entry
0298 e603       |    |		Load	0x3,0x3
0299 495b       |I[  |		Short_Literal	0x15b
029a 00eb       |    |		Load_Encached	Diana_Cache
029b 0096       |    |		Execute	Package,Entry
029c 787a       |xz  |		Jump	0x317
029d e5fd       |    |		Load	0x2,-0x3
029e 480c       |H   |		Short_Literal	0xc
029f 00eb       |    |		Load_Encached	Diana_Cache
02a0 187a       | z  |		Execute	Package,Field_Execute,Field_Number 0x7a
02a1 c603       |    |		Store	0x3,0x3
02a2 e606       |    |		Load	0x3,0x6
02a3 4902       |I   |		Short_Literal	0x102
02a4 00eb       |    |		Load_Encached	Diana_Cache
02a5 0096       |    |		Execute	Package,Entry
02a6 e603       |    |		Load	0x3,0x3
02a7 495b       |I[  |		Short_Literal	0x15b
02a8 00eb       |    |		Load_Encached	Diana_Cache
02a9 0096       |    |		Execute	Package,Entry
02aa e606       |    |		Load	0x3,0x6
02ab 4902       |I   |		Short_Literal	0x102
02ac 00eb       |    |		Load_Encached	Diana_Cache
02ad 0096       |    |		Execute	Package,Entry
02ae e5fd       |    |		Load	0x2,-0x3
02af 8409       |    |		Call	0x2,0x9
02b0 e603       |    |		Load	0x3,0x3
02b1 4959       |IY  |		Short_Literal	0x159
02b2 00eb       |    |		Load_Encached	Diana_Cache
02b3 0096       |    |		Execute	Package,Entry
02b4 7862       |xb  |		Jump	0x317
02b5 e5fd       |    |		Load	0x2,-0x3
02b6 00e2       |    |		Load_Encached	Integer_Cache
02b7 00e0       |    |		Load_Encached	Standard_Cache
02b8 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02b9 00eb       |    |		Load_Encached	Diana_Cache
02ba 18a8       |    |		Execute	Package,Field_Execute,Field_Number 0xa8
02bb c603       |    |		Store	0x3,0x3
02bc e606       |    |		Load	0x3,0x6
02bd 4902       |I   |		Short_Literal	0x102
02be 00eb       |    |		Load_Encached	Diana_Cache
02bf 0096       |    |		Execute	Package,Entry
02c0 e603       |    |		Load	0x3,0x3
02c1 495b       |I[  |		Short_Literal	0x15b
02c2 00eb       |    |		Load_Encached	Diana_Cache
02c3 0096       |    |		Execute	Package,Entry
02c4 e5fd       |    |		Load	0x2,-0x3
02c5 00eb       |    |		Load_Encached	Diana_Cache
02c6 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
02c7 e603       |    |		Load	0x3,0x3
02c8 00eb       |    |		Load_Encached	Diana_Cache
02c9 183a       | :  |		Execute	Package,Field_Execute,Field_Number 0x3a
02ca 784c       |xL  |		Jump	0x317
02cb e5fd       |    |		Load	0x2,-0x3
02cc 00e2       |    |		Load_Encached	Integer_Cache
02cd 00e0       |    |		Load_Encached	Standard_Cache
02ce 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02cf 00eb       |    |		Load_Encached	Diana_Cache
02d0 18a8       |    |		Execute	Package,Field_Execute,Field_Number 0xa8
02d1 c603       |    |		Store	0x3,0x3
02d2 e606       |    |		Load	0x3,0x6
02d3 4902       |I   |		Short_Literal	0x102
02d4 00eb       |    |		Load_Encached	Diana_Cache
02d5 0096       |    |		Execute	Package,Entry
02d6 e603       |    |		Load	0x3,0x3
02d7 495b       |I[  |		Short_Literal	0x15b
02d8 00eb       |    |		Load_Encached	Diana_Cache
02d9 0096       |    |		Execute	Package,Entry
02da e5fd       |    |		Load	0x2,-0x3
02db 00eb       |    |		Load_Encached	Diana_Cache
02dc 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
02dd e603       |    |		Load	0x3,0x3
02de 00eb       |    |		Load_Encached	Diana_Cache
02df 183a       | :  |		Execute	Package,Field_Execute,Field_Number 0x3a
02e0 7836       |x6  |		Jump	0x317
02e1 e5fd       |    |		Load	0x2,-0x3
02e2 480b       |H   |		Short_Literal	0xb
02e3 00eb       |    |		Load_Encached	Diana_Cache
02e4 187a       | z  |		Execute	Package,Field_Execute,Field_Number 0x7a
02e5 c603       |    |		Store	0x3,0x3
02e6 e606       |    |		Load	0x3,0x6
02e7 4902       |I   |		Short_Literal	0x102
02e8 00eb       |    |		Load_Encached	Diana_Cache
02e9 0096       |    |		Execute	Package,Entry
02ea e603       |    |		Load	0x3,0x3
02eb 495b       |I[  |		Short_Literal	0x15b
02ec 00eb       |    |		Load_Encached	Diana_Cache
02ed 0096       |    |		Execute	Package,Entry
02ee e5fd       |    |		Load	0x2,-0x3
02ef 01db       |    |		Execute	Vector,Length
02f0 00d8       |    |		Load_Top	At_Offset_0
02f1 00e2       |    |		Load_Encached	Integer_Cache
02f2 0260       | `  |		Execute	Discrete,In_Type
02f3 7001       |p   |		Jump_Nonzero	0x2f5
02f4 0801       |    |		Execute_Immediate	Raise,0x1
02f5 e603       |    |		Load	0x3,0x3
02f6 840a       |    |		Call	0x2,0xa
02f7 e603       |    |		Load	0x3,0x3
02f8 4958       |IX  |		Short_Literal	0x158
02f9 00eb       |    |		Load_Encached	Diana_Cache
02fa 0096       |    |		Execute	Package,Entry
02fb 781b       |x   |		Jump	0x317
02fc e606       |    |		Load	0x3,0x6
02fd 4902       |I   |		Short_Literal	0x102
02fe 00eb       |    |		Load_Encached	Diana_Cache
02ff 0096       |    |		Execute	Package,Entry
0300 e5fd       |    |		Load	0x2,-0x3
0301 e00d       |    |		Load	0x0,0xd
0302 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0303 e407       |    |		Load	0x2,0x7
0304 e004       |    |		Load	0x0,0x4
0305 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0306 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0307 0092 04e0  |    |		Action	Push_String_Extended,0x4e0					; "`"
0309 01cc       |    |		Execute	Vector,Catenate
030a 8408       |    |		Call	0x2,0x8
030b c603       |    |		Store	0x3,0x3
030c e606       |    |		Load	0x3,0x6
030d 4902       |I   |		Short_Literal	0x102
030e 00eb       |    |		Load_Encached	Diana_Cache
030f 0096       |    |		Execute	Package,Entry
0310 e603       |    |		Load	0x3,0x3
0311 495b       |I[  |		Short_Literal	0x15b
0312 00eb       |    |		Load_Encached	Diana_Cache
0313 0096       |    |		Execute	Package,Entry
0314 7802       |x   |		Jump	0x317
0315 00ec       |    |		Load_Encached	Diana_Tree_Cache
0316 c603       |    |		Store	0x3,0x3
0317 e603       |    |		Load	0x3,0x3
0318 e7fe       |    |		Load	0x3,-0x2
0319 e7ff       |    |		Load	0x3,-0x1
031a e00e       |    |		Load	0x0,0xe
031b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
031c e603       |    |		Load	0x3,0x3
031d e606       |    |		Load	0x3,0x6
031e 495e       |I^  |		Short_Literal	0x15e
031f 00eb       |    |		Load_Encached	Diana_Cache
0320 0096       |    |		Execute	Package,Entry
0321 e007       |    |		Load	0x0,0x7
0322 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0323 4803       |H   |		Short_Literal	0x3
0324 0092 04e1  |    |		Action	Push_String_Extended,0x4e1					; "Replaced default expression for "
0326 e5ff       |    |		Load	0x2,-0x1
0327 01cc       |    |		Execute	Vector,Catenate
0328 0092 04d3  |    |		Action	Push_String_Extended,0x4d3					; " ("
032a 01cc       |    |		Execute	Vector,Catenate
032b e602       |    |		Load	0x3,0x2
032c e009       |    |		Load	0x0,0x9
032d 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
032e 01cc       |    |		Execute	Vector,Catenate
032f 0092 04e2  |    |		Action	Push_String_Extended,0x4e2					; ") with "
0331 01cc       |    |		Execute	Vector,Catenate
0332 e603       |    |		Load	0x3,0x3
0333 e009       |    |		Load	0x0,0x9
0334 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0335 01cc       |    |		Execute	Vector,Catenate
0336 e008       |    |		Load	0x0,0x8
0337 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0338 e604       |    |		Load	0x3,0x4
0339 e004       |    |		Load	0x0,0x4
033a 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
033b 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
033c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
033d			TRAP_0248:
033d e00b       |    |		Load	0x0,0xb
033e 010f       |    |		Execute	Exception,Equal
033f 6806       |h   |		Jump_Zero	0x346
0340 e604       |    |		Load	0x3,0x4
0341 e004       |    |		Load	0x0,0x4
0342 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0343 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0344 00d8       |    |		Load_Top	At_Offset_0
0345 0101       |    |		Execute	Exception,Reraise
0346 e403       |    |		Load	0x2,0x3
0347 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0348 010f       |    |		Execute	Exception,Equal
0349 680e       |h   |		Jump_Zero	0x358
034a e007       |    |		Load	0x0,0x7
034b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
034c 4805       |H   |		Short_Literal	0x5
034d 0092 04e3  |    |		Action	Push_String_Extended,0x4e3					; "Invalid Kind parameter; '"
034f e5fe       |    |		Load	0x2,-0x2
0350 01cc       |    |		Execute	Vector,Catenate
0351 0092 04e4  |    |		Action	Push_String_Extended,0x4e4					; "' is not a permitted default"
0353 01cc       |    |		Execute	Vector,Catenate
0354 e008       |    |		Load	0x0,0x8
0355 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0356 e00b       |    |		Load	0x0,0xb
0357 0257       | W  |		Execute	Discrete,Raise
0358 010e       |    |		Execute	Exception,Is_Constraint_Error
0359 6816       |h   |		Jump_Zero	0x370
035a e007       |    |		Load	0x0,0x7
035b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
035c 4805       |H   |		Short_Literal	0x5
035d 0092 04e5  |    |		Action	Push_String_Extended,0x4e5					; "Invalid value parameter; '"
035f e5fd       |    |		Load	0x2,-0x3
0360 01cc       |    |		Execute	Vector,Catenate
0361 0092 04e6  |    |		Action	Push_String_Extended,0x4e6					; "' is not a "
0363 01cc       |    |		Execute	Vector,Catenate
0364 e607       |    |		Load	0x3,0x7
0365 e402       |    |		Load	0x2,0x2
0366 011c       |    |		Execute	Any,Convert_Unchecked
0367 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0368 01cc       |    |		Execute	Vector,Catenate
0369 0092 04e7  |    |		Action	Push_String_Extended,0x4e7					; " value"
036b 01cc       |    |		Execute	Vector,Catenate
036c e008       |    |		Load	0x0,0x8
036d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
036e e00b       |    |		Load	0x0,0xb
036f 0257       | W  |		Execute	Discrete,Raise
0370 0100       |    |		Execute	Exception,Raise
0371 0000 0000  |    |		.BLANK	0000[0x7]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 03af       |    |		.CONST	0x03af								; Address of begin
0379 04a4       |    |		.CONST	0x04a4								; Address of exception handler
037a 000c       |    |		.CONST	0x000c								; Number of locals
037b			INIT_0378:
037b e006       |    |		Load	0x0,0x6
037c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
037d e00a       |    |		Load	0x0,0xa
037e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
037f e004       |    |		Load	0x0,0x4
0380 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0381 02ff       |    |		Declare_Variable	Variant_Record
0382 00d8       |    |		Load_Top	At_Offset_0
0383 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0384 e004       |    |		Load	0x0,0x4
0385 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0386 02ff       |    |		Declare_Variable	Variant_Record
0387 00d8       |    |		Load_Top	At_Offset_0
0388 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0389 e004       |    |		Load	0x0,0x4
038a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
038b 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
038c e00f       |    |		Load	0x0,0xf
038d 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
038e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
038f e005       |    |		Load	0x0,0x5
0390 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0391 02c7       |    |		Declare_Variable	Any
0392 e010       |    |		Load	0x0,0x10
0393 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0394 e005       |    |		Load	0x0,0x5
0395 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0396 a607       |    |		Store_Unchecked	0x3,0x7
0397 e011       |    |		Load	0x0,0x11
0398 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0399 02c7       |    |		Declare_Variable	Any
039a 00d8       |    |		Load_Top	At_Offset_0
039b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
039c e012       |    |		Load	0x0,0x12
039d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
039e 02c7       |    |		Declare_Variable	Any
039f 00d8       |    |		Load_Top	At_Offset_0
03a0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03a1 00ec       |    |		Load_Encached	Diana_Tree_Cache
03a2 02c7       |    |		Declare_Variable	Any
03a3 00d8       |    |		Load_Top	At_Offset_0
03a4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03a5 e013       |    |		Load	0x0,0x13
03a6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03a7 02c7       |    |		Declare_Variable	Any
03a8 00d8       |    |		Load_Top	At_Offset_0
03a9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03aa e00e       |    |		Load	0x0,0xe
03ab 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03ac 02c7       |    |		Declare_Variable	Any
03ad 00d8       |    |		Load_Top	At_Offset_0
03ae 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03af			BODY_0378:
03af e004       |    |		Load	0x0,0x4
03b0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03b1 e604       |    |		Load	0x3,0x4
03b2 e7ff       |    |		Load	0x3,-0x1
03b3 e004       |    |		Load	0x0,0x4
03b4 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
03b5 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03b6 00d1       |    |		Pop_Control	Pop_Count_1
03b7 c605       |    |		Store	0x3,0x5
03b8 e004       |    |		Load	0x0,0x4
03b9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03ba e407       |    |		Load	0x2,0x7
03bb 0120       |    |		Execute	Any,Is_Value
03bc 6803       |h   |		Jump_Zero	0x3c0
03bd e004       |    |		Load	0x0,0x4
03be 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03bf 7801       |x   |		Jump	0x3c1
03c0 e407       |    |		Load	0x2,0x7
03c1 6106       |a   |		Indirect_Literal	Discrete,0x4c8,{0x00000000, 0x00004000}
03c2 e005       |    |		Load	0x0,0x5
03c3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03c4 e604       |    |		Load	0x3,0x4
03c5 e004       |    |		Load	0x0,0x4
03c6 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
03c7 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03c8 c407       |    |		Store	0x2,0x7
03c9 c605       |    |		Store	0x3,0x5
03ca e605       |    |		Load	0x3,0x5
03cb 6813       |h   |		Jump_Zero	0x3df
03cc e007       |    |		Load	0x0,0x7
03cd 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03ce 4805       |H   |		Short_Literal	0x5
03cf e605       |    |		Load	0x3,0x5
03d0 e004       |    |		Load	0x0,0x4
03d1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03d2 011c       |    |		Execute	Any,Convert_Unchecked
03d3 1c01       |    |		Execute_Immediate	Run_Utility,0x1
03d4 0092 04e8  |    |		Action	Push_String_Extended,0x4e8					; ": Can't get version id for "
03d6 01cc       |    |		Execute	Vector,Catenate
03d7 e7ff       |    |		Load	0x3,-0x1
03d8 e004       |    |		Load	0x0,0x4
03d9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03da 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
03db 01cc       |    |		Execute	Vector,Catenate
03dc e008       |    |		Load	0x0,0x8
03dd 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03de 78b9       |x   |		Jump	0x498
03df e604       |    |		Load	0x3,0x4
03e0 e004       |    |		Load	0x0,0x4
03e1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03e2 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
03e3 e014       |    |		Load	0x0,0x14
03e4 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
03e5 e00f       |    |		Load	0x0,0xf
03e6 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
03e7 e609       |    |		Load	0x3,0x9
03e8 0120       |    |		Execute	Any,Is_Value
03e9 6803       |h   |		Jump_Zero	0x3ed
03ea e012       |    |		Load	0x0,0x12
03eb 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
03ec 7801       |x   |		Jump	0x3ee
03ed e609       |    |		Load	0x3,0x9
03ee e608       |    |		Load	0x3,0x8
03ef 0120       |    |		Execute	Any,Is_Value
03f0 6804       |h   |		Jump_Zero	0x3f5
03f1 e011       |    |		Load	0x0,0x11
03f2 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
03f3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03f4 7801       |x   |		Jump	0x3f6
03f5 e608       |    |		Load	0x3,0x8
03f6 e607       |    |		Load	0x3,0x7
03f7 4800       |H   |		Short_Literal	0x0
03f8 4803       |H   |		Short_Literal	0x3
03f9 e604       |    |		Load	0x3,0x4
03fa e011       |    |		Load	0x0,0x11
03fb 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03fc 0162       | b  |		Execute	Variant_Record,Check_In_Type
03fd e011       |    |		Load	0x0,0x11
03fe 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03ff c608       |    |		Store	0x3,0x8
0400 c609       |    |		Store	0x3,0x9
0401 c606       |    |		Store	0x3,0x6
0402 e606       |    |		Load	0x3,0x6
0403 6813       |h   |		Jump_Zero	0x417
0404 e007       |    |		Load	0x0,0x7
0405 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0406 4805       |H   |		Short_Literal	0x5
0407 e606       |    |		Load	0x3,0x6
0408 e00f       |    |		Load	0x0,0xf
0409 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
040a 011c       |    |		Execute	Any,Convert_Unchecked
040b 1c01       |    |		Execute_Immediate	Run_Utility,0x1
040c 0092 04e9  |    |		Action	Push_String_Extended,0x4e9					; ": Can't open Diana Tree for "
040e 01cc       |    |		Execute	Vector,Catenate
040f e604       |    |		Load	0x3,0x4
0410 e004       |    |		Load	0x0,0x4
0411 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0412 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
0413 01cc       |    |		Execute	Vector,Catenate
0414 e008       |    |		Load	0x0,0x8
0415 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0416 7881       |x   |		Jump	0x498
0417 e7ff       |    |		Load	0x3,-0x1
0418 e609       |    |		Load	0x3,0x9
0419 00eb       |    |		Load_Encached	Diana_Cache
041a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
041b c7ff       |    |		Store	0x3,-0x1
041c e7ff       |    |		Load	0x3,-0x1
041d e011       |    |		Load	0x0,0x11
041e 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
041f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0420 c60a       |    |		Store	0x3,0xa
0421 e00f       |    |		Load	0x0,0xf
0422 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0423 e603       |    |		Load	0x3,0x3
0424 4800       |H   |		Short_Literal	0x0
0425 e607       |    |		Load	0x3,0x7
0426 e604       |    |		Load	0x3,0x4
0427 e011       |    |		Load	0x0,0x11
0428 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0429 0162       | b  |		Execute	Variant_Record,Check_In_Type
042a e011       |    |		Load	0x0,0x11
042b 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
042c 00d1       |    |		Pop_Control	Pop_Count_1
042d c606       |    |		Store	0x3,0x6
042e e603       |    |		Load	0x3,0x3
042f e004       |    |		Load	0x0,0x4
0430 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0431 6813       |h   |		Jump_Zero	0x445
0432 e007       |    |		Load	0x0,0x7
0433 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0434 4805       |H   |		Short_Literal	0x5
0435 e606       |    |		Load	0x3,0x6
0436 e00f       |    |		Load	0x0,0xf
0437 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0438 011c       |    |		Execute	Any,Convert_Unchecked
0439 1c01       |    |		Execute_Immediate	Run_Utility,0x1
043a 0092 04ea  |    |		Action	Push_String_Extended,0x4ea					; ": Can't get Image for "
043c 01cc       |    |		Execute	Vector,Catenate
043d e604       |    |		Load	0x3,0x4
043e e004       |    |		Load	0x0,0x4
043f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0440 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
0441 01cc       |    |		Execute	Vector,Catenate
0442 e008       |    |		Load	0x0,0x8
0443 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0444 7847       |xG  |		Jump	0x48c
0445 e00f       |    |		Load	0x0,0xf
0446 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0447 00da       |    |		Load_Top	At_Offset_2
0448 0120       |    |		Execute	Any,Is_Value
0449 6803       |h   |		Jump_Zero	0x44d
044a e013       |    |		Load	0x0,0x13
044b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
044c 7801       |x   |		Jump	0x44e
044d 00da       |    |		Load_Top	At_Offset_2
044e 4800       |H   |		Short_Literal	0x0
044f e607       |    |		Load	0x3,0x7
0450 e602       |    |		Load	0x3,0x2
0451 4802       |H   |		Short_Literal	0x2
0452 e603       |    |		Load	0x3,0x3
0453 e015       |    |		Load	0x0,0x15
0454 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0455 0162       | b  |		Execute	Variant_Record,Check_In_Type
0456 e013       |    |		Load	0x0,0x13
0457 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0458 c60b       |    |		Store	0x3,0xb
0459 c606       |    |		Store	0x3,0x6
045a e606       |    |		Load	0x3,0x6
045b 6813       |h   |		Jump_Zero	0x46f
045c e007       |    |		Load	0x0,0x7
045d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
045e 4805       |H   |		Short_Literal	0x5
045f e606       |    |		Load	0x3,0x6
0460 e00f       |    |		Load	0x0,0xf
0461 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0462 011c       |    |		Execute	Any,Convert_Unchecked
0463 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0464 0092 04eb  |    |		Action	Push_String_Extended,0x4eb					; ": Can't open Image for "
0466 01cc       |    |		Execute	Vector,Catenate
0467 e604       |    |		Load	0x3,0x4
0468 e004       |    |		Load	0x0,0x4
0469 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
046a 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
046b 01cc       |    |		Execute	Vector,Catenate
046c e008       |    |		Load	0x0,0x8
046d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
046e 781d       |x   |		Jump	0x48c
046f 00d8       |    |		Load_Top	At_Offset_0
0470 0120       |    |		Execute	Any,Is_Value
0471 6803       |h   |		Jump_Zero	0x475
0472 e00e       |    |		Load	0x0,0xe
0473 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0474 7801       |x   |		Jump	0x476
0475 00d8       |    |		Load_Top	At_Offset_0
0476 00da       |    |		Load_Top	At_Offset_2
0477 e602       |    |		Load	0x3,0x2
0478 e016       |    |		Load	0x0,0x16
0479 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
047a e00e       |    |		Load	0x0,0xe
047b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
047c c60c       |    |		Store	0x3,0xc
047d e7ff       |    |		Load	0x3,-0x1
047e 00d9       |    |		Load_Top	At_Offset_1
047f 840b       |    |		Call	0x2,0xb
0480 00d8       |    |		Load_Top	At_Offset_0
0481 e00e       |    |		Load	0x0,0xe
0482 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0483 c60c       |    |		Store	0x3,0xc
0484 e00f       |    |		Load	0x0,0xf
0485 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0486 00da       |    |		Load_Top	At_Offset_2
0487 4800       |H   |		Short_Literal	0x0
0488 e013       |    |		Load	0x0,0x13
0489 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
048a c60b       |    |		Store	0x3,0xb
048b c606       |    |		Store	0x3,0x6
048c e00f       |    |		Load	0x0,0xf
048d 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
048e 4800       |H   |		Short_Literal	0x0
048f 4801       |H   |		Short_Literal	0x1
0490 e607       |    |		Load	0x3,0x7
0491 e604       |    |		Load	0x3,0x4
0492 e011       |    |		Load	0x0,0x11
0493 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0494 0162       | b  |		Execute	Variant_Record,Check_In_Type
0495 e011       |    |		Load	0x0,0x11
0496 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0497 c606       |    |		Store	0x3,0x6
0498 e607       |    |		Load	0x3,0x7
0499 4801       |H   |		Short_Literal	0x1
049a e606       |    |		Load	0x3,0x6
049b 7003       |p   |		Jump_Nonzero	0x49f
049c e605       |    |		Load	0x3,0x5
049d 0f00       |    |		Execute_Immediate	Equal,0x0
049e 7801       |x   |		Jump	0x4a0
049f 4800       |H   |		Short_Literal	0x0
04a0 e005       |    |		Load	0x0,0x5
04a1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04a2 c607       |    |		Store	0x3,0x7
04a3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04a4			TRAP_0378:
04a4 e00b       |    |		Load	0x0,0xb
04a5 010f       |    |		Execute	Exception,Equal
04a6 6807       |h   |		Jump_Zero	0x4ae
04a7 e607       |    |		Load	0x3,0x7
04a8 4801       |H   |		Short_Literal	0x1
04a9 4800       |H   |		Short_Literal	0x0
04aa e005       |    |		Load	0x0,0x5
04ab 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04ac c607       |    |		Store	0x3,0x7
04ad 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04ae e607       |    |		Load	0x3,0x7
04af 4801       |H   |		Short_Literal	0x1
04b0 4800       |H   |		Short_Literal	0x0
04b1 e005       |    |		Load	0x0,0x5
04b2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04b3 c607       |    |		Store	0x3,0x7
04b4 e007       |    |		Load	0x0,0x7
04b5 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04b6 4805       |H   |		Short_Literal	0x5
04b7 0092 04d9  |    |		Action	Push_String_Extended,0x4d9					; "Unhandled exception changing default for "
04b9 e5ff       |    |		Load	0x2,-0x1
04ba 01cc       |    |		Execute	Vector,Catenate
04bb 0092 04da  |    |		Action	Push_String_Extended,0x4da					; " to "
04bd 01cc       |    |		Execute	Vector,Catenate
04be e5fe       |    |		Load	0x2,-0x2
04bf 01cc       |    |		Execute	Vector,Catenate
04c0 0092 04db  |    |		Action	Push_String_Extended,0x4db					; " "
04c2 01cc       |    |		Execute	Vector,Catenate
04c3 e5fd       |    |		Load	0x2,-0x3
04c4 01cc       |    |		Execute	Vector,Catenate
04c5 e008       |    |		Load	0x0,0x8
04c6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04c7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
04cc ; --------------------------------------------------------------------------------------
04cc ; STRING TABLE
04cc ; --------------------------------------------------------------------------------------
04cc 0042       | B  |		.STRTAB	0x0042->0x04ed							; "VOID"
04cd 0044       | D  |		.STRTAB	0x0044->0x04ef							; "CHARACTER_LITERAL"
04ce 0053       | S  |		.STRTAB	0x0053->0x04f7							; "INTEGER_LITERAL"
04cf 0060       | `  |		.STRTAB	0x0060->0x04ff							; "LONG_INTEGER_LITERAL"
04d0 0072       | r  |		.STRTAB	0x0072->0x0509							; "USED_NAME"
04d1 0079       | y  |		.STRTAB	0x0079->0x050d							; "STRING_LITERAL"
04d2 0085       |    |		.STRTAB	0x0085->0x0514							; "NULL_LITERAL"
04d3 008f       |    |		.STRTAB	0x008f->0x051a							; " ("
04d4 008f       |    |		.STRTAB	0x008f->0x051b							; ") does not denote a parameter specification"
04d5 00b8       |    |		.STRTAB	0x00b8->0x0531							; "Current default is "
04d6 00c9       |    |		.STRTAB	0x00c9->0x053a							; " is not an 'in' parameter"
04d7 00e0       |    |		.STRTAB	0x00e0->0x0547							; "Can't resolve "
04d8 00ec       |    |		.STRTAB	0x00ec->0x054e							; " because "
04d9 00f3       |    |		.STRTAB	0x00f3->0x0552							; "Unhandled exception changing default for "
04da 011a       |    |		.STRTAB	0x011a->0x0567							; " to "
04db 011c       |    |		.STRTAB	0x011c->0x0569							; " "
04dc 011b       |    |		.STRTAB	0x011b->0x0569							; "Can't locate "
04dd 0126       | &  |		.STRTAB	0x0126->0x0570							; " in character set."
04de 0136       | 6  |		.STRTAB	0x0136->0x0579							; "`Standard.Integer"
04df 0145       | E  |		.STRTAB	0x0145->0x0581							; "Can't locate Standard.Integer for building range constraint for string literal."
04e0 0192       |    |		.STRTAB	0x0192->0x05a9							; "`"
04e1 0191       |    |		.STRTAB	0x0191->0x05a9							; "Replaced default expression for "
04e2 01af       |    |		.STRTAB	0x01af->0x05b9							; ") with "
04e3 01b4       |    |		.STRTAB	0x01b4->0x05bd							; "Invalid Kind parameter; '"
04e4 01cb       |    |		.STRTAB	0x01cb->0x05c9							; "' is not a permitted default"
04e5 01e5       |    |		.STRTAB	0x01e5->0x05d7							; "Invalid value parameter; '"
04e6 01fd       |    |		.STRTAB	0x01fd->0x05e4							; "' is not a "
04e7 0206       |    |		.STRTAB	0x0206->0x05ea							; " value"
04e8 020a       |    |		.STRTAB	0x020a->0x05ed							; ": Can't get version id for "
04e9 0223       | #  |		.STRTAB	0x0223->0x05fa							; ": Can't open Diana Tree for "
04ea 023d       | =  |		.STRTAB	0x023d->0x0608							; ": Can't get Image for "
04eb 0251       | Q  |		.STRTAB	0x0251->0x0613							; ": Can't open Image for "
04ec 0266       | f  |		.STREND 0x0266->0x061f
04ed 564f 4944  |VOID|		.STRTAB_STRINGS
061f 0000       |    |		.XXX[0x1]
0620 ; --------------------------------------------------------------------------------------
0620 ; Debug Table
0620 ; --------------------------------------------------------------------------------------
0620 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x968b,0x0000,0x0001,0x0000
0626 0000 0000  |    |		.BLANK	0000[0x72]
0698 4040 0700  |@@  |		.XXX[0x2]
069a 0000 0000  |    |		.BLANK	0000[0x8]
06a2 0314 6e00  |  n |		.XXX[0x14]
06a4 005d aa40  | ] @|
06a6 0000 09f5  |    |
06a8 5800 0000  |X   |
06aa 00c5 ff00  |    |
06ac 1980 28c1  |  ( |
06ae 8c13 c000  |    |
06b0 0000 0000  |    |
06b2 0618 0331  |   1|
06b4 f600 c53a  |   :|
06b6 0000 0000  |    |		.BLANK	0000[0x5]
06bb c5e0 8000  |    |		.XXX[0xb]
06bd 18a7 4000  |  @ |
06bf 0002 0c60  |   `|
06c1 1e00 c56c  |   l|
06c3 8000 0005  |    |
06c5 8000       |    |
06c6 0000 0000  |    |		.BLANK	0000[0x4]
06ca c658 8000  | X  |		.XXX[0xa]
06cc 18a7 4000  |  @ |
06ce 0002 6a16  |  j |
06d0 00c7 b880  |    |
06d2 0000 001e  |    |
06d4 0000 0000  |    |		.BLANK	0000[0x4]
06d8 009d 8b80  |    |		.XXX[0xe]
06da 31ee 2000  |1   |
06dc 0000 00b0  |    |
06de 0000 0001  |    |
06e0 1423 0063  | # c|
06e2 bdc0 0000  |    |
06e4 0005 e000  |    |
06e6 0000 0000  |    |		.BLANK	0000[0x6]
06ec 2000 0000  |    |		.XXX[0x2b]
06ee 031b ff08  |    |
06f0 9000 63dc  |  c |
06f2 4000 0000  |@   |
06f4 063b 0800  | ;  |
06f6 c936 c69f  | 6  |
06f8 8019 6330  |  c0|
06fa 0000 0001  |    |
06fc 8ef7 0063  |   c|
06fe 6200 18ce  |b   |
0700 e4d4 2c01  |  , |
0702 9288 0000  |    |
0704 0000 3c00  |  < |
0706 0000 0000  |    |
0708 0000 0001  |    |
070a 3b17 0064  |;  d|
070c a200 0000  |    |
070e 0001 6000  |  ` |
0710 0000 0228  |   (|
0712 4600 c907  |F   |
0714 0000 0000  |    |
0716 1580       |    |
0717 0000 0000  |    |		.BLANK	0000[0x6]
071d 0040 0000  | @  |		.XXX[0x1a]
071f 0006 445a  |  DZ|
0721 1120 00c9  |    |
0723 4400 0000  |D   |
0725 000c 8ec8  |    |
0727 0195 848d  |    |
0729 3f00 32c6  |? 2 |
072b 6000 0000  |`   |
072d 0324 1c00  | $  |
072f c84f 8032  | O 2|
0731 00a9 a858  |   X|
0733 032b 3e00  | +> |
0735 0000 0078  |   x|
0737 0000 0000  |    |		.BLANK	0000[0x4]
073b 0276 2e00  | v. |		.XXX[0xd]
073d cacf 8000  |    |
073f 0000 02c0  |    |
0741 0000 0004  |    |
0743 508c 0195  |P   |
0745 2500 0000  |%   |
0747 0031       | 1  |
0748 0000 0000  |    |		.BLANK	0000[0x7]
074f 8000 0000  |    |		.XXX[0x17]
0751 0ca1 6c22  |  l"|
0753 4001 959f  |@   |
0755 0000 0000  |    |
0757 194f 0000  | O  |
0759 0001 1a7e  |   ~|
075b 0065 8cc0  | e  |
075d 0000 0006  |    |
075f 5494 0193  |T   |
0761 b600 64c7  |  d |
0763 10c9 4006  |  @ |
0765 5b0c       |[   |
0766 0000 0000  |    |		.BLANK	0000[0x6]
076c 1017 b006  |    |		.XXX[0x10]
076e 615c 0000  |a\  |
0770 0000 658c  |  e |
0772 e6ce e00c  |    |
0774 c2b8 0000  |    |
0776 008c 1600  |    |
0778 330a e00d  |3   |
077a 5200 06a0  |R   |
077c 0000 0000  |    |		.BLANK	0000[0x7]
0783 0197 6800  |  h |		.XXX[0x11]
0785 1906 3d00  |  = |
0787 2b5d c000  |+]  |
0789 0000 065d  |   ]|
078b a001 96c3  |    |
078d 0065 c880  | e  |
078f 0010 06f2  |    |
0791 b801 9857  |   W|
0793 8646       | F  |
0794 0000 0000  |    |		.BLANK	0000[0x5]
0799 0003 3380  |  3 |		.XXX[0xb]
079b 0000 0000  |    |
079d 0000 0001  |    |
079f 9a00 0000  |    |
07a1 0000 0000  |    |
07a3 0080       |    |
07a4 0000 0000  |    |		.BLANK	0000[0x5c]