|
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 - download
Length: 5120 (0x1400) 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 08e0 | | .CONST 0x08e0 ; 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 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0154 | T | .CONST 0x0154 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002f | / | .CONST 0x002f ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 0093 0833 | 3| push_full_address INIT_0830 000e 02a0 | | Declare_Subprogram Null_Subprogram 000f 038f | | Declare_Type Package,Defined,Visible 0010 e001 | | Load 0x0,0x1 0011 4801 |H | Short_Literal 0x1 0012 00da | | Load_Top At_Offset_2 0013 020e | | Execute Module,Augment_Imports 0014 0386 | | Declare_Variable Package,Visible 0015 4800 |H | Short_Literal 0x0 0016 4804 |H | Short_Literal 0x4 0017 029f 015b | [| Declare_Subprogram INIT_0158,For_Call 0019 03fe | | Declare_Type Discrete,Defined,Visible 001a 00d8 | | Load_Top At_Offset_0 001b 0266 | f | Execute Discrete,Bounds 001c e001 | | Load 0x0,0x1 001d 1b18 | | Execute Package,Field_Read,Field_Number 0x18 001e 02a0 | | Declare_Subprogram Null_Subprogram 001f 4801 |H | Short_Literal 0x1 0020 035e | ^ | Declare_Type Array,Defined,Visible 0021 00d8 | | Load_Top At_Offset_0 0022 0336 | 6 | Declare_Variable Array,Visible 0023 00d8 | | Load_Top At_Offset_0 0024 0335 | 5 | Declare_Variable Array,Duplicate 0025 00cd | | Action Spare6_Action 0026 e001 | | Load 0x0,0x1 0027 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0028 0322 | " | Declare_Variable Record 0029 4802 |H | Short_Literal 0x2 002a 00d9 | | Load_Top At_Offset_1 002b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 002c 4800 |H | Short_Literal 0x0 002d 00d9 | | Load_Top At_Offset_1 002e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 002f 4800 |H | Short_Literal 0x0 0030 00da | | Load_Top At_Offset_2 0031 01d6 | | Execute Vector,Field_Write 0032 e001 | | Load 0x0,0x1 0033 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0034 0322 | " | Declare_Variable Record 0035 4802 |H | Short_Literal 0x2 0036 00d9 | | Load_Top At_Offset_1 0037 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0038 4801 |H | Short_Literal 0x1 0039 00d9 | | Load_Top At_Offset_1 003a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 003b 4801 |H | Short_Literal 0x1 003c 00da | | Load_Top At_Offset_2 003d 01d6 | | Execute Vector,Field_Write 003e e001 | | Load 0x0,0x1 003f 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0040 0322 | " | Declare_Variable Record 0041 4802 |H | Short_Literal 0x2 0042 00d9 | | Load_Top At_Offset_1 0043 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0044 4802 |H | Short_Literal 0x2 0045 00d9 | | Load_Top At_Offset_1 0046 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0047 4802 |H | Short_Literal 0x2 0048 00da | | Load_Top At_Offset_2 0049 01d6 | | Execute Vector,Field_Write 004a e001 | | Load 0x0,0x1 004b 1b18 | | Execute Package,Field_Read,Field_Number 0x18 004c 0322 | " | Declare_Variable Record 004d 4802 |H | Short_Literal 0x2 004e 00d9 | | Load_Top At_Offset_1 004f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0050 4803 |H | Short_Literal 0x3 0051 00d9 | | Load_Top At_Offset_1 0052 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0053 4803 |H | Short_Literal 0x3 0054 00da | | Load_Top At_Offset_2 0055 01d6 | | Execute Vector,Field_Write 0056 e001 | | Load 0x0,0x1 0057 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0058 0322 | " | Declare_Variable Record 0059 4802 |H | Short_Literal 0x2 005a 00d9 | | Load_Top At_Offset_1 005b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 005c 4804 |H | Short_Literal 0x4 005d 00d9 | | Load_Top At_Offset_1 005e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 005f 4804 |H | Short_Literal 0x4 0060 00da | | Load_Top At_Offset_2 0061 01d6 | | Execute Vector,Field_Write 0062 00d9 | | Load_Top At_Offset_1 0063 01d4 | | Execute Vector,Structure_Write 0064 e001 | | Load 0x0,0x1 0065 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0066 00e3 | | Load_Encached Natural_Cache 0067 4801 |H | Short_Literal 0x1 0068 4880 |H | Short_Literal 0x80 0069 e002 | | Load 0x0,0x2 006a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 006b 035c | \ | Declare_Type Array,Constrained,Visible 006c 02a0 | | Declare_Subprogram Null_Subprogram 006d 4803 |H | Short_Literal 0x3 006e 032e | . | Declare_Type Record,Defined,Visible 006f 00d8 | | Load_Top At_Offset_0 0070 0322 | " | Declare_Variable Record 0071 e001 | | Load 0x0,0x1 0072 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0073 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0074 00d9 | | Load_Top At_Offset_1 0075 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0076 4800 |H | Short_Literal 0x0 0077 00d9 | | Load_Top At_Offset_1 0078 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0079 00d9 | | Load_Top At_Offset_1 007a 3002 |0 | Execute Record,Field_Type,Field_Number 0x2 007b 0337 | 7 | Declare_Variable Array 007c 4880 |H | Short_Literal 0x80 007d 4801 |H | Short_Literal 0x1 007e 4800 |H | Short_Literal 0x0 007f 00d9 | | Load_Top At_Offset_1 0080 e213 | | Load 0x1,0x13 0081 01d6 | | Execute Vector,Field_Write 0082 3ffb |? | Loop_Increasing 0x7e 0083 00da | | Load_Top At_Offset_2 0084 3002 |0 | Execute Record,Field_Type,Field_Number 0x2 0085 0119 | | Execute Any,Check_In_Formal_Type 0086 00d9 | | Load_Top At_Offset_1 0087 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0088 0129 | ) | Execute Any,Make_Visible 0089 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 008b 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 008d 00e3 | | Load_Encached Natural_Cache 008e 4801 |H | Short_Literal 0x1 008f 4820 |H | Short_Literal 0x20 0090 e001 | | Load 0x0,0x1 0091 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0092 035c | \ | Declare_Type Array,Constrained,Visible 0093 02a0 | | Declare_Subprogram Null_Subprogram 0094 4802 |H | Short_Literal 0x2 0095 032e | . | Declare_Type Record,Defined,Visible 0096 00d8 | | Load_Top At_Offset_0 0097 0322 | " | Declare_Variable Record 0098 4800 |H | Short_Literal 0x0 0099 00d9 | | Load_Top At_Offset_1 009a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 009b 00d9 | | Load_Top At_Offset_1 009c 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 009d 0337 | 7 | Declare_Variable Array 009e 4820 |H | Short_Literal 0x20 009f 4801 |H | Short_Literal 0x1 00a0 4800 |H | Short_Literal 0x0 00a1 00d9 | | Load_Top At_Offset_1 00a2 e217 | | Load 0x1,0x17 00a3 01d6 | | Execute Vector,Field_Write 00a4 3ffb |? | Loop_Increasing 0xa0 00a5 00da | | Load_Top At_Offset_2 00a6 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 00a7 0119 | | Execute Any,Check_In_Formal_Type 00a8 00d9 | | Load_Top At_Offset_1 00a9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00aa 0129 | ) | Execute Any,Make_Visible 00ab 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 00ad 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 00af 00db | | Load_Top At_Offset_3 00b0 0129 | ) | Execute Any,Make_Visible 00b1 e211 | | Load 0x1,0x11 00b2 0129 | ) | Execute Any,Make_Visible 00b3 e211 | | Load 0x1,0x11 00b4 0129 | ) | Execute Any,Make_Visible 00b5 00da | | Load_Top At_Offset_2 00b6 00da | | Load_Top At_Offset_2 00b7 02a0 | | Declare_Subprogram Null_Subprogram 00b8 4802 |H | Short_Literal 0x2 00b9 032e | . | Declare_Type Record,Defined,Visible 00ba 00d8 | | Load_Top At_Offset_0 00bb 0322 | " | Declare_Variable Record 00bc e216 | | Load 0x1,0x16 00bd 00d9 | | Load_Top At_Offset_1 00be 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00bf e212 | | Load 0x1,0x12 00c0 00d9 | | Load_Top At_Offset_1 00c1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00c2 0129 | ) | Execute Any,Make_Visible 00c3 00e3 | | Load_Encached Natural_Cache 00c4 0266 | f | Execute Discrete,Bounds 00c5 00db | | Load_Top At_Offset_3 00c6 02a0 | | Declare_Subprogram Null_Subprogram 00c7 4801 |H | Short_Literal 0x1 00c8 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 00c9 4801 |H | Short_Literal 0x1 00ca 4800 |H | Short_Literal 0x0 00cb 00da | | Load_Top At_Offset_2 00cc 035b | [ | Declare_Type Array,Constrained 00cd 0336 | 6 | Declare_Variable Array,Visible 00ce 00d8 | | Load_Top At_Offset_0 00cf 0335 | 5 | Declare_Variable Array,Duplicate 00d0 00cd | | Action Spare6_Action 00d1 00d9 | | Load_Top At_Offset_1 00d2 01d4 | | Execute Vector,Structure_Write 00d3 00e3 | | Load_Encached Natural_Cache 00d4 e001 | | Load 0x0,0x1 00d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d6 e001 | | Load 0x0,0x1 00d7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d8 e001 | | Load 0x0,0x1 00d9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00da 4801 |H | Short_Literal 0x1 00db 60a4 |` | Indirect_Literal Discrete,0x180,{0x00000000, 0x7fffffff} 00dc e21e | | Load 0x1,0x1e 00dd 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object 00de 029f 0703 | | Declare_Subprogram INIT_0700,For_Call 00e0 4800 |H | Short_Literal 0x0 00e1 4801 |H | Short_Literal 0x1 00e2 4803 |H | Short_Literal 0x3 00e3 4800 |H | Short_Literal 0x0 00e4 4801 |H | Short_Literal 0x1 00e5 4801 |H | Short_Literal 0x1 00e6 031e | | Declare_Type Variant_Record,Defined,Visible 00e7 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 00e9 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 00eb 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 00ed 00e3 | | Load_Encached Natural_Cache 00ee e215 | | Load 0x1,0x15 00ef e21b | | Load 0x1,0x1b 00f0 e001 | | Load 0x0,0x1 00f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f2 e001 | | Load 0x0,0x1 00f3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f4 e003 | | Load 0x0,0x3 00f5 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00f6 4801 |H | Short_Literal 0x1 00f7 6088 |` | Indirect_Literal Discrete,0x180,{0x00000000, 0x7fffffff} 00f8 e21e | | Load 0x1,0x1e 00f9 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object 00fa 029f 0733 | 3| Declare_Subprogram INIT_0730,For_Call 00fc 4800 |H | Short_Literal 0x0 00fd 4801 |H | Short_Literal 0x1 00fe 4805 |H | Short_Literal 0x5 00ff 4800 |H | Short_Literal 0x0 0100 4801 |H | Short_Literal 0x1 0101 4801 |H | Short_Literal 0x1 0102 031e | | Declare_Type Variant_Record,Defined,Visible 0103 e20e | | Load 0x1,0xe 0104 00e3 | | Load_Encached Natural_Cache 0105 00e3 | | Load_Encached Natural_Cache 0106 e001 | | Load 0x0,0x1 0107 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0108 4801 |H | Short_Literal 0x1 0109 6076 |`v | Indirect_Literal Discrete,0x180,{0x00000000, 0x7fffffff} 010a e001 | | Load 0x0,0x1 010b 1b13 | | Execute Package,Field_Read,Field_Number 0x13 010c 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object 010d 4801 |H | Short_Literal 0x1 010e 4800 |H | Short_Literal 0x0 010f e220 | | Load 0x1,0x20 0110 4801 |H | Short_Literal 0x1 0111 4800 |H | Short_Literal 0x0 0112 e220 | | Load 0x1,0x20 0113 4801 |H | Short_Literal 0x1 0114 4800 |H | Short_Literal 0x0 0115 e220 | | Load 0x1,0x20 0116 4801 |H | Short_Literal 0x1 0117 4800 |H | Short_Literal 0x0 0118 e220 | | Load 0x1,0x20 0119 4801 |H | Short_Literal 0x1 011a 4800 |H | Short_Literal 0x0 011b e224 | $ | Load 0x1,0x24 011c 029f 0763 | c| Declare_Subprogram INIT_0760,For_Call 011e 4805 |H | Short_Literal 0x5 011f 4801 |H | Short_Literal 0x1 0120 4801 |H | Short_Literal 0x1 0121 4805 |H | Short_Literal 0x5 0122 4806 |H | Short_Literal 0x6 0123 4803 |H | Short_Literal 0x3 0124 031e | | Declare_Type Variant_Record,Defined,Visible 0125 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated 0127 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated 0129 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated 012b 029a 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Visible,Unelaborated 012d 029a 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Visible,Unelaborated 012f 00bf | | Action Accept_Activation 0130 0092 086c | l| Action Push_String_Extended,0x86c ; "!Machine.SNMP_Community" 0132 e20d | | Load 0x1,0xd 0133 020f | | Execute Module,Activate 0134 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0135 00c7 | | Action Elaborate_Subprogram 0136 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0137 00c7 | | Action Elaborate_Subprogram 0138 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0139 00c7 | | Action Elaborate_Subprogram 013a 1d18 | | Execute_Immediate Reference_Lex_1,0x18 013b 00c7 | | Action Elaborate_Subprogram 013c 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 013d 00c7 | | Action Elaborate_Subprogram 013e 029d 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call 0140 029d 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call 0142 029d 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call 0144 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0145 00c7 | | Action Elaborate_Subprogram 0146 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0147 00c7 | | Action Elaborate_Subprogram 0148 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0149 00c7 | | Action Elaborate_Subprogram 014a 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 014b 00c7 | | Action Elaborate_Subprogram 014c 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 014d 00c7 | | Action Elaborate_Subprogram 014e 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 014f 00c7 | | Action Elaborate_Subprogram 0150 029d 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call 0152 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0153 00c7 | | Action Elaborate_Subprogram 0154 BODY_0008: 0154 00bc | | Action Signal_Activated 0155 00bb | | Action Signal_Completion 0156 0000 0000 | | .XXX[0x2] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 4607 |F | Jump_Case 0x8 015c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 015d 7806 |x | Jump 0x164 ; case 0x1 015e 7809 |x | Jump 0x168 ; case 0x2 015f 780d |x | Jump 0x16d ; case 0x3 0160 7810 |x | Jump 0x171 ; case 0x4 0161 7811 |x | Jump 0x173 ; case 0x5 0162 7812 |x | Jump 0x175 ; case 0x6 0163 7815 |x | Jump 0x179 ; case 0x7 0164 00da | | Load_Top At_Offset_2 0165 0091 0867 | g| Action Push_String_Extended_Indexed,0x867 ; "GET_REQUEST" 0167 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0168 00db | | Load_Top At_Offset_3 0169 00db | | Load_Top At_Offset_3 016a 00e0 | | Load_Encached Standard_Cache 016b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 016c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 016d 00da | | Load_Top At_Offset_2 016e 00e0 | | Load_Encached Standard_Cache 016f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0170 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0171 00db | | Load_Top At_Offset_3 0172 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0173 00db | | Load_Top At_Offset_3 0174 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0175 e20e | | Load 0x1,0xe 0176 00dc | | Load_Top At_Offset_4 0177 0267 | g | Execute Discrete,Predecessor 0178 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0179 e20e | | Load 0x1,0xe 017a 00dc | | Load_Top At_Offset_4 017b 0268 | h | Execute Discrete,Successor 017c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 017d 0000 0000 | | .XXX[0x3] 017f 0000 | | 0180 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0184 0000 0000 | | .BLANK 0000[0x4] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 4801 |H | Short_Literal 0x1 018c 00db | | Load_Top At_Offset_3 018d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 018e e5ff | | Load 0x2,-0x1 018f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0190 01cf | | Execute Vector,Slice_Read 0191 0335 | 5 | Declare_Variable Array,Duplicate 0192 00cd | | Action Spare6_Action 0193 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0194 0000 0000 | | .BLANK 0000[0x4] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019d | | .CONST 0x019d ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0002 | | .CONST 0x0002 ; Number of locals 019b INIT_0198: 019b e211 | | Load 0x1,0x11 019c 0322 | " | Declare_Variable Record 019d BODY_0198: 019d 00db | | Load_Top At_Offset_3 019e 00d9 | | Load_Top At_Offset_1 019f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01a0 e5fe | | Load 0x2,-0x2 01a1 01db | | Execute Vector,Length 01a2 00d9 | | Load_Top At_Offset_1 01a3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01a4 e5fe | | Load 0x2,-0x2 01a5 4801 |H | Short_Literal 0x1 01a6 00da | | Load_Top At_Offset_2 01a7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01a8 00db | | Load_Top At_Offset_3 01a9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01aa 01ce | | Execute Vector,Slice_Write 01ab 00d8 | | Load_Top At_Offset_0 01ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ad 0000 0000 | | .XXX[0x3] 01af 0000 | | 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 4801 |H | Short_Literal 0x1 01b4 00db | | Load_Top At_Offset_3 01b5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01b6 e5ff | | Load 0x2,-0x1 01b7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01b8 01cf | | Execute Vector,Slice_Read 01b9 0335 | 5 | Declare_Variable Array,Duplicate 01ba 00cd | | Action Spare6_Action 01bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01bc 0000 0000 | | .BLANK 0000[0x4] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c5 | | .CONST 0x01c5 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0002 | | .CONST 0x0002 ; Number of locals 01c3 INIT_01c0: 01c3 e215 | | Load 0x1,0x15 01c4 0322 | " | Declare_Variable Record 01c5 BODY_01c0: 01c5 00db | | Load_Top At_Offset_3 01c6 01db | | Execute Vector,Length 01c7 00d9 | | Load_Top At_Offset_1 01c8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01c9 00db | | Load_Top At_Offset_3 01ca 4801 |H | Short_Literal 0x1 01cb e5ff | | Load 0x2,-0x1 01cc 01db | | Execute Vector,Length 01cd 00d8 | | Load_Top At_Offset_0 01ce 00e2 | | Load_Encached Integer_Cache 01cf 0260 | ` | Execute Discrete,In_Type 01d0 7001 |p | Jump_Nonzero 0x1d2 01d1 0801 | | Execute_Immediate Raise,0x1 01d2 00db | | Load_Top At_Offset_3 01d3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01d4 01ce | | Execute Vector,Slice_Write 01d5 00d8 | | Load_Top At_Offset_0 01d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d7 0000 | | .XXX[0x1] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01df | | .CONST 0x01df ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0002 | | .CONST 0x0002 ; Number of locals 01db INIT_01d8: 01db e5fc | | Load 0x2,-0x4 01dc 01db | | Execute Vector,Length 01dd e220 | | Load 0x1,0x20 01de 1c08 | | Execute_Immediate Run_Utility,0x8 01df BODY_01d8: 01df 00db | | Load_Top At_Offset_3 01e0 00d9 | | Load_Top At_Offset_1 01e1 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01e2 e5fe | | Load 0x2,-0x2 01e3 00d9 | | Load_Top At_Offset_1 01e4 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 01e5 e5fd | | Load 0x2,-0x3 01e6 00d9 | | Load_Top At_Offset_1 01e7 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4 01e8 e5fc | | Load 0x2,-0x4 01e9 00d9 | | Load_Top At_Offset_1 01ea 2905 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5 01eb 00d8 | | Load_Top At_Offset_0 01ec 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 01ed 0000 0000 | | .XXX[0x3] 01ef 0000 | | 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 0210 | | .CONST 0x0210 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0007 | | .CONST 0x0007 ; Number of locals 01f3 INIT_01f0: 01f3 0092 086d | m| Action Push_String_Extended,0x86d ; "Encode(PDU)" 01f5 4801 |H | Short_Literal 0x1 01f6 6041 |`A | Indirect_Literal Discrete,0x238,{0x00000000, 0x00000800} 01f7 e002 | | Load 0x0,0x2 01f8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01f9 035b | [ | Declare_Type Array,Constrained 01fa 0337 | 7 | Declare_Variable Array 01fb 00e3 | | Load_Encached Natural_Cache 01fc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01fd 029f 04db | | Declare_Subprogram INIT_04d8,For_Call 01ff 029f 04fb | | Declare_Subprogram INIT_04f8,For_Call 0201 e004 | | Load 0x0,0x4 0202 e005 | | Load 0x0,0x5 0203 00e9 | | Load_Encached String_Cache 0204 4805 |H | Short_Literal 0x5 0205 4802 |H | Short_Literal 0x2 0206 0099 | | Action Reference_Dynamic 0207 4806 |H | Short_Literal 0x6 0208 4802 |H | Short_Literal 0x2 0209 0099 | | Action Reference_Dynamic 020a 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 020b e006 | | Load 0x0,0x6 020c 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 020d 0387 | | Declare_Variable Package 020e 00d8 | | Load_Top At_Offset_0 020f 020f | | Execute Module,Activate 0210 BODY_01f0: 0210 e001 | | Load 0x0,0x1 0211 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0212 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0213 e5ff | | Load 0x2,-0x1 0214 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0215 e402 | | Load 0x2,0x2 0216 00db | | Load_Top At_Offset_3 0217 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0218 e001 | | Load 0x0,0x1 0219 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 021a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 021b e5ff | | Load 0x2,-0x1 021c 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 021d e402 | | Load 0x2,0x2 021e 00db | | Load_Top At_Offset_3 021f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0220 e001 | | Load 0x0,0x1 0221 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0222 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0223 e5ff | | Load 0x2,-0x1 0224 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 0225 e402 | | Load 0x2,0x2 0226 00db | | Load_Top At_Offset_3 0227 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0228 e5ff | | Load 0x2,-0x1 0229 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 022a 822e | . | Call 0x1,0x2e 022b e402 | | Load 0x2,0x2 022c 8405 | | Call 0x2,0x5 022d 4801 |H | Short_Literal 0x1 022e e404 | | Load 0x2,0x4 022f e403 | | Load 0x2,0x3 0230 01cf | | Execute Vector,Slice_Read 0231 e007 | | Load 0x0,0x7 0232 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0233 01c6 | | Execute Vector,Convert_To_Formal 0234 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0235 0000 0000 | | .XXX[0x3] 0237 0000 | | 0238 0000 0000 | | .LITERAL {0x00000000, 0x00000800} 023c 0000 0000 | | .BLANK 0000[0x4] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 026e | n | .CONST 0x026e ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 000c | | .CONST 0x000c ; Number of locals 0243 INIT_0240: 0243 0092 086e | n| Action Push_String_Extended,0x86e ; "Decode(PDU)" 0245 00db | | Load_Top At_Offset_3 0246 01dd | | Execute Vector,First 0247 0aff | | Execute_Immediate Plus,-0x1 0248 00e2 | | Load_Encached Integer_Cache 0249 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 024a e5ff | | Load 0x2,-0x1 024b 01dc | | Execute Vector,Last 024c 00e2 | | Load_Encached Integer_Cache 024d 03f1 | | Declare_Variable Discrete,With_Value 024e 4840 |H@ | Short_Literal 0x40 024f e220 | | Load 0x1,0x20 0250 1c08 | | Execute_Immediate Run_Utility,0x8 0251 00e3 | | Load_Encached Natural_Cache 0252 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0253 e006 | | Load 0x0,0x6 0254 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0255 0322 | " | Declare_Variable Record 0256 e006 | | Load 0x0,0x6 0257 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0258 0322 | " | Declare_Variable Record 0259 029f 0503 | | Declare_Subprogram INIT_0500,For_Call 025b 029f 050b | | Declare_Subprogram INIT_0508,For_Call 025d e008 | | Load 0x0,0x8 025e e009 | | Load 0x0,0x9 025f 00e9 | | Load_Encached String_Cache 0260 4809 |H | Short_Literal 0x9 0261 4802 |H | Short_Literal 0x2 0262 0099 | | Action Reference_Dynamic 0263 480a |H | Short_Literal 0xa 0264 4802 |H | Short_Literal 0x2 0265 0099 | | Action Reference_Dynamic 0266 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 0267 e006 | | Load 0x0,0x6 0268 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 0269 0387 | | Declare_Variable Package 026a 00d8 | | Load_Top At_Offset_0 026b 020f | | Execute Module,Activate 026c 029f 052b | +| Declare_Subprogram INIT_0528,For_Call 026e BODY_0240: 026e e402 | | Load 0x2,0x2 026f 00da | | Load_Top At_Offset_2 0270 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0271 e405 | | Load 0x2,0x5 0272 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0273 e402 | | Load 0x2,0x2 0274 00da | | Load_Top At_Offset_2 0275 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0276 e405 | | Load 0x2,0x5 0277 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0278 e402 | | Load 0x2,0x2 0279 00da | | Load_Top At_Offset_2 027a 1819 | | Execute Package,Field_Execute,Field_Number 0x19 027b e405 | | Load 0x2,0x5 027c 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4 027d e402 | | Load 0x2,0x2 027e 00da | | Load_Top At_Offset_2 027f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0280 e407 | | Load 0x2,0x7 0281 017d | } | Execute Record,Structure_Write 0282 e407 | | Load 0x2,0x7 0283 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0284 e001 | | Load 0x0,0x1 0285 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0286 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0287 017f | | Execute Record,Equal 0288 7001 |p | Jump_Nonzero 0x28a 0289 0887 | | Execute_Immediate Raise,0x87 028a e407 | | Load 0x2,0x7 028b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 028c 7001 |p | Jump_Nonzero 0x28e 028d 0887 | | Execute_Immediate Raise,0x87 028e e407 | | Load 0x2,0x7 028f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0290 4fff |O | Short_Literal -0x1 0291 027e | ~ | Execute Discrete,Not_Equal 0292 680c |h | Jump_Zero 0x29f 0293 e403 | | Load 0x2,0x3 0294 e407 | | Load 0x2,0x7 0295 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0296 0273 | s | Execute Discrete,Plus 0297 c404 | | Store 0x2,0x4 0298 e404 | | Load 0x2,0x4 0299 e403 | | Load 0x2,0x3 029a e5ff | | Load 0x2,-0x1 029b 01dc | | Execute Vector,Last 029c 0262 | b | Execute Discrete,In_Range 029d 7001 |p | Jump_Nonzero 0x29f 029e 0887 | | Execute_Immediate Raise,0x87 029f 00cf | | Action Mark_Auxiliary 02a0 7826 |x& | Jump 0x2c7 02a1 e402 | | Load 0x2,0x2 02a2 00db | | Load_Top At_Offset_3 02a3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02a4 e408 | | Load 0x2,0x8 02a5 017d | } | Execute Record,Structure_Write 02a6 e408 | | Load 0x2,0x8 02a7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02a8 e001 | | Load 0x0,0x1 02a9 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 02aa 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02ab 017f | | Execute Record,Equal 02ac 7001 |p | Jump_Nonzero 0x2ae 02ad 0887 | | Execute_Immediate Raise,0x87 02ae e408 | | Load 0x2,0x8 02af 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02b0 7001 |p | Jump_Nonzero 0x2b2 02b1 0887 | | Execute_Immediate Raise,0x87 02b2 e408 | | Load 0x2,0x8 02b3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02b4 e006 | | Load 0x0,0x6 02b5 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 02b6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02b7 017f | | Execute Record,Equal 02b8 7012 |p | Jump_Nonzero 0x2cb 02b9 e406 | | Load 0x2,0x6 02ba 0a01 | | Execute_Immediate Plus,0x1 02bb c406 | | Store 0x2,0x6 02bc e402 | | Load 0x2,0x2 02bd 00db | | Load_Top At_Offset_3 02be 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 02bf 8218 | | Call 0x1,0x18 02c0 e406 | | Load 0x2,0x6 02c1 e405 | | Load 0x2,0x5 02c2 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 02c3 01d5 | | Execute Vector,Field_Reference 02c4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02c5 840c | | Call 0x2,0xc 02c6 00c9 | | Action Pop_Auxiliary_Loop 02c7 e403 | | Load 0x2,0x3 02c8 e404 | | Load 0x2,0x4 02c9 027c | | | Execute Discrete,Less 02ca 77d6 |w | Jump_Nonzero 0x2a1 02cb 00ce | | Action Pop_Auxiliary 02cc 4801 |H | Short_Literal 0x1 02cd e406 | | Load 0x2,0x6 02ce e405 | | Load 0x2,0x5 02cf 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 02d0 01cf | | Execute Vector,Slice_Read 02d1 e405 | | Load 0x2,0x5 02d2 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 02d3 e405 | | Load 0x2,0x5 02d4 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 02d5 e405 | | Load 0x2,0x5 02d6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02d7 8221 | ! | Call 0x1,0x21 02d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d9 0000 0000 | | .BLANK 0000[0x7] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02ec | | .CONST 0x02ec ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0002 | | .CONST 0x0002 ; Number of locals 02e3 INIT_02e0: 02e3 00da | | Load_Top At_Offset_2 02e4 e5fe | | Load 0x2,-0x2 02e5 01db | | Execute Vector,Length 02e6 e5fd | | Load 0x2,-0x3 02e7 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 02e8 e225 | % | Load 0x1,0x25 02e9 1c08 | | Execute_Immediate Run_Utility,0x8 02ea 00d8 | | Load_Top At_Offset_0 02eb 1c00 | | Execute_Immediate Run_Utility,0x0 02ec BODY_02e0: 02ec 4800 |H | Short_Literal 0x0 02ed 00d9 | | Load_Top At_Offset_1 02ee 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4 02ef e5fe | | Load 0x2,-0x2 02f0 00d9 | | Load_Top At_Offset_1 02f1 2905 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5 02f2 00db | | Load_Top At_Offset_3 02f3 4604 |F | Jump_Case 0x5 02f4 7805 |x | Jump 0x2fa ; case 0x0 02f5 7808 |x | Jump 0x2fe ; case 0x1 02f6 780b |x | Jump 0x302 ; case 0x2 02f7 780e |x | Jump 0x306 ; case 0x3 02f8 7800 |x | Jump 0x2f9 ; case 0x4 02f9 08e0 | | Execute_Immediate Raise,0xe0 02fa e5fd | | Load 0x2,-0x3 02fb 00d9 | | Load_Top At_Offset_1 02fc 2b06 |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x6 02fd 780b |x | Jump 0x309 02fe e5fd | | Load 0x2,-0x3 02ff 00d9 | | Load_Top At_Offset_1 0300 2b07 |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x7 0301 7807 |x | Jump 0x309 0302 e5fd | | Load 0x2,-0x3 0303 00d9 | | Load_Top At_Offset_1 0304 2b08 |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x8 0305 7803 |x | Jump 0x309 0306 e5fd | | Load 0x2,-0x3 0307 00d9 | | Load_Top At_Offset_1 0308 2b09 |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x9 0309 00d8 | | Load_Top At_Offset_0 030a 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 030b 0000 0000 | | .BLANK 0000[0x5] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 031c | | .CONST 0x031c ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0002 | | .CONST 0x0002 ; Number of locals 0313 INIT_0310: 0313 00da | | Load_Top At_Offset_2 0314 e5fe | | Load 0x2,-0x2 0315 01db | | Execute Vector,Length 0316 e5fd | | Load 0x2,-0x3 0317 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0318 e225 | % | Load 0x1,0x25 0319 1c08 | | Execute_Immediate Run_Utility,0x8 031a 00d8 | | Load_Top At_Offset_0 031b 1c00 | | Execute_Immediate Run_Utility,0x0 031c BODY_0310: 031c 4800 |H | Short_Literal 0x0 031d 00d9 | | Load_Top At_Offset_1 031e 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4 031f e5fe | | Load 0x2,-0x2 0320 00d9 | | Load_Top At_Offset_1 0321 2905 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5 0322 00db | | Load_Top At_Offset_3 0323 0f04 | | Execute_Immediate Equal,0x4 0324 7001 |p | Jump_Nonzero 0x326 0325 08e0 | | Execute_Immediate Raise,0xe0 0326 e5fd | | Load 0x2,-0x3 0327 00d9 | | Load_Top At_Offset_1 0328 2b0a |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0xa 0329 00d8 | | Load_Top At_Offset_0 032a 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 032b 0000 0000 | | .BLANK 0000[0x5] 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0354 | T | .CONST 0x0354 ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0009 | | .CONST 0x0009 ; Number of locals 0333 INIT_0330: 0333 0092 086f | o| Action Push_String_Extended,0x86f ; "Encode(Message)" 0335 4801 |H | Short_Literal 0x1 0336 6079 |`y | Indirect_Literal Discrete,0x3b0,{0x00000000, 0x00000800} 0337 e002 | | Load 0x0,0x2 0338 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0339 035b | [ | Declare_Type Array,Constrained 033a 0337 | 7 | Declare_Variable Array 033b 00e3 | | Load_Encached Natural_Cache 033c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 033d 029f 0553 | S| Declare_Subprogram INIT_0550,For_Call 033f 029f 0573 | s| Declare_Subprogram INIT_0570,For_Call 0341 e00a | | Load 0x0,0xa 0342 e00b | | Load 0x0,0xb 0343 00e9 | | Load_Encached String_Cache 0344 4805 |H | Short_Literal 0x5 0345 4802 |H | Short_Literal 0x2 0346 0099 | | Action Reference_Dynamic 0347 4806 |H | Short_Literal 0x6 0348 4802 |H | Short_Literal 0x2 0349 0099 | | Action Reference_Dynamic 034a 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 034b e006 | | Load 0x0,0x6 034c 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 034d 0387 | | Declare_Variable Package 034e 00d8 | | Load_Top At_Offset_0 034f 020f | | Execute Module,Activate 0350 029f 057b | {| Declare_Subprogram INIT_0578,For_Call 0352 029f 0593 | | Declare_Subprogram INIT_0590,For_Call 0354 BODY_0330: 0354 e001 | | Load 0x0,0x1 0355 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0356 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0357 e5ff | | Load 0x2,-0x1 0358 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 0359 e402 | | Load 0x2,0x2 035a e407 | | Load 0x2,0x7 035b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 035c e001 | | Load 0x0,0x1 035d 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 035e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 035f e5ff | | Load 0x2,-0x1 0360 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 0361 e402 | | Load 0x2,0x2 0362 e407 | | Load 0x2,0x7 0363 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0364 e5ff | | Load 0x2,-0x1 0365 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0366 4604 |F | Jump_Case 0x5 0367 7806 |x | Jump 0x36e ; case 0x0 0368 780f |x | Jump 0x378 ; case 0x1 0369 7818 |x | Jump 0x382 ; case 0x2 036a 7821 |x! | Jump 0x38c ; case 0x3 036b 7800 |x | Jump 0x36c ; case 0x4 036c e00c | | Load 0x0,0xc 036d 0257 | W | Execute Discrete,Raise 036e e5ff | | Load 0x2,-0x1 036f 2706 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x6 0370 8222 | " | Call 0x1,0x22 0371 e5ff | | Load 0x2,-0x1 0372 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0373 e210 | | Load 0x1,0x10 0374 01d5 | | Execute Vector,Field_Reference 0375 e402 | | Load 0x2,0x2 0376 8408 | | Call 0x2,0x8 0377 781d |x | Jump 0x395 0378 e5ff | | Load 0x2,-0x1 0379 2707 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x7 037a 8222 | " | Call 0x1,0x22 037b e5ff | | Load 0x2,-0x1 037c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 037d e210 | | Load 0x1,0x10 037e 01d5 | | Execute Vector,Field_Reference 037f e402 | | Load 0x2,0x2 0380 8408 | | Call 0x2,0x8 0381 7813 |x | Jump 0x395 0382 e5ff | | Load 0x2,-0x1 0383 2708 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x8 0384 8222 | " | Call 0x1,0x22 0385 e5ff | | Load 0x2,-0x1 0386 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0387 e210 | | Load 0x1,0x10 0388 01d5 | | Execute Vector,Field_Reference 0389 e402 | | Load 0x2,0x2 038a 8408 | | Call 0x2,0x8 038b 7809 |x | Jump 0x395 038c e5ff | | Load 0x2,-0x1 038d 2709 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x9 038e 8222 | " | Call 0x1,0x22 038f e5ff | | Load 0x2,-0x1 0390 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0391 e210 | | Load 0x1,0x10 0392 01d5 | | Execute Vector,Field_Reference 0393 e402 | | Load 0x2,0x2 0394 8408 | | Call 0x2,0x8 0395 e006 | | Load 0x0,0x6 0396 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0397 0322 | " | Declare_Variable Record 0398 e001 | | Load 0x0,0x1 0399 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 039a 1b15 | | Execute Package,Field_Read,Field_Number 0x15 039b 00d9 | | Load_Top At_Offset_1 039c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 039d 4801 |H | Short_Literal 0x1 039e 00d9 | | Load_Top At_Offset_1 039f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03a0 e404 | | Load 0x2,0x4 03a1 00d9 | | Load_Top At_Offset_1 03a2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03a3 e006 | | Load 0x0,0x6 03a4 1820 | | Execute Package,Field_Execute,Field_Number 0x20 03a5 e402 | | Load 0x2,0x2 03a6 8409 | | Call 0x2,0x9 03a7 4801 |H | Short_Literal 0x1 03a8 e404 | | Load 0x2,0x4 03a9 e403 | | Load 0x2,0x3 03aa 01cf | | Execute Vector,Slice_Read 03ab e007 | | Load 0x0,0x7 03ac 1b12 | | Execute Package,Field_Read,Field_Number 0x12 03ad 01c6 | | Execute Vector,Convert_To_Formal 03ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03af 0000 | | .XXX[0x1] 03b0 0000 0000 | | .LITERAL {0x00000000, 0x00000800} 03b4 0000 0000 | | .BLANK 0000[0x4] 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; -------------------------------------------------------------------------------------- 03b8 03dc | | .CONST 0x03dc ; Address of begin 03b9 0004 | | .CONST 0x0004 ; Address of exception handler 03ba 0009 | | .CONST 0x0009 ; Number of locals 03bb INIT_03b8: 03bb 00da | | Load_Top At_Offset_2 03bc 01dd | | Execute Vector,First 03bd 0aff | | Execute_Immediate Plus,-0x1 03be 00e2 | | Load_Encached Integer_Cache 03bf 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 03c0 4840 |H@ | Short_Literal 0x40 03c1 e220 | | Load 0x1,0x20 03c2 1c08 | | Execute_Immediate Run_Utility,0x8 03c3 00e3 | | Load_Encached Natural_Cache 03c4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03c5 0092 086e | n| Action Push_String_Extended,0x86e ; "Decode(PDU)" 03c7 029f 05c3 | | Declare_Subprogram INIT_05c0,For_Call 03c9 029f 05cb | | Declare_Subprogram INIT_05c8,For_Call 03cb e00d | | Load 0x0,0xd 03cc e00e | | Load 0x0,0xe 03cd 00e9 | | Load_Encached String_Cache 03ce 4806 |H | Short_Literal 0x6 03cf 4802 |H | Short_Literal 0x2 03d0 0099 | | Action Reference_Dynamic 03d1 4807 |H | Short_Literal 0x7 03d2 4802 |H | Short_Literal 0x2 03d3 0099 | | Action Reference_Dynamic 03d4 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 03d5 e006 | | Load 0x0,0x6 03d6 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 03d7 0387 | | Declare_Variable Package 03d8 00d8 | | Load_Top At_Offset_0 03d9 020f | | Execute Module,Activate 03da 029f 05eb | | Declare_Subprogram INIT_05e8,For_Call 03dc BODY_03b8: 03dc 8409 | | Call 0x2,0x9 03dd 0831 | 1 | Execute_Immediate Raise,0x31 03de 0000 0000 | | .XXX[0x2] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03ec | | .CONST 0x03ec ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0004 | | .CONST 0x0004 ; Number of locals 03e3 INIT_03e0: 03e3 e00f | | Load 0x0,0xf 03e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03e5 02c7 | | Declare_Variable Any 03e6 00d8 | | Load_Top At_Offset_0 03e7 1c00 | | Execute_Immediate Run_Utility,0x0 03e8 029f 063b | ;| Declare_Subprogram INIT_0638,For_Call 03ea 029f 0653 | S| Declare_Subprogram INIT_0650,For_Call 03ec BODY_03e0: 03ec e5ff | | Load 0x2,-0x1 03ed 01db | | Execute Vector,Length 03ee 6804 |h | Jump_Zero 0x3f3 03ef e5ff | | Load 0x2,-0x1 03f0 e001 | | Load 0x0,0x1 03f1 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 03f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03f3 8403 | | Call 0x2,0x3 03f4 8404 | | Call 0x2,0x4 03f5 0831 | 1 | Execute_Immediate Raise,0x31 03f6 0000 0000 | | .XXX[0x2] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 03fb | | .CONST 0x03fb ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0001 | | .CONST 0x0001 ; Number of locals 03fb BODY_03f8: 03fb INIT_03f8: 03fb e010 | | Load 0x0,0x10 03fc 180e | | Execute Package,Field_Execute,Field_Number 0xe 03fd 4807 |H | Short_Literal 0x7 03fe 0092 0870 | p| Action Push_String_Extended,0x870 ; "in " 0400 e5ff | | Load 0x2,-0x1 0401 01cc | | Execute Vector,Catenate 0402 0092 0871 | q| Action Push_String_Extended,0x871 ; ": " 0404 01cc | | Execute Vector,Catenate 0405 e5fe | | Load 0x2,-0x2 0406 01cc | | Execute Vector,Catenate 0407 e011 | | Load 0x0,0x11 0408 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0409 4503 |E | Exit_Suprogram New_Top_Offset 0x3 040a 0000 0000 | | .BLANK 0000[0x6] 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 041f | | .CONST 0x041f ; Address of begin 0411 0004 | | .CONST 0x0004 ; Address of exception handler 0412 0005 | | .CONST 0x0005 ; Number of locals 0413 INIT_0410: 0413 4801 |H | Short_Literal 0x1 0414 6053 |`S | Indirect_Literal Discrete,0x468,{0x00000000, 0x00000400} 0415 e002 | | Load 0x0,0x2 0416 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0417 035b | [ | Declare_Type Array,Constrained 0418 0337 | 7 | Declare_Variable Array 0419 00e3 | | Load_Encached Natural_Cache 041a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 041b 029f 0663 | c| Declare_Subprogram INIT_0660,For_Call 041d 029f 0683 | | Declare_Subprogram INIT_0680,For_Call 041f BODY_0410: 041f e5ff | | Load 0x2,-0x1 0420 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0421 8217 | | Call 0x1,0x17 0422 e006 | | Load 0x0,0x6 0423 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0424 8404 | | Call 0x2,0x4 0425 e006 | | Load 0x0,0x6 0426 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0427 0322 | " | Declare_Variable Record 0428 e001 | | Load 0x0,0x1 0429 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 042a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 042b 00d9 | | Load_Top At_Offset_1 042c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 042d 4800 |H | Short_Literal 0x0 042e 00d9 | | Load_Top At_Offset_1 042f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0430 00db | | Load_Top At_Offset_3 0431 00d9 | | Load_Top At_Offset_1 0432 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0433 e006 | | Load 0x0,0x6 0434 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0435 8405 | | Call 0x2,0x5 0436 e006 | | Load 0x0,0x6 0437 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0438 0322 | " | Declare_Variable Record 0439 e5ff | | Load 0x2,-0x1 043a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 043b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 043c 00d9 | | Load_Top At_Offset_1 043d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 043e 4800 |H | Short_Literal 0x0 043f 00d9 | | Load_Top At_Offset_1 0440 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0441 e5ff | | Load 0x2,-0x1 0442 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0443 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0444 00d9 | | Load_Top At_Offset_1 0445 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0446 e006 | | Load 0x0,0x6 0447 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0448 8404 | | Call 0x2,0x4 0449 e5ff | | Load 0x2,-0x1 044a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 044b 8213 | | Call 0x1,0x13 044c 8404 | | Call 0x2,0x4 044d e006 | | Load 0x0,0x6 044e 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 044f 0322 | " | Declare_Variable Record 0450 e001 | | Load 0x0,0x1 0451 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0452 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0453 00d9 | | Load_Top At_Offset_1 0454 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0455 4801 |H | Short_Literal 0x1 0456 00d9 | | Load_Top At_Offset_1 0457 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0458 00db | | Load_Top At_Offset_3 0459 00d9 | | Load_Top At_Offset_1 045a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 045b e006 | | Load 0x0,0x6 045c 1820 | | Execute Package,Field_Execute,Field_Number 0x20 045d 8405 | | Call 0x2,0x5 045e 4801 |H | Short_Literal 0x1 045f 00db | | Load_Top At_Offset_3 0460 e402 | | Load 0x2,0x2 0461 01cf | | Execute Vector,Slice_Read 0462 e007 | | Load 0x0,0x7 0463 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0464 01c6 | | Execute Vector,Convert_To_Formal 0465 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0466 0000 0000 | | .XXX[0x2] 0468 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 046c 0000 0000 | | .BLANK 0000[0x4] 0470 ; -------------------------------------------------------------------------------------- 0470 ; SUBPROGRAM 0470 ; -------------------------------------------------------------------------------------- 0470 047f | | .CONST 0x047f ; Address of begin 0471 0004 | | .CONST 0x0004 ; Address of exception handler 0472 0005 | | .CONST 0x0005 ; Number of locals 0473 INIT_0470: 0473 4801 |H | Short_Literal 0x1 0474 67f3 |g | Indirect_Literal Discrete,0x468,{0x00000000, 0x00000400} 0475 e002 | | Load 0x0,0x2 0476 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0477 035b | [ | Declare_Type Array,Constrained 0478 0337 | 7 | Declare_Variable Array 0479 00e3 | | Load_Encached Natural_Cache 047a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 047b 029f 06b3 | | Declare_Subprogram INIT_06b0,For_Call 047d 029f 06d3 | | Declare_Subprogram INIT_06d0,For_Call 047f BODY_0470: 047f 00cf | | Action Mark_Auxiliary 0480 e5ff | | Load 0x2,-0x1 0481 01d9 | | Execute Vector,Reverse_Bounds 0482 0263 | c | Execute Discrete,Above_Bound 0483 7007 |p | Jump_Nonzero 0x48b 0484 00d8 | | Load_Top At_Offset_0 0485 e5ff | | Load 0x2,-0x1 0486 01d5 | | Execute Vector,Field_Reference 0487 822d | - | Call 0x1,0x2d 0488 8404 | | Call 0x2,0x4 0489 00c8 | | Action Pop_Auxiliary_Range 048a 3ff9 |? | Loop_Increasing 0x484 048b 00ce | | Action Pop_Auxiliary 048c e006 | | Load 0x0,0x6 048d 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 048e 0322 | " | Declare_Variable Record 048f e001 | | Load 0x0,0x1 0490 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0491 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0492 00d9 | | Load_Top At_Offset_1 0493 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0494 4801 |H | Short_Literal 0x1 0495 00d9 | | Load_Top At_Offset_1 0496 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0497 00db | | Load_Top At_Offset_3 0498 00d9 | | Load_Top At_Offset_1 0499 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 049a e006 | | Load 0x0,0x6 049b 1820 | | Execute Package,Field_Execute,Field_Number 0x20 049c 8405 | | Call 0x2,0x5 049d 4801 |H | Short_Literal 0x1 049e 00db | | Load_Top At_Offset_3 049f e402 | | Load 0x2,0x2 04a0 01cf | | Execute Vector,Slice_Read 04a1 e007 | | Load 0x0,0x7 04a2 1b12 | | Execute Package,Field_Read,Field_Number 0x12 04a3 01c6 | | Execute Vector,Convert_To_Formal 04a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04a5 0000 0000 | | .XXX[0x3] 04a7 0000 | | 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; SUBPROGRAM 04a8 ; -------------------------------------------------------------------------------------- 04a8 04b2 | | .CONST 0x04b2 ; Address of begin 04a9 04c4 | | .CONST 0x04c4 ; Address of exception handler 04aa 0003 | | .CONST 0x0003 ; Number of locals 04ab INIT_04a8: 04ab 4801 |H | Short_Literal 0x1 04ac 6027 |`' | Indirect_Literal Discrete,0x4d4,{0x00000000, 0x00000400} 04ad e00f | | Load 0x0,0xf 04ae 1b13 | | Execute Package,Field_Read,Field_Number 0x13 04af 035b | [ | Declare_Type Array,Constrained 04b0 0337 | 7 | Declare_Variable Array 04b1 00e3 | | Load_Encached Natural_Cache 04b2 BODY_04a8: 04b2 00e3 | | Load_Encached Natural_Cache 04b3 00da | | Load_Top At_Offset_2 04b4 e5ff | | Load 0x2,-0x1 04b5 e00f | | Load 0x0,0xf 04b6 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 04b7 00d1 | | Pop_Control Pop_Count_1 04b8 0059 | Y | Store_Top Discrete,At_Offset_1 04b9 4801 |H | Short_Literal 0x1 04ba 00d9 | | Load_Top At_Offset_1 04bb 00db | | Load_Top At_Offset_3 04bc 01cf | | Execute Vector,Slice_Read 04bd e5ff | | Load 0x2,-0x1 04be 822f | / | Call 0x1,0x2f 04bf 01cc | | Execute Vector,Catenate 04c0 e007 | | Load 0x0,0x7 04c1 1b12 | | Execute Package,Field_Read,Field_Number 0x12 04c2 01c6 | | Execute Vector,Convert_To_Formal 04c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04c4 TRAP_04a8: 04c4 00d8 | | Load_Top At_Offset_0 04c5 0107 | | Execute Exception,Get_Name 04c6 4950 |IP | Short_Literal 0x150 04c7 495f |I_ | Short_Literal 0x15f 04c8 0262 | b | Execute Discrete,In_Range 04c9 6808 |h | Jump_Zero 0x4d2 04ca 4801 |H | Short_Literal 0x1 04cb 4800 |H | Short_Literal 0x0 04cc e402 | | Load 0x2,0x2 04cd 01cf | | Execute Vector,Slice_Read 04ce e007 | | Load 0x0,0x7 04cf 1b12 | | Execute Package,Field_Read,Field_Number 0x12 04d0 01c6 | | Execute Vector,Convert_To_Formal 04d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04d2 0100 | | Execute Exception,Raise 04d3 0000 | | .XXX[0x1] 04d4 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04db | | .CONST 0x04db ; Address of begin 04d9 0004 | | .CONST 0x0004 ; Address of exception handler 04da 0001 | | .CONST 0x0001 ; Number of locals 04db BODY_04d8: 04db INIT_04d8: 04db 00db | | Load_Top At_Offset_3 04dc e404 | | Load 0x2,0x4 04dd 0a01 | | Execute_Immediate Plus,0x1 04de 00d8 | | Load_Top At_Offset_0 04df 00e2 | | Load_Encached Integer_Cache 04e0 0260 | ` | Execute Discrete,In_Type 04e1 7001 |p | Jump_Nonzero 0x4e3 04e2 0801 | | Execute_Immediate Raise,0x1 04e3 e404 | | Load 0x2,0x4 04e4 e7fe | | Load 0x3,-0x2 04e5 01db | | Execute Vector,Length 04e6 0273 | s | Execute Discrete,Plus 04e7 00d8 | | Load_Top At_Offset_0 04e8 00e2 | | Load_Encached Integer_Cache 04e9 0260 | ` | Execute Discrete,In_Type 04ea 7001 |p | Jump_Nonzero 0x4ec 04eb 0801 | | Execute_Immediate Raise,0x1 04ec e403 | | Load 0x2,0x3 04ed 01ce | | Execute Vector,Slice_Write 04ee e404 | | Load 0x2,0x4 04ef e7fe | | Load 0x3,-0x2 04f0 01db | | Execute Vector,Length 04f1 0273 | s | Execute Discrete,Plus 04f2 c404 | | Store 0x2,0x4 04f3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04f4 0000 0000 | | .BLANK 0000[0x4] 04f8 ; -------------------------------------------------------------------------------------- 04f8 ; SUBPROGRAM 04f8 ; -------------------------------------------------------------------------------------- 04f8 04fb | | .CONST 0x04fb ; Address of begin 04f9 0004 | | .CONST 0x0004 ; Address of exception handler 04fa 0001 | | .CONST 0x0001 ; Number of locals 04fb BODY_04f8: 04fb INIT_04f8: 04fb 0092 0872 | r| Action Push_String_Extended,0x872 ; "Get was called." 04fd 00db | | Load_Top At_Offset_3 04fe 822c | , | Call 0x1,0x2c 04ff 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0500 ; -------------------------------------------------------------------------------------- 0500 ; SUBPROGRAM 0500 ; -------------------------------------------------------------------------------------- 0500 0503 | | .CONST 0x0503 ; Address of begin 0501 0004 | | .CONST 0x0004 ; Address of exception handler 0502 0001 | | .CONST 0x0001 ; Number of locals 0503 BODY_0500: 0503 INIT_0500: 0503 0092 0873 | s| Action Push_String_Extended,0x873 ; "Put was called." 0505 00db | | Load_Top At_Offset_3 0506 822c | , | Call 0x1,0x2c 0507 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 050b | | .CONST 0x050b ; Address of begin 0509 0004 | | .CONST 0x0004 ; Address of exception handler 050a 0001 | | .CONST 0x0001 ; Number of locals 050b BODY_0508: 050b INIT_0508: 050b e403 | | Load 0x2,0x3 050c 0a01 | | Execute_Immediate Plus,0x1 050d 00d8 | | Load_Top At_Offset_0 050e 00e2 | | Load_Encached Integer_Cache 050f 0260 | ` | Execute Discrete,In_Type 0510 7001 |p | Jump_Nonzero 0x512 0511 0801 | | Execute_Immediate Raise,0x1 0512 e403 | | Load 0x2,0x3 0513 e7fe | | Load 0x3,-0x2 0514 01db | | Execute Vector,Length 0515 0273 | s | Execute Discrete,Plus 0516 00d8 | | Load_Top At_Offset_0 0517 00e2 | | Load_Encached Integer_Cache 0518 0260 | ` | Execute Discrete,In_Type 0519 7001 |p | Jump_Nonzero 0x51b 051a 0801 | | Execute_Immediate Raise,0x1 051b e5ff | | Load 0x2,-0x1 051c 01cf | | Execute Vector,Slice_Read 051d e7fe | | Load 0x3,-0x2 051e 01d4 | | Execute Vector,Structure_Write 051f e403 | | Load 0x2,0x3 0520 e7fe | | Load 0x3,-0x2 0521 01db | | Execute Vector,Length 0522 0273 | s | Execute Discrete,Plus 0523 c403 | | Store 0x2,0x3 0524 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0525 0000 0000 | | .XXX[0x3] 0527 0000 | | 0528 ; -------------------------------------------------------------------------------------- 0528 ; SUBPROGRAM 0528 ; -------------------------------------------------------------------------------------- 0528 052e | . | .CONST 0x052e ; Address of begin 0529 0004 | | .CONST 0x0004 ; Address of exception handler 052a 0002 | | .CONST 0x0002 ; Number of locals 052b INIT_0528: 052b e402 | | Load 0x2,0x2 052c e40b | | Load 0x2,0xb 052d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 052e BODY_0528: 052e 00d8 | | Load_Top At_Offset_0 052f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0530 e406 | | Load 0x2,0x6 0531 e405 | | Load 0x2,0x5 0532 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 0533 01d5 | | Execute Vector,Field_Reference 0534 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0535 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0536 00d8 | | Load_Top At_Offset_0 0537 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0538 e406 | | Load 0x2,0x6 0539 e405 | | Load 0x2,0x5 053a 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 053b 01d5 | | Execute Vector,Field_Reference 053c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 053d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 053e e406 | | Load 0x2,0x6 053f e405 | | Load 0x2,0x5 0540 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 0541 01d5 | | Execute Vector,Field_Reference 0542 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0543 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0544 4801 |H | Short_Literal 0x1 0545 00da | | Load_Top At_Offset_2 0546 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0547 00da | | Load_Top At_Offset_2 0548 035b | [ | Declare_Type Array,Constrained 0549 00d0 | | Action Swap_Control 054a 01cd | | Execute Vector,Slice_Reference 054b 00d8 | | Load_Top At_Offset_0 054c e402 | | Load 0x2,0x2 054d 840a | | Call 0x2,0xa 054e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 054f 0000 | | .XXX[0x1] 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 0553 | S | .CONST 0x0553 ; Address of begin 0551 0004 | | .CONST 0x0004 ; Address of exception handler 0552 0001 | | .CONST 0x0001 ; Number of locals 0553 BODY_0550: 0553 INIT_0550: 0553 00db | | Load_Top At_Offset_3 0554 e404 | | Load 0x2,0x4 0555 0a01 | | Execute_Immediate Plus,0x1 0556 00d8 | | Load_Top At_Offset_0 0557 00e2 | | Load_Encached Integer_Cache 0558 0260 | ` | Execute Discrete,In_Type 0559 7001 |p | Jump_Nonzero 0x55b 055a 0801 | | Execute_Immediate Raise,0x1 055b e404 | | Load 0x2,0x4 055c e7fe | | Load 0x3,-0x2 055d 01db | | Execute Vector,Length 055e 0273 | s | Execute Discrete,Plus 055f 00d8 | | Load_Top At_Offset_0 0560 00e2 | | Load_Encached Integer_Cache 0561 0260 | ` | Execute Discrete,In_Type 0562 7001 |p | Jump_Nonzero 0x564 0563 0801 | | Execute_Immediate Raise,0x1 0564 e403 | | Load 0x2,0x3 0565 01ce | | Execute Vector,Slice_Write 0566 e404 | | Load 0x2,0x4 0567 e7fe | | Load 0x3,-0x2 0568 01db | | Execute Vector,Length 0569 0273 | s | Execute Discrete,Plus 056a c404 | | Store 0x2,0x4 056b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 056c 0000 0000 | | .BLANK 0000[0x4] 0570 ; -------------------------------------------------------------------------------------- 0570 ; SUBPROGRAM 0570 ; -------------------------------------------------------------------------------------- 0570 0573 | s | .CONST 0x0573 ; Address of begin 0571 0004 | | .CONST 0x0004 ; Address of exception handler 0572 0001 | | .CONST 0x0001 ; Number of locals 0573 BODY_0570: 0573 INIT_0570: 0573 0092 0872 | r| Action Push_String_Extended,0x872 ; "Get was called." 0575 00db | | Load_Top At_Offset_3 0576 822c | , | Call 0x1,0x2c 0577 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0578 ; -------------------------------------------------------------------------------------- 0578 ; SUBPROGRAM 0578 ; -------------------------------------------------------------------------------------- 0578 057b | { | .CONST 0x057b ; Address of begin 0579 0004 | | .CONST 0x0004 ; Address of exception handler 057a 0001 | | .CONST 0x0001 ; Number of locals 057b BODY_0578: 057b INIT_0578: 057b e006 | | Load 0x0,0x6 057c 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 057d 0322 | " | Declare_Variable Record 057e e7fe | | Load 0x3,-0x2 057f 00d9 | | Load_Top At_Offset_1 0580 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0581 4801 |H | Short_Literal 0x1 0582 00d9 | | Load_Top At_Offset_1 0583 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0584 e7fd | | Load 0x3,-0x3 0585 01db | | Execute Vector,Length 0586 00d9 | | Load_Top At_Offset_1 0587 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0588 00db | | Load_Top At_Offset_3 0589 e407 | | Load 0x2,0x7 058a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 058b e7fd | | Load 0x3,-0x3 058c 00db | | Load_Top At_Offset_3 058d 8405 | | Call 0x2,0x5 058e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 058f 0000 | | .XXX[0x1] 0590 ; -------------------------------------------------------------------------------------- 0590 ; SUBPROGRAM 0590 ; -------------------------------------------------------------------------------------- 0590 0593 | | .CONST 0x0593 ; Address of begin 0591 0004 | | .CONST 0x0004 ; Address of exception handler 0592 0001 | | .CONST 0x0001 ; Number of locals 0593 BODY_0590: 0593 INIT_0590: 0593 4801 |H | Short_Literal 0x1 0594 e404 | | Load 0x2,0x4 0595 e403 | | Load 0x2,0x3 0596 01cf | | Execute Vector,Slice_Read 0597 e7fe | | Load 0x3,-0x2 0598 01db | | Execute Vector,Length 0599 0a01 | | Execute_Immediate Plus,0x1 059a 00d8 | | Load_Top At_Offset_0 059b 00e2 | | Load_Encached Integer_Cache 059c 0260 | ` | Execute Discrete,In_Type 059d 7001 |p | Jump_Nonzero 0x59f 059e 0801 | | Execute_Immediate Raise,0x1 059f e7fe | | Load 0x3,-0x2 05a0 01db | | Execute Vector,Length 05a1 e404 | | Load 0x2,0x4 05a2 0273 | s | Execute Discrete,Plus 05a3 00d8 | | Load_Top At_Offset_0 05a4 00e2 | | Load_Encached Integer_Cache 05a5 0260 | ` | Execute Discrete,In_Type 05a6 7001 |p | Jump_Nonzero 0x5a8 05a7 0801 | | Execute_Immediate Raise,0x1 05a8 e403 | | Load 0x2,0x3 05a9 01ce | | Execute Vector,Slice_Write 05aa 00db | | Load_Top At_Offset_3 05ab 4801 |H | Short_Literal 0x1 05ac e7fe | | Load 0x3,-0x2 05ad 01db | | Execute Vector,Length 05ae 00d8 | | Load_Top At_Offset_0 05af 00e2 | | Load_Encached Integer_Cache 05b0 0260 | ` | Execute Discrete,In_Type 05b1 7001 |p | Jump_Nonzero 0x5b3 05b2 0801 | | Execute_Immediate Raise,0x1 05b3 e403 | | Load 0x2,0x3 05b4 01ce | | Execute Vector,Slice_Write 05b5 e404 | | Load 0x2,0x4 05b6 e7fe | | Load 0x3,-0x2 05b7 01db | | Execute Vector,Length 05b8 0273 | s | Execute Discrete,Plus 05b9 c404 | | Store 0x2,0x4 05ba 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05bb 0000 0000 | | .BLANK 0000[0x5] 05c0 ; -------------------------------------------------------------------------------------- 05c0 ; SUBPROGRAM 05c0 ; -------------------------------------------------------------------------------------- 05c0 05c3 | | .CONST 0x05c3 ; Address of begin 05c1 0004 | | .CONST 0x0004 ; Address of exception handler 05c2 0001 | | .CONST 0x0001 ; Number of locals 05c3 BODY_05c0: 05c3 INIT_05c0: 05c3 0092 0873 | s| Action Push_String_Extended,0x873 ; "Put was called." 05c5 00db | | Load_Top At_Offset_3 05c6 822c | , | Call 0x1,0x2c 05c7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05cb | | .CONST 0x05cb ; Address of begin 05c9 0004 | | .CONST 0x0004 ; Address of exception handler 05ca 0001 | | .CONST 0x0001 ; Number of locals 05cb BODY_05c8: 05cb INIT_05c8: 05cb e402 | | Load 0x2,0x2 05cc 0a01 | | Execute_Immediate Plus,0x1 05cd 00d8 | | Load_Top At_Offset_0 05ce 00e2 | | Load_Encached Integer_Cache 05cf 0260 | ` | Execute Discrete,In_Type 05d0 7001 |p | Jump_Nonzero 0x5d2 05d1 0801 | | Execute_Immediate Raise,0x1 05d2 e402 | | Load 0x2,0x2 05d3 e7fe | | Load 0x3,-0x2 05d4 01db | | Execute Vector,Length 05d5 0273 | s | Execute Discrete,Plus 05d6 00d8 | | Load_Top At_Offset_0 05d7 00e2 | | Load_Encached Integer_Cache 05d8 0260 | ` | Execute Discrete,In_Type 05d9 7001 |p | Jump_Nonzero 0x5db 05da 0801 | | Execute_Immediate Raise,0x1 05db e5ff | | Load 0x2,-0x1 05dc 01cf | | Execute Vector,Slice_Read 05dd e7fe | | Load 0x3,-0x2 05de 01d4 | | Execute Vector,Structure_Write 05df e402 | | Load 0x2,0x2 05e0 e7fe | | Load 0x3,-0x2 05e1 01db | | Execute Vector,Length 05e2 0273 | s | Execute Discrete,Plus 05e3 c402 | | Store 0x2,0x2 05e4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05e5 0000 0000 | | .XXX[0x3] 05e7 0000 | | 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; SUBPROGRAM 05e8 ; -------------------------------------------------------------------------------------- 05e8 0603 | | .CONST 0x0603 ; Address of begin 05e9 0004 | | .CONST 0x0004 ; Address of exception handler 05ea 0007 | | .CONST 0x0007 ; Number of locals 05eb INIT_05e8: 05eb e405 | | Load 0x2,0x5 05ec e408 | | Load 0x2,0x8 05ed 1814 | | Execute Package,Field_Execute,Field_Number 0x14 05ee e402 | | Load 0x2,0x2 05ef 00d9 | | Load_Top At_Offset_1 05f0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 05f1 0273 | s | Execute Discrete,Plus 05f2 00e4 | | Load_Encached Positive_Cache 05f3 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 05f4 e405 | | Load 0x2,0x5 05f5 e408 | | Load 0x2,0x8 05f6 1819 | | Execute Package,Field_Execute,Field_Number 0x19 05f7 e405 | | Load 0x2,0x5 05f8 e408 | | Load 0x2,0x8 05f9 181f | | Execute Package,Field_Execute,Field_Number 0x1f 05fa e405 | | Load 0x2,0x5 05fb e408 | | Load 0x2,0x8 05fc 1814 | | Execute Package,Field_Execute,Field_Number 0x14 05fd e402 | | Load 0x2,0x2 05fe 00d9 | | Load_Top At_Offset_1 05ff 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0600 0273 | s | Execute Discrete,Plus 0601 00e4 | | Load_Encached Positive_Cache 0602 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0603 BODY_05e8: 0603 e603 | | Load 0x3,0x3 0604 e5ff | | Load 0x2,-0x1 0605 01dc | | Execute Vector,Last 0606 027a | z | Execute Discrete,Less_Equal 0607 7001 |p | Jump_Nonzero 0x609 0608 0887 | | Execute_Immediate Raise,0x87 0609 00d8 | | Load_Top At_Offset_0 060a e603 | | Load 0x3,0x3 060b 027a | z | Execute Discrete,Less_Equal 060c 7001 |p | Jump_Nonzero 0x60e 060d 0887 | | Execute_Immediate Raise,0x87 060e 00cf | | Action Mark_Auxiliary 060f e210 | | Load 0x1,0x10 0610 01d9 | | Execute Vector,Reverse_Bounds 0611 0007 | | Action Break_Optional 0612 00d8 | | Load_Top At_Offset_0 0613 e210 | | Load 0x1,0x10 0614 01d5 | | Execute Vector,Field_Reference 0615 e606 | | Load 0x3,0x6 0616 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0617 017f | | Execute Record,Equal 0618 681a |h | Jump_Zero 0x633 0619 00d8 | | Load_Top At_Offset_0 061a 4800 |H | Short_Literal 0x0 061b 4803 |H | Short_Literal 0x3 061c 0262 | b | Execute Discrete,In_Range 061d 7002 |p | Jump_Nonzero 0x620 061e e00c | | Load 0x0,0xc 061f 0257 | W | Execute Discrete,Raise 0620 e604 | | Load 0x3,0x4 0621 e402 | | Load 0x2,0x2 0622 0a01 | | Execute_Immediate Plus,0x1 0623 00d8 | | Load_Top At_Offset_0 0624 00e2 | | Load_Encached Integer_Cache 0625 0260 | ` | Execute Discrete,In_Type 0626 7001 |p | Jump_Nonzero 0x628 0627 0801 | | Execute_Immediate Raise,0x1 0628 e607 | | Load 0x3,0x7 0629 e5ff | | Load 0x2,-0x1 062a 01cf | | Execute Vector,Slice_Read 062b 8223 | # | Call 0x1,0x23 062c e605 | | Load 0x3,0x5 062d 00db | | Load_Top At_Offset_3 062e 8226 | & | Call 0x1,0x26 062f e225 | % | Load 0x1,0x25 0630 0165 | e | Execute Variant_Record,Convert 0631 00cb | | Action Pop_Block_With_Result 0632 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0633 00c8 | | Action Pop_Auxiliary_Range 0634 3fdd |? | Loop_Increasing 0x612 0635 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0636 0000 0000 | | .XXX[0x2] 0638 ; -------------------------------------------------------------------------------------- 0638 ; SUBPROGRAM 0638 ; -------------------------------------------------------------------------------------- 0638 063b | ; | .CONST 0x063b ; Address of begin 0639 0647 | G | .CONST 0x0647 ; Address of exception handler 063a 0001 | | .CONST 0x0001 ; Number of locals 063b BODY_0638: 063b INIT_0638: 063b e402 | | Load 0x2,0x2 063c e012 | | Load 0x0,0x12 063d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 063e e013 | | Load 0x0,0x13 063f 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0640 00ea | | Load_Encached Null_String_Cache 0641 e22b | + | Load 0x1,0x2b 0642 4800 |H | Short_Literal 0x0 0643 e00f | | Load 0x0,0xf 0644 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0645 c402 | | Store 0x2,0x2 0646 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0647 TRAP_0638: 0647 0007 | | Action Break_Optional 0648 e001 | | Load 0x0,0x1 0649 1b14 | | Execute Package,Field_Read,Field_Number 0x14 064a 00cb | | Action Pop_Block_With_Result 064b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 064c 0000 0000 | | .BLANK 0000[0x4] 0650 ; -------------------------------------------------------------------------------------- 0650 ; SUBPROGRAM 0650 ; -------------------------------------------------------------------------------------- 0650 0655 | U | .CONST 0x0655 ; Address of begin 0651 0004 | | .CONST 0x0004 ; Address of exception handler 0652 0002 | | .CONST 0x0002 ; Number of locals 0653 INIT_0650: 0653 e402 | | Load 0x2,0x2 0654 822f | / | Call 0x1,0x2f 0655 BODY_0650: 0655 e402 | | Load 0x2,0x2 0656 e00f | | Load 0x0,0xf 0657 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0658 c402 | | Store 0x2,0x2 0659 00d8 | | Load_Top At_Offset_0 065a 00cb | | Action Pop_Block_With_Result 065b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 065c 0000 0000 | | .BLANK 0000[0x4] 0660 ; -------------------------------------------------------------------------------------- 0660 ; SUBPROGRAM 0660 ; -------------------------------------------------------------------------------------- 0660 0663 | c | .CONST 0x0663 ; Address of begin 0661 0004 | | .CONST 0x0004 ; Address of exception handler 0662 0001 | | .CONST 0x0001 ; Number of locals 0663 BODY_0660: 0663 INIT_0660: 0663 00da | | Load_Top At_Offset_2 0664 e403 | | Load 0x2,0x3 0665 0a01 | | Execute_Immediate Plus,0x1 0666 00d8 | | Load_Top At_Offset_0 0667 00e2 | | Load_Encached Integer_Cache 0668 0260 | ` | Execute Discrete,In_Type 0669 7001 |p | Jump_Nonzero 0x66b 066a 0801 | | Execute_Immediate Raise,0x1 066b e403 | | Load 0x2,0x3 066c e7ff | | Load 0x3,-0x1 066d 01db | | Execute Vector,Length 066e 0273 | s | Execute Discrete,Plus 066f 00d8 | | Load_Top At_Offset_0 0670 00e2 | | Load_Encached Integer_Cache 0671 0260 | ` | Execute Discrete,In_Type 0672 7001 |p | Jump_Nonzero 0x674 0673 0801 | | Execute_Immediate Raise,0x1 0674 e402 | | Load 0x2,0x2 0675 01ce | | Execute Vector,Slice_Write 0676 e403 | | Load 0x2,0x3 0677 00db | | Load_Top At_Offset_3 0678 01db | | Execute Vector,Length 0679 0273 | s | Execute Discrete,Plus 067a c403 | | Store 0x2,0x3 067b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 067c 0000 0000 | | .BLANK 0000[0x4] 0680 ; -------------------------------------------------------------------------------------- 0680 ; SUBPROGRAM 0680 ; -------------------------------------------------------------------------------------- 0680 0683 | | .CONST 0x0683 ; Address of begin 0681 0004 | | .CONST 0x0004 ; Address of exception handler 0682 0001 | | .CONST 0x0001 ; Number of locals 0683 BODY_0680: 0683 INIT_0680: 0683 4801 |H | Short_Literal 0x1 0684 e403 | | Load 0x2,0x3 0685 e402 | | Load 0x2,0x2 0686 01cf | | Execute Vector,Slice_Read 0687 00db | | Load_Top At_Offset_3 0688 01db | | Execute Vector,Length 0689 0a01 | | Execute_Immediate Plus,0x1 068a 00d8 | | Load_Top At_Offset_0 068b 00e2 | | Load_Encached Integer_Cache 068c 0260 | ` | Execute Discrete,In_Type 068d 7001 |p | Jump_Nonzero 0x68f 068e 0801 | | Execute_Immediate Raise,0x1 068f e7ff | | Load 0x3,-0x1 0690 01db | | Execute Vector,Length 0691 e403 | | Load 0x2,0x3 0692 0273 | s | Execute Discrete,Plus 0693 00d8 | | Load_Top At_Offset_0 0694 00e2 | | Load_Encached Integer_Cache 0695 0260 | ` | Execute Discrete,In_Type 0696 7001 |p | Jump_Nonzero 0x698 0697 0801 | | Execute_Immediate Raise,0x1 0698 e402 | | Load 0x2,0x2 0699 01ce | | Execute Vector,Slice_Write 069a 00da | | Load_Top At_Offset_2 069b 4801 |H | Short_Literal 0x1 069c e7ff | | Load 0x3,-0x1 069d 01db | | Execute Vector,Length 069e 00d8 | | Load_Top At_Offset_0 069f 00e2 | | Load_Encached Integer_Cache 06a0 0260 | ` | Execute Discrete,In_Type 06a1 7001 |p | Jump_Nonzero 0x6a3 06a2 0801 | | Execute_Immediate Raise,0x1 06a3 e402 | | Load 0x2,0x2 06a4 01ce | | Execute Vector,Slice_Write 06a5 e403 | | Load 0x2,0x3 06a6 00db | | Load_Top At_Offset_3 06a7 01db | | Execute Vector,Length 06a8 0273 | s | Execute Discrete,Plus 06a9 c403 | | Store 0x2,0x3 06aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06ab 0000 0000 | | .BLANK 0000[0x5] 06b0 ; -------------------------------------------------------------------------------------- 06b0 ; SUBPROGRAM 06b0 ; -------------------------------------------------------------------------------------- 06b0 06b3 | | .CONST 0x06b3 ; Address of begin 06b1 0004 | | .CONST 0x0004 ; Address of exception handler 06b2 0001 | | .CONST 0x0001 ; Number of locals 06b3 BODY_06b0: 06b3 INIT_06b0: 06b3 00da | | Load_Top At_Offset_2 06b4 e403 | | Load 0x2,0x3 06b5 0a01 | | Execute_Immediate Plus,0x1 06b6 00d8 | | Load_Top At_Offset_0 06b7 00e2 | | Load_Encached Integer_Cache 06b8 0260 | ` | Execute Discrete,In_Type 06b9 7001 |p | Jump_Nonzero 0x6bb 06ba 0801 | | Execute_Immediate Raise,0x1 06bb e403 | | Load 0x2,0x3 06bc e7ff | | Load 0x3,-0x1 06bd 01db | | Execute Vector,Length 06be 0273 | s | Execute Discrete,Plus 06bf 00d8 | | Load_Top At_Offset_0 06c0 00e2 | | Load_Encached Integer_Cache 06c1 0260 | ` | Execute Discrete,In_Type 06c2 7001 |p | Jump_Nonzero 0x6c4 06c3 0801 | | Execute_Immediate Raise,0x1 06c4 e402 | | Load 0x2,0x2 06c5 01ce | | Execute Vector,Slice_Write 06c6 e403 | | Load 0x2,0x3 06c7 00db | | Load_Top At_Offset_3 06c8 01db | | Execute Vector,Length 06c9 0273 | s | Execute Discrete,Plus 06ca c403 | | Store 0x2,0x3 06cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06cc 0000 0000 | | .BLANK 0000[0x4] 06d0 ; -------------------------------------------------------------------------------------- 06d0 ; SUBPROGRAM 06d0 ; -------------------------------------------------------------------------------------- 06d0 06d3 | | .CONST 0x06d3 ; Address of begin 06d1 0004 | | .CONST 0x0004 ; Address of exception handler 06d2 0001 | | .CONST 0x0001 ; Number of locals 06d3 BODY_06d0: 06d3 INIT_06d0: 06d3 4801 |H | Short_Literal 0x1 06d4 e403 | | Load 0x2,0x3 06d5 e402 | | Load 0x2,0x2 06d6 01cf | | Execute Vector,Slice_Read 06d7 00db | | Load_Top At_Offset_3 06d8 01db | | Execute Vector,Length 06d9 0a01 | | Execute_Immediate Plus,0x1 06da 00d8 | | Load_Top At_Offset_0 06db 00e2 | | Load_Encached Integer_Cache 06dc 0260 | ` | Execute Discrete,In_Type 06dd 7001 |p | Jump_Nonzero 0x6df 06de 0801 | | Execute_Immediate Raise,0x1 06df e7ff | | Load 0x3,-0x1 06e0 01db | | Execute Vector,Length 06e1 e403 | | Load 0x2,0x3 06e2 0273 | s | Execute Discrete,Plus 06e3 00d8 | | Load_Top At_Offset_0 06e4 00e2 | | Load_Encached Integer_Cache 06e5 0260 | ` | Execute Discrete,In_Type 06e6 7001 |p | Jump_Nonzero 0x6e8 06e7 0801 | | Execute_Immediate Raise,0x1 06e8 e402 | | Load 0x2,0x2 06e9 01ce | | Execute Vector,Slice_Write 06ea 00da | | Load_Top At_Offset_2 06eb 4801 |H | Short_Literal 0x1 06ec e7ff | | Load 0x3,-0x1 06ed 01db | | Execute Vector,Length 06ee 00d8 | | Load_Top At_Offset_0 06ef 00e2 | | Load_Encached Integer_Cache 06f0 0260 | ` | Execute Discrete,In_Type 06f1 7001 |p | Jump_Nonzero 0x6f3 06f2 0801 | | Execute_Immediate Raise,0x1 06f3 e402 | | Load 0x2,0x2 06f4 01ce | | Execute Vector,Slice_Write 06f5 e403 | | Load 0x2,0x3 06f6 00db | | Load_Top At_Offset_3 06f7 01db | | Execute Vector,Length 06f8 0273 | s | Execute Discrete,Plus 06f9 c403 | | Store 0x2,0x3 06fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06fb 0000 0000 | | .BLANK 0000[0x5] 0700 ; -------------------------------------------------------------------------------------- 0700 ; SUBPROGRAM 0700 ; -------------------------------------------------------------------------------------- 0700 0703 | | .CONST 0x0703 ; Address of begin 0701 0004 | | .CONST 0x0004 ; Address of exception handler 0702 0001 | | .CONST 0x0001 ; Number of locals 0703 BODY_0700: 0703 INIT_0700: 0703 4608 |F | Jump_Case 0x9 0704 7808 |x | Jump 0x70d ; case 0x0 0705 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0706 7825 |x% | Jump 0x72c ; case 0x2 0707 7824 |x$ | Jump 0x72c ; case 0x3 0708 7823 |x# | Jump 0x72c ; case 0x4 0709 7822 |x" | Jump 0x72c ; case 0x5 070a 7821 |x! | Jump 0x72c ; case 0x6 070b 780d |x | Jump 0x719 ; case 0x7 070c 7815 |x | Jump 0x722 ; case 0x8 070d 00da | | Load_Top At_Offset_2 070e 016c | l | Execute Variant_Record,Is_Constrained 070f 7008 |p | Jump_Nonzero 0x718 0710 00cf | | Action Mark_Auxiliary 0711 4800 |H | Short_Literal 0x0 0712 e5ff | | Load 0x2,-0x1 0713 1c08 | | Execute_Immediate Run_Utility,0x8 0714 00d8 | | Load_Top At_Offset_0 0715 1c00 | | Execute_Immediate Run_Utility,0x0 0716 c5ff | | Store 0x2,-0x1 0717 00ce | | Action Pop_Auxiliary 0718 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0719 00db | | Load_Top At_Offset_3 071a 4801 |H | Short_Literal 0x1 071b e5fe | | Load 0x2,-0x2 071c e21e | | Load 0x1,0x1e 071d 035b | [ | Declare_Type Array,Constrained 071e 4801 |H | Short_Literal 0x1 071f e5ff | | Load 0x2,-0x1 0720 031b | | Declare_Type Variant_Record,Constrained 0721 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0722 00db | | Load_Top At_Offset_3 0723 00db | | Load_Top At_Offset_3 0724 02fc | | Declare_Variable Variant_Record,With_Constraint 0725 4801 |H | Short_Literal 0x1 0726 e5fe | | Load 0x2,-0x2 0727 e21e | | Load 0x1,0x1e 0728 0334 | 4 | Declare_Variable Array,With_Constraint 0729 2d05 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x5 072a 016a | j | QQ_execute Variant_Record,XXX 072b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 072c 0869 | i | Execute_Immediate Raise,0x69 072d 0000 0000 | | .XXX[0x3] 072f 0000 | | 0730 ; -------------------------------------------------------------------------------------- 0730 ; SUBPROGRAM 0730 ; -------------------------------------------------------------------------------------- 0730 0733 | 3 | .CONST 0x0733 ; Address of begin 0731 0004 | | .CONST 0x0004 ; Address of exception handler 0732 0001 | | .CONST 0x0001 ; Number of locals 0733 BODY_0730: 0733 INIT_0730: 0733 4608 |F | Jump_Case 0x9 0734 7808 |x | Jump 0x73d ; case 0x0 0735 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0736 7825 |x% | Jump 0x75c ; case 0x2 0737 7824 |x$ | Jump 0x75c ; case 0x3 0738 7823 |x# | Jump 0x75c ; case 0x4 0739 7822 |x" | Jump 0x75c ; case 0x5 073a 7821 |x! | Jump 0x75c ; case 0x6 073b 780d |x | Jump 0x749 ; case 0x7 073c 7815 |x | Jump 0x752 ; case 0x8 073d 00da | | Load_Top At_Offset_2 073e 016c | l | Execute Variant_Record,Is_Constrained 073f 7008 |p | Jump_Nonzero 0x748 0740 00cf | | Action Mark_Auxiliary 0741 4800 |H | Short_Literal 0x0 0742 e5ff | | Load 0x2,-0x1 0743 1c08 | | Execute_Immediate Run_Utility,0x8 0744 00d8 | | Load_Top At_Offset_0 0745 1c00 | | Execute_Immediate Run_Utility,0x0 0746 c5ff | | Store 0x2,-0x1 0747 00ce | | Action Pop_Auxiliary 0748 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0749 00db | | Load_Top At_Offset_3 074a 4801 |H | Short_Literal 0x1 074b e5fe | | Load 0x2,-0x2 074c e21e | | Load 0x1,0x1e 074d 035b | [ | Declare_Type Array,Constrained 074e 4801 |H | Short_Literal 0x1 074f e5ff | | Load 0x2,-0x1 0750 031b | | Declare_Type Variant_Record,Constrained 0751 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0752 00db | | Load_Top At_Offset_3 0753 00db | | Load_Top At_Offset_3 0754 02fc | | Declare_Variable Variant_Record,With_Constraint 0755 4801 |H | Short_Literal 0x1 0756 e5fe | | Load 0x2,-0x2 0757 e21e | | Load 0x1,0x1e 0758 0334 | 4 | Declare_Variable Array,With_Constraint 0759 2d07 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x7 075a 016a | j | QQ_execute Variant_Record,XXX 075b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 075c 0869 | i | Execute_Immediate Raise,0x69 075d 0000 0000 | | .XXX[0x3] 075f 0000 | | 0760 ; -------------------------------------------------------------------------------------- 0760 ; SUBPROGRAM 0760 ; -------------------------------------------------------------------------------------- 0760 0763 | c | .CONST 0x0763 ; Address of begin 0761 0004 | | .CONST 0x0004 ; Address of exception handler 0762 0001 | | .CONST 0x0001 ; Number of locals 0763 BODY_0760: 0763 INIT_0760: 0763 4608 |F | Jump_Case 0x9 0764 7808 |x | Jump 0x76d ; case 0x0 0765 783b |x; | Jump 0x7a1 ; case 0x1 0766 78c7 |x | Jump 0x82e ; case 0x2 0767 78c6 |x | Jump 0x82e ; case 0x3 0768 78c5 |x | Jump 0x82e ; case 0x4 0769 78c4 |x | Jump 0x82e ; case 0x5 076a 7852 |xR | Jump 0x7bd ; case 0x6 076b 7862 |xb | Jump 0x7ce ; case 0x7 076c 7890 |x | Jump 0x7fd ; case 0x8 076d 00da | | Load_Top At_Offset_2 076e 016c | l | Execute Variant_Record,Is_Constrained 076f 700b |p | Jump_Nonzero 0x77b 0770 00cf | | Action Mark_Auxiliary 0771 4800 |H | Short_Literal 0x0 0772 4800 |H | Short_Literal 0x0 0773 4800 |H | Short_Literal 0x0 0774 e5ff | | Load 0x2,-0x1 0775 1c08 | | Execute_Immediate Run_Utility,0x8 0776 00d8 | | Load_Top At_Offset_0 0777 1c00 | | Execute_Immediate Run_Utility,0x0 0778 c5ff | | Store 0x2,-0x1 0779 00ce | | Action Pop_Auxiliary 077a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 077b 00da | | Load_Top At_Offset_2 077c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 077d 4604 |F | Jump_Case 0x5 077e 780a |x | Jump 0x789 ; case 0x0 077f 780f |x | Jump 0x78f ; case 0x1 0780 7814 |x | Jump 0x795 ; case 0x2 0781 7819 |x | Jump 0x79b ; case 0x3 0782 7800 |x | Jump 0x783 ; case 0x4 0783 00da | | Load_Top At_Offset_2 0784 220a |" | Execute Variant_Record,Field_Constrain,Field_Number 0xa 0785 00da | | Load_Top At_Offset_2 0786 270a |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa 0787 1c00 | | Execute_Immediate Run_Utility,0x0 0788 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0789 00da | | Load_Top At_Offset_2 078a 2206 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x6 078b 00da | | Load_Top At_Offset_2 078c 2706 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x6 078d 1c00 | | Execute_Immediate Run_Utility,0x0 078e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 078f 00da | | Load_Top At_Offset_2 0790 2207 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x7 0791 00da | | Load_Top At_Offset_2 0792 2707 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x7 0793 1c00 | | Execute_Immediate Run_Utility,0x0 0794 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0795 00da | | Load_Top At_Offset_2 0796 2208 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x8 0797 00da | | Load_Top At_Offset_2 0798 2708 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x8 0799 1c00 | | Execute_Immediate Run_Utility,0x0 079a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 079b 00da | | Load_Top At_Offset_2 079c 2209 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x9 079d 00da | | Load_Top At_Offset_2 079e 2709 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x9 079f 1c00 | | Execute_Immediate Run_Utility,0x0 07a0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 07a1 00da | | Load_Top At_Offset_2 07a2 016b | k | Execute Variant_Record,Read_Variant 07a3 00d8 | | Load_Top At_Offset_0 07a4 0f01 | | Execute_Immediate Equal,0x1 07a5 6802 |h | Jump_Zero 0x7a8 07a6 00db | | Load_Top At_Offset_3 07a7 2206 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x6 07a8 00d8 | | Load_Top At_Offset_0 07a9 0f02 | | Execute_Immediate Equal,0x2 07aa 6802 |h | Jump_Zero 0x7ad 07ab 00db | | Load_Top At_Offset_3 07ac 2207 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x7 07ad 00d8 | | Load_Top At_Offset_0 07ae 0f03 | | Execute_Immediate Equal,0x3 07af 6802 |h | Jump_Zero 0x7b2 07b0 00db | | Load_Top At_Offset_3 07b1 2208 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x8 07b2 00d8 | | Load_Top At_Offset_0 07b3 0f04 | | Execute_Immediate Equal,0x4 07b4 6802 |h | Jump_Zero 0x7b7 07b5 00db | | Load_Top At_Offset_3 07b6 2209 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x9 07b7 00d8 | | Load_Top At_Offset_0 07b8 0f05 | | Execute_Immediate Equal,0x5 07b9 6802 |h | Jump_Zero 0x7bc 07ba 00db | | Load_Top At_Offset_3 07bb 220a |" | Execute Variant_Record,Field_Constrain,Field_Number 0xa 07bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 07bd e5fc | | Load 0x2,-0x4 07be 4604 |F | Jump_Case 0x5 07bf 7806 |x | Jump 0x7c6 ; case 0x0 07c0 7807 |x | Jump 0x7c8 ; case 0x1 07c1 7808 |x | Jump 0x7ca ; case 0x2 07c2 7809 |x | Jump 0x7cc ; case 0x3 07c3 7800 |x | Jump 0x7c4 ; case 0x4 07c4 4805 |H | Short_Literal 0x5 07c5 4204 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x4 07c6 4801 |H | Short_Literal 0x1 07c7 4204 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x4 07c8 4802 |H | Short_Literal 0x2 07c9 4204 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x4 07ca 4803 |H | Short_Literal 0x3 07cb 4204 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x4 07cc 4804 |H | Short_Literal 0x4 07cd 4204 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x4 07ce e5fc | | Load 0x2,-0x4 07cf e5fd | | Load 0x2,-0x3 07d0 e5fe | | Load 0x2,-0x2 07d1 4801 |H | Short_Literal 0x1 07d2 e5fd | | Load 0x2,-0x3 07d3 e001 | | Load 0x0,0x1 07d4 1b13 | | Execute Package,Field_Read,Field_Number 0x13 07d5 035b | [ | Declare_Type Array,Constrained 07d6 e5fc | | Load 0x2,-0x4 07d7 4604 |F | Jump_Case 0x5 07d8 780a |x | Jump 0x7e3 ; case 0x0 07d9 780f |x | Jump 0x7e9 ; case 0x1 07da 7814 |x | Jump 0x7ef ; case 0x2 07db 7819 |x | Jump 0x7f5 ; case 0x3 07dc 7800 |x | Jump 0x7dd ; case 0x4 07dd e5fe | | Load 0x2,-0x2 07de e224 | $ | Load 0x1,0x24 07df 1c07 | | Execute_Immediate Run_Utility,0x7 07e0 4802 |H | Short_Literal 0x2 07e1 4805 |H | Short_Literal 0x5 07e2 7817 |x | Jump 0x7fa 07e3 e5fe | | Load 0x2,-0x2 07e4 e220 | | Load 0x1,0x20 07e5 1c07 | | Execute_Immediate Run_Utility,0x7 07e6 4802 |H | Short_Literal 0x2 07e7 4801 |H | Short_Literal 0x1 07e8 7811 |x | Jump 0x7fa 07e9 e5fe | | Load 0x2,-0x2 07ea e220 | | Load 0x1,0x20 07eb 1c07 | | Execute_Immediate Run_Utility,0x7 07ec 4802 |H | Short_Literal 0x2 07ed 4802 |H | Short_Literal 0x2 07ee 780b |x | Jump 0x7fa 07ef e5fe | | Load 0x2,-0x2 07f0 e220 | | Load 0x1,0x20 07f1 1c07 | | Execute_Immediate Run_Utility,0x7 07f2 4802 |H | Short_Literal 0x2 07f3 4803 |H | Short_Literal 0x3 07f4 7805 |x | Jump 0x7fa 07f5 e5fe | | Load 0x2,-0x2 07f6 e220 | | Load 0x1,0x20 07f7 1c07 | | Execute_Immediate Run_Utility,0x7 07f8 4802 |H | Short_Literal 0x2 07f9 4804 |H | Short_Literal 0x4 07fa e5ff | | Load 0x2,-0x1 07fb 031b | | Declare_Type Variant_Record,Constrained 07fc 4204 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x4 07fd e5fc | | Load 0x2,-0x4 07fe e5fd | | Load 0x2,-0x3 07ff e5fe | | Load 0x2,-0x2 0800 e5fc | | Load 0x2,-0x4 0801 e5fd | | Load 0x2,-0x3 0802 e5fe | | Load 0x2,-0x2 0803 e5ff | | Load 0x2,-0x1 0804 1c06 | | Execute_Immediate Run_Utility,0x6 0805 e5ff | | Load 0x2,-0x1 0806 02fc | | Declare_Variable Variant_Record,With_Constraint 0807 4801 |H | Short_Literal 0x1 0808 e5fd | | Load 0x2,-0x3 0809 e001 | | Load 0x0,0x1 080a 1b13 | | Execute Package,Field_Read,Field_Number 0x13 080b 0334 | 4 | Declare_Variable Array,With_Constraint 080c 2d05 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x5 080d e5fc | | Load 0x2,-0x4 080e 4604 |F | Jump_Case 0x5 080f 7809 |x | Jump 0x819 ; case 0x0 0810 780d |x | Jump 0x81e ; case 0x1 0811 7811 |x | Jump 0x823 ; case 0x2 0812 7815 |x | Jump 0x828 ; case 0x3 0813 7800 |x | Jump 0x814 ; case 0x4 0814 e5fe | | Load 0x2,-0x2 0815 e224 | $ | Load 0x1,0x24 0816 1c08 | | Execute_Immediate Run_Utility,0x8 0817 2f0a |/ | Execute Variant_Record,Field_Append,Variant,Indirect,Field_Number 0xa 0818 7813 |x | Jump 0x82c 0819 e5fe | | Load 0x2,-0x2 081a e220 | | Load 0x1,0x20 081b 1c08 | | Execute_Immediate Run_Utility,0x8 081c 2f06 |/ | Execute Variant_Record,Field_Append,Variant,Indirect,Field_Number 0x6 081d 780e |x | Jump 0x82c 081e e5fe | | Load 0x2,-0x2 081f e220 | | Load 0x1,0x20 0820 1c08 | | Execute_Immediate Run_Utility,0x8 0821 2f07 |/ | Execute Variant_Record,Field_Append,Variant,Indirect,Field_Number 0x7 0822 7809 |x | Jump 0x82c 0823 e5fe | | Load 0x2,-0x2 0824 e220 | | Load 0x1,0x20 0825 1c08 | | Execute_Immediate Run_Utility,0x8 0826 2f08 |/ | Execute Variant_Record,Field_Append,Variant,Indirect,Field_Number 0x8 0827 7804 |x | Jump 0x82c 0828 e5fe | | Load 0x2,-0x2 0829 e220 | | Load 0x1,0x20 082a 1c08 | | Execute_Immediate Run_Utility,0x8 082b 2f09 |/ | Execute Variant_Record,Field_Append,Variant,Indirect,Field_Number 0x9 082c 016a | j | QQ_execute Variant_Record,XXX 082d 4204 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x4 082e 0869 | i | Execute_Immediate Raise,0x69 082f 0000 | | .XXX[0x1] 0830 ; -------------------------------------------------------------------------------------- 0830 ; SUBPROGRAM 0830 ; -------------------------------------------------------------------------------------- 0830 083b | ; | .CONST 0x083b ; Address of begin 0831 0004 | | .CONST 0x0004 ; Address of exception handler 0832 000e | | .CONST 0x000e ; Number of locals 0833 INIT_0830: 0833 e001 | | Load 0x0,0x1 0834 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0835 0129 | ) | Execute Any,Make_Visible 0836 029a 0843 | C| Declare_Subprogram INIT_0840,For_Outer_Call,Visible,Unelaborated 0838 00bf | | Action Accept_Activation 0839 1d0e | | Execute_Immediate Reference_Lex_1,0xe 083a 00c7 | | Action Elaborate_Subprogram 083b BODY_0830: 083b 00bc | | Action Signal_Activated 083c 00bb | | Action Signal_Completion 083d 0000 0000 | | .XXX[0x3] 083f 0000 | | 0840 ; -------------------------------------------------------------------------------------- 0840 ; SUBPROGRAM 0840 ; -------------------------------------------------------------------------------------- 0840 0843 | C | .CONST 0x0843 ; Address of begin 0841 0004 | | .CONST 0x0004 ; Address of exception handler 0842 0001 | | .CONST 0x0001 ; Number of locals 0843 BODY_0840: 0843 INIT_0840: 0843 00da | | Load_Top At_Offset_2 0844 00d8 | | Load_Top At_Offset_0 0845 4800 |H | Short_Literal 0x0 0846 4805 |H | Short_Literal 0x5 0847 0262 | b | Execute Discrete,In_Range 0848 6819 |h | Jump_Zero 0x862 0849 4605 |F | Jump_Case 0x6 084a 7808 |x | Jump 0x853 ; case 0x0 084b 780a |x | Jump 0x856 ; case 0x1 084c 780c |x | Jump 0x859 ; case 0x2 084d 780e |x | Jump 0x85c ; case 0x3 084e 7810 |x | Jump 0x85f ; case 0x4 084f 7800 |x | Jump 0x850 ; case 0x5 0850 0092 0874 | t| Action Push_String_Extended,0x874 ; "Gen_Err" 0852 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0853 0092 0875 | u| Action Push_String_Extended,0x875 ; "No_Error" 0855 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0856 0092 0876 | v| Action Push_String_Extended,0x876 ; "Too_Big" 0858 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0859 0092 0877 | w| Action Push_String_Extended,0x877 ; "No_Such_Name" 085b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 085c 0092 0878 | x| Action Push_String_Extended,0x878 ; "Bad_Value" 085e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 085f 0092 0879 | y| Action Push_String_Extended,0x879 ; "Read_Only" 0861 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0862 00d1 | | Pop_Control Pop_Count_1 0863 00da | | Load_Top At_Offset_2 0864 00e0 | | Load_Encached Standard_Cache 0865 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0866 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0867 ; -------------------------------------------------------------------------------------- 0867 ; STRING TABLE 0867 ; -------------------------------------------------------------------------------------- 0867 0028 | ( | .STRTAB 0x0028->0x087b ; "GET_REQUEST" 0868 0031 | 1 | .STRTAB 0x0031->0x0880 ; "GET_NEXT_REQUEST" 0869 003f | ? | .STRTAB 0x003f->0x0888 ; "GET_RESPONSE" 086a 0049 | I | .STRTAB 0x0049->0x088e ; "SET_REQUEST" 086b 0052 | R | .STRTAB 0x0052->0x0894 ; "TRAP" 086c 0054 | T | .STRTAB 0x0054->0x0896 ; "!Machine.SNMP_Community" 086d 0069 | i | .STRTAB 0x0069->0x08a1 ; "Encode(PDU)" 086e 0072 | r | .STRTAB 0x0072->0x08a7 ; "Decode(PDU)" 086f 007b | { | .STRTAB 0x007b->0x08ac ; "Encode(Message)" 0870 0088 | | .STRTAB 0x0088->0x08b4 ; "in " 0871 0089 | | .STRTAB 0x0089->0x08b5 ; ": " 0872 0089 | | .STRTAB 0x0089->0x08b6 ; "Get was called." 0873 0096 | | .STRTAB 0x0096->0x08be ; "Put was called." 0874 00a3 | | .STRTAB 0x00a3->0x08c5 ; "Gen_Err" 0875 00a8 | | .STRTAB 0x00a8->0x08c9 ; "No_Error" 0876 00ae | | .STRTAB 0x00ae->0x08cd ; "Too_Big" 0877 00b3 | | .STRTAB 0x00b3->0x08d0 ; "No_Such_Name" 0878 00bd | | .STRTAB 0x00bd->0x08d6 ; "Bad_Value" 0879 00c4 | | .STRTAB 0x00c4->0x08db ; "Read_Only" 087a 00cb | | .STREND 0x00cb->0x08df 087b 4745 545f |GET_| .STRTAB_STRINGS 08e0 ; -------------------------------------------------------------------------------------- 08e0 ; Debug Table 08e0 ; -------------------------------------------------------------------------------------- 08e0 0004 000c | | .DEBUG4 0x0004,0x000c,0xac8f,0x0000,0x0001,0x0000 08e6 5000 0000 |P | .XXX[0x9] 08e8 0022 ccc0 | " | 08ea 0f85 d800 | | 08ec 0000 00f7 | | 08ee 0980 | | 08ef 0000 0000 | | .BLANK 0000[0x7] 08f6 0009 6980 | i | .XXX[0x37] 08f8 03e0 8200 | | 08fa 0000 0026 | &| 08fc 0000 3dd1 | = | 08fe 4000 0000 |@ | 0900 0458 0000 | X | 0902 0000 f7b6 | | 0904 4224 001f |B$ | 0906 0bb0 0000 | | 0908 0001 f00c | | 090a 003e 9130 | > 0| 090c 6390 02b5 |c | 090e dc00 0000 | | 0910 007c 1040 | | @| 0912 1ee8 a000 | | 0914 0000 0000 | | 0916 0002 d8da | | 0918 0000 0000 | | 091a 0003 e37e | ~| 091c 0000 7bdb | { | 091e 0000 0009 | | 0920 d8b8 03e4 | | 0922 e600 0000 | | 0924 0028 0000 | ( | 0926 0000 1166 | f| 0928 6007 d290 |` | 092a 0000 0000 | | 092c 7c7f || | 092d 0000 0000 | | .BLANK 0000[0x8] 0935 04b4 c001 | | .XXX[0x37] 0937 f42a 0000 | * | 0939 0000 4880 | H | 093b 001f 2730 | '0| 093d 0000 0002 | | 093f 3400 0000 |4 | 0941 007c d561 | | a| 0943 1200 0fa5 | | 0945 2000 0000 | | 0947 00f9 fa80 | | 0949 1f87 2831 | (1| 094b c801 5aee | Z | 094d 0000 0000 | | 094f 3e85 400f |> @ | 0951 9398 0000 | | 0953 0000 0000 | | 0955 01dd d200 | | 0957 0000 0000 | | 0959 01f5 a800 | | 095b 003e 6aa0 | >j | 095d 0000 04ec | | 095f 5c01 f65c |\ \| 0961 0000 0000 | | 0963 1400 0000 | | 0965 0008 b330 | 0| 0967 03f1 1a00 | | 0969 0000 003e | >| 096b bca0 | | 096c 0000 0000 | | .BLANK 0000[0x7] 0973 0002 5a60 | Z`| .XXX[0x1e] 0975 00fc 0980 | | 0977 0000 0006 | | 0979 4000 0fb2 |@ | 097b e000 0000 | | 097d 011e 0000 | | 097f 0000 3ee7 | > | 0981 d089 0007 | | 0983 e234 0000 | 4 | 0985 0000 7df7 | } | 0987 800f e2dc | | 0989 18e4 00ad | | 098b 7700 0000 |w | 098d 001f 8130 | 0| 098f 07d9 7000 | p | 0991 0000 0000 | | .BLANK 0000[0x7] 0998 fcc8 8000 | | .XXX[0x13] 099a 1f73 e000 | s | 099c 0002 762e | v.| 099e 00fd 2280 | " | 09a0 0000 000a | | 09a2 0000 0000 | | 09a4 0459 9801 | Y | 09a6 fc76 0000 | v | 09a8 0000 1f9c | | 09aa e000 | | 09ab 0000 0000 | | .BLANK 0000[0x7] 09b2 012d 3000 | -0 | .XXX[0x1d] 09b4 7eff 0000 |~ | 09b6 0000 1240 | @| 09b8 0007 e914 | | 09ba 0000 0000 | | 09bc 9100 0000 | | 09be 001f b278 | x| 09c0 4480 03f8 |D | 09c2 ec00 0000 | | 09c4 003f 78e0 | ?x | 09c6 0801 120c | | 09c8 7200 56bb |r V | 09ca 8000 0000 | | 09cc 0fdf e003 | | 09ce f48a | | 09cf 0000 0000 | | .BLANK 0000[0x7] 09d6 007f 5e80 | ^ | .XXX[0x13] 09d8 000f d938 | 8| 09da 0000 013b | ;| 09dc 1700 7f8b | | 09de 8000 0000 | | 09e0 0500 0000 | | 09e2 0002 2ccc | , | 09e4 0100 2f80 | / | 09e6 0000 000f | | 09e8 edb8 | | 09e9 0000 0000 | | .BLANK 0000[0x8] 09f1 9698 003f | ?| .XXX[0xf] 09f3 fca0 0000 | | 09f5 0001 1000 | | 09f7 03fc 5c00 | \ | 09f9 0000 0049 | I| 09fb 8000 0000 | | 09fd 0ff8 8422 | "| 09ff 4002 |@ |