|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_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 04e8 | | .CONST 0x04e8 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0053 | S | .CONST 0x0053 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0021 | ! | .CONST 0x0021 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00e3 | | Load_Encached Natural_Cache
0011 0266 | f | Execute Discrete,Bounds
0012 e001 | | Load 0x0,0x1
0013 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0014 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0015 029f 005b | [| Declare_Subprogram INIT_0058,For_Call
0017 4801 |H | Short_Literal 0x1
0018 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0019 c211 | | Store 0x1,0x11
001a 00e3 | | Load_Encached Natural_Cache
001b e002 | | Load 0x0,0x2
001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001d 4801 |H | Short_Literal 0x1
001e 6051 |`Q | Indirect_Literal Discrete,0x70,{0x00000000, 0x7fffffff}
001f e211 | | Load 0x1,0x11
0020 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object
0021 029f 045b | [| Declare_Subprogram INIT_0458,For_Call
0023 4800 |H | Short_Literal 0x0
0024 4801 |H | Short_Literal 0x1
0025 4801 |H | Short_Literal 0x1
0026 4800 |H | Short_Literal 0x0
0027 4801 |H | Short_Literal 0x1
0028 4801 |H | Short_Literal 0x1
0029 031e | | Declare_Type Variant_Record,Defined,Visible
002a c20e | | Store 0x1,0xe
002b 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
002d c210 | | Store 0x1,0x10
002e 00bf | | Action Accept_Activation
002f 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call
0031 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call
0033 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call
0035 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call
0037 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call
0039 029d 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call
003b e003 | | Load 0x0,0x3
003c 190e | | Execute Package,Field_Reference,Field_Number 0xe
003d 00c6 | | Action Check_Subprogram_Elaborated
003e 1d14 | | Execute_Immediate Reference_Lex_1,0x14
003f e003 | | Load 0x0,0x3
0040 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0041 1913 | | Execute Package,Field_Reference,Field_Number 0x13
0042 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0043 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0044 e003 | | Load 0x0,0x3
0045 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0046 1914 | | Execute Package,Field_Reference,Field_Number 0x14
0047 e003 | | Load 0x0,0x3
0048 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0049 1911 | | Execute Package,Field_Reference,Field_Number 0x11
004a e003 | | Load 0x0,0x3
004b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004c 1912 | | Execute Package,Field_Reference,Field_Number 0x12
004d e004 | | Load 0x0,0x4
004e e005 | | Load 0x0,0x5
004f 4800 |H | Short_Literal 0x0
0050 0007 | | Action Break_Optional
0051 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0052 00c7 | | Action Elaborate_Subprogram
0053 BODY_0008:
0053 00bc | | Action Signal_Activated
0054 00bb | | Action Signal_Completion
0055 0000 0000 | | .XXX[0x3]
0057 0000 | |
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 00d1 | | Pop_Control Pop_Count_1
005c 00da | | Load_Top At_Offset_2
005d 01dc | | Execute Vector,Last
005e 00db | | Load_Top At_Offset_3
005f 01dd | | Execute Vector,First
0060 0263 | c | Execute Discrete,Above_Bound
0061 700a |p | Jump_Nonzero 0x6c
0062 00d8 | | Load_Top At_Offset_0
0063 e5ff | | Load 0x2,-0x1
0064 01d5 | | Execute Vector,Field_Reference
0065 0125 | % | Execute Any,Set_Constraint
0066 00d8 | | Load_Top At_Offset_0
0067 e5ff | | Load 0x2,-0x1
0068 01d5 | | Execute Vector,Field_Reference
0069 1c00 | | Execute_Immediate Run_Utility,0x0
006a 0a01 | | Execute_Immediate Plus,0x1
006b 7ff4 | | Jump 0x60
006c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
006d 0000 0000 | | .XXX[0x3]
006f 0000 | |
0070 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0074 0000 0000 | | .BLANK 0000[0x4]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 00bc | | .CONST 0x00bc ; Address of begin
0079 0111 | | .CONST 0x0111 ; Address of exception handler
007a 0010 | | .CONST 0x0010 ; Number of locals
007b INIT_0078:
007b e006 | | Load 0x0,0x6
007c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007d 02c7 | | Declare_Variable Any
007e 00d8 | | Load_Top At_Offset_0
007f 1c00 | | Execute_Immediate Run_Utility,0x0
0080 00e1 | | Load_Encached Boolean_Cache
0081 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0082 e007 | | Load 0x0,0x7
0083 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0084 02c7 | | Declare_Variable Any
0085 e007 | | Load 0x0,0x7
0086 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0087 a404 | | Store_Unchecked 0x2,0x4
0088 e007 | | Load 0x0,0x7
0089 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008a 02c7 | | Declare_Variable Any
008b e008 | | Load 0x0,0x8
008c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
008d 00da | | Load_Top At_Offset_2
008e e007 | | Load 0x0,0x7
008f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0090 a405 | | Store_Unchecked 0x2,0x5
0091 e009 | | Load 0x0,0x9
0092 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0093 e00a | | Load 0x0,0xa
0094 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0095 e00b | | Load 0x0,0xb
0096 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0097 02c7 | | Declare_Variable Any
0098 00d8 | | Load_Top At_Offset_0
0099 1c00 | | Execute_Immediate Run_Utility,0x0
009a e002 | | Load 0x0,0x2
009b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
009d 03e9 | | Declare_Variable Discrete,Duplicate
009e 4800 |H | Short_Literal 0x0
009f e20e | | Load 0x1,0xe
00a0 1c08 | | Execute_Immediate Run_Utility,0x8
00a1 00d8 | | Load_Top At_Offset_0
00a2 1c00 | | Execute_Immediate Run_Utility,0x0
00a3 e00c | | Load 0x0,0xc
00a4 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
00a5 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00a6 02c7 | | Declare_Variable Any
00a7 4800 |H | Short_Literal 0x0
00a8 4800 |H | Short_Literal 0x0
00a9 4801 |H | Short_Literal 0x1
00aa e006 | | Load 0x0,0x6
00ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00ac e405 | | Load 0x2,0x5
00ad e406 | | Load 0x2,0x6
00ae e00c | | Load 0x0,0xc
00af 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
00b0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00b1 a40b | | Store_Unchecked 0x2,0xb
00b2 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call
00b4 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call
00b6 029f 029b | | Declare_Subprogram INIT_0298,For_Call
00b8 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call
00ba 029f 0313 | | Declare_Subprogram INIT_0310,For_Call
00bc BODY_0078:
00bc e407 | | Load 0x2,0x7
00bd 0120 | | Execute Any,Is_Value
00be 6803 |h | Jump_Zero 0xc2
00bf e00b | | Load 0x0,0xb
00c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c1 7801 |x | Jump 0xc3
00c2 e407 | | Load 0x2,0x7
00c3 00e1 | | Load_Encached Boolean_Cache
00c4 e00d | | Load 0x0,0xd
00c5 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00c6 840c | | Call 0x2,0xc
00c7 4801 |H | Short_Literal 0x1
00c8 e00e | | Load 0x0,0xe
00c9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00ca e40b | | Load 0x2,0xb
00cb e00f | | Load 0x0,0xf
00cc 180e | | Execute Package,Field_Execute,Field_Number 0xe
00cd e5ff | | Load 0x2,-0x1
00ce 8410 | | Call 0x2,0x10
00cf 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00d0 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00d1 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00d2 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00d3 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00d4 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00d5 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00d6 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00d7 e003 | | Load 0x0,0x3
00d8 180e | | Execute Package,Field_Execute,Field_Number 0xe
00d9 c403 | | Store 0x2,0x3
00da c407 | | Store 0x2,0x7
00db e40b | | Load 0x2,0xb
00dc e00c | | Load 0x0,0xc
00dd 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
00de 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00df 6811 |h | Jump_Zero 0xf1
00e0 e40b | | Load 0x2,0xb
00e1 e00c | | Load 0x0,0xc
00e2 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
00e3 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00e4 e405 | | Load 0x2,0x5
00e5 4801 |H | Short_Literal 0x1
00e6 e405 | | Load 0x2,0x5
00e7 e010 | | Load 0x0,0x10
00e8 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
00e9 0f00 | | Execute_Immediate Equal,0x0
00ea e404 | | Load 0x2,0x4
00eb e007 | | Load 0x0,0x7
00ec 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00ed c405 | | Store 0x2,0x5
00ee e407 | | Load 0x2,0x7
00ef 8217 | | Call 0x1,0x17
00f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f1 e011 | | Load 0x0,0x11
00f2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00f3 605c |`\ | Indirect_Literal Discrete,0x150,{0x00000000, 0x000081fc}
00f4 e002 | | Load 0x0,0x2
00f5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00f6 a409 | | Store_Unchecked 0x2,0x9
00f7 e40b | | Load 0x2,0xb
00f8 e00c | | Load 0x0,0xc
00f9 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
00fa 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00fb c402 | | Store 0x2,0x2
00fc e40b | | Load 0x2,0xb
00fd e00c | | Load 0x0,0xc
00fe 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
00ff 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0100 e405 | | Load 0x2,0x5
0101 4801 |H | Short_Literal 0x1
0102 e405 | | Load 0x2,0x5
0103 e010 | | Load 0x0,0x10
0104 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0105 0f00 | | Execute_Immediate Equal,0x0
0106 e404 | | Load 0x2,0x4
0107 e007 | | Load 0x0,0x7
0108 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0109 c405 | | Store 0x2,0x5
010a e402 | | Load 0x2,0x2
010b 8212 | | Call 0x1,0x12
010c e409 | | Load 0x2,0x9
010d e40a | | Load 0x2,0xa
010e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
010f e40a | | Load 0x2,0xa
0110 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0111 TRAP_0078:
0111 e012 | | Load 0x0,0x12
0112 010f | | Execute Exception,Equal
0113 6817 |h | Jump_Zero 0x12b
0114 e40b | | Load 0x2,0xb
0115 e00c | | Load 0x0,0xc
0116 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0117 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0118 e405 | | Load 0x2,0x5
0119 4801 |H | Short_Literal 0x1
011a e405 | | Load 0x2,0x5
011b e010 | | Load 0x0,0x10
011c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
011d 0f00 | | Execute_Immediate Equal,0x0
011e e404 | | Load 0x2,0x4
011f e007 | | Load 0x0,0x7
0120 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0121 c405 | | Store 0x2,0x5
0122 e011 | | Load 0x0,0x11
0123 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0124 6027 |`' | Indirect_Literal Discrete,0x14c,{0x00000000, 0x00008203}
0125 e002 | | Load 0x0,0x2
0126 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0127 e40a | | Load 0x2,0xa
0128 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0129 e40a | | Load 0x2,0xa
012a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
012b e40b | | Load 0x2,0xb
012c e00c | | Load 0x0,0xc
012d 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
012e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
012f e405 | | Load 0x2,0x5
0130 4801 |H | Short_Literal 0x1
0131 e405 | | Load 0x2,0x5
0132 e010 | | Load 0x0,0x10
0133 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0134 0f00 | | Execute_Immediate Equal,0x0
0135 e404 | | Load 0x2,0x4
0136 e007 | | Load 0x0,0x7
0137 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0138 c405 | | Store 0x2,0x5
0139 e013 | | Load 0x0,0x13
013a 180e | | Execute Package,Field_Execute,Field_Number 0xe
013b 4807 |H | Short_Literal 0x7
013c 0092 047d | }| Action Push_String_Extended,0x47d ; "Exception "
013e 4800 |H | Short_Literal 0x0
013f 4801 |H | Short_Literal 0x1
0140 e014 | | Load 0x0,0x14
0141 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0142 01cc | | Execute Vector,Catenate
0143 0092 047e | ~| Action Push_String_Extended,0x47e ; " raised in exec_closure_list"
0145 01cc | | Execute Vector,Catenate
0146 e015 | | Load 0x0,0x15
0147 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0148 e40a | | Load 0x2,0xa
0149 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
014a 0000 0000 | | .XXX[0x2]
014c 0000 0000 | | .LITERAL {0x00000000, 0x00008203}
0150 0000 0000 | | .LITERAL {0x00000000, 0x000081fc}
0154 0000 0000 | | .BLANK 0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0183 | | .CONST 0x0183 ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0004 | | .CONST 0x0004 ; Number of locals
015b INIT_0158:
015b e006 | | Load 0x0,0x6
015c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015d 02c7 | | Declare_Variable Any
015e 00db | | Load_Top At_Offset_3
015f a402 | | Store_Unchecked 0x2,0x2
0160 e006 | | Load 0x0,0x6
0161 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0162 0266 | f | Execute Discrete,Bounds
0163 e013 | | Load 0x0,0x13
0164 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0165 02a0 | | Declare_Subprogram Null_Subprogram
0166 4801 |H | Short_Literal 0x1
0167 035d | ] | Declare_Type Array,Defined
0168 00d8 | | Load_Top At_Offset_0
0169 0337 | 7 | Declare_Variable Array
016a 00d8 | | Load_Top At_Offset_0
016b 0335 | 5 | Declare_Variable Array,Duplicate
016c 00cd | | Action Spare6_Action
016d 4802 |H | Short_Literal 0x2
016e 4800 |H | Short_Literal 0x0
016f 00da | | Load_Top At_Offset_2
0170 01d6 | | Execute Vector,Field_Write
0171 4806 |H | Short_Literal 0x6
0172 4801 |H | Short_Literal 0x1
0173 00da | | Load_Top At_Offset_2
0174 01d6 | | Execute Vector,Field_Write
0175 4807 |H | Short_Literal 0x7
0176 4802 |H | Short_Literal 0x2
0177 00da | | Load_Top At_Offset_2
0178 01d6 | | Execute Vector,Field_Write
0179 4807 |H | Short_Literal 0x7
017a 4803 |H | Short_Literal 0x3
017b 00da | | Load_Top At_Offset_2
017c 01d6 | | Execute Vector,Field_Write
017d 4808 |H | Short_Literal 0x8
017e 4804 |H | Short_Literal 0x4
017f 00da | | Load_Top At_Offset_2
0180 01d6 | | Execute Vector,Field_Write
0181 00d9 | | Load_Top At_Offset_1
0182 01d4 | | Execute Vector,Structure_Write
0183 BODY_0158:
0183 00cf | | Action Mark_Auxiliary
0184 7811 |x | Jump 0x196
0185 e013 | | Load 0x0,0x13
0186 180e | | Execute Package,Field_Execute,Field_Number 0xe
0187 e402 | | Load 0x2,0x2
0188 e006 | | Load 0x0,0x6
0189 1813 | | Execute Package,Field_Execute,Field_Number 0x13
018a 00db | | Load_Top At_Offset_3
018b 01d7 | | Execute Vector,Field_Read
018c e402 | | Load 0x2,0x2
018d e006 | | Load 0x0,0x6
018e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
018f e015 | | Load 0x0,0x15
0190 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0191 00db | | Load_Top At_Offset_3
0192 e006 | | Load 0x0,0x6
0193 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0194 c402 | | Store 0x2,0x2
0195 00c9 | | Action Pop_Auxiliary_Loop
0196 00db | | Load_Top At_Offset_3
0197 e006 | | Load 0x0,0x6
0198 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0199 6feb |o | Jump_Zero 0x185
019a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
019b 0000 0000 | | .BLANK 0000[0x5]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01ab | | .CONST 0x01ab ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0003 | | .CONST 0x0003 ; Number of locals
01a3 INIT_01a0:
01a3 e00d | | Load 0x0,0xd
01a4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01a5 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01a6 02ff | | Declare_Variable Variant_Record
01a7 00d8 | | Load_Top At_Offset_0
01a8 1c00 | | Execute_Immediate Run_Utility,0x0
01a9 e00d | | Load 0x0,0xd
01aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ab BODY_01a0:
01ab e00d | | Load 0x0,0xd
01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ad 00da | | Load_Top At_Offset_2
01ae e5ff | | Load 0x2,-0x1
01af e00d | | Load 0x0,0xd
01b0 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01b1 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01b2 00d1 | | Pop_Control Pop_Count_1
01b3 0059 | Y | Store_Top Discrete,At_Offset_1
01b4 00d9 | | Load_Top At_Offset_1
01b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b6 0000 0000 | | .XXX[0x2]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 4801 |H | Short_Literal 0x1
01bc a5fe | | Store_Unchecked 0x2,-0x2
01bd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01be 0000 0000 | | .XXX[0x2]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 4800 |H | Short_Literal 0x0
01c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c5 0000 0000 | | .XXX[0x3]
01c7 0000 | |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01da | | .CONST 0x01da ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0004 | | .CONST 0x0004 ; Number of locals
01cb INIT_01c8:
01cb 00ec | | Load_Encached Diana_Tree_Cache
01cc 02c7 | | Declare_Variable Any
01cd 00db | | Load_Top At_Offset_3
01ce e00c | | Load 0x0,0xc
01cf 1b6e | n | Execute Package,Field_Read,Field_Number 0x6e
01d0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01d1 a402 | | Store_Unchecked 0x2,0x2
01d2 e00d | | Load 0x0,0xd
01d3 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01d4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01d5 02c7 | | Declare_Variable Any
01d6 00d8 | | Load_Top At_Offset_0
01d7 1c00 | | Execute_Immediate Run_Utility,0x0
01d8 e00d | | Load 0x0,0xd
01d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01da BODY_01c8:
01da e00d | | Load 0x0,0xd
01db 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01dc 00da | | Load_Top At_Offset_2
01dd 0120 | | Execute Any,Is_Value
01de 6804 |h | Jump_Zero 0x1e3
01df e00d | | Load 0x0,0xd
01e0 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01e2 7801 |x | Jump 0x1e4
01e3 00da | | Load_Top At_Offset_2
01e4 e402 | | Load 0x2,0x2
01e5 e00d | | Load 0x0,0xd
01e6 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01e7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01e8 c403 | | Store 0x2,0x3
01e9 0059 | Y | Store_Top Discrete,At_Offset_1
01ea 00d8 | | Load_Top At_Offset_0
01eb 6801 |h | Jump_Zero 0x1ed
01ec 0887 | | Execute_Immediate Raise,0x87
01ed e5ff | | Load 0x2,-0x1
01ee e00c | | Load 0x0,0xc
01ef 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
01f0 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01f1 7008 |p | Jump_Nonzero 0x1fa
01f2 00d9 | | Load_Top At_Offset_1
01f3 e00d | | Load 0x0,0xd
01f4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01f5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01f6 e016 | | Load 0x0,0x16
01f7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01f8 0f00 | | Execute_Immediate Equal,0x0
01f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01fa 4800 |H | Short_Literal 0x0
01fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01fc 0000 0000 | | .BLANK 0000[0x4]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 022a | * | .CONST 0x022a ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 000f | | .CONST 0x000f ; Number of locals
0203 INIT_0200:
0203 00da | | Load_Top At_Offset_2
0204 e00b | | Load 0x0,0xb
0205 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0206 e00b | | Load 0x0,0xb
0207 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0208 03f1 | | Declare_Variable Discrete,With_Value
0209 e00b | | Load 0x0,0xb
020a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
020b 4800 |H | Short_Literal 0x0
020c e20e | | Load 0x1,0xe
020d 1c08 | | Execute_Immediate Run_Utility,0x8
020e 00d8 | | Load_Top At_Offset_0
020f 1c00 | | Execute_Immediate Run_Utility,0x0
0210 00ed | | Load_Encached Diana_Symbol_Rep_Cache
0211 02c7 | | Declare_Variable Any
0212 00d8 | | Load_Top At_Offset_0
0213 1c00 | | Execute_Immediate Run_Utility,0x0
0214 00eb | | Load_Encached Diana_Cache
0215 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0216 00ec | | Load_Encached Diana_Tree_Cache
0217 02c7 | | Declare_Variable Any
0218 00d8 | | Load_Top At_Offset_0
0219 1c00 | | Execute_Immediate Run_Utility,0x0
021a 00e3 | | Load_Encached Natural_Cache
021b 00e1 | | Load_Encached Boolean_Cache
021c 03e9 | | Declare_Variable Discrete,Duplicate
021d e00d | | Load 0x0,0xd
021e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
021f 02ff | | Declare_Variable Variant_Record
0220 00d8 | | Load_Top At_Offset_0
0221 1c00 | | Execute_Immediate Run_Utility,0x0
0222 e00b | | Load 0x0,0xb
0223 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0224 e002 | | Load 0x0,0x2
0225 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0226 029f 03ab | | Declare_Subprogram INIT_03a8,For_Call
0228 029f 0413 | | Declare_Subprogram INIT_0410,For_Call
022a BODY_0200:
022a e402 | | Load 0x2,0x2
022b 0c01 | | Execute_Immediate Greater_Equal,0x1
022c 6801 |h | Jump_Zero 0x22e
022d 840f | | Call 0x2,0xf
022e e404 | | Load 0x2,0x4
022f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 e00d | | Load 0x0,0xd
0234 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0235 00ca | | Action Exit_Nullary_Function
0236 0000 0000 | | .XXX[0x2]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 024a | J | .CONST 0x024a ; Address of begin
0239 0278 | x | .CONST 0x0278 ; Address of exception handler
023a 0005 | | .CONST 0x0005 ; Number of locals
023b INIT_0238:
023b e00d | | Load 0x0,0xd
023c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
023d 1b18 | | Execute Package,Field_Read,Field_Number 0x18
023e 02c7 | | Declare_Variable Any
023f 00d8 | | Load_Top At_Offset_0
0240 1c00 | | Execute_Immediate Run_Utility,0x0
0241 e00d | | Load 0x0,0xd
0242 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0243 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0244 e00d | | Load 0x0,0xd
0245 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0246 00ec | | Load_Encached Diana_Tree_Cache
0247 02c7 | | Declare_Variable Any
0248 00d8 | | Load_Top At_Offset_0
0249 1c00 | | Execute_Immediate Run_Utility,0x0
024a BODY_0238:
024a e00d | | Load 0x0,0xd
024b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
024c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
024d e602 | | Load 0x3,0x2
024e 6041 |`A | Indirect_Literal Discrete,0x290,{0x00000000, 0x00004000}
024f e007 | | Load 0x0,0x7
0250 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0251 e009 | | Load 0x0,0x9
0252 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0253 e00a | | Load 0x0,0xa
0254 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0255 4801 |H | Short_Literal 0x1
0256 4800 |H | Short_Literal 0x0
0257 e009 | | Load 0x0,0x9
0258 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0259 e00d | | Load 0x0,0xd
025a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
025b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
025c e7ff | | Load 0x3,-0x1
025d e00d | | Load 0x0,0xd
025e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
025f 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0260 e00d | | Load 0x0,0xd
0261 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0262 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0263 c602 | | Store 0x3,0x2
0264 005b | [ | Store_Top Discrete,At_Offset_3
0265 e00d | | Load 0x0,0xd
0266 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0267 00d9 | | Load_Top At_Offset_1
0268 0120 | | Execute Any,Is_Value
0269 6802 |h | Jump_Zero 0x26c
026a 00ec | | Load_Encached Diana_Tree_Cache
026b 7801 |x | Jump 0x26d
026c 00d9 | | Load_Top At_Offset_1
026d 6022 |`" | Indirect_Literal Discrete,0x290,{0x00000000, 0x00004000}
026e e007 | | Load 0x0,0x7
026f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0270 e602 | | Load 0x3,0x2
0271 e00d | | Load 0x0,0xd
0272 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0273 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0274 c605 | | Store 0x3,0x5
0275 005a | Z | Store_Top Discrete,At_Offset_2
0276 00d8 | | Load_Top At_Offset_0
0277 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0278 TRAP_0238:
0278 0007 | | Action Break_Optional
0279 e013 | | Load 0x0,0x13
027a 180e | | Execute Package,Field_Execute,Field_Number 0xe
027b 4802 |H | Short_Literal 0x2
027c 0092 047d | }| Action Push_String_Extended,0x47d ; "Exception "
027e 4800 |H | Short_Literal 0x0
027f 4801 |H | Short_Literal 0x1
0280 e014 | | Load 0x0,0x14
0281 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0282 01cc | | Execute Vector,Catenate
0283 0092 047f | | Action Push_String_Extended,0x47f ; " raised in get_main_comp_unit for "
0285 01cc | | Execute Vector,Catenate
0286 e7ff | | Load 0x3,-0x1
0287 e00d | | Load 0x0,0xd
0288 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0289 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
028a 01cc | | Execute Vector,Catenate
028b e015 | | Load 0x0,0x15
028c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
028d 00ec | | Load_Encached Diana_Tree_Cache
028e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028f 0000 | | .XXX[0x1]
0290 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0294 0000 0000 | | .BLANK 0000[0x4]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02ae | | .CONST 0x02ae ; Address of begin
0299 02c9 | | .CONST 0x02c9 ; Address of exception handler
029a 0005 | | .CONST 0x0005 ; Number of locals
029b INIT_0298:
029b e00c | | Load 0x0,0xc
029c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
029d 02c7 | | Declare_Variable Any
029e 00d8 | | Load_Top At_Offset_0
029f 1c00 | | Execute_Immediate Run_Utility,0x0
02a0 00ec | | Load_Encached Diana_Tree_Cache
02a1 02c7 | | Declare_Variable Any
02a2 00d8 | | Load_Top At_Offset_0
02a3 1c00 | | Execute_Immediate Run_Utility,0x0
02a4 00ec | | Load_Encached Diana_Tree_Cache
02a5 02c7 | | Declare_Variable Any
02a6 00d8 | | Load_Top At_Offset_0
02a7 1c00 | | Execute_Immediate Run_Utility,0x0
02a8 e00d | | Load 0x0,0xd
02a9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02aa 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02ab 02ff | | Declare_Variable Variant_Record
02ac 00d8 | | Load_Top At_Offset_0
02ad 1c00 | | Execute_Immediate Run_Utility,0x0
02ae BODY_0298:
02ae e7fe | | Load 0x3,-0x2
02af 4976 |Iv | Short_Literal 0x176
02b0 00eb | | Load_Encached Diana_Cache
02b1 0098 | | Execute Package,Field_Read_Dynamic
02b2 180f | | Execute Package,Field_Execute,Field_Number 0xf
02b3 c604 | | Store 0x3,0x4
02b4 00d9 | | Load_Top At_Offset_1
02b5 490b |I | Short_Literal 0x10b
02b6 00eb | | Load_Encached Diana_Cache
02b7 0096 | | Execute Package,Entry
02b8 c603 | | Store 0x3,0x3
02b9 00d9 | | Load_Top At_Offset_1
02ba 8213 | | Call 0x1,0x13
02bb 00d9 | | Load_Top At_Offset_1
02bc 016d | m | Execute Variant_Record,Structure_Write
02bd 00da | | Load_Top At_Offset_2
02be 00eb | | Load_Encached Diana_Cache
02bf 18ec | | Execute Package,Field_Execute,Field_Number 0xec
02c0 00eb | | Load_Encached Diana_Cache
02c1 18ec | | Execute Package,Field_Execute,Field_Number 0xec
02c2 e40b | | Load 0x2,0xb
02c3 e00c | | Load 0x0,0xc
02c4 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
02c5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02c6 c602 | | Store 0x3,0x2
02c7 00db | | Load_Top At_Offset_3
02c8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02c9 TRAP_0298:
02c9 0007 | | Action Break_Optional
02ca e013 | | Load 0x0,0x13
02cb 180e | | Execute Package,Field_Execute,Field_Number 0xe
02cc 4807 |H | Short_Literal 0x7
02cd 0092 047d | }| Action Push_String_Extended,0x47d ; "Exception "
02cf 4800 |H | Short_Literal 0x0
02d0 4801 |H | Short_Literal 0x1
02d1 e014 | | Load 0x0,0x14
02d2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02d3 01cc | | Execute Vector,Catenate
02d4 0092 0480 | | Action Push_String_Extended,0x480 ; " raised in get_root for "
02d6 01cc | | Execute Vector,Catenate
02d7 e7ff | | Load 0x3,-0x1
02d8 e00d | | Load 0x0,0xd
02d9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02da 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
02db 01cc | | Execute Vector,Catenate
02dc e015 | | Load 0x0,0x15
02dd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02de e00c | | Load 0x0,0xc
02df 1b14 | | Execute Package,Field_Read,Field_Number 0x14
02e0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02e1 0000 0000 | | .BLANK 0000[0x7]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb 00da | | Load_Top At_Offset_2
02ec e001 | | Load 0x0,0x1
02ed 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02ee 180e | | Execute Package,Field_Execute,Field_Number 0xe
02ef 0e04 | | Execute_Immediate Not_Equal,0x4
02f0 6819 |h | Jump_Zero 0x30a
02f1 e013 | | Load 0x0,0x13
02f2 180e | | Execute Package,Field_Execute,Field_Number 0xe
02f3 4801 |H | Short_Literal 0x1
02f4 4801 |H | Short_Literal 0x1
02f5 e011 | | Load 0x0,0x11
02f6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02f7 035b | [ | Declare_Type Array,Constrained
02f8 0337 | 7 | Declare_Variable Array
02f9 e7ff | | Load 0x3,-0x1
02fa e001 | | Load 0x0,0x1
02fb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02fc 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
02fd e011 | | Load 0x0,0x11
02fe 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02ff e011 | | Load 0x0,0x11
0300 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0301 0119 | | Execute Any,Check_In_Formal_Type
0302 4801 |H | Short_Literal 0x1
0303 00da | | Load_Top At_Offset_2
0304 01d6 | | Execute Vector,Field_Write
0305 6006 |` | Indirect_Literal Discrete,0x30c,{0x00000000, 0x00008203}
0306 e002 | | Load 0x0,0x2
0307 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0308 e012 | | Load 0x0,0x12
0309 0257 | W | Execute Discrete,Raise
030a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
030b 0000 | | .XXX[0x1]
030c 0000 0000 | | .LITERAL {0x00000000, 0x00008203}
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 033b | ; | .CONST 0x033b ; Address of begin
0311 038f | | .CONST 0x038f ; Address of exception handler
0312 0009 | | .CONST 0x0009 ; Number of locals
0313 INIT_0310:
0313 e00d | | Load 0x0,0xd
0314 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0315 e00c | | Load 0x0,0xc
0316 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0317 02c7 | | Declare_Variable Any
0318 00d8 | | Load_Top At_Offset_0
0319 1c00 | | Execute_Immediate Run_Utility,0x0
031a e00d | | Load 0x0,0xd
031b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
031c 02c7 | | Declare_Variable Any
031d 00d8 | | Load_Top At_Offset_0
031e 1c00 | | Execute_Immediate Run_Utility,0x0
031f 00ec | | Load_Encached Diana_Tree_Cache
0320 02c7 | | Declare_Variable Any
0321 00d8 | | Load_Top At_Offset_0
0322 1c00 | | Execute_Immediate Run_Utility,0x0
0323 e00c | | Load 0x0,0xc
0324 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
0325 02c7 | | Declare_Variable Any
0326 e00c | | Load 0x0,0xc
0327 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0328 a606 | | Store_Unchecked 0x3,0x6
0329 e00c | | Load 0x0,0xc
032a 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
032b 02c7 | | Declare_Variable Any
032c e00c | | Load 0x0,0xc
032d 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
032e a607 | | Store_Unchecked 0x3,0x7
032f e001 | | Load 0x0,0x1
0330 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0331 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0332 02c7 | | Declare_Variable Any
0333 00d8 | | Load_Top At_Offset_0
0334 1c00 | | Execute_Immediate Run_Utility,0x0
0335 e001 | | Load 0x0,0x1
0336 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0337 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0338 02c7 | | Declare_Variable Any
0339 e7ff | | Load 0x3,-0x1
033a a609 | | Store_Unchecked 0x3,0x9
033b BODY_0310:
033b 00d8 | | Load_Top At_Offset_0
033c e001 | | Load 0x0,0x1
033d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
033e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
033f 00cf | | Action Mark_Auxiliary
0340 7846 |xF | Jump 0x387
0341 00d9 | | Load_Top At_Offset_1
0342 e001 | | Load 0x0,0x1
0343 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0344 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0345 c608 | | Store 0x3,0x8
0346 00da | | Load_Top At_Offset_2
0347 e001 | | Load 0x0,0x1
0348 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0349 1817 | | Execute Package,Field_Execute,Field_Number 0x17
034a 0f02 | | Execute_Immediate Equal,0x2
034b 6835 |h5 | Jump_Zero 0x381
034c 00da | | Load_Top At_Offset_2
034d e001 | | Load 0x0,0x1
034e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
034f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0350 7030 |p0 | Jump_Nonzero 0x381
0351 00da | | Load_Top At_Offset_2
0352 840f | | Call 0x2,0xf
0353 e00d | | Load 0x0,0xd
0354 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0355 e604 | | Load 0x3,0x4
0356 0120 | | Execute Any,Is_Value
0357 6803 |h | Jump_Zero 0x35b
0358 e00d | | Load 0x0,0xd
0359 1b0f | | Execute Package,Field_Read,Field_Number 0xf
035a 7801 |x | Jump 0x35c
035b e604 | | Load 0x3,0x4
035c e608 | | Load 0x3,0x8
035d e001 | | Load 0x0,0x1
035e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
035f 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0360 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0361 c604 | | Store 0x3,0x4
0362 c602 | | Store 0x3,0x2
0363 e602 | | Load 0x3,0x2
0364 680d |h | Jump_Zero 0x372
0365 e013 | | Load 0x0,0x13
0366 180e | | Execute Package,Field_Execute,Field_Number 0xe
0367 4807 |H | Short_Literal 0x7
0368 0092 0481 | | Action Push_String_Extended,0x481 ; "Get_singleton_list: failed to get root for "
036a e608 | | Load 0x3,0x8
036b e001 | | Load 0x0,0x1
036c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
036d 1820 | | Execute Package,Field_Execute,Field_Number 0x20
036e 01cc | | Execute Vector,Catenate
036f e015 | | Load 0x0,0x15
0370 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0371 780f |x | Jump 0x381
0372 e604 | | Load 0x3,0x4
0373 840d | | Call 0x2,0xd
0374 c605 | | Store 0x3,0x5
0375 e605 | | Load 0x3,0x5
0376 e604 | | Load 0x3,0x4
0377 840e | | Call 0x2,0xe
0378 c603 | | Store 0x3,0x3
0379 e606 | | Load 0x3,0x6
037a e603 | | Load 0x3,0x3
037b e406 | | Load 0x2,0x6
037c e00c | | Load 0x0,0xc
037d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
037e c607 | | Store 0x3,0x7
037f 00db | | Load_Top At_Offset_3
0380 c606 | | Store 0x3,0x6
0381 00d9 | | Load_Top At_Offset_1
0382 e001 | | Load 0x0,0x1
0383 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0384 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0385 c609 | | Store 0x3,0x9
0386 00c9 | | Action Pop_Auxiliary_Loop
0387 00d9 | | Load_Top At_Offset_1
0388 e001 | | Load 0x0,0x1
0389 1b0d | | Execute Package,Field_Read,Field_Number 0xd
038a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
038b 6fb5 |o | Jump_Zero 0x341
038c 00ce | | Action Pop_Auxiliary
038d 00db | | Load_Top At_Offset_3
038e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
038f TRAP_0310:
038f e012 | | Load 0x0,0x12
0390 010f | | Execute Exception,Equal
0391 6802 |h | Jump_Zero 0x394
0392 00d8 | | Load_Top At_Offset_0
0393 0101 | | Execute Exception,Reraise
0394 e013 | | Load 0x0,0x13
0395 180e | | Execute Package,Field_Execute,Field_Number 0xe
0396 4807 |H | Short_Literal 0x7
0397 0092 047d | }| Action Push_String_Extended,0x47d ; "Exception "
0399 4800 |H | Short_Literal 0x0
039a 4801 |H | Short_Literal 0x1
039b e014 | | Load 0x0,0x14
039c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
039d 01cc | | Execute Vector,Catenate
039e 0092 0482 | | Action Push_String_Extended,0x482 ; " raised in get_singleton_list"
03a0 01cc | | Execute Vector,Catenate
03a1 e015 | | Load 0x0,0x15
03a2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03a3 00d8 | | Load_Top At_Offset_0
03a4 0101 | | Execute Exception,Reraise
03a5 0000 0000 | | .XXX[0x3]
03a7 0000 | |
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03b7 | | .CONST 0x03b7 ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0003 | | .CONST 0x0003 ; Number of locals
03ab INIT_03a8:
03ab e001 | | Load 0x0,0x1
03ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ad 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
03ae 02c7 | | Declare_Variable Any
03af 00d8 | | Load_Top At_Offset_0
03b0 1c00 | | Execute_Immediate Run_Utility,0x0
03b1 e001 | | Load 0x0,0x1
03b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03b4 02c7 | | Declare_Variable Any
03b5 00d8 | | Load_Top At_Offset_0
03b6 1c00 | | Execute_Immediate Run_Utility,0x0
03b7 BODY_03a8:
03b7 00d9 | | Load_Top At_Offset_1
03b8 0120 | | Execute Any,Is_Value
03b9 6804 |h | Jump_Zero 0x3be
03ba e001 | | Load 0x0,0x1
03bb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03bc 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
03bd 7801 |x | Jump 0x3bf
03be 00d9 | | Load_Top At_Offset_1
03bf 00d9 | | Load_Top At_Offset_1
03c0 0120 | | Execute Any,Is_Value
03c1 6804 |h | Jump_Zero 0x3c6
03c2 e001 | | Load 0x0,0x1
03c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c5 7801 |x | Jump 0x3c7
03c6 00d9 | | Load_Top At_Offset_1
03c7 e7ff | | Load 0x3,-0x1
03c8 e001 | | Load 0x0,0x1
03c9 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03ca 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03cb c603 | | Store 0x3,0x3
03cc c602 | | Store 0x3,0x2
03cd 00d9 | | Load_Top At_Offset_1
03ce e001 | | Load 0x0,0x1
03cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03d0 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
03d1 6802 |h | Jump_Zero 0x3d4
03d2 00d8 | | Load_Top At_Offset_0
03d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03d4 4801 |H | Short_Literal 0x1
03d5 4803 |H | Short_Literal 0x3
03d6 e011 | | Load 0x0,0x11
03d7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03d8 035b | [ | Declare_Type Array,Constrained
03d9 0337 | 7 | Declare_Variable Array
03da 0092 0483 | | Action Push_String_Extended,0x483 ; "Get_exec_closure"
03dc e011 | | Load 0x0,0x11
03dd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03de e011 | | Load 0x0,0x11
03df 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03e0 0119 | | Execute Any,Check_In_Formal_Type
03e1 4801 |H | Short_Literal 0x1
03e2 00da | | Load_Top At_Offset_2
03e3 01d6 | | Execute Vector,Field_Write
03e4 e7ff | | Load 0x3,-0x1
03e5 4976 |Iv | Short_Literal 0x176
03e6 00eb | | Load_Encached Diana_Cache
03e7 0098 | | Execute Package,Field_Read_Dynamic
03e8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03e9 00eb | | Load_Encached Diana_Cache
03ea 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
03eb 00eb | | Load_Encached Diana_Cache
03ec 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
03ed e011 | | Load 0x0,0x11
03ee 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03ef e011 | | Load 0x0,0x11
03f0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03f1 0119 | | Execute Any,Check_In_Formal_Type
03f2 4802 |H | Short_Literal 0x2
03f3 00da | | Load_Top At_Offset_2
03f4 01d6 | | Execute Vector,Field_Write
03f5 00da | | Load_Top At_Offset_2
03f6 e001 | | Load 0x0,0x1
03f7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03f8 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
03f9 e011 | | Load 0x0,0x11
03fa 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03fb e011 | | Load 0x0,0x11
03fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03fd 0119 | | Execute Any,Check_In_Formal_Type
03fe 4803 |H | Short_Literal 0x3
03ff 00da | | Load_Top At_Offset_2
0400 01d6 | | Execute Vector,Field_Write
0401 6006 |` | Indirect_Literal Discrete,0x408,{0x00000000, 0x00008158}
0402 e002 | | Load 0x0,0x2
0403 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0404 a40d | | Store_Unchecked 0x2,0xd
0405 e017 | | Load 0x0,0x17
0406 0257 | W | Execute Discrete,Raise
0407 0000 | | .XXX[0x1]
0408 0000 0000 | | .LITERAL {0x00000000, 0x00008158}
040c 0000 0000 | | .BLANK 0000[0x4]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0418 | | .CONST 0x0418 ; Address of begin
0411 044c | L | .CONST 0x044c ; Address of exception handler
0412 0002 | | .CONST 0x0002 ; Number of locals
0413 INIT_0410:
0413 e402 | | Load 0x2,0x2
0414 e20e | | Load 0x1,0xe
0415 1c08 | | Execute_Immediate Run_Utility,0x8
0416 00d8 | | Load_Top At_Offset_0
0417 1c00 | | Execute_Immediate Run_Utility,0x0
0418 BODY_0410:
0418 00cf | | Action Mark_Auxiliary
0419 e402 | | Load 0x2,0x2
041a 4801 |H | Short_Literal 0x1
041b 0263 | c | Execute Discrete,Above_Bound
041c 7028 |p( | Jump_Nonzero 0x445
041d e00b | | Load 0x0,0xb
041e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
041f e40b | | Load 0x2,0xb
0420 00e1 | | Load_Encached Boolean_Cache
0421 00e1 | | Load_Encached Boolean_Cache
0422 00e3 | | Load_Encached Natural_Cache
0423 e407 | | Load 0x2,0x7
0424 0120 | | Execute Any,Is_Value
0425 6802 |h | Jump_Zero 0x428
0426 00ec | | Load_Encached Diana_Tree_Cache
0427 7801 |x | Jump 0x429
0428 e407 | | Load 0x2,0x7
0429 00eb | | Load_Encached Diana_Cache
042a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
042b e405 | | Load 0x2,0x5
042c 0120 | | Execute Any,Is_Value
042d 6802 |h | Jump_Zero 0x430
042e 00ed | | Load_Encached Diana_Symbol_Rep_Cache
042f 7801 |x | Jump 0x431
0430 e405 | | Load 0x2,0x5
0431 e605 | | Load 0x3,0x5
0432 e5ff | | Load 0x2,-0x1
0433 e00b | | Load 0x0,0xb
0434 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0435 c405 | | Store 0x2,0x5
0436 c406 | | Store 0x2,0x6
0437 c407 | | Store 0x2,0x7
0438 c408 | | Store 0x2,0x8
0439 c409 | | Store 0x2,0x9
043a c40a | | Store 0x2,0xa
043b 00d1 | | Pop_Control Pop_Count_1
043c c40c | | Store 0x2,0xc
043d e407 | | Load 0x2,0x7
043e 840e | | Call 0x2,0xe
043f 00d9 | | Load_Top At_Offset_1
0440 e602 | | Load 0x3,0x2
0441 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0442 01d6 | | Execute Vector,Field_Write
0443 00c8 | | Action Pop_Auxiliary_Range
0444 3fd8 |? | Loop_Increasing 0x41d
0445 00ce | | Action Pop_Auxiliary
0446 4800 |H | Short_Literal 0x0
0447 00d9 | | Load_Top At_Offset_1
0448 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0449 00d8 | | Load_Top At_Offset_0
044a 00cb | | Action Pop_Block_With_Result
044b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
044c TRAP_0410:
044c e017 | | Load 0x0,0x17
044d 010f | | Execute Exception,Equal
044e 6806 |h | Jump_Zero 0x455
044f e40d | | Load 0x2,0xd
0450 00da | | Load_Top At_Offset_2
0451 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0452 00d9 | | Load_Top At_Offset_1
0453 00cb | | Action Pop_Block_With_Result
0454 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0455 0100 | | Execute Exception,Raise
0456 0000 0000 | | .XXX[0x2]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b | [ | .CONST 0x045b ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0001 | | .CONST 0x0001 ; Number of locals
045b BODY_0458:
045b INIT_0458:
045b 4608 |F | Jump_Case 0x9
045c 7808 |x | Jump 0x465 ; case 0x0
045d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
045e 781d |x | Jump 0x47c ; case 0x2
045f 781c |x | Jump 0x47c ; case 0x3
0460 781b |x | Jump 0x47c ; case 0x4
0461 781a |x | Jump 0x47c ; case 0x5
0462 7819 |x | Jump 0x47c ; case 0x6
0463 7805 |x | Jump 0x469 ; case 0x7
0464 780d |x | Jump 0x472 ; case 0x8
0465 00da | | Load_Top At_Offset_2
0466 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0467 1c00 | | Execute_Immediate Run_Utility,0x0
0468 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0469 00db | | Load_Top At_Offset_3
046a 4801 |H | Short_Literal 0x1
046b e5fe | | Load 0x2,-0x2
046c e211 | | Load 0x1,0x11
046d 035b | [ | Declare_Type Array,Constrained
046e 4801 |H | Short_Literal 0x1
046f e5ff | | Load 0x2,-0x1
0470 031b | | Declare_Type Variant_Record,Constrained
0471 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0472 00db | | Load_Top At_Offset_3
0473 00db | | Load_Top At_Offset_3
0474 02fc | | Declare_Variable Variant_Record,With_Constraint
0475 4801 |H | Short_Literal 0x1
0476 e5fe | | Load 0x2,-0x2
0477 e211 | | Load 0x1,0x11
0478 0334 | 4 | Declare_Variable Array,With_Constraint
0479 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
047a 016a | j | QQ_execute Variant_Record,XXX
047b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
047c 0869 | i | Execute_Immediate Raise,0x69
047d ; --------------------------------------------------------------------------------------
047d ; STRING TABLE
047d ; --------------------------------------------------------------------------------------
047d 0010 | | .STRTAB 0x0010->0x0485 ; "Exception "
047e 0018 | | .STRTAB 0x0018->0x048a ; " raised in exec_closure_list"
047f 0032 | 2 | .STRTAB 0x0032->0x0498 ; " raised in get_main_comp_unit for "
0480 0052 | R | .STRTAB 0x0052->0x04a9 ; " raised in get_root for "
0481 0068 | h | .STRTAB 0x0068->0x04b5 ; "Get_singleton_list: failed to get root for "
0482 0091 | | .STRTAB 0x0091->0x04ca ; " raised in get_singleton_list"
0483 00ac | | .STRTAB 0x00ac->0x04d9 ; "Get_exec_closure"
0484 00ba | | .STREND 0x00ba->0x04e1
0485 4578 6365 |Exce| .STRTAB_STRINGS
04e1 0000 0000 | | .BLANK 0000[0x7]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; Debug Table
04e8 ; --------------------------------------------------------------------------------------
04e8 0004 000e | | .DEBUG4 0x0004,0x000e,0xe5f9,0x0000,0x0001,0x0000
04ee 0000 0000 | | .XXX[0x18]
04f0 8000 d3e6 | |
04f2 00b8 3578 | 5x|
04f4 00b8 32de | 2 |
04f6 80b8 3c02 | < |
04f8 805c 1bf1 | \ |
04fa 4000 762f |@ v/|
04fc 3208 e5bb |2 |
04fe aea6 b000 | |
0500 00e1 0472 | r|
0502 ddf7 8d98 | |
0504 0000 7000 | p |
0506 0000 0000 | | .BLANK 0000[0x4]
050a cd18 0850 | P| .XXX[0x19]
050c 0000 0400 | |
050e cd1b 8850 | P|
0510 0000 0400 | |
0512 0000 0000 | |
0514 19a3 010a | |
0516 0000 0080 | |
0518 411c b77d |A }|
051a d580 8000 | |
051c 1c00 0000 | |
051e 0480 0095 | |
0520 8d00 0000 | |
0522 0100 | |
0523 0000 0000 | | .BLANK 0000[0x7]
052a 0008 2396 | # | .XXX[0x25]
052c eebf 37f0 | 7 |
052e 0003 8000 | |
0530 0000 9000 | |
0532 12b1 a000 | |
0534 0000 2000 | |
0536 0000 0000 | |
0538 0000 2000 | |
053a 3ae3 002e |: .|
053c 0df0 4000 | @ |
053e 0000 0000 | |
0540 0000 0017 | |
0542 0745 7000 | Ep |
0544 00aa a282 | |
0546 b081 357b | 5{|
0548 7500 0012 |u |
054a 4158 4280 |AXB |
054c 4590 0000 |E |
054e 0900 | |
054f 0000 0000 | | .BLANK 0000[0x4]
0553 3941 b216 |9A | .XXX[0x45]
0555 0000 0100 | |
0557 3941 d216 |9A |
0559 0000 0100 | |
055b 0000 4a0e | J |
055d 8728 3a42 | (:B|
055f c000 0020 | |
0561 1056 1027 | V '|
0563 3dca a000 |= |
0565 0240 0000 | @ |
0567 0120 002a | *|
0569 0880 0000 | |
056b 0040 0000 | @ |
056d 0040 0009 | @ |
056f 41d0 0000 |A |
0571 0000 0000 | |
0573 0002 0ac2 | |
0575 04e5 f22c | ,|
0577 0000 4800 | H |
0579 0000 2400 | $ |
057b 0541 1000 | A |
057d 0000 0800 | |
057f 0000 0800 | |
0581 0000 0800 | |
0583 0f75 f00b | u |
0585 83a0 a00b | |
0587 839b 980b | |
0589 8409 4c05 | L |
058b c1e3 a400 | |
058d 0019 5fa0 | _ |
058f ac54 ff5b | T [|
0591 1880 0000 | |
0593 5056 2a7f |PV* |
0595 da0e 6000 | ` |
0597 0020 | |
0598 0000 0000 | | .BLANK 0000[0x4]
059c 0dbb 0085 | | .XXX[0x19]
059e 0000 0040 | @|
05a0 0dbb 0285 | |
05a2 0000 0040 | @|
05a4 1000 0000 | |
05a6 01b7 6050 | `P|
05a8 a000 0008 | |
05aa 0415 8a9f | |
05ac f683 9800 | |
05ae 0008 0000 | |
05b0 0048 000a | H |
05b2 c8d0 0000 | |
05b4 0010 | |
05b5 0000 0000 | | .BLANK 0000[0x8]
05bd 0001 0708 | | .XXX[0x2]
05bf 0000 0000 | | .BLANK 0000[0x8]
05c7 0200 0000 | | .XXX[0x1a]
05c9 0000 0000 | |
05cb 0200 03e5 | |
05cd 5e02 e0f1 |^ |
05cf 4c00 0000 |L |
05d1 0000 0000 | |
05d3 0001 707d | p}|
05d5 7b00 001b |{ |
05d7 7f28 2f48 | (/H|
05d9 9a45 e240 | E @|
05db 0006 5417 | T |
05dd acdc 9b59 | Y|
05df a800 0378 | x|
05e1 0000 0000 | | .BLANK 0000[0x4]
05e5 03a4 5c21 | \!| .XXX[0x1b]
05e7 6000 0010 |` |
05e9 03ad d1a1 | |
05eb 6000 0010 |` |
05ed 0000 0000 | |
05ef 0074 8b84 | t |
05f1 2c00 0002 |, |
05f3 0105 eb37 | 7|
05f5 26d6 6a00 |& j |
05f7 00de 0000 | |
05f9 0012 0002 | |
05fb b9a0 0000 | |
05fd 0004 0000 | |
05ff 0000 | |