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

⟦361da5aea⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_05d0f0

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0310       |    |		.CONST	0x0310								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 007e       | ~  |		.CONST	0x007e								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0024       | $  |		.CONST	0x0024								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 48ef       |H   |		Short_Literal	0xef
000d 00e3       |    |		Load_Encached	Natural_Cache
000e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
000f 0093 0000  |    |		push_full_address	0x0
0011 60ea       |`   |		Indirect_Literal	Discrete,0xfc,{0x80000000, 0x00010000}
0012 0273       | s  |		Execute	Discrete,Plus
0013 00db       |    |		Load_Top	At_Offset_3
0014 60e3       |`   |		Indirect_Literal	Discrete,0xf8,{0x00000000, 0x0000ffff}
0015 0279       | y  |		Execute	Discrete,And
0016 0273       | s  |		Execute	Discrete,Plus
0017 0129       | )  |		Execute	Any,Make_Visible
0018 0093 0000  |    |		push_full_address	0x0
001a 60d9       |`   |		Indirect_Literal	Discrete,0xf4,{0x80000000, 0x00020000}
001b 0273       | s  |		Execute	Discrete,Plus
001c e20d       |    |		Load	0x1,0xd
001d 60da       |`   |		Indirect_Literal	Discrete,0xf8,{0x00000000, 0x0000ffff}
001e 0279       | y  |		Execute	Discrete,And
001f 0273       | s  |		Execute	Discrete,Plus
0020 0129       | )  |		Execute	Any,Make_Visible
0021 0093 0000  |    |		push_full_address	0x0
0023 60cc       |`   |		Indirect_Literal	Discrete,0xf0,{0x80000000, 0x00030000}
0024 0273       | s  |		Execute	Discrete,Plus
0025 e20d       |    |		Load	0x1,0xd
0026 60d1       |`   |		Indirect_Literal	Discrete,0xf8,{0x00000000, 0x0000ffff}
0027 0279       | y  |		Execute	Discrete,And
0028 0273       | s  |		Execute	Discrete,Plus
0029 0129       | )  |		Execute	Any,Make_Visible
002a 0093 0000  |    |		push_full_address	0x0
002c 60bf       |`   |		Indirect_Literal	Discrete,0xec,{0x80000000, 0x00040000}
002d 0273       | s  |		Execute	Discrete,Plus
002e e20d       |    |		Load	0x1,0xd
002f 60c8       |`   |		Indirect_Literal	Discrete,0xf8,{0x00000000, 0x0000ffff}
0030 0279       | y  |		Execute	Discrete,And
0031 0273       | s  |		Execute	Discrete,Plus
0032 0129       | )  |		Execute	Any,Make_Visible
0033 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated
0035 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
0037 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
0039 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
003b 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
003d 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
003f 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
0041 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0043 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
0045 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0047 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
0049 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
004b 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
004d e003       |    |		Load	0x0,0x3
004e e004       |    |		Load	0x0,0x4
004f e005       |    |		Load	0x0,0x5
0050 e006       |    |		Load	0x0,0x6
0051 4801       |H   |		Short_Literal	0x1
0052 00e1       |    |		Load_Encached	Boolean_Cache
0053 4801       |H   |		Short_Literal	0x1
0054 e20f       |    |		Load	0x1,0xf
0055 029f 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Call
0057 4802       |H   |		Short_Literal	0x2
0058 4803       |H   |		Short_Literal	0x3
0059 4802       |H   |		Short_Literal	0x2
005a 4800       |H   |		Short_Literal	0x0
005b 4801       |H   |		Short_Literal	0x1
005c 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
005d 00bf       |    |		Action	Accept_Activation
005e 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 029d 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call
0062 029d 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call
0064 029d 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call
0066 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0067 00c7       |    |		Action	Elaborate_Subprogram
0068 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0069 00c7       |    |		Action	Elaborate_Subprogram
006a 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
006b 00c7       |    |		Action	Elaborate_Subprogram
006c 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
006d 00c7       |    |		Action	Elaborate_Subprogram
006e 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
006f 00c7       |    |		Action	Elaborate_Subprogram
0070 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0073 00c7       |    |		Action	Elaborate_Subprogram
0074 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0075 00c7       |    |		Action	Elaborate_Subprogram
0076 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0077 00c7       |    |		Action	Elaborate_Subprogram
0078 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0079 00c7       |    |		Action	Elaborate_Subprogram
007a 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
007b 00c7       |    |		Action	Elaborate_Subprogram
007c 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
007d 00c7       |    |		Action	Elaborate_Subprogram
007e			BODY_0008:
007e 00bc       |    |		Action	Signal_Activated
007f 00bb       |    |		Action	Signal_Completion
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0095       |    |		.CONST	0x0095								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0004       |    |		.CONST	0x0004								; Number of locals
0083			INIT_0080:
0083 00e3       |    |		Load_Encached	Natural_Cache
0084 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0085 4801       |H   |		Short_Literal	0x1
0086 e5ff       |    |		Load	0x2,-0x1
0087 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0088 0227       | '  |		Execute	Access,All_Reference
0089 01db       |    |		Execute	Vector,Length
008a 0a07       |    |		Execute_Immediate	Plus,0x7
008b 00d8       |    |		Load_Top	At_Offset_0
008c 00e2       |    |		Load_Encached	Integer_Cache
008d 0260       | `  |		Execute	Discrete,In_Type
008e 7001       |p   |		Jump_Nonzero	0x90
008f 0801       |    |		Execute_Immediate	Raise,0x1
0090 e007       |    |		Load	0x0,0x7
0091 035b       | [  |		Declare_Type	Array,Constrained
0092 0337       | 7  |		Declare_Variable	Array
0093 029f 029b  |    |		Declare_Subprogram	INIT_0298,For_Call
0095			BODY_0080:
0095 4801       |H   |		Short_Literal	0x1
0096 4801       |H   |		Short_Literal	0x1
0097 00db       |    |		Load_Top	At_Offset_3
0098 01d6       |    |		Execute	Vector,Field_Write
0099 e5ff       |    |		Load	0x2,-0x1
009a 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
009b 4802       |H   |		Short_Literal	0x2
009c 00db       |    |		Load_Top	At_Offset_3
009d 01d6       |    |		Execute	Vector,Field_Write
009e e5ff       |    |		Load	0x2,-0x1
009f 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
00a0 0227       | '  |		Execute	Access,All_Reference
00a1 01db       |    |		Execute	Vector,Length
00a2 0a01       |    |		Execute_Immediate	Plus,0x1
00a3 4864       |Hd  |		Short_Literal	0x64
00a4 0270       | p  |		Execute	Discrete,Divide
00a5 00d8       |    |		Load_Top	At_Offset_0
00a6 e005       |    |		Load	0x0,0x5
00a7 0260       | `  |		Execute	Discrete,In_Type
00a8 7001       |p   |		Jump_Nonzero	0xaa
00a9 0801       |    |		Execute_Immediate	Raise,0x1
00aa 4803       |H   |		Short_Literal	0x3
00ab 00db       |    |		Load_Top	At_Offset_3
00ac 01d6       |    |		Execute	Vector,Field_Write
00ad e5ff       |    |		Load	0x2,-0x1
00ae 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
00af 0227       | '  |		Execute	Access,All_Reference
00b0 01db       |    |		Execute	Vector,Length
00b1 0a01       |    |		Execute_Immediate	Plus,0x1
00b2 4864       |Hd  |		Short_Literal	0x64
00b3 026e       | n  |		Execute	Discrete,Modulo
00b4 00d8       |    |		Load_Top	At_Offset_0
00b5 e005       |    |		Load	0x0,0x5
00b6 0260       | `  |		Execute	Discrete,In_Type
00b7 7001       |p   |		Jump_Nonzero	0xb9
00b8 0801       |    |		Execute_Immediate	Raise,0x1
00b9 4804       |H   |		Short_Literal	0x4
00ba 00db       |    |		Load_Top	At_Offset_3
00bb 01d6       |    |		Execute	Vector,Field_Write
00bc e5ff       |    |		Load	0x2,-0x1
00bd 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00be 4805       |H   |		Short_Literal	0x5
00bf 00db       |    |		Load_Top	At_Offset_3
00c0 01d6       |    |		Execute	Vector,Field_Write
00c1 00cf       |    |		Action	Mark_Auxiliary
00c2 e5ff       |    |		Load	0x2,-0x1
00c3 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
00c4 0227       | '  |		Execute	Access,All_Reference
00c5 01d9       |    |		Execute	Vector,Reverse_Bounds
00c6 0263       | c  |		Execute	Discrete,Above_Bound
00c7 700f       |p   |		Jump_Nonzero	0xd7
00c8 00d8       |    |		Load_Top	At_Offset_0
00c9 e5ff       |    |		Load	0x2,-0x1
00ca 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
00cb 0227       | '  |		Execute	Access,All_Reference
00cc 01d7       |    |		Execute	Vector,Field_Read
00cd e402       |    |		Load	0x2,0x2
00ce 0a06       |    |		Execute_Immediate	Plus,0x6
00cf e403       |    |		Load	0x2,0x3
00d0 01d6       |    |		Execute	Vector,Field_Write
00d1 00e2       |    |		Load_Encached	Integer_Cache
00d2 e402       |    |		Load	0x2,0x2
00d3 0268       | h  |		Execute	Discrete,Successor
00d4 c402       |    |		Store	0x2,0x2
00d5 00c8       |    |		Action	Pop_Auxiliary_Range
00d6 3ff1       |?   |		Loop_Increasing	0xc8
00d7 00ce       |    |		Action	Pop_Auxiliary
00d8 48f1       |H   |		Short_Literal	0xf1
00d9 00da       |    |		Load_Top	At_Offset_2
00da 01dc       |    |		Execute	Vector,Last
00db 0aff       |    |		Execute_Immediate	Plus,-0x1
00dc 00db       |    |		Load_Top	At_Offset_3
00dd 01d6       |    |		Execute	Vector,Field_Write
00de 48f2       |H   |		Short_Literal	0xf2
00df 00da       |    |		Load_Top	At_Offset_2
00e0 01dc       |    |		Execute	Vector,Last
00e1 00db       |    |		Load_Top	At_Offset_3
00e2 01d6       |    |		Execute	Vector,Field_Write
00e3 4801       |H   |		Short_Literal	0x1
00e4 8008       |    |		Call	0x0,0x8
00e5 00d9       |    |		Load_Top	At_Offset_1
00e6 8009       |    |		Call	0x0,0x9
00e7 800a       |    |		Call	0x0,0xa
00e8 8404       |    |		Call	0x2,0x4
00e9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00ea 0000 0000  |    |		.XXX[0x2]
00ec 8000 0000  |    |		.LITERAL	{0x80000000, 0x00040000}
00f0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
00f4 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
00f8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
00fc 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 010c       |    |		.CONST	0x010c								; Address of begin
0101 017b       | {  |		.CONST	0x017b								; Address of exception handler
0102 0006       |    |		.CONST	0x0006								; Number of locals
0103			INIT_0100:
0103 00e2       |    |		Load_Encached	Integer_Cache
0104 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0105 e002       |    |		Load	0x0,0x2
0106 0007       |    |		Action	Break_Optional
0107 e006       |    |		Load	0x0,0x6
0108 0007       |    |		Action	Break_Optional
0109 00e3       |    |		Load_Encached	Natural_Cache
010a 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
010b 00e3       |    |		Load_Encached	Natural_Cache
010c			BODY_0100:
010c 00cf       |    |		Action	Mark_Auxiliary
010d 4800       |H   |		Short_Literal	0x0
010e 8008       |    |		Call	0x0,0x8
010f 800b       |    |		Call	0x0,0xb
0110 0e01       |    |		Execute_Immediate	Not_Equal,0x1
0111 6803       |h   |		Jump_Zero	0x115
0112 800a       |    |		Call	0x0,0xa
0113 e211       |    |		Load	0x1,0x11
0114 0257       | W  |		Execute	Discrete,Raise
0115 800b       |    |		Call	0x0,0xb
0116 e5ff       |    |		Load	0x2,-0x1
0117 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0118 800b       |    |		Call	0x0,0xb
0119 4864       |Hd  |		Short_Literal	0x64
011a 0271       | q  |		Execute	Discrete,Times
011b 800b       |    |		Call	0x0,0xb
011c 0aff       |    |		Execute_Immediate	Plus,-0x1
011d 00d8       |    |		Load_Top	At_Offset_0
011e 00e3       |    |		Load_Encached	Natural_Cache
011f 0260       | `  |		Execute	Discrete,In_Type
0120 7001       |p   |		Jump_Nonzero	0x122
0121 0801       |    |		Execute_Immediate	Raise,0x1
0122 0273       | s  |		Execute	Discrete,Plus
0123 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0124 00da       |    |		Load_Top	At_Offset_2
0125 00da       |    |		Load_Top	At_Offset_2
0126 0273       | s  |		Execute	Discrete,Plus
0127 005b       | [  |		Store_Top	Discrete,At_Offset_3
0128 e5ff       |    |		Load	0x2,-0x1
0129 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
012a 6808       |h   |		Jump_Zero	0x133
012b 00da       |    |		Load_Top	At_Offset_2
012c e5ff       |    |		Load	0x2,-0x1
012d 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
012e 027d       | }  |		Execute	Discrete,Greater
012f 6803       |h   |		Jump_Zero	0x133
0130 800a       |    |		Call	0x0,0xa
0131 e213       |    |		Load	0x1,0x13
0132 0257       | W  |		Execute	Discrete,Raise
0133 e403       |    |		Load	0x2,0x3
0134 a404       |    |		Store_Unchecked	0x2,0x4
0135 4801       |H   |		Short_Literal	0x1
0136 00db       |    |		Load_Top	At_Offset_3
0137 e006       |    |		Load	0x0,0x6
0138 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0139 a403       |    |		Store_Unchecked	0x2,0x3
013a 00db       |    |		Load_Top	At_Offset_3
013b 0227       | '  |		Execute	Access,All_Reference
013c e404       |    |		Load	0x2,0x4
013d 0227       | '  |		Execute	Access,All_Reference
013e 01da       |    |		Execute	Vector,Bounds
013f e403       |    |		Load	0x2,0x3
0140 0229       | )  |		Execute	Access,All_Read
0141 01ce       |    |		Execute	Vector,Slice_Write
0142 00db       |    |		Load_Top	At_Offset_3
0143 e00c       |    |		Load	0x0,0xc
0144 e00d       |    |		Load	0x0,0xd
0145 a00e       |    |		Store_Unchecked	0x0,0xe
0146 800f       |    |		Call	0x0,0xf
0147 c404       |    |		Store	0x2,0x4
0148 800b       |    |		Call	0x0,0xb
0149 e5ff       |    |		Load	0x2,-0x1
014a 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
014b 00cf       |    |		Action	Mark_Auxiliary
014c 00da       |    |		Load_Top	At_Offset_2
014d 4801       |H   |		Short_Literal	0x1
014e 0263       | c  |		Execute	Discrete,Above_Bound
014f 700a       |p   |		Jump_Nonzero	0x15a
0150 e402       |    |		Load	0x2,0x2
0151 0a01       |    |		Execute_Immediate	Plus,0x1
0152 c402       |    |		Store	0x2,0x2
0153 800b       |    |		Call	0x0,0xb
0154 e402       |    |		Load	0x2,0x2
0155 e403       |    |		Load	0x2,0x3
0156 0227       | '  |		Execute	Access,All_Reference
0157 01d6       |    |		Execute	Vector,Field_Write
0158 00c8       |    |		Action	Pop_Auxiliary_Range
0159 3ff6       |?   |		Loop_Increasing	0x150
015a 00ce       |    |		Action	Pop_Auxiliary
015b e403       |    |		Load	0x2,0x3
015c e5ff       |    |		Load	0x2,-0x1
015d 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
015e 800b       |    |		Call	0x0,0xb
015f 0ef1       |    |		Execute_Immediate	Not_Equal,-0xf
0160 6803       |h   |		Jump_Zero	0x164
0161 800a       |    |		Call	0x0,0xa
0162 e212       |    |		Load	0x1,0x12
0163 0257       | W  |		Execute	Discrete,Raise
0164 800b       |    |		Call	0x0,0xb
0165 0ef2       |    |		Execute_Immediate	Not_Equal,-0xe
0166 6803       |h   |		Jump_Zero	0x16a
0167 800a       |    |		Call	0x0,0xa
0168 e212       |    |		Load	0x1,0x12
0169 0257       | W  |		Execute	Discrete,Raise
016a 00d9       |    |		Load_Top	At_Offset_1
016b e5ff       |    |		Load	0x2,-0x1
016c 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
016d 027e       | ~  |		Execute	Discrete,Not_Equal
016e 7009       |p   |		Jump_Nonzero	0x178
016f 800a       |    |		Call	0x0,0xa
0170 4801       |H   |		Short_Literal	0x1
0171 8008       |    |		Call	0x0,0x8
0172 e5ff       |    |		Load	0x2,-0x1
0173 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0174 8222       | "  |		Call	0x1,0x22
0175 800a       |    |		Call	0x0,0xa
0176 00c9       |    |		Action	Pop_Auxiliary_Loop
0177 7f95       |    |		Jump	0x10d
0178 00ce       |    |		Action	Pop_Auxiliary
0179 800a       |    |		Call	0x0,0xa
017a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
017b			TRAP_0100:
017b e010       |    |		Load	0x0,0x10
017c 010f       |    |		Execute	Exception,Equal
017d 6803       |h   |		Jump_Zero	0x181
017e 800a       |    |		Call	0x0,0xa
017f e010       |    |		Load	0x0,0x10
0180 0257       | W  |		Execute	Discrete,Raise
0181 0100       |    |		Execute	Exception,Raise
0182 0000 0000  |    |		.BLANK	0000[0x6]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b 8011       |    |		Call	0x0,0x11
018c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
018d 0000 0000  |    |		.XXX[0x3]
018f 0000       |    |
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 00da       |    |		Load_Top	At_Offset_2
0194 e5fc       |    |		Load	0x2,-0x4
0195 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0196 00db       |    |		Load_Top	At_Offset_3
0197 e5fc       |    |		Load	0x2,-0x4
0198 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0199 e5fd       |    |		Load	0x2,-0x3
019a e5fc       |    |		Load	0x2,-0x4
019b 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
019c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
019d 0000 0000  |    |		.XXX[0x3]
019f 0000       |    |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 00da       |    |		Load_Top	At_Offset_2
01a4 e5fe       |    |		Load	0x2,-0x2
01a5 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01a6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01a7 0000       |    |		.XXX[0x1]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab 00da       |    |		Load_Top	At_Offset_2
01ac 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01ad 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ae 0000 0000  |    |		.XXX[0x2]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 00da       |    |		Load_Top	At_Offset_2
01b4 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
01b5 e00c       |    |		Load	0x0,0xc
01b6 e00d       |    |		Load	0x0,0xd
01b7 a00e       |    |		Store_Unchecked	0x0,0xe
01b8 800f       |    |		Call	0x0,0xf
01b9 00db       |    |		Load_Top	At_Offset_3
01ba 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
01bb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01bc 0000 0000  |    |		.BLANK	0000[0x4]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 00da       |    |		Load_Top	At_Offset_2
01c4 e5fe       |    |		Load	0x2,-0x2
01c5 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01c6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c7 0000       |    |		.XXX[0x1]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb 00da       |    |		Load_Top	At_Offset_2
01cc 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01cd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ce 0000 0000  |    |		.XXX[0x2]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 00da       |    |		Load_Top	At_Offset_2
01d4 e5fe       |    |		Load	0x2,-0x2
01d5 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
01d6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01d7 0000       |    |		.XXX[0x1]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db 00da       |    |		Load_Top	At_Offset_2
01dc 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
01dd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01de 0000 0000  |    |		.XXX[0x2]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 00db       |    |		Load_Top	At_Offset_3
01e4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01e5 0f02       |    |		Execute_Immediate	Equal,0x2
01e6 6803       |h   |		Jump_Zero	0x1ea
01e7 00da       |    |		Load_Top	At_Offset_2
01e8 e5fe       |    |		Load	0x2,-0x2
01e9 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
01ea 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01eb 0000 0000  |    |		.BLANK	0000[0x5]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3       |    |		.CONST	0x01f3								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0001       |    |		.CONST	0x0001								; Number of locals
01f3			BODY_01f0:
01f3			INIT_01f0:
01f3 00da       |    |		Load_Top	At_Offset_2
01f4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01f5 0f02       |    |		Execute_Immediate	Equal,0x2
01f6 6803       |h   |		Jump_Zero	0x1fa
01f7 00da       |    |		Load_Top	At_Offset_2
01f8 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
01f9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01fa 4800       |H   |		Short_Literal	0x0
01fb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01fc 0000 0000  |    |		.BLANK	0000[0x4]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0208       |    |		.CONST	0x0208								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0002       |    |		.CONST	0x0002								; Number of locals
0203			INIT_0200:
0203 4801       |H   |		Short_Literal	0x1
0204 4807       |H   |		Short_Literal	0x7
0205 e007       |    |		Load	0x0,0x7
0206 035b       | [  |		Declare_Type	Array,Constrained
0207 0337       | 7  |		Declare_Variable	Array
0208			BODY_0200:
0208 00d8       |    |		Load_Top	At_Offset_0
0209 00d8       |    |		Load_Top	At_Offset_0
020a 0335       | 5  |		Declare_Variable	Array,Duplicate
020b 00cd       |    |		Action	Spare6_Action
020c 4801       |H   |		Short_Literal	0x1
020d 4801       |H   |		Short_Literal	0x1
020e 00da       |    |		Load_Top	At_Offset_2
020f 01d6       |    |		Execute	Vector,Field_Write
0210 e5ff       |    |		Load	0x2,-0x1
0211 4802       |H   |		Short_Literal	0x2
0212 00da       |    |		Load_Top	At_Offset_2
0213 01d6       |    |		Execute	Vector,Field_Write
0214 4800       |H   |		Short_Literal	0x0
0215 4803       |H   |		Short_Literal	0x3
0216 00da       |    |		Load_Top	At_Offset_2
0217 01d6       |    |		Execute	Vector,Field_Write
0218 4801       |H   |		Short_Literal	0x1
0219 4804       |H   |		Short_Literal	0x4
021a 00da       |    |		Load_Top	At_Offset_2
021b 01d6       |    |		Execute	Vector,Field_Write
021c 4806       |H   |		Short_Literal	0x6
021d 4805       |H   |		Short_Literal	0x5
021e 00da       |    |		Load_Top	At_Offset_2
021f 01d6       |    |		Execute	Vector,Field_Write
0220 48f1       |H   |		Short_Literal	0xf1
0221 4806       |H   |		Short_Literal	0x6
0222 00da       |    |		Load_Top	At_Offset_2
0223 01d6       |    |		Execute	Vector,Field_Write
0224 48f2       |H   |		Short_Literal	0xf2
0225 4807       |H   |		Short_Literal	0x7
0226 00da       |    |		Load_Top	At_Offset_2
0227 01d6       |    |		Execute	Vector,Field_Write
0228 00cd       |    |		Action	Spare6_Action
0229 00d9       |    |		Load_Top	At_Offset_1
022a 01d4       |    |		Execute	Vector,Structure_Write
022b 00d8       |    |		Load_Top	At_Offset_0
022c 8009       |    |		Call	0x0,0x9
022d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
022e 0000 0000  |    |		.XXX[0x2]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0238       | 8  |		.CONST	0x0238								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0002       |    |		.CONST	0x0002								; Number of locals
0233			INIT_0230:
0233 4801       |H   |		Short_Literal	0x1
0234 4807       |H   |		Short_Literal	0x7
0235 e007       |    |		Load	0x0,0x7
0236 035b       | [  |		Declare_Type	Array,Constrained
0237 0337       | 7  |		Declare_Variable	Array
0238			BODY_0230:
0238 4801       |H   |		Short_Literal	0x1
0239 8008       |    |		Call	0x0,0x8
023a 00d8       |    |		Load_Top	At_Offset_0
023b 00d8       |    |		Load_Top	At_Offset_0
023c 0335       | 5  |		Declare_Variable	Array,Duplicate
023d 00cd       |    |		Action	Spare6_Action
023e 4801       |H   |		Short_Literal	0x1
023f 4801       |H   |		Short_Literal	0x1
0240 00da       |    |		Load_Top	At_Offset_2
0241 01d6       |    |		Execute	Vector,Field_Write
0242 e5ff       |    |		Load	0x2,-0x1
0243 4802       |H   |		Short_Literal	0x2
0244 00da       |    |		Load_Top	At_Offset_2
0245 01d6       |    |		Execute	Vector,Field_Write
0246 4800       |H   |		Short_Literal	0x0
0247 4803       |H   |		Short_Literal	0x3
0248 00da       |    |		Load_Top	At_Offset_2
0249 01d6       |    |		Execute	Vector,Field_Write
024a 4801       |H   |		Short_Literal	0x1
024b 4804       |H   |		Short_Literal	0x4
024c 00da       |    |		Load_Top	At_Offset_2
024d 01d6       |    |		Execute	Vector,Field_Write
024e 4815       |H   |		Short_Literal	0x15
024f 4805       |H   |		Short_Literal	0x5
0250 00da       |    |		Load_Top	At_Offset_2
0251 01d6       |    |		Execute	Vector,Field_Write
0252 48f1       |H   |		Short_Literal	0xf1
0253 4806       |H   |		Short_Literal	0x6
0254 00da       |    |		Load_Top	At_Offset_2
0255 01d6       |    |		Execute	Vector,Field_Write
0256 48f2       |H   |		Short_Literal	0xf2
0257 4807       |H   |		Short_Literal	0x7
0258 00da       |    |		Load_Top	At_Offset_2
0259 01d6       |    |		Execute	Vector,Field_Write
025a 00cd       |    |		Action	Spare6_Action
025b 00d9       |    |		Load_Top	At_Offset_1
025c 01d4       |    |		Execute	Vector,Structure_Write
025d 00d8       |    |		Load_Top	At_Offset_0
025e 8009       |    |		Call	0x0,0x9
025f 800a       |    |		Call	0x0,0xa
0260 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0261 0000 0000  |    |		.BLANK	0000[0x7]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026d       | m  |		.CONST	0x026d								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0002       |    |		.CONST	0x0002								; Number of locals
026b			INIT_0268:
026b 00e1       |    |		Load_Encached	Boolean_Cache
026c 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
026d			BODY_0268:
026d 4800       |H   |		Short_Literal	0x0
026e 8008       |    |		Call	0x0,0x8
026f 800b       |    |		Call	0x0,0xb
0270 0e01       |    |		Execute_Immediate	Not_Equal,0x1
0271 6802       |h   |		Jump_Zero	0x274
0272 4800       |H   |		Short_Literal	0x0
0273 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0274 800b       |    |		Call	0x0,0xb
0275 e5ff       |    |		Load	0x2,-0x1
0276 027e       | ~  |		Execute	Discrete,Not_Equal
0277 6802       |h   |		Jump_Zero	0x27a
0278 4800       |H   |		Short_Literal	0x0
0279 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
027a 800b       |    |		Call	0x0,0xb
027b 6802       |h   |		Jump_Zero	0x27e
027c 4800       |H   |		Short_Literal	0x0
027d 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
027e 800b       |    |		Call	0x0,0xb
027f 0e01       |    |		Execute_Immediate	Not_Equal,0x1
0280 6802       |h   |		Jump_Zero	0x283
0281 4800       |H   |		Short_Literal	0x0
0282 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0283 800b       |    |		Call	0x0,0xb
0284 0e06       |    |		Execute_Immediate	Not_Equal,0x6
0285 6802       |h   |		Jump_Zero	0x288
0286 4800       |H   |		Short_Literal	0x0
0287 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0288 800b       |    |		Call	0x0,0xb
0289 0ef1       |    |		Execute_Immediate	Not_Equal,-0xf
028a 6802       |h   |		Jump_Zero	0x28d
028b 4800       |H   |		Short_Literal	0x0
028c 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
028d 800b       |    |		Call	0x0,0xb
028e 0ef2       |    |		Execute_Immediate	Not_Equal,-0xe
028f 6802       |h   |		Jump_Zero	0x292
0290 4800       |H   |		Short_Literal	0x0
0291 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0292 800a       |    |		Call	0x0,0xa
0293 00d8       |    |		Load_Top	At_Offset_0
0294 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0295 0000 0000  |    |		.XXX[0x3]
0297 0000       |    |
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b       |    |		.CONST	0x029b								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0001       |    |		.CONST	0x0001								; Number of locals
029b			BODY_0298:
029b			INIT_0298:
029b e5ff       |    |		Load	0x2,-0x1
029c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
029d 700e       |p   |		Jump_Nonzero	0x2ac
029e e5ff       |    |		Load	0x2,-0x1
029f 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02a0 8224       | $  |		Call	0x1,0x24
02a1 700a       |p   |		Jump_Nonzero	0x2ac
02a2 8216       |    |		Call	0x1,0x16
02a3 e5ff       |    |		Load	0x2,-0x1
02a4 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02a5 8223       | #  |		Call	0x1,0x23
02a6 e5ff       |    |		Load	0x2,-0x1
02a7 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02a8 8224       | $  |		Call	0x1,0x24
02a9 7002       |p   |		Jump_Nonzero	0x2ac
02aa e210       |    |		Load	0x1,0x10
02ab 0257       | W  |		Execute	Discrete,Raise
02ac 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02ad 0000 0000  |    |		.XXX[0x3]
02af 0000       |    |
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 4609       |F   |		Jump_Case	0xa
02b4 7809       |x   |		Jump	0x2be								; case 0x0
02b5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02b6 7824       |x$  |		Jump	0x2db								; case 0x2
02b7 7827       |x'  |		Jump	0x2df								; case 0x3
02b8 7850       |xP  |		Jump	0x309								; case 0x4
02b9 784f       |xO  |		Jump	0x309								; case 0x5
02ba 782a       |x*  |		Jump	0x2e5								; case 0x6
02bb 7834       |x4  |		Jump	0x2f0								; case 0x7
02bc 7841       |xA  |		Jump	0x2fe								; case 0x8
02bd 7847       |xG  |		Jump	0x305								; case 0x9
02be 00da       |    |		Load_Top	At_Offset_2
02bf 016c       | l  |		Execute	Variant_Record,Is_Constrained
02c0 7009       |p   |		Jump_Nonzero	0x2ca
02c1 00cf       |    |		Action	Mark_Auxiliary
02c2 e20e       |    |		Load	0x1,0xe
02c3 e5ff       |    |		Load	0x2,-0x1
02c4 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02c5 00d8       |    |		Load_Top	At_Offset_0
02c6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02c7 c5ff       |    |		Store	0x2,-0x1
02c8 00ce       |    |		Action	Pop_Auxiliary
02c9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02ca e002       |    |		Load	0x0,0x2
02cb 00db       |    |		Load_Top	At_Offset_3
02cc 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
02cd 00da       |    |		Load_Top	At_Offset_2
02ce 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02cf 4602       |F   |		Jump_Case	0x3
02d0 7806       |x   |		Jump	0x2d7								; case 0x0
02d1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02d2 7800       |x   |		Jump	0x2d3								; case 0x2
02d3 4800       |H   |		Short_Literal	0x0
02d4 00db       |    |		Load_Top	At_Offset_3
02d5 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
02d6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02d7 4801       |H   |		Short_Literal	0x1
02d8 00db       |    |		Load_Top	At_Offset_3
02d9 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
02da 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02db 4801       |H   |		Short_Literal	0x1
02dc 4806       |H   |		Short_Literal	0x6
02dd 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
02de 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02df e5fd       |    |		Load	0x2,-0x3
02e0 00db       |    |		Load_Top	At_Offset_3
02e1 1c07       |    |		Execute_Immediate	Run_Utility,0x7
02e2 e5fe       |    |		Load	0x2,-0x2
02e3 0306       |    |		Complete_Type	Variant_Record,By_Renaming
02e4 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
02e5 00db       |    |		Load_Top	At_Offset_3
02e6 4602       |F   |		Jump_Case	0x3
02e7 7804       |x   |		Jump	0x2ec								; case 0x0
02e8 7805       |x   |		Jump	0x2ee								; case 0x1
02e9 7800       |x   |		Jump	0x2ea								; case 0x2
02ea 4802       |H   |		Short_Literal	0x2
02eb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ec 4801       |H   |		Short_Literal	0x1
02ed 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ee 48ff       |H   |		Short_Literal	0xff
02ef 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02f0 00db       |    |		Load_Top	At_Offset_3
02f1 e5fe       |    |		Load	0x2,-0x2
02f2 4602       |F   |		Jump_Case	0x3
02f3 7804       |x   |		Jump	0x2f8								; case 0x0
02f4 7805       |x   |		Jump	0x2fa								; case 0x1
02f5 7800       |x   |		Jump	0x2f6								; case 0x2
02f6 4802       |H   |		Short_Literal	0x2
02f7 7803       |x   |		Jump	0x2fb
02f8 4801       |H   |		Short_Literal	0x1
02f9 7801       |x   |		Jump	0x2fb
02fa 48ff       |H   |		Short_Literal	0xff
02fb e5ff       |    |		Load	0x2,-0x1
02fc 031b       |    |		Declare_Type	Variant_Record,Constrained
02fd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02fe 00db       |    |		Load_Top	At_Offset_3
02ff e5fe       |    |		Load	0x2,-0x2
0300 e5ff       |    |		Load	0x2,-0x1
0301 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0302 e5ff       |    |		Load	0x2,-0x1
0303 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0304 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0305 e20e       |    |		Load	0x1,0xe
0306 00db       |    |		Load_Top	At_Offset_3
0307 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0308 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0309 0869       | i  |		Execute_Immediate	Raise,0x69
030a 0000 0000  |    |		.BLANK	0000[0x6]
0310 ; --------------------------------------------------------------------------------------
0310 ; Debug Table
0310 ; --------------------------------------------------------------------------------------
0310 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0x5502,0x0000,0x0001,0x0014
0316 000b 0366  |   f|		.DBG4T	0x000b,0x0366,0xc000,0x8000
031a 005e 038e  | ^  |		.DBG4T	0x005e,0x038e,0xc000,0x8000
031e 0083 03b0  |    |		.DBG4T	0x0083,0x03b0,0x1001,0x0000
0322 0103 03c2  |    |		.DBG4T	0x0103,0x03c2,0x1001,0x4000
0326 018b 040d  |    |		.DBG4T	0x018b,0x040d,0x1001,0x0000
032a 0193 0410  |    |		.DBG4T	0x0193,0x0410,0x1001,0x0000
032e 01a3 0415  |    |		.DBG4T	0x01a3,0x0415,0x1001,0x0000
0332 01ab 0418  |    |		.DBG4T	0x01ab,0x0418,0x1002,0x0000
0336 01b3 041b  |    |		.DBG4T	0x01b3,0x041b,0x1001,0x0000
033a 01c3 041e  |    |		.DBG4T	0x01c3,0x041e,0x1001,0x0000
033e 01cb 0421  |   !|		.DBG4T	0x01cb,0x0421,0x1002,0x0000
0342 01d3 0424  |   $|		.DBG4T	0x01d3,0x0424,0x1001,0x0000
0346 01db 0427  |   '|		.DBG4T	0x01db,0x0427,0x1002,0x0000
034a 01e3 042a  |   *|		.DBG4T	0x01e3,0x042a,0x1001,0x0000
034e 01f3 042e  |   .|		.DBG4T	0x01f3,0x042e,0x1002,0x0000
0352 0203 0433  |   3|		.DBG4T	0x0203,0x0433,0x1001,0x0000
0356 0233 0438  | 3 8|		.DBG4T	0x0233,0x0438,0x1001,0x0000
035a 026b 043f  | k ?|		.DBG4T	0x026b,0x043f,0x1002,0x0000
035e 029b 0453  |   S|		.DBG4T	0x029b,0x0453,0x1004,0x0000
0362 02b3 0000  |    |		.DBG4T	0x02b3,0x0000,0x1005,0x0000
0366 ; --------------------------------------------------------------------------------------
0366 ; Debug chain
0366 ; --------------------------------------------------------------------------------------
0366 0013 0000  |    |		.DBGLEN	0x0013,0x0000
0368 000b 000f  |    |		.DBGLNO	0x000b,0x000f,0x0018,0x0021,0x002a,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d
037b 0002 0003  |    |		.XXX[0x13]
037d 0004 0005  |    |
037f 0006 0008  |    |
0381 0009 000a  |    |
0383 000b 000c  |    |
0385 000d 000e  |    |
0387 000f 0010  |    |
0389 0011 0012  |    |
038b 0013 0014  |    |
038d 0015       |    |
038e ; --------------------------------------------------------------------------------------
038e ; Debug chain
038e ; --------------------------------------------------------------------------------------
038e 0010 0000  |    |		.DBGLEN	0x0010,0x0000
0390 005e 0060  | ^ `|		.DBGLNO	0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c
03a0 0008 0009  |    |		.XXX[0x10]
03a2 000a 000b  |    |
03a4 000c 000d  |    |
03a6 000e 000f  |    |
03a8 0010 0011  |    |
03aa 0012 0013  |    |
03ac 0014 0015  |    |
03ae 0016 0017  |    |
03b0 ; --------------------------------------------------------------------------------------
03b0 ; Debug chain
03b0 ; --------------------------------------------------------------------------------------
03b0 0002 000e  |    |		.DBGLEN	0x0002,0x000e
03b2 0083 0085  |    |		.DBGLNO	0x0083,0x0085,0x0095,0x0099,0x009e,0x00ad,0x00bc,0x00c2,0x00c8,0x00d1,0x00d8,0x00de,0x00e3,0x00e5,0x00e7,0x00e8
03c2 ; --------------------------------------------------------------------------------------
03c2 ; Debug chain
03c2 ; --------------------------------------------------------------------------------------
03c2 0005 0022  |   "|		.DBGLEN	0x0005,0x0022
03c4 0103 0105  |    |		.DBGLNO	0x0103,0x0105,0x0107,0x0109,0x010b,0x010d,0x010f,0x0112,0x0113,0x0115,0x0118,0x0124,0x0128,0x012b,0x0130,0x0131,0x0133,0x0135,0x013a,0x0142,0x0148,0x014c,0x0150,0x0153,0x015b,0x015e,0x0161,0x0162,0x0164,0x0167,0x0168,0x016a,0x016f,0x0170,0x0172,0x0175,0x0179,0x017e,0x017f
03eb 0002 0003  |    |		.XXX[0x22]
03ed 0004 0005  |    |
03ef 0006 0007  |    |
03f1 0008 0009  |    |
03f3 000a 000b  |    |
03f5 000c 000d  |    |
03f7 000e 000f  |    |
03f9 0010 0011  |    |
03fb 0012 0013  |    |
03fd 0014 0015  |    |
03ff 0016 0017  |    |
0401 0018 0019  |    |
0403 001a 001b  |    |
0405 001c 001d  |    |
0407 001e 001f  |    |
0409 0020 0021  |   !|
040b 0022 0023  | " #|
040d ; --------------------------------------------------------------------------------------
040d ; Debug chain
040d ; --------------------------------------------------------------------------------------
040d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
040f 018b       |    |		.DBGLNO	0x018b
0410 ; --------------------------------------------------------------------------------------
0410 ; Debug chain
0410 ; --------------------------------------------------------------------------------------
0410 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0412 0193 0196  |    |		.DBGLNO	0x0193,0x0196,0x0199
0415 ; --------------------------------------------------------------------------------------
0415 ; Debug chain
0415 ; --------------------------------------------------------------------------------------
0415 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0417 01a3       |    |		.DBGLNO	0x01a3
0418 ; --------------------------------------------------------------------------------------
0418 ; Debug chain
0418 ; --------------------------------------------------------------------------------------
0418 0000 0001  |    |		.DBGLEN	0x0000,0x0001
041a 01ab       |    |		.DBGLNO	0x01ab
041b ; --------------------------------------------------------------------------------------
041b ; Debug chain
041b ; --------------------------------------------------------------------------------------
041b 0000 0001  |    |		.DBGLEN	0x0000,0x0001
041d 01b3       |    |		.DBGLNO	0x01b3
041e ; --------------------------------------------------------------------------------------
041e ; Debug chain
041e ; --------------------------------------------------------------------------------------
041e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0420 01c3       |    |		.DBGLNO	0x01c3
0421 ; --------------------------------------------------------------------------------------
0421 ; Debug chain
0421 ; --------------------------------------------------------------------------------------
0421 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0423 01cb       |    |		.DBGLNO	0x01cb
0424 ; --------------------------------------------------------------------------------------
0424 ; Debug chain
0424 ; --------------------------------------------------------------------------------------
0424 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0426 01d3       |    |		.DBGLNO	0x01d3
0427 ; --------------------------------------------------------------------------------------
0427 ; Debug chain
0427 ; --------------------------------------------------------------------------------------
0427 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0429 01db       |    |		.DBGLNO	0x01db
042a ; --------------------------------------------------------------------------------------
042a ; Debug chain
042a ; --------------------------------------------------------------------------------------
042a 0000 0002  |    |		.DBGLEN	0x0000,0x0002
042c 01e3 01e7  |    |		.DBGLNO	0x01e3,0x01e7
042e ; --------------------------------------------------------------------------------------
042e ; Debug chain
042e ; --------------------------------------------------------------------------------------
042e 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0430 01f3 01f7  |    |		.DBGLNO	0x01f3,0x01f7,0x01fa
0433 ; --------------------------------------------------------------------------------------
0433 ; Debug chain
0433 ; --------------------------------------------------------------------------------------
0433 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0435 0203 0208  |    |		.DBGLNO	0x0203,0x0208,0x022b
0438 ; --------------------------------------------------------------------------------------
0438 ; Debug chain
0438 ; --------------------------------------------------------------------------------------
0438 0001 0004  |    |		.DBGLEN	0x0001,0x0004
043a 0233 0238  | 3 8|		.DBGLNO	0x0233,0x0238,0x023a,0x025d,0x025f
043f ; --------------------------------------------------------------------------------------
043f ; Debug chain
043f ; --------------------------------------------------------------------------------------
043f 0001 0011  |    |		.DBGLEN	0x0001,0x0011
0441 026b 026d  | k m|		.DBGLNO	0x026b,0x026d,0x026f,0x0272,0x0274,0x0278,0x027a,0x027c,0x027e,0x0281,0x0283,0x0286,0x0288,0x028b,0x028d,0x0290,0x0292,0x0293
0453 ; --------------------------------------------------------------------------------------
0453 ; Debug chain
0453 ; --------------------------------------------------------------------------------------
0453 0000 0006  |    |		.DBGLEN	0x0000,0x0006
0455 029b 029e  |    |		.DBGLNO	0x029b,0x029e,0x02a2,0x02a3,0x02a6,0x02aa
045b 0000 0000  |    |		.BLANK	0000[0x1a5]