|
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_03b8fe, seg_03c0fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧ └─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 03c8 | | .CONST 0x03c8 ; 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 0051 | Q | .CONST 0x0051 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0017 | | .CONST 0x0017 ; Number of locals 000b INIT_0008: 000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000d 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 000f 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 0011 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0013 00bf | | Action Accept_Activation 0014 4800 |H | Short_Literal 0x0 0015 4806 |H | Short_Literal 0x6 0016 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call 0018 03fd | | Declare_Type Discrete,Defined 0019 0093 0000 | | push_full_address 0x0 001b 616c |al | Indirect_Literal Discrete,0x188,{0x80000000, 0x00010000} 001c 0273 | s | Execute Discrete,Plus 001d 0007 | | Action Break_Optional 001e 0093 0000 | | push_full_address 0x0 0020 6163 |ac | Indirect_Literal Discrete,0x184,{0x80000000, 0x00020000} 0021 0273 | s | Execute Discrete,Plus 0022 0007 | | Action Break_Optional 0023 4800 |H | Short_Literal 0x0 0024 4802 |H | Short_Literal 0x2 0025 e001 | | Load 0x0,0x1 0026 01d7 | | Execute Vector,Field_Read 0027 02a0 | | Declare_Subprogram Null_Subprogram 0028 038e | | Declare_Type Package,Defined 0029 e001 | | Load 0x0,0x1 002a 4801 |H | Short_Literal 0x1 002b e001 | | Load 0x0,0x1 002c 01d7 | | Execute Vector,Field_Read 002d 4802 |H | Short_Literal 0x2 002e 00db | | Load_Top At_Offset_3 002f 020e | | Execute Module,Augment_Imports 0030 0387 | | Declare_Variable Package 0031 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call 0033 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call 0035 029d 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call 0037 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0038 00c7 | | Action Elaborate_Subprogram 0039 1d0e | | Execute_Immediate Reference_Lex_1,0xe 003a 00c7 | | Action Elaborate_Subprogram 003b 1d0f | | Execute_Immediate Reference_Lex_1,0xf 003c 00c7 | | Action Elaborate_Subprogram 003d 1d10 | | Execute_Immediate Reference_Lex_1,0x10 003e 00c7 | | Action Elaborate_Subprogram 003f e002 | | Load 0x0,0x2 0040 e003 | | Load 0x0,0x3 0041 e004 | | Load 0x0,0x4 0042 e213 | | Load 0x1,0x13 0043 e212 | | Load 0x1,0x12 0044 e005 | | Load 0x0,0x5 0045 e006 | | Load 0x0,0x6 0046 e007 | | Load 0x0,0x7 0047 a008 | | Store_Unchecked 0x0,0x8 0048 e009 | | Load 0x0,0x9 0049 e00a | | Load 0x0,0xa 004a e00b | | Load 0x0,0xb 004b e00c | | Load 0x0,0xc 004c 480d |H | Short_Literal 0xd 004d e214 | | Load 0x1,0x14 004e 020e | | Execute Module,Augment_Imports 004f 00db | | Load_Top At_Offset_3 0050 020f | | Execute Module,Activate 0051 BODY_0008: 0051 00bc | | Action Signal_Activated 0052 00bb | | Action Signal_Completion 0053 0000 0000 | | .BLANK 0000[0x5] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 008b | | .CONST 0x008b ; Address of begin 0059 016d | m | .CONST 0x016d ; Address of exception handler 005a 0014 | | .CONST 0x0014 ; Number of locals 005b INIT_0058: 005b 00e5 | | Load_Encached Long_Integer_Cache 005c 00e5 | | Load_Encached Long_Integer_Cache 005d 00e3 | | Load_Encached Natural_Cache 005e 00e3 | | Load_Encached Natural_Cache 005f e211 | | Load 0x1,0x11 0060 0007 | | Action Break_Optional 0061 e00d | | Load 0x0,0xd 0062 02c7 | | Declare_Variable Any 0063 00d8 | | Load_Top At_Offset_0 0064 1c00 | | Execute_Immediate Run_Utility,0x0 0065 e007 | | Load 0x0,0x7 0066 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0067 e007 | | Load 0x0,0x7 0068 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0069 02c7 | | Declare_Variable Any 006a 00d8 | | Load_Top At_Offset_0 006b 1c00 | | Execute_Immediate Run_Utility,0x0 006c e007 | | Load 0x0,0x7 006d 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 006e 0322 | " | Declare_Variable Record 006f e214 | | Load 0x1,0x14 0070 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0071 0337 | 7 | Declare_Variable Array 0072 00e3 | | Load_Encached Natural_Cache 0073 00e3 | | Load_Encached Natural_Cache 0074 00e3 | | Load_Encached Natural_Cache 0075 00e2 | | Load_Encached Integer_Cache 0076 00e3 | | Load_Encached Natural_Cache 0077 e00e | | Load 0x0,0xe 0078 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0079 02c7 | | Declare_Variable Any 007a 00d8 | | Load_Top At_Offset_0 007b 1c00 | | Execute_Immediate Run_Utility,0x0 007c e00f | | Load 0x0,0xf 007d 4808 |H | Short_Literal 0x8 007e e010 | | Load 0x0,0x10 007f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0080 00e1 | | Load_Encached Boolean_Cache 0081 03f1 | | Declare_Variable Discrete,With_Value 0082 e00f | | Load 0x0,0xf 0083 0092 02d1 | | Action Push_String_Extended,0x2d1 ; "Interpret_import_Words" 0085 e010 | | Load 0x0,0x10 0086 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0087 00e1 | | Load_Encached Boolean_Cache 0088 03f1 | | Declare_Variable Discrete,With_Value 0089 029f 029b | | Declare_Subprogram INIT_0298,For_Call 008b BODY_0058: 008b e5fe | | Load 0x2,-0x2 008c 8216 | | Call 0x1,0x16 008d a405 | | Store_Unchecked 0x2,0x5 008e 00db | | Load_Top At_Offset_3 008f e211 | | Load 0x1,0x11 0090 e5fd | | Load 0x2,-0x3 0091 8215 | | Call 0x1,0x15 0092 c406 | | Store 0x2,0x6 0093 c411 | | Store 0x2,0x11 0094 4802 |H | Short_Literal 0x2 0095 e411 | | Load 0x2,0x11 0096 e00e | | Load 0x0,0xe 0097 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0098 6807 |h | Jump_Zero 0xa0 0099 480a |H | Short_Literal 0xa 009a e411 | | Load 0x2,0x11 009b e00e | | Load 0x0,0xe 009c 1820 | | Execute Package,Field_Execute,Field_Number 0x20 009d 01cb | | Execute Vector,Append 009e 8011 | | Call 0x0,0x11 009f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00a0 8414 | | Call 0x2,0x14 00a1 e406 | | Load 0x2,0x6 00a2 4606 |F | Jump_Case 0x7 00a3 780b |x | Jump 0xaf ; case 0x0 00a4 78b4 |x | Jump 0x159 ; case 0x1 00a5 78bb |x | Jump 0x161 ; case 0x2 00a6 78ba |x | Jump 0x161 ; case 0x3 00a7 7846 |xF | Jump 0xee ; case 0x4 00a8 78bf |x | Jump 0x168 ; case 0x5 00a9 7800 |x | Jump 0xaa ; case 0x6 00aa 0092 02d2 | | Action Push_String_Extended,0x2d2 ; "Display of System memory not implemented" 00ac 8008 | | Call 0x0,0x8 00ad 8012 | | Call 0x0,0x12 00ae 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00af e402 | | Load 0x2,0x2 00b0 e003 | | Load 0x0,0x3 00b1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 00b2 c409 | | Store 0x2,0x9 00b3 00cf | | Action Mark_Auxiliary 00b4 e405 | | Load 0x2,0x5 00b5 0aff | | Execute_Immediate Plus,-0x1 00b6 4800 |H | Short_Literal 0x0 00b7 0263 | c | Execute Discrete,Above_Bound 00b8 7033 |p3 | Jump_Nonzero 0xec 00b9 e404 | | Load 0x2,0x4 00ba 00d9 | | Load_Top At_Offset_1 00bb 0273 | s | Execute Discrete,Plus 00bc 00d8 | | Load_Top At_Offset_0 00bd e007 | | Load 0x0,0x7 00be 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 00bf 0260 | ` | Execute Discrete,In_Type 00c0 7001 |p | Jump_Nonzero 0xc2 00c1 0801 | | Execute_Immediate Raise,0x1 00c2 e409 | | Load 0x2,0x9 00c3 e007 | | Load 0x0,0x7 00c4 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 00c5 e40a | | Load 0x2,0xa 00c6 017d | } | Execute Record,Structure_Write 00c7 e404 | | Load 0x2,0x4 00c8 00d9 | | Load_Top At_Offset_1 00c9 0273 | s | Execute Discrete,Plus 00ca 00d8 | | Load_Top At_Offset_0 00cb e007 | | Load 0x0,0x7 00cc 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 00cd 0260 | ` | Execute Discrete,In_Type 00ce 7001 |p | Jump_Nonzero 0xd0 00cf 0801 | | Execute_Immediate Raise,0x1 00d0 e409 | | Load 0x2,0x9 00d1 e007 | | Load 0x0,0x7 00d2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 00d3 e007 | | Load 0x0,0x7 00d4 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 00d5 e003 | | Load 0x0,0x3 00d6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00d7 8008 | | Call 0x0,0x8 00d8 8012 | | Call 0x0,0x12 00d9 480a |H | Short_Literal 0xa 00da e412 | | Load 0x2,0x12 00db e404 | | Load 0x2,0x4 00dc 00db | | Load_Top At_Offset_3 00dd 0273 | s | Execute Discrete,Plus 00de e007 | | Load 0x0,0x7 00df 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 00e0 00d9 | | Load_Top At_Offset_1 00e1 00d0 | | Action Swap_Control 00e2 0260 | ` | Execute Discrete,In_Type 00e3 7001 |p | Jump_Nonzero 0xe5 00e4 0801 | | Execute_Immediate Raise,0x1 00e5 e40a | | Load 0x2,0xa 00e6 e003 | | Load 0x0,0x3 00e7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00e8 01cb | | Execute Vector,Append 00e9 8008 | | Call 0x0,0x8 00ea 00c8 | | Action Pop_Auxiliary_Range 00eb 3fcd |? | Loop_Increasing 0xb9 00ec 00ce | | Action Pop_Auxiliary 00ed 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00ee e402 | | Load 0x2,0x2 00ef e003 | | Load 0x0,0x3 00f0 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 00f1 c409 | | Store 0x2,0x9 00f2 4800 |H | Short_Literal 0x0 00f3 a40d | | Store_Unchecked 0x2,0xd 00f4 e404 | | Load 0x2,0x4 00f5 a40e | | Store_Unchecked 0x2,0xe 00f6 4fff |O | Short_Literal -0x1 00f7 a40f | | Store_Unchecked 0x2,0xf 00f8 4800 |H | Short_Literal 0x0 00f9 a40c | | Store_Unchecked 0x2,0xc 00fa 00cf | | Action Mark_Auxiliary 00fb 8013 | | Call 0x0,0x13 00fc 705a |pZ | Jump_Nonzero 0x157 00fd e40d | | Load 0x2,0xd 00fe e405 | | Load 0x2,0x5 00ff 027b | { | Execute Discrete,Greater_Equal 0100 7056 |pV | Jump_Nonzero 0x157 0101 e40c | | Load 0x2,0xc 0102 e40f | | Load 0x2,0xf 0103 027d | } | Execute Discrete,Greater 0104 680d |h | Jump_Zero 0x112 0105 e214 | | Load 0x1,0x14 0106 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0107 e40b | | Load 0x2,0xb 0108 e406 | | Load 0x2,0x6 0109 e404 | | Load 0x2,0x4 010a 0907 | | Execute_Immediate Binary_Scale,0x7 010b e402 | | Load 0x2,0x2 010c e214 | | Load 0x1,0x14 010d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 010e 00d1 | | Pop_Control Pop_Count_1 010f c40c | | Store 0x2,0xc 0110 483f |H? | Short_Literal 0x3f 0111 a40f | | Store_Unchecked 0x2,0xf 0112 e40e | | Load 0x2,0xe 0113 e007 | | Load 0x0,0x7 0114 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0115 00d9 | | Load_Top At_Offset_1 0116 00d0 | | Action Swap_Control 0117 0260 | ` | Execute Discrete,In_Type 0118 7001 |p | Jump_Nonzero 0x11a 0119 0801 | | Execute_Immediate Raise,0x1 011a e409 | | Load 0x2,0x9 011b e007 | | Load 0x0,0x7 011c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 011d e007 | | Load 0x0,0x7 011e 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 011f e003 | | Load 0x0,0x3 0120 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0121 8008 | | Call 0x0,0x8 0122 8012 | | Call 0x0,0x12 0123 e40e | | Load 0x2,0xe 0124 700c |p | Jump_Nonzero 0x131 0125 e40c | | Load 0x2,0xc 0126 00d8 | | Load_Top At_Offset_0 0127 e214 | | Load 0x1,0x14 0128 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0129 0260 | ` | Execute Discrete,In_Type 012a 7001 |p | Jump_Nonzero 0x12c 012b 0801 | | Execute_Immediate Raise,0x1 012c e40b | | Load 0x2,0xb 012d 01d5 | | Execute Vector,Field_Reference 012e e214 | | Load 0x1,0x14 012f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0130 781b |x | Jump 0x14c 0131 480a |H | Short_Literal 0xa 0132 00db | | Load_Top At_Offset_3 0133 e40e | | Load 0x2,0xe 0134 e007 | | Load 0x0,0x7 0135 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0136 00d9 | | Load_Top At_Offset_1 0137 00d0 | | Action Swap_Control 0138 0260 | ` | Execute Discrete,In_Type 0139 7001 |p | Jump_Nonzero 0x13b 013a 0801 | | Execute_Immediate Raise,0x1 013b e40c | | Load 0x2,0xc 013c 00d8 | | Load_Top At_Offset_0 013d e214 | | Load 0x1,0x14 013e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013f 0260 | ` | Execute Discrete,In_Type 0140 7001 |p | Jump_Nonzero 0x142 0141 0801 | | Execute_Immediate Raise,0x1 0142 e40b | | Load 0x2,0xb 0143 01d5 | | Execute Vector,Field_Reference 0144 e214 | | Load 0x1,0x14 0145 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0146 e214 | | Load 0x1,0x14 0147 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0148 e003 | | Load 0x0,0x3 0149 1810 | | Execute Package,Field_Execute,Field_Number 0x10 014a 01cb | | Execute Vector,Append 014b 8008 | | Call 0x0,0x8 014c e40d | | Load 0x2,0xd 014d 0a01 | | Execute_Immediate Plus,0x1 014e c40d | | Store 0x2,0xd 014f e40e | | Load 0x2,0xe 0150 0a01 | | Execute_Immediate Plus,0x1 0151 c40e | | Store 0x2,0xe 0152 e40c | | Load 0x2,0xc 0153 0a01 | | Execute_Immediate Plus,0x1 0154 c40c | | Store 0x2,0xc 0155 00c9 | | Action Pop_Auxiliary_Loop 0156 7fa4 | | Jump 0xfb 0157 00ce | | Action Pop_Auxiliary 0158 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0159 e5fe | | Load 0x2,-0x2 015a e406 | | Load 0x2,0x6 015b e404 | | Load 0x2,0x4 015c 0907 | | Execute_Immediate Binary_Scale,0x7 015d e402 | | Load 0x2,0x2 015e e214 | | Load 0x1,0x14 015f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0160 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0161 e5fe | | Load 0x2,-0x2 0162 e406 | | Load 0x2,0x6 0163 e404 | | Load 0x2,0x4 0164 e402 | | Load 0x2,0x2 0165 e214 | | Load 0x1,0x14 0166 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0167 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0168 e405 | | Load 0x2,0x5 0169 e404 | | Load 0x2,0x4 016a e402 | | Load 0x2,0x2 016b 8217 | | Call 0x1,0x17 016c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 016d TRAP_0058: 016d e212 | | Load 0x1,0x12 016e 010f | | Execute Exception,Equal 016f 7003 |p | Jump_Nonzero 0x173 0170 e213 | | Load 0x1,0x13 0171 010f | | Execute Exception,Equal 0172 6805 |h | Jump_Zero 0x178 0173 0092 02d3 | | Action Push_String_Extended,0x2d3 ; "Page does not exist" 0175 8008 | | Call 0x0,0x8 0176 8012 | | Call 0x0,0x12 0177 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0178 480a |H | Short_Literal 0xa 0179 0092 02d4 | | Action Push_String_Extended,0x2d4 ; "Exception raised in Display_Memory: " 017b e014 | | Load 0x0,0x14 017c 180d | | Execute Package,Field_Execute,Field_Number 0xd 017d 01cc | | Execute Vector,Catenate 017e 01cb | | Execute Vector,Append 017f 8011 | | Call 0x0,0x11 0180 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0181 0000 0000 | | .XXX[0x3] 0183 0000 | | 0184 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 0188 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 018c 0000 0000 | | .BLANK 0000[0x4] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0194 0000 0000 | | .BLANK 0000[0x4] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 0092 02d5 | | Action Push_String_Extended,0x2d5 ; "Not implemented.\x0a" 019d 8011 | | Call 0x0,0x11 019e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 019f 0000 | | .XXX[0x1] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 0092 02d5 | | Action Push_String_Extended,0x2d5 ; "Not implemented.\x0a" 01a5 8011 | | Call 0x0,0x11 01a6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01a7 0000 | | .XXX[0x1] 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 4607 |F | Jump_Case 0x8 01ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01ad 7807 |x | Jump 0x1b5 ; case 0x1 01ae 780a |x | Jump 0x1b9 ; case 0x2 01af 780e |x | Jump 0x1be ; case 0x3 01b0 7811 |x | Jump 0x1c2 ; case 0x4 01b1 7812 |x | Jump 0x1c4 ; case 0x5 01b2 7813 |x | Jump 0x1c6 ; case 0x6 01b3 7816 |x | Jump 0x1ca ; case 0x7 01b4 4302 |C | .XXX[0x1] 01b5 00da | | Load_Top At_Offset_2 01b6 0091 02ca | | Action Push_String_Extended_Indexed,0x2ca ; "CONTROL" 01b8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01b9 00db | | Load_Top At_Offset_3 01ba 00db | | Load_Top At_Offset_3 01bb 00e0 | | Load_Encached Standard_Cache 01bc 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01be 00da | | Load_Top At_Offset_2 01bf 00e0 | | Load_Encached Standard_Cache 01c0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01c1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01c2 00db | | Load_Top At_Offset_3 01c3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01c4 00db | | Load_Top At_Offset_3 01c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01c6 e211 | | Load 0x1,0x11 01c7 00dc | | Load_Top At_Offset_4 01c8 0267 | g | Execute Discrete,Predecessor 01c9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ca e211 | | Load 0x1,0x11 01cb 00dc | | Load_Top At_Offset_4 01cc 0268 | h | Execute Discrete,Successor 01cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ce 0000 0000 | | .XXX[0x2] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 01dc | | .CONST 0x01dc ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 00da | | Load_Top At_Offset_2 01d4 e211 | | Load 0x1,0x11 01d5 1c02 | | Execute_Immediate Run_Utility,0x2 01d6 a5fe | | Store_Unchecked 0x2,-0x2 01d7 e5fd | | Load 0x2,-0x3 01d8 e00e | | Load 0x0,0xe 01d9 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01da c5fd | | Store 0x2,-0x3 01db 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01dc TRAP_01d0: 01dc 010e | | Execute Exception,Is_Constraint_Error 01dd 6809 |h | Jump_Zero 0x1e7 01de 4800 |H | Short_Literal 0x0 01df a5fe | | Store_Unchecked 0x2,-0x2 01e0 e5fd | | Load 0x2,-0x3 01e1 0092 02d6 | | Action Push_String_Extended,0x2d6 ; "Parameter is invalid: Format parameter must be one of CONTROL, TYP, QUEUE, DATA, IMPORT, CODE or SYSTEM" 01e3 e00e | | Load 0x0,0xe 01e4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01e5 c5fd | | Store 0x2,-0x3 01e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01e7 0100 | | Execute Exception,Raise 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01ee | | .CONST 0x01ee ; Address of begin 01e9 01fb | | .CONST 0x01fb ; Address of exception handler 01ea 0002 | | .CONST 0x0002 ; Number of locals 01eb INIT_01e8: 01eb 00da | | Load_Top At_Offset_2 01ec 00e3 | | Load_Encached Natural_Cache 01ed 03f1 | | Declare_Variable Discrete,With_Value 01ee BODY_01e8: 01ee 00d8 | | Load_Top At_Offset_0 01ef 7005 |p | Jump_Nonzero 0x1f5 01f0 e00f | | Load 0x0,0xf 01f1 4807 |H | Short_Literal 0x7 01f2 e010 | | Load 0x0,0x10 01f3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01f4 0059 | Y | Store_Top Discrete,At_Offset_1 01f5 00d8 | | Load_Top At_Offset_0 01f6 7002 |p | Jump_Nonzero 0x1f9 01f7 4803 |H | Short_Literal 0x3 01f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f9 00d8 | | Load_Top At_Offset_0 01fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01fb TRAP_01e8: 01fb 0007 | | Action Break_Optional 01fc 4803 |H | Short_Literal 0x3 01fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01fe 0000 0000 | | .XXX[0x2] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0218 | | .CONST 0x0218 ; Address of begin 0201 0284 | | .CONST 0x0284 ; Address of exception handler 0202 0008 | | .CONST 0x0008 ; Number of locals 0203 INIT_0200: 0203 00da | | Load_Top At_Offset_2 0204 00d8 | | Load_Top At_Offset_0 0205 e004 | | Load 0x0,0x4 0206 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0207 0260 | ` | Execute Discrete,In_Type 0208 7001 |p | Jump_Nonzero 0x20a 0209 0801 | | Execute_Immediate Raise,0x1 020a e007 | | Load 0x0,0x7 020b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 020c 03f1 | | Declare_Variable Discrete,With_Value 020d e007 | | Load 0x0,0x7 020e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 020f e007 | | Load 0x0,0x7 0210 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0211 e007 | | Load 0x0,0x7 0212 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0213 e007 | | Load 0x0,0x7 0214 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0215 00e1 | | Load_Encached Boolean_Cache 0216 00e3 | | Load_Encached Natural_Cache 0217 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0218 BODY_0200: 0218 00cf | | Action Mark_Auxiliary 0219 7865 |xe | Jump 0x27f 021a e5fe | | Load 0x2,-0x2 021b 00da | | Load_Top At_Offset_2 021c 0273 | s | Execute Discrete,Plus 021d 00d8 | | Load_Top At_Offset_0 021e e007 | | Load 0x0,0x7 021f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0220 0260 | ` | Execute Discrete,In_Type 0221 7001 |p | Jump_Nonzero 0x223 0222 0801 | | Execute_Immediate Raise,0x1 0223 e402 | | Load 0x2,0x2 0224 e007 | | Load 0x0,0x7 0225 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0226 a404 | | Store_Unchecked 0x2,0x4 0227 e404 | | Load 0x2,0x4 0228 e007 | | Load 0x0,0x7 0229 1815 | | Execute Package,Field_Execute,Field_Number 0x15 022a a403 | | Store_Unchecked 0x2,0x3 022b e403 | | Load 0x2,0x3 022c 8015 | | Call 0x0,0x15 022d 6815 |h | Jump_Zero 0x243 022e e5fe | | Load 0x2,-0x2 022f 00da | | Load_Top At_Offset_2 0230 0273 | s | Execute Discrete,Plus 0231 0a01 | | Execute_Immediate Plus,0x1 0232 00d8 | | Load_Top At_Offset_0 0233 e007 | | Load 0x0,0x7 0234 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0235 0260 | ` | Execute Discrete,In_Type 0236 7001 |p | Jump_Nonzero 0x238 0237 0801 | | Execute_Immediate Raise,0x1 0238 e402 | | Load 0x2,0x2 0239 e007 | | Load 0x0,0x7 023a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 023b a406 | | Store_Unchecked 0x2,0x6 023c 00db | | Load_Top At_Offset_3 023d e007 | | Load 0x0,0x7 023e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 023f a405 | | Store_Unchecked 0x2,0x5 0240 4801 |H | Short_Literal 0x1 0241 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0242 7804 |x | Jump 0x247 0243 4800 |H | Short_Literal 0x0 0244 a405 | | Store_Unchecked 0x2,0x5 0245 4800 |H | Short_Literal 0x0 0246 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0247 e404 | | Load 0x2,0x4 0248 e003 | | Load 0x0,0x3 0249 1811 | | Execute Package,Field_Execute,Field_Number 0x11 024a 0092 02d7 | | Action Push_String_Extended,0x2d7 ; ": #" 024c 01cc | | Execute Vector,Catenate 024d 4830 |H0 | Short_Literal 0x30 024e 4804 |H | Short_Literal 0x4 024f 4810 |H | Short_Literal 0x10 0250 e403 | | Load 0x2,0x3 0251 e006 | | Load 0x0,0x6 0252 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0253 01cc | | Execute Vector,Catenate 0254 0092 02d8 | | Action Push_String_Extended,0x2d8 ; " " 0256 01cc | | Execute Vector,Catenate 0257 8008 | | Call 0x0,0x8 0258 480a |H | Short_Literal 0xa 0259 e405 | | Load 0x2,0x5 025a e5fe | | Load 0x2,-0x2 025b e408 | | Load 0x2,0x8 025c 0273 | s | Execute Discrete,Plus 025d 00d8 | | Load_Top At_Offset_0 025e 00e3 | | Load_Encached Natural_Cache 025f 0260 | ` | Execute Discrete,In_Type 0260 7001 |p | Jump_Nonzero 0x262 0261 0801 | | Execute_Immediate Raise,0x1 0262 e403 | | Load 0x2,0x3 0263 8016 | | Call 0x0,0x16 0264 01cb | | Execute Vector,Append 0265 8008 | | Call 0x0,0x8 0266 00da | | Load_Top At_Offset_2 0267 6813 |h | Jump_Zero 0x27b 0268 480a |H | Short_Literal 0xa 0269 e406 | | Load 0x2,0x6 026a e003 | | Load 0x0,0x3 026b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 026c 0092 02d7 | | Action Push_String_Extended,0x2d7 ; ": #" 026e 01cc | | Execute Vector,Catenate 026f 4830 |H0 | Short_Literal 0x30 0270 4804 |H | Short_Literal 0x4 0271 4810 |H | Short_Literal 0x10 0272 e405 | | Load 0x2,0x5 0273 e006 | | Load 0x0,0x6 0274 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0275 01cc | | Execute Vector,Catenate 0276 01cb | | Execute Vector,Append 0277 8008 | | Call 0x0,0x8 0278 00d9 | | Load_Top At_Offset_1 0279 0a01 | | Execute_Immediate Plus,0x1 027a 005a | Z | Store_Top Discrete,At_Offset_2 027b 00d9 | | Load_Top At_Offset_1 027c 0a01 | | Execute_Immediate Plus,0x1 027d 005a | Z | Store_Top Discrete,At_Offset_2 027e 00c9 | | Action Pop_Auxiliary_Loop 027f 00d9 | | Load_Top At_Offset_1 0280 e5fd | | Load 0x2,-0x3 0281 027c | | | Execute Discrete,Less 0282 7797 |w | Jump_Nonzero 0x21a 0283 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0284 TRAP_0200: 0284 e007 | | Load 0x0,0x7 0285 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0286 010f | | Execute Exception,Equal 0287 680a |h | Jump_Zero 0x292 0288 00d9 | | Load_Top At_Offset_1 0289 7004 |p | Jump_Nonzero 0x28e 028a 0092 02d9 | | Action Push_String_Extended,0x2d9 ; "The address specified was beyond the end of the code segment.\x0a" 028c 8011 | | Call 0x0,0x11 028d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 028e 0092 02da | | Action Push_String_Extended,0x2da ; "--- end of code segment --- \x0a" 0290 8008 | | Call 0x0,0x8 0291 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0292 0100 | | Execute Exception,Raise 0293 0000 0000 | | .BLANK 0000[0x5] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 02aa | | .CONST 0x02aa ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b 00e5 | | Load_Encached Long_Integer_Cache 029c 00e5 | | Load_Encached Long_Integer_Cache 029d 4800 |H | Short_Literal 0x0 029e e5ff | | Load 0x2,-0x1 029f 8017 | | Call 0x0,0x17 02a0 c402 | | Store 0x2,0x2 02a1 c403 | | Store 0x2,0x3 02a2 e403 | | Load 0x2,0x3 02a3 00d8 | | Load_Top At_Offset_0 02a4 00e3 | | Load_Encached Natural_Cache 02a5 0260 | ` | Execute Discrete,In_Type 02a6 7001 |p | Jump_Nonzero 0x2a8 02a7 0801 | | Execute_Immediate Raise,0x1 02a8 a404 | | Store_Unchecked 0x2,0x4 02a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02aa TRAP_0298: 02aa 0007 | | Action Break_Optional 02ab e407 | | Load 0x2,0x7 02ac 0120 | | Execute Any,Is_Value 02ad 6802 |h | Jump_Zero 0x2b0 02ae e00d | | Load 0x0,0xd 02af 7801 |x | Jump 0x2b1 02b0 e407 | | Load 0x2,0x7 02b1 e5ff | | Load 0x2,-0x1 02b2 8018 | | Call 0x0,0x18 02b3 c407 | | Store 0x2,0x7 02b4 e407 | | Load 0x2,0x7 02b5 8019 | | Call 0x0,0x19 02b6 a408 | | Store_Unchecked 0x2,0x8 02b7 e408 | | Load 0x2,0x8 02b8 0f00 | | Execute_Immediate Equal,0x0 02b9 6805 |h | Jump_Zero 0x2bf 02ba 0092 02db | | Action Push_String_Extended,0x2db ; "Parameter number 1 is invalid: the address must be 2 hex values or an Ada source location.\x0a" 02bc 8011 | | Call 0x0,0x11 02bd 00cc | | Action Pop_Block 02be 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02bf 4805 |H | Short_Literal 0x5 02c0 a406 | | Store_Unchecked 0x2,0x6 02c1 e408 | | Load 0x2,0x8 02c2 e007 | | Load 0x0,0x7 02c3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02c4 a402 | | Store_Unchecked 0x2,0x2 02c5 e408 | | Load 0x2,0x8 02c6 e007 | | Load 0x0,0x7 02c7 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02c8 a404 | | Store_Unchecked 0x2,0x4 02c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02ca ; -------------------------------------------------------------------------------------- 02ca ; STRING TABLE 02ca ; -------------------------------------------------------------------------------------- 02ca 0026 | & | .STRTAB 0x0026->0x02dd ; "CONTROL" 02cb 002b | + | .STRTAB 0x002b->0x02e0 ; "TYP" 02cc 002c | , | .STRTAB 0x002c->0x02e2 ; "QUEUE" 02cd 002f | / | .STRTAB 0x002f->0x02e4 ; "DATA" 02ce 0031 | 1 | .STRTAB 0x0031->0x02e6 ; "IMPORT" 02cf 0035 | 5 | .STRTAB 0x0035->0x02e9 ; "CODE" 02d0 0037 | 7 | .STRTAB 0x0037->0x02eb ; "SYSTEM" 02d1 003b | ; | .STRTAB 0x003b->0x02ee ; "Interpret_import_Words" 02d2 004f | O | .STRTAB 0x004f->0x02f9 ; "Display of System memory not implemented" 02d3 0075 | u | .STRTAB 0x0075->0x030d ; "Page does not exist" 02d4 0086 | | .STRTAB 0x0086->0x0317 ; "Exception raised in Display_Memory: " 02d5 00a8 | | .STRTAB 0x00a8->0x0329 ; "Not implemented.\x0a" 02d6 00b7 | | .STRTAB 0x00b7->0x0331 ; "Parameter is invalid: Format parameter must be one of CONTROL, TYP, QUEUE, DATA, IMPORT, CODE or SYSTEM" 02d7 011c | | .STRTAB 0x011c->0x0365 ; ": #" 02d8 011d | | .STRTAB 0x011d->0x0366 ; " " 02d9 011d | | .STRTAB 0x011d->0x0367 ; "The address specified was beyond the end of the code segment.\x0a" 02da 0159 | Y | .STRTAB 0x0159->0x0386 ; "--- end of code segment --- \x0a" 02db 0174 | t | .STRTAB 0x0174->0x0395 ; "Parameter number 1 is invalid: the address must be 2 hex values or an Ada source location.\x0a" 02dc 01cd | | .STREND 0x01cd->0x03c2 02dd 434f 4e54 |CONT| .STRTAB_STRINGS 03c3 0000 0000 | | .BLANK 0000[0x5] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; Debug Table 03c8 ; -------------------------------------------------------------------------------------- 03c8 0004 000d | | .DEBUG4 0x0004,0x000d,0x5888,0x0000,0x0001,0x0000 03ce 0000 0000 | | .BLANK 0000[0x32]