|
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: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦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 0480 | | .CONST 0x0480 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00f0 | | .CONST 0x00f0 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0039 | 9 | .CONST 0x0039 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4802 |H | Short_Literal 0x2 000d 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 0011 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0013 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0015 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0017 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0019 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 001b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 001c 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 001e 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0020 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0022 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0024 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0026 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 0028 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 002a 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 002c 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 002e 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 002f 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 0031 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 0033 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 0035 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 0037 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated 0039 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 003b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 003c 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 003e 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 0040 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated 0042 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated 0044 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated 0046 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated 0048 00e4 | | Load_Encached Positive_Cache 0049 0266 | f | Execute Discrete,Bounds 004a e225 | % | Load 0x1,0x25 004b 02a0 | | Declare_Subprogram Null_Subprogram 004c 4801 |H | Short_Literal 0x1 004d 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 004e 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated 0050 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 0051 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated 0053 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated 0055 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated 0057 e001 | | Load 0x0,0x1 0058 0129 | ) | Execute Any,Make_Visible 0059 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated 005b 029a 038b | | Declare_Subprogram INIT_0388,For_Outer_Call,Visible,Unelaborated 005d 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated 005f e002 | | Load 0x0,0x2 0060 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0061 1b44 | D | Execute Package,Field_Read,Field_Number 0x44 0062 e002 | | Load 0x0,0x2 0063 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0064 1b4c | L | Execute Package,Field_Read,Field_Number 0x4c 0065 e002 | | Load 0x0,0x2 0066 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0067 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0068 02a0 | | Declare_Subprogram Null_Subprogram 0069 4803 |H | Short_Literal 0x3 006a 032d | - | Declare_Type Record,Defined 006b 00d8 | | Load_Top At_Offset_0 006c 02a0 | | Declare_Subprogram Null_Subprogram 006d e20e | | Load 0x1,0xe 006e 03a3 | | Complete_Type Heap_Access,By_Defining 006f e20d | | Load 0x1,0xd 0070 00e1 | | Load_Encached Boolean_Cache 0071 4801 |H | Short_Literal 0x1 0072 4800 |H | Short_Literal 0x0 0073 4801 |H | Short_Literal 0x1 0074 e002 | | Load 0x0,0x2 0075 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0076 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0077 02a0 | | Declare_Subprogram Null_Subprogram 0078 4801 |H | Short_Literal 0x1 0079 4800 |H | Short_Literal 0x0 007a 4801 |H | Short_Literal 0x1 007b 4800 |H | Short_Literal 0x0 007c 4800 |H | Short_Literal 0x0 007d 031d | | Declare_Type Variant_Record,Defined 007e 029f 03b3 | | Declare_Subprogram INIT_03b0,For_Call 0080 4801 |H | Short_Literal 0x1 0081 4800 |H | Short_Literal 0x0 0082 4800 |H | Short_Literal 0x0 0083 4801 |H | Short_Literal 0x1 0084 4801 |H | Short_Literal 0x1 0085 4802 |H | Short_Literal 0x2 0086 031d | | Declare_Type Variant_Record,Defined 0087 00d8 | | Load_Top At_Offset_0 0088 02a0 | | Declare_Subprogram Null_Subprogram 0089 e214 | | Load 0x1,0x14 008a 03a3 | | Complete_Type Heap_Access,By_Defining 008b 00e1 | | Load_Encached Boolean_Cache 008c 4801 |H | Short_Literal 0x1 008d e002 | | Load 0x0,0x2 008e 1b12 | | Execute Package,Field_Read,Field_Number 0x12 008f 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 0090 029f 041b | | Declare_Subprogram INIT_0418,For_Call 0092 4801 |H | Short_Literal 0x1 0093 4800 |H | Short_Literal 0x0 0094 4801 |H | Short_Literal 0x1 0095 4800 |H | Short_Literal 0x0 0096 4801 |H | Short_Literal 0x1 0097 031d | | Declare_Type Variant_Record,Defined 0098 00d8 | | Load_Top At_Offset_0 0099 02a0 | | Declare_Subprogram Null_Subprogram 009a e21e | | Load 0x1,0x1e 009b 03a3 | | Complete_Type Heap_Access,By_Defining 009c e002 | | Load 0x0,0x2 009d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 009e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 009f e20e | | Load 0x1,0xe 00a0 e214 | | Load 0x1,0x14 00a1 e21e | | Load 0x1,0x1e 00a2 02a0 | | Declare_Subprogram Null_Subprogram 00a3 4804 |H | Short_Literal 0x4 00a4 032d | - | Declare_Type Record,Defined 00a5 00d8 | | Load_Top At_Offset_0 00a6 02a0 | | Declare_Subprogram Null_Subprogram 00a7 e225 | % | Load 0x1,0x25 00a8 03a3 | | Complete_Type Heap_Access,By_Defining 00a9 e22c | , | Load 0x1,0x2c 00aa 02a0 | | Declare_Subprogram Null_Subprogram 00ab e22e | . | Load 0x1,0x2e 00ac 03a3 | | Complete_Type Heap_Access,By_Defining 00ad 00bf | | Action Accept_Activation 00ae 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00af 00c7 | | Action Elaborate_Subprogram 00b0 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00b1 00c7 | | Action Elaborate_Subprogram 00b2 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00b3 00c7 | | Action Elaborate_Subprogram 00b4 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00b5 00c7 | | Action Elaborate_Subprogram 00b6 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00b7 00c7 | | Action Elaborate_Subprogram 00b8 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00b9 00c7 | | Action Elaborate_Subprogram 00ba 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00bb 00c7 | | Action Elaborate_Subprogram 00bc 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00bd 00c7 | | Action Elaborate_Subprogram 00be 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00bf 00c7 | | Action Elaborate_Subprogram 00c0 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00c1 00c7 | | Action Elaborate_Subprogram 00c2 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00c3 00c7 | | Action Elaborate_Subprogram 00c4 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00c5 00c7 | | Action Elaborate_Subprogram 00c6 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00c7 00c7 | | Action Elaborate_Subprogram 00c8 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00c9 00c7 | | Action Elaborate_Subprogram 00ca 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00cb 00c7 | | Action Elaborate_Subprogram 00cc 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00cd 00c7 | | Action Elaborate_Subprogram 00ce 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00cf 00c7 | | Action Elaborate_Subprogram 00d0 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00d1 00c7 | | Action Elaborate_Subprogram 00d2 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00d3 00c7 | | Action Elaborate_Subprogram 00d4 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00d5 00c7 | | Action Elaborate_Subprogram 00d6 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00d7 00c7 | | Action Elaborate_Subprogram 00d8 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00d9 00c7 | | Action Elaborate_Subprogram 00da 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00db 00c7 | | Action Elaborate_Subprogram 00dc 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00dd 00c7 | | Action Elaborate_Subprogram 00de 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00df 00c7 | | Action Elaborate_Subprogram 00e0 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 00e1 00c7 | | Action Elaborate_Subprogram 00e2 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 00e3 00c7 | | Action Elaborate_Subprogram 00e4 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 00e5 00c7 | | Action Elaborate_Subprogram 00e6 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 00e7 00c7 | | Action Elaborate_Subprogram 00e8 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 00e9 00c7 | | Action Elaborate_Subprogram 00ea 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 00eb 00c7 | | Action Elaborate_Subprogram 00ec 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 00ed 00c7 | | Action Elaborate_Subprogram 00ee 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 00ef 00c7 | | Action Elaborate_Subprogram 00f0 BODY_0008: 00f0 00bc | | Action Signal_Activated 00f1 00bb | | Action Signal_Completion 00f2 0000 0000 | | .BLANK 0000[0x6] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 4607 |F | Jump_Case 0x8 00fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00fd 7806 |x | Jump 0x104 ; case 0x1 00fe 7809 |x | Jump 0x108 ; case 0x2 00ff 780d |x | Jump 0x10d ; case 0x3 0100 7810 |x | Jump 0x111 ; case 0x4 0101 7811 |x | Jump 0x113 ; case 0x5 0102 7812 |x | Jump 0x115 ; case 0x6 0103 7815 |x | Jump 0x119 ; case 0x7 0104 00da | | Load_Top At_Offset_2 0105 0091 044f | O| Action Push_String_Extended_Indexed,0x44f ; "VALUE_RESULT" 0107 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0108 00db | | Load_Top At_Offset_3 0109 00db | | Load_Top At_Offset_3 010a 00e0 | | Load_Encached Standard_Cache 010b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 010c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010d 00da | | Load_Top At_Offset_2 010e 00e0 | | Load_Encached Standard_Cache 010f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0110 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0111 00db | | Load_Top At_Offset_3 0112 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0113 00db | | Load_Top At_Offset_3 0114 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0115 e20d | | Load 0x1,0xd 0116 00dc | | Load_Top At_Offset_4 0117 0267 | g | Execute Discrete,Predecessor 0118 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0119 e20d | | Load 0x1,0xd 011a 00dc | | Load_Top At_Offset_4 011b 0268 | h | Execute Discrete,Successor 011c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 011d 0000 0000 | | .XXX[0x3] 011f 0000 | | 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00da | | Load_Top At_Offset_2 0124 021d | | Execute Heap_Access,Is_Null 0125 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0126 0000 0000 | | .XXX[0x2] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 013c | < | .CONST 0x013c ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b e236 | 6 | Load 0x1,0x36 012c 0322 | " | Declare_Variable Record 012d 00db | | Load_Top At_Offset_3 012e 00d9 | | Load_Top At_Offset_1 012f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0130 e5fe | | Load 0x2,-0x2 0131 00d9 | | Load_Top At_Offset_1 0132 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0133 e5fd | | Load 0x2,-0x3 0134 00d9 | | Load_Top At_Offset_1 0135 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0136 e20e | | Load 0x1,0xe 0137 e5fc | | Load 0x2,-0x4 0138 e003 | | Load 0x0,0x3 0139 180f | | Execute Package,Field_Execute,Field_Number 0xf 013a 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 013b 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 013c TRAP_0128: 013c e003 | | Load 0x0,0x3 013d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 013e 010f | | Execute Exception,Equal 013f 6803 |h | Jump_Zero 0x143 0140 e002 | | Load 0x0,0x2 0141 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0142 0257 | W | Execute Discrete,Raise 0143 e003 | | Load 0x0,0x3 0144 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0145 010f | | Execute Exception,Equal 0146 6803 |h | Jump_Zero 0x14a 0147 e002 | | Load 0x0,0x2 0148 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0149 0257 | W | Execute Discrete,Raise 014a 0100 | | Execute Exception,Raise 014b 0000 0000 | | .BLANK 0000[0x5] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 00da | | Load_Top At_Offset_2 0154 820f | | Call 0x1,0xf 0155 6803 |h | Jump_Zero 0x159 0156 e002 | | Load 0x0,0x2 0157 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0158 0257 | W | Execute Discrete,Raise 0159 00da | | Load_Top At_Offset_2 015a 0217 | | Execute Heap_Access,All_Reference 015b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 015c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015d 0000 0000 | | .XXX[0x3] 015f 0000 | | 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 00da | | Load_Top At_Offset_2 0164 820f | | Call 0x1,0xf 0165 6803 |h | Jump_Zero 0x169 0166 e002 | | Load 0x0,0x2 0167 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0168 0257 | W | Execute Discrete,Raise 0169 00da | | Load_Top At_Offset_2 016a 0217 | | Execute Heap_Access,All_Reference 016b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 016c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016d 0000 0000 | | .XXX[0x3] 016f 0000 | | 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00da | | Load_Top At_Offset_2 0174 820f | | Call 0x1,0xf 0175 6803 |h | Jump_Zero 0x179 0176 e002 | | Load 0x0,0x2 0177 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0178 0257 | W | Execute Discrete,Raise 0179 00da | | Load_Top At_Offset_2 017a 0217 | | Execute Heap_Access,All_Reference 017b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 017c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017d 0000 0000 | | .XXX[0x3] 017f 0000 | | 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 00da | | Load_Top At_Offset_2 0184 021d | | Execute Heap_Access,Is_Null 0185 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0186 0000 0000 | | .XXX[0x2] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018d | | .CONST 0x018d ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0002 | | .CONST 0x0002 ; Number of locals 018b INIT_0188: 018b e004 | | Load 0x0,0x4 018c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 018d BODY_0188: 018d 00db | | Load_Top At_Offset_3 018e e003 | | Load 0x0,0x3 018f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0190 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0191 4800 |H | Short_Literal 0x0 0192 4801 |H | Short_Literal 0x1 0193 e237 | 7 | Load 0x1,0x37 0194 1c08 | | Execute_Immediate Run_Utility,0x8 0195 00d8 | | Load_Top At_Offset_0 0196 1c01 | | Execute_Immediate Run_Utility,0x1 0197 e214 | | Load 0x1,0x14 0198 00da | | Load_Top At_Offset_2 0199 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 019a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 019b 0000 0000 | | .BLANK 0000[0x5] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a5 | | .CONST 0x01a5 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0002 | | .CONST 0x0002 ; Number of locals 01a3 INIT_01a0: 01a3 e004 | | Load 0x0,0x4 01a4 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 01a5 BODY_01a0: 01a5 00db | | Load_Top At_Offset_3 01a6 e003 | | Load 0x0,0x3 01a7 180f | | Execute Package,Field_Execute,Field_Number 0xf 01a8 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01a9 4802 |H | Short_Literal 0x2 01aa 4801 |H | Short_Literal 0x1 01ab e237 | 7 | Load 0x1,0x37 01ac 1c08 | | Execute_Immediate Run_Utility,0x8 01ad 00d8 | | Load_Top At_Offset_0 01ae 1c01 | | Execute_Immediate Run_Utility,0x1 01af e214 | | Load 0x1,0x14 01b0 00da | | Load_Top At_Offset_2 01b1 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 01b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b3 0000 0000 | | .BLANK 0000[0x5] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bd | | .CONST 0x01bd ; Address of begin 01b9 01d3 | | .CONST 0x01d3 ; Address of exception handler 01ba 0002 | | .CONST 0x0002 ; Number of locals 01bb INIT_01b8: 01bb e004 | | Load 0x0,0x4 01bc 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 01bd BODY_01b8: 01bd e5fe | | Load 0x2,-0x2 01be e003 | | Load 0x0,0x3 01bf 180f | | Execute Package,Field_Execute,Field_Number 0xf 01c0 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01c1 4800 |H | Short_Literal 0x0 01c2 4800 |H | Short_Literal 0x0 01c3 e237 | 7 | Load 0x1,0x37 01c4 1c08 | | Execute_Immediate Run_Utility,0x8 01c5 00d8 | | Load_Top At_Offset_0 01c6 1c01 | | Execute_Immediate Run_Utility,0x1 01c7 e5fe | | Load 0x2,-0x2 01c8 e5ff | | Load 0x2,-0x1 01c9 e002 | | Load 0x0,0x2 01ca 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01cb 180e | | Execute Package,Field_Execute,Field_Number 0xe 01cc 00d9 | | Load_Top At_Offset_1 01cd 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3 01ce 2a01 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x1 01cf e214 | | Load 0x1,0x14 01d0 00da | | Load_Top At_Offset_2 01d1 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 01d2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01d3 TRAP_01b8: 01d3 e003 | | Load 0x0,0x3 01d4 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01d5 010f | | Execute Exception,Equal 01d6 6803 |h | Jump_Zero 0x1da 01d7 e002 | | Load 0x0,0x2 01d8 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01d9 0257 | W | Execute Discrete,Raise 01da e003 | | Load 0x0,0x3 01db 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01dc 010f | | Execute Exception,Equal 01dd 6803 |h | Jump_Zero 0x1e1 01de e002 | | Load 0x0,0x2 01df 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01e0 0257 | W | Execute Discrete,Raise 01e1 0100 | | Execute Exception,Raise 01e2 0000 0000 | | .BLANK 0000[0x6] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 01ff | | .CONST 0x01ff ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 4802 |H | Short_Literal 0x2 01ec 4800 |H | Short_Literal 0x0 01ed e237 | 7 | Load 0x1,0x37 01ee 1c08 | | Execute_Immediate Run_Utility,0x8 01ef 00d8 | | Load_Top At_Offset_0 01f0 1c01 | | Execute_Immediate Run_Utility,0x1 01f1 e5fe | | Load 0x2,-0x2 01f2 e5ff | | Load 0x2,-0x1 01f3 e002 | | Load 0x0,0x2 01f4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01f5 180e | | Execute Package,Field_Execute,Field_Number 0xe 01f6 00d9 | | Load_Top At_Offset_1 01f7 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3 01f8 2a01 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x1 01f9 e214 | | Load 0x1,0x14 01fa e5fe | | Load 0x2,-0x2 01fb e003 | | Load 0x0,0x3 01fc 180f | | Execute Package,Field_Execute,Field_Number 0xf 01fd 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 01fe 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ff TRAP_01e8: 01ff e003 | | Load 0x0,0x3 0200 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0201 010f | | Execute Exception,Equal 0202 6803 |h | Jump_Zero 0x206 0203 e002 | | Load 0x0,0x2 0204 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0205 0257 | W | Execute Discrete,Raise 0206 e003 | | Load 0x0,0x3 0207 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0208 010f | | Execute Exception,Equal 0209 6803 |h | Jump_Zero 0x20d 020a e002 | | Load 0x0,0x2 020b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 020c 0257 | W | Execute Discrete,Raise 020d 0100 | | Execute Exception,Raise 020e 0000 0000 | | .XXX[0x2] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 021f | | .CONST 0x021f ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 4801 |H | Short_Literal 0x1 0214 4800 |H | Short_Literal 0x0 0215 e237 | 7 | Load 0x1,0x37 0216 1c08 | | Execute_Immediate Run_Utility,0x8 0217 00d8 | | Load_Top At_Offset_0 0218 1c01 | | Execute_Immediate Run_Utility,0x1 0219 e214 | | Load 0x1,0x14 021a e5ff | | Load 0x2,-0x1 021b e003 | | Load 0x0,0x3 021c 180f | | Execute Package,Field_Execute,Field_Number 0xf 021d 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 021e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 021f TRAP_0210: 021f e003 | | Load 0x0,0x3 0220 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0221 010f | | Execute Exception,Equal 0222 6803 |h | Jump_Zero 0x226 0223 e002 | | Load 0x0,0x2 0224 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0225 0257 | W | Execute Discrete,Raise 0226 e003 | | Load 0x0,0x3 0227 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0228 010f | | Execute Exception,Equal 0229 6803 |h | Jump_Zero 0x22d 022a e002 | | Load 0x0,0x2 022b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 022c 0257 | W | Execute Discrete,Raise 022d 0100 | | Execute Exception,Raise 022e 0000 0000 | | .XXX[0x2] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 00da | | Load_Top At_Offset_2 0234 8215 | | Call 0x1,0x15 0235 6803 |h | Jump_Zero 0x239 0236 e002 | | Load 0x0,0x2 0237 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0238 0257 | W | Execute Discrete,Raise 0239 00da | | Load_Top At_Offset_2 023a 0217 | | Execute Heap_Access,All_Reference 023b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 023c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 023d 0000 0000 | | .XXX[0x3] 023f 0000 | | 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 00da | | Load_Top At_Offset_2 0244 0217 | | Execute Heap_Access,All_Reference 0245 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0246 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0247 0000 | | .XXX[0x1] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0259 | Y | .CONST 0x0259 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 00da | | Load_Top At_Offset_2 024c 8215 | | Call 0x1,0x15 024d 6803 |h | Jump_Zero 0x251 024e e002 | | Load 0x0,0x2 024f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0250 0257 | W | Execute Discrete,Raise 0251 00da | | Load_Top At_Offset_2 0252 0217 | | Execute Heap_Access,All_Reference 0253 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3 0254 2e01 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x1 0255 e002 | | Load 0x0,0x2 0256 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0257 180f | | Execute Package,Field_Execute,Field_Number 0xf 0258 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0259 TRAP_0248: 0259 010e | | Execute Exception,Is_Constraint_Error 025a 6803 |h | Jump_Zero 0x25e 025b e002 | | Load 0x0,0x2 025c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 025d 0257 | W | Execute Discrete,Raise 025e 0100 | | Execute Exception,Raise 025f 0000 | | .XXX[0x1] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0265 | e | .CONST 0x0265 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0002 | | .CONST 0x0002 ; Number of locals 0263 INIT_0260: 0263 e21e | | Load 0x1,0x1e 0264 0007 | | Action Break_Optional 0265 BODY_0260: 0265 00d8 | | Load_Top At_Offset_0 0266 00ca | | Action Exit_Nullary_Function 0267 0000 | | .XXX[0x1] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b 00da | | Load_Top At_Offset_2 026c 021d | | Execute Heap_Access,Is_Null 026d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 026e 0000 0000 | | .XXX[0x2] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0275 | u | .CONST 0x0275 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0002 | | .CONST 0x0002 ; Number of locals 0273 INIT_0270: 0273 e004 | | Load 0x0,0x4 0274 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0275 BODY_0270: 0275 00db | | Load_Top At_Offset_3 0276 e003 | | Load 0x0,0x3 0277 180f | | Execute Package,Field_Execute,Field_Number 0xf 0278 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0279 4801 |H | Short_Literal 0x1 027a e238 | 8 | Load 0x1,0x38 027b 1c08 | | Execute_Immediate Run_Utility,0x8 027c e21e | | Load 0x1,0x1e 027d 00da | | Load_Top At_Offset_2 027e 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 027f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 028f | | .CONST 0x028f ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 4800 |H | Short_Literal 0x0 0284 e238 | 8 | Load 0x1,0x38 0285 1c08 | | Execute_Immediate Run_Utility,0x8 0286 00db | | Load_Top At_Offset_3 0287 00d9 | | Load_Top At_Offset_1 0288 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0289 e21e | | Load 0x1,0x1e 028a e5fe | | Load 0x2,-0x2 028b e003 | | Load 0x0,0x3 028c 180f | | Execute Package,Field_Execute,Field_Number 0xf 028d 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 028e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 028f TRAP_0280: 028f e003 | | Load 0x0,0x3 0290 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0291 010f | | Execute Exception,Equal 0292 6803 |h | Jump_Zero 0x296 0293 e002 | | Load 0x0,0x2 0294 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0295 0257 | W | Execute Discrete,Raise 0296 e003 | | Load 0x0,0x3 0297 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0298 010f | | Execute Exception,Equal 0299 6803 |h | Jump_Zero 0x29d 029a e002 | | Load 0x0,0x2 029b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 029c 0257 | W | Execute Discrete,Raise 029d 0100 | | Execute Exception,Raise 029e 0000 0000 | | .XXX[0x2] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a3 | | .CONST 0x02a3 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0001 | | .CONST 0x0001 ; Number of locals 02a3 BODY_02a0: 02a3 INIT_02a0: 02a3 00da | | Load_Top At_Offset_2 02a4 7003 |p | Jump_Nonzero 0x2a8 02a5 e002 | | Load 0x0,0x2 02a6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02a7 0257 | W | Execute Discrete,Raise 02a8 00da | | Load_Top At_Offset_2 02a9 0217 | | Execute Heap_Access,All_Reference 02aa 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 02ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ac 0000 0000 | | .BLANK 0000[0x4] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 02bd | | .CONST 0x02bd ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 00da | | Load_Top At_Offset_2 02b4 8220 | | Call 0x1,0x20 02b5 6803 |h | Jump_Zero 0x2b9 02b6 e002 | | Load 0x0,0x2 02b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02b8 0257 | W | Execute Discrete,Raise 02b9 00da | | Load_Top At_Offset_2 02ba 0217 | | Execute Heap_Access,All_Reference 02bb 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 02bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02bd TRAP_02b0: 02bd 010e | | Execute Exception,Is_Constraint_Error 02be 6803 |h | Jump_Zero 0x2c2 02bf e002 | | Load 0x0,0x2 02c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02c1 0257 | W | Execute Discrete,Raise 02c2 0100 | | Execute Exception,Raise 02c3 0000 0000 | | .BLANK 0000[0x5] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb 00da | | Load_Top At_Offset_2 02cc 021d | | Execute Heap_Access,Is_Null 02cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ce 0000 0000 | | .XXX[0x2] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d3 | | .CONST 0x02d3 ; Address of begin 02d1 02eb | | .CONST 0x02eb ; Address of exception handler 02d2 0001 | | .CONST 0x0001 ; Number of locals 02d3 BODY_02d0: 02d3 INIT_02d0: 02d3 e239 | 9 | Load 0x1,0x39 02d4 0322 | " | Declare_Variable Record 02d5 e5fb | | Load 0x2,-0x5 02d6 e5ff | | Load 0x2,-0x1 02d7 e002 | | Load 0x0,0x2 02d8 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02d9 180e | | Execute Package,Field_Execute,Field_Number 0xe 02da 00d9 | | Load_Top At_Offset_1 02db 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02dc e5fe | | Load 0x2,-0x2 02dd 00d9 | | Load_Top At_Offset_1 02de 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02df e5fd | | Load 0x2,-0x3 02e0 00d9 | | Load_Top At_Offset_1 02e1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02e2 e5fc | | Load 0x2,-0x4 02e3 00d9 | | Load_Top At_Offset_1 02e4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 02e5 e225 | % | Load 0x1,0x25 02e6 e5fb | | Load 0x2,-0x5 02e7 e003 | | Load 0x0,0x3 02e8 180f | | Execute Package,Field_Execute,Field_Number 0xf 02e9 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 02ea 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 02eb TRAP_02d0: 02eb e003 | | Load 0x0,0x3 02ec 1b12 | | Execute Package,Field_Read,Field_Number 0x12 02ed 010f | | Execute Exception,Equal 02ee 6803 |h | Jump_Zero 0x2f2 02ef e002 | | Load 0x0,0x2 02f0 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02f1 0257 | W | Execute Discrete,Raise 02f2 e003 | | Load 0x0,0x3 02f3 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02f4 010f | | Execute Exception,Equal 02f5 6803 |h | Jump_Zero 0x2f9 02f6 e002 | | Load 0x0,0x2 02f7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02f8 0257 | W | Execute Discrete,Raise 02f9 0100 | | Execute Exception,Raise 02fa 0000 0000 | | .BLANK 0000[0x6] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0303 | | .CONST 0x0303 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0001 | | .CONST 0x0001 ; Number of locals 0303 BODY_0300: 0303 INIT_0300: 0303 00da | | Load_Top At_Offset_2 0304 8226 | & | Call 0x1,0x26 0305 6803 |h | Jump_Zero 0x309 0306 e002 | | Load 0x0,0x2 0307 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0308 0257 | W | Execute Discrete,Raise 0309 00da | | Load_Top At_Offset_2 030a 0217 | | Execute Heap_Access,All_Reference 030b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 030c e002 | | Load 0x0,0x2 030d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 030e 180f | | Execute Package,Field_Execute,Field_Number 0xf 030f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0313 | | .CONST 0x0313 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0001 | | .CONST 0x0001 ; Number of locals 0313 BODY_0310: 0313 INIT_0310: 0313 00da | | Load_Top At_Offset_2 0314 8226 | & | Call 0x1,0x26 0315 6803 |h | Jump_Zero 0x319 0316 e002 | | Load 0x0,0x2 0317 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0318 0257 | W | Execute Discrete,Raise 0319 00da | | Load_Top At_Offset_2 031a 0217 | | Execute Heap_Access,All_Reference 031b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 031c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 031d 0000 0000 | | .XXX[0x3] 031f 0000 | | 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0323 | # | .CONST 0x0323 ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0001 | | .CONST 0x0001 ; Number of locals 0323 BODY_0320: 0323 INIT_0320: 0323 00da | | Load_Top At_Offset_2 0324 8226 | & | Call 0x1,0x26 0325 6803 |h | Jump_Zero 0x329 0326 e002 | | Load 0x0,0x2 0327 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0328 0257 | W | Execute Discrete,Raise 0329 00da | | Load_Top At_Offset_2 032a 0217 | | Execute Heap_Access,All_Reference 032b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 032c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 032d 0000 0000 | | .XXX[0x3] 032f 0000 | | 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0333 | 3 | .CONST 0x0333 ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0001 | | .CONST 0x0001 ; Number of locals 0333 BODY_0330: 0333 INIT_0330: 0333 00da | | Load_Top At_Offset_2 0334 8226 | & | Call 0x1,0x26 0335 6803 |h | Jump_Zero 0x339 0336 e002 | | Load 0x0,0x2 0337 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0338 0257 | W | Execute Discrete,Raise 0339 00da | | Load_Top At_Offset_2 033a 0217 | | Execute Heap_Access,All_Reference 033b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 033c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 033d 0000 0000 | | .XXX[0x3] 033f 0000 | | 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0348 | H | .CONST 0x0348 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0002 | | .CONST 0x0002 ; Number of locals 0343 INIT_0340: 0343 4801 |H | Short_Literal 0x1 0344 4800 |H | Short_Literal 0x0 0345 e22c | , | Load 0x1,0x2c 0346 035b | [ | Declare_Type Array,Constrained 0347 0337 | 7 | Declare_Variable Array 0348 BODY_0340: 0348 00d8 | | Load_Top At_Offset_0 0349 e22c | , | Load 0x1,0x2c 034a 01c6 | | Execute Vector,Convert_To_Formal 034b 00ca | | Action Exit_Nullary_Function 034c 0000 0000 | | .BLANK 0000[0x4] 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0355 | U | .CONST 0x0355 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0002 | | .CONST 0x0002 ; Number of locals 0353 INIT_0350: 0353 e22e | . | Load 0x1,0x2e 0354 0007 | | Action Break_Optional 0355 BODY_0350: 0355 00d8 | | Load_Top At_Offset_0 0356 00ca | | Action Exit_Nullary_Function 0357 0000 | | .XXX[0x1] 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 035b | [ | .CONST 0x035b ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0001 | | .CONST 0x0001 ; Number of locals 035b BODY_0358: 035b INIT_0358: 035b 00da | | Load_Top At_Offset_2 035c 021d | | Execute Heap_Access,Is_Null 035d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 035e 0000 0000 | | .XXX[0x2] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0363 | c | .CONST 0x0363 ; Address of begin 0361 036a | j | .CONST 0x036a ; Address of exception handler 0362 0001 | | .CONST 0x0001 ; Number of locals 0363 BODY_0360: 0363 INIT_0360: 0363 00da | | Load_Top At_Offset_2 0364 e22e | . | Load 0x1,0x2e 0365 e5fe | | Load 0x2,-0x2 0366 e003 | | Load 0x0,0x3 0367 180f | | Execute Package,Field_Execute,Field_Number 0xf 0368 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0369 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 036a TRAP_0360: 036a e003 | | Load 0x0,0x3 036b 1b12 | | Execute Package,Field_Read,Field_Number 0x12 036c 010f | | Execute Exception,Equal 036d 6803 |h | Jump_Zero 0x371 036e e002 | | Load 0x0,0x2 036f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0370 0257 | W | Execute Discrete,Raise 0371 e003 | | Load 0x0,0x3 0372 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0373 010f | | Execute Exception,Equal 0374 6803 |h | Jump_Zero 0x378 0375 e002 | | Load 0x0,0x2 0376 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0377 0257 | W | Execute Discrete,Raise 0378 0100 | | Execute Exception,Raise 0379 0000 0000 | | .BLANK 0000[0x7] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 0383 | | .CONST 0x0383 ; Address of begin 0381 0004 | | .CONST 0x0004 ; Address of exception handler 0382 0001 | | .CONST 0x0001 ; Number of locals 0383 BODY_0380: 0383 INIT_0380: 0383 00db | | Load_Top At_Offset_3 0384 e005 | | Load 0x0,0x5 0385 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0386 c5fe | | Store 0x2,-0x2 0387 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 038b | | .CONST 0x038b ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0001 | | .CONST 0x0001 ; Number of locals 038b BODY_0388: 038b INIT_0388: 038b 00da | | Load_Top At_Offset_2 038c 8230 | 0 | Call 0x1,0x30 038d 6801 |h | Jump_Zero 0x38f 038e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 038f 0092 0452 | R| Action Push_String_Extended,0x452 ; "Attribute Characteristics Customizations" 0391 4800 |H | Short_Literal 0x0 0392 8006 | | Call 0x0,0x6 0393 4801 |H | Short_Literal 0x1 0394 00db | | Load_Top At_Offset_3 0395 8235 | 5 | Call 0x1,0x35 0396 0092 0453 | S| Action Push_String_Extended,0x453 ; "Attributes" 0398 8007 | | Call 0x0,0x7 0399 4502 |E | Exit_Suprogram New_Top_Offset 0x2 039a 0000 0000 | | .BLANK 0000[0x6] 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 00da | | Load_Top At_Offset_2 03a4 8230 | 0 | Call 0x1,0x30 03a5 6803 |h | Jump_Zero 0x3a9 03a6 e002 | | Load 0x0,0x2 03a7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03a8 0257 | W | Execute Discrete,Raise 03a9 00da | | Load_Top At_Offset_2 03aa 0217 | | Execute Heap_Access,All_Reference 03ab 0335 | 5 | Declare_Variable Array,Duplicate 03ac 00cd | | Action Spare6_Action 03ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ae 0000 0000 | | .XXX[0x2] 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03b3 | | .CONST 0x03b3 ; Address of begin 03b1 0004 | | .CONST 0x0004 ; Address of exception handler 03b2 0001 | | .CONST 0x0001 ; Number of locals 03b3 BODY_03b0: 03b3 INIT_03b0: 03b3 4608 |F | Jump_Case 0x9 03b4 7808 |x | Jump 0x3bd ; case 0x0 03b5 7823 |x# | Jump 0x3d9 ; case 0x1 03b6 785e |x^ | Jump 0x415 ; case 0x2 03b7 785d |x] | Jump 0x415 ; case 0x3 03b8 785c |x\ | Jump 0x415 ; case 0x4 03b9 785b |x[ | Jump 0x415 ; case 0x5 03ba 7826 |x& | Jump 0x3e1 ; case 0x6 03bb 782c |x, | Jump 0x3e8 ; case 0x7 03bc 7841 |xA | Jump 0x3fe ; case 0x8 03bd 00da | | Load_Top At_Offset_2 03be 016c | l | Execute Variant_Record,Is_Constrained 03bf 700a |p | Jump_Nonzero 0x3ca 03c0 00cf | | Action Mark_Auxiliary 03c1 4800 |H | Short_Literal 0x0 03c2 4800 |H | Short_Literal 0x0 03c3 e5ff | | Load 0x2,-0x1 03c4 1c08 | | Execute_Immediate Run_Utility,0x8 03c5 00d8 | | Load_Top At_Offset_0 03c6 1c00 | | Execute_Immediate Run_Utility,0x0 03c7 c5ff | | Store 0x2,-0x1 03c8 00ce | | Action Pop_Auxiliary 03c9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 03ca 00da | | Load_Top At_Offset_2 03cb 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 03cc 0f01 | | Execute_Immediate Equal,0x1 03cd 700a |p | Jump_Nonzero 0x3d8 03ce 00da | | Load_Top At_Offset_2 03cf 2203 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x3 03d0 00da | | Load_Top At_Offset_2 03d1 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3 03d2 00db | | Load_Top At_Offset_3 03d3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 03d4 0f01 | | Execute_Immediate Equal,0x1 03d5 7000 |p | Jump_Nonzero 0x3d6 03d6 00db | | Load_Top At_Offset_3 03d7 2b03 |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x3 03d8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 03d9 00da | | Load_Top At_Offset_2 03da 016b | k | Execute Variant_Record,Read_Variant 03db 00d8 | | Load_Top At_Offset_0 03dc 0f01 | | Execute_Immediate Equal,0x1 03dd 6802 |h | Jump_Zero 0x3e0 03de 00db | | Load_Top At_Offset_3 03df 2203 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x3 03e0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 03e1 e5fd | | Load 0x2,-0x3 03e2 0f01 | | Execute_Immediate Equal,0x1 03e3 7002 |p | Jump_Nonzero 0x3e6 03e4 4801 |H | Short_Literal 0x1 03e5 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3 03e6 48ff |H | Short_Literal 0xff 03e7 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3 03e8 e5fd | | Load 0x2,-0x3 03e9 e5fe | | Load 0x2,-0x2 03ea e5fd | | Load 0x2,-0x3 03eb 0f01 | | Execute_Immediate Equal,0x1 03ec 700c |p | Jump_Nonzero 0x3f9 03ed e5fe | | Load 0x2,-0x2 03ee 0f01 | | Execute_Immediate Equal,0x1 03ef 7002 |p | Jump_Nonzero 0x3f2 03f0 4801 |H | Short_Literal 0x1 03f1 7801 |x | Jump 0x3f3 03f2 48ff |H | Short_Literal 0xff 03f3 e237 | 7 | Load 0x1,0x37 03f4 2303 |# | Execute Variant_Record,Field_Type,Field_Number 0x3 03f5 031b | | Declare_Type Variant_Record,Constrained 03f6 4801 |H | Short_Literal 0x1 03f7 4801 |H | Short_Literal 0x1 03f8 7802 |x | Jump 0x3fb 03f9 4800 |H | Short_Literal 0x0 03fa 48ff |H | Short_Literal 0xff 03fb e5ff | | Load 0x2,-0x1 03fc 031b | | Declare_Type Variant_Record,Constrained 03fd 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3 03fe e5fd | | Load 0x2,-0x3 03ff e5fe | | Load 0x2,-0x2 0400 e5fd | | Load 0x2,-0x3 0401 e5fe | | Load 0x2,-0x2 0402 e5ff | | Load 0x2,-0x1 0403 1c06 | | Execute_Immediate Run_Utility,0x6 0404 e5ff | | Load 0x2,-0x1 0405 02fc | | Declare_Variable Variant_Record,With_Constraint 0406 e5fd | | Load 0x2,-0x3 0407 0f01 | | Execute_Immediate Equal,0x1 0408 700a |p | Jump_Nonzero 0x413 0409 e5fe | | Load 0x2,-0x2 040a 6801 |h | Jump_Zero 0x40c 040b 7802 |x | Jump 0x40e 040c 4801 |H | Short_Literal 0x1 040d 7801 |x | Jump 0x40f 040e 48ff |H | Short_Literal 0xff 040f e237 | 7 | Load 0x1,0x37 0410 2303 |# | Execute Variant_Record,Field_Type,Field_Number 0x3 0411 02fc | | Declare_Variable Variant_Record,With_Constraint 0412 2f03 |/ | Execute Variant_Record,Field_Append,Variant,Indirect,Field_Number 0x3 0413 016a | j | QQ_execute Variant_Record,XXX 0414 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3 0415 0869 | i | Execute_Immediate Raise,0x69 0416 0000 0000 | | .XXX[0x2] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 041b | | .CONST 0x041b ; Address of begin 0419 0004 | | .CONST 0x0004 ; Address of exception handler 041a 0001 | | .CONST 0x0001 ; Number of locals 041b BODY_0418: 041b INIT_0418: 041b 4608 |F | Jump_Case 0x9 041c 7808 |x | Jump 0x425 ; case 0x0 041d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 041e 782f |x/ | Jump 0x44e ; case 0x2 041f 782e |x. | Jump 0x44e ; case 0x3 0420 782d |x- | Jump 0x44e ; case 0x4 0421 782c |x, | Jump 0x44e ; case 0x5 0422 7813 |x | Jump 0x436 ; case 0x6 0423 7819 |x | Jump 0x43d ; case 0x7 0424 7822 |x" | Jump 0x447 ; case 0x8 0425 00da | | Load_Top At_Offset_2 0426 016c | l | Execute Variant_Record,Is_Constrained 0427 7009 |p | Jump_Nonzero 0x431 0428 00cf | | Action Mark_Auxiliary 0429 4800 |H | Short_Literal 0x0 042a e5ff | | Load 0x2,-0x1 042b 1c08 | | Execute_Immediate Run_Utility,0x8 042c 00d8 | | Load_Top At_Offset_0 042d 1c00 | | Execute_Immediate Run_Utility,0x0 042e c5ff | | Store 0x2,-0x1 042f 00ce | | Action Pop_Auxiliary 0430 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0431 00da | | Load_Top At_Offset_2 0432 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0433 0f01 | | Execute_Immediate Equal,0x1 0434 7000 |p | Jump_Nonzero 0x435 0435 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0436 00db | | Load_Top At_Offset_3 0437 6801 |h | Jump_Zero 0x439 0438 7802 |x | Jump 0x43b 0439 4801 |H | Short_Literal 0x1 043a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 043b 48ff |H | Short_Literal 0xff 043c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 043d 00db | | Load_Top At_Offset_3 043e e5fe | | Load 0x2,-0x2 043f 0f01 | | Execute_Immediate Equal,0x1 0440 7002 |p | Jump_Nonzero 0x443 0441 4801 |H | Short_Literal 0x1 0442 7801 |x | Jump 0x444 0443 48ff |H | Short_Literal 0xff 0444 e5ff | | Load 0x2,-0x1 0445 031b | | Declare_Type Variant_Record,Constrained 0446 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0447 00db | | Load_Top At_Offset_3 0448 e5fe | | Load 0x2,-0x2 0449 e5ff | | Load 0x2,-0x1 044a 1c06 | | Execute_Immediate Run_Utility,0x6 044b e5ff | | Load 0x2,-0x1 044c 02fc | | Declare_Variable Variant_Record,With_Constraint 044d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 044e 0869 | i | Execute_Immediate Raise,0x69 044f ; -------------------------------------------------------------------------------------- 044f ; STRING TABLE 044f ; -------------------------------------------------------------------------------------- 044f 000c | | .STRTAB 0x000c->0x0455 ; "VALUE_RESULT" 0450 0016 | | .STRTAB 0x0016->0x045b ; "TYPE_RESULT" 0451 001f | | .STRTAB 0x001f->0x0460 ; "RANGE_RESULT" 0452 0029 | ) | .STRTAB 0x0029->0x0466 ; "Attribute Characteristics Customizations" 0453 004f | O | .STRTAB 0x004f->0x047a ; "Attributes" 0454 0057 | W | .STREND 0x0057->0x047f 0455 5641 4c55 |VALU| .STRTAB_STRINGS 0480 ; -------------------------------------------------------------------------------------- 0480 ; Debug Table 0480 ; -------------------------------------------------------------------------------------- 0480 0004 000d | | .DEBUG4 0x0004,0x000d,0x50cd,0x0000,0x0001,0x0000 0486 0000 0000 | | .BLANK 0000[0x17a]