|
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_03b8fe, seg_03c0fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 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[0x172]