|
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_03b8fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 0470 | p | .CONST 0x0470 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0038 | 8 | .CONST 0x0038 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001b | | .CONST 0x001b ; Number of locals 000b INIT_0008: 000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 000d 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 000f 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0011 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0013 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 0015 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 0017 00bf | | Action Accept_Activation 0018 8002 | | Call 0x0,0x2 0019 8003 | | Call 0x0,0x3 001a e004 | | Load 0x0,0x4 001b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 001c 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call 001e 029d 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call 0020 029d 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call 0022 029d 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call 0024 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call 0026 029d 031b | | Declare_Subprogram INIT_0318,For_Outer_Call 0028 029d 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call 002a 1d0d | | Execute_Immediate Reference_Lex_1,0xd 002b 00c7 | | Action Elaborate_Subprogram 002c 029d 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call 002e 1d0e | | Execute_Immediate Reference_Lex_1,0xe 002f 00c7 | | Action Elaborate_Subprogram 0030 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0031 00c7 | | Action Elaborate_Subprogram 0032 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0033 00c7 | | Action Elaborate_Subprogram 0034 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0035 00c7 | | Action Elaborate_Subprogram 0036 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0037 00c7 | | Action Elaborate_Subprogram 0038 BODY_0008: 0038 00bc | | Action Signal_Activated 0039 00bb | | Action Signal_Completion 003a 0000 0000 | | .BLANK 0000[0x6] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0052 | R | .CONST 0x0052 ; Address of begin 0041 00d0 | | .CONST 0x00d0 ; Address of exception handler 0042 0007 | | .CONST 0x0007 ; Number of locals 0043 INIT_0040: 0043 e005 | | Load 0x0,0x5 0044 0322 | " | Declare_Variable Record 0045 8006 | | Call 0x0,0x6 0046 00d9 | | Load_Top At_Offset_1 0047 017d | } | Execute Record,Structure_Write 0048 00ec | | Load_Encached Diana_Tree_Cache 0049 00ec | | Load_Encached Diana_Tree_Cache 004a 00ec | | Load_Encached Diana_Tree_Cache 004b e007 | | Load 0x0,0x7 004c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004d 02c7 | | Declare_Variable Any 004e 00d8 | | Load_Top At_Offset_0 004f 1c00 | | Execute_Immediate Run_Utility,0x0 0050 e008 | | Load 0x0,0x8 0051 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0052 BODY_0040: 0052 00d9 | | Load_Top At_Offset_1 0053 e402 | | Load 0x2,0x2 0054 e5ff | | Load 0x2,-0x1 0055 8218 | | Call 0x1,0x18 0056 00d1 | | Pop_Control Pop_Count_1 0057 c406 | | Store 0x2,0x6 0058 4802 |H | Short_Literal 0x2 0059 00da | | Load_Top At_Offset_2 005a e007 | | Load 0x0,0x7 005b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 005c 681a |h | Jump_Zero 0x77 005d e5fe | | Load 0x2,-0x2 005e 00eb | | Load_Encached Diana_Cache 005f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0060 680a |h | Jump_Zero 0x6b 0061 480a |H | Short_Literal 0xa 0062 0092 03db | | Action Push_String_Extended,0x3db ; "Problem encountered resolving location's path name: \x0a" 0064 00db | | Load_Top At_Offset_3 0065 e007 | | Load 0x0,0x7 0066 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0067 01cc | | Execute Vector,Catenate 0068 01cb | | Execute Vector,Append 0069 8009 | | Call 0x0,0x9 006a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 006b e5fd | | Load 0x2,-0x3 006c 800a | | Call 0x0,0xa 006d 6803 |h | Jump_Zero 0x71 006e e5fe | | Load 0x2,-0x2 006f a403 | | Store_Unchecked 0x2,0x3 0070 7809 |x | Jump 0x7a 0071 e5fd | | Load 0x2,-0x3 0072 8006 | | Call 0x0,0x6 0073 e5fe | | Load 0x2,-0x2 0074 8219 | | Call 0x1,0x19 0075 a403 | | Store_Unchecked 0x2,0x3 0076 7803 |x | Jump 0x7a 0077 e402 | | Load 0x2,0x2 0078 800b | | Call 0x0,0xb 0079 a403 | | Store_Unchecked 0x2,0x3 007a e403 | | Load 0x2,0x3 007b e00c | | Load 0x0,0xc 007c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 007d 680e |h | Jump_Zero 0x8c 007e 4800 |H | Short_Literal 0x0 007f 800d | | Call 0x0,0xd 0080 00d8 | | Load_Top At_Offset_0 0081 00e3 | | Load_Encached Natural_Cache 0082 0260 | ` | Execute Discrete,In_Type 0083 7001 |p | Jump_Nonzero 0x85 0084 0801 | | Execute_Immediate Raise,0x1 0085 4802 |H | Short_Literal 0x2 0086 800e | | Call 0x0,0xe 0087 e5fd | | Load 0x2,-0x3 0088 e403 | | Load 0x2,0x3 0089 e5ff | | Load 0x2,-0x1 008a 800f | | Call 0x0,0xf 008b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 008c e403 | | Load 0x2,0x3 008d e00c | | Load 0x0,0xc 008e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 008f 6829 |h) | Jump_Zero 0xb9 0090 e402 | | Load 0x2,0x2 0091 e5ff | | Load 0x2,-0x1 0092 e403 | | Load 0x2,0x3 0093 821a | | Call 0x1,0x1a 0094 a404 | | Store_Unchecked 0x2,0x4 0095 e402 | | Load 0x2,0x2 0096 8010 | | Call 0x0,0x10 0097 0f05 | | Execute_Immediate Equal,0x5 0098 6808 |h | Jump_Zero 0xa1 0099 e402 | | Load 0x2,0x2 009a 8011 | | Call 0x0,0x11 009b 6805 |h | Jump_Zero 0xa1 009c 00db | | Load_Top At_Offset_3 009d e012 | | Load 0x0,0x12 009e 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 009f 0033 | 3 | Store_Top Heap_Access,At_Offset_3 00a0 7802 |x | Jump 0xa3 00a1 00db | | Load_Top At_Offset_3 00a2 0033 | 3 | Store_Top Heap_Access,At_Offset_3 00a3 e008 | | Load 0x0,0x8 00a4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00a5 4800 |H | Short_Literal 0x0 00a6 4802 |H | Short_Literal 0x2 00a7 e405 | | Load 0x2,0x5 00a8 e008 | | Load 0x0,0x8 00a9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00aa 0059 | Y | Store_Top Discrete,At_Offset_1 00ab 00d8 | | Load_Top At_Offset_0 00ac 680b |h | Jump_Zero 0xb8 00ad 480a |H | Short_Literal 0xa 00ae 0092 03dc | | Action Push_String_Extended,0x3dc ; "DEFINITION failed - " 00b0 00da | | Load_Top At_Offset_2 00b1 e008 | | Load 0x0,0x8 00b2 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00b3 011c | | Execute Any,Convert_Unchecked 00b4 1c01 | | Execute_Immediate Run_Utility,0x1 00b5 01cc | | Execute Vector,Catenate 00b6 01cb | | Execute Vector,Append 00b7 8009 | | Call 0x0,0x9 00b8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00b9 e5ff | | Load 0x2,-0x1 00ba 01dd | | Execute Vector,First 00bb e5ff | | Load 0x2,-0x1 00bc 01d7 | | Execute Vector,Field_Read 00bd 0f2e | . | Execute_Immediate Equal,0x2e 00be 680b |h | Jump_Zero 0xca 00bf 4801 |H | Short_Literal 0x1 00c0 4800 |H | Short_Literal 0x0 00c1 4801 |H | Short_Literal 0x1 00c2 4800 |H | Short_Literal 0x0 00c3 e013 | | Load 0x0,0x13 00c4 e404 | | Load 0x2,0x4 00c5 e012 | | Load 0x0,0x12 00c6 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 00c7 e014 | | Load 0x0,0x14 00c8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00c9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00ca 4801 |H | Short_Literal 0x1 00cb 4800 |H | Short_Literal 0x0 00cc e5ff | | Load 0x2,-0x1 00cd e014 | | Load 0x0,0x14 00ce 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00cf 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00d0 TRAP_0040: 00d0 0007 | | Action Break_Optional 00d1 480a |H | Short_Literal 0xa 00d2 0092 03dd | | Action Push_String_Extended,0x3dd ; "Exception raised during command processing: " 00d4 e015 | | Load 0x0,0x15 00d5 180d | | Execute Package,Field_Execute,Field_Number 0xd 00d6 01cc | | Execute Vector,Catenate 00d7 01cb | | Execute Vector,Append 00d8 8009 | | Call 0x0,0x9 00d9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00da 0000 0000 | | .BLANK 0000[0x6] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00fd | | .CONST 0x00fd ; Address of begin 00e1 0143 | C | .CONST 0x0143 ; Address of exception handler 00e2 0008 | | .CONST 0x0008 ; Number of locals 00e3 INIT_00e0: 00e3 e007 | | Load 0x0,0x7 00e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e5 02c7 | | Declare_Variable Any 00e6 00d8 | | Load_Top At_Offset_0 00e7 1c00 | | Execute_Immediate Run_Utility,0x0 00e8 e005 | | Load 0x0,0x5 00e9 0322 | " | Declare_Variable Record 00ea 00d8 | | Load_Top At_Offset_0 00eb 1c00 | | Execute_Immediate Run_Utility,0x0 00ec 00e3 | | Load_Encached Natural_Cache 00ed e016 | | Load 0x0,0x16 00ee 02c7 | | Declare_Variable Any 00ef 00d8 | | Load_Top At_Offset_0 00f0 1c00 | | Execute_Immediate Run_Utility,0x0 00f1 e017 | | Load 0x0,0x17 00f2 02c7 | | Declare_Variable Any 00f3 00d8 | | Load_Top At_Offset_0 00f4 1c00 | | Execute_Immediate Run_Utility,0x0 00f5 e018 | | Load 0x0,0x18 00f6 02c7 | | Declare_Variable Any 00f7 00d8 | | Load_Top At_Offset_0 00f8 1c00 | | Execute_Immediate Run_Utility,0x0 00f9 e019 | | Load 0x0,0x19 00fa 02c7 | | Declare_Variable Any 00fb 00d8 | | Load_Top At_Offset_0 00fc 1c00 | | Execute_Immediate Run_Utility,0x0 00fd BODY_00e0: 00fd e402 | | Load 0x2,0x2 00fe e403 | | Load 0x2,0x3 00ff 00e3 | | Load_Encached Natural_Cache 0100 00eb | | Load_Encached Diana_Cache 0101 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0102 4800 |H | Short_Literal 0x0 0103 4801 |H | Short_Literal 0x1 0104 8006 | | Call 0x0,0x6 0105 e5ff | | Load 0x2,-0x1 0106 801a | | Call 0x0,0x1a 0107 c404 | | Store 0x2,0x4 0108 00d1 | | Pop_Control Pop_Count_1 0109 c402 | | Store 0x2,0x2 010a 4802 |H | Short_Literal 0x2 010b e402 | | Load 0x2,0x2 010c e007 | | Load 0x0,0x7 010d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 010e 680a |h | Jump_Zero 0x119 010f 480a |H | Short_Literal 0xa 0110 0092 03db | | Action Push_String_Extended,0x3db ; "Problem encountered resolving location's path name: \x0a" 0112 e402 | | Load 0x2,0x2 0113 e007 | | Load 0x0,0x7 0114 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0115 01cc | | Execute Vector,Catenate 0116 01cb | | Execute Vector,Append 0117 8009 | | Call 0x0,0x9 0118 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0119 e403 | | Load 0x2,0x3 011a 801b | | Call 0x0,0x1b 011b c407 | | Store 0x2,0x7 011c e403 | | Load 0x2,0x3 011d 801c | | Call 0x0,0x1c 011e c406 | | Store 0x2,0x6 011f e403 | | Load 0x2,0x3 0120 801d | | Call 0x0,0x1d 0121 c408 | | Store 0x2,0x8 0122 e402 | | Load 0x2,0x2 0123 e405 | | Load 0x2,0x5 0124 0120 | | Execute Any,Is_Value 0125 6802 |h | Jump_Zero 0x128 0126 e016 | | Load 0x0,0x16 0127 7801 |x | Jump 0x129 0128 e405 | | Load 0x2,0x5 0129 00da | | Load_Top At_Offset_2 012a e407 | | Load 0x2,0x7 012b 801e | | Call 0x0,0x1e 012c c405 | | Store 0x2,0x5 012d c402 | | Store 0x2,0x2 012e 4802 |H | Short_Literal 0x2 012f e402 | | Load 0x2,0x2 0130 e007 | | Load 0x0,0x7 0131 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0132 680a |h | Jump_Zero 0x13d 0133 480a |H | Short_Literal 0xa 0134 0092 03de | | Action Push_String_Extended,0x3de ; "Problem encountered calculating address: \x0a" 0136 e402 | | Load 0x2,0x2 0137 e007 | | Load 0x0,0x7 0138 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0139 01cc | | Execute Vector,Catenate 013a 01cb | | Execute Vector,Append 013b 8009 | | Call 0x0,0x9 013c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 013d 00d8 | | Load_Top At_Offset_0 013e 00da | | Load_Top At_Offset_2 013f e406 | | Load 0x2,0x6 0140 e405 | | Load 0x2,0x5 0141 821b | | Call 0x1,0x1b 0142 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0143 TRAP_00e0: 0143 0007 | | Action Break_Optional 0144 480a |H | Short_Literal 0xa 0145 0092 03dd | | Action Push_String_Extended,0x3dd ; "Exception raised during command processing: " 0147 e015 | | Load 0x0,0x15 0148 180d | | Execute Package,Field_Execute,Field_Number 0xd 0149 01cc | | Execute Vector,Catenate 014a 01cb | | Execute Vector,Append 014b 8009 | | Call 0x0,0x9 014c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 014d 0000 0000 | | .XXX[0x3] 014f 0000 | | 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0164 | d | .CONST 0x0164 ; Address of begin 0151 01a1 | | .CONST 0x01a1 ; Address of exception handler 0152 0005 | | .CONST 0x0005 ; Number of locals 0153 INIT_0150: 0153 e007 | | Load 0x0,0x7 0154 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0155 02c7 | | Declare_Variable Any 0156 00d8 | | Load_Top At_Offset_0 0157 1c00 | | Execute_Immediate Run_Utility,0x0 0158 e017 | | Load 0x0,0x17 0159 02c7 | | Declare_Variable Any 015a 00d8 | | Load_Top At_Offset_0 015b 1c00 | | Execute_Immediate Run_Utility,0x0 015c e018 | | Load 0x0,0x18 015d 02c7 | | Declare_Variable Any 015e 00d8 | | Load_Top At_Offset_0 015f 1c00 | | Execute_Immediate Run_Utility,0x0 0160 e019 | | Load 0x0,0x19 0161 02c7 | | Declare_Variable Any 0162 00d8 | | Load_Top At_Offset_0 0163 1c00 | | Execute_Immediate Run_Utility,0x0 0164 BODY_0150: 0164 00db | | Load_Top At_Offset_3 0165 00d9 | | Load_Top At_Offset_1 0166 0120 | | Execute Any,Is_Value 0167 6802 |h | Jump_Zero 0x16a 0168 e019 | | Load 0x0,0x19 0169 7801 |x | Jump 0x16b 016a 00d9 | | Load_Top At_Offset_1 016b 00db | | Load_Top At_Offset_3 016c 0120 | | Execute Any,Is_Value 016d 6802 |h | Jump_Zero 0x170 016e e018 | | Load 0x0,0x18 016f 7801 |x | Jump 0x171 0170 00db | | Load_Top At_Offset_3 0171 e403 | | Load 0x2,0x3 0172 0120 | | Execute Any,Is_Value 0173 6802 |h | Jump_Zero 0x176 0174 e017 | | Load 0x0,0x17 0175 7801 |x | Jump 0x177 0176 e403 | | Load 0x2,0x3 0177 e5ff | | Load 0x2,-0x1 0178 801f | | Call 0x0,0x1f 0179 c403 | | Store 0x2,0x3 017a c404 | | Store 0x2,0x4 017b c405 | | Store 0x2,0x5 017c c402 | | Store 0x2,0x2 017d 4802 |H | Short_Literal 0x2 017e e402 | | Load 0x2,0x2 017f e007 | | Load 0x0,0x7 0180 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0181 7003 |p | Jump_Nonzero 0x185 0182 00d9 | | Load_Top At_Offset_1 0183 8020 | | Call 0x0,0x20 0184 6816 |h | Jump_Zero 0x19b 0185 0092 03df | | Action Push_String_Extended,0x3df ; "Could not find Ada location for address" 0187 8009 | | Call 0x0,0x9 0188 4802 |H | Short_Literal 0x2 0189 e402 | | Load 0x2,0x2 018a e007 | | Load 0x0,0x7 018b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 018c 680a |h | Jump_Zero 0x197 018d 480a |H | Short_Literal 0xa 018e 0092 03e0 | | Action Push_String_Extended,0x3e0 ; ": " 0190 e402 | | Load 0x2,0x2 0191 e007 | | Load 0x0,0x7 0192 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0193 01cc | | Execute Vector,Catenate 0194 01cb | | Execute Vector,Append 0195 8009 | | Call 0x0,0x9 0196 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0197 0092 03e1 | | Action Push_String_Extended,0x3e1 ; ".\x0a" 0199 8009 | | Call 0x0,0x9 019a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 019b 00d8 | | Load_Top At_Offset_0 019c 00da | | Load_Top At_Offset_2 019d e403 | | Load 0x2,0x3 019e e5ff | | Load 0x2,-0x1 019f 821b | | Call 0x1,0x1b 01a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a1 TRAP_0150: 01a1 0007 | | Action Break_Optional 01a2 480a |H | Short_Literal 0xa 01a3 0092 03dd | | Action Push_String_Extended,0x3dd ; "Exception raised during command processing: " 01a5 e015 | | Load 0x0,0x15 01a6 180d | | Execute Package,Field_Execute,Field_Number 0xd 01a7 01cc | | Execute Vector,Catenate 01a8 01cb | | Execute Vector,Append 01a9 8009 | | Call 0x0,0x9 01aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01ab 0000 0000 | | .BLANK 0000[0x5] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01bc | | .CONST 0x01bc ; Address of begin 01b1 01f2 | | .CONST 0x01f2 ; Address of exception handler 01b2 0003 | | .CONST 0x0003 ; Number of locals 01b3 INIT_01b0: 01b3 e021 | ! | Load 0x0,0x21 01b4 0322 | " | Declare_Variable Record 01b5 00d8 | | Load_Top At_Offset_0 01b6 1c00 | | Execute_Immediate Run_Utility,0x0 01b7 e007 | | Load 0x0,0x7 01b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b9 02c7 | | Declare_Variable Any 01ba 00d8 | | Load_Top At_Offset_0 01bb 1c00 | | Execute_Immediate Run_Utility,0x0 01bc BODY_01b0: 01bc e5fb | | Load 0x2,-0x5 01bd 4820 |H | Short_Literal 0x20 01be 4800 |H | Short_Literal 0x0 01bf e022 | " | Load 0x0,0x22 01c0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 01c1 00d1 | | Pop_Control Pop_Count_1 01c2 00d8 | | Load_Top At_Offset_0 01c3 00da | | Load_Top At_Offset_2 01c4 e5fe | | Load 0x2,-0x2 01c5 e5ff | | Load 0x2,-0x1 01c6 8023 | # | Call 0x0,0x23 01c7 00d1 | | Pop_Control Pop_Count_1 01c8 c403 | | Store 0x2,0x3 01c9 4802 |H | Short_Literal 0x2 01ca 00d9 | | Load_Top At_Offset_1 01cb e007 | | Load 0x0,0x7 01cc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01cd 7023 |p# | Jump_Nonzero 0x1f1 01ce e5fb | | Load 0x2,-0x5 01cf e5fd | | Load 0x2,-0x3 01d0 00db | | Load_Top At_Offset_3 01d1 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 01d2 e402 | | Load 0x2,0x2 01d3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01d4 e402 | | Load 0x2,0x2 01d5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01d6 e012 | | Load 0x0,0x12 01d7 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 01d8 e022 | " | Load 0x0,0x22 01d9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01da 00d1 | | Pop_Control Pop_Count_1 01db e5fc | | Load 0x2,-0x4 01dc 6814 |h | Jump_Zero 0x1f1 01dd e5fb | | Load 0x2,-0x5 01de 0092 03e2 | | Action Push_String_Extended,0x3e2 ; " Pc = " 01e0 00db | | Load_Top At_Offset_3 01e1 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 01e2 8024 | $ | Call 0x0,0x24 01e3 01cc | | Execute Vector,Catenate 01e4 0092 03e3 | | Action Push_String_Extended,0x3e3 ; ", Frame = " 01e6 01cc | | Execute Vector,Catenate 01e7 00db | | Load_Top At_Offset_3 01e8 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 01e9 8025 | % | Call 0x0,0x25 01ea 01cc | | Execute Vector,Catenate 01eb 00db | | Load_Top At_Offset_3 01ec 8026 | & | Call 0x0,0x26 01ed 01cc | | Execute Vector,Catenate 01ee e022 | " | Load 0x0,0x22 01ef 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01f0 00d1 | | Pop_Control Pop_Count_1 01f1 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01f2 TRAP_01b0: 01f2 0007 | | Action Break_Optional 01f3 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01f4 0000 0000 | | .BLANK 0000[0x4] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 0210 | | .CONST 0x0210 ; Address of begin 01f9 023d | = | .CONST 0x023d ; Address of exception handler 01fa 0007 | | .CONST 0x0007 ; Number of locals 01fb INIT_01f8: 01fb e017 | | Load 0x0,0x17 01fc 02c7 | | Declare_Variable Any 01fd 00d8 | | Load_Top At_Offset_0 01fe 1c00 | | Execute_Immediate Run_Utility,0x0 01ff e018 | | Load 0x0,0x18 0200 02c7 | | Declare_Variable Any 0201 00d8 | | Load_Top At_Offset_0 0202 1c00 | | Execute_Immediate Run_Utility,0x0 0203 e019 | | Load 0x0,0x19 0204 02c7 | | Declare_Variable Any 0205 00d8 | | Load_Top At_Offset_0 0206 1c00 | | Execute_Immediate Run_Utility,0x0 0207 e007 | | Load 0x0,0x7 0208 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0209 02c7 | | Declare_Variable Any 020a 00d8 | | Load_Top At_Offset_0 020b 1c00 | | Execute_Immediate Run_Utility,0x0 020c 029f 03c3 | | Declare_Subprogram INIT_03c0,For_Call 020e 029f 03d3 | | Declare_Subprogram INIT_03d0,For_Call 0210 BODY_01f8: 0210 00da | | Load_Top At_Offset_2 0211 e404 | | Load 0x2,0x4 0212 0120 | | Execute Any,Is_Value 0213 6802 |h | Jump_Zero 0x216 0214 e019 | | Load 0x0,0x19 0215 7801 |x | Jump 0x217 0216 e404 | | Load 0x2,0x4 0217 e403 | | Load 0x2,0x3 0218 0120 | | Execute Any,Is_Value 0219 6802 |h | Jump_Zero 0x21c 021a e018 | | Load 0x0,0x18 021b 7801 |x | Jump 0x21d 021c e403 | | Load 0x2,0x3 021d e402 | | Load 0x2,0x2 021e 0120 | | Execute Any,Is_Value 021f 6802 |h | Jump_Zero 0x222 0220 e017 | | Load 0x0,0x17 0221 7801 |x | Jump 0x223 0222 e402 | | Load 0x2,0x2 0223 e5ff | | Load 0x2,-0x1 0224 801f | | Call 0x0,0x1f 0225 c402 | | Store 0x2,0x2 0226 c403 | | Store 0x2,0x3 0227 c404 | | Store 0x2,0x4 0228 c405 | | Store 0x2,0x5 0229 e5fe | | Load 0x2,-0x2 022a 7002 |p | Jump_Nonzero 0x22d 022b e027 | ' | Load 0x0,0x27 022c c404 | | Store 0x2,0x4 022d 4802 |H | Short_Literal 0x2 022e 00db | | Load_Top At_Offset_3 022f e007 | | Load 0x0,0x7 0230 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0231 6803 |h | Jump_Zero 0x235 0232 e5ff | | Load 0x2,-0x1 0233 8406 | | Call 0x2,0x6 0234 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0235 4801 |H | Short_Literal 0x1 0236 e404 | | Load 0x2,0x4 0237 e403 | | Load 0x2,0x3 0238 e402 | | Load 0x2,0x2 0239 e012 | | Load 0x0,0x12 023a 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 023b 8407 | | Call 0x2,0x7 023c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 023d TRAP_01f8: 023d 0007 | | Action Break_Optional 023e e5ff | | Load 0x2,-0x1 023f 8406 | | Call 0x2,0x6 0240 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0241 0000 0000 | | .BLANK 0000[0x7] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 025c | \ | .CONST 0x025c ; Address of begin 0249 0285 | | .CONST 0x0285 ; Address of exception handler 024a 0005 | | .CONST 0x0005 ; Number of locals 024b INIT_0248: 024b e005 | | Load 0x0,0x5 024c 0322 | " | Declare_Variable Record 024d 00d8 | | Load_Top At_Offset_0 024e 1c00 | | Execute_Immediate Run_Utility,0x0 024f e018 | | Load 0x0,0x18 0250 02c7 | | Declare_Variable Any 0251 00d8 | | Load_Top At_Offset_0 0252 1c00 | | Execute_Immediate Run_Utility,0x0 0253 e019 | | Load 0x0,0x19 0254 02c7 | | Declare_Variable Any 0255 00d8 | | Load_Top At_Offset_0 0256 1c00 | | Execute_Immediate Run_Utility,0x0 0257 e007 | | Load 0x0,0x7 0258 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0259 02c7 | | Declare_Variable Any 025a 00d8 | | Load_Top At_Offset_0 025b 1c00 | | Execute_Immediate Run_Utility,0x0 025c BODY_0248: 025c 8028 | ( | Call 0x0,0x28 025d c5fe | | Store 0x2,-0x2 025e e029 | ) | Load 0x0,0x29 025f c403 | | Store 0x2,0x3 0260 e027 | ' | Load 0x0,0x27 0261 c404 | | Store 0x2,0x4 0262 00d8 | | Load_Top At_Offset_0 0263 e402 | | Load 0x2,0x2 0264 4800 |H | Short_Literal 0x0 0265 4801 |H | Short_Literal 0x1 0266 e02a | * | Load 0x0,0x2a 0267 e5ff | | Load 0x2,-0x1 0268 802b | + | Call 0x0,0x2b 0269 e02c | , | Load 0x0,0x2c 026a 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 026b 00d1 | | Pop_Control Pop_Count_1 026c c405 | | Store 0x2,0x5 026d 4802 |H | Short_Literal 0x2 026e 00d9 | | Load_Top At_Offset_1 026f e007 | | Load 0x0,0x7 0270 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0271 7012 |p | Jump_Nonzero 0x284 0272 00db | | Load_Top At_Offset_3 0273 801b | | Call 0x0,0x1b 0274 c403 | | Store 0x2,0x3 0275 00db | | Load_Top At_Offset_3 0276 801d | | Call 0x0,0x1d 0277 c404 | | Store 0x2,0x4 0278 00d8 | | Load_Top At_Offset_0 0279 e5fe | | Load 0x2,-0x2 027a 0120 | | Execute Any,Is_Value 027b 6802 |h | Jump_Zero 0x27e 027c e016 | | Load 0x0,0x16 027d 7801 |x | Jump 0x27f 027e e5fe | | Load 0x2,-0x2 027f 00db | | Load_Top At_Offset_3 0280 e403 | | Load 0x2,0x3 0281 801e | | Call 0x0,0x1e 0282 c5fe | | Store 0x2,-0x2 0283 c405 | | Store 0x2,0x5 0284 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0285 TRAP_0248: 0285 0007 | | Action Break_Optional 0286 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0287 0000 | | .XXX[0x1] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028c | | .CONST 0x028c ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0002 | | .CONST 0x0002 ; Number of locals 028b INIT_0288: 028b 00e2 | | Load_Encached Integer_Cache 028c BODY_0288: 028c 4800 |H | Short_Literal 0x0 028d e5ff | | Load 0x2,-0x1 028e 482e |H. | Short_Literal 0x2e 028f e004 | | Load 0x0,0x4 0290 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0291 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0292 00d8 | | Load_Top At_Offset_0 0293 6811 |h | Jump_Zero 0x2a5 0294 00d8 | | Load_Top At_Offset_0 0295 e5ff | | Load 0x2,-0x1 0296 01dc | | Execute Vector,Last 0297 027c | | | Execute Discrete,Less 0298 680c |h | Jump_Zero 0x2a5 0299 00d8 | | Load_Top At_Offset_0 029a 0a01 | | Execute_Immediate Plus,0x1 029b 00d8 | | Load_Top At_Offset_0 029c 00e2 | | Load_Encached Integer_Cache 029d 0260 | ` | Execute Discrete,In_Type 029e 7001 |p | Jump_Nonzero 0x2a0 029f 0801 | | Execute_Immediate Raise,0x1 02a0 e5ff | | Load 0x2,-0x1 02a1 01dc | | Execute Vector,Last 02a2 e5ff | | Load 0x2,-0x1 02a3 01cf | | Execute Vector,Slice_Read 02a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a5 00ea | | Load_Encached Null_String_Cache 02a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a7 0000 | | .XXX[0x1] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ac | | .CONST 0x02ac ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0002 | | .CONST 0x0002 ; Number of locals 02ab INIT_02a8: 02ab 00e2 | | Load_Encached Integer_Cache 02ac BODY_02a8: 02ac 4800 |H | Short_Literal 0x0 02ad e5ff | | Load 0x2,-0x1 02ae 482e |H. | Short_Literal 0x2e 02af e004 | | Load 0x0,0x4 02b0 1820 | | Execute Package,Field_Execute,Field_Number 0x20 02b1 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 02b2 00d8 | | Load_Top At_Offset_0 02b3 6811 |h | Jump_Zero 0x2c5 02b4 00d8 | | Load_Top At_Offset_0 02b5 e5ff | | Load 0x2,-0x1 02b6 01dc | | Execute Vector,Last 02b7 027c | | | Execute Discrete,Less 02b8 680c |h | Jump_Zero 0x2c5 02b9 00db | | Load_Top At_Offset_3 02ba 01dd | | Execute Vector,First 02bb 00d9 | | Load_Top At_Offset_1 02bc 0aff | | Execute_Immediate Plus,-0x1 02bd 00d8 | | Load_Top At_Offset_0 02be 00e2 | | Load_Encached Integer_Cache 02bf 0260 | ` | Execute Discrete,In_Type 02c0 7001 |p | Jump_Nonzero 0x2c2 02c1 0801 | | Execute_Immediate Raise,0x1 02c2 e5ff | | Load 0x2,-0x1 02c3 01cf | | Execute Vector,Slice_Read 02c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02c5 00db | | Load_Top At_Offset_3 02c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02c7 0000 | | .XXX[0x1] 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 8214 | | Call 0x1,0x14 02cd e004 | | Load 0x0,0x4 02ce 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02cf e213 | | Load 0x1,0x13 02d0 01df | | Execute Vector,Equal 02d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d2 0000 0000 | | .BLANK 0000[0x6] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02e0 | | .CONST 0x02e0 ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0003 | | .CONST 0x0003 ; Number of locals 02db INIT_02d8: 02db 00e3 | | Load_Encached Natural_Cache 02dc e005 | | Load 0x0,0x5 02dd 0322 | " | Declare_Variable Record 02de 00d8 | | Load_Top At_Offset_0 02df 1c00 | | Execute_Immediate Run_Utility,0x0 02e0 BODY_02d8: 02e0 e5fd | | Load 0x2,-0x3 02e1 00d9 | | Load_Top At_Offset_1 02e2 00e3 | | Load_Encached Natural_Cache 02e3 00eb | | Load_Encached Diana_Cache 02e4 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02e5 4800 |H | Short_Literal 0x0 02e6 4801 |H | Short_Literal 0x1 02e7 8006 | | Call 0x0,0x6 02e8 e5ff | | Load 0x2,-0x1 02e9 802d | - | Call 0x0,0x2d 02ea c402 | | Store 0x2,0x2 02eb 00d1 | | Pop_Control Pop_Count_1 02ec c5fd | | Store 0x2,-0x3 02ed 00d8 | | Load_Top At_Offset_0 02ee e5fe | | Load 0x2,-0x2 02ef 017d | } | Execute Record,Structure_Write 02f0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02f1 0000 0000 | | .BLANK 0000[0x7] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb e5fd | | Load 0x2,-0x3 02fc e5fe | | Load 0x2,-0x2 02fd e5ff | | Load 0x2,-0x1 02fe 8217 | | Call 0x1,0x17 02ff 00d1 | | Pop_Control Pop_Count_1 0300 c5fd | | Store 0x2,-0x3 0301 4802 |H | Short_Literal 0x2 0302 e5fd | | Load 0x2,-0x3 0303 e007 | | Load 0x0,0x7 0304 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0305 680a |h | Jump_Zero 0x310 0306 00da | | Load_Top At_Offset_2 0307 8216 | | Call 0x1,0x16 0308 6807 |h | Jump_Zero 0x310 0309 e5fd | | Load 0x2,-0x3 030a e5fe | | Load 0x2,-0x2 030b e5ff | | Load 0x2,-0x1 030c 8215 | | Call 0x1,0x15 030d 8217 | | Call 0x1,0x17 030e 00d1 | | Pop_Control Pop_Count_1 030f c5fd | | Store 0x2,-0x3 0310 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0311 0000 0000 | | .BLANK 0000[0x7] 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 0322 | " | .CONST 0x0322 ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0005 | | .CONST 0x0005 ; Number of locals 031b INIT_0318: 031b e018 | | Load 0x0,0x18 031c 02c7 | | Declare_Variable Any 031d 00d8 | | Load_Top At_Offset_0 031e 1c00 | | Execute_Immediate Run_Utility,0x0 031f 00ec | | Load_Encached Diana_Tree_Cache 0320 039d | | Declare_Variable Heap_Access,Duplicate 0321 039d | | Declare_Variable Heap_Access,Duplicate 0322 BODY_0318: 0322 e5ff | | Load 0x2,-0x1 0323 00eb | | Load_Encached Diana_Cache 0324 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0325 482f |H/ | Short_Literal 0x2f 0326 4830 |H0 | Short_Literal 0x30 0327 0262 | b | Execute Discrete,In_Range 0328 7003 |p | Jump_Nonzero 0x32c 0329 e5ff | | Load 0x2,-0x1 032a 0033 | 3 | Store_Top Heap_Access,At_Offset_3 032b 7818 |x | Jump 0x344 032c e5fe | | Load 0x2,-0x2 032d 802e | . | Call 0x0,0x2e 032e 6806 |h | Jump_Zero 0x335 032f e013 | | Load 0x0,0x13 0330 e5ff | | Load 0x2,-0x1 0331 e012 | | Load 0x0,0x12 0332 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 0333 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0334 7803 |x | Jump 0x338 0335 e5fe | | Load 0x2,-0x2 0336 802f | / | Call 0x0,0x2f 0337 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0338 00d9 | | Load_Top At_Offset_1 0339 00eb | | Load_Encached Diana_Cache 033a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 033b 0f73 | s | Execute_Immediate Equal,0x73 033c 7002 |p | Jump_Nonzero 0x33f 033d e5ff | | Load 0x2,-0x1 033e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 033f 00d9 | | Load_Top At_Offset_1 0340 e5ff | | Load 0x2,-0x1 0341 e012 | | Load 0x0,0x12 0342 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0343 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0344 00da | | Load_Top At_Offset_2 0345 8030 | 0 | Call 0x0,0x30 0346 c402 | | Store 0x2,0x2 0347 e5fd | | Load 0x2,-0x3 0348 e402 | | Load 0x2,0x2 0349 8031 | 1 | Call 0x0,0x31 034a 0031 | 1 | Store_Top Heap_Access,At_Offset_1 034b 00d8 | | Load_Top At_Offset_0 034c 00eb | | Load_Encached Diana_Cache 034d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 034e 6802 |h | Jump_Zero 0x351 034f e5ff | | Load 0x2,-0x1 0350 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0351 00d8 | | Load_Top At_Offset_0 0352 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0353 0000 0000 | | .BLANK 0000[0x5] 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 036c | l | .CONST 0x036c ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0008 | | .CONST 0x0008 ; Number of locals 035b INIT_0358: 035b 00e2 | | Load_Encached Integer_Cache 035c 00ec | | Load_Encached Diana_Tree_Cache 035d e007 | | Load 0x0,0x7 035e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 035f 02c7 | | Declare_Variable Any 0360 00d8 | | Load_Top At_Offset_0 0361 1c00 | | Execute_Immediate Run_Utility,0x0 0362 00ec | | Load_Encached Diana_Tree_Cache 0363 00ec | | Load_Encached Diana_Tree_Cache 0364 e017 | | Load 0x0,0x17 0365 02c7 | | Declare_Variable Any 0366 00d8 | | Load_Top At_Offset_0 0367 1c00 | | Execute_Immediate Run_Utility,0x0 0368 e019 | | Load 0x0,0x19 0369 02c7 | | Declare_Variable Any 036a 00d8 | | Load_Top At_Offset_0 036b 1c00 | | Execute_Immediate Run_Utility,0x0 036c BODY_0358: 036c e404 | | Load 0x2,0x4 036d 00da | | Load_Top At_Offset_2 036e 0120 | | Execute Any,Is_Value 036f 6802 |h | Jump_Zero 0x372 0370 e017 | | Load 0x0,0x17 0371 7801 |x | Jump 0x373 0372 00da | | Load_Top At_Offset_2 0373 00da | | Load_Top At_Offset_2 0374 0120 | | Execute Any,Is_Value 0375 6802 |h | Jump_Zero 0x378 0376 e019 | | Load 0x0,0x19 0377 7801 |x | Jump 0x379 0378 00da | | Load_Top At_Offset_2 0379 00ec | | Load_Encached Diana_Tree_Cache 037a 00ec | | Load_Encached Diana_Tree_Cache 037b 00e2 | | Load_Encached Integer_Cache 037c e5fe | | Load 0x2,-0x2 037d 8032 | 2 | Call 0x0,0x32 037e c402 | | Store 0x2,0x2 037f c403 | | Store 0x2,0x3 0380 c405 | | Store 0x2,0x5 0381 c408 | | Store 0x2,0x8 0382 c407 | | Store 0x2,0x7 0383 c404 | | Store 0x2,0x4 0384 4802 |H | Short_Literal 0x2 0385 e404 | | Load 0x2,0x4 0386 e007 | | Load 0x0,0x7 0387 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0388 6810 |h | Jump_Zero 0x399 0389 e5ff | | Load 0x2,-0x1 038a 0033 | 3 | Store_Top Heap_Access,At_Offset_3 038b e5fd | | Load 0x2,-0x3 038c 8010 | | Call 0x0,0x10 038d 0f07 | | Execute_Immediate Equal,0x7 038e 7002 |p | Jump_Nonzero 0x391 038f e5ff | | Load 0x2,-0x1 0390 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0391 e5fd | | Load 0x2,-0x3 0392 801d | | Call 0x0,0x1d 0393 c408 | | Store 0x2,0x8 0394 00d8 | | Load_Top At_Offset_0 0395 e5fd | | Load 0x2,-0x3 0396 e5ff | | Load 0x2,-0x1 0397 8219 | | Call 0x1,0x19 0398 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0399 00d8 | | Load_Top At_Offset_0 039a e5fd | | Load 0x2,-0x3 039b e5ff | | Load 0x2,-0x1 039c 8219 | | Call 0x1,0x19 039d 0033 | 3 | Store_Top Heap_Access,At_Offset_3 039e 00da | | Load_Top At_Offset_2 039f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 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 480a |H | Short_Literal 0xa 03a4 0092 03e4 | | Action Push_String_Extended,0x3e4 ; "Name: " 03a6 4801 |H | Short_Literal 0x1 03a7 e5fc | | Load 0x2,-0x4 03a8 e5fd | | Load 0x2,-0x3 03a9 e5fe | | Load 0x2,-0x2 03aa e012 | | Load 0x0,0x12 03ab 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 03ac 01cc | | Execute Vector,Catenate 03ad 01cb | | Execute Vector,Append 03ae 8033 | 3 | Call 0x0,0x33 03af 00da | | Load_Top At_Offset_2 03b0 8034 | 4 | Call 0x0,0x34 03b1 7009 |p | Jump_Nonzero 0x3bb 03b2 480a |H | Short_Literal 0xa 03b3 0092 03e5 | | Action Push_String_Extended,0x3e5 ; "PC = " 03b5 e5ff | | Load 0x2,-0x1 03b6 8024 | $ | Call 0x0,0x24 03b7 01cc | | Execute Vector,Catenate 03b8 01cb | | Execute Vector,Append 03b9 8033 | 3 | Call 0x0,0x33 03ba 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03bb 0092 03e6 | | Action Push_String_Extended,0x3e6 ; "PC = UNKNOWN\x0a" 03bd 8033 | 3 | Call 0x0,0x33 03be 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03bf 0000 | | .XXX[0x1] 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03c3 | | .CONST 0x03c3 ; Address of begin 03c1 0004 | | .CONST 0x0004 ; Address of exception handler 03c2 0001 | | .CONST 0x0001 ; Number of locals 03c3 BODY_03c0: 03c3 INIT_03c0: 03c3 0092 03e7 | | Action Push_String_Extended,0x3e7 ; "<Unknown: Pc = " 03c5 00db | | Load_Top At_Offset_3 03c6 8024 | $ | Call 0x0,0x24 03c7 01cc | | Execute Vector,Catenate 03c8 0092 03e8 | | Action Push_String_Extended,0x3e8 ; ">" 03ca 01cc | | Execute Vector,Catenate 03cb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03cc 0000 0000 | | .BLANK 0000[0x4] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d3 | | .CONST 0x03d3 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0001 | | .CONST 0x0001 ; Number of locals 03d3 BODY_03d0: 03d3 INIT_03d0: 03d3 00da | | Load_Top At_Offset_2 03d4 01db | | Execute Vector,Length 03d5 7003 |p | Jump_Nonzero 0x3d9 03d6 e5ff | | Load 0x2,-0x1 03d7 8406 | | Call 0x2,0x6 03d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03d9 00da | | Load_Top At_Offset_2 03da 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03db ; -------------------------------------------------------------------------------------- 03db ; STRING TABLE 03db ; -------------------------------------------------------------------------------------- 03db 001e | | .STRTAB 0x001e->0x03ea ; "Problem encountered resolving location's path name: \x0a" 03dc 0051 | Q | .STRTAB 0x0051->0x0404 ; "DEFINITION failed - " 03dd 0063 | c | .STRTAB 0x0063->0x040e ; "Exception raised during command processing: " 03de 008d | | .STRTAB 0x008d->0x0424 ; "Problem encountered calculating address: \x0a" 03df 00b5 | | .STRTAB 0x00b5->0x0439 ; "Could not find Ada location for address" 03e0 00da | | .STRTAB 0x00da->0x044d ; ": " 03e1 00db | | .STRTAB 0x00db->0x044e ; ".\x0a" 03e2 00db | | .STRTAB 0x00db->0x044f ; " Pc = " 03e3 00df | | .STRTAB 0x00df->0x0452 ; ", Frame = " 03e4 00e7 | | .STRTAB 0x00e7->0x0457 ; "Name: " 03e5 00ec | | .STRTAB 0x00ec->0x045b ; "PC = " 03e6 00ef | | .STRTAB 0x00ef->0x045d ; "PC = UNKNOWN\x0a" 03e7 00fa | | .STRTAB 0x00fa->0x0464 ; "<Unknown: Pc = " 03e8 0107 | | .STRTAB 0x0107->0x046b ; ">" 03e9 0106 | | .STREND 0x0106->0x046c 03ea 5072 6f62 |Prob| .STRTAB_STRINGS 046c 0000 0000 | | .BLANK 0000[0x4] 0470 ; -------------------------------------------------------------------------------------- 0470 ; Debug Table 0470 ; -------------------------------------------------------------------------------------- 0470 0004 000d | | .DEBUG4 0x0004,0x000d,0x2bf0,0x0000,0x0001,0x0000 0476 9972 634b | rcK| .XXX[0x18a] 0478 9ba2 fa3b | ;| 047a 2b73 2b93 |+s+ | 047c 4b19 724b |K rK| 047e 734b a000 |sK | 0480 0000 4800 | H | 0482 0000 c10a | | 0484 a37b 7b63 | {{c| 0486 9972 634b | rcK| 0488 9ba2 fa3b | ;| 048a 2b73 2b93 |+s+ | 048c 4b19 7233 |K r3| 048e 932b 2800 | +( | 0490 0000 4800 | H | 0492 0000 c90a | | 0494 a37b 7b63 | {{c| 0496 9972 634b | rcK| 0498 9ba2 fa3b | ;| 049a 2b73 2b93 |+s+ | 049c 4b19 7233 |K r3| 049e 4b93 9ba0 |K | 04a0 0000 0048 | H| 04a2 0000 00d9 | | 04a4 0aa3 7b7b | {{| 04a6 6399 7263 |c rc| 04a8 4b9b a2fa |K | 04aa 3b2b 732b |;+s+| 04ac 934b 1972 | K r| 04ae 2b63 2b6b |+c+k| 04b0 2b73 a000 |+s | 04b2 0000 4800 | H | 04b4 0000 c10a | | 04b6 a37b 7b63 | {{c| 04b8 9972 634b | rcK| 04ba 9ba2 fa3b | ;| 04bc 2b73 2b93 |+s+ | 04be 4b19 7223 |K r#| 04c0 7b73 2800 |{s( | 04c2 0000 4800 | H | 04c4 0000 990a | | 04c6 a37b 7b63 | {{c| 04c8 9972 634b | rcK| 04ca 9ba2 fa3b | ;| 04cc 2b73 2b93 |+s+ | 04ce 4b18 0000 |K | 04d0 00b8 0000 | | 04d2 0053 634b | ScK| 04d4 732a fb4b |s* K| 04d6 6b0b 3b28 |k ;(| 04d8 0000 0010 | | 04da 0000 0090 | | 04dc 0000 0182 | | 04de 1496 f2e5 | | 04e0 7696 e646 |v F| 04e2 f775 f496 | u | 04e4 f2e4 c696 | | 04e6 e655 f496 | U | 04e8 d616 7650 | vP| 04ea 0000 0100 | | 04ec 0000 0116 | | 04ee c697 3745 | 7E| 04f0 f676 56e6 | vV | 04f2 5726 9632 |W& 2| 04f4 e696 e697 | | 04f6 4000 0000 |@ | 04f8 2000 0001 | | 04fa 2000 0003 | | 04fc 042a 8ded | * | 04fe ed8e 65c9 | e | 0500 8d2e 6e8b | .n | 0502 e8ec adcc | | 0504 ae4d 2c65 | M,e| 0506 c92d cd2e | - .| 0508 8000 0004 | | 050a e000 0001 | | 050c ed8d ece5 | | 050e ce4c ae6c | L l| 0510 ae8b ecae | | 0512 4e4d ee40 |NM @| 0514 0000 0040 | @| 0516 0000 0740 | @| 0518 0000 0648 | H| 051a 50db db5b |P [| 051c 585b 991c |X[ | 051e cb93 1bd9 | | 0520 cb94 995c | \| 0522 d95d 17d1 | ] | 0524 5c9c 9bdc |\ | 0526 8000 0013 | | 0528 4000 0003 |@ | 052a 9b1b d9cb | | 052c 9c1d 5d17 | ] | 052e d95c 9c9b | \ | 0530 dc9c c000 | | 0532 0000 8000 | | 0534 0021 8000 | ! | 0536 000c 10a1 | | 0538 b7b6 b6b0 | | 053a b732 3997 | 29 | 053c 2637 b397 |&7 | 053e 283a ba2f |(: /| 0540 a2b9 3937 | 97| 0542 b939 8000 | 9 | 0544 0011 8000 | | 0546 0008 3637 | 67| 0548 b397 3932 | 92| 054a b9b2 ba2f | /| 054c b7ba ba38 | 8| 054e 3aba 0000 |: | 0550 0001 0000 | | 0552 0019 0000 | | 0554 001a 2143 | !C| 0556 6f6d 6d61 |omma| 0558 6e64 732e |nds.| 055a 4c6f 672e |Log.| 055c 5265 7365 |Rese| 055e 745f 4f75 |t_Ou| 0560 7470 7574 |tput| 0562 0000 0066 | f| 0564 0000 000d | | 0566 6c6f 672e |log.| 0568 7365 745f |set_| 056a 6572 726f |erro| 056c 7200 0000 |r | 056e 0200 0000 | | 0570 b800 0000 | | 0572 2e42 86de |.B | 0574 dada c2dc | | 0576 c8e6 5c98 | \ | 0578 dece 5ca6 | \ | 057a cae8 be8a | | 057c e4e4 dee4 | | 057e 0000 0014 | | 0580 0000 0018 | | 0582 d8e4 da5c | \| 0584 e6e8 c2dc | | 0586 c8c2 e4c8 | | 0588 0000 0004 | | 058a 0000 0024 | $| 058c 0000 0034 | 4| 058e 8531 c9b4 | 1 | 0590 b94d d185 | M | 0592 b991 85c9 | | 0594 9000 0002 | | 0596 2400 0000 |$ | 0598 19b1 bd9d | | 059a bdd5 d000 | | 059c 0000 0800 | | 059e 0003 6000 | ` | 05a0 0001 190a | | 05a2 a37b 7b63 | {{c| 05a4 9972 9bcb | r | 05a6 9ba3 2b6a | +j| 05a8 faab a34b | K| 05aa 634b a34b |cK K| 05ac 2b99 7263 |+ rc| 05ae 0b9b a2fa | | 05b0 637b 3b7b |c{;{| 05b2 aba0 0000 | | 05b4 01c0 0000 | | 05b6 0033 637b | 3c{| 05b8 3b4b 7398 |;Ks | 05ba 0000 0020 | | 05bc 0000 0410 | | 05be 0000 0292 | | 05c0 1546 f6f6 | F | 05c2 c732 e537 | 2 7| 05c4 9737 4656 | 7FV| 05c6 d5f5 5746 | WF| 05c8 96c6 9746 | F| 05ca 9657 32e4 | W2 | 05cc c6f6 75f4 | u | 05ce 6616 96c6 |f | 05d0 5645 f4c6 |VE | 05d2 f676 96e7 | v | 05d4 3000 0001 |0 | 05d6 6000 0002 |` | 05d8 8214 36f6 | 6 | 05da d6d6 16e6 | | 05dc 4732 e546 |G2 F| 05de 5726 d696 |W& | 05e0 e616 c2e5 | | 05e2 3657 45f4 |6WE | 05e4 c6f6 75f4 | u | 05e6 6616 96c6 |f | 05e8 5645 f4c6 |VE | 05ea f676 96e7 | v | 05ec 3000 0000 |0 | 05ee a000 0001 | | 05f0 26c7 26d2 |& & | 05f2 e636 16c6 | 6 | 05f4 56e6 4617 |V F | 05f6 22e6 d6f6 |" | 05f8 e746 8000 | F | 05fa 0000 2000 | | 05fc 0001 2000 | | 05fe 0002 6429 | d)|