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

⟦7eaf7434d⟧

    Length: 6144 (0x1800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦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 0a18       |    |		.CONST	0x0a18								; 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 8006       |    |		.CONST	0x8006								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00d8       |    |		.CONST	0x00d8								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0036       | 6  |		.CONST	0x0036								; Number of locals
000b			INIT_0008:
000b 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
000d 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
000e 00c4       |    |		Action	Make_Default
000f 4800       |H   |		Short_Literal	0x0
0010 61df       |a   |		Indirect_Literal	Discrete,0x1f0,{0x00000000, 0x0000ffff}
0011 00e3       |    |		Load_Encached	Natural_Cache
0012 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0013 4800       |H   |		Short_Literal	0x0
0014 4803       |H   |		Short_Literal	0x3
0015 029f 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Call
0017 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0018 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
001a 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
001c 029a 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call,Visible,Unelaborated
001e 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
0020 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
0022 029a 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Outer_Call,Visible,Unelaborated
0024 00e3       |    |		Load_Encached	Natural_Cache
0025 0266       | f  |		Execute	Discrete,Bounds
0026 e210       |    |		Load	0x1,0x10
0027 02a0       |    |		Declare_Subprogram	Null_Subprogram
0028 4801       |H   |		Short_Literal	0x1
0029 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
002a 029a 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call,Visible,Unelaborated
002c 029a 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call,Visible,Unelaborated
002e 029a 0383  |    |		Declare_Subprogram	INIT_0380,For_Outer_Call,Visible,Unelaborated
0030 029a 0393  |    |		Declare_Subprogram	INIT_0390,For_Outer_Call,Visible,Unelaborated
0032 00c4       |    |		Action	Make_Default
0033 00c4       |    |		Action	Make_Default
0034 00c4       |    |		Action	Make_Default
0035 00c4       |    |		Action	Make_Default
0036 029a 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Outer_Call,Visible,Unelaborated
0038 c21f       |    |		Store	0x1,0x1f
0039 029a 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Outer_Call,Visible,Unelaborated
003b c220       |    |		Store	0x1,0x20
003c 029a 040b  |    |		Declare_Subprogram	INIT_0408,For_Outer_Call,Visible,Unelaborated
003e c21d       |    |		Store	0x1,0x1d
003f 4806       |H   |		Short_Literal	0x6
0040 032a       | *  |		Declare_Type	Record,Incomplete
0041 c21e       |    |		Store	0x1,0x1e
0042 00da       |    |		Load_Top	At_Offset_2
0043 02a0       |    |		Declare_Subprogram	Null_Subprogram
0044 e20e       |    |		Load	0x1,0xe
0045 03a3       |    |		Complete_Type	Heap_Access,By_Defining
0046 e20e       |    |		Load	0x1,0xe
0047 0129       | )  |		Execute	Any,Make_Visible
0048 c20f       |    |		Store	0x1,0xf
0049 00bf       |    |		Action	Accept_Activation
004a 4801       |H   |		Short_Literal	0x1
004b 4805       |H   |		Short_Literal	0x5
004c 00e3       |    |		Load_Encached	Natural_Cache
004d 03f8       |    |		Declare_Type	Discrete,Constrained
004e 4800       |H   |		Short_Literal	0x0
004f 619c       |a   |		Indirect_Literal	Discrete,0x1ec,{0x00000000, 0x00001fff}
0050 00e3       |    |		Load_Encached	Natural_Cache
0051 03f8       |    |		Declare_Type	Discrete,Constrained
0052 e001       |    |		Load	0x0,0x1
0053 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0054 e002       |    |		Load	0x0,0x2
0055 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0056 00db       |    |		Load_Top	At_Offset_3
0057 e003       |    |		Load	0x0,0x3
0058 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0059 029f 041b  |    |		Declare_Subprogram	INIT_0418,For_Call
005b 4803       |H   |		Short_Literal	0x3
005c 032d       | -  |		Declare_Type	Record,Defined
005d 00e9       |    |		Load_Encached	String_Cache
005e 02a0       |    |		Declare_Subprogram	Null_Subprogram
005f 03ad       |    |		Declare_Type	Heap_Access,Defined
0060 00e2       |    |		Load_Encached	Integer_Cache
0061 e003       |    |		Load	0x0,0x3
0062 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0063 e003       |    |		Load	0x0,0x3
0064 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0065 e211       |    |		Load	0x1,0x11
0066 e002       |    |		Load	0x0,0x2
0067 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0068 e225       | %  |		Load	0x1,0x25
0069 029f 0433  |   3|		Declare_Subprogram	INIT_0430,For_Call
006b e21e       |    |		Load	0x1,0x1e
006c 0326       | &  |		Complete_Type	Record,By_Defining
006d 029b 0453  |   S|		Declare_Subprogram	INIT_0450,For_Outer_Call,Unelaborated
006f 029b 0463  |   c|		Declare_Subprogram	INIT_0460,For_Outer_Call,Unelaborated
0071 e004       |    |		Load	0x0,0x4
0072 e005       |    |		Load	0x0,0x5
0073 4865       |He  |		Short_Literal	0x65
0074 e210       |    |		Load	0x1,0x10
0075 e224       | $  |		Load	0x1,0x24
0076 e20e       |    |		Load	0x1,0xe
0077 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0078 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0079 e006       |    |		Load	0x0,0x6
007a 0387       |    |		Declare_Variable	Package
007b 00d8       |    |		Load_Top	At_Offset_0
007c 020f       |    |		Execute	Module,Activate
007d e007       |    |		Load	0x0,0x7
007e e008       |    |		Load	0x0,0x8
007f 4865       |He  |		Short_Literal	0x65
0080 e224       | $  |		Load	0x1,0x24
0081 e009       |    |		Load	0x0,0x9
0082 0387       |    |		Declare_Variable	Package
0083 00d8       |    |		Load_Top	At_Offset_0
0084 020f       |    |		Execute	Module,Activate
0085 e00a       |    |		Load	0x0,0xa
0086 e00b       |    |		Load	0x0,0xb
0087 00e2       |    |		Load_Encached	Integer_Cache
0088 e003       |    |		Load	0x0,0x3
0089 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
008a 0387       |    |		Declare_Variable	Package
008b 00d8       |    |		Load_Top	At_Offset_0
008c 020f       |    |		Execute	Module,Activate
008d e00c       |    |		Load	0x0,0xc
008e e00d       |    |		Load	0x0,0xd
008f 00e9       |    |		Load_Encached	String_Cache
0090 e003       |    |		Load	0x0,0x3
0091 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
0092 0387       |    |		Declare_Variable	Package
0093 00d8       |    |		Load_Top	At_Offset_0
0094 020f       |    |		Execute	Module,Activate
0095 e00e       |    |		Load	0x0,0xe
0096 e00f       |    |		Load	0x0,0xf
0097 00e9       |    |		Load_Encached	String_Cache
0098 e225       | %  |		Load	0x1,0x25
0099 e003       |    |		Load	0x0,0x3
009a 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
009b 0387       |    |		Declare_Variable	Package
009c 00d8       |    |		Load_Top	At_Offset_0
009d 020f       |    |		Execute	Module,Activate
009e e010       |    |		Load	0x0,0x10
009f e011       |    |		Load	0x0,0x11
00a0 e002       |    |		Load	0x0,0x2
00a1 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
00a2 e012       |    |		Load	0x0,0x12
00a3 0387       |    |		Declare_Variable	Package
00a4 00d8       |    |		Load_Top	At_Offset_0
00a5 020f       |    |		Execute	Module,Activate
00a6 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00a7 00c7       |    |		Action	Elaborate_Subprogram
00a8 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00a9 00c7       |    |		Action	Elaborate_Subprogram
00aa 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00ab 00c7       |    |		Action	Elaborate_Subprogram
00ac 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
00ad 00c7       |    |		Action	Elaborate_Subprogram
00ae 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
00af 00c7       |    |		Action	Elaborate_Subprogram
00b0 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
00b1 00c7       |    |		Action	Elaborate_Subprogram
00b2 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00b3 00c7       |    |		Action	Elaborate_Subprogram
00b4 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
00b5 00c7       |    |		Action	Elaborate_Subprogram
00b6 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00b7 00c7       |    |		Action	Elaborate_Subprogram
00b8 029d 046b  |   k|		Declare_Subprogram	INIT_0468,For_Outer_Call
00ba 029d 049b  |    |		Declare_Subprogram	INIT_0498,For_Outer_Call
00bc 029d 04f3  |    |		Declare_Subprogram	INIT_04f0,For_Outer_Call
00be 029d 0513  |    |		Declare_Subprogram	INIT_0510,For_Outer_Call
00c0 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00c1 00c7       |    |		Action	Elaborate_Subprogram
00c2 029d 0523  |   #|		Declare_Subprogram	INIT_0520,For_Outer_Call
00c4 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00c5 00c7       |    |		Action	Elaborate_Subprogram
00c6 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00c7 00c7       |    |		Action	Elaborate_Subprogram
00c8 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00c9 00c7       |    |		Action	Elaborate_Subprogram
00ca 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00cb 00c7       |    |		Action	Elaborate_Subprogram
00cc 029d 055b  |   [|		Declare_Subprogram	INIT_0558,For_Outer_Call
00ce 029d 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Outer_Call
00d0 029d 0613  |    |		Declare_Subprogram	INIT_0610,For_Outer_Call
00d2 029d 062b  |   +|		Declare_Subprogram	INIT_0628,For_Outer_Call
00d4 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
00d5 00c7       |    |		Action	Elaborate_Subprogram
00d6 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
00d7 00c7       |    |		Action	Elaborate_Subprogram
00d8			BODY_0008:
00d8 e013       |    |		Load	0x0,0x13
00d9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00da e014       |    |		Load	0x0,0x14
00db 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00dc a223       | #  |		Store_Unchecked	0x1,0x23
00dd 00bc       |    |		Action	Signal_Activated
00de 00bb       |    |		Action	Signal_Completion
00df 0000       |    |		.XXX[0x1]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 0107       |    |		.CONST	0x0107								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 000f       |    |		.CONST	0x000f								; Number of locals
00e3			INIT_00e0:
00e3 e20e       |    |		Load	0x1,0xe
00e4 e015       |    |		Load	0x0,0x15
00e5 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00e6 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
00e7 e20e       |    |		Load	0x1,0xe
00e8 0007       |    |		Action	Break_Optional
00e9 00e2       |    |		Load_Encached	Integer_Cache
00ea 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00eb e229       | )  |		Load	0x1,0x29
00ec 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00ed e229       | )  |		Load	0x1,0x29
00ee 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
00ef 0322       | "  |		Declare_Variable	Record
00f0 e016       |    |		Load	0x0,0x16
00f1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00f2 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00f3 02c7       |    |		Declare_Variable	Any
00f4 00d8       |    |		Load_Top	At_Offset_0
00f5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00f6 e016       |    |		Load	0x0,0x16
00f7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00f8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00f9 e003       |    |		Load	0x0,0x3
00fa 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00fb 029f 066b  |   k|		Declare_Subprogram	INIT_0668,For_Call
00fd 029f 06b3  |    |		Declare_Subprogram	INIT_06b0,For_Call
00ff 029f 06d3  |    |		Declare_Subprogram	INIT_06d0,For_Call
0101 029f 06eb  |    |		Declare_Subprogram	INIT_06e8,For_Call
0103 029f 072b  |   +|		Declare_Subprogram	INIT_0728,For_Call
0105 029f 07c3  |    |		Declare_Subprogram	INIT_07c0,For_Call
0107			BODY_00e0:
0107 e20e       |    |		Load	0x1,0xe
0108 0092 09d3  |    |		Action	Push_String_Extended,0x9d3					; "Error '~@~' (~#~) encountered processing ~1~ ~2~ ~3~"
010a 4807       |H   |		Short_Literal	0x7
010b 4802       |H   |		Short_Literal	0x2
010c 0092 09d4  |    |		Action	Push_String_Extended,0x9d4					; "!Machine.Target_Builder.Message_File"
010e 8212       |    |		Call	0x1,0x12
010f c403       |    |		Store	0x2,0x3
0110 e402       |    |		Load	0x2,0x2
0111 0219       |    |		Execute	Heap_Access,All_Read
0112 00d8       |    |		Load_Top	At_Offset_0
0113 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0114 e5fd       |    |		Load	0x2,-0x3
0115 4802       |H   |		Short_Literal	0x2
0116 8233       | 3  |		Call	0x1,0x33
0117 00d9       |    |		Load_Top	At_Offset_1
0118 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0119 00d1       |    |		Pop_Control	Pop_Count_1
011a 4800       |H   |		Short_Literal	0x0
011b e003       |    |		Load	0x0,0x3
011c 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
011d e402       |    |		Load	0x2,0x2
011e 0217       |    |		Execute	Heap_Access,All_Reference
011f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0120 e22a       | *  |		Load	0x1,0x2a
0121 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0122 e003       |    |		Load	0x0,0x3
0123 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0124 e402       |    |		Load	0x2,0x2
0125 0217       |    |		Execute	Heap_Access,All_Reference
0126 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0127 e22a       | *  |		Load	0x1,0x2a
0128 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0129 e402       |    |		Load	0x2,0x2
012a 0217       |    |		Execute	Heap_Access,All_Reference
012b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
012c e402       |    |		Load	0x2,0x2
012d 0217       |    |		Execute	Heap_Access,All_Reference
012e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
012f e402       |    |		Load	0x2,0x2
0130 0217       |    |		Execute	Heap_Access,All_Reference
0131 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0132 e228       | (  |		Load	0x1,0x28
0133 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0134 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0135 e229       | )  |		Load	0x1,0x29
0136 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0137 4865       |He  |		Short_Literal	0x65
0138 e015       |    |		Load	0x0,0x15
0139 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
013a e229       | )  |		Load	0x1,0x29
013b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
013c c405       |    |		Store	0x2,0x5
013d e016       |    |		Load	0x0,0x16
013e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
013f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0140 e407       |    |		Load	0x2,0x7
0141 60a6       |`   |		Indirect_Literal	Discrete,0x1e8,{0x00000000, 0x00004000}
0142 e017       |    |		Load	0x0,0x17
0143 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0144 e013       |    |		Load	0x0,0x13
0145 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0146 e014       |    |		Load	0x0,0x14
0147 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0148 4801       |H   |		Short_Literal	0x1
0149 4800       |H   |		Short_Literal	0x0
014a e013       |    |		Load	0x0,0x13
014b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
014c e016       |    |		Load	0x0,0x16
014d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
014e 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
014f e5ff       |    |		Load	0x2,-0x1
0150 e016       |    |		Load	0x0,0x16
0151 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0152 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0153 c407       |    |		Store	0x2,0x7
0154 c408       |    |		Store	0x2,0x8
0155 e408       |    |		Load	0x2,0x8
0156 7061       |pa  |		Jump_Nonzero	0x1b8
0157 00cf       |    |		Action	Mark_Auxiliary
0158 780b       |x   |		Jump	0x164
0159 e407       |    |		Load	0x2,0x7
015a e016       |    |		Load	0x0,0x16
015b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
015c 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
015d 840d       |    |		Call	0x2,0xd
015e e407       |    |		Load	0x2,0x7
015f e016       |    |		Load	0x0,0x16
0160 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0161 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0162 c407       |    |		Store	0x2,0x7
0163 00c9       |    |		Action	Pop_Auxiliary_Loop
0164 e407       |    |		Load	0x2,0x7
0165 e016       |    |		Load	0x0,0x16
0166 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0167 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0168 6ff0       |o   |		Jump_Zero	0x159
0169 00ce       |    |		Action	Pop_Auxiliary
016a e016       |    |		Load	0x0,0x16
016b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
016c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
016d e407       |    |		Load	0x2,0x7
016e 6079       |`y  |		Indirect_Literal	Discrete,0x1e8,{0x00000000, 0x00004000}
016f e017       |    |		Load	0x0,0x17
0170 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0171 e013       |    |		Load	0x0,0x13
0172 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0173 e014       |    |		Load	0x0,0x14
0174 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0175 4801       |H   |		Short_Literal	0x1
0176 4800       |H   |		Short_Literal	0x0
0177 e013       |    |		Load	0x0,0x13
0178 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0179 e016       |    |		Load	0x0,0x16
017a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
017b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
017c e5fe       |    |		Load	0x2,-0x2
017d e016       |    |		Load	0x0,0x16
017e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
017f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0180 c407       |    |		Store	0x2,0x7
0181 c408       |    |		Store	0x2,0x8
0182 e408       |    |		Load	0x2,0x8
0183 702a       |p*  |		Jump_Nonzero	0x1ae
0184 00cf       |    |		Action	Mark_Auxiliary
0185 7809       |x   |		Jump	0x18f
0186 e407       |    |		Load	0x2,0x7
0187 840f       |    |		Call	0x2,0xf
0188 c407       |    |		Store	0x2,0x7
0189 e407       |    |		Load	0x2,0x7
018a e016       |    |		Load	0x0,0x16
018b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
018c 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
018d c407       |    |		Store	0x2,0x7
018e 00c9       |    |		Action	Pop_Auxiliary_Loop
018f e407       |    |		Load	0x2,0x7
0190 e016       |    |		Load	0x0,0x16
0191 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0192 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0193 6ff2       |o   |		Jump_Zero	0x186
0194 00ce       |    |		Action	Pop_Auxiliary
0195 e406       |    |		Load	0x2,0x6
0196 e405       |    |		Load	0x2,0x5
0197 e229       | )  |		Load	0x1,0x29
0198 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0199 00d1       |    |		Pop_Control	Pop_Count_1
019a 00cf       |    |		Action	Mark_Auxiliary
019b 780c       |x   |		Jump	0x1a8
019c 4800       |H   |		Short_Literal	0x0
019d e406       |    |		Load	0x2,0x6
019e e229       | )  |		Load	0x1,0x29
019f 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
01a0 4820       |H   |		Short_Literal	0x20
01a1 e403       |    |		Load	0x2,0x3
01a2 821b       |    |		Call	0x1,0x1b
01a3 e406       |    |		Load	0x2,0x6
01a4 e229       | )  |		Load	0x1,0x29
01a5 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
01a6 00d1       |    |		Pop_Control	Pop_Count_1
01a7 00c9       |    |		Action	Pop_Auxiliary_Loop
01a8 e406       |    |		Load	0x2,0x6
01a9 e229       | )  |		Load	0x1,0x29
01aa 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
01ab 6ff0       |o   |		Jump_Zero	0x19c
01ac 00ce       |    |		Action	Pop_Auxiliary
01ad 7813       |x   |		Jump	0x1c1
01ae 4800       |H   |		Short_Literal	0x0
01af e5fe       |    |		Load	0x2,-0x2
01b0 e408       |    |		Load	0x2,0x8
01b1 e016       |    |		Load	0x0,0x16
01b2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01b3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01b4 4821       |H!  |		Short_Literal	0x21
01b5 e403       |    |		Load	0x2,0x3
01b6 821b       |    |		Call	0x1,0x1b
01b7 7809       |x   |		Jump	0x1c1
01b8 4800       |H   |		Short_Literal	0x0
01b9 e5ff       |    |		Load	0x2,-0x1
01ba e408       |    |		Load	0x2,0x8
01bb e016       |    |		Load	0x0,0x16
01bc 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01bd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01be 4822       |H"  |		Short_Literal	0x22
01bf e403       |    |		Load	0x2,0x3
01c0 821b       |    |		Call	0x1,0x1b
01c1 e404       |    |		Load	0x2,0x4
01c2 e003       |    |		Load	0x0,0x3
01c3 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01c4 e402       |    |		Load	0x2,0x2
01c5 0217       |    |		Execute	Heap_Access,All_Reference
01c6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01c7 e22a       | *  |		Load	0x1,0x2a
01c8 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01c9 4800       |H   |		Short_Literal	0x0
01ca e402       |    |		Load	0x2,0x2
01cb 0217       |    |		Execute	Heap_Access,All_Reference
01cc 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01cd e003       |    |		Load	0x0,0x3
01ce 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
01cf 4820       |H   |		Short_Literal	0x20
01d0 4800       |H   |		Short_Literal	0x0
01d1 480a       |H   |		Short_Literal	0xa
01d2 e404       |    |		Load	0x2,0x4
01d3 e018       |    |		Load	0x0,0x18
01d4 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01d5 821d       |    |		Call	0x1,0x1d
01d6 4823       |H#  |		Short_Literal	0x23
01d7 e403       |    |		Load	0x2,0x3
01d8 821b       |    |		Call	0x1,0x1b
01d9 e402       |    |		Load	0x2,0x2
01da 0219       |    |		Execute	Heap_Access,All_Read
01db e003       |    |		Load	0x0,0x3
01dc 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01dd 00d9       |    |		Load_Top	At_Offset_1
01de 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01df e003       |    |		Load	0x0,0x3
01e0 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
01e1 00da       |    |		Load_Top	At_Offset_2
01e2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01e3 c409       |    |		Store	0x2,0x9
01e4 00d1       |    |		Pop_Control	Pop_Count_1
01e5 e403       |    |		Load	0x2,0x3
01e6 8213       |    |		Call	0x1,0x13
01e7 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
01e8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
01ec 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001fff}
01f0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
01f4 0000 0000  |    |		.BLANK	0000[0x4]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 4607       |F   |		Jump_Case	0x8
01fc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01fd 7806       |x   |		Jump	0x204								; case 0x1
01fe 7809       |x   |		Jump	0x208								; case 0x2
01ff 780d       |x   |		Jump	0x20d								; case 0x3
0200 7810       |x   |		Jump	0x211								; case 0x4
0201 7811       |x   |		Jump	0x213								; case 0x5
0202 7812       |x   |		Jump	0x215								; case 0x6
0203 7815       |x   |		Jump	0x219								; case 0x7
0204 00da       |    |		Load_Top	At_Offset_2
0205 0091 09cf  |    |		Action	Push_String_Extended_Indexed,0x9cf				; "DEFAULT"
0207 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0208 00db       |    |		Load_Top	At_Offset_3
0209 00db       |    |		Load_Top	At_Offset_3
020a 00e0       |    |		Load_Encached	Standard_Cache
020b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
020c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
020d 00da       |    |		Load_Top	At_Offset_2
020e 00e0       |    |		Load_Encached	Standard_Cache
020f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0210 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0211 00db       |    |		Load_Top	At_Offset_3
0212 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0213 00db       |    |		Load_Top	At_Offset_3
0214 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0215 e211       |    |		Load	0x1,0x11
0216 00dc       |    |		Load_Top	At_Offset_4
0217 0267       | g  |		Execute	Discrete,Predecessor
0218 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0219 e211       |    |		Load	0x1,0x11
021a 00dc       |    |		Load_Top	At_Offset_4
021b 0268       | h  |		Execute	Discrete,Successor
021c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
021d 0000 0000  |    |		.XXX[0x3]
021f 0000       |    |
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0228       | (  |		.CONST	0x0228								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0003       |    |		.CONST	0x0003								; Number of locals
0223			INIT_0220:
0223 e20e       |    |		Load	0x1,0xe
0224 e223       | #  |		Load	0x1,0x23
0225 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
0226 e003       |    |		Load	0x0,0x3
0227 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0228			BODY_0220:
0228 00d9       |    |		Load_Top	At_Offset_1
0229 0219       |    |		Execute	Heap_Access,All_Read
022a e003       |    |		Load	0x0,0x3
022b 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
022c 00d9       |    |		Load_Top	At_Offset_1
022d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
022e 4800       |H   |		Short_Literal	0x0
022f 6040       |`@  |		Indirect_Literal	Discrete,0x270,{0x00000000, 0x00004000}
0230 e017       |    |		Load	0x0,0x17
0231 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0232 e013       |    |		Load	0x0,0x13
0233 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0234 e003       |    |		Load	0x0,0x3
0235 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0236 4800       |H   |		Short_Literal	0x0
0237 e5ff       |    |		Load	0x2,-0x1
0238 4800       |H   |		Short_Literal	0x0
0239 e003       |    |		Load	0x0,0x3
023a 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
023b 00da       |    |		Load_Top	At_Offset_2
023c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
023d 005a       | Z  |		Store_Top	Discrete,At_Offset_2
023e 00d1       |    |		Pop_Control	Pop_Count_1
023f 00d9       |    |		Load_Top	At_Offset_1
0240 0217       |    |		Execute	Heap_Access,All_Reference
0241 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0242 e003       |    |		Load	0x0,0x3
0243 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0244 6815       |h   |		Jump_Zero	0x25a
0245 e003       |    |		Load	0x0,0x3
0246 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0247 00da       |    |		Load_Top	At_Offset_2
0248 0217       |    |		Execute	Heap_Access,All_Reference
0249 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
024a e22a       | *  |		Load	0x1,0x2a
024b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
024c 00da       |    |		Load_Top	At_Offset_2
024d 0217       |    |		Execute	Heap_Access,All_Reference
024e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
024f e003       |    |		Load	0x0,0x3
0250 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0251 00da       |    |		Load_Top	At_Offset_2
0252 0217       |    |		Execute	Heap_Access,All_Reference
0253 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0254 e22a       | *  |		Load	0x1,0x2a
0255 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0256 00da       |    |		Load_Top	At_Offset_2
0257 0217       |    |		Execute	Heap_Access,All_Reference
0258 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0259 7804       |x   |		Jump	0x25e
025a 4800       |H   |		Short_Literal	0x0
025b 00da       |    |		Load_Top	At_Offset_2
025c 0217       |    |		Execute	Heap_Access,All_Reference
025d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
025e e5fe       |    |		Load	0x2,-0x2
025f 00da       |    |		Load_Top	At_Offset_2
0260 0217       |    |		Execute	Heap_Access,All_Reference
0261 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0262 e5fd       |    |		Load	0x2,-0x3
0263 00da       |    |		Load_Top	At_Offset_2
0264 0217       |    |		Execute	Heap_Access,All_Reference
0265 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0266 e5fc       |    |		Load	0x2,-0x4
0267 e225       | %  |		Load	0x1,0x25
0268 e223       | #  |		Load	0x1,0x23
0269 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
026a 00da       |    |		Load_Top	At_Offset_2
026b 0217       |    |		Execute	Heap_Access,All_Reference
026c 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
026d 00d9       |    |		Load_Top	At_Offset_1
026e a5fb       |    |		Store_Unchecked	0x2,-0x5
026f 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0270 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0274 0000 0000  |    |		.BLANK	0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027d       | }  |		.CONST	0x027d								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0002       |    |		.CONST	0x0002								; Number of locals
027b			INIT_0278:
027b e003       |    |		Load	0x0,0x3
027c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
027d			BODY_0278:
027d 00db       |    |		Load_Top	At_Offset_3
027e 0217       |    |		Execute	Heap_Access,All_Reference
027f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0280 e003       |    |		Load	0x0,0x3
0281 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0282 680c       |h   |		Jump_Zero	0x28f
0283 00db       |    |		Load_Top	At_Offset_3
0284 0219       |    |		Execute	Heap_Access,All_Read
0285 e003       |    |		Load	0x0,0x3
0286 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0287 00d9       |    |		Load_Top	At_Offset_1
0288 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0289 e003       |    |		Load	0x0,0x3
028a 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
028b 00da       |    |		Load_Top	At_Offset_2
028c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
028d 005a       | Z  |		Store_Top	Discrete,At_Offset_2
028e 00d1       |    |		Pop_Control	Pop_Count_1
028f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 00da       |    |		Load_Top	At_Offset_2
0294 6806       |h   |		Jump_Zero	0x29b
0295 00da       |    |		Load_Top	At_Offset_2
0296 0217       |    |		Execute	Heap_Access,All_Reference
0297 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0298 e003       |    |		Load	0x0,0x3
0299 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
029a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
029b 4800       |H   |		Short_Literal	0x0
029c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
029d 0000 0000  |    |		.XXX[0x3]
029f 0000       |    |
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3       |    |		.CONST	0x02a3								; Address of begin
02a1 02af       |    |		.CONST	0x02af								; Address of exception handler
02a2 0001       |    |		.CONST	0x0001								; Number of locals
02a3			BODY_02a0:
02a3			INIT_02a0:
02a3 00db       |    |		Load_Top	At_Offset_3
02a4 00db       |    |		Load_Top	At_Offset_3
02a5 0217       |    |		Execute	Heap_Access,All_Reference
02a6 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02a7 e5ff       |    |		Load	0x2,-0x1
02a8 0217       |    |		Execute	Heap_Access,All_Reference
02a9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02aa e228       | (  |		Load	0x1,0x28
02ab 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
02ac 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
02ad 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02ae 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02af			TRAP_02a0:
02af 0007       |    |		Action	Break_Optional
02b0 00db       |    |		Load_Top	At_Offset_3
02b1 0217       |    |		Execute	Heap_Access,All_Reference
02b2 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02b3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02b4 0000 0000  |    |		.BLANK	0000[0x4]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb       |    |		.CONST	0x02bb								; Address of begin
02b9 02c7       |    |		.CONST	0x02c7								; Address of exception handler
02ba 0001       |    |		.CONST	0x0001								; Number of locals
02bb			BODY_02b8:
02bb			INIT_02b8:
02bb 00db       |    |		Load_Top	At_Offset_3
02bc 00db       |    |		Load_Top	At_Offset_3
02bd 0217       |    |		Execute	Heap_Access,All_Reference
02be 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02bf e5ff       |    |		Load	0x2,-0x1
02c0 0217       |    |		Execute	Heap_Access,All_Reference
02c1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02c2 e228       | (  |		Load	0x1,0x28
02c3 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
02c4 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
02c5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02c6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02c7			TRAP_02b8:
02c7 0007       |    |		Action	Break_Optional
02c8 4800       |H   |		Short_Literal	0x0
02c9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02ca 0000 0000  |    |		.BLANK	0000[0x6]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3       |    |		.CONST	0x02d3								; Address of begin
02d1 02e4       |    |		.CONST	0x02e4								; Address of exception handler
02d2 0001       |    |		.CONST	0x0001								; Number of locals
02d3			BODY_02d0:
02d3			INIT_02d0:
02d3 00db       |    |		Load_Top	At_Offset_3
02d4 00db       |    |		Load_Top	At_Offset_3
02d5 0217       |    |		Execute	Heap_Access,All_Reference
02d6 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02d7 e5ff       |    |		Load	0x2,-0x1
02d8 0217       |    |		Execute	Heap_Access,All_Reference
02d9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02da e228       | (  |		Load	0x1,0x28
02db 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
02dc 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
02dd 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02de 00db       |    |		Load_Top	At_Offset_3
02df 0217       |    |		Execute	Heap_Access,All_Reference
02e0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02e1 e22b       | +  |		Load	0x1,0x2b
02e2 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02e3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02e4			TRAP_02d0:
02e4 0007       |    |		Action	Break_Optional
02e5 00db       |    |		Load_Top	At_Offset_3
02e6 0217       |    |		Execute	Heap_Access,All_Reference
02e7 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
02e8 0217       |    |		Execute	Heap_Access,All_Reference
02e9 0335       | 5  |		Declare_Variable	Array,Duplicate
02ea 00cd       |    |		Action	Spare6_Action
02eb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02ec 0000 0000  |    |		.BLANK	0000[0x4]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02ff       |    |		.CONST	0x02ff								; Address of begin
02f1 032b       | +  |		.CONST	0x032b								; Address of exception handler
02f2 0003       |    |		.CONST	0x0003								; Number of locals
02f3			INIT_02f0:
02f3 4801       |H   |		Short_Literal	0x1
02f4 00db       |    |		Load_Top	At_Offset_3
02f5 0217       |    |		Execute	Heap_Access,All_Reference
02f6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02f7 e218       |    |		Load	0x1,0x18
02f8 035b       | [  |		Declare_Type	Array,Constrained
02f9 0337       | 7  |		Declare_Variable	Array
02fa e228       | (  |		Load	0x1,0x28
02fb 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
02fc 0322       | "  |		Declare_Variable	Record
02fd 00d8       |    |		Load_Top	At_Offset_0
02fe 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02ff			BODY_02f0:
02ff 00d8       |    |		Load_Top	At_Offset_0
0300 e5ff       |    |		Load	0x2,-0x1
0301 0217       |    |		Execute	Heap_Access,All_Reference
0302 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0303 e5ff       |    |		Load	0x2,-0x1
0304 0217       |    |		Execute	Heap_Access,All_Reference
0305 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0306 e228       | (  |		Load	0x1,0x28
0307 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0308 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0309 00d1       |    |		Pop_Control	Pop_Count_1
030a 00cf       |    |		Action	Mark_Auxiliary
030b 00da       |    |		Load_Top	At_Offset_2
030c 01d9       |    |		Execute	Vector,Reverse_Bounds
030d 0263       | c  |		Execute	Discrete,Above_Bound
030e 7017       |p   |		Jump_Nonzero	0x326
030f e5ff       |    |		Load	0x2,-0x1
0310 0217       |    |		Execute	Heap_Access,All_Reference
0311 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0312 e403       |    |		Load	0x2,0x3
0313 e228       | (  |		Load	0x1,0x28
0314 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0315 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0316 00d9       |    |		Load_Top	At_Offset_1
0317 e402       |    |		Load	0x2,0x2
0318 01d6       |    |		Execute	Vector,Field_Write
0319 00db       |    |		Load_Top	At_Offset_3
031a e5ff       |    |		Load	0x2,-0x1
031b 0217       |    |		Execute	Heap_Access,All_Reference
031c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
031d e5ff       |    |		Load	0x2,-0x1
031e 0217       |    |		Execute	Heap_Access,All_Reference
031f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0320 e228       | (  |		Load	0x1,0x28
0321 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0322 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0323 00d1       |    |		Pop_Control	Pop_Count_1
0324 00c8       |    |		Action	Pop_Auxiliary_Range
0325 3fe9       |?   |		Loop_Increasing	0x30f
0326 00ce       |    |		Action	Pop_Auxiliary
0327 00d9       |    |		Load_Top	At_Offset_1
0328 e218       |    |		Load	0x1,0x18
0329 01c6       |    |		Execute	Vector,Convert_To_Formal
032a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
032b			TRAP_02f0:
032b 0007       |    |		Action	Break_Optional
032c 4801       |H   |		Short_Literal	0x1
032d 4800       |H   |		Short_Literal	0x0
032e e218       |    |		Load	0x1,0x18
032f 035b       | [  |		Declare_Type	Array,Constrained
0330 0337       | 7  |		Declare_Variable	Array
0331 e218       |    |		Load	0x1,0x18
0332 01c6       |    |		Execute	Vector,Convert_To_Formal
0333 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0334 0000 0000  |    |		.BLANK	0000[0x4]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 0341       | A  |		.CONST	0x0341								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0003       |    |		.CONST	0x0003								; Number of locals
033b			INIT_0338:
033b e224       | $  |		Load	0x1,0x24
033c 0322       | "  |		Declare_Variable	Record
033d 00d8       |    |		Load_Top	At_Offset_0
033e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
033f 00e1       |    |		Load_Encached	Boolean_Cache
0340 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0341			BODY_0338:
0341 e5ff       |    |		Load	0x2,-0x1
0342 0217       |    |		Execute	Heap_Access,All_Reference
0343 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0344 e003       |    |		Load	0x0,0x3
0345 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0346 680e       |h   |		Jump_Zero	0x355
0347 00e1       |    |		Load_Encached	Boolean_Cache
0348 00da       |    |		Load_Top	At_Offset_2
0349 e5fe       |    |		Load	0x2,-0x2
034a e5ff       |    |		Load	0x2,-0x1
034b 0217       |    |		Execute	Heap_Access,All_Reference
034c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
034d e5ff       |    |		Load	0x2,-0x1
034e 0217       |    |		Execute	Heap_Access,All_Reference
034f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0350 e228       | (  |		Load	0x1,0x28
0351 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0352 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0353 00d1       |    |		Pop_Control	Pop_Count_1
0354 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0355 00d8       |    |		Load_Top	At_Offset_0
0356 680e       |h   |		Jump_Zero	0x365
0357 e5ff       |    |		Load	0x2,-0x1
0358 e5fc       |    |		Load	0x2,-0x4
0359 8231       | 1  |		Call	0x1,0x31
035a e5fd       |    |		Load	0x2,-0x3
035b 00db       |    |		Load_Top	At_Offset_3
035c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
035d e5ff       |    |		Load	0x2,-0x1
035e 0217       |    |		Execute	Heap_Access,All_Reference
035f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0360 e22b       | +  |		Load	0x1,0x2b
0361 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0362 e5fe       |    |		Load	0x2,-0x2
0363 8230       | 0  |		Call	0x1,0x30
0364 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0365 e5ff       |    |		Load	0x2,-0x1
0366 e5fc       |    |		Load	0x2,-0x4
0367 8231       | 1  |		Call	0x1,0x31
0368 e5fd       |    |		Load	0x2,-0x3
0369 480a       |H   |		Short_Literal	0xa
036a 0092 09d5  |    |		Action	Push_String_Extended,0x9d5					; "SPARE_"
036c 4820       |H   |		Short_Literal	0x20
036d 4800       |H   |		Short_Literal	0x0
036e 480a       |H   |		Short_Literal	0xa
036f e5fe       |    |		Load	0x2,-0x2
0370 e018       |    |		Load	0x0,0x18
0371 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0372 01cc       |    |		Execute	Vector,Catenate
0373 01cb       |    |		Execute	Vector,Append
0374 e5ff       |    |		Load	0x2,-0x1
0375 0217       |    |		Execute	Heap_Access,All_Reference
0376 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0377 0217       |    |		Execute	Heap_Access,All_Reference
0378 01cc       |    |		Execute	Vector,Catenate
0379 e5fe       |    |		Load	0x2,-0x2
037a 8230       | 0  |		Call	0x1,0x30
037b 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
037c 0000 0000  |    |		.BLANK	0000[0x4]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383       |    |		.CONST	0x0383								; Address of begin
0381 0004       |    |		.CONST	0x0004								; Address of exception handler
0382 0001       |    |		.CONST	0x0001								; Number of locals
0383			BODY_0380:
0383			INIT_0380:
0383 e002       |    |		Load	0x0,0x2
0384 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0385 e5fc       |    |		Load	0x2,-0x4
0386 e5fd       |    |		Load	0x2,-0x3
0387 e5fe       |    |		Load	0x2,-0x2
0388 e5ff       |    |		Load	0x2,-0x1
0389 821f       |    |		Call	0x1,0x1f
038a 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
038b 0000 0000  |    |		.BLANK	0000[0x5]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393       |    |		.CONST	0x0393								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0001       |    |		.CONST	0x0001								; Number of locals
0393			BODY_0390:
0393			INIT_0390:
0393 e002       |    |		Load	0x0,0x2
0394 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0395 e5fb       |    |		Load	0x2,-0x5
0396 e5fc       |    |		Load	0x2,-0x4
0397 e5fd       |    |		Load	0x2,-0x3
0398 e5fe       |    |		Load	0x2,-0x2
0399 e5ff       |    |		Load	0x2,-0x1
039a 8220       |    |		Call	0x1,0x20
039b 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
039c 0000 0000  |    |		.BLANK	0000[0x4]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a9       |    |		.CONST	0x03a9								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 0003       |    |		.CONST	0x0003								; Number of locals
03a3			INIT_03a0:
03a3 e224       | $  |		Load	0x1,0x24
03a4 0322       | "  |		Declare_Variable	Record
03a5 00d8       |    |		Load_Top	At_Offset_0
03a6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03a7 00e1       |    |		Load_Encached	Boolean_Cache
03a8 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
03a9			BODY_03a0:
03a9 e5ff       |    |		Load	0x2,-0x1
03aa 0217       |    |		Execute	Heap_Access,All_Reference
03ab 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03ac e003       |    |		Load	0x0,0x3
03ad 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
03ae 680e       |h   |		Jump_Zero	0x3bd
03af 00e1       |    |		Load_Encached	Boolean_Cache
03b0 00da       |    |		Load_Top	At_Offset_2
03b1 e5fe       |    |		Load	0x2,-0x2
03b2 e5ff       |    |		Load	0x2,-0x1
03b3 0217       |    |		Execute	Heap_Access,All_Reference
03b4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03b5 e5ff       |    |		Load	0x2,-0x1
03b6 0217       |    |		Execute	Heap_Access,All_Reference
03b7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03b8 e228       | (  |		Load	0x1,0x28
03b9 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
03ba 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03bb 00d1       |    |		Pop_Control	Pop_Count_1
03bc 0059       | Y  |		Store_Top	Discrete,At_Offset_1
03bd 00d8       |    |		Load_Top	At_Offset_0
03be 6812       |h   |		Jump_Zero	0x3d1
03bf e5fb       |    |		Load	0x2,-0x5
03c0 00da       |    |		Load_Top	At_Offset_2
03c1 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03c2 e5ff       |    |		Load	0x2,-0x1
03c3 e5fc       |    |		Load	0x2,-0x4
03c4 8231       | 1  |		Call	0x1,0x31
03c5 e5fd       |    |		Load	0x2,-0x3
03c6 e402       |    |		Load	0x2,0x2
03c7 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03c8 e5ff       |    |		Load	0x2,-0x1
03c9 0217       |    |		Execute	Heap_Access,All_Reference
03ca 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03cb e22b       | +  |		Load	0x1,0x2b
03cc 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03cd e5fe       |    |		Load	0x2,-0x2
03ce 8230       | 0  |		Call	0x1,0x30
03cf 8232       | 2  |		Call	0x1,0x32
03d0 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
03d1 e5fb       |    |		Load	0x2,-0x5
03d2 e5ff       |    |		Load	0x2,-0x1
03d3 0217       |    |		Execute	Heap_Access,All_Reference
03d4 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
03d5 e5ff       |    |		Load	0x2,-0x1
03d6 e5fc       |    |		Load	0x2,-0x4
03d7 8231       | 1  |		Call	0x1,0x31
03d8 e5fd       |    |		Load	0x2,-0x3
03d9 480a       |H   |		Short_Literal	0xa
03da 0092 09d5  |    |		Action	Push_String_Extended,0x9d5					; "SPARE_"
03dc 4820       |H   |		Short_Literal	0x20
03dd 4800       |H   |		Short_Literal	0x0
03de 480a       |H   |		Short_Literal	0xa
03df e5fe       |    |		Load	0x2,-0x2
03e0 e018       |    |		Load	0x0,0x18
03e1 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03e2 01cc       |    |		Execute	Vector,Catenate
03e3 01cb       |    |		Execute	Vector,Append
03e4 e5ff       |    |		Load	0x2,-0x1
03e5 0217       |    |		Execute	Heap_Access,All_Reference
03e6 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
03e7 0217       |    |		Execute	Heap_Access,All_Reference
03e8 01cc       |    |		Execute	Vector,Catenate
03e9 e5fe       |    |		Load	0x2,-0x2
03ea 8230       | 0  |		Call	0x1,0x30
03eb e019       |    |		Load	0x0,0x19
03ec 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03ed 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
03ee 0000 0000  |    |		.XXX[0x2]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03fd       |    |		.CONST	0x03fd								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0004       |    |		.CONST	0x0004								; Number of locals
03f3			INIT_03f0:
03f3 e5fb       |    |		Load	0x2,-0x5
03f4 e5fc       |    |		Load	0x2,-0x4
03f5 e5fd       |    |		Load	0x2,-0x3
03f6 e5ff       |    |		Load	0x2,-0x1
03f7 821a       |    |		Call	0x1,0x1a
03f8 00d8       |    |		Load_Top	At_Offset_0
03f9 01dd       |    |		Execute	Vector,First
03fa 00e2       |    |		Load_Encached	Integer_Cache
03fb 03f1       |    |		Declare_Variable	Discrete,With_Value
03fc 00e2       |    |		Load_Encached	Integer_Cache
03fd			BODY_03f0:
03fd e5fa       |    |		Load	0x2,-0x6
03fe e5fe       |    |		Load	0x2,-0x2
03ff e5fb       |    |		Load	0x2,-0x5
0400 e5fc       |    |		Load	0x2,-0x4
0401 e5fd       |    |		Load	0x2,-0x3
0402 e5ff       |    |		Load	0x2,-0x1
0403 821a       |    |		Call	0x1,0x1a
0404 8232       | 2  |		Call	0x1,0x32
0405 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0406 0000 0000  |    |		.XXX[0x2]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b       |    |		.CONST	0x040b								; Address of begin
0409 0004       |    |		.CONST	0x0004								; Address of exception handler
040a 0001       |    |		.CONST	0x0001								; Number of locals
040b			BODY_0408:
040b			INIT_0408:
040b 480a       |H   |		Short_Literal	0xa
040c 00db       |    |		Load_Top	At_Offset_3
040d 01cb       |    |		Execute	Vector,Append
040e e5fe       |    |		Load	0x2,-0x2
040f 01cc       |    |		Execute	Vector,Catenate
0410 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0411 0000 0000  |    |		.BLANK	0000[0x7]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b       |    |		.CONST	0x041b								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0001       |    |		.CONST	0x0001								; Number of locals
041b			BODY_0418:
041b			INIT_0418:
041b 4608       |F   |		Jump_Case	0x9
041c 7808       |x   |		Jump	0x425								; case 0x0
041d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
041e 780d       |x   |		Jump	0x42c								; case 0x2
041f 780c       |x   |		Jump	0x42c								; case 0x3
0420 780b       |x   |		Jump	0x42c								; case 0x4
0421 780a       |x   |		Jump	0x42c								; case 0x5
0422 7809       |x   |		Jump	0x42c								; case 0x6
0423 7808       |x   |		Jump	0x42c								; case 0x7
0424 7807       |x   |		Jump	0x42c								; case 0x8
0425 00da       |    |		Load_Top	At_Offset_2
0426 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0427 0125       | %  |		Execute	Any,Set_Constraint
0428 00da       |    |		Load_Top	At_Offset_2
0429 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
042a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
042b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
042c 0869       | i  |		Execute_Immediate	Raise,0x69
042d 0000 0000  |    |		.XXX[0x3]
042f 0000       |    |
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433       | 3  |		.CONST	0x0433								; Address of begin
0431 0004       |    |		.CONST	0x0004								; Address of exception handler
0432 0001       |    |		.CONST	0x0001								; Number of locals
0433			BODY_0430:
0433			INIT_0430:
0433 4608       |F   |		Jump_Case	0x9
0434 7808       |x   |		Jump	0x43d								; case 0x0
0435 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0436 7813       |x   |		Jump	0x44a								; case 0x2
0437 7812       |x   |		Jump	0x44a								; case 0x3
0438 7811       |x   |		Jump	0x44a								; case 0x4
0439 7810       |x   |		Jump	0x44a								; case 0x5
043a 780f       |x   |		Jump	0x44a								; case 0x6
043b 780e       |x   |		Jump	0x44a								; case 0x7
043c 780d       |x   |		Jump	0x44a								; case 0x8
043d 00da       |    |		Load_Top	At_Offset_2
043e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
043f 0125       | %  |		Execute	Any,Set_Constraint
0440 00da       |    |		Load_Top	At_Offset_2
0441 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0442 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0443 00da       |    |		Load_Top	At_Offset_2
0444 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0445 0125       | %  |		Execute	Any,Set_Constraint
0446 00da       |    |		Load_Top	At_Offset_2
0447 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0448 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0449 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
044a 0869       | i  |		Execute_Immediate	Raise,0x69
044b 0000 0000  |    |		.BLANK	0000[0x5]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453       | S  |		.CONST	0x0453								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0001       |    |		.CONST	0x0001								; Number of locals
0453			BODY_0450:
0453			INIT_0450:
0453 00da       |    |		Load_Top	At_Offset_2
0454 0217       |    |		Execute	Heap_Access,All_Reference
0455 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0456 00d8       |    |		Load_Top	At_Offset_0
0457 0120       |    |		Execute	Any,Is_Value
0458 7002       |p   |		Jump_Nonzero	0x45b
0459 00d8       |    |		Load_Top	At_Offset_0
045a 011e       |    |		Execute	Any,Convert
045b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
045c 0000 0000  |    |		.BLANK	0000[0x4]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463       | c  |		.CONST	0x0463								; Address of begin
0461 0004       |    |		.CONST	0x0004								; Address of exception handler
0462 0001       |    |		.CONST	0x0001								; Number of locals
0463			BODY_0460:
0463			INIT_0460:
0463 00da       |    |		Load_Top	At_Offset_2
0464 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0465 0000 0000  |    |		.XXX[0x3]
0467 0000       |    |
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 0471       | q  |		.CONST	0x0471								; Address of begin
0469 0004       |    |		.CONST	0x0004								; Address of exception handler
046a 0003       |    |		.CONST	0x0003								; Number of locals
046b			INIT_0468:
046b 00e2       |    |		Load_Encached	Integer_Cache
046c 00db       |    |		Load_Top	At_Offset_3
046d 01dd       |    |		Execute	Vector,First
046e 0aff       |    |		Execute_Immediate	Plus,-0x1
046f 00e2       |    |		Load_Encached	Integer_Cache
0470 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0471			BODY_0468:
0471 00cf       |    |		Action	Mark_Auxiliary
0472 e5fe       |    |		Load	0x2,-0x2
0473 4801       |H   |		Short_Literal	0x1
0474 0263       | c  |		Execute	Discrete,Above_Bound
0475 7015       |p   |		Jump_Nonzero	0x48b
0476 00db       |    |		Load_Top	At_Offset_3
0477 0a01       |    |		Execute_Immediate	Plus,0x1
0478 c402       |    |		Store	0x2,0x2
0479 4800       |H   |		Short_Literal	0x0
047a e402       |    |		Load	0x2,0x2
047b e5ff       |    |		Load	0x2,-0x1
047c 01dc       |    |		Execute	Vector,Last
047d e5ff       |    |		Load	0x2,-0x1
047e 01cf       |    |		Execute	Vector,Slice_Read
047f 480a       |H   |		Short_Literal	0xa
0480 e018       |    |		Load	0x0,0x18
0481 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0482 a403       |    |		Store_Unchecked	0x2,0x3
0483 00db       |    |		Load_Top	At_Offset_3
0484 7004       |p   |		Jump_Nonzero	0x489
0485 e5ff       |    |		Load	0x2,-0x1
0486 01dc       |    |		Execute	Vector,Last
0487 0a01       |    |		Execute_Immediate	Plus,0x1
0488 c403       |    |		Store	0x2,0x3
0489 00c8       |    |		Action	Pop_Auxiliary_Range
048a 3feb       |?   |		Loop_Increasing	0x476
048b 00ce       |    |		Action	Pop_Auxiliary
048c 00d9       |    |		Load_Top	At_Offset_1
048d 00d9       |    |		Load_Top	At_Offset_1
048e 0aff       |    |		Execute_Immediate	Plus,-0x1
048f 00d8       |    |		Load_Top	At_Offset_0
0490 00e2       |    |		Load_Encached	Integer_Cache
0491 0260       | `  |		Execute	Discrete,In_Type
0492 7001       |p   |		Jump_Nonzero	0x494
0493 0801       |    |		Execute_Immediate	Raise,0x1
0494 e5ff       |    |		Load	0x2,-0x1
0495 01cf       |    |		Execute	Vector,Slice_Read
0496 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0497 0000       |    |		.XXX[0x1]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 04a5       |    |		.CONST	0x04a5								; Address of begin
0499 0004       |    |		.CONST	0x0004								; Address of exception handler
049a 0004       |    |		.CONST	0x0004								; Number of locals
049b			INIT_0498:
049b 4800       |H   |		Short_Literal	0x0
049c e5fd       |    |		Load	0x2,-0x3
049d 487e       |H~  |		Short_Literal	0x7e
049e e018       |    |		Load	0x0,0x18
049f 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
04a0 00e2       |    |		Load_Encached	Integer_Cache
04a1 03f1       |    |		Declare_Variable	Discrete,With_Value
04a2 00e2       |    |		Load_Encached	Integer_Cache
04a3 029f 08bb  |    |		Declare_Subprogram	INIT_08b8,For_Call
04a5			BODY_0498:
04a5 00da       |    |		Load_Top	At_Offset_2
04a6 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
04a7 6841       |hA  |		Jump_Zero	0x4e9
04a8 4800       |H   |		Short_Literal	0x0
04a9 00db       |    |		Load_Top	At_Offset_3
04aa 0a01       |    |		Execute_Immediate	Plus,0x1
04ab 00d8       |    |		Load_Top	At_Offset_0
04ac 00e2       |    |		Load_Encached	Integer_Cache
04ad 0260       | `  |		Execute	Discrete,In_Type
04ae 7001       |p   |		Jump_Nonzero	0x4b0
04af 0801       |    |		Execute_Immediate	Raise,0x1
04b0 e5fd       |    |		Load	0x2,-0x3
04b1 01dc       |    |		Execute	Vector,Last
04b2 e5fd       |    |		Load	0x2,-0x3
04b3 01cf       |    |		Execute	Vector,Slice_Read
04b4 487e       |H~  |		Short_Literal	0x7e
04b5 e018       |    |		Load	0x0,0x18
04b6 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
04b7 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
04b8 00d9       |    |		Load_Top	At_Offset_1
04b9 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
04ba 682e       |h.  |		Jump_Zero	0x4e9
04bb e5fd       |    |		Load	0x2,-0x3
04bc 01dd       |    |		Execute	Vector,First
04bd 00db       |    |		Load_Top	At_Offset_3
04be 0aff       |    |		Execute_Immediate	Plus,-0x1
04bf 00d8       |    |		Load_Top	At_Offset_0
04c0 00e2       |    |		Load_Encached	Integer_Cache
04c1 0260       | `  |		Execute	Discrete,In_Type
04c2 7001       |p   |		Jump_Nonzero	0x4c4
04c3 0801       |    |		Execute_Immediate	Raise,0x1
04c4 e5fd       |    |		Load	0x2,-0x3
04c5 01cf       |    |		Execute	Vector,Slice_Read
04c6 00db       |    |		Load_Top	At_Offset_3
04c7 0a01       |    |		Execute_Immediate	Plus,0x1
04c8 00d8       |    |		Load_Top	At_Offset_0
04c9 00e2       |    |		Load_Encached	Integer_Cache
04ca 0260       | `  |		Execute	Discrete,In_Type
04cb 7001       |p   |		Jump_Nonzero	0x4cd
04cc 0801       |    |		Execute_Immediate	Raise,0x1
04cd 00db       |    |		Load_Top	At_Offset_3
04ce 0aff       |    |		Execute_Immediate	Plus,-0x1
04cf 00d8       |    |		Load_Top	At_Offset_0
04d0 00e2       |    |		Load_Encached	Integer_Cache
04d1 0260       | `  |		Execute	Discrete,In_Type
04d2 7001       |p   |		Jump_Nonzero	0x4d4
04d3 0801       |    |		Execute_Immediate	Raise,0x1
04d4 e5fd       |    |		Load	0x2,-0x3
04d5 01cf       |    |		Execute	Vector,Slice_Read
04d6 8404       |    |		Call	0x2,0x4
04d7 01cc       |    |		Execute	Vector,Catenate
04d8 e5fc       |    |		Load	0x2,-0x4
04d9 00db       |    |		Load_Top	At_Offset_3
04da 0a01       |    |		Execute_Immediate	Plus,0x1
04db 00d8       |    |		Load_Top	At_Offset_0
04dc 00e2       |    |		Load_Encached	Integer_Cache
04dd 0260       | `  |		Execute	Discrete,In_Type
04de 7001       |p   |		Jump_Nonzero	0x4e0
04df 0801       |    |		Execute_Immediate	Raise,0x1
04e0 e5fd       |    |		Load	0x2,-0x3
04e1 01dc       |    |		Execute	Vector,Last
04e2 e5fd       |    |		Load	0x2,-0x3
04e3 01cf       |    |		Execute	Vector,Slice_Read
04e4 e5fe       |    |		Load	0x2,-0x2
04e5 e5ff       |    |		Load	0x2,-0x1
04e6 822f       | /  |		Call	0x1,0x2f
04e7 01cc       |    |		Execute	Vector,Catenate
04e8 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
04e9 e5fd       |    |		Load	0x2,-0x3
04ea 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
04eb 0000 0000  |    |		.BLANK	0000[0x5]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04fb       |    |		.CONST	0x04fb								; Address of begin
04f1 0004       |    |		.CONST	0x0004								; Address of exception handler
04f2 0002       |    |		.CONST	0x0002								; Number of locals
04f3			INIT_04f0:
04f3 e5fc       |    |		Load	0x2,-0x4
04f4 00d8       |    |		Load_Top	At_Offset_0
04f5 00e4       |    |		Load_Encached	Positive_Cache
04f6 0260       | `  |		Execute	Discrete,In_Type
04f7 7001       |p   |		Jump_Nonzero	0x4f9
04f8 0801       |    |		Execute_Immediate	Raise,0x1
04f9 e5fe       |    |		Load	0x2,-0x2
04fa 822e       | .  |		Call	0x1,0x2e
04fb			BODY_04f0:
04fb 00d8       |    |		Load_Top	At_Offset_0
04fc 01db       |    |		Execute	Vector,Length
04fd 7008       |p   |		Jump_Nonzero	0x506
04fe e211       |    |		Load	0x1,0x11
04ff e5fc       |    |		Load	0x2,-0x4
0500 0267       | g  |		Execute	Discrete,Predecessor
0501 e5fd       |    |		Load	0x2,-0x3
0502 e5fe       |    |		Load	0x2,-0x2
0503 e5ff       |    |		Load	0x2,-0x1
0504 8230       | 0  |		Call	0x1,0x30
0505 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0506 e5fd       |    |		Load	0x2,-0x3
0507 00d9       |    |		Load_Top	At_Offset_1
0508 4801       |H   |		Short_Literal	0x1
0509 e5fe       |    |		Load	0x2,-0x2
050a 822e       | .  |		Call	0x1,0x2e
050b e5ff       |    |		Load	0x2,-0x1
050c 822f       | /  |		Call	0x1,0x2f
050d 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
050e 0000 0000  |    |		.XXX[0x2]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0513       |    |		.CONST	0x0513								; Address of begin
0511 0004       |    |		.CONST	0x0004								; Address of exception handler
0512 0001       |    |		.CONST	0x0001								; Number of locals
0513			BODY_0510:
0513			INIT_0510:
0513 00da       |    |		Load_Top	At_Offset_2
0514 7004       |p   |		Jump_Nonzero	0x519
0515 00db       |    |		Load_Top	At_Offset_3
0516 0217       |    |		Execute	Heap_Access,All_Reference
0517 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0518 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0519 00da       |    |		Load_Top	At_Offset_2
051a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
051b 0000 0000  |    |		.BLANK	0000[0x5]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0528       | (  |		.CONST	0x0528								; Address of begin
0521 0004       |    |		.CONST	0x0004								; Address of exception handler
0522 0003       |    |		.CONST	0x0003								; Number of locals
0523			INIT_0520:
0523 00da       |    |		Load_Top	At_Offset_2
0524 01dd       |    |		Execute	Vector,First
0525 00e2       |    |		Load_Encached	Integer_Cache
0526 03f1       |    |		Declare_Variable	Discrete,With_Value
0527 00e2       |    |		Load_Encached	Integer_Cache
0528			BODY_0520:
0528 00cf       |    |		Action	Mark_Auxiliary
0529 4800       |H   |		Short_Literal	0x0
052a 00db       |    |		Load_Top	At_Offset_3
052b e5ff       |    |		Load	0x2,-0x1
052c 01dc       |    |		Execute	Vector,Last
052d e5ff       |    |		Load	0x2,-0x1
052e 01cf       |    |		Execute	Vector,Slice_Read
052f 480a       |H   |		Short_Literal	0xa
0530 e018       |    |		Load	0x0,0x18
0531 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0532 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0533 00d9       |    |		Load_Top	At_Offset_1
0534 6813       |h   |		Jump_Zero	0x548
0535 e5fd       |    |		Load	0x2,-0x3
0536 e5fe       |    |		Load	0x2,-0x2
0537 e402       |    |		Load	0x2,0x2
0538 e403       |    |		Load	0x2,0x3
0539 0aff       |    |		Execute_Immediate	Plus,-0x1
053a 00d8       |    |		Load_Top	At_Offset_0
053b 00e2       |    |		Load_Encached	Integer_Cache
053c 0260       | `  |		Execute	Discrete,In_Type
053d 7001       |p   |		Jump_Nonzero	0x53f
053e 0801       |    |		Execute_Immediate	Raise,0x1
053f e5ff       |    |		Load	0x2,-0x1
0540 01cf       |    |		Execute	Vector,Slice_Read
0541 e019       |    |		Load	0x0,0x19
0542 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0543 00d9       |    |		Load_Top	At_Offset_1
0544 0a01       |    |		Execute_Immediate	Plus,0x1
0545 005b       | [  |		Store_Top	Discrete,At_Offset_3
0546 00c9       |    |		Action	Pop_Auxiliary_Loop
0547 7fe1       |    |		Jump	0x529
0548 00ce       |    |		Action	Pop_Auxiliary
0549 e5fd       |    |		Load	0x2,-0x3
054a e5fe       |    |		Load	0x2,-0x2
054b 00db       |    |		Load_Top	At_Offset_3
054c e5ff       |    |		Load	0x2,-0x1
054d 01dc       |    |		Execute	Vector,Last
054e e5ff       |    |		Load	0x2,-0x1
054f 01cf       |    |		Execute	Vector,Slice_Read
0550 e019       |    |		Load	0x0,0x19
0551 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0552 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0553 0000 0000  |    |		.BLANK	0000[0x5]
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 0573       | s  |		.CONST	0x0573								; Address of begin
0559 0004       |    |		.CONST	0x0004								; Address of exception handler
055a 0006       |    |		.CONST	0x0006								; Number of locals
055b			INIT_0558:
055b e01a       |    |		Load	0x0,0x1a
055c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
055d 02c7       |    |		Declare_Variable	Any
055e 00d8       |    |		Load_Top	At_Offset_0
055f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0560 e016       |    |		Load	0x0,0x16
0561 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0562 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0563 02c7       |    |		Declare_Variable	Any
0564 00d8       |    |		Load_Top	At_Offset_0
0565 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0566 e016       |    |		Load	0x0,0x16
0567 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0568 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0569 02c7       |    |		Declare_Variable	Any
056a 00d8       |    |		Load_Top	At_Offset_0
056b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
056c e016       |    |		Load	0x0,0x16
056d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
056e e016       |    |		Load	0x0,0x16
056f 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0570 02ff       |    |		Declare_Variable	Variant_Record
0571 00d8       |    |		Load_Top	At_Offset_0
0572 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0573			BODY_0558:
0573 e003       |    |		Load	0x0,0x3
0574 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0575 e5fd       |    |		Load	0x2,-0x3
0576 4800       |H   |		Short_Literal	0x0
0577 607c       |`|  |		Indirect_Literal	Discrete,0x5f4,{0x00000000, 0x00004000}
0578 e017       |    |		Load	0x0,0x17
0579 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
057a e013       |    |		Load	0x0,0x13
057b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
057c e003       |    |		Load	0x0,0x3
057d 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
057e 4800       |H   |		Short_Literal	0x0
057f e5fe       |    |		Load	0x2,-0x2
0580 e5ff       |    |		Load	0x2,-0x1
0581 e003       |    |		Load	0x0,0x3
0582 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0583 c5fd       |    |		Store	0x2,-0x3
0584 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0585 00d9       |    |		Load_Top	At_Offset_1
0586 460e       |F   |		Jump_Case	0xf
0587 7810       |x   |		Jump	0x598								; case 0x0
0588 780d       |x   |		Jump	0x596								; case 0x1
0589 780c       |x   |		Jump	0x596								; case 0x2
058a 780b       |x   |		Jump	0x596								; case 0x3
058b 780a       |x   |		Jump	0x596								; case 0x4
058c 7809       |x   |		Jump	0x596								; case 0x5
058d 7808       |x   |		Jump	0x596								; case 0x6
058e 7807       |x   |		Jump	0x596								; case 0x7
058f 7806       |x   |		Jump	0x596								; case 0x8
0590 7810       |x   |		Jump	0x5a1								; case 0x9
0591 7804       |x   |		Jump	0x596								; case 0xa
0592 7803       |x   |		Jump	0x596								; case 0xb
0593 7802       |x   |		Jump	0x596								; case 0xc
0594 7801       |x   |		Jump	0x596								; case 0xd
0595 7800       |x   |		Jump	0x596								; case 0xe
0596 4940       |I@  |		Short_Literal	0x140
0597 0257       | W  |		Execute	Discrete,Raise
0598 e5ff       |    |		Load	0x2,-0x1
0599 0f02       |    |		Execute_Immediate	Equal,0x2
059a 6805       |h   |		Jump_Zero	0x5a0
059b e003       |    |		Load	0x0,0x3
059c 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
059d e5fd       |    |		Load	0x2,-0x3
059e e003       |    |		Load	0x0,0x3
059f 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
05a0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05a1 e016       |    |		Load	0x0,0x16
05a2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05a3 00db       |    |		Load_Top	At_Offset_3
05a4 0120       |    |		Execute	Any,Is_Value
05a5 6802       |h   |		Jump_Zero	0x5a8
05a6 00f1       |    |		Load_Encached	Diana_Temp_Seq
05a7 7801       |x   |		Jump	0x5a9
05a8 00db       |    |		Load_Top	At_Offset_3
05a9 e403       |    |		Load	0x2,0x3
05aa 0120       |    |		Execute	Any,Is_Value
05ab 6804       |h   |		Jump_Zero	0x5b0
05ac e016       |    |		Load	0x0,0x16
05ad 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
05ae 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
05af 7801       |x   |		Jump	0x5b1
05b0 e403       |    |		Load	0x2,0x3
05b1 e402       |    |		Load	0x2,0x2
05b2 0120       |    |		Execute	Any,Is_Value
05b3 6803       |h   |		Jump_Zero	0x5b7
05b4 e01a       |    |		Load	0x0,0x1a
05b5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05b6 7801       |x   |		Jump	0x5b8
05b7 e402       |    |		Load	0x2,0x2
05b8 e406       |    |		Load	0x2,0x6
05b9 603a       |`:  |		Indirect_Literal	Discrete,0x5f4,{0x00000000, 0x00004000}
05ba e017       |    |		Load	0x0,0x17
05bb 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05bc 4800       |H   |		Short_Literal	0x0
05bd e016       |    |		Load	0x0,0x16
05be 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
05bf 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05c0 e016       |    |		Load	0x0,0x16
05c1 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
05c2 602d       |`-  |		Indirect_Literal	Discrete,0x5f0,{0x00000000, 0x7fffffff}
05c3 4ffc       |O   |		Short_Literal	-0x4
05c4 4ffd       |O   |		Short_Literal	-0x3
05c5 e013       |    |		Load	0x0,0x13
05c6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
05c7 e016       |    |		Load	0x0,0x16
05c8 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05c9 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
05ca e016       |    |		Load	0x0,0x16
05cb 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
05cc e003       |    |		Load	0x0,0x3
05cd 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
05ce e5fe       |    |		Load	0x2,-0x2
05cf e016       |    |		Load	0x0,0x16
05d0 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
05d1 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
05d2 00d1       |    |		Pop_Control	Pop_Count_1
05d3 c402       |    |		Store	0x2,0x2
05d4 c403       |    |		Store	0x2,0x3
05d5 c404       |    |		Store	0x2,0x4
05d6 005a       | Z  |		Store_Top	Discrete,At_Offset_2
05d7 00d9       |    |		Load_Top	At_Offset_1
05d8 6802       |h   |		Jump_Zero	0x5db
05d9 4920       |I   |		Short_Literal	0x120
05da 0257       | W  |		Execute	Discrete,Raise
05db e003       |    |		Load	0x0,0x3
05dc 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
05dd 00d9       |    |		Load_Top	At_Offset_1
05de e5fd       |    |		Load	0x2,-0x3
05df 4800       |H   |		Short_Literal	0x0
05e0 6013       |`   |		Indirect_Literal	Discrete,0x5f4,{0x00000000, 0x00004000}
05e1 e017       |    |		Load	0x0,0x17
05e2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05e3 e5ff       |    |		Load	0x2,-0x1
05e4 e003       |    |		Load	0x0,0x3
05e5 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
05e6 c5fd       |    |		Store	0x2,-0x3
05e7 00d1       |    |		Pop_Control	Pop_Count_1
05e8 005a       | Z  |		Store_Top	Discrete,At_Offset_2
05e9 00d9       |    |		Load_Top	At_Offset_1
05ea 6802       |h   |		Jump_Zero	0x5ed
05eb 4940       |I@  |		Short_Literal	0x140
05ec 0257       | W  |		Execute	Discrete,Raise
05ed 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05ee 0000 0000  |    |		.XXX[0x2]
05f0 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
05f4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb       |    |		.CONST	0x05fb								; Address of begin
05f9 0602       |    |		.CONST	0x0602								; Address of exception handler
05fa 0001       |    |		.CONST	0x0001								; Number of locals
05fb			BODY_05f8:
05fb			INIT_05f8:
05fb 4820       |H   |		Short_Literal	0x20
05fc 00db       |    |		Load_Top	At_Offset_3
05fd e01b       |    |		Load	0x0,0x1b
05fe 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
05ff e018       |    |		Load	0x0,0x18
0600 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0601 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0602			TRAP_05f8:
0602 00d8       |    |		Load_Top	At_Offset_0
0603 0107       |    |		Execute	Exception,Get_Name
0604 4950       |IP  |		Short_Literal	0x150
0605 495f       |I_  |		Short_Literal	0x15f
0606 0262       | b  |		Execute	Discrete,In_Range
0607 6802       |h   |		Jump_Zero	0x60a
0608 00ea       |    |		Load_Encached	Null_String_Cache
0609 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
060a 0100       |    |		Execute	Exception,Raise
060b 0000 0000  |    |		.BLANK	0000[0x5]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0619       |    |		.CONST	0x0619								; Address of begin
0611 0004       |    |		.CONST	0x0004								; Address of exception handler
0612 0002       |    |		.CONST	0x0002								; Number of locals
0613			INIT_0610:
0613 4820       |H   |		Short_Literal	0x20
0614 00db       |    |		Load_Top	At_Offset_3
0615 e01b       |    |		Load	0x0,0x1b
0616 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0617 e018       |    |		Load	0x0,0x18
0618 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0619			BODY_0610:
0619 00d8       |    |		Load_Top	At_Offset_0
061a 01db       |    |		Execute	Vector,Length
061b 6802       |h   |		Jump_Zero	0x61e
061c 00d8       |    |		Load_Top	At_Offset_0
061d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
061e 00db       |    |		Load_Top	At_Offset_3
061f 8235       | 5  |		Call	0x1,0x35
0620 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0621 0000 0000  |    |		.BLANK	0000[0x7]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 0631       | 1  |		.CONST	0x0631								; Address of begin
0629 0004       |    |		.CONST	0x0004								; Address of exception handler
062a 0003       |    |		.CONST	0x0003								; Number of locals
062b			INIT_0628:
062b 00e2       |    |		Load_Encached	Integer_Cache
062c 00db       |    |		Load_Top	At_Offset_3
062d 01dd       |    |		Execute	Vector,First
062e 0aff       |    |		Execute_Immediate	Plus,-0x1
062f 00e2       |    |		Load_Encached	Integer_Cache
0630 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0631			BODY_0628:
0631 00cf       |    |		Action	Mark_Auxiliary
0632 e5fe       |    |		Load	0x2,-0x2
0633 4801       |H   |		Short_Literal	0x1
0634 0263       | c  |		Execute	Discrete,Above_Bound
0635 7026       |p&  |		Jump_Nonzero	0x65c
0636 00db       |    |		Load_Top	At_Offset_3
0637 0a01       |    |		Execute_Immediate	Plus,0x1
0638 c402       |    |		Store	0x2,0x2
0639 00cf       |    |		Action	Mark_Auxiliary
063a 7804       |x   |		Jump	0x63f
063b e402       |    |		Load	0x2,0x2
063c 0a01       |    |		Execute_Immediate	Plus,0x1
063d c402       |    |		Store	0x2,0x2
063e 00c9       |    |		Action	Pop_Auxiliary_Loop
063f e402       |    |		Load	0x2,0x2
0640 e5ff       |    |		Load	0x2,-0x1
0641 01dc       |    |		Execute	Vector,Last
0642 027a       | z  |		Execute	Discrete,Less_Equal
0643 6805       |h   |		Jump_Zero	0x649
0644 e402       |    |		Load	0x2,0x2
0645 e5ff       |    |		Load	0x2,-0x1
0646 01d7       |    |		Execute	Vector,Field_Read
0647 0f20       |    |		Execute_Immediate	Equal,0x20
0648 77f2       |w   |		Jump_Nonzero	0x63b
0649 00ce       |    |		Action	Pop_Auxiliary
064a 4800       |H   |		Short_Literal	0x0
064b e402       |    |		Load	0x2,0x2
064c e5ff       |    |		Load	0x2,-0x1
064d 01dc       |    |		Execute	Vector,Last
064e e5ff       |    |		Load	0x2,-0x1
064f 01cf       |    |		Execute	Vector,Slice_Read
0650 4820       |H   |		Short_Literal	0x20
0651 e018       |    |		Load	0x0,0x18
0652 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0653 a403       |    |		Store_Unchecked	0x2,0x3
0654 00db       |    |		Load_Top	At_Offset_3
0655 7004       |p   |		Jump_Nonzero	0x65a
0656 e5ff       |    |		Load	0x2,-0x1
0657 01dc       |    |		Execute	Vector,Last
0658 0a01       |    |		Execute_Immediate	Plus,0x1
0659 c403       |    |		Store	0x2,0x3
065a 00c8       |    |		Action	Pop_Auxiliary_Range
065b 3fda       |?   |		Loop_Increasing	0x636
065c 00ce       |    |		Action	Pop_Auxiliary
065d 00d9       |    |		Load_Top	At_Offset_1
065e 00d9       |    |		Load_Top	At_Offset_1
065f 0aff       |    |		Execute_Immediate	Plus,-0x1
0660 00d8       |    |		Load_Top	At_Offset_0
0661 00e2       |    |		Load_Encached	Integer_Cache
0662 0260       | `  |		Execute	Discrete,In_Type
0663 7001       |p   |		Jump_Nonzero	0x665
0664 0801       |    |		Execute_Immediate	Raise,0x1
0665 e5ff       |    |		Load	0x2,-0x1
0666 01cf       |    |		Execute	Vector,Slice_Read
0667 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 0678       | x  |		.CONST	0x0678								; Address of begin
0669 0004       |    |		.CONST	0x0004								; Address of exception handler
066a 0006       |    |		.CONST	0x0006								; Number of locals
066b			INIT_0668:
066b 4802       |H   |		Short_Literal	0x2
066c 00db       |    |		Load_Top	At_Offset_3
066d 8236       | 6  |		Call	0x1,0x36
066e e018       |    |		Load	0x0,0x18
066f 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0670 e002       |    |		Load	0x0,0x2
0671 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0672 00e1       |    |		Load_Encached	Boolean_Cache
0673 03e9       |    |		Declare_Variable	Discrete,Duplicate
0674 4820       |H   |		Short_Literal	0x20
0675 e602       |    |		Load	0x3,0x2
0676 01cb       |    |		Execute	Vector,Append
0677 0007       |    |		Action	Break_Optional
0678			BODY_0668:
0678 e602       |    |		Load	0x3,0x2
0679 01db       |    |		Execute	Vector,Length
067a 7002       |p   |		Jump_Nonzero	0x67d
067b 4807       |H   |		Short_Literal	0x7
067c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
067d e602       |    |		Load	0x3,0x2
067e 01dd       |    |		Execute	Vector,First
067f e602       |    |		Load	0x3,0x2
0680 01d7       |    |		Execute	Vector,Field_Read
0681 4841       |HA  |		Short_Literal	0x41
0682 485a       |HZ  |		Short_Literal	0x5a
0683 0262       | b  |		Execute	Discrete,In_Range
0684 6810       |h   |		Jump_Zero	0x695
0685 00e1       |    |		Load_Encached	Boolean_Cache
0686 00e1       |    |		Load_Encached	Boolean_Cache
0687 e22d       | -  |		Load	0x1,0x2d
0688 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0689 e602       |    |		Load	0x3,0x2
068a e22d       | -  |		Load	0x1,0x2d
068b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
068c c603       |    |		Store	0x3,0x3
068d c604       |    |		Store	0x3,0x4
068e 005a       | Z  |		Store_Top	Discrete,At_Offset_2
068f 00da       |    |		Load_Top	At_Offset_2
0690 6814       |h   |		Jump_Zero	0x6a5
0691 00d9       |    |		Load_Top	At_Offset_1
0692 6812       |h   |		Jump_Zero	0x6a5
0693 00db       |    |		Load_Top	At_Offset_3
0694 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0695 00cf       |    |		Action	Mark_Auxiliary
0696 e002       |    |		Load	0x0,0x2
0697 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0698 0265       | e  |		Execute	Discrete,Reverse_Bounds
0699 0007       |    |		Action	Break_Optional
069a 00d8       |    |		Load_Top	At_Offset_0
069b e019       |    |		Load	0x0,0x19
069c 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
069d e606       |    |		Load	0x3,0x6
069e 01df       |    |		Execute	Vector,Equal
069f 6802       |h   |		Jump_Zero	0x6a2
06a0 00d8       |    |		Load_Top	At_Offset_0
06a1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06a2 00c8       |    |		Action	Pop_Auxiliary_Range
06a3 3ff6       |?   |		Loop_Increasing	0x69a
06a4 00ce       |    |		Action	Pop_Auxiliary
06a5 4800       |H   |		Short_Literal	0x0
06a6 e602       |    |		Load	0x3,0x2
06a7 e7ff       |    |		Load	0x3,-0x1
06a8 821d       |    |		Call	0x1,0x1d
06a9 4817       |H   |		Short_Literal	0x17
06aa e403       |    |		Load	0x2,0x3
06ab 821b       |    |		Call	0x1,0x1b
06ac 4807       |H   |		Short_Literal	0x7
06ad 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06ae 0000 0000  |    |		.XXX[0x2]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b6       |    |		.CONST	0x06b6								; Address of begin
06b1 06c5       |    |		.CONST	0x06c5								; Address of exception handler
06b2 0002       |    |		.CONST	0x0002								; Number of locals
06b3			INIT_06b0:
06b3 4803       |H   |		Short_Literal	0x3
06b4 00db       |    |		Load_Top	At_Offset_3
06b5 8236       | 6  |		Call	0x1,0x36
06b6			BODY_06b0:
06b6 00d8       |    |		Load_Top	At_Offset_0
06b7 01db       |    |		Execute	Vector,Length
06b8 680a       |h   |		Jump_Zero	0x6c3
06b9 00d8       |    |		Load_Top	At_Offset_0
06ba 00e2       |    |		Load_Encached	Integer_Cache
06bb 00e0       |    |		Load_Encached	Standard_Cache
06bc 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
06bd 00d8       |    |		Load_Top	At_Offset_0
06be e221       | !  |		Load	0x1,0x21
06bf 0260       | `  |		Execute	Discrete,In_Type
06c0 7001       |p   |		Jump_Nonzero	0x6c2
06c1 0801       |    |		Execute_Immediate	Raise,0x1
06c2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06c3 4801       |H   |		Short_Literal	0x1
06c4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06c5			TRAP_06b0:
06c5 0007       |    |		Action	Break_Optional
06c6 4800       |H   |		Short_Literal	0x0
06c7 00da       |    |		Load_Top	At_Offset_2
06c8 e7ff       |    |		Load	0x3,-0x1
06c9 821d       |    |		Call	0x1,0x1d
06ca 4818       |H   |		Short_Literal	0x18
06cb e403       |    |		Load	0x2,0x3
06cc 821b       |    |		Call	0x1,0x1b
06cd 4801       |H   |		Short_Literal	0x1
06ce 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06cf 0000       |    |		.XXX[0x1]
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06d5       |    |		.CONST	0x06d5								; Address of begin
06d1 0004       |    |		.CONST	0x0004								; Address of exception handler
06d2 0002       |    |		.CONST	0x0002								; Number of locals
06d3			INIT_06d0:
06d3 00da       |    |		Load_Top	At_Offset_2
06d4 8234       | 4  |		Call	0x1,0x34
06d5			BODY_06d0:
06d5 00d8       |    |		Load_Top	At_Offset_0
06d6 01db       |    |		Execute	Vector,Length
06d7 7002       |p   |		Jump_Nonzero	0x6da
06d8 00ea       |    |		Load_Encached	Null_String_Cache
06d9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06da 4820       |H   |		Short_Literal	0x20
06db 00d9       |    |		Load_Top	At_Offset_1
06dc 01cb       |    |		Execute	Vector,Append
06dd e7ff       |    |		Load	0x3,-0x1
06de 840c       |    |		Call	0x2,0xc
06df 01cc       |    |		Execute	Vector,Catenate
06e0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06e1 0000 0000  |    |		.BLANK	0000[0x7]
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 06f6       |    |		.CONST	0x06f6								; Address of begin
06e9 0710       |    |		.CONST	0x0710								; Address of exception handler
06ea 0004       |    |		.CONST	0x0004								; Number of locals
06eb			INIT_06e8:
06eb e01b       |    |		Load	0x0,0x1b
06ec 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06ed 02c7       |    |		Declare_Variable	Any
06ee 00d8       |    |		Load_Top	At_Offset_0
06ef 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06f0 e224       | $  |		Load	0x1,0x24
06f1 0322       | "  |		Declare_Variable	Record
06f2 00d8       |    |		Load_Top	At_Offset_0
06f3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06f4 029f 0973  |   s|		Declare_Subprogram	INIT_0970,For_Call
06f6			BODY_06e8:
06f6 4800       |H   |		Short_Literal	0x0
06f7 e7ff       |    |		Load	0x3,-0x1
06f8 4819       |H   |		Short_Literal	0x19
06f9 e403       |    |		Load	0x2,0x3
06fa 821b       |    |		Call	0x1,0x1b
06fb 00da       |    |		Load_Top	At_Offset_2
06fc 00ea       |    |		Load_Encached	Null_String_Cache
06fd e7ff       |    |		Load	0x3,-0x1
06fe 4800       |H   |		Short_Literal	0x0
06ff e01b       |    |		Load	0x0,0x1b
0700 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0701 c602       |    |		Store	0x3,0x2
0702 00cf       |    |		Action	Mark_Auxiliary
0703 7802       |x   |		Jump	0x706
0704 8604       |    |		Call	0x3,0x4
0705 00c9       |    |		Action	Pop_Auxiliary_Loop
0706 00db       |    |		Load_Top	At_Offset_3
0707 e01b       |    |		Load	0x0,0x1b
0708 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0709 6ffa       |o   |		Jump_Zero	0x704
070a 00ce       |    |		Action	Pop_Auxiliary
070b 00da       |    |		Load_Top	At_Offset_2
070c e01b       |    |		Load	0x0,0x1b
070d 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
070e c602       |    |		Store	0x3,0x2
070f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0710			TRAP_06e8:
0710 00d8       |    |		Load_Top	At_Offset_0
0711 0107       |    |		Execute	Exception,Get_Name
0712 4950       |IP  |		Short_Literal	0x150
0713 495f       |I_  |		Short_Literal	0x15f
0714 0262       | b  |		Execute	Discrete,In_Range
0715 6805       |h   |		Jump_Zero	0x71b
0716 00db       |    |		Load_Top	At_Offset_3
0717 e01b       |    |		Load	0x0,0x1b
0718 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0719 c602       |    |		Store	0x3,0x2
071a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
071b 4800       |H   |		Short_Literal	0x0
071c e7ff       |    |		Load	0x3,-0x1
071d 481b       |H   |		Short_Literal	0x1b
071e e403       |    |		Load	0x2,0x3
071f 821b       |    |		Call	0x1,0x1b
0720 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0721 0000 0000  |    |		.BLANK	0000[0x7]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 0749       | I  |		.CONST	0x0749								; Address of begin
0729 07b2       |    |		.CONST	0x07b2								; Address of exception handler
072a 0008       |    |		.CONST	0x0008								; Number of locals
072b			INIT_0728:
072b 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache
072c 02c7       |    |		Declare_Variable	Any
072d 00db       |    |		Load_Top	At_Offset_3
072e 00eb       |    |		Load_Encached	Diana_Cache
072f 18d0       |    |		Execute	Package,Field_Execute,Field_Number 0xd0
0730 00eb       |    |		Load_Encached	Diana_Cache
0731 1888       |    |		Execute	Package,Field_Execute,Field_Number 0x88
0732 a602       |    |		Store_Unchecked	0x3,0x2
0733 00eb       |    |		Load_Encached	Diana_Cache
0734 1b96       |    |		Execute	Package,Field_Read,Field_Number 0x96
0735 02c7       |    |		Declare_Variable	Any
0736 e7ff       |    |		Load	0x3,-0x1
0737 00eb       |    |		Load_Encached	Diana_Cache
0738 18c5       |    |		Execute	Package,Field_Execute,Field_Number 0xc5
0739 00eb       |    |		Load_Encached	Diana_Cache
073a 18f5       |    |		Execute	Package,Field_Execute,Field_Number 0xf5
073b a603       |    |		Store_Unchecked	0x3,0x3
073c 00ec       |    |		Load_Encached	Diana_Tree_Cache
073d 02c7       |    |		Declare_Variable	Any
073e 00d8       |    |		Load_Top	At_Offset_0
073f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0740 e224       | $  |		Load	0x1,0x24
0741 0322       | "  |		Declare_Variable	Record
0742 00d8       |    |		Load_Top	At_Offset_0
0743 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0744 e210       |    |		Load	0x1,0x10
0745 0007       |    |		Action	Break_Optional
0746 00e1       |    |		Load_Encached	Boolean_Cache
0747 029f 09c3  |    |		Declare_Subprogram	INIT_09c0,For_Call
0749			BODY_0728:
0749 e603       |    |		Load	0x3,0x3
074a 00eb       |    |		Load_Encached	Diana_Cache
074b 189f       |    |		Execute	Package,Field_Execute,Field_Number 0x9f
074c 00d8       |    |		Load_Top	At_Offset_0
074d e210       |    |		Load	0x1,0x10
074e 0260       | `  |		Execute	Discrete,In_Type
074f 7001       |p   |		Jump_Nonzero	0x751
0750 0801       |    |		Execute_Immediate	Raise,0x1
0751 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0752 00cf       |    |		Action	Mark_Auxiliary
0753 785b       |x[  |		Jump	0x7af
0754 e602       |    |		Load	0x3,0x2
0755 008b       |    |		Action	Heap_Access,Diana_Seq_Type_Get_Head
0756 c604       |    |		Store	0x3,0x4
0757 e602       |    |		Load	0x3,0x2
0758 0217       |    |		Execute	Heap_Access,All_Reference
0759 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
075a c602       |    |		Store	0x3,0x2
075b 00e1       |    |		Load_Encached	Boolean_Cache
075c e605       |    |		Load	0x3,0x5
075d e606       |    |		Load	0x3,0x6
075e e402       |    |		Load	0x2,0x2
075f 0217       |    |		Execute	Heap_Access,All_Reference
0760 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0761 e402       |    |		Load	0x2,0x2
0762 0217       |    |		Execute	Heap_Access,All_Reference
0763 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0764 e228       | (  |		Load	0x1,0x28
0765 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0766 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0767 00d1       |    |		Pop_Control	Pop_Count_1
0768 005b       | [  |		Store_Top	Discrete,At_Offset_3
0769 00da       |    |		Load_Top	At_Offset_2
076a 6814       |h   |		Jump_Zero	0x77f
076b 4800       |H   |		Short_Literal	0x0
076c 4801       |H   |		Short_Literal	0x1
076d e605       |    |		Load	0x3,0x5
076e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
076f e402       |    |		Load	0x2,0x2
0770 0217       |    |		Execute	Heap_Access,All_Reference
0771 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0772 e22b       | +  |		Load	0x1,0x2b
0773 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0774 822e       | .  |		Call	0x1,0x2e
0775 e604       |    |		Load	0x3,0x4
0776 e016       |    |		Load	0x0,0x16
0777 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0778 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
0779 821d       |    |		Call	0x1,0x1d
077a 481c       |H   |		Short_Literal	0x1c
077b e403       |    |		Load	0x2,0x3
077c 821b       |    |		Call	0x1,0x1b
077d 8608       |    |		Call	0x3,0x8
077e 782f       |x/  |		Jump	0x7ae
077f 00e1       |    |		Load_Encached	Boolean_Cache
0780 e605       |    |		Load	0x3,0x5
0781 e604       |    |		Load	0x3,0x4
0782 00eb       |    |		Load_Encached	Diana_Cache
0783 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0784 00eb       |    |		Load_Encached	Diana_Cache
0785 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0786 e405       |    |		Load	0x2,0x5
0787 e229       | )  |		Load	0x1,0x29
0788 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0789 00d1       |    |		Pop_Control	Pop_Count_1
078a 005b       | [  |		Store_Top	Discrete,At_Offset_3
078b 00da       |    |		Load_Top	At_Offset_2
078c 6819       |h   |		Jump_Zero	0x7a6
078d 4800       |H   |		Short_Literal	0x0
078e e605       |    |		Load	0x3,0x5
078f e606       |    |		Load	0x3,0x6
0790 e402       |    |		Load	0x2,0x2
0791 0217       |    |		Execute	Heap_Access,All_Reference
0792 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0793 e402       |    |		Load	0x2,0x2
0794 0217       |    |		Execute	Heap_Access,All_Reference
0795 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0796 e228       | (  |		Load	0x1,0x28
0797 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0798 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0799 e404       |    |		Load	0x2,0x4
079a 0a01       |    |		Execute_Immediate	Plus,0x1
079b c404       |    |		Store	0x2,0x4
079c e405       |    |		Load	0x2,0x5
079d e604       |    |		Load	0x3,0x4
079e 00eb       |    |		Load_Encached	Diana_Cache
079f 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
07a0 00eb       |    |		Load_Encached	Diana_Cache
07a1 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
07a2 e229       | )  |		Load	0x1,0x29
07a3 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
07a4 c405       |    |		Store	0x2,0x5
07a5 7808       |x   |		Jump	0x7ae
07a6 4800       |H   |		Short_Literal	0x0
07a7 e604       |    |		Load	0x3,0x4
07a8 e016       |    |		Load	0x0,0x16
07a9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
07aa 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
07ab 481e       |H   |		Short_Literal	0x1e
07ac e403       |    |		Load	0x2,0x3
07ad 821b       |    |		Call	0x1,0x1b
07ae 00c9       |    |		Action	Pop_Auxiliary_Loop
07af e602       |    |		Load	0x3,0x2
07b0 77a3       |w   |		Jump_Nonzero	0x754
07b1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
07b2			TRAP_0728:
07b2 010e       |    |		Execute	Exception,Is_Constraint_Error
07b3 7002       |p   |		Jump_Nonzero	0x7b6
07b4 010d       |    |		Execute	Exception,Is_Numeric_Error
07b5 6809       |h   |		Jump_Zero	0x7bf
07b6 4800       |H   |		Short_Literal	0x0
07b7 e7ff       |    |		Load	0x3,-0x1
07b8 e016       |    |		Load	0x0,0x16
07b9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
07ba 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
07bb 481d       |H   |		Short_Literal	0x1d
07bc e403       |    |		Load	0x2,0x3
07bd 821b       |    |		Call	0x1,0x1b
07be 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
07bf 0100       |    |		Execute	Exception,Raise
07c0 ; --------------------------------------------------------------------------------------
07c0 ; SUBPROGRAM
07c0 ; --------------------------------------------------------------------------------------
07c0 07dc       |    |		.CONST	0x07dc								; Address of begin
07c1 0004       |    |		.CONST	0x0004								; Address of exception handler
07c2 0009       |    |		.CONST	0x0009								; Number of locals
07c3			INIT_07c0:
07c3 e016       |    |		Load	0x0,0x16
07c4 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
07c5 02ff       |    |		Declare_Variable	Variant_Record
07c6 00d8       |    |		Load_Top	At_Offset_0
07c7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07c8 e01c       |    |		Load	0x0,0x1c
07c9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07ca 02c7       |    |		Declare_Variable	Any
07cb 00d8       |    |		Load_Top	At_Offset_0
07cc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07cd e016       |    |		Load	0x0,0x16
07ce 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07cf 00ec       |    |		Load_Encached	Diana_Tree_Cache
07d0 02c7       |    |		Declare_Variable	Any
07d1 00d8       |    |		Load_Top	At_Offset_0
07d2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07d3 e01c       |    |		Load	0x0,0x1c
07d4 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
07d5 0322       | "  |		Declare_Variable	Record
07d6 00e3       |    |		Load_Encached	Natural_Cache
07d7 00e3       |    |		Load_Encached	Natural_Cache
07d8 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache
07d9 02c7       |    |		Declare_Variable	Any
07da 00d8       |    |		Load_Top	At_Offset_0
07db 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07dc			BODY_07c0:
07dc 4800       |H   |		Short_Literal	0x0
07dd e7ff       |    |		Load	0x3,-0x1
07de e016       |    |		Load	0x0,0x16
07df 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
07e0 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
07e1 4813       |H   |		Short_Literal	0x13
07e2 e403       |    |		Load	0x2,0x3
07e3 821b       |    |		Call	0x1,0x1b
07e4 e016       |    |		Load	0x0,0x16
07e5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07e6 e602       |    |		Load	0x3,0x2
07e7 60cc       |`   |		Indirect_Literal	Discrete,0x8b4,{0x00000000, 0x00004000}
07e8 e017       |    |		Load	0x0,0x17
07e9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07ea e7ff       |    |		Load	0x3,-0x1
07eb e016       |    |		Load	0x0,0x16
07ec 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
07ed 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
07ee 00d1       |    |		Pop_Control	Pop_Count_1
07ef c604       |    |		Store	0x3,0x4
07f0 e602       |    |		Load	0x3,0x2
07f1 e016       |    |		Load	0x0,0x16
07f2 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
07f3 6809       |h   |		Jump_Zero	0x7fd
07f4 4800       |H   |		Short_Literal	0x0
07f5 e7ff       |    |		Load	0x3,-0x1
07f6 e016       |    |		Load	0x0,0x16
07f7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
07f8 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
07f9 4816       |H   |		Short_Literal	0x16
07fa e403       |    |		Load	0x2,0x3
07fb 821b       |    |		Call	0x1,0x1b
07fc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07fd e602       |    |		Load	0x3,0x2
07fe e016       |    |		Load	0x0,0x16
07ff 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
0800 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0801 7009       |p   |		Jump_Nonzero	0x80b
0802 4800       |H   |		Short_Literal	0x0
0803 e602       |    |		Load	0x3,0x2
0804 e016       |    |		Load	0x0,0x16
0805 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0806 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
0807 4815       |H   |		Short_Literal	0x15
0808 e403       |    |		Load	0x2,0x3
0809 821b       |    |		Call	0x1,0x1b
080a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
080b e016       |    |		Load	0x0,0x16
080c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
080d e603       |    |		Load	0x3,0x3
080e 0120       |    |		Execute	Any,Is_Value
080f 6803       |h   |		Jump_Zero	0x813
0810 e01c       |    |		Load	0x0,0x1c
0811 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0812 7801       |x   |		Jump	0x814
0813 e603       |    |		Load	0x3,0x3
0814 609f       |`   |		Indirect_Literal	Discrete,0x8b4,{0x00000000, 0x00004000}
0815 e017       |    |		Load	0x0,0x17
0816 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0817 e602       |    |		Load	0x3,0x2
0818 e01c       |    |		Load	0x0,0x1c
0819 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
081a c603       |    |		Store	0x3,0x3
081b c604       |    |		Store	0x3,0x4
081c e603       |    |		Load	0x3,0x3
081d e01c       |    |		Load	0x0,0x1c
081e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
081f 012f       | /  |		Execute	Any,Equal
0820 680f       |h   |		Jump_Zero	0x830
0821 4800       |H   |		Short_Literal	0x0
0822 e604       |    |		Load	0x3,0x4
0823 e016       |    |		Load	0x0,0x16
0824 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0825 011c       |    |		Execute	Any,Convert_Unchecked
0826 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0827 e602       |    |		Load	0x3,0x2
0828 e016       |    |		Load	0x0,0x16
0829 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
082a 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
082b 821d       |    |		Call	0x1,0x1d
082c 4814       |H   |		Short_Literal	0x14
082d e403       |    |		Load	0x2,0x3
082e 821b       |    |		Call	0x1,0x1b
082f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0830 4801       |H   |		Short_Literal	0x1
0831 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0832 e603       |    |		Load	0x3,0x3
0833 e01c       |    |		Load	0x0,0x1c
0834 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0835 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0836 00cf       |    |		Action	Mark_Auxiliary
0837 786c       |xl  |		Jump	0x8a4
0838 4801       |H   |		Short_Literal	0x1
0839 4820       |H   |		Short_Literal	0x20
083a e603       |    |		Load	0x3,0x3
083b e607       |    |		Load	0x3,0x7
083c 00d8       |    |		Load_Top	At_Offset_0
083d 00e4       |    |		Load_Encached	Positive_Cache
083e 0260       | `  |		Execute	Discrete,In_Type
083f 7001       |p   |		Jump_Nonzero	0x841
0840 0801       |    |		Execute_Immediate	Raise,0x1
0841 e01c       |    |		Load	0x0,0x1c
0842 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0843 e018       |    |		Load	0x0,0x18
0844 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0845 e5fc       |    |		Load	0x2,-0x4
0846 e018       |    |		Load	0x0,0x18
0847 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0848 6857       |hW  |		Jump_Zero	0x8a0
0849 e603       |    |		Load	0x3,0x3
084a e607       |    |		Load	0x3,0x7
084b 00d8       |    |		Load_Top	At_Offset_0
084c 00e4       |    |		Load_Encached	Positive_Cache
084d 0260       | `  |		Execute	Discrete,In_Type
084e 7001       |p   |		Jump_Nonzero	0x850
084f 0801       |    |		Execute_Immediate	Raise,0x1
0850 e01c       |    |		Load	0x0,0x1c
0851 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0852 c605       |    |		Store	0x3,0x5
0853 e605       |    |		Load	0x3,0x5
0854 4975       |Iu  |		Short_Literal	0x175
0855 00eb       |    |		Load_Encached	Diana_Cache
0856 0098       |    |		Execute	Package,Field_Read_Dynamic
0857 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0858 c609       |    |		Store	0x3,0x9
0859 00cf       |    |		Action	Mark_Auxiliary
085a 00da       |    |		Load_Top	At_Offset_2
085b 0217       |    |		Execute	Heap_Access,All_Reference
085c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
085d c609       |    |		Store	0x3,0x9
085e 00da       |    |		Load_Top	At_Offset_2
085f 7012       |p   |		Jump_Nonzero	0x872
0860 4800       |H   |		Short_Literal	0x0
0861 e5fb       |    |		Load	0x2,-0x5
0862 e602       |    |		Load	0x3,0x2
0863 e016       |    |		Load	0x0,0x16
0864 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0865 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
0866 821d       |    |		Call	0x1,0x1d
0867 481f       |H   |		Short_Literal	0x1f
0868 e403       |    |		Load	0x2,0x3
0869 821b       |    |		Call	0x1,0x1b
086a e016       |    |		Load	0x0,0x16
086b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
086c e603       |    |		Load	0x3,0x3
086d e01c       |    |		Load	0x0,0x1c
086e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
086f c603       |    |		Store	0x3,0x3
0870 c604       |    |		Store	0x3,0x4
0871 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0872 00da       |    |		Load_Top	At_Offset_2
0873 008b       |    |		Action	Heap_Access,Diana_Seq_Type_Get_Head
0874 c605       |    |		Store	0x3,0x5
0875 e605       |    |		Load	0x3,0x5
0876 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind
0877 0f3a       | :  |		Execute_Immediate	Equal,0x3a
0878 6802       |h   |		Jump_Zero	0x87b
0879 e605       |    |		Load	0x3,0x5
087a 840e       |    |		Call	0x2,0xe
087b e603       |    |		Load	0x3,0x3
087c 4802       |H   |		Short_Literal	0x2
087d e605       |    |		Load	0x3,0x5
087e e01c       |    |		Load	0x0,0x1c
087f 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0880 e606       |    |		Load	0x3,0x6
0881 017d       | }  |		Execute	Record,Structure_Write
0882 00cf       |    |		Action	Mark_Auxiliary
0883 e606       |    |		Load	0x3,0x6
0884 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0885 e606       |    |		Load	0x3,0x6
0886 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0887 0263       | c  |		Execute	Discrete,Above_Bound
0888 7013       |p   |		Jump_Nonzero	0x89c
0889 4801       |H   |		Short_Literal	0x1
088a 4820       |H   |		Short_Literal	0x20
088b e603       |    |		Load	0x3,0x3
088c 00db       |    |		Load_Top	At_Offset_3
088d e01c       |    |		Load	0x0,0x1c
088e 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
088f e018       |    |		Load	0x0,0x18
0890 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0891 e5fb       |    |		Load	0x2,-0x5
0892 e018       |    |		Load	0x0,0x18
0893 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0894 6805       |h   |		Jump_Zero	0x89a
0895 00d8       |    |		Load_Top	At_Offset_0
0896 a607       |    |		Store_Unchecked	0x3,0x7
0897 00d2       |    |		Pop_Control	Pop_Count_2
0898 00ce       |    |		Action	Pop_Auxiliary
0899 7805       |x   |		Jump	0x89f
089a 00c8       |    |		Action	Pop_Auxiliary_Range
089b 3fed       |?   |		Loop_Increasing	0x889
089c 00ce       |    |		Action	Pop_Auxiliary
089d 00c9       |    |		Action	Pop_Auxiliary_Loop
089e 7fbb       |    |		Jump	0x85a
089f 00ce       |    |		Action	Pop_Auxiliary
08a0 00db       |    |		Load_Top	At_Offset_3
08a1 0a01       |    |		Execute_Immediate	Plus,0x1
08a2 c607       |    |		Store	0x3,0x7
08a3 00c9       |    |		Action	Pop_Auxiliary_Loop
08a4 00db       |    |		Load_Top	At_Offset_3
08a5 00db       |    |		Load_Top	At_Offset_3
08a6 027c       | |  |		Execute	Discrete,Less
08a7 7790       |w   |		Jump_Nonzero	0x838
08a8 00ce       |    |		Action	Pop_Auxiliary
08a9 e016       |    |		Load	0x0,0x16
08aa 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08ab e603       |    |		Load	0x3,0x3
08ac e01c       |    |		Load	0x0,0x1c
08ad 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
08ae c603       |    |		Store	0x3,0x3
08af c604       |    |		Store	0x3,0x4
08b0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08b1 0000 0000  |    |		.XXX[0x3]
08b3 0000       |    |
08b4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
08b8 ; --------------------------------------------------------------------------------------
08b8 ; SUBPROGRAM
08b8 ; --------------------------------------------------------------------------------------
08b8 08c0       |    |		.CONST	0x08c0								; Address of begin
08b9 0966       | f  |		.CONST	0x0966								; Address of exception handler
08ba 0003       |    |		.CONST	0x0003								; Number of locals
08bb			INIT_08b8:
08bb 00da       |    |		Load_Top	At_Offset_2
08bc 01dd       |    |		Execute	Vector,First
08bd 00e2       |    |		Load_Encached	Integer_Cache
08be 03f1       |    |		Declare_Variable	Discrete,With_Value
08bf 00e2       |    |		Load_Encached	Integer_Cache
08c0			BODY_08b8:
08c0 e7ff       |    |		Load	0x3,-0x1
08c1 01db       |    |		Execute	Vector,Length
08c2 7003       |p   |		Jump_Nonzero	0x8c6
08c3 0092 09d6  |    |		Action	Push_String_Extended,0x9d6					; "~"
08c5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08c6 00d9       |    |		Load_Top	At_Offset_1
08c7 e7ff       |    |		Load	0x3,-0x1
08c8 01d7       |    |		Execute	Vector,Field_Read
08c9 00d8       |    |		Load_Top	At_Offset_0
08ca 0d21       | !  |		Execute_Immediate	Less,0x21
08cb 702c       |p,  |		Jump_Nonzero	0x8f8
08cc 00d8       |    |		Load_Top	At_Offset_0
08cd 0c41       | A  |		Execute_Immediate	Greater_Equal,0x41
08ce 7026       |p&  |		Jump_Nonzero	0x8f5
08cf 0adf       |    |		Execute_Immediate	Plus,-0x21
08d0 461f       |F   |		Jump_Case	0x20
08d1 785e       |x^  |		Jump	0x930								; case 0x0
08d2 7826       |x&  |		Jump	0x8f9								; case 0x1
08d3 782b       |x+  |		Jump	0x8ff								; case 0x2
08d4 7824       |x$  |		Jump	0x8f9								; case 0x3
08d5 7823       |x#  |		Jump	0x8f9								; case 0x4
08d6 7822       |x"  |		Jump	0x8f9								; case 0x5
08d7 7821       |x!  |		Jump	0x8f9								; case 0x6
08d8 7820       |x   |		Jump	0x8f9								; case 0x7
08d9 781f       |x   |		Jump	0x8f9								; case 0x8
08da 781e       |x   |		Jump	0x8f9								; case 0x9
08db 781d       |x   |		Jump	0x8f9								; case 0xa
08dc 781c       |x   |		Jump	0x8f9								; case 0xb
08dd 781b       |x   |		Jump	0x8f9								; case 0xc
08de 781a       |x   |		Jump	0x8f9								; case 0xd
08df 7819       |x   |		Jump	0x8f9								; case 0xe
08e0 7818       |x   |		Jump	0x8f9								; case 0xf
08e1 7824       |x$  |		Jump	0x906								; case 0x10
08e2 7823       |x#  |		Jump	0x906								; case 0x11
08e3 7822       |x"  |		Jump	0x906								; case 0x12
08e4 7821       |x!  |		Jump	0x906								; case 0x13
08e5 7820       |x   |		Jump	0x906								; case 0x14
08e6 781f       |x   |		Jump	0x906								; case 0x15
08e7 781e       |x   |		Jump	0x906								; case 0x16
08e8 781d       |x   |		Jump	0x906								; case 0x17
08e9 781c       |x   |		Jump	0x906								; case 0x18
08ea 780e       |x   |		Jump	0x8f9								; case 0x19
08eb 780d       |x   |		Jump	0x8f9								; case 0x1a
08ec 780c       |x   |		Jump	0x8f9								; case 0x1b
08ed 780b       |x   |		Jump	0x8f9								; case 0x1c
08ee 780a       |x   |		Jump	0x8f9								; case 0x1d
08ef 7840       |x@  |		Jump	0x930								; case 0x1e
08f0 7800       |x   |		Jump	0x8f1								; case 0x1f
08f1 e5fe       |    |		Load	0x2,-0x2
08f2 0335       | 5  |		Declare_Variable	Array,Duplicate
08f3 00cd       |    |		Action	Spare6_Action
08f4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08f5 0f5c       | \  |		Execute_Immediate	Equal,0x5c
08f6 7063       |pc  |		Jump_Nonzero	0x95a
08f7 7801       |x   |		Jump	0x8f9
08f8 00d1       |    |		Pop_Control	Pop_Count_1
08f9 482a       |H*  |		Short_Literal	0x2a
08fa 482a       |H*  |		Short_Literal	0x2a
08fb e7ff       |    |		Load	0x3,-0x1
08fc 01ca       |    |		Execute	Vector,Prepend
08fd 01cb       |    |		Execute	Vector,Append
08fe 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08ff 4820       |H   |		Short_Literal	0x20
0900 4800       |H   |		Short_Literal	0x0
0901 480a       |H   |		Short_Literal	0xa
0902 e5ff       |    |		Load	0x2,-0x1
0903 e018       |    |		Load	0x0,0x18
0904 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0905 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0906 00d9       |    |		Load_Top	At_Offset_1
0907 00da       |    |		Load_Top	At_Offset_2
0908 e7ff       |    |		Load	0x3,-0x1
0909 01cf       |    |		Execute	Vector,Slice_Read
090a 00e2       |    |		Load_Encached	Integer_Cache
090b 00e0       |    |		Load_Encached	Standard_Cache
090c 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
090d 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
090e 00d8       |    |		Load_Top	At_Offset_0
090f 00d8       |    |		Load_Top	At_Offset_0
0910 00e4       |    |		Load_Encached	Positive_Cache
0911 0260       | `  |		Execute	Discrete,In_Type
0912 7001       |p   |		Jump_Nonzero	0x914
0913 0801       |    |		Execute_Immediate	Raise,0x1
0914 e5fc       |    |		Load	0x2,-0x4
0915 822e       | .  |		Call	0x1,0x2e
0916 01db       |    |		Execute	Vector,Length
0917 700f       |p   |		Jump_Nonzero	0x927
0918 4820       |H   |		Short_Literal	0x20
0919 00da       |    |		Load_Top	At_Offset_2
091a 0a01       |    |		Execute_Immediate	Plus,0x1
091b 00d8       |    |		Load_Top	At_Offset_0
091c 00e2       |    |		Load_Encached	Integer_Cache
091d 0260       | `  |		Execute	Discrete,In_Type
091e 7001       |p   |		Jump_Nonzero	0x920
091f 0801       |    |		Execute_Immediate	Raise,0x1
0920 e7ff       |    |		Load	0x3,-0x1
0921 01dc       |    |		Execute	Vector,Last
0922 e7ff       |    |		Load	0x3,-0x1
0923 01cf       |    |		Execute	Vector,Slice_Read
0924 e018       |    |		Load	0x0,0x18
0925 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0926 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0927 00d8       |    |		Load_Top	At_Offset_0
0928 00d8       |    |		Load_Top	At_Offset_0
0929 00e4       |    |		Load_Encached	Positive_Cache
092a 0260       | `  |		Execute	Discrete,In_Type
092b 7001       |p   |		Jump_Nonzero	0x92d
092c 0801       |    |		Execute_Immediate	Raise,0x1
092d e5fc       |    |		Load	0x2,-0x4
092e 822e       | .  |		Call	0x1,0x2e
092f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0930 00d9       |    |		Load_Top	At_Offset_1
0931 0a01       |    |		Execute_Immediate	Plus,0x1
0932 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0933 00d9       |    |		Load_Top	At_Offset_1
0934 00da       |    |		Load_Top	At_Offset_2
0935 e7ff       |    |		Load	0x3,-0x1
0936 01cf       |    |		Execute	Vector,Slice_Read
0937 00e2       |    |		Load_Encached	Integer_Cache
0938 00e0       |    |		Load_Encached	Standard_Cache
0939 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
093a 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
093b 00d8       |    |		Load_Top	At_Offset_0
093c 00d8       |    |		Load_Top	At_Offset_0
093d 00e4       |    |		Load_Encached	Positive_Cache
093e 0260       | `  |		Execute	Discrete,In_Type
093f 7001       |p   |		Jump_Nonzero	0x941
0940 0801       |    |		Execute_Immediate	Raise,0x1
0941 e5fc       |    |		Load	0x2,-0x4
0942 822e       | .  |		Call	0x1,0x2e
0943 01db       |    |		Execute	Vector,Length
0944 0f00       |    |		Execute_Immediate	Equal,0x0
0945 e7ff       |    |		Load	0x3,-0x1
0946 01dd       |    |		Execute	Vector,First
0947 e7ff       |    |		Load	0x3,-0x1
0948 01d7       |    |		Execute	Vector,Field_Read
0949 0f21       | !  |		Execute_Immediate	Equal,0x21
094a 027f       |    |		Execute	Discrete,Equal
094b 680c       |h   |		Jump_Zero	0x958
094c 00d9       |    |		Load_Top	At_Offset_1
094d 0a01       |    |		Execute_Immediate	Plus,0x1
094e 00d8       |    |		Load_Top	At_Offset_0
094f 00e2       |    |		Load_Encached	Integer_Cache
0950 0260       | `  |		Execute	Discrete,In_Type
0951 7001       |p   |		Jump_Nonzero	0x953
0952 0801       |    |		Execute_Immediate	Raise,0x1
0953 e7ff       |    |		Load	0x3,-0x1
0954 01dc       |    |		Execute	Vector,Last
0955 e7ff       |    |		Load	0x3,-0x1
0956 01cf       |    |		Execute	Vector,Slice_Read
0957 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0958 00ea       |    |		Load_Encached	Null_String_Cache
0959 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
095a 4801       |H   |		Short_Literal	0x1
095b 4801       |H   |		Short_Literal	0x1
095c 00e9       |    |		Load_Encached	String_Cache
095d 035b       | [  |		Declare_Type	Array,Constrained
095e 0337       | 7  |		Declare_Variable	Array
095f 480a       |H   |		Short_Literal	0xa
0960 4801       |H   |		Short_Literal	0x1
0961 00da       |    |		Load_Top	At_Offset_2
0962 01d6       |    |		Execute	Vector,Field_Write
0963 00e9       |    |		Load_Encached	String_Cache
0964 01c6       |    |		Execute	Vector,Convert_To_Formal
0965 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0966			TRAP_08b8:
0966 010e       |    |		Execute	Exception,Is_Constraint_Error
0967 6806       |h   |		Jump_Zero	0x96e
0968 482a       |H*  |		Short_Literal	0x2a
0969 482a       |H*  |		Short_Literal	0x2a
096a e7ff       |    |		Load	0x3,-0x1
096b 01ca       |    |		Execute	Vector,Prepend
096c 01cb       |    |		Execute	Vector,Append
096d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
096e 0100       |    |		Execute	Exception,Raise
096f 0000       |    |		.XXX[0x1]
0970 ; --------------------------------------------------------------------------------------
0970 ; SUBPROGRAM
0970 ; --------------------------------------------------------------------------------------
0970 0985       |    |		.CONST	0x0985								; Address of begin
0971 09ac       |    |		.CONST	0x09ac								; Address of exception handler
0972 0007       |    |		.CONST	0x0007								; Number of locals
0973			INIT_0970:
0973 e602       |    |		Load	0x3,0x2
0974 8235       | 5  |		Call	0x1,0x35
0975 4801       |H   |		Short_Literal	0x1
0976 00d9       |    |		Load_Top	At_Offset_1
0977 8236       | 6  |		Call	0x1,0x36
0978 00d9       |    |		Load_Top	At_Offset_1
0979 840a       |    |		Call	0x2,0xa
097a e002       |    |		Load	0x0,0x2
097b 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
097c 03f1       |    |		Declare_Variable	Discrete,With_Value
097d 00da       |    |		Load_Top	At_Offset_2
097e 840b       |    |		Call	0x2,0xb
097f 00e2       |    |		Load_Encached	Integer_Cache
0980 03f1       |    |		Declare_Variable	Discrete,With_Value
0981 e602       |    |		Load	0x3,0x2
0982 8234       | 4  |		Call	0x1,0x34
0983 e602       |    |		Load	0x3,0x2
0984 840c       |    |		Call	0x2,0xc
0985			BODY_0970:
0985 00db       |    |		Load_Top	At_Offset_3
0986 e603       |    |		Load	0x3,0x3
0987 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0988 00da       |    |		Load_Top	At_Offset_2
0989 e603       |    |		Load	0x3,0x3
098a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
098b e402       |    |		Load	0x2,0x2
098c 0217       |    |		Execute	Heap_Access,All_Reference
098d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
098e e003       |    |		Load	0x0,0x3
098f 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0990 e603       |    |		Load	0x3,0x3
0991 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0992 e405       |    |		Load	0x2,0x5
0993 4801       |H   |		Short_Literal	0x1
0994 e603       |    |		Load	0x3,0x3
0995 e803       |    |		Load	0x4,0x3
0996 e018       |    |		Load	0x0,0x18
0997 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0998 e229       | )  |		Load	0x1,0x29
0999 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
099a c405       |    |		Store	0x2,0x5
099b 480a       |H   |		Short_Literal	0xa
099c 480a       |H   |		Short_Literal	0xa
099d e803       |    |		Load	0x4,0x3
099e 01cb       |    |		Execute	Vector,Append
099f 00db       |    |		Load_Top	At_Offset_3
09a0 01cc       |    |		Execute	Vector,Catenate
09a1 01cb       |    |		Execute	Vector,Append
09a2 00d9       |    |		Load_Top	At_Offset_1
09a3 01cc       |    |		Execute	Vector,Catenate
09a4 e603       |    |		Load	0x3,0x3
09a5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
09a6 e402       |    |		Load	0x2,0x2
09a7 0217       |    |		Execute	Heap_Access,All_Reference
09a8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
09a9 e22b       | +  |		Load	0x1,0x2b
09aa 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
09ab 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09ac			TRAP_0970:
09ac e229       | )  |		Load	0x1,0x29
09ad 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
09ae 010f       |    |		Execute	Exception,Equal
09af 6808       |h   |		Jump_Zero	0x9b8
09b0 4800       |H   |		Short_Literal	0x0
09b1 e7ff       |    |		Load	0x3,-0x1
09b2 e803       |    |		Load	0x4,0x3
09b3 821d       |    |		Call	0x1,0x1d
09b4 481a       |H   |		Short_Literal	0x1a
09b5 e403       |    |		Load	0x2,0x3
09b6 821b       |    |		Call	0x1,0x1b
09b7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09b8 0100       |    |		Execute	Exception,Raise
09b9 0000 0000  |    |		.BLANK	0000[0x7]
09c0 ; --------------------------------------------------------------------------------------
09c0 ; SUBPROGRAM
09c0 ; --------------------------------------------------------------------------------------
09c0 09c3       |    |		.CONST	0x09c3								; Address of begin
09c1 09cd       |    |		.CONST	0x09cd								; Address of exception handler
09c2 0001       |    |		.CONST	0x0001								; Number of locals
09c3			BODY_09c0:
09c3			INIT_09c0:
09c3 e405       |    |		Load	0x2,0x5
09c4 e604       |    |		Load	0x3,0x4
09c5 00eb       |    |		Load_Encached	Diana_Cache
09c6 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
09c7 00eb       |    |		Load_Encached	Diana_Cache
09c8 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
09c9 e229       | )  |		Load	0x1,0x29
09ca 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
09cb c405       |    |		Store	0x2,0x5
09cc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09cd			TRAP_09c0:
09cd 0007       |    |		Action	Break_Optional
09ce 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09cf ; --------------------------------------------------------------------------------------
09cf ; STRING TABLE
09cf ; --------------------------------------------------------------------------------------
09cf 0012       |    |		.STRTAB	0x0012->0x09d8							; "DEFAULT"
09d0 0017       |    |		.STRTAB	0x0017->0x09db							; "SIMPLE"
09d1 001b       |    |		.STRTAB	0x001b->0x09de							; "CONCISE"
09d2 0020       |    |		.STRTAB	0x0020->0x09e2							; "VERBOSE"
09d3 0025       | %  |		.STRTAB	0x0025->0x09e5							; "Error '~@~' (~#~) encountered processing ~1~ ~2~ ~3~"
09d4 0057       | W  |		.STRTAB	0x0057->0x09ff							; "!Machine.Target_Builder.Message_File"
09d5 0079       | y  |		.STRTAB	0x0079->0x0a11							; "SPARE_"
09d6 007d       | }  |		.STRTAB	0x007d->0x0a14							; "~"
09d7 007c       | |  |		.STREND 0x007c->0x0a15
09d8 4445 4641  |DEFA|		.STRTAB_STRINGS
0a15 0000 0000  |    |		.XXX[0x3]
0a17 0000       |    |
0a18 ; --------------------------------------------------------------------------------------
0a18 ; Debug Table
0a18 ; --------------------------------------------------------------------------------------
0a18 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0xfa3c,0x0000,0x0001,0x0000
0a1e 0000 0000  |    |		.BLANK	0000[0x21]
0a3f 2000 0014  |    |		.XXX[0xc]
0a41 0000 0000  |    |
0a43 0000 0020  |    |
0a45 0000 0160  |   `|
0a47 0000 0000  |    |
0a49 8000 0028  |   (|
0a4b 0000 0000  |    |		.BLANK	0000[0x2a]
0a75 0800 0005  |    |		.XXX[0xc]
0a77 0000 0000  |    |
0a79 0000 0008  |    |
0a7b 0000 0058  |   X|
0a7d 0000 0000  |    |
0a7f 2000 000a  |    |
0a81 0000 0000  |    |		.BLANK	0000[0x2a]
0aab 0200 0001  |    |		.XXX[0xd]
0aad 4000 0000  |@   |
0aaf 0000 0002  |    |
0ab1 0000 0016  |    |
0ab3 0000 0000  |    |
0ab5 0800 0002  |    |
0ab7 8000       |    |
0ab8 0000 0000  |    |		.BLANK	0000[0x29]
0ae1 0080 0000  |    |		.XXX[0xd]
0ae3 5000 0000  |P   |
0ae5 0000 0000  |    |
0ae7 8000 0005  |    |
0ae9 8000 0000  |    |
0aeb 0200 0000  |    |
0aed a000       |    |
0aee 0000 0000  |    |		.BLANK	0000[0x29]
0b17 0020 0000  |    |		.XXX[0xd]
0b19 1400 0000  |    |
0b1b 0000 0000  |    |
0b1d 2000 0001  |    |
0b1f 6000 0000  |`   |
0b21 0080 0000  |    |
0b23 2800       |(   |
0b24 0000 0000  |    |		.BLANK	0000[0x29]
0b4d 0008 0000  |    |		.XXX[0xd]
0b4f 0500 0000  |    |
0b51 0000 0000  |    |
0b53 0800 0000  |    |
0b55 5800 0000  |X   |
0b57 0020 0000  |    |
0b59 0a00       |    |
0b5a 0000 0000  |    |		.BLANK	0000[0x29]
0b83 0002 0000  |    |		.XXX[0xd]
0b85 0140 0000  | @  |
0b87 0000 0000  |    |
0b89 0200 0000  |    |
0b8b 1600 0000  |    |
0b8d 0008 0000  |    |
0b8f 0280       |    |
0b90 0000 0000  |    |		.BLANK	0000[0x2a]
0bba 8000 0050  |   P|		.XXX[0xc]
0bbc 0000 0000  |    |
0bbe 0000 0080  |    |
0bc0 0000 0580  |    |
0bc2 0000 0002  |    |
0bc4 0000 00a0  |    |
0bc6 0000 0000  |    |		.BLANK	0000[0x2a]
0bf0 2000 0014  |    |		.XXX[0xc]
0bf2 0000 0000  |    |
0bf4 0000 0020  |    |
0bf6 0000 0160  |   `|
0bf8 0000 0000  |    |
0bfa 8000 0028  |   (|
0bfc 0000 0000  |    |		.BLANK	0000[0x4]