|
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]