|
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 - metrics - download
Length: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0698 | | .CONST 0x0698 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0094 | | .CONST 0x0094 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0034 | 4 | .CONST 0x0034 ; Number of locals
000b INIT_0008:
000b 029a 009b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0098
000d 029a 00cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c8
000f 029a 00d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d0
0011 029a 00db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d8
0013 029a 0103 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0100
0015 029a 013b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0138
0017 029a 014b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0148
0019 029a 0163 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0160
001b 029a 01ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a8
001d 029a 01b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01b0
001f 029a 01bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01b8
0021 029a 01c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01c0
0023 029a 01cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01c8
0025 029a 01d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01d0
0027 029a 01db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01d8
0029 029a 01e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01e0
002b 029a 01eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01e8
002d 029a 01f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01f0
002f 00bf | | Action Accept_Activation
0030 0093 0000 | | PushFullAddress InMicrocode
0032 608d |` | Indirect_Literal Discrete,0xc0,{0x80000000, 0x00010000}
0033 0273 | s | Execute Discrete,Plus
0034 0007 | | Action Break_Optional
0035 00ec | | Load_Encached Diana_Tree_Cache
0036 6085 |` | Indirect_Literal Discrete,0xbc,{0x80000000, 0x00000000}
0037 6080 |` | Indirect_Literal Discrete,0xb8,{0x80ffffff, 0xffffffff}
0038 00e5 | | Load_Encached Long_Integer_Cache
0039 03f8 | | Declare_Type Discrete,Constrained
003a 4801 |H | Short_Literal 0x1
003b 0093 0523 | #| PushFullAddress InMicrocode,INIT_0520
003d 02a0 | | Declare_Subprogram Null_Subprogram
003e 038e | | Declare_Type Package,Defined
003f 00e4 | | Load_Encached Positive_Cache
0040 0266 | f | Execute Discrete,Bounds
0041 00e2 | | Load_Encached Integer_Cache
0042 02a0 | | Declare_Subprogram Null_Subprogram
0043 4801 |H | Short_Literal 0x1
0044 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
0045 e002 | | Load 0x0,0x2
0046 e003 | | Load 0x0,0x3
0047 00e2 | | Load_Encached Integer_Cache
0048 e223 | # | Load 0x1,0x23
0049 4800 |H | Short_Literal 0x0
004a 4814 |H | Short_Literal 0x14
004b 6068 |`h | Indirect_Literal Discrete,0xb4,{0x00000000, 0x7fffffff}
004c e004 | | Load 0x0,0x4
004d 0387 | | Declare_Variable Package
004e 00d8 | | Load_Top At_Offset_0
004f 020f | | Execute Module,Activate
0050 029d 01fb | | Declare_Subprogram For_Outer_Call,INIT_01f8
0052 029d 020b | | Declare_Subprogram For_Outer_Call,INIT_0208
0054 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0055 00c7 | | Action Elaborate_Subprogram
0056 029d 0233 | 3| Declare_Subprogram For_Outer_Call,INIT_0230
0058 029d 023b | ;| Declare_Subprogram For_Outer_Call,INIT_0238
005a 029d 0253 | S| Declare_Subprogram For_Outer_Call,INIT_0250
005c 029d 02ab | | Declare_Subprogram For_Outer_Call,INIT_02a8
005e 029d 02c3 | | Declare_Subprogram For_Outer_Call,INIT_02c0
0060 029d 02d3 | | Declare_Subprogram For_Outer_Call,INIT_02d0
0062 029d 030b | | Declare_Subprogram For_Outer_Call,INIT_0308
0064 029d 0323 | #| Declare_Subprogram For_Outer_Call,INIT_0320
0066 029d 0353 | S| Declare_Subprogram For_Outer_Call,INIT_0350
0068 029d 036b | k| Declare_Subprogram For_Outer_Call,INIT_0368
006a 029d 038b | | Declare_Subprogram For_Outer_Call,INIT_0388
006c 029d 0443 | C| Declare_Subprogram For_Outer_Call,INIT_0440
006e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
006f 00c7 | | Action Elaborate_Subprogram
0070 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0071 00c7 | | Action Elaborate_Subprogram
0072 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0073 00c7 | | Action Elaborate_Subprogram
0074 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0075 00c7 | | Action Elaborate_Subprogram
0076 029d 0483 | | Declare_Subprogram For_Outer_Call,INIT_0480
0078 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0079 00c7 | | Action Elaborate_Subprogram
007a 1d13 | | Execute_Immediate Reference_Lex_1,0x13
007b 00c7 | | Action Elaborate_Subprogram
007c 1d14 | | Execute_Immediate Reference_Lex_1,0x14
007d 00c7 | | Action Elaborate_Subprogram
007e 029d 04ab | | Declare_Subprogram For_Outer_Call,INIT_04a8
0080 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0081 00c7 | | Action Elaborate_Subprogram
0082 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0083 00c7 | | Action Elaborate_Subprogram
0084 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0085 00c7 | | Action Elaborate_Subprogram
0086 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0087 00c7 | | Action Elaborate_Subprogram
0088 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0089 00c7 | | Action Elaborate_Subprogram
008a 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
008b 00c7 | | Action Elaborate_Subprogram
008c 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
008d 00c7 | | Action Elaborate_Subprogram
008e 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
008f 00c7 | | Action Elaborate_Subprogram
0090 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0091 00c7 | | Action Elaborate_Subprogram
0092 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0093 00c7 | | Action Elaborate_Subprogram
0094 BODY_0008:
0094 8234 | 4 | Call 0x1,0x34
0095 a220 | | Store_Unchecked 0x1,0x20
0096 00bc | | Action Signal_Activated
0097 00bb | | Action Signal_Completion
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b e5ff | | Load 0x2,-0x1
009c 00eb | | Load_Encached Diana_Cache
009d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
009e 00d8 | | Load_Top At_Offset_0
009f 481d |H | Short_Literal 0x1d
00a0 4831 |H1 | Short_Literal 0x31
00a1 0262 | b | Execute Discrete,In_Range
00a2 680c |h | Jump_Zero 0xaf
00a3 00d8 | | Load_Top At_Offset_0
00a4 481e |H | Short_Literal 0x1e
00a5 4827 |H' | Short_Literal 0x27
00a6 0262 | b | Execute Discrete,In_Range
00a7 7007 |p | Jump_Nonzero 0xaf
00a8 4829 |H) | Short_Literal 0x29
00a9 4830 |H0 | Short_Literal 0x30
00aa 0262 | b | Execute Discrete,In_Range
00ab 7004 |p | Jump_Nonzero 0xb0
00ac 7800 |x | Jump 0xad
00ad 4801 |H | Short_Literal 0x1
00ae 4401 |D | Exit_Subprogram With_Result,0x1
00af 00d1 | | Pop_Control Pop_Count_1
00b0 4800 |H | Short_Literal 0x0
00b1 4401 |D | Exit_Subprogram With_Result,0x1
00b2 0000 0000 | | .XXX[0x2]
00b4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
00b8 80ff ffff | | .LITERAL {0x80ffffff, 0xffffffff}
00bc 8000 0000 | | .LITERAL {0x80000000, 0x00000000}
00c0 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00c4 0000 0000 | | .BLANK 0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 4801 |H | Short_Literal 0x1
00cc 4401 |D | Exit_Subprogram With_Result,0x1
00cd 0000 0000 | | .XXX[0x3]
00cf 0000 | |
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 e5ff | | Load 0x2,-0x1
00d4 e005 | | Load 0x0,0x5
00d5 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00d6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00d7 4401 |D | Exit_Subprogram With_Result,0x1
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00dd | | .CONST 0x00dd ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0003 | | .CONST 0x0003 ; Number of locals
00db INIT_00d8:
00db 00e2 | | Load_Encached Integer_Cache
00dc 00ec | | Load_Encached Diana_Tree_Cache
00dd BODY_00d8:
00dd e5ff | | Load 0x2,-0x1
00de 820f | | Call 0x1,0xf
00df 680a |h | Jump_Zero 0xea
00e0 e5ff | | Load 0x2,-0x1
00e1 e005 | | Load 0x0,0x5
00e2 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00e3 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00e4 a402 | | Store_Unchecked 0x2,0x2
00e5 e402 | | Load 0x2,0x2
00e6 0c01 | | Execute_Immediate Greater_Equal,0x1
00e7 6802 |h | Jump_Zero 0xea
00e8 e402 | | Load 0x2,0x2
00e9 4401 |D | Exit_Subprogram With_Result,0x1
00ea e5ff | | Load 0x2,-0x1
00eb 00eb | | Load_Encached Diana_Cache
00ec 18ec | | Execute Package,Field_Execute,Field_Number 0xec
00ed e006 | | Load 0x0,0x6
00ee 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00ef a403 | | Store_Unchecked 0x2,0x3
00f0 e403 | | Load 0x2,0x3
00f1 00eb | | Load_Encached Diana_Cache
00f2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00f3 6802 |h | Jump_Zero 0xf6
00f4 4800 |H | Short_Literal 0x0
00f5 4401 |D | Exit_Subprogram With_Result,0x1
00f6 e5ff | | Load 0x2,-0x1
00f7 e403 | | Load 0x2,0x3
00f8 8007 | | Call 0x0,0x7
00f9 4401 |D | Exit_Subprogram With_Result,0x1
00fa 0000 0000 | | .BLANK 0000[0x6]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0104 | | .CONST 0x0104 ; Address of begin
0101 012d | - | .CONST 0x012d ; Address of exception handler
0102 0002 | | .CONST 0x0002 ; Number of locals
0103 INIT_0100:
0103 00e5 | | Load_Encached Long_Integer_Cache
0104 BODY_0100:
0104 e5ff | | Load 0x2,-0x1
0105 8008 | | Call 0x0,0x8
0106 6803 |h | Jump_Zero 0x10a
0107 0092 0526 | &| Action Push_String_Extended,0x526 ; "null"
0109 4402 |D | Exit_Subprogram With_Result,0x2
010a e5ff | | Load 0x2,-0x1
010b 8009 | | Call 0x0,0x9
010c 6803 |h | Jump_Zero 0x110
010d 0092 0527 | '| Action Push_String_Extended,0x527 ; "implicit"
010f 4402 |D | Exit_Subprogram With_Result,0x2
0110 e5ff | | Load 0x2,-0x1
0111 800a | | Call 0x0,0xa
0112 a402 | | Store_Unchecked 0x2,0x2
0113 e402 | | Load 0x2,0x2
0114 800b | | Call 0x0,0xb
0115 6803 |h | Jump_Zero 0x119
0116 e402 | | Load 0x2,0x2
0117 800c | | Call 0x0,0xc
0118 4402 |D | Exit_Subprogram With_Result,0x2
0119 e402 | | Load 0x2,0x2
011a e221 | ! | Load 0x1,0x21
011b 0260 | ` | Execute Discrete,In_Type
011c 6804 |h | Jump_Zero 0x121
011d e5fe | | Load 0x2,-0x2
011e e402 | | Load 0x2,0x2
011f 8233 | 3 | Call 0x1,0x33
0120 4402 |D | Exit_Subprogram With_Result,0x2
0121 e402 | | Load 0x2,0x2
0122 e00d | | Load 0x0,0xd
0123 180f | | Execute Package,Field_Execute,Field_Number 0xf
0124 6804 |h | Jump_Zero 0x129
0125 e402 | | Load 0x2,0x2
0126 e00d | | Load 0x0,0xd
0127 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0128 4402 |D | Exit_Subprogram With_Result,0x2
0129 e5fe | | Load 0x2,-0x2
012a e402 | | Load 0x2,0x2
012b 8233 | 3 | Call 0x1,0x33
012c 4402 |D | Exit_Subprogram With_Result,0x2
012d TRAP_0100:
012d 0007 | | Action Break_Optional
012e e5ff | | Load 0x2,-0x1
012f 8212 | | Call 0x1,0x12
0130 4402 |D | Exit_Subprogram With_Result,0x2
0131 0000 0000 | | .BLANK 0000[0x7]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 0092 0528 | (| Action Push_String_Extended,0x528 ; "("
013d e5ff | | Load 0x2,-0x1
013e 800e | | Call 0x0,0xe
013f 01cc | | Execute Vector,Catenate
0140 0092 0529 | )| Action Push_String_Extended,0x529 ; ")"
0142 01cc | | Execute Vector,Catenate
0143 4401 |D | Exit_Subprogram With_Result,0x1
0144 0000 0000 | | .BLANK 0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014e | N | .CONST 0x014e ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0003 | | .CONST 0x0003 ; Number of locals
014b INIT_0148:
014b 00e5 | | Load_Encached Long_Integer_Cache
014c 029f 04e3 | | Declare_Subprogram For_Call,INIT_04e0
014e BODY_0148:
014e 4801 |H | Short_Literal 0x1
014f 0092 0526 | &| Action Push_String_Extended,0x526 ; "null"
0151 e5ff | | Load 0x2,-0x1
0152 e00f | | Load 0x0,0xf
0153 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0154 6805 |h | Jump_Zero 0x15a
0155 8010 | | Call 0x0,0x10
0156 c5fe | | Store 0x2,-0x2
0157 4801 |H | Short_Literal 0x1
0158 a5fd | | Store_Unchecked 0x2,-0x3
0159 4502 |E | Exit_Subprogram 0x2
015a 8403 | | Call 0x2,0x3
015b 4502 |E | Exit_Subprogram 0x2
015c 0000 0000 | | .BLANK 0000[0x4]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0166 | f | .CONST 0x0166 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0004 | | .CONST 0x0004 ; Number of locals
0163 INIT_0160:
0163 00ec | | Load_Encached Diana_Tree_Cache
0164 00e1 | | Load_Encached Boolean_Cache
0165 00e5 | | Load_Encached Long_Integer_Cache
0166 BODY_0160:
0166 8010 | | Call 0x0,0x10
0167 c5fe | | Store 0x2,-0x2
0168 e5ff | | Load 0x2,-0x1
0169 00eb | | Load_Encached Diana_Cache
016a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
016b 0f20 | | Execute_Immediate Equal,0x20
016c 6830 |h0 | Jump_Zero 0x19d
016d e5ff | | Load 0x2,-0x1
016e e011 | | Load 0x0,0x11
016f 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0170 a402 | | Store_Unchecked 0x2,0x2
0171 e402 | | Load 0x2,0x2
0172 00eb | | Load_Encached Diana_Cache
0173 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0174 0f20 | | Execute_Immediate Equal,0x20
0175 7006 |p | Jump_Nonzero 0x17c
0176 0092 052a | *| Action Push_String_Extended,0x52a ; "Exception_Value's rename following yielded non-exception id"
0178 e012 | | Load 0x0,0x12
0179 1811 | | Execute Package,Field_Execute,Field_Number 0x11
017a c5fd | | Store 0x2,-0x3
017b 4502 |E | Exit_Subprogram 0x2
017c 00e1 | | Load_Encached Boolean_Cache
017d 00e5 | | Load_Encached Long_Integer_Cache
017e 4801 |H | Short_Literal 0x1
017f 4800 |H | Short_Literal 0x0
0180 e013 | | Load 0x0,0x13
0181 e402 | | Load 0x2,0x2
0182 e011 | | Load 0x0,0x11
0183 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
0184 e00d | | Load 0x0,0xd
0185 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0186 c404 | | Store 0x2,0x4
0187 c403 | | Store 0x2,0x3
0188 e403 | | Load 0x2,0x3
0189 700c |p | Jump_Nonzero 0x196
018a e5fe | | Load 0x2,-0x2
018b 0120 | | Execute Any,Is_Value
018c 6802 |h | Jump_Zero 0x18f
018d e014 | | Load 0x0,0x14
018e 7801 |x | Jump 0x190
018f e5fe | | Load 0x2,-0x2
0190 e5fd | | Load 0x2,-0x3
0191 e402 | | Load 0x2,0x2
0192 8232 | 2 | Call 0x1,0x32
0193 c5fd | | Store 0x2,-0x3
0194 c5fe | | Store 0x2,-0x2
0195 4502 |E | Exit_Subprogram 0x2
0196 e404 | | Load 0x2,0x4
0197 8015 | | Call 0x0,0x15
0198 c5fe | | Store 0x2,-0x2
0199 e012 | | Load 0x0,0x12
019a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
019b c5fd | | Store 0x2,-0x3
019c 4502 |E | Exit_Subprogram 0x2
019d e5fd | | Load 0x2,-0x3
019e 0092 052b | +| Action Push_String_Extended,0x52b ; "The object specified is not an exception_id node"
01a0 e012 | | Load 0x0,0x12
01a1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01a2 c5fd | | Store 0x2,-0x3
01a3 4502 |E | Exit_Subprogram 0x2
01a4 0000 0000 | | .BLANK 0000[0x4]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab e5ff | | Load 0x2,-0x1
01ac e220 | | Load 0x1,0x20
01ad 021f | | Execute Heap_Access,Equal
01ae 4401 |D | Exit_Subprogram With_Result,0x1
01af 0000 | | .XXX[0x1]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 e220 | | Load 0x1,0x20
01b4 00ca | | Action Exit_Nullary_Function
01b5 0000 0000 | | .XXX[0x3]
01b7 0000 | |
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb e5ff | | Load 0x2,-0x1
01bc 8016 | | Call 0x0,0x16
01bd 4401 |D | Exit_Subprogram With_Result,0x1
01be 0000 0000 | | .XXX[0x2]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 4800 |H | Short_Literal 0x0
01c4 4401 |D | Exit_Subprogram With_Result,0x1
01c5 0000 0000 | | .XXX[0x3]
01c7 0000 | |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00eb | | Load_Encached Diana_Cache
01cc 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01cd 4401 |D | Exit_Subprogram With_Result,0x1
01ce 0000 0000 | | .XXX[0x2]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 e5ff | | Load 0x2,-0x1
01d4 e006 | | Load 0x0,0x6
01d5 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
01d6 4401 |D | Exit_Subprogram With_Result,0x1
01d7 0000 | | .XXX[0x1]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 4801 |H | Short_Literal 0x1
01dc 00ca | | Action Exit_Nullary_Function
01dd 0000 0000 | | .XXX[0x3]
01df 0000 | |
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 e5ff | | Load 0x2,-0x1
01e4 e005 | | Load 0x0,0x5
01e5 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01e6 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
01e7 4401 |D | Exit_Subprogram With_Result,0x1
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb e5ff | | Load 0x2,-0x1
01ec e005 | | Load 0x0,0x5
01ed 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01ee 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
01ef 4401 |D | Exit_Subprogram With_Result,0x1
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 4801 |H | Short_Literal 0x1
01f4 00ca | | Action Exit_Nullary_Function
01f5 0000 0000 | | .XXX[0x3]
01f7 0000 | |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb e5ff | | Load 0x2,-0x1
01fc 7007 |p | Jump_Nonzero 0x204
01fd e5fe | | Load 0x2,-0x2
01fe e5fd | | Load 0x2,-0x3
01ff e006 | | Load 0x0,0x6
0200 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0201 01cc | | Execute Vector,Catenate
0202 e017 | | Load 0x0,0x17
0203 180f | | Execute Package,Field_Execute,Field_Number 0xf
0204 4504 |E | Exit_Subprogram 0x4
0205 0000 0000 | | .XXX[0x3]
0207 0000 | |
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020d | | .CONST 0x020d ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0003 | | .CONST 0x0003 ; Number of locals
020b INIT_0208:
020b 00e2 | | Load_Encached Integer_Cache
020c 00ec | | Load_Encached Diana_Tree_Cache
020d BODY_0208:
020d e5ff | | Load 0x2,-0x1
020e e005 | | Load 0x0,0x5
020f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0210 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0211 6806 |h | Jump_Zero 0x218
0212 e5ff | | Load 0x2,-0x1
0213 e005 | | Load 0x0,0x5
0214 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0215 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0216 a402 | | Store_Unchecked 0x2,0x2
0217 7811 |x | Jump 0x229
0218 e5ff | | Load 0x2,-0x1
0219 e011 | | Load 0x0,0x11
021a 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
021b a403 | | Store_Unchecked 0x2,0x3
021c e403 | | Load 0x2,0x3
021d e005 | | Load 0x0,0x5
021e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
021f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0220 6806 |h | Jump_Zero 0x227
0221 e403 | | Load 0x2,0x3
0222 e005 | | Load 0x0,0x5
0223 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0224 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0225 a402 | | Store_Unchecked 0x2,0x2
0226 7802 |x | Jump 0x229
0227 e21f | | Load 0x1,0x1f
0228 0257 | W | Execute Discrete,Raise
0229 e402 | | Load 0x2,0x2
022a 4401 |D | Exit_Subprogram With_Result,0x1
022b 0000 0000 | | .BLANK 0000[0x5]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 e5ff | | Load 0x2,-0x1
0234 8015 | | Call 0x0,0x15
0235 4401 |D | Exit_Subprogram With_Result,0x1
0236 0000 0000 | | .XXX[0x2]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0244 | D | .CONST 0x0244 ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0004 | | .CONST 0x0004 ; Number of locals
023b INIT_0238:
023b e005 | | Load 0x0,0x5
023c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
023d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
023e e018 | | Load 0x0,0x18
023f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0240 e014 | | Load 0x0,0x14
0241 02c7 | | Declare_Variable Any
0242 e404 | | Load 0x2,0x4
0243 1c00 | | Execute_Immediate Run_Utility,0x0
0244 BODY_0238:
0244 e5ff | | Load 0x2,-0x1
0245 e005 | | Load 0x0,0x5
0246 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0247 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0248 a402 | | Store_Unchecked 0x2,0x2
0249 e402 | | Load 0x2,0x2
024a a403 | | Store_Unchecked 0x2,0x3
024b e403 | | Load 0x2,0x3
024c 8015 | | Call 0x0,0x15
024d c404 | | Store 0x2,0x4
024e e404 | | Load 0x2,0x4
024f 4401 |D | Exit_Subprogram With_Result,0x1
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 025d | ] | .CONST 0x025d ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0007 | | .CONST 0x0007 ; Number of locals
0253 INIT_0250:
0253 00ef | | Load_Encached Diana_Sequence_Cache
0254 00ee | | Load_Encached Diana_Seq_Type_Cache
0255 00ec | | Load_Encached Diana_Tree_Cache
0256 039d | | Declare_Variable Heap_Access,Duplicate
0257 00eb | | Load_Encached Diana_Cache
0258 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0259 02c7 | | Declare_Variable Any
025a e406 | | Load 0x2,0x6
025b 1c00 | | Execute_Immediate Run_Utility,0x0
025c 00e2 | | Load_Encached Integer_Cache
025d BODY_0250:
025d e5ff | | Load 0x2,-0x1
025e e019 | | Load 0x0,0x19
025f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0260 a402 | | Store_Unchecked 0x2,0x2
0261 e402 | | Load 0x2,0x2
0262 00eb | | Load_Encached Diana_Cache
0263 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0264 a404 | | Store_Unchecked 0x2,0x4
0265 e404 | | Load 0x2,0x4
0266 0092 052c | ,| Action Push_String_Extended,0x52c ; "exception_value's sm_applied_pragmas contains "
0268 e404 | | Load 0x2,0x4
0269 00eb | | Load_Encached Diana_Cache
026a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
026b 0f40 | @ | Execute_Immediate Equal,0x40
026c 8225 | % | Call 0x1,0x25
026d e404 | | Load 0x2,0x4
026e 00eb | | Load_Encached Diana_Cache
026f 18d9 | | Execute Package,Field_Execute,Field_Number 0xd9
0270 00eb | | Load_Encached Diana_Cache
0271 1888 | | Execute Package,Field_Execute,Field_Number 0x88
0272 a403 | | Store_Unchecked 0x2,0x3
0273 4802 |H | Short_Literal 0x2
0274 e403 | | Load 0x2,0x3
0275 4975 |Iu | Short_Literal 0x175
0276 00eb | | Load_Encached Diana_Cache
0277 0098 | | Execute Package,Field_Read_Dynamic
0278 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0279 a405 | | Store_Unchecked 0x2,0x5
027a e405 | | Load 0x2,0x5
027b 0092 052d | -| Action Push_String_Extended,0x52d ; "Exception_value's parm_list has as 2nd parm "
027d e405 | | Load 0x2,0x5
027e 00eb | | Load_Encached Diana_Cache
027f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0280 0f08 | | Execute_Immediate Equal,0x8
0281 8225 | % | Call 0x1,0x25
0282 e405 | | Load 0x2,0x5
0283 00eb | | Load_Encached Diana_Cache
0284 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0285 c406 | | Store 0x2,0x6
0286 e406 | | Load 0x2,0x6
0287 00eb | | Load_Encached Diana_Cache
0288 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0289 00e2 | | Load_Encached Integer_Cache
028a 00e0 | | Load_Encached Standard_Cache
028b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
028c a407 | | Store_Unchecked 0x2,0x7
028d e407 | | Load 0x2,0x7
028e 700c |p | Jump_Nonzero 0x29b
028f 0092 052e | .| Action Push_String_Extended,0x52e ; "Exception's numeric literal's number is 0: "
0291 e406 | | Load 0x2,0x6
0292 00eb | | Load_Encached Diana_Cache
0293 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0294 01cc | | Execute Vector,Catenate
0295 e012 | | Load 0x0,0x12
0296 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0297 c5fe | | Store 0x2,-0x2
0298 8010 | | Call 0x0,0x10
0299 c5fd | | Store 0x2,-0x3
029a 4502 |E | Exit_Subprogram 0x2
029b e012 | | Load 0x0,0x12
029c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
029d c5fe | | Store 0x2,-0x2
029e e407 | | Load 0x2,0x7
029f 8227 | ' | Call 0x1,0x27
02a0 c5fd | | Store 0x2,-0x3
02a1 4502 |E | Exit_Subprogram 0x2
02a2 0000 0000 | | .BLANK 0000[0x6]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ac | | .CONST 0x02ac ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0002 | | .CONST 0x0002 ; Number of locals
02ab INIT_02a8:
02ab 00ec | | Load_Encached Diana_Tree_Cache
02ac BODY_02a8:
02ac e5ff | | Load 0x2,-0x1
02ad e006 | | Load 0x0,0x6
02ae 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
02af a402 | | Store_Unchecked 0x2,0x2
02b0 e402 | | Load 0x2,0x2
02b1 00eb | | Load_Encached Diana_Cache
02b2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02b3 0fa8 | | Execute_Immediate Equal,0xa8
02b4 6806 |h | Jump_Zero 0x2bb
02b5 e402 | | Load 0x2,0x2
02b6 4976 |Iv | Short_Literal 0x176
02b7 00eb | | Load_Encached Diana_Cache
02b8 0098 | | Execute Package,Field_Read_Dynamic
02b9 180f | | Execute Package,Field_Execute,Field_Number 0xf
02ba 4401 |D | Exit_Subprogram With_Result,0x1
02bb 00eb | | Load_Encached Diana_Cache
02bc 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02bd 4401 |D | Exit_Subprogram With_Result,0x1
02be 0000 0000 | | .XXX[0x2]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 e5ff | | Load 0x2,-0x1
02c4 00eb | | Load_Encached Diana_Cache
02c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02c6 7004 |p | Jump_Nonzero 0x2cb
02c7 e5ff | | Load 0x2,-0x1
02c8 e019 | | Load 0x0,0x19
02c9 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02ca 4401 |D | Exit_Subprogram With_Result,0x1
02cb 4800 |H | Short_Literal 0x0
02cc 4401 |D | Exit_Subprogram With_Result,0x1
02cd 0000 0000 | | .XXX[0x3]
02cf 0000 | |
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02da | | .CONST 0x02da ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0008 | | .CONST 0x0008 ; Number of locals
02d3 INIT_02d0:
02d3 00e1 | | Load_Encached Boolean_Cache
02d4 00ec | | Load_Encached Diana_Tree_Cache
02d5 039d | | Declare_Variable Heap_Access,Duplicate
02d6 039d | | Declare_Variable Heap_Access,Duplicate
02d7 00ec | | Load_Encached Diana_Tree_Cache
02d8 039d | | Declare_Variable Heap_Access,Duplicate
02d9 039d | | Declare_Variable Heap_Access,Duplicate
02da BODY_02d0:
02da 00ec | | Load_Encached Diana_Tree_Cache
02db 00e1 | | Load_Encached Boolean_Cache
02dc e5ff | | Load 0x2,-0x1
02dd e006 | | Load 0x0,0x6
02de 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
02df c402 | | Store 0x2,0x2
02e0 c403 | | Store 0x2,0x3
02e1 e402 | | Load 0x2,0x2
02e2 6818 |h | Jump_Zero 0x2fb
02e3 e403 | | Load 0x2,0x3
02e4 e019 | | Load 0x0,0x19
02e5 180e | | Execute Package,Field_Execute,Field_Number 0xe
02e6 a404 | | Store_Unchecked 0x2,0x4
02e7 e404 | | Load 0x2,0x4
02e8 00eb | | Load_Encached Diana_Cache
02e9 18f8 | | Execute Package,Field_Execute,Field_Number 0xf8
02ea a405 | | Store_Unchecked 0x2,0x5
02eb e405 | | Load 0x2,0x5
02ec 00eb | | Load_Encached Diana_Cache
02ed 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02ee 0f36 | 6 | Execute_Immediate Equal,0x36
02ef 6808 |h | Jump_Zero 0x2f8
02f0 e405 | | Load 0x2,0x5
02f1 00eb | | Load_Encached Diana_Cache
02f2 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
02f3 801a | | Call 0x0,0x1a
02f4 a407 | | Store_Unchecked 0x2,0x7
02f5 e407 | | Load 0x2,0x7
02f6 a408 | | Store_Unchecked 0x2,0x8
02f7 7805 |x | Jump 0x2fd
02f8 e404 | | Load 0x2,0x4
02f9 a408 | | Store_Unchecked 0x2,0x8
02fa 7802 |x | Jump 0x2fd
02fb e5ff | | Load 0x2,-0x1
02fc a408 | | Store_Unchecked 0x2,0x8
02fd e408 | | Load 0x2,0x8
02fe 822a | * | Call 0x1,0x2a
02ff a406 | | Store_Unchecked 0x2,0x6
0300 e406 | | Load 0x2,0x6
0301 a5fd | | Store_Unchecked 0x2,-0x3
0302 e406 | | Load 0x2,0x6
0303 822b | + | Call 0x1,0x2b
0304 a5fe | | Store_Unchecked 0x2,-0x2
0305 4502 |E | Exit_Subprogram 0x2
0306 0000 0000 | | .XXX[0x2]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030c | | .CONST 0x030c ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0002 | | .CONST 0x0002 ; Number of locals
030b INIT_0308:
030b e5ff | | Load 0x2,-0x1
030c BODY_0308:
030c 00cf | | Action Mark_Auxiliary
030d e402 | | Load 0x2,0x2
030e 00eb | | Load_Encached Diana_Cache
030f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0310 700b |p | Jump_Nonzero 0x31c
0311 e402 | | Load 0x2,0x2
0312 00eb | | Load_Encached Diana_Cache
0313 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0314 a402 | | Store_Unchecked 0x2,0x2
0315 e402 | | Load 0x2,0x2
0316 00eb | | Load_Encached Diana_Cache
0317 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0318 0f3e | > | Execute_Immediate Equal,0x3e
0319 7002 |p | Jump_Nonzero 0x31c
031a 00c9 | | Action Pop_Auxiliary_Loop
031b 7ff1 | | Jump 0x30d
031c 00ce | | Action Pop_Auxiliary
031d e402 | | Load 0x2,0x2
031e 4401 |D | Exit_Subprogram With_Result,0x1
031f 0000 | | .XXX[0x1]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0327 | ' | .CONST 0x0327 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0004 | | .CONST 0x0004 ; Number of locals
0323 INIT_0320:
0323 e5ff | | Load 0x2,-0x1
0324 0007 | | Action Break_Optional
0325 00ec | | Load_Encached Diana_Tree_Cache
0326 00e2 | | Load_Encached Integer_Cache
0327 BODY_0320:
0327 e5fd | | Load 0x2,-0x3
0328 4800 |H | Short_Literal 0x0
0329 4800 |H | Short_Literal 0x0
032a e224 | $ | Load 0x1,0x24
032b 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
032c c5fd | | Store 0x2,-0x3
032d 00cf | | Action Mark_Auxiliary
032e e402 | | Load 0x2,0x2
032f 822d | - | Call 0x1,0x2d
0330 a402 | | Store_Unchecked 0x2,0x2
0331 e402 | | Load 0x2,0x2
0332 00eb | | Load_Encached Diana_Cache
0333 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0334 7014 |p | Jump_Nonzero 0x349
0335 e402 | | Load 0x2,0x2
0336 00eb | | Load_Encached Diana_Cache
0337 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0338 a403 | | Store_Unchecked 0x2,0x3
0339 e403 | | Load 0x2,0x3
033a e5fe | | Load 0x2,-0x2
033b 021f | | Execute Heap_Access,Equal
033c 700c |p | Jump_Nonzero 0x349
033d e403 | | Load 0x2,0x3
033e 8226 | & | Call 0x1,0x26
033f a404 | | Store_Unchecked 0x2,0x4
0340 e404 | | Load 0x2,0x4
0341 6805 |h | Jump_Zero 0x347
0342 e5fd | | Load 0x2,-0x3
0343 e404 | | Load 0x2,0x4
0344 e224 | $ | Load 0x1,0x24
0345 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0346 c5fd | | Store 0x2,-0x3
0347 00c9 | | Action Pop_Auxiliary_Loop
0348 7fe5 | | Jump 0x32e
0349 4503 |E | Exit_Subprogram 0x3
034a 0000 0000 | | .BLANK 0000[0x6]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 0092 052f | /| Action Push_String_Extended,0x52f ; "!Tools."
0355 4800 |H | Short_Literal 0x0
0356 e5fe | | Load 0x2,-0x2
0357 e011 | | Load 0x0,0x11
0358 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0359 01cc | | Execute Vector,Catenate
035a 0092 0530 | 0| Action Push_String_Extended,0x530 ; "."
035c 01cc | | Execute Vector,Catenate
035d 4800 |H | Short_Literal 0x0
035e e5ff | | Load 0x2,-0x1
035f e011 | | Load 0x0,0x11
0360 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0361 01cc | | Execute Vector,Catenate
0362 4402 |D | Exit_Subprogram With_Result,0x2
0363 0000 0000 | | .BLANK 0000[0x5]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036d | m | .CONST 0x036d ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0003 | | .CONST 0x0003 ; Number of locals
036b INIT_0368:
036b 00e1 | | Load_Encached Boolean_Cache
036c 00e5 | | Load_Encached Long_Integer_Cache
036d BODY_0368:
036d 00e1 | | Load_Encached Boolean_Cache
036e 00e5 | | Load_Encached Long_Integer_Cache
036f e5fe | | Load 0x2,-0x2
0370 e5ff | | Load 0x2,-0x1
0371 822f | / | Call 0x1,0x2f
0372 e00d | | Load 0x0,0xd
0373 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0374 c403 | | Store 0x2,0x3
0375 c402 | | Store 0x2,0x2
0376 e402 | | Load 0x2,0x2
0377 7006 |p | Jump_Nonzero 0x37e
0378 0092 0531 | 1| Action Push_String_Extended,0x531 ; "Sorry, you cannot specify an exception defined in a system generic unless the debugger has a predefined name for it."
037a e012 | | Load 0x0,0x12
037b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
037c c5fd | | Store 0x2,-0x3
037d 4503 |E | Exit_Subprogram 0x3
037e e403 | | Load 0x2,0x3
037f 8015 | | Call 0x0,0x15
0380 c5fc | | Store 0x2,-0x4
0381 e012 | | Load 0x0,0x12
0382 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0383 c5fd | | Store 0x2,-0x3
0384 4503 |E | Exit_Subprogram 0x3
0385 0000 0000 | | .XXX[0x3]
0387 0000 | |
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 039c | | .CONST 0x039c ; Address of begin
0389 041a | | .CONST 0x041a ; Address of exception handler
038a 000c | | .CONST 0x000c ; Number of locals
038b INIT_0388:
038b 00e2 | | Load_Encached Integer_Cache
038c 03e9 | | Declare_Variable Discrete,Duplicate
038d 03e9 | | Declare_Variable Discrete,Duplicate
038e 00e5 | | Load_Encached Long_Integer_Cache
038f 03e9 | | Declare_Variable Discrete,Duplicate
0390 e224 | $ | Load 0x1,0x24
0391 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0392 00e3 | | Load_Encached Natural_Cache
0393 00e2 | | Load_Encached Integer_Cache
0394 00e3 | | Load_Encached Natural_Cache
0395 0093 0000 | | PushFullAddress InMicrocode
0397 60a0 |` | Indirect_Literal Discrete,0x438,{0x80000000, 0x00020000}
0398 0273 | s | Execute Discrete,Plus
0399 0007 | | Action Break_Optional
039a 029f 0503 | | Declare_Subprogram For_Call,INIT_0500
039c BODY_0388:
039c e5fe | | Load 0x2,-0x2
039d 00eb | | Load_Encached Diana_Cache
039e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
039f 0f22 | " | Execute_Immediate Equal,0x22
03a0 680d |h | Jump_Zero 0x3ae
03a1 e5fc | | Load 0x2,-0x4
03a2 0120 | | Execute Any,Is_Value
03a3 6802 |h | Jump_Zero 0x3a6
03a4 e014 | | Load 0x0,0x14
03a5 7801 |x | Jump 0x3a7
03a6 e5fc | | Load 0x2,-0x4
03a7 e5fd | | Load 0x2,-0x3
03a8 e5fe | | Load 0x2,-0x2
03a9 e5ff | | Load 0x2,-0x1
03aa 8230 | 0 | Call 0x1,0x30
03ab c5fd | | Store 0x2,-0x3
03ac c5fc | | Store 0x2,-0x4
03ad 4503 |E | Exit_Subprogram 0x3
03ae e5fe | | Load 0x2,-0x2
03af e019 | | Load 0x0,0x19
03b0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03b1 a403 | | Store_Unchecked 0x2,0x3
03b2 0092 0532 | 2| Action Push_String_Extended,0x532 ; "Comp_Unit_Id's Vp_Id is 0"
03b4 e403 | | Load 0x2,0x3
03b5 0e00 | | Execute_Immediate Not_Equal,0x0
03b6 840c | | Call 0x2,0xc
03b7 e5fe | | Load 0x2,-0x2
03b8 e019 | | Load 0x0,0x19
03b9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03ba a402 | | Store_Unchecked 0x2,0x2
03bb 0092 0533 | 3| Action Push_String_Extended,0x533 ; "Comp_Unit_Id's Segment_Num is 0"
03bd e402 | | Load 0x2,0x2
03be 0e00 | | Execute_Immediate Not_Equal,0x0
03bf 840c | | Call 0x2,0xc
03c0 e5ff | | Load 0x2,-0x1
03c1 8226 | & | Call 0x1,0x26
03c2 a404 | | Store_Unchecked 0x2,0x4
03c3 0092 0534 | 4| Action Push_String_Extended,0x534 ; "Exception_Id's Cg_Offset is 0"
03c5 e404 | | Load 0x2,0x4
03c6 0e00 | | Execute_Immediate Not_Equal,0x0
03c7 840c | | Call 0x2,0xc
03c8 e402 | | Load 0x2,0x2
03c9 00d8 | | Load_Top At_Offset_0
03ca e01b | | Load 0x0,0x1b
03cb 1b14 | | Execute Package,Field_Read,Field_Number 0x14
03cc 0260 | ` | Execute Discrete,In_Type
03cd 7001 |p | Jump_Nonzero 0x3cf
03ce 0801 | | Execute_Immediate Raise,0x1
03cf e403 | | Load 0x2,0x3
03d0 00d8 | | Load_Top At_Offset_0
03d1 e01b | | Load 0x0,0x1b
03d2 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03d3 0260 | ` | Execute Discrete,In_Type
03d4 7001 |p | Jump_Nonzero 0x3d6
03d5 0801 | | Execute_Immediate Raise,0x1
03d6 e01b | | Load 0x0,0x1b
03d7 181f | | Execute Package,Field_Execute,Field_Number 0x1f
03d8 a406 | | Store_Unchecked 0x2,0x6
03d9 e407 | | Load 0x2,0x7
03da e5fe | | Load 0x2,-0x2
03db e5ff | | Load 0x2,-0x1
03dc 822e | . | Call 0x1,0x2e
03dd c407 | | Store 0x2,0x7
03de e407 | | Load 0x2,0x7
03df e224 | $ | Load 0x1,0x24
03e0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03e1 a408 | | Store_Unchecked 0x2,0x8
03e2 e404 | | Load 0x2,0x4
03e3 0007 | | Action Break_Optional
03e4 4801 |H | Short_Literal 0x1
03e5 a40a | | Store_Unchecked 0x2,0xa
03e6 00cf | | Action Mark_Auxiliary
03e7 7810 |x | Jump 0x3f8
03e8 e40a | | Load 0x2,0xa
03e9 00d8 | | Load_Top At_Offset_0
03ea 00e4 | | Load_Encached Positive_Cache
03eb 0260 | ` | Execute Discrete,In_Type
03ec 7001 |p | Jump_Nonzero 0x3ee
03ed 0801 | | Execute_Immediate Raise,0x1
03ee e407 | | Load 0x2,0x7
03ef e224 | $ | Load 0x1,0x24
03f0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03f1 a409 | | Store_Unchecked 0x2,0x9
03f2 e409 | | Load 0x2,0x9
03f3 0007 | | Action Break_Optional
03f4 e40a | | Load 0x2,0xa
03f5 0a01 | | Execute_Immediate Plus,0x1
03f6 c40a | | Store 0x2,0xa
03f7 00c9 | | Action Pop_Auxiliary_Loop
03f8 e40a | | Load 0x2,0xa
03f9 e408 | | Load 0x2,0x8
03fa 027a | z | Execute Discrete,Less_Equal
03fb 77ec |w | Jump_Nonzero 0x3e8
03fc 00ce | | Action Pop_Auxiliary
03fd e406 | | Load 0x2,0x6
03fe e222 | " | Load 0x1,0x22
03ff e01c | | Load 0x0,0x1c
0400 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0401 4801 |H | Short_Literal 0x1
0402 a40a | | Store_Unchecked 0x2,0xa
0403 00cf | | Action Mark_Auxiliary
0404 7806 |x | Jump 0x40b
0405 0098 | | Execute Package,Field_Read_Dynamic
0406 0007 | | Action Break_Optional
0407 e40a | | Load 0x2,0xa
0408 0a01 | | Execute_Immediate Plus,0x1
0409 c40a | | Store 0x2,0xa
040a 00c9 | | Action Pop_Auxiliary_Loop
040b e40a | | Load 0x2,0xa
040c e408 | | Load 0x2,0x8
040d 027a | z | Execute Discrete,Less_Equal
040e 77f6 |w | Jump_Nonzero 0x405
040f 00ce | | Action Pop_Auxiliary
0410 0098 | | Execute Package,Field_Read_Dynamic
0411 c405 | | Store 0x2,0x5
0412 e405 | | Load 0x2,0x5
0413 8227 | ' | Call 0x1,0x27
0414 c5fc | | Store 0x2,-0x4
0415 e407 | | Load 0x2,0x7
0416 e224 | $ | Load 0x1,0x24
0417 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0418 c407 | | Store 0x2,0x7
0419 4503 |E | Exit_Subprogram 0x3
041a TRAP_0388:
041a e40b | | Load 0x2,0xb
041b 010f | | Execute Exception,Equal
041c 6801 |h | Jump_Zero 0x41e
041d 4503 |E | Exit_Subprogram 0x3
041e e21f | | Load 0x1,0x1f
041f 010f | | Execute Exception,Equal
0420 680a |h | Jump_Zero 0x42b
0421 0092 0535 | 5| Action Push_String_Extended,0x535 ; "Object offset not found when getting mirror's exception id"
0423 e012 | | Load 0x0,0x12
0424 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0425 c5fd | | Store 0x2,-0x3
0426 e407 | | Load 0x2,0x7
0427 e224 | $ | Load 0x1,0x24
0428 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0429 c407 | | Store 0x2,0x7
042a 4503 |E | Exit_Subprogram 0x3
042b e01d | | Load 0x0,0x1d
042c 180d | | Execute Package,Field_Execute,Field_Number 0xd
042d 0092 0536 | 6| Action Push_String_Extended,0x536 ; " raised when getting mirror's exception id"
042f 01cc | | Execute Vector,Catenate
0430 e012 | | Load 0x0,0x12
0431 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0432 c5fd | | Store 0x2,-0x3
0433 e407 | | Load 0x2,0x7
0434 e224 | $ | Load 0x1,0x24
0435 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0436 c407 | | Store 0x2,0x7
0437 4503 |E | Exit_Subprogram 0x3
0438 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
043c 0000 0000 | | .BLANK 0000[0x4]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0445 | E | .CONST 0x0445 ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0003 | | .CONST 0x0003 ; Number of locals
0443 INIT_0440:
0443 00ec | | Load_Encached Diana_Tree_Cache
0444 00e1 | | Load_Encached Boolean_Cache
0445 BODY_0440:
0445 e5ff | | Load 0x2,-0x1
0446 e019 | | Load 0x0,0x19
0447 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0448 680c |h | Jump_Zero 0x455
0449 e5fd | | Load 0x2,-0x3
044a 0120 | | Execute Any,Is_Value
044b 6802 |h | Jump_Zero 0x44e
044c e014 | | Load 0x0,0x14
044d 7801 |x | Jump 0x44f
044e e5fd | | Load 0x2,-0x3
044f e5fe | | Load 0x2,-0x2
0450 e5ff | | Load 0x2,-0x1
0451 8229 | ) | Call 0x1,0x29
0452 c5fe | | Store 0x2,-0x2
0453 c5fd | | Store 0x2,-0x3
0454 4502 |E | Exit_Subprogram 0x2
0455 00ec | | Load_Encached Diana_Tree_Cache
0456 00e1 | | Load_Encached Boolean_Cache
0457 e5ff | | Load 0x2,-0x1
0458 822c | , | Call 0x1,0x2c
0459 c403 | | Store 0x2,0x3
045a c402 | | Store 0x2,0x2
045b e403 | | Load 0x2,0x3
045c 680d |h | Jump_Zero 0x46a
045d e5fd | | Load 0x2,-0x3
045e 0120 | | Execute Any,Is_Value
045f 6802 |h | Jump_Zero 0x462
0460 e014 | | Load 0x0,0x14
0461 7801 |x | Jump 0x463
0462 e5fd | | Load 0x2,-0x3
0463 e5fe | | Load 0x2,-0x2
0464 e402 | | Load 0x2,0x2
0465 e5ff | | Load 0x2,-0x1
0466 8231 | 1 | Call 0x1,0x31
0467 c5fe | | Store 0x2,-0x2
0468 c5fd | | Store 0x2,-0x3
0469 4502 |E | Exit_Subprogram 0x2
046a e402 | | Load 0x2,0x2
046b e019 | | Load 0x0,0x19
046c 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
046d 6809 |h | Jump_Zero 0x477
046e e5fe | | Load 0x2,-0x2
046f 0092 0537 | 7| Action Push_String_Extended,0x537 ; "Problem determining machine value for exception. No load view source found."
0471 e012 | | Load 0x0,0x12
0472 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0473 c5fe | | Store 0x2,-0x2
0474 8010 | | Call 0x0,0x10
0475 c5fd | | Store 0x2,-0x3
0476 4502 |E | Exit_Subprogram 0x2
0477 e5ff | | Load 0x2,-0x1
0478 8228 | ( | Call 0x1,0x28
0479 c5fd | | Store 0x2,-0x3
047a e012 | | Load 0x0,0x12
047b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
047c c5fe | | Store 0x2,-0x2
047d 4502 |E | Exit_Subprogram 0x2
047e 0000 0000 | | .XXX[0x2]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0486 | | .CONST 0x0486 ; Address of begin
0481 049e | | .CONST 0x049e ; Address of exception handler
0482 0003 | | .CONST 0x0003 ; Number of locals
0483 INIT_0480:
0483 00ec | | Load_Encached Diana_Tree_Cache
0484 029f 0513 | | Declare_Subprogram For_Call,INIT_0510
0486 BODY_0480:
0486 e5ff | | Load 0x2,-0x1
0487 8403 | | Call 0x2,0x3
0488 801e | | Call 0x0,0x1e
0489 a402 | | Store_Unchecked 0x2,0x2
048a e402 | | Load 0x2,0x2
048b 00eb | | Load_Encached Diana_Cache
048c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
048d 6801 |h | Jump_Zero 0x48f
048e 08e0 | | Execute_Immediate Raise,0xe0
048f e5fe | | Load 0x2,-0x2
0490 6807 |h | Jump_Zero 0x498
0491 4801 |H | Short_Literal 0x1
0492 4801 |H | Short_Literal 0x1
0493 e013 | | Load 0x0,0x13
0494 e402 | | Load 0x2,0x2
0495 e011 | | Load 0x0,0x11
0496 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
0497 4402 |D | Exit_Subprogram With_Result,0x2
0498 4801 |H | Short_Literal 0x1
0499 e013 | | Load 0x0,0x13
049a e402 | | Load 0x2,0x2
049b e011 | | Load 0x0,0x11
049c 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
049d 4402 |D | Exit_Subprogram With_Result,0x2
049e TRAP_0480:
049e 0007 | | Action Break_Optional
049f e404 | | Load 0x2,0x4
04a0 0101 | | Execute Exception,Reraise
04a1 0000 0000 | | .BLANK 0000[0x7]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04b0 | | .CONST 0x04b0 ; Address of begin
04a9 0004 | | .CONST 0x0004 ; Address of exception handler
04aa 0006 | | .CONST 0x0006 ; Number of locals
04ab INIT_04a8:
04ab 00ec | | Load_Encached Diana_Tree_Cache
04ac 039d | | Declare_Variable Heap_Access,Duplicate
04ad 039d | | Declare_Variable Heap_Access,Duplicate
04ae 039d | | Declare_Variable Heap_Access,Duplicate
04af 039d | | Declare_Variable Heap_Access,Duplicate
04b0 BODY_04a8:
04b0 e01f | | Load 0x0,0x1f
04b1 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
04b2 e020 | | Load 0x0,0x20
04b3 1b12 | | Execute Package,Field_Read,Field_Number 0x12
04b4 180f | | Execute Package,Field_Execute,Field_Number 0xf
04b5 a402 | | Store_Unchecked 0x2,0x2
04b6 e402 | | Load 0x2,0x2
04b7 00eb | | Load_Encached Diana_Cache
04b8 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
04b9 a403 | | Store_Unchecked 0x2,0x3
04ba e403 | | Load 0x2,0x3
04bb 00eb | | Load_Encached Diana_Cache
04bc 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04bd 0f49 | I | Execute_Immediate Equal,0x49
04be 6804 |h | Jump_Zero 0x4c3
04bf e403 | | Load 0x2,0x3
04c0 00eb | | Load_Encached Diana_Cache
04c1 18e5 | | Execute Package,Field_Execute,Field_Number 0xe5
04c2 a403 | | Store_Unchecked 0x2,0x3
04c3 e403 | | Load 0x2,0x3
04c4 00eb | | Load_Encached Diana_Cache
04c5 18d8 | | Execute Package,Field_Execute,Field_Number 0xd8
04c6 00eb | | Load_Encached Diana_Cache
04c7 18bd | | Execute Package,Field_Execute,Field_Number 0xbd
04c8 a404 | | Store_Unchecked 0x2,0x4
04c9 0092 0538 | 8| Action Push_String_Extended,0x538 ; "CHARACTER"
04cb 00eb | | Load_Encached Diana_Cache
04cc 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
04cd e404 | | Load 0x2,0x4
04ce 4972 |Ir | Short_Literal 0x172
04cf 00eb | | Load_Encached Diana_Cache
04d0 0098 | | Execute Package,Field_Read_Dynamic
04d1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04d2 00eb | | Load_Encached Diana_Cache
04d3 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
04d4 a405 | | Store_Unchecked 0x2,0x5
04d5 e405 | | Load 0x2,0x5
04d6 4907 |I | Short_Literal 0x107
04d7 00eb | | Load_Encached Diana_Cache
04d8 0096 | | Execute Package,Field_Execute_Dynamic
04d9 a406 | | Store_Unchecked 0x2,0x6
04da e406 | | Load 0x2,0x6
04db 00ca | | Action Exit_Nullary_Function
04dc 0000 0000 | | .BLANK 0000[0x4]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e3 | | .CONST 0x04e3 ; Address of begin
04e1 04f4 | | .CONST 0x04f4 ; Address of exception handler
04e2 0001 | | .CONST 0x0001 ; Number of locals
04e3 BODY_04e0:
04e3 INIT_04e0:
04e3 e5ff | | Load 0x2,-0x1
04e4 e00d | | Load 0x0,0xd
04e5 180e | | Execute Package,Field_Execute,Field_Number 0xe
04e6 a402 | | Store_Unchecked 0x2,0x2
04e7 e402 | | Load 0x2,0x2
04e8 7005 |p | Jump_Nonzero 0x4ee
04e9 4800 |H | Short_Literal 0x0
04ea a5fd | | Store_Unchecked 0x2,-0x3
04eb 8010 | | Call 0x0,0x10
04ec c5fe | | Store 0x2,-0x2
04ed 4501 |E | Exit_Subprogram 0x1
04ee 4801 |H | Short_Literal 0x1
04ef a5fd | | Store_Unchecked 0x2,-0x3
04f0 e402 | | Load 0x2,0x2
04f1 8015 | | Call 0x0,0x15
04f2 c5fe | | Store 0x2,-0x2
04f3 4501 |E | Exit_Subprogram 0x1
04f4 TRAP_04e0:
04f4 010e | | Execute Exception,Is_Constraint_Error
04f5 6805 |h | Jump_Zero 0x4fb
04f6 4800 |H | Short_Literal 0x0
04f7 a5fd | | Store_Unchecked 0x2,-0x3
04f8 8010 | | Call 0x0,0x10
04f9 c5fe | | Store 0x2,-0x2
04fa 4501 |E | Exit_Subprogram 0x1
04fb 0100 | | Execute Exception,Raise
04fc 0000 0000 | | .BLANK 0000[0x4]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0503 | | .CONST 0x0503 ; Address of begin
0501 0004 | | .CONST 0x0004 ; Address of exception handler
0502 0001 | | .CONST 0x0001 ; Number of locals
0503 BODY_0500:
0503 INIT_0500:
0503 e7ff | | Load 0x3,-0x1
0504 7009 |p | Jump_Nonzero 0x50e
0505 0092 0539 | 9| Action Push_String_Extended,0x539 ; "Unable to obtain exception's representation: "
0507 e7fe | | Load 0x3,-0x2
0508 01cc | | Execute Vector,Catenate
0509 e012 | | Load 0x0,0x12
050a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
050b c5fd | | Store 0x2,-0x3
050c e40b | | Load 0x2,0xb
050d 0257 | W | Execute Discrete,Raise
050e 4503 |E | Exit_Subprogram 0x3
050f 0000 | | .XXX[0x1]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0516 | | .CONST 0x0516 ; Address of begin
0511 0004 | | .CONST 0x0004 ; Address of exception handler
0512 0002 | | .CONST 0x0002 ; Number of locals
0513 INIT_0510:
0513 e005 | | Load 0x0,0x5
0514 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0515 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0516 BODY_0510:
0516 e7ff | | Load 0x3,-0x1
0517 00d0 | | Action Swap_Control
0518 00d1 | | Pop_Control Pop_Count_1
0519 e602 | | Load 0x3,0x2
051a 4401 |D | Exit_Subprogram With_Result,0x1
051b 0000 0000 | | .BLANK 0000[0x5]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0524 | $ | .CONST 0x0524 ; Address of begin
0521 0004 | | .CONST 0x0004 ; Address of exception handler
0522 000d | | .CONST 0x000d ; Number of locals
0523 INIT_0520:
0523 00bf | | Action Accept_Activation
0524 BODY_0520:
0524 00bc | | Action Signal_Activated
0525 00bb | | Action Signal_Completion
0526 ; --------------------------------------------------------------------------------------
0526 ; STRING TABLE
0526 ; --------------------------------------------------------------------------------------
0526 002a | * | .STRTAB 0x002a->0x053b ; "null"
; "null"
0527 002c | , | .STRTAB 0x002c->0x053d ; "implicit"
0528 0032 | 2 | .STRTAB 0x0032->0x0541 ; "("
0529 0031 | 1 | .STRTAB 0x0031->0x0541 ; ")"
052a 0030 | 0 | .STRTAB 0x0030->0x0542 ; "Exception_Value's rename following yielded non-exception id"
052b 0069 | i | .STRTAB 0x0069->0x055f ; "The object specified is not an exception_id node"
052c 0097 | | .STRTAB 0x0097->0x0577 ; "exception_value's sm_applied_pragmas contains "
052d 00c3 | | .STRTAB 0x00c3->0x058e ; "Exception_value's parm_list has as 2nd parm "
052e 00ed | | .STRTAB 0x00ed->0x05a4 ; "Exception's numeric literal's number is 0: "
052f 0116 | | .STRTAB 0x0116->0x05ba ; "!Tools."
0530 011b | | .STRTAB 0x011b->0x05bd ; "."
0531 011a | | .STRTAB 0x011a->0x05be ; "Sorry, you cannot specify an exception defined in a system generic unless the debugger has a predefined name for it."
0532 018c | | .STRTAB 0x018c->0x05f8 ; "Comp_Unit_Id's Vp_Id is 0"
0533 01a3 | | .STRTAB 0x01a3->0x0604 ; "Comp_Unit_Id's Segment_Num is 0"
0534 01c0 | | .STRTAB 0x01c0->0x0614 ; "Exception_Id's Cg_Offset is 0"
0535 01db | | .STRTAB 0x01db->0x0622 ; "Object offset not found when getting mirror's exception id"
0536 0213 | | .STRTAB 0x0213->0x063f ; " raised when getting mirror's exception id"
0537 023b | ; | .STRTAB 0x023b->0x0654 ; "Problem determining machine value for exception. No load view source found."
0538 0285 | | .STRTAB 0x0285->0x067a ; "CHARACTER"
0539 028c | | .STRTAB 0x028c->0x067f ; "Unable to obtain exception's representation: "
053a 02b7 | | .STREND 0x02b7->0x0695
053b 6e75 6c6c |null| .STRTAB_STRINGS
0696 0000 0000 | | .XXX[0x2]
0698 ; --------------------------------------------------------------------------------------
0698 ; Debug Table
0698 ; --------------------------------------------------------------------------------------
0698 0004 000c | | .DEBUG4 0x0004,0x000c,0xc10b,0x0000,0x0001,0x0000
069e 2ded c404 |- | .XXX[0x6]
06a0 0404 0404 | |
06a2 0404 0f84 | |
06a4 0404 0404 | | .BLANK 0404[0x6]
06aa 088c ae6c | l| .XXX[0x6]
06ac 6e4d 2e0e |nM. |
06ae 8d2d edc4 | - |
06b0 0404 0404 | | .BLANK 0404[0x6]
06b6 0f80 0000 | | .XXX[0x15]
06b8 0be0 0000 | |
06ba 08a4 0404 | |
06bc 0404 0404 | |
06be 0f84 0404 | |
06c0 0404 0404 | |
06c2 0409 ee0e | |
06c4 8d2d edc4 | - |
06c6 0404 0404 | |
06c8 0404 040f | |
06ca 8404 | |
06cb 0404 0404 | | .BLANK 0404[0x5]
06d0 0408 8cae | | .XXX[0x7]
06d2 6c6e 4d2e |lnM.|
06d4 0e8d 2ded | - |
06d6 c404 | |
06d7 0404 0404 | | .BLANK 0404[0x5]
06dc 040f 8000 | | .XXX[0x15]
06de 000b e000 | |
06e0 0008 a404 | |
06e2 0404 0404 | |
06e4 040f 8404 | |
06e6 0404 0404 | |
06e8 0404 09ee | |
06ea 0e8d 2ded | - |
06ec c404 0404 | |
06ee 0404 0404 | |
06f0 0f84 | |
06f1 0404 0404 | | .BLANK 0404[0x6]
06f7 088c ae6c | l| .XXX[0x6]
06f9 6e4d 2e0e |nM. |
06fb 8d2d edc4 | - |
06fd 0404 0404 | | .BLANK 0404[0x6]
0703 0f80 0000 | | .XXX[0x5]
0705 05a0 0000 | |
0707 07a5 | |
0708 a5a5 a5a5 | | .BLANK a5a5[0x1d]
0725 a5a4 0000 | | .XXX[0xa]
0727 0004 a000 | |
0729 0008 a404 | |
072b 0404 0404 | |
072d 0404 05a5 | |
072f a5a5 a5a5 | | .BLANK a5a5[0x1d]
074c a400 0000 | | .XXX[0x9]
074e 04a0 0000 | |
0750 08a4 0404 | |
0752 0404 0404 | |
0754 0405 | |
0755 a5a5 a5a5 | | .BLANK a5a5[0x1d]
0772 a5a4 0000 | | .XXX[0x6]
0774 000e 4000 | @ |
0776 0007 cf84 | |
0778 0404 0404 | | .BLANK 0404[0xa]
0782 040f 8404 | | .XXX[0x2]
0784 0404 0404 | | .BLANK 0404[0x11]
0795 040f 8000 | | .XXX[0xa]
0797 000d 6000 | ` |
0799 0008 a404 | |
079b 0404 0404 | |
079d 040f 8404 | |
079f 0404 0404 | | .BLANK 0404[0xa]
07a9 0f84 | | .XXX[0x1]
07aa 0404 0404 | | .BLANK 0404[0x12]
07bc 0f80 0000 | | .XXX[0x9]
07be 0d60 0000 | ` |
07c0 08a4 0404 | |
07c2 0404 0404 | |
07c4 0f84 | |
07c5 0404 0404 | | .BLANK 0404[0xa]
07cf 040f 8404 | | .XXX[0x2]
07d1 0404 0404 | | .BLANK 0404[0x11]
07e2 040f 8000 | | .XXX[0x1e]
07e4 0007 0000 | |
07e6 0007 cf88 | |
07e8 8d2e 6c6d | .lm|
07ea edcd ccac | |
07ec 6e8b e9ed |n |
07ee cbe4 0404 | |
07f0 0404 0404 | |
07f2 040f 8aed | |
07f4 0cad c40e | |
07f6 6e0c ac6d |n m|
07f8 2ccd 2cac |, , |
07fa 840c cdee | |
07fc 440c 240c |D $ |
07fe ed2e ccad | . |