|
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_03bcfe
└─⟦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 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 db80 0036 | 6| .XXX[0x26]
03d0 2304 c197 |# |
03d2 42e1 cd6e |B n|
03d4 c000 1b11 | |
03d6 8260 d1a1 | ` |
03d8 70e6 b7e0 |p |
03da 000d 88c1 | |
03dc 3069 50b8 |0iP |
03de 735c 3000 |s\0 |
03e0 06c4 6098 | ` |
03e2 34e8 5c39 |4 \9|
03e4 ae38 0003 | 8 |
03e6 6230 4c1a |b0L |
03e8 b42e 1cd7 | . |
03ea 2c00 01b1 |, |
03ec 1826 0d6a | & j|
03ee 170e 6b9e | k |
03f0 0000 d88c | |
03f2 1306 b800 | |
03f4 0000 0000 | | .BLANK 0000[0xc]