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

⟦1964bab63⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6060f0

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 0328       | (  |		.CONST	0x0328								; 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 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00a0       |    |		.CONST	0x00a0								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0024       | $  |		.CONST	0x0024								; Number of locals
000b			INIT_0008:
000b 00c4       |    |		Action	Make_Default
000c 00c4       |    |		Action	Make_Default
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 00c4       |    |		Action	Make_Default
0010 00c4       |    |		Action	Make_Default
0011 00c4       |    |		Action	Make_Default
0012 00c4       |    |		Action	Make_Default
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 4800       |H   |		Short_Literal	0x0
0022 4801       |H   |		Short_Literal	0x1
0023 029f 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Call
0025 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0026 c20e       |    |		Store	0x1,0xe
0027 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
0028 c20d       |    |		Store	0x1,0xd
0029 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
002b c20f       |    |		Store	0x1,0xf
002c 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
002e c210       |    |		Store	0x1,0x10
002f 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
0031 c211       |    |		Store	0x1,0x11
0032 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
0034 c21a       |    |		Store	0x1,0x1a
0035 029a 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call,Visible,Unelaborated
0037 c213       |    |		Store	0x1,0x13
0038 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
003a c214       |    |		Store	0x1,0x14
003b 029a 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Outer_Call,Visible,Unelaborated
003d c215       |    |		Store	0x1,0x15
003e 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
0040 c216       |    |		Store	0x1,0x16
0041 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
0043 c217       |    |		Store	0x1,0x17
0044 029a 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Outer_Call,Visible,Unelaborated
0046 c218       |    |		Store	0x1,0x18
0047 4800       |H   |		Short_Literal	0x0
0048 e001       |    |		Load	0x0,0x1
0049 02a0       |    |		Declare_Subprogram	Null_Subprogram
004a 038e       |    |		Declare_Type	Package,Defined
004b e002       |    |		Load	0x0,0x2
004c 4801       |H   |		Short_Literal	0x1
004d 00da       |    |		Load_Top	At_Offset_2
004e 020e       |    |		Execute	Module,Augment_Imports
004f 0387       |    |		Declare_Variable	Package
0050 c21c       |    |		Store	0x1,0x1c
0051 e20e       |    |		Load	0x1,0xe
0052 e003       |    |		Load	0x0,0x3
0053 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0054 e004       |    |		Load	0x0,0x4
0055 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0056 e005       |    |		Load	0x0,0x5
0057 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0058 00e1       |    |		Load_Encached	Boolean_Cache
0059 e21c       |    |		Load	0x1,0x1c
005a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
005b 4801       |H   |		Short_Literal	0x1
005c e21c       |    |		Load	0x1,0x1c
005d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
005e 4802       |H   |		Short_Literal	0x2
005f 00e1       |    |		Load_Encached	Boolean_Cache
0060 00e3       |    |		Load_Encached	Natural_Cache
0061 029f 02db  |    |		Declare_Subprogram	INIT_02d8,For_Call
0063 4803       |H   |		Short_Literal	0x3
0064 4805       |H   |		Short_Literal	0x5
0065 4802       |H   |		Short_Literal	0x2
0066 4800       |H   |		Short_Literal	0x0
0067 4801       |H   |		Short_Literal	0x1
0068 031d       |    |		Declare_Type	Variant_Record,Defined
0069 c222       | "  |		Store	0x1,0x22
006a 00d8       |    |		Load_Top	At_Offset_0
006b 02a0       |    |		Declare_Subprogram	Null_Subprogram
006c e20d       |    |		Load	0x1,0xd
006d 03a3       |    |		Complete_Type	Heap_Access,By_Defining
006e 00bf       |    |		Action	Accept_Activation
006f 4800       |H   |		Short_Literal	0x0
0070 e006       |    |		Load	0x0,0x6
0071 02a0       |    |		Declare_Subprogram	Null_Subprogram
0072 038e       |    |		Declare_Type	Package,Defined
0073 0387       |    |		Declare_Variable	Package
0074 4800       |H   |		Short_Literal	0x0
0075 e007       |    |		Load	0x0,0x7
0076 02a0       |    |		Declare_Subprogram	Null_Subprogram
0077 038e       |    |		Declare_Type	Package,Defined
0078 0387       |    |		Declare_Variable	Package
0079 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
007a 00c7       |    |		Action	Elaborate_Subprogram
007b 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
007c 00c7       |    |		Action	Elaborate_Subprogram
007d 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
007e 00c7       |    |		Action	Elaborate_Subprogram
007f 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0080 00c7       |    |		Action	Elaborate_Subprogram
0081 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0082 00c7       |    |		Action	Elaborate_Subprogram
0083 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0084 00c7       |    |		Action	Elaborate_Subprogram
0085 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0086 00c7       |    |		Action	Elaborate_Subprogram
0087 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0088 00c7       |    |		Action	Elaborate_Subprogram
0089 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
008a 00c7       |    |		Action	Elaborate_Subprogram
008b 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
008c 00c7       |    |		Action	Elaborate_Subprogram
008d e21c       |    |		Load	0x1,0x1c
008e 020f       |    |		Execute	Module,Activate
008f e005       |    |		Load	0x0,0x5
0090 e004       |    |		Load	0x0,0x4
0091 e002       |    |		Load	0x0,0x2
0092 e008       |    |		Load	0x0,0x8
0093 e009       |    |		Load	0x0,0x9
0094 4805       |H   |		Short_Literal	0x5
0095 e223       | #  |		Load	0x1,0x23
0096 020e       |    |		Execute	Module,Augment_Imports
0097 00d9       |    |		Load_Top	At_Offset_1
0098 020f       |    |		Execute	Module,Activate
0099 e002       |    |		Load	0x0,0x2
009a e009       |    |		Load	0x0,0x9
009b 4802       |H   |		Short_Literal	0x2
009c 00db       |    |		Load_Top	At_Offset_3
009d 020e       |    |		Execute	Module,Augment_Imports
009e 00d8       |    |		Load_Top	At_Offset_0
009f 020f       |    |		Execute	Module,Activate
00a0			BODY_0008:
00a0 00bc       |    |		Action	Signal_Activated
00a1 00bb       |    |		Action	Signal_Completion
00a2 0000 0000  |    |		.BLANK	0000[0x6]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab 4607       |F   |		Jump_Case	0x8
00ac 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00ad 7806       |x   |		Jump	0xb4								; case 0x1
00ae 7809       |x   |		Jump	0xb8								; case 0x2
00af 780d       |x   |		Jump	0xbd								; case 0x3
00b0 7810       |x   |		Jump	0xc1								; case 0x4
00b1 7811       |x   |		Jump	0xc3								; case 0x5
00b2 7812       |x   |		Jump	0xc5								; case 0x6
00b3 7815       |x   |		Jump	0xc9								; case 0x7
00b4 00da       |    |		Load_Top	At_Offset_2
00b5 0091 031a  |    |		Action	Push_String_Extended_Indexed,0x31a				; "RM_TCP_IP"
00b7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00b8 00db       |    |		Load_Top	At_Offset_3
00b9 00db       |    |		Load_Top	At_Offset_3
00ba 00e0       |    |		Load_Encached	Standard_Cache
00bb 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00bc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00bd 00da       |    |		Load_Top	At_Offset_2
00be 00e0       |    |		Load_Encached	Standard_Cache
00bf 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00c0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00c1 00db       |    |		Load_Top	At_Offset_3
00c2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00c3 00db       |    |		Load_Top	At_Offset_3
00c4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00c5 e20e       |    |		Load	0x1,0xe
00c6 00dc       |    |		Load_Top	At_Offset_4
00c7 0267       | g  |		Execute	Discrete,Predecessor
00c8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00c9 e20e       |    |		Load	0x1,0xe
00ca 00dc       |    |		Load_Top	At_Offset_4
00cb 0268       | h  |		Execute	Discrete,Successor
00cc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00cd 0000 0000  |    |		.XXX[0x3]
00cf 0000       |    |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00e0       |    |		.CONST	0x00e0								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0005       |    |		.CONST	0x0005								; Number of locals
00d3			INIT_00d0:
00d3 00da       |    |		Load_Top	At_Offset_2
00d4 e00a       |    |		Load	0x0,0xa
00d5 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00d6 4804       |H   |		Short_Literal	0x4
00d7 e5fe       |    |		Load	0x2,-0x2
00d8 e224       | $  |		Load	0x1,0x24
00d9 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00da 00e1       |    |		Load_Encached	Boolean_Cache
00db e5fd       |    |		Load	0x2,-0x3
00dc e222       | "  |		Load	0x1,0x22
00dd 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00de 00d8       |    |		Load_Top	At_Offset_0
00df 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00e0			BODY_00d0:
00e0 e5fd       |    |		Load	0x2,-0x3
00e1 6817       |h   |		Jump_Zero	0xf9
00e2 00e1       |    |		Load_Encached	Boolean_Cache
00e3 00d9       |    |		Load_Top	At_Offset_1
00e4 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00e5 0120       |    |		Execute	Any,Is_Value
00e6 6803       |h   |		Jump_Zero	0xea
00e7 e003       |    |		Load	0x0,0x3
00e8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00e9 7802       |x   |		Jump	0xec
00ea 00d9       |    |		Load_Top	At_Offset_1
00eb 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00ec e403       |    |		Load	0x2,0x3
00ed e402       |    |		Load	0x2,0x2
00ee 4801       |H   |		Short_Literal	0x1
00ef 4806       |H   |		Short_Literal	0x6
00f0 00e9       |    |		Load_Encached	String_Cache
00f1 0334       | 4  |		Declare_Variable	Array,With_Constraint
00f2 5035       |P5  |		Indirect_Literal	Any,0x128,{0x5544502f, 0x49502020}
00f3 e003       |    |		Load	0x0,0x3
00f4 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00f5 00da       |    |		Load_Top	At_Offset_2
00f6 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00f7 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00f8 7816       |x   |		Jump	0x10f
00f9 00e1       |    |		Load_Encached	Boolean_Cache
00fa 00d9       |    |		Load_Top	At_Offset_1
00fb 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00fc 0120       |    |		Execute	Any,Is_Value
00fd 6803       |h   |		Jump_Zero	0x101
00fe e003       |    |		Load	0x0,0x3
00ff 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0100 7802       |x   |		Jump	0x103
0101 00d9       |    |		Load_Top	At_Offset_1
0102 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0103 e403       |    |		Load	0x2,0x3
0104 e402       |    |		Load	0x2,0x2
0105 4801       |H   |		Short_Literal	0x1
0106 4806       |H   |		Short_Literal	0x6
0107 00e9       |    |		Load_Encached	String_Cache
0108 0334       | 4  |		Declare_Variable	Array,With_Constraint
0109 5022       |P"  |		Indirect_Literal	Any,0x12c,{0x5443502f, 0x49502020}
010a e003       |    |		Load	0x0,0x3
010b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
010c 00da       |    |		Load_Top	At_Offset_2
010d 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
010e 005a       | Z  |		Store_Top	Discrete,At_Offset_2
010f 00d8       |    |		Load_Top	At_Offset_0
0110 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0111 e003       |    |		Load	0x0,0x3
0112 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0113 00d9       |    |		Load_Top	At_Offset_1
0114 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0115 e5fc       |    |		Load	0x2,-0x4
0116 00d9       |    |		Load_Top	At_Offset_1
0117 2805       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
0118 4800       |H   |		Short_Literal	0x0
0119 00d9       |    |		Load_Top	At_Offset_1
011a 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
011b 00d8       |    |		Load_Top	At_Offset_0
011c e20d       |    |		Load	0x1,0xd
011d e00b       |    |		Load	0x0,0xb
011e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
011f e00c       |    |		Load	0x0,0xc
0120 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0121 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0122 a5fb       |    |		Store_Unchecked	0x2,-0x5
0123 4801       |H   |		Short_Literal	0x1
0124 a5fa       |    |		Store_Unchecked	0x2,-0x6
0125 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0126 0000 0000  |    |		.XXX[0x2]
0128 5544 502f  |UDP/|		.LITERAL	{0x5544502f, 0x49502020}
012c 5443 502f  |TCP/|		.LITERAL	{0x5443502f, 0x49502020}
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 013d       | =  |		.CONST	0x013d								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0004       |    |		.CONST	0x0004								; Number of locals
0133			INIT_0130:
0133 00db       |    |		Load_Top	At_Offset_3
0134 01db       |    |		Execute	Vector,Length
0135 00e3       |    |		Load_Encached	Natural_Cache
0136 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0137 e5fe       |    |		Load	0x2,-0x2
0138 01dd       |    |		Execute	Vector,First
0139 00e3       |    |		Load_Encached	Natural_Cache
013a 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
013b 00e3       |    |		Load_Encached	Natural_Cache
013c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
013d			BODY_0130:
013d e5ff       |    |		Load	0x2,-0x1
013e 0217       |    |		Execute	Heap_Access,All_Reference
013f 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0140 6809       |h   |		Jump_Zero	0x14a
0141 e5ff       |    |		Load	0x2,-0x1
0142 0219       |    |		Execute	Heap_Access,All_Read
0143 2c06       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
0144 00d8       |    |		Load_Top	At_Offset_0
0145 e5fe       |    |		Load	0x2,-0x2
0146 e21c       |    |		Load	0x1,0x1c
0147 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0148 00d2       |    |		Pop_Control	Pop_Count_2
0149 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
014a 00cf       |    |		Action	Mark_Auxiliary
014b 7832       |x2  |		Jump	0x17e
014c 4bec       |K   |		Short_Literal	0x3ec
014d e5ff       |    |		Load	0x2,-0x1
014e 0217       |    |		Execute	Heap_Access,All_Reference
014f 2406       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x6
0150 e21c       |    |		Load	0x1,0x1c
0151 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0152 0272       | r  |		Execute	Discrete,Minus
0153 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0154 4800       |H   |		Short_Literal	0x0
0155 4bec       |K   |		Short_Literal	0x3ec
0156 e224       | $  |		Load	0x1,0x24
0157 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0158 e5ff       |    |		Load	0x2,-0x1
0159 0217       |    |		Execute	Heap_Access,All_Reference
015a 2406       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x6
015b e21c       |    |		Load	0x1,0x1c
015c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
015d 01cc       |    |		Execute	Vector,Catenate
015e 00db       |    |		Load_Top	At_Offset_3
015f e403       |    |		Load	0x2,0x3
0160 e404       |    |		Load	0x2,0x4
0161 0273       | s  |		Execute	Discrete,Plus
0162 0aff       |    |		Execute_Immediate	Plus,-0x1
0163 00d8       |    |		Load_Top	At_Offset_0
0164 00e2       |    |		Load_Encached	Integer_Cache
0165 0260       | `  |		Execute	Discrete,In_Type
0166 7001       |p   |		Jump_Nonzero	0x168
0167 0801       |    |		Execute_Immediate	Raise,0x1
0168 e5fe       |    |		Load	0x2,-0x2
0169 01cf       |    |		Execute	Vector,Slice_Read
016a 01cc       |    |		Execute	Vector,Catenate
016b e5ff       |    |		Load	0x2,-0x1
016c e223       | #  |		Load	0x1,0x23
016d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
016e e5ff       |    |		Load	0x2,-0x1
016f 0219       |    |		Execute	Heap_Access,All_Read
0170 2c06       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
0171 00d8       |    |		Load_Top	At_Offset_0
0172 e21c       |    |		Load	0x1,0x1c
0173 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0174 00d2       |    |		Pop_Control	Pop_Count_2
0175 00db       |    |		Load_Top	At_Offset_3
0176 00da       |    |		Load_Top	At_Offset_2
0177 0272       | r  |		Execute	Discrete,Minus
0178 c402       |    |		Store	0x2,0x2
0179 00da       |    |		Load_Top	At_Offset_2
017a 00da       |    |		Load_Top	At_Offset_2
017b 0273       | s  |		Execute	Discrete,Plus
017c 005b       | [  |		Store_Top	Discrete,At_Offset_3
017d 00c9       |    |		Action	Pop_Auxiliary_Loop
017e e5ff       |    |		Load	0x2,-0x1
017f 0217       |    |		Execute	Heap_Access,All_Reference
0180 2406       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x6
0181 e21c       |    |		Load	0x1,0x1c
0182 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0183 e402       |    |		Load	0x2,0x2
0184 0273       | s  |		Execute	Discrete,Plus
0185 4bec       |K   |		Short_Literal	0x3ec
0186 027d       | }  |		Execute	Discrete,Greater
0187 77c4       |w   |		Jump_Nonzero	0x14c
0188 00ce       |    |		Action	Pop_Auxiliary
0189 e5ff       |    |		Load	0x2,-0x1
018a 0219       |    |		Execute	Heap_Access,All_Read
018b 2c06       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
018c 00d8       |    |		Load_Top	At_Offset_0
018d 00db       |    |		Load_Top	At_Offset_3
018e e5fe       |    |		Load	0x2,-0x2
018f 01dc       |    |		Execute	Vector,Last
0190 e5fe       |    |		Load	0x2,-0x2
0191 01cf       |    |		Execute	Vector,Slice_Read
0192 e21c       |    |		Load	0x1,0x1c
0193 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0194 00d2       |    |		Pop_Control	Pop_Count_2
0195 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0196 0000 0000  |    |		.XXX[0x2]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a2       |    |		.CONST	0x01a2								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0002       |    |		.CONST	0x0002								; Number of locals
019b			INIT_0198:
019b 00da       |    |		Load_Top	At_Offset_2
019c 0217       |    |		Execute	Heap_Access,All_Reference
019d 2406       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x6
019e e21c       |    |		Load	0x1,0x1c
019f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01a0 00e3       |    |		Load_Encached	Natural_Cache
01a1 03f1       |    |		Declare_Variable	Discrete,With_Value
01a2			BODY_0198:
01a2 00d8       |    |		Load_Top	At_Offset_0
01a3 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
01a4 681a       |h   |		Jump_Zero	0x1bf
01a5 00db       |    |		Load_Top	At_Offset_3
01a6 0217       |    |		Execute	Heap_Access,All_Reference
01a7 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01a8 6809       |h   |		Jump_Zero	0x1b2
01a9 00db       |    |		Load_Top	At_Offset_3
01aa 0217       |    |		Execute	Heap_Access,All_Reference
01ab 2406       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x6
01ac e21c       |    |		Load	0x1,0x1c
01ad 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01ae e5ff       |    |		Load	0x2,-0x1
01af e223       | #  |		Load	0x1,0x23
01b0 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01b1 780d       |x   |		Jump	0x1bf
01b2 4801       |H   |		Short_Literal	0x1
01b3 00d9       |    |		Load_Top	At_Offset_1
01b4 e224       | $  |		Load	0x1,0x24
01b5 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01b6 e5ff       |    |		Load	0x2,-0x1
01b7 0217       |    |		Execute	Heap_Access,All_Reference
01b8 2406       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x6
01b9 e21c       |    |		Load	0x1,0x1c
01ba 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01bb 01cc       |    |		Execute	Vector,Catenate
01bc e5ff       |    |		Load	0x2,-0x1
01bd e223       | #  |		Load	0x1,0x23
01be 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01bf 00db       |    |		Load_Top	At_Offset_3
01c0 0219       |    |		Execute	Heap_Access,All_Read
01c1 2c06       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
01c2 00d8       |    |		Load_Top	At_Offset_0
01c3 e21c       |    |		Load	0x1,0x1c
01c4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01c5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c6 0000 0000  |    |		.XXX[0x2]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d9       |    |		.CONST	0x01d9								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0004       |    |		.CONST	0x0004								; Number of locals
01cb			INIT_01c8:
01cb 4801       |H   |		Short_Literal	0x1
01cc 4804       |H   |		Short_Literal	0x4
01cd e002       |    |		Load	0x0,0x2
01ce 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01cf 035b       | [  |		Declare_Type	Array,Constrained
01d0 0337       | 7  |		Declare_Variable	Array
01d1 e5fd       |    |		Load	0x2,-0x3
01d2 01db       |    |		Execute	Vector,Length
01d3 00e3       |    |		Load_Encached	Natural_Cache
01d4 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
01d5 e5fd       |    |		Load	0x2,-0x3
01d6 01dd       |    |		Execute	Vector,First
01d7 00e3       |    |		Load_Encached	Natural_Cache
01d8 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
01d9			BODY_01c8:
01d9 e5ff       |    |		Load	0x2,-0x1
01da 0217       |    |		Execute	Heap_Access,All_Reference
01db 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01dc 0f01       |    |		Execute_Immediate	Equal,0x1
01dd 7084       |p   |		Jump_Nonzero	0x262
01de e5ff       |    |		Load	0x2,-0x1
01df 8213       |    |		Call	0x1,0x13
01e0 681a       |h   |		Jump_Zero	0x1fb
01e1 00da       |    |		Load_Top	At_Offset_2
01e2 4801       |H   |		Short_Literal	0x1
01e3 e5ff       |    |		Load	0x2,-0x1
01e4 e223       | #  |		Load	0x1,0x23
01e5 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01e6 00d1       |    |		Pop_Control	Pop_Count_1
01e7 e5ff       |    |		Load	0x2,-0x1
01e8 0219       |    |		Execute	Heap_Access,All_Read
01e9 e5ff       |    |		Load	0x2,-0x1
01ea 0219       |    |		Execute	Heap_Access,All_Read
01eb 00e3       |    |		Load_Encached	Natural_Cache
01ec 00da       |    |		Load_Top	At_Offset_2
01ed 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
01ee 00d1       |    |		Pop_Control	Pop_Count_1
01ef 00e1       |    |		Load_Encached	Boolean_Cache
01f0 00da       |    |		Load_Top	At_Offset_2
01f1 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
01f2 00d1       |    |		Pop_Control	Pop_Count_1
01f3 e402       |    |		Load	0x2,0x2
01f4 e224       | $  |		Load	0x1,0x24
01f5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01f6 00da       |    |		Load_Top	At_Offset_2
01f7 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
01f8 00da       |    |		Load_Top	At_Offset_2
01f9 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
01fa 00d2       |    |		Pop_Control	Pop_Count_2
01fb 00cf       |    |		Action	Mark_Auxiliary
01fc 7843       |xC  |		Jump	0x240
01fd e5ff       |    |		Load	0x2,-0x1
01fe 0217       |    |		Execute	Heap_Access,All_Reference
01ff 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0200 6801       |h   |		Jump_Zero	0x202
0201 08e0       |    |		Execute_Immediate	Raise,0xe0
0202 e5fd       |    |		Load	0x2,-0x3
0203 00da       |    |		Load_Top	At_Offset_2
0204 00db       |    |		Load_Top	At_Offset_3
0205 e5ff       |    |		Load	0x2,-0x1
0206 0217       |    |		Execute	Heap_Access,All_Reference
0207 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0208 0273       | s  |		Execute	Discrete,Plus
0209 0aff       |    |		Execute_Immediate	Plus,-0x1
020a 00d8       |    |		Load_Top	At_Offset_0
020b 00e2       |    |		Load_Encached	Integer_Cache
020c 0260       | `  |		Execute	Discrete,In_Type
020d 7001       |p   |		Jump_Nonzero	0x20f
020e 0801       |    |		Execute_Immediate	Raise,0x1
020f 00da       |    |		Load_Top	At_Offset_2
0210 035b       | [  |		Declare_Type	Array,Constrained
0211 00d0       |    |		Action	Swap_Control
0212 01cd       |    |		Execute	Vector,Slice_Reference
0213 00d8       |    |		Load_Top	At_Offset_0
0214 4801       |H   |		Short_Literal	0x1
0215 e5ff       |    |		Load	0x2,-0x1
0216 e223       | #  |		Load	0x1,0x23
0217 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0218 00d2       |    |		Pop_Control	Pop_Count_2
0219 00d9       |    |		Load_Top	At_Offset_1
021a e5ff       |    |		Load	0x2,-0x1
021b 0217       |    |		Execute	Heap_Access,All_Reference
021c 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
021d 0273       | s  |		Execute	Discrete,Plus
021e 005a       | Z  |		Store_Top	Discrete,At_Offset_2
021f 00da       |    |		Load_Top	At_Offset_2
0220 e5ff       |    |		Load	0x2,-0x1
0221 0217       |    |		Execute	Heap_Access,All_Reference
0222 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0223 0272       | r  |		Execute	Discrete,Minus
0224 005b       | [  |		Store_Top	Discrete,At_Offset_3
0225 00db       |    |		Load_Top	At_Offset_3
0226 4801       |H   |		Short_Literal	0x1
0227 e5ff       |    |		Load	0x2,-0x1
0228 e223       | #  |		Load	0x1,0x23
0229 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
022a 00d1       |    |		Pop_Control	Pop_Count_1
022b e5ff       |    |		Load	0x2,-0x1
022c 0219       |    |		Execute	Heap_Access,All_Read
022d e5ff       |    |		Load	0x2,-0x1
022e 0219       |    |		Execute	Heap_Access,All_Read
022f 00e3       |    |		Load_Encached	Natural_Cache
0230 00da       |    |		Load_Top	At_Offset_2
0231 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0232 00d1       |    |		Pop_Control	Pop_Count_1
0233 00e1       |    |		Load_Encached	Boolean_Cache
0234 00da       |    |		Load_Top	At_Offset_2
0235 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0236 00d1       |    |		Pop_Control	Pop_Count_1
0237 e402       |    |		Load	0x2,0x2
0238 e224       | $  |		Load	0x1,0x24
0239 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
023a 00da       |    |		Load_Top	At_Offset_2
023b 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
023c 00da       |    |		Load_Top	At_Offset_2
023d 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
023e 00d2       |    |		Pop_Control	Pop_Count_2
023f 00c9       |    |		Action	Pop_Auxiliary_Loop
0240 00da       |    |		Load_Top	At_Offset_2
0241 e5ff       |    |		Load	0x2,-0x1
0242 0217       |    |		Execute	Heap_Access,All_Reference
0243 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0244 027d       | }  |		Execute	Discrete,Greater
0245 77b7       |w   |		Jump_Nonzero	0x1fd
0246 00ce       |    |		Action	Pop_Auxiliary
0247 e5fd       |    |		Load	0x2,-0x3
0248 00d9       |    |		Load_Top	At_Offset_1
0249 e5fd       |    |		Load	0x2,-0x3
024a 01dc       |    |		Execute	Vector,Last
024b 00da       |    |		Load_Top	At_Offset_2
024c 035b       | [  |		Declare_Type	Array,Constrained
024d 00d0       |    |		Action	Swap_Control
024e 01cd       |    |		Execute	Vector,Slice_Reference
024f 00d8       |    |		Load_Top	At_Offset_0
0250 4801       |H   |		Short_Literal	0x1
0251 e5ff       |    |		Load	0x2,-0x1
0252 e223       | #  |		Load	0x1,0x23
0253 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0254 00d2       |    |		Pop_Control	Pop_Count_2
0255 e5ff       |    |		Load	0x2,-0x1
0256 0217       |    |		Execute	Heap_Access,All_Reference
0257 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0258 e5fd       |    |		Load	0x2,-0x3
0259 01dc       |    |		Execute	Vector,Last
025a 00da       |    |		Load_Top	At_Offset_2
025b 0272       | r  |		Execute	Discrete,Minus
025c 0a01       |    |		Execute_Immediate	Plus,0x1
025d 0272       | r  |		Execute	Discrete,Minus
025e e5ff       |    |		Load	0x2,-0x1
025f 0217       |    |		Execute	Heap_Access,All_Reference
0260 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
0261 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0262 e5ff       |    |		Load	0x2,-0x1
0263 8213       |    |		Call	0x1,0x13
0264 680b       |h   |		Jump_Zero	0x270
0265 e5ff       |    |		Load	0x2,-0x1
0266 0219       |    |		Execute	Heap_Access,All_Read
0267 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0268 00d8       |    |		Load_Top	At_Offset_0
0269 e5fe       |    |		Load	0x2,-0x2
026a e5ff       |    |		Load	0x2,-0x1
026b e223       | #  |		Load	0x1,0x23
026c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
026d e21c       |    |		Load	0x1,0x1c
026e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
026f 00d2       |    |		Pop_Control	Pop_Count_2
0270 e5ff       |    |		Load	0x2,-0x1
0271 0219       |    |		Execute	Heap_Access,All_Read
0272 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0273 e5fd       |    |		Load	0x2,-0x3
0274 00d9       |    |		Load_Top	At_Offset_1
0275 e5fe       |    |		Load	0x2,-0x2
0276 e21c       |    |		Load	0x1,0x1c
0277 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0278 00d3       |    |		Pop_Control	Pop_Count_3
0279 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
027a 0000 0000  |    |		.BLANK	0000[0x6]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 00da       |    |		Load_Top	At_Offset_2
0284 0217       |    |		Execute	Heap_Access,All_Reference
0285 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0286 0f01       |    |		Execute_Immediate	Equal,0x1
0287 7009       |p   |		Jump_Nonzero	0x291
0288 00da       |    |		Load_Top	At_Offset_2
0289 0217       |    |		Execute	Heap_Access,All_Reference
028a 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
028b 00db       |    |		Load_Top	At_Offset_3
028c 0217       |    |		Execute	Heap_Access,All_Reference
028d 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
028e 0f00       |    |		Execute_Immediate	Equal,0x0
028f 0279       | y  |		Execute	Discrete,And
0290 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0291 00da       |    |		Load_Top	At_Offset_2
0292 0217       |    |		Execute	Heap_Access,All_Reference
0293 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0294 e21c       |    |		Load	0x1,0x1c
0295 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0296 0d01       |    |		Execute_Immediate	Less,0x1
0297 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 00da       |    |		Load_Top	At_Offset_2
029c 8211       |    |		Call	0x1,0x11
029d 00da       |    |		Load_Top	At_Offset_2
029e 0217       |    |		Execute	Heap_Access,All_Reference
029f 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02a0 e003       |    |		Load	0x0,0x3
02a1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02a2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02a3 0000 0000  |    |		.BLANK	0000[0x5]
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 00da       |    |		Load_Top	At_Offset_2
02ac 8211       |    |		Call	0x1,0x11
02ad 00da       |    |		Load_Top	At_Offset_2
02ae 0217       |    |		Execute	Heap_Access,All_Reference
02af 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02b0 e003       |    |		Load	0x0,0x3
02b1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02b2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02b3 0000 0000  |    |		.BLANK	0000[0x5]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb       |    |		.CONST	0x02bb								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0001       |    |		.CONST	0x0001								; Number of locals
02bb			BODY_02b8:
02bb			INIT_02b8:
02bb 00da       |    |		Load_Top	At_Offset_2
02bc 0217       |    |		Execute	Heap_Access,All_Reference
02bd 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
02be e005       |    |		Load	0x0,0x5
02bf 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
02c0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c1 0000 0000  |    |		.BLANK	0000[0x7]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb 00da       |    |		Load_Top	At_Offset_2
02cc 0217       |    |		Execute	Heap_Access,All_Reference
02cd 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02ce 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02cf 0000       |    |		.XXX[0x1]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3       |    |		.CONST	0x02d3								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0001       |    |		.CONST	0x0001								; Number of locals
02d3			BODY_02d0:
02d3			INIT_02d0:
02d3 00da       |    |		Load_Top	At_Offset_2
02d4 0217       |    |		Execute	Heap_Access,All_Reference
02d5 2c05       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
02d6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02d7 0000       |    |		.XXX[0x1]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db       |    |		.CONST	0x02db								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0001       |    |		.CONST	0x0001								; Number of locals
02db			BODY_02d8:
02db			INIT_02d8:
02db 4608       |F   |		Jump_Case	0x9
02dc 7808       |x   |		Jump	0x2e5								; case 0x0
02dd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02de 783a       |x:  |		Jump	0x319								; case 0x2
02df 7839       |x9  |		Jump	0x319								; case 0x3
02e0 7838       |x8  |		Jump	0x319								; case 0x4
02e1 7837       |x7  |		Jump	0x319								; case 0x5
02e2 781e       |x   |		Jump	0x301								; case 0x6
02e3 7824       |x$  |		Jump	0x308								; case 0x7
02e4 782d       |x-  |		Jump	0x312								; case 0x8
02e5 00da       |    |		Load_Top	At_Offset_2
02e6 2202       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x2
02e7 00da       |    |		Load_Top	At_Offset_2
02e8 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
02e9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02ea 00da       |    |		Load_Top	At_Offset_2
02eb 2203       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x3
02ec 00da       |    |		Load_Top	At_Offset_2
02ed 2403       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
02ee 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02ef 00da       |    |		Load_Top	At_Offset_2
02f0 2406       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x6
02f1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02f2 00da       |    |		Load_Top	At_Offset_2
02f3 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02f4 0f01       |    |		Execute_Immediate	Equal,0x1
02f5 7007       |p   |		Jump_Nonzero	0x2fd
02f6 4801       |H   |		Short_Literal	0x1
02f7 00db       |    |		Load_Top	At_Offset_3
02f8 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
02f9 4800       |H   |		Short_Literal	0x0
02fa 00db       |    |		Load_Top	At_Offset_3
02fb 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
02fc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02fd 00da       |    |		Load_Top	At_Offset_2
02fe 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
02ff 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0300 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0301 00db       |    |		Load_Top	At_Offset_3
0302 0f01       |    |		Execute_Immediate	Equal,0x1
0303 7002       |p   |		Jump_Nonzero	0x306
0304 4802       |H   |		Short_Literal	0x2
0305 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0306 4801       |H   |		Short_Literal	0x1
0307 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0308 00db       |    |		Load_Top	At_Offset_3
0309 e5fe       |    |		Load	0x2,-0x2
030a 0f01       |    |		Execute_Immediate	Equal,0x1
030b 7002       |p   |		Jump_Nonzero	0x30e
030c 4802       |H   |		Short_Literal	0x2
030d 7801       |x   |		Jump	0x30f
030e 4801       |H   |		Short_Literal	0x1
030f e5ff       |    |		Load	0x2,-0x1
0310 031b       |    |		Declare_Type	Variant_Record,Constrained
0311 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0312 00db       |    |		Load_Top	At_Offset_3
0313 e5fe       |    |		Load	0x2,-0x2
0314 e5ff       |    |		Load	0x2,-0x1
0315 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0316 e5ff       |    |		Load	0x2,-0x1
0317 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0318 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0319 0869       | i  |		Execute_Immediate	Raise,0x69
031a ; --------------------------------------------------------------------------------------
031a ; STRING TABLE
031a ; --------------------------------------------------------------------------------------
031a 0006       |    |		.STRTAB	0x0006->0x031d							; "RM_TCP_IP"
031b 000d       |    |		.STRTAB	0x000d->0x0321							; "UDP_IP"
031c 0011       |    |		.STREND 0x0011->0x0324
031d 524d 5f54  |RM_T|		.STRTAB_STRINGS
0325 0000 0000  |    |		.XXX[0x3]
0327 0000       |    |
0328 ; --------------------------------------------------------------------------------------
0328 ; Debug Table
0328 ; --------------------------------------------------------------------------------------
0328 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0xf428,0x0000,0x0001,0x0000
032e 0000 0675  |   u|		.XXX[0xe]
0330 0001 0404  |    |
0332 0000 0700  |    |
0334 0000 000b  |    |
0336 0000 1cab  |    |
0338 0776 a004  | v  |
033a 0800 04b8  |    |
033c 0000 0000  |    |		.BLANK	0000[0x4]
0340 0776 9404  | v  |		.XXX[0x24]
0342 0000 4c96  |  L |
0344 000d 0c08  |    |
0346 0000 4333  |  C3|
0348 0776 a004  | v  |
034a 0800 04b8  |    |
034c 0011 13f3  |    |
034e 00cc 0218  |    |
0350 0776 9404  | v  |
0352 0000 4cff  |  L |
0354 000d 0c08  |    |
0356 0000 2cd3  |  , |
0358 0776 a004  | v  |
035a 0000 17bf  |    |
035c 0009 9086  |    |
035e 0000 0675  |   u|
0360 0776 a004  | v  |
0362 0800 04b8  |    |
0364 0000 0000  |    |		.BLANK	0000[0x4]
0368 0776 a004  | v  |		.XXX[0xe]
036a 0800 0600  |    |
036c 0011 13f3  |    |
036e 00cc 0218  |    |
0370 0000 0480  |    |
0372 0014 2600  |  & |
0374 3023 ba00  |0#  |
0376 0000 0000  |    |		.BLANK	0000[0x4]
037a 1815 f740  |   @|		.XXX[0x10]
037c 0003 2bc0  |  + |
037e 0302 c0e8  |    |
0380 0302 cb80  |    |
0382 0002 84d0  |    |
0384 011d 3b50  |  ;P|
0386 0000 0000  |    |
0388 0605 b0b0  |    |
038a 0000 0000  |    |		.BLANK	0000[0x4]
038e 0007 8a20  |    |		.XXX[0x11]
0390 2800 0284  |(   |
0392 c040 342a  | @4*|
0394 0007 0060  |   `|
0396 5ac3 0000  |Z   |
0398 509a 0023  |P  #|
039a a76a 0000  | j  |
039c 0000 00c0  |    |
039e b8a6       |    |
039f 0000 0000  |    |		.BLANK	0000[0x5]
03a4 f144 0500  | D  |		.XXX[0x2e]
03a6 0050 9808  | P  |
03a8 0685 4000  |  @ |
03aa e00c 0b81  |    |
03ac 7ff8 0002  |    |
03ae 84c0 0005  |    |
03b0 0a40 0c0b  | @  |
03b2 7180 0000  |q   |
03b4 0000 0000  |    |
03b6 0040 0000  | @  |
03b8 0000 0000  |    |
03ba 0020 000f  |    |
03bc 1440 0000  | @  |
03be 0000 0000  |    |
03c0 001f f800  |    |
03c2 0284 c000  |    |
03c4 0000 000c  |    |
03c6 0b9a 8000  |    |
03c8 0000 0000  |    |
03ca 0000 4000  |  @ |
03cc 0000 0000  |    |
03ce 0000 2000  |    |
03d0 0f14 4000  |  @ |
03d2 0000 0000  |    |		.BLANK	0000[0x4]
03d6 0001 2000  |    |		.XXX[0x12]
03d8 0509 a00c  |    |
03da 0af3 4000  |  @ |
03dc 0000 0000  |    |
03de 0000 0006  |    |
03e0 05e3 7000  |  p |
03e2 00ca f200  |    |
03e4 c0bc ee00  |    |
03e6 c0bf 9400  |    |
03e8 0000 0000  |    |		.BLANK	0000[0x4]
03ec 0011 13f3  |    |		.XXX[0x14]
03ee 00cc 0004  |    |
03f0 0001 0404  |    |
03f2 0000 0700  |    |
03f4 0011 13f3  |    |
03f6 00cc 1270  |   p|
03f8 fffc 0023  |   #|
03fa 5000 0001  |P   |
03fc 0000 0000  |    |
03fe 0000 0003  |    |