|
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_0a7cf5
└─⟦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 05a0 | | .CONST 0x05a0 ; 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 0090 | | .CONST 0x0090 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0033 | 3 | .CONST 0x0033 ; Number of locals 000b INIT_0008: 000b 4803 |H | Short_Literal 0x3 000c 032b | + | Declare_Type Record,Incomplete,Visible 000d e001 | | Load 0x0,0x1 000e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 000f 0129 | ) | Execute Any,Make_Visible 0010 e002 | | Load 0x0,0x2 0011 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0012 0129 | ) | Execute Any,Make_Visible 0013 e002 | | Load 0x0,0x2 0014 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0015 0129 | ) | Execute Any,Make_Visible 0016 e001 | | Load 0x0,0x1 0017 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0018 0129 | ) | Execute Any,Make_Visible 0019 e001 | | Load 0x0,0x1 001a 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 001b 0129 | ) | Execute Any,Make_Visible 001c e003 | | Load 0x0,0x3 001d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 001e 0129 | ) | Execute Any,Make_Visible 001f e003 | | Load 0x0,0x3 0020 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0021 0129 | ) | Execute Any,Make_Visible 0022 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0024 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0026 4800 |H | Short_Literal 0x0 0027 e004 | | Load 0x0,0x4 0028 02a0 | | Declare_Subprogram Null_Subprogram 0029 038f | | Declare_Type Package,Defined,Visible 002a 0386 | | Declare_Variable Package,Visible 002b 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 002d 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 002f 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0031 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0033 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0035 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0037 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 0039 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 003b 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 003d e001 | | Load 0x0,0x1 003e 192e | . | Execute Package,Field_Reference,Field_Number 0x2e 003f 0129 | ) | Execute Any,Make_Visible 0040 e001 | | Load 0x0,0x1 0041 192f | / | Execute Package,Field_Reference,Field_Number 0x2f 0042 0129 | ) | Execute Any,Make_Visible 0043 e001 | | Load 0x0,0x1 0044 1930 | 0 | Execute Package,Field_Reference,Field_Number 0x30 0045 0129 | ) | Execute Any,Make_Visible 0046 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated 0048 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated 004a e001 | | Load 0x0,0x1 004b 191b | | Execute Package,Field_Reference,Field_Number 0x1b 004c 0129 | ) | Execute Any,Make_Visible 004d e001 | | Load 0x0,0x1 004e 191c | | Execute Package,Field_Reference,Field_Number 0x1c 004f 0129 | ) | Execute Any,Make_Visible 0050 e005 | | Load 0x0,0x5 0051 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0052 e006 | | Load 0x0,0x6 0053 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0054 e001 | | Load 0x0,0x1 0055 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0056 00da | | Load_Top At_Offset_2 0057 029f 049b | | Declare_Subprogram INIT_0498,For_Call 0059 e211 | | Load 0x1,0x11 005a 0326 | & | Complete_Type Record,By_Defining 005b 00bf | | Action Accept_Activation 005c e002 | | Load 0x0,0x2 005d 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 005e 1919 | | Execute Package,Field_Reference,Field_Number 0x19 005f 0007 | | Action Break_Optional 0060 0092 04b3 | | Action Push_String_Extended,0x4b3 ; ".STATE.TOOL_STATE.RDF." 0062 e210 | | Load 0x1,0x10 0063 01cc | | Execute Vector,Catenate 0064 0007 | | Action Break_Optional 0065 00b6 | | Action Make_Scope 0066 e007 | | Load 0x0,0x7 0067 4802 |H | Short_Literal 0x2 0068 e21b | | Load 0x1,0x1b 0069 020e | | Execute Module,Augment_Imports 006a e21b | | Load 0x1,0x1b 006b 020f | | Execute Module,Activate 006c 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call 006e 029d 038b | | Declare_Subprogram INIT_0388,For_Outer_Call 0070 029d 039b | | Declare_Subprogram INIT_0398,For_Outer_Call 0072 029d 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call 0074 029d 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call 0076 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0077 00c7 | | Action Elaborate_Subprogram 0078 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0079 00c7 | | Action Elaborate_Subprogram 007a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 007b 00c7 | | Action Elaborate_Subprogram 007c 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 007d 00c7 | | Action Elaborate_Subprogram 007e 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 007f 00c7 | | Action Elaborate_Subprogram 0080 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0081 00c7 | | Action Elaborate_Subprogram 0082 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0083 00c7 | | Action Elaborate_Subprogram 0084 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0085 00c7 | | Action Elaborate_Subprogram 0086 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0087 00c7 | | Action Elaborate_Subprogram 0088 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0089 00c7 | | Action Elaborate_Subprogram 008a 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 008b 00c7 | | Action Elaborate_Subprogram 008c 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 008d 00c7 | | Action Elaborate_Subprogram 008e 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 008f 00c7 | | Action Elaborate_Subprogram 0090 BODY_0008: 0090 00bc | | Action Signal_Activated 0091 00bb | | Action Signal_Completion 0092 0000 0000 | | .BLANK 0000[0x6] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 00cb | | .CONST 0x00cb ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 00da | | Load_Top At_Offset_2 009c e008 | | Load 0x0,0x8 009d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 009e 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 009f 6810 |h | Jump_Zero 0xb0 00a0 e5fc | | Load 0x2,-0x4 00a1 4829 |H) | Short_Literal 0x29 00a2 0092 04b4 | | Action Push_String_Extended,0x4b4 ; "Bad view handle in Cache_Operations.Open (" 00a4 e5ff | | Load 0x2,-0x1 00a5 e008 | | Load 0x0,0x8 00a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a7 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 00a8 01cc | | Execute Vector,Catenate 00a9 01cb | | Execute Vector,Append 00aa e009 | | Load 0x0,0x9 00ab 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00ac e009 | | Load 0x0,0x9 00ad 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ae c5fc | | Store 0x2,-0x4 00af 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00b0 00db | | Load_Top At_Offset_3 00b1 8232 | 2 | Call 0x1,0x32 00b2 e5fd | | Load 0x2,-0x3 00b3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00b4 00da | | Load_Top At_Offset_2 00b5 e008 | | Load 0x0,0x8 00b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00b7 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00b8 e005 | | Load 0x0,0x5 00b9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00ba e5fd | | Load 0x2,-0x3 00bb 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00bc e5fc | | Load 0x2,-0x4 00bd e5fd | | Load 0x2,-0x3 00be 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00bf e5fd | | Load 0x2,-0x3 00c0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00c1 e5fd | | Load 0x2,-0x3 00c2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00c3 8233 | 3 | Call 0x1,0x33 00c4 e5fe | | Load 0x2,-0x2 00c5 e001 | | Load 0x0,0x1 00c6 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00c7 e5fd | | Load 0x2,-0x3 00c8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00c9 c5fc | | Store 0x2,-0x4 00ca 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00cb TRAP_0098: 00cb e001 | | Load 0x0,0x1 00cc 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 00cd 010f | | Execute Exception,Equal 00ce 6804 |h | Jump_Zero 0xd3 00cf e001 | | Load 0x0,0x1 00d0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00d1 c5fc | | Store 0x2,-0x4 00d2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d3 0100 | | Execute Exception,Raise 00d4 0000 0000 | | .BLANK 0000[0x4] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00e0 | | .CONST 0x00e0 ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0002 | | .CONST 0x0002 ; Number of locals 00db INIT_00d8: 00db e009 | | Load 0x0,0x9 00dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00dd 02c7 | | Declare_Variable Any 00de 00d8 | | Load_Top At_Offset_0 00df 1c00 | | Execute_Immediate Run_Utility,0x0 00e0 BODY_00d8: 00e0 00d8 | | Load_Top At_Offset_0 00e1 e5ff | | Load 0x2,-0x1 00e2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00e3 e001 | | Load 0x0,0x1 00e4 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00e5 e5ff | | Load 0x2,-0x1 00e6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00e7 c402 | | Store 0x2,0x2 00e8 00db | | Load_Top At_Offset_3 00e9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ea e006 | | Load 0x0,0x6 00eb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ec 012f | / | Execute Any,Equal 00ed 700c |p | Jump_Nonzero 0xfa 00ee 00db | | Load_Top At_Offset_3 00ef 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00f0 4801 |H | Short_Literal 0x1 00f1 4801 |H | Short_Literal 0x1 00f2 00db | | Load_Top At_Offset_3 00f3 e009 | | Load 0x0,0x9 00f4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00f5 0f00 | | Execute_Immediate Equal,0x0 00f6 e006 | | Load 0x0,0x6 00f7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00f8 e5ff | | Load 0x2,-0x1 00f9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00fa 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00fb 0000 0000 | | .BLANK 0000[0x5] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 010f | | .CONST 0x010f ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 e5fc | | Load 0x2,-0x4 0104 e5fd | | Load 0x2,-0x3 0105 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0106 4802 |H | Short_Literal 0x2 0107 e5fe | | Load 0x2,-0x2 0108 e5ff | | Load 0x2,-0x1 0109 e001 | | Load 0x0,0x1 010a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 010b e5fd | | Load 0x2,-0x3 010c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 010d c5fc | | Store 0x2,-0x4 010e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 010f TRAP_0100: 010f e001 | | Load 0x0,0x1 0110 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0111 010f | | Execute Exception,Equal 0112 6804 |h | Jump_Zero 0x117 0113 e001 | | Load 0x0,0x1 0114 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0115 c5fc | | Store 0x2,-0x4 0116 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0117 0100 | | Execute Exception,Raise 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0127 | ' | .CONST 0x0127 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b e5fc | | Load 0x2,-0x4 011c e5fd | | Load 0x2,-0x3 011d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 011e 4802 |H | Short_Literal 0x2 011f e5fe | | Load 0x2,-0x2 0120 e5ff | | Load 0x2,-0x1 0121 e001 | | Load 0x0,0x1 0122 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0123 e5fd | | Load 0x2,-0x3 0124 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0125 c5fc | | Store 0x2,-0x4 0126 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0127 TRAP_0118: 0127 e001 | | Load 0x0,0x1 0128 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0129 010f | | Execute Exception,Equal 012a 6804 |h | Jump_Zero 0x12f 012b e001 | | Load 0x0,0x1 012c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 012d c5fc | | Store 0x2,-0x4 012e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 012f 0100 | | Execute Exception,Raise 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0149 | I | .CONST 0x0149 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 e5fc | | Load 0x2,-0x4 0134 e5fd | | Load 0x2,-0x3 0135 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0136 4802 |H | Short_Literal 0x2 0137 e5fe | | Load 0x2,-0x2 0138 e5ff | | Load 0x2,-0x1 0139 e001 | | Load 0x0,0x1 013a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 013b e5fd | | Load 0x2,-0x3 013c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 013d c5fc | | Store 0x2,-0x4 013e e001 | | Load 0x0,0x1 013f 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 0140 e5fc | | Load 0x2,-0x4 0141 e009 | | Load 0x0,0x9 0142 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0143 6804 |h | Jump_Zero 0x148 0144 e5fc | | Load 0x2,-0x4 0145 e009 | | Load 0x0,0x9 0146 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0147 c5fc | | Store 0x2,-0x4 0148 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0149 TRAP_0130: 0149 e001 | | Load 0x0,0x1 014a 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 014b 010f | | Execute Exception,Equal 014c 6804 |h | Jump_Zero 0x151 014d e001 | | Load 0x0,0x1 014e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 014f c5fc | | Store 0x2,-0x4 0150 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0151 0100 | | Execute Exception,Raise 0152 0000 0000 | | .BLANK 0000[0x6] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0171 | q | .CONST 0x0171 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b e5fc | | Load 0x2,-0x4 015c e5fd | | Load 0x2,-0x3 015d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 015e 4802 |H | Short_Literal 0x2 015f e5fe | | Load 0x2,-0x2 0160 e5ff | | Load 0x2,-0x1 0161 e001 | | Load 0x0,0x1 0162 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0163 e5fd | | Load 0x2,-0x3 0164 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0165 c5fc | | Store 0x2,-0x4 0166 e001 | | Load 0x0,0x1 0167 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 0168 e5fc | | Load 0x2,-0x4 0169 e009 | | Load 0x0,0x9 016a 1819 | | Execute Package,Field_Execute,Field_Number 0x19 016b 6804 |h | Jump_Zero 0x170 016c e5fc | | Load 0x2,-0x4 016d e009 | | Load 0x0,0x9 016e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 016f c5fc | | Store 0x2,-0x4 0170 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0171 TRAP_0158: 0171 e001 | | Load 0x0,0x1 0172 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0173 010f | | Execute Exception,Equal 0174 6804 |h | Jump_Zero 0x179 0175 e001 | | Load 0x0,0x1 0176 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0177 c5fc | | Store 0x2,-0x4 0178 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0179 0100 | | Execute Exception,Raise 017a 0000 0000 | | .BLANK 0000[0x6] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0187 | | .CONST 0x0187 ; Address of begin 0181 01a1 | | .CONST 0x01a1 ; Address of exception handler 0182 0002 | | .CONST 0x0002 ; Number of locals 0183 INIT_0180: 0183 e214 | | Load 0x1,0x14 0184 02c7 | | Declare_Variable Any 0185 00d8 | | Load_Top At_Offset_0 0186 1c00 | | Execute_Immediate Run_Utility,0x0 0187 BODY_0180: 0187 e5fc | | Load 0x2,-0x4 0188 00d9 | | Load_Top At_Offset_1 0189 0120 | | Execute Any,Is_Value 018a 6803 |h | Jump_Zero 0x18e 018b e001 | | Load 0x0,0x1 018c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 018d 7801 |x | Jump 0x18f 018e 00d9 | | Load_Top At_Offset_1 018f e5ff | | Load 0x2,-0x1 0190 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0191 0217 | | Execute Heap_Access,All_Reference 0192 4802 |H | Short_Literal 0x2 0193 e5fe | | Load 0x2,-0x2 0194 e5ff | | Load 0x2,-0x1 0195 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0196 e001 | | Load 0x0,0x1 0197 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0198 c402 | | Store 0x2,0x2 0199 c5fc | | Store 0x2,-0x4 019a 00d8 | | Load_Top At_Offset_0 019b e002 | | Load 0x0,0x2 019c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 019d c402 | | Store 0x2,0x2 019e 00d8 | | Load_Top At_Offset_0 019f c5fd | | Store 0x2,-0x3 01a0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01a1 TRAP_0180: 01a1 e001 | | Load 0x0,0x1 01a2 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01a3 010f | | Execute Exception,Equal 01a4 6807 |h | Jump_Zero 0x1ac 01a5 e002 | | Load 0x0,0x2 01a6 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01a7 c5fd | | Store 0x2,-0x3 01a8 e001 | | Load 0x0,0x1 01a9 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01aa c5fc | | Store 0x2,-0x4 01ab 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01ac 0100 | | Execute Exception,Raise 01ad 0000 0000 | | .XXX[0x3] 01af 0000 | | 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01bd | | .CONST 0x01bd ; Address of begin 01b1 01eb | | .CONST 0x01eb ; Address of exception handler 01b2 0003 | | .CONST 0x0003 ; Number of locals 01b3 INIT_01b0: 01b3 e001 | | Load 0x0,0x1 01b4 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 01b5 02c7 | | Declare_Variable Any 01b6 00d8 | | Load_Top At_Offset_0 01b7 1c00 | | Execute_Immediate Run_Utility,0x0 01b8 e214 | | Load 0x1,0x14 01b9 02c7 | | Declare_Variable Any 01ba e002 | | Load 0x0,0x2 01bb 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01bc a403 | | Store_Unchecked 0x2,0x3 01bd BODY_01b0: 01bd 00d9 | | Load_Top At_Offset_1 01be e5ff | | Load 0x2,-0x1 01bf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01c0 e001 | | Load 0x0,0x1 01c1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 01c2 c402 | | Store 0x2,0x2 01c3 00cf | | Action Mark_Auxiliary 01c4 781a |x | Jump 0x1df 01c5 00da | | Load_Top At_Offset_2 01c6 e001 | | Load 0x0,0x1 01c7 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01c8 e5fe | | Load 0x2,-0x2 01c9 00d8 | | Load_Top At_Offset_0 01ca e20f | | Load 0x1,0xf 01cb 0260 | ` | Execute Discrete,In_Type 01cc 7001 |p | Jump_Nonzero 0x1ce 01cd 0801 | | Execute_Immediate Raise,0x1 01ce e21b | | Load 0x1,0x1b 01cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01d0 6809 |h | Jump_Zero 0x1da 01d1 00d9 | | Load_Top At_Offset_1 01d2 00db | | Load_Top At_Offset_3 01d3 e001 | | Load 0x0,0x1 01d4 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01d5 e5ff | | Load 0x2,-0x1 01d6 8222 | " | Call 0x1,0x22 01d7 e002 | | Load 0x0,0x2 01d8 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01d9 c403 | | Store 0x2,0x3 01da 00da | | Load_Top At_Offset_2 01db e001 | | Load 0x0,0x1 01dc 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 01dd c402 | | Store 0x2,0x2 01de 00c9 | | Action Pop_Auxiliary_Loop 01df 00da | | Load_Top At_Offset_2 01e0 e001 | | Load 0x0,0x1 01e1 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01e2 6fe2 |o | Jump_Zero 0x1c5 01e3 00ce | | Action Pop_Auxiliary 01e4 00d8 | | Load_Top At_Offset_0 01e5 c5fd | | Store 0x2,-0x3 01e6 e5fc | | Load 0x2,-0x4 01e7 e009 | | Load 0x0,0x9 01e8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01e9 c5fc | | Store 0x2,-0x4 01ea 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01eb TRAP_01b0: 01eb e001 | | Load 0x0,0x1 01ec 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01ed 010f | | Execute Exception,Equal 01ee 6804 |h | Jump_Zero 0x1f3 01ef e001 | | Load 0x0,0x1 01f0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01f1 c5fc | | Store 0x2,-0x4 01f2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f3 e5fc | | Load 0x2,-0x4 01f4 0092 04b5 | | Action Push_String_Extended,0x4b5 ; "Retrieve'N(2)" 01f6 8231 | 1 | Call 0x1,0x31 01f7 c5fc | | Store 0x2,-0x4 01f8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f9 0000 0000 | | .BLANK 0000[0x7] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 020d | | .CONST 0x020d ; Address of begin 0201 0226 | & | .CONST 0x0226 ; Address of exception handler 0202 0003 | | .CONST 0x0003 ; Number of locals 0203 INIT_0200: 0203 e002 | | Load 0x0,0x2 0204 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0205 02c7 | | Declare_Variable Any 0206 00d8 | | Load_Top At_Offset_0 0207 1c00 | | Execute_Immediate Run_Utility,0x0 0208 e009 | | Load 0x0,0x9 0209 1b0e | | Execute Package,Field_Read,Field_Number 0xe 020a 02c7 | | Declare_Variable Any 020b 00d8 | | Load_Top At_Offset_0 020c 1c00 | | Execute_Immediate Run_Utility,0x0 020d BODY_0200: 020d 00d8 | | Load_Top At_Offset_0 020e 00da | | Load_Top At_Offset_2 020f 0120 | | Execute Any,Is_Value 0210 6803 |h | Jump_Zero 0x214 0211 e001 | | Load 0x0,0x1 0212 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0213 7801 |x | Jump 0x215 0214 00da | | Load_Top At_Offset_2 0215 e5ff | | Load 0x2,-0x1 0216 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0217 0217 | | Execute Heap_Access,All_Reference 0218 4802 |H | Short_Literal 0x2 0219 e5fe | | Load 0x2,-0x2 021a e5ff | | Load 0x2,-0x1 021b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 021c e001 | | Load 0x0,0x1 021d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 021e c402 | | Store 0x2,0x2 021f c403 | | Store 0x2,0x3 0220 00d9 | | Load_Top At_Offset_1 0221 e002 | | Load 0x0,0x2 0222 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0223 c402 | | Store 0x2,0x2 0224 00d9 | | Load_Top At_Offset_1 0225 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0226 TRAP_0200: 0226 e001 | | Load 0x0,0x1 0227 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0228 010f | | Execute Exception,Equal 0229 6803 |h | Jump_Zero 0x22d 022a e002 | | Load 0x0,0x2 022b 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 022c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 022d 0100 | | Execute Exception,Raise 022e 0000 0000 | | .XXX[0x2] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 023d | = | .CONST 0x023d ; Address of begin 0231 0266 | f | .CONST 0x0266 ; Address of exception handler 0232 0003 | | .CONST 0x0003 ; Number of locals 0233 INIT_0230: 0233 e001 | | Load 0x0,0x1 0234 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 0235 02c7 | | Declare_Variable Any 0236 00d8 | | Load_Top At_Offset_0 0237 1c00 | | Execute_Immediate Run_Utility,0x0 0238 e214 | | Load 0x1,0x14 0239 02c7 | | Declare_Variable Any 023a e002 | | Load 0x0,0x2 023b 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 023c a403 | | Store_Unchecked 0x2,0x3 023d BODY_0230: 023d 00d9 | | Load_Top At_Offset_1 023e e5ff | | Load 0x2,-0x1 023f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0240 e001 | | Load 0x0,0x1 0241 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0242 c402 | | Store 0x2,0x2 0243 00cf | | Action Mark_Auxiliary 0244 781a |x | Jump 0x25f 0245 00da | | Load_Top At_Offset_2 0246 e001 | | Load 0x0,0x1 0247 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0248 e5fe | | Load 0x2,-0x2 0249 00d8 | | Load_Top At_Offset_0 024a e20f | | Load 0x1,0xf 024b 0260 | ` | Execute Discrete,In_Type 024c 7001 |p | Jump_Nonzero 0x24e 024d 0801 | | Execute_Immediate Raise,0x1 024e e21b | | Load 0x1,0x1b 024f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0250 6809 |h | Jump_Zero 0x25a 0251 00d9 | | Load_Top At_Offset_1 0252 00db | | Load_Top At_Offset_3 0253 e001 | | Load 0x0,0x1 0254 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0255 e5ff | | Load 0x2,-0x1 0256 8222 | " | Call 0x1,0x22 0257 e002 | | Load 0x0,0x2 0258 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0259 c403 | | Store 0x2,0x3 025a 00da | | Load_Top At_Offset_2 025b e001 | | Load 0x0,0x1 025c 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 025d c402 | | Store 0x2,0x2 025e 00c9 | | Action Pop_Auxiliary_Loop 025f 00da | | Load_Top At_Offset_2 0260 e001 | | Load 0x0,0x1 0261 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0262 6fe2 |o | Jump_Zero 0x245 0263 00ce | | Action Pop_Auxiliary 0264 00d8 | | Load_Top At_Offset_0 0265 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0266 TRAP_0230: 0266 e001 | | Load 0x0,0x1 0267 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0268 010f | | Execute Exception,Equal 0269 6803 |h | Jump_Zero 0x26d 026a e002 | | Load 0x0,0x2 026b 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 026c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 026d e002 | | Load 0x0,0x2 026e 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 026f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 027e | ~ | .CONST 0x027e ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 00da | | Load_Top At_Offset_2 0274 e5fe | | Load 0x2,-0x2 0275 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0276 e001 | | Load 0x0,0x1 0277 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0278 c5ff | | Store 0x2,-0x1 0279 e5fd | | Load 0x2,-0x3 027a e009 | | Load 0x0,0x9 027b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 027c c5fd | | Store 0x2,-0x3 027d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 027e TRAP_0270: 027e e001 | | Load 0x0,0x1 027f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0280 010f | | Execute Exception,Equal 0281 6804 |h | Jump_Zero 0x286 0282 e001 | | Load 0x0,0x1 0283 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0284 c5fd | | Store 0x2,-0x3 0285 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0286 e5fd | | Load 0x2,-0x3 0287 0092 04b6 | | Action Push_String_Extended,0x4b6 ; "Initialize" 0289 8231 | 1 | Call 0x1,0x31 028a c5fd | | Store 0x2,-0x3 028b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 028c 0000 0000 | | .BLANK 0000[0x4] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 02b8 | | .CONST 0x02b8 ; Address of begin 0291 0339 | 9 | .CONST 0x0339 ; Address of exception handler 0292 000a | | .CONST 0x000a ; Number of locals 0293 INIT_0290: 0293 e006 | | Load 0x0,0x6 0294 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0295 02c7 | | Declare_Variable Any 0296 e00a | | Load 0x0,0xa 0297 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0298 e006 | | Load 0x0,0x6 0299 1814 | | Execute Package,Field_Execute,Field_Number 0x14 029a a402 | | Store_Unchecked 0x2,0x2 029b 00e1 | | Load_Encached Boolean_Cache 029c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 029d e001 | | Load 0x0,0x1 029e 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 029f 02c7 | | Declare_Variable Any 02a0 00d8 | | Load_Top At_Offset_0 02a1 1c00 | | Execute_Immediate Run_Utility,0x0 02a2 e001 | | Load 0x0,0x1 02a3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02a4 02c7 | | Declare_Variable Any 02a5 00d8 | | Load_Top At_Offset_0 02a6 1c00 | | Execute_Immediate Run_Utility,0x0 02a7 e001 | | Load 0x0,0x1 02a8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02a9 02c7 | | Declare_Variable Any 02aa 00d8 | | Load_Top At_Offset_0 02ab 1c00 | | Execute_Immediate Run_Utility,0x0 02ac e5ff | | Load 0x2,-0x1 02ad e008 | | Load 0x0,0x8 02ae 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02af 1820 | | Execute Package,Field_Execute,Field_Number 0x20 02b0 00d8 | | Load_Top At_Offset_0 02b1 e22e | . | Load 0x1,0x2e 02b2 01cc | | Execute Vector,Catenate 02b3 0007 | | Action Break_Optional 02b4 029f 03cb | | Declare_Subprogram INIT_03c8,For_Call 02b6 029f 03db | | Declare_Subprogram INIT_03d8,For_Call 02b8 BODY_0290: 02b8 00be | | Action Activate_Tasks 02b9 e5fc | | Load 0x2,-0x4 02ba e009 | | Load 0x0,0x9 02bb 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02bc c5fc | | Store 0x2,-0x4 02bd e5ff | | Load 0x2,-0x1 02be e008 | | Load 0x0,0x8 02bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02c0 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 02c1 680e |h | Jump_Zero 0x2d0 02c2 e5fc | | Load 0x2,-0x4 02c3 4829 |H) | Short_Literal 0x29 02c4 0092 04b7 | | Action Push_String_Extended,0x4b7 ; "Bad view handle in Cache_Operations.Check_Cache (" 02c6 e5ff | | Load 0x2,-0x1 02c7 e008 | | Load 0x0,0x8 02c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02c9 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 02ca 01cc | | Execute Vector,Catenate 02cb 01cb | | Execute Vector,Append 02cc e009 | | Load 0x0,0x9 02cd 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02ce 8230 | 0 | Call 0x1,0x30 02cf c5fc | | Store 0x2,-0x4 02d0 e5fc | | Load 0x2,-0x4 02d1 e405 | | Load 0x2,0x5 02d2 e402 | | Load 0x2,0x2 02d3 e408 | | Load 0x2,0x8 02d4 4801 |H | Short_Literal 0x1 02d5 e001 | | Load 0x0,0x1 02d6 181e | | Execute Package,Field_Execute,Field_Number 0x1e 02d7 c405 | | Store 0x2,0x5 02d8 c5fc | | Store 0x2,-0x4 02d9 e5fc | | Load 0x2,-0x4 02da 822f | / | Call 0x1,0x2f 02db c5fc | | Store 0x2,-0x4 02dc e5fe | | Load 0x2,-0x2 02dd 680c |h | Jump_Zero 0x2ea 02de e5fc | | Load 0x2,-0x4 02df e406 | | Load 0x2,0x6 02e0 e402 | | Load 0x2,0x2 02e1 e408 | | Load 0x2,0x8 02e2 4800 |H | Short_Literal 0x0 02e3 e001 | | Load 0x0,0x1 02e4 181e | | Execute Package,Field_Execute,Field_Number 0x1e 02e5 c406 | | Store 0x2,0x6 02e6 c5fc | | Store 0x2,-0x4 02e7 e5fc | | Load 0x2,-0x4 02e8 822f | / | Call 0x1,0x2f 02e9 c5fc | | Store 0x2,-0x4 02ea e404 | | Load 0x2,0x4 02eb e405 | | Load 0x2,0x5 02ec e001 | | Load 0x0,0x1 02ed 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 02ee c404 | | Store 0x2,0x4 02ef 00cf | | Action Mark_Auxiliary 02f0 7809 |x | Jump 0x2fa 02f1 e404 | | Load 0x2,0x4 02f2 e001 | | Load 0x0,0x1 02f3 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 02f4 840a | | Call 0x2,0xa 02f5 e404 | | Load 0x2,0x4 02f6 e001 | | Load 0x0,0x1 02f7 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 02f8 c404 | | Store 0x2,0x4 02f9 00c9 | | Action Pop_Auxiliary_Loop 02fa e404 | | Load 0x2,0x4 02fb e001 | | Load 0x0,0x1 02fc 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 02fd 6ff3 |o | Jump_Zero 0x2f1 02fe 00ce | | Action Pop_Auxiliary 02ff e5fe | | Load 0x2,-0x2 0300 6815 |h | Jump_Zero 0x316 0301 e5fd | | Load 0x2,-0x3 0302 6809 |h | Jump_Zero 0x30c 0303 e5fc | | Load 0x2,-0x4 0304 e406 | | Load 0x2,0x6 0305 e001 | | Load 0x0,0x1 0306 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0307 c406 | | Store 0x2,0x6 0308 c5fc | | Store 0x2,-0x4 0309 e5fc | | Load 0x2,-0x4 030a 822f | / | Call 0x1,0x2f 030b c5fc | | Store 0x2,-0x4 030c e5fc | | Load 0x2,-0x4 030d e406 | | Load 0x2,0x6 030e e001 | | Load 0x0,0x1 030f 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0310 c406 | | Store 0x2,0x6 0311 c5fc | | Store 0x2,-0x4 0312 e5fc | | Load 0x2,-0x4 0313 822f | / | Call 0x1,0x2f 0314 c5fc | | Store 0x2,-0x4 0315 7809 |x | Jump 0x31f 0316 e5fc | | Load 0x2,-0x4 0317 e405 | | Load 0x2,0x5 0318 e001 | | Load 0x0,0x1 0319 181f | | Execute Package,Field_Execute,Field_Number 0x1f 031a c405 | | Store 0x2,0x5 031b c5fc | | Store 0x2,-0x4 031c e5fc | | Load 0x2,-0x4 031d 822f | / | Call 0x1,0x2f 031e c5fc | | Store 0x2,-0x4 031f e403 | | Load 0x2,0x3 0320 680d |h | Jump_Zero 0x32e 0321 e5fe | | Load 0x2,-0x2 0322 700b |p | Jump_Nonzero 0x32e 0323 e5fc | | Load 0x2,-0x4 0324 0092 04b8 | | Action Push_String_Extended,0x4b8 ; "Errors have been detected in " 0326 e408 | | Load 0x2,0x8 0327 01cc | | Execute Vector,Catenate 0328 e009 | | Load 0x0,0x9 0329 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 032a e009 | | Load 0x0,0x9 032b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 032c c5fc | | Store 0x2,-0x4 032d 7804 |x | Jump 0x332 032e e5fc | | Load 0x2,-0x4 032f e009 | | Load 0x0,0x9 0330 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0331 c5fc | | Store 0x2,-0x4 0332 e402 | | Load 0x2,0x2 0333 4801 |H | Short_Literal 0x1 0334 4801 |H | Short_Literal 0x1 0335 e006 | | Load 0x0,0x6 0336 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0337 c402 | | Store 0x2,0x2 0338 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0339 TRAP_0290: 0339 e00b | | Load 0x0,0xb 033a 010f | | Execute Exception,Equal 033b 6807 |h | Jump_Zero 0x343 033c e402 | | Load 0x2,0x2 033d 4801 |H | Short_Literal 0x1 033e 4800 |H | Short_Literal 0x0 033f e006 | | Load 0x0,0x6 0340 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0341 c402 | | Store 0x2,0x2 0342 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0343 e5fc | | Load 0x2,-0x4 0344 0092 04b9 | | Action Push_String_Extended,0x4b9 ; "Check_Cache" 0346 8231 | 1 | Call 0x1,0x31 0347 c5fc | | Store 0x2,-0x4 0348 e402 | | Load 0x2,0x2 0349 4801 |H | Short_Literal 0x1 034a 4800 |H | Short_Literal 0x0 034b e006 | | Load 0x0,0x6 034c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 034d c402 | | Store 0x2,0x2 034e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 034f 0000 | | .XXX[0x1] 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0359 | Y | .CONST 0x0359 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0003 | | .CONST 0x0003 ; Number of locals 0353 INIT_0350: 0353 480a |H | Short_Literal 0xa 0354 e5fd | | Load 0x2,-0x3 0355 01ca | | Execute Vector,Prepend 0356 0007 | | Action Break_Optional 0357 029f 0483 | | Declare_Subprogram INIT_0480,For_Call 0359 BODY_0350: 0359 0092 04ba | | Action Push_String_Extended,0x4ba ; "{View_Context => " 035b 8403 | | Call 0x2,0x3 035c 01cc | | Execute Vector,Catenate 035d 00da | | Load_Top At_Offset_2 035e 01cc | | Execute Vector,Catenate 035f 0092 04bb | | Action Push_String_Extended,0x4bb ; " The_Cache => {" 0361 01cc | | Execute Vector,Catenate 0362 00da | | Load_Top At_Offset_2 0363 01cc | | Execute Vector,Catenate 0364 0092 04bc | | Action Push_String_Extended,0x4bc ; " " 0366 01cc | | Execute Vector,Catenate 0367 e5fc | | Load 0x2,-0x4 0368 e5fd | | Load 0x2,-0x3 0369 0092 04bc | | Action Push_String_Extended,0x4bc ; " " 036b 01cc | | Execute Vector,Catenate 036c e5fe | | Load 0x2,-0x2 036d e5ff | | Load 0x2,-0x1 036e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 036f e001 | | Load 0x0,0x1 0370 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0371 01cc | | Execute Vector,Catenate 0372 0092 04bd | | Action Push_String_Extended,0x4bd ; "}}" 0374 01cc | | Execute Vector,Catenate 0375 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0376 0000 0000 | | .XXX[0x2] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037b | { | .CONST 0x037b ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0001 | | .CONST 0x0001 ; Number of locals 037b BODY_0378: 037b INIT_0378: 037b 4801 |H | Short_Literal 0x1 037c 00db | | Load_Top At_Offset_3 037d e009 | | Load 0x0,0x9 037e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 037f 6802 |h | Jump_Zero 0x382 0380 e00b | | Load 0x0,0xb 0381 0257 | W | Execute Discrete,Raise 0382 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0383 0000 0000 | | .BLANK 0000[0x5] 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 038b | | .CONST 0x038b ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0001 | | .CONST 0x0001 ; Number of locals 038b BODY_0388: 038b INIT_0388: 038b e5fd | | Load 0x2,-0x3 038c e5fe | | Load 0x2,-0x2 038d e5ff | | Load 0x2,-0x1 038e 00ea | | Load_Encached Null_String_Cache 038f e009 | | Load 0x0,0x9 0390 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0391 c5fd | | Store 0x2,-0x3 0392 e00b | | Load 0x0,0xb 0393 0257 | W | Execute Discrete,Raise 0394 0000 0000 | | .BLANK 0000[0x4] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 039b | | .CONST 0x039b ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0001 | | .CONST 0x0001 ; Number of locals 039b BODY_0398: 039b INIT_0398: 039b 00db | | Load_Top At_Offset_3 039c 4829 |H) | Short_Literal 0x29 039d 0092 04be | | Action Push_String_Extended,0x4be ; "Unexpected exception in Cache_Operations." 039f e5ff | | Load 0x2,-0x1 03a0 01cc | | Execute Vector,Catenate 03a1 0092 04bf | | Action Push_String_Extended,0x4bf ; " (" 03a3 01cc | | Execute Vector,Catenate 03a4 e009 | | Load 0x0,0x9 03a5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 03a6 01cc | | Execute Vector,Catenate 03a7 01cb | | Execute Vector,Append 03a8 e009 | | Load 0x0,0x9 03a9 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 03aa e009 | | Load 0x0,0x9 03ab 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03ac c5fe | | Store 0x2,-0x2 03ad 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03ae 0000 0000 | | .XXX[0x2] 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03b3 | | .CONST 0x03b3 ; Address of begin 03b1 0004 | | .CONST 0x0004 ; Address of exception handler 03b2 0001 | | .CONST 0x0001 ; Number of locals 03b3 BODY_03b0: 03b3 INIT_03b0: 03b3 00da | | Load_Top At_Offset_2 03b4 0f01 | | Execute_Immediate Equal,0x1 03b5 7003 |p | Jump_Nonzero 0x3b9 03b6 e006 | | Load 0x0,0x6 03b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03b9 e00a | | Load 0x0,0xa 03ba 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03bb e006 | | Load 0x0,0x6 03bc 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03be 0000 0000 | | .XXX[0x2] 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03c3 | | .CONST 0x03c3 ; Address of begin 03c1 0004 | | .CONST 0x0004 ; Address of exception handler 03c2 0001 | | .CONST 0x0001 ; Number of locals 03c3 BODY_03c0: 03c3 INIT_03c0: 03c3 00da | | Load_Top At_Offset_2 03c4 0217 | | Execute Heap_Access,All_Reference 03c5 e22e | . | Load 0x1,0x2e 03c6 01cc | | Execute Vector,Catenate 03c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03cb | | .CONST 0x03cb ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0001 | | .CONST 0x0001 ; Number of locals 03cb BODY_03c8: 03cb INIT_03c8: 03cb 4801 |H | Short_Literal 0x1 03cc a403 | | Store_Unchecked 0x2,0x3 03cd 4800 |H | Short_Literal 0x0 03ce 4800 |H | Short_Literal 0x0 03cf 4807 |H | Short_Literal 0x7 03d0 e7ff | | Load 0x3,-0x1 03d1 00ea | | Load_Encached Null_String_Cache 03d2 e009 | | Load 0x0,0x9 03d3 181d | | Execute Package,Field_Execute,Field_Number 0x1d 03d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03d5 0000 0000 | | .XXX[0x3] 03d7 0000 | | 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03f2 | | .CONST 0x03f2 ; Address of begin 03d9 046f | o | .CONST 0x046f ; Address of exception handler 03da 0006 | | .CONST 0x0006 ; Number of locals 03db INIT_03d8: 03db e213 | | Load 0x1,0x13 03dc 02c7 | | Declare_Variable Any 03dd 00d8 | | Load_Top At_Offset_0 03de 1c00 | | Execute_Immediate Run_Utility,0x0 03df e214 | | Load 0x1,0x14 03e0 02c7 | | Declare_Variable Any 03e1 00d8 | | Load_Top At_Offset_0 03e2 1c00 | | Execute_Immediate Run_Utility,0x0 03e3 e214 | | Load 0x1,0x14 03e4 02c7 | | Declare_Variable Any 03e5 e002 | | Load 0x0,0x2 03e6 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 03e7 a604 | | Store_Unchecked 0x3,0x4 03e8 e009 | | Load 0x0,0x9 03e9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03ea 02c7 | | Declare_Variable Any 03eb 00d8 | | Load_Top At_Offset_0 03ec 1c00 | | Execute_Immediate Run_Utility,0x0 03ed e214 | | Load 0x1,0x14 03ee 02c7 | | Declare_Variable Any 03ef e002 | | Load 0x0,0x2 03f0 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 03f1 a606 | | Store_Unchecked 0x3,0x6 03f2 BODY_03d8: 03f2 00d9 | | Load_Top At_Offset_1 03f3 e603 | | Load 0x3,0x3 03f4 0120 | | Execute Any,Is_Value 03f5 6803 |h | Jump_Zero 0x3f9 03f6 e001 | | Load 0x0,0x1 03f7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03f8 7801 |x | Jump 0x3fa 03f9 e603 | | Load 0x3,0x3 03fa e407 | | Load 0x2,0x7 03fb 4802 |H | Short_Literal 0x2 03fc e7ff | | Load 0x3,-0x1 03fd e405 | | Load 0x2,0x5 03fe e001 | | Load 0x0,0x1 03ff 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0400 c603 | | Store 0x3,0x3 0401 c605 | | Store 0x3,0x5 0402 4801 |H | Short_Literal 0x1 0403 00da | | Load_Top At_Offset_2 0404 e009 | | Load 0x0,0x9 0405 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0406 680b |h | Jump_Zero 0x412 0407 0092 04c0 | | Action Push_String_Extended,0x4c0 ; "Errors were detected in the \x22" 0409 e7ff | | Load 0x3,-0x1 040a 01cc | | Execute Vector,Catenate 040b 0092 04c1 | | Action Push_String_Extended,0x4c1 ; "\x22 domain" 040d 01cc | | Execute Vector,Catenate 040e 8409 | | Call 0x2,0x9 040f 00d9 | | Load_Top At_Offset_1 0410 e009 | | Load 0x0,0x9 0411 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0412 00cf | | Action Mark_Auxiliary 0413 781e |x | Jump 0x432 0414 e603 | | Load 0x3,0x3 0415 e002 | | Load 0x0,0x2 0416 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0417 c602 | | Store 0x3,0x2 0418 e602 | | Load 0x3,0x2 0419 e002 | | Load 0x0,0x2 041a 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 041b 180f | | Execute Package,Field_Execute,Field_Number 0xf 041c e008 | | Load 0x0,0x8 041d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 041e 180f | | Execute Package,Field_Execute,Field_Number 0xf 041f 6806 |h | Jump_Zero 0x426 0420 00d9 | | Load_Top At_Offset_1 0421 e602 | | Load 0x3,0x2 0422 e002 | | Load 0x0,0x2 0423 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0424 c606 | | Store 0x3,0x6 0425 7807 |x | Jump 0x42d 0426 e5fe | | Load 0x2,-0x2 0427 6805 |h | Jump_Zero 0x42d 0428 00db | | Load_Top At_Offset_3 0429 e602 | | Load 0x3,0x2 042a e002 | | Load 0x0,0x2 042b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 042c c604 | | Store 0x3,0x4 042d e603 | | Load 0x3,0x3 042e e002 | | Load 0x0,0x2 042f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0430 c603 | | Store 0x3,0x3 0431 00c9 | | Action Pop_Auxiliary_Loop 0432 e603 | | Load 0x3,0x3 0433 e002 | | Load 0x0,0x2 0434 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0435 6fde |o | Jump_Zero 0x414 0436 00ce | | Action Pop_Auxiliary 0437 00d8 | | Load_Top At_Offset_0 0438 e002 | | Load 0x0,0x2 0439 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 043a 7021 |p! | Jump_Nonzero 0x45c 043b 0092 04c2 | | Action Push_String_Extended,0x4c2 ; "Invalid entries were detected in the " 043d e7ff | | Load 0x3,-0x1 043e 01cc | | Execute Vector,Catenate 043f 0092 04c3 | | Action Push_String_Extended,0x4c3 ; " domain" 0441 01cc | | Execute Vector,Catenate 0442 8409 | | Call 0x2,0x9 0443 00cf | | Action Mark_Auxiliary 0444 7812 |x | Jump 0x457 0445 4800 |H | Short_Literal 0x0 0446 4800 |H | Short_Literal 0x0 0447 4805 |H | Short_Literal 0x5 0448 e606 | | Load 0x3,0x6 0449 e002 | | Load 0x0,0x2 044a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 044b 822d | - | Call 0x1,0x2d 044c 0092 04c4 | | Action Push_String_Extended,0x4c4 ; " is in the Source state" 044e 01cc | | Execute Vector,Catenate 044f 00ea | | Load_Encached Null_String_Cache 0450 e009 | | Load 0x0,0x9 0451 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0452 00d9 | | Load_Top At_Offset_1 0453 e002 | | Load 0x0,0x2 0454 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0455 c606 | | Store 0x3,0x6 0456 00c9 | | Action Pop_Auxiliary_Loop 0457 00d9 | | Load_Top At_Offset_1 0458 e002 | | Load 0x0,0x2 0459 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 045a 6fea |o | Jump_Zero 0x445 045b 00ce | | Action Pop_Auxiliary 045c e5fe | | Load 0x2,-0x2 045d 6810 |h | Jump_Zero 0x46e 045e 00da | | Load_Top At_Offset_2 045f e002 | | Load 0x0,0x2 0460 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0461 700c |p | Jump_Nonzero 0x46e 0462 00d9 | | Load_Top At_Offset_1 0463 e406 | | Load 0x2,0x6 0464 4802 |H | Short_Literal 0x2 0465 e7ff | | Load 0x3,-0x1 0466 e604 | | Load 0x3,0x4 0467 e001 | | Load 0x0,0x1 0468 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0469 c406 | | Store 0x2,0x6 046a c605 | | Store 0x3,0x5 046b 00d9 | | Load_Top At_Offset_1 046c 822f | / | Call 0x1,0x2f 046d c605 | | Store 0x3,0x5 046e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 046f TRAP_03d8: 046f e00b | | Load 0x0,0xb 0470 010f | | Execute Exception,Equal 0471 680a |h | Jump_Zero 0x47c 0472 e5fc | | Load 0x2,-0x4 0473 0092 04c5 | | Action Push_String_Extended,0x4c5 ; "Unexpected errors were encountered attempting to repair " 0475 e408 | | Load 0x2,0x8 0476 01cc | | Execute Vector,Catenate 0477 e009 | | Load 0x0,0x9 0478 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0479 8230 | 0 | Call 0x1,0x30 047a c5fc | | Store 0x2,-0x4 047b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 047c 0100 | | Execute Exception,Raise 047d 0000 0000 | | .XXX[0x3] 047f 0000 | | 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 0483 | | .CONST 0x0483 ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 0001 | | .CONST 0x0001 ; Number of locals 0483 BODY_0480: 0483 INIT_0480: 0483 e5ff | | Load 0x2,-0x1 0484 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0485 7003 |p | Jump_Nonzero 0x489 0486 0092 04c6 | | Action Push_String_Extended,0x4c6 ; "null" 0488 00ca | | Action Exit_Nullary_Function 0489 487d |H} | Short_Literal 0x7d 048a 487b |H{ | Short_Literal 0x7b 048b e5ff | | Load 0x2,-0x1 048c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 048d 0217 | | Execute Heap_Access,All_Reference 048e 01ca | | Execute Vector,Prepend 048f 01cb | | Execute Vector,Append 0490 00ca | | Action Exit_Nullary_Function 0491 0000 0000 | | .BLANK 0000[0x7] 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 049b | | .CONST 0x049b ; Address of begin 0499 0004 | | .CONST 0x0004 ; Address of exception handler 049a 0001 | | .CONST 0x0001 ; Number of locals 049b BODY_0498: 049b INIT_0498: 049b 4608 |F | Jump_Case 0x9 049c 7808 |x | Jump 0x4a5 ; case 0x0 049d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 049e 7813 |x | Jump 0x4b2 ; case 0x2 049f 7812 |x | Jump 0x4b2 ; case 0x3 04a0 7811 |x | Jump 0x4b2 ; case 0x4 04a1 7810 |x | Jump 0x4b2 ; case 0x5 04a2 780f |x | Jump 0x4b2 ; case 0x6 04a3 780e |x | Jump 0x4b2 ; case 0x7 04a4 780d |x | Jump 0x4b2 ; case 0x8 04a5 00da | | Load_Top At_Offset_2 04a6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 04a7 0125 | % | Execute Any,Set_Constraint 04a8 00da | | Load_Top At_Offset_2 04a9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 04aa 1c00 | | Execute_Immediate Run_Utility,0x0 04ab 00da | | Load_Top At_Offset_2 04ac 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 04ad 0125 | % | Execute Any,Set_Constraint 04ae 00da | | Load_Top At_Offset_2 04af 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 04b0 1c00 | | Execute_Immediate Run_Utility,0x0 04b1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 04b2 0869 | i | Execute_Immediate Raise,0x69 04b3 ; -------------------------------------------------------------------------------------- 04b3 ; STRING TABLE 04b3 ; -------------------------------------------------------------------------------------- 04b3 002a | * | .STRTAB 0x002a->0x04c8 ; ".STATE.TOOL_STATE.RDF." 04b4 003e | > | .STRTAB 0x003e->0x04d3 ; "Bad view handle in Cache_Operations.Open (" 04b5 0066 | f | .STRTAB 0x0066->0x04e8 ; "Retrieve'N(2)" 04b6 0071 | q | .STRTAB 0x0071->0x04ee ; "Initialize" 04b7 0079 | y | .STRTAB 0x0079->0x04f3 ; "Bad view handle in Cache_Operations.Check_Cache (" 04b8 00a8 | | .STRTAB 0x00a8->0x050c ; "Errors have been detected in " 04b9 00c3 | | .STRTAB 0x00c3->0x051a ; "Check_Cache" 04ba 00cc | | .STRTAB 0x00cc->0x0520 ; "{View_Context => " 04bb 00db | | .STRTAB 0x00db->0x0528 ; " The_Cache => {" 04bc 00eb | | .STRTAB 0x00eb->0x0531 ; " " 04bd 00ec | | .STRTAB 0x00ec->0x0533 ; "}}" 04be 00ec | | .STRTAB 0x00ec->0x0534 ; "Unexpected exception in Cache_Operations." 04bf 0113 | | .STRTAB 0x0113->0x0548 ; " (" 04c0 0113 | | .STRTAB 0x0113->0x0549 ; "Errors were detected in the \x22" 04c1 012e | . | .STRTAB 0x012e->0x0558 ; "\x22 domain" 04c2 0134 | 4 | .STRTAB 0x0134->0x055c ; "Invalid entries were detected in the " 04c3 0157 | W | .STRTAB 0x0157->0x056e ; " domain" 04c4 015c | \ | .STRTAB 0x015c->0x0572 ; " is in the Source state" 04c5 0171 | q | .STRTAB 0x0171->0x057d ; "Unexpected errors were encountered attempting to repair " 04c6 01a7 | | .STRTAB 0x01a7->0x0599 ; "null" 04c7 01a9 | | .STREND 0x01a9->0x059b 04c8 2e53 5441 |.STA| .STRTAB_STRINGS 059c 0000 0000 | | .BLANK 0000[0x4] 05a0 ; -------------------------------------------------------------------------------------- 05a0 ; Debug Table 05a0 ; -------------------------------------------------------------------------------------- 05a0 0004 0012 | | .DEBUG4 0x0004,0x0012,0xc576,0x0000,0x0001,0x0000 05a6 0000 0000 | | .BLANK 0000[0x5a]