|
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_0d2ce3
└─⟦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 05d8 | | .CONST 0x05d8 ; 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 003b | ; | .CONST 0x003b ; Address of begin
0019 00b5 | | .CONST 0x00b5 ; Address of exception handler
001a 000c | | .CONST 0x000c ; Number of locals
001b INIT_0018:
001b 4800 |H | Short_Literal 0x0
001c 4806 |H | Short_Literal 0x6
001d 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
001f 03fd | | Declare_Type Discrete,Defined
0020 e001 | | Load 0x0,0x1
0021 e002 | | Load 0x0,0x2
0022 00da | | Load_Top At_Offset_2
0023 e003 | | Load 0x0,0x3
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 e004 | | Load 0x0,0x4
002a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
002b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
002c e004 | | Load 0x0,0x4
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 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
0033 029f 0183 | | Declare_Subprogram INIT_0180,For_Call
0035 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call
0037 029f 0213 | | Declare_Subprogram INIT_0210,For_Call
0039 029f 0333 | 3| Declare_Subprogram INIT_0330,For_Call
003b BODY_0018:
003b e004 | | Load 0x0,0x4
003c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
003d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
003e e004 | | Load 0x0,0x4
003f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0040 608b |` | Indirect_Literal Discrete,0xcc,{0x00000000, 0x00004000}
0041 e005 | | Load 0x0,0x5
0042 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0043 e006 | | Load 0x0,0x6
0044 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0045 e004 | | Load 0x0,0x4
0046 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0047 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0048 e5ff | | Load 0x2,-0x1
0049 e004 | | Load 0x0,0x4
004a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
004b 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
004c c404 | | Store 0x2,0x4
004d c406 | | Store 0x2,0x6
004e e406 | | Load 0x2,0x6
004f 7044 |pD | Jump_Nonzero 0x94
0050 e404 | | Load 0x2,0x4
0051 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0052 0b23 | # | Execute_Immediate Case_Compare,0x23
0053 701b |p | Jump_Nonzero 0x6f
0054 4824 |H$ | Short_Literal 0x24
0055 4825 |H% | Short_Literal 0x25
0056 0262 | b | Execute Discrete,In_Range
0057 702f |p/ | Jump_Nonzero 0x87
0058 e007 | | Load 0x0,0x7
0059 180e | | Execute Package,Field_Execute,Field_Number 0xe
005a 4805 |H | Short_Literal 0x5
005b e404 | | Load 0x2,0x4
005c e004 | | Load 0x0,0x4
005d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
005e 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
005f 0092 048b | | Action Push_String_Extended,0x48b ; " ("
0061 01cc | | Execute Vector,Catenate
0062 e404 | | Load 0x2,0x4
0063 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0064 00eb | | Load_Encached Diana_Cache
0065 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0066 011c | | Execute Any,Convert_Unchecked
0067 1c01 | | Execute_Immediate Run_Utility,0x1
0068 01cc | | Execute Vector,Catenate
0069 0092 048c | | Action Push_String_Extended,0x48c ; ") does not denote a parameter specification"
006b 01cc | | Execute Vector,Catenate
006c e008 | | Load 0x0,0x8
006d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
006e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
006f 00d1 | | Pop_Control Pop_Count_1
0070 e404 | | Load 0x2,0x4
0071 00eb | | Load_Encached Diana_Cache
0072 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0073 00eb | | Load_Encached Diana_Cache
0074 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0075 a405 | | Store_Unchecked 0x2,0x5
0076 e007 | | Load 0x0,0x7
0077 180e | | Execute Package,Field_Execute,Field_Number 0xe
0078 4802 |H | Short_Literal 0x2
0079 0092 048d | | Action Push_String_Extended,0x48d ; "Current default is "
007b e405 | | Load 0x2,0x5
007c 00eb | | Load_Encached Diana_Cache
007d 18ca | | Execute Package,Field_Execute,Field_Number 0xca
007e e009 | | Load 0x0,0x9
007f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0080 01cc | | Execute Vector,Catenate
0081 e008 | | Load 0x0,0x8
0082 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0083 e405 | | Load 0x2,0x5
0084 840c | | Call 0x2,0xc
0085 c405 | | Store 0x2,0x5
0086 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0087 e007 | | Load 0x0,0x7
0088 180e | | Execute Package,Field_Execute,Field_Number 0xe
0089 4805 |H | Short_Literal 0x5
008a e404 | | Load 0x2,0x4
008b e004 | | Load 0x0,0x4
008c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
008d 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
008e 0092 048e | | Action Push_String_Extended,0x48e ; " is not an 'in' parameter"
0090 01cc | | Execute Vector,Catenate
0091 e008 | | Load 0x0,0x8
0092 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0093 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0094 e007 | | Load 0x0,0x7
0095 180e | | Execute Package,Field_Execute,Field_Number 0xe
0096 4805 |H | Short_Literal 0x5
0097 0092 048f | | Action Push_String_Extended,0x48f ; "Can't resolve "
0099 e5ff | | Load 0x2,-0x1
009a 01cc | | Execute Vector,Catenate
009b 0092 0490 | | Action Push_String_Extended,0x490 ; " because "
009d 01cc | | Execute Vector,Catenate
009e 602d |`- | Indirect_Literal Discrete,0xcc,{0x00000000, 0x00004000}
009f e005 | | Load 0x0,0x5
00a0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a1 e006 | | Load 0x0,0x6
00a2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00a3 e00a | | Load 0x0,0xa
00a4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00a5 4800 |H | Short_Literal 0x0
00a6 4800 |H | Short_Literal 0x0
00a7 e006 | | Load 0x0,0x6
00a8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00a9 e004 | | Load 0x0,0x4
00aa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00ab 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00ac e5ff | | Load 0x2,-0x1
00ad e406 | | Load 0x2,0x6
00ae e004 | | Load 0x0,0x4
00af 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00b0 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
00b1 01cc | | Execute Vector,Catenate
00b2 e008 | | Load 0x0,0x8
00b3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00b5 TRAP_0018:
00b5 0007 | | Action Break_Optional
00b6 e007 | | Load 0x0,0x7
00b7 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b8 4805 |H | Short_Literal 0x5
00b9 0092 0491 | | Action Push_String_Extended,0x491 ; "Unhandled exception changing default for "
00bb e5ff | | Load 0x2,-0x1
00bc 01cc | | Execute Vector,Catenate
00bd 0092 0492 | | Action Push_String_Extended,0x492 ; " to "
00bf 01cc | | Execute Vector,Catenate
00c0 e5fe | | Load 0x2,-0x2
00c1 01cc | | Execute Vector,Catenate
00c2 0092 0493 | | Action Push_String_Extended,0x493 ; " "
00c4 01cc | | Execute Vector,Catenate
00c5 e5fd | | Load 0x2,-0x3
00c6 01cc | | Execute Vector,Catenate
00c7 e008 | | Load 0x0,0x8
00c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00ca 0000 0000 | | .XXX[0x2]
00cc 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 4607 |F | Jump_Case 0x8
00d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00d5 7806 |x | Jump 0xdc ; case 0x1
00d6 7809 |x | Jump 0xe0 ; case 0x2
00d7 780d |x | Jump 0xe5 ; case 0x3
00d8 7810 |x | Jump 0xe9 ; case 0x4
00d9 7811 |x | Jump 0xeb ; case 0x5
00da 7812 |x | Jump 0xed ; case 0x6
00db 7815 |x | Jump 0xf1 ; case 0x7
00dc 00da | | Load_Top At_Offset_2
00dd 0091 0484 | | Action Push_String_Extended_Indexed,0x484 ; "VOID"
00df 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e0 00db | | Load_Top At_Offset_3
00e1 00db | | Load_Top At_Offset_3
00e2 00e0 | | Load_Encached Standard_Cache
00e3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e5 00da | | Load_Top At_Offset_2
00e6 00e0 | | Load_Encached Standard_Cache
00e7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e9 00db | | Load_Top At_Offset_3
00ea 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00eb 00db | | Load_Top At_Offset_3
00ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ed e402 | | Load 0x2,0x2
00ee 00dc | | Load_Top At_Offset_4
00ef 0267 | g | Execute Discrete,Predecessor
00f0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f1 e402 | | Load 0x2,0x2
00f2 00dc | | Load_Top At_Offset_4
00f3 0268 | h | Execute Discrete,Successor
00f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f5 0000 0000 | | .XXX[0x3]
00f7 0000 | |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0117 | | .CONST 0x0117 ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 000a | | .CONST 0x000a ; Number of locals
00fb INIT_00f8:
00fb 00db | | Load_Top At_Offset_3
00fc e004 | | Load 0x0,0x4
00fd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00fe 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
00ff e7fe | | Load 0x3,-0x2
0100 e004 | | Load 0x0,0x4
0101 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0102 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0103 e7ff | | Load 0x3,-0x1
0104 00da | | Load_Top At_Offset_2
0105 01cc | | Execute Vector,Catenate
0106 0007 | | Action Break_Optional
0107 00ec | | Load_Encached Diana_Tree_Cache
0108 e004 | | Load 0x0,0x4
0109 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
010a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
010b 00ec | | Load_Encached Diana_Tree_Cache
010c 00ec | | Load_Encached Diana_Tree_Cache
010d e004 | | Load 0x0,0x4
010e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
010f 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0110 02c7 | | Declare_Variable Any
0111 e004 | | Load 0x0,0x4
0112 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0113 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0114 a609 | | Store_Unchecked 0x3,0x9
0115 e004 | | Load 0x0,0x4
0116 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0117 BODY_00f8:
0117 e004 | | Load 0x0,0x4
0118 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0119 1b0f | | Execute Package,Field_Read,Field_Number 0xf
011a e004 | | Load 0x0,0x4
011b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
011c 605f |`_ | Indirect_Literal Discrete,0x17c,{0x00000000, 0x00004000}
011d e005 | | Load 0x0,0x5
011e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
011f e006 | | Load 0x0,0x6
0120 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0121 e004 | | Load 0x0,0x4
0122 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0123 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0124 e604 | | Load 0x3,0x4
0125 e004 | | Load 0x0,0x4
0126 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0127 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0128 c605 | | Store 0x3,0x5
0129 c606 | | Store 0x3,0x6
012a 00d9 | | Load_Top At_Offset_1
012b e004 | | Load 0x0,0x4
012c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
012d 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
012e e606 | | Load 0x3,0x6
012f 7028 |p( | Jump_Nonzero 0x158
0130 e603 | | Load 0x3,0x3
0131 01db | | Execute Vector,Length
0132 700d |p | Jump_Nonzero 0x140
0133 e602 | | Load 0x3,0x2
0134 4816 |H | Short_Literal 0x16
0135 00eb | | Load_Encached Diana_Cache
0136 187a | z | Execute Package,Field_Execute,Field_Number 0x7a
0137 a607 | | Store_Unchecked 0x3,0x7
0138 e7fd | | Load 0x3,-0x3
0139 e607 | | Load 0x3,0x7
013a 495b |I[ | Short_Literal 0x15b
013b 00eb | | Load_Encached Diana_Cache
013c 0096 | | Execute Package,Entry
013d 00db | | Load_Top At_Offset_3
013e 0033 | 3 | Store_Top Heap_Access,At_Offset_3
013f 7812 |x | Jump 0x152
0140 e7fd | | Load 0x3,-0x3
0141 e603 | | Load 0x3,0x3
0142 482e |H. | Short_Literal 0x2e
0143 e604 | | Load 0x3,0x4
0144 01cb | | Execute Vector,Append
0145 8408 | | Call 0x2,0x8
0146 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0147 e602 | | Load 0x3,0x2
0148 4817 |H | Short_Literal 0x17
0149 00eb | | Load_Encached Diana_Cache
014a 187a | z | Execute Package,Field_Execute,Field_Number 0x7a
014b a607 | | Store_Unchecked 0x3,0x7
014c 00da | | Load_Top At_Offset_2
014d e607 | | Load 0x3,0x7
014e 4812 |H | Short_Literal 0x12
014f 00eb | | Load_Encached Diana_Cache
0150 187d | } | Execute Package,Field_Execute,Field_Number 0x7d
0151 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0152 e605 | | Load 0x3,0x5
0153 e607 | | Load 0x3,0x7
0154 4959 |IY | Short_Literal 0x159
0155 00eb | | Load_Encached Diana_Cache
0156 0096 | | Execute Package,Entry
0157 7822 |x" | Jump 0x17a
0158 e007 | | Load 0x0,0x7
0159 180e | | Execute Package,Field_Execute,Field_Number 0xe
015a 4805 |H | Short_Literal 0x5
015b 0092 048f | | Action Push_String_Extended,0x48f ; "Can't resolve "
015d e604 | | Load 0x3,0x4
015e 01cc | | Execute Vector,Catenate
015f 0092 0490 | | Action Push_String_Extended,0x490 ; " because "
0161 01cc | | Execute Vector,Catenate
0162 6019 |` | Indirect_Literal Discrete,0x17c,{0x00000000, 0x00004000}
0163 e005 | | Load 0x0,0x5
0164 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0165 e006 | | Load 0x0,0x6
0166 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0167 e00a | | Load 0x0,0xa
0168 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0169 4800 |H | Short_Literal 0x0
016a 4800 |H | Short_Literal 0x0
016b e006 | | Load 0x0,0x6
016c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
016d e004 | | Load 0x0,0x4
016e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
016f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0170 e604 | | Load 0x3,0x4
0171 e606 | | Load 0x3,0x6
0172 e004 | | Load 0x0,0x4
0173 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0174 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0175 01cc | | Execute Vector,Catenate
0176 e008 | | Load 0x0,0x8
0177 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0178 e00b | | Load 0x0,0xb
0179 0257 | W | Execute Discrete,Raise
017a 00da | | Load_Top At_Offset_2
017b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
017c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0187 | | .CONST 0x0187 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0003 | | .CONST 0x0003 ; Number of locals
0183 INIT_0180:
0183 00ec | | Load_Encached Diana_Tree_Cache
0184 e7fe | | Load 0x3,-0x2
0185 00eb | | Load_Encached Diana_Cache
0186 1888 | | Execute Package,Field_Execute,Field_Number 0x88
0187 BODY_0180:
0187 00cf | | Action Mark_Auxiliary
0188 7810 |x | Jump 0x199
0189 00d9 | | Load_Top At_Offset_1
018a 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
018b 0033 | 3 | Store_Top Heap_Access,At_Offset_3
018c e7ff | | Load 0x3,-0x1
018d 00db | | Load_Top At_Offset_3
018e 00eb | | Load_Encached Diana_Cache
018f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0190 00eb | | Load_Encached Diana_Cache
0191 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0192 01df | | Execute Vector,Equal
0193 7007 |p | Jump_Nonzero 0x19b
0194 00d9 | | Load_Top At_Offset_1
0195 0217 | | Execute Heap_Access,All_Reference
0196 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0197 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0198 00c9 | | Action Pop_Auxiliary_Loop
0199 00d9 | | Load_Top At_Offset_1
019a 77ee |w | Jump_Nonzero 0x189
019b 00ce | | Action Pop_Auxiliary
019c 00d9 | | Load_Top At_Offset_1
019d 700e |p | Jump_Nonzero 0x1ac
019e e007 | | Load 0x0,0x7
019f 180e | | Execute Package,Field_Execute,Field_Number 0xe
01a0 4805 |H | Short_Literal 0x5
01a1 0092 0494 | | Action Push_String_Extended,0x494 ; "Can't locate "
01a3 e7ff | | Load 0x3,-0x1
01a4 01cc | | Execute Vector,Catenate
01a5 0092 0495 | | Action Push_String_Extended,0x495 ; " in character set."
01a7 01cc | | Execute Vector,Catenate
01a8 e008 | | Load 0x0,0x8
01a9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01aa e00b | | Load 0x0,0xb
01ab 0257 | W | Execute Discrete,Raise
01ac 00d9 | | Load_Top At_Offset_1
01ad 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ae 0000 0000 | | .XXX[0x2]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01c8 | | .CONST 0x01c8 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0006 | | .CONST 0x0006 ; Number of locals
01b3 INIT_01b0:
01b3 4801 |H | Short_Literal 0x1
01b4 00eb | | Load_Encached Diana_Cache
01b5 18a8 | | Execute Package,Field_Execute,Field_Number 0xa8
01b6 e5fd | | Load 0x2,-0x3
01b7 01db | | Execute Vector,Length
01b8 00d8 | | Load_Top At_Offset_0
01b9 00e2 | | Load_Encached Integer_Cache
01ba 0260 | ` | Execute Discrete,In_Type
01bb 7001 |p | Jump_Nonzero 0x1bd
01bc 0801 | | Execute_Immediate Raise,0x1
01bd 00eb | | Load_Encached Diana_Cache
01be 18a8 | | Execute Package,Field_Execute,Field_Number 0xa8
01bf 00d8 | | Load_Top At_Offset_0
01c0 00da | | Load_Top At_Offset_2
01c1 4861 |Ha | Short_Literal 0x61
01c2 00eb | | Load_Encached Diana_Cache
01c3 187d | } | Execute Package,Field_Execute,Field_Number 0x7d
01c4 00ec | | Load_Encached Diana_Tree_Cache
01c5 e004 | | Load 0x0,0x4
01c6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01c7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01c8 BODY_01b0:
01c8 e004 | | Load 0x0,0x4
01c9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01ca 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01cb e004 | | Load 0x0,0x4
01cc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01cd 603a |`: | Indirect_Literal Discrete,0x208,{0x00000000, 0x00004000}
01ce e005 | | Load 0x0,0x5
01cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01d0 e006 | | Load 0x0,0x6
01d1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01d2 e004 | | Load 0x0,0x4
01d3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01d4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01d5 e407 | | Load 0x2,0x7
01d6 e004 | | Load 0x0,0x4
01d7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01d8 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
01d9 0092 0496 | | Action Push_String_Extended,0x496 ; "`Standard.Integer"
01db 01cc | | Execute Vector,Catenate
01dc e004 | | Load 0x0,0x4
01dd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01de 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
01df 0033 | 3 | Store_Top Heap_Access,At_Offset_3
01e0 0059 | Y | Store_Top Discrete,At_Offset_1
01e1 00d8 | | Load_Top At_Offset_0
01e2 6809 |h | Jump_Zero 0x1ec
01e3 e007 | | Load 0x0,0x7
01e4 180e | | Execute Package,Field_Execute,Field_Number 0xe
01e5 4805 |H | Short_Literal 0x5
01e6 0092 0497 | | Action Push_String_Extended,0x497 ; "Can't locate Standard.Integer for building range constraint for string literal."
01e8 e008 | | Load 0x0,0x8
01e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ea e00b | | Load 0x0,0xb
01eb 0257 | W | Execute Discrete,Raise
01ec 00d9 | | Load_Top At_Offset_1
01ed 4907 |I | Short_Literal 0x107
01ee 00eb | | Load_Encached Diana_Cache
01ef 0096 | | Execute Package,Entry
01f0 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01f1 e7ff | | Load 0x3,-0x1
01f2 00db | | Load_Top At_Offset_3
01f3 e00c | | Load 0x0,0xc
01f4 180f | | Execute Package,Field_Execute,Field_Number 0xf
01f5 00d9 | | Load_Top At_Offset_1
01f6 00db | | Load_Top At_Offset_3
01f7 4956 |IV | Short_Literal 0x156
01f8 00eb | | Load_Encached Diana_Cache
01f9 0096 | | Execute Package,Entry
01fa 00d9 | | Load_Top At_Offset_1
01fb e602 | | Load 0x3,0x2
01fc 495b |I[ | Short_Literal 0x15b
01fd 00eb | | Load_Encached Diana_Cache
01fe 0096 | | Execute Package,Entry
01ff 00d9 | | Load_Top At_Offset_1
0200 e603 | | Load 0x3,0x3
0201 495b |I[ | Short_Literal 0x15b
0202 00eb | | Load_Encached Diana_Cache
0203 0096 | | Execute Package,Entry
0204 00da | | Load_Top At_Offset_2
0205 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0206 0000 0000 | | .XXX[0x2]
0208 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
020c 0000 0000 | | .BLANK 0000[0x4]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 022f | / | .CONST 0x022f ; Address of begin
0211 02f9 | | .CONST 0x02f9 ; Address of exception handler
0212 000b | | .CONST 0x000b ; Number of locals
0213 INIT_0210:
0213 00db | | Load_Top At_Offset_3
0214 00eb | | Load_Encached Diana_Cache
0215 18ca | | Execute Package,Field_Execute,Field_Number 0xca
0216 00ec | | Load_Encached Diana_Tree_Cache
0217 e004 | | Load 0x0,0x4
0218 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0219 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
021a 02c7 | | Declare_Variable Any
021b e004 | | Load 0x0,0x4
021c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
021d 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
021e a604 | | Store_Unchecked 0x3,0x4
021f e004 | | Load 0x0,0x4
0220 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0221 4801 |H | Short_Literal 0x1
0222 e7fe | | Load 0x3,-0x2
0223 4976 |Iv | Short_Literal 0x176
0224 00eb | | Load_Encached Diana_Cache
0225 0098 | | Execute Package,Field_Read_Dynamic
0226 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0227 e402 | | Load 0x2,0x2
0228 0007 | | Action Break_Optional
0229 00e1 | | Load_Encached Boolean_Cache
022a 00e1 | | Load_Encached Boolean_Cache
022b e004 | | Load 0x0,0x4
022c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
022d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
022e 00ec | | Load_Encached Diana_Tree_Cache
022f BODY_0210:
022f 00e1 | | Load_Encached Boolean_Cache
0230 00e1 | | Load_Encached Boolean_Cache
0231 e403 | | Load 0x2,0x3
0232 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0233 e5fe | | Load 0x2,-0x2
0234 e403 | | Load 0x2,0x3
0235 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0236 c607 | | Store 0x3,0x7
0237 c608 | | Store 0x3,0x8
0238 005b | [ | Store_Top Discrete,At_Offset_3
0239 e004 | | Load 0x0,0x4
023a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
023b 4800 |H | Short_Literal 0x0
023c 4800 |H | Short_Literal 0x0
023d 00ea | | Load_Encached Null_String_Cache
023e e7fe | | Load 0x3,-0x2
023f e004 | | Load 0x0,0x4
0240 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0241 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0242 c605 | | Store 0x3,0x5
0243 e607 | | Load 0x3,0x7
0244 4606 |F | Jump_Case 0x7
0245 788b |x | Jump 0x2d1 ; case 0x0
0246 7812 |x | Jump 0x259 ; case 0x1
0247 7829 |x) | Jump 0x271 ; case 0x2
0248 783e |x> | Jump 0x287 ; case 0x3
0249 786e |xn | Jump 0x2b8 ; case 0x4
024a 7852 |xR | Jump 0x29d ; case 0x5
024b 7800 |x | Jump 0x24c ; case 0x6
024c 4807 |H | Short_Literal 0x7
024d 00eb | | Load_Encached Diana_Cache
024e 1878 | x | Execute Package,Field_Execute,Field_Number 0x78
024f a603 | | Store_Unchecked 0x3,0x3
0250 e606 | | Load 0x3,0x6
0251 4902 |I | Short_Literal 0x102
0252 00eb | | Load_Encached Diana_Cache
0253 0096 | | Execute Package,Entry
0254 e603 | | Load 0x3,0x3
0255 495b |I[ | Short_Literal 0x15b
0256 00eb | | Load_Encached Diana_Cache
0257 0096 | | Execute Package,Entry
0258 787a |xz | Jump 0x2d3
0259 e5fd | | Load 0x2,-0x3
025a 480c |H | Short_Literal 0xc
025b 00eb | | Load_Encached Diana_Cache
025c 187a | z | Execute Package,Field_Execute,Field_Number 0x7a
025d a603 | | Store_Unchecked 0x3,0x3
025e e606 | | Load 0x3,0x6
025f 4902 |I | Short_Literal 0x102
0260 00eb | | Load_Encached Diana_Cache
0261 0096 | | Execute Package,Entry
0262 e603 | | Load 0x3,0x3
0263 495b |I[ | Short_Literal 0x15b
0264 00eb | | Load_Encached Diana_Cache
0265 0096 | | Execute Package,Entry
0266 e606 | | Load 0x3,0x6
0267 4902 |I | Short_Literal 0x102
0268 00eb | | Load_Encached Diana_Cache
0269 0096 | | Execute Package,Entry
026a e5fd | | Load 0x2,-0x3
026b 8409 | | Call 0x2,0x9
026c e603 | | Load 0x3,0x3
026d 4959 |IY | Short_Literal 0x159
026e 00eb | | Load_Encached Diana_Cache
026f 0096 | | Execute Package,Entry
0270 7862 |xb | Jump 0x2d3
0271 e5fd | | Load 0x2,-0x3
0272 00e2 | | Load_Encached Integer_Cache
0273 00e0 | | Load_Encached Standard_Cache
0274 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0275 00eb | | Load_Encached Diana_Cache
0276 18a8 | | Execute Package,Field_Execute,Field_Number 0xa8
0277 a603 | | Store_Unchecked 0x3,0x3
0278 e606 | | Load 0x3,0x6
0279 4902 |I | Short_Literal 0x102
027a 00eb | | Load_Encached Diana_Cache
027b 0096 | | Execute Package,Entry
027c e603 | | Load 0x3,0x3
027d 495b |I[ | Short_Literal 0x15b
027e 00eb | | Load_Encached Diana_Cache
027f 0096 | | Execute Package,Entry
0280 e5fd | | Load 0x2,-0x3
0281 00eb | | Load_Encached Diana_Cache
0282 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
0283 e603 | | Load 0x3,0x3
0284 00eb | | Load_Encached Diana_Cache
0285 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0286 784c |xL | Jump 0x2d3
0287 e5fd | | Load 0x2,-0x3
0288 00e2 | | Load_Encached Integer_Cache
0289 00e0 | | Load_Encached Standard_Cache
028a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
028b 00eb | | Load_Encached Diana_Cache
028c 18a8 | | Execute Package,Field_Execute,Field_Number 0xa8
028d a603 | | Store_Unchecked 0x3,0x3
028e e606 | | Load 0x3,0x6
028f 4902 |I | Short_Literal 0x102
0290 00eb | | Load_Encached Diana_Cache
0291 0096 | | Execute Package,Entry
0292 e603 | | Load 0x3,0x3
0293 495b |I[ | Short_Literal 0x15b
0294 00eb | | Load_Encached Diana_Cache
0295 0096 | | Execute Package,Entry
0296 e5fd | | Load 0x2,-0x3
0297 00eb | | Load_Encached Diana_Cache
0298 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
0299 e603 | | Load 0x3,0x3
029a 00eb | | Load_Encached Diana_Cache
029b 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
029c 7836 |x6 | Jump 0x2d3
029d e5fd | | Load 0x2,-0x3
029e 480b |H | Short_Literal 0xb
029f 00eb | | Load_Encached Diana_Cache
02a0 187a | z | Execute Package,Field_Execute,Field_Number 0x7a
02a1 a603 | | Store_Unchecked 0x3,0x3
02a2 e606 | | Load 0x3,0x6
02a3 4902 |I | Short_Literal 0x102
02a4 00eb | | Load_Encached Diana_Cache
02a5 0096 | | Execute Package,Entry
02a6 e603 | | Load 0x3,0x3
02a7 495b |I[ | Short_Literal 0x15b
02a8 00eb | | Load_Encached Diana_Cache
02a9 0096 | | Execute Package,Entry
02aa e5fd | | Load 0x2,-0x3
02ab 01db | | Execute Vector,Length
02ac 00d8 | | Load_Top At_Offset_0
02ad 00e2 | | Load_Encached Integer_Cache
02ae 0260 | ` | Execute Discrete,In_Type
02af 7001 |p | Jump_Nonzero 0x2b1
02b0 0801 | | Execute_Immediate Raise,0x1
02b1 e603 | | Load 0x3,0x3
02b2 840a | | Call 0x2,0xa
02b3 e603 | | Load 0x3,0x3
02b4 4958 |IX | Short_Literal 0x158
02b5 00eb | | Load_Encached Diana_Cache
02b6 0096 | | Execute Package,Entry
02b7 781b |x | Jump 0x2d3
02b8 e606 | | Load 0x3,0x6
02b9 4902 |I | Short_Literal 0x102
02ba 00eb | | Load_Encached Diana_Cache
02bb 0096 | | Execute Package,Entry
02bc e5fd | | Load 0x2,-0x3
02bd e00d | | Load 0x0,0xd
02be 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02bf e407 | | Load 0x2,0x7
02c0 e004 | | Load 0x0,0x4
02c1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02c2 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02c3 0092 0498 | | Action Push_String_Extended,0x498 ; "`"
02c5 01cc | | Execute Vector,Catenate
02c6 8408 | | Call 0x2,0x8
02c7 a603 | | Store_Unchecked 0x3,0x3
02c8 e606 | | Load 0x3,0x6
02c9 4902 |I | Short_Literal 0x102
02ca 00eb | | Load_Encached Diana_Cache
02cb 0096 | | Execute Package,Entry
02cc e603 | | Load 0x3,0x3
02cd 495b |I[ | Short_Literal 0x15b
02ce 00eb | | Load_Encached Diana_Cache
02cf 0096 | | Execute Package,Entry
02d0 7802 |x | Jump 0x2d3
02d1 00ec | | Load_Encached Diana_Tree_Cache
02d2 a603 | | Store_Unchecked 0x3,0x3
02d3 e603 | | Load 0x3,0x3
02d4 e7fe | | Load 0x3,-0x2
02d5 e7ff | | Load 0x3,-0x1
02d6 e00e | | Load 0x0,0xe
02d7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02d8 e603 | | Load 0x3,0x3
02d9 e606 | | Load 0x3,0x6
02da 495e |I^ | Short_Literal 0x15e
02db 00eb | | Load_Encached Diana_Cache
02dc 0096 | | Execute Package,Entry
02dd e007 | | Load 0x0,0x7
02de 180e | | Execute Package,Field_Execute,Field_Number 0xe
02df 4803 |H | Short_Literal 0x3
02e0 0092 0499 | | Action Push_String_Extended,0x499 ; "Replaced default expression for "
02e2 e5ff | | Load 0x2,-0x1
02e3 01cc | | Execute Vector,Catenate
02e4 0092 048b | | Action Push_String_Extended,0x48b ; " ("
02e6 01cc | | Execute Vector,Catenate
02e7 e602 | | Load 0x3,0x2
02e8 e009 | | Load 0x0,0x9
02e9 180d | | Execute Package,Field_Execute,Field_Number 0xd
02ea 01cc | | Execute Vector,Catenate
02eb 0092 049a | | Action Push_String_Extended,0x49a ; ") with "
02ed 01cc | | Execute Vector,Catenate
02ee e603 | | Load 0x3,0x3
02ef e009 | | Load 0x0,0x9
02f0 180d | | Execute Package,Field_Execute,Field_Number 0xd
02f1 01cc | | Execute Vector,Catenate
02f2 e008 | | Load 0x0,0x8
02f3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02f4 e604 | | Load 0x3,0x4
02f5 e004 | | Load 0x0,0x4
02f6 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02f7 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
02f8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02f9 TRAP_0210:
02f9 e00b | | Load 0x0,0xb
02fa 010f | | Execute Exception,Equal
02fb 6806 |h | Jump_Zero 0x302
02fc e604 | | Load 0x3,0x4
02fd e004 | | Load 0x0,0x4
02fe 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02ff 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0300 00d8 | | Load_Top At_Offset_0
0301 0101 | | Execute Exception,Reraise
0302 e403 | | Load 0x2,0x3
0303 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0304 010f | | Execute Exception,Equal
0305 680e |h | Jump_Zero 0x314
0306 e007 | | Load 0x0,0x7
0307 180e | | Execute Package,Field_Execute,Field_Number 0xe
0308 4805 |H | Short_Literal 0x5
0309 0092 049b | | Action Push_String_Extended,0x49b ; "Invalid Kind parameter; '"
030b e5fe | | Load 0x2,-0x2
030c 01cc | | Execute Vector,Catenate
030d 0092 049c | | Action Push_String_Extended,0x49c ; "' is not a permitted default"
030f 01cc | | Execute Vector,Catenate
0310 e008 | | Load 0x0,0x8
0311 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0312 e00b | | Load 0x0,0xb
0313 0257 | W | Execute Discrete,Raise
0314 010e | | Execute Exception,Is_Constraint_Error
0315 6816 |h | Jump_Zero 0x32c
0316 e007 | | Load 0x0,0x7
0317 180e | | Execute Package,Field_Execute,Field_Number 0xe
0318 4805 |H | Short_Literal 0x5
0319 0092 049d | | Action Push_String_Extended,0x49d ; "Invalid value parameter; '"
031b e5fd | | Load 0x2,-0x3
031c 01cc | | Execute Vector,Catenate
031d 0092 049e | | Action Push_String_Extended,0x49e ; "' is not a "
031f 01cc | | Execute Vector,Catenate
0320 e607 | | Load 0x3,0x7
0321 e402 | | Load 0x2,0x2
0322 011c | | Execute Any,Convert_Unchecked
0323 1c01 | | Execute_Immediate Run_Utility,0x1
0324 01cc | | Execute Vector,Catenate
0325 0092 049f | | Action Push_String_Extended,0x49f ; " value"
0327 01cc | | Execute Vector,Catenate
0328 e008 | | Load 0x0,0x8
0329 1813 | | Execute Package,Field_Execute,Field_Number 0x13
032a e00b | | Load 0x0,0xb
032b 0257 | W | Execute Discrete,Raise
032c 0100 | | Execute Exception,Raise
032d 0000 0000 | | .XXX[0x3]
032f 0000 | |
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0364 | d | .CONST 0x0364 ; Address of begin
0331 0459 | Y | .CONST 0x0459 ; Address of exception handler
0332 000c | | .CONST 0x000c ; Number of locals
0333 INIT_0330:
0333 e006 | | Load 0x0,0x6
0334 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0335 e00a | | Load 0x0,0xa
0336 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0337 e004 | | Load 0x0,0x4
0338 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0339 02ff | | Declare_Variable Variant_Record
033a 00d8 | | Load_Top At_Offset_0
033b 1c00 | | Execute_Immediate Run_Utility,0x0
033c e004 | | Load 0x0,0x4
033d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
033e 02ff | | Declare_Variable Variant_Record
033f 00d8 | | Load_Top At_Offset_0
0340 1c00 | | Execute_Immediate Run_Utility,0x0
0341 e004 | | Load 0x0,0x4
0342 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0343 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0344 e00f | | Load 0x0,0xf
0345 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0346 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0347 e005 | | Load 0x0,0x5
0348 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0349 02c7 | | Declare_Variable Any
034a e010 | | Load 0x0,0x10
034b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
034c e005 | | Load 0x0,0x5
034d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
034e a607 | | Store_Unchecked 0x3,0x7
034f e011 | | Load 0x0,0x11
0350 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0351 02c7 | | Declare_Variable Any
0352 00d8 | | Load_Top At_Offset_0
0353 1c00 | | Execute_Immediate Run_Utility,0x0
0354 e012 | | Load 0x0,0x12
0355 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0356 02c7 | | Declare_Variable Any
0357 00d8 | | Load_Top At_Offset_0
0358 1c00 | | Execute_Immediate Run_Utility,0x0
0359 00ec | | Load_Encached Diana_Tree_Cache
035a e013 | | Load 0x0,0x13
035b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
035c 02c7 | | Declare_Variable Any
035d 00d8 | | Load_Top At_Offset_0
035e 1c00 | | Execute_Immediate Run_Utility,0x0
035f e00e | | Load 0x0,0xe
0360 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0361 02c7 | | Declare_Variable Any
0362 00d8 | | Load_Top At_Offset_0
0363 1c00 | | Execute_Immediate Run_Utility,0x0
0364 BODY_0330:
0364 e004 | | Load 0x0,0x4
0365 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0366 e604 | | Load 0x3,0x4
0367 e7ff | | Load 0x3,-0x1
0368 e004 | | Load 0x0,0x4
0369 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
036a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
036b 00d1 | | Pop_Control Pop_Count_1
036c c605 | | Store 0x3,0x5
036d e004 | | Load 0x0,0x4
036e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
036f e407 | | Load 0x2,0x7
0370 0120 | | Execute Any,Is_Value
0371 6803 |h | Jump_Zero 0x375
0372 e004 | | Load 0x0,0x4
0373 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0374 7801 |x | Jump 0x376
0375 e407 | | Load 0x2,0x7
0376 6109 |a | Indirect_Literal Discrete,0x480,{0x00000000, 0x00004000}
0377 e005 | | Load 0x0,0x5
0378 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0379 e604 | | Load 0x3,0x4
037a e004 | | Load 0x0,0x4
037b 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
037c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
037d c407 | | Store 0x2,0x7
037e c605 | | Store 0x3,0x5
037f e605 | | Load 0x3,0x5
0380 6813 |h | Jump_Zero 0x394
0381 e007 | | Load 0x0,0x7
0382 180e | | Execute Package,Field_Execute,Field_Number 0xe
0383 4805 |H | Short_Literal 0x5
0384 e605 | | Load 0x3,0x5
0385 e004 | | Load 0x0,0x4
0386 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0387 011c | | Execute Any,Convert_Unchecked
0388 1c01 | | Execute_Immediate Run_Utility,0x1
0389 0092 04a0 | | Action Push_String_Extended,0x4a0 ; ": Can't get version id for "
038b 01cc | | Execute Vector,Catenate
038c e7ff | | Load 0x3,-0x1
038d e004 | | Load 0x0,0x4
038e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
038f 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0390 01cc | | Execute Vector,Catenate
0391 e008 | | Load 0x0,0x8
0392 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0393 78b9 |x | Jump 0x44d
0394 e604 | | Load 0x3,0x4
0395 e004 | | Load 0x0,0x4
0396 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0397 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0398 e014 | | Load 0x0,0x14
0399 180d | | Execute Package,Field_Execute,Field_Number 0xd
039a e00f | | Load 0x0,0xf
039b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
039c e609 | | Load 0x3,0x9
039d 0120 | | Execute Any,Is_Value
039e 6803 |h | Jump_Zero 0x3a2
039f e012 | | Load 0x0,0x12
03a0 1b14 | | Execute Package,Field_Read,Field_Number 0x14
03a1 7801 |x | Jump 0x3a3
03a2 e609 | | Load 0x3,0x9
03a3 e608 | | Load 0x3,0x8
03a4 0120 | | Execute Any,Is_Value
03a5 6804 |h | Jump_Zero 0x3aa
03a6 e011 | | Load 0x0,0x11
03a7 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a9 7801 |x | Jump 0x3ab
03aa e608 | | Load 0x3,0x8
03ab e607 | | Load 0x3,0x7
03ac 4800 |H | Short_Literal 0x0
03ad 4803 |H | Short_Literal 0x3
03ae e604 | | Load 0x3,0x4
03af e011 | | Load 0x0,0x11
03b0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03b1 0162 | b | Execute Variant_Record,Check_In_Type
03b2 e011 | | Load 0x0,0x11
03b3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03b4 c608 | | Store 0x3,0x8
03b5 c609 | | Store 0x3,0x9
03b6 c606 | | Store 0x3,0x6
03b7 e606 | | Load 0x3,0x6
03b8 6813 |h | Jump_Zero 0x3cc
03b9 e007 | | Load 0x0,0x7
03ba 180e | | Execute Package,Field_Execute,Field_Number 0xe
03bb 4805 |H | Short_Literal 0x5
03bc e606 | | Load 0x3,0x6
03bd e00f | | Load 0x0,0xf
03be 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03bf 011c | | Execute Any,Convert_Unchecked
03c0 1c01 | | Execute_Immediate Run_Utility,0x1
03c1 0092 04a1 | | Action Push_String_Extended,0x4a1 ; ": Can't open Diana Tree for "
03c3 01cc | | Execute Vector,Catenate
03c4 e604 | | Load 0x3,0x4
03c5 e004 | | Load 0x0,0x4
03c6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03c7 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
03c8 01cc | | Execute Vector,Catenate
03c9 e008 | | Load 0x0,0x8
03ca 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03cb 7881 |x | Jump 0x44d
03cc e7ff | | Load 0x3,-0x1
03cd e609 | | Load 0x3,0x9
03ce 00eb | | Load_Encached Diana_Cache
03cf 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03d0 a7ff | | Store_Unchecked 0x3,-0x1
03d1 e7ff | | Load 0x3,-0x1
03d2 e011 | | Load 0x0,0x11
03d3 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03d4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03d5 0033 | 3 | Store_Top Heap_Access,At_Offset_3
03d6 e00f | | Load 0x0,0xf
03d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03d8 e603 | | Load 0x3,0x3
03d9 4800 |H | Short_Literal 0x0
03da e607 | | Load 0x3,0x7
03db e604 | | Load 0x3,0x4
03dc e011 | | Load 0x0,0x11
03dd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03de 0162 | b | Execute Variant_Record,Check_In_Type
03df e011 | | Load 0x0,0x11
03e0 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
03e1 00d1 | | Pop_Control Pop_Count_1
03e2 c606 | | Store 0x3,0x6
03e3 e603 | | Load 0x3,0x3
03e4 e004 | | Load 0x0,0x4
03e5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03e6 6813 |h | Jump_Zero 0x3fa
03e7 e007 | | Load 0x0,0x7
03e8 180e | | Execute Package,Field_Execute,Field_Number 0xe
03e9 4805 |H | Short_Literal 0x5
03ea e606 | | Load 0x3,0x6
03eb e00f | | Load 0x0,0xf
03ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ed 011c | | Execute Any,Convert_Unchecked
03ee 1c01 | | Execute_Immediate Run_Utility,0x1
03ef 0092 04a2 | | Action Push_String_Extended,0x4a2 ; ": Can't get Image for "
03f1 01cc | | Execute Vector,Catenate
03f2 e604 | | Load 0x3,0x4
03f3 e004 | | Load 0x0,0x4
03f4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03f5 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
03f6 01cc | | Execute Vector,Catenate
03f7 e008 | | Load 0x0,0x8
03f8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03f9 7847 |xG | Jump 0x441
03fa e00f | | Load 0x0,0xf
03fb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03fc 00da | | Load_Top At_Offset_2
03fd 0120 | | Execute Any,Is_Value
03fe 6803 |h | Jump_Zero 0x402
03ff e013 | | Load 0x0,0x13
0400 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0401 7801 |x | Jump 0x403
0402 00da | | Load_Top At_Offset_2
0403 4800 |H | Short_Literal 0x0
0404 e607 | | Load 0x3,0x7
0405 e602 | | Load 0x3,0x2
0406 4802 |H | Short_Literal 0x2
0407 e603 | | Load 0x3,0x3
0408 e015 | | Load 0x0,0x15
0409 1b0f | | Execute Package,Field_Read,Field_Number 0xf
040a 0162 | b | Execute Variant_Record,Check_In_Type
040b e013 | | Load 0x0,0x13
040c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
040d c60b | | Store 0x3,0xb
040e c606 | | Store 0x3,0x6
040f e606 | | Load 0x3,0x6
0410 6813 |h | Jump_Zero 0x424
0411 e007 | | Load 0x0,0x7
0412 180e | | Execute Package,Field_Execute,Field_Number 0xe
0413 4805 |H | Short_Literal 0x5
0414 e606 | | Load 0x3,0x6
0415 e00f | | Load 0x0,0xf
0416 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0417 011c | | Execute Any,Convert_Unchecked
0418 1c01 | | Execute_Immediate Run_Utility,0x1
0419 0092 04a3 | | Action Push_String_Extended,0x4a3 ; ": Can't open Image for "
041b 01cc | | Execute Vector,Catenate
041c e604 | | Load 0x3,0x4
041d e004 | | Load 0x0,0x4
041e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
041f 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0420 01cc | | Execute Vector,Catenate
0421 e008 | | Load 0x0,0x8
0422 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0423 781d |x | Jump 0x441
0424 00d8 | | Load_Top At_Offset_0
0425 0120 | | Execute Any,Is_Value
0426 6803 |h | Jump_Zero 0x42a
0427 e00e | | Load 0x0,0xe
0428 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0429 7801 |x | Jump 0x42b
042a 00d8 | | Load_Top At_Offset_0
042b 00da | | Load_Top At_Offset_2
042c e602 | | Load 0x3,0x2
042d e016 | | Load 0x0,0x16
042e 180f | | Execute Package,Field_Execute,Field_Number 0xf
042f e00e | | Load 0x0,0xe
0430 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0431 c60c | | Store 0x3,0xc
0432 e7ff | | Load 0x3,-0x1
0433 00d9 | | Load_Top At_Offset_1
0434 840b | | Call 0x2,0xb
0435 00d8 | | Load_Top At_Offset_0
0436 e00e | | Load 0x0,0xe
0437 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0438 c60c | | Store 0x3,0xc
0439 e00f | | Load 0x0,0xf
043a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
043b 00da | | Load_Top At_Offset_2
043c 4800 |H | Short_Literal 0x0
043d e013 | | Load 0x0,0x13
043e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
043f c60b | | Store 0x3,0xb
0440 c606 | | Store 0x3,0x6
0441 e00f | | Load 0x0,0xf
0442 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0443 4800 |H | Short_Literal 0x0
0444 4801 |H | Short_Literal 0x1
0445 e607 | | Load 0x3,0x7
0446 e604 | | Load 0x3,0x4
0447 e011 | | Load 0x0,0x11
0448 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0449 0162 | b | Execute Variant_Record,Check_In_Type
044a e011 | | Load 0x0,0x11
044b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
044c c606 | | Store 0x3,0x6
044d e607 | | Load 0x3,0x7
044e 4801 |H | Short_Literal 0x1
044f e606 | | Load 0x3,0x6
0450 7003 |p | Jump_Nonzero 0x454
0451 e605 | | Load 0x3,0x5
0452 0f00 | | Execute_Immediate Equal,0x0
0453 7801 |x | Jump 0x455
0454 4800 |H | Short_Literal 0x0
0455 e005 | | Load 0x0,0x5
0456 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0457 c607 | | Store 0x3,0x7
0458 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0459 TRAP_0330:
0459 e00b | | Load 0x0,0xb
045a 010f | | Execute Exception,Equal
045b 6807 |h | Jump_Zero 0x463
045c e607 | | Load 0x3,0x7
045d 4801 |H | Short_Literal 0x1
045e 4800 |H | Short_Literal 0x0
045f e005 | | Load 0x0,0x5
0460 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0461 c607 | | Store 0x3,0x7
0462 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0463 e607 | | Load 0x3,0x7
0464 4801 |H | Short_Literal 0x1
0465 4800 |H | Short_Literal 0x0
0466 e005 | | Load 0x0,0x5
0467 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0468 c607 | | Store 0x3,0x7
0469 e007 | | Load 0x0,0x7
046a 180e | | Execute Package,Field_Execute,Field_Number 0xe
046b 4805 |H | Short_Literal 0x5
046c 0092 0491 | | Action Push_String_Extended,0x491 ; "Unhandled exception changing default for "
046e e5ff | | Load 0x2,-0x1
046f 01cc | | Execute Vector,Catenate
0470 0092 0492 | | Action Push_String_Extended,0x492 ; " to "
0472 01cc | | Execute Vector,Catenate
0473 e5fe | | Load 0x2,-0x2
0474 01cc | | Execute Vector,Catenate
0475 0092 0493 | | Action Push_String_Extended,0x493 ; " "
0477 01cc | | Execute Vector,Catenate
0478 e5fd | | Load 0x2,-0x3
0479 01cc | | Execute Vector,Catenate
047a e008 | | Load 0x0,0x8
047b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
047c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
047d 0000 0000 | | .XXX[0x3]
047f 0000 | |
0480 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0484 ; --------------------------------------------------------------------------------------
0484 ; STRING TABLE
0484 ; --------------------------------------------------------------------------------------
0484 0042 | B | .STRTAB 0x0042->0x04a5 ; "VOID"
0485 0044 | D | .STRTAB 0x0044->0x04a7 ; "CHARACTER_LITERAL"
0486 0053 | S | .STRTAB 0x0053->0x04af ; "INTEGER_LITERAL"
0487 0060 | ` | .STRTAB 0x0060->0x04b7 ; "LONG_INTEGER_LITERAL"
0488 0072 | r | .STRTAB 0x0072->0x04c1 ; "USED_NAME"
0489 0079 | y | .STRTAB 0x0079->0x04c5 ; "STRING_LITERAL"
048a 0085 | | .STRTAB 0x0085->0x04cc ; "NULL_LITERAL"
048b 008f | | .STRTAB 0x008f->0x04d2 ; " ("
048c 008f | | .STRTAB 0x008f->0x04d3 ; ") does not denote a parameter specification"
048d 00b8 | | .STRTAB 0x00b8->0x04e9 ; "Current default is "
048e 00c9 | | .STRTAB 0x00c9->0x04f2 ; " is not an 'in' parameter"
048f 00e0 | | .STRTAB 0x00e0->0x04ff ; "Can't resolve "
0490 00ec | | .STRTAB 0x00ec->0x0506 ; " because "
0491 00f3 | | .STRTAB 0x00f3->0x050a ; "Unhandled exception changing default for "
0492 011a | | .STRTAB 0x011a->0x051f ; " to "
0493 011c | | .STRTAB 0x011c->0x0521 ; " "
0494 011b | | .STRTAB 0x011b->0x0521 ; "Can't locate "
0495 0126 | & | .STRTAB 0x0126->0x0528 ; " in character set."
0496 0136 | 6 | .STRTAB 0x0136->0x0531 ; "`Standard.Integer"
0497 0145 | E | .STRTAB 0x0145->0x0539 ; "Can't locate Standard.Integer for building range constraint for string literal."
0498 0192 | | .STRTAB 0x0192->0x0561 ; "`"
0499 0191 | | .STRTAB 0x0191->0x0561 ; "Replaced default expression for "
049a 01af | | .STRTAB 0x01af->0x0571 ; ") with "
049b 01b4 | | .STRTAB 0x01b4->0x0575 ; "Invalid Kind parameter; '"
049c 01cb | | .STRTAB 0x01cb->0x0581 ; "' is not a permitted default"
049d 01e5 | | .STRTAB 0x01e5->0x058f ; "Invalid value parameter; '"
049e 01fd | | .STRTAB 0x01fd->0x059c ; "' is not a "
049f 0206 | | .STRTAB 0x0206->0x05a2 ; " value"
04a0 020a | | .STRTAB 0x020a->0x05a5 ; ": Can't get version id for "
04a1 0223 | # | .STRTAB 0x0223->0x05b2 ; ": Can't open Diana Tree for "
04a2 023d | = | .STRTAB 0x023d->0x05c0 ; ": Can't get Image for "
04a3 0251 | Q | .STRTAB 0x0251->0x05cb ; ": Can't open Image for "
04a4 0266 | f | .STREND 0x0266->0x05d7
04a5 564f 4944 |VOID| .STRTAB_STRINGS
05d7 0000 | | .XXX[0x1]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; Debug Table
05d8 ; --------------------------------------------------------------------------------------
05d8 0004 0000 | | .DEBUG4 0x0004,0x0000,0x775d,0x0000,0x0001,0x0000
05de 0000 0000 | | .BLANK 0000[0x22]