|
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: 6144 (0x1800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦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 0a88 | | .CONST 0x0a88 ; 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 8007 | | .CONST 0x8007 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00ea | | .CONST 0x00ea ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 004e | N | .CONST 0x004e ; Number of locals 000b INIT_0008: 000b 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 000d 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 000f 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0011 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0013 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0015 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0017 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 0019 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 001b 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 001d 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 001f 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated 0021 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 0023 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 0025 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 0027 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 0029 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated 002b 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 002d 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated 002f 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated 0031 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated 0033 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated 0035 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated 0037 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated 0039 029a 040b | | Declare_Subprogram INIT_0408,For_Outer_Call,Visible,Unelaborated 003b 029a 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call,Visible,Unelaborated 003d 029a 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Visible,Unelaborated 003f 029a 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call,Visible,Unelaborated 0041 029a 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call,Visible,Unelaborated 0043 029a 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Visible,Unelaborated 0045 029a 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call,Visible,Unelaborated 0047 029a 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call,Visible,Unelaborated 0049 029a 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call,Visible,Unelaborated 004b 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated 004d 029a 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call,Visible,Unelaborated 004f 029a 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call,Visible,Unelaborated 0051 029a 0523 | #| Declare_Subprogram INIT_0520,For_Outer_Call,Visible,Unelaborated 0053 029a 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call,Visible,Unelaborated 0055 029a 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call,Visible,Unelaborated 0057 029a 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call,Visible,Unelaborated 0059 029a 0563 | c| Declare_Subprogram INIT_0560,For_Outer_Call,Visible,Unelaborated 005b 029a 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call,Visible,Unelaborated 005d e002 | | Load 0x0,0x2 005e 00e1 | | Load_Encached Boolean_Cache 005f e003 | | Load 0x0,0x3 0060 029f 097b | {| Declare_Subprogram INIT_0978,For_Call 0062 4803 |H | Short_Literal 0x3 0063 032e | . | Declare_Type Record,Defined,Visible 0064 00bf | | Action Accept_Activation 0065 0092 0989 | | Action Push_String_Extended,0x989 ; "Gen_VR_Field: field not found" 0067 0092 098a | | Action Push_String_Extended,0x98a ; "Internal Error: No runtime offset attribute could be found for " 0069 0092 098b | | Action Push_String_Extended,0x98b ; "Object too complex to be evaluated by debugger" 006b 0093 0000 | | push_full_address 0x0 006d 6092 |` | Indirect_Literal Discrete,0x100,{0x80000000, 0x00010000} 006e 0273 | s | Execute Discrete,Plus 006f 0007 | | Action Break_Optional 0070 00eb | | Load_Encached Diana_Cache 0071 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0072 029d 0593 | | Declare_Subprogram INIT_0590,For_Outer_Call 0074 029d 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call 0076 029d 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call 0078 029d 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call 007a 029d 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call 007c 029d 0633 | 3| Declare_Subprogram INIT_0630,For_Outer_Call 007e 029d 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call 0080 029d 06c3 | | Declare_Subprogram INIT_06c0,For_Outer_Call 0082 029d 06cb | | Declare_Subprogram INIT_06c8,For_Outer_Call 0084 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0085 00c7 | | Action Elaborate_Subprogram 0086 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0087 00c7 | | Action Elaborate_Subprogram 0088 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 0089 00c7 | | Action Elaborate_Subprogram 008a 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 008b 00c7 | | Action Elaborate_Subprogram 008c 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 008d 00c7 | | Action Elaborate_Subprogram 008e 029d 06e3 | | Declare_Subprogram INIT_06e0,For_Outer_Call 0090 029d 06fb | | Declare_Subprogram INIT_06f8,For_Outer_Call 0092 029d 0713 | | Declare_Subprogram INIT_0710,For_Outer_Call 0094 029d 072b | +| Declare_Subprogram INIT_0728,For_Outer_Call 0096 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0097 00c7 | | Action Elaborate_Subprogram 0098 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0099 00c7 | | Action Elaborate_Subprogram 009a 029d 0743 | C| Declare_Subprogram INIT_0740,For_Outer_Call 009c 029d 0783 | | Declare_Subprogram INIT_0780,For_Outer_Call 009e 029d 07c3 | | Declare_Subprogram INIT_07c0,For_Outer_Call 00a0 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00a1 00c7 | | Action Elaborate_Subprogram 00a2 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 00a3 00c7 | | Action Elaborate_Subprogram 00a4 029d 0813 | | Declare_Subprogram INIT_0810,For_Outer_Call 00a6 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 00a7 00c7 | | Action Elaborate_Subprogram 00a8 029d 0823 | #| Declare_Subprogram INIT_0820,For_Outer_Call 00aa 029d 086b | k| Declare_Subprogram INIT_0868,For_Outer_Call 00ac 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00ad 00c7 | | Action Elaborate_Subprogram 00ae 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 00af 00c7 | | Action Elaborate_Subprogram 00b0 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00b1 00c7 | | Action Elaborate_Subprogram 00b2 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00b3 00c7 | | Action Elaborate_Subprogram 00b4 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00b5 00c7 | | Action Elaborate_Subprogram 00b6 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00b7 00c7 | | Action Elaborate_Subprogram 00b8 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00b9 00c7 | | Action Elaborate_Subprogram 00ba 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00bb 00c7 | | Action Elaborate_Subprogram 00bc 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00bd 00c7 | | Action Elaborate_Subprogram 00be 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00bf 00c7 | | Action Elaborate_Subprogram 00c0 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00c1 00c7 | | Action Elaborate_Subprogram 00c2 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00c3 00c7 | | Action Elaborate_Subprogram 00c4 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00c5 00c7 | | Action Elaborate_Subprogram 00c6 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00c7 00c7 | | Action Elaborate_Subprogram 00c8 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00c9 00c7 | | Action Elaborate_Subprogram 00ca 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00cb 00c7 | | Action Elaborate_Subprogram 00cc 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00cd 00c7 | | Action Elaborate_Subprogram 00ce 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00cf 00c7 | | Action Elaborate_Subprogram 00d0 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00d1 00c7 | | Action Elaborate_Subprogram 00d2 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00d3 00c7 | | Action Elaborate_Subprogram 00d4 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00d5 00c7 | | Action Elaborate_Subprogram 00d6 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00d7 00c7 | | Action Elaborate_Subprogram 00d8 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00d9 00c7 | | Action Elaborate_Subprogram 00da 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 00db 00c7 | | Action Elaborate_Subprogram 00dc 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 00dd 00c7 | | Action Elaborate_Subprogram 00de 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00df 00c7 | | Action Elaborate_Subprogram 00e0 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00e1 00c7 | | Action Elaborate_Subprogram 00e2 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00e3 00c7 | | Action Elaborate_Subprogram 00e4 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 00e5 00c7 | | Action Elaborate_Subprogram 00e6 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 00e7 00c7 | | Action Elaborate_Subprogram 00e8 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 00e9 00c7 | | Action Elaborate_Subprogram 00ea BODY_0008: 00ea 00bc | | Action Signal_Activated 00eb 00bb | | Action Signal_Completion 00ec 0000 0000 | | .BLANK 0000[0x4] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 4800 |H | Short_Literal 0x0 00f4 00db | | Load_Top At_Offset_3 00f5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00f6 8004 | | Call 0x0,0x4 00f7 00db | | Load_Top At_Offset_3 00f8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00f9 8005 | | Call 0x0,0x5 00fa 00db | | Load_Top At_Offset_3 00fb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00fc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00fd 0000 0000 | | .XXX[0x3] 00ff 0000 | | 0100 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0104 0000 0000 | | .BLANK 0000[0x4] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 00da | | Load_Top At_Offset_2 010c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 010d e5fe | | Load 0x2,-0x2 010e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 010f 00da | | Load_Top At_Offset_2 0110 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0111 e5fe | | Load 0x2,-0x2 0112 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0113 00db | | Load_Top At_Offset_3 0114 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0115 00db | | Load_Top At_Offset_3 0116 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0117 8006 | | Call 0x0,0x6 0118 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0119 0000 0000 | | .BLANK 0000[0x7] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0129 | ) | .CONST 0x0129 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0003 | | .CONST 0x0003 ; Number of locals 0123 INIT_0120: 0123 00e3 | | Load_Encached Natural_Cache 0124 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0125 e007 | | Load 0x0,0x7 0126 0322 | " | Declare_Variable Record 0127 00d8 | | Load_Top At_Offset_0 0128 1c00 | | Execute_Immediate Run_Utility,0x0 0129 BODY_0120: 0129 e5fd | | Load 0x2,-0x3 012a 6802 |h | Jump_Zero 0x12d 012b e5fd | | Load 0x2,-0x3 012c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 012d e5fa | | Load 0x2,-0x6 012e 00d9 | | Load_Top At_Offset_1 012f e5ff | | Load 0x2,-0x1 0130 e5fe | | Load 0x2,-0x2 0131 8008 | | Call 0x0,0x8 0132 00d1 | | Pop_Control Pop_Count_1 0133 c5fa | | Store 0x2,-0x6 0134 4802 |H | Short_Literal 0x2 0135 e5fa | | Load 0x2,-0x6 0136 e009 | | Load 0x0,0x9 0137 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0138 701a |p | Jump_Nonzero 0x153 0139 e5fa | | Load 0x2,-0x6 013a e5fb | | Load 0x2,-0x5 013b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 013c 00da | | Load_Top At_Offset_2 013d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 013e 800a | | Call 0x0,0xa 013f 00db | | Load_Top At_Offset_3 0140 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0141 800b | | Call 0x0,0xb 0142 e5fc | | Load 0x2,-0x4 0143 4800 |H | Short_Literal 0x0 0144 4800 |H | Short_Literal 0x0 0145 4800 |H | Short_Literal 0x0 0146 e5ff | | Load 0x2,-0x1 0147 00d8 | | Load_Top At_Offset_0 0148 00e3 | | Load_Encached Natural_Cache 0149 0260 | ` | Execute Discrete,In_Type 014a 7001 |p | Jump_Nonzero 0x14c 014b 0801 | | Execute_Immediate Raise,0x1 014c e5fe | | Load 0x2,-0x2 014d 800c | | Call 0x0,0xc 014e e402 | | Load 0x2,0x2 014f 800d | | Call 0x0,0xd 0150 8246 | F | Call 0x1,0x46 0151 00d1 | | Pop_Control Pop_Count_1 0152 c5fa | | Store 0x2,-0x6 0153 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0154 0000 0000 | | .BLANK 0000[0x4] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0174 | t | .CONST 0x0174 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 0092 098c | | Action Push_String_Extended,0x98c ; "Gen_Package_Access passed empty subprogram" 015d 00db | | Load_Top At_Offset_3 015e e00e | | Load 0x0,0xe 015f 021f | | Execute Heap_Access,Equal 0160 0f00 | | Execute_Immediate Equal,0x0 0161 e00f | | Load 0x0,0xf 0162 180e | | Execute Package,Field_Execute,Field_Number 0xe 0163 4802 |H | Short_Literal 0x2 0164 e5f9 | | Load 0x2,-0x7 0165 e009 | | Load 0x0,0x9 0166 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0167 700b |p | Jump_Nonzero 0x173 0168 e5f9 | | Load 0x2,-0x7 0169 e5fa | | Load 0x2,-0x6 016a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 016b e5fb | | Load 0x2,-0x5 016c 4800 |H | Short_Literal 0x0 016d e5fd | | Load 0x2,-0x3 016e e5fe | | Load 0x2,-0x2 016f 8010 | | Call 0x0,0x10 0170 8246 | F | Call 0x1,0x46 0171 00d1 | | Pop_Control Pop_Count_1 0172 c5f9 | | Store 0x2,-0x7 0173 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0174 TRAP_0158: 0174 e011 | | Load 0x0,0x11 0175 010f | | Execute Exception,Equal 0176 6807 |h | Jump_Zero 0x17e 0177 e5f9 | | Load 0x2,-0x7 0178 0092 098d | | Action Push_String_Extended,0x98d ; "Object too complex to access" 017a e009 | | Load 0x0,0x9 017b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 017c c5f9 | | Store 0x2,-0x7 017d 4506 |E | Exit_Suprogram New_Top_Offset 0x6 017e 0100 | | Execute Exception,Raise 017f 0000 | | .XXX[0x1] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 01ca | | .CONST 0x01ca ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 00db | | Load_Top At_Offset_3 0184 00eb | | Load_Encached Diana_Cache 0185 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0186 0b72 | r | Execute_Immediate Case_Compare,0x72 0187 7007 |p | Jump_Nonzero 0x18f 0188 0fa2 | | Execute_Immediate Equal,-0x5e 0189 7006 |p | Jump_Nonzero 0x190 018a 0092 098e | | Action Push_String_Extended,0x98e ; "Gen_Record_Field_Access: non record node" 018c e00f | | Load 0x0,0xf 018d 180f | | Execute Package,Field_Execute,Field_Number 0xf 018e 7801 |x | Jump 0x190 018f 00d1 | | Pop_Control Pop_Count_1 0190 00da | | Load_Top At_Offset_2 0191 00eb | | Load_Encached Diana_Cache 0192 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0193 0b1c | | Execute_Immediate Case_Compare,0x1c 0194 7007 |p | Jump_Nonzero 0x19c 0195 0f1e | | Execute_Immediate Equal,0x1e 0196 7006 |p | Jump_Nonzero 0x19d 0197 0092 098f | | Action Push_String_Extended,0x98f ; "Gen_Record_Field_Access: illegal field node" 0199 e00f | | Load 0x0,0xf 019a 180f | | Execute Package,Field_Execute,Field_Number 0xf 019b 7801 |x | Jump 0x19d 019c 00d1 | | Pop_Control Pop_Count_1 019d 00db | | Load_Top At_Offset_3 019e 824e | N | Call 0x1,0x4e 019f 680c |h | Jump_Zero 0x1ac 01a0 e5f7 | | Load 0x2,-0x9 01a1 e5f8 | | Load 0x2,-0x8 01a2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01a3 e5f9 | | Load 0x2,-0x7 01a4 e5fa | | Load 0x2,-0x6 01a5 e5fb | | Load 0x2,-0x5 01a6 e5fe | | Load 0x2,-0x2 01a7 e5ff | | Load 0x2,-0x1 01a8 824d | M | Call 0x1,0x4d 01a9 00d1 | | Pop_Control Pop_Count_1 01aa c5f7 | | Store 0x2,-0x9 01ab 4508 |E | Exit_Suprogram New_Top_Offset 0x8 01ac e5f7 | | Load 0x2,-0x9 01ad e5f8 | | Load 0x2,-0x8 01ae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01af 4800 |H | Short_Literal 0x0 01b0 e5ff | | Load 0x2,-0x1 01b1 823d | = | Call 0x1,0x3d 01b2 8012 | | Call 0x0,0x12 01b3 e5fb | | Load 0x2,-0x5 01b4 e5f8 | | Load 0x2,-0x8 01b5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01b6 8240 | @ | Call 0x1,0x40 01b7 8013 | | Call 0x0,0x13 01b8 8246 | F | Call 0x1,0x46 01b9 00d1 | | Pop_Control Pop_Count_1 01ba c5f7 | | Store 0x2,-0x9 01bb e5f7 | | Load 0x2,-0x9 01bc e5f8 | | Load 0x2,-0x8 01bd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01be e5fa | | Load 0x2,-0x6 01bf e5f9 | | Load 0x2,-0x7 01c0 4800 |H | Short_Literal 0x0 01c1 e5fb | | Load 0x2,-0x5 01c2 e5f8 | | Load 0x2,-0x8 01c3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01c4 8240 | @ | Call 0x1,0x40 01c5 8014 | | Call 0x0,0x14 01c6 8246 | F | Call 0x1,0x46 01c7 00d1 | | Pop_Control Pop_Count_1 01c8 c5f7 | | Store 0x2,-0x9 01c9 4508 |E | Exit_Suprogram New_Top_Offset 0x8 01ca TRAP_0180: 01ca e23a | : | Load 0x1,0x3a 01cb 010f | | Execute Exception,Equal 01cc 6809 |h | Jump_Zero 0x1d6 01cd e5f7 | | Load 0x2,-0x9 01ce 00ea | | Load_Encached Null_String_Cache 01cf e5ff | | Load 0x2,-0x1 01d0 823c | < | Call 0x1,0x3c 01d1 e238 | 8 | Load 0x1,0x38 01d2 e009 | | Load 0x0,0x9 01d3 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01d4 c5f7 | | Store 0x2,-0x9 01d5 4508 |E | Exit_Suprogram New_Top_Offset 0x8 01d6 e5f7 | | Load 0x2,-0x9 01d7 0092 0990 | | Action Push_String_Extended,0x990 ; "Internal error: " 01d9 e015 | | Load 0x0,0x15 01da 180d | | Execute Package,Field_Execute,Field_Number 0xd 01db 01cc | | Execute Vector,Catenate 01dc 0092 0991 | | Action Push_String_Extended,0x991 ; " raised while accessing an object" 01de 01cc | | Execute Vector,Catenate 01df e009 | | Load 0x0,0x9 01e0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01e1 c5f7 | | Store 0x2,-0x9 01e2 4508 |E | Exit_Suprogram New_Top_Offset 0x8 01e3 0000 0000 | | .BLANK 0000[0x5] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 021c | | .CONST 0x021c ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 48a2 |H | Short_Literal 0xa2 01ec 00db | | Load_Top At_Offset_3 01ed 823e | > | Call 0x1,0x3e 01ee 00da | | Load_Top At_Offset_2 01ef e016 | | Load 0x0,0x16 01f0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01f1 6820 |h | Jump_Zero 0x212 01f2 e5fb | | Load 0x2,-0x5 01f3 e5fc | | Load 0x2,-0x4 01f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01f5 4800 |H | Short_Literal 0x0 01f6 e5ff | | Load 0x2,-0x1 01f7 823d | = | Call 0x1,0x3d 01f8 8012 | | Call 0x0,0x12 01f9 e5fe | | Load 0x2,-0x2 01fa e5fc | | Load 0x2,-0x4 01fb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01fc 8240 | @ | Call 0x1,0x40 01fd 8013 | | Call 0x0,0x13 01fe 8246 | F | Call 0x1,0x46 01ff 00d1 | | Pop_Control Pop_Count_1 0200 c5fb | | Store 0x2,-0x5 0201 e5fb | | Load 0x2,-0x5 0202 e5fc | | Load 0x2,-0x4 0203 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0204 e5fd | | Load 0x2,-0x3 0205 4800 |H | Short_Literal 0x0 0206 4800 |H | Short_Literal 0x0 0207 4800 |H | Short_Literal 0x0 0208 4800 |H | Short_Literal 0x0 0209 e5fe | | Load 0x2,-0x2 020a e5fc | | Load 0x2,-0x4 020b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 020c 8240 | @ | Call 0x1,0x40 020d 8017 | | Call 0x0,0x17 020e 8246 | F | Call 0x1,0x46 020f 00d1 | | Pop_Control Pop_Count_1 0210 c5fb | | Store 0x2,-0x5 0211 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0212 e5fb | | Load 0x2,-0x5 0213 e5fc | | Load 0x2,-0x4 0214 4800 |H | Short_Literal 0x0 0215 e5fd | | Load 0x2,-0x3 0216 4800 |H | Short_Literal 0x0 0217 e5fe | | Load 0x2,-0x2 0218 822f | / | Call 0x1,0x2f 0219 00d1 | | Pop_Control Pop_Count_1 021a c5fb | | Store 0x2,-0x5 021b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 021c TRAP_01e8: 021c e23a | : | Load 0x1,0x3a 021d 010f | | Execute Exception,Equal 021e 6809 |h | Jump_Zero 0x228 021f e5fb | | Load 0x2,-0x5 0220 00ea | | Load_Encached Null_String_Cache 0221 e5ff | | Load 0x2,-0x1 0222 823c | < | Call 0x1,0x3c 0223 e238 | 8 | Load 0x1,0x38 0224 e009 | | Load 0x0,0x9 0225 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0226 c5fb | | Store 0x2,-0x5 0227 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0228 e5fb | | Load 0x2,-0x5 0229 0092 0990 | | Action Push_String_Extended,0x990 ; "Internal error: " 022b e015 | | Load 0x0,0x15 022c 180d | | Execute Package,Field_Execute,Field_Number 0xd 022d 01cc | | Execute Vector,Catenate 022e 0092 0991 | | Action Push_String_Extended,0x991 ; " raised while accessing an object" 0230 01cc | | Execute Vector,Catenate 0231 e009 | | Load 0x0,0x9 0232 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0233 c5fb | | Store 0x2,-0x5 0234 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0235 0000 0000 | | .XXX[0x3] 0237 0000 | | 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b e5fb | | Load 0x2,-0x5 023c e5fc | | Load 0x2,-0x4 023d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 023e e5fe | | Load 0x2,-0x2 023f e5ff | | Load 0x2,-0x1 0240 e5fc | | Load 0x2,-0x4 0241 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0242 8240 | @ | Call 0x1,0x40 0243 8018 | | Call 0x0,0x18 0244 8246 | F | Call 0x1,0x46 0245 00d1 | | Pop_Control Pop_Count_1 0246 c5fb | | Store 0x2,-0x5 0247 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0255 | U | .CONST 0x0255 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b e5fa | | Load 0x2,-0x6 024c e5fb | | Load 0x2,-0x5 024d 4800 |H | Short_Literal 0x0 024e e5fc | | Load 0x2,-0x4 024f e5fd | | Load 0x2,-0x3 0250 e5ff | | Load 0x2,-0x1 0251 8249 | I | Call 0x1,0x49 0252 00d1 | | Pop_Control Pop_Count_1 0253 c5fa | | Store 0x2,-0x6 0254 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0255 TRAP_0248: 0255 e23a | : | Load 0x1,0x3a 0256 010f | | Execute Exception,Equal 0257 6809 |h | Jump_Zero 0x261 0258 e5fa | | Load 0x2,-0x6 0259 00ea | | Load_Encached Null_String_Cache 025a e5ff | | Load 0x2,-0x1 025b 823c | < | Call 0x1,0x3c 025c e238 | 8 | Load 0x1,0x38 025d e009 | | Load 0x0,0x9 025e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 025f c5fa | | Store 0x2,-0x6 0260 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0261 0100 | | Execute Exception,Raise 0262 0000 0000 | | .BLANK 0000[0x6] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b e5f9 | | Load 0x2,-0x7 026c e5fa | | Load 0x2,-0x6 026d 4800 |H | Short_Literal 0x0 026e e5fb | | Load 0x2,-0x5 026f e5fc | | Load 0x2,-0x4 0270 e5ff | | Load 0x2,-0x1 0271 824b | K | Call 0x1,0x4b 0272 00d1 | | Pop_Control Pop_Count_1 0273 c5f9 | | Store 0x2,-0x7 0274 4506 |E | Exit_Suprogram New_Top_Offset 0x6 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 e5f8 | | Load 0x2,-0x8 027c e5f9 | | Load 0x2,-0x7 027d e5fa | | Load 0x2,-0x6 027e e5fb | | Load 0x2,-0x5 027f e5fc | | Load 0x2,-0x4 0280 e5ff | | Load 0x2,-0x1 0281 824b | K | Call 0x1,0x4b 0282 00d1 | | Pop_Control Pop_Count_1 0283 c5f8 | | Store 0x2,-0x8 0284 e5f8 | | Load 0x2,-0x8 0285 e5f9 | | Load 0x2,-0x7 0286 822a | * | Call 0x1,0x2a 0287 00d1 | | Pop_Control Pop_Count_1 0288 c5f8 | | Store 0x2,-0x8 0289 4507 |E | Exit_Suprogram New_Top_Offset 0x7 028a 0000 0000 | | .BLANK 0000[0x6] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 e5f8 | | Load 0x2,-0x8 0294 e5f9 | | Load 0x2,-0x7 0295 e5fa | | Load 0x2,-0x6 0296 e5fb | | Load 0x2,-0x5 0297 e5fc | | Load 0x2,-0x4 0298 e5ff | | Load 0x2,-0x1 0299 824b | K | Call 0x1,0x4b 029a 00d1 | | Pop_Control Pop_Count_1 029b c5f8 | | Store 0x2,-0x8 029c e5f8 | | Load 0x2,-0x8 029d e5f9 | | Load 0x2,-0x7 029e 822a | * | Call 0x1,0x2a 029f 00d1 | | Pop_Control Pop_Count_1 02a0 c5f8 | | Store 0x2,-0x8 02a1 4507 |E | Exit_Suprogram New_Top_Offset 0x7 02a2 0000 0000 | | .BLANK 0000[0x6] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ab | | .CONST 0x02ab ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0001 | | .CONST 0x0001 ; Number of locals 02ab BODY_02a8: 02ab INIT_02a8: 02ab e5f8 | | Load 0x2,-0x8 02ac e5f9 | | Load 0x2,-0x7 02ad e5fa | | Load 0x2,-0x6 02ae e5fb | | Load 0x2,-0x5 02af e5fc | | Load 0x2,-0x4 02b0 e5ff | | Load 0x2,-0x1 02b1 824b | K | Call 0x1,0x4b 02b2 00d1 | | Pop_Control Pop_Count_1 02b3 c5f8 | | Store 0x2,-0x8 02b4 4507 |E | Exit_Suprogram New_Top_Offset 0x7 02b5 0000 0000 | | .XXX[0x3] 02b7 0000 | | 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bc | | .CONST 0x02bc ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0002 | | .CONST 0x0002 ; Number of locals 02bb INIT_02b8: 02bb 00e1 | | Load_Encached Boolean_Cache 02bc BODY_02b8: 02bc e5f8 | | Load 0x2,-0x8 02bd e5f9 | | Load 0x2,-0x7 02be e5fa | | Load 0x2,-0x6 02bf e5fb | | Load 0x2,-0x5 02c0 e5fc | | Load 0x2,-0x4 02c1 e5ff | | Load 0x2,-0x1 02c2 824b | K | Call 0x1,0x4b 02c3 00d1 | | Pop_Control Pop_Count_1 02c4 c5f8 | | Store 0x2,-0x8 02c5 4507 |E | Exit_Suprogram New_Top_Offset 0x7 02c6 0000 0000 | | .XXX[0x2] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb e5f8 | | Load 0x2,-0x8 02cc e5f9 | | Load 0x2,-0x7 02cd 4800 |H | Short_Literal 0x0 02ce e5fa | | Load 0x2,-0x6 02cf e5fb | | Load 0x2,-0x5 02d0 e5ff | | Load 0x2,-0x1 02d1 824a | J | Call 0x1,0x4a 02d2 00d1 | | Pop_Control Pop_Count_1 02d3 c5f8 | | Store 0x2,-0x8 02d4 4507 |E | Exit_Suprogram New_Top_Offset 0x7 02d5 0000 0000 | | .XXX[0x3] 02d7 0000 | | 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02db | | .CONST 0x02db ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0001 | | .CONST 0x0001 ; Number of locals 02db BODY_02d8: 02db INIT_02d8: 02db e5f9 | | Load 0x2,-0x7 02dc e5fa | | Load 0x2,-0x6 02dd 4800 |H | Short_Literal 0x0 02de e5fb | | Load 0x2,-0x5 02df e5fc | | Load 0x2,-0x4 02e0 e5ff | | Load 0x2,-0x1 02e1 824a | J | Call 0x1,0x4a 02e2 00d1 | | Pop_Control Pop_Count_1 02e3 c5f9 | | Store 0x2,-0x7 02e4 e5f9 | | Load 0x2,-0x7 02e5 e5fa | | Load 0x2,-0x6 02e6 822a | * | Call 0x1,0x2a 02e7 00d1 | | Pop_Control Pop_Count_1 02e8 c5f9 | | Store 0x2,-0x7 02e9 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02ea 0000 0000 | | .BLANK 0000[0x6] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02f3 | | .CONST 0x02f3 ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0001 | | .CONST 0x0001 ; Number of locals 02f3 BODY_02f0: 02f3 INIT_02f0: 02f3 e5f9 | | Load 0x2,-0x7 02f4 e5fa | | Load 0x2,-0x6 02f5 4800 |H | Short_Literal 0x0 02f6 e5fb | | Load 0x2,-0x5 02f7 e5fc | | Load 0x2,-0x4 02f8 e5ff | | Load 0x2,-0x1 02f9 8249 | I | Call 0x1,0x49 02fa 00d1 | | Pop_Control Pop_Count_1 02fb c5f9 | | Store 0x2,-0x7 02fc e5f9 | | Load 0x2,-0x7 02fd e5fa | | Load 0x2,-0x6 02fe 822a | * | Call 0x1,0x2a 02ff 00d1 | | Pop_Control Pop_Count_1 0300 c5f9 | | Store 0x2,-0x7 0301 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0302 0000 0000 | | .BLANK 0000[0x6] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030c | | .CONST 0x030c ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0002 | | .CONST 0x0002 ; Number of locals 030b INIT_0308: 030b 00e1 | | Load_Encached Boolean_Cache 030c BODY_0308: 030c e5f8 | | Load 0x2,-0x8 030d e5f9 | | Load 0x2,-0x7 030e e5fa | | Load 0x2,-0x6 030f e5fb | | Load 0x2,-0x5 0310 e5fc | | Load 0x2,-0x4 0311 e5ff | | Load 0x2,-0x1 0312 824a | J | Call 0x1,0x4a 0313 00d1 | | Pop_Control Pop_Count_1 0314 c5f8 | | Store 0x2,-0x8 0315 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0316 0000 0000 | | .XXX[0x2] 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 031c | | .CONST 0x031c ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0002 | | .CONST 0x0002 ; Number of locals 031b INIT_0318: 031b 00e1 | | Load_Encached Boolean_Cache 031c BODY_0318: 031c e5f8 | | Load 0x2,-0x8 031d e5f9 | | Load 0x2,-0x7 031e e5fa | | Load 0x2,-0x6 031f e5fb | | Load 0x2,-0x5 0320 e5fc | | Load 0x2,-0x4 0321 e5ff | | Load 0x2,-0x1 0322 8249 | I | Call 0x1,0x49 0323 00d1 | | Pop_Control Pop_Count_1 0324 c5f8 | | Store 0x2,-0x8 0325 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0326 0000 0000 | | .XXX[0x2] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032b | + | .CONST 0x032b ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0001 | | .CONST 0x0001 ; Number of locals 032b BODY_0328: 032b INIT_0328: 032b 00da | | Load_Top At_Offset_2 032c e019 | | Load 0x0,0x19 032d 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 032e 680f |h | Jump_Zero 0x33e 032f e5f9 | | Load 0x2,-0x7 0330 e5fa | | Load 0x2,-0x6 0331 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0332 e5fc | | Load 0x2,-0x4 0333 e5fb | | Load 0x2,-0x5 0334 4800 |H | Short_Literal 0x0 0335 e5fd | | Load 0x2,-0x3 0336 e5fa | | Load 0x2,-0x6 0337 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0338 8240 | @ | Call 0x1,0x40 0339 801a | | Call 0x0,0x1a 033a 8246 | F | Call 0x1,0x46 033b 00d1 | | Pop_Control Pop_Count_1 033c c5f9 | | Store 0x2,-0x7 033d 4506 |E | Exit_Suprogram New_Top_Offset 0x6 033e e5f9 | | Load 0x2,-0x7 033f e5fa | | Load 0x2,-0x6 0340 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0341 e5fc | | Load 0x2,-0x4 0342 e5fb | | Load 0x2,-0x5 0343 4800 |H | Short_Literal 0x0 0344 e5fd | | Load 0x2,-0x3 0345 e5fa | | Load 0x2,-0x6 0346 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0347 8240 | @ | Call 0x1,0x40 0348 801b | | Call 0x0,0x1b 0349 8246 | F | Call 0x1,0x46 034a 00d1 | | Pop_Control Pop_Count_1 034b c5f9 | | Store 0x2,-0x7 034c 4506 |E | Exit_Suprogram New_Top_Offset 0x6 034d 0000 0000 | | .XXX[0x3] 034f 0000 | | 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0353 | S | .CONST 0x0353 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0001 | | .CONST 0x0001 ; Number of locals 0353 BODY_0350: 0353 INIT_0350: 0353 00da | | Load_Top At_Offset_2 0354 e019 | | Load 0x0,0x19 0355 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0356 680e |h | Jump_Zero 0x365 0357 e5fa | | Load 0x2,-0x6 0358 e5fb | | Load 0x2,-0x5 0359 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 035a e5fd | | Load 0x2,-0x3 035b e5fc | | Load 0x2,-0x4 035c e5fe | | Load 0x2,-0x2 035d e5fb | | Load 0x2,-0x5 035e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 035f 8240 | @ | Call 0x1,0x40 0360 801c | | Call 0x0,0x1c 0361 8246 | F | Call 0x1,0x46 0362 00d1 | | Pop_Control Pop_Count_1 0363 c5fa | | Store 0x2,-0x6 0364 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0365 e5fa | | Load 0x2,-0x6 0366 e5fb | | Load 0x2,-0x5 0367 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0368 e5fd | | Load 0x2,-0x3 0369 e5fc | | Load 0x2,-0x4 036a e5fe | | Load 0x2,-0x2 036b e5fb | | Load 0x2,-0x5 036c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 036d 8240 | @ | Call 0x1,0x40 036e 801d | | Call 0x0,0x1d 036f 8246 | F | Call 0x1,0x46 0370 00d1 | | Pop_Control Pop_Count_1 0371 c5fa | | Store 0x2,-0x6 0372 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0373 0000 0000 | | .BLANK 0000[0x5] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 0381 | | .CONST 0x0381 ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0002 | | .CONST 0x0002 ; Number of locals 037b INIT_0378: 037b e5fc | | Load 0x2,-0x4 037c e5f9 | | Load 0x2,-0x7 037d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 037e 8240 | @ | Call 0x1,0x40 037f 00e3 | | Load_Encached Natural_Cache 0380 03f1 | | Declare_Variable Discrete,With_Value 0381 BODY_0378: 0381 e5f5 | | Load 0x2,-0xb 0382 e5f9 | | Load 0x2,-0x7 0383 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0384 4800 |H | Short_Literal 0x0 0385 e5fe | | Load 0x2,-0x2 0386 8012 | | Call 0x0,0x12 0387 e402 | | Load 0x2,0x2 0388 8013 | | Call 0x0,0x13 0389 8246 | F | Call 0x1,0x46 038a 00d1 | | Pop_Control Pop_Count_1 038b c5f5 | | Store 0x2,-0xb 038c e5f5 | | Load 0x2,-0xb 038d e5f9 | | Load 0x2,-0x7 038e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 038f e5fa | | Load 0x2,-0x6 0390 e5fd | | Load 0x2,-0x3 0391 e402 | | Load 0x2,0x2 0392 801e | | Call 0x0,0x1e 0393 8246 | F | Call 0x1,0x46 0394 00d1 | | Pop_Control Pop_Count_1 0395 c5f5 | | Store 0x2,-0xb 0396 4800 |H | Short_Literal 0x0 0397 a5f8 | | Store_Unchecked 0x2,-0x8 0398 4800 |H | Short_Literal 0x0 0399 a5f7 | | Store_Unchecked 0x2,-0x9 039a 4800 |H | Short_Literal 0x0 039b a5f6 | | Store_Unchecked 0x2,-0xa 039c 4507 |E | Exit_Suprogram New_Top_Offset 0x7 039d 0000 0000 | | .XXX[0x3] 039f 0000 | | 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03ad | | .CONST 0x03ad ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0003 | | .CONST 0x0003 ; Number of locals 03a3 INIT_03a0: 03a3 e5fc | | Load 0x2,-0x4 03a4 01db | | Execute Vector,Length 03a5 00e3 | | Load_Encached Natural_Cache 03a6 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 03a7 e5fb | | Load 0x2,-0x5 03a8 e5f8 | | Load 0x2,-0x8 03a9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03aa 8240 | @ | Call 0x1,0x40 03ab 00e3 | | Load_Encached Natural_Cache 03ac 03f1 | | Declare_Variable Discrete,With_Value 03ad BODY_03a0: 03ad 00cf | | Action Mark_Auxiliary 03ae 00da | | Load_Top At_Offset_2 03af 4801 |H | Short_Literal 0x1 03b0 0263 | c | Execute Discrete,Above_Bound 03b1 700f |p | Jump_Nonzero 0x3c1 03b2 e5f7 | | Load 0x2,-0x9 03b3 e5f8 | | Load 0x2,-0x8 03b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03b5 4800 |H | Short_Literal 0x0 03b6 00db | | Load_Top At_Offset_3 03b7 e5fc | | Load 0x2,-0x4 03b8 01d7 | | Execute Vector,Field_Read 03b9 801f | | Call 0x0,0x1f 03ba e403 | | Load 0x2,0x3 03bb 8013 | | Call 0x0,0x13 03bc 8246 | F | Call 0x1,0x46 03bd 00d1 | | Pop_Control Pop_Count_1 03be c5f7 | | Store 0x2,-0x9 03bf 00c8 | | Action Pop_Auxiliary_Range 03c0 3ff1 |? | Loop_Increasing 0x3b2 03c1 00ce | | Action Pop_Auxiliary 03c2 00d9 | | Load_Top At_Offset_1 03c3 0f01 | | Execute_Immediate Equal,0x1 03c4 680c |h | Jump_Zero 0x3d1 03c5 e5f7 | | Load 0x2,-0x9 03c6 e5f8 | | Load 0x2,-0x8 03c7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03c8 e5fa | | Load 0x2,-0x6 03c9 e5f9 | | Load 0x2,-0x7 03ca 4800 |H | Short_Literal 0x0 03cb e403 | | Load 0x2,0x3 03cc 8020 | | Call 0x0,0x20 03cd 8246 | F | Call 0x1,0x46 03ce 00d1 | | Pop_Control Pop_Count_1 03cf c5f7 | | Store 0x2,-0x9 03d0 4508 |E | Exit_Suprogram New_Top_Offset 0x8 03d1 e5f7 | | Load 0x2,-0x9 03d2 e5f8 | | Load 0x2,-0x8 03d3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03d4 4800 |H | Short_Literal 0x0 03d5 e402 | | Load 0x2,0x2 03d6 8012 | | Call 0x0,0x12 03d7 e403 | | Load 0x2,0x3 03d8 8013 | | Call 0x0,0x13 03d9 8246 | F | Call 0x1,0x46 03da 00d1 | | Pop_Control Pop_Count_1 03db c5f7 | | Store 0x2,-0x9 03dc e5f7 | | Load 0x2,-0x9 03dd e5f8 | | Load 0x2,-0x8 03de 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03df e5fa | | Load 0x2,-0x6 03e0 e5f9 | | Load 0x2,-0x7 03e1 4800 |H | Short_Literal 0x0 03e2 e403 | | Load 0x2,0x3 03e3 8021 | ! | Call 0x0,0x21 03e4 8246 | F | Call 0x1,0x46 03e5 00d1 | | Pop_Control Pop_Count_1 03e6 c5f7 | | Store 0x2,-0x9 03e7 4508 |E | Exit_Suprogram New_Top_Offset 0x8 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 e016 | | Load 0x0,0x16 03ed 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03ee 6807 |h | Jump_Zero 0x3f6 03ef e5f9 | | Load 0x2,-0x7 03f0 0092 0992 | | Action Push_String_Extended,0x992 ; "Unimplemented feature" 03f2 e009 | | Load 0x0,0x9 03f3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03f4 c5f9 | | Store 0x2,-0x7 03f5 4506 |E | Exit_Suprogram New_Top_Offset 0x6 03f6 e5f9 | | Load 0x2,-0x7 03f7 e5fa | | Load 0x2,-0x6 03f8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03f9 e5fc | | Load 0x2,-0x4 03fa e5fb | | Load 0x2,-0x5 03fb 4800 |H | Short_Literal 0x0 03fc e5fd | | Load 0x2,-0x3 03fd e5fa | | Load 0x2,-0x6 03fe 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03ff 8240 | @ | Call 0x1,0x40 0400 8014 | | Call 0x0,0x14 0401 8246 | F | Call 0x1,0x46 0402 00d1 | | Pop_Control Pop_Count_1 0403 c5f9 | | Store 0x2,-0x7 0404 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0405 0000 0000 | | .XXX[0x3] 0407 0000 | | 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 0411 | | .CONST 0x0411 ; Address of begin 0409 0004 | | .CONST 0x0004 ; Address of exception handler 040a 0002 | | .CONST 0x0002 ; Number of locals 040b INIT_0408: 040b 00db | | Load_Top At_Offset_3 040c e5fc | | Load 0x2,-0x4 040d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 040e 8240 | @ | Call 0x1,0x40 040f 00e3 | | Load_Encached Natural_Cache 0410 03f1 | | Declare_Variable Discrete,With_Value 0411 BODY_0408: 0411 e5fb | | Load 0x2,-0x5 0412 e5fc | | Load 0x2,-0x4 0413 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0414 e5fd | | Load 0x2,-0x3 0415 00db | | Load_Top At_Offset_3 0416 8022 | " | Call 0x0,0x22 0417 8246 | F | Call 0x1,0x46 0418 00d1 | | Pop_Control Pop_Count_1 0419 c5fb | | Store 0x2,-0x5 041a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 041b 0000 0000 | | .BLANK 0000[0x5] 0420 ; -------------------------------------------------------------------------------------- 0420 ; SUBPROGRAM 0420 ; -------------------------------------------------------------------------------------- 0420 0429 | ) | .CONST 0x0429 ; Address of begin 0421 0004 | | .CONST 0x0004 ; Address of exception handler 0422 0002 | | .CONST 0x0002 ; Number of locals 0423 INIT_0420: 0423 4800 |H | Short_Literal 0x0 0424 e5fe | | Load 0x2,-0x2 0425 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0426 8240 | @ | Call 0x1,0x40 0427 00e3 | | Load_Encached Natural_Cache 0428 03f1 | | Declare_Variable Discrete,With_Value 0429 BODY_0420: 0429 e5fd | | Load 0x2,-0x3 042a e5fe | | Load 0x2,-0x2 042b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 042c e5ff | | Load 0x2,-0x1 042d 00db | | Load_Top At_Offset_3 042e 8023 | # | Call 0x0,0x23 042f 8246 | F | Call 0x1,0x46 0430 00d1 | | Pop_Control Pop_Count_1 0431 c5fd | | Store 0x2,-0x3 0432 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0433 0000 0000 | | .BLANK 0000[0x5] 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 043b | ; | .CONST 0x043b ; Address of begin 0439 0004 | | .CONST 0x0004 ; Address of exception handler 043a 0001 | | .CONST 0x0001 ; Number of locals 043b BODY_0438: 043b INIT_0438: 043b 00db | | Load_Top At_Offset_3 043c 00db | | Load_Top At_Offset_3 043d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 043e 4800 |H | Short_Literal 0x0 043f e5ff | | Load 0x2,-0x1 0440 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0441 8240 | @ | Call 0x1,0x40 0442 8024 | $ | Call 0x0,0x24 0443 8246 | F | Call 0x1,0x46 0444 00d1 | | Pop_Control Pop_Count_1 0445 c5fe | | Store 0x2,-0x2 0446 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0447 0000 | | .XXX[0x1] 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 0454 | T | .CONST 0x0454 ; Address of begin 0449 0004 | | .CONST 0x0004 ; Address of exception handler 044a 0003 | | .CONST 0x0003 ; Number of locals 044b INIT_0448: 044b 00db | | Load_Top At_Offset_3 044c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 044d 8025 | % | Call 0x0,0x25 044e 00e3 | | Load_Encached Natural_Cache 044f 03f1 | | Declare_Variable Discrete,With_Value 0450 e026 | & | Load 0x0,0x26 0451 0322 | " | Declare_Variable Record 0452 00d8 | | Load_Top At_Offset_0 0453 1c00 | | Execute_Immediate Run_Utility,0x0 0454 BODY_0448: 0454 00d9 | | Load_Top At_Offset_1 0455 00d8 | | Load_Top At_Offset_0 0456 00e4 | | Load_Encached Positive_Cache 0457 0260 | ` | Execute Discrete,In_Type 0458 7001 |p | Jump_Nonzero 0x45a 0459 0801 | | Execute_Immediate Raise,0x1 045a e5fe | | Load 0x2,-0x2 045b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 045c 8027 | ' | Call 0x0,0x27 045d 00d9 | | Load_Top At_Offset_1 045e 017d | } | Execute Record,Structure_Write 045f 00d8 | | Load_Top At_Offset_0 0460 8028 | ( | Call 0x0,0x28 0461 00d1 | | Pop_Control Pop_Count_1 0462 e5fd | | Load 0x2,-0x3 0463 e5fe | | Load 0x2,-0x2 0464 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0465 00da | | Load_Top At_Offset_2 0466 e402 | | Load 0x2,0x2 0467 00d8 | | Load_Top At_Offset_0 0468 00e4 | | Load_Encached Positive_Cache 0469 0260 | ` | Execute Discrete,In_Type 046a 7001 |p | Jump_Nonzero 0x46c 046b 0801 | | Execute_Immediate Raise,0x1 046c 8247 | G | Call 0x1,0x47 046d 00d1 | | Pop_Control Pop_Count_1 046e c5fd | | Store 0x2,-0x3 046f e5fd | | Load 0x2,-0x3 0470 e5fe | | Load 0x2,-0x2 0471 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0472 4800 |H | Short_Literal 0x0 0473 e5ff | | Load 0x2,-0x1 0474 4800 |H | Short_Literal 0x0 0475 8013 | | Call 0x0,0x13 0476 e402 | | Load 0x2,0x2 0477 00d8 | | Load_Top At_Offset_0 0478 00e4 | | Load_Encached Positive_Cache 0479 0260 | ` | Execute Discrete,In_Type 047a 7001 |p | Jump_Nonzero 0x47c 047b 0801 | | Execute_Immediate Raise,0x1 047c 8248 | H | Call 0x1,0x48 047d 00d1 | | Pop_Control Pop_Count_1 047e c5fd | | Store 0x2,-0x3 047f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 048c | | .CONST 0x048c ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 0003 | | .CONST 0x0003 ; Number of locals 0483 INIT_0480: 0483 00db | | Load_Top At_Offset_3 0484 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0485 8025 | % | Call 0x0,0x25 0486 00e3 | | Load_Encached Natural_Cache 0487 03f1 | | Declare_Variable Discrete,With_Value 0488 e026 | & | Load 0x0,0x26 0489 0322 | " | Declare_Variable Record 048a 00d8 | | Load_Top At_Offset_0 048b 1c00 | | Execute_Immediate Run_Utility,0x0 048c BODY_0480: 048c 00cf | | Action Mark_Auxiliary 048d 4801 |H | Short_Literal 0x1 048e 00db | | Load_Top At_Offset_3 048f 0264 | d | Execute Discrete,Below_Bound 0490 7018 |p | Jump_Nonzero 0x4a9 0491 00d8 | | Load_Top At_Offset_0 0492 e5fe | | Load 0x2,-0x2 0493 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0494 8027 | ' | Call 0x0,0x27 0495 e403 | | Load 0x2,0x3 0496 017d | } | Execute Record,Structure_Write 0497 00db | | Load_Top At_Offset_3 0498 8029 | ) | Call 0x0,0x29 0499 0f11 | | Execute_Immediate Equal,0x11 049a 680c |h | Jump_Zero 0x4a7 049b e5fd | | Load 0x2,-0x3 049c e5fe | | Load 0x2,-0x2 049d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 049e 4800 |H | Short_Literal 0x0 049f e5ff | | Load 0x2,-0x1 04a0 4800 |H | Short_Literal 0x0 04a1 8013 | | Call 0x0,0x13 04a2 00db | | Load_Top At_Offset_3 04a3 8247 | G | Call 0x1,0x47 04a4 00d1 | | Pop_Control Pop_Count_1 04a5 c5fd | | Store 0x2,-0x3 04a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04a7 00c8 | | Action Pop_Auxiliary_Range 04a8 37e8 |7 | Loop_Decreasing 0x491 04a9 00ce | | Action Pop_Auxiliary 04aa 0092 0993 | | Action Push_String_Extended,0x993 ; "code_gen.alter_write: no load_discrete_constant instruction" 04ac e00f | | Load 0x0,0xf 04ad 180f | | Execute Package,Field_Execute,Field_Number 0xf 04ae 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04af 0000 | | .XXX[0x1] 04b0 ; -------------------------------------------------------------------------------------- 04b0 ; SUBPROGRAM 04b0 ; -------------------------------------------------------------------------------------- 04b0 04b3 | | .CONST 0x04b3 ; Address of begin 04b1 0004 | | .CONST 0x0004 ; Address of exception handler 04b2 0001 | | .CONST 0x0001 ; Number of locals 04b3 BODY_04b0: 04b3 INIT_04b0: 04b3 e5fb | | Load 0x2,-0x5 04b4 0092 0992 | | Action Push_String_Extended,0x992 ; "Unimplemented feature" 04b6 e009 | | Load 0x0,0x9 04b7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 04b8 c5fb | | Store 0x2,-0x5 04b9 4801 |H | Short_Literal 0x1 04ba a5fe | | Store_Unchecked 0x2,-0x2 04bb 802a | * | Call 0x0,0x2a 04bc a5fd | | Store_Unchecked 0x2,-0x3 04bd 802b | + | Call 0x0,0x2b 04be a5fc | | Store_Unchecked 0x2,-0x4 04bf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04c3 | | .CONST 0x04c3 ; Address of begin 04c1 0004 | | .CONST 0x0004 ; Address of exception handler 04c2 0001 | | .CONST 0x0001 ; Number of locals 04c3 BODY_04c0: 04c3 INIT_04c0: 04c3 00db | | Load_Top At_Offset_3 04c4 00db | | Load_Top At_Offset_3 04c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04c6 4800 |H | Short_Literal 0x0 04c7 e5ff | | Load 0x2,-0x1 04c8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 04c9 8240 | @ | Call 0x1,0x40 04ca 802c | , | Call 0x0,0x2c 04cb 8246 | F | Call 0x1,0x46 04cc 00d1 | | Pop_Control Pop_Count_1 04cd c5fe | | Store 0x2,-0x2 04ce 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04cf 0000 | | .XXX[0x1] 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04d3 | | .CONST 0x04d3 ; Address of begin 04d1 0004 | | .CONST 0x0004 ; Address of exception handler 04d2 0001 | | .CONST 0x0001 ; Number of locals 04d3 BODY_04d0: 04d3 INIT_04d0: 04d3 8005 | | Call 0x0,0x5 04d4 00db | | Load_Top At_Offset_3 04d5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 04d6 00db | | Load_Top At_Offset_3 04d7 00db | | Load_Top At_Offset_3 04d8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04d9 4800 |H | Short_Literal 0x0 04da e5ff | | Load 0x2,-0x1 04db 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 04dc 8240 | @ | Call 0x1,0x40 04dd 802d | - | Call 0x0,0x2d 04de 8246 | F | Call 0x1,0x46 04df 00d1 | | Pop_Control Pop_Count_1 04e0 c5fe | | Store 0x2,-0x2 04e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04e2 0000 0000 | | .BLANK 0000[0x6] 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; SUBPROGRAM 04e8 ; -------------------------------------------------------------------------------------- 04e8 04eb | | .CONST 0x04eb ; Address of begin 04e9 0004 | | .CONST 0x0004 ; Address of exception handler 04ea 0001 | | .CONST 0x0001 ; Number of locals 04eb BODY_04e8: 04eb INIT_04e8: 04eb 00da | | Load_Top At_Offset_2 04ec 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04ed 824c | L | Call 0x1,0x4c 04ee 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04ef 0000 | | .XXX[0x1] 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04f3 | | .CONST 0x04f3 ; Address of begin 04f1 0004 | | .CONST 0x0004 ; Address of exception handler 04f2 0001 | | .CONST 0x0001 ; Number of locals 04f3 BODY_04f0: 04f3 INIT_04f0: 04f3 e5fd | | Load 0x2,-0x3 04f4 e5fe | | Load 0x2,-0x2 04f5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04f6 4801 |H | Short_Literal 0x1 04f7 e5ff | | Load 0x2,-0x1 04f8 802e | . | Call 0x0,0x2e 04f9 8246 | F | Call 0x1,0x46 04fa 00d1 | | Pop_Control Pop_Count_1 04fb c5fd | | Store 0x2,-0x3 04fc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04fd 0000 0000 | | .XXX[0x3] 04ff 0000 | | 0500 ; -------------------------------------------------------------------------------------- 0500 ; SUBPROGRAM 0500 ; -------------------------------------------------------------------------------------- 0500 0503 | | .CONST 0x0503 ; Address of begin 0501 0004 | | .CONST 0x0004 ; Address of exception handler 0502 0001 | | .CONST 0x0001 ; Number of locals 0503 BODY_0500: 0503 INIT_0500: 0503 e5f9 | | Load 0x2,-0x7 0504 e5fa | | Load 0x2,-0x6 0505 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0506 e5fb | | Load 0x2,-0x5 0507 e5fc | | Load 0x2,-0x4 0508 e5fd | | Load 0x2,-0x3 0509 e5fe | | Load 0x2,-0x2 050a e5ff | | Load 0x2,-0x1 050b 802f | / | Call 0x0,0x2f 050c 8246 | F | Call 0x1,0x46 050d 00d1 | | Pop_Control Pop_Count_1 050e c5f9 | | Store 0x2,-0x7 050f 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0510 ; -------------------------------------------------------------------------------------- 0510 ; SUBPROGRAM 0510 ; -------------------------------------------------------------------------------------- 0510 0513 | | .CONST 0x0513 ; Address of begin 0511 0004 | | .CONST 0x0004 ; Address of exception handler 0512 0001 | | .CONST 0x0001 ; Number of locals 0513 BODY_0510: 0513 INIT_0510: 0513 e5fa | | Load 0x2,-0x6 0514 e5fb | | Load 0x2,-0x5 0515 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0516 e5fc | | Load 0x2,-0x4 0517 e5fd | | Load 0x2,-0x3 0518 e5fe | | Load 0x2,-0x2 0519 e5ff | | Load 0x2,-0x1 051a 8030 | 0 | Call 0x0,0x30 051b 8246 | F | Call 0x1,0x46 051c 00d1 | | Pop_Control Pop_Count_1 051d c5fa | | Store 0x2,-0x6 051e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 051f 0000 | | .XXX[0x1] 0520 ; -------------------------------------------------------------------------------------- 0520 ; SUBPROGRAM 0520 ; -------------------------------------------------------------------------------------- 0520 0523 | # | .CONST 0x0523 ; Address of begin 0521 0004 | | .CONST 0x0004 ; Address of exception handler 0522 0001 | | .CONST 0x0001 ; Number of locals 0523 BODY_0520: 0523 INIT_0520: 0523 00da | | Load_Top At_Offset_2 0524 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0525 8025 | % | Call 0x0,0x25 0526 0a14 | | Execute_Immediate Plus,0x14 0527 0c80 | | Execute_Immediate Greater_Equal,-0x80 0528 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0529 0000 0000 | | .BLANK 0000[0x7] 0530 ; -------------------------------------------------------------------------------------- 0530 ; SUBPROGRAM 0530 ; -------------------------------------------------------------------------------------- 0530 0533 | 3 | .CONST 0x0533 ; Address of begin 0531 0004 | | .CONST 0x0004 ; Address of exception handler 0532 0001 | | .CONST 0x0001 ; Number of locals 0533 BODY_0530: 0533 INIT_0530: 0533 4801 |H | Short_Literal 0x1 0534 e5fe | | Load 0x2,-0x2 0535 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0536 00da | | Load_Top At_Offset_2 0537 e5fe | | Load 0x2,-0x2 0538 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0539 4502 |E | Exit_Suprogram New_Top_Offset 0x2 053a 0000 0000 | | .BLANK 0000[0x6] 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 0543 | C | .CONST 0x0543 ; Address of begin 0541 0004 | | .CONST 0x0004 ; Address of exception handler 0542 0001 | | .CONST 0x0001 ; Number of locals 0543 BODY_0540: 0543 INIT_0540: 0543 00da | | Load_Top At_Offset_2 0544 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0545 a5fe | | Store_Unchecked 0x2,-0x2 0546 00da | | Load_Top At_Offset_2 0547 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0548 e5fd | | Load 0x2,-0x3 0549 017d | } | Execute Record,Structure_Write 054a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 054b 0000 0000 | | .BLANK 0000[0x5] 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 0553 | S | .CONST 0x0553 ; Address of begin 0551 0004 | | .CONST 0x0004 ; Address of exception handler 0552 0001 | | .CONST 0x0001 ; Number of locals 0553 BODY_0550: 0553 INIT_0550: 0553 e5fd | | Load 0x2,-0x3 0554 e5fe | | Load 0x2,-0x2 0555 e5ff | | Load 0x2,-0x1 0556 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0557 8031 | 1 | Call 0x0,0x31 0558 00d1 | | Pop_Control Pop_Count_1 0559 c5fd | | Store 0x2,-0x3 055a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 055b 0000 0000 | | .BLANK 0000[0x5] 0560 ; -------------------------------------------------------------------------------------- 0560 ; SUBPROGRAM 0560 ; -------------------------------------------------------------------------------------- 0560 0568 | h | .CONST 0x0568 ; Address of begin 0561 0004 | | .CONST 0x0004 ; Address of exception handler 0562 0002 | | .CONST 0x0002 ; Number of locals 0563 INIT_0560: 0563 4801 |H | Short_Literal 0x1 0564 e032 | 2 | Load 0x0,0x32 0565 1c08 | | Execute_Immediate Run_Utility,0x8 0566 00d8 | | Load_Top At_Offset_0 0567 1c00 | | Execute_Immediate Run_Utility,0x0 0568 BODY_0560: 0568 e5fd | | Load 0x2,-0x3 0569 00d9 | | Load_Top At_Offset_1 056a e5ff | | Load 0x2,-0x1 056b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 056c 8031 | 1 | Call 0x0,0x31 056d 00d1 | | Pop_Control Pop_Count_1 056e c5fd | | Store 0x2,-0x3 056f 4802 |H | Short_Literal 0x2 0570 e5fd | | Load 0x2,-0x3 0571 e009 | | Load 0x0,0x9 0572 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0573 7005 |p | Jump_Nonzero 0x579 0574 4801 |H | Short_Literal 0x1 0575 00d9 | | Load_Top At_Offset_1 0576 8033 | 3 | Call 0x0,0x33 0577 e5fe | | Load 0x2,-0x2 0578 017d | } | Execute Record,Structure_Write 0579 4502 |E | Exit_Suprogram New_Top_Offset 0x2 057a 0000 0000 | | .BLANK 0000[0x6] 0580 ; -------------------------------------------------------------------------------------- 0580 ; SUBPROGRAM 0580 ; -------------------------------------------------------------------------------------- 0580 0588 | | .CONST 0x0588 ; Address of begin 0581 0004 | | .CONST 0x0004 ; Address of exception handler 0582 0002 | | .CONST 0x0002 ; Number of locals 0583 INIT_0580: 0583 4801 |H | Short_Literal 0x1 0584 e032 | 2 | Load 0x0,0x32 0585 1c08 | | Execute_Immediate Run_Utility,0x8 0586 00d8 | | Load_Top At_Offset_0 0587 1c00 | | Execute_Immediate Run_Utility,0x0 0588 BODY_0580: 0588 e5fe | | Load 0x2,-0x2 0589 00d9 | | Load_Top At_Offset_1 058a e5ff | | Load 0x2,-0x1 058b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 058c 8031 | 1 | Call 0x0,0x31 058d 00d1 | | Pop_Control Pop_Count_1 058e c5fe | | Store 0x2,-0x2 058f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0590 ; -------------------------------------------------------------------------------------- 0590 ; SUBPROGRAM 0590 ; -------------------------------------------------------------------------------------- 0590 0593 | | .CONST 0x0593 ; Address of begin 0591 0004 | | .CONST 0x0004 ; Address of exception handler 0592 0001 | | .CONST 0x0001 ; Number of locals 0593 BODY_0590: 0593 INIT_0590: 0593 00da | | Load_Top At_Offset_2 0594 00eb | | Load_Encached Diana_Cache 0595 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0596 6806 |h | Jump_Zero 0x59d 0597 00da | | Load_Top At_Offset_2 0598 00eb | | Load_Encached Diana_Cache 0599 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 059a 00eb | | Load_Encached Diana_Cache 059b 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 059c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 059d 00ea | | Load_Encached Null_String_Cache 059e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 059f 0000 | | .XXX[0x1] 05a0 ; -------------------------------------------------------------------------------------- 05a0 ; SUBPROGRAM 05a0 ; -------------------------------------------------------------------------------------- 05a0 05a7 | | .CONST 0x05a7 ; Address of begin 05a1 0004 | | .CONST 0x0004 ; Address of exception handler 05a2 0004 | | .CONST 0x0004 ; Number of locals 05a3 INIT_05a0: 05a3 00e2 | | Load_Encached Integer_Cache 05a4 00ec | | Load_Encached Diana_Tree_Cache 05a5 029f 0883 | | Declare_Subprogram INIT_0880,For_Call 05a7 BODY_05a0: 05a7 e5ff | | Load 0x2,-0x1 05a8 e034 | 4 | Load 0x0,0x34 05a9 1b10 | | Execute Package,Field_Read,Field_Number 0x10 05aa 181d | | Execute Package,Field_Execute,Field_Number 0x1d 05ab 6806 |h | Jump_Zero 0x5b2 05ac e5ff | | Load 0x2,-0x1 05ad e034 | 4 | Load 0x0,0x34 05ae 1b10 | | Execute Package,Field_Read,Field_Number 0x10 05af 181c | | Execute Package,Field_Execute,Field_Number 0x1c 05b0 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 05b1 780e |x | Jump 0x5c0 05b2 8404 | | Call 0x2,0x4 05b3 00d9 | | Load_Top At_Offset_1 05b4 e034 | 4 | Load 0x0,0x34 05b5 1b10 | | Execute Package,Field_Read,Field_Number 0x10 05b6 181d | | Execute Package,Field_Execute,Field_Number 0x1d 05b7 6806 |h | Jump_Zero 0x5be 05b8 00d9 | | Load_Top At_Offset_1 05b9 e034 | 4 | Load 0x0,0x34 05ba 1b10 | | Execute Package,Field_Read,Field_Number 0x10 05bb 181c | | Execute Package,Field_Execute,Field_Number 0x1c 05bc 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 05bd 7802 |x | Jump 0x5c0 05be e23a | : | Load 0x1,0x3a 05bf 0257 | W | Execute Discrete,Raise 05c0 00da | | Load_Top At_Offset_2 05c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05c2 0000 0000 | | .BLANK 0000[0x6] 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05cb | | .CONST 0x05cb ; Address of begin 05c9 0004 | | .CONST 0x0004 ; Address of exception handler 05ca 0001 | | .CONST 0x0001 ; Number of locals 05cb BODY_05c8: 05cb INIT_05c8: 05cb 0092 0994 | | Action Push_String_Extended,0x994 ; "Code_Gen failure" 05cd 00db | | Load_Top At_Offset_3 05ce 00eb | | Load_Encached Diana_Cache 05cf 1814 | | Execute Package,Field_Execute,Field_Number 0x14 05d0 e5fe | | Load 0x2,-0x2 05d1 027f | | Execute Discrete,Equal 05d2 e00f | | Load 0x0,0xf 05d3 180e | | Execute Package,Field_Execute,Field_Number 0xe 05d4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05d5 0000 0000 | | .XXX[0x3] 05d7 0000 | | 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05e3 | | .CONST 0x05e3 ; Address of begin 05d9 0004 | | .CONST 0x0004 ; Address of exception handler 05da 0003 | | .CONST 0x0003 ; Number of locals 05db INIT_05d8: 05db e026 | & | Load 0x0,0x26 05dc 0322 | " | Declare_Variable Record 05dd 00d8 | | Load_Top At_Offset_0 05de 1c00 | | Execute_Immediate Run_Utility,0x0 05df 00db | | Load_Top At_Offset_3 05e0 8025 | % | Call 0x0,0x25 05e1 00e3 | | Load_Encached Natural_Cache 05e2 03f1 | | Declare_Variable Discrete,With_Value 05e3 BODY_05d8: 05e3 00d8 | | Load_Top At_Offset_0 05e4 7001 |p | Jump_Nonzero 0x5e6 05e5 08e0 | | Execute_Immediate Raise,0xe0 05e6 00d8 | | Load_Top At_Offset_0 05e7 00d8 | | Load_Top At_Offset_0 05e8 00e4 | | Load_Encached Positive_Cache 05e9 0260 | ` | Execute Discrete,In_Type 05ea 7001 |p | Jump_Nonzero 0x5ec 05eb 0801 | | Execute_Immediate Raise,0x1 05ec e5ff | | Load 0x2,-0x1 05ed 8027 | ' | Call 0x0,0x27 05ee 00da | | Load_Top At_Offset_2 05ef 017d | } | Execute Record,Structure_Write 05f0 00d9 | | Load_Top At_Offset_1 05f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05f2 0000 0000 | | .BLANK 0000[0x6] 05f8 ; -------------------------------------------------------------------------------------- 05f8 ; SUBPROGRAM 05f8 ; -------------------------------------------------------------------------------------- 05f8 0606 | | .CONST 0x0606 ; Address of begin 05f9 0004 | | .CONST 0x0004 ; Address of exception handler 05fa 0004 | | .CONST 0x0004 ; Number of locals 05fb INIT_05f8: 05fb e026 | & | Load 0x0,0x26 05fc 0322 | " | Declare_Variable Record 05fd 00d8 | | Load_Top At_Offset_0 05fe 1c00 | | Execute_Immediate Run_Utility,0x0 05ff 00e3 | | Load_Encached Natural_Cache 0600 480a |H | Short_Literal 0xa 0601 e035 | 5 | Load 0x0,0x35 0602 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0603 1c08 | | Execute_Immediate Run_Utility,0x8 0604 00d8 | | Load_Top At_Offset_0 0605 1c00 | | Execute_Immediate Run_Utility,0x0 0606 BODY_05f8: 0606 e5fe | | Load 0x2,-0x2 0607 7024 |p$ | Jump_Nonzero 0x62c 0608 e5ff | | Load 0x2,-0x1 0609 8025 | % | Call 0x0,0x25 060a 7002 |p | Jump_Nonzero 0x60d 060b 4800 |H | Short_Literal 0x0 060c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 060d e5ff | | Load 0x2,-0x1 060e 823f | ? | Call 0x1,0x3f 060f 00db | | Load_Top At_Offset_3 0610 017d | } | Execute Record,Structure_Write 0611 00da | | Load_Top At_Offset_2 0612 8029 | ) | Call 0x0,0x29 0613 0f03 | | Execute_Immediate Equal,0x3 0614 7003 |p | Jump_Nonzero 0x618 0615 00da | | Load_Top At_Offset_2 0616 8036 | 6 | Call 0x0,0x36 0617 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0618 00da | | Load_Top At_Offset_2 0619 8037 | 7 | Call 0x0,0x37 061a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 061b 00d8 | | Load_Top At_Offset_0 061c 00da | | Load_Top At_Offset_2 061d 00e0 | | Load_Encached Standard_Cache 061e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 061f e035 | 5 | Load 0x0,0x35 0620 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0621 00d1 | | Pop_Control Pop_Count_1 0622 00d8 | | Load_Top At_Offset_0 0623 e035 | 5 | Load 0x0,0x35 0624 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0625 0a02 | | Execute_Immediate Plus,0x2 0626 00d8 | | Load_Top At_Offset_0 0627 00e3 | | Load_Encached Natural_Cache 0628 0260 | ` | Execute Discrete,In_Type 0629 7001 |p | Jump_Nonzero 0x62b 062a 0801 | | Execute_Immediate Raise,0x1 062b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 062c e5fe | | Load 0x2,-0x2 062d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 062e 0000 0000 | | .XXX[0x2] 0630 ; -------------------------------------------------------------------------------------- 0630 ; SUBPROGRAM 0630 ; -------------------------------------------------------------------------------------- 0630 0646 | F | .CONST 0x0646 ; Address of begin 0631 06b6 | | .CONST 0x06b6 ; Address of exception handler 0632 0008 | | .CONST 0x0008 ; Number of locals 0633 INIT_0630: 0633 00ec | | Load_Encached Diana_Tree_Cache 0634 00eb | | Load_Encached Diana_Cache 0635 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0636 0322 | " | Declare_Variable Record 0637 00d8 | | Load_Top At_Offset_0 0638 1c00 | | Execute_Immediate Run_Utility,0x0 0639 e038 | 8 | Load 0x0,0x38 063a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 063b 02c7 | | Declare_Variable Any 063c 00d8 | | Load_Top At_Offset_0 063d 1c00 | | Execute_Immediate Run_Utility,0x0 063e e038 | 8 | Load 0x0,0x38 063f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0640 02c7 | | Declare_Variable Any 0641 00d8 | | Load_Top At_Offset_0 0642 1c00 | | Execute_Immediate Run_Utility,0x0 0643 00e5 | | Load_Encached Long_Integer_Cache 0644 00e2 | | Load_Encached Integer_Cache 0645 00e6 | | Load_Encached Float_Cache 0646 BODY_0630: 0646 4800 |H | Short_Literal 0x0 0647 a5fe | | Store_Unchecked 0x2,-0x2 0648 8004 | | Call 0x0,0x4 0649 e5fd | | Load 0x2,-0x3 064a 017d | } | Execute Record,Structure_Write 064b e5ff | | Load 0x2,-0x1 064c 00eb | | Load_Encached Diana_Cache 064d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 064e 00d8 | | Load_Top At_Offset_0 064f 481d |H | Short_Literal 0x1d 0650 4831 |H1 | Short_Literal 0x31 0651 0262 | b | Execute Discrete,In_Range 0652 681f |h | Jump_Zero 0x672 0653 0b1d | | Execute_Immediate Case_Compare,0x1d 0654 7016 |p | Jump_Nonzero 0x66b 0655 0b28 | ( | Execute_Immediate Case_Compare,0x28 0656 7003 |p | Jump_Nonzero 0x65a 0657 0f31 | 1 | Execute_Immediate Equal,0x31 0658 7007 |p | Jump_Nonzero 0x660 0659 4502 |E | Exit_Suprogram New_Top_Offset 0x2 065a 00d1 | | Pop_Control Pop_Count_1 065b e5ff | | Load 0x2,-0x1 065c 00eb | | Load_Encached Diana_Cache 065d 18ff | | Execute Package,Field_Execute,Field_Number 0xff 065e a402 | | Store_Unchecked 0x2,0x2 065f 7814 |x | Jump 0x674 0660 e5ff | | Load 0x2,-0x1 0661 00eb | | Load_Encached Diana_Cache 0662 18f0 | | Execute Package,Field_Execute,Field_Number 0xf0 0663 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0664 00d9 | | Load_Top At_Offset_1 0665 8012 | | Call 0x0,0x12 0666 e5fd | | Load 0x2,-0x3 0667 017d | } | Execute Record,Structure_Write 0668 4801 |H | Short_Literal 0x1 0669 a5fe | | Store_Unchecked 0x2,-0x2 066a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 066b 00d1 | | Pop_Control Pop_Count_1 066c e5ff | | Load 0x2,-0x1 066d 4901 |I | Short_Literal 0x101 066e 00eb | | Load_Encached Diana_Cache 066f 0096 | | Execute Package,Entry 0670 a402 | | Store_Unchecked 0x2,0x2 0671 7802 |x | Jump 0x674 0672 00d1 | | Pop_Control Pop_Count_1 0673 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0674 e402 | | Load 0x2,0x2 0675 00eb | | Load_Encached Diana_Cache 0676 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0677 703d |p= | Jump_Nonzero 0x6b5 0678 e402 | | Load 0x2,0x2 0679 e034 | 4 | Load 0x0,0x34 067a 1b10 | | Execute Package,Field_Read,Field_Number 0x10 067b 181e | | Execute Package,Field_Execute,Field_Number 0x1e 067c 680c |h | Jump_Zero 0x689 067d e402 | | Load 0x2,0x2 067e e034 | 4 | Load 0x0,0x34 067f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0680 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0681 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0682 00d9 | | Load_Top At_Offset_1 0683 8012 | | Call 0x0,0x12 0684 e5fd | | Load 0x2,-0x3 0685 017d | } | Execute Record,Structure_Write 0686 4801 |H | Short_Literal 0x1 0687 a5fe | | Store_Unchecked 0x2,-0x2 0688 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0689 e402 | | Load 0x2,0x2 068a 00eb | | Load_Encached Diana_Cache 068b 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 068c e403 | | Load 0x2,0x3 068d 017d | } | Execute Record,Structure_Write 068e e403 | | Load 0x2,0x3 068f 00eb | | Load_Encached Diana_Cache 0690 18a5 | | Execute Package,Field_Execute,Field_Number 0xa5 0691 680f |h | Jump_Zero 0x6a1 0692 4801 |H | Short_Literal 0x1 0693 a5fe | | Store_Unchecked 0x2,-0x2 0694 e403 | | Load 0x2,0x3 0695 00eb | | Load_Encached Diana_Cache 0696 189f | | Execute Package,Field_Execute,Field_Number 0x9f 0697 c405 | | Store 0x2,0x5 0698 00db | | Load_Top At_Offset_3 0699 e038 | 8 | Load 0x0,0x38 069a 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 069b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 069c 00da | | Load_Top At_Offset_2 069d 801f | | Call 0x0,0x1f 069e e5fd | | Load 0x2,-0x3 069f 017d | } | Execute Record,Structure_Write 06a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06a1 e403 | | Load 0x2,0x3 06a2 00eb | | Load_Encached Diana_Cache 06a3 18a6 | | Execute Package,Field_Execute,Field_Number 0xa6 06a4 680f |h | Jump_Zero 0x6b4 06a5 4801 |H | Short_Literal 0x1 06a6 a5fe | | Store_Unchecked 0x2,-0x2 06a7 e403 | | Load 0x2,0x3 06a8 00eb | | Load_Encached Diana_Cache 06a9 18a0 | | Execute Package,Field_Execute,Field_Number 0xa0 06aa c404 | | Store 0x2,0x4 06ab e404 | | Load 0x2,0x4 06ac e038 | 8 | Load 0x0,0x38 06ad 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 06ae 0041 | A | Store_Top_Unchecked Float,At_Offset_1 06af 00d8 | | Load_Top At_Offset_0 06b0 8039 | 9 | Call 0x0,0x39 06b1 e5fd | | Load 0x2,-0x3 06b2 017d | } | Execute Record,Structure_Write 06b3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06b4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06b5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06b6 TRAP_0630: 06b6 0007 | | Action Break_Optional 06b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06b8 ; -------------------------------------------------------------------------------------- 06b8 ; SUBPROGRAM 06b8 ; -------------------------------------------------------------------------------------- 06b8 06bb | | .CONST 0x06bb ; Address of begin 06b9 0004 | | .CONST 0x0004 ; Address of exception handler 06ba 0001 | | .CONST 0x0001 ; Number of locals 06bb BODY_06b8: 06bb INIT_06b8: 06bb 00da | | Load_Top At_Offset_2 06bc e034 | 4 | Load 0x0,0x34 06bd 1b10 | | Execute Package,Field_Read,Field_Number 0x10 06be 1820 | | Execute Package,Field_Execute,Field_Number 0x20 06bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06c0 ; -------------------------------------------------------------------------------------- 06c0 ; SUBPROGRAM 06c0 ; -------------------------------------------------------------------------------------- 06c0 06c3 | | .CONST 0x06c3 ; Address of begin 06c1 0004 | | .CONST 0x0004 ; Address of exception handler 06c2 0001 | | .CONST 0x0001 ; Number of locals 06c3 BODY_06c0: 06c3 INIT_06c0: 06c3 00da | | Load_Top At_Offset_2 06c4 e034 | 4 | Load 0x0,0x34 06c5 1b10 | | Execute Package,Field_Read,Field_Number 0x10 06c6 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 06c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06c8 ; -------------------------------------------------------------------------------------- 06c8 ; SUBPROGRAM 06c8 ; -------------------------------------------------------------------------------------- 06c8 06cb | | .CONST 0x06cb ; Address of begin 06c9 0004 | | .CONST 0x0004 ; Address of exception handler 06ca 0001 | | .CONST 0x0001 ; Number of locals 06cb BODY_06c8: 06cb INIT_06c8: 06cb 00da | | Load_Top At_Offset_2 06cc 00eb | | Load_Encached Diana_Cache 06cd 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06ce 0fa2 | | Execute_Immediate Equal,-0x5e 06cf 6802 |h | Jump_Zero 0x6d2 06d0 4800 |H | Short_Literal 0x0 06d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06d2 00da | | Load_Top At_Offset_2 06d3 00eb | | Load_Encached Diana_Cache 06d4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06d5 0f1e | | Execute_Immediate Equal,0x1e 06d6 6802 |h | Jump_Zero 0x6d9 06d7 4801 |H | Short_Literal 0x1 06d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06d9 00da | | Load_Top At_Offset_2 06da 8243 | C | Call 0x1,0x43 06db 6802 |h | Jump_Zero 0x6de 06dc 4800 |H | Short_Literal 0x0 06dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06de 4801 |H | Short_Literal 0x1 06df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06e0 ; -------------------------------------------------------------------------------------- 06e0 ; SUBPROGRAM 06e0 ; -------------------------------------------------------------------------------------- 06e0 06e6 | | .CONST 0x06e6 ; Address of begin 06e1 0004 | | .CONST 0x0004 ; Address of exception handler 06e2 0003 | | .CONST 0x0003 ; Number of locals 06e3 INIT_06e0: 06e3 e003 | | Load 0x0,0x3 06e4 0322 | " | Declare_Variable Record 06e5 00e1 | | Load_Encached Boolean_Cache 06e6 BODY_06e0: 06e6 00d9 | | Load_Top At_Offset_1 06e7 00e1 | | Load_Encached Boolean_Cache 06e8 e5ff | | Load 0x2,-0x1 06e9 8241 | A | Call 0x1,0x41 06ea 005a | Z | Store_Top Discrete,At_Offset_2 06eb 00d1 | | Pop_Control Pop_Count_1 06ec 00d8 | | Load_Top At_Offset_0 06ed a5fd | | Store_Unchecked 0x2,-0x3 06ee 00d8 | | Load_Top At_Offset_0 06ef 6804 |h | Jump_Zero 0x6f4 06f0 e5fe | | Load 0x2,-0x2 06f1 00da | | Load_Top At_Offset_2 06f2 8231 | 1 | Call 0x1,0x31 06f3 00d1 | | Pop_Control Pop_Count_1 06f4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06f5 0000 0000 | | .XXX[0x3] 06f7 0000 | | 06f8 ; -------------------------------------------------------------------------------------- 06f8 ; SUBPROGRAM 06f8 ; -------------------------------------------------------------------------------------- 06f8 06fb | | .CONST 0x06fb ; Address of begin 06f9 06ff | | .CONST 0x06ff ; Address of exception handler 06fa 0001 | | .CONST 0x0001 ; Number of locals 06fb BODY_06f8: 06fb INIT_06f8: 06fb 00db | | Load_Top At_Offset_3 06fc 00db | | Load_Top At_Offset_3 06fd 803a | : | Call 0x0,0x3a 06fe 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06ff TRAP_06f8: 06ff e011 | | Load 0x0,0x11 0700 010f | | Execute Exception,Equal 0701 6806 |h | Jump_Zero 0x708 0702 e5fd | | Load 0x2,-0x3 0703 e239 | 9 | Load 0x1,0x39 0704 e009 | | Load 0x0,0x9 0705 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0706 c5fd | | Store 0x2,-0x3 0707 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0708 0100 | | Execute Exception,Raise 0709 0000 0000 | | .BLANK 0000[0x7] 0710 ; -------------------------------------------------------------------------------------- 0710 ; SUBPROGRAM 0710 ; -------------------------------------------------------------------------------------- 0710 0713 | | .CONST 0x0713 ; Address of begin 0711 0718 | | .CONST 0x0718 ; Address of exception handler 0712 0001 | | .CONST 0x0001 ; Number of locals 0713 BODY_0710: 0713 INIT_0710: 0713 e5fd | | Load 0x2,-0x3 0714 e5fe | | Load 0x2,-0x2 0715 e5ff | | Load 0x2,-0x1 0716 803b | ; | Call 0x0,0x3b 0717 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0718 TRAP_0710: 0718 e011 | | Load 0x0,0x11 0719 010f | | Execute Exception,Equal 071a 6806 |h | Jump_Zero 0x721 071b e5fc | | Load 0x2,-0x4 071c e239 | 9 | Load 0x1,0x39 071d e009 | | Load 0x0,0x9 071e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 071f c5fc | | Store 0x2,-0x4 0720 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0721 0100 | | Execute Exception,Raise 0722 0000 0000 | | .BLANK 0000[0x6] 0728 ; -------------------------------------------------------------------------------------- 0728 ; SUBPROGRAM 0728 ; -------------------------------------------------------------------------------------- 0728 072b | + | .CONST 0x072b ; Address of begin 0729 0730 | 0 | .CONST 0x0730 ; Address of exception handler 072a 0001 | | .CONST 0x0001 ; Number of locals 072b BODY_0728: 072b INIT_0728: 072b e5fd | | Load 0x2,-0x3 072c e5fe | | Load 0x2,-0x2 072d e5ff | | Load 0x2,-0x1 072e 803c | < | Call 0x0,0x3c 072f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0730 TRAP_0728: 0730 e011 | | Load 0x0,0x11 0731 010f | | Execute Exception,Equal 0732 6806 |h | Jump_Zero 0x739 0733 e5fc | | Load 0x2,-0x4 0734 e239 | 9 | Load 0x1,0x39 0735 e009 | | Load 0x0,0x9 0736 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0737 c5fc | | Store 0x2,-0x4 0738 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0739 0100 | | Execute Exception,Raise 073a 0000 0000 | | .BLANK 0000[0x6] 0740 ; -------------------------------------------------------------------------------------- 0740 ; SUBPROGRAM 0740 ; -------------------------------------------------------------------------------------- 0740 0744 | D | .CONST 0x0744 ; Address of begin 0741 075a | Z | .CONST 0x075a ; Address of exception handler 0742 0002 | | .CONST 0x0002 ; Number of locals 0743 INIT_0740: 0743 00e1 | | Load_Encached Boolean_Cache 0744 BODY_0740: 0744 e5fa | | Load 0x2,-0x6 0745 e5fb | | Load 0x2,-0x5 0746 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0747 e5fd | | Load 0x2,-0x3 0748 e5fc | | Load 0x2,-0x4 0749 4800 |H | Short_Literal 0x0 074a e5ff | | Load 0x2,-0x1 074b 823d | = | Call 0x1,0x3d 074c 00d8 | | Load_Top At_Offset_0 074d 00e3 | | Load_Encached Natural_Cache 074e 0260 | ` | Execute Discrete,In_Type 074f 7001 |p | Jump_Nonzero 0x751 0750 0801 | | Execute_Immediate Raise,0x1 0751 e5fe | | Load 0x2,-0x2 0752 e5fb | | Load 0x2,-0x5 0753 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0754 8240 | @ | Call 0x1,0x40 0755 803d | = | Call 0x0,0x3d 0756 8246 | F | Call 0x1,0x46 0757 00d1 | | Pop_Control Pop_Count_1 0758 c5fa | | Store 0x2,-0x6 0759 4505 |E | Exit_Suprogram New_Top_Offset 0x5 075a TRAP_0740: 075a e23a | : | Load 0x1,0x3a 075b 010f | | Execute Exception,Equal 075c 6811 |h | Jump_Zero 0x76e 075d 00e1 | | Load_Encached Boolean_Cache 075e e5fb | | Load 0x2,-0x5 075f e5ff | | Load 0x2,-0x1 0760 8245 | E | Call 0x1,0x45 0761 00d1 | | Pop_Control Pop_Count_1 0762 005a | Z | Store_Top Discrete,At_Offset_2 0763 00d9 | | Load_Top At_Offset_1 0764 7008 |p | Jump_Nonzero 0x76d 0765 e5fa | | Load 0x2,-0x6 0766 00ea | | Load_Encached Null_String_Cache 0767 e5ff | | Load 0x2,-0x1 0768 823c | < | Call 0x1,0x3c 0769 e238 | 8 | Load 0x1,0x38 076a e009 | | Load 0x0,0x9 076b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 076c c5fa | | Store 0x2,-0x6 076d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 076e e5fa | | Load 0x2,-0x6 076f 0092 0990 | | Action Push_String_Extended,0x990 ; "Internal error: " 0771 e015 | | Load 0x0,0x15 0772 180d | | Execute Package,Field_Execute,Field_Number 0xd 0773 01cc | | Execute Vector,Catenate 0774 0092 0991 | | Action Push_String_Extended,0x991 ; " raised while accessing an object" 0776 01cc | | Execute Vector,Catenate 0777 e009 | | Load 0x0,0x9 0778 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0779 c5fa | | Store 0x2,-0x6 077a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 077b 0000 0000 | | .BLANK 0000[0x5] 0780 ; -------------------------------------------------------------------------------------- 0780 ; SUBPROGRAM 0780 ; -------------------------------------------------------------------------------------- 0780 0784 | | .CONST 0x0784 ; Address of begin 0781 079a | | .CONST 0x079a ; Address of exception handler 0782 0002 | | .CONST 0x0002 ; Number of locals 0783 INIT_0780: 0783 00e1 | | Load_Encached Boolean_Cache 0784 BODY_0780: 0784 e5fa | | Load 0x2,-0x6 0785 e5fb | | Load 0x2,-0x5 0786 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0787 e5fd | | Load 0x2,-0x3 0788 e5fc | | Load 0x2,-0x4 0789 4800 |H | Short_Literal 0x0 078a e5ff | | Load 0x2,-0x1 078b 823d | = | Call 0x1,0x3d 078c 00d8 | | Load_Top At_Offset_0 078d 00e3 | | Load_Encached Natural_Cache 078e 0260 | ` | Execute Discrete,In_Type 078f 7001 |p | Jump_Nonzero 0x791 0790 0801 | | Execute_Immediate Raise,0x1 0791 e5fe | | Load 0x2,-0x2 0792 e5fb | | Load 0x2,-0x5 0793 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0794 8240 | @ | Call 0x1,0x40 0795 803d | = | Call 0x0,0x3d 0796 8246 | F | Call 0x1,0x46 0797 00d1 | | Pop_Control Pop_Count_1 0798 c5fa | | Store 0x2,-0x6 0799 4505 |E | Exit_Suprogram New_Top_Offset 0x5 079a TRAP_0780: 079a e23a | : | Load 0x1,0x3a 079b 010f | | Execute Exception,Equal 079c 6811 |h | Jump_Zero 0x7ae 079d 00e1 | | Load_Encached Boolean_Cache 079e e5fb | | Load 0x2,-0x5 079f e5ff | | Load 0x2,-0x1 07a0 8245 | E | Call 0x1,0x45 07a1 00d1 | | Pop_Control Pop_Count_1 07a2 005a | Z | Store_Top Discrete,At_Offset_2 07a3 00d9 | | Load_Top At_Offset_1 07a4 7008 |p | Jump_Nonzero 0x7ad 07a5 e5fa | | Load 0x2,-0x6 07a6 00ea | | Load_Encached Null_String_Cache 07a7 e5ff | | Load 0x2,-0x1 07a8 823c | < | Call 0x1,0x3c 07a9 e238 | 8 | Load 0x1,0x38 07aa e009 | | Load 0x0,0x9 07ab 1817 | | Execute Package,Field_Execute,Field_Number 0x17 07ac c5fa | | Store 0x2,-0x6 07ad 4505 |E | Exit_Suprogram New_Top_Offset 0x5 07ae e5fa | | Load 0x2,-0x6 07af 0092 0990 | | Action Push_String_Extended,0x990 ; "Internal error: " 07b1 e015 | | Load 0x0,0x15 07b2 180d | | Execute Package,Field_Execute,Field_Number 0xd 07b3 01cc | | Execute Vector,Catenate 07b4 0092 0991 | | Action Push_String_Extended,0x991 ; " raised while accessing an object" 07b6 01cc | | Execute Vector,Catenate 07b7 e009 | | Load 0x0,0x9 07b8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 07b9 c5fa | | Store 0x2,-0x6 07ba 4505 |E | Exit_Suprogram New_Top_Offset 0x5 07bb 0000 0000 | | .BLANK 0000[0x5] 07c0 ; -------------------------------------------------------------------------------------- 07c0 ; SUBPROGRAM 07c0 ; -------------------------------------------------------------------------------------- 07c0 07d0 | | .CONST 0x07d0 ; Address of begin 07c1 07e8 | | .CONST 0x07e8 ; Address of exception handler 07c2 0004 | | .CONST 0x0004 ; Number of locals 07c3 INIT_07c0: 07c3 e5fb | | Load 0x2,-0x5 07c4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 07c5 8025 | % | Call 0x0,0x25 07c6 00e3 | | Load_Encached Natural_Cache 07c7 03f1 | | Declare_Variable Discrete,With_Value 07c8 e026 | & | Load 0x0,0x26 07c9 0322 | " | Declare_Variable Record 07ca e5fb | | Load 0x2,-0x5 07cb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 07cc 823f | ? | Call 0x1,0x3f 07cd 00d9 | | Load_Top At_Offset_1 07ce 017d | } | Execute Record,Structure_Write 07cf 00e1 | | Load_Encached Boolean_Cache 07d0 BODY_07c0: 07d0 00d9 | | Load_Top At_Offset_1 07d1 e5ff | | Load 0x2,-0x1 07d2 823d | = | Call 0x1,0x3d 07d3 803e | > | Call 0x0,0x3e 07d4 00d1 | | Pop_Control Pop_Count_1 07d5 00d9 | | Load_Top At_Offset_1 07d6 e5fc | | Load 0x2,-0x4 07d7 e5fd | | Load 0x2,-0x3 07d8 803f | ? | Call 0x0,0x3f 07d9 00d1 | | Pop_Control Pop_Count_1 07da e5fa | | Load 0x2,-0x6 07db e5fb | | Load 0x2,-0x5 07dc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07dd 00db | | Load_Top At_Offset_3 07de e402 | | Load 0x2,0x2 07df 00d8 | | Load_Top At_Offset_0 07e0 00e4 | | Load_Encached Positive_Cache 07e1 0260 | ` | Execute Discrete,In_Type 07e2 7001 |p | Jump_Nonzero 0x7e4 07e3 0801 | | Execute_Immediate Raise,0x1 07e4 8247 | G | Call 0x1,0x47 07e5 00d1 | | Pop_Control Pop_Count_1 07e6 c5fa | | Store 0x2,-0x6 07e7 4505 |E | Exit_Suprogram New_Top_Offset 0x5 07e8 TRAP_07c0: 07e8 e23a | : | Load 0x1,0x3a 07e9 010f | | Execute Exception,Equal 07ea 6811 |h | Jump_Zero 0x7fc 07eb 00e1 | | Load_Encached Boolean_Cache 07ec e5fb | | Load 0x2,-0x5 07ed e5ff | | Load 0x2,-0x1 07ee 8245 | E | Call 0x1,0x45 07ef 00d1 | | Pop_Control Pop_Count_1 07f0 005a | Z | Store_Top Discrete,At_Offset_2 07f1 00d9 | | Load_Top At_Offset_1 07f2 7008 |p | Jump_Nonzero 0x7fb 07f3 e5fa | | Load 0x2,-0x6 07f4 00ea | | Load_Encached Null_String_Cache 07f5 e5ff | | Load 0x2,-0x1 07f6 823c | < | Call 0x1,0x3c 07f7 e238 | 8 | Load 0x1,0x38 07f8 e009 | | Load 0x0,0x9 07f9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 07fa c5fa | | Store 0x2,-0x6 07fb 4505 |E | Exit_Suprogram New_Top_Offset 0x5 07fc e5fa | | Load 0x2,-0x6 07fd 0092 0990 | | Action Push_String_Extended,0x990 ; "Internal error: " 07ff e015 | | Load 0x0,0x15 0800 180d | | Execute Package,Field_Execute,Field_Number 0xd 0801 01cc | | Execute Vector,Catenate 0802 0092 0991 | | Action Push_String_Extended,0x991 ; " raised while accessing an object" 0804 01cc | | Execute Vector,Catenate 0805 e009 | | Load 0x0,0x9 0806 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0807 c5fa | | Store 0x2,-0x6 0808 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0809 0000 0000 | | .BLANK 0000[0x7] 0810 ; -------------------------------------------------------------------------------------- 0810 ; SUBPROGRAM 0810 ; -------------------------------------------------------------------------------------- 0810 0813 | | .CONST 0x0813 ; Address of begin 0811 0004 | | .CONST 0x0004 ; Address of exception handler 0812 0001 | | .CONST 0x0001 ; Number of locals 0813 BODY_0810: 0813 INIT_0810: 0813 00da | | Load_Top At_Offset_2 0814 4801 |H | Short_Literal 0x1 0815 8040 | @ | Call 0x0,0x40 0816 4801 |H | Short_Literal 0x1 0817 803c | < | Call 0x0,0x3c 0818 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0819 0000 0000 | | .BLANK 0000[0x7] 0820 ; -------------------------------------------------------------------------------------- 0820 ; SUBPROGRAM 0820 ; -------------------------------------------------------------------------------------- 0820 0832 | 2 | .CONST 0x0832 ; Address of begin 0821 0853 | S | .CONST 0x0853 ; Address of exception handler 0822 0009 | | .CONST 0x0009 ; Number of locals 0823 INIT_0820: 0823 00ec | | Load_Encached Diana_Tree_Cache 0824 029f 0893 | | Declare_Subprogram INIT_0890,For_Call 0826 029f 08b3 | | Declare_Subprogram INIT_08b0,For_Call 0828 029f 08d3 | | Declare_Subprogram INIT_08d0,For_Call 082a 029f 0903 | | Declare_Subprogram INIT_0900,For_Call 082c 029f 091b | | Declare_Subprogram INIT_0918,For_Call 082e 029f 0933 | 3| Declare_Subprogram INIT_0930,For_Call 0830 029f 094b | K| Declare_Subprogram INIT_0948,For_Call 0832 BODY_0820: 0832 e5ff | | Load 0x2,-0x1 0833 e5fe | | Load 0x2,-0x2 0834 e016 | | Load 0x0,0x16 0835 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0836 6818 |h | Jump_Zero 0x84f 0837 e5fe | | Load 0x2,-0x2 0838 00eb | | Load_Encached Diana_Cache 0839 1888 | | Execute Package,Field_Execute,Field_Number 0x88 083a e016 | | Load 0x0,0x16 083b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 083c 00eb | | Load_Encached Diana_Cache 083d 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 083e a402 | | Store_Unchecked 0x2,0x2 083f e402 | | Load 0x2,0x2 0840 00eb | | Load_Encached Diana_Cache 0841 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0842 0fa6 | | Execute_Immediate Equal,-0x5a 0843 6805 |h | Jump_Zero 0x849 0844 e402 | | Load 0x2,0x2 0845 e5ff | | Load 0x2,-0x1 0846 e5fe | | Load 0x2,-0x2 0847 8409 | | Call 0x2,0x9 0848 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0849 e5f9 | | Load 0x2,-0x7 084a e237 | 7 | Load 0x1,0x37 084b e009 | | Load 0x0,0x9 084c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 084d c5f9 | | Store 0x2,-0x7 084e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 084f e5ff | | Load 0x2,-0x1 0850 e5fe | | Load 0x2,-0x2 0851 8406 | | Call 0x2,0x6 0852 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0853 TRAP_0820: 0853 0007 | | Action Break_Optional 0854 e5f9 | | Load 0x2,-0x7 0855 0092 0990 | | Action Push_String_Extended,0x990 ; "Internal error: " 0857 e015 | | Load 0x0,0x15 0858 180d | | Execute Package,Field_Execute,Field_Number 0xd 0859 01cc | | Execute Vector,Catenate 085a 0092 0995 | | Action Push_String_Extended,0x995 ; " raised while accessing a variant record field" 085c 01cc | | Execute Vector,Catenate 085d e009 | | Load 0x0,0x9 085e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 085f c5f9 | | Store 0x2,-0x7 0860 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0861 0000 0000 | | .BLANK 0000[0x7] 0868 ; -------------------------------------------------------------------------------------- 0868 ; SUBPROGRAM 0868 ; -------------------------------------------------------------------------------------- 0868 086b | k | .CONST 0x086b ; Address of begin 0869 0004 | | .CONST 0x0004 ; Address of exception handler 086a 0001 | | .CONST 0x0001 ; Number of locals 086b BODY_0868: 086b INIT_0868: 086b 00da | | Load_Top At_Offset_2 086c e016 | | Load 0x0,0x16 086d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 086e 6802 |h | Jump_Zero 0x871 086f 4801 |H | Short_Literal 0x1 0870 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0871 00da | | Load_Top At_Offset_2 0872 00eb | | Load_Encached Diana_Cache 0873 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0874 0fa2 | | Execute_Immediate Equal,-0x5e 0875 6802 |h | Jump_Zero 0x878 0876 4801 |H | Short_Literal 0x1 0877 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0878 4800 |H | Short_Literal 0x0 0879 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 087a 0000 0000 | | .BLANK 0000[0x6] 0880 ; -------------------------------------------------------------------------------------- 0880 ; SUBPROGRAM 0880 ; -------------------------------------------------------------------------------------- 0880 0883 | | .CONST 0x0883 ; Address of begin 0881 0889 | | .CONST 0x0889 ; Address of exception handler 0882 0001 | | .CONST 0x0001 ; Number of locals 0883 BODY_0880: 0883 INIT_0880: 0883 e5ff | | Load 0x2,-0x1 0884 490b |I | Short_Literal 0x10b 0885 00eb | | Load_Encached Diana_Cache 0886 0096 | | Execute Package,Entry 0887 a403 | | Store_Unchecked 0x2,0x3 0888 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0889 TRAP_0880: 0889 0007 | | Action Break_Optional 088a e23a | : | Load 0x1,0x3a 088b 0257 | W | Execute Discrete,Raise 088c 0000 0000 | | .BLANK 0000[0x4] 0890 ; -------------------------------------------------------------------------------------- 0890 ; SUBPROGRAM 0890 ; -------------------------------------------------------------------------------------- 0890 0896 | | .CONST 0x0896 ; Address of begin 0891 0004 | | .CONST 0x0004 ; Address of exception handler 0892 0002 | | .CONST 0x0002 ; Number of locals 0893 INIT_0890: 0893 00da | | Load_Top At_Offset_2 0894 00eb | | Load_Encached Diana_Cache 0895 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0896 BODY_0890: 0896 00cf | | Action Mark_Auxiliary 0897 7805 |x | Jump 0x89d 0898 00d9 | | Load_Top At_Offset_1 0899 00eb | | Load_Encached Diana_Cache 089a 18ec | | Execute Package,Field_Execute,Field_Number 0xec 089b 0032 | 2 | Store_Top Heap_Access,At_Offset_2 089c 00c9 | | Action Pop_Auxiliary_Loop 089d 00d9 | | Load_Top At_Offset_1 089e 00eb | | Load_Encached Diana_Cache 089f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 08a0 0f72 | r | Execute_Immediate Equal,0x72 08a1 00da | | Load_Top At_Offset_2 08a2 00eb | | Load_Encached Diana_Cache 08a3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 08a4 0fa2 | | Execute_Immediate Equal,-0x5e 08a5 0278 | x | Execute Discrete,Or 08a6 6ff1 |o | Jump_Zero 0x898 08a7 00ce | | Action Pop_Auxiliary 08a8 00d8 | | Load_Top At_Offset_0 08a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08aa 0000 0000 | | .BLANK 0000[0x6] 08b0 ; -------------------------------------------------------------------------------------- 08b0 ; SUBPROGRAM 08b0 ; -------------------------------------------------------------------------------------- 08b0 08b6 | | .CONST 0x08b6 ; Address of begin 08b1 0004 | | .CONST 0x0004 ; Address of exception handler 08b2 0003 | | .CONST 0x0003 ; Number of locals 08b3 INIT_08b0: 08b3 00da | | Load_Top At_Offset_2 08b4 8403 | | Call 0x2,0x3 08b5 e23b | ; | Load 0x1,0x3b 08b6 BODY_08b0: 08b6 00cf | | Action Mark_Auxiliary 08b7 7809 |x | Jump 0x8c1 08b8 00d9 | | Load_Top At_Offset_1 08b9 00db | | Load_Top At_Offset_3 08ba 00eb | | Load_Encached Diana_Cache 08bb 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 08bc 0032 | 2 | Store_Top Heap_Access,At_Offset_2 08bd 00da | | Load_Top At_Offset_2 08be 8403 | | Call 0x2,0x3 08bf 0033 | 3 | Store_Top Heap_Access,At_Offset_3 08c0 00c9 | | Action Pop_Auxiliary_Loop 08c1 00da | | Load_Top At_Offset_2 08c2 00eb | | Load_Encached Diana_Cache 08c3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 08c4 0f72 | r | Execute_Immediate Equal,0x72 08c5 6ff2 |o | Jump_Zero 0x8b8 08c6 00ce | | Action Pop_Auxiliary 08c7 00d8 | | Load_Top At_Offset_0 08c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08c9 0000 0000 | | .BLANK 0000[0x7] 08d0 ; -------------------------------------------------------------------------------------- 08d0 ; SUBPROGRAM 08d0 ; -------------------------------------------------------------------------------------- 08d0 08d7 | | .CONST 0x08d7 ; Address of begin 08d1 08e4 | | .CONST 0x08e4 ; Address of exception handler 08d2 0002 | | .CONST 0x0002 ; Number of locals 08d3 INIT_08d0: 08d3 00da | | Load_Top At_Offset_2 08d4 823d | = | Call 0x1,0x3d 08d5 00e2 | | Load_Encached Integer_Cache 08d6 03f1 | | Declare_Variable Discrete,With_Value 08d7 BODY_08d0: 08d7 e7fe | | Load 0x3,-0x2 08d8 e5fa | | Load 0x2,-0x6 08d9 4800 |H | Short_Literal 0x0 08da 00db | | Load_Top At_Offset_3 08db 8012 | | Call 0x0,0x12 08dc e5fd | | Load 0x2,-0x3 08dd e5fa | | Load 0x2,-0x6 08de 8240 | @ | Call 0x1,0x40 08df 8013 | | Call 0x0,0x13 08e0 8246 | F | Call 0x1,0x46 08e1 00d1 | | Pop_Control Pop_Count_1 08e2 c7fe | | Store 0x3,-0x2 08e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08e4 TRAP_08d0: 08e4 e23a | : | Load 0x1,0x3a 08e5 010f | | Execute Exception,Equal 08e6 6809 |h | Jump_Zero 0x8f0 08e7 e7fe | | Load 0x3,-0x2 08e8 00ea | | Load_Encached Null_String_Cache 08e9 e7ff | | Load 0x3,-0x1 08ea 823c | < | Call 0x1,0x3c 08eb e238 | 8 | Load 0x1,0x38 08ec e009 | | Load 0x0,0x9 08ed 1817 | | Execute Package,Field_Execute,Field_Number 0x17 08ee c7fe | | Store 0x3,-0x2 08ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08f0 e7fe | | Load 0x3,-0x2 08f1 0092 0990 | | Action Push_String_Extended,0x990 ; "Internal error: " 08f3 e015 | | Load 0x0,0x15 08f4 180d | | Execute Package,Field_Execute,Field_Number 0xd 08f5 01cc | | Execute Vector,Catenate 08f6 0092 0991 | | Action Push_String_Extended,0x991 ; " raised while accessing an object" 08f8 01cc | | Execute Vector,Catenate 08f9 e009 | | Load 0x0,0x9 08fa 1815 | | Execute Package,Field_Execute,Field_Number 0x15 08fb c7fe | | Store 0x3,-0x2 08fc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08fd 0000 0000 | | .XXX[0x3] 08ff 0000 | | 0900 ; -------------------------------------------------------------------------------------- 0900 ; SUBPROGRAM 0900 ; -------------------------------------------------------------------------------------- 0900 0903 | | .CONST 0x0903 ; Address of begin 0901 0004 | | .CONST 0x0004 ; Address of exception handler 0902 0001 | | .CONST 0x0001 ; Number of locals 0903 BODY_0900: 0903 INIT_0900: 0903 e5f9 | | Load 0x2,-0x7 0904 e7fe | | Load 0x3,-0x2 0905 8405 | | Call 0x2,0x5 0906 c5f9 | | Store 0x2,-0x7 0907 e5f9 | | Load 0x2,-0x7 0908 e5fa | | Load 0x2,-0x6 0909 e5fc | | Load 0x2,-0x4 090a e5fb | | Load 0x2,-0x5 090b 4800 |H | Short_Literal 0x0 090c e7fe | | Load 0x3,-0x2 090d 8242 | B | Call 0x1,0x42 090e 4801 |H | Short_Literal 0x1 090f e5fd | | Load 0x2,-0x3 0910 e5fa | | Load 0x2,-0x6 0911 8240 | @ | Call 0x1,0x40 0912 8017 | | Call 0x0,0x17 0913 8246 | F | Call 0x1,0x46 0914 00d1 | | Pop_Control Pop_Count_1 0915 c5f9 | | Store 0x2,-0x7 0916 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0917 0000 | | .XXX[0x1] 0918 ; -------------------------------------------------------------------------------------- 0918 ; SUBPROGRAM 0918 ; -------------------------------------------------------------------------------------- 0918 091b | | .CONST 0x091b ; Address of begin 0919 0004 | | .CONST 0x0004 ; Address of exception handler 091a 0001 | | .CONST 0x0001 ; Number of locals 091b BODY_0918: 091b INIT_0918: 091b e5f9 | | Load 0x2,-0x7 091c 00db | | Load_Top At_Offset_3 091d 8405 | | Call 0x2,0x5 091e c5f9 | | Store 0x2,-0x7 091f e5f9 | | Load 0x2,-0x7 0920 e5fa | | Load 0x2,-0x6 0921 e5fc | | Load 0x2,-0x4 0922 e5fb | | Load 0x2,-0x5 0923 4800 |H | Short_Literal 0x0 0924 e7ff | | Load 0x3,-0x1 0925 8242 | B | Call 0x1,0x42 0926 e7ff | | Load 0x3,-0x1 0927 8244 | D | Call 0x1,0x44 0928 e5fd | | Load 0x2,-0x3 0929 e5fa | | Load 0x2,-0x6 092a 8240 | @ | Call 0x1,0x40 092b 8017 | | Call 0x0,0x17 092c 8246 | F | Call 0x1,0x46 092d 00d1 | | Pop_Control Pop_Count_1 092e c5f9 | | Store 0x2,-0x7 092f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0930 ; -------------------------------------------------------------------------------------- 0930 ; SUBPROGRAM 0930 ; -------------------------------------------------------------------------------------- 0930 0933 | 3 | .CONST 0x0933 ; Address of begin 0931 0004 | | .CONST 0x0004 ; Address of exception handler 0932 0001 | | .CONST 0x0001 ; Number of locals 0933 BODY_0930: 0933 INIT_0930: 0933 e5f9 | | Load 0x2,-0x7 0934 00db | | Load_Top At_Offset_3 0935 8405 | | Call 0x2,0x5 0936 c5f9 | | Store 0x2,-0x7 0937 e5f9 | | Load 0x2,-0x7 0938 e5fa | | Load 0x2,-0x6 0939 4800 |H | Short_Literal 0x0 093a 4800 |H | Short_Literal 0x0 093b 4800 |H | Short_Literal 0x0 093c 4800 |H | Short_Literal 0x0 093d 4800 |H | Short_Literal 0x0 093e e5fd | | Load 0x2,-0x3 093f e5fa | | Load 0x2,-0x6 0940 8240 | @ | Call 0x1,0x40 0941 8017 | | Call 0x0,0x17 0942 8246 | F | Call 0x1,0x46 0943 00d1 | | Pop_Control Pop_Count_1 0944 c5f9 | | Store 0x2,-0x7 0945 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0946 0000 0000 | | .XXX[0x2] 0948 ; -------------------------------------------------------------------------------------- 0948 ; SUBPROGRAM 0948 ; -------------------------------------------------------------------------------------- 0948 0950 | P | .CONST 0x0950 ; Address of begin 0949 0004 | | .CONST 0x0004 ; Address of exception handler 094a 0004 | | .CONST 0x0004 ; Number of locals 094b INIT_0948: 094b 00db | | Load_Top At_Offset_3 094c 8404 | | Call 0x2,0x4 094d 00ec | | Load_Encached Diana_Tree_Cache 094e 00e1 | | Load_Encached Boolean_Cache 094f 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0950 BODY_0948: 0950 00cf | | Action Mark_Auxiliary 0951 7816 |x | Jump 0x968 0952 00db | | Load_Top At_Offset_3 0953 00eb | | Load_Encached Diana_Cache 0954 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0955 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0956 00db | | Load_Top At_Offset_3 0957 00eb | | Load_Encached Diana_Cache 0958 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0959 a602 | | Store_Unchecked 0x3,0x2 095a 00db | | Load_Top At_Offset_3 095b 00eb | | Load_Encached Diana_Cache 095c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 095d 0f00 | | Execute_Immediate Equal,0x0 095e 00db | | Load_Top At_Offset_3 095f e016 | | Load 0x0,0x16 0960 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0961 0278 | x | Execute Discrete,Or 0962 6804 |h | Jump_Zero 0x967 0963 00d9 | | Load_Top At_Offset_1 0964 00db | | Load_Top At_Offset_3 0965 8408 | | Call 0x2,0x8 0966 005a | Z | Store_Top Discrete,At_Offset_2 0967 00c9 | | Action Pop_Auxiliary_Loop 0968 00db | | Load_Top At_Offset_3 0969 00eb | | Load_Encached Diana_Cache 096a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 096b 6fe6 |o | Jump_Zero 0x952 096c 00ce | | Action Pop_Auxiliary 096d 00d8 | | Load_Top At_Offset_0 096e e7fe | | Load 0x3,-0x2 096f 8407 | | Call 0x2,0x7 0970 0059 | Y | Store_Top Discrete,At_Offset_1 0971 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0972 0000 0000 | | .BLANK 0000[0x6] 0978 ; -------------------------------------------------------------------------------------- 0978 ; SUBPROGRAM 0978 ; -------------------------------------------------------------------------------------- 0978 097b | { | .CONST 0x097b ; Address of begin 0979 0004 | | .CONST 0x0004 ; Address of exception handler 097a 0001 | | .CONST 0x0001 ; Number of locals 097b BODY_0978: 097b INIT_0978: 097b 4601 |F | Jump_Case 0x2 097c 7801 |x | Jump 0x97e ; case 0x0 097d 7807 |x | Jump 0x985 ; case 0x1 097e 00da | | Load_Top At_Offset_2 097f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0980 0125 | % | Execute Any,Set_Constraint 0981 00da | | Load_Top At_Offset_2 0982 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0983 1c00 | | Execute_Immediate Run_Utility,0x0 0984 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0985 00da | | Load_Top At_Offset_2 0986 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0987 0125 | % | Execute Any,Set_Constraint 0988 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0989 ; -------------------------------------------------------------------------------------- 0989 ; STRING TABLE 0989 ; -------------------------------------------------------------------------------------- 0989 001c | | .STRTAB 0x001c->0x0997 ; "Gen_VR_Field: field not found" 098a 0037 | 7 | .STRTAB 0x0037->0x09a5 ; "Internal Error: No runtime offset attribute could be found for " 098b 0074 | t | .STRTAB 0x0074->0x09c5 ; "Object too complex to be evaluated by debugger" 098c 00a0 | | .STRTAB 0x00a0->0x09dc ; "Gen_Package_Access passed empty subprogram" 098d 00c8 | | .STRTAB 0x00c8->0x09f1 ; "Object too complex to access" 098e 00e2 | | .STRTAB 0x00e2->0x09ff ; "Gen_Record_Field_Access: non record node" 098f 0108 | | .STRTAB 0x0108->0x0a13 ; "Gen_Record_Field_Access: illegal field node" 0990 0131 | 1 | .STRTAB 0x0131->0x0a28 ; "Internal error: " 0991 013f | ? | .STRTAB 0x013f->0x0a30 ; " raised while accessing an object" 0992 015e | ^ | .STRTAB 0x015e->0x0a41 ; "Unimplemented feature" 0993 0171 | q | .STRTAB 0x0171->0x0a4b ; "code_gen.alter_write: no load_discrete_constant instruction" 0994 01aa | | .STRTAB 0x01aa->0x0a69 ; "Code_Gen failure" 0995 01b8 | | .STRTAB 0x01b8->0x0a71 ; " raised while accessing a variant record field" 0996 01e4 | | .STREND 0x01e4->0x0a88 0997 4765 6e5f |Gen_| .STRTAB_STRINGS 0a88 ; -------------------------------------------------------------------------------------- 0a88 ; Debug Table 0a88 ; -------------------------------------------------------------------------------------- 0a88 0004 0006 | | .DEBUG4 0x0004,0x0006,0x9a48,0x0000,0x0001,0x0000 0a8e 0000 0000 | | .BLANK 0000[0x16b] 0bf9 67e8 8000 |g | .XXX[0x7] 0bfb 0cea 7800 | x | 0bfd 0001 3b17 | ; | 0bff 0068 | h |