|
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: 4096 (0x1000) 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 0780 | | .CONST 0x0780 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0055 | U | .CONST 0x0055 ; Address of begin 0009 00b9 | | .CONST 0x00b9 ; Address of exception handler 000a 0019 | | .CONST 0x0019 ; Number of locals 000b INIT_0008: 000b e282 | | Load 0x1,0x82 000c 0322 | " | Declare_Variable Record 000d 00d8 | | Load_Top At_Offset_0 000e 1c00 | | Execute_Immediate Run_Utility,0x0 000f 00db | | Load_Top At_Offset_3 0010 e001 | | Load 0x0,0x1 0011 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0012 e27d | } | Load 0x1,0x7d 0013 0092 05a3 | | Action Push_String_Extended,0x5a3 ; "." 0015 01cc | | Execute Vector,Catenate 0016 00d9 | | Load_Top At_Offset_1 0017 01cc | | Execute Vector,Catenate 0018 0092 05a4 | | Action Push_String_Extended,0x5a4 ; ".LRM" 001a 01cc | | Execute Vector,Catenate 001b 0007 | | Action Break_Optional 001c 0092 05a5 | | Action Push_String_Extended,0x5a5 ; "*" 001e 00da | | Load_Top At_Offset_2 001f 01cc | | Execute Vector,Catenate 0020 0092 05a6 | | Action Push_String_Extended,0x5a6 ; "_STANDARD*" 0022 01cc | | Execute Vector,Catenate 0023 0007 | | Action Break_Optional 0024 e012 | | Load 0x0,0x12 0025 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0026 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 0027 02c7 | | Declare_Variable Any 0028 e5ff | | Load 0x2,-0x1 0029 e016 | | Load 0x0,0x16 002a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 002b a406 | | Store_Unchecked 0x2,0x6 002c 00e1 | | Load_Encached Boolean_Cache 002d 00ec | | Load_Encached Diana_Tree_Cache 002e 02c7 | | Declare_Variable Any 002f 00d8 | | Load_Top At_Offset_0 0030 1c00 | | Execute_Immediate Run_Utility,0x0 0031 00ec | | Load_Encached Diana_Tree_Cache 0032 02c7 | | Declare_Variable Any 0033 00d8 | | Load_Top At_Offset_0 0034 1c00 | | Execute_Immediate Run_Utility,0x0 0035 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call 0037 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 0039 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call 003b 029f 012b | +| Declare_Subprogram INIT_0128,For_Call 003d 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call 003f 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 0041 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 0043 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call 0045 029f 027b | {| Declare_Subprogram INIT_0278,For_Call 0047 029f 028b | | Declare_Subprogram INIT_0288,For_Call 0049 029f 02db | | Declare_Subprogram INIT_02d8,For_Call 004b 029f 0313 | | Declare_Subprogram INIT_0310,For_Call 004d 029f 0373 | s| Declare_Subprogram INIT_0370,For_Call 004f 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call 0051 029f 03fb | | Declare_Subprogram INIT_03f8,For_Call 0053 029f 044b | K| Declare_Subprogram INIT_0448,For_Call 0055 BODY_0008: 0055 00e1 | | Load_Encached Boolean_Cache 0056 e402 | | Load 0x2,0x2 0057 e5ff | | Load 0x2,-0x1 0058 e286 | | Load 0x1,0x86 0059 e285 | | Load 0x1,0x85 005a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 005b 00d1 | | Pop_Control Pop_Count_1 005c c407 | | Store 0x2,0x7 005d e407 | | Load 0x2,0x7 005e 7006 |p | Jump_Nonzero 0x65 005f 4801 |H | Short_Literal 0x1 0060 e402 | | Load 0x2,0x2 0061 e5ff | | Load 0x2,-0x1 0062 e286 | | Load 0x1,0x86 0063 e285 | | Load 0x1,0x85 0064 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0065 e5fd | | Load 0x2,-0x3 0066 680a |h | Jump_Zero 0x71 0067 e403 | | Load 0x2,0x3 0068 e27f | | Load 0x1,0x7f 0069 03b6 | | Declare_Variable Access,By_Allocation,With_Value 006a e402 | | Load 0x2,0x2 006b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 006c e405 | | Load 0x2,0x5 006d e27f | | Load 0x1,0x7f 006e 03b6 | | Declare_Variable Access,By_Allocation,With_Value 006f e402 | | Load 0x2,0x2 0070 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0071 e5fc | | Load 0x2,-0x4 0072 6803 |h | Jump_Zero 0x76 0073 840c | | Call 0x2,0xc 0074 e402 | | Load 0x2,0x2 0075 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0076 e5fe | | Load 0x2,-0x2 0077 6801 |h | Jump_Zero 0x79 0078 8418 | | Call 0x2,0x18 0079 e5fb | | Load 0x2,-0x5 007a 6832 |h2 | Jump_Zero 0xad 007b 00cf | | Action Mark_Auxiliary 007c e27b | { | Load 0x1,0x7b 007d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007e 0265 | e | Execute Discrete,Reverse_Bounds 007f 0007 | | Action Break_Optional 0080 00d8 | | Load_Top At_Offset_0 0081 e27b | { | Load 0x1,0x7b 0082 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0083 011c | | Execute Any,Convert_Unchecked 0084 1c01 | | Execute_Immediate Run_Utility,0x1 0085 840d | | Call 0x2,0xd 0086 00d9 | | Load_Top At_Offset_1 0087 e402 | | Load 0x2,0x2 0088 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0089 01d6 | | Execute Vector,Field_Write 008a 00d8 | | Load_Top At_Offset_0 008b e402 | | Load 0x2,0x2 008c 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 008d 01d7 | | Execute Vector,Field_Read 008e 8417 | | Call 0x2,0x17 008f 00d9 | | Load_Top At_Offset_1 0090 e402 | | Load 0x2,0x2 0091 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7 0092 01d6 | | Execute Vector,Field_Write 0093 00c8 | | Action Pop_Auxiliary_Range 0094 3feb |? | Loop_Increasing 0x80 0095 00ce | | Action Pop_Auxiliary 0096 4800 |H | Short_Literal 0x0 0097 e402 | | Load 0x2,0x2 0098 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0099 01d7 | | Execute Vector,Field_Read 009a 840e | | Call 0x2,0xe 009b c409 | | Store 0x2,0x9 009c 4800 |H | Short_Literal 0x0 009d 4801 |H | Short_Literal 0x1 009e e409 | | Load 0x2,0x9 009f 0092 05a7 | | Action Push_String_Extended,0x5a7 ; "NAME" 00a1 8411 | | Call 0x2,0x11 00a2 e402 | | Load 0x2,0x2 00a3 380a |8 | Execute Record,Field_Write,Field_Number 0xa 00a4 4800 |H | Short_Literal 0x0 00a5 4800 |H | Short_Literal 0x0 00a6 e409 | | Load 0x2,0x9 00a7 0092 05a8 | | Action Push_String_Extended,0x5a8 ; "ADDRESS" 00a9 8411 | | Call 0x2,0x11 00aa e402 | | Load 0x2,0x2 00ab 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 00ac 8419 | | Call 0x2,0x19 00ad 4800 |H | Short_Literal 0x0 00ae e402 | | Load 0x2,0x2 00af e5ff | | Load 0x2,-0x1 00b0 e286 | | Load 0x1,0x86 00b1 e285 | | Load 0x1,0x85 00b2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00b3 e5fb | | Load 0x2,-0x5 00b4 6803 |h | Jump_Zero 0xb8 00b5 e5ff | | Load 0x2,-0x1 00b6 e015 | | Load 0x0,0x15 00b7 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00b8 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00b9 TRAP_0008: 00b9 0007 | | Action Break_Optional 00ba 0092 05a9 | | Action Push_String_Extended,0x5a9 ; "Unhandled exception in semantic initialization: " 00bc 4800 |H | Short_Literal 0x0 00bd 4801 |H | Short_Literal 0x1 00be e017 | | Load 0x0,0x17 00bf 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00c0 01cc | | Execute Vector,Catenate 00c1 e018 | | Load 0x0,0x18 00c2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00c3 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00c4 0000 0000 | | .BLANK 0000[0x4] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cd | | .CONST 0x00cd ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0002 | | .CONST 0x0002 ; Number of locals 00cb INIT_00c8: 00cb 029f 0503 | | Declare_Subprogram INIT_0500,For_Call 00cd BODY_00c8: 00cd 8602 | | Call 0x3,0x2 00ce 4887 |H | Short_Literal 0x87 00cf 0257 | W | Execute Discrete,Raise 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 00dc | | .CONST 0x00dc ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 0092 05aa | | Action Push_String_Extended,0x5aa ; "RCI COMPILER WARNING: " 00d5 00db | | Load_Top At_Offset_3 00d6 01cc | | Execute Vector,Catenate 00d7 e018 | | Load 0x0,0x18 00d8 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 00d9 e018 | | Load 0x0,0x18 00da 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 00db 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00dc TRAP_00d0: 00dc 0007 | | Action Break_Optional 00dd 00db | | Load_Top At_Offset_3 00de 4801 |H | Short_Literal 0x1 00df 0092 05ab | | Action Push_String_Extended,0x5ab ; "Inconsistency registering target " 00e1 e403 | | Load 0x2,0x3 00e2 01cc | | Execute Vector,Catenate 00e3 e019 | | Load 0x0,0x19 00e4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00e5 0092 05ac | | Action Push_String_Extended,0x5ac ; "Rci" 00e7 e019 | | Load 0x0,0x19 00e8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ea 0000 0000 | | .BLANK 0000[0x6] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00fb | | .CONST 0x00fb ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0003 | | .CONST 0x0003 ; Number of locals 00f3 INIT_00f0: 00f3 e006 | | Load 0x0,0x6 00f4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00f5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00f6 e006 | | Load 0x0,0x6 00f7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00f8 02c7 | | Declare_Variable Any 00f9 00d8 | | Load_Top At_Offset_0 00fa 1c00 | | Execute_Immediate Run_Utility,0x0 00fb BODY_00f0: 00fb e006 | | Load 0x0,0x6 00fc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00fe 00d9 | | Load_Top At_Offset_1 00ff 0120 | | Execute Any,Is_Value 0100 6803 |h | Jump_Zero 0x104 0101 e006 | | Load 0x0,0x6 0102 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0103 7801 |x | Jump 0x105 0104 00d9 | | Load_Top At_Offset_1 0105 601a |` | Indirect_Literal Discrete,0x120,{0x00000000, 0x00004000} 0106 e01a | | Load 0x0,0x1a 0107 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0108 e010 | | Load 0x0,0x10 0109 1811 | | Execute Package,Field_Execute,Field_Number 0x11 010a e006 | | Load 0x0,0x6 010b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 010c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 010d e404 | | Load 0x2,0x4 010e e006 | | Load 0x0,0x6 010f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0110 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0111 c603 | | Store 0x3,0x3 0112 005a | Z | Store_Top Discrete,At_Offset_2 0113 00d9 | | Load_Top At_Offset_1 0114 7002 |p | Jump_Nonzero 0x117 0115 00d8 | | Load_Top At_Offset_0 0116 00ca | | Action Exit_Nullary_Function 0117 0092 05ad | | Action Push_String_Extended,0x5ad ; "Could not find LRM library for target " 0119 e403 | | Load 0x2,0x3 011a 01cc | | Execute Vector,Catenate 011b 840b | | Call 0x2,0xb 011c e006 | | Load 0x0,0x6 011d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 011e 00ca | | Action Exit_Nullary_Function 011f 0000 | | .XXX[0x1] 0120 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0124 0000 0000 | | .BLANK 0000[0x4] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 013f | ? | .CONST 0x013f ; Address of begin 0129 018e | | .CONST 0x018e ; Address of exception handler 012a 0006 | | .CONST 0x0006 ; Number of locals 012b INIT_0128: 012b e006 | | Load 0x0,0x6 012c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 012d 02c7 | | Declare_Variable Any 012e 00d8 | | Load_Top At_Offset_0 012f 1c00 | | Execute_Immediate Run_Utility,0x0 0130 e006 | | Load 0x0,0x6 0131 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0132 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0133 e006 | | Load 0x0,0x6 0134 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0135 00ec | | Load_Encached Diana_Tree_Cache 0136 02c7 | | Declare_Variable Any 0137 00d8 | | Load_Top At_Offset_0 0138 1c00 | | Execute_Immediate Run_Utility,0x0 0139 e006 | | Load 0x0,0x6 013a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 013b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 013c 02c7 | | Declare_Variable Any 013d 00d8 | | Load_Top At_Offset_0 013e 1c00 | | Execute_Immediate Run_Utility,0x0 013f BODY_0128: 013f e006 | | Load 0x0,0x6 0140 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0141 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0142 e602 | | Load 0x3,0x2 0143 0120 | | Execute Any,Is_Value 0144 6803 |h | Jump_Zero 0x148 0145 e006 | | Load 0x0,0x6 0146 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0147 7801 |x | Jump 0x149 0148 e602 | | Load 0x3,0x2 0149 67d6 |g | Indirect_Literal Discrete,0x120,{0x00000000, 0x00004000} 014a e01a | | Load 0x0,0x1a 014b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 014c e010 | | Load 0x0,0x10 014d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 014e e006 | | Load 0x0,0x6 014f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0150 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0151 482e |H. | Short_Literal 0x2e 0152 e404 | | Load 0x2,0x4 0153 01cb | | Execute Vector,Append 0154 e7ff | | Load 0x3,-0x1 0155 01cc | | Execute Vector,Catenate 0156 e006 | | Load 0x0,0x6 0157 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0158 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0159 c602 | | Store 0x3,0x2 015a c603 | | Store 0x3,0x3 015b 00db | | Load_Top At_Offset_3 015c 7025 |p% | Jump_Nonzero 0x182 015d e006 | | Load 0x0,0x6 015e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015f 00d9 | | Load_Top At_Offset_1 0160 0120 | | Execute Any,Is_Value 0161 6804 |h | Jump_Zero 0x166 0162 e006 | | Load 0x0,0x6 0163 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0164 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0165 7801 |x | Jump 0x167 0166 00d9 | | Load_Top At_Offset_1 0167 00db | | Load_Top At_Offset_3 0168 0120 | | Execute Any,Is_Value 0169 6804 |h | Jump_Zero 0x16e 016a e006 | | Load 0x0,0x6 016b 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 016c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 016d 7801 |x | Jump 0x16f 016e 00db | | Load_Top At_Offset_3 016f 67b0 |g | Indirect_Literal Discrete,0x120,{0x00000000, 0x00004000} 0170 4801 |H | Short_Literal 0x1 0171 4800 |H | Short_Literal 0x0 0172 4800 |H | Short_Literal 0x0 0173 e01a | | Load 0x0,0x1a 0174 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0175 4800 |H | Short_Literal 0x0 0176 e602 | | Load 0x3,0x2 0177 e006 | | Load 0x0,0x6 0178 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0179 1811 | | Execute Package,Field_Execute,Field_Number 0x11 017a e006 | | Load 0x0,0x6 017b 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 017c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 017d c605 | | Store 0x3,0x5 017e c606 | | Store 0x3,0x6 017f 005b | [ | Store_Top Discrete,At_Offset_3 0180 00d9 | | Load_Top At_Offset_1 0181 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0182 0092 05ae | | Action Push_String_Extended,0x5ae ; "Could not resolve " 0184 e7ff | | Load 0x3,-0x1 0185 01cc | | Execute Vector,Catenate 0186 0092 05af | | Action Push_String_Extended,0x5af ; " for " 0188 01cc | | Execute Vector,Catenate 0189 e403 | | Load 0x2,0x3 018a 01cc | | Execute Vector,Catenate 018b 840b | | Call 0x2,0xb 018c 00ec | | Load_Encached Diana_Tree_Cache 018d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018e TRAP_0128: 018e 0007 | | Action Break_Optional 018f 0092 05b0 | | Action Push_String_Extended,0x5b0 ; "Unhandled exception seeking " 0191 e7ff | | Load 0x3,-0x1 0192 01cc | | Execute Vector,Catenate 0193 0092 05af | | Action Push_String_Extended,0x5af ; " for " 0195 01cc | | Execute Vector,Catenate 0196 e403 | | Load 0x2,0x3 0197 01cc | | Execute Vector,Catenate 0198 0092 05b1 | | Action Push_String_Extended,0x5b1 ; ": " 019a 01cc | | Execute Vector,Catenate 019b 4800 |H | Short_Literal 0x0 019c 4801 |H | Short_Literal 0x1 019d e017 | | Load 0x0,0x17 019e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 019f 01cc | | Execute Vector,Catenate 01a0 840b | | Call 0x2,0xb 01a1 00ec | | Load_Encached Diana_Tree_Cache 01a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a3 0000 0000 | | .BLANK 0000[0x5] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 01b3 | | .CONST 0x01b3 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 00da | | Load_Top At_Offset_2 01ac 00eb | | Load_Encached Diana_Cache 01ad 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9 01ae 00eb | | Load_Encached Diana_Cache 01af 18d8 | | Execute Package,Field_Execute,Field_Number 0xd8 01b0 00eb | | Load_Encached Diana_Cache 01b1 18bd | | Execute Package,Field_Execute,Field_Number 0xbd 01b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b3 TRAP_01a8: 01b3 0007 | | Action Break_Optional 01b4 0092 05b2 | | Action Push_String_Extended,0x5b2 ; "Unhandled exception finding decls for a package: " 01b6 4800 |H | Short_Literal 0x0 01b7 4801 |H | Short_Literal 0x1 01b8 e017 | | Load 0x0,0x17 01b9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01ba 01cc | | Execute Vector,Catenate 01bb 840b | | Call 0x2,0xb 01bc 00ec | | Load_Encached Diana_Tree_Cache 01bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01be 0000 0000 | | .XXX[0x2] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01ce | | .CONST 0x01ce ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0002 | | .CONST 0x0002 ; Number of locals 01c3 INIT_01c0: 01c3 00ef | | Load_Encached Diana_Sequence_Cache 01c4 02c7 | | Declare_Variable Any 01c5 00db | | Load_Top At_Offset_3 01c6 00eb | | Load_Encached Diana_Cache 01c7 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01c8 e7fe | | Load 0x3,-0x2 01c9 4972 |Ir | Short_Literal 0x172 01ca 00eb | | Load_Encached Diana_Cache 01cb 0098 | | Execute Package,Field_Read_Dynamic 01cc 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01cd a602 | | Store_Unchecked 0x3,0x2 01ce BODY_01c0: 01ce 00d8 | | Load_Top At_Offset_0 01cf 7019 |p | Jump_Nonzero 0x1e9 01d0 e7fd | | Load 0x3,-0x3 01d1 680b |h | Jump_Zero 0x1dd 01d2 0092 05b3 | | Action Push_String_Extended,0x5b3 ; "Unable to find type " 01d4 e7ff | | Load 0x3,-0x1 01d5 01cc | | Execute Vector,Catenate 01d6 0092 05b4 | | Action Push_String_Extended,0x5b4 ; " for target " 01d8 01cc | | Execute Vector,Catenate 01d9 e403 | | Load 0x2,0x3 01da 01cc | | Execute Vector,Catenate 01db 840a | | Call 0x2,0xa 01dc 780c |x | Jump 0x1e9 01dd 0092 05b3 | | Action Push_String_Extended,0x5b3 ; "Unable to find type " 01df e7ff | | Load 0x3,-0x1 01e0 01cc | | Execute Vector,Catenate 01e1 0092 05b4 | | Action Push_String_Extended,0x5b4 ; " for target " 01e3 01cc | | Execute Vector,Catenate 01e4 e403 | | Load 0x2,0x3 01e5 01cc | | Execute Vector,Catenate 01e6 840b | | Call 0x2,0xb 01e7 00ec | | Load_Encached Diana_Tree_Cache 01e8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01e9 00d8 | | Load_Top At_Offset_0 01ea 00eb | | Load_Encached Diana_Cache 01eb 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 01ec 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01ed 0000 0000 | | .XXX[0x3] 01ef 0000 | | 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01fa | | .CONST 0x01fa ; Address of begin 01f1 01ff | | .CONST 0x01ff ; Address of exception handler 01f2 0002 | | .CONST 0x0002 ; Number of locals 01f3 INIT_01f0: 01f3 00ec | | Load_Encached Diana_Tree_Cache 01f4 02c7 | | Declare_Variable Any 01f5 e7fd | | Load 0x3,-0x3 01f6 e7fe | | Load 0x3,-0x2 01f7 e7ff | | Load 0x3,-0x1 01f8 840f | | Call 0x2,0xf 01f9 a602 | | Store_Unchecked 0x3,0x2 01fa BODY_01f0: 01fa 00d8 | | Load_Top At_Offset_0 01fb 4901 |I | Short_Literal 0x101 01fc 00eb | | Load_Encached Diana_Cache 01fd 0096 | | Execute Package,Entry 01fe 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01ff TRAP_01f0: 01ff 0007 | | Action Break_Optional 0200 e7fd | | Load 0x3,-0x3 0201 680b |h | Jump_Zero 0x20d 0202 0092 05b5 | | Action Push_String_Extended,0x5b5 ; "Unable to get object id for " 0204 e7ff | | Load 0x3,-0x1 0205 01cc | | Execute Vector,Catenate 0206 0092 05b4 | | Action Push_String_Extended,0x5b4 ; " for target " 0208 01cc | | Execute Vector,Catenate 0209 e403 | | Load 0x2,0x3 020a 01cc | | Execute Vector,Catenate 020b 840a | | Call 0x2,0xa 020c 780c |x | Jump 0x219 020d 0092 05b5 | | Action Push_String_Extended,0x5b5 ; "Unable to get object id for " 020f e7ff | | Load 0x3,-0x1 0210 01cc | | Execute Vector,Catenate 0211 0092 05b4 | | Action Push_String_Extended,0x5b4 ; " for target " 0213 01cc | | Execute Vector,Catenate 0214 e403 | | Load 0x2,0x3 0215 01cc | | Execute Vector,Catenate 0216 840b | | Call 0x2,0xb 0217 00ec | | Load_Encached Diana_Tree_Cache 0218 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0219 0831 | 1 | Execute_Immediate Raise,0x31 021a 0000 0000 | | .BLANK 0000[0x6] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 022e | . | .CONST 0x022e ; Address of begin 0221 025a | Z | .CONST 0x025a ; Address of exception handler 0222 0002 | | .CONST 0x0002 ; Number of locals 0223 INIT_0220: 0223 00ef | | Load_Encached Diana_Sequence_Cache 0224 02c7 | | Declare_Variable Any 0225 00db | | Load_Top At_Offset_3 0226 00eb | | Load_Encached Diana_Cache 0227 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0228 e7fe | | Load 0x3,-0x2 0229 4972 |Ir | Short_Literal 0x172 022a 00eb | | Load_Encached Diana_Cache 022b 0098 | | Execute Package,Field_Read_Dynamic 022c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 022d a602 | | Store_Unchecked 0x3,0x2 022e BODY_0220: 022e 00d8 | | Load_Top At_Offset_0 022f 7019 |p | Jump_Nonzero 0x249 0230 e7fc | | Load 0x3,-0x4 0231 680b |h | Jump_Zero 0x23d 0232 0092 05b3 | | Action Push_String_Extended,0x5b3 ; "Unable to find type " 0234 e7ff | | Load 0x3,-0x1 0235 01cc | | Execute Vector,Catenate 0236 0092 05b4 | | Action Push_String_Extended,0x5b4 ; " for target " 0238 01cc | | Execute Vector,Catenate 0239 e403 | | Load 0x2,0x3 023a 01cc | | Execute Vector,Catenate 023b 840a | | Call 0x2,0xa 023c 780c |x | Jump 0x249 023d 0092 05b3 | | Action Push_String_Extended,0x5b3 ; "Unable to find type " 023f e7ff | | Load 0x3,-0x1 0240 01cc | | Execute Vector,Catenate 0241 0092 05b4 | | Action Push_String_Extended,0x5b4 ; " for target " 0243 01cc | | Execute Vector,Catenate 0244 e403 | | Load 0x2,0x3 0245 01cc | | Execute Vector,Catenate 0246 840b | | Call 0x2,0xb 0247 00ec | | Load_Encached Diana_Tree_Cache 0248 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0249 e7fd | | Load 0x3,-0x3 024a 6807 |h | Jump_Zero 0x252 024b 00d8 | | Load_Top At_Offset_0 024c 00eb | | Load_Encached Diana_Cache 024d 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 024e 4907 |I | Short_Literal 0x107 024f 00eb | | Load_Encached Diana_Cache 0250 0096 | | Execute Package,Entry 0251 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0252 00d8 | | Load_Top At_Offset_0 0253 00eb | | Load_Encached Diana_Cache 0254 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0255 00eb | | Load_Encached Diana_Cache 0256 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0257 00eb | | Load_Encached Diana_Cache 0258 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8 0259 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 025a TRAP_0220: 025a 0007 | | Action Break_Optional 025b e7fc | | Load 0x3,-0x4 025c 680b |h | Jump_Zero 0x268 025d 0092 05b6 | | Action Push_String_Extended,0x5b6 ; "Unable to get type spec for " 025f e7ff | | Load 0x3,-0x1 0260 01cc | | Execute Vector,Catenate 0261 0092 05b4 | | Action Push_String_Extended,0x5b4 ; " for target " 0263 01cc | | Execute Vector,Catenate 0264 e403 | | Load 0x2,0x3 0265 01cc | | Execute Vector,Catenate 0266 840a | | Call 0x2,0xa 0267 780c |x | Jump 0x274 0268 0092 05b6 | | Action Push_String_Extended,0x5b6 ; "Unable to get type spec for " 026a e7ff | | Load 0x3,-0x1 026b 01cc | | Execute Vector,Catenate 026c 0092 05b4 | | Action Push_String_Extended,0x5b4 ; " for target " 026e 01cc | | Execute Vector,Catenate 026f e403 | | Load 0x2,0x3 0270 01cc | | Execute Vector,Catenate 0271 840b | | Call 0x2,0xb 0272 00ec | | Load_Encached Diana_Tree_Cache 0273 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0274 0831 | 1 | Execute_Immediate Raise,0x31 0275 0000 0000 | | .XXX[0x3] 0277 0000 | | 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b e7fc | | Load 0x3,-0x4 027c e7fd | | Load 0x3,-0x3 027d e7fe | | Load 0x3,-0x2 027e e7ff | | Load 0x3,-0x1 027f e01b | | Load 0x0,0x1b 0280 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0281 8411 | | Call 0x2,0x11 0282 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0283 0000 0000 | | .BLANK 0000[0x5] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028f | | .CONST 0x028f ; Address of begin 0289 02bc | | .CONST 0x02bc ; Address of exception handler 028a 0002 | | .CONST 0x0002 ; Number of locals 028b INIT_0288: 028b 00ec | | Load_Encached Diana_Tree_Cache 028c 02c7 | | Declare_Variable Any 028d 00d8 | | Load_Top At_Offset_0 028e 1c00 | | Execute_Immediate Run_Utility,0x0 028f BODY_0288: 028f 00db | | Load_Top At_Offset_3 0290 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0291 0f6f | o | Execute_Immediate Equal,0x6f 0292 681b |h | Jump_Zero 0x2ae 0293 00db | | Load_Top At_Offset_3 0294 00eb | | Load_Encached Diana_Cache 0295 18dc | | Execute Package,Field_Execute,Field_Number 0xdc 0296 c602 | | Store 0x3,0x2 0297 00d8 | | Load_Top At_Offset_0 0298 00eb | | Load_Encached Diana_Cache 0299 18c6 | | Execute Package,Field_Execute,Field_Number 0xc6 029a 00eb | | Load_Encached Diana_Cache 029b 18af | | Execute Package,Field_Execute,Field_Number 0xaf 029c e7fe | | Load 0x3,-0x2 029d e012 | | Load 0x0,0x12 029e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 029f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02a0 012f | / | Execute Any,Equal 02a1 680c |h | Jump_Zero 0x2ae 02a2 00d8 | | Load_Top At_Offset_0 02a3 00eb | | Load_Encached Diana_Cache 02a4 18c7 | | Execute Package,Field_Execute,Field_Number 0xc7 02a5 00eb | | Load_Encached Diana_Cache 02a6 18af | | Execute Package,Field_Execute,Field_Number 0xaf 02a7 e7fe | | Load 0x3,-0x2 02a8 e012 | | Load 0x0,0x12 02a9 1b13 | | Execute Package,Field_Read,Field_Number 0x13 02aa 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02ab 012f | / | Execute Any,Equal 02ac 6801 |h | Jump_Zero 0x2ae 02ad 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02ae 0092 05b7 | | Action Push_String_Extended,0x5b7 ; "Type " 02b0 e7fe | | Load 0x3,-0x2 02b1 e012 | | Load 0x0,0x12 02b2 1b13 | | Execute Package,Field_Read,Field_Number 0x13 02b3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02b4 01cc | | Execute Vector,Catenate 02b5 0092 05b8 | | Action Push_String_Extended,0x5b8 ; " is corrupt in the standard tree for " 02b7 01cc | | Execute Vector,Catenate 02b8 e403 | | Load 0x2,0x3 02b9 01cc | | Execute Vector,Catenate 02ba 840a | | Call 0x2,0xa 02bb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02bc TRAP_0288: 02bc 0007 | | Action Break_Optional 02bd 0092 05b9 | | Action Push_String_Extended,0x5b9 ; "Unhandled exception while checking integer type " 02bf e7fe | | Load 0x3,-0x2 02c0 e012 | | Load 0x0,0x12 02c1 1b13 | | Execute Package,Field_Read,Field_Number 0x13 02c2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02c3 01cc | | Execute Vector,Catenate 02c4 0092 05b4 | | Action Push_String_Extended,0x5b4 ; " for target " 02c6 01cc | | Execute Vector,Catenate 02c7 e403 | | Load 0x2,0x3 02c8 01cc | | Execute Vector,Catenate 02c9 0092 05b1 | | Action Push_String_Extended,0x5b1 ; ": " 02cb 01cc | | Execute Vector,Catenate 02cc 4800 |H | Short_Literal 0x0 02cd 4801 |H | Short_Literal 0x1 02ce e017 | | Load 0x0,0x17 02cf 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02d0 01cc | | Execute Vector,Catenate 02d1 840b | | Call 0x2,0xb 02d2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02d3 0000 0000 | | .BLANK 0000[0x5] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02e1 | | .CONST 0x02e1 ; Address of begin 02d9 02f4 | | .CONST 0x02f4 ; Address of exception handler 02da 0003 | | .CONST 0x0003 ; Number of locals 02db INIT_02d8: 02db 00ec | | Load_Encached Diana_Tree_Cache 02dc 02c7 | | Declare_Variable Any 02dd 00d8 | | Load_Top At_Offset_0 02de 1c00 | | Execute_Immediate Run_Utility,0x0 02df 029f 0523 | #| Declare_Subprogram INIT_0520,For_Call 02e1 BODY_02d8: 02e1 e7ff | | Load 0x3,-0x1 02e2 0145 | E | Execute Heap_Access,Diana_Tree_Kind 02e3 0f65 | e | Execute_Immediate Equal,0x65 02e4 6801 |h | Jump_Zero 0x2e6 02e5 8603 | | Call 0x3,0x3 02e6 0092 05b7 | | Action Push_String_Extended,0x5b7 ; "Type " 02e8 e7fe | | Load 0x3,-0x2 02e9 e012 | | Load 0x0,0x12 02ea 1b13 | | Execute Package,Field_Read,Field_Number 0x13 02eb 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02ec 01cc | | Execute Vector,Catenate 02ed 0092 05b8 | | Action Push_String_Extended,0x5b8 ; " is corrupt in the standard tree for " 02ef 01cc | | Execute Vector,Catenate 02f0 e403 | | Load 0x2,0x3 02f1 01cc | | Execute Vector,Catenate 02f2 840b | | Call 0x2,0xb 02f3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02f4 TRAP_02d8: 02f4 0007 | | Action Break_Optional 02f5 0092 05ba | | Action Push_String_Extended,0x5ba ; "Unhandled exception while checking float type " 02f7 e7fe | | Load 0x3,-0x2 02f8 e012 | | Load 0x0,0x12 02f9 1b13 | | Execute Package,Field_Read,Field_Number 0x13 02fa 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02fb 01cc | | Execute Vector,Catenate 02fc 0092 05b4 | | Action Push_String_Extended,0x5b4 ; " for target " 02fe 01cc | | Execute Vector,Catenate 02ff e403 | | Load 0x2,0x3 0300 01cc | | Execute Vector,Catenate 0301 0092 05b1 | | Action Push_String_Extended,0x5b1 ; ": " 0303 01cc | | Execute Vector,Catenate 0304 4800 |H | Short_Literal 0x0 0305 4801 |H | Short_Literal 0x1 0306 e017 | | Load 0x0,0x17 0307 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0308 01cc | | Execute Vector,Catenate 0309 840b | | Call 0x2,0xb 030a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 030b 0000 0000 | | .BLANK 0000[0x5] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0317 | | .CONST 0x0317 ; Address of begin 0311 0355 | U | .CONST 0x0355 ; Address of exception handler 0312 0002 | | .CONST 0x0002 ; Number of locals 0313 INIT_0310: 0313 00ec | | Load_Encached Diana_Tree_Cache 0314 02c7 | | Declare_Variable Any 0315 00d8 | | Load_Top At_Offset_0 0316 1c00 | | Execute_Immediate Run_Utility,0x0 0317 BODY_0310: 0317 00db | | Load_Top At_Offset_3 0318 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0319 0f64 | d | Execute_Immediate Equal,0x64 031a 682c |h, | Jump_Zero 0x347 031b 00db | | Load_Top At_Offset_3 031c 00eb | | Load_Encached Diana_Cache 031d 18dd | | Execute Package,Field_Execute,Field_Number 0xdd 031e c602 | | Store 0x3,0x2 031f e7fe | | Load 0x3,-0x2 0320 e012 | | Load 0x0,0x12 0321 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0322 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0323 00d9 | | Load_Top At_Offset_1 0324 00eb | | Load_Encached Diana_Cache 0325 18c6 | | Execute Package,Field_Execute,Field_Number 0xc6 0326 00eb | | Load_Encached Diana_Cache 0327 18b1 | | Execute Package,Field_Execute,Field_Number 0xb1 0328 e007 | | Load 0x0,0x7 0329 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 032a 681c |h | Jump_Zero 0x347 032b e7fe | | Load 0x3,-0x2 032c e012 | | Load 0x0,0x12 032d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 032e 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 032f 00d9 | | Load_Top At_Offset_1 0330 00eb | | Load_Encached Diana_Cache 0331 18c7 | | Execute Package,Field_Execute,Field_Number 0xc7 0332 00eb | | Load_Encached Diana_Cache 0333 18b1 | | Execute Package,Field_Execute,Field_Number 0xb1 0334 e007 | | Load 0x0,0x7 0335 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0336 6810 |h | Jump_Zero 0x347 0337 00db | | Load_Top At_Offset_3 0338 00eb | | Load_Encached Diana_Cache 0339 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 033a 00eb | | Load_Encached Diana_Cache 033b 18b1 | | Execute Package,Field_Execute,Field_Number 0xb1 033c e007 | | Load 0x0,0x7 033d 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 033e 582d |X- | Indirect_Literal Float,0x36c,2.0 033f e7fe | | Load 0x3,-0x2 0340 e012 | | Load 0x0,0x12 0341 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0342 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0343 0239 | 9 | Execute Float,Exponentiate 0344 0247 | G | Execute Float,Equal 0345 6801 |h | Jump_Zero 0x347 0346 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0347 0092 05b7 | | Action Push_String_Extended,0x5b7 ; "Type " 0349 e7fe | | Load 0x3,-0x2 034a e012 | | Load 0x0,0x12 034b 1b13 | | Execute Package,Field_Read,Field_Number 0x13 034c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 034d 01cc | | Execute Vector,Catenate 034e 0092 05b8 | | Action Push_String_Extended,0x5b8 ; " is corrupt in the standard tree for " 0350 01cc | | Execute Vector,Catenate 0351 e403 | | Load 0x2,0x3 0352 01cc | | Execute Vector,Catenate 0353 840b | | Call 0x2,0xb 0354 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0355 TRAP_0310: 0355 0007 | | Action Break_Optional 0356 0092 05bb | | Action Push_String_Extended,0x5bb ; "Unhandled exception while checking fixed type " 0358 e7fe | | Load 0x3,-0x2 0359 e012 | | Load 0x0,0x12 035a 1b13 | | Execute Package,Field_Read,Field_Number 0x13 035b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 035c 01cc | | Execute Vector,Catenate 035d 0092 05b4 | | Action Push_String_Extended,0x5b4 ; " for target " 035f 01cc | | Execute Vector,Catenate 0360 e403 | | Load 0x2,0x3 0361 01cc | | Execute Vector,Catenate 0362 0092 05b1 | | Action Push_String_Extended,0x5b1 ; ": " 0364 01cc | | Execute Vector,Catenate 0365 4800 |H | Short_Literal 0x0 0366 4801 |H | Short_Literal 0x1 0367 e017 | | Load 0x0,0x17 0368 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0369 01cc | | Execute Vector,Catenate 036a 840b | | Call 0x2,0xb 036b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 036c 4000 0000 |@ | .DBL 2.0 036e 0000 0000 | | 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0395 | | .CONST 0x0395 ; Address of begin 0371 03d9 | | .CONST 0x03d9 ; Address of exception handler 0372 0008 | | .CONST 0x0008 ; Number of locals 0373 INIT_0370: 0373 e007 | | Load 0x0,0x7 0374 190f | | Execute Package,Field_Reference,Field_Number 0xf 0375 0007 | | Action Break_Optional 0376 e406 | | Load 0x2,0x6 0377 e012 | | Load 0x0,0x12 0378 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0379 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 037a e406 | | Load 0x2,0x6 037b e012 | | Load 0x0,0x12 037c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 037d 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 037e e406 | | Load 0x2,0x6 037f e012 | | Load 0x0,0x12 0380 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0381 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0382 e012 | | Load 0x0,0x12 0383 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0384 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0385 011e | | Execute Any,Convert 0386 e402 | | Load 0x2,0x2 0387 3c16 |< | Execute Record,Field_Read,Field_Number 0x16 0388 0227 | ' | Execute Access,All_Reference 0389 0007 | | Action Break_Optional 038a e402 | | Load 0x2,0x2 038b 3c17 |< | Execute Record,Field_Read,Field_Number 0x17 038c 0227 | ' | Execute Access,All_Reference 038d 0007 | | Action Break_Optional 038e 00ec | | Load_Encached Diana_Tree_Cache 038f 02c7 | | Declare_Variable Any 0390 4806 |H | Short_Literal 0x6 0391 e402 | | Load 0x2,0x2 0392 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8 0393 01d7 | | Execute Vector,Field_Read 0394 a608 | | Store_Unchecked 0x3,0x8 0395 BODY_0370: 0395 00cf | | Action Mark_Auxiliary 0396 e603 | | Load 0x3,0x3 0397 01d9 | | Execute Vector,Reverse_Bounds 0398 0263 | c | Execute Discrete,Above_Bound 0399 7016 |p | Jump_Nonzero 0x3b0 039a 4801 |H | Short_Literal 0x1 039b 4801 |H | Short_Literal 0x1 039c e408 | | Load 0x2,0x8 039d 00db | | Load_Top At_Offset_3 039e e603 | | Load 0x3,0x3 039f 01d7 | | Execute Vector,Field_Read 03a0 e012 | | Load 0x0,0x12 03a1 1b13 | | Execute Package,Field_Read,Field_Number 0x13 03a2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03a3 8411 | | Call 0x2,0x11 03a4 00d9 | | Load_Top At_Offset_1 03a5 e606 | | Load 0x3,0x6 03a6 01d6 | | Execute Vector,Field_Write 03a7 00d8 | | Load_Top At_Offset_0 03a8 e603 | | Load 0x3,0x3 03a9 01d7 | | Execute Vector,Field_Read 03aa 00d9 | | Load_Top At_Offset_1 03ab e606 | | Load 0x3,0x6 03ac 01d7 | | Execute Vector,Field_Read 03ad 8413 | | Call 0x2,0x13 03ae 00c8 | | Action Pop_Auxiliary_Range 03af 3fea |? | Loop_Increasing 0x39a 03b0 00c9 | | Action Pop_Auxiliary_Loop 03b1 e604 | | Load 0x3,0x4 03b2 01d9 | | Execute Vector,Reverse_Bounds 03b3 0263 | c | Execute Discrete,Above_Bound 03b4 7016 |p | Jump_Nonzero 0x3cb 03b5 4800 |H | Short_Literal 0x0 03b6 4801 |H | Short_Literal 0x1 03b7 e408 | | Load 0x2,0x8 03b8 00db | | Load_Top At_Offset_3 03b9 e604 | | Load 0x3,0x4 03ba 01d7 | | Execute Vector,Field_Read 03bb e012 | | Load 0x0,0x12 03bc 1b13 | | Execute Package,Field_Read,Field_Number 0x13 03bd 1819 | | Execute Package,Field_Execute,Field_Number 0x19 03be 8411 | | Call 0x2,0x11 03bf 00d9 | | Load_Top At_Offset_1 03c0 e607 | | Load 0x3,0x7 03c1 01d6 | | Execute Vector,Field_Write 03c2 00d8 | | Load_Top At_Offset_0 03c3 e604 | | Load 0x3,0x4 03c4 01d7 | | Execute Vector,Field_Read 03c5 00d9 | | Load_Top At_Offset_1 03c6 e607 | | Load 0x3,0x7 03c7 01d7 | | Execute Vector,Field_Read 03c8 8414 | | Call 0x2,0x14 03c9 00c8 | | Action Pop_Auxiliary_Range 03ca 3fea |? | Loop_Increasing 0x3b5 03cb 00ce | | Action Pop_Auxiliary 03cc 4801 |H | Short_Literal 0x1 03cd 4801 |H | Short_Literal 0x1 03ce e408 | | Load 0x2,0x8 03cf e605 | | Load 0x3,0x5 03d0 e012 | | Load 0x0,0x12 03d1 1b13 | | Execute Package,Field_Read,Field_Number 0x13 03d2 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 03d3 8411 | | Call 0x2,0x11 03d4 c608 | | Store 0x3,0x8 03d5 00db | | Load_Top At_Offset_3 03d6 00d9 | | Load_Top At_Offset_1 03d7 8415 | | Call 0x2,0x15 03d8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03d9 TRAP_0370: 03d9 0007 | | Action Break_Optional 03da 0092 05bc | | Action Push_String_Extended,0x5bc ; "Unhandled exception while checking predefined types for target " 03dc e403 | | Load 0x2,0x3 03dd 01cc | | Execute Vector,Catenate 03de 0092 05b1 | | Action Push_String_Extended,0x5b1 ; ": " 03e0 01cc | | Execute Vector,Catenate 03e1 4800 |H | Short_Literal 0x0 03e2 4801 |H | Short_Literal 0x1 03e3 e017 | | Load 0x0,0x17 03e4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03e5 01cc | | Execute Vector,Catenate 03e6 840b | | Call 0x2,0xb 03e7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03eb | | .CONST 0x03eb ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0001 | | .CONST 0x0001 ; Number of locals 03eb BODY_03e8: 03eb INIT_03e8: 03eb 00da | | Load_Top At_Offset_2 03ec 7002 |p | Jump_Nonzero 0x3ef 03ed 00da | | Load_Top At_Offset_2 03ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ef 00da | | Load_Top At_Offset_2 03f0 4976 |Iv | Short_Literal 0x176 03f1 00eb | | Load_Encached Diana_Cache 03f2 0098 | | Execute Package,Field_Read_Dynamic 03f3 180f | | Execute Package,Field_Execute,Field_Number 0xf 03f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03f5 0000 0000 | | .XXX[0x3] 03f7 0000 | | 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 03fb | | .CONST 0x03fb ; Address of begin 03f9 043a | : | .CONST 0x043a ; Address of exception handler 03fa 0001 | | .CONST 0x0001 ; Number of locals 03fb BODY_03f8: 03fb INIT_03f8: 03fb e402 | | Load 0x2,0x2 03fc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 03fd 0227 | ' | Execute Access,All_Reference 03fe e402 | | Load 0x2,0x2 03ff 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0400 8287 | | Call 0x1,0x87 0401 e402 | | Load 0x2,0x2 0402 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0403 e402 | | Load 0x2,0x2 0404 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0405 8417 | | Call 0x2,0x17 0406 e402 | | Load 0x2,0x2 0407 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0408 e402 | | Load 0x2,0x2 0409 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 040a 840e | | Call 0x2,0xe 040b c408 | | Store 0x2,0x8 040c e406 | | Load 0x2,0x6 040d e012 | | Load 0x0,0x12 040e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 040f 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0410 01da | | Execute Vector,Bounds 0411 e27c | | | Load 0x1,0x7c 0412 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 0413 00d8 | | Load_Top At_Offset_0 0414 0227 | ' | Execute Access,All_Reference 0415 1c00 | | Execute_Immediate Run_Utility,0x0 0416 e402 | | Load 0x2,0x2 0417 3816 |8 | Execute Record,Field_Write,Field_Number 0x16 0418 e406 | | Load 0x2,0x6 0419 e012 | | Load 0x0,0x12 041a 1b13 | | Execute Package,Field_Read,Field_Number 0x13 041b 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 041c 01da | | Execute Vector,Bounds 041d e27c | | | Load 0x1,0x7c 041e 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 041f 00d8 | | Load_Top At_Offset_0 0420 0227 | ' | Execute Access,All_Reference 0421 1c00 | | Execute_Immediate Run_Utility,0x0 0422 e402 | | Load 0x2,0x2 0423 3817 |8 | Execute Record,Field_Write,Field_Number 0x17 0424 8416 | | Call 0x2,0x16 0425 00cf | | Action Mark_Auxiliary 0426 e27b | { | Load 0x1,0x7b 0427 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0428 0265 | e | Execute Discrete,Reverse_Bounds 0429 0007 | | Action Break_Optional 042a 4801 |H | Short_Literal 0x1 042b 4801 |H | Short_Literal 0x1 042c e408 | | Load 0x2,0x8 042d 00db | | Load_Top At_Offset_3 042e e27b | { | Load 0x1,0x7b 042f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0430 011c | | Execute Any,Convert_Unchecked 0431 1c01 | | Execute_Immediate Run_Utility,0x1 0432 8411 | | Call 0x2,0x11 0433 00d9 | | Load_Top At_Offset_1 0434 e402 | | Load 0x2,0x2 0435 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8 0436 01d6 | | Execute Vector,Field_Write 0437 00c8 | | Action Pop_Auxiliary_Range 0438 3ff1 |? | Loop_Increasing 0x42a 0439 4501 |E | Exit_Suprogram New_Top_Offset 0x1 043a TRAP_03f8: 043a 0007 | | Action Break_Optional 043b 0092 05bd | | Action Push_String_Extended,0x5bd ; "Unhandled exception initializing tree caches: " 043d 4800 |H | Short_Literal 0x0 043e 4801 |H | Short_Literal 0x1 043f e017 | | Load 0x0,0x17 0440 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0441 01cc | | Execute Vector,Catenate 0442 840b | | Call 0x2,0xb 0443 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0444 0000 0000 | | .BLANK 0000[0x4] 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 049c | | .CONST 0x049c ; Address of begin 0449 04f4 | | .CONST 0x04f4 ; Address of exception handler 044a 000b | | .CONST 0x000b ; Number of locals 044b INIT_0448: 044b 00ec | | Load_Encached Diana_Tree_Cache 044c 02c7 | | Declare_Variable Any 044d 4800 |H | Short_Literal 0x0 044e e409 | | Load 0x2,0x9 044f 0092 05be | | Action Push_String_Extended,0x5be ; "SYSTEM_NAME" 0451 8410 | | Call 0x2,0x10 0452 a602 | | Store_Unchecked 0x3,0x2 0453 00ec | | Load_Encached Diana_Tree_Cache 0454 02c7 | | Declare_Variable Any 0455 4800 |H | Short_Literal 0x0 0456 e409 | | Load 0x2,0x9 0457 0092 05bf | | Action Push_String_Extended,0x5bf ; "STORAGE_UNIT" 0459 8410 | | Call 0x2,0x10 045a a603 | | Store_Unchecked 0x3,0x3 045b 00ec | | Load_Encached Diana_Tree_Cache 045c 02c7 | | Declare_Variable Any 045d 4800 |H | Short_Literal 0x0 045e e409 | | Load 0x2,0x9 045f 0092 05c0 | | Action Push_String_Extended,0x5c0 ; "MEMORY_SIZE" 0461 8410 | | Call 0x2,0x10 0462 a604 | | Store_Unchecked 0x3,0x4 0463 00ec | | Load_Encached Diana_Tree_Cache 0464 02c7 | | Declare_Variable Any 0465 4800 |H | Short_Literal 0x0 0466 e409 | | Load 0x2,0x9 0467 0092 05c1 | | Action Push_String_Extended,0x5c1 ; "MIN_INT" 0469 8410 | | Call 0x2,0x10 046a a605 | | Store_Unchecked 0x3,0x5 046b 00ec | | Load_Encached Diana_Tree_Cache 046c 02c7 | | Declare_Variable Any 046d 4800 |H | Short_Literal 0x0 046e e409 | | Load 0x2,0x9 046f 0092 05c2 | | Action Push_String_Extended,0x5c2 ; "MAX_INT" 0471 8410 | | Call 0x2,0x10 0472 a606 | | Store_Unchecked 0x3,0x6 0473 00ec | | Load_Encached Diana_Tree_Cache 0474 02c7 | | Declare_Variable Any 0475 4800 |H | Short_Literal 0x0 0476 e409 | | Load 0x2,0x9 0477 0092 05c3 | | Action Push_String_Extended,0x5c3 ; "MAX_DIGITS" 0479 8410 | | Call 0x2,0x10 047a a607 | | Store_Unchecked 0x3,0x7 047b 00ec | | Load_Encached Diana_Tree_Cache 047c 02c7 | | Declare_Variable Any 047d 4800 |H | Short_Literal 0x0 047e e409 | | Load 0x2,0x9 047f 0092 05c4 | | Action Push_String_Extended,0x5c4 ; "MAX_MANTISSA" 0481 8410 | | Call 0x2,0x10 0482 a608 | | Store_Unchecked 0x3,0x8 0483 00ec | | Load_Encached Diana_Tree_Cache 0484 02c7 | | Declare_Variable Any 0485 4800 |H | Short_Literal 0x0 0486 e409 | | Load 0x2,0x9 0487 0092 05c5 | | Action Push_String_Extended,0x5c5 ; "FINE_DELTA" 0489 8410 | | Call 0x2,0x10 048a a609 | | Store_Unchecked 0x3,0x9 048b 00ec | | Load_Encached Diana_Tree_Cache 048c 02c7 | | Declare_Variable Any 048d 4800 |H | Short_Literal 0x0 048e e409 | | Load 0x2,0x9 048f 0092 05c6 | | Action Push_String_Extended,0x5c6 ; "TICK" 0491 8410 | | Call 0x2,0x10 0492 a60a | | Store_Unchecked 0x3,0xa 0493 00ec | | Load_Encached Diana_Tree_Cache 0494 02c7 | | Declare_Variable Any 0495 4800 |H | Short_Literal 0x0 0496 4801 |H | Short_Literal 0x1 0497 e409 | | Load 0x2,0x9 0498 0092 05c7 | | Action Push_String_Extended,0x5c7 ; "PRIORITY" 049a 8411 | | Call 0x2,0x11 049b a60b | | Store_Unchecked 0x3,0xb 049c BODY_0448: 049c e602 | | Load 0x3,0x2 049d 00eb | | Load_Encached Diana_Cache 049e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 049f 00eb | | Load_Encached Diana_Cache 04a0 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 04a1 e27f | | Load 0x1,0x7f 04a2 03b6 | | Declare_Variable Access,By_Allocation,With_Value 04a3 e402 | | Load 0x2,0x2 04a4 380b |8 | Execute Record,Field_Write,Field_Number 0xb 04a5 e603 | | Load 0x3,0x3 04a6 00eb | | Load_Encached Diana_Cache 04a7 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 04a8 00eb | | Load_Encached Diana_Cache 04a9 189f | | Execute Package,Field_Execute,Field_Number 0x9f 04aa e402 | | Load 0x2,0x2 04ab 380c |8 | Execute Record,Field_Write,Field_Number 0xc 04ac e604 | | Load 0x3,0x4 04ad 00eb | | Load_Encached Diana_Cache 04ae 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 04af 00eb | | Load_Encached Diana_Cache 04b0 189f | | Execute Package,Field_Execute,Field_Number 0x9f 04b1 e402 | | Load 0x2,0x2 04b2 380d |8 | Execute Record,Field_Write,Field_Number 0xd 04b3 e605 | | Load 0x3,0x5 04b4 00eb | | Load_Encached Diana_Cache 04b5 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 04b6 00eb | | Load_Encached Diana_Cache 04b7 189f | | Execute Package,Field_Execute,Field_Number 0x9f 04b8 e402 | | Load 0x2,0x2 04b9 380e |8 | Execute Record,Field_Write,Field_Number 0xe 04ba e606 | | Load 0x3,0x6 04bb 00eb | | Load_Encached Diana_Cache 04bc 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 04bd 00eb | | Load_Encached Diana_Cache 04be 189f | | Execute Package,Field_Execute,Field_Number 0x9f 04bf e402 | | Load 0x2,0x2 04c0 380f |8 | Execute Record,Field_Write,Field_Number 0xf 04c1 e607 | | Load 0x3,0x7 04c2 00eb | | Load_Encached Diana_Cache 04c3 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 04c4 00eb | | Load_Encached Diana_Cache 04c5 189f | | Execute Package,Field_Execute,Field_Number 0x9f 04c6 e402 | | Load 0x2,0x2 04c7 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 04c8 00db | | Load_Top At_Offset_3 04c9 00eb | | Load_Encached Diana_Cache 04ca 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 04cb 00eb | | Load_Encached Diana_Cache 04cc 189f | | Execute Package,Field_Execute,Field_Number 0x9f 04cd e402 | | Load 0x2,0x2 04ce 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 04cf 00da | | Load_Top At_Offset_2 04d0 00eb | | Load_Encached Diana_Cache 04d1 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 04d2 00eb | | Load_Encached Diana_Cache 04d3 18a0 | | Execute Package,Field_Execute,Field_Number 0xa0 04d4 e402 | | Load 0x2,0x2 04d5 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 04d6 00d9 | | Load_Top At_Offset_1 04d7 00eb | | Load_Encached Diana_Cache 04d8 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 04d9 00eb | | Load_Encached Diana_Cache 04da 18a0 | | Execute Package,Field_Execute,Field_Number 0xa0 04db e402 | | Load 0x2,0x2 04dc 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 04dd 00d8 | | Load_Top At_Offset_0 04de 00eb | | Load_Encached Diana_Cache 04df 18f9 | | Execute Package,Field_Execute,Field_Number 0xf9 04e0 00eb | | Load_Encached Diana_Cache 04e1 18c6 | | Execute Package,Field_Execute,Field_Number 0xc6 04e2 00eb | | Load_Encached Diana_Cache 04e3 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 04e4 00eb | | Load_Encached Diana_Cache 04e5 189f | | Execute Package,Field_Execute,Field_Number 0x9f 04e6 e402 | | Load 0x2,0x2 04e7 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 04e8 00d8 | | Load_Top At_Offset_0 04e9 00eb | | Load_Encached Diana_Cache 04ea 18f9 | | Execute Package,Field_Execute,Field_Number 0xf9 04eb 00eb | | Load_Encached Diana_Cache 04ec 18c7 | | Execute Package,Field_Execute,Field_Number 0xc7 04ed 00eb | | Load_Encached Diana_Cache 04ee 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 04ef 00eb | | Load_Encached Diana_Cache 04f0 189f | | Execute Package,Field_Execute,Field_Number 0x9f 04f1 e402 | | Load 0x2,0x2 04f2 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 04f3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04f4 TRAP_0448: 04f4 0007 | | Action Break_Optional 04f5 0092 05c8 | | Action Push_String_Extended,0x5c8 ; "Unhandled exception while initializing system types: " 04f7 4800 |H | Short_Literal 0x0 04f8 4801 |H | Short_Literal 0x1 04f9 e017 | | Load 0x0,0x17 04fa 1815 | | Execute Package,Field_Execute,Field_Number 0x15 04fb 01cc | | Execute Vector,Catenate 04fc 840b | | Call 0x2,0xb 04fd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04fe 0000 0000 | | .XXX[0x2] 0500 ; -------------------------------------------------------------------------------------- 0500 ; SUBPROGRAM 0500 ; -------------------------------------------------------------------------------------- 0500 0503 | | .CONST 0x0503 ; Address of begin 0501 050c | | .CONST 0x050c ; Address of exception handler 0502 0001 | | .CONST 0x0001 ; Number of locals 0503 BODY_0500: 0503 INIT_0500: 0503 0092 05c9 | | Action Push_String_Extended,0x5c9 ; "RCI COMPILER FATAL ERROR: " 0505 e7ff | | Load 0x3,-0x1 0506 01cc | | Execute Vector,Catenate 0507 e018 | | Load 0x0,0x18 0508 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0509 e018 | | Load 0x0,0x18 050a 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 050b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 050c TRAP_0500: 050c 0007 | | Action Break_Optional 050d e7ff | | Load 0x3,-0x1 050e 4802 |H | Short_Literal 0x2 050f 0092 05ca | | Action Push_String_Extended,0x5ca ; "FATAL error registering target " 0511 e403 | | Load 0x2,0x3 0512 01cc | | Execute Vector,Catenate 0513 e019 | | Load 0x0,0x19 0514 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0515 0092 05cb | | Action Push_String_Extended,0x5cb ; "RCI" 0517 e019 | | Load 0x0,0x19 0518 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0519 4501 |E | Exit_Suprogram New_Top_Offset 0x1 051a 0000 0000 | | .BLANK 0000[0x6] 0520 ; -------------------------------------------------------------------------------------- 0520 ; SUBPROGRAM 0520 ; -------------------------------------------------------------------------------------- 0520 0533 | 3 | .CONST 0x0533 ; Address of begin 0521 0004 | | .CONST 0x0004 ; Address of exception handler 0522 0008 | | .CONST 0x0008 ; Number of locals 0523 INIT_0520: 0523 e007 | | Load 0x0,0x7 0524 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0525 02c7 | | Declare_Variable Any 0526 00d8 | | Load_Top At_Offset_0 0527 1c00 | | Execute_Immediate Run_Utility,0x0 0528 e007 | | Load 0x0,0x7 0529 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 052a 02c7 | | Declare_Variable Any 052b 00d8 | | Load_Top At_Offset_0 052c 1c00 | | Execute_Immediate Run_Utility,0x0 052d 00e2 | | Load_Encached Integer_Cache 052e 00e1 | | Load_Encached Boolean_Cache 052f 00e1 | | Load_Encached Boolean_Cache 0530 00e1 | | Load_Encached Boolean_Cache 0531 029f 056b | k| Declare_Subprogram INIT_0568,For_Call 0533 BODY_0520: 0533 e7ff | | Load 0x3,-0x1 0534 00eb | | Load_Encached Diana_Cache 0535 18dd | | Execute Package,Field_Execute,Field_Number 0xdd 0536 c602 | | Store 0x3,0x2 0537 e602 | | Load 0x3,0x2 0538 00eb | | Load_Encached Diana_Cache 0539 18c6 | | Execute Package,Field_Execute,Field_Number 0xc6 053a 00eb | | Load_Encached Diana_Cache 053b 18b1 | | Execute Package,Field_Execute,Field_Number 0xb1 053c c802 | | Store 0x4,0x2 053d e602 | | Load 0x3,0x2 053e 00eb | | Load_Encached Diana_Cache 053f 18c7 | | Execute Package,Field_Execute,Field_Number 0xc7 0540 00eb | | Load_Encached Diana_Cache 0541 18b1 | | Execute Package,Field_Execute,Field_Number 0xb1 0542 c803 | | Store 0x4,0x3 0543 e7ff | | Load 0x3,-0x1 0544 00eb | | Load_Encached Diana_Cache 0545 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 0546 00eb | | Load_Encached Diana_Cache 0547 18af | | Execute Package,Field_Execute,Field_Number 0xaf 0548 a804 | | Store_Unchecked 0x4,0x4 0549 e7fe | | Load 0x3,-0x2 054a e012 | | Load 0x0,0x12 054b 1b13 | | Execute Package,Field_Read,Field_Number 0x13 054c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 054d e802 | | Load 0x4,0x2 054e e007 | | Load 0x0,0x7 054f 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0550 a805 | | Store_Unchecked 0x4,0x5 0551 e7fe | | Load 0x3,-0x2 0552 e012 | | Load 0x0,0x12 0553 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0554 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0555 e803 | | Load 0x4,0x3 0556 e007 | | Load 0x0,0x7 0557 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0558 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0559 e804 | | Load 0x4,0x4 055a e7fe | | Load 0x3,-0x2 055b e012 | | Load 0x0,0x12 055c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 055d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 055e 027f | | Execute Discrete,Equal 055f 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0560 8808 | | Call 0x4,0x8 0561 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0562 0000 0000 | | .BLANK 0000[0x6] 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 0599 | | .CONST 0x0599 ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 000a | | .CONST 0x000a ; Number of locals 056b INIT_0568: 056b e803 | | Load 0x4,0x3 056c e007 | | Load 0x0,0x7 056d 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 056e e7fe | | Load 0x3,-0x2 056f e012 | | Load 0x0,0x12 0570 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0571 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0572 e007 | | Load 0x0,0x7 0573 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0574 e803 | | Load 0x4,0x3 0575 e007 | | Load 0x0,0x7 0576 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0577 e7fe | | Load 0x3,-0x2 0578 e012 | | Load 0x0,0x12 0579 1b13 | | Execute Package,Field_Read,Field_Number 0x13 057a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 057b e007 | | Load 0x0,0x7 057c 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 057d e803 | | Load 0x4,0x3 057e e007 | | Load 0x0,0x7 057f 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 0580 00e2 | | Load_Encached Integer_Cache 0581 03f1 | | Declare_Variable Discrete,With_Value 0582 e7fe | | Load 0x3,-0x2 0583 e012 | | Load 0x0,0x12 0584 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0585 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0586 e007 | | Load 0x0,0x7 0587 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 0588 00e2 | | Load_Encached Integer_Cache 0589 03f1 | | Declare_Variable Discrete,With_Value 058a ea02 | | Load 0x5,0x2 058b ea03 | | Load 0x5,0x3 058c 01df | | Execute Vector,Equal 058d 00e1 | | Load_Encached Boolean_Cache 058e 03f1 | | Declare_Variable Discrete,With_Value 058f ea04 | | Load 0x5,0x4 0590 ea05 | | Load 0x5,0x5 0591 01df | | Execute Vector,Equal 0592 00e1 | | Load_Encached Boolean_Cache 0593 03f1 | | Declare_Variable Discrete,With_Value 0594 00db | | Load_Top At_Offset_3 0595 00db | | Load_Top At_Offset_3 0596 027f | | Execute Discrete,Equal 0597 00e1 | | Load_Encached Boolean_Cache 0598 03f1 | | Declare_Variable Discrete,With_Value 0599 BODY_0568: 0599 e805 | | Load 0x4,0x5 059a e806 | | Load 0x4,0x6 059b 0279 | y | Execute Discrete,And 059c e807 | | Load 0x4,0x7 059d 0279 | y | Execute Discrete,And 059e 6803 |h | Jump_Zero 0x5a2 059f 00cc | | Action Pop_Block 05a0 00cc | | Action Pop_Block 05a1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05a3 ; -------------------------------------------------------------------------------------- 05a3 ; STRING TABLE 05a3 ; -------------------------------------------------------------------------------------- 05a3 0054 | T | .STRTAB 0x0054->0x05cd ; "." 05a4 0053 | S | .STRTAB 0x0053->0x05cd ; ".LRM" 05a5 0055 | U | .STRTAB 0x0055->0x05cf ; "*" 05a6 0054 | T | .STRTAB 0x0054->0x05d0 ; "_STANDARD*" 05a7 005c | \ | .STRTAB 0x005c->0x05d5 ; "NAME" 05a8 005e | ^ | .STRTAB 0x005e->0x05d7 ; "ADDRESS" 05a9 0063 | c | .STRTAB 0x0063->0x05da ; "Unhandled exception in semantic initialization: " 05aa 0091 | | .STRTAB 0x0091->0x05f2 ; "RCI COMPILER WARNING: " 05ab 00a5 | | .STRTAB 0x00a5->0x05fd ; "Inconsistency registering target " 05ac 00c4 | | .STRTAB 0x00c4->0x060e ; "Rci" 05ad 00c5 | | .STRTAB 0x00c5->0x060f ; "Could not find LRM library for target " 05ae 00e9 | | .STRTAB 0x00e9->0x0622 ; "Could not resolve " 05af 00f9 | | .STRTAB 0x00f9->0x062b ; " for " 05b0 00fc | | .STRTAB 0x00fc->0x062e ; "Unhandled exception seeking " 05b1 0116 | | .STRTAB 0x0116->0x063c ; ": " 05b2 0116 | | .STRTAB 0x0116->0x063d ; "Unhandled exception finding decls for a package: " 05b3 0145 | E | .STRTAB 0x0145->0x0655 ; "Unable to find type " 05b4 0157 | W | .STRTAB 0x0157->0x065f ; " for target " 05b5 0161 | a | .STRTAB 0x0161->0x0665 ; "Unable to get object id for " 05b6 017b | { | .STRTAB 0x017b->0x0673 ; "Unable to get type spec for " 05b7 0195 | | .STRTAB 0x0195->0x0681 ; "Type " 05b8 0198 | | .STRTAB 0x0198->0x0684 ; " is corrupt in the standard tree for " 05b9 01bb | | .STRTAB 0x01bb->0x0696 ; "Unhandled exception while checking integer type " 05ba 01e9 | | .STRTAB 0x01e9->0x06ae ; "Unhandled exception while checking float type " 05bb 0215 | | .STRTAB 0x0215->0x06c5 ; "Unhandled exception while checking fixed type " 05bc 0241 | A | .STRTAB 0x0241->0x06dc ; "Unhandled exception while checking predefined types for target " 05bd 027f | | .STRTAB 0x027f->0x06fc ; "Unhandled exception initializing tree caches: " 05be 02ab | | .STRTAB 0x02ab->0x0713 ; "SYSTEM_NAME" 05bf 02b4 | | .STRTAB 0x02b4->0x0719 ; "STORAGE_UNIT" 05c0 02be | | .STRTAB 0x02be->0x071f ; "MEMORY_SIZE" 05c1 02c7 | | .STRTAB 0x02c7->0x0724 ; "MIN_INT" 05c2 02cc | | .STRTAB 0x02cc->0x0728 ; "MAX_INT" 05c3 02d1 | | .STRTAB 0x02d1->0x072b ; "MAX_DIGITS" 05c4 02d9 | | .STRTAB 0x02d9->0x0730 ; "MAX_MANTISSA" 05c5 02e3 | | .STRTAB 0x02e3->0x0736 ; "FINE_DELTA" 05c6 02eb | | .STRTAB 0x02eb->0x073b ; "TICK" 05c7 02ed | | .STRTAB 0x02ed->0x073d ; "PRIORITY" 05c8 02f3 | | .STRTAB 0x02f3->0x0741 ; "Unhandled exception while initializing system types: " 05c9 0326 | & | .STRTAB 0x0326->0x075c ; "RCI COMPILER FATAL ERROR: " 05ca 033e | > | .STRTAB 0x033e->0x0769 ; "FATAL error registering target " 05cb 035b | [ | .STRTAB 0x035b->0x0778 ; "RCI" 05cc 035c | \ | .STREND 0x035c->0x077a 05cd 2e2e 4c52 |..LR| .STRTAB_STRINGS 077a 0000 0000 | | .BLANK 0000[0x6] 0780 ; -------------------------------------------------------------------------------------- 0780 ; Debug Table 0780 ; -------------------------------------------------------------------------------------- 0780 0004 000e | | .DEBUG4 0x0004,0x000e,0x9431,0x0000,0x0001,0x0000 0786 0000 0000 | | .BLANK 0000[0x7a]