|
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_06e8fd
└─⟦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 05e0 | | .CONST 0x05e0 ; 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 007a | z | .CONST 0x007a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0027 | ' | .CONST 0x0027 ; Number of locals 000b INIT_0008: 000b 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 000d 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 000f 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0011 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0013 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0015 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0017 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0019 00bf | | Action Accept_Activation 001a 0092 04a8 | | Action Push_String_Extended,0x4a8 ; "Problem determining type information" 001c 00ec | | Load_Encached Diana_Tree_Cache 001d 00ec | | Load_Encached Diana_Tree_Cache 001e 00ec | | Load_Encached Diana_Tree_Cache 001f e002 | | Load 0x0,0x2 0020 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0021 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call 0023 4804 |H | Short_Literal 0x4 0024 032d | - | Declare_Type Record,Defined 0025 00d8 | | Load_Top At_Offset_0 0026 0322 | " | Declare_Variable Record 0027 00eb | | Load_Encached Diana_Cache 0028 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0029 00d9 | | Load_Top At_Offset_1 002a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 002b 00eb | | Load_Encached Diana_Cache 002c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 002d 00d9 | | Load_Top At_Offset_1 002e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 002f 00eb | | Load_Encached Diana_Cache 0030 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0031 00d9 | | Load_Top At_Offset_1 0032 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0033 e002 | | Load 0x0,0x2 0034 180e | | Execute Package,Field_Execute,Field_Number 0xe 0035 00da | | Load_Top At_Offset_2 0036 3003 |0 | Execute Record,Field_Type,Field_Number 0x3 0037 0119 | | Execute Any,Check_In_Formal_Type 0038 00d9 | | Load_Top At_Offset_1 0039 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 003a 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call 003c e003 | | Load 0x0,0x3 003d e004 | | Load 0x0,0x4 003e 4865 |He | Short_Literal 0x65 003f 00e3 | | Load_Encached Natural_Cache 0040 e215 | | Load 0x1,0x15 0041 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0042 e005 | | Load 0x0,0x5 0043 0387 | | Declare_Variable Package 0044 00d8 | | Load_Top At_Offset_0 0045 020f | | Execute Module,Activate 0046 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call 0048 e006 | | Load 0x0,0x6 0049 e007 | | Load 0x0,0x7 004a 4865 |He | Short_Literal 0x65 004b 00ec | | Load_Encached Diana_Tree_Cache 004c 00e3 | | Load_Encached Natural_Cache 004d 1d19 | | Execute_Immediate Reference_Lex_1,0x19 004e e005 | | Load 0x0,0x5 004f 0387 | | Declare_Variable Package 0050 00d8 | | Load_Top At_Offset_0 0051 020f | | Execute Module,Activate 0052 00da | | Load_Top At_Offset_2 0053 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0054 00d9 | | Load_Top At_Offset_1 0055 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0056 00e3 | | Load_Encached Natural_Cache 0057 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0058 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call 005a 029d 020b | | Declare_Subprogram INIT_0208,For_Outer_Call 005c 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call 005e 029d 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call 0060 029d 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call 0062 029d 029b | | Declare_Subprogram INIT_0298,For_Outer_Call 0064 029d 038b | | Declare_Subprogram INIT_0388,For_Outer_Call 0066 029d 039b | | Declare_Subprogram INIT_0398,For_Outer_Call 0068 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0069 00c7 | | Action Elaborate_Subprogram 006a 029d 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call 006c 1d0e | | Execute_Immediate Reference_Lex_1,0xe 006d 00c7 | | Action Elaborate_Subprogram 006e 1d0f | | Execute_Immediate Reference_Lex_1,0xf 006f 00c7 | | Action Elaborate_Subprogram 0070 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0071 00c7 | | Action Elaborate_Subprogram 0072 029d 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call 0074 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0075 00c7 | | Action Elaborate_Subprogram 0076 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0077 00c7 | | Action Elaborate_Subprogram 0078 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0079 00c7 | | Action Elaborate_Subprogram 007a BODY_0008: 007a 00bc | | Action Signal_Activated 007b 00bb | | Action Signal_Completion 007c 0000 0000 | | .BLANK 0000[0x4] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0088 | | .CONST 0x0088 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0002 | | .CONST 0x0002 ; Number of locals 0083 INIT_0080: 0083 e008 | | Load 0x0,0x8 0084 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0085 02c7 | | Declare_Variable Any 0086 00d8 | | Load_Top At_Offset_0 0087 1c00 | | Execute_Immediate Run_Utility,0x0 0088 BODY_0080: 0088 00d8 | | Load_Top At_Offset_0 0089 e5fe | | Load 0x2,-0x2 008a e5ff | | Load 0x2,-0x1 008b 8225 | % | Call 0x1,0x25 008c c402 | | Store 0x2,0x2 008d 4802 |H | Short_Literal 0x2 008e 00d9 | | Load_Top At_Offset_1 008f e008 | | Load 0x0,0x8 0090 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0091 6809 |h | Jump_Zero 0x9b 0092 480a |H | Short_Literal 0xa 0093 0092 04a9 | | Action Push_String_Extended,0x4a9 ; "Type register failure: " 0095 00da | | Load_Top At_Offset_2 0096 e008 | | Load 0x0,0x8 0097 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0098 01cc | | Execute Vector,Catenate 0099 01cb | | Execute Vector,Append 009a 8009 | | Call 0x0,0x9 009b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 009c 0000 0000 | | .BLANK 0000[0x4] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a8 | | .CONST 0x00a8 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0002 | | .CONST 0x0002 ; Number of locals 00a3 INIT_00a0: 00a3 e008 | | Load 0x0,0x8 00a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a5 02c7 | | Declare_Variable Any 00a6 00d8 | | Load_Top At_Offset_0 00a7 1c00 | | Execute_Immediate Run_Utility,0x0 00a8 BODY_00a0: 00a8 00d8 | | Load_Top At_Offset_0 00a9 e5ff | | Load 0x2,-0x1 00aa 8226 | & | Call 0x1,0x26 00ab c402 | | Store 0x2,0x2 00ac 4802 |H | Short_Literal 0x2 00ad 00d9 | | Load_Top At_Offset_1 00ae e008 | | Load 0x0,0x8 00af 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00b0 6807 |h | Jump_Zero 0xb8 00b1 0092 04aa | | Action Push_String_Extended,0x4aa ; "Special type un_register failure: " 00b3 00d9 | | Load_Top At_Offset_1 00b4 e008 | | Load 0x0,0x8 00b5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00b6 01cc | | Execute Vector,Catenate 00b7 8009 | | Call 0x0,0x9 00b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b9 0000 0000 | | .BLANK 0000[0x7] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00cd | | .CONST 0x00cd ; Address of begin 00c1 0101 | | .CONST 0x0101 ; Address of exception handler 00c2 0005 | | .CONST 0x0005 ; Number of locals 00c3 INIT_00c0: 00c3 00e1 | | Load_Encached Boolean_Cache 00c4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00c5 00e3 | | Load_Encached Natural_Cache 00c6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00c7 e215 | | Load 0x1,0x15 00c8 0322 | " | Declare_Variable Record 00c9 00d8 | | Load_Top At_Offset_0 00ca 1c00 | | Execute_Immediate Run_Utility,0x0 00cb 029f 046b | k| Declare_Subprogram INIT_0468,For_Call 00cd BODY_00c0: 00cd 00e1 | | Load_Encached Boolean_Cache 00ce 00db | | Load_Top At_Offset_3 00cf e5ff | | Load 0x2,-0x1 00d0 e21c | | Load 0x1,0x1c 00d1 e21a | | Load 0x1,0x1a 00d2 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00d3 c403 | | Store 0x2,0x3 00d4 c402 | | Store 0x2,0x2 00d5 00db | | Load_Top At_Offset_3 00d6 6828 |h( | Jump_Zero 0xff 00d7 00da | | Load_Top At_Offset_2 00d8 6826 |h& | Jump_Zero 0xff 00d9 4801 |H | Short_Literal 0x1 00da a5fe | | Store_Unchecked 0x2,-0x2 00db 00e1 | | Load_Encached Boolean_Cache 00dc 00da | | Load_Top At_Offset_2 00dd e403 | | Load 0x2,0x3 00de e21b | | Load 0x1,0x1b 00df e218 | | Load 0x1,0x18 00e0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00e1 00d1 | | Pop_Control Pop_Count_1 00e2 c402 | | Store 0x2,0x2 00e3 00db | | Load_Top At_Offset_3 00e4 6815 |h | Jump_Zero 0xfa 00e5 00d9 | | Load_Top At_Offset_1 00e6 e216 | | Load 0x1,0x16 00e7 017e | ~ | Execute Record,Not_Equal 00e8 6811 |h | Jump_Zero 0xfa 00e9 00d9 | | Load_Top At_Offset_1 00ea 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00eb 800a | | Call 0x0,0xa 00ec 700d |p | Jump_Nonzero 0xfa 00ed 00d9 | | Load_Top At_Offset_1 00ee 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00ef 800a | | Call 0x0,0xa 00f0 7009 |p | Jump_Nonzero 0xfa 00f1 00d9 | | Load_Top At_Offset_1 00f2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00f3 8224 | $ | Call 0x1,0x24 00f4 6805 |h | Jump_Zero 0xfa 00f5 00da | | Load_Top At_Offset_2 00f6 a5fc | | Store_Unchecked 0x2,-0x4 00f7 4801 |H | Short_Literal 0x1 00f8 a5fd | | Store_Unchecked 0x2,-0x3 00f9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00fa 4800 |H | Short_Literal 0x0 00fb a5fc | | Store_Unchecked 0x2,-0x4 00fc 4800 |H | Short_Literal 0x0 00fd a5fd | | Store_Unchecked 0x2,-0x3 00fe 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ff 8405 | | Call 0x2,0x5 0100 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0101 TRAP_00c0: 0101 0007 | | Action Break_Optional 0102 8405 | | Call 0x2,0x5 0103 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0104 0000 0000 | | .BLANK 0000[0x4] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 0110 | | .CONST 0x0110 ; Address of begin 0109 0150 | P | .CONST 0x0150 ; Address of exception handler 010a 0003 | | .CONST 0x0003 ; Number of locals 010b INIT_0108: 010b e215 | | Load 0x1,0x15 010c 0322 | " | Declare_Variable Record 010d 00d8 | | Load_Top At_Offset_0 010e 1c00 | | Execute_Immediate Run_Utility,0x0 010f 00e1 | | Load_Encached Boolean_Cache 0110 BODY_0108: 0110 e5ff | | Load 0x2,-0x1 0111 e002 | | Load 0x0,0x2 0112 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0113 0260 | ` | Execute Discrete,In_Type 0114 6815 |h | Jump_Zero 0x12a 0115 e5fd | | Load 0x2,-0x3 0116 0120 | | Execute Any,Is_Value 0117 6803 |h | Jump_Zero 0x11b 0118 e002 | | Load 0x0,0x2 0119 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011a 7801 |x | Jump 0x11c 011b e5fd | | Load 0x2,-0x3 011c 00e1 | | Load_Encached Boolean_Cache 011d e5ff | | Load 0x2,-0x1 011e e002 | | Load 0x0,0x2 011f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0120 00d9 | | Load_Top At_Offset_1 0121 00d0 | | Action Swap_Control 0122 0260 | ` | Execute Discrete,In_Type 0123 7001 |p | Jump_Nonzero 0x125 0124 0801 | | Execute_Immediate Raise,0x1 0125 e002 | | Load 0x0,0x2 0126 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0127 c5fe | | Store 0x2,-0x2 0128 c5fd | | Store 0x2,-0x3 0129 4502 |E | Exit_Suprogram New_Top_Offset 0x2 012a 00e1 | | Load_Encached Boolean_Cache 012b 00da | | Load_Top At_Offset_2 012c e5ff | | Load 0x2,-0x1 012d e21b | | Load 0x1,0x1b 012e e218 | | Load 0x1,0x18 012f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0130 00d1 | | Pop_Control Pop_Count_1 0131 0059 | Y | Store_Top Discrete,At_Offset_1 0132 00d8 | | Load_Top At_Offset_0 0133 6816 |h | Jump_Zero 0x14a 0134 00d9 | | Load_Top At_Offset_1 0135 e216 | | Load 0x1,0x16 0136 017e | ~ | Execute Record,Not_Equal 0137 6812 |h | Jump_Zero 0x14a 0138 00d9 | | Load_Top At_Offset_1 0139 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 013a 800a | | Call 0x0,0xa 013b 700e |p | Jump_Nonzero 0x14a 013c 00d9 | | Load_Top At_Offset_1 013d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 013e 800a | | Call 0x0,0xa 013f 700a |p | Jump_Nonzero 0x14a 0140 00d9 | | Load_Top At_Offset_1 0141 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0142 8224 | $ | Call 0x1,0x24 0143 6806 |h | Jump_Zero 0x14a 0144 00d9 | | Load_Top At_Offset_1 0145 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0146 c5fd | | Store 0x2,-0x3 0147 4801 |H | Short_Literal 0x1 0148 a5fe | | Store_Unchecked 0x2,-0x2 0149 4502 |E | Exit_Suprogram New_Top_Offset 0x2 014a e002 | | Load 0x0,0x2 014b 180e | | Execute Package,Field_Execute,Field_Number 0xe 014c c5fd | | Store 0x2,-0x3 014d 4800 |H | Short_Literal 0x0 014e a5fe | | Store_Unchecked 0x2,-0x2 014f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0150 TRAP_0108: 0150 0007 | | Action Break_Optional 0151 4800 |H | Short_Literal 0x0 0152 a5fe | | Store_Unchecked 0x2,-0x2 0153 e002 | | Load 0x0,0x2 0154 180e | | Execute Package,Field_Execute,Field_Number 0xe 0155 c5fd | | Store 0x2,-0x3 0156 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0157 0000 | | .XXX[0x1] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b e21b | | Load 0x1,0x1b 015c e218 | | Load 0x1,0x18 015d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 015e c21b | | Store 0x1,0x1b 015f e21c | | Load 0x1,0x1c 0160 e21a | | Load 0x1,0x1a 0161 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0162 c21c | | Store 0x1,0x1c 0163 4801 |H | Short_Literal 0x1 0164 a21d | | Store_Unchecked 0x1,0x1d 0165 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0166 0000 0000 | | .XXX[0x2] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 017c | | | .CONST 0x017c ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0008 | | .CONST 0x0008 ; Number of locals 016b INIT_0168: 016b e218 | | Load 0x1,0x18 016c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 016d 0322 | " | Declare_Variable Record 016e 00e3 | | Load_Encached Natural_Cache 016f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0170 00e1 | | Load_Encached Boolean_Cache 0171 e215 | | Load 0x1,0x15 0172 0322 | " | Declare_Variable Record 0173 00d8 | | Load_Top At_Offset_0 0174 1c00 | | Execute_Immediate Run_Utility,0x0 0175 00e1 | | Load_Encached Boolean_Cache 0176 800b | | Call 0x0,0xb 0177 00e1 | | Load_Encached Boolean_Cache 0178 03f1 | | Declare_Variable Discrete,With_Value 0179 800b | | Call 0x0,0xb 017a 00e1 | | Load_Encached Boolean_Cache 017b 03f1 | | Declare_Variable Discrete,With_Value 017c BODY_0168: 017c 0092 04ab | | Action Push_String_Extended,0x4ab ; "Special types for display:" 017e 800c | | Call 0x0,0xc 017f 800d | | Call 0x0,0xd 0180 e402 | | Load 0x2,0x2 0181 e21b | | Load 0x1,0x1b 0182 e218 | | Load 0x1,0x18 0183 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0184 00d1 | | Pop_Control Pop_Count_1 0185 00cf | | Action Mark_Auxiliary 0186 e402 | | Load 0x2,0x2 0187 e218 | | Load 0x1,0x18 0188 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0189 702d |p- | Jump_Nonzero 0x1b7 018a e402 | | Load 0x2,0x2 018b e218 | | Load 0x1,0x18 018c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 018d a403 | | Store_Unchecked 0x2,0x3 018e 00e1 | | Load_Encached Boolean_Cache 018f e405 | | Load 0x2,0x5 0190 e403 | | Load 0x2,0x3 0191 e21b | | Load 0x1,0x1b 0192 e218 | | Load 0x1,0x18 0193 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0194 00d1 | | Pop_Control Pop_Count_1 0195 c404 | | Store 0x2,0x4 0196 e404 | | Load 0x2,0x4 0197 6819 |h | Jump_Zero 0x1b1 0198 e405 | | Load 0x2,0x5 0199 e216 | | Load 0x1,0x16 019a 017e | ~ | Execute Record,Not_Equal 019b 6815 |h | Jump_Zero 0x1b1 019c e405 | | Load 0x2,0x5 019d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 019e 800a | | Call 0x0,0xa 019f 7011 |p | Jump_Nonzero 0x1b1 01a0 e405 | | Load 0x2,0x5 01a1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01a2 800a | | Call 0x0,0xa 01a3 6801 |h | Jump_Zero 0x1a5 01a4 780c |x | Jump 0x1b1 01a5 e405 | | Load 0x2,0x5 01a6 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01a7 8224 | $ | Call 0x1,0x24 01a8 a406 | | Store_Unchecked 0x2,0x6 01a9 00db | | Load_Top At_Offset_3 01aa 7002 |p | Jump_Nonzero 0x1ad 01ab 00da | | Load_Top At_Offset_2 01ac 6804 |h | Jump_Zero 0x1b1 01ad 00d9 | | Load_Top At_Offset_1 01ae e406 | | Load 0x2,0x6 01af e405 | | Load 0x2,0x5 01b0 8227 | ' | Call 0x1,0x27 01b1 e402 | | Load 0x2,0x2 01b2 e218 | | Load 0x1,0x18 01b3 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01b4 00d1 | | Pop_Control Pop_Count_1 01b5 00c9 | | Action Pop_Auxiliary_Loop 01b6 7fcf | | Jump 0x186 01b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 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 e218 | | Load 0x1,0x18 01bc 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01bd 4865 |He | Short_Literal 0x65 01be e218 | | Load 0x1,0x18 01bf 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01c0 c21b | | Store 0x1,0x1b 01c1 e21a | | Load 0x1,0x1a 01c2 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01c3 4865 |He | Short_Literal 0x65 01c4 e21a | | Load 0x1,0x1a 01c5 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01c6 c21c | | Store 0x1,0x1c 01c7 4801 |H | Short_Literal 0x1 01c8 a21d | | Store_Unchecked 0x1,0x1d 01c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ca 0000 0000 | | .BLANK 0000[0x6] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 4601 |F | Jump_Case 0x2 01d4 7801 |x | Jump 0x1d6 ; case 0x0 01d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01d6 00da | | Load_Top At_Offset_2 01d7 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 01d8 0125 | % | Execute Any,Set_Constraint 01d9 00da | | Load_Top At_Offset_2 01da 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 01db 1c00 | | Execute_Immediate Run_Utility,0x0 01dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01dd 0000 0000 | | .XXX[0x3] 01df 0000 | | 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 00da | | Load_Top At_Offset_2 01e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e5 0000 0000 | | .XXX[0x3] 01e7 0000 | | 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 00da | | Load_Top At_Offset_2 01ec 00eb | | Load_Encached Diana_Cache 01ed 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ef 0000 | | .XXX[0x1] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 00da | | Load_Top At_Offset_2 01f4 00eb | | Load_Encached Diana_Cache 01f5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01f6 6803 |h | Jump_Zero 0x1fa 01f7 0092 04ac | | Action Push_String_Extended,0x4ac ; "nil" 01f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01fa 00da | | Load_Top At_Offset_2 01fb 00eb | | Load_Encached Diana_Cache 01fc 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01fd 00eb | | Load_Encached Diana_Cache 01fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01ff 011c | | Execute Any,Convert_Unchecked 0200 1c01 | | Execute_Immediate Run_Utility,0x1 0201 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0202 0000 0000 | | .BLANK 0000[0x6] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 4802 |H | Short_Literal 0x2 020c 00db | | Load_Top At_Offset_3 020d 800e | | Call 0x0,0xe 020e 800f | | Call 0x0,0xf 020f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0217 | | .CONST 0x0217 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0005 | | .CONST 0x0005 ; Number of locals 0213 INIT_0210: 0213 00ec | | Load_Encached Diana_Tree_Cache 0214 039d | | Declare_Variable Heap_Access,Duplicate 0215 039d | | Declare_Variable Heap_Access,Duplicate 0216 039d | | Declare_Variable Heap_Access,Duplicate 0217 BODY_0210: 0217 e5ff | | Load 0x2,-0x1 0218 00eb | | Load_Encached Diana_Cache 0219 18ec | | Execute Package,Field_Execute,Field_Number 0xec 021a a402 | | Store_Unchecked 0x2,0x2 021b 00db | | Load_Top At_Offset_3 021c 00eb | | Load_Encached Diana_Cache 021d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 021e 6802 |h | Jump_Zero 0x221 021f e5ff | | Load 0x2,-0x1 0220 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0221 00db | | Load_Top At_Offset_3 0222 00eb | | Load_Encached Diana_Cache 0223 18ba | | Execute Package,Field_Execute,Field_Number 0xba 0224 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0225 00da | | Load_Top At_Offset_2 0226 00eb | | Load_Encached Diana_Cache 0227 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0228 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0229 00d9 | | Load_Top At_Offset_1 022a 8010 | | Call 0x0,0x10 022b 0031 | 1 | Store_Top Heap_Access,At_Offset_1 022c 00d8 | | Load_Top At_Offset_0 022d 00eb | | Load_Encached Diana_Cache 022e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 022f 6802 |h | Jump_Zero 0x232 0230 e5ff | | Load 0x2,-0x1 0231 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0232 00d8 | | Load_Top At_Offset_0 0233 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0234 0000 0000 | | .BLANK 0000[0x4] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023e | > | .CONST 0x023e ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0004 | | .CONST 0x0004 ; Number of locals 023b INIT_0238: 023b 00ec | | Load_Encached Diana_Tree_Cache 023c 039d | | Declare_Variable Heap_Access,Duplicate 023d 039d | | Declare_Variable Heap_Access,Duplicate 023e BODY_0238: 023e e5ff | | Load 0x2,-0x1 023f 00eb | | Load_Encached Diana_Cache 0240 18f8 | | Execute Package,Field_Execute,Field_Number 0xf8 0241 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0242 00da | | Load_Top At_Offset_2 0243 00eb | | Load_Encached Diana_Cache 0244 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0245 0f80 | | Execute_Immediate Equal,-0x80 0246 7002 |p | Jump_Nonzero 0x249 0247 e5ff | | Load 0x2,-0x1 0248 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0249 00da | | Load_Top At_Offset_2 024a 00eb | | Load_Encached Diana_Cache 024b 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 024c 0032 | 2 | Store_Top Heap_Access,At_Offset_2 024d 00d9 | | Load_Top At_Offset_1 024e 8010 | | Call 0x0,0x10 024f 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0250 00d8 | | Load_Top At_Offset_0 0251 00eb | | Load_Encached Diana_Cache 0252 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0253 6802 |h | Jump_Zero 0x256 0254 e5ff | | Load 0x2,-0x1 0255 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0256 00d8 | | Load_Top At_Offset_0 0257 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025d | ] | .CONST 0x025d ; Address of begin 0259 028f | | .CONST 0x028f ; Address of exception handler 025a 0003 | | .CONST 0x0003 ; Number of locals 025b INIT_0258: 025b 00ec | | Load_Encached Diana_Tree_Cache 025c 039d | | Declare_Variable Heap_Access,Duplicate 025d BODY_0258: 025d e5ff | | Load 0x2,-0x1 025e 00eb | | Load_Encached Diana_Cache 025f 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0260 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0261 00d9 | | Load_Top At_Offset_1 0262 00eb | | Load_Encached Diana_Cache 0263 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0264 6802 |h | Jump_Zero 0x267 0265 e5ff | | Load 0x2,-0x1 0266 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0267 00d9 | | Load_Top At_Offset_1 0268 00eb | | Load_Encached Diana_Cache 0269 18ec | | Execute Package,Field_Execute,Field_Number 0xec 026a 0031 | 1 | Store_Top Heap_Access,At_Offset_1 026b 00d8 | | Load_Top At_Offset_0 026c 00eb | | Load_Encached Diana_Cache 026d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 026e 0f8c | | Execute_Immediate Equal,-0x74 026f 681d |h | Jump_Zero 0x28d 0270 00d8 | | Load_Top At_Offset_0 0271 00eb | | Load_Encached Diana_Cache 0272 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0273 00eb | | Load_Encached Diana_Cache 0274 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0275 6817 |h | Jump_Zero 0x28d 0276 00d8 | | Load_Top At_Offset_0 0277 e011 | | Load 0x0,0x11 0278 180e | | Execute Package,Field_Execute,Field_Number 0xe 0279 00eb | | Load_Encached Diana_Cache 027a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 027b 0f36 | 6 | Execute_Immediate Equal,0x36 027c 6810 |h | Jump_Zero 0x28d 027d e5ff | | Load 0x2,-0x1 027e 00eb | | Load_Encached Diana_Cache 027f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0280 0b2d | - | Execute_Immediate Case_Compare,0x2d 0281 7004 |p | Jump_Nonzero 0x286 0282 0f21 | ! | Execute_Immediate Equal,0x21 0283 7006 |p | Jump_Nonzero 0x28a 0284 e5ff | | Load 0x2,-0x1 0285 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0286 00d1 | | Pop_Control Pop_Count_1 0287 e5ff | | Load 0x2,-0x1 0288 8220 | | Call 0x1,0x20 0289 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 028a e5ff | | Load 0x2,-0x1 028b 8221 | ! | Call 0x1,0x21 028c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 028d e5ff | | Load 0x2,-0x1 028e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 028f TRAP_0258: 028f 0007 | | Action Break_Optional 0290 e5ff | | Load 0x2,-0x1 0291 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0292 0000 0000 | | .BLANK 0000[0x6] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 02b7 | | .CONST 0x02b7 ; Address of begin 0299 0379 | y | .CONST 0x0379 ; Address of exception handler 029a 000d | | .CONST 0x000d ; Number of locals 029b INIT_0298: 029b e012 | | Load 0x0,0x12 029c 02c7 | | Declare_Variable Any 029d 00d8 | | Load_Top At_Offset_0 029e 1c00 | | Execute_Immediate Run_Utility,0x0 029f e013 | | Load 0x0,0x13 02a0 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 02a1 02c7 | | Declare_Variable Any 02a2 e5ff | | Load 0x2,-0x1 02a3 e013 | | Load 0x0,0x13 02a4 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 02a5 e014 | | Load 0x0,0x14 02a6 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 02a7 a403 | | Store_Unchecked 0x2,0x3 02a8 00ec | | Load_Encached Diana_Tree_Cache 02a9 00ec | | Load_Encached Diana_Tree_Cache 02aa 00ec | | Load_Encached Diana_Tree_Cache 02ab 00ec | | Load_Encached Diana_Tree_Cache 02ac 00ec | | Load_Encached Diana_Tree_Cache 02ad 00ec | | Load_Encached Diana_Tree_Cache 02ae 00ec | | Load_Encached Diana_Tree_Cache 02af 00ec | | Load_Encached Diana_Tree_Cache 02b0 0092 04ad | | Action Push_String_Extended,0x4ad ; "Trace_Types" 02b2 8015 | | Call 0x0,0x15 02b3 00e1 | | Load_Encached Boolean_Cache 02b4 03f1 | | Declare_Variable Discrete,With_Value 02b5 029f 048b | | Declare_Subprogram INIT_0488,For_Call 02b7 BODY_0298: 02b7 4800 |H | Short_Literal 0x0 02b8 a5fa | | Store_Unchecked 0x2,-0x6 02b9 00eb | | Load_Encached Diana_Cache 02ba 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02bb a5fd | | Store_Unchecked 0x2,-0x3 02bc 00eb | | Load_Encached Diana_Cache 02bd 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02be a5fc | | Store_Unchecked 0x2,-0x4 02bf 00eb | | Load_Encached Diana_Cache 02c0 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02c1 a5fb | | Store_Unchecked 0x2,-0x5 02c2 e5ff | | Load 0x2,-0x1 02c3 e014 | | Load 0x0,0x14 02c4 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 02c5 e403 | | Load 0x2,0x3 02c6 e013 | | Load 0x0,0x13 02c7 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 02c8 8016 | | Call 0x0,0x16 02c9 c402 | | Store 0x2,0x2 02ca 00d9 | | Load_Top At_Offset_1 02cb 680e |h | Jump_Zero 0x2da 02cc 0092 04ae | | Action Push_String_Extended,0x4ae ; "Type registration: Pc = " 02ce e402 | | Load 0x2,0x2 02cf 8017 | | Call 0x0,0x17 02d0 01cc | | Execute Vector,Catenate 02d1 0092 04af | | Action Push_String_Extended,0x4af ; " frame = " 02d3 01cc | | Execute Vector,Catenate 02d4 e5ff | | Load 0x2,-0x1 02d5 e014 | | Load 0x0,0x14 02d6 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 02d7 01cc | | Execute Vector,Catenate 02d8 800c | | Call 0x0,0xc 02d9 800d | | Call 0x0,0xd 02da e5ff | | Load 0x2,-0x1 02db 821f | | Call 0x1,0x1f 02dc 8018 | | Call 0x0,0x18 02dd a405 | | Store_Unchecked 0x2,0x5 02de e405 | | Load 0x2,0x5 02df 00eb | | Load_Encached Diana_Cache 02e0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02e1 7003 |p | Jump_Nonzero 0x2e5 02e2 e405 | | Load 0x2,0x5 02e3 800a | | Call 0x0,0xa 02e4 6804 |h | Jump_Zero 0x2e9 02e5 0092 04b0 | | Action Push_String_Extended,0x4b0 ; "Null instance" 02e7 e019 | | Load 0x0,0x19 02e8 180f | | Execute Package,Field_Execute,Field_Number 0xf 02e9 e405 | | Load 0x2,0x5 02ea 00eb | | Load_Encached Diana_Cache 02eb 18f8 | | Execute Package,Field_Execute,Field_Number 0xf8 02ec a404 | | Store_Unchecked 0x2,0x4 02ed 00d9 | | Load_Top At_Offset_1 02ee 6811 |h | Jump_Zero 0x300 02ef 0092 04b1 | | Action Push_String_Extended,0x4b1 ; "Type registration: starting diana" 02f1 800c | | Call 0x0,0xc 02f2 800d | | Call 0x0,0xd 02f3 0092 04b2 | | Action Push_String_Extended,0x4b2 ; " Instan_Id = " 02f5 e405 | | Load 0x2,0x5 02f6 821e | | Call 0x1,0x1e 02f7 01cc | | Execute Vector,Catenate 02f8 0092 04b3 | | Action Push_String_Extended,0x4b3 ; " Instan = " 02fa 01cc | | Execute Vector,Catenate 02fb e404 | | Load 0x2,0x4 02fc 821e | | Call 0x1,0x1e 02fd 01cc | | Execute Vector,Catenate 02fe 800c | | Call 0x0,0xc 02ff 800d | | Call 0x0,0xd 0300 0092 04b4 | | Action Push_String_Extended,0x4b4 ; "Diana.Kind (Instan) = " 0302 e404 | | Load 0x2,0x4 0303 821e | | Call 0x1,0x1e 0304 01cc | | Execute Vector,Catenate 0305 e404 | | Load 0x2,0x4 0306 00eb | | Load_Encached Diana_Cache 0307 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0308 0f36 | 6 | Execute_Immediate Equal,0x36 0309 e019 | | Load 0x0,0x19 030a 180e | | Execute Package,Field_Execute,Field_Number 0xe 030b e404 | | Load 0x2,0x4 030c 490a |I | Short_Literal 0x10a 030d 00eb | | Load_Encached Diana_Cache 030e 0096 | | Execute Package,Entry 030f a406 | | Store_Unchecked 0x2,0x6 0310 4801 |H | Short_Literal 0x1 0311 e406 | | Load 0x2,0x6 0312 00eb | | Load_Encached Diana_Cache 0313 1888 | | Execute Package,Field_Execute,Field_Number 0x88 0314 4975 |Iu | Short_Literal 0x175 0315 00eb | | Load_Encached Diana_Cache 0316 0098 | | Execute Package,Field_Read_Dynamic 0317 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0318 a407 | | Store_Unchecked 0x2,0x7 0319 0092 04b5 | | Action Push_String_Extended,0x4b5 ; "Diana.Kind (Instan_Type_Decl) = " 031b e407 | | Load 0x2,0x7 031c 821e | | Call 0x1,0x1e 031d 01cc | | Execute Vector,Catenate 031e e407 | | Load 0x2,0x7 031f 00eb | | Load_Encached Diana_Cache 0320 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0321 0f3c | < | Execute_Immediate Equal,0x3c 0322 e019 | | Load 0x0,0x19 0323 180e | | Execute Package,Field_Execute,Field_Number 0xe 0324 e407 | | Load 0x2,0x7 0325 00eb | | Load_Encached Diana_Cache 0326 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 0327 a408 | | Store_Unchecked 0x2,0x8 0328 840d | | Call 0x2,0xd 0329 e409 | | Load 0x2,0x9 032a a5fc | | Store_Unchecked 0x2,-0x4 032b e01a | | Load 0x0,0x1a 032c e409 | | Load 0x2,0x9 032d e01b | | Load 0x0,0x1b 032e 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 032f a5fd | | Store_Unchecked 0x2,-0x3 0330 e5fd | | Load 0x2,-0x3 0331 e011 | | Load 0x0,0x11 0332 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 0333 6807 |h | Jump_Zero 0x33b 0334 e01a | | Load 0x0,0x1a 0335 e5fd | | Load 0x2,-0x3 0336 e011 | | Load 0x0,0x11 0337 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 0338 e01b | | Load 0x0,0x1b 0339 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 033a a5fd | | Store_Unchecked 0x2,-0x3 033b 00d9 | | Load_Top At_Offset_1 033c 680d |h | Jump_Zero 0x34a 033d 0092 04b6 | | Action Push_String_Extended,0x4b6 ; "Type registration: type spec id: " 033f e408 | | Load 0x2,0x8 0340 821e | | Call 0x1,0x1e 0341 01cc | | Execute Vector,Catenate 0342 0092 04b7 | | Action Push_String_Extended,0x4b7 ; " type spec: " 0344 01cc | | Execute Vector,Catenate 0345 e5fd | | Load 0x2,-0x3 0346 821e | | Call 0x1,0x1e 0347 01cc | | Execute Vector,Catenate 0348 800c | | Call 0x0,0xc 0349 800d | | Call 0x0,0xd 034a e5fe | | Load 0x2,-0x2 034b 6827 |h' | Jump_Zero 0x373 034c 4802 |H | Short_Literal 0x2 034d e406 | | Load 0x2,0x6 034e 00eb | | Load_Encached Diana_Cache 034f 1888 | | Execute Package,Field_Execute,Field_Number 0x88 0350 4975 |Iu | Short_Literal 0x175 0351 00eb | | Load_Encached Diana_Cache 0352 0098 | | Execute Package,Field_Read_Dynamic 0353 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0354 a40a | | Store_Unchecked 0x2,0xa 0355 0092 04b8 | | Action Push_String_Extended,0x4b8 ; "Diana.Kind (Proc_Decl) = " 0357 e40a | | Load 0x2,0xa 0358 821e | | Call 0x1,0x1e 0359 01cc | | Execute Vector,Catenate 035a e40a | | Load 0x2,0xa 035b 00eb | | Load_Encached Diana_Cache 035c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 035d 0f3d | = | Execute_Immediate Equal,0x3d 035e e019 | | Load 0x0,0x19 035f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0360 00db | | Load_Top At_Offset_3 0361 00eb | | Load_Encached Diana_Cache 0362 18bf | | Execute Package,Field_Execute,Field_Number 0xbf 0363 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0364 0092 04b9 | | Action Push_String_Extended,0x4b9 ; "Diana.Kind (Image_Spec) = " 0366 00db | | Load_Top At_Offset_3 0367 821e | | Call 0x1,0x1e 0368 01cc | | Execute Vector,Catenate 0369 00db | | Load_Top At_Offset_3 036a 00eb | | Load_Encached Diana_Cache 036b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 036c 0f21 | ! | Execute_Immediate Equal,0x21 036d e019 | | Load 0x0,0x19 036e 180e | | Execute Package,Field_Execute,Field_Number 0xe 036f 00da | | Load_Top At_Offset_2 0370 8222 | " | Call 0x1,0x22 0371 a5fb | | Store_Unchecked 0x2,-0x5 0372 7803 |x | Jump 0x376 0373 00eb | | Load_Encached Diana_Cache 0374 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0375 a5fb | | Store_Unchecked 0x2,-0x5 0376 4801 |H | Short_Literal 0x1 0377 a5fa | | Store_Unchecked 0x2,-0x6 0378 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0379 TRAP_0298: 0379 0007 | | Action Break_Optional 037a 00da | | Load_Top At_Offset_2 037b 6807 |h | Jump_Zero 0x383 037c 0092 04ba | | Action Push_String_Extended,0x4ba ; "Unhandled exception in generate_type_info: " 037e e01c | | Load 0x0,0x1c 037f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0380 01cc | | Execute Vector,Catenate 0381 800c | | Call 0x0,0xc 0382 800d | | Call 0x0,0xd 0383 4800 |H | Short_Literal 0x0 0384 a5fa | | Store_Unchecked 0x2,-0x6 0385 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0386 0000 0000 | | .XXX[0x2] 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 038b | | .CONST 0x038b ; Address of begin 0389 038f | | .CONST 0x038f ; Address of exception handler 038a 0001 | | .CONST 0x0001 ; Number of locals 038b BODY_0388: 038b INIT_0388: 038b 00da | | Load_Top At_Offset_2 038c e002 | | Load 0x0,0x2 038d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 038e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 038f TRAP_0388: 038f 0007 | | Action Break_Optional 0390 4800 |H | Short_Literal 0x0 0391 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0392 0000 0000 | | .BLANK 0000[0x6] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 03a3 | | .CONST 0x03a3 ; Address of begin 0399 03e1 | | .CONST 0x03e1 ; Address of exception handler 039a 0004 | | .CONST 0x0004 ; Number of locals 039b INIT_0398: 039b e215 | | Load 0x1,0x15 039c 0322 | " | Declare_Variable Record 039d 00d8 | | Load_Top At_Offset_0 039e 1c00 | | Execute_Immediate Run_Utility,0x0 039f 00e1 | | Load_Encached Boolean_Cache 03a0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03a1 00e3 | | Load_Encached Natural_Cache 03a2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03a3 BODY_0398: 03a3 e21d | | Load 0x1,0x1d 03a4 e002 | | Load 0x0,0x2 03a5 1b13 | | Execute Package,Field_Read,Field_Number 0x13 03a6 0260 | ` | Execute Discrete,In_Type 03a7 6807 |h | Jump_Zero 0x3af 03a8 e5fd | | Load 0x2,-0x3 03a9 0092 04bb | | Action Push_String_Extended,0x4bb ; "Too many types registered" 03ab e008 | | Load 0x0,0x8 03ac 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03ad c5fd | | Store 0x2,-0x3 03ae 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03af 00e1 | | Load_Encached Boolean_Cache 03b0 00ec | | Load_Encached Diana_Tree_Cache 03b1 00ec | | Load_Encached Diana_Tree_Cache 03b2 00ec | | Load_Encached Diana_Tree_Cache 03b3 4801 |H | Short_Literal 0x1 03b4 e5ff | | Load 0x2,-0x1 03b5 8223 | # | Call 0x1,0x23 03b6 e402 | | Load 0x2,0x2 03b7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 03b8 e402 | | Load 0x2,0x2 03b9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03ba e402 | | Load 0x2,0x2 03bb 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03bc 005a | Z | Store_Top Discrete,At_Offset_2 03bd e5fe | | Load 0x2,-0x2 03be 00db | | Load_Top At_Offset_3 03bf 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 03c0 00d9 | | Load_Top At_Offset_1 03c1 6819 |h | Jump_Zero 0x3db 03c2 e21d | | Load 0x1,0x1d 03c3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 03c4 e21d | | Load 0x1,0x1d 03c5 0a01 | | Execute_Immediate Plus,0x1 03c6 c21d | | Store 0x1,0x1d 03c7 e21b | | Load 0x1,0x1b 03c8 4800 |H | Short_Literal 0x0 03c9 e402 | | Load 0x2,0x2 03ca 00db | | Load_Top At_Offset_3 03cb e218 | | Load 0x1,0x18 03cc 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03cd c21b | | Store 0x1,0x1b 03ce e21c | | Load 0x1,0x1c 03cf 4800 |H | Short_Literal 0x0 03d0 00da | | Load_Top At_Offset_2 03d1 e402 | | Load 0x2,0x2 03d2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03d3 e21a | | Load 0x1,0x1a 03d4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03d5 c21c | | Store 0x1,0x1c 03d6 e5fd | | Load 0x2,-0x3 03d7 e008 | | Load 0x0,0x8 03d8 181a | | Execute Package,Field_Execute,Field_Number 0x1a 03d9 c5fd | | Store 0x2,-0x3 03da 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03db e5fd | | Load 0x2,-0x3 03dc e214 | | Load 0x1,0x14 03dd e008 | | Load 0x0,0x8 03de 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03df c5fd | | Store 0x2,-0x3 03e0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03e1 TRAP_0398: 03e1 0007 | | Action Break_Optional 03e2 e5fd | | Load 0x2,-0x3 03e3 0092 04bc | | Action Push_String_Extended,0x4bc ; "Unhandled exception: " 03e5 e01c | | Load 0x0,0x1c 03e6 180d | | Execute Package,Field_Execute,Field_Number 0xd 03e7 01cc | | Execute Vector,Catenate 03e8 e008 | | Load 0x0,0x8 03e9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03ea c5fd | | Store 0x2,-0x3 03eb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03ec 0000 0000 | | .BLANK 0000[0x4] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03fa | | .CONST 0x03fa ; Address of begin 03f1 0424 | $ | .CONST 0x0424 ; Address of exception handler 03f2 0006 | | .CONST 0x0006 ; Number of locals 03f3 INIT_03f0: 03f3 00ec | | Load_Encached Diana_Tree_Cache 03f4 00ec | | Load_Encached Diana_Tree_Cache 03f5 00ec | | Load_Encached Diana_Tree_Cache 03f6 00e1 | | Load_Encached Boolean_Cache 03f7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03f8 00e3 | | Load_Encached Natural_Cache 03f9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03fa BODY_03f0: 03fa 00e1 | | Load_Encached Boolean_Cache 03fb 00ec | | Load_Encached Diana_Tree_Cache 03fc 00ec | | Load_Encached Diana_Tree_Cache 03fd 00ec | | Load_Encached Diana_Tree_Cache 03fe 4800 |H | Short_Literal 0x0 03ff e5ff | | Load 0x2,-0x1 0400 8223 | # | Call 0x1,0x23 0401 c402 | | Store 0x2,0x2 0402 c403 | | Store 0x2,0x3 0403 c404 | | Store 0x2,0x4 0404 005a | Z | Store_Top Discrete,At_Offset_2 0405 00d9 | | Load_Top At_Offset_1 0406 6818 |h | Jump_Zero 0x41f 0407 00e1 | | Load_Encached Boolean_Cache 0408 00d9 | | Load_Top At_Offset_1 0409 e402 | | Load 0x2,0x2 040a e21c | | Load 0x1,0x1c 040b e21a | | Load 0x1,0x1a 040c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 040d 005a | Z | Store_Top Discrete,At_Offset_2 040e 005a | Z | Store_Top Discrete,At_Offset_2 040f 00d9 | | Load_Top At_Offset_1 0410 680e |h | Jump_Zero 0x41f 0411 e21b | | Load 0x1,0x1b 0412 4800 |H | Short_Literal 0x0 0413 e216 | | Load 0x1,0x16 0414 00db | | Load_Top At_Offset_3 0415 e218 | | Load 0x1,0x18 0416 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0417 c21b | | Store 0x1,0x1b 0418 e21c | | Load 0x1,0x1c 0419 4800 |H | Short_Literal 0x0 041a 4800 |H | Short_Literal 0x0 041b e402 | | Load 0x2,0x2 041c e21a | | Load 0x1,0x1a 041d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 041e c21c | | Store 0x1,0x1c 041f e5fe | | Load 0x2,-0x2 0420 e008 | | Load 0x0,0x8 0421 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0422 c5fe | | Store 0x2,-0x2 0423 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0424 TRAP_03f0: 0424 0007 | | Action Break_Optional 0425 e5fe | | Load 0x2,-0x2 0426 0092 04bd | | Action Push_String_Extended,0x4bd ; "Unregister exception: " 0428 e01c | | Load 0x0,0x1c 0429 180d | | Execute Package,Field_Execute,Field_Number 0xd 042a 01cc | | Execute Vector,Catenate 042b e008 | | Load 0x0,0x8 042c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 042d c5fe | | Store 0x2,-0x2 042e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 042f 0000 | | .XXX[0x1] 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 0433 | 3 | .CONST 0x0433 ; Address of begin 0431 0004 | | .CONST 0x0004 ; Address of exception handler 0432 0001 | | .CONST 0x0001 ; Number of locals 0433 BODY_0430: 0433 INIT_0430: 0433 0092 04be | | Action Push_String_Extended,0x4be ; " Type: " 0435 4801 |H | Short_Literal 0x1 0436 4800 |H | Short_Literal 0x0 0437 e01a | | Load 0x0,0x1a 0438 e5ff | | Load 0x2,-0x1 0439 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 043a e01b | | Load 0x0,0x1b 043b 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 043c 01cc | | Execute Vector,Catenate 043d 800c | | Call 0x0,0xc 043e 800d | | Call 0x0,0xd 043f 0092 04bf | | Action Push_String_Extended,0x4bf ; " Function: " 0441 4801 |H | Short_Literal 0x1 0442 4800 |H | Short_Literal 0x0 0443 e01a | | Load 0x0,0x1a 0444 e5ff | | Load 0x2,-0x1 0445 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0446 e01b | | Load 0x0,0x1b 0447 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 0448 01cc | | Execute Vector,Catenate 0449 800c | | Call 0x0,0xc 044a 800d | | Call 0x0,0xd 044b 00db | | Load_Top At_Offset_3 044c 7004 |p | Jump_Nonzero 0x451 044d 0092 04c0 | | Action Push_String_Extended,0x4c0 ; " *** This procedure is inactive" 044f 800c | | Call 0x0,0xc 0450 800d | | Call 0x0,0xd 0451 e5fd | | Load 0x2,-0x3 0452 680d |h | Jump_Zero 0x460 0453 0092 04c1 | | Action Push_String_Extended,0x4c1 ; " Execution key: " 0455 4800 |H | Short_Literal 0x0 0456 4800 |H | Short_Literal 0x0 0457 e5ff | | Load 0x2,-0x1 0458 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0459 e002 | | Load 0x0,0x2 045a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 045b e014 | | Load 0x0,0x14 045c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 045d 01cc | | Execute Vector,Catenate 045e 800c | | Call 0x0,0xc 045f 800d | | Call 0x0,0xd 0460 800d | | Call 0x0,0xd 0461 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0462 0000 0000 | | .BLANK 0000[0x6] 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 046c | l | .CONST 0x046c ; Address of begin 0469 0004 | | .CONST 0x0004 ; Address of exception handler 046a 0002 | | .CONST 0x0002 ; Number of locals 046b INIT_0468: 046b 00e1 | | Load_Encached Boolean_Cache 046c BODY_0468: 046c e002 | | Load 0x0,0x2 046d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 046e 00e1 | | Load_Encached Boolean_Cache 046f e5ff | | Load 0x2,-0x1 0470 e002 | | Load 0x0,0x2 0471 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0472 005a | Z | Store_Top Discrete,At_Offset_2 0473 c5fc | | Store 0x2,-0x4 0474 00d8 | | Load_Top At_Offset_0 0475 6805 |h | Jump_Zero 0x47b 0476 4801 |H | Short_Literal 0x1 0477 a5fe | | Store_Unchecked 0x2,-0x2 0478 4801 |H | Short_Literal 0x1 0479 a5fd | | Store_Unchecked 0x2,-0x3 047a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 047b 4800 |H | Short_Literal 0x0 047c a5fe | | Store_Unchecked 0x2,-0x2 047d 4800 |H | Short_Literal 0x0 047e a5fd | | Store_Unchecked 0x2,-0x3 047f 4800 |H | Short_Literal 0x0 0480 a5fc | | Store_Unchecked 0x2,-0x4 0481 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0482 0000 0000 | | .BLANK 0000[0x6] 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 048d | | .CONST 0x048d ; Address of begin 0489 04a3 | | .CONST 0x04a3 ; Address of exception handler 048a 0003 | | .CONST 0x0003 ; Number of locals 048b INIT_0488: 048b 00ec | | Load_Encached Diana_Tree_Cache 048c 00ec | | Load_Encached Diana_Tree_Cache 048d BODY_0488: 048d e407 | | Load 0x2,0x7 048e 00eb | | Load_Encached Diana_Cache 048f 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9 0490 00eb | | Load_Encached Diana_Cache 0491 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0492 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0493 00d9 | | Load_Top At_Offset_1 0494 00eb | | Load_Encached Diana_Cache 0495 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0496 0f12 | | Execute_Immediate Equal,0x12 0497 6803 |h | Jump_Zero 0x49b 0498 00d9 | | Load_Top At_Offset_1 0499 8010 | | Call 0x0,0x10 049a 0032 | 2 | Store_Top Heap_Access,At_Offset_2 049b 00d9 | | Load_Top At_Offset_1 049c e01b | | Load 0x0,0x1b 049d 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 049e 0031 | 1 | Store_Top Heap_Access,At_Offset_1 049f 00d8 | | Load_Top At_Offset_0 04a0 8222 | " | Call 0x1,0x22 04a1 a409 | | Store_Unchecked 0x2,0x9 04a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04a3 TRAP_0488: 04a3 0007 | | Action Break_Optional 04a4 e408 | | Load 0x2,0x8 04a5 8222 | " | Call 0x1,0x22 04a6 a409 | | Store_Unchecked 0x2,0x9 04a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; STRING TABLE 04a8 ; -------------------------------------------------------------------------------------- 04a8 0036 | 6 | .STRTAB 0x0036->0x04c3 ; "Problem determining type information" 04a9 0058 | X | .STRTAB 0x0058->0x04d5 ; "Type register failure: " 04aa 006d | m | .STRTAB 0x006d->0x04e0 ; "Special type un_register failure: " 04ab 008d | | .STRTAB 0x008d->0x04f1 ; "Special types for display:" 04ac 00a5 | | .STRTAB 0x00a5->0x04fe ; "nil" 04ad 00a6 | | .STRTAB 0x00a6->0x0500 ; "Trace_Types" 04ae 00af | | .STRTAB 0x00af->0x0505 ; "Type registration: Pc = " 04af 00c5 | | .STRTAB 0x00c5->0x0511 ; " frame = " 04b0 00cc | | .STRTAB 0x00cc->0x0516 ; "Null instance" 04b1 00d7 | | .STRTAB 0x00d7->0x051c ; "Type registration: starting diana" 04b2 00f6 | | .STRTAB 0x00f6->0x052d ; " Instan_Id = " 04b3 0102 | | .STRTAB 0x0102->0x0534 ; " Instan = " 04b4 010a | | .STRTAB 0x010a->0x0539 ; "Diana.Kind (Instan) = " 04b5 011e | | .STRTAB 0x011e->0x0544 ; "Diana.Kind (Instan_Type_Decl) = " 04b6 013c | < | .STRTAB 0x013c->0x0554 ; "Type registration: type spec id: " 04b7 015b | [ | .STRTAB 0x015b->0x0564 ; " type spec: " 04b8 0165 | e | .STRTAB 0x0165->0x056a ; "Diana.Kind (Proc_Decl) = " 04b9 017c | | | .STRTAB 0x017c->0x0577 ; "Diana.Kind (Image_Spec) = " 04ba 0194 | | .STRTAB 0x0194->0x0584 ; "Unhandled exception in generate_type_info: " 04bb 01bd | | .STRTAB 0x01bd->0x0599 ; "Too many types registered" 04bc 01d4 | | .STRTAB 0x01d4->0x05a6 ; "Unhandled exception: " 04bd 01e7 | | .STRTAB 0x01e7->0x05b0 ; "Unregister exception: " 04be 01fb | | .STRTAB 0x01fb->0x05bb ; " Type: " 04bf 0205 | | .STRTAB 0x0205->0x05c1 ; " Function: " 04c0 020f | | .STRTAB 0x020f->0x05c7 ; " *** This procedure is inactive" 04c1 022d | - | .STRTAB 0x022d->0x05d7 ; " Execution key: " 04c2 023c | < | .STREND 0x023c->0x05e0 04c3 5072 6f62 |Prob| .STRTAB_STRINGS 05e0 ; -------------------------------------------------------------------------------------- 05e0 ; Debug Table 05e0 ; -------------------------------------------------------------------------------------- 05e0 0004 0009 | | .DEBUG4 0x0004,0x0009,0x1663,0x0000,0x0001,0x0000 05e6 0000 0000 | | .BLANK 0000[0x1a]