|
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_11cacfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0308 | | .CONST 0x0308 ; 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 0074 | t | .CONST 0x0074 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0033 | 3 | .CONST 0x0033 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 0129 | ) | Execute Any,Make_Visible 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a e002 | | Load 0x0,0x2 001b 0129 | ) | Execute Any,Make_Visible 001c c216 | | Store 0x1,0x16 001d e003 | | Load 0x0,0x3 001e 0129 | ) | Execute Any,Make_Visible 001f c219 | | Store 0x1,0x19 0020 e004 | | Load 0x0,0x4 0021 0129 | ) | Execute Any,Make_Visible 0022 c20e | | Store 0x1,0xe 0023 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 0025 c217 | | Store 0x1,0x17 0026 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0028 c218 | | Store 0x1,0x18 0029 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 002b c21a | | Store 0x1,0x1a 002c 00bf | | Action Accept_Activation 002d e005 | | Load 0x0,0x5 002e 1923 | # | Execute Package,Field_Reference,Field_Number 0x23 002f 00c6 | | Action Check_Subprogram_Elaborated 0030 e006 | | Load 0x0,0x6 0031 1915 | | Execute Package,Field_Reference,Field_Number 0x15 0032 e006 | | Load 0x0,0x6 0033 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0034 e006 | | Load 0x0,0x6 0035 1916 | | Execute Package,Field_Reference,Field_Number 0x16 0036 e006 | | Load 0x0,0x6 0037 1917 | | Execute Package,Field_Reference,Field_Number 0x17 0038 e007 | | Load 0x0,0x7 0039 e008 | | Load 0x0,0x8 003a 4800 |H | Short_Literal 0x0 003b 0007 | | Action Break_Optional 003c e005 | | Load 0x0,0x5 003d 1923 | # | Execute Package,Field_Reference,Field_Number 0x23 003e 00c6 | | Action Check_Subprogram_Elaborated 003f e009 | | Load 0x0,0x9 0040 1917 | | Execute Package,Field_Reference,Field_Number 0x17 0041 e009 | | Load 0x0,0x9 0042 1915 | | Execute Package,Field_Reference,Field_Number 0x15 0043 e005 | | Load 0x0,0x5 0044 191b | | Execute Package,Field_Reference,Field_Number 0x1b 0045 e005 | | Load 0x0,0x5 0046 191c | | Execute Package,Field_Reference,Field_Number 0x1c 0047 e00a | | Load 0x0,0xa 0048 e00b | | Load 0x0,0xb 0049 4800 |H | Short_Literal 0x0 004a 0007 | | Action Break_Optional 004b e005 | | Load 0x0,0x5 004c 1923 | # | Execute Package,Field_Reference,Field_Number 0x23 004d 00c6 | | Action Check_Subprogram_Elaborated 004e e00c | | Load 0x0,0xc 004f 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0050 e00c | | Load 0x0,0xc 0051 1912 | | Execute Package,Field_Reference,Field_Number 0x12 0052 e005 | | Load 0x0,0x5 0053 191b | | Execute Package,Field_Reference,Field_Number 0x1b 0054 e005 | | Load 0x0,0x5 0055 191c | | Execute Package,Field_Reference,Field_Number 0x1c 0056 e00d | | Load 0x0,0xd 0057 e00e | | Load 0x0,0xe 0058 4800 |H | Short_Literal 0x0 0059 0007 | | Action Break_Optional 005a 4800 |H | Short_Literal 0x0 005b 0093 01f3 | | push_full_address INIT_01f0 005d 02a0 | | Declare_Subprogram Null_Subprogram 005e 038e | | Declare_Type Package,Defined 005f 0387 | | Declare_Variable Package 0060 e00f | | Load 0x0,0xf 0061 e005 | | Load 0x0,0x5 0062 e010 | | Load 0x0,0x10 0063 4803 |H | Short_Literal 0x3 0064 e230 | 0 | Load 0x1,0x30 0065 020e | | Execute Module,Augment_Imports 0066 00d8 | | Load_Top At_Offset_0 0067 020f | | Execute Module,Activate 0068 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0069 00c7 | | Action Elaborate_Subprogram 006a 1d18 | | Execute_Immediate Reference_Lex_1,0x18 006b 00c7 | | Action Elaborate_Subprogram 006c 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call 006e 029d 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call 0070 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call 0072 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0073 00c7 | | Action Elaborate_Subprogram 0074 BODY_0008: 0074 00bc | | Action Signal_Activated 0075 00bb | | Action Signal_Completion 0076 0000 0000 | | .XXX[0x2] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 0086 | | .CONST 0x0086 ; Address of begin 0079 00b2 | | .CONST 0x00b2 ; Address of exception handler 007a 0002 | | .CONST 0x0002 ; Number of locals 007b INIT_0078: 007b e011 | | Load 0x0,0x11 007c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 007d 02c7 | | Declare_Variable Any 007e 4801 |H | Short_Literal 0x1 007f e012 | | Load 0x0,0x12 0080 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0081 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0082 e5ff | | Load 0x2,-0x1 0083 e011 | | Load 0x0,0x11 0084 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0085 a402 | | Store_Unchecked 0x2,0x2 0086 BODY_0078: 0086 e012 | | Load 0x0,0x12 0087 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0088 180e | | Execute Package,Field_Execute,Field_Number 0xe 0089 e5ff | | Load 0x2,-0x1 008a e005 | | Load 0x0,0x5 008b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 008c 0092 029d | | Action Push_String_Extended,0x29d ; "objects" 008e 0092 029e | | Action Push_String_Extended,0x29e ; "subsystem \x22import\x22 and Ada \x22with\x22" 0090 e5ff | | Load 0x2,-0x1 0091 e230 | 0 | Load 0x1,0x30 0092 180f | | Execute Package,Field_Execute,Field_Number 0xf 0093 00d8 | | Load_Top At_Offset_0 0094 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0095 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0096 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0097 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0098 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0099 e005 | | Load 0x0,0x5 009a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 009b 0092 029f | | Action Push_String_Extended,0x29f ; "Ada \x22with\x22" 009d 0092 02a0 | | Action Push_String_Extended,0x2a0 ; "Ada units" 009f e230 | 0 | Load 0x1,0x30 00a0 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00a1 00d8 | | Load_Top At_Offset_0 00a2 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00a3 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00a4 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00a5 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00a6 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00a7 e005 | | Load 0x0,0x5 00a8 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00a9 0092 02a1 | | Action Push_String_Extended,0x2a1 ; "subsystem \x22import\x22" 00ab 0092 02a2 | | Action Push_String_Extended,0x2a2 ; "subsystems" 00ad e230 | 0 | Load 0x1,0x30 00ae 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00af e005 | | Load 0x0,0x5 00b0 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b2 TRAP_0078: 00b2 e005 | | Load 0x0,0x5 00b3 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00b4 010f | | Execute Exception,Equal 00b5 6802 |h | Jump_Zero 0xb8 00b6 e20d | | Load 0x1,0xd 00b7 0257 | W | Execute Discrete,Raise 00b8 0100 | | Execute Exception,Raise 00b9 0000 0000 | | .BLANK 0000[0x7] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00d1 | | .CONST 0x00d1 ; Address of begin 00c1 010c | | .CONST 0x010c ; Address of exception handler 00c2 0003 | | .CONST 0x0003 ; Number of locals 00c3 INIT_00c0: 00c3 e012 | | Load 0x0,0x12 00c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c6 02c7 | | Declare_Variable Any 00c7 4801 |H | Short_Literal 0x1 00c8 e012 | | Load 0x0,0x12 00c9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ca 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00cb e5ff | | Load 0x2,-0x1 00cc e011 | | Load 0x0,0x11 00cd 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00ce a402 | | Store_Unchecked 0x2,0x2 00cf 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call 00d1 BODY_00c0: 00d1 00d9 | | Load_Top At_Offset_1 00d2 e009 | | Load 0x0,0x9 00d3 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00d4 6802 |h | Jump_Zero 0xd7 00d5 8403 | | Call 0x2,0x3 00d6 7832 |x2 | Jump 0x109 00d7 00d9 | | Load_Top At_Offset_1 00d8 e013 | | Load 0x0,0x13 00d9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00da 682c |h, | Jump_Zero 0x107 00db 00d9 | | Load_Top At_Offset_1 00dc 00ea | | Load_Encached Null_String_Cache 00dd e005 | | Load 0x0,0x5 00de 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00df 0092 02a3 | | Action Push_String_Extended,0x2a3 ; "defining object" 00e1 0092 029e | | Action Push_String_Extended,0x29e ; "subsystem \x22import\x22 and Ada \x22with\x22" 00e3 e5ff | | Load 0x2,-0x1 00e4 e230 | 0 | Load 0x1,0x30 00e5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00e6 00d9 | | Load_Top At_Offset_1 00e7 e013 | | Load 0x0,0x13 00e8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00e9 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00ea 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00eb 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00ec 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00ed 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00ee e005 | | Load 0x0,0x5 00ef 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00f0 0092 029f | | Action Push_String_Extended,0x29f ; "Ada \x22with\x22" 00f2 0092 02a0 | | Action Push_String_Extended,0x2a0 ; "Ada units" 00f4 e230 | 0 | Load 0x1,0x30 00f5 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00f6 00d9 | | Load_Top At_Offset_1 00f7 e013 | | Load 0x0,0x13 00f8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00f9 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00fa 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00fb 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00fc 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00fd 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00fe e005 | | Load 0x0,0x5 00ff 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0100 0092 02a1 | | Action Push_String_Extended,0x2a1 ; "subsystem \x22import\x22" 0102 0092 02a2 | | Action Push_String_Extended,0x2a2 ; "subsystems" 0104 e230 | 0 | Load 0x1,0x30 0105 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0106 7802 |x | Jump 0x109 0107 e216 | | Load 0x1,0x16 0108 0257 | W | Execute Discrete,Raise 0109 e005 | | Load 0x0,0x5 010a 1820 | | Execute Package,Field_Execute,Field_Number 0x20 010b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010c TRAP_00c0: 010c e005 | | Load 0x0,0x5 010d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 010e 010f | | Execute Exception,Equal 010f 6802 |h | Jump_Zero 0x112 0110 e20d | | Load 0x1,0xd 0111 0257 | W | Execute Discrete,Raise 0112 0100 | | Execute Exception,Raise 0113 0000 0000 | | .BLANK 0000[0x5] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 012b | + | .CONST 0x012b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0003 | | .CONST 0x0003 ; Number of locals 011b INIT_0118: 011b e011 | | Load 0x0,0x11 011c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011d 02c7 | | Declare_Variable Any 011e 4801 |H | Short_Literal 0x1 011f e012 | | Load 0x0,0x12 0120 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0121 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0122 e5ff | | Load 0x2,-0x1 0123 e011 | | Load 0x0,0x11 0124 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0125 a402 | | Store_Unchecked 0x2,0x2 0126 e011 | | Load 0x0,0x11 0127 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0128 02c7 | | Declare_Variable Any 0129 00d8 | | Load_Top At_Offset_0 012a 1c00 | | Execute_Immediate Run_Utility,0x0 012b BODY_0118: 012b 00d9 | | Load_Top At_Offset_1 012c e012 | | Load 0x0,0x12 012d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 012e 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 012f 6819 |h | Jump_Zero 0x149 0130 4800 |H | Short_Literal 0x0 0131 00da | | Load_Top At_Offset_2 0132 e009 | | Load 0x0,0x9 0133 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0134 c403 | | Store 0x2,0x3 0135 00d9 | | Load_Top At_Offset_1 0136 00d9 | | Load_Top At_Offset_1 0137 e012 | | Load 0x0,0x12 0138 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0139 1815 | | Execute Package,Field_Execute,Field_Number 0x15 013a 00d9 | | Load_Top At_Offset_1 013b e012 | | Load 0x0,0x12 013c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013d 180f | | Execute Package,Field_Execute,Field_Number 0xf 013e 0278 | x | Execute Discrete,Or 013f 6802 |h | Jump_Zero 0x142 0140 e20d | | Load 0x1,0xd 0141 0257 | W | Execute Discrete,Raise 0142 4800 |H | Short_Literal 0x0 0143 00ea | | Load_Encached Null_String_Cache 0144 6007 |` | Indirect_Literal Discrete,0x14c,{0x00000000, 0x7fffffff} 0145 00db | | Load_Top At_Offset_3 0146 e011 | | Load 0x0,0x11 0147 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0148 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0149 e20d | | Load 0x1,0xd 014a 0257 | W | Execute Discrete,Raise 014b 0000 | | .XXX[0x1] 014c 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 016a | j | .CONST 0x016a ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 e012 | | Load 0x0,0x12 0154 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0155 180e | | Execute Package,Field_Execute,Field_Number 0xe 0156 00db | | Load_Top At_Offset_3 0157 e005 | | Load 0x0,0x5 0158 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0159 4801 |H | Short_Literal 0x1 015a e012 | | Load 0x0,0x12 015b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 015c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 015d e5ff | | Load 0x2,-0x1 015e e011 | | Load 0x0,0x11 015f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0160 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0161 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0162 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0163 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0164 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0165 e005 | | Load 0x0,0x5 0166 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0167 e005 | | Load 0x0,0x5 0168 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0169 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016a TRAP_0150: 016a e005 | | Load 0x0,0x5 016b 1b10 | | Execute Package,Field_Read,Field_Number 0x10 016c 010f | | Execute Exception,Equal 016d 6802 |h | Jump_Zero 0x170 016e e20d | | Load 0x1,0xd 016f 0257 | W | Execute Discrete,Raise 0170 0100 | | Execute Exception,Raise 0171 0000 0000 | | .BLANK 0000[0x7] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0192 | | .CONST 0x0192 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b e012 | | Load 0x0,0x12 017c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 017d 180e | | Execute Package,Field_Execute,Field_Number 0xe 017e 00db | | Load_Top At_Offset_3 017f e005 | | Load 0x0,0x5 0180 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0181 4801 |H | Short_Literal 0x1 0182 e012 | | Load 0x0,0x12 0183 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0184 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0185 e5ff | | Load 0x2,-0x1 0186 e011 | | Load 0x0,0x11 0187 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0188 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0189 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 018a 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 018b 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 018c 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 018d e005 | | Load 0x0,0x5 018e 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 018f e005 | | Load 0x0,0x5 0190 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0191 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0192 TRAP_0178: 0192 e005 | | Load 0x0,0x5 0193 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0194 010f | | Execute Exception,Equal 0195 6802 |h | Jump_Zero 0x198 0196 e20d | | Load 0x1,0xd 0197 0257 | W | Execute Discrete,Raise 0198 0100 | | Execute Exception,Raise 0199 0000 0000 | | .BLANK 0000[0x7] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 01a5 | | .CONST 0x01a5 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 e20e | | Load 0x1,0xe 01a4 0257 | W | Execute Discrete,Raise 01a5 TRAP_01a0: 01a5 e005 | | Load 0x0,0x5 01a6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01a7 010f | | Execute Exception,Equal 01a8 6802 |h | Jump_Zero 0x1ab 01a9 e20d | | Load 0x1,0xd 01aa 0257 | W | Execute Discrete,Raise 01ab 0100 | | Execute Exception,Raise 01ac 0000 0000 | | .BLANK 0000[0x4] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01bc | | .CONST 0x01bc ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0002 | | .CONST 0x0002 ; Number of locals 01b3 INIT_01b0: 01b3 e012 | | Load 0x0,0x12 01b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b6 02c7 | | Declare_Variable Any 01b7 4800 |H | Short_Literal 0x0 01b8 e402 | | Load 0x2,0x2 01b9 e009 | | Load 0x0,0x9 01ba 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01bb a602 | | Store_Unchecked 0x3,0x2 01bc BODY_01b0: 01bc 00d8 | | Load_Top At_Offset_0 01bd e012 | | Load 0x0,0x12 01be 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01bf 180f | | Execute Package,Field_Execute,Field_Number 0xf 01c0 6807 |h | Jump_Zero 0x1c8 01c1 4801 |H | Short_Literal 0x1 01c2 e402 | | Load 0x2,0x2 01c3 e009 | | Load 0x0,0x9 01c4 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01c5 c602 | | Store 0x3,0x2 01c6 e20d | | Load 0x1,0xd 01c7 0257 | W | Execute Discrete,Raise 01c8 00d8 | | Load_Top At_Offset_0 01c9 00ea | | Load_Encached Null_String_Cache 01ca e005 | | Load 0x0,0x5 01cb 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 01cc 0092 02a3 | | Action Push_String_Extended,0x2a3 ; "defining object" 01ce 0092 029f | | Action Push_String_Extended,0x29f ; "Ada \x22with\x22" 01d0 4800 |H | Short_Literal 0x0 01d1 00ea | | Load_Encached Null_String_Cache 01d2 6019 |` | Indirect_Literal Discrete,0x1ec,{0x00000000, 0x7fffffff} 01d3 e602 | | Load 0x3,0x2 01d4 e011 | | Load 0x0,0x11 01d5 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01d6 e230 | 0 | Load 0x1,0x30 01d7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01d8 e402 | | Load 0x2,0x2 01d9 e009 | | Load 0x0,0x9 01da 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01db 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 01dc 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 01dd 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 01de 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 01df 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 01e0 e005 | | Load 0x0,0x5 01e1 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01e2 0092 02a4 | | Action Push_String_Extended,0x2a4 ; "\x22with\x22" 01e4 0092 02a0 | | Action Push_String_Extended,0x2a0 ; "Ada units" 01e6 e230 | 0 | Load 0x1,0x30 01e7 180e | | Execute Package,Field_Execute,Field_Number 0xe 01e8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01e9 0000 0000 | | .XXX[0x3] 01eb 0000 | | 01ec 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 020a | | .CONST 0x020a ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0015 | | .CONST 0x0015 ; Number of locals 01f3 INIT_01f0: 01f3 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 01f5 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 01f7 1d0d | | Execute_Immediate Reference_Lex_1,0xd 01f8 0129 | ) | Execute Any,Make_Visible 01f9 1d0d | | Execute_Immediate Reference_Lex_1,0xd 01fa 0129 | ) | Execute Any,Make_Visible 01fb 1d0d | | Execute_Immediate Reference_Lex_1,0xd 01fc 0129 | ) | Execute Any,Make_Visible 01fd 1d0e | | Execute_Immediate Reference_Lex_1,0xe 01fe 0129 | ) | Execute Any,Make_Visible 01ff 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0200 0129 | ) | Execute Any,Make_Visible 0201 00bf | | Action Accept_Activation 0202 00e3 | | Load_Encached Natural_Cache 0203 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0204 00e3 | | Load_Encached Natural_Cache 0205 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0206 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0207 00c7 | | Action Elaborate_Subprogram 0208 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0209 00c7 | | Action Elaborate_Subprogram 020a BODY_01f0: 020a 00bc | | Action Signal_Activated 020b 00bb | | Action Signal_Completion 020c 0000 0000 | | .BLANK 0000[0x4] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 0092 02a5 | | Action Push_String_Extended,0x2a5 ; "Generating " 0215 e5fe | | Load 0x2,-0x2 0216 01cc | | Execute Vector,Catenate 0217 0092 02a6 | | Action Push_String_Extended,0x2a6 ; " dependencies for " 0219 01cc | | Execute Vector,Catenate 021a e5fd | | Load 0x2,-0x3 021b 01cc | | Execute Vector,Catenate 021c 0092 02a7 | | Action Push_String_Extended,0x2a7 ; " " 021e 01cc | | Execute Vector,Catenate 021f 00db | | Load_Top At_Offset_3 0220 e001 | | Load 0x0,0x1 0221 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0222 01cc | | Execute Vector,Catenate 0223 e001 | | Load 0x0,0x1 0224 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0225 4800 |H | Short_Literal 0x0 0226 a214 | | Store_Unchecked 0x1,0x14 0227 4800 |H | Short_Literal 0x0 0228 a215 | | Store_Unchecked 0x1,0x15 0229 4504 |E | Exit_Suprogram New_Top_Offset 0x4 022a 0000 0000 | | .BLANK 0000[0x6] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0243 | C | .CONST 0x0243 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0005 | | .CONST 0x0005 ; Number of locals 0233 INIT_0230: 0233 e002 | | Load 0x0,0x2 0234 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0235 e214 | | Load 0x1,0x14 0236 0272 | r | Execute Discrete,Minus 0237 00e3 | | Load_Encached Natural_Cache 0238 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0239 e002 | | Load 0x0,0x2 023a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 023b e215 | | Load 0x1,0x15 023c 0272 | r | Execute Discrete,Minus 023d 00e3 | | Load_Encached Natural_Cache 023e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 023f 029f 027b | {| Declare_Subprogram INIT_0278,For_Call 0241 029f 028b | | Declare_Subprogram INIT_0288,For_Call 0243 BODY_0230: 0243 0092 02a8 | | Action Push_String_Extended,0x2a8 ; "Found " 0245 4820 |H | Short_Literal 0x20 0246 4800 |H | Short_Literal 0x0 0247 480a |H | Short_Literal 0xa 0248 e402 | | Load 0x2,0x2 0249 e003 | | Load 0x0,0x3 024a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 024b 01cc | | Execute Vector,Catenate 024c 0092 02a7 | | Action Push_String_Extended,0x2a7 ; " " 024e 01cc | | Execute Vector,Catenate 024f e5ff | | Load 0x2,-0x1 0250 e402 | | Load 0x2,0x2 0251 8405 | | Call 0x2,0x5 0252 01cc | | Execute Vector,Catenate 0253 0092 02a9 | | Action Push_String_Extended,0x2a9 ; " with " 0255 01cc | | Execute Vector,Catenate 0256 4820 |H | Short_Literal 0x20 0257 4800 |H | Short_Literal 0x0 0258 480a |H | Short_Literal 0xa 0259 e403 | | Load 0x2,0x3 025a e003 | | Load 0x0,0x3 025b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 025c 01cc | | Execute Vector,Catenate 025d 0092 02a7 | | Action Push_String_Extended,0x2a7 ; " " 025f 01cc | | Execute Vector,Catenate 0260 e5fe | | Load 0x2,-0x2 0261 01cc | | Execute Vector,Catenate 0262 0092 02aa | | Action Push_String_Extended,0x2aa ; " dependencies" 0264 0092 02ab | | Action Push_String_Extended,0x2ab ; " dependency" 0266 e403 | | Load 0x2,0x3 0267 8404 | | Call 0x2,0x4 0268 01cc | | Execute Vector,Catenate 0269 e001 | | Load 0x0,0x1 026a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 026b e002 | | Load 0x0,0x2 026c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 026d a214 | | Store_Unchecked 0x1,0x14 026e e002 | | Load 0x0,0x2 026f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0270 a215 | | Store_Unchecked 0x1,0x15 0271 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0272 0000 0000 | | .BLANK 0000[0x6] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b 00da | | Load_Top At_Offset_2 027c 0f01 | | Execute_Immediate Equal,0x1 027d 6802 |h | Jump_Zero 0x280 027e 00db | | Load_Top At_Offset_3 027f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0280 e7fd | | Load 0x3,-0x3 0281 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0282 0000 0000 | | .BLANK 0000[0x6] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028b | | .CONST 0x028b ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0001 | | .CONST 0x0001 ; Number of locals 028b BODY_0288: 028b INIT_0288: 028b 00da | | Load_Top At_Offset_2 028c 0f01 | | Execute_Immediate Equal,0x1 028d 680d |h | Jump_Zero 0x29b 028e 00db | | Load_Top At_Offset_3 028f 01dd | | Execute Vector,First 0290 e7fe | | Load 0x3,-0x2 0291 01dc | | Execute Vector,Last 0292 0aff | | Execute_Immediate Plus,-0x1 0293 00d8 | | Load_Top At_Offset_0 0294 00e2 | | Load_Encached Integer_Cache 0295 0260 | ` | Execute Discrete,In_Type 0296 7001 |p | Jump_Nonzero 0x298 0297 0801 | | Execute_Immediate Raise,0x1 0298 e7fe | | Load 0x3,-0x2 0299 01cf | | Execute Vector,Slice_Read 029a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 029b 00db | | Load_Top At_Offset_3 029c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 029d ; -------------------------------------------------------------------------------------- 029d ; STRING TABLE 029d ; -------------------------------------------------------------------------------------- 029d 0020 | | .STRTAB 0x0020->0x02ad ; "objects" 029e 0025 | % | .STRTAB 0x0025->0x02b0 ; "subsystem \x22import\x22 and Ada \x22with\x22" 029f 0044 | D | .STRTAB 0x0044->0x02c1 ; "Ada \x22with\x22" 02a0 004c | L | .STRTAB 0x004c->0x02c6 ; "Ada units" 02a1 0053 | S | .STRTAB 0x0053->0x02ca ; "subsystem \x22import\x22" 02a2 0063 | c | .STRTAB 0x0063->0x02d3 ; "subsystems" 02a3 006b | k | .STRTAB 0x006b->0x02d8 ; "defining object" 02a4 0078 | x | .STRTAB 0x0078->0x02e0 ; "\x22with\x22" 02a5 007c | | | .STRTAB 0x007c->0x02e3 ; "Generating " 02a6 0085 | | .STRTAB 0x0085->0x02e8 ; " dependencies for " 02a7 0095 | | .STRTAB 0x0095->0x02f1 ; " " 02a8 0094 | | .STRTAB 0x0094->0x02f2 ; "Found " 02a9 0098 | | .STRTAB 0x0098->0x02f5 ; " with " 02aa 009c | | .STRTAB 0x009c->0x02f8 ; " dependencies" 02ab 00a7 | | .STRTAB 0x00a7->0x02fe ; " dependency" 02ac 00b0 | | .STREND 0x00b0->0x0304 02ad 6f62 6a65 |obje| .STRTAB_STRINGS 0304 0000 0000 | | .BLANK 0000[0x4] 0308 ; -------------------------------------------------------------------------------------- 0308 ; Debug Table 0308 ; -------------------------------------------------------------------------------------- 0308 0004 0011 | | .DEBUG4 0x0004,0x0011,0x9533,0x0000,0x0001,0x0000 030e 0000 0000 | | .XXX[0x3] 0310 0000 | | 0311 7c08 b308 || | .XXX[0x2] 0313 0000 0000 | | .BLANK 0000[0x4] 0317 7c09 b708 || | .XXX[0x2] 0319 0000 0000 | | .BLANK 0000[0x4] 031d 7c0a bb08 || | .XXX[0x2] 031f 0000 0000 | | .BLANK 0000[0x4] 0323 7c0b c308 || | .XXX[0x2] 0325 0000 0000 | | .BLANK 0000[0x4] 0329 7c0c cb08 || | .XXX[0x2] 032b 0000 0000 | | .BLANK 0000[0x4] 032f 7c0d db08 || | .XXX[0x2] 0331 0000 0000 | | .BLANK 0000[0x4] 0335 7c0e e308 || | .XXX[0x2] 0337 0000 0000 | | .BLANK 0000[0x4] 033b 7c0f 8b08 || | .XXX[0x2] 033d 0000 0000 | | .BLANK 0000[0x4] 0341 7c10 3308 || 3 | .XXX[0x2] 0343 0000 0000 | | .BLANK 0000[0x4] 0347 7c10 e708 || | .XXX[0x2] 0349 0000 0000 | | .BLANK 0000[0x4] 034d 7c11 8f08 || | .XXX[0x2] 034f 0000 0000 | | .BLANK 0000[0x4] 0353 7c12 3308 || 3 | .XXX[0x2] 0355 0000 0000 | | .BLANK 0000[0x4] 0359 7c12 db08 || | .XXX[0x2] 035b 0000 0000 | | .BLANK 0000[0x4] 035f 7c13 8308 || | .XXX[0x2] 0361 0000 0000 | | .BLANK 0000[0x4] 0365 7c14 2f08 || / | .XXX[0x2] 0367 0000 0000 | | .BLANK 0000[0x4] 036b 7c14 d708 || | .XXX[0x2] 036d 0000 0000 | | .BLANK 0000[0x4] 0371 7c15 2b08 || + | .XXX[0x2] 0373 0000 0000 | | .BLANK 0000[0x4] 0377 7c15 9f08 || | .XXX[0x2] 0379 0000 0000 | | .BLANK 0000[0x4] 037d 7c15 ff08 || | .XXX[0x2] 037f 0000 0000 | | .BLANK 0000[0x4] 0383 7c17 1308 || | .XXX[0x2] 0385 0000 0000 | | .BLANK 0000[0x4] 0389 7c17 6708 || g | .XXX[0x2] 038b 0000 0000 | | .BLANK 0000[0x4] 038f 7c17 cb08 || | .XXX[0x2] 0391 0000 0000 | | .BLANK 0000[0x4] 0395 7c18 3f08 || ? | .XXX[0x2] 0397 0000 0000 | | .BLANK 0000[0x4] 039b 7c19 5308 || S | .XXX[0x2] 039d 0000 0000 | | .BLANK 0000[0x4] 03a1 7c19 af08 || | .XXX[0x2] 03a3 0000 0000 | | .BLANK 0000[0x4] 03a7 7c1a c308 || | .XXX[0x2] 03a9 0000 0000 | | .BLANK 0000[0x4] 03ad 7c1b cf08 || | .XXX[0x2] 03af 0000 0000 | | .BLANK 0000[0x4] 03b3 7c1c d708 || | .XXX[0x2] 03b5 0000 0000 | | .BLANK 0000[0x4] 03b9 7c1d e708 || | .XXX[0x2] 03bb 0000 0000 | | .BLANK 0000[0x4] 03bf 7c1f 0708 || | .XXX[0x2] 03c1 0000 0000 | | .BLANK 0000[0x4] 03c5 7c20 1708 || | .XXX[0x2] 03c7 0000 0000 | | .BLANK 0000[0x4] 03cb 7c21 1708 ||! | .XXX[0x2] 03cd 0000 0000 | | .BLANK 0000[0x4] 03d1 7c21 7708 ||!w | .XXX[0x2] 03d3 0000 0000 | | .BLANK 0000[0x4] 03d7 7c21 eb08 ||! | .XXX[0x2] 03d9 0000 0000 | | .BLANK 0000[0x4] 03dd 7c22 6308 ||"c | .XXX[0x2] 03df 0000 0000 | | .BLANK 0000[0x4] 03e3 7c22 cb08 ||" | .XXX[0x2] 03e5 0000 0000 | | .BLANK 0000[0x4] 03e9 7c23 3708 ||#7 | .XXX[0x2] 03eb 0000 0000 | | .BLANK 0000[0x4] 03ef 7c23 9f08 ||# | .XXX[0x2] 03f1 0000 0000 | | .BLANK 0000[0x4] 03f5 7c24 0b08 ||$ | .XXX[0x2] 03f7 0000 0000 | | .BLANK 0000[0x4] 03fb 7c24 7708 ||$w | .XXX[0x5] 03fd 0000 0000 | | 03ff 0000 | |