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

⟦b6fb9f984⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0580       |    |		.CONST	0x0580								; 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 008d       |    |		.CONST	0x008d								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0020       |    |		.CONST	0x0020								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4801       |H   |		Short_Literal	0x1
000d e001       |    |		Load	0x0,0x1
000e 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
000f 0334       | 4  |		Declare_Variable	Array,With_Constraint
0010 4800       |H   |		Short_Literal	0x0
0011 4800       |H   |		Short_Literal	0x0
0012 00da       |    |		Load_Top	At_Offset_2
0013 01d6       |    |		Execute	Vector,Field_Write
0014 48a1       |H   |		Short_Literal	0xa1
0015 4801       |H   |		Short_Literal	0x1
0016 00da       |    |		Load_Top	At_Offset_2
0017 01d6       |    |		Execute	Vector,Field_Write
0018 0129       | )  |		Execute	Any,Make_Visible
0019 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
001b 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
001d 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
001f 4800       |H   |		Short_Literal	0x0
0020 e002       |    |		Load	0x0,0x2
0021 02a0       |    |		Declare_Subprogram	Null_Subprogram
0022 038f       |    |		Declare_Type	Package,Defined,Visible
0023 0386       |    |		Declare_Variable	Package,Visible
0024 4800       |H   |		Short_Literal	0x0
0025 e003       |    |		Load	0x0,0x3
0026 02a0       |    |		Declare_Subprogram	Null_Subprogram
0027 038f       |    |		Declare_Type	Package,Defined,Visible
0028 0386       |    |		Declare_Variable	Package,Visible
0029 00bf       |    |		Action	Accept_Activation
002a e004       |    |		Load	0x0,0x4
002b 191e       |    |		Execute	Package,Field_Reference,Field_Number 0x1e
002c 0007       |    |		Action	Break_Optional
002d 4801       |H   |		Short_Literal	0x1
002e 4800       |H   |		Short_Literal	0x0
002f e005       |    |		Load	0x0,0x5
0030 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0031 035b       | [  |		Declare_Type	Array,Constrained
0032 0337       | 7  |		Declare_Variable	Array
0033 00d8       |    |		Load_Top	At_Offset_0
0034 0335       | 5  |		Declare_Variable	Array,Duplicate
0035 00cd       |    |		Action	Spare6_Action
0036 00d9       |    |		Load_Top	At_Offset_1
0037 01d4       |    |		Execute	Vector,Structure_Write
0038 e006       |    |		Load	0x0,0x6
0039 1b52       | R  |		Execute	Package,Field_Read,Field_Number 0x52
003a 0322       | "  |		Declare_Variable	Record
003b 4800       |H   |		Short_Literal	0x0
003c 00d9       |    |		Load_Top	At_Offset_1
003d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
003e 029d 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call
0040 029d 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call
0042 029d 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call
0044 029d 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call
0046 029d 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call
0048 029d 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call
004a 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 029d 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call
004e 029d 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call
0050 029d 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call
0052 029d 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call
0054 029d 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call
0056 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0059 00c7       |    |		Action	Elaborate_Subprogram
005a e007       |    |		Load	0x0,0x7
005b e008       |    |		Load	0x0,0x8
005c e009       |    |		Load	0x0,0x9
005d e00a       |    |		Load	0x0,0xa
005e e00b       |    |		Load	0x0,0xb
005f e00c       |    |		Load	0x0,0xc
0060 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0061 e00d       |    |		Load	0x0,0xd
0062 e004       |    |		Load	0x0,0x4
0063 e00e       |    |		Load	0x0,0xe
0064 e00f       |    |		Load	0x0,0xf
0065 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0066 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0067 00b6       |    |		Action	Make_Scope
0068 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0069 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
006a 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
006b 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
006c e010       |    |		Load	0x0,0x10
006d e011       |    |		Load	0x0,0x11
006e 4814       |H   |		Short_Literal	0x14
006f e211       |    |		Load	0x1,0x11
0070 020e       |    |		Execute	Module,Augment_Imports
0071 e211       |    |		Load	0x1,0x11
0072 020f       |    |		Execute	Module,Activate
0073 e007       |    |		Load	0x0,0x7
0074 e008       |    |		Load	0x0,0x8
0075 e004       |    |		Load	0x0,0x4
0076 e009       |    |		Load	0x0,0x9
0077 e012       |    |		Load	0x0,0x12
0078 e013       |    |		Load	0x0,0x13
0079 e00c       |    |		Load	0x0,0xc
007a 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
007b e00d       |    |		Load	0x0,0xd
007c e00e       |    |		Load	0x0,0xe
007d e00f       |    |		Load	0x0,0xf
007e 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
007f 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0080 e014       |    |		Load	0x0,0x14
0081 00b6       |    |		Action	Make_Scope
0082 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0083 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0084 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0085 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0086 e010       |    |		Load	0x0,0x10
0087 e011       |    |		Load	0x0,0x11
0088 4815       |H   |		Short_Literal	0x15
0089 e212       |    |		Load	0x1,0x12
008a 020e       |    |		Execute	Module,Augment_Imports
008b e212       |    |		Load	0x1,0x12
008c 020f       |    |		Execute	Module,Activate
008d			BODY_0008:
008d 00bc       |    |		Action	Signal_Activated
008e 00bb       |    |		Action	Signal_Completion
008f 0000       |    |		.XXX[0x1]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 00a2       |    |		.CONST	0x00a2								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0005       |    |		.CONST	0x0005								; Number of locals
0093			INIT_0090:
0093 00da       |    |		Load_Top	At_Offset_2
0094 01da       |    |		Execute	Vector,Bounds
0095 e007       |    |		Load	0x0,0x7
0096 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
0097 035b       | [  |		Declare_Type	Array,Constrained
0098 0337       | 7  |		Declare_Variable	Array
0099 00db       |    |		Load_Top	At_Offset_3
009a 00d9       |    |		Load_Top	At_Offset_1
009b 01d4       |    |		Execute	Vector,Structure_Write
009c 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
009e 029f 031b  |    |		Declare_Subprogram	INIT_0318,For_Call
00a0 029f 032b  |   +|		Declare_Subprogram	INIT_0328,For_Call
00a2			BODY_0090:
00a2 00cf       |    |		Action	Mark_Auxiliary
00a3 8405       |    |		Call	0x2,0x5
00a4 00c9       |    |		Action	Pop_Auxiliary_Loop
00a5 7ffd       |    |		Jump	0xa3
00a6 0000 0000  |    |		.XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00c3       |    |		.CONST	0x00c3								; Address of begin
00a9 00d1       |    |		.CONST	0x00d1								; Address of exception handler
00aa 0006       |    |		.CONST	0x0006								; Number of locals
00ab			INIT_00a8:
00ab e5fc       |    |		Load	0x2,-0x4
00ac e007       |    |		Load	0x0,0x7
00ad 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
00ae e008       |    |		Load	0x0,0x8
00af 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00b0 02c7       |    |		Declare_Variable	Any
00b1 00d8       |    |		Load_Top	At_Offset_0
00b2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b3 e007       |    |		Load	0x0,0x7
00b4 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
00b5 0322       | "  |		Declare_Variable	Record
00b6 e5ff       |    |		Load	0x2,-0x1
00b7 e007       |    |		Load	0x0,0x7
00b8 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00b9 00d9       |    |		Load_Top	At_Offset_1
00ba 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00bb e007       |    |		Load	0x0,0x7
00bc 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00bd 00d9       |    |		Load_Top	At_Offset_1
00be 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00bf 029f 036b  |   k|		Declare_Subprogram	INIT_0368,For_Call
00c1 029f 039b  |    |		Declare_Subprogram	INIT_0398,For_Call
00c3			BODY_00a8:
00c3 00db       |    |		Load_Top	At_Offset_3
00c4 e5fd       |    |		Load	0x2,-0x3
00c5 8220       |    |		Call	0x1,0x20
00c6 c403       |    |		Store	0x2,0x3
00c7 8405       |    |		Call	0x2,0x5
00c8 00cf       |    |		Action	Mark_Auxiliary
00c9 8406       |    |		Call	0x2,0x6
00ca 00c9       |    |		Action	Pop_Auxiliary_Loop
00cb 7ffd       |    |		Jump	0xc9
00cc 00ce       |    |		Action	Pop_Auxiliary
00cd 00db       |    |		Load_Top	At_Offset_3
00ce e008       |    |		Load	0x0,0x8
00cf 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00d0 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00d1			TRAP_00a8:
00d1 0007       |    |		Action	Break_Optional
00d2 e403       |    |		Load	0x2,0x3
00d3 e008       |    |		Load	0x0,0x8
00d4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00d5 00d8       |    |		Load_Top	At_Offset_0
00d6 0101       |    |		Execute	Exception,Reraise
00d7 0000       |    |		.XXX[0x1]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00e5       |    |		.CONST	0x00e5								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0004       |    |		.CONST	0x0004								; Number of locals
00db			INIT_00d8:
00db e5fd       |    |		Load	0x2,-0x3
00dc e007       |    |		Load	0x0,0x7
00dd 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
00de e008       |    |		Load	0x0,0x8
00df 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00e0 02c7       |    |		Declare_Variable	Any
00e1 00d8       |    |		Load_Top	At_Offset_0
00e2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00e3 029f 03d3  |    |		Declare_Subprogram	INIT_03d0,For_Call
00e5			BODY_00d8:
00e5 00d9       |    |		Load_Top	At_Offset_1
00e6 e5fe       |    |		Load	0x2,-0x2
00e7 8220       |    |		Call	0x1,0x20
00e8 c403       |    |		Store	0x2,0x3
00e9 8404       |    |		Call	0x2,0x4
00ea 0831       | 1  |		Execute_Immediate	Raise,0x31
00eb 0000 0000  |    |		.BLANK	0000[0x5]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f4       |    |		.CONST	0x00f4								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0002       |    |		.CONST	0x0002								; Number of locals
00f3			INIT_00f0:
00f3 00e5       |    |		Load_Encached	Long_Integer_Cache
00f4			BODY_00f0:
00f4 00e5       |    |		Load_Encached	Long_Integer_Cache
00f5 e215       |    |		Load	0x1,0x15
00f6 e006       |    |		Load	0x0,0x6
00f7 1853       | S  |		Execute	Package,Field_Execute,Field_Number 0x53
00f8 00d1       |    |		Pop_Control	Pop_Count_1
00f9 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00fa 00d8       |    |		Load_Top	At_Offset_0
00fb 00d8       |    |		Load_Top	At_Offset_0
00fc e004       |    |		Load	0x0,0x4
00fd 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00fe 0260       | `  |		Execute	Discrete,In_Type
00ff 7001       |p   |		Jump_Nonzero	0x101
0100 0801       |    |		Execute_Immediate	Raise,0x1
0101 00ca       |    |		Action	Exit_Nullary_Function
0102 0000 0000  |    |		.BLANK	0000[0x6]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 00da       |    |		Load_Top	At_Offset_2
010c 680d       |h   |		Jump_Zero	0x11a
010d e010       |    |		Load	0x0,0x10
010e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
010f 4807       |H   |		Short_Literal	0x7
0110 e5fe       |    |		Load	0x2,-0x2
0111 0092 04cb  |    |		Action	Push_String_Extended,0x4cb					; ".Status = "
0113 01cc       |    |		Execute	Vector,Catenate
0114 e5ff       |    |		Load	0x2,-0x1
0115 e015       |    |		Load	0x0,0x15
0116 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0117 01cc       |    |		Execute	Vector,Catenate
0118 e011       |    |		Load	0x0,0x11
0119 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
011a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
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 00da       |    |		Load_Top	At_Offset_2
0124 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0125 4604       |F   |		Jump_Case	0x5
0126 7805       |x   |		Jump	0x12c								; case 0x0
0127 7808       |x   |		Jump	0x130								; case 0x1
0128 780b       |x   |		Jump	0x134								; case 0x2
0129 780e       |x   |		Jump	0x138								; case 0x3
012a 7800       |x   |		Jump	0x12b								; case 0x4
012b 08e0       |    |		Execute_Immediate	Raise,0xe0
012c 00da       |    |		Load_Top	At_Offset_2
012d 2706       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x6
012e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
012f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0130 00da       |    |		Load_Top	At_Offset_2
0131 2707       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x7
0132 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0133 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0134 00da       |    |		Load_Top	At_Offset_2
0135 2708       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x8
0136 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0137 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0138 00da       |    |		Load_Top	At_Offset_2
0139 2709       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x9
013a 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
013b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
013c 0000 0000  |    |		.BLANK	0000[0x4]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0158       | X  |		.CONST	0x0158								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0007       |    |		.CONST	0x0007								; Number of locals
0143			INIT_0140:
0143 4801       |H   |		Short_Literal	0x1
0144 e010       |    |		Load	0x0,0x10
0145 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0146 e010       |    |		Load	0x0,0x10
0147 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0148 01d7       |    |		Execute	Vector,Field_Read
0149 0007       |    |		Action	Break_Optional
014a e5fe       |    |		Load	0x2,-0x2
014b e007       |    |		Load	0x0,0x7
014c 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
014d 4801       |H   |		Short_Literal	0x1
014e e5fd       |    |		Load	0x2,-0x3
014f e005       |    |		Load	0x0,0x5
0150 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0151 035b       | [  |		Declare_Type	Array,Constrained
0152 0337       | 7  |		Declare_Variable	Array
0153 e015       |    |		Load	0x0,0x15
0154 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0155 00e3       |    |		Load_Encached	Natural_Cache
0156 029f 040b  |    |		Declare_Subprogram	INIT_0408,For_Call
0158			BODY_0140:
0158 00e3       |    |		Load_Encached	Natural_Cache
0159 e015       |    |		Load	0x0,0x15
015a 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
015b 4800       |H   |		Short_Literal	0x0
015c 604b       |`K  |		Indirect_Literal	Discrete,0x1a8,{0x00007fff, 0xffffffff}
015d e403       |    |		Load	0x2,0x3
015e e5ff       |    |		Load	0x2,-0x1
015f e008       |    |		Load	0x0,0x8
0160 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0161 c405       |    |		Store	0x2,0x5
0162 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0163 0092 04cc  |    |		Action	Push_String_Extended,0x4cc					; "Transport.Transmit"
0165 00db       |    |		Load_Top	At_Offset_3
0166 8217       |    |		Call	0x1,0x17
0167 e402       |    |		Load	0x2,0x2
0168 680e       |h   |		Jump_Zero	0x177
0169 e010       |    |		Load	0x0,0x10
016a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
016b 4801       |H   |		Short_Literal	0x1
016c 0092 04cd  |    |		Action	Push_String_Extended,0x4cd					; "Transmitted "
016e 4801       |H   |		Short_Literal	0x1
016f e406       |    |		Load	0x2,0x6
0170 e403       |    |		Load	0x2,0x3
0171 01cf       |    |		Execute	Vector,Slice_Read
0172 e004       |    |		Load	0x0,0x4
0173 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0174 01cc       |    |		Execute	Vector,Catenate
0175 e011       |    |		Load	0x0,0x11
0176 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0177 00d9       |    |		Load_Top	At_Offset_1
0178 e403       |    |		Load	0x2,0x3
0179 01db       |    |		Execute	Vector,Length
017a 027c       | |  |		Execute	Discrete,Less
017b 6807       |h   |		Jump_Zero	0x183
017c e010       |    |		Load	0x0,0x10
017d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
017e 4807       |H   |		Short_Literal	0x7
017f 0092 04ce  |    |		Action	Push_String_Extended,0x4ce					; "Exchange.Length < Request_Encoding'Length"
0181 e011       |    |		Load	0x0,0x11
0182 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0183 00cf       |    |		Action	Mark_Auxiliary
0184 00e3       |    |		Load_Encached	Natural_Cache
0185 e404       |    |		Load	0x2,0x4
0186 e015       |    |		Load	0x0,0x15
0187 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0188 e5fc       |    |		Load	0x2,-0x4
0189 e5ff       |    |		Load	0x2,-0x1
018a e008       |    |		Load	0x0,0x8
018b 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
018c c405       |    |		Store	0x2,0x5
018d 00d1       |    |		Pop_Control	Pop_Count_1
018e 005b       | [  |		Store_Top	Discrete,At_Offset_3
018f 0092 04cf  |    |		Action	Push_String_Extended,0x4cf					; "Transport.Receive"
0191 e405       |    |		Load	0x2,0x5
0192 8217       |    |		Call	0x1,0x17
0193 e402       |    |		Load	0x2,0x2
0194 680e       |h   |		Jump_Zero	0x1a3
0195 e010       |    |		Load	0x0,0x10
0196 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0197 4801       |H   |		Short_Literal	0x1
0198 0092 04d0  |    |		Action	Push_String_Extended,0x4d0					; "Received "
019a 4801       |H   |		Short_Literal	0x1
019b e406       |    |		Load	0x2,0x6
019c e404       |    |		Load	0x2,0x4
019d 01cf       |    |		Execute	Vector,Slice_Read
019e e004       |    |		Load	0x0,0x4
019f 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01a0 01cc       |    |		Execute	Vector,Catenate
01a1 e011       |    |		Load	0x0,0x11
01a2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01a3 8407       |    |		Call	0x2,0x7
01a4 00c9       |    |		Action	Pop_Auxiliary_Loop
01a5 7fde       |    |		Jump	0x184
01a6 0000 0000  |    |		.XXX[0x2]
01a8 0000 7fff  |    |		.LITERAL	{0x00007fff, 0xffffffff}
01ac 0000 0000  |    |		.BLANK	0000[0x4]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b6       |    |		.CONST	0x01b6								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0002       |    |		.CONST	0x0002								; Number of locals
01b3			INIT_01b0:
01b3 00da       |    |		Load_Top	At_Offset_2
01b4 e007       |    |		Load	0x0,0x7
01b5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01b6			BODY_01b0:
01b6 00db       |    |		Load_Top	At_Offset_3
01b7 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01b8 e00f       |    |		Load	0x0,0xf
01b9 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01ba 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01bb 017f       |    |		Execute	Record,Equal
01bc 6804       |h   |		Jump_Zero	0x1c1
01bd 00d8       |    |		Load_Top	At_Offset_0
01be e016       |    |		Load	0x0,0x16
01bf 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01c0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c1 00db       |    |		Load_Top	At_Offset_3
01c2 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01c3 e004       |    |		Load	0x0,0x4
01c4 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
01c5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01c6 017f       |    |		Execute	Record,Equal
01c7 7015       |p   |		Jump_Nonzero	0x1dd
01c8 00db       |    |		Load_Top	At_Offset_3
01c9 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01ca e00f       |    |		Load	0x0,0xf
01cb 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01cc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01cd 017f       |    |		Execute	Record,Equal
01ce 700e       |p   |		Jump_Nonzero	0x1dd
01cf 00db       |    |		Load_Top	At_Offset_3
01d0 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01d1 e00f       |    |		Load	0x0,0xf
01d2 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01d3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01d4 017f       |    |		Execute	Record,Equal
01d5 7007       |p   |		Jump_Nonzero	0x1dd
01d6 00db       |    |		Load_Top	At_Offset_3
01d7 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01d8 e00f       |    |		Load	0x0,0xf
01d9 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01da 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01db 017f       |    |		Execute	Record,Equal
01dc 6806       |h   |		Jump_Zero	0x1e3
01dd 00d8       |    |		Load_Top	At_Offset_0
01de e00e       |    |		Load	0x0,0xe
01df 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01e0 00e0       |    |		Load_Encached	Standard_Cache
01e1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01e2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e3 00d8       |    |		Load_Top	At_Offset_0
01e4 e004       |    |		Load	0x0,0x4
01e5 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01e6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e7 0000       |    |		.XXX[0x1]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb 00da       |    |		Load_Top	At_Offset_2
01ec 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
01ed 680e       |h   |		Jump_Zero	0x1fc
01ee e010       |    |		Load	0x0,0x10
01ef 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01f0 4807       |H   |		Short_Literal	0x7
01f1 0092 04d1  |    |		Action	Push_String_Extended,0x4d1					; "Response.Version ="
01f3 e5ff       |    |		Load	0x2,-0x1
01f4 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
01f5 00e0       |    |		Load_Encached	Standard_Cache
01f6 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01f7 01cc       |    |		Execute	Vector,Catenate
01f8 e011       |    |		Load	0x0,0x11
01f9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01fa 4800       |H   |		Short_Literal	0x0
01fb 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01fc 00da       |    |		Load_Top	At_Offset_2
01fd 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01fe e5fe       |    |		Load	0x2,-0x2
01ff 027f       |    |		Execute	Discrete,Equal
0200 7010       |p   |		Jump_Nonzero	0x211
0201 e010       |    |		Load	0x0,0x10
0202 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0203 4807       |H   |		Short_Literal	0x7
0204 0092 04d2  |    |		Action	Push_String_Extended,0x4d2					; "Response.Kind ="
0206 e5ff       |    |		Load	0x2,-0x1
0207 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0208 e007       |    |		Load	0x0,0x7
0209 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
020a 011c       |    |		Execute	Any,Convert_Unchecked
020b 1c01       |    |		Execute_Immediate	Run_Utility,0x1
020c 01cc       |    |		Execute	Vector,Catenate
020d e011       |    |		Load	0x0,0x11
020e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
020f 4800       |H   |		Short_Literal	0x0
0210 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0211 00da       |    |		Load_Top	At_Offset_2
0212 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0213 e5fd       |    |		Load	0x2,-0x3
0214 027e       | ~  |		Execute	Discrete,Not_Equal
0215 680e       |h   |		Jump_Zero	0x224
0216 e010       |    |		Load	0x0,0x10
0217 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0218 4807       |H   |		Short_Literal	0x7
0219 0092 04d3  |    |		Action	Push_String_Extended,0x4d3					; "Response.Variables ="
021b e5ff       |    |		Load	0x2,-0x1
021c 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
021d 00e0       |    |		Load_Encached	Standard_Cache
021e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
021f 01cc       |    |		Execute	Vector,Catenate
0220 e011       |    |		Load	0x0,0x11
0221 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0222 4800       |H   |		Short_Literal	0x0
0223 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0224 00da       |    |		Load_Top	At_Offset_2
0225 2708       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x8
0226 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0227 681d       |h   |		Jump_Zero	0x245
0228 e010       |    |		Load	0x0,0x10
0229 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
022a 4807       |H   |		Short_Literal	0x7
022b 0092 04d4  |    |		Action	Push_String_Extended,0x4d4					; "Response.Get_Response.Error_Status = "
022d e5ff       |    |		Load	0x2,-0x1
022e 2708       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x8
022f 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0230 e007       |    |		Load	0x0,0x7
0231 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0232 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0233 01cc       |    |		Execute	Vector,Catenate
0234 e011       |    |		Load	0x0,0x11
0235 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0236 e010       |    |		Load	0x0,0x10
0237 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0238 4807       |H   |		Short_Literal	0x7
0239 0092 04d5  |    |		Action	Push_String_Extended,0x4d5					; "Response.Get_Response.Error_Index ="
023b e5ff       |    |		Load	0x2,-0x1
023c 2708       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x8
023d 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
023e 00e0       |    |		Load_Encached	Standard_Cache
023f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0240 01cc       |    |		Execute	Vector,Catenate
0241 e011       |    |		Load	0x0,0x11
0242 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0243 4800       |H   |		Short_Literal	0x0
0244 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0245 4801       |H   |		Short_Literal	0x1
0246 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0247 0000       |    |		.XXX[0x1]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b       | K  |		.CONST	0x024b								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0001       |    |		.CONST	0x0001								; Number of locals
024b			BODY_0248:
024b			INIT_0248:
024b 4820       |H   |		Short_Literal	0x20
024c 00db       |    |		Load_Top	At_Offset_3
024d 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
024e e007       |    |		Load	0x0,0x7
024f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0250 e009       |    |		Load	0x0,0x9
0251 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0252 0092 04d6  |    |		Action	Push_String_Extended,0x4d6					; " = "
0254 01cc       |    |		Execute	Vector,Catenate
0255 e5ff       |    |		Load	0x2,-0x1
0256 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0257 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0258 e00f       |    |		Load	0x0,0xf
0259 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
025a 01cc       |    |		Execute	Vector,Catenate
025b 01cb       |    |		Execute	Vector,Append
025c 00db       |    |		Load_Top	At_Offset_3
025d 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
025e 821a       |    |		Call	0x1,0x1a
025f 01cc       |    |		Execute	Vector,Catenate
0260 e00d       |    |		Load	0x0,0xd
0261 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0262 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0263 0000 0000  |    |		.BLANK	0000[0x5]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b       | k  |		.CONST	0x026b								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0001       |    |		.CONST	0x0001								; Number of locals
026b			BODY_0268:
026b			INIT_0268:
026b 00cf       |    |		Action	Mark_Auxiliary
026c 00db       |    |		Load_Top	At_Offset_3
026d 01d9       |    |		Execute	Vector,Reverse_Bounds
026e 0263       | c  |		Execute	Discrete,Above_Bound
026f 7006       |p   |		Jump_Nonzero	0x276
0270 00d8       |    |		Load_Top	At_Offset_0
0271 e5ff       |    |		Load	0x2,-0x1
0272 01d5       |    |		Execute	Vector,Field_Reference
0273 821c       |    |		Call	0x1,0x1c
0274 00c8       |    |		Action	Pop_Auxiliary_Range
0275 3ffa       |?   |		Loop_Increasing	0x270
0276 4502       |E   |		Exit_Suprogram	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 00cf       |    |		Action	Mark_Auxiliary
027c 00db       |    |		Load_Top	At_Offset_3
027d 01d9       |    |		Execute	Vector,Reverse_Bounds
027e 0263       | c  |		Execute	Discrete,Above_Bound
027f 7011       |p   |		Jump_Nonzero	0x291
0280 00d8       |    |		Load_Top	At_Offset_0
0281 e5ff       |    |		Load	0x2,-0x1
0282 01d5       |    |		Execute	Vector,Field_Reference
0283 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0284 e007       |    |		Load	0x0,0x7
0285 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0286 e5fe       |    |		Load	0x2,-0x2
0287 e004       |    |		Load	0x0,0x4
0288 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0289 6805       |h   |		Jump_Zero	0x28f
028a 00d8       |    |		Load_Top	At_Offset_0
028b e5ff       |    |		Load	0x2,-0x1
028c 01d5       |    |		Execute	Vector,Field_Reference
028d 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
028e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
028f 00c8       |    |		Action	Pop_Auxiliary_Range
0290 3fef       |?   |		Loop_Increasing	0x280
0291 00ce       |    |		Action	Pop_Auxiliary
0292 e007       |    |		Load	0x0,0x7
0293 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0294 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0295 0000 0000  |    |		.XXX[0x3]
0297 0000       |    |
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b       |    |		.CONST	0x029b								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0001       |    |		.CONST	0x0001								; Number of locals
029b			BODY_0298:
029b			INIT_0298:
029b 00da       |    |		Load_Top	At_Offset_2
029c 01db       |    |		Execute	Vector,Length
029d 7016       |p   |		Jump_Nonzero	0x2b4
029e 4800       |H   |		Short_Literal	0x0
029f 4803       |H   |		Short_Literal	0x3
02a0 e001       |    |		Load	0x0,0x1
02a1 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
02a2 0334       | 4  |		Declare_Variable	Array,With_Constraint
02a3 487f       |H   |		Short_Literal	0x7f
02a4 4800       |H   |		Short_Literal	0x0
02a5 00da       |    |		Load_Top	At_Offset_2
02a6 01d6       |    |		Execute	Vector,Field_Write
02a7 4800       |H   |		Short_Literal	0x0
02a8 4801       |H   |		Short_Literal	0x1
02a9 00da       |    |		Load_Top	At_Offset_2
02aa 01d6       |    |		Execute	Vector,Field_Write
02ab 4800       |H   |		Short_Literal	0x0
02ac 4802       |H   |		Short_Literal	0x2
02ad 00da       |    |		Load_Top	At_Offset_2
02ae 01d6       |    |		Execute	Vector,Field_Write
02af 4800       |H   |		Short_Literal	0x0
02b0 4803       |H   |		Short_Literal	0x3
02b1 00da       |    |		Load_Top	At_Offset_2
02b2 01d6       |    |		Execute	Vector,Field_Write
02b3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02b4 00da       |    |		Load_Top	At_Offset_2
02b5 e017       |    |		Load	0x0,0x17
02b6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02b7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bd       |    |		.CONST	0x02bd								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0002       |    |		.CONST	0x0002								; Number of locals
02bb			INIT_02b8:
02bb e015       |    |		Load	0x0,0x15
02bc 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
02bd			BODY_02b8:
02bd e015       |    |		Load	0x0,0x15
02be 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
02bf e5fe       |    |		Load	0x2,-0x2
02c0 0120       |    |		Execute	Any,Is_Value
02c1 6803       |h   |		Jump_Zero	0x2c5
02c2 e008       |    |		Load	0x0,0x8
02c3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02c4 7801       |x   |		Jump	0x2c6
02c5 e5fe       |    |		Load	0x2,-0x2
02c6 e015       |    |		Load	0x0,0x15
02c7 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
02c8 4801       |H   |		Short_Literal	0x1
02c9 4806       |H   |		Short_Literal	0x6
02ca 00e9       |    |		Load_Encached	String_Cache
02cb 0334       | 4  |		Declare_Variable	Array,With_Constraint
02cc 501b       |P   |		Indirect_Literal	Any,0x2e8,{0x5544502f, 0x49502020}
02cd e008       |    |		Load	0x0,0x8
02ce 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
02cf c5fe       |    |		Store	0x2,-0x2
02d0 0059       | Y  |		Store_Top	Discrete,At_Offset_1
02d1 0092 04d7  |    |		Action	Push_String_Extended,0x4d7					; "Transport.Open"
02d3 00d9       |    |		Load_Top	At_Offset_1
02d4 8217       |    |		Call	0x1,0x17
02d5 e015       |    |		Load	0x0,0x15
02d6 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
02d7 600c       |`   |		Indirect_Literal	Discrete,0x2e4,{0x00007fff, 0xffffffff}
02d8 e20d       |    |		Load	0x1,0xd
02d9 e5ff       |    |		Load	0x2,-0x1
02da 821f       |    |		Call	0x1,0x1f
02db e5fe       |    |		Load	0x2,-0x2
02dc e008       |    |		Load	0x0,0x8
02dd 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02de 0059       | Y  |		Store_Top	Discrete,At_Offset_1
02df 0092 04d8  |    |		Action	Push_String_Extended,0x4d8					; "Transport.Connect(Active)"
02e1 00d9       |    |		Load_Top	At_Offset_1
02e2 8217       |    |		Call	0x1,0x17
02e3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02e4 0000 7fff  |    |		.LITERAL	{0x00007fff, 0xffffffff}
02e8 5544 502f  |UDP/|		.LITERAL	{0x5544502f, 0x49502020}
02ec 0000 0000  |    |		.BLANK	0000[0x4]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3       |    |		.CONST	0x02f3								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0001       |    |		.CONST	0x0001								; Number of locals
02f3			BODY_02f0:
02f3			INIT_02f0:
02f3 00cf       |    |		Action	Mark_Auxiliary
02f4 e402       |    |		Load	0x2,0x2
02f5 01d9       |    |		Execute	Vector,Reverse_Bounds
02f6 0263       | c  |		Execute	Discrete,Above_Bound
02f7 7019       |p   |		Jump_Nonzero	0x311
02f8 00d8       |    |		Load_Top	At_Offset_0
02f9 e402       |    |		Load	0x2,0x2
02fa 01d5       |    |		Execute	Vector,Field_Reference
02fb 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02fc e007       |    |		Load	0x0,0x7
02fd 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02fe e7ff       |    |		Load	0x3,-0x1
02ff 01dd       |    |		Execute	Vector,First
0300 00da       |    |		Load_Top	At_Offset_2
0301 0273       | s  |		Execute	Discrete,Plus
0302 e402       |    |		Load	0x2,0x2
0303 01dd       |    |		Execute	Vector,First
0304 0272       | r  |		Execute	Discrete,Minus
0305 e7ff       |    |		Load	0x3,-0x1
0306 01d5       |    |		Execute	Vector,Field_Reference
0307 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0308 e007       |    |		Load	0x0,0x7
0309 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
030a 8213       |    |		Call	0x1,0x13
030b 6801       |h   |		Jump_Zero	0x30d
030c 7802       |x   |		Jump	0x30f
030d 4801       |H   |		Short_Literal	0x1
030e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
030f 00c8       |    |		Action	Pop_Auxiliary_Range
0310 3fe7       |?   |		Loop_Increasing	0x2f8
0311 00ce       |    |		Action	Pop_Auxiliary
0312 4800       |H   |		Short_Literal	0x0
0313 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0314 0000 0000  |    |		.BLANK	0000[0x4]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031d       |    |		.CONST	0x031d								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0002       |    |		.CONST	0x0002								; Number of locals
031b			INIT_0318:
031b 029f 0443  |   C|		Declare_Subprogram	INIT_0440,For_Call
031d			BODY_0318:
031d 00cf       |    |		Action	Mark_Auxiliary
031e e402       |    |		Load	0x2,0x2
031f 01d9       |    |		Execute	Vector,Reverse_Bounds
0320 0263       | c  |		Execute	Discrete,Above_Bound
0321 7003       |p   |		Jump_Nonzero	0x325
0322 8602       |    |		Call	0x3,0x2
0323 00c8       |    |		Action	Pop_Auxiliary_Range
0324 3ffd       |?   |		Loop_Increasing	0x322
0325 00ce       |    |		Action	Pop_Auxiliary
0326 4801       |H   |		Short_Literal	0x1
0327 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 033e       | >  |		.CONST	0x033e								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0003       |    |		.CONST	0x0003								; Number of locals
032b			INIT_0328:
032b 6034       |`4  |		Indirect_Literal	Discrete,0x360,{0x00000000, 0x00028000}
032c 602f       |`/  |		Indirect_Literal	Discrete,0x35c,{0x00000000, 0x00000800}
032d 4800       |H   |		Short_Literal	0x0
032e e402       |    |		Load	0x2,0x2
032f 4800       |H   |		Short_Literal	0x0
0330 4800       |H   |		Short_Literal	0x0
0331 8216       |    |		Call	0x1,0x16
0332 e007       |    |		Load	0x0,0x7
0333 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0334 e5fd       |    |		Load	0x2,-0x3
0335 4801       |H   |		Short_Literal	0x1
0336 e007       |    |		Load	0x0,0x7
0337 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0338 e5fe       |    |		Load	0x2,-0x2
0339 8219       |    |		Call	0x1,0x19
033a 00d8       |    |		Load_Top	At_Offset_0
033b 2708       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x8
033c 2505       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x5
033d 0007       |    |		Action	Break_Optional
033e			BODY_0328:
033e e5ff       |    |		Load	0x2,-0x1
033f 01db       |    |		Execute	Vector,Length
0340 00d8       |    |		Load_Top	At_Offset_0
0341 00e3       |    |		Load_Encached	Natural_Cache
0342 0260       | `  |		Execute	Discrete,In_Type
0343 7001       |p   |		Jump_Nonzero	0x345
0344 0801       |    |		Execute_Immediate	Raise,0x1
0345 4802       |H   |		Short_Literal	0x2
0346 00db       |    |		Load_Top	At_Offset_3
0347 821b       |    |		Call	0x1,0x1b
0348 7004       |p   |		Jump_Nonzero	0x34d
0349 e007       |    |		Load	0x0,0x7
034a 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
034b 00cb       |    |		Action	Pop_Block_With_Result
034c 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
034d 00d8       |    |		Load_Top	At_Offset_0
034e 8403       |    |		Call	0x2,0x3
034f 7003       |p   |		Jump_Nonzero	0x353
0350 00d8       |    |		Load_Top	At_Offset_0
0351 00cb       |    |		Action	Pop_Block_With_Result
0352 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
0353 00d8       |    |		Load_Top	At_Offset_0
0354 8404       |    |		Call	0x2,0x4
0355 6801       |h   |		Jump_Zero	0x357
0356 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0357 e007       |    |		Load	0x0,0x7
0358 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
0359 00cb       |    |		Action	Pop_Block_With_Result
035a 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
035b 0000       |    |		.XXX[0x1]
035c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000800}
0360 0000 0000  |    |		.LITERAL	{0x00000000, 0x00028000}
0364 0000 0000  |    |		.BLANK	0000[0x4]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 0382       |    |		.CONST	0x0382								; Address of begin
0369 0004       |    |		.CONST	0x0004								; Address of exception handler
036a 0002       |    |		.CONST	0x0002								; Number of locals
036b			INIT_0368:
036b 67f4       |g   |		Indirect_Literal	Discrete,0x360,{0x00000000, 0x00028000}
036c 67ef       |g   |		Indirect_Literal	Discrete,0x35c,{0x00000000, 0x00000800}
036d 4800       |H   |		Short_Literal	0x0
036e 4801       |H   |		Short_Literal	0x1
036f 4801       |H   |		Short_Literal	0x1
0370 e007       |    |		Load	0x0,0x7
0371 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
0372 0334       | 4  |		Declare_Variable	Array,With_Constraint
0373 e404       |    |		Load	0x2,0x4
0374 4801       |H   |		Short_Literal	0x1
0375 00da       |    |		Load_Top	At_Offset_2
0376 01d6       |    |		Execute	Vector,Field_Write
0377 4800       |H   |		Short_Literal	0x0
0378 4800       |H   |		Short_Literal	0x0
0379 8216       |    |		Call	0x1,0x16
037a e007       |    |		Load	0x0,0x7
037b 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
037c e402       |    |		Load	0x2,0x2
037d 4800       |H   |		Short_Literal	0x0
037e e007       |    |		Load	0x0,0x7
037f 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0380 e403       |    |		Load	0x2,0x3
0381 8219       |    |		Call	0x1,0x19
0382			BODY_0368:
0382 4801       |H   |		Short_Literal	0x1
0383 4802       |H   |		Short_Literal	0x2
0384 00da       |    |		Load_Top	At_Offset_2
0385 821b       |    |		Call	0x1,0x1b
0386 6809       |h   |		Jump_Zero	0x390
0387 4801       |H   |		Short_Literal	0x1
0388 00d9       |    |		Load_Top	At_Offset_1
0389 2708       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x8
038a 2505       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x5
038b 01d5       |    |		Execute	Vector,Field_Reference
038c e404       |    |		Load	0x2,0x4
038d 017d       | }  |		Execute	Record,Structure_Write
038e e404       |    |		Load	0x2,0x4
038f 821c       |    |		Call	0x1,0x1c
0390 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0391 0000 0000  |    |		.BLANK	0000[0x7]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 03a9       |    |		.CONST	0x03a9								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0002       |    |		.CONST	0x0002								; Number of locals
039b			INIT_0398:
039b 602c       |`,  |		Indirect_Literal	Discrete,0x3c8,{0x00000000, 0x00028000}
039c 6027       |`'  |		Indirect_Literal	Discrete,0x3c4,{0x00000000, 0x00000800}
039d e402       |    |		Load	0x2,0x2
039e e403       |    |		Load	0x2,0x3
039f 4801       |H   |		Short_Literal	0x1
03a0 4801       |H   |		Short_Literal	0x1
03a1 e007       |    |		Load	0x0,0x7
03a2 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
03a3 0334       | 4  |		Declare_Variable	Array,With_Constraint
03a4 e404       |    |		Load	0x2,0x4
03a5 4801       |H   |		Short_Literal	0x1
03a6 00da       |    |		Load_Top	At_Offset_2
03a7 01d6       |    |		Execute	Vector,Field_Write
03a8 820e       |    |		Call	0x1,0xe
03a9			BODY_0398:
03a9 00d8       |    |		Load_Top	At_Offset_0
03aa 01db       |    |		Execute	Vector,Length
03ab 0e01       |    |		Execute_Immediate	Not_Equal,0x1
03ac 6802       |h   |		Jump_Zero	0x3af
03ad 00cc       |    |		Action	Pop_Block
03ae 7d1d       |}   |		Jump	0xcc
03af 00d8       |    |		Load_Top	At_Offset_0
03b0 01dd       |    |		Execute	Vector,First
03b1 00d9       |    |		Load_Top	At_Offset_1
03b2 01d5       |    |		Execute	Vector,Field_Reference
03b3 e404       |    |		Load	0x2,0x4
03b4 017d       | }  |		Execute	Record,Structure_Write
03b5 e404       |    |		Load	0x2,0x4
03b6 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03b7 e007       |    |		Load	0x0,0x7
03b8 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
03b9 e5fe       |    |		Load	0x2,-0x2
03ba e004       |    |		Load	0x0,0x4
03bb 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
03bc 7002       |p   |		Jump_Nonzero	0x3bf
03bd 00cc       |    |		Action	Pop_Block
03be 7d0d       |}   |		Jump	0xcc
03bf e404       |    |		Load	0x2,0x4
03c0 821c       |    |		Call	0x1,0x1c
03c1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03c2 0000 0000  |    |		.XXX[0x2]
03c4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000800}
03c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00028000}
03cc 0000 0000  |    |		.BLANK	0000[0x4]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03f5       |    |		.CONST	0x03f5								; Address of begin
03d1 0004       |    |		.CONST	0x0004								; Address of exception handler
03d2 0002       |    |		.CONST	0x0002								; Number of locals
03d3			INIT_03d0:
03d3 67f4       |g   |		Indirect_Literal	Discrete,0x3c8,{0x00000000, 0x00028000}
03d4 67ef       |g   |		Indirect_Literal	Discrete,0x3c4,{0x00000000, 0x00000800}
03d5 4800       |H   |		Short_Literal	0x0
03d6 4801       |H   |		Short_Literal	0x1
03d7 4801       |H   |		Short_Literal	0x1
03d8 e007       |    |		Load	0x0,0x7
03d9 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
03da 0334       | 4  |		Declare_Variable	Array,With_Constraint
03db e007       |    |		Load	0x0,0x7
03dc 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
03dd 0322       | "  |		Declare_Variable	Record
03de e5ff       |    |		Load	0x2,-0x1
03df e007       |    |		Load	0x0,0x7
03e0 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03e1 00d9       |    |		Load_Top	At_Offset_1
03e2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03e3 e007       |    |		Load	0x0,0x7
03e4 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
03e5 00d9       |    |		Load_Top	At_Offset_1
03e6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03e7 4801       |H   |		Short_Literal	0x1
03e8 00da       |    |		Load_Top	At_Offset_2
03e9 01d6       |    |		Execute	Vector,Field_Write
03ea 4800       |H   |		Short_Literal	0x0
03eb 4800       |H   |		Short_Literal	0x0
03ec 8216       |    |		Call	0x1,0x16
03ed e007       |    |		Load	0x0,0x7
03ee 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
03ef e402       |    |		Load	0x2,0x2
03f0 4800       |H   |		Short_Literal	0x0
03f1 e007       |    |		Load	0x0,0x7
03f2 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
03f3 e403       |    |		Load	0x2,0x3
03f4 8219       |    |		Call	0x1,0x19
03f5			BODY_03d0:
03f5 4801       |H   |		Short_Literal	0x1
03f6 4802       |H   |		Short_Literal	0x2
03f7 00da       |    |		Load_Top	At_Offset_2
03f8 821b       |    |		Call	0x1,0x1b
03f9 680a       |h   |		Jump_Zero	0x404
03fa 4801       |H   |		Short_Literal	0x1
03fb 00d9       |    |		Load_Top	At_Offset_1
03fc 2708       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x8
03fd 2505       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x5
03fe 01d5       |    |		Execute	Vector,Field_Reference
03ff 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0400 e007       |    |		Load	0x0,0x7
0401 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0402 00cb       |    |		Action	Pop_Block_With_Result
0403 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0404 e214       |    |		Load	0x1,0x14
0405 00cb       |    |		Action	Pop_Block_With_Result
0406 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0407 0000       |    |		.XXX[0x1]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 0411       |    |		.CONST	0x0411								; Address of begin
0409 0004       |    |		.CONST	0x0004								; Address of exception handler
040a 0002       |    |		.CONST	0x0002								; Number of locals
040b			INIT_0408:
040b 4801       |H   |		Short_Literal	0x1
040c e406       |    |		Load	0x2,0x6
040d e404       |    |		Load	0x2,0x4
040e 01cf       |    |		Execute	Vector,Slice_Read
040f e007       |    |		Load	0x0,0x7
0410 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0411			BODY_0408:
0411 e402       |    |		Load	0x2,0x2
0412 681a       |h   |		Jump_Zero	0x42d
0413 e010       |    |		Load	0x0,0x10
0414 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0415 4801       |H   |		Short_Literal	0x1
0416 0092 04d9  |    |		Action	Push_String_Extended,0x4d9					; "Response.Kind = "
0418 00db       |    |		Load_Top	At_Offset_3
0419 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
041a e007       |    |		Load	0x0,0x7
041b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
041c 011c       |    |		Execute	Any,Convert_Unchecked
041d 1c01       |    |		Execute_Immediate	Run_Utility,0x1
041e 01cc       |    |		Execute	Vector,Catenate
041f e011       |    |		Load	0x0,0x11
0420 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0421 e010       |    |		Load	0x0,0x10
0422 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0423 4801       |H   |		Short_Literal	0x1
0424 0092 04da  |    |		Action	Push_String_Extended,0x4da					; "Response.Community = "
0426 00db       |    |		Load_Top	At_Offset_3
0427 2505       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0428 e004       |    |		Load	0x0,0x4
0429 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
042a 01cc       |    |		Execute	Vector,Catenate
042b e011       |    |		Load	0x0,0x11
042c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
042d 00d8       |    |		Load_Top	At_Offset_0
042e 8218       |    |		Call	0x1,0x18
042f e5fe       |    |		Load	0x2,-0x2
0430 8218       |    |		Call	0x1,0x18
0431 027f       |    |		Execute	Discrete,Equal
0432 6806       |h   |		Jump_Zero	0x439
0433 00d8       |    |		Load_Top	At_Offset_0
0434 e007       |    |		Load	0x0,0x7
0435 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0436 0165       | e  |		Execute	Variant_Record,Convert
0437 00cb       |    |		Action	Pop_Block_With_Result
0438 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0439 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
043a 0000 0000  |    |		.BLANK	0000[0x6]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0457       | W  |		.CONST	0x0457								; Address of begin
0441 0004       |    |		.CONST	0x0004								; Address of exception handler
0442 0004       |    |		.CONST	0x0004								; Number of locals
0443			INIT_0440:
0443 e605       |    |		Load	0x3,0x5
0444 e402       |    |		Load	0x2,0x2
0445 01d5       |    |		Execute	Vector,Field_Reference
0446 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0447 e007       |    |		Load	0x0,0x7
0448 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0449 e7ff       |    |		Load	0x3,-0x1
044a 01dd       |    |		Execute	Vector,First
044b e605       |    |		Load	0x3,0x5
044c 0273       | s  |		Execute	Discrete,Plus
044d e402       |    |		Load	0x2,0x2
044e 01dd       |    |		Execute	Vector,First
044f 0272       | r  |		Execute	Discrete,Minus
0450 e7ff       |    |		Load	0x3,-0x1
0451 01d5       |    |		Execute	Vector,Field_Reference
0452 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0453 e007       |    |		Load	0x0,0x7
0454 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0455 029f 0493  |    |		Declare_Subprogram	INIT_0490,For_Call
0457			BODY_0440:
0457 00da       |    |		Load_Top	At_Offset_2
0458 00da       |    |		Load_Top	At_Offset_2
0459 8213       |    |		Call	0x1,0x13
045a 6801       |h   |		Jump_Zero	0x45c
045b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
045c 00da       |    |		Load_Top	At_Offset_2
045d 01db       |    |		Execute	Vector,Length
045e 0d01       |    |		Execute_Immediate	Less,0x1
045f 6815       |h   |		Jump_Zero	0x475
0460 e010       |    |		Load	0x0,0x10
0461 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0462 4807       |H   |		Short_Literal	0x7
0463 0092 04db  |    |		Action	Push_String_Extended,0x4db					; "Get_Next "
0465 e802       |    |		Load	0x4,0x2
0466 e009       |    |		Load	0x0,0x9
0467 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0468 01cc       |    |		Execute	Vector,Catenate
0469 0092 04d6  |    |		Action	Push_String_Extended,0x4d6					; " = "
046b 01cc       |    |		Execute	Vector,Catenate
046c e803       |    |		Load	0x4,0x3
046d e009       |    |		Load	0x0,0x9
046e 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
046f 01cc       |    |		Execute	Vector,Catenate
0470 e011       |    |		Load	0x0,0x11
0471 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0472 4800       |H   |		Short_Literal	0x0
0473 00cb       |    |		Action	Pop_Block_With_Result
0474 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0475 e010       |    |		Load	0x0,0x10
0476 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0477 4806       |H   |		Short_Literal	0x6
0478 0092 04db  |    |		Action	Push_String_Extended,0x4db					; "Get_Next "
047a e802       |    |		Load	0x4,0x2
047b e009       |    |		Load	0x0,0x9
047c 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
047d 01cc       |    |		Execute	Vector,Catenate
047e 0092 04d6  |    |		Action	Push_String_Extended,0x4d6					; " = "
0480 01cc       |    |		Execute	Vector,Catenate
0481 e803       |    |		Load	0x4,0x3
0482 e009       |    |		Load	0x0,0x9
0483 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0484 01cc       |    |		Execute	Vector,Catenate
0485 e011       |    |		Load	0x0,0x11
0486 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0487 8804       |    |		Call	0x4,0x4
0488 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0489 0000 0000  |    |		.BLANK	0000[0x7]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 04a1       |    |		.CONST	0x04a1								; Address of begin
0491 0004       |    |		.CONST	0x0004								; Address of exception handler
0492 0002       |    |		.CONST	0x0002								; Number of locals
0493			INIT_0490:
0493 e802       |    |		Load	0x4,0x2
0494 01dd       |    |		Execute	Vector,First
0495 e802       |    |		Load	0x4,0x2
0496 01dc       |    |		Execute	Vector,Last
0497 0aff       |    |		Execute_Immediate	Plus,-0x1
0498 00d8       |    |		Load_Top	At_Offset_0
0499 00e2       |    |		Load_Encached	Integer_Cache
049a 0260       | `  |		Execute	Discrete,In_Type
049b 7001       |p   |		Jump_Nonzero	0x49d
049c 0801       |    |		Execute_Immediate	Raise,0x1
049d e004       |    |		Load	0x0,0x4
049e 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
049f 035b       | [  |		Declare_Type	Array,Constrained
04a0 0337       | 7  |		Declare_Variable	Array
04a1			BODY_0490:
04a1 e802       |    |		Load	0x4,0x2
04a2 01dd       |    |		Execute	Vector,First
04a3 e802       |    |		Load	0x4,0x2
04a4 01dc       |    |		Execute	Vector,Last
04a5 0afe       |    |		Execute_Immediate	Plus,-0x2
04a6 00d8       |    |		Load_Top	At_Offset_0
04a7 00e2       |    |		Load_Encached	Integer_Cache
04a8 0260       | `  |		Execute	Discrete,In_Type
04a9 7001       |p   |		Jump_Nonzero	0x4ab
04aa 0801       |    |		Execute_Immediate	Raise,0x1
04ab e802       |    |		Load	0x4,0x2
04ac 01cf       |    |		Execute	Vector,Slice_Read
04ad 00d9       |    |		Load_Top	At_Offset_1
04ae 01dd       |    |		Execute	Vector,First
04af 00da       |    |		Load_Top	At_Offset_2
04b0 01dc       |    |		Execute	Vector,Last
04b1 0aff       |    |		Execute_Immediate	Plus,-0x1
04b2 00d8       |    |		Load_Top	At_Offset_0
04b3 00e2       |    |		Load_Encached	Integer_Cache
04b4 0260       | `  |		Execute	Discrete,In_Type
04b5 7001       |p   |		Jump_Nonzero	0x4b7
04b6 0801       |    |		Execute_Immediate	Raise,0x1
04b7 00db       |    |		Load_Top	At_Offset_3
04b8 01ce       |    |		Execute	Vector,Slice_Write
04b9 e802       |    |		Load	0x4,0x2
04ba 01dc       |    |		Execute	Vector,Last
04bb 0aff       |    |		Execute_Immediate	Plus,-0x1
04bc e802       |    |		Load	0x4,0x2
04bd 01d7       |    |		Execute	Vector,Field_Read
04be 0a01       |    |		Execute_Immediate	Plus,0x1
04bf 00d9       |    |		Load_Top	At_Offset_1
04c0 01dc       |    |		Execute	Vector,Last
04c1 00da       |    |		Load_Top	At_Offset_2
04c2 01d6       |    |		Execute	Vector,Field_Write
04c3 00d8       |    |		Load_Top	At_Offset_0
04c4 e007       |    |		Load	0x0,0x7
04c5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04c6 e605       |    |		Load	0x3,0x5
04c7 e402       |    |		Load	0x2,0x2
04c8 01d5       |    |		Execute	Vector,Field_Reference
04c9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04ca 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04cb ; --------------------------------------------------------------------------------------
04cb ; STRING TABLE
04cb ; --------------------------------------------------------------------------------------
04cb 0024       | $  |		.STRTAB	0x0024->0x04dd							; ".Status = "
04cc 002c       | ,  |		.STRTAB	0x002c->0x04e2							; "Transport.Transmit"
04cd 003c       | <  |		.STRTAB	0x003c->0x04eb							; "Transmitted "
04ce 0046       | F  |		.STRTAB	0x0046->0x04f1							; "Exchange.Length < Request_Encoding'Length"
04cf 006d       | m  |		.STRTAB	0x006d->0x0505							; "Transport.Receive"
04d0 007c       | |  |		.STRTAB	0x007c->0x050e							; "Received "
04d1 0083       |    |		.STRTAB	0x0083->0x0512							; "Response.Version ="
04d2 0093       |    |		.STRTAB	0x0093->0x051b							; "Response.Kind ="
04d3 00a0       |    |		.STRTAB	0x00a0->0x0523							; "Response.Variables ="
04d4 00b2       |    |		.STRTAB	0x00b2->0x052d							; "Response.Get_Response.Error_Status = "
04d5 00d5       |    |		.STRTAB	0x00d5->0x053f							; "Response.Get_Response.Error_Index ="
04d6 00f6       |    |		.STRTAB	0x00f6->0x0551							; " = "
04d7 00f7       |    |		.STRTAB	0x00f7->0x0552							; "Transport.Open"
04d8 0103       |    |		.STRTAB	0x0103->0x0559							; "Transport.Connect(Active)"
04d9 011a       |    |		.STRTAB	0x011a->0x0566							; "Response.Kind = "
04da 0128       | (  |		.STRTAB	0x0128->0x056e							; "Response.Community = "
04db 013b       | ;  |		.STRTAB	0x013b->0x0578							; "Get_Next "
04dc 0142       | B  |		.STREND 0x0142->0x057d
04dd 2e53 7461  |.Sta|		.STRTAB_STRINGS
057d 0000 0000  |    |		.XXX[0x3]
057f 0000       |    |
0580 ; --------------------------------------------------------------------------------------
0580 ; Debug Table
0580 ; --------------------------------------------------------------------------------------
0580 0004 000c  |    |		.DEBUG4	0x0004,0x000c,0xcf2b,0x0000,0x0001,0x0000
0586 9064 1906  | d  |		.XXX[0x7a]
0588 4190 6419  |A d |
058a 0641 9064  | A d|
058c 1906 4190  |  A |
058e 6419 0641  |d  A|
0590 9064 1906  | d  |
0592 4190 6419  |A d |
0594 0641 9064  | A d|
0596 1906 4190  |  A |
0598 6419 0641  |d  A|
059a 9064 1906  | d  |
059c 4190 6419  |A d |
059e 0641 9064  | A d|
05a0 1906 4190  |  A |
05a2 6419 0641  |d  A|
05a4 9064 1906  | d  |
05a6 4190 6419  |A d |
05a8 0641 9064  | A d|
05aa 1906 4190  |  A |
05ac 6419 0641  |d  A|
05ae 9064 1906  | d  |
05b0 4190 6419  |A d |
05b2 0641 9064  | A d|
05b4 1906 4190  |  A |
05b6 6419 0641  |d  A|
05b8 9064 1906  | d  |
05ba 4190 6419  |A d |
05bc 0641 9064  | A d|
05be 1906 4190  |  A |
05c0 6419 0641  |d  A|
05c2 9064 1906  | d  |
05c4 4190 6419  |A d |
05c6 0641 9064  | A d|
05c8 1906 4190  |  A |
05ca 6419 0641  |d  A|
05cc 9064 1906  | d  |
05ce 4190 6419  |A d |
05d0 0641 9064  | A d|
05d2 1906 4190  |  A |
05d4 6419 0641  |d  A|
05d6 9064 1906  | d  |
05d8 4190 6419  |A d |
05da 0641 9064  | A d|
05dc 1906 4190  |  A |
05de 6419 0641  |d  A|
05e0 9064 1906  | d  |
05e2 4190 6419  |A d |
05e4 0641 9064  | A d|
05e6 1906 4190  |  A |
05e8 6419 0641  |d  A|
05ea 9064 1906  | d  |
05ec 4190 6419  |A d |
05ee 0641 9064  | A d|
05f0 1906 4190  |  A |
05f2 6419 0641  |d  A|
05f4 9064 1906  | d  |
05f6 4190 6419  |A d |
05f8 0641 9064  | A d|
05fa 1906 4190  |  A |
05fc 6419 0641  |d  A|
05fe 9064 1906  | d  |