|
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: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦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 02f8 | | .CONST 0x02f8 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0018 | | .CONST 0x0018 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 029d 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call 0010 029d 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call 0012 029d 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call 0014 029d 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call 0016 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0017 00c7 | | Action Elaborate_Subprogram 0018 BODY_0008: 0018 00bc | | Action Signal_Activated 0019 00bb | | Action Signal_Completion 001a 0000 0000 | | .BLANK 0000[0x6] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0040 | @ | .CONST 0x0040 ; Address of begin 0021 0094 | | .CONST 0x0094 ; Address of exception handler 0022 000c | | .CONST 0x000c ; Number of locals 0023 INIT_0020: 0023 e002 | | Load 0x0,0x2 0024 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0025 02c7 | | Declare_Variable Any 0026 00d8 | | Load_Top At_Offset_0 0027 1c00 | | Execute_Immediate Run_Utility,0x0 0028 e003 | | Load 0x0,0x3 0029 02c7 | | Declare_Variable Any 002a 00d8 | | Load_Top At_Offset_0 002b 1c00 | | Execute_Immediate Run_Utility,0x0 002c 00ec | | Load_Encached Diana_Tree_Cache 002d 00ec | | Load_Encached Diana_Tree_Cache 002e 00e8 | | Load_Encached Character_Cache 002f 0620 | | Execute_Immediate Set_Value_Unchecked,0x20 0030 e004 | | Load 0x0,0x4 0031 02c7 | | Declare_Variable Any 0032 e005 | | Load 0x0,0x5 0033 a407 | | Store_Unchecked 0x2,0x7 0034 00e1 | | Load_Encached Boolean_Cache 0035 e5fe | | Load 0x2,-0x2 0036 0007 | | Action Break_Optional 0037 e004 | | Load 0x0,0x4 0038 02c7 | | Declare_Variable Any 0039 e5fd | | Load 0x2,-0x3 003a a40a | | Store_Unchecked 0x2,0xa 003b e006 | | Load 0x0,0x6 003c 02c7 | | Declare_Variable Any 003d 00d8 | | Load_Top At_Offset_0 003e 1c00 | | Execute_Immediate Run_Utility,0x0 003f 00e3 | | Load_Encached Natural_Cache 0040 BODY_0020: 0040 e402 | | Load 0x2,0x2 0041 00e3 | | Load_Encached Natural_Cache 0042 00db | | Load_Top At_Offset_3 0043 0120 | | Execute Any,Is_Value 0044 6802 |h | Jump_Zero 0x47 0045 e006 | | Load 0x0,0x6 0046 7801 |x | Jump 0x48 0047 00db | | Load_Top At_Offset_3 0048 00ec | | Load_Encached Diana_Tree_Cache 0049 e40a | | Load 0x2,0xa 004a e407 | | Load 0x2,0x7 004b 0120 | | Execute Any,Is_Value 004c 6802 |h | Jump_Zero 0x4f 004d e004 | | Load 0x0,0x4 004e 7801 |x | Jump 0x50 004f e407 | | Load 0x2,0x7 0050 00e8 | | Load_Encached Character_Cache 0051 e403 | | Load 0x2,0x3 0052 0120 | | Execute Any,Is_Value 0053 6802 |h | Jump_Zero 0x56 0054 e003 | | Load 0x0,0x3 0055 7801 |x | Jump 0x57 0056 e403 | | Load 0x2,0x3 0057 00e1 | | Load_Encached Boolean_Cache 0058 00ec | | Load_Encached Diana_Tree_Cache 0059 e409 | | Load 0x2,0x9 005a e5ff | | Load 0x2,-0x1 005b 8211 | | Call 0x1,0x11 005c c409 | | Store 0x2,0x9 005d c405 | | Store 0x2,0x5 005e c408 | | Store 0x2,0x8 005f c403 | | Store 0x2,0x3 0060 c406 | | Store 0x2,0x6 0061 c407 | | Store 0x2,0x7 0062 c40a | | Store 0x2,0xa 0063 c404 | | Store 0x2,0x4 0064 c40b | | Store 0x2,0xb 0065 005a | Z | Store_Top Discrete,At_Offset_2 0066 c402 | | Store 0x2,0x2 0067 4802 |H | Short_Literal 0x2 0068 e402 | | Load 0x2,0x2 0069 e002 | | Load 0x0,0x2 006a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 006b 680a |h | Jump_Zero 0x76 006c 480a |H | Short_Literal 0xa 006d 0092 0236 | 6| Action Push_String_Extended,0x236 ; "Invalid location specified:\x0a" 006f e402 | | Load 0x2,0x2 0070 e002 | | Load 0x0,0x2 0071 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0072 01cc | | Execute Vector,Catenate 0073 01cb | | Execute Vector,Append 0074 8007 | | Call 0x0,0x7 0075 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0076 e402 | | Load 0x2,0x2 0077 00d9 | | Load_Top At_Offset_1 0078 00db | | Load_Top At_Offset_3 0079 e404 | | Load 0x2,0x4 007a e407 | | Load 0x2,0x7 007b e406 | | Load 0x2,0x6 007c e40a | | Load 0x2,0xa 007d e5fb | | Load 0x2,-0x5 007e e5fc | | Load 0x2,-0x4 007f e403 | | Load 0x2,0x3 0080 e408 | | Load 0x2,0x8 0081 e405 | | Load 0x2,0x5 0082 e409 | | Load 0x2,0x9 0083 820f | | Call 0x1,0xf 0084 c402 | | Store 0x2,0x2 0085 4802 |H | Short_Literal 0x2 0086 e402 | | Load 0x2,0x2 0087 e002 | | Load 0x0,0x2 0088 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0089 6809 |h | Jump_Zero 0x93 008a 480a |H | Short_Literal 0xa 008b 0092 0237 | 7| Action Push_String_Extended,0x237 ; "Source could not be displayed:\x0a" 008d e402 | | Load 0x2,0x2 008e e002 | | Load 0x0,0x2 008f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0090 01cc | | Execute Vector,Catenate 0091 01cb | | Execute Vector,Append 0092 8007 | | Call 0x0,0x7 0093 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0094 TRAP_0020: 0094 0007 | | Action Break_Optional 0095 480a |H | Short_Literal 0xa 0096 0092 0238 | 8| Action Push_String_Extended,0x238 ; "Exception raised during command processing: " 0098 e008 | | Load 0x0,0x8 0099 180d | | Execute Package,Field_Execute,Field_Number 0xd 009a 01cc | | Execute Vector,Catenate 009b 01cb | | Execute Vector,Append 009c 8007 | | Call 0x0,0x7 009d 4506 |E | Exit_Suprogram New_Top_Offset 0x6 009e 0000 0000 | | .XXX[0x2] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 e009 | | Load 0x0,0x9 00a4 e00a | | Load 0x0,0xa 00a5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00a6 c009 | | Store 0x0,0x9 00a7 e5f2 | | Load 0x2,-0xe 00a8 e5f3 | | Load 0x2,-0xd 00a9 e5f4 | | Load 0x2,-0xc 00aa e5f5 | | Load 0x2,-0xb 00ab e5f6 | | Load 0x2,-0xa 00ac e5f7 | | Load 0x2,-0x9 00ad e5f8 | | Load 0x2,-0x8 00ae e5f9 | | Load 0x2,-0x7 00af e5fa | | Load 0x2,-0x6 00b0 e5fb | | Load 0x2,-0x5 00b1 e5fc | | Load 0x2,-0x4 00b2 4800 |H | Short_Literal 0x0 00b3 e5fd | | Load 0x2,-0x3 00b4 e5fe | | Load 0x2,-0x2 00b5 e5ff | | Load 0x2,-0x1 00b6 e00b | | Load 0x0,0xb 00b7 e00c | | Load 0x0,0xc 00b8 a00d | | Store_Unchecked 0x0,0xd 00b9 a00e | | Store_Unchecked 0x0,0xe 00ba a00f | | Store_Unchecked 0x0,0xf 00bb a010 | | Store_Unchecked 0x0,0x10 00bc e011 | | Load 0x0,0x11 00bd e012 | | Load 0x0,0x12 00be e013 | | Load 0x0,0x13 00bf e014 | | Load 0x0,0x14 00c0 a015 | | Store_Unchecked 0x0,0x15 00c1 a016 | | Store_Unchecked 0x0,0x16 00c2 a017 | | Store_Unchecked 0x0,0x17 00c3 a018 | | Store_Unchecked 0x0,0x18 00c4 a019 | | Store_Unchecked 0x0,0x19 00c5 a01a | | Store_Unchecked 0x0,0x1a 00c6 a01b | | Store_Unchecked 0x0,0x1b 00c7 a01c | | Store_Unchecked 0x0,0x1c 00c8 a01d | | Store_Unchecked 0x0,0x1d 00c9 a01e | | Store_Unchecked 0x0,0x1e 00ca a01f | | Store_Unchecked 0x0,0x1f 00cb a020 | | Store_Unchecked 0x0,0x20 00cc a021 | ! | Store_Unchecked 0x0,0x21 00cd a022 | " | Store_Unchecked 0x0,0x22 00ce a023 | # | Store_Unchecked 0x0,0x23 00cf a024 | $ | Store_Unchecked 0x0,0x24 00d0 a025 | % | Store_Unchecked 0x0,0x25 00d1 a026 | & | Store_Unchecked 0x0,0x26 00d2 8027 | ' | Call 0x0,0x27 00d3 c5f2 | | Store 0x2,-0xe 00d4 e009 | | Load 0x0,0x9 00d5 e00a | | Load 0x0,0xa 00d6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00d7 c009 | | Store 0x0,0x9 00d8 450e |E | Exit_Suprogram New_Top_Offset 0xe 00d9 0000 0000 | | .BLANK 0000[0x7] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e7 | | .CONST 0x00e7 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0004 | | .CONST 0x0004 ; Number of locals 00e3 INIT_00e0: 00e3 00e3 | | Load_Encached Natural_Cache 00e4 03e9 | | Declare_Variable Discrete,Duplicate 00e5 00e1 | | Load_Encached Boolean_Cache 00e6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00e7 BODY_00e0: 00e7 e5f9 | | Load 0x2,-0x7 00e8 8028 | ( | Call 0x0,0x28 00e9 6805 |h | Jump_Zero 0xef 00ea 4800 |H | Short_Literal 0x0 00eb 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00ec e5fa | | Load 0x2,-0x6 00ed 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 00ee 7819 |x | Jump 0x108 00ef e5f9 | | Load 0x2,-0x7 00f0 8029 | ) | Call 0x0,0x29 00f1 7003 |p | Jump_Nonzero 0xf5 00f2 e5f7 | | Load 0x2,-0x9 00f3 8029 | ) | Call 0x0,0x29 00f4 680a |h | Jump_Zero 0xff 00f5 e5fa | | Load 0x2,-0x6 00f6 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00f7 4800 |H | Short_Literal 0x0 00f8 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 00f9 e5f9 | | Load 0x2,-0x7 00fa 8029 | ) | Call 0x0,0x29 00fb 700c |p | Jump_Nonzero 0x108 00fc 4801 |H | Short_Literal 0x1 00fd 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00fe 7809 |x | Jump 0x108 00ff e5fb | | Load 0x2,-0x5 0100 6803 |h | Jump_Zero 0x104 0101 e5fa | | Load 0x2,-0x6 0102 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0103 7802 |x | Jump 0x106 0104 4800 |H | Short_Literal 0x0 0105 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0106 e5fa | | Load 0x2,-0x6 0107 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0108 e5f3 | | Load 0x2,-0xd 0109 e5f4 | | Load 0x2,-0xc 010a e5f5 | | Load 0x2,-0xb 010b 00db | | Load_Top At_Offset_3 010c e5f6 | | Load 0x2,-0xa 010d e5f7 | | Load 0x2,-0x9 010e e5f8 | | Load 0x2,-0x8 010f e5fc | | Load 0x2,-0x4 0110 e5f9 | | Load 0x2,-0x7 0111 e402 | | Load 0x2,0x2 0112 e403 | | Load 0x2,0x3 0113 e5fd | | Load 0x2,-0x3 0114 e5fe | | Load 0x2,-0x2 0115 e5ff | | Load 0x2,-0x1 0116 820e | | Call 0x1,0xe 0117 c5f3 | | Store 0x2,-0xd 0118 450d |E | Exit_Suprogram New_Top_Offset 0xd 0119 0000 0000 | | .BLANK 0000[0x7] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0132 | 2 | .CONST 0x0132 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0005 | | .CONST 0x0005 ; Number of locals 0123 INIT_0120: 0123 e02a | * | Load 0x0,0x2a 0124 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0125 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0126 02ff | | Declare_Variable Variant_Record 0127 00d8 | | Load_Top At_Offset_0 0128 1c00 | | Execute_Immediate Run_Utility,0x0 0129 e02b | + | Load 0x0,0x2b 012a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 012b 02ff | | Declare_Variable Variant_Record 012c 00d8 | | Load_Top At_Offset_0 012d 1c00 | | Execute_Immediate Run_Utility,0x0 012e e02a | * | Load 0x0,0x2a 012f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0130 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call 0132 BODY_0120: 0132 e5ff | | Load 0x2,-0x1 0133 e02c | , | Load 0x0,0x2c 0134 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0135 6804 |h | Jump_Zero 0x13a 0136 e002 | | Load 0x0,0x2 0137 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0138 c5fe | | Store 0x2,-0x2 0139 4502 |E | Exit_Suprogram New_Top_Offset 0x2 013a e02a | * | Load 0x0,0x2a 013b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013c e402 | | Load 0x2,0x2 013d e5ff | | Load 0x2,-0x1 013e e02a | * | Load 0x0,0x2a 013f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0140 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0141 00d1 | | Pop_Control Pop_Count_1 0142 005a | Z | Store_Top Discrete,At_Offset_2 0143 8405 | | Call 0x2,0x5 0144 4802 |H | Short_Literal 0x2 0145 e5fe | | Load 0x2,-0x2 0146 e002 | | Load 0x0,0x2 0147 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0148 7019 |p | Jump_Nonzero 0x162 0149 e02d | - | Load 0x0,0x2d 014a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 014b e02b | + | Load 0x0,0x2b 014c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 014d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 014e 00db | | Load_Top At_Offset_3 014f 016d | m | Execute Variant_Record,Structure_Write 0150 e02e | . | Load 0x0,0x2e 0151 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0152 4801 |H | Short_Literal 0x1 0153 e402 | | Load 0x2,0x2 0154 e403 | | Load 0x2,0x3 0155 e02f | / | Load 0x0,0x2f 0156 180f | | Execute Package,Field_Execute,Field_Number 0xf 0157 6804 |h | Jump_Zero 0x15c 0158 e002 | | Load 0x0,0x2 0159 1819 | | Execute Package,Field_Execute,Field_Number 0x19 015a c5fe | | Store 0x2,-0x2 015b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 015c e5fe | | Load 0x2,-0x2 015d 0092 0239 | 9| Action Push_String_Extended,0x239 ; "User does not have read access to object" 015f e002 | | Load 0x0,0x2 0160 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0161 c5fe | | Store 0x2,-0x2 0162 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0163 0000 0000 | | .BLANK 0000[0x5] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 017e | ~ | .CONST 0x017e ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0008 | | .CONST 0x0008 ; Number of locals 016b INIT_0168: 016b e030 | 0 | Load 0x0,0x30 016c 0322 | " | Declare_Variable Record 016d 8031 | 1 | Call 0x0,0x31 016e 00d9 | | Load_Top At_Offset_1 016f 017d | } | Execute Record,Structure_Write 0170 00e2 | | Load_Encached Integer_Cache 0171 00ec | | Load_Encached Diana_Tree_Cache 0172 e002 | | Load 0x0,0x2 0173 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0174 02c7 | | Declare_Variable Any 0175 00d8 | | Load_Top At_Offset_0 0176 1c00 | | Execute_Immediate Run_Utility,0x0 0177 e003 | | Load 0x0,0x3 0178 02c7 | | Declare_Variable Any 0179 e032 | 2 | Load 0x0,0x32 017a a406 | | Store_Unchecked 0x2,0x6 017b 00e3 | | Load_Encached Natural_Cache 017c e033 | 3 | Load 0x0,0x33 017d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 017e BODY_0168: 017e 4820 |H | Short_Literal 0x20 017f a5fa | | Store_Unchecked 0x2,-0x6 0180 e005 | | Load 0x0,0x5 0181 c5f9 | | Store 0x2,-0x7 0182 00eb | | Load_Encached Diana_Cache 0183 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0184 a5f7 | | Store_Unchecked 0x2,-0x9 0185 4800 |H | Short_Literal 0x0 0186 a5fc | | Store_Unchecked 0x2,-0x4 0187 8034 | 4 | Call 0x0,0x34 0188 c5f6 | | Store 0x2,-0xa 0189 4800 |H | Short_Literal 0x0 018a a5f5 | | Store_Unchecked 0x2,-0xb 018b e5fe | | Load 0x2,-0x2 018c 00eb | | Load_Encached Diana_Cache 018d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 018e 6827 |h' | Jump_Zero 0x1b6 018f e5f4 | | Load 0x2,-0xc 0190 e402 | | Load 0x2,0x2 0191 00e3 | | Load_Encached Natural_Cache 0192 00eb | | Load_Encached Diana_Cache 0193 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0194 4801 |H | Short_Literal 0x1 0195 4801 |H | Short_Literal 0x1 0196 8031 | 1 | Call 0x0,0x31 0197 e5ff | | Load 0x2,-0x1 0198 8035 | 5 | Call 0x0,0x35 0199 c407 | | Store 0x2,0x7 019a 00d1 | | Pop_Control Pop_Count_1 019b c5f4 | | Store 0x2,-0xc 019c 4802 |H | Short_Literal 0x2 019d e5f4 | | Load 0x2,-0xc 019e e002 | | Load 0x0,0x2 019f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01a0 6801 |h | Jump_Zero 0x1a2 01a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a2 e402 | | Load 0x2,0x2 01a3 8036 | 6 | Call 0x0,0x36 01a4 c5fb | | Store 0x2,-0x5 01a5 e402 | | Load 0x2,0x2 01a6 8037 | 7 | Call 0x0,0x37 01a7 a5fe | | Store_Unchecked 0x2,-0x2 01a8 e402 | | Load 0x2,0x2 01a9 8038 | 8 | Call 0x0,0x38 01aa a5fc | | Store_Unchecked 0x2,-0x4 01ab e402 | | Load 0x2,0x2 01ac 8039 | 9 | Call 0x0,0x39 01ad 0f07 | | Execute_Immediate Equal,0x7 01ae 7003 |p | Jump_Nonzero 0x1b2 01af e005 | | Load 0x0,0x5 01b0 c5f8 | | Store 0x2,-0x8 01b1 7808 |x | Jump 0x1ba 01b2 e402 | | Load 0x2,0x2 01b3 803a | : | Call 0x0,0x3a 01b4 c5f8 | | Store 0x2,-0x8 01b5 7804 |x | Jump 0x1ba 01b6 e032 | 2 | Load 0x0,0x32 01b7 c5fb | | Store 0x2,-0x5 01b8 4800 |H | Short_Literal 0x0 01b9 a5fc | | Store_Unchecked 0x2,-0x4 01ba 00db | | Load_Top At_Offset_3 01bb 00db | | Load_Top At_Offset_3 01bc 0120 | | Execute Any,Is_Value 01bd 6802 |h | Jump_Zero 0x1c0 01be e003 | | Load 0x0,0x3 01bf 7801 |x | Jump 0x1c1 01c0 00db | | Load_Top At_Offset_3 01c1 e5f9 | | Load 0x2,-0x7 01c2 0120 | | Execute Any,Is_Value 01c3 6802 |h | Jump_Zero 0x1c6 01c4 e004 | | Load 0x0,0x4 01c5 7801 |x | Jump 0x1c7 01c6 e5f9 | | Load 0x2,-0x7 01c7 00ec | | Load_Encached Diana_Tree_Cache 01c8 00ec | | Load_Encached Diana_Tree_Cache 01c9 00e2 | | Load_Encached Integer_Cache 01ca e5ff | | Load 0x2,-0x1 01cb 803b | ; | Call 0x0,0x3b 01cc c403 | | Store 0x2,0x3 01cd c404 | | Store 0x2,0x4 01ce c5f7 | | Store 0x2,-0x9 01cf c5f9 | | Store 0x2,-0x7 01d0 c406 | | Store 0x2,0x6 01d1 c405 | | Store 0x2,0x5 01d2 4802 |H | Short_Literal 0x2 01d3 e405 | | Load 0x2,0x5 01d4 e002 | | Load 0x0,0x2 01d5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01d6 7008 |p | Jump_Nonzero 0x1df 01d7 e403 | | Load 0x2,0x3 01d8 0f01 | | Execute_Immediate Equal,0x1 01d9 6803 |h | Jump_Zero 0x1dd 01da 482a |H* | Short_Literal 0x2a 01db a5fa | | Store_Unchecked 0x2,-0x6 01dc 7802 |x | Jump 0x1df 01dd 4823 |H# | Short_Literal 0x23 01de a5fa | | Store_Unchecked 0x2,-0x6 01df 00db | | Load_Top At_Offset_3 01e0 00e3 | | Load_Encached Natural_Cache 01e1 e5f6 | | Load 0x2,-0xa 01e2 0120 | | Execute Any,Is_Value 01e3 6802 |h | Jump_Zero 0x1e6 01e4 e006 | | Load 0x0,0x6 01e5 7801 |x | Jump 0x1e7 01e6 e5f6 | | Load 0x2,-0xa 01e7 e5ff | | Load 0x2,-0x1 01e8 803c | < | Call 0x0,0x3c 01e9 c5f6 | | Store 0x2,-0xa 01ea c5f5 | | Store 0x2,-0xb 01eb c405 | | Store 0x2,0x5 01ec e5fe | | Load 0x2,-0x2 01ed e02c | , | Load 0x0,0x2c 01ee 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01ef 680d |h | Jump_Zero 0x1fd 01f0 e5fb | | Load 0x2,-0x5 01f1 e5fe | | Load 0x2,-0x2 01f2 e03d | = | Load 0x0,0x3d 01f3 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 01f4 a5fd | | Store_Unchecked 0x2,-0x3 01f5 e402 | | Load 0x2,0x2 01f6 8038 | 8 | Call 0x0,0x38 01f7 a5fc | | Store_Unchecked 0x2,-0x4 01f8 e5f4 | | Load 0x2,-0xc 01f9 e5fe | | Load 0x2,-0x2 01fa 8210 | | Call 0x1,0x10 01fb c5f4 | | Store 0x2,-0xc 01fc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01fd 0092 023a | :| Action Push_String_Extended,0x23a ; "The debugger can only DISPLAY an ADA unit; we'll perform the DEFINITION command on this non-ADA unit.\x0a" 01ff 8007 | | Call 0x0,0x7 0200 e033 | 3 | Load 0x0,0x33 0201 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0202 4800 |H | Short_Literal 0x0 0203 4802 |H | Short_Literal 0x2 0204 e5fe | | Load 0x2,-0x2 0205 e033 | 3 | Load 0x0,0x33 0206 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0207 0059 | Y | Store_Top Discrete,At_Offset_1 0208 00d8 | | Load_Top At_Offset_0 0209 680d |h | Jump_Zero 0x217 020a e5f4 | | Load 0x2,-0xc 020b 0092 023b | ;| Action Push_String_Extended,0x23b ; "DEFINITION failed - " 020d 00da | | Load_Top At_Offset_2 020e e033 | 3 | Load 0x0,0x33 020f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0210 011c | | Execute Any,Convert_Unchecked 0211 1c01 | | Execute_Immediate Run_Utility,0x1 0212 01cc | | Execute Vector,Catenate 0213 e002 | | Load 0x0,0x2 0214 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0215 c5f4 | | Store 0x2,-0xc 0216 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0217 e5f4 | | Load 0x2,-0xc 0218 0092 023c | <| Action Push_String_Extended,0x23c ; "See result of DEFINITION command" 021a e002 | | Load 0x0,0x2 021b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 021c c5f4 | | Store 0x2,-0xc 021d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 021e 0000 0000 | | .XXX[0x2] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 e404 | | Load 0x2,0x4 0224 680d |h | Jump_Zero 0x232 0225 e5fe | | Load 0x2,-0x2 0226 0092 023d | =| Action Push_String_Extended,0x23d ; "Unable to check for read access to object due to directory error " 0228 e404 | | Load 0x2,0x4 0229 e02a | * | Load 0x0,0x2a 022a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 022b 011c | | Execute Any,Convert_Unchecked 022c 1c01 | | Execute_Immediate Run_Utility,0x1 022d 01cc | | Execute Vector,Catenate 022e e002 | | Load 0x0,0x2 022f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0230 c5fe | | Store 0x2,-0x2 0231 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0232 e002 | | Load 0x0,0x2 0233 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0234 c5fe | | Store 0x2,-0x2 0235 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0236 ; -------------------------------------------------------------------------------------- 0236 ; STRING TABLE 0236 ; -------------------------------------------------------------------------------------- 0236 0012 | | .STRTAB 0x0012->0x023f ; "Invalid location specified:\x0a" 0237 002c | , | .STRTAB 0x002c->0x024d ; "Source could not be displayed:\x0a" 0238 0049 | I | .STRTAB 0x0049->0x025c ; "Exception raised during command processing: " 0239 0073 | s | .STRTAB 0x0073->0x0272 ; "User does not have read access to object" 023a 0099 | | .STRTAB 0x0099->0x0286 ; "The debugger can only DISPLAY an ADA unit; we'll perform the DEFINITION command on this non-ADA unit.\x0a" 023b 00fd | | .STRTAB 0x00fd->0x02b9 ; "DEFINITION failed - " 023c 010f | | .STRTAB 0x010f->0x02c3 ; "See result of DEFINITION command" 023d 012d | - | .STRTAB 0x012d->0x02d3 ; "Unable to check for read access to object due to directory error " 023e 016c | l | .STREND 0x016c->0x02f4 023f 496e 7661 |Inva| .STRTAB_STRINGS 02f4 0000 0000 | | .BLANK 0000[0x4] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; Debug Table 02f8 ; -------------------------------------------------------------------------------------- 02f8 0004 000d | | .DEBUG4 0x0004,0x000d,0x2bf5,0x0000,0x0001,0x0000 02fe 0000 0000 | | .BLANK 0000[0x102]