|
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_06e8fd
└─⟦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 0470 | p | .CONST 0x0470 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0038 | 8 | .CONST 0x0038 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001b | | .CONST 0x001b ; Number of locals
000b INIT_0008:
000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated
000d 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
000f 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0011 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0013 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
0015 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
0017 00bf | | Action Accept_Activation
0018 8002 | | Call 0x0,0x2
0019 8003 | | Call 0x0,0x3
001a e004 | | Load 0x0,0x4
001b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
001c 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call
001e 029d 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call
0020 029d 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call
0022 029d 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call
0024 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call
0026 029d 031b | | Declare_Subprogram INIT_0318,For_Outer_Call
0028 029d 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call
002a 1d0d | | Execute_Immediate Reference_Lex_1,0xd
002b 00c7 | | Action Elaborate_Subprogram
002c 029d 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call
002e 1d0e | | Execute_Immediate Reference_Lex_1,0xe
002f 00c7 | | Action Elaborate_Subprogram
0030 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0031 00c7 | | Action Elaborate_Subprogram
0032 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0033 00c7 | | Action Elaborate_Subprogram
0034 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0035 00c7 | | Action Elaborate_Subprogram
0036 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0037 00c7 | | Action Elaborate_Subprogram
0038 BODY_0008:
0038 00bc | | Action Signal_Activated
0039 00bb | | Action Signal_Completion
003a 0000 0000 | | .BLANK 0000[0x6]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0052 | R | .CONST 0x0052 ; Address of begin
0041 00d0 | | .CONST 0x00d0 ; Address of exception handler
0042 0007 | | .CONST 0x0007 ; Number of locals
0043 INIT_0040:
0043 e005 | | Load 0x0,0x5
0044 0322 | " | Declare_Variable Record
0045 8006 | | Call 0x0,0x6
0046 00d9 | | Load_Top At_Offset_1
0047 017d | } | Execute Record,Structure_Write
0048 00ec | | Load_Encached Diana_Tree_Cache
0049 00ec | | Load_Encached Diana_Tree_Cache
004a 00ec | | Load_Encached Diana_Tree_Cache
004b e007 | | Load 0x0,0x7
004c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004d 02c7 | | Declare_Variable Any
004e 00d8 | | Load_Top At_Offset_0
004f 1c00 | | Execute_Immediate Run_Utility,0x0
0050 e008 | | Load 0x0,0x8
0051 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0052 BODY_0040:
0052 00d9 | | Load_Top At_Offset_1
0053 e402 | | Load 0x2,0x2
0054 e5ff | | Load 0x2,-0x1
0055 8218 | | Call 0x1,0x18
0056 00d1 | | Pop_Control Pop_Count_1
0057 c406 | | Store 0x2,0x6
0058 4802 |H | Short_Literal 0x2
0059 00da | | Load_Top At_Offset_2
005a e007 | | Load 0x0,0x7
005b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
005c 681a |h | Jump_Zero 0x77
005d e5fe | | Load 0x2,-0x2
005e 00eb | | Load_Encached Diana_Cache
005f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0060 680a |h | Jump_Zero 0x6b
0061 480a |H | Short_Literal 0xa
0062 0092 03db | | Action Push_String_Extended,0x3db ; "Problem encountered resolving location's path name: \x0a"
0064 00db | | Load_Top At_Offset_3
0065 e007 | | Load 0x0,0x7
0066 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0067 01cc | | Execute Vector,Catenate
0068 01cb | | Execute Vector,Append
0069 8009 | | Call 0x0,0x9
006a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
006b e5fd | | Load 0x2,-0x3
006c 800a | | Call 0x0,0xa
006d 6803 |h | Jump_Zero 0x71
006e e5fe | | Load 0x2,-0x2
006f a403 | | Store_Unchecked 0x2,0x3
0070 7809 |x | Jump 0x7a
0071 e5fd | | Load 0x2,-0x3
0072 8006 | | Call 0x0,0x6
0073 e5fe | | Load 0x2,-0x2
0074 8219 | | Call 0x1,0x19
0075 a403 | | Store_Unchecked 0x2,0x3
0076 7803 |x | Jump 0x7a
0077 e402 | | Load 0x2,0x2
0078 800b | | Call 0x0,0xb
0079 a403 | | Store_Unchecked 0x2,0x3
007a e403 | | Load 0x2,0x3
007b e00c | | Load 0x0,0xc
007c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
007d 680e |h | Jump_Zero 0x8c
007e 4800 |H | Short_Literal 0x0
007f 800d | | Call 0x0,0xd
0080 00d8 | | Load_Top At_Offset_0
0081 00e3 | | Load_Encached Natural_Cache
0082 0260 | ` | Execute Discrete,In_Type
0083 7001 |p | Jump_Nonzero 0x85
0084 0801 | | Execute_Immediate Raise,0x1
0085 4802 |H | Short_Literal 0x2
0086 800e | | Call 0x0,0xe
0087 e5fd | | Load 0x2,-0x3
0088 e403 | | Load 0x2,0x3
0089 e5ff | | Load 0x2,-0x1
008a 800f | | Call 0x0,0xf
008b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
008c e403 | | Load 0x2,0x3
008d e00c | | Load 0x0,0xc
008e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
008f 6829 |h) | Jump_Zero 0xb9
0090 e402 | | Load 0x2,0x2
0091 e5ff | | Load 0x2,-0x1
0092 e403 | | Load 0x2,0x3
0093 821a | | Call 0x1,0x1a
0094 a404 | | Store_Unchecked 0x2,0x4
0095 e402 | | Load 0x2,0x2
0096 8010 | | Call 0x0,0x10
0097 0f05 | | Execute_Immediate Equal,0x5
0098 6808 |h | Jump_Zero 0xa1
0099 e402 | | Load 0x2,0x2
009a 8011 | | Call 0x0,0x11
009b 6805 |h | Jump_Zero 0xa1
009c 00db | | Load_Top At_Offset_3
009d e012 | | Load 0x0,0x12
009e 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
009f 0033 | 3 | Store_Top Heap_Access,At_Offset_3
00a0 7802 |x | Jump 0xa3
00a1 00db | | Load_Top At_Offset_3
00a2 0033 | 3 | Store_Top Heap_Access,At_Offset_3
00a3 e008 | | Load 0x0,0x8
00a4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00a5 4800 |H | Short_Literal 0x0
00a6 4802 |H | Short_Literal 0x2
00a7 e405 | | Load 0x2,0x5
00a8 e008 | | Load 0x0,0x8
00a9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00aa 0059 | Y | Store_Top Discrete,At_Offset_1
00ab 00d8 | | Load_Top At_Offset_0
00ac 680b |h | Jump_Zero 0xb8
00ad 480a |H | Short_Literal 0xa
00ae 0092 03dc | | Action Push_String_Extended,0x3dc ; "DEFINITION failed - "
00b0 00da | | Load_Top At_Offset_2
00b1 e008 | | Load 0x0,0x8
00b2 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00b3 011c | | Execute Any,Convert_Unchecked
00b4 1c01 | | Execute_Immediate Run_Utility,0x1
00b5 01cc | | Execute Vector,Catenate
00b6 01cb | | Execute Vector,Append
00b7 8009 | | Call 0x0,0x9
00b8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00b9 e5ff | | Load 0x2,-0x1
00ba 01dd | | Execute Vector,First
00bb e5ff | | Load 0x2,-0x1
00bc 01d7 | | Execute Vector,Field_Read
00bd 0f2e | . | Execute_Immediate Equal,0x2e
00be 680b |h | Jump_Zero 0xca
00bf 4801 |H | Short_Literal 0x1
00c0 4800 |H | Short_Literal 0x0
00c1 4801 |H | Short_Literal 0x1
00c2 4800 |H | Short_Literal 0x0
00c3 e013 | | Load 0x0,0x13
00c4 e404 | | Load 0x2,0x4
00c5 e012 | | Load 0x0,0x12
00c6 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
00c7 e014 | | Load 0x0,0x14
00c8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00c9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00ca 4801 |H | Short_Literal 0x1
00cb 4800 |H | Short_Literal 0x0
00cc e5ff | | Load 0x2,-0x1
00cd e014 | | Load 0x0,0x14
00ce 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00cf 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00d0 TRAP_0040:
00d0 0007 | | Action Break_Optional
00d1 480a |H | Short_Literal 0xa
00d2 0092 03dd | | Action Push_String_Extended,0x3dd ; "Exception raised during command processing: "
00d4 e015 | | Load 0x0,0x15
00d5 180d | | Execute Package,Field_Execute,Field_Number 0xd
00d6 01cc | | Execute Vector,Catenate
00d7 01cb | | Execute Vector,Append
00d8 8009 | | Call 0x0,0x9
00d9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00da 0000 0000 | | .BLANK 0000[0x6]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00fd | | .CONST 0x00fd ; Address of begin
00e1 0143 | C | .CONST 0x0143 ; Address of exception handler
00e2 0008 | | .CONST 0x0008 ; Number of locals
00e3 INIT_00e0:
00e3 e007 | | Load 0x0,0x7
00e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e5 02c7 | | Declare_Variable Any
00e6 00d8 | | Load_Top At_Offset_0
00e7 1c00 | | Execute_Immediate Run_Utility,0x0
00e8 e005 | | Load 0x0,0x5
00e9 0322 | " | Declare_Variable Record
00ea 00d8 | | Load_Top At_Offset_0
00eb 1c00 | | Execute_Immediate Run_Utility,0x0
00ec 00e3 | | Load_Encached Natural_Cache
00ed e016 | | Load 0x0,0x16
00ee 02c7 | | Declare_Variable Any
00ef 00d8 | | Load_Top At_Offset_0
00f0 1c00 | | Execute_Immediate Run_Utility,0x0
00f1 e017 | | Load 0x0,0x17
00f2 02c7 | | Declare_Variable Any
00f3 00d8 | | Load_Top At_Offset_0
00f4 1c00 | | Execute_Immediate Run_Utility,0x0
00f5 e018 | | Load 0x0,0x18
00f6 02c7 | | Declare_Variable Any
00f7 00d8 | | Load_Top At_Offset_0
00f8 1c00 | | Execute_Immediate Run_Utility,0x0
00f9 e019 | | Load 0x0,0x19
00fa 02c7 | | Declare_Variable Any
00fb 00d8 | | Load_Top At_Offset_0
00fc 1c00 | | Execute_Immediate Run_Utility,0x0
00fd BODY_00e0:
00fd e402 | | Load 0x2,0x2
00fe e403 | | Load 0x2,0x3
00ff 00e3 | | Load_Encached Natural_Cache
0100 00eb | | Load_Encached Diana_Cache
0101 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0102 4800 |H | Short_Literal 0x0
0103 4801 |H | Short_Literal 0x1
0104 8006 | | Call 0x0,0x6
0105 e5ff | | Load 0x2,-0x1
0106 801a | | Call 0x0,0x1a
0107 c404 | | Store 0x2,0x4
0108 00d1 | | Pop_Control Pop_Count_1
0109 c402 | | Store 0x2,0x2
010a 4802 |H | Short_Literal 0x2
010b e402 | | Load 0x2,0x2
010c e007 | | Load 0x0,0x7
010d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
010e 680a |h | Jump_Zero 0x119
010f 480a |H | Short_Literal 0xa
0110 0092 03db | | Action Push_String_Extended,0x3db ; "Problem encountered resolving location's path name: \x0a"
0112 e402 | | Load 0x2,0x2
0113 e007 | | Load 0x0,0x7
0114 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0115 01cc | | Execute Vector,Catenate
0116 01cb | | Execute Vector,Append
0117 8009 | | Call 0x0,0x9
0118 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0119 e403 | | Load 0x2,0x3
011a 801b | | Call 0x0,0x1b
011b c407 | | Store 0x2,0x7
011c e403 | | Load 0x2,0x3
011d 801c | | Call 0x0,0x1c
011e c406 | | Store 0x2,0x6
011f e403 | | Load 0x2,0x3
0120 801d | | Call 0x0,0x1d
0121 c408 | | Store 0x2,0x8
0122 e402 | | Load 0x2,0x2
0123 e405 | | Load 0x2,0x5
0124 0120 | | Execute Any,Is_Value
0125 6802 |h | Jump_Zero 0x128
0126 e016 | | Load 0x0,0x16
0127 7801 |x | Jump 0x129
0128 e405 | | Load 0x2,0x5
0129 00da | | Load_Top At_Offset_2
012a e407 | | Load 0x2,0x7
012b 801e | | Call 0x0,0x1e
012c c405 | | Store 0x2,0x5
012d c402 | | Store 0x2,0x2
012e 4802 |H | Short_Literal 0x2
012f e402 | | Load 0x2,0x2
0130 e007 | | Load 0x0,0x7
0131 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0132 680a |h | Jump_Zero 0x13d
0133 480a |H | Short_Literal 0xa
0134 0092 03de | | Action Push_String_Extended,0x3de ; "Problem encountered calculating address: \x0a"
0136 e402 | | Load 0x2,0x2
0137 e007 | | Load 0x0,0x7
0138 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0139 01cc | | Execute Vector,Catenate
013a 01cb | | Execute Vector,Append
013b 8009 | | Call 0x0,0x9
013c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
013d 00d8 | | Load_Top At_Offset_0
013e 00da | | Load_Top At_Offset_2
013f e406 | | Load 0x2,0x6
0140 e405 | | Load 0x2,0x5
0141 821b | | Call 0x1,0x1b
0142 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0143 TRAP_00e0:
0143 0007 | | Action Break_Optional
0144 480a |H | Short_Literal 0xa
0145 0092 03dd | | Action Push_String_Extended,0x3dd ; "Exception raised during command processing: "
0147 e015 | | Load 0x0,0x15
0148 180d | | Execute Package,Field_Execute,Field_Number 0xd
0149 01cc | | Execute Vector,Catenate
014a 01cb | | Execute Vector,Append
014b 8009 | | Call 0x0,0x9
014c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
014d 0000 0000 | | .XXX[0x3]
014f 0000 | |
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0164 | d | .CONST 0x0164 ; Address of begin
0151 01a1 | | .CONST 0x01a1 ; Address of exception handler
0152 0005 | | .CONST 0x0005 ; Number of locals
0153 INIT_0150:
0153 e007 | | Load 0x0,0x7
0154 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0155 02c7 | | Declare_Variable Any
0156 00d8 | | Load_Top At_Offset_0
0157 1c00 | | Execute_Immediate Run_Utility,0x0
0158 e017 | | Load 0x0,0x17
0159 02c7 | | Declare_Variable Any
015a 00d8 | | Load_Top At_Offset_0
015b 1c00 | | Execute_Immediate Run_Utility,0x0
015c e018 | | Load 0x0,0x18
015d 02c7 | | Declare_Variable Any
015e 00d8 | | Load_Top At_Offset_0
015f 1c00 | | Execute_Immediate Run_Utility,0x0
0160 e019 | | Load 0x0,0x19
0161 02c7 | | Declare_Variable Any
0162 00d8 | | Load_Top At_Offset_0
0163 1c00 | | Execute_Immediate Run_Utility,0x0
0164 BODY_0150:
0164 00db | | Load_Top At_Offset_3
0165 00d9 | | Load_Top At_Offset_1
0166 0120 | | Execute Any,Is_Value
0167 6802 |h | Jump_Zero 0x16a
0168 e019 | | Load 0x0,0x19
0169 7801 |x | Jump 0x16b
016a 00d9 | | Load_Top At_Offset_1
016b 00db | | Load_Top At_Offset_3
016c 0120 | | Execute Any,Is_Value
016d 6802 |h | Jump_Zero 0x170
016e e018 | | Load 0x0,0x18
016f 7801 |x | Jump 0x171
0170 00db | | Load_Top At_Offset_3
0171 e403 | | Load 0x2,0x3
0172 0120 | | Execute Any,Is_Value
0173 6802 |h | Jump_Zero 0x176
0174 e017 | | Load 0x0,0x17
0175 7801 |x | Jump 0x177
0176 e403 | | Load 0x2,0x3
0177 e5ff | | Load 0x2,-0x1
0178 801f | | Call 0x0,0x1f
0179 c403 | | Store 0x2,0x3
017a c404 | | Store 0x2,0x4
017b c405 | | Store 0x2,0x5
017c c402 | | Store 0x2,0x2
017d 4802 |H | Short_Literal 0x2
017e e402 | | Load 0x2,0x2
017f e007 | | Load 0x0,0x7
0180 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0181 7003 |p | Jump_Nonzero 0x185
0182 00d9 | | Load_Top At_Offset_1
0183 8020 | | Call 0x0,0x20
0184 6816 |h | Jump_Zero 0x19b
0185 0092 03df | | Action Push_String_Extended,0x3df ; "Could not find Ada location for address"
0187 8009 | | Call 0x0,0x9
0188 4802 |H | Short_Literal 0x2
0189 e402 | | Load 0x2,0x2
018a e007 | | Load 0x0,0x7
018b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
018c 680a |h | Jump_Zero 0x197
018d 480a |H | Short_Literal 0xa
018e 0092 03e0 | | Action Push_String_Extended,0x3e0 ; ": "
0190 e402 | | Load 0x2,0x2
0191 e007 | | Load 0x0,0x7
0192 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0193 01cc | | Execute Vector,Catenate
0194 01cb | | Execute Vector,Append
0195 8009 | | Call 0x0,0x9
0196 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0197 0092 03e1 | | Action Push_String_Extended,0x3e1 ; ".\x0a"
0199 8009 | | Call 0x0,0x9
019a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
019b 00d8 | | Load_Top At_Offset_0
019c 00da | | Load_Top At_Offset_2
019d e403 | | Load 0x2,0x3
019e e5ff | | Load 0x2,-0x1
019f 821b | | Call 0x1,0x1b
01a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a1 TRAP_0150:
01a1 0007 | | Action Break_Optional
01a2 480a |H | Short_Literal 0xa
01a3 0092 03dd | | Action Push_String_Extended,0x3dd ; "Exception raised during command processing: "
01a5 e015 | | Load 0x0,0x15
01a6 180d | | Execute Package,Field_Execute,Field_Number 0xd
01a7 01cc | | Execute Vector,Catenate
01a8 01cb | | Execute Vector,Append
01a9 8009 | | Call 0x0,0x9
01aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ab 0000 0000 | | .BLANK 0000[0x5]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01bc | | .CONST 0x01bc ; Address of begin
01b1 01f2 | | .CONST 0x01f2 ; Address of exception handler
01b2 0003 | | .CONST 0x0003 ; Number of locals
01b3 INIT_01b0:
01b3 e021 | ! | Load 0x0,0x21
01b4 0322 | " | Declare_Variable Record
01b5 00d8 | | Load_Top At_Offset_0
01b6 1c00 | | Execute_Immediate Run_Utility,0x0
01b7 e007 | | Load 0x0,0x7
01b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b9 02c7 | | Declare_Variable Any
01ba 00d8 | | Load_Top At_Offset_0
01bb 1c00 | | Execute_Immediate Run_Utility,0x0
01bc BODY_01b0:
01bc e5fb | | Load 0x2,-0x5
01bd 4820 |H | Short_Literal 0x20
01be 4800 |H | Short_Literal 0x0
01bf e022 | " | Load 0x0,0x22
01c0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
01c1 00d1 | | Pop_Control Pop_Count_1
01c2 00d8 | | Load_Top At_Offset_0
01c3 00da | | Load_Top At_Offset_2
01c4 e5fe | | Load 0x2,-0x2
01c5 e5ff | | Load 0x2,-0x1
01c6 8023 | # | Call 0x0,0x23
01c7 00d1 | | Pop_Control Pop_Count_1
01c8 c403 | | Store 0x2,0x3
01c9 4802 |H | Short_Literal 0x2
01ca 00d9 | | Load_Top At_Offset_1
01cb e007 | | Load 0x0,0x7
01cc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01cd 7023 |p# | Jump_Nonzero 0x1f1
01ce e5fb | | Load 0x2,-0x5
01cf e5fd | | Load 0x2,-0x3
01d0 00db | | Load_Top At_Offset_3
01d1 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
01d2 e402 | | Load 0x2,0x2
01d3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01d4 e402 | | Load 0x2,0x2
01d5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01d6 e012 | | Load 0x0,0x12
01d7 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
01d8 e022 | " | Load 0x0,0x22
01d9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01da 00d1 | | Pop_Control Pop_Count_1
01db e5fc | | Load 0x2,-0x4
01dc 6814 |h | Jump_Zero 0x1f1
01dd e5fb | | Load 0x2,-0x5
01de 0092 03e2 | | Action Push_String_Extended,0x3e2 ; " Pc = "
01e0 00db | | Load_Top At_Offset_3
01e1 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
01e2 8024 | $ | Call 0x0,0x24
01e3 01cc | | Execute Vector,Catenate
01e4 0092 03e3 | | Action Push_String_Extended,0x3e3 ; ", Frame = "
01e6 01cc | | Execute Vector,Catenate
01e7 00db | | Load_Top At_Offset_3
01e8 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
01e9 8025 | % | Call 0x0,0x25
01ea 01cc | | Execute Vector,Catenate
01eb 00db | | Load_Top At_Offset_3
01ec 8026 | & | Call 0x0,0x26
01ed 01cc | | Execute Vector,Catenate
01ee e022 | " | Load 0x0,0x22
01ef 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01f0 00d1 | | Pop_Control Pop_Count_1
01f1 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01f2 TRAP_01b0:
01f2 0007 | | Action Break_Optional
01f3 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01f4 0000 0000 | | .BLANK 0000[0x4]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 0210 | | .CONST 0x0210 ; Address of begin
01f9 023d | = | .CONST 0x023d ; Address of exception handler
01fa 0007 | | .CONST 0x0007 ; Number of locals
01fb INIT_01f8:
01fb e017 | | Load 0x0,0x17
01fc 02c7 | | Declare_Variable Any
01fd 00d8 | | Load_Top At_Offset_0
01fe 1c00 | | Execute_Immediate Run_Utility,0x0
01ff e018 | | Load 0x0,0x18
0200 02c7 | | Declare_Variable Any
0201 00d8 | | Load_Top At_Offset_0
0202 1c00 | | Execute_Immediate Run_Utility,0x0
0203 e019 | | Load 0x0,0x19
0204 02c7 | | Declare_Variable Any
0205 00d8 | | Load_Top At_Offset_0
0206 1c00 | | Execute_Immediate Run_Utility,0x0
0207 e007 | | Load 0x0,0x7
0208 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0209 02c7 | | Declare_Variable Any
020a 00d8 | | Load_Top At_Offset_0
020b 1c00 | | Execute_Immediate Run_Utility,0x0
020c 029f 03c3 | | Declare_Subprogram INIT_03c0,For_Call
020e 029f 03d3 | | Declare_Subprogram INIT_03d0,For_Call
0210 BODY_01f8:
0210 00da | | Load_Top At_Offset_2
0211 e404 | | Load 0x2,0x4
0212 0120 | | Execute Any,Is_Value
0213 6802 |h | Jump_Zero 0x216
0214 e019 | | Load 0x0,0x19
0215 7801 |x | Jump 0x217
0216 e404 | | Load 0x2,0x4
0217 e403 | | Load 0x2,0x3
0218 0120 | | Execute Any,Is_Value
0219 6802 |h | Jump_Zero 0x21c
021a e018 | | Load 0x0,0x18
021b 7801 |x | Jump 0x21d
021c e403 | | Load 0x2,0x3
021d e402 | | Load 0x2,0x2
021e 0120 | | Execute Any,Is_Value
021f 6802 |h | Jump_Zero 0x222
0220 e017 | | Load 0x0,0x17
0221 7801 |x | Jump 0x223
0222 e402 | | Load 0x2,0x2
0223 e5ff | | Load 0x2,-0x1
0224 801f | | Call 0x0,0x1f
0225 c402 | | Store 0x2,0x2
0226 c403 | | Store 0x2,0x3
0227 c404 | | Store 0x2,0x4
0228 c405 | | Store 0x2,0x5
0229 e5fe | | Load 0x2,-0x2
022a 7002 |p | Jump_Nonzero 0x22d
022b e027 | ' | Load 0x0,0x27
022c c404 | | Store 0x2,0x4
022d 4802 |H | Short_Literal 0x2
022e 00db | | Load_Top At_Offset_3
022f e007 | | Load 0x0,0x7
0230 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0231 6803 |h | Jump_Zero 0x235
0232 e5ff | | Load 0x2,-0x1
0233 8406 | | Call 0x2,0x6
0234 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0235 4801 |H | Short_Literal 0x1
0236 e404 | | Load 0x2,0x4
0237 e403 | | Load 0x2,0x3
0238 e402 | | Load 0x2,0x2
0239 e012 | | Load 0x0,0x12
023a 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
023b 8407 | | Call 0x2,0x7
023c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
023d TRAP_01f8:
023d 0007 | | Action Break_Optional
023e e5ff | | Load 0x2,-0x1
023f 8406 | | Call 0x2,0x6
0240 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0241 0000 0000 | | .BLANK 0000[0x7]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 025c | \ | .CONST 0x025c ; Address of begin
0249 0285 | | .CONST 0x0285 ; Address of exception handler
024a 0005 | | .CONST 0x0005 ; Number of locals
024b INIT_0248:
024b e005 | | Load 0x0,0x5
024c 0322 | " | Declare_Variable Record
024d 00d8 | | Load_Top At_Offset_0
024e 1c00 | | Execute_Immediate Run_Utility,0x0
024f e018 | | Load 0x0,0x18
0250 02c7 | | Declare_Variable Any
0251 00d8 | | Load_Top At_Offset_0
0252 1c00 | | Execute_Immediate Run_Utility,0x0
0253 e019 | | Load 0x0,0x19
0254 02c7 | | Declare_Variable Any
0255 00d8 | | Load_Top At_Offset_0
0256 1c00 | | Execute_Immediate Run_Utility,0x0
0257 e007 | | Load 0x0,0x7
0258 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0259 02c7 | | Declare_Variable Any
025a 00d8 | | Load_Top At_Offset_0
025b 1c00 | | Execute_Immediate Run_Utility,0x0
025c BODY_0248:
025c 8028 | ( | Call 0x0,0x28
025d c5fe | | Store 0x2,-0x2
025e e029 | ) | Load 0x0,0x29
025f c403 | | Store 0x2,0x3
0260 e027 | ' | Load 0x0,0x27
0261 c404 | | Store 0x2,0x4
0262 00d8 | | Load_Top At_Offset_0
0263 e402 | | Load 0x2,0x2
0264 4800 |H | Short_Literal 0x0
0265 4801 |H | Short_Literal 0x1
0266 e02a | * | Load 0x0,0x2a
0267 e5ff | | Load 0x2,-0x1
0268 802b | + | Call 0x0,0x2b
0269 e02c | , | Load 0x0,0x2c
026a 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
026b 00d1 | | Pop_Control Pop_Count_1
026c c405 | | Store 0x2,0x5
026d 4802 |H | Short_Literal 0x2
026e 00d9 | | Load_Top At_Offset_1
026f e007 | | Load 0x0,0x7
0270 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0271 7012 |p | Jump_Nonzero 0x284
0272 00db | | Load_Top At_Offset_3
0273 801b | | Call 0x0,0x1b
0274 c403 | | Store 0x2,0x3
0275 00db | | Load_Top At_Offset_3
0276 801d | | Call 0x0,0x1d
0277 c404 | | Store 0x2,0x4
0278 00d8 | | Load_Top At_Offset_0
0279 e5fe | | Load 0x2,-0x2
027a 0120 | | Execute Any,Is_Value
027b 6802 |h | Jump_Zero 0x27e
027c e016 | | Load 0x0,0x16
027d 7801 |x | Jump 0x27f
027e e5fe | | Load 0x2,-0x2
027f 00db | | Load_Top At_Offset_3
0280 e403 | | Load 0x2,0x3
0281 801e | | Call 0x0,0x1e
0282 c5fe | | Store 0x2,-0x2
0283 c405 | | Store 0x2,0x5
0284 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0285 TRAP_0248:
0285 0007 | | Action Break_Optional
0286 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0287 0000 | | .XXX[0x1]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028c | | .CONST 0x028c ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0002 | | .CONST 0x0002 ; Number of locals
028b INIT_0288:
028b 00e2 | | Load_Encached Integer_Cache
028c BODY_0288:
028c 4800 |H | Short_Literal 0x0
028d e5ff | | Load 0x2,-0x1
028e 482e |H. | Short_Literal 0x2e
028f e004 | | Load 0x0,0x4
0290 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0291 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0292 00d8 | | Load_Top At_Offset_0
0293 6811 |h | Jump_Zero 0x2a5
0294 00d8 | | Load_Top At_Offset_0
0295 e5ff | | Load 0x2,-0x1
0296 01dc | | Execute Vector,Last
0297 027c | | | Execute Discrete,Less
0298 680c |h | Jump_Zero 0x2a5
0299 00d8 | | Load_Top At_Offset_0
029a 0a01 | | Execute_Immediate Plus,0x1
029b 00d8 | | Load_Top At_Offset_0
029c 00e2 | | Load_Encached Integer_Cache
029d 0260 | ` | Execute Discrete,In_Type
029e 7001 |p | Jump_Nonzero 0x2a0
029f 0801 | | Execute_Immediate Raise,0x1
02a0 e5ff | | Load 0x2,-0x1
02a1 01dc | | Execute Vector,Last
02a2 e5ff | | Load 0x2,-0x1
02a3 01cf | | Execute Vector,Slice_Read
02a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a5 00ea | | Load_Encached Null_String_Cache
02a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a7 0000 | | .XXX[0x1]
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 00e2 | | Load_Encached Integer_Cache
02ac BODY_02a8:
02ac 4800 |H | Short_Literal 0x0
02ad e5ff | | Load 0x2,-0x1
02ae 482e |H. | Short_Literal 0x2e
02af e004 | | Load 0x0,0x4
02b0 1820 | | Execute Package,Field_Execute,Field_Number 0x20
02b1 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
02b2 00d8 | | Load_Top At_Offset_0
02b3 6811 |h | Jump_Zero 0x2c5
02b4 00d8 | | Load_Top At_Offset_0
02b5 e5ff | | Load 0x2,-0x1
02b6 01dc | | Execute Vector,Last
02b7 027c | | | Execute Discrete,Less
02b8 680c |h | Jump_Zero 0x2c5
02b9 00db | | Load_Top At_Offset_3
02ba 01dd | | Execute Vector,First
02bb 00d9 | | Load_Top At_Offset_1
02bc 0aff | | Execute_Immediate Plus,-0x1
02bd 00d8 | | Load_Top At_Offset_0
02be 00e2 | | Load_Encached Integer_Cache
02bf 0260 | ` | Execute Discrete,In_Type
02c0 7001 |p | Jump_Nonzero 0x2c2
02c1 0801 | | Execute_Immediate Raise,0x1
02c2 e5ff | | Load 0x2,-0x1
02c3 01cf | | Execute Vector,Slice_Read
02c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c5 00db | | Load_Top At_Offset_3
02c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c7 0000 | | .XXX[0x1]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb 00da | | Load_Top At_Offset_2
02cc 8214 | | Call 0x1,0x14
02cd e004 | | Load 0x0,0x4
02ce 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02cf e213 | | Load 0x1,0x13
02d0 01df | | Execute Vector,Equal
02d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d2 0000 0000 | | .BLANK 0000[0x6]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02e0 | | .CONST 0x02e0 ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0003 | | .CONST 0x0003 ; Number of locals
02db INIT_02d8:
02db 00e3 | | Load_Encached Natural_Cache
02dc e005 | | Load 0x0,0x5
02dd 0322 | " | Declare_Variable Record
02de 00d8 | | Load_Top At_Offset_0
02df 1c00 | | Execute_Immediate Run_Utility,0x0
02e0 BODY_02d8:
02e0 e5fd | | Load 0x2,-0x3
02e1 00d9 | | Load_Top At_Offset_1
02e2 00e3 | | Load_Encached Natural_Cache
02e3 00eb | | Load_Encached Diana_Cache
02e4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02e5 4800 |H | Short_Literal 0x0
02e6 4801 |H | Short_Literal 0x1
02e7 8006 | | Call 0x0,0x6
02e8 e5ff | | Load 0x2,-0x1
02e9 802d | - | Call 0x0,0x2d
02ea c402 | | Store 0x2,0x2
02eb 00d1 | | Pop_Control Pop_Count_1
02ec c5fd | | Store 0x2,-0x3
02ed 00d8 | | Load_Top At_Offset_0
02ee e5fe | | Load 0x2,-0x2
02ef 017d | } | Execute Record,Structure_Write
02f0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02f1 0000 0000 | | .BLANK 0000[0x7]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb e5fd | | Load 0x2,-0x3
02fc e5fe | | Load 0x2,-0x2
02fd e5ff | | Load 0x2,-0x1
02fe 8217 | | Call 0x1,0x17
02ff 00d1 | | Pop_Control Pop_Count_1
0300 c5fd | | Store 0x2,-0x3
0301 4802 |H | Short_Literal 0x2
0302 e5fd | | Load 0x2,-0x3
0303 e007 | | Load 0x0,0x7
0304 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0305 680a |h | Jump_Zero 0x310
0306 00da | | Load_Top At_Offset_2
0307 8216 | | Call 0x1,0x16
0308 6807 |h | Jump_Zero 0x310
0309 e5fd | | Load 0x2,-0x3
030a e5fe | | Load 0x2,-0x2
030b e5ff | | Load 0x2,-0x1
030c 8215 | | Call 0x1,0x15
030d 8217 | | Call 0x1,0x17
030e 00d1 | | Pop_Control Pop_Count_1
030f c5fd | | Store 0x2,-0x3
0310 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0311 0000 0000 | | .BLANK 0000[0x7]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 0322 | " | .CONST 0x0322 ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0005 | | .CONST 0x0005 ; Number of locals
031b INIT_0318:
031b e018 | | Load 0x0,0x18
031c 02c7 | | Declare_Variable Any
031d 00d8 | | Load_Top At_Offset_0
031e 1c00 | | Execute_Immediate Run_Utility,0x0
031f 00ec | | Load_Encached Diana_Tree_Cache
0320 039d | | Declare_Variable Heap_Access,Duplicate
0321 039d | | Declare_Variable Heap_Access,Duplicate
0322 BODY_0318:
0322 e5ff | | Load 0x2,-0x1
0323 00eb | | Load_Encached Diana_Cache
0324 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0325 482f |H/ | Short_Literal 0x2f
0326 4830 |H0 | Short_Literal 0x30
0327 0262 | b | Execute Discrete,In_Range
0328 7003 |p | Jump_Nonzero 0x32c
0329 e5ff | | Load 0x2,-0x1
032a 0033 | 3 | Store_Top Heap_Access,At_Offset_3
032b 7818 |x | Jump 0x344
032c e5fe | | Load 0x2,-0x2
032d 802e | . | Call 0x0,0x2e
032e 6806 |h | Jump_Zero 0x335
032f e013 | | Load 0x0,0x13
0330 e5ff | | Load 0x2,-0x1
0331 e012 | | Load 0x0,0x12
0332 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0333 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0334 7803 |x | Jump 0x338
0335 e5fe | | Load 0x2,-0x2
0336 802f | / | Call 0x0,0x2f
0337 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0338 00d9 | | Load_Top At_Offset_1
0339 00eb | | Load_Encached Diana_Cache
033a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
033b 0f73 | s | Execute_Immediate Equal,0x73
033c 7002 |p | Jump_Nonzero 0x33f
033d e5ff | | Load 0x2,-0x1
033e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
033f 00d9 | | Load_Top At_Offset_1
0340 e5ff | | Load 0x2,-0x1
0341 e012 | | Load 0x0,0x12
0342 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0343 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0344 00da | | Load_Top At_Offset_2
0345 8030 | 0 | Call 0x0,0x30
0346 c402 | | Store 0x2,0x2
0347 e5fd | | Load 0x2,-0x3
0348 e402 | | Load 0x2,0x2
0349 8031 | 1 | Call 0x0,0x31
034a 0031 | 1 | Store_Top Heap_Access,At_Offset_1
034b 00d8 | | Load_Top At_Offset_0
034c 00eb | | Load_Encached Diana_Cache
034d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
034e 6802 |h | Jump_Zero 0x351
034f e5ff | | Load 0x2,-0x1
0350 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0351 00d8 | | Load_Top At_Offset_0
0352 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0353 0000 0000 | | .BLANK 0000[0x5]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 036c | l | .CONST 0x036c ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0008 | | .CONST 0x0008 ; Number of locals
035b INIT_0358:
035b 00e2 | | Load_Encached Integer_Cache
035c 00ec | | Load_Encached Diana_Tree_Cache
035d e007 | | Load 0x0,0x7
035e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
035f 02c7 | | Declare_Variable Any
0360 00d8 | | Load_Top At_Offset_0
0361 1c00 | | Execute_Immediate Run_Utility,0x0
0362 00ec | | Load_Encached Diana_Tree_Cache
0363 00ec | | Load_Encached Diana_Tree_Cache
0364 e017 | | Load 0x0,0x17
0365 02c7 | | Declare_Variable Any
0366 00d8 | | Load_Top At_Offset_0
0367 1c00 | | Execute_Immediate Run_Utility,0x0
0368 e019 | | Load 0x0,0x19
0369 02c7 | | Declare_Variable Any
036a 00d8 | | Load_Top At_Offset_0
036b 1c00 | | Execute_Immediate Run_Utility,0x0
036c BODY_0358:
036c e404 | | Load 0x2,0x4
036d 00da | | Load_Top At_Offset_2
036e 0120 | | Execute Any,Is_Value
036f 6802 |h | Jump_Zero 0x372
0370 e017 | | Load 0x0,0x17
0371 7801 |x | Jump 0x373
0372 00da | | Load_Top At_Offset_2
0373 00da | | Load_Top At_Offset_2
0374 0120 | | Execute Any,Is_Value
0375 6802 |h | Jump_Zero 0x378
0376 e019 | | Load 0x0,0x19
0377 7801 |x | Jump 0x379
0378 00da | | Load_Top At_Offset_2
0379 00ec | | Load_Encached Diana_Tree_Cache
037a 00ec | | Load_Encached Diana_Tree_Cache
037b 00e2 | | Load_Encached Integer_Cache
037c e5fe | | Load 0x2,-0x2
037d 8032 | 2 | Call 0x0,0x32
037e c402 | | Store 0x2,0x2
037f c403 | | Store 0x2,0x3
0380 c405 | | Store 0x2,0x5
0381 c408 | | Store 0x2,0x8
0382 c407 | | Store 0x2,0x7
0383 c404 | | Store 0x2,0x4
0384 4802 |H | Short_Literal 0x2
0385 e404 | | Load 0x2,0x4
0386 e007 | | Load 0x0,0x7
0387 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0388 6810 |h | Jump_Zero 0x399
0389 e5ff | | Load 0x2,-0x1
038a 0033 | 3 | Store_Top Heap_Access,At_Offset_3
038b e5fd | | Load 0x2,-0x3
038c 8010 | | Call 0x0,0x10
038d 0f07 | | Execute_Immediate Equal,0x7
038e 7002 |p | Jump_Nonzero 0x391
038f e5ff | | Load 0x2,-0x1
0390 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0391 e5fd | | Load 0x2,-0x3
0392 801d | | Call 0x0,0x1d
0393 c408 | | Store 0x2,0x8
0394 00d8 | | Load_Top At_Offset_0
0395 e5fd | | Load 0x2,-0x3
0396 e5ff | | Load 0x2,-0x1
0397 8219 | | Call 0x1,0x19
0398 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0399 00d8 | | Load_Top At_Offset_0
039a e5fd | | Load 0x2,-0x3
039b e5ff | | Load 0x2,-0x1
039c 8219 | | Call 0x1,0x19
039d 0033 | 3 | Store_Top Heap_Access,At_Offset_3
039e 00da | | Load_Top At_Offset_2
039f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3 | | .CONST 0x03a3 ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0001 | | .CONST 0x0001 ; Number of locals
03a3 BODY_03a0:
03a3 INIT_03a0:
03a3 480a |H | Short_Literal 0xa
03a4 0092 03e4 | | Action Push_String_Extended,0x3e4 ; "Name: "
03a6 4801 |H | Short_Literal 0x1
03a7 e5fc | | Load 0x2,-0x4
03a8 e5fd | | Load 0x2,-0x3
03a9 e5fe | | Load 0x2,-0x2
03aa e012 | | Load 0x0,0x12
03ab 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
03ac 01cc | | Execute Vector,Catenate
03ad 01cb | | Execute Vector,Append
03ae 8033 | 3 | Call 0x0,0x33
03af 00da | | Load_Top At_Offset_2
03b0 8034 | 4 | Call 0x0,0x34
03b1 7009 |p | Jump_Nonzero 0x3bb
03b2 480a |H | Short_Literal 0xa
03b3 0092 03e5 | | Action Push_String_Extended,0x3e5 ; "PC = "
03b5 e5ff | | Load 0x2,-0x1
03b6 8024 | $ | Call 0x0,0x24
03b7 01cc | | Execute Vector,Catenate
03b8 01cb | | Execute Vector,Append
03b9 8033 | 3 | Call 0x0,0x33
03ba 4505 |E | Exit_Suprogram New_Top_Offset 0x5
03bb 0092 03e6 | | Action Push_String_Extended,0x3e6 ; "PC = UNKNOWN\x0a"
03bd 8033 | 3 | Call 0x0,0x33
03be 4505 |E | Exit_Suprogram New_Top_Offset 0x5
03bf 0000 | | .XXX[0x1]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3 | | .CONST 0x03c3 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0001 | | .CONST 0x0001 ; Number of locals
03c3 BODY_03c0:
03c3 INIT_03c0:
03c3 0092 03e7 | | Action Push_String_Extended,0x3e7 ; "<Unknown: Pc = "
03c5 00db | | Load_Top At_Offset_3
03c6 8024 | $ | Call 0x0,0x24
03c7 01cc | | Execute Vector,Catenate
03c8 0092 03e8 | | Action Push_String_Extended,0x3e8 ; ">"
03ca 01cc | | Execute Vector,Catenate
03cb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03cc 0000 0000 | | .BLANK 0000[0x4]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3 | | .CONST 0x03d3 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0001 | | .CONST 0x0001 ; Number of locals
03d3 BODY_03d0:
03d3 INIT_03d0:
03d3 00da | | Load_Top At_Offset_2
03d4 01db | | Execute Vector,Length
03d5 7003 |p | Jump_Nonzero 0x3d9
03d6 e5ff | | Load 0x2,-0x1
03d7 8406 | | Call 0x2,0x6
03d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03d9 00da | | Load_Top At_Offset_2
03da 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03db ; --------------------------------------------------------------------------------------
03db ; STRING TABLE
03db ; --------------------------------------------------------------------------------------
03db 001e | | .STRTAB 0x001e->0x03ea ; "Problem encountered resolving location's path name: \x0a"
03dc 0051 | Q | .STRTAB 0x0051->0x0404 ; "DEFINITION failed - "
03dd 0063 | c | .STRTAB 0x0063->0x040e ; "Exception raised during command processing: "
03de 008d | | .STRTAB 0x008d->0x0424 ; "Problem encountered calculating address: \x0a"
03df 00b5 | | .STRTAB 0x00b5->0x0439 ; "Could not find Ada location for address"
03e0 00da | | .STRTAB 0x00da->0x044d ; ": "
03e1 00db | | .STRTAB 0x00db->0x044e ; ".\x0a"
03e2 00db | | .STRTAB 0x00db->0x044f ; " Pc = "
03e3 00df | | .STRTAB 0x00df->0x0452 ; ", Frame = "
03e4 00e7 | | .STRTAB 0x00e7->0x0457 ; "Name: "
03e5 00ec | | .STRTAB 0x00ec->0x045b ; "PC = "
03e6 00ef | | .STRTAB 0x00ef->0x045d ; "PC = UNKNOWN\x0a"
03e7 00fa | | .STRTAB 0x00fa->0x0464 ; "<Unknown: Pc = "
03e8 0107 | | .STRTAB 0x0107->0x046b ; ">"
03e9 0106 | | .STREND 0x0106->0x046c
03ea 5072 6f62 |Prob| .STRTAB_STRINGS
046c 0000 0000 | | .BLANK 0000[0x4]
0470 ; --------------------------------------------------------------------------------------
0470 ; Debug Table
0470 ; --------------------------------------------------------------------------------------
0470 0004 0009 | | .DEBUG4 0x0004,0x0009,0x1655,0x0000,0x0001,0x0000
0476 0400 | | .XXX[0x1]
0477 0000 0000 | | .BLANK 0000[0x4]
047b 3f48 1180 |?H | .XXX[0x15]
047d 0820 a1aa | |
047f 24a7 a72f |$ /|
0481 a4a2 2fa3 | / |
0483 24a6 2a22 |$ *"|
0485 a90b 8008 | |
0487 29aa 20a7 |) |
0489 2220 a922 |" "|
048b 1727 20aa | ' |
048d 2aa9 20a6 |* |
048f 0400 | |
0490 0000 0000 | | .BLANK 0000[0x8]
0498 0300 0000 | | .XXX[0xc]
049a 0100 0000 | |
049c 1000 0a53 | S|
049e 484f 575f |HOW_|
04a0 4c4f 434b |LOCK|
04a2 533d 7b94 |S={ |
04a4 0000 0000 | | .BLANK 0000[0x4]
04a8 02f0 8000 | | .XXX[0x2]
04aa 0000 0000 | | .BLANK 0000[0x2b]
04d5 003e 1800 | > | .XXX[0x6]
04d7 0000 0000 | |
04d9 0000 0409 | |
04db 0000 0000 | | .BLANK 0000[0x14]
04ef 000f d000 | | .XXX[0x9]
04f1 0000 0000 | |
04f3 0000 00ec | |
04f5 0000 0004 | |
04f7 1b80 | |
04f8 0000 0000 | | .BLANK 0000[0x5]
04fd 0001 0020 | | .XXX[0x2]
04ff 0000 0000 | | .BLANK 0000[0x6]
0505 3ca0 |< | .XXX[0x1]
0506 0000 0000 | | .BLANK 0000[0xf]
0515 0010 8e00 | | .XXX[0x2]
0517 0000 0000 | | .BLANK 0000[0x46]
055d e540 | @ | .XXX[0x1]
055e 0000 0000 | | .BLANK 0000[0xa2]