|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0bf8df
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 05e0 | | .CONST 0x05e0 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0040 | @ | .CONST 0x0040 ; Address of begin
0019 00ba | | .CONST 0x00ba ; Address of exception handler
001a 000d | | .CONST 0x000d ; Number of locals
001b INIT_0018:
001b 4800 |H | Short_Literal 0x0
001c 4806 |H | Short_Literal 0x6
001d 029f 00db | | Declare_Subprogram INIT_00d8,For_Call
001f 03fd | | Declare_Type Discrete,Defined
0020 e002 | | Load 0x0,0x2
0021 e003 | | Load 0x0,0x3
0022 00da | | Load_Top At_Offset_2
0023 e004 | | Load 0x0,0x4
0024 0387 | | Declare_Variable Package
0025 00d8 | | Load_Top At_Offset_0
0026 020f | | Execute Module,Activate
0027 00ec | | Load_Encached Diana_Tree_Cache
0028 00ec | | Load_Encached Diana_Tree_Cache
0029 e005 | | Load 0x0,0x5
002a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
002b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
002c e005 | | Load 0x0,0x5
002d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
002e 02c7 | | Declare_Variable Any
002f 00d8 | | Load_Top At_Offset_0
0030 1c00 | | Execute_Immediate Run_Utility,0x0
0031 0093 0000 | | push_full_address 0x0
0033 60a0 |` | Indirect_Literal Discrete,0xd4,{0x80000000, 0x00010000}
0034 0273 | s | Execute Discrete,Plus
0035 0007 | | Action Break_Optional
0036 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
0038 029f 018b | | Declare_Subprogram INIT_0188,For_Call
003a 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call
003c 029f 021b | | Declare_Subprogram INIT_0218,For_Call
003e 029f 033b | ;| Declare_Subprogram INIT_0338,For_Call
0040 BODY_0018:
0040 e005 | | Load 0x0,0x5
0041 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0042 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0043 e005 | | Load 0x0,0x5
0044 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0045 608a |` | Indirect_Literal Discrete,0xd0,{0x00000000, 0x00004000}
0046 e006 | | Load 0x0,0x6
0047 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0048 e007 | | Load 0x0,0x7
0049 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004a e005 | | Load 0x0,0x5
004b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
004c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
004d e5ff | | Load 0x2,-0x1
004e e005 | | Load 0x0,0x5
004f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0050 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0051 c404 | | Store 0x2,0x4
0052 c406 | | Store 0x2,0x6
0053 e406 | | Load 0x2,0x6
0054 7044 |pD | Jump_Nonzero 0x99
0055 e404 | | Load 0x2,0x4
0056 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0057 0b23 | # | Execute_Immediate Case_Compare,0x23
0058 701b |p | Jump_Nonzero 0x74
0059 4824 |H$ | Short_Literal 0x24
005a 4825 |H% | Short_Literal 0x25
005b 0262 | b | Execute Discrete,In_Range
005c 702f |p/ | Jump_Nonzero 0x8c
005d e008 | | Load 0x0,0x8
005e 180e | | Execute Package,Field_Execute,Field_Number 0xe
005f 4805 |H | Short_Literal 0x5
0060 e404 | | Load 0x2,0x4
0061 e005 | | Load 0x0,0x5
0062 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0063 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0064 0092 0493 | | Action Push_String_Extended,0x493 ; " ("
0066 01cc | | Execute Vector,Catenate
0067 e404 | | Load 0x2,0x4
0068 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0069 00eb | | Load_Encached Diana_Cache
006a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
006b 011c | | Execute Any,Convert_Unchecked
006c 1c01 | | Execute_Immediate Run_Utility,0x1
006d 01cc | | Execute Vector,Catenate
006e 0092 0494 | | Action Push_String_Extended,0x494 ; ") does not denote a parameter specification"
0070 01cc | | Execute Vector,Catenate
0071 e009 | | Load 0x0,0x9
0072 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0073 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0074 00d1 | | Pop_Control Pop_Count_1
0075 e404 | | Load 0x2,0x4
0076 00eb | | Load_Encached Diana_Cache
0077 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0078 00eb | | Load_Encached Diana_Cache
0079 18ec | | Execute Package,Field_Execute,Field_Number 0xec
007a a405 | | Store_Unchecked 0x2,0x5
007b e008 | | Load 0x0,0x8
007c 180e | | Execute Package,Field_Execute,Field_Number 0xe
007d 4802 |H | Short_Literal 0x2
007e 0092 0495 | | Action Push_String_Extended,0x495 ; "Current default is "
0080 e405 | | Load 0x2,0x5
0081 00eb | | Load_Encached Diana_Cache
0082 18ca | | Execute Package,Field_Execute,Field_Number 0xca
0083 e00a | | Load 0x0,0xa
0084 180d | | Execute Package,Field_Execute,Field_Number 0xd
0085 01cc | | Execute Vector,Catenate
0086 e009 | | Load 0x0,0x9
0087 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0088 e405 | | Load 0x2,0x5
0089 840d | | Call 0x2,0xd
008a c405 | | Store 0x2,0x5
008b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
008c e008 | | Load 0x0,0x8
008d 180e | | Execute Package,Field_Execute,Field_Number 0xe
008e 4805 |H | Short_Literal 0x5
008f e404 | | Load 0x2,0x4
0090 e005 | | Load 0x0,0x5
0091 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0092 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0093 0092 0496 | | Action Push_String_Extended,0x496 ; " is not an 'in' parameter"
0095 01cc | | Execute Vector,Catenate
0096 e009 | | Load 0x0,0x9
0097 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0098 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0099 e008 | | Load 0x0,0x8
009a 180e | | Execute Package,Field_Execute,Field_Number 0xe
009b 4805 |H | Short_Literal 0x5
009c 0092 0497 | | Action Push_String_Extended,0x497 ; "Can't resolve "
009e e5ff | | Load 0x2,-0x1
009f 01cc | | Execute Vector,Catenate
00a0 0092 0498 | | Action Push_String_Extended,0x498 ; " because "
00a2 01cc | | Execute Vector,Catenate
00a3 602c |`, | Indirect_Literal Discrete,0xd0,{0x00000000, 0x00004000}
00a4 e006 | | Load 0x0,0x6
00a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a6 e007 | | Load 0x0,0x7
00a7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00a8 e00b | | Load 0x0,0xb
00a9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00aa 4800 |H | Short_Literal 0x0
00ab 4800 |H | Short_Literal 0x0
00ac e007 | | Load 0x0,0x7
00ad 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00ae e005 | | Load 0x0,0x5
00af 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00b0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00b1 e5ff | | Load 0x2,-0x1
00b2 e406 | | Load 0x2,0x6
00b3 e005 | | Load 0x0,0x5
00b4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00b5 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
00b6 01cc | | Execute Vector,Catenate
00b7 e009 | | Load 0x0,0x9
00b8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00ba TRAP_0018:
00ba 0007 | | Action Break_Optional
00bb e008 | | Load 0x0,0x8
00bc 180e | | Execute Package,Field_Execute,Field_Number 0xe
00bd 4805 |H | Short_Literal 0x5
00be 0092 0499 | | Action Push_String_Extended,0x499 ; "Unhandled exception changing default for "
00c0 e5ff | | Load 0x2,-0x1
00c1 01cc | | Execute Vector,Catenate
00c2 0092 049a | | Action Push_String_Extended,0x49a ; " to "
00c4 01cc | | Execute Vector,Catenate
00c5 e5fe | | Load 0x2,-0x2
00c6 01cc | | Execute Vector,Catenate
00c7 0092 049b | | Action Push_String_Extended,0x49b ; " "
00c9 01cc | | Execute Vector,Catenate
00ca e5fd | | Load 0x2,-0x3
00cb 01cc | | Execute Vector,Catenate
00cc e009 | | Load 0x0,0x9
00cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ce 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00cf 0000 | | .XXX[0x1]
00d0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00d4 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 4607 |F | Jump_Case 0x8
00dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00dd 7807 |x | Jump 0xe5 ; case 0x1
00de 780a |x | Jump 0xe9 ; case 0x2
00df 780e |x | Jump 0xee ; case 0x3
00e0 7811 |x | Jump 0xf2 ; case 0x4
00e1 7812 |x | Jump 0xf4 ; case 0x5
00e2 7813 |x | Jump 0xf6 ; case 0x6
00e3 7816 |x | Jump 0xfa ; case 0x7
00e4 4302 |C | .XXX[0x1]
00e5 00da | | Load_Top At_Offset_2
00e6 0091 048c | | Action Push_String_Extended_Indexed,0x48c ; "VOID"
00e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e9 00db | | Load_Top At_Offset_3
00ea 00db | | Load_Top At_Offset_3
00eb 00e0 | | Load_Encached Standard_Cache
00ec 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ee 00da | | Load_Top At_Offset_2
00ef 00e0 | | Load_Encached Standard_Cache
00f0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f2 00db | | Load_Top At_Offset_3
00f3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f4 00db | | Load_Top At_Offset_3
00f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f6 e402 | | Load 0x2,0x2
00f7 00dc | | Load_Top At_Offset_4
00f8 0267 | g | Execute Discrete,Predecessor
00f9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fa e402 | | Load 0x2,0x2
00fb 00dc | | Load_Top At_Offset_4
00fc 0268 | h | Execute Discrete,Successor
00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fe 0000 0000 | | .XXX[0x2]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 011f | | .CONST 0x011f ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 000a | | .CONST 0x000a ; Number of locals
0103 INIT_0100:
0103 00db | | Load_Top At_Offset_3
0104 e005 | | Load 0x0,0x5
0105 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0106 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0107 e7fe | | Load 0x3,-0x2
0108 e005 | | Load 0x0,0x5
0109 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
010a 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
010b e7ff | | Load 0x3,-0x1
010c 00da | | Load_Top At_Offset_2
010d 01cc | | Execute Vector,Catenate
010e 0007 | | Action Break_Optional
010f 00ec | | Load_Encached Diana_Tree_Cache
0110 e005 | | Load 0x0,0x5
0111 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0112 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0113 00ec | | Load_Encached Diana_Tree_Cache
0114 00ec | | Load_Encached Diana_Tree_Cache
0115 e005 | | Load 0x0,0x5
0116 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0117 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0118 02c7 | | Declare_Variable Any
0119 e005 | | Load 0x0,0x5
011a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
011b 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
011c a609 | | Store_Unchecked 0x3,0x9
011d e005 | | Load 0x0,0x5
011e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011f BODY_0100:
011f e005 | | Load 0x0,0x5
0120 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0121 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0122 e005 | | Load 0x0,0x5
0123 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0124 605f |`_ | Indirect_Literal Discrete,0x184,{0x00000000, 0x00004000}
0125 e006 | | Load 0x0,0x6
0126 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0127 e007 | | Load 0x0,0x7
0128 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0129 e005 | | Load 0x0,0x5
012a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
012b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
012c e604 | | Load 0x3,0x4
012d e005 | | Load 0x0,0x5
012e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
012f 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0130 c605 | | Store 0x3,0x5
0131 c606 | | Store 0x3,0x6
0132 00d9 | | Load_Top At_Offset_1
0133 e005 | | Load 0x0,0x5
0134 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0135 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0136 e606 | | Load 0x3,0x6
0137 7028 |p( | Jump_Nonzero 0x160
0138 e603 | | Load 0x3,0x3
0139 01db | | Execute Vector,Length
013a 700d |p | Jump_Nonzero 0x148
013b e602 | | Load 0x3,0x2
013c 4816 |H | Short_Literal 0x16
013d 00eb | | Load_Encached Diana_Cache
013e 187a | z | Execute Package,Field_Execute,Field_Number 0x7a
013f a607 | | Store_Unchecked 0x3,0x7
0140 e7fd | | Load 0x3,-0x3
0141 e607 | | Load 0x3,0x7
0142 495b |I[ | Short_Literal 0x15b
0143 00eb | | Load_Encached Diana_Cache
0144 0096 | | Execute Package,Entry
0145 00db | | Load_Top At_Offset_3
0146 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0147 7812 |x | Jump 0x15a
0148 e7fd | | Load 0x3,-0x3
0149 e603 | | Load 0x3,0x3
014a 482e |H. | Short_Literal 0x2e
014b e604 | | Load 0x3,0x4
014c 01cb | | Execute Vector,Append
014d 8409 | | Call 0x2,0x9
014e 0033 | 3 | Store_Top Heap_Access,At_Offset_3
014f e602 | | Load 0x3,0x2
0150 4817 |H | Short_Literal 0x17
0151 00eb | | Load_Encached Diana_Cache
0152 187a | z | Execute Package,Field_Execute,Field_Number 0x7a
0153 a607 | | Store_Unchecked 0x3,0x7
0154 00da | | Load_Top At_Offset_2
0155 e607 | | Load 0x3,0x7
0156 4812 |H | Short_Literal 0x12
0157 00eb | | Load_Encached Diana_Cache
0158 187d | } | Execute Package,Field_Execute,Field_Number 0x7d
0159 0033 | 3 | Store_Top Heap_Access,At_Offset_3
015a e605 | | Load 0x3,0x5
015b e607 | | Load 0x3,0x7
015c 4959 |IY | Short_Literal 0x159
015d 00eb | | Load_Encached Diana_Cache
015e 0096 | | Execute Package,Entry
015f 7822 |x" | Jump 0x182
0160 e008 | | Load 0x0,0x8
0161 180e | | Execute Package,Field_Execute,Field_Number 0xe
0162 4805 |H | Short_Literal 0x5
0163 0092 0497 | | Action Push_String_Extended,0x497 ; "Can't resolve "
0165 e604 | | Load 0x3,0x4
0166 01cc | | Execute Vector,Catenate
0167 0092 0498 | | Action Push_String_Extended,0x498 ; " because "
0169 01cc | | Execute Vector,Catenate
016a 6019 |` | Indirect_Literal Discrete,0x184,{0x00000000, 0x00004000}
016b e006 | | Load 0x0,0x6
016c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
016d e007 | | Load 0x0,0x7
016e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
016f e00b | | Load 0x0,0xb
0170 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0171 4800 |H | Short_Literal 0x0
0172 4800 |H | Short_Literal 0x0
0173 e007 | | Load 0x0,0x7
0174 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0175 e005 | | Load 0x0,0x5
0176 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0177 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0178 e604 | | Load 0x3,0x4
0179 e606 | | Load 0x3,0x6
017a e005 | | Load 0x0,0x5
017b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
017c 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
017d 01cc | | Execute Vector,Catenate
017e e009 | | Load 0x0,0x9
017f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0180 e408 | | Load 0x2,0x8
0181 0257 | W | Execute Discrete,Raise
0182 00da | | Load_Top At_Offset_2
0183 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0184 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018f | | .CONST 0x018f ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0003 | | .CONST 0x0003 ; Number of locals
018b INIT_0188:
018b 00ec | | Load_Encached Diana_Tree_Cache
018c e7fe | | Load 0x3,-0x2
018d 00eb | | Load_Encached Diana_Cache
018e 1888 | | Execute Package,Field_Execute,Field_Number 0x88
018f BODY_0188:
018f 00cf | | Action Mark_Auxiliary
0190 7810 |x | Jump 0x1a1
0191 00d9 | | Load_Top At_Offset_1
0192 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
0193 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0194 e7ff | | Load 0x3,-0x1
0195 00db | | Load_Top At_Offset_3
0196 00eb | | Load_Encached Diana_Cache
0197 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0198 00eb | | Load_Encached Diana_Cache
0199 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
019a 01df | | Execute Vector,Equal
019b 7007 |p | Jump_Nonzero 0x1a3
019c 00d9 | | Load_Top At_Offset_1
019d 0217 | | Execute Heap_Access,All_Reference
019e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
019f 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01a0 00c9 | | Action Pop_Auxiliary_Loop
01a1 00d9 | | Load_Top At_Offset_1
01a2 77ee |w | Jump_Nonzero 0x191
01a3 00ce | | Action Pop_Auxiliary
01a4 00d9 | | Load_Top At_Offset_1
01a5 700e |p | Jump_Nonzero 0x1b4
01a6 e008 | | Load 0x0,0x8
01a7 180e | | Execute Package,Field_Execute,Field_Number 0xe
01a8 4805 |H | Short_Literal 0x5
01a9 0092 049c | | Action Push_String_Extended,0x49c ; "Can't locate "
01ab e7ff | | Load 0x3,-0x1
01ac 01cc | | Execute Vector,Catenate
01ad 0092 049d | | Action Push_String_Extended,0x49d ; " in character set."
01af 01cc | | Execute Vector,Catenate
01b0 e009 | | Load 0x0,0x9
01b1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01b2 e408 | | Load 0x2,0x8
01b3 0257 | W | Execute Discrete,Raise
01b4 00d9 | | Load_Top At_Offset_1
01b5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01b6 0000 0000 | | .XXX[0x2]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01d0 | | .CONST 0x01d0 ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0006 | | .CONST 0x0006 ; Number of locals
01bb INIT_01b8:
01bb 4801 |H | Short_Literal 0x1
01bc 00eb | | Load_Encached Diana_Cache
01bd 18a8 | | Execute Package,Field_Execute,Field_Number 0xa8
01be e5fd | | Load 0x2,-0x3
01bf 01db | | Execute Vector,Length
01c0 00d8 | | Load_Top At_Offset_0
01c1 00e2 | | Load_Encached Integer_Cache
01c2 0260 | ` | Execute Discrete,In_Type
01c3 7001 |p | Jump_Nonzero 0x1c5
01c4 0801 | | Execute_Immediate Raise,0x1
01c5 00eb | | Load_Encached Diana_Cache
01c6 18a8 | | Execute Package,Field_Execute,Field_Number 0xa8
01c7 00d8 | | Load_Top At_Offset_0
01c8 00da | | Load_Top At_Offset_2
01c9 4861 |Ha | Short_Literal 0x61
01ca 00eb | | Load_Encached Diana_Cache
01cb 187d | } | Execute Package,Field_Execute,Field_Number 0x7d
01cc 00ec | | Load_Encached Diana_Tree_Cache
01cd e005 | | Load 0x0,0x5
01ce 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01cf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01d0 BODY_01b8:
01d0 e005 | | Load 0x0,0x5
01d1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01d2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01d3 e005 | | Load 0x0,0x5
01d4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01d5 603a |`: | Indirect_Literal Discrete,0x210,{0x00000000, 0x00004000}
01d6 e006 | | Load 0x0,0x6
01d7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01d8 e007 | | Load 0x0,0x7
01d9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01da e005 | | Load 0x0,0x5
01db 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01dc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01dd e407 | | Load 0x2,0x7
01de e005 | | Load 0x0,0x5
01df 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01e0 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
01e1 0092 049e | | Action Push_String_Extended,0x49e ; "`Standard.Integer"
01e3 01cc | | Execute Vector,Catenate
01e4 e005 | | Load 0x0,0x5
01e5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01e6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
01e7 0033 | 3 | Store_Top Heap_Access,At_Offset_3
01e8 0059 | Y | Store_Top Discrete,At_Offset_1
01e9 00d8 | | Load_Top At_Offset_0
01ea 6809 |h | Jump_Zero 0x1f4
01eb e008 | | Load 0x0,0x8
01ec 180e | | Execute Package,Field_Execute,Field_Number 0xe
01ed 4805 |H | Short_Literal 0x5
01ee 0092 049f | | Action Push_String_Extended,0x49f ; "Can't locate Standard.Integer for building range constraint for string literal."
01f0 e009 | | Load 0x0,0x9
01f1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01f2 e408 | | Load 0x2,0x8
01f3 0257 | W | Execute Discrete,Raise
01f4 00d9 | | Load_Top At_Offset_1
01f5 4907 |I | Short_Literal 0x107
01f6 00eb | | Load_Encached Diana_Cache
01f7 0096 | | Execute Package,Entry
01f8 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01f9 e7ff | | Load 0x3,-0x1
01fa 00db | | Load_Top At_Offset_3
01fb e00c | | Load 0x0,0xc
01fc 180f | | Execute Package,Field_Execute,Field_Number 0xf
01fd 00d9 | | Load_Top At_Offset_1
01fe 00db | | Load_Top At_Offset_3
01ff 4956 |IV | Short_Literal 0x156
0200 00eb | | Load_Encached Diana_Cache
0201 0096 | | Execute Package,Entry
0202 00d9 | | Load_Top At_Offset_1
0203 e602 | | Load 0x3,0x2
0204 495b |I[ | Short_Literal 0x15b
0205 00eb | | Load_Encached Diana_Cache
0206 0096 | | Execute Package,Entry
0207 00d9 | | Load_Top At_Offset_1
0208 e603 | | Load 0x3,0x3
0209 495b |I[ | Short_Literal 0x15b
020a 00eb | | Load_Encached Diana_Cache
020b 0096 | | Execute Package,Entry
020c 00da | | Load_Top At_Offset_2
020d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
020e 0000 0000 | | .XXX[0x2]
0210 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0214 0000 0000 | | .BLANK 0000[0x4]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0237 | 7 | .CONST 0x0237 ; Address of begin
0219 0301 | | .CONST 0x0301 ; Address of exception handler
021a 000b | | .CONST 0x000b ; Number of locals
021b INIT_0218:
021b 00db | | Load_Top At_Offset_3
021c 00eb | | Load_Encached Diana_Cache
021d 18ca | | Execute Package,Field_Execute,Field_Number 0xca
021e 00ec | | Load_Encached Diana_Tree_Cache
021f e005 | | Load 0x0,0x5
0220 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0221 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0222 02c7 | | Declare_Variable Any
0223 e005 | | Load 0x0,0x5
0224 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0225 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0226 a604 | | Store_Unchecked 0x3,0x4
0227 e005 | | Load 0x0,0x5
0228 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0229 4801 |H | Short_Literal 0x1
022a e7fe | | Load 0x3,-0x2
022b 4976 |Iv | Short_Literal 0x176
022c 00eb | | Load_Encached Diana_Cache
022d 0098 | | Execute Package,Field_Read_Dynamic
022e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
022f e402 | | Load 0x2,0x2
0230 0007 | | Action Break_Optional
0231 00e1 | | Load_Encached Boolean_Cache
0232 00e1 | | Load_Encached Boolean_Cache
0233 e005 | | Load 0x0,0x5
0234 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0235 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0236 00ec | | Load_Encached Diana_Tree_Cache
0237 BODY_0218:
0237 00e1 | | Load_Encached Boolean_Cache
0238 00e1 | | Load_Encached Boolean_Cache
0239 e403 | | Load 0x2,0x3
023a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
023b e5fe | | Load 0x2,-0x2
023c e403 | | Load 0x2,0x3
023d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
023e c607 | | Store 0x3,0x7
023f c608 | | Store 0x3,0x8
0240 005b | [ | Store_Top Discrete,At_Offset_3
0241 e005 | | Load 0x0,0x5
0242 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0243 4800 |H | Short_Literal 0x0
0244 4800 |H | Short_Literal 0x0
0245 00ea | | Load_Encached Null_String_Cache
0246 e7fe | | Load 0x3,-0x2
0247 e005 | | Load 0x0,0x5
0248 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0249 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
024a c605 | | Store 0x3,0x5
024b e607 | | Load 0x3,0x7
024c 4606 |F | Jump_Case 0x7
024d 788b |x | Jump 0x2d9 ; case 0x0
024e 7812 |x | Jump 0x261 ; case 0x1
024f 7829 |x) | Jump 0x279 ; case 0x2
0250 783e |x> | Jump 0x28f ; case 0x3
0251 786e |xn | Jump 0x2c0 ; case 0x4
0252 7852 |xR | Jump 0x2a5 ; case 0x5
0253 7800 |x | Jump 0x254 ; case 0x6
0254 4807 |H | Short_Literal 0x7
0255 00eb | | Load_Encached Diana_Cache
0256 1878 | x | Execute Package,Field_Execute,Field_Number 0x78
0257 a603 | | Store_Unchecked 0x3,0x3
0258 e606 | | Load 0x3,0x6
0259 4902 |I | Short_Literal 0x102
025a 00eb | | Load_Encached Diana_Cache
025b 0096 | | Execute Package,Entry
025c e603 | | Load 0x3,0x3
025d 495b |I[ | Short_Literal 0x15b
025e 00eb | | Load_Encached Diana_Cache
025f 0096 | | Execute Package,Entry
0260 787a |xz | Jump 0x2db
0261 e5fd | | Load 0x2,-0x3
0262 480c |H | Short_Literal 0xc
0263 00eb | | Load_Encached Diana_Cache
0264 187a | z | Execute Package,Field_Execute,Field_Number 0x7a
0265 a603 | | Store_Unchecked 0x3,0x3
0266 e606 | | Load 0x3,0x6
0267 4902 |I | Short_Literal 0x102
0268 00eb | | Load_Encached Diana_Cache
0269 0096 | | Execute Package,Entry
026a e603 | | Load 0x3,0x3
026b 495b |I[ | Short_Literal 0x15b
026c 00eb | | Load_Encached Diana_Cache
026d 0096 | | Execute Package,Entry
026e e606 | | Load 0x3,0x6
026f 4902 |I | Short_Literal 0x102
0270 00eb | | Load_Encached Diana_Cache
0271 0096 | | Execute Package,Entry
0272 e5fd | | Load 0x2,-0x3
0273 840a | | Call 0x2,0xa
0274 e603 | | Load 0x3,0x3
0275 4959 |IY | Short_Literal 0x159
0276 00eb | | Load_Encached Diana_Cache
0277 0096 | | Execute Package,Entry
0278 7862 |xb | Jump 0x2db
0279 e5fd | | Load 0x2,-0x3
027a 00e2 | | Load_Encached Integer_Cache
027b 00e0 | | Load_Encached Standard_Cache
027c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
027d 00eb | | Load_Encached Diana_Cache
027e 18a8 | | Execute Package,Field_Execute,Field_Number 0xa8
027f a603 | | Store_Unchecked 0x3,0x3
0280 e606 | | Load 0x3,0x6
0281 4902 |I | Short_Literal 0x102
0282 00eb | | Load_Encached Diana_Cache
0283 0096 | | Execute Package,Entry
0284 e603 | | Load 0x3,0x3
0285 495b |I[ | Short_Literal 0x15b
0286 00eb | | Load_Encached Diana_Cache
0287 0096 | | Execute Package,Entry
0288 e5fd | | Load 0x2,-0x3
0289 00eb | | Load_Encached Diana_Cache
028a 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
028b e603 | | Load 0x3,0x3
028c 00eb | | Load_Encached Diana_Cache
028d 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
028e 784c |xL | Jump 0x2db
028f e5fd | | Load 0x2,-0x3
0290 00e2 | | Load_Encached Integer_Cache
0291 00e0 | | Load_Encached Standard_Cache
0292 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0293 00eb | | Load_Encached Diana_Cache
0294 18a8 | | Execute Package,Field_Execute,Field_Number 0xa8
0295 a603 | | Store_Unchecked 0x3,0x3
0296 e606 | | Load 0x3,0x6
0297 4902 |I | Short_Literal 0x102
0298 00eb | | Load_Encached Diana_Cache
0299 0096 | | Execute Package,Entry
029a e603 | | Load 0x3,0x3
029b 495b |I[ | Short_Literal 0x15b
029c 00eb | | Load_Encached Diana_Cache
029d 0096 | | Execute Package,Entry
029e e5fd | | Load 0x2,-0x3
029f 00eb | | Load_Encached Diana_Cache
02a0 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
02a1 e603 | | Load 0x3,0x3
02a2 00eb | | Load_Encached Diana_Cache
02a3 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
02a4 7836 |x6 | Jump 0x2db
02a5 e5fd | | Load 0x2,-0x3
02a6 480b |H | Short_Literal 0xb
02a7 00eb | | Load_Encached Diana_Cache
02a8 187a | z | Execute Package,Field_Execute,Field_Number 0x7a
02a9 a603 | | Store_Unchecked 0x3,0x3
02aa e606 | | Load 0x3,0x6
02ab 4902 |I | Short_Literal 0x102
02ac 00eb | | Load_Encached Diana_Cache
02ad 0096 | | Execute Package,Entry
02ae e603 | | Load 0x3,0x3
02af 495b |I[ | Short_Literal 0x15b
02b0 00eb | | Load_Encached Diana_Cache
02b1 0096 | | Execute Package,Entry
02b2 e5fd | | Load 0x2,-0x3
02b3 01db | | Execute Vector,Length
02b4 00d8 | | Load_Top At_Offset_0
02b5 00e2 | | Load_Encached Integer_Cache
02b6 0260 | ` | Execute Discrete,In_Type
02b7 7001 |p | Jump_Nonzero 0x2b9
02b8 0801 | | Execute_Immediate Raise,0x1
02b9 e603 | | Load 0x3,0x3
02ba 840b | | Call 0x2,0xb
02bb e603 | | Load 0x3,0x3
02bc 4958 |IX | Short_Literal 0x158
02bd 00eb | | Load_Encached Diana_Cache
02be 0096 | | Execute Package,Entry
02bf 781b |x | Jump 0x2db
02c0 e606 | | Load 0x3,0x6
02c1 4902 |I | Short_Literal 0x102
02c2 00eb | | Load_Encached Diana_Cache
02c3 0096 | | Execute Package,Entry
02c4 e5fd | | Load 0x2,-0x3
02c5 e00d | | Load 0x0,0xd
02c6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02c7 e407 | | Load 0x2,0x7
02c8 e005 | | Load 0x0,0x5
02c9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02ca 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02cb 0092 04a0 | | Action Push_String_Extended,0x4a0 ; "`"
02cd 01cc | | Execute Vector,Catenate
02ce 8409 | | Call 0x2,0x9
02cf a603 | | Store_Unchecked 0x3,0x3
02d0 e606 | | Load 0x3,0x6
02d1 4902 |I | Short_Literal 0x102
02d2 00eb | | Load_Encached Diana_Cache
02d3 0096 | | Execute Package,Entry
02d4 e603 | | Load 0x3,0x3
02d5 495b |I[ | Short_Literal 0x15b
02d6 00eb | | Load_Encached Diana_Cache
02d7 0096 | | Execute Package,Entry
02d8 7802 |x | Jump 0x2db
02d9 00ec | | Load_Encached Diana_Tree_Cache
02da a603 | | Store_Unchecked 0x3,0x3
02db e603 | | Load 0x3,0x3
02dc e7fe | | Load 0x3,-0x2
02dd e7ff | | Load 0x3,-0x1
02de e00e | | Load 0x0,0xe
02df 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02e0 e603 | | Load 0x3,0x3
02e1 e606 | | Load 0x3,0x6
02e2 495e |I^ | Short_Literal 0x15e
02e3 00eb | | Load_Encached Diana_Cache
02e4 0096 | | Execute Package,Entry
02e5 e008 | | Load 0x0,0x8
02e6 180e | | Execute Package,Field_Execute,Field_Number 0xe
02e7 4803 |H | Short_Literal 0x3
02e8 0092 04a1 | | Action Push_String_Extended,0x4a1 ; "Replaced default expression for "
02ea e5ff | | Load 0x2,-0x1
02eb 01cc | | Execute Vector,Catenate
02ec 0092 0493 | | Action Push_String_Extended,0x493 ; " ("
02ee 01cc | | Execute Vector,Catenate
02ef e602 | | Load 0x3,0x2
02f0 e00a | | Load 0x0,0xa
02f1 180d | | Execute Package,Field_Execute,Field_Number 0xd
02f2 01cc | | Execute Vector,Catenate
02f3 0092 04a2 | | Action Push_String_Extended,0x4a2 ; ") with "
02f5 01cc | | Execute Vector,Catenate
02f6 e603 | | Load 0x3,0x3
02f7 e00a | | Load 0x0,0xa
02f8 180d | | Execute Package,Field_Execute,Field_Number 0xd
02f9 01cc | | Execute Vector,Catenate
02fa e009 | | Load 0x0,0x9
02fb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02fc e604 | | Load 0x3,0x4
02fd e005 | | Load 0x0,0x5
02fe 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02ff 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0300 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0301 TRAP_0218:
0301 e408 | | Load 0x2,0x8
0302 010f | | Execute Exception,Equal
0303 6806 |h | Jump_Zero 0x30a
0304 e604 | | Load 0x3,0x4
0305 e005 | | Load 0x0,0x5
0306 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0307 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0308 00d8 | | Load_Top At_Offset_0
0309 0101 | | Execute Exception,Reraise
030a e403 | | Load 0x2,0x3
030b 1b18 | | Execute Package,Field_Read,Field_Number 0x18
030c 010f | | Execute Exception,Equal
030d 680e |h | Jump_Zero 0x31c
030e e008 | | Load 0x0,0x8
030f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0310 4805 |H | Short_Literal 0x5
0311 0092 04a3 | | Action Push_String_Extended,0x4a3 ; "Invalid Kind parameter; '"
0313 e5fe | | Load 0x2,-0x2
0314 01cc | | Execute Vector,Catenate
0315 0092 04a4 | | Action Push_String_Extended,0x4a4 ; "' is not a permitted default"
0317 01cc | | Execute Vector,Catenate
0318 e009 | | Load 0x0,0x9
0319 1813 | | Execute Package,Field_Execute,Field_Number 0x13
031a e408 | | Load 0x2,0x8
031b 0257 | W | Execute Discrete,Raise
031c 010e | | Execute Exception,Is_Constraint_Error
031d 6816 |h | Jump_Zero 0x334
031e e008 | | Load 0x0,0x8
031f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0320 4805 |H | Short_Literal 0x5
0321 0092 04a5 | | Action Push_String_Extended,0x4a5 ; "Invalid value parameter; '"
0323 e5fd | | Load 0x2,-0x3
0324 01cc | | Execute Vector,Catenate
0325 0092 04a6 | | Action Push_String_Extended,0x4a6 ; "' is not a "
0327 01cc | | Execute Vector,Catenate
0328 e607 | | Load 0x3,0x7
0329 e402 | | Load 0x2,0x2
032a 011c | | Execute Any,Convert_Unchecked
032b 1c01 | | Execute_Immediate Run_Utility,0x1
032c 01cc | | Execute Vector,Catenate
032d 0092 04a7 | | Action Push_String_Extended,0x4a7 ; " value"
032f 01cc | | Execute Vector,Catenate
0330 e009 | | Load 0x0,0x9
0331 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0332 e408 | | Load 0x2,0x8
0333 0257 | W | Execute Discrete,Raise
0334 0100 | | Execute Exception,Raise
0335 0000 0000 | | .XXX[0x3]
0337 0000 | |
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 036c | l | .CONST 0x036c ; Address of begin
0339 0461 | a | .CONST 0x0461 ; Address of exception handler
033a 000c | | .CONST 0x000c ; Number of locals
033b INIT_0338:
033b e007 | | Load 0x0,0x7
033c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
033d e00b | | Load 0x0,0xb
033e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
033f e005 | | Load 0x0,0x5
0340 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0341 02ff | | Declare_Variable Variant_Record
0342 00d8 | | Load_Top At_Offset_0
0343 1c00 | | Execute_Immediate Run_Utility,0x0
0344 e005 | | Load 0x0,0x5
0345 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0346 02ff | | Declare_Variable Variant_Record
0347 00d8 | | Load_Top At_Offset_0
0348 1c00 | | Execute_Immediate Run_Utility,0x0
0349 e005 | | Load 0x0,0x5
034a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
034b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
034c e00f | | Load 0x0,0xf
034d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
034e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
034f e006 | | Load 0x0,0x6
0350 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0351 02c7 | | Declare_Variable Any
0352 e010 | | Load 0x0,0x10
0353 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0354 e006 | | Load 0x0,0x6
0355 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0356 a607 | | Store_Unchecked 0x3,0x7
0357 e011 | | Load 0x0,0x11
0358 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0359 02c7 | | Declare_Variable Any
035a 00d8 | | Load_Top At_Offset_0
035b 1c00 | | Execute_Immediate Run_Utility,0x0
035c e012 | | Load 0x0,0x12
035d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
035e 02c7 | | Declare_Variable Any
035f 00d8 | | Load_Top At_Offset_0
0360 1c00 | | Execute_Immediate Run_Utility,0x0
0361 00ec | | Load_Encached Diana_Tree_Cache
0362 e013 | | Load 0x0,0x13
0363 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0364 02c7 | | Declare_Variable Any
0365 00d8 | | Load_Top At_Offset_0
0366 1c00 | | Execute_Immediate Run_Utility,0x0
0367 e00e | | Load 0x0,0xe
0368 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0369 02c7 | | Declare_Variable Any
036a 00d8 | | Load_Top At_Offset_0
036b 1c00 | | Execute_Immediate Run_Utility,0x0
036c BODY_0338:
036c e005 | | Load 0x0,0x5
036d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
036e e604 | | Load 0x3,0x4
036f e7ff | | Load 0x3,-0x1
0370 e005 | | Load 0x0,0x5
0371 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0372 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0373 00d1 | | Pop_Control Pop_Count_1
0374 c605 | | Store 0x3,0x5
0375 e005 | | Load 0x0,0x5
0376 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0377 e407 | | Load 0x2,0x7
0378 0120 | | Execute Any,Is_Value
0379 6803 |h | Jump_Zero 0x37d
037a e005 | | Load 0x0,0x5
037b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
037c 7801 |x | Jump 0x37e
037d e407 | | Load 0x2,0x7
037e 6109 |a | Indirect_Literal Discrete,0x488,{0x00000000, 0x00004000}
037f e006 | | Load 0x0,0x6
0380 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0381 e604 | | Load 0x3,0x4
0382 e005 | | Load 0x0,0x5
0383 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0384 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0385 c407 | | Store 0x2,0x7
0386 c605 | | Store 0x3,0x5
0387 e605 | | Load 0x3,0x5
0388 6813 |h | Jump_Zero 0x39c
0389 e008 | | Load 0x0,0x8
038a 180e | | Execute Package,Field_Execute,Field_Number 0xe
038b 4805 |H | Short_Literal 0x5
038c e605 | | Load 0x3,0x5
038d e005 | | Load 0x0,0x5
038e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
038f 011c | | Execute Any,Convert_Unchecked
0390 1c01 | | Execute_Immediate Run_Utility,0x1
0391 0092 04a8 | | Action Push_String_Extended,0x4a8 ; ": Can't get version id for "
0393 01cc | | Execute Vector,Catenate
0394 e7ff | | Load 0x3,-0x1
0395 e005 | | Load 0x0,0x5
0396 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0397 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0398 01cc | | Execute Vector,Catenate
0399 e009 | | Load 0x0,0x9
039a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
039b 78b9 |x | Jump 0x455
039c e604 | | Load 0x3,0x4
039d e005 | | Load 0x0,0x5
039e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
039f 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
03a0 e014 | | Load 0x0,0x14
03a1 180d | | Execute Package,Field_Execute,Field_Number 0xd
03a2 e00f | | Load 0x0,0xf
03a3 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03a4 e609 | | Load 0x3,0x9
03a5 0120 | | Execute Any,Is_Value
03a6 6803 |h | Jump_Zero 0x3aa
03a7 e012 | | Load 0x0,0x12
03a8 1b14 | | Execute Package,Field_Read,Field_Number 0x14
03a9 7801 |x | Jump 0x3ab
03aa e609 | | Load 0x3,0x9
03ab e608 | | Load 0x3,0x8
03ac 0120 | | Execute Any,Is_Value
03ad 6804 |h | Jump_Zero 0x3b2
03ae e011 | | Load 0x0,0x11
03af 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03b1 7801 |x | Jump 0x3b3
03b2 e608 | | Load 0x3,0x8
03b3 e607 | | Load 0x3,0x7
03b4 4800 |H | Short_Literal 0x0
03b5 4803 |H | Short_Literal 0x3
03b6 e604 | | Load 0x3,0x4
03b7 e011 | | Load 0x0,0x11
03b8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03b9 0162 | b | Execute Variant_Record,Check_In_Type
03ba e011 | | Load 0x0,0x11
03bb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03bc c608 | | Store 0x3,0x8
03bd c609 | | Store 0x3,0x9
03be c606 | | Store 0x3,0x6
03bf e606 | | Load 0x3,0x6
03c0 6813 |h | Jump_Zero 0x3d4
03c1 e008 | | Load 0x0,0x8
03c2 180e | | Execute Package,Field_Execute,Field_Number 0xe
03c3 4805 |H | Short_Literal 0x5
03c4 e606 | | Load 0x3,0x6
03c5 e00f | | Load 0x0,0xf
03c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c7 011c | | Execute Any,Convert_Unchecked
03c8 1c01 | | Execute_Immediate Run_Utility,0x1
03c9 0092 04a9 | | Action Push_String_Extended,0x4a9 ; ": Can't open Diana Tree for "
03cb 01cc | | Execute Vector,Catenate
03cc e604 | | Load 0x3,0x4
03cd e005 | | Load 0x0,0x5
03ce 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03cf 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
03d0 01cc | | Execute Vector,Catenate
03d1 e009 | | Load 0x0,0x9
03d2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03d3 7881 |x | Jump 0x455
03d4 e7ff | | Load 0x3,-0x1
03d5 e609 | | Load 0x3,0x9
03d6 00eb | | Load_Encached Diana_Cache
03d7 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03d8 a7ff | | Store_Unchecked 0x3,-0x1
03d9 e7ff | | Load 0x3,-0x1
03da e011 | | Load 0x0,0x11
03db 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03dc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03dd 0033 | 3 | Store_Top Heap_Access,At_Offset_3
03de e00f | | Load 0x0,0xf
03df 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03e0 e603 | | Load 0x3,0x3
03e1 4800 |H | Short_Literal 0x0
03e2 e607 | | Load 0x3,0x7
03e3 e604 | | Load 0x3,0x4
03e4 e011 | | Load 0x0,0x11
03e5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03e6 0162 | b | Execute Variant_Record,Check_In_Type
03e7 e011 | | Load 0x0,0x11
03e8 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
03e9 00d1 | | Pop_Control Pop_Count_1
03ea c606 | | Store 0x3,0x6
03eb e603 | | Load 0x3,0x3
03ec e005 | | Load 0x0,0x5
03ed 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03ee 6813 |h | Jump_Zero 0x402
03ef e008 | | Load 0x0,0x8
03f0 180e | | Execute Package,Field_Execute,Field_Number 0xe
03f1 4805 |H | Short_Literal 0x5
03f2 e606 | | Load 0x3,0x6
03f3 e00f | | Load 0x0,0xf
03f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03f5 011c | | Execute Any,Convert_Unchecked
03f6 1c01 | | Execute_Immediate Run_Utility,0x1
03f7 0092 04aa | | Action Push_String_Extended,0x4aa ; ": Can't get Image for "
03f9 01cc | | Execute Vector,Catenate
03fa e604 | | Load 0x3,0x4
03fb e005 | | Load 0x0,0x5
03fc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03fd 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
03fe 01cc | | Execute Vector,Catenate
03ff e009 | | Load 0x0,0x9
0400 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0401 7847 |xG | Jump 0x449
0402 e00f | | Load 0x0,0xf
0403 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0404 00da | | Load_Top At_Offset_2
0405 0120 | | Execute Any,Is_Value
0406 6803 |h | Jump_Zero 0x40a
0407 e013 | | Load 0x0,0x13
0408 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0409 7801 |x | Jump 0x40b
040a 00da | | Load_Top At_Offset_2
040b 4800 |H | Short_Literal 0x0
040c e607 | | Load 0x3,0x7
040d e602 | | Load 0x3,0x2
040e 4802 |H | Short_Literal 0x2
040f e603 | | Load 0x3,0x3
0410 e015 | | Load 0x0,0x15
0411 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0412 0162 | b | Execute Variant_Record,Check_In_Type
0413 e013 | | Load 0x0,0x13
0414 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0415 c60b | | Store 0x3,0xb
0416 c606 | | Store 0x3,0x6
0417 e606 | | Load 0x3,0x6
0418 6813 |h | Jump_Zero 0x42c
0419 e008 | | Load 0x0,0x8
041a 180e | | Execute Package,Field_Execute,Field_Number 0xe
041b 4805 |H | Short_Literal 0x5
041c e606 | | Load 0x3,0x6
041d e00f | | Load 0x0,0xf
041e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
041f 011c | | Execute Any,Convert_Unchecked
0420 1c01 | | Execute_Immediate Run_Utility,0x1
0421 0092 04ab | | Action Push_String_Extended,0x4ab ; ": Can't open Image for "
0423 01cc | | Execute Vector,Catenate
0424 e604 | | Load 0x3,0x4
0425 e005 | | Load 0x0,0x5
0426 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0427 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0428 01cc | | Execute Vector,Catenate
0429 e009 | | Load 0x0,0x9
042a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
042b 781d |x | Jump 0x449
042c 00d8 | | Load_Top At_Offset_0
042d 0120 | | Execute Any,Is_Value
042e 6803 |h | Jump_Zero 0x432
042f e00e | | Load 0x0,0xe
0430 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0431 7801 |x | Jump 0x433
0432 00d8 | | Load_Top At_Offset_0
0433 00da | | Load_Top At_Offset_2
0434 e602 | | Load 0x3,0x2
0435 e016 | | Load 0x0,0x16
0436 180f | | Execute Package,Field_Execute,Field_Number 0xf
0437 e00e | | Load 0x0,0xe
0438 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0439 c60c | | Store 0x3,0xc
043a e7ff | | Load 0x3,-0x1
043b 00d9 | | Load_Top At_Offset_1
043c 840c | | Call 0x2,0xc
043d 00d8 | | Load_Top At_Offset_0
043e e00e | | Load 0x0,0xe
043f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0440 c60c | | Store 0x3,0xc
0441 e00f | | Load 0x0,0xf
0442 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0443 00da | | Load_Top At_Offset_2
0444 4800 |H | Short_Literal 0x0
0445 e013 | | Load 0x0,0x13
0446 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0447 c60b | | Store 0x3,0xb
0448 c606 | | Store 0x3,0x6
0449 e00f | | Load 0x0,0xf
044a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
044b 4800 |H | Short_Literal 0x0
044c 4801 |H | Short_Literal 0x1
044d e607 | | Load 0x3,0x7
044e e604 | | Load 0x3,0x4
044f e011 | | Load 0x0,0x11
0450 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0451 0162 | b | Execute Variant_Record,Check_In_Type
0452 e011 | | Load 0x0,0x11
0453 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0454 c606 | | Store 0x3,0x6
0455 e607 | | Load 0x3,0x7
0456 4801 |H | Short_Literal 0x1
0457 e606 | | Load 0x3,0x6
0458 7003 |p | Jump_Nonzero 0x45c
0459 e605 | | Load 0x3,0x5
045a 0f00 | | Execute_Immediate Equal,0x0
045b 7801 |x | Jump 0x45d
045c 4800 |H | Short_Literal 0x0
045d e006 | | Load 0x0,0x6
045e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
045f c607 | | Store 0x3,0x7
0460 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0461 TRAP_0338:
0461 e408 | | Load 0x2,0x8
0462 010f | | Execute Exception,Equal
0463 6807 |h | Jump_Zero 0x46b
0464 e607 | | Load 0x3,0x7
0465 4801 |H | Short_Literal 0x1
0466 4800 |H | Short_Literal 0x0
0467 e006 | | Load 0x0,0x6
0468 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0469 c607 | | Store 0x3,0x7
046a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
046b e607 | | Load 0x3,0x7
046c 4801 |H | Short_Literal 0x1
046d 4800 |H | Short_Literal 0x0
046e e006 | | Load 0x0,0x6
046f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0470 c607 | | Store 0x3,0x7
0471 e008 | | Load 0x0,0x8
0472 180e | | Execute Package,Field_Execute,Field_Number 0xe
0473 4805 |H | Short_Literal 0x5
0474 0092 0499 | | Action Push_String_Extended,0x499 ; "Unhandled exception changing default for "
0476 e5ff | | Load 0x2,-0x1
0477 01cc | | Execute Vector,Catenate
0478 0092 049a | | Action Push_String_Extended,0x49a ; " to "
047a 01cc | | Execute Vector,Catenate
047b e5fe | | Load 0x2,-0x2
047c 01cc | | Execute Vector,Catenate
047d 0092 049b | | Action Push_String_Extended,0x49b ; " "
047f 01cc | | Execute Vector,Catenate
0480 e5fd | | Load 0x2,-0x3
0481 01cc | | Execute Vector,Catenate
0482 e009 | | Load 0x0,0x9
0483 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0484 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0485 0000 0000 | | .XXX[0x3]
0487 0000 | |
0488 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
048c ; --------------------------------------------------------------------------------------
048c ; STRING TABLE
048c ; --------------------------------------------------------------------------------------
048c 0042 | B | .STRTAB 0x0042->0x04ad ; "VOID"
048d 0044 | D | .STRTAB 0x0044->0x04af ; "CHARACTER_LITERAL"
048e 0053 | S | .STRTAB 0x0053->0x04b7 ; "INTEGER_LITERAL"
048f 0060 | ` | .STRTAB 0x0060->0x04bf ; "LONG_INTEGER_LITERAL"
0490 0072 | r | .STRTAB 0x0072->0x04c9 ; "USED_NAME"
0491 0079 | y | .STRTAB 0x0079->0x04cd ; "STRING_LITERAL"
0492 0085 | | .STRTAB 0x0085->0x04d4 ; "NULL_LITERAL"
0493 008f | | .STRTAB 0x008f->0x04da ; " ("
0494 008f | | .STRTAB 0x008f->0x04db ; ") does not denote a parameter specification"
0495 00b8 | | .STRTAB 0x00b8->0x04f1 ; "Current default is "
0496 00c9 | | .STRTAB 0x00c9->0x04fa ; " is not an 'in' parameter"
0497 00e0 | | .STRTAB 0x00e0->0x0507 ; "Can't resolve "
0498 00ec | | .STRTAB 0x00ec->0x050e ; " because "
0499 00f3 | | .STRTAB 0x00f3->0x0512 ; "Unhandled exception changing default for "
049a 011a | | .STRTAB 0x011a->0x0527 ; " to "
049b 011c | | .STRTAB 0x011c->0x0529 ; " "
049c 011b | | .STRTAB 0x011b->0x0529 ; "Can't locate "
049d 0126 | & | .STRTAB 0x0126->0x0530 ; " in character set."
049e 0136 | 6 | .STRTAB 0x0136->0x0539 ; "`Standard.Integer"
049f 0145 | E | .STRTAB 0x0145->0x0541 ; "Can't locate Standard.Integer for building range constraint for string literal."
04a0 0192 | | .STRTAB 0x0192->0x0569 ; "`"
04a1 0191 | | .STRTAB 0x0191->0x0569 ; "Replaced default expression for "
04a2 01af | | .STRTAB 0x01af->0x0579 ; ") with "
04a3 01b4 | | .STRTAB 0x01b4->0x057d ; "Invalid Kind parameter; '"
04a4 01cb | | .STRTAB 0x01cb->0x0589 ; "' is not a permitted default"
04a5 01e5 | | .STRTAB 0x01e5->0x0597 ; "Invalid value parameter; '"
04a6 01fd | | .STRTAB 0x01fd->0x05a4 ; "' is not a "
04a7 0206 | | .STRTAB 0x0206->0x05aa ; " value"
04a8 020a | | .STRTAB 0x020a->0x05ad ; ": Can't get version id for "
04a9 0223 | # | .STRTAB 0x0223->0x05ba ; ": Can't open Diana Tree for "
04aa 023d | = | .STRTAB 0x023d->0x05c8 ; ": Can't get Image for "
04ab 0251 | Q | .STRTAB 0x0251->0x05d3 ; ": Can't open Image for "
04ac 0266 | f | .STREND 0x0266->0x05df
04ad 564f 4944 |VOID| .STRTAB_STRINGS
05df 0000 | | .XXX[0x1]
05e0 ; --------------------------------------------------------------------------------------
05e0 ; Debug Table
05e0 ; --------------------------------------------------------------------------------------
05e0 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b82,0x0000,0x0001,0x0000
05e6 0000 0000 | | .BLANK 0000[0x8]
05ee 7e00 007d |~ }| .XXX[0x8]
05f0 0000 11fa | |
05f2 b808 0000 | |
05f4 1664 7000 | dp |
05f6 0000 0000 | | .BLANK 0000[0x4]
05fa 47f3 c020 |G | .XXX[0x6]
05fc 0000 ce9c | |
05fe 8000 0000 | |