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