|
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 |@ |