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