|
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_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 0378 | x | .CONST 0x0378 ; 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 004d | M | .CONST 0x004d ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0015 | | .CONST 0x0015 ; Number of locals 000b INIT_0008: 000b 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 000d 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 000f 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 0011 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 0013 00bf | | Action Accept_Activation 0014 4800 |H | Short_Literal 0x0 0015 4806 |H | Short_Literal 0x6 0016 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call 0018 03fd | | Declare_Type Discrete,Defined 0019 0093 0000 | | push_full_address 0x0 001b 61e4 |a | Indirect_Literal Discrete,0x200,{0x80000000, 0x00010000} 001c 0273 | s | Execute Discrete,Plus 001d 0007 | | Action Break_Optional 001e 0093 0000 | | push_full_address 0x0 0020 61db |a | Indirect_Literal Discrete,0x1fc,{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 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call 0033 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0034 00c7 | | Action Elaborate_Subprogram 0035 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0036 00c7 | | Action Elaborate_Subprogram 0037 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0038 00c7 | | Action Elaborate_Subprogram 0039 1d10 | | Execute_Immediate Reference_Lex_1,0x10 003a 00c7 | | Action Elaborate_Subprogram 003b e002 | | Load 0x0,0x2 003c e003 | | Load 0x0,0x3 003d e004 | | Load 0x0,0x4 003e e213 | | Load 0x1,0x13 003f e212 | | Load 0x1,0x12 0040 e005 | | Load 0x0,0x5 0041 e006 | | Load 0x0,0x6 0042 e007 | | Load 0x0,0x7 0043 a008 | | Store_Unchecked 0x0,0x8 0044 e009 | | Load 0x0,0x9 0045 e00a | | Load 0x0,0xa 0046 e00b | | Load 0x0,0xb 0047 e00c | | Load 0x0,0xc 0048 480d |H | Short_Literal 0xd 0049 e214 | | Load 0x1,0x14 004a 020e | | Execute Module,Augment_Imports 004b 00d9 | | Load_Top At_Offset_1 004c 020f | | Execute Module,Activate 004d BODY_0008: 004d 00bc | | Action Signal_Activated 004e 00bb | | Action Signal_Completion 004f 0000 | | .XXX[0x1] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0090 | | .CONST 0x0090 ; Address of begin 0051 01e7 | | .CONST 0x01e7 ; Address of exception handler 0052 001b | | .CONST 0x001b ; Number of locals 0053 INIT_0050: 0053 00e5 | | Load_Encached Long_Integer_Cache 0054 00e5 | | Load_Encached Long_Integer_Cache 0055 00e3 | | Load_Encached Natural_Cache 0056 00e3 | | Load_Encached Natural_Cache 0057 e211 | | Load 0x1,0x11 0058 0007 | | Action Break_Optional 0059 e00d | | Load 0x0,0xd 005a 02c7 | | Declare_Variable Any 005b 00d8 | | Load_Top At_Offset_0 005c 1c00 | | Execute_Immediate Run_Utility,0x0 005d e007 | | Load 0x0,0x7 005e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 005f e007 | | Load 0x0,0x7 0060 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0061 02c7 | | Declare_Variable Any 0062 00d8 | | Load_Top At_Offset_0 0063 1c00 | | Execute_Immediate Run_Utility,0x0 0064 e007 | | Load 0x0,0x7 0065 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 0066 0322 | " | Declare_Variable Record 0067 e007 | | Load 0x0,0x7 0068 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0069 e007 | | Load 0x0,0x7 006a 1b10 | | Execute Package,Field_Read,Field_Number 0x10 006b e007 | | Load 0x0,0x7 006c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 006d e007 | | Load 0x0,0x7 006e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 006f e007 | | Load 0x0,0x7 0070 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0071 00e1 | | Load_Encached Boolean_Cache 0072 e214 | | Load 0x1,0x14 0073 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0074 0337 | 7 | Declare_Variable Array 0075 00e3 | | Load_Encached Natural_Cache 0076 00e3 | | Load_Encached Natural_Cache 0077 00e3 | | Load_Encached Natural_Cache 0078 00e2 | | Load_Encached Integer_Cache 0079 00e3 | | Load_Encached Natural_Cache 007a e00e | | Load 0x0,0xe 007b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007c 02c7 | | Declare_Variable Any 007d 00d8 | | Load_Top At_Offset_0 007e 1c00 | | Execute_Immediate Run_Utility,0x0 007f e00f | | Load 0x0,0xf 0080 4808 |H | Short_Literal 0x8 0081 e010 | | Load 0x0,0x10 0082 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0083 00e1 | | Load_Encached Boolean_Cache 0084 03f1 | | Declare_Variable Discrete,With_Value 0085 e00f | | Load 0x0,0xf 0086 0092 02b1 | | Action Push_String_Extended,0x2b1 ; "Interpret_import_Words" 0088 e010 | | Load 0x0,0x10 0089 1816 | | Execute Package,Field_Execute,Field_Number 0x16 008a 00e1 | | Load_Encached Boolean_Cache 008b 03f1 | | Declare_Variable Discrete,With_Value 008c 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call 008e 029f 027b | {| Declare_Subprogram INIT_0278,For_Call 0090 BODY_0050: 0090 e5fe | | Load 0x2,-0x2 0091 6803 |h | Jump_Zero 0x95 0092 e5fe | | Load 0x2,-0x2 0093 a405 | | Store_Unchecked 0x2,0x5 0094 7801 |x | Jump 0x96 0095 841a | | Call 0x2,0x1a 0096 e417 | | Load 0x2,0x17 0097 e211 | | Load 0x1,0x11 0098 e5fd | | Load 0x2,-0x3 0099 8215 | | Call 0x1,0x15 009a c406 | | Store 0x2,0x6 009b c417 | | Store 0x2,0x17 009c 4802 |H | Short_Literal 0x2 009d e417 | | Load 0x2,0x17 009e e00e | | Load 0x0,0xe 009f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00a0 6807 |h | Jump_Zero 0xa8 00a1 480a |H | Short_Literal 0xa 00a2 e417 | | Load 0x2,0x17 00a3 e00e | | Load 0x0,0xe 00a4 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00a5 01cb | | Execute Vector,Append 00a6 8011 | | Call 0x0,0x11 00a7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00a8 841b | | Call 0x2,0x1b 00a9 e406 | | Load 0x2,0x6 00aa 4606 |F | Jump_Case 0x7 00ab 780b |x | Jump 0xb7 ; case 0x0 00ac 78b4 |x | Jump 0x161 ; case 0x1 00ad 78bb |x | Jump 0x169 ; case 0x2 00ae 78ba |x | Jump 0x169 ; case 0x3 00af 7846 |xF | Jump 0xf6 ; case 0x4 00b0 78bf |x | Jump 0x170 ; case 0x5 00b1 7800 |x | Jump 0xb2 ; case 0x6 00b2 0092 02b2 | | Action Push_String_Extended,0x2b2 ; "Display of System memory not implemented" 00b4 8008 | | Call 0x0,0x8 00b5 8012 | | Call 0x0,0x12 00b6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00b7 e402 | | Load 0x2,0x2 00b8 e003 | | Load 0x0,0x3 00b9 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 00ba c409 | | Store 0x2,0x9 00bb 00cf | | Action Mark_Auxiliary 00bc e405 | | Load 0x2,0x5 00bd 0aff | | Execute_Immediate Plus,-0x1 00be 4800 |H | Short_Literal 0x0 00bf 0263 | c | Execute Discrete,Above_Bound 00c0 7033 |p3 | Jump_Nonzero 0xf4 00c1 e404 | | Load 0x2,0x4 00c2 00d9 | | Load_Top At_Offset_1 00c3 0273 | s | Execute Discrete,Plus 00c4 00d8 | | Load_Top At_Offset_0 00c5 e007 | | Load 0x0,0x7 00c6 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 00c7 0260 | ` | Execute Discrete,In_Type 00c8 7001 |p | Jump_Nonzero 0xca 00c9 0801 | | Execute_Immediate Raise,0x1 00ca e409 | | Load 0x2,0x9 00cb e007 | | Load 0x0,0x7 00cc 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 00cd e40a | | Load 0x2,0xa 00ce 017d | } | Execute Record,Structure_Write 00cf e404 | | Load 0x2,0x4 00d0 00d9 | | Load_Top At_Offset_1 00d1 0273 | s | Execute Discrete,Plus 00d2 00d8 | | Load_Top At_Offset_0 00d3 e007 | | Load 0x0,0x7 00d4 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 00d5 0260 | ` | Execute Discrete,In_Type 00d6 7001 |p | Jump_Nonzero 0xd8 00d7 0801 | | Execute_Immediate Raise,0x1 00d8 e409 | | Load 0x2,0x9 00d9 e007 | | Load 0x0,0x7 00da 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 00db e007 | | Load 0x0,0x7 00dc 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 00dd e003 | | Load 0x0,0x3 00de 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00df 8008 | | Call 0x0,0x8 00e0 8012 | | Call 0x0,0x12 00e1 480a |H | Short_Literal 0xa 00e2 e418 | | Load 0x2,0x18 00e3 e404 | | Load 0x2,0x4 00e4 00db | | Load_Top At_Offset_3 00e5 0273 | s | Execute Discrete,Plus 00e6 e007 | | Load 0x0,0x7 00e7 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 00e8 00d9 | | Load_Top At_Offset_1 00e9 00d0 | | Action Swap_Control 00ea 0260 | ` | Execute Discrete,In_Type 00eb 7001 |p | Jump_Nonzero 0xed 00ec 0801 | | Execute_Immediate Raise,0x1 00ed e40a | | Load 0x2,0xa 00ee e003 | | Load 0x0,0x3 00ef 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00f0 01cb | | Execute Vector,Append 00f1 8008 | | Call 0x0,0x8 00f2 00c8 | | Action Pop_Auxiliary_Range 00f3 3fcd |? | Loop_Increasing 0xc1 00f4 00ce | | Action Pop_Auxiliary 00f5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00f6 e402 | | Load 0x2,0x2 00f7 e003 | | Load 0x0,0x3 00f8 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 00f9 c409 | | Store 0x2,0x9 00fa 4800 |H | Short_Literal 0x0 00fb a413 | | Store_Unchecked 0x2,0x13 00fc e404 | | Load 0x2,0x4 00fd a414 | | Store_Unchecked 0x2,0x14 00fe 4fff |O | Short_Literal -0x1 00ff a415 | | Store_Unchecked 0x2,0x15 0100 4800 |H | Short_Literal 0x0 0101 a412 | | Store_Unchecked 0x2,0x12 0102 00cf | | Action Mark_Auxiliary 0103 8013 | | Call 0x0,0x13 0104 705a |pZ | Jump_Nonzero 0x15f 0105 e413 | | Load 0x2,0x13 0106 e405 | | Load 0x2,0x5 0107 027b | { | Execute Discrete,Greater_Equal 0108 7056 |pV | Jump_Nonzero 0x15f 0109 e412 | | Load 0x2,0x12 010a e415 | | Load 0x2,0x15 010b 027d | } | Execute Discrete,Greater 010c 680d |h | Jump_Zero 0x11a 010d e214 | | Load 0x1,0x14 010e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 010f e411 | | Load 0x2,0x11 0110 e406 | | Load 0x2,0x6 0111 e404 | | Load 0x2,0x4 0112 0907 | | Execute_Immediate Binary_Scale,0x7 0113 e402 | | Load 0x2,0x2 0114 e214 | | Load 0x1,0x14 0115 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0116 00d1 | | Pop_Control Pop_Count_1 0117 c412 | | Store 0x2,0x12 0118 483f |H? | Short_Literal 0x3f 0119 a415 | | Store_Unchecked 0x2,0x15 011a e414 | | Load 0x2,0x14 011b e007 | | Load 0x0,0x7 011c 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 011d 00d9 | | Load_Top At_Offset_1 011e 00d0 | | Action Swap_Control 011f 0260 | ` | Execute Discrete,In_Type 0120 7001 |p | Jump_Nonzero 0x122 0121 0801 | | Execute_Immediate Raise,0x1 0122 e409 | | Load 0x2,0x9 0123 e007 | | Load 0x0,0x7 0124 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0125 e007 | | Load 0x0,0x7 0126 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0127 e003 | | Load 0x0,0x3 0128 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0129 8008 | | Call 0x0,0x8 012a 8012 | | Call 0x0,0x12 012b e414 | | Load 0x2,0x14 012c 700c |p | Jump_Nonzero 0x139 012d e412 | | Load 0x2,0x12 012e 00d8 | | Load_Top At_Offset_0 012f e214 | | Load 0x1,0x14 0130 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0131 0260 | ` | Execute Discrete,In_Type 0132 7001 |p | Jump_Nonzero 0x134 0133 0801 | | Execute_Immediate Raise,0x1 0134 e411 | | Load 0x2,0x11 0135 01d5 | | Execute Vector,Field_Reference 0136 e214 | | Load 0x1,0x14 0137 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0138 781b |x | Jump 0x154 0139 480a |H | Short_Literal 0xa 013a e419 | | Load 0x2,0x19 013b e414 | | Load 0x2,0x14 013c e007 | | Load 0x0,0x7 013d 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 013e 00d9 | | Load_Top At_Offset_1 013f 00d0 | | Action Swap_Control 0140 0260 | ` | Execute Discrete,In_Type 0141 7001 |p | Jump_Nonzero 0x143 0142 0801 | | Execute_Immediate Raise,0x1 0143 e412 | | Load 0x2,0x12 0144 00d8 | | Load_Top At_Offset_0 0145 e214 | | Load 0x1,0x14 0146 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0147 0260 | ` | Execute Discrete,In_Type 0148 7001 |p | Jump_Nonzero 0x14a 0149 0801 | | Execute_Immediate Raise,0x1 014a e411 | | Load 0x2,0x11 014b 01d5 | | Execute Vector,Field_Reference 014c e214 | | Load 0x1,0x14 014d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 014e e214 | | Load 0x1,0x14 014f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0150 e003 | | Load 0x0,0x3 0151 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0152 01cb | | Execute Vector,Append 0153 8008 | | Call 0x0,0x8 0154 e413 | | Load 0x2,0x13 0155 0a01 | | Execute_Immediate Plus,0x1 0156 c413 | | Store 0x2,0x13 0157 e414 | | Load 0x2,0x14 0158 0a01 | | Execute_Immediate Plus,0x1 0159 c414 | | Store 0x2,0x14 015a e412 | | Load 0x2,0x12 015b 0a01 | | Execute_Immediate Plus,0x1 015c c412 | | Store 0x2,0x12 015d 00c9 | | Action Pop_Auxiliary_Loop 015e 7fa4 | | Jump 0x103 015f 00ce | | Action Pop_Auxiliary 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 0907 | | Execute_Immediate Binary_Scale,0x7 0165 e402 | | Load 0x2,0x2 0166 e214 | | Load 0x1,0x14 0167 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0168 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0169 e5fe | | Load 0x2,-0x2 016a e406 | | Load 0x2,0x6 016b e404 | | Load 0x2,0x4 016c e402 | | Load 0x2,0x2 016d e214 | | Load 0x1,0x14 016e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 016f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0170 e402 | | Load 0x2,0x2 0171 00d8 | | Load_Top At_Offset_0 0172 e004 | | Load 0x0,0x4 0173 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0174 0260 | ` | Execute Discrete,In_Type 0175 7001 |p | Jump_Nonzero 0x177 0176 0801 | | Execute_Immediate Raise,0x1 0177 a40b | | Store_Unchecked 0x2,0xb 0178 4800 |H | Short_Literal 0x0 0179 a416 | | Store_Unchecked 0x2,0x16 017a 00cf | | Action Mark_Auxiliary 017b 7865 |xe | Jump 0x1e1 017c e404 | | Load 0x2,0x4 017d e416 | | Load 0x2,0x16 017e 0273 | s | Execute Discrete,Plus 017f 00d8 | | Load_Top At_Offset_0 0180 e007 | | Load 0x0,0x7 0181 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0182 0260 | ` | Execute Discrete,In_Type 0183 7001 |p | Jump_Nonzero 0x185 0184 0801 | | Execute_Immediate Raise,0x1 0185 e40b | | Load 0x2,0xb 0186 e007 | | Load 0x0,0x7 0187 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0188 a40d | | Store_Unchecked 0x2,0xd 0189 e40d | | Load 0x2,0xd 018a e007 | | Load 0x0,0x7 018b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 018c a40c | | Store_Unchecked 0x2,0xc 018d e40c | | Load 0x2,0xc 018e 8014 | | Call 0x0,0x14 018f 6815 |h | Jump_Zero 0x1a5 0190 e404 | | Load 0x2,0x4 0191 e416 | | Load 0x2,0x16 0192 0273 | s | Execute Discrete,Plus 0193 0a01 | | Execute_Immediate Plus,0x1 0194 00d8 | | Load_Top At_Offset_0 0195 e007 | | Load 0x0,0x7 0196 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0197 0260 | ` | Execute Discrete,In_Type 0198 7001 |p | Jump_Nonzero 0x19a 0199 0801 | | Execute_Immediate Raise,0x1 019a e40b | | Load 0x2,0xb 019b e007 | | Load 0x0,0x7 019c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 019d a40f | | Store_Unchecked 0x2,0xf 019e e40f | | Load 0x2,0xf 019f e007 | | Load 0x0,0x7 01a0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01a1 a40e | | Store_Unchecked 0x2,0xe 01a2 4801 |H | Short_Literal 0x1 01a3 a410 | | Store_Unchecked 0x2,0x10 01a4 7804 |x | Jump 0x1a9 01a5 4800 |H | Short_Literal 0x0 01a6 a40e | | Store_Unchecked 0x2,0xe 01a7 4800 |H | Short_Literal 0x0 01a8 a410 | | Store_Unchecked 0x2,0x10 01a9 e40d | | Load 0x2,0xd 01aa e003 | | Load 0x0,0x3 01ab 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01ac 0092 02b3 | | Action Push_String_Extended,0x2b3 ; ": #" 01ae 01cc | | Execute Vector,Catenate 01af 4830 |H0 | Short_Literal 0x30 01b0 4804 |H | Short_Literal 0x4 01b1 4810 |H | Short_Literal 0x10 01b2 e40c | | Load 0x2,0xc 01b3 e006 | | Load 0x0,0x6 01b4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01b5 01cc | | Execute Vector,Catenate 01b6 0092 02b4 | | Action Push_String_Extended,0x2b4 ; " " 01b8 01cc | | Execute Vector,Catenate 01b9 8008 | | Call 0x0,0x8 01ba 480a |H | Short_Literal 0xa 01bb e40e | | Load 0x2,0xe 01bc e404 | | Load 0x2,0x4 01bd e416 | | Load 0x2,0x16 01be 0273 | s | Execute Discrete,Plus 01bf 00d8 | | Load_Top At_Offset_0 01c0 00e3 | | Load_Encached Natural_Cache 01c1 0260 | ` | Execute Discrete,In_Type 01c2 7001 |p | Jump_Nonzero 0x1c4 01c3 0801 | | Execute_Immediate Raise,0x1 01c4 e40c | | Load 0x2,0xc 01c5 8015 | | Call 0x0,0x15 01c6 01cb | | Execute Vector,Append 01c7 8008 | | Call 0x0,0x8 01c8 e410 | | Load 0x2,0x10 01c9 6813 |h | Jump_Zero 0x1dd 01ca 480a |H | Short_Literal 0xa 01cb e40f | | Load 0x2,0xf 01cc e003 | | Load 0x0,0x3 01cd 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01ce 0092 02b3 | | Action Push_String_Extended,0x2b3 ; ": #" 01d0 01cc | | Execute Vector,Catenate 01d1 4830 |H0 | Short_Literal 0x30 01d2 4804 |H | Short_Literal 0x4 01d3 4810 |H | Short_Literal 0x10 01d4 e40e | | Load 0x2,0xe 01d5 e006 | | Load 0x0,0x6 01d6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01d7 01cc | | Execute Vector,Catenate 01d8 01cb | | Execute Vector,Append 01d9 8008 | | Call 0x0,0x8 01da e416 | | Load 0x2,0x16 01db 0a01 | | Execute_Immediate Plus,0x1 01dc c416 | | Store 0x2,0x16 01dd e416 | | Load 0x2,0x16 01de 0a01 | | Execute_Immediate Plus,0x1 01df c416 | | Store 0x2,0x16 01e0 00c9 | | Action Pop_Auxiliary_Loop 01e1 e416 | | Load 0x2,0x16 01e2 e405 | | Load 0x2,0x5 01e3 027c | | | Execute Discrete,Less 01e4 7797 |w | Jump_Nonzero 0x17c 01e5 00ce | | Action Pop_Auxiliary 01e6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01e7 TRAP_0050: 01e7 e212 | | Load 0x1,0x12 01e8 010f | | Execute Exception,Equal 01e9 7003 |p | Jump_Nonzero 0x1ed 01ea e213 | | Load 0x1,0x13 01eb 010f | | Execute Exception,Equal 01ec 6805 |h | Jump_Zero 0x1f2 01ed 0092 02b5 | | Action Push_String_Extended,0x2b5 ; "Page does not exist" 01ef 8008 | | Call 0x0,0x8 01f0 8012 | | Call 0x0,0x12 01f1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01f2 480a |H | Short_Literal 0xa 01f3 0092 02b6 | | Action Push_String_Extended,0x2b6 ; "Exception raised in Display_Memory: " 01f5 e016 | | Load 0x0,0x16 01f6 180d | | Execute Package,Field_Execute,Field_Number 0xd 01f7 01cc | | Execute Vector,Catenate 01f8 01cb | | Execute Vector,Append 01f9 8011 | | Call 0x0,0x11 01fa 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01fb 0000 | | .XXX[0x1] 01fc 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 0200 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0204 0000 0000 | | .BLANK 0000[0x4] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 020c 0000 0000 | | .BLANK 0000[0x4] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 0092 02b7 | | Action Push_String_Extended,0x2b7 ; "Not implemented.\x0a" 0215 8011 | | Call 0x0,0x11 0216 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0217 0000 | | .XXX[0x1] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 0092 02b7 | | Action Push_String_Extended,0x2b7 ; "Not implemented.\x0a" 021d 8011 | | Call 0x0,0x11 021e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 021f 0000 | | .XXX[0x1] 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 4607 |F | Jump_Case 0x8 0224 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0225 7807 |x | Jump 0x22d ; case 0x1 0226 780a |x | Jump 0x231 ; case 0x2 0227 780e |x | Jump 0x236 ; case 0x3 0228 7811 |x | Jump 0x23a ; case 0x4 0229 7812 |x | Jump 0x23c ; case 0x5 022a 7813 |x | Jump 0x23e ; case 0x6 022b 7816 |x | Jump 0x242 ; case 0x7 022c 4302 |C | .XXX[0x1] 022d 00da | | Load_Top At_Offset_2 022e 0091 02aa | | Action Push_String_Extended_Indexed,0x2aa ; "CONTROL" 0230 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0231 00db | | Load_Top At_Offset_3 0232 00db | | Load_Top At_Offset_3 0233 00e0 | | Load_Encached Standard_Cache 0234 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0235 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0236 00da | | Load_Top At_Offset_2 0237 00e0 | | Load_Encached Standard_Cache 0238 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0239 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 023a 00db | | Load_Top At_Offset_3 023b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 023c 00db | | Load_Top At_Offset_3 023d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 023e e211 | | Load 0x1,0x11 023f 00dc | | Load_Top At_Offset_4 0240 0267 | g | Execute Discrete,Predecessor 0241 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0242 e211 | | Load 0x1,0x11 0243 00dc | | Load_Top At_Offset_4 0244 0268 | h | Execute Discrete,Successor 0245 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0246 0000 0000 | | .XXX[0x2] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0254 | T | .CONST 0x0254 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 00da | | Load_Top At_Offset_2 024c e211 | | Load 0x1,0x11 024d 1c02 | | Execute_Immediate Run_Utility,0x2 024e a5fe | | Store_Unchecked 0x2,-0x2 024f e5fd | | Load 0x2,-0x3 0250 e00e | | Load 0x0,0xe 0251 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0252 c5fd | | Store 0x2,-0x3 0253 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0254 TRAP_0248: 0254 010e | | Execute Exception,Is_Constraint_Error 0255 6809 |h | Jump_Zero 0x25f 0256 4800 |H | Short_Literal 0x0 0257 a5fe | | Store_Unchecked 0x2,-0x2 0258 e5fd | | Load 0x2,-0x3 0259 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "Parameter is invalid: Format parameter must be one of CONTROL, TYP, QUEUE, DATA, IMPORT, CODE or SYSTEM" 025b e00e | | Load 0x0,0xe 025c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 025d c5fd | | Store 0x2,-0x3 025e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 025f 0100 | | Execute Exception,Raise 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 026d | m | .CONST 0x026d ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 e00f | | Load 0x0,0xf 0264 4807 |H | Short_Literal 0x7 0265 e010 | | Load 0x0,0x10 0266 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0267 c405 | | Store 0x2,0x5 0268 e405 | | Load 0x2,0x5 0269 7002 |p | Jump_Nonzero 0x26c 026a 4803 |H | Short_Literal 0x3 026b a405 | | Store_Unchecked 0x2,0x5 026c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 026d TRAP_0260: 026d 0007 | | Action Break_Optional 026e 4803 |H | Short_Literal 0x3 026f a405 | | Store_Unchecked 0x2,0x5 0270 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0271 0000 0000 | | .BLANK 0000[0x7] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 028a | | .CONST 0x028a ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b 00e5 | | Load_Encached Long_Integer_Cache 027c 00e5 | | Load_Encached Long_Integer_Cache 027d 4800 |H | Short_Literal 0x0 027e e5ff | | Load 0x2,-0x1 027f 8017 | | Call 0x0,0x17 0280 c402 | | Store 0x2,0x2 0281 c403 | | Store 0x2,0x3 0282 e403 | | Load 0x2,0x3 0283 00d8 | | Load_Top At_Offset_0 0284 00e3 | | Load_Encached Natural_Cache 0285 0260 | ` | Execute Discrete,In_Type 0286 7001 |p | Jump_Nonzero 0x288 0287 0801 | | Execute_Immediate Raise,0x1 0288 a404 | | Store_Unchecked 0x2,0x4 0289 4501 |E | Exit_Suprogram New_Top_Offset 0x1 028a TRAP_0278: 028a 0007 | | Action Break_Optional 028b e407 | | Load 0x2,0x7 028c 0120 | | Execute Any,Is_Value 028d 6802 |h | Jump_Zero 0x290 028e e00d | | Load 0x0,0xd 028f 7801 |x | Jump 0x291 0290 e407 | | Load 0x2,0x7 0291 e5ff | | Load 0x2,-0x1 0292 8018 | | Call 0x0,0x18 0293 c407 | | Store 0x2,0x7 0294 e407 | | Load 0x2,0x7 0295 8019 | | Call 0x0,0x19 0296 a408 | | Store_Unchecked 0x2,0x8 0297 e408 | | Load 0x2,0x8 0298 0f00 | | Execute_Immediate Equal,0x0 0299 6805 |h | Jump_Zero 0x29f 029a 0092 02b9 | | Action Push_String_Extended,0x2b9 ; "Paramter number 1 is invalid: Address must be 2 hex values or an ada source location." 029c 8011 | | Call 0x0,0x11 029d 00cc | | Action Pop_Block 029e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 029f 4805 |H | Short_Literal 0x5 02a0 a406 | | Store_Unchecked 0x2,0x6 02a1 e408 | | Load 0x2,0x8 02a2 e007 | | Load 0x0,0x7 02a3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02a4 a402 | | Store_Unchecked 0x2,0x2 02a5 e408 | | Load 0x2,0x8 02a6 e007 | | Load 0x0,0x7 02a7 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02a8 a404 | | Store_Unchecked 0x2,0x4 02a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02aa ; -------------------------------------------------------------------------------------- 02aa ; STRING TABLE 02aa ; -------------------------------------------------------------------------------------- 02aa 0022 | " | .STRTAB 0x0022->0x02bb ; "CONTROL" 02ab 0027 | ' | .STRTAB 0x0027->0x02be ; "TYP" 02ac 0028 | ( | .STRTAB 0x0028->0x02c0 ; "QUEUE" 02ad 002b | + | .STRTAB 0x002b->0x02c2 ; "DATA" 02ae 002d | - | .STRTAB 0x002d->0x02c4 ; "IMPORT" 02af 0031 | 1 | .STRTAB 0x0031->0x02c7 ; "CODE" 02b0 0033 | 3 | .STRTAB 0x0033->0x02c9 ; "SYSTEM" 02b1 0037 | 7 | .STRTAB 0x0037->0x02cc ; "Interpret_import_Words" 02b2 004b | K | .STRTAB 0x004b->0x02d7 ; "Display of System memory not implemented" 02b3 0071 | q | .STRTAB 0x0071->0x02eb ; ": #" 02b4 0072 | r | .STRTAB 0x0072->0x02ed ; " " 02b5 0072 | r | .STRTAB 0x0072->0x02ee ; "Page does not exist" 02b6 0083 | | .STRTAB 0x0083->0x02f7 ; "Exception raised in Display_Memory: " 02b7 00a5 | | .STRTAB 0x00a5->0x0309 ; "Not implemented.\x0a" 02b8 00b4 | | .STRTAB 0x00b4->0x0312 ; "Parameter is invalid: Format parameter must be one of CONTROL, TYP, QUEUE, DATA, IMPORT, CODE or SYSTEM" 02b9 0119 | | .STRTAB 0x0119->0x0345 ; "Paramter number 1 is invalid: Address must be 2 hex values or an ada source location." 02ba 016d | m | .STREND 0x016d->0x0370 02bb 434f 4e54 |CONT| .STRTAB_STRINGS 0371 0000 0000 | | .BLANK 0000[0x7] 0378 ; -------------------------------------------------------------------------------------- 0378 ; Debug Table 0378 ; -------------------------------------------------------------------------------------- 0378 0004 0009 | | .DEBUG4 0x0004,0x0009,0x1656,0x0000,0x0001,0x0000 037e 0000 0000 | | .BLANK 0000[0x82]