|
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: 1024 (0x400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03f8e1
└─⟦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 0130 | 0 | .CONST 0x0130 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00ca | | .CONST 0x00ca ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0036 | 6 | .CONST 0x0036 ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 00c4 | | Action Make_Default 0030 00c4 | | Action Make_Default 0031 00c4 | | Action Make_Default 0032 00c4 | | Action Make_Default 0033 00c4 | | Action Make_Default 0034 00c4 | | Action Make_Default 0035 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0037 c211 | | Store 0x1,0x11 0038 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 003a c212 | | Store 0x1,0x12 003b 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 003d c213 | | Store 0x1,0x13 003e 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0040 c214 | | Store 0x1,0x14 0041 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0043 c215 | | Store 0x1,0x15 0044 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0046 c216 | | Store 0x1,0x16 0047 e001 | | Load 0x0,0x1 0048 1950 | P | Execute Package,Field_Reference,Field_Number 0x50 0049 00c6 | | Action Check_Subprogram_Elaborated 004a 4801 |H | Short_Literal 0x1 004b 0129 | ) | Execute Any,Make_Visible 004c e002 | | Load 0x0,0x2 004d 1920 | | Execute Package,Field_Reference,Field_Number 0x20 004e 0129 | ) | Execute Any,Make_Visible 004f 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0050 0129 | ) | Execute Any,Make_Visible 0051 e003 | | Load 0x0,0x3 0052 191b | | Execute Package,Field_Reference,Field_Number 0x1b 0053 0129 | ) | Execute Any,Make_Visible 0054 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0055 0129 | ) | Execute Any,Make_Visible 0056 e004 | | Load 0x0,0x4 0057 191b | | Execute Package,Field_Reference,Field_Number 0x1b 0058 0129 | ) | Execute Any,Make_Visible 0059 1d13 | | Execute_Immediate Reference_Lex_1,0x13 005a 0129 | ) | Execute Any,Make_Visible 005b e005 | | Load 0x0,0x5 005c 190d | | Execute Package,Field_Reference,Field_Number 0xd 005d 0129 | ) | Execute Any,Make_Visible 005e e006 | | Load 0x0,0x6 005f 0129 | ) | Execute Any,Make_Visible 0060 e007 | | Load 0x0,0x7 0061 0129 | ) | Execute Any,Make_Visible 0062 4800 |H | Short_Literal 0x0 0063 0129 | ) | Execute Any,Make_Visible 0064 c221 | ! | Store 0x1,0x21 0065 c220 | | Store 0x1,0x20 0066 c21f | | Store 0x1,0x1f 0067 c21e | | Store 0x1,0x1e 0068 c21d | | Store 0x1,0x1d 0069 c21c | | Store 0x1,0x1c 006a c21b | | Store 0x1,0x1b 006b c21a | | Store 0x1,0x1a 006c c219 | | Store 0x1,0x19 006d c218 | | Store 0x1,0x18 006e c217 | | Store 0x1,0x17 006f e001 | | Load 0x0,0x1 0070 194e | N | Execute Package,Field_Reference,Field_Number 0x4e 0071 00c6 | | Action Check_Subprogram_Elaborated 0072 4801 |H | Short_Literal 0x1 0073 0129 | ) | Execute Any,Make_Visible 0074 e002 | | Load 0x0,0x2 0075 1920 | | Execute Package,Field_Reference,Field_Number 0x20 0076 0129 | ) | Execute Any,Make_Visible 0077 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0078 0129 | ) | Execute Any,Make_Visible 0079 e005 | | Load 0x0,0x5 007a 190e | | Execute Package,Field_Reference,Field_Number 0xe 007b 0129 | ) | Execute Any,Make_Visible 007c e008 | | Load 0x0,0x8 007d 0129 | ) | Execute Any,Make_Visible 007e e009 | | Load 0x0,0x9 007f 0129 | ) | Execute Any,Make_Visible 0080 4800 |H | Short_Literal 0x0 0081 0129 | ) | Execute Any,Make_Visible 0082 c228 | ( | Store 0x1,0x28 0083 c227 | ' | Store 0x1,0x27 0084 c226 | & | Store 0x1,0x26 0085 c225 | % | Store 0x1,0x25 0086 c224 | $ | Store 0x1,0x24 0087 c223 | # | Store 0x1,0x23 0088 c222 | " | Store 0x1,0x22 0089 e001 | | Load 0x0,0x1 008a 194e | N | Execute Package,Field_Reference,Field_Number 0x4e 008b 00c6 | | Action Check_Subprogram_Elaborated 008c 4801 |H | Short_Literal 0x1 008d 0129 | ) | Execute Any,Make_Visible 008e e002 | | Load 0x0,0x2 008f 1920 | | Execute Package,Field_Reference,Field_Number 0x20 0090 0129 | ) | Execute Any,Make_Visible 0091 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0092 0129 | ) | Execute Any,Make_Visible 0093 e005 | | Load 0x0,0x5 0094 190f | | Execute Package,Field_Reference,Field_Number 0xf 0095 0129 | ) | Execute Any,Make_Visible 0096 e00a | | Load 0x0,0xa 0097 0129 | ) | Execute Any,Make_Visible 0098 e00b | | Load 0x0,0xb 0099 0129 | ) | Execute Any,Make_Visible 009a 4800 |H | Short_Literal 0x0 009b 0129 | ) | Execute Any,Make_Visible 009c c22f | / | Store 0x1,0x2f 009d c22e | . | Store 0x1,0x2e 009e c22d | - | Store 0x1,0x2d 009f c22c | , | Store 0x1,0x2c 00a0 c22b | + | Store 0x1,0x2b 00a1 c22a | * | Store 0x1,0x2a 00a2 c229 | ) | Store 0x1,0x29 00a3 e001 | | Load 0x0,0x1 00a4 194e | N | Execute Package,Field_Reference,Field_Number 0x4e 00a5 00c6 | | Action Check_Subprogram_Elaborated 00a6 4801 |H | Short_Literal 0x1 00a7 0129 | ) | Execute Any,Make_Visible 00a8 e002 | | Load 0x0,0x2 00a9 1920 | | Execute Package,Field_Reference,Field_Number 0x20 00aa 0129 | ) | Execute Any,Make_Visible 00ab 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00ac 0129 | ) | Execute Any,Make_Visible 00ad e005 | | Load 0x0,0x5 00ae 1910 | | Execute Package,Field_Reference,Field_Number 0x10 00af 0129 | ) | Execute Any,Make_Visible 00b0 e00c | | Load 0x0,0xc 00b1 0129 | ) | Execute Any,Make_Visible 00b2 e00d | | Load 0x0,0xd 00b3 0129 | ) | Execute Any,Make_Visible 00b4 4800 |H | Short_Literal 0x0 00b5 0129 | ) | Execute Any,Make_Visible 00b6 c236 | 6 | Store 0x1,0x36 00b7 c235 | 5 | Store 0x1,0x35 00b8 c234 | 4 | Store 0x1,0x34 00b9 c233 | 3 | Store 0x1,0x33 00ba c232 | 2 | Store 0x1,0x32 00bb c231 | 1 | Store 0x1,0x31 00bc c230 | 0 | Store 0x1,0x30 00bd 00bf | | Action Accept_Activation 00be 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00bf 00c7 | | Action Elaborate_Subprogram 00c0 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00c1 00c7 | | Action Elaborate_Subprogram 00c2 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00c3 00c7 | | Action Elaborate_Subprogram 00c4 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00c5 00c7 | | Action Elaborate_Subprogram 00c6 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00c7 00c7 | | Action Elaborate_Subprogram 00c8 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00c9 00c7 | | Action Elaborate_Subprogram 00ca BODY_0008: 00ca 00bc | | Action Signal_Activated 00cb 00bb | | Action Signal_Completion 00cc 0000 0000 | | .BLANK 0000[0x4] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 00da | | Load_Top At_Offset_2 00d4 e002 | | Load 0x0,0x2 00d5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00d6 0161 | a | Execute Variant_Record,Check_In_Formal_Type 00d7 e002 | | Load 0x0,0x2 00d8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00d9 0f00 | | Execute_Immediate Equal,0x0 00da 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00db 0000 0000 | | .BLANK 0000[0x5] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 00da | | Load_Top At_Offset_2 00e4 e003 | | Load 0x0,0x3 00e5 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00e6 0161 | a | Execute Variant_Record,Check_In_Formal_Type 00e7 e003 | | Load 0x0,0x3 00e8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e9 0f00 | | Execute_Immediate Equal,0x0 00ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00eb 0000 0000 | | .BLANK 0000[0x5] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 00da | | Load_Top At_Offset_2 00f4 e004 | | Load 0x0,0x4 00f5 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 00f6 0161 | a | Execute Variant_Record,Check_In_Formal_Type 00f7 e004 | | Load 0x0,0x4 00f8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00f9 0f00 | | Execute_Immediate Equal,0x0 00fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00fb 0000 0000 | | .BLANK 0000[0x5] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 e002 | | Load 0x0,0x2 0105 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0106 0161 | a | Execute Variant_Record,Check_In_Formal_Type 0107 e002 | | Load 0x0,0x2 0108 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0109 0f00 | | Execute_Immediate Equal,0x0 010a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010b 0000 0000 | | .BLANK 0000[0x5] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00da | | Load_Top At_Offset_2 0114 e002 | | Load 0x0,0x2 0115 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0116 0161 | a | Execute Variant_Record,Check_In_Formal_Type 0117 e002 | | Load 0x0,0x2 0118 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0119 0f00 | | Execute_Immediate Equal,0x0 011a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 011b 0000 0000 | | .BLANK 0000[0x5] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00da | | Load_Top At_Offset_2 0124 e002 | | Load 0x0,0x2 0125 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0126 0161 | a | Execute Variant_Record,Check_In_Formal_Type 0127 e002 | | Load 0x0,0x2 0128 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0129 0f00 | | Execute_Immediate Equal,0x0 012a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 012b 0000 0000 | | .BLANK 0000[0x5] 0130 ; -------------------------------------------------------------------------------------- 0130 ; Debug Table 0130 ; -------------------------------------------------------------------------------------- 0130 0004 0001 | | .DEBUG4 0x0004,0x0001,0xdcb9,0x0000,0x0001,0x0008 0136 000b 0156 | V| .DBG4T 0x000b,0x0156,0x8000,0x0000 013a 00be 0162 | b| .DBG4T 0x00be,0x0162,0x8000,0x0000 013e 00d3 016a | j| .DBG4T 0x00d3,0x016a,0x0002,0x0000 0142 00e3 016d | m| .DBG4T 0x00e3,0x016d,0x0002,0x0000 0146 00f3 0170 | p| .DBG4T 0x00f3,0x0170,0x0002,0x0000 014a 0103 0173 | s| .DBG4T 0x0103,0x0173,0x0002,0x0000 014e 0113 0176 | v| .DBG4T 0x0113,0x0176,0x0002,0x0000 0152 0123 0179 | # y| .DBG4T 0x0123,0x0179,0x0002,0x0000 0156 ; -------------------------------------------------------------------------------------- 0156 ; Debug chain 0156 ; -------------------------------------------------------------------------------------- 0156 000a 0000 | | .DBGLEN 0x000a,0x0000 0158 0035 0038 | 5 8| .DBGLNO 0x0035,0x0038,0x003b,0x003e,0x0041,0x0044,0x0047,0x006f,0x0089,0x00a3 0162 ; -------------------------------------------------------------------------------------- 0162 ; Debug chain 0162 ; -------------------------------------------------------------------------------------- 0162 0006 0000 | | .DBGLEN 0x0006,0x0000 0164 00be 00c0 | | .DBGLNO 0x00be,0x00c0,0x00c2,0x00c4,0x00c6,0x00c8 016a ; -------------------------------------------------------------------------------------- 016a ; Debug chain 016a ; -------------------------------------------------------------------------------------- 016a 0000 0001 | | .DBGLEN 0x0000,0x0001 016c 00d3 | | .DBGLNO 0x00d3 016d ; -------------------------------------------------------------------------------------- 016d ; Debug chain 016d ; -------------------------------------------------------------------------------------- 016d 0000 0001 | | .DBGLEN 0x0000,0x0001 016f 00e3 | | .DBGLNO 0x00e3 0170 ; -------------------------------------------------------------------------------------- 0170 ; Debug chain 0170 ; -------------------------------------------------------------------------------------- 0170 0000 0001 | | .DBGLEN 0x0000,0x0001 0172 00f3 | | .DBGLNO 0x00f3 0173 ; -------------------------------------------------------------------------------------- 0173 ; Debug chain 0173 ; -------------------------------------------------------------------------------------- 0173 0000 0001 | | .DBGLEN 0x0000,0x0001 0175 0103 | | .DBGLNO 0x0103 0176 ; -------------------------------------------------------------------------------------- 0176 ; Debug chain 0176 ; -------------------------------------------------------------------------------------- 0176 0000 0001 | | .DBGLEN 0x0000,0x0001 0178 0113 | | .DBGLNO 0x0113 0179 ; -------------------------------------------------------------------------------------- 0179 ; Debug chain 0179 ; -------------------------------------------------------------------------------------- 0179 0000 0001 | | .DBGLEN 0x0000,0x0001 017b 0123 | # | .DBGLNO 0x0123 017c 0000 0000 | | .BLANK 0000[0x84]