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

⟦fdc43e937⟧

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

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 0558       | X  |		.CONST	0x0558								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8003       |    |		.CONST	0x8003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0119       |    |		.CONST	0x0119								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002f       | /  |		.CONST	0x002f								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4801       |H   |		Short_Literal	0x1
000d 029f 0123  |   #|		Declare_Subprogram	INIT_0120,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
0012 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0014 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
0016 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
0018 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
001a 4802       |H   |		Short_Literal	0x2
001b e001       |    |		Load	0x0,0x1
001c 01d7       |    |		Execute	Vector,Field_Read
001d 02a8       |    |		Declare_Subprogram	For_Call,Visible,Unelaborated,With_Address
001e 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0020 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0022 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0024 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0026 4800       |H   |		Short_Literal	0x0
0027 0093 043b  |   ;|		push_full_address	INIT_0438
0029 02a0       |    |		Declare_Subprogram	Null_Subprogram
002a 038f       |    |		Declare_Type	Package,Defined,Visible
002b 0386       |    |		Declare_Variable	Package,Visible
002c e002       |    |		Load	0x0,0x2
002d 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
002e e20d       |    |		Load	0x1,0xd
002f e003       |    |		Load	0x0,0x3
0030 e004       |    |		Load	0x0,0x4
0031 e005       |    |		Load	0x0,0x5
0032 029f 040b  |    |		Declare_Subprogram	INIT_0408,For_Call
0034 4805       |H   |		Short_Literal	0x5
0035 032e       | .  |		Declare_Type	Record,Defined,Visible
0036 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
0038 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
003a 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
003c 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
003e 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
0040 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
0042 4800       |H   |		Short_Literal	0x0
0043 4804       |H   |		Short_Literal	0x4
0044 029f 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Call
0046 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0047 e219       |    |		Load	0x1,0x19
0048 00e1       |    |		Load_Encached	Boolean_Cache
0049 00da       |    |		Load_Top	At_Offset_2
004a 00e1       |    |		Load_Encached	Boolean_Cache
004b e006       |    |		Load	0x0,0x6
004c e007       |    |		Load	0x0,0x7
004d e008       |    |		Load	0x0,0x8
004e 029f 041b  |    |		Declare_Subprogram	INIT_0418,For_Call
0050 4807       |H   |		Short_Literal	0x7
0051 032e       | .  |		Declare_Type	Record,Defined,Visible
0052 029a 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Outer_Call,Visible,Unelaborated
0054 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated
0056 029a 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call,Visible,Unelaborated
0058 029a 0313  |    |		Declare_Subprogram	INIT_0310,For_Outer_Call,Visible,Unelaborated
005a 0093 0000  |    |		push_full_address	0x0
005c 60eb       |`   |		Indirect_Literal	Discrete,0x148,{0x80000000, 0x00010000}
005d 0273       | s  |		Execute	Discrete,Plus
005e e009       |    |		Load	0x0,0x9
005f 0273       | s  |		Execute	Discrete,Plus
0060 e00a       |    |		Load	0x0,0xa
0061 0273       | s  |		Execute	Discrete,Plus
0062 e219       |    |		Load	0x1,0x19
0063 e221       | !  |		Load	0x1,0x21
0064 4801       |H   |		Short_Literal	0x1
0065 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0066 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0067 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0068 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0069 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
006a 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
006b 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
006c 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
006d 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
006e 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
006f e00b       |    |		Load	0x0,0xb
0070 480d       |H   |		Short_Literal	0xd
0071 e00c       |    |		Load	0x0,0xc
0072 0386       |    |		Declare_Variable	Package,Visible
0073 00d8       |    |		Load_Top	At_Offset_0
0074 020f       |    |		Execute	Module,Activate
0075 e00d       |    |		Load	0x0,0xd
0076 00d9       |    |		Load_Top	At_Offset_1
0077 0098       |    |		Execute	Package,Field_Read_Dynamic
0078 0129       | )  |		Execute	Any,Make_Visible
0079 00bf       |    |		Action	Accept_Activation
007a e220       |    |		Load	0x1,0x20
007b 0266       | f  |		Execute	Discrete,Bounds
007c 00e1       |    |		Load_Encached	Boolean_Cache
007d 02a0       |    |		Declare_Subprogram	Null_Subprogram
007e 4801       |H   |		Short_Literal	0x1
007f 035d       | ]  |		Declare_Type	Array,Defined
0080 00d8       |    |		Load_Top	At_Offset_0
0081 0337       | 7  |		Declare_Variable	Array
0082 00d8       |    |		Load_Top	At_Offset_0
0083 0335       | 5  |		Declare_Variable	Array,Duplicate
0084 00cd       |    |		Action	Spare6_Action
0085 4800       |H   |		Short_Literal	0x0
0086 4800       |H   |		Short_Literal	0x0
0087 00da       |    |		Load_Top	At_Offset_2
0088 01d6       |    |		Execute	Vector,Field_Write
0089 4800       |H   |		Short_Literal	0x0
008a 4801       |H   |		Short_Literal	0x1
008b 00da       |    |		Load_Top	At_Offset_2
008c 01d6       |    |		Execute	Vector,Field_Write
008d 4801       |H   |		Short_Literal	0x1
008e 4802       |H   |		Short_Literal	0x2
008f 00da       |    |		Load_Top	At_Offset_2
0090 01d6       |    |		Execute	Vector,Field_Write
0091 4801       |H   |		Short_Literal	0x1
0092 4803       |H   |		Short_Literal	0x3
0093 00da       |    |		Load_Top	At_Offset_2
0094 01d6       |    |		Execute	Vector,Field_Write
0095 4801       |H   |		Short_Literal	0x1
0096 4804       |H   |		Short_Literal	0x4
0097 00da       |    |		Load_Top	At_Offset_2
0098 01d6       |    |		Execute	Vector,Field_Write
0099 00d9       |    |		Load_Top	At_Offset_1
009a 01d4       |    |		Execute	Vector,Structure_Write
009b e00e       |    |		Load	0x0,0xe
009c e00f       |    |		Load	0x0,0xf
009d e220       |    |		Load	0x1,0x20
009e 4800       |H   |		Short_Literal	0x0
009f 4801       |H   |		Short_Literal	0x1
00a0 4804       |H   |		Short_Literal	0x4
00a1 0092 0505  |    |		Action	Push_String_Extended,0x505					; "others => Unspecified"
00a3 00ea       |    |		Load_Encached	Null_String_Cache
00a4 00ea       |    |		Load_Encached	Null_String_Cache
00a5 4801       |H   |		Short_Literal	0x1
00a6 4804       |H   |		Short_Literal	0x4
00a7 e010       |    |		Load	0x0,0x10
00a8 0387       |    |		Declare_Variable	Package
00a9 00d8       |    |		Load_Top	At_Offset_0
00aa 020f       |    |		Execute	Module,Activate
00ab 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
00ac 00c7       |    |		Action	Elaborate_Subprogram
00ad 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
00ae 00c7       |    |		Action	Elaborate_Subprogram
00af 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
00b0 00c7       |    |		Action	Elaborate_Subprogram
00b1 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
00b2 00c7       |    |		Action	Elaborate_Subprogram
00b3 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
00b4 00c7       |    |		Action	Elaborate_Subprogram
00b5 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
00b6 00c7       |    |		Action	Elaborate_Subprogram
00b7 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
00b8 00c7       |    |		Action	Elaborate_Subprogram
00b9 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
00ba 00c7       |    |		Action	Elaborate_Subprogram
00bb 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00bc 00c7       |    |		Action	Elaborate_Subprogram
00bd 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
00be 00c7       |    |		Action	Elaborate_Subprogram
00bf e011       |    |		Load	0x0,0x11
00c0 e012       |    |		Load	0x0,0x12
00c1 e226       | &  |		Load	0x1,0x26
00c2 0098       |    |		Execute	Package,Field_Read_Dynamic
00c3 0095       |    |		Execute	Package,Field_Reference_Dynamic
00c4 e00d       |    |		Load	0x0,0xd
00c5 e226       | &  |		Load	0x1,0x26
00c6 0098       |    |		Execute	Package,Field_Read_Dynamic
00c7 e013       |    |		Load	0x0,0x13
00c8 e012       |    |		Load	0x0,0x12
00c9 e226       | &  |		Load	0x1,0x26
00ca 0098       |    |		Execute	Package,Field_Read_Dynamic
00cb 0095       |    |		Execute	Package,Field_Reference_Dynamic
00cc e014       |    |		Load	0x0,0x14
00cd e012       |    |		Load	0x0,0x12
00ce e226       | &  |		Load	0x1,0x26
00cf 0098       |    |		Execute	Package,Field_Read_Dynamic
00d0 0095       |    |		Execute	Package,Field_Reference_Dynamic
00d1 e015       |    |		Load	0x0,0x15
00d2 e012       |    |		Load	0x0,0x12
00d3 e226       | &  |		Load	0x1,0x26
00d4 0098       |    |		Execute	Package,Field_Read_Dynamic
00d5 0095       |    |		Execute	Package,Field_Reference_Dynamic
00d6 e016       |    |		Load	0x0,0x16
00d7 e012       |    |		Load	0x0,0x12
00d8 e226       | &  |		Load	0x1,0x26
00d9 0098       |    |		Execute	Package,Field_Read_Dynamic
00da 0095       |    |		Execute	Package,Field_Reference_Dynamic
00db e017       |    |		Load	0x0,0x17
00dc e012       |    |		Load	0x0,0x12
00dd e226       | &  |		Load	0x1,0x26
00de 0098       |    |		Execute	Package,Field_Read_Dynamic
00df 0095       |    |		Execute	Package,Field_Reference_Dynamic
00e0 e018       |    |		Load	0x0,0x18
00e1 e012       |    |		Load	0x0,0x12
00e2 e226       | &  |		Load	0x1,0x26
00e3 0098       |    |		Execute	Package,Field_Read_Dynamic
00e4 0095       |    |		Execute	Package,Field_Reference_Dynamic
00e5 e019       |    |		Load	0x0,0x19
00e6 e012       |    |		Load	0x0,0x12
00e7 e226       | &  |		Load	0x1,0x26
00e8 0098       |    |		Execute	Package,Field_Read_Dynamic
00e9 0095       |    |		Execute	Package,Field_Reference_Dynamic
00ea e01a       |    |		Load	0x0,0x1a
00eb e012       |    |		Load	0x0,0x12
00ec e226       | &  |		Load	0x1,0x26
00ed 0098       |    |		Execute	Package,Field_Read_Dynamic
00ee 0095       |    |		Execute	Package,Field_Reference_Dynamic
00ef e219       |    |		Load	0x1,0x19
00f0 e01b       |    |		Load	0x0,0x1b
00f1 e226       | &  |		Load	0x1,0x26
00f2 0095       |    |		Execute	Package,Field_Reference_Dynamic
00f3 e01c       |    |		Load	0x0,0x1c
00f4 e226       | &  |		Load	0x1,0x26
00f5 0095       |    |		Execute	Package,Field_Reference_Dynamic
00f6 480d       |H   |		Short_Literal	0xd
00f7 e218       |    |		Load	0x1,0x18
00f8 020e       |    |		Execute	Module,Augment_Imports
00f9 e218       |    |		Load	0x1,0x18
00fa 020f       |    |		Execute	Module,Activate
00fb 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00fc 00c7       |    |		Action	Elaborate_Subprogram
00fd 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00fe 00c7       |    |		Action	Elaborate_Subprogram
00ff 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0100 00c7       |    |		Action	Elaborate_Subprogram
0101 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0102 00c7       |    |		Action	Elaborate_Subprogram
0103 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0104 00c7       |    |		Action	Elaborate_Subprogram
0105 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0106 00c7       |    |		Action	Elaborate_Subprogram
0107 029d 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call
0109 029d 036b  |   k|		Declare_Subprogram	INIT_0368,For_Outer_Call
010b 029d 038b  |    |		Declare_Subprogram	INIT_0388,For_Outer_Call
010d 029d 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Outer_Call
010f 029d 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call
0111 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0112 00c7       |    |		Action	Elaborate_Subprogram
0113 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0114 00c7       |    |		Action	Elaborate_Subprogram
0115 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0116 00c7       |    |		Action	Elaborate_Subprogram
0117 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0118 00c7       |    |		Action	Elaborate_Subprogram
0119			BODY_0008:
0119 00bc       |    |		Action	Signal_Activated
011a 00bb       |    |		Action	Signal_Completion
011b 0000 0000  |    |		.BLANK	0000[0x5]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 4607       |F   |		Jump_Case	0x8
0124 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0125 7807       |x   |		Jump	0x12d								; case 0x1
0126 780a       |x   |		Jump	0x131								; case 0x2
0127 780e       |x   |		Jump	0x136								; case 0x3
0128 7811       |x   |		Jump	0x13a								; case 0x4
0129 7812       |x   |		Jump	0x13c								; case 0x5
012a 7813       |x   |		Jump	0x13e								; case 0x6
012b 7816       |x   |		Jump	0x142								; case 0x7
012c 4302       |C   |		.XXX[0x1]
012d 00da       |    |		Load_Top	At_Offset_2
012e 0091 04fe  |    |		Action	Push_String_Extended_Indexed,0x4fe				; "SEGMENT"
0130 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0131 00db       |    |		Load_Top	At_Offset_3
0132 00db       |    |		Load_Top	At_Offset_3
0133 00e0       |    |		Load_Encached	Standard_Cache
0134 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0135 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0136 00da       |    |		Load_Top	At_Offset_2
0137 00e0       |    |		Load_Encached	Standard_Cache
0138 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0139 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
013a 00db       |    |		Load_Top	At_Offset_3
013b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
013c 00db       |    |		Load_Top	At_Offset_3
013d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
013e e20d       |    |		Load	0x1,0xd
013f 00dc       |    |		Load_Top	At_Offset_4
0140 0267       | g  |		Execute	Discrete,Predecessor
0141 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0142 e20d       |    |		Load	0x1,0xd
0143 00dc       |    |		Load_Top	At_Offset_4
0144 0268       | h  |		Execute	Discrete,Successor
0145 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0146 0000 0000  |    |		.XXX[0x2]
0148 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
014c 0000 0000  |    |		.BLANK	0000[0x4]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0157       | W  |		.CONST	0x0157								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0002       |    |		.CONST	0x0002								; Number of locals
0153			INIT_0150:
0153 e00d       |    |		Load	0x0,0xd
0154 e226       | &  |		Load	0x1,0x26
0155 0098       |    |		Execute	Package,Field_Read_Dynamic
0156 0007       |    |		Action	Break_Optional
0157			BODY_0150:
0157 00db       |    |		Load_Top	At_Offset_3
0158 e01d       |    |		Load	0x0,0x1d
0159 e226       | &  |		Load	0x1,0x26
015a 0096       |    |		Execute	Package,Entry
015b 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
015c 00d8       |    |		Load_Top	At_Offset_0
015d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
015e 0000 0000  |    |		.XXX[0x2]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 00da       |    |		Load_Top	At_Offset_2
0164 e00d       |    |		Load	0x0,0xd
0165 e226       | &  |		Load	0x1,0x26
0166 0098       |    |		Execute	Package,Field_Read_Dynamic
0167 0216       |    |		Execute	Heap_Access,Convert
0168 e01e       |    |		Load	0x0,0x1e
0169 e226       | &  |		Load	0x1,0x26
016a 0096       |    |		Execute	Package,Entry
016b 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
016c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
016d 0000 0000  |    |		.XXX[0x3]
016f 0000       |    |
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 017b       | {  |		.CONST	0x017b								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0002       |    |		.CONST	0x0002								; Number of locals
0173			INIT_0170:
0173 e219       |    |		Load	0x1,0x19
0174 0322       | "  |		Declare_Variable	Record
0175 e5fe       |    |		Load	0x2,-0x2
0176 e01b       |    |		Load	0x0,0x1b
0177 e226       | &  |		Load	0x1,0x26
0178 0096       |    |		Execute	Package,Entry
0179 00d9       |    |		Load_Top	At_Offset_1
017a 017d       | }  |		Execute	Record,Structure_Write
017b			BODY_0170:
017b 00db       |    |		Load_Top	At_Offset_3
017c 00d9       |    |		Load_Top	At_Offset_1
017d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
017e e5fe       |    |		Load	0x2,-0x2
017f 00d9       |    |		Load_Top	At_Offset_1
0180 e01c       |    |		Load	0x0,0x1c
0181 e226       | &  |		Load	0x1,0x26
0182 0096       |    |		Execute	Package,Entry
0183 c5fe       |    |		Store	0x2,-0x2
0184 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0185 0000 0000  |    |		.XXX[0x3]
0187 0000       |    |
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 0193       |    |		.CONST	0x0193								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0002       |    |		.CONST	0x0002								; Number of locals
018b			INIT_0188:
018b e219       |    |		Load	0x1,0x19
018c 0322       | "  |		Declare_Variable	Record
018d 00db       |    |		Load_Top	At_Offset_3
018e e01b       |    |		Load	0x0,0x1b
018f e226       | &  |		Load	0x1,0x26
0190 0096       |    |		Execute	Package,Entry
0191 00d9       |    |		Load_Top	At_Offset_1
0192 017d       | }  |		Execute	Record,Structure_Write
0193			BODY_0188:
0193 00d8       |    |		Load_Top	At_Offset_0
0194 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0195 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0196 0000 0000  |    |		.XXX[0x2]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a7       |    |		.CONST	0x01a7								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0003       |    |		.CONST	0x0003								; Number of locals
019b			INIT_0198:
019b e01f       |    |		Load	0x0,0x1f
019c 0322       | "  |		Declare_Variable	Record
019d 00d8       |    |		Load_Top	At_Offset_0
019e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
019f e219       |    |		Load	0x1,0x19
01a0 0322       | "  |		Declare_Variable	Record
01a1 e5fd       |    |		Load	0x2,-0x3
01a2 e01b       |    |		Load	0x0,0x1b
01a3 e226       | &  |		Load	0x1,0x26
01a4 0096       |    |		Execute	Package,Entry
01a5 00d9       |    |		Load_Top	At_Offset_1
01a6 017d       | }  |		Execute	Record,Structure_Write
01a7			BODY_0198:
01a7 e5fb       |    |		Load	0x2,-0x5
01a8 e5fc       |    |		Load	0x2,-0x4
01a9 00db       |    |		Load_Top	At_Offset_3
01aa 00db       |    |		Load_Top	At_Offset_3
01ab 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01ac e5ff       |    |		Load	0x2,-0x1
01ad 8020       |    |		Call	0x0,0x20
01ae 00d1       |    |		Pop_Control	Pop_Count_1
01af c5fc       |    |		Store	0x2,-0x4
01b0 c5fb       |    |		Store	0x2,-0x5
01b1 00d8       |    |		Load_Top	At_Offset_0
01b2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01b3 00da       |    |		Load_Top	At_Offset_2
01b4 e5fe       |    |		Load	0x2,-0x2
01b5 8021       | !  |		Call	0x0,0x21
01b6 00d9       |    |		Load_Top	At_Offset_1
01b7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01b8 e5fd       |    |		Load	0x2,-0x3
01b9 00d9       |    |		Load_Top	At_Offset_1
01ba e01c       |    |		Load	0x0,0x1c
01bb e226       | &  |		Load	0x1,0x26
01bc 0096       |    |		Execute	Package,Entry
01bd c5fd       |    |		Store	0x2,-0x3
01be 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01bf 0000       |    |		.XXX[0x1]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01cb       |    |		.CONST	0x01cb								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0002       |    |		.CONST	0x0002								; Number of locals
01c3			INIT_01c0:
01c3 e219       |    |		Load	0x1,0x19
01c4 0322       | "  |		Declare_Variable	Record
01c5 00db       |    |		Load_Top	At_Offset_3
01c6 e01b       |    |		Load	0x0,0x1b
01c7 e226       | &  |		Load	0x1,0x26
01c8 0096       |    |		Execute	Package,Entry
01c9 00d9       |    |		Load_Top	At_Offset_1
01ca 017d       | }  |		Execute	Record,Structure_Write
01cb			BODY_01c0:
01cb 00d8       |    |		Load_Top	At_Offset_0
01cc 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01cd a5fe       |    |		Store_Unchecked	0x2,-0x2
01ce 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01cf 0000       |    |		.XXX[0x1]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01db       |    |		.CONST	0x01db								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0002       |    |		.CONST	0x0002								; Number of locals
01d3			INIT_01d0:
01d3 e219       |    |		Load	0x1,0x19
01d4 0322       | "  |		Declare_Variable	Record
01d5 00db       |    |		Load_Top	At_Offset_3
01d6 e01b       |    |		Load	0x0,0x1b
01d7 e226       | &  |		Load	0x1,0x26
01d8 0096       |    |		Execute	Package,Entry
01d9 00d9       |    |		Load_Top	At_Offset_1
01da 017d       | }  |		Execute	Record,Structure_Write
01db			BODY_01d0:
01db 00d8       |    |		Load_Top	At_Offset_0
01dc 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01dd a5fe       |    |		Store_Unchecked	0x2,-0x2
01de 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01df 0000       |    |		.XXX[0x1]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01ed       |    |		.CONST	0x01ed								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0003       |    |		.CONST	0x0003								; Number of locals
01e3			INIT_01e0:
01e3 e219       |    |		Load	0x1,0x19
01e4 0322       | "  |		Declare_Variable	Record
01e5 00db       |    |		Load_Top	At_Offset_3
01e6 e01b       |    |		Load	0x0,0x1b
01e7 e226       | &  |		Load	0x1,0x26
01e8 0096       |    |		Execute	Package,Entry
01e9 00d9       |    |		Load_Top	At_Offset_1
01ea 017d       | }  |		Execute	Record,Structure_Write
01eb 00db       |    |		Load_Top	At_Offset_3
01ec 0007       |    |		Action	Break_Optional
01ed			BODY_01e0:
01ed e5fe       |    |		Load	0x2,-0x2
01ee 00da       |    |		Load_Top	At_Offset_2
01ef 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
01f0 00d8       |    |		Load_Top	At_Offset_0
01f1 00da       |    |		Load_Top	At_Offset_2
01f2 e01c       |    |		Load	0x0,0x1c
01f3 e226       | &  |		Load	0x1,0x26
01f4 0096       |    |		Execute	Package,Entry
01f5 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
01f6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01f7 0000       |    |		.XXX[0x1]
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 00da       |    |		Load_Top	At_Offset_2
01fc e01b       |    |		Load	0x0,0x1b
01fd e226       | &  |		Load	0x1,0x26
01fe 0096       |    |		Execute	Package,Entry
01ff 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0200 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0201 0000 0000  |    |		.BLANK	0000[0x7]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0214       |    |		.CONST	0x0214								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0004       |    |		.CONST	0x0004								; Number of locals
020b			INIT_0208:
020b e219       |    |		Load	0x1,0x19
020c 0322       | "  |		Declare_Variable	Record
020d 00d8       |    |		Load_Top	At_Offset_0
020e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
020f 00db       |    |		Load_Top	At_Offset_3
0210 e22a       | *  |		Load	0x1,0x2a
0211 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0212 029f 03d3  |    |		Declare_Subprogram	INIT_03d0,For_Call
0214			BODY_0208:
0214 00d9       |    |		Load_Top	At_Offset_1
0215 e22a       | *  |		Load	0x1,0x2a
0216 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0217 7002       |p   |		Jump_Nonzero	0x21a
0218 e022       | "  |		Load	0x0,0x22
0219 0257       | W  |		Execute	Discrete,Raise
021a e5fe       |    |		Load	0x2,-0x2
021b 00db       |    |		Load_Top	At_Offset_3
021c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
021d 8404       |    |		Call	0x2,0x4
021e e5fe       |    |		Load	0x2,-0x2
021f 00ea       |    |		Load_Encached	Null_String_Cache
0220 4804       |H   |		Short_Literal	0x4
0221 e403       |    |		Load	0x2,0x3
0222 e22a       | *  |		Load	0x1,0x2a
0223 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0224 8023       | #  |		Call	0x0,0x23
0225 00db       |    |		Load_Top	At_Offset_3
0226 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0227 00da       |    |		Load_Top	At_Offset_2
0228 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0229 e5fe       |    |		Load	0x2,-0x2
022a 00ea       |    |		Load_Encached	Null_String_Cache
022b 4802       |H   |		Short_Literal	0x2
022c e403       |    |		Load	0x2,0x3
022d e22a       | *  |		Load	0x1,0x2a
022e 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
022f 8024       | $  |		Call	0x0,0x24
0230 00db       |    |		Load_Top	At_Offset_3
0231 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0232 00da       |    |		Load_Top	At_Offset_2
0233 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0234 e5fe       |    |		Load	0x2,-0x2
0235 00ea       |    |		Load_Encached	Null_String_Cache
0236 4803       |H   |		Short_Literal	0x3
0237 e403       |    |		Load	0x2,0x3
0238 e22a       | *  |		Load	0x1,0x2a
0239 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
023a 8025       | %  |		Call	0x0,0x25
023b 00db       |    |		Load_Top	At_Offset_3
023c 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
023d 00da       |    |		Load_Top	At_Offset_2
023e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
023f 0000       |    |		.XXX[0x1]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0247       | G  |		.CONST	0x0247								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0002       |    |		.CONST	0x0002								; Number of locals
0243			INIT_0240:
0243 e219       |    |		Load	0x1,0x19
0244 0322       | "  |		Declare_Variable	Record
0245 00d8       |    |		Load_Top	At_Offset_0
0246 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0247			BODY_0240:
0247 00db       |    |		Load_Top	At_Offset_3
0248 00d9       |    |		Load_Top	At_Offset_1
0249 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
024a 00db       |    |		Load_Top	At_Offset_3
024b 8026       | &  |		Call	0x0,0x26
024c 00d9       |    |		Load_Top	At_Offset_1
024d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
024e 00db       |    |		Load_Top	At_Offset_3
024f 8027       | '  |		Call	0x0,0x27
0250 00d9       |    |		Load_Top	At_Offset_1
0251 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0252 00db       |    |		Load_Top	At_Offset_3
0253 8028       | (  |		Call	0x0,0x28
0254 00d9       |    |		Load_Top	At_Offset_1
0255 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0256 00d8       |    |		Load_Top	At_Offset_0
0257 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b e002       |    |		Load	0x0,0x2
025c 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
025d 00db       |    |		Load_Top	At_Offset_3
025e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
025f 00da       |    |		Load_Top	At_Offset_2
0260 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0261 8029       | )  |		Call	0x0,0x29
0262 00db       |    |		Load_Top	At_Offset_3
0263 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0264 00da       |    |		Load_Top	At_Offset_2
0265 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0266 802a       | *  |		Call	0x0,0x2a
0267 00db       |    |		Load_Top	At_Offset_3
0268 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0269 00da       |    |		Load_Top	At_Offset_2
026a 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
026b 802b       | +  |		Call	0x0,0x2b
026c 00db       |    |		Load_Top	At_Offset_3
026d 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
026e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
026f 0000       |    |		.XXX[0x1]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273       | s  |		.CONST	0x0273								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0001       |    |		.CONST	0x0001								; Number of locals
0273			BODY_0270:
0273			INIT_0270:
0273 00da       |    |		Load_Top	At_Offset_2
0274 e5fe       |    |		Load	0x2,-0x2
0275 017f       |    |		Execute	Record,Equal
0276 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0277 0000       |    |		.XXX[0x1]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b       | {  |		.CONST	0x027b								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0001       |    |		.CONST	0x0001								; Number of locals
027b			BODY_0278:
027b			INIT_0278:
027b e5fd       |    |		Load	0x2,-0x3
027c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
027d e5fe       |    |		Load	0x2,-0x2
027e e5ff       |    |		Load	0x2,-0x1
027f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0280 802c       | ,  |		Call	0x0,0x2c
0281 e5fd       |    |		Load	0x2,-0x3
0282 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0283 e5fd       |    |		Load	0x2,-0x3
0284 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0285 e5fe       |    |		Load	0x2,-0x2
0286 e5ff       |    |		Load	0x2,-0x1
0287 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0288 802d       | -  |		Call	0x0,0x2d
0289 e5fd       |    |		Load	0x2,-0x3
028a 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
028b e5fd       |    |		Load	0x2,-0x3
028c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
028d e5fe       |    |		Load	0x2,-0x2
028e e5ff       |    |		Load	0x2,-0x1
028f 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0290 802e       | .  |		Call	0x0,0x2e
0291 e5fd       |    |		Load	0x2,-0x3
0292 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0293 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0294 0000 0000  |    |		.BLANK	0000[0x4]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029d       |    |		.CONST	0x029d								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0002       |    |		.CONST	0x0002								; Number of locals
029b			INIT_0298:
029b 00db       |    |		Load_Top	At_Offset_3
029c 802f       | /  |		Call	0x0,0x2f
029d			BODY_0298:
029d 00d8       |    |		Load_Top	At_Offset_0
029e 4801       |H   |		Short_Literal	0x1
029f e5ff       |    |		Load	0x2,-0x1
02a0 8030       | 0  |		Call	0x0,0x30
02a1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02a2 0000 0000  |    |		.BLANK	0000[0x6]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab       |    |		.CONST	0x02ab								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0001       |    |		.CONST	0x0001								; Number of locals
02ab			BODY_02a8:
02ab			INIT_02a8:
02ab 4607       |F   |		Jump_Case	0x8
02ac 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
02ad 7807       |x   |		Jump	0x2b5								; case 0x1
02ae 780a       |x   |		Jump	0x2b9								; case 0x2
02af 780e       |x   |		Jump	0x2be								; case 0x3
02b0 7811       |x   |		Jump	0x2c2								; case 0x4
02b1 7812       |x   |		Jump	0x2c4								; case 0x5
02b2 7813       |x   |		Jump	0x2c6								; case 0x6
02b3 7816       |x   |		Jump	0x2ca								; case 0x7
02b4 4302       |C   |		.XXX[0x1]
02b5 00da       |    |		Load_Top	At_Offset_2
02b6 0091 0500  |    |		Action	Push_String_Extended_Indexed,0x500				; "NONE"
02b8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02b9 00db       |    |		Load_Top	At_Offset_3
02ba 00db       |    |		Load_Top	At_Offset_3
02bb 00e0       |    |		Load_Encached	Standard_Cache
02bc 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02bd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02be 00da       |    |		Load_Top	At_Offset_2
02bf 00e0       |    |		Load_Encached	Standard_Cache
02c0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02c1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02c2 00db       |    |		Load_Top	At_Offset_3
02c3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02c4 00db       |    |		Load_Top	At_Offset_3
02c5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02c6 e220       |    |		Load	0x1,0x20
02c7 00dc       |    |		Load_Top	At_Offset_4
02c8 0267       | g  |		Execute	Discrete,Predecessor
02c9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ca e220       |    |		Load	0x1,0x20
02cb 00dc       |    |		Load_Top	At_Offset_4
02cc 0268       | h  |		Execute	Discrete,Successor
02cd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ce 0000 0000  |    |		.XXX[0x2]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d7       |    |		.CONST	0x02d7								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0002       |    |		.CONST	0x0002								; Number of locals
02d3			INIT_02d0:
02d3 e221       | !  |		Load	0x1,0x21
02d4 0322       | "  |		Declare_Variable	Record
02d5 00d8       |    |		Load_Top	At_Offset_0
02d6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02d7			BODY_02d0:
02d7 00db       |    |		Load_Top	At_Offset_3
02d8 00d9       |    |		Load_Top	At_Offset_1
02d9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02da 4801       |H   |		Short_Literal	0x1
02db 00d9       |    |		Load_Top	At_Offset_1
02dc 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02dd 00d8       |    |		Load_Top	At_Offset_0
02de 00d9       |    |		Load_Top	At_Offset_1
02df 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02e0 822b       | +  |		Call	0x1,0x2b
02e1 00d1       |    |		Pop_Control	Pop_Count_1
02e2 00d8       |    |		Load_Top	At_Offset_0
02e3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02e4 0000 0000  |    |		.BLANK	0000[0x4]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb       |    |		.CONST	0x02eb								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0001       |    |		.CONST	0x0001								; Number of locals
02eb			BODY_02e8:
02eb			INIT_02e8:
02eb 00da       |    |		Load_Top	At_Offset_2
02ec 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02ed 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02ee 0000 0000  |    |		.XXX[0x2]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02fd       |    |		.CONST	0x02fd								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0003       |    |		.CONST	0x0003								; Number of locals
02f3			INIT_02f0:
02f3 00da       |    |		Load_Top	At_Offset_2
02f4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02f5 e220       |    |		Load	0x1,0x20
02f6 011c       |    |		Execute	Any,Convert_Unchecked
02f7 1c01       |    |		Execute_Immediate	Run_Utility,0x1
02f8 0092 0506  |    |		Action	Push_String_Extended,0x506					; "=>"
02fa 01cc       |    |		Execute	Vector,Catenate
02fb 029f 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Call
02fd			BODY_02f0:
02fd e5ff       |    |		Load	0x2,-0x1
02fe 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02ff e229       | )  |		Load	0x1,0x29
0300 01d7       |    |		Execute	Vector,Field_Read
0301 6802       |h   |		Jump_Zero	0x304
0302 8403       |    |		Call	0x2,0x3
0303 7807       |x   |		Jump	0x30b
0304 00d9       |    |		Load_Top	At_Offset_1
0305 e5ff       |    |		Load	0x2,-0x1
0306 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0307 e5ff       |    |		Load	0x2,-0x1
0308 822e       | .  |		Call	0x1,0x2e
0309 01cc       |    |		Execute	Vector,Catenate
030a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
030b 0831       | 1  |		Execute_Immediate	Raise,0x31
030c 0000 0000  |    |		.BLANK	0000[0x4]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313       |    |		.CONST	0x0313								; Address of begin
0311 0004       |    |		.CONST	0x0004								; Address of exception handler
0312 0001       |    |		.CONST	0x0001								; Number of locals
0313			BODY_0310:
0313			INIT_0310:
0313 00da       |    |		Load_Top	At_Offset_2
0314 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0315 7023       |p#  |		Jump_Nonzero	0x339
0316 00da       |    |		Load_Top	At_Offset_2
0317 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0318 e229       | )  |		Load	0x1,0x29
0319 01d7       |    |		Execute	Vector,Field_Read
031a 680b       |h   |		Jump_Zero	0x326
031b 00da       |    |		Load_Top	At_Offset_2
031c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
031d 00db       |    |		Load_Top	At_Offset_3
031e 822d       | -  |		Call	0x1,0x2d
031f 7006       |p   |		Jump_Nonzero	0x326
0320 00da       |    |		Load_Top	At_Offset_2
0321 00db       |    |		Load_Top	At_Offset_3
0322 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0323 822c       | ,  |		Call	0x1,0x2c
0324 00d1       |    |		Pop_Control	Pop_Count_1
0325 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0326 00da       |    |		Load_Top	At_Offset_2
0327 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0328 0f04       |    |		Execute_Immediate	Equal,0x4
0329 6804       |h   |		Jump_Zero	0x32e
032a 4801       |H   |		Short_Literal	0x1
032b 00db       |    |		Load_Top	At_Offset_3
032c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
032d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
032e e220       |    |		Load	0x1,0x20
032f 00db       |    |		Load_Top	At_Offset_3
0330 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0331 0268       | h  |		Execute	Discrete,Successor
0332 00db       |    |		Load_Top	At_Offset_3
0333 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0334 00da       |    |		Load_Top	At_Offset_2
0335 00db       |    |		Load_Top	At_Offset_3
0336 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0337 822b       | +  |		Call	0x1,0x2b
0338 00d1       |    |		Pop_Control	Pop_Count_1
0339 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
033a 0000 0000  |    |		.BLANK	0000[0x6]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343       | C  |		.CONST	0x0343								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0001       |    |		.CONST	0x0001								; Number of locals
0343			BODY_0340:
0343			INIT_0340:
0343 00da       |    |		Load_Top	At_Offset_2
0344 4604       |F   |		Jump_Case	0x5
0345 7818       |x   |		Jump	0x35e								; case 0x0
0346 7817       |x   |		Jump	0x35e								; case 0x1
0347 7809       |x   |		Jump	0x351								; case 0x2
0348 780f       |x   |		Jump	0x358								; case 0x3
0349 7800       |x   |		Jump	0x34a								; case 0x4
034a 00db       |    |		Load_Top	At_Offset_3
034b 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
034c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
034d 8031       | 1  |		Call	0x0,0x31
034e e5fe       |    |		Load	0x2,-0x2
034f 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0350 780d       |x   |		Jump	0x35e
0351 00db       |    |		Load_Top	At_Offset_3
0352 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0353 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0354 8032       | 2  |		Call	0x0,0x32
0355 e5fe       |    |		Load	0x2,-0x2
0356 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0357 7806       |x   |		Jump	0x35e
0358 00db       |    |		Load_Top	At_Offset_3
0359 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
035a 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
035b 8033       | 3  |		Call	0x0,0x33
035c e5fe       |    |		Load	0x2,-0x2
035d 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
035e 4801       |H   |		Short_Literal	0x1
035f e5fe       |    |		Load	0x2,-0x2
0360 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0361 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0362 0000 0000  |    |		.BLANK	0000[0x6]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b       | k  |		.CONST	0x036b								; Address of begin
0369 0004       |    |		.CONST	0x0004								; Address of exception handler
036a 0001       |    |		.CONST	0x0001								; Number of locals
036b			BODY_0368:
036b			INIT_0368:
036b 00da       |    |		Load_Top	At_Offset_2
036c 4604       |F   |		Jump_Case	0x5
036d 7812       |x   |		Jump	0x380								; case 0x0
036e 7811       |x   |		Jump	0x380								; case 0x1
036f 7807       |x   |		Jump	0x377								; case 0x2
0370 780b       |x   |		Jump	0x37c								; case 0x3
0371 7800       |x   |		Jump	0x372								; case 0x4
0372 00db       |    |		Load_Top	At_Offset_3
0373 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0374 8034       | 4  |		Call	0x0,0x34
0375 00d1       |    |		Pop_Control	Pop_Count_1
0376 7809       |x   |		Jump	0x380
0377 00db       |    |		Load_Top	At_Offset_3
0378 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0379 8035       | 5  |		Call	0x0,0x35
037a 00d1       |    |		Pop_Control	Pop_Count_1
037b 7804       |x   |		Jump	0x380
037c 00db       |    |		Load_Top	At_Offset_3
037d 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
037e 8036       | 6  |		Call	0x0,0x36
037f 00d1       |    |		Pop_Control	Pop_Count_1
0380 4800       |H   |		Short_Literal	0x0
0381 e5fe       |    |		Load	0x2,-0x2
0382 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0383 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0384 0000 0000  |    |		.BLANK	0000[0x4]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b       |    |		.CONST	0x038b								; Address of begin
0389 0004       |    |		.CONST	0x0004								; Address of exception handler
038a 0001       |    |		.CONST	0x0001								; Number of locals
038b			BODY_0388:
038b			INIT_0388:
038b 00db       |    |		Load_Top	At_Offset_3
038c 4604       |F   |		Jump_Case	0x5
038d 7808       |x   |		Jump	0x396								; case 0x0
038e 7807       |x   |		Jump	0x396								; case 0x1
038f 7808       |x   |		Jump	0x398								; case 0x2
0390 780b       |x   |		Jump	0x39c								; case 0x3
0391 7800       |x   |		Jump	0x392								; case 0x4
0392 00da       |    |		Load_Top	At_Offset_2
0393 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0394 8037       | 7  |		Call	0x0,0x37
0395 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0396 4801       |H   |		Short_Literal	0x1
0397 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0398 00da       |    |		Load_Top	At_Offset_2
0399 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
039a 8038       | 8  |		Call	0x0,0x38
039b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
039c 00da       |    |		Load_Top	At_Offset_2
039d 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
039e 8039       | 9  |		Call	0x0,0x39
039f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3       |    |		.CONST	0x03a3								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 0001       |    |		.CONST	0x0001								; Number of locals
03a3			BODY_03a0:
03a3			INIT_03a0:
03a3 00db       |    |		Load_Top	At_Offset_3
03a4 0f01       |    |		Execute_Immediate	Equal,0x1
03a5 7001       |p   |		Jump_Nonzero	0x3a7
03a6 7807       |x   |		Jump	0x3ae
03a7 00da       |    |		Load_Top	At_Offset_2
03a8 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03a9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03aa e20d       |    |		Load	0x1,0xd
03ab 011c       |    |		Execute	Any,Convert_Unchecked
03ac 1c01       |    |		Execute_Immediate	Run_Utility,0x1
03ad 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03ae 0831       | 1  |		Execute_Immediate	Raise,0x31
03af 0000       |    |		.XXX[0x1]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3       |    |		.CONST	0x03b3								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0001       |    |		.CONST	0x0001								; Number of locals
03b3			BODY_03b0:
03b3			INIT_03b0:
03b3 00db       |    |		Load_Top	At_Offset_3
03b4 00db       |    |		Load_Top	At_Offset_3
03b5 822d       | -  |		Call	0x1,0x2d
03b6 6803       |h   |		Jump_Zero	0x3ba
03b7 0092 0507  |    |		Action	Push_String_Extended,0x507					; ")"
03b9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03ba 00db       |    |		Load_Top	At_Offset_3
03bb 4604       |F   |		Jump_Case	0x5
03bc 7810       |x   |		Jump	0x3cd								; case 0x0
03bd 780f       |x   |		Jump	0x3cd								; case 0x1
03be 7806       |x   |		Jump	0x3c5								; case 0x2
03bf 7809       |x   |		Jump	0x3c9								; case 0x3
03c0 7800       |x   |		Jump	0x3c1								; case 0x4
03c1 00da       |    |		Load_Top	At_Offset_2
03c2 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
03c3 803a       | :  |		Call	0x0,0x3a
03c4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03c5 00da       |    |		Load_Top	At_Offset_2
03c6 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
03c7 803b       | ;  |		Call	0x0,0x3b
03c8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03c9 00da       |    |		Load_Top	At_Offset_2
03ca 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
03cb 803c       | <  |		Call	0x0,0x3c
03cc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03cd 0831       | 1  |		Execute_Immediate	Raise,0x31
03ce 0000 0000  |    |		.XXX[0x2]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3       |    |		.CONST	0x03d3								; Address of begin
03d1 03dd       |    |		.CONST	0x03dd								; Address of exception handler
03d2 0001       |    |		.CONST	0x0001								; Number of locals
03d3			BODY_03d0:
03d3			INIT_03d0:
03d3 00ea       |    |		Load_Encached	Null_String_Cache
03d4 4801       |H   |		Short_Literal	0x1
03d5 e403       |    |		Load	0x2,0x3
03d6 e22a       | *  |		Load	0x1,0x2a
03d7 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
03d8 e20d       |    |		Load	0x1,0xd
03d9 1c02       |    |		Execute_Immediate	Run_Utility,0x2
03da e402       |    |		Load	0x2,0x2
03db 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03dc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03dd			TRAP_03d0:
03dd 0007       |    |		Action	Break_Optional
03de e03d       | =  |		Load	0x0,0x3d
03df 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03e0 4802       |H   |		Short_Literal	0x2
03e1 0092 0508  |    |		Action	Push_String_Extended,0x508					; "Invalid coverage kind in external object"
03e3 e03e       | >  |		Load	0x0,0x3e
03e4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03e5 4800       |H   |		Short_Literal	0x0
03e6 e402       |    |		Load	0x2,0x2
03e7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03e8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03e9 0000 0000  |    |		.BLANK	0000[0x7]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f7       |    |		.CONST	0x03f7								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0002       |    |		.CONST	0x0002								; Number of locals
03f3			INIT_03f0:
03f3 e5ff       |    |		Load	0x2,-0x1
03f4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03f5 e5ff       |    |		Load	0x2,-0x1
03f6 822f       | /  |		Call	0x1,0x2f
03f7			BODY_03f0:
03f7 e5ff       |    |		Load	0x2,-0x1
03f8 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
03f9 6808       |h   |		Jump_Zero	0x402
03fa e402       |    |		Load	0x2,0x2
03fb 0092 0509  |    |		Action	Push_String_Extended,0x509					; "("
03fd 01cc       |    |		Execute	Vector,Catenate
03fe 00d9       |    |		Load_Top	At_Offset_1
03ff 01cc       |    |		Execute	Vector,Catenate
0400 00cb       |    |		Action	Pop_Block_With_Result
0401 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0402 00d8       |    |		Load_Top	At_Offset_0
0403 00cb       |    |		Action	Pop_Block_With_Result
0404 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0405 0000 0000  |    |		.XXX[0x3]
0407 0000       |    |
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 4601       |F   |		Jump_Case	0x2
040c 7801       |x   |		Jump	0x40e								; case 0x0
040d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
040e 4800       |H   |		Short_Literal	0x0
040f 00db       |    |		Load_Top	At_Offset_3
0410 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0411 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0412 0000 0000  |    |		.BLANK	0000[0x6]
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 4601       |F   |		Jump_Case	0x2
041c 7801       |x   |		Jump	0x41e								; case 0x0
041d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
041e 00da       |    |		Load_Top	At_Offset_2
041f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0420 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0421 4800       |H   |		Short_Literal	0x0
0422 00db       |    |		Load_Top	At_Offset_3
0423 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0424 4800       |H   |		Short_Literal	0x0
0425 00db       |    |		Load_Top	At_Offset_3
0426 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0427 4801       |H   |		Short_Literal	0x1
0428 00db       |    |		Load_Top	At_Offset_3
0429 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
042a 00da       |    |		Load_Top	At_Offset_2
042b 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
042c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
042d 00da       |    |		Load_Top	At_Offset_2
042e 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
042f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0430 00da       |    |		Load_Top	At_Offset_2
0431 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0432 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0433 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0434 0000 0000  |    |		.BLANK	0000[0x4]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 0460       | `  |		.CONST	0x0460								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0015       |    |		.CONST	0x0015								; Number of locals
043b			INIT_0438:
043b 029a 046b  |   k|		Declare_Subprogram	INIT_0468,For_Outer_Call,Visible,Unelaborated
043d 029a 0473  |   s|		Declare_Subprogram	INIT_0470,For_Outer_Call,Visible,Unelaborated
043f 029a 0483  |    |		Declare_Subprogram	INIT_0480,For_Outer_Call,Visible,Unelaborated
0441 029a 0493  |    |		Declare_Subprogram	INIT_0490,For_Outer_Call,Visible,Unelaborated
0443 029a 049b  |    |		Declare_Subprogram	INIT_0498,For_Outer_Call,Visible,Unelaborated
0445 029a 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Outer_Call,Visible,Unelaborated
0447 029a 04bb  |    |		Declare_Subprogram	INIT_04b8,For_Outer_Call,Visible,Unelaborated
0449 029a 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Outer_Call,Visible,Unelaborated
044b 029a 04d3  |    |		Declare_Subprogram	INIT_04d0,For_Outer_Call,Visible,Unelaborated
044d 00bf       |    |		Action	Accept_Activation
044e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
044f 00c7       |    |		Action	Elaborate_Subprogram
0450 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0451 00c7       |    |		Action	Elaborate_Subprogram
0452 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0453 00c7       |    |		Action	Elaborate_Subprogram
0454 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0455 00c7       |    |		Action	Elaborate_Subprogram
0456 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0457 00c7       |    |		Action	Elaborate_Subprogram
0458 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0459 00c7       |    |		Action	Elaborate_Subprogram
045a 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
045b 00c7       |    |		Action	Elaborate_Subprogram
045c 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
045d 00c7       |    |		Action	Elaborate_Subprogram
045e 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
045f 00c7       |    |		Action	Elaborate_Subprogram
0460			BODY_0438:
0460 00bc       |    |		Action	Signal_Activated
0461 00bb       |    |		Action	Signal_Completion
0462 0000 0000  |    |		.BLANK	0000[0x6]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b       | k  |		.CONST	0x046b								; Address of begin
0469 0004       |    |		.CONST	0x0004								; Address of exception handler
046a 0001       |    |		.CONST	0x0001								; Number of locals
046b			BODY_0468:
046b			INIT_0468:
046b 00db       |    |		Load_Top	At_Offset_3
046c 00db       |    |		Load_Top	At_Offset_3
046d 8001       |    |		Call	0x0,0x1
046e c5fe       |    |		Store	0x2,-0x2
046f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473       | s  |		.CONST	0x0473								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0001       |    |		.CONST	0x0001								; Number of locals
0473			BODY_0470:
0473			INIT_0470:
0473 e5fd       |    |		Load	0x2,-0x3
0474 e002       |    |		Load	0x0,0x2
0475 0216       |    |		Execute	Heap_Access,Convert
0476 e5fe       |    |		Load	0x2,-0x2
0477 e5ff       |    |		Load	0x2,-0x1
0478 8003       |    |		Call	0x0,0x3
0479 c5fd       |    |		Store	0x2,-0x3
047a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
047b 0000 0000  |    |		.BLANK	0000[0x5]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0485       |    |		.CONST	0x0485								; Address of begin
0481 0004       |    |		.CONST	0x0004								; Address of exception handler
0482 0002       |    |		.CONST	0x0002								; Number of locals
0483			INIT_0480:
0483 029f 04e3  |    |		Declare_Subprogram	INIT_04e0,For_Call
0485			BODY_0480:
0485 e5fe       |    |		Load	0x2,-0x2
0486 e002       |    |		Load	0x0,0x2
0487 0216       |    |		Execute	Heap_Access,Convert
0488 e5ff       |    |		Load	0x2,-0x1
0489 8004       |    |		Call	0x0,0x4
048a c5fe       |    |		Store	0x2,-0x2
048b 8402       |    |		Call	0x2,0x2
048c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
048d 0000 0000  |    |		.XXX[0x3]
048f 0000       |    |
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493       |    |		.CONST	0x0493								; Address of begin
0491 0004       |    |		.CONST	0x0004								; Address of exception handler
0492 0001       |    |		.CONST	0x0001								; Number of locals
0493			BODY_0490:
0493			INIT_0490:
0493 00da       |    |		Load_Top	At_Offset_2
0494 8005       |    |		Call	0x0,0x5
0495 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0496 0000 0000  |    |		.XXX[0x2]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b       |    |		.CONST	0x049b								; Address of begin
0499 0004       |    |		.CONST	0x0004								; Address of exception handler
049a 0001       |    |		.CONST	0x0001								; Number of locals
049b			BODY_0498:
049b			INIT_0498:
049b 00da       |    |		Load_Top	At_Offset_2
049c e002       |    |		Load	0x0,0x2
049d 0216       |    |		Execute	Heap_Access,Convert
049e 8006       |    |		Call	0x0,0x6
049f 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
04a0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04a1 0000 0000  |    |		.BLANK	0000[0x7]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab       |    |		.CONST	0x04ab								; Address of begin
04a9 0004       |    |		.CONST	0x0004								; Address of exception handler
04aa 0001       |    |		.CONST	0x0001								; Number of locals
04ab			BODY_04a8:
04ab			INIT_04a8:
04ab 00db       |    |		Load_Top	At_Offset_3
04ac e002       |    |		Load	0x0,0x2
04ad 0216       |    |		Execute	Heap_Access,Convert
04ae 00db       |    |		Load_Top	At_Offset_3
04af 8007       |    |		Call	0x0,0x7
04b0 c5fe       |    |		Store	0x2,-0x2
04b1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04b2 0000 0000  |    |		.BLANK	0000[0x6]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bd       |    |		.CONST	0x04bd								; Address of begin
04b9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ba 0002       |    |		.CONST	0x0002								; Number of locals
04bb			INIT_04b8:
04bb 029f 04f3  |    |		Declare_Subprogram	INIT_04f0,For_Call
04bd			BODY_04b8:
04bd 8402       |    |		Call	0x2,0x2
04be e5fe       |    |		Load	0x2,-0x2
04bf e002       |    |		Load	0x0,0x2
04c0 0216       |    |		Execute	Heap_Access,Convert
04c1 e5ff       |    |		Load	0x2,-0x1
04c2 8008       |    |		Call	0x0,0x8
04c3 c5fe       |    |		Store	0x2,-0x2
04c4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04c5 0000 0000  |    |		.XXX[0x3]
04c7 0000       |    |
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb       |    |		.CONST	0x04cb								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0001       |    |		.CONST	0x0001								; Number of locals
04cb			BODY_04c8:
04cb			INIT_04c8:
04cb 00da       |    |		Load_Top	At_Offset_2
04cc 8009       |    |		Call	0x0,0x9
04cd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04ce 0000 0000  |    |		.XXX[0x2]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d3       |    |		.CONST	0x04d3								; Address of begin
04d1 0004       |    |		.CONST	0x0004								; Address of exception handler
04d2 0001       |    |		.CONST	0x0001								; Number of locals
04d3			BODY_04d0:
04d3			INIT_04d0:
04d3 00db       |    |		Load_Top	At_Offset_3
04d4 e002       |    |		Load	0x0,0x2
04d5 0216       |    |		Execute	Heap_Access,Convert
04d6 00db       |    |		Load_Top	At_Offset_3
04d7 800a       |    |		Call	0x0,0xa
04d8 c5fe       |    |		Store	0x2,-0x2
04d9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04da 0000 0000  |    |		.BLANK	0000[0x6]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e9       |    |		.CONST	0x04e9								; Address of begin
04e1 0004       |    |		.CONST	0x0004								; Address of exception handler
04e2 0002       |    |		.CONST	0x0002								; Number of locals
04e3			INIT_04e0:
04e3 e00b       |    |		Load	0x0,0xb
04e4 0322       | "  |		Declare_Variable	Record
04e5 e5fe       |    |		Load	0x2,-0x2
04e6 800c       |    |		Call	0x0,0xc
04e7 00d9       |    |		Load_Top	At_Offset_1
04e8 017d       | }  |		Execute	Record,Structure_Write
04e9			BODY_04e0:
04e9 e5fe       |    |		Load	0x2,-0x2
04ea 00d9       |    |		Load_Top	At_Offset_1
04eb 800d       |    |		Call	0x0,0xd
04ec c5fe       |    |		Store	0x2,-0x2
04ed 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04ee 0000 0000  |    |		.XXX[0x2]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f9       |    |		.CONST	0x04f9								; Address of begin
04f1 0004       |    |		.CONST	0x0004								; Address of exception handler
04f2 0002       |    |		.CONST	0x0002								; Number of locals
04f3			INIT_04f0:
04f3 e00b       |    |		Load	0x0,0xb
04f4 0322       | "  |		Declare_Variable	Record
04f5 e5fe       |    |		Load	0x2,-0x2
04f6 800c       |    |		Call	0x0,0xc
04f7 00d9       |    |		Load_Top	At_Offset_1
04f8 017d       | }  |		Execute	Record,Structure_Write
04f9			BODY_04f0:
04f9 e5fe       |    |		Load	0x2,-0x2
04fa 00d9       |    |		Load_Top	At_Offset_1
04fb 800d       |    |		Call	0x0,0xd
04fc c5fe       |    |		Store	0x2,-0x2
04fd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04fe ; --------------------------------------------------------------------------------------
04fe ; STRING TABLE
04fe ; --------------------------------------------------------------------------------------
04fe 001a       |    |		.STRTAB	0x001a->0x050b							; "SEGMENT"
04ff 001f       |    |		.STRTAB	0x001f->0x050e							; "DECISION"
0500 0025       | %  |		.STRTAB	0x0025->0x0512							; "NONE"
0501 0027       | '  |		.STRTAB	0x0027->0x0514							; "THE_COVERAGE_KIND"
0502 0036       | 6  |		.STRTAB	0x0036->0x051d							; "UNIT_SET_MAP"
0503 0040       | @  |		.STRTAB	0x0040->0x0523							; "WORLD_COVERAGE_MAP"
0504 0050       | P  |		.STRTAB	0x0050->0x052c							; "THE_STRING_POOL"
0505 005d       | ]  |		.STRTAB	0x005d->0x0533							; "others => Unspecified"
0506 0070       | p  |		.STRTAB	0x0070->0x053e							; "=>"
0507 0070       | p  |		.STRTAB	0x0070->0x053f							; ")"
0508 006f       | o  |		.STRTAB	0x006f->0x053f							; "Invalid coverage kind in external object"
0509 0095       |    |		.STRTAB	0x0095->0x0553							; "("
050a 0094       |    |		.STREND 0x0094->0x0554
050b 5345 474d  |SEGM|		.STRTAB_STRINGS
0554 0000 0000  |    |		.BLANK	0000[0x4]
0558 ; --------------------------------------------------------------------------------------
0558 ; Debug Table
0558 ; --------------------------------------------------------------------------------------
0558 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x7622,0x0000,0x0001,0x0000
055e 0000 0000  |    |		.BLANK	0000[0xa2]