|
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: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦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 0290 | | .CONST 0x0290 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0038 | 8 | .CONST 0x0038 ; Address of begin 0019 0114 | | .CONST 0x0114 ; Address of exception handler 001a 000b | | .CONST 0x000b ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001d e002 | | Load 0x0,0x2 001e 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 001f 0322 | " | Declare_Variable Record 0020 00d8 | | Load_Top At_Offset_0 0021 1c00 | | Execute_Immediate Run_Utility,0x0 0022 e003 | | Load 0x0,0x3 0023 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0024 e004 | | Load 0x0,0x4 0025 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0026 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0027 02c7 | | Declare_Variable Any 0028 00d8 | | Load_Top At_Offset_0 0029 1c00 | | Execute_Immediate Run_Utility,0x0 002a e004 | | Load 0x0,0x4 002b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 002c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 002d e004 | | Load 0x0,0x4 002e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002f 00e2 | | Load_Encached Integer_Cache 0030 e5ff | | Load 0x2,-0x1 0031 e004 | | Load 0x0,0x4 0032 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0033 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0034 029f 015b | [| Declare_Subprogram INIT_0158,For_Call 0036 029f 0193 | | Declare_Subprogram INIT_0190,For_Call 0038 BODY_0018: 0038 4800 |H | Short_Literal 0x0 0039 a402 | | Store_Unchecked 0x2,0x2 003a e5fe | | Load 0x2,-0x2 003b e5ff | | Load 0x2,-0x1 003c e005 | | Load 0x0,0x5 003d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 003e e002 | | Load 0x0,0x2 003f 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0040 e403 | | Load 0x2,0x3 0041 017d | } | Execute Record,Structure_Write 0042 0092 024c | L| Action Push_String_Extended,0x24c ; "<ERRORS>,<RAISE_EXCEPTION>" 0044 4801 |H | Short_Literal 0x1 0045 e409 | | Load 0x2,0x9 0046 0092 024d | M| Action Push_String_Extended,0x24d ; ".state.tool_state" 0048 01cc | | Execute Vector,Catenate 0049 e006 | | Load 0x0,0x6 004a 181f | | Execute Package,Field_Execute,Field_Number 0x1f 004b e001 | | Load 0x0,0x1 004c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004d e003 | | Load 0x0,0x3 004e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 004f 4800 |H | Short_Literal 0x0 0050 4800 |H | Short_Literal 0x0 0051 4801 |H | Short_Literal 0x1 0052 e5fe | | Load 0x2,-0x2 0053 e403 | | Load 0x2,0x3 0054 e5ff | | Load 0x2,-0x1 0055 e003 | | Load 0x0,0x3 0056 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0057 186a | j | Execute Package,Field_Execute,Field_Number 0x6a 0058 c404 | | Store 0x2,0x4 0059 c402 | | Store 0x2,0x2 005a 4800 |H | Short_Literal 0x0 005b e402 | | Load 0x2,0x2 005c e001 | | Load 0x0,0x1 005d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 005e 7014 |p | Jump_Nonzero 0x73 005f 4801 |H | Short_Literal 0x1 0060 4801 |H | Short_Literal 0x1 0061 e007 | | Load 0x0,0x7 0062 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0063 035b | [ | Declare_Type Array,Constrained 0064 0337 | 7 | Declare_Variable Array 0065 e5ff | | Load 0x2,-0x1 0066 e007 | | Load 0x0,0x7 0067 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0068 e007 | | Load 0x0,0x7 0069 1b0e | | Execute Package,Field_Read,Field_Number 0xe 006a 0119 | | Execute Any,Check_In_Formal_Type 006b 4801 |H | Short_Literal 0x1 006c 00da | | Load_Top At_Offset_2 006d 01d6 | | Execute Vector,Field_Write 006e 60e1 |` | Indirect_Literal Discrete,0x150,{0x00000000, 0x00008118} 006f e001 | | Load 0x0,0x1 0070 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0071 a5fd | | Store_Unchecked 0x2,-0x3 0072 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0073 e404 | | Load 0x2,0x4 0074 e003 | | Load 0x0,0x3 0075 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0076 1872 | r | Execute Package,Field_Execute,Field_Number 0x72 0077 a408 | | Store_Unchecked 0x2,0x8 0078 00db | | Load_Top At_Offset_3 0079 0d01 | | Execute_Immediate Less,0x1 007a 6802 |h | Jump_Zero 0x7d 007b 4801 |H | Short_Literal 0x1 007c a408 | | Store_Unchecked 0x2,0x8 007d e001 | | Load 0x0,0x1 007e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007f e5fe | | Load 0x2,-0x2 0080 e403 | | Load 0x2,0x3 0081 e408 | | Load 0x2,0x8 0082 00e0 | | Load_Encached Standard_Cache 0083 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0084 e5ff | | Load 0x2,-0x1 0085 e008 | | Load 0x0,0x8 0086 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0087 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0088 c402 | | Store 0x2,0x2 0089 4800 |H | Short_Literal 0x0 008a e402 | | Load 0x2,0x2 008b e001 | | Load 0x0,0x1 008c 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 008d 7003 |p | Jump_Nonzero 0x91 008e e402 | | Load 0x2,0x2 008f a5fd | | Store_Unchecked 0x2,-0x3 0090 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0091 e004 | | Load 0x0,0x4 0092 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0093 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0094 e405 | | Load 0x2,0x5 0095 60b6 |` | Indirect_Literal Discrete,0x14c,{0x00000000, 0x00004000} 0096 e009 | | Load 0x0,0x9 0097 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0098 e00a | | Load 0x0,0xa 0099 1811 | | Execute Package,Field_Execute,Field_Number 0x11 009a e00b | | Load 0x0,0xb 009b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 009c 4801 |H | Short_Literal 0x1 009d 4800 |H | Short_Literal 0x0 009e e00a | | Load 0x0,0xa 009f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00a0 e004 | | Load 0x0,0x4 00a1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00a2 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00a3 e409 | | Load 0x2,0x9 00a4 0092 024e | N| Action Push_String_Extended,0x24e ; "??'c(ada)" 00a6 01cc | | Execute Vector,Catenate 00a7 e004 | | Load 0x0,0x4 00a8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00a9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00aa c405 | | Store 0x2,0x5 00ab c406 | | Store 0x2,0x6 00ac e406 | | Load 0x2,0x6 00ad 6831 |h1 | Jump_Zero 0xdf 00ae e5fe | | Load 0x2,-0x2 00af 4801 |H | Short_Literal 0x1 00b0 4802 |H | Short_Literal 0x2 00b1 e007 | | Load 0x0,0x7 00b2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00b3 035b | [ | Declare_Type Array,Constrained 00b4 0337 | 7 | Declare_Variable Array 00b5 0092 024e | N| Action Push_String_Extended,0x24e ; "??'c(ada)" 00b7 e007 | | Load 0x0,0x7 00b8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00b9 e007 | | Load 0x0,0x7 00ba 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00bb 0119 | | Execute Any,Check_In_Formal_Type 00bc 4801 |H | Short_Literal 0x1 00bd 00da | | Load_Top At_Offset_2 00be 01d6 | | Execute Vector,Field_Write 00bf e5ff | | Load 0x2,-0x1 00c0 e007 | | Load 0x0,0x7 00c1 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00c2 e007 | | Load 0x0,0x7 00c3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c4 0119 | | Execute Any,Check_In_Formal_Type 00c5 4802 |H | Short_Literal 0x2 00c6 00da | | Load_Top At_Offset_2 00c7 01d6 | | Execute Vector,Field_Write 00c8 607f |` | Indirect_Literal Discrete,0x148,{0x00000000, 0x0000811c} 00c9 e001 | | Load 0x0,0x1 00ca 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 00cb 4801 |H | Short_Literal 0x1 00cc 4801 |H | Short_Literal 0x1 00cd e007 | | Load 0x0,0x7 00ce 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00cf 035b | [ | Declare_Type Array,Constrained 00d0 0337 | 7 | Declare_Variable Array 00d1 e5ff | | Load 0x2,-0x1 00d2 e007 | | Load 0x0,0x7 00d3 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00d4 e007 | | Load 0x0,0x7 00d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d6 0119 | | Execute Any,Check_In_Formal_Type 00d7 4801 |H | Short_Literal 0x1 00d8 00da | | Load_Top At_Offset_2 00d9 01d6 | | Execute Vector,Field_Write 00da 6069 |`i | Indirect_Literal Discrete,0x144,{0x00000000, 0x00008215} 00db e001 | | Load 0x0,0x1 00dc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00dd a5fd | | Store_Unchecked 0x2,-0x3 00de 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00df 00cf | | Action Mark_Auxiliary 00e0 7807 |x | Jump 0xe8 00e1 840b | | Call 0x2,0xb 00e2 e405 | | Load 0x2,0x5 00e3 e004 | | Load 0x0,0x4 00e4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00e5 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00e6 c405 | | Store 0x2,0x5 00e7 00c9 | | Action Pop_Auxiliary_Loop 00e8 e405 | | Load 0x2,0x5 00e9 e004 | | Load 0x0,0x4 00ea 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00eb 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00ec 6ff4 |o | Jump_Zero 0xe1 00ed 00ce | | Action Pop_Auxiliary 00ee e001 | | Load 0x0,0x1 00ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f0 e404 | | Load 0x2,0x4 00f1 e5fe | | Load 0x2,-0x2 00f2 e003 | | Load 0x0,0x3 00f3 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00f4 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00f5 c404 | | Store 0x2,0x4 00f6 c402 | | Store 0x2,0x2 00f7 4800 |H | Short_Literal 0x0 00f8 e402 | | Load 0x2,0x2 00f9 e001 | | Load 0x0,0x1 00fa 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 00fb 7004 |p | Jump_Nonzero 0x100 00fc e5fe | | Load 0x2,-0x2 00fd e402 | | Load 0x2,0x2 00fe e001 | | Load 0x0,0x1 00ff 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0100 4801 |H | Short_Literal 0x1 0101 4801 |H | Short_Literal 0x1 0102 e007 | | Load 0x0,0x7 0103 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0104 035b | [ | Declare_Type Array,Constrained 0105 0337 | 7 | Declare_Variable Array 0106 e5ff | | Load 0x2,-0x1 0107 e007 | | Load 0x0,0x7 0108 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0109 e007 | | Load 0x0,0x7 010a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 010b 0119 | | Execute Any,Check_In_Formal_Type 010c 4801 |H | Short_Literal 0x1 010d 00da | | Load_Top At_Offset_2 010e 01d6 | | Execute Vector,Field_Write 010f 6030 |`0 | Indirect_Literal Discrete,0x140,{0x00000000, 0x00008214} 0110 e001 | | Load 0x0,0x1 0111 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0112 a5fd | | Store_Unchecked 0x2,-0x3 0113 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0114 TRAP_0018: 0114 0007 | | Action Break_Optional 0115 4801 |H | Short_Literal 0x1 0116 4802 |H | Short_Literal 0x2 0117 e007 | | Load 0x0,0x7 0118 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0119 035b | [ | Declare_Type Array,Constrained 011a 0337 | 7 | Declare_Variable Array 011b 0092 024f | O| Action Push_String_Extended,0x24f ; "Upgrade_State_File for view " 011d e5ff | | Load 0x2,-0x1 011e e004 | | Load 0x0,0x4 011f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0120 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0121 01cc | | Execute Vector,Catenate 0122 e007 | | Load 0x0,0x7 0123 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0124 e007 | | Load 0x0,0x7 0125 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0126 0119 | | Execute Any,Check_In_Formal_Type 0127 4801 |H | Short_Literal 0x1 0128 00da | | Load_Top At_Offset_2 0129 01d6 | | Execute Vector,Field_Write 012a 4800 |H | Short_Literal 0x0 012b 4801 |H | Short_Literal 0x1 012c e00c | | Load 0x0,0xc 012d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 012e e007 | | Load 0x0,0x7 012f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0130 e007 | | Load 0x0,0x7 0131 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0132 0119 | | Execute Any,Check_In_Formal_Type 0133 4802 |H | Short_Literal 0x2 0134 00da | | Load_Top At_Offset_2 0135 01d6 | | Execute Vector,Field_Write 0136 6005 |` | Indirect_Literal Discrete,0x13c,{0x00000000, 0x0000813b} 0137 e001 | | Load 0x0,0x1 0138 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0139 a5fd | | Store_Unchecked 0x2,-0x3 013a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 013b 0000 | | .XXX[0x1] 013c 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 0140 0000 0000 | | .LITERAL {0x00000000, 0x00008214} 0144 0000 0000 | | .LITERAL {0x00000000, 0x00008215} 0148 0000 0000 | | .LITERAL {0x00000000, 0x0000811c} 014c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0150 0000 0000 | | .LITERAL {0x00000000, 0x00008118} 0154 0000 0000 | | .BLANK 0000[0x4] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0160 | ` | .CONST 0x0160 ; Address of begin 0159 0162 | b | .CONST 0x0162 ; Address of exception handler 015a 0003 | | .CONST 0x0003 ; Number of locals 015b INIT_0158: 015b e001 | | Load 0x0,0x1 015c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 015e 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call 0160 BODY_0158: 0160 8603 | | Call 0x3,0x3 0161 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0162 TRAP_0158: 0162 0007 | | Action Break_Optional 0163 4801 |H | Short_Literal 0x1 0164 4802 |H | Short_Literal 0x2 0165 e007 | | Load 0x0,0x7 0166 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0167 035b | [ | Declare_Type Array,Constrained 0168 0337 | 7 | Declare_Variable Array 0169 0092 0250 | P| Action Push_String_Extended,0x250 ; "Unhandled exception upgrading unit " 016b e7ff | | Load 0x3,-0x1 016c e004 | | Load 0x0,0x4 016d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 016e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 016f 01cc | | Execute Vector,Catenate 0170 e007 | | Load 0x0,0x7 0171 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0172 e007 | | Load 0x0,0x7 0173 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0174 0119 | | Execute Any,Check_In_Formal_Type 0175 4801 |H | Short_Literal 0x1 0176 00da | | Load_Top At_Offset_2 0177 01d6 | | Execute Vector,Field_Write 0178 4800 |H | Short_Literal 0x0 0179 4801 |H | Short_Literal 0x1 017a e00c | | Load 0x0,0xc 017b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 017c e007 | | Load 0x0,0x7 017d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 017e e007 | | Load 0x0,0x7 017f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0180 0119 | | Execute Any,Check_In_Formal_Type 0181 4802 |H | Short_Literal 0x2 0182 00da | | Load_Top At_Offset_2 0183 01d6 | | Execute Vector,Field_Write 0184 67b7 |g | Indirect_Literal Discrete,0x13c,{0x00000000, 0x0000813b} 0185 e001 | | Load 0x0,0x1 0186 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0187 a7fe | | Store_Unchecked 0x3,-0x2 0188 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0189 0000 0000 | | .BLANK 0000[0x7] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0198 | | .CONST 0x0198 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0002 | | .CONST 0x0002 ; Number of locals 0193 INIT_0190: 0193 e004 | | Load 0x0,0x4 0194 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0195 02c7 | | Declare_Variable Any 0196 00d8 | | Load_Top At_Offset_0 0197 1c00 | | Execute_Immediate Run_Utility,0x0 0198 BODY_0190: 0198 e004 | | Load 0x0,0x4 0199 1b0d | | Execute Package,Field_Read,Field_Number 0xd 019a 00d9 | | Load_Top At_Offset_1 019b 0120 | | Execute Any,Is_Value 019c 6803 |h | Jump_Zero 0x1a0 019d e004 | | Load 0x0,0x4 019e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 019f 7801 |x | Jump 0x1a1 01a0 00d9 | | Load_Top At_Offset_1 01a1 e405 | | Load 0x2,0x5 01a2 e004 | | Load 0x0,0x4 01a3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01a4 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01a5 c602 | | Store 0x3,0x2 01a6 c407 | | Store 0x2,0x7 01a7 e407 | | Load 0x2,0x7 01a8 682e |h. | Jump_Zero 0x1d7 01a9 e00d | | Load 0x0,0xd 01aa 180e | | Execute Package,Field_Execute,Field_Number 0xe 01ab 4801 |H | Short_Literal 0x1 01ac 4803 |H | Short_Literal 0x3 01ad e007 | | Load 0x0,0x7 01ae 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01af 035b | [ | Declare_Type Array,Constrained 01b0 0337 | 7 | Declare_Variable Array 01b1 0092 0251 | Q| Action Push_String_Extended,0x251 ; "??" 01b3 e405 | | Load 0x2,0x5 01b4 e004 | | Load 0x0,0x4 01b5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01b6 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 01b7 e007 | | Load 0x0,0x7 01b8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01b9 e007 | | Load 0x0,0x7 01ba 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01bb 0119 | | Execute Any,Check_In_Formal_Type 01bc 4801 |H | Short_Literal 0x1 01bd 00da | | Load_Top At_Offset_2 01be 01d6 | | Execute Vector,Field_Write 01bf e5ff | | Load 0x2,-0x1 01c0 e007 | | Load 0x0,0x7 01c1 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01c2 e007 | | Load 0x0,0x7 01c3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01c4 0119 | | Execute Any,Check_In_Formal_Type 01c5 4802 |H | Short_Literal 0x2 01c6 00da | | Load_Top At_Offset_2 01c7 01d6 | | Execute Vector,Field_Write 01c8 e407 | | Load 0x2,0x7 01c9 e007 | | Load 0x0,0x7 01ca 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01cb e007 | | Load 0x0,0x7 01cc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01cd 0119 | | Execute Any,Check_In_Formal_Type 01ce 4803 |H | Short_Literal 0x3 01cf 00da | | Load_Top At_Offset_2 01d0 01d6 | | Execute Vector,Field_Write 01d1 600e |` | Indirect_Literal Discrete,0x1e0,{0x00000000, 0x00008155} 01d2 e001 | | Load 0x0,0x1 01d3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01d4 e001 | | Load 0x0,0x1 01d5 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01d7 e001 | | Load 0x0,0x1 01d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d9 00d9 | | Load_Top At_Offset_1 01da 840a | | Call 0x2,0xa 01db c402 | | Store 0x2,0x2 01dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01dd 0000 0000 | | .XXX[0x3] 01df 0000 | | 01e0 0000 0000 | | .LITERAL {0x00000000, 0x00008155} 01e4 0000 0000 | | .BLANK 0000[0x4] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 0203 | | .CONST 0x0203 ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0004 | | .CONST 0x0004 ; Number of locals 01eb INIT_01e8: 01eb e5fe | | Load 0x2,-0x2 01ec e403 | | Load 0x2,0x3 01ed e7ff | | Load 0x3,-0x1 01ee e404 | | Load 0x2,0x4 01ef e003 | | Load 0x0,0x3 01f0 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01f1 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 01f2 e00e | | Load 0x0,0xe 01f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01f4 02c7 | | Declare_Variable Any 01f5 e5fe | | Load 0x2,-0x2 01f6 e403 | | Load 0x2,0x3 01f7 e7ff | | Load 0x3,-0x1 01f8 e404 | | Load 0x2,0x4 01f9 e003 | | Load 0x0,0x3 01fa 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01fb 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 01fc a803 | | Store_Unchecked 0x4,0x3 01fd e5fe | | Load 0x2,-0x2 01fe e7ff | | Load 0x3,-0x1 01ff e404 | | Load 0x2,0x4 0200 e003 | | Load 0x0,0x3 0201 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0202 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0203 BODY_01e8: 0203 e001 | | Load 0x0,0x1 0204 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0205 e5fe | | Load 0x2,-0x2 0206 e403 | | Load 0x2,0x3 0207 e802 | | Load 0x4,0x2 0208 e7ff | | Load 0x3,-0x1 0209 e008 | | Load 0x0,0x8 020a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 020b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 020c c602 | | Store 0x3,0x2 020d 4800 |H | Short_Literal 0x0 020e e602 | | Load 0x3,0x2 020f e001 | | Load 0x0,0x1 0210 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0211 7005 |p | Jump_Nonzero 0x217 0212 e00d | | Load 0x0,0xd 0213 180e | | Execute Package,Field_Execute,Field_Number 0xe 0214 e602 | | Load 0x3,0x2 0215 e001 | | Load 0x0,0x1 0216 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0217 00d8 | | Load_Top At_Offset_0 0218 01db | | Execute Vector,Length 0219 0c01 | | Execute_Immediate Greater_Equal,0x1 021a 6813 |h | Jump_Zero 0x22e 021b e001 | | Load 0x0,0x1 021c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 021d 00d9 | | Load_Top At_Offset_1 021e e5fe | | Load 0x2,-0x2 021f e7ff | | Load 0x3,-0x1 0220 e008 | | Load 0x0,0x8 0221 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0222 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0223 c602 | | Store 0x3,0x2 0224 4800 |H | Short_Literal 0x0 0225 e602 | | Load 0x3,0x2 0226 e001 | | Load 0x0,0x1 0227 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0228 7005 |p | Jump_Nonzero 0x22e 0229 e00d | | Load 0x0,0xd 022a 180e | | Execute Package,Field_Execute,Field_Number 0xe 022b e602 | | Load 0x3,0x2 022c e001 | | Load 0x0,0x1 022d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 022e 00d9 | | Load_Top At_Offset_1 022f e003 | | Load 0x0,0x3 0230 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0231 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0232 012e | . | Execute Any,Not_Equal 0233 6815 |h | Jump_Zero 0x249 0234 e001 | | Load 0x0,0x1 0235 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0236 e5fe | | Load 0x2,-0x2 0237 e403 | | Load 0x2,0x3 0238 e803 | | Load 0x4,0x3 0239 00d8 | | Load_Top At_Offset_0 023a e7ff | | Load 0x3,-0x1 023b e008 | | Load 0x0,0x8 023c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 023d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 023e c602 | | Store 0x3,0x2 023f 4800 |H | Short_Literal 0x0 0240 e602 | | Load 0x3,0x2 0241 e001 | | Load 0x0,0x1 0242 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0243 7005 |p | Jump_Nonzero 0x249 0244 e00d | | Load 0x0,0xd 0245 180e | | Execute Package,Field_Execute,Field_Number 0xe 0246 e602 | | Load 0x3,0x2 0247 e001 | | Load 0x0,0x1 0248 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0249 4800 |H | Short_Literal 0x0 024a a7fe | | Store_Unchecked 0x3,-0x2 024b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 024c ; -------------------------------------------------------------------------------------- 024c ; STRING TABLE 024c ; -------------------------------------------------------------------------------------- 024c 000e | | .STRTAB 0x000e->0x0253 ; "<ERRORS>,<RAISE_EXCEPTION>" 024d 0026 | & | .STRTAB 0x0026->0x0260 ; ".state.tool_state" 024e 0035 | 5 | .STRTAB 0x0035->0x0268 ; "??'c(ada)" 024f 003c | < | .STRTAB 0x003c->0x026d ; "Upgrade_State_File for view " 0250 0056 | V | .STRTAB 0x0056->0x027b ; "Unhandled exception upgrading unit " 0251 0077 | w | .STRTAB 0x0077->0x028c ; "??" 0252 0077 | w | .STREND 0x0077->0x028d 0253 3c45 5252 |<ERR| .STRTAB_STRINGS 028e 0000 0000 | | .XXX[0x2] 0290 ; -------------------------------------------------------------------------------------- 0290 ; Debug Table 0290 ; -------------------------------------------------------------------------------------- 0290 0004 000f | | .DEBUG4 0x0004,0x000f,0x2bbc,0x0000,0x0001,0x0000 0296 0000 0000 | | .XXX[0x12] 0298 7044 cb57 |pD W| 029a c5e5 c622 | "| 029c fd3c fd3d | < =| 029e 3970 fadc |9p | 02a0 f970 c622 | p "| 02a2 d093 d094 | | 02a4 234c 2350 |#L#P| 02a6 234e c9e2 |#N | 02a8 0202 0202 | | .BLANK 0202[0x46] 02ee 0200 0000 | | .XXX[0xe] 02f0 0012 f074 | t| 02f2 f274 e8c2 | t | 02f4 d2d8 d8ca | | 02f6 74e0 e4de |t | 02f8 ccde dcc8 | | 02fa caea e474 | t| 02fc 4040 4040 |@@@@| .BLANK 4040[0x4] 0300 0000 0000 | | .BLANK 0000[0x7] 0307 0001 | | .XXX[0x1] 0308 4040 4040 |@@@@| .BLANK 4040[0x4d] 0355 0000 0002 | | .XXX[0x36] 0357 0000 002c | ,| 0359 f074 f274 | t t| 035b e8c2 d2d8 | | 035d d8ca 74e0 | t | 035f e4de ccde | | 0361 dcc8 caea | | 0363 e474 0000 | t | 0365 0002 0000 | | 0367 002c f074 | , t| 0369 f274 e8c2 | t | 036b d2d8 d8ca | | 036d 74e0 e4de |t | 036f ccde dcc8 | | 0371 caea e474 | t| 0373 0000 0002 | | 0375 0000 002c | ,| 0377 f074 f274 | t t| 0379 e8c2 d2d8 | | 037b d8ca 74e0 | t | 037d e4de ccde | | 037f dcc8 caea | | 0381 e474 0000 | t | 0383 0002 4000 | @ | 0385 0000 4800 | H | 0387 0000 0900 | | 0389 0001 4381 | C | 038b 0101 0101 | | .BLANK 0101[0x11] 039c 0100 0000 | | .XXX[0x7] 039e 012e 6d2c | .m,| 03a0 cc2e af07 | . | 03a2 4404 |D | 03a3 0404 0404 | | .BLANK 0404[0x2e] 03d1 0400 0000 | | .XXX[0x17] 03d3 0040 0002 | @ | 03d5 7dc4 00e0 |} | 03d7 1d3d 1919 | = | 03d9 4d15 514c |M QL| 03db 00a0 1119 | | 03dd 2531 1400 |%1 | 03df d839 0531 | 9 1| 03e1 317d 1561 |1} a| 03e3 5115 394d |Q 9M| 03e5 253d 394c |%=9L| 03e7 01b0 | | 03e8 0000 0000 | | .BLANK 0000[0x4] 03ec 00d0 68b3 | h | .XXX[0x14] 03ee 0000 0000 | | 03f0 0001 0404 | | 03f2 0000 0700 | | 03f4 0000 0000 | | 03f6 0000 0024 | $| 03f8 ff40 0038 | @ 8| 03fa 0800 0001 | | 03fc 0000 0000 | | 03fe 0000 0008 | |