|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_05d8fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
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 For_Outer_Call,Visible,Unelaborated,INIT_0090
001b 029a 00ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a8
001d 029a 00db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d8
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 For_Outer_Call,INIT_00f0
0040 029d 010b | | Declare_Subprogram For_Outer_Call,INIT_0108
0042 029d 0123 | #| Declare_Subprogram For_Outer_Call,INIT_0120
0044 029d 0143 | C| Declare_Subprogram For_Outer_Call,INIT_0140
0046 029d 01b3 | | Declare_Subprogram For_Outer_Call,INIT_01b0
0048 029d 01eb | | Declare_Subprogram For_Outer_Call,INIT_01e8
004a 1d0e | | Execute_Immediate Reference_Lex_1,0xe
004b 00c7 | | Action Elaborate_Subprogram
004c 029d 024b | K| Declare_Subprogram For_Outer_Call,INIT_0248
004e 029d 026b | k| Declare_Subprogram For_Outer_Call,INIT_0268
0050 029d 027b | {| Declare_Subprogram For_Outer_Call,INIT_0278
0052 029d 029b | | Declare_Subprogram For_Outer_Call,INIT_0298
0054 029d 02bb | | Declare_Subprogram For_Outer_Call,INIT_02b8
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 For_Call,INIT_02f0
009e 029f 031b | | Declare_Subprogram For_Call,INIT_0318
00a0 029f 032b | +| Declare_Subprogram For_Call,INIT_0328
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 For_Call,INIT_0368
00c1 029f 039b | | Declare_Subprogram For_Call,INIT_0398
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_Subprogram 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 For_Call,INIT_03d0
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_Subprogram 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 0x4
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_Result,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_Result,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_Result,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_Result,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 For_Call,INIT_0408
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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,0x3
0245 4801 |H | Short_Literal 0x1
0246 4403 |D | Exit_Subprogram With_Result,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_Subprogram 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_Subprogram 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_Result,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_Result,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_Result,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_Result,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_Subprogram 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_Result,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_Result,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 For_Call,INIT_0440
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_Result,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,Fixed,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_Result,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_Result,0x5
0353 00d8 | | Load_Top At_Offset_0
0354 8404 | | Call 0x2,0x4
0355 6801 |h | Jump_Zero 0x357
0356 4501 |E | Exit_Subprogram 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_Result,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,Fixed,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_Subprogram 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_Subprogram 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,Fixed,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_Result,0x3
0404 e214 | | Load 0x1,0x14
0405 00cb | | Action Pop_Block_With_Result
0406 4403 |D | Exit_Subprogram With_Result,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,Fixed,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_Result,0x4
0439 4501 |E | Exit_Subprogram 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 For_Call,INIT_0490
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_Subprogram 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_Result,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_Subprogram 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_Subprogram 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 "
; "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 0000 0000 | | .BLANK 0000[0x7a]