|
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_5850da
└─⟦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 0120 | | .CONST 0x0120 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 003a | : | .CONST 0x003a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0030 | 0 | .CONST 0x0030 ; 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 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 0031 c230 | 0 | Store 0x1,0x30 0032 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0034 c22d | - | Store 0x1,0x2d 0035 00bf | | Action Accept_Activation 0036 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 0037 00c7 | | Action Elaborate_Subprogram 0038 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 0039 00c7 | | Action Elaborate_Subprogram 003a BODY_0008: 003a 00bc | | Action Signal_Activated 003b 00bb | | Action Signal_Completion 003c 0000 0000 | | .BLANK 0000[0x4] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0048 | H | .CONST 0x0048 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0002 | | .CONST 0x0002 ; Number of locals 0043 INIT_0040: 0043 e001 | | Load 0x0,0x1 0044 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0045 02c7 | | Declare_Variable Any 0046 00d8 | | Load_Top At_Offset_0 0047 1c00 | | Execute_Immediate Run_Utility,0x0 0048 BODY_0040: 0048 e5fc | | Load 0x2,-0x4 0049 4800 |H | Short_Literal 0x0 004a e5ff | | Load 0x2,-0x1 004b e002 | | Load 0x0,0x2 004c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 004d c402 | | Store 0x2,0x2 004e e5fd | | Load 0x2,-0x3 004f e001 | | Load 0x0,0x1 0050 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0051 7004 |p | Jump_Nonzero 0x56 0052 00d8 | | Load_Top At_Offset_0 0053 e001 | | Load 0x0,0x1 0054 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0055 6801 |h | Jump_Zero 0x57 0056 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0057 e003 | | Load 0x0,0x3 0058 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0059 e5fc | | Load 0x2,-0x4 005a e5fe | | Load 0x2,-0x2 005b e5fd | | Load 0x2,-0x3 005c e402 | | Load 0x2,0x2 005d e004 | | Load 0x0,0x4 005e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 005f c5fb | | Store 0x2,-0x5 0060 4800 |H | Short_Literal 0x0 0061 e5fb | | Load 0x2,-0x5 0062 e003 | | Load 0x0,0x3 0063 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0064 7006 |p | Jump_Nonzero 0x6b 0065 e5fb | | Load 0x2,-0x5 0066 e003 | | Load 0x0,0x3 0067 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0068 604f |`O | Indirect_Literal Discrete,0xb8,{0x00000000, 0x00008143} 0069 027f | | Execute Discrete,Equal 006a 681d |h | Jump_Zero 0x88 006b e5fc | | Load 0x2,-0x4 006c 4801 |H | Short_Literal 0x1 006d 4802 |H | Short_Literal 0x2 006e e005 | | Load 0x0,0x5 006f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0070 035b | [ | Declare_Type Array,Constrained 0071 0337 | 7 | Declare_Variable Array 0072 e5fd | | Load 0x2,-0x3 0073 e005 | | Load 0x0,0x5 0074 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0075 e005 | | Load 0x0,0x5 0076 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0077 0119 | | Execute Any,Check_In_Formal_Type 0078 4801 |H | Short_Literal 0x1 0079 00da | | Load_Top At_Offset_2 007a 01d6 | | Execute Vector,Field_Write 007b e5ff | | Load 0x2,-0x1 007c e005 | | Load 0x0,0x5 007d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 007e e005 | | Load 0x0,0x5 007f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0080 0119 | | Execute Any,Check_In_Formal_Type 0081 4802 |H | Short_Literal 0x2 0082 00da | | Load_Top At_Offset_2 0083 01d6 | | Execute Vector,Field_Write 0084 602f |`/ | Indirect_Literal Discrete,0xb4,{0x00000000, 0x00008837} 0085 e003 | | Load 0x0,0x3 0086 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0087 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0088 e5fc | | Load 0x2,-0x4 0089 4801 |H | Short_Literal 0x1 008a 4803 |H | Short_Literal 0x3 008b e005 | | Load 0x0,0x5 008c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 008d 035b | [ | Declare_Type Array,Constrained 008e 0337 | 7 | Declare_Variable Array 008f e5fd | | Load 0x2,-0x3 0090 e005 | | Load 0x0,0x5 0091 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0092 e005 | | Load 0x0,0x5 0093 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0094 0119 | | Execute Any,Check_In_Formal_Type 0095 4801 |H | Short_Literal 0x1 0096 00da | | Load_Top At_Offset_2 0097 01d6 | | Execute Vector,Field_Write 0098 e5ff | | Load 0x2,-0x1 0099 e005 | | Load 0x0,0x5 009a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 009b e005 | | Load 0x0,0x5 009c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 009d 0119 | | Execute Any,Check_In_Formal_Type 009e 4802 |H | Short_Literal 0x2 009f 00da | | Load_Top At_Offset_2 00a0 01d6 | | Execute Vector,Field_Write 00a1 e5fb | | Load 0x2,-0x5 00a2 e003 | | Load 0x0,0x3 00a3 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00a4 e005 | | Load 0x0,0x5 00a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00a6 0119 | | Execute Any,Check_In_Formal_Type 00a7 4803 |H | Short_Literal 0x3 00a8 00da | | Load_Top At_Offset_2 00a9 01d6 | | Execute Vector,Field_Write 00aa 6005 |` | Indirect_Literal Discrete,0xb0,{0x00000000, 0x00008810} 00ab e003 | | Load 0x0,0x3 00ac 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 00ad 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00ae 0000 0000 | | .XXX[0x2] 00b0 0000 0000 | | .LITERAL {0x00000000, 0x00008810} 00b4 0000 0000 | | .LITERAL {0x00000000, 0x00008837} 00b8 0000 0000 | | .LITERAL {0x00000000, 0x00008143} 00bc 0000 0000 | | .BLANK 0000[0x4] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c8 | | .CONST 0x00c8 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0002 | | .CONST 0x0002 ; Number of locals 00c3 INIT_00c0: 00c3 e001 | | Load 0x0,0x1 00c4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00c5 02c7 | | Declare_Variable Any 00c6 00d8 | | Load_Top At_Offset_0 00c7 1c00 | | Execute_Immediate Run_Utility,0x0 00c8 BODY_00c0: 00c8 e5fc | | Load 0x2,-0x4 00c9 4800 |H | Short_Literal 0x0 00ca e5fd | | Load 0x2,-0x3 00cb e002 | | Load 0x0,0x2 00cc 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00cd c402 | | Store 0x2,0x2 00ce 4800 |H | Short_Literal 0x0 00cf e5fb | | Load 0x2,-0x5 00d0 e003 | | Load 0x0,0x3 00d1 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 00d2 681d |h | Jump_Zero 0xf0 00d3 e5fc | | Load 0x2,-0x4 00d4 4801 |H | Short_Literal 0x1 00d5 4802 |H | Short_Literal 0x2 00d6 e005 | | Load 0x0,0x5 00d7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00d8 035b | [ | Declare_Type Array,Constrained 00d9 0337 | 7 | Declare_Variable Array 00da e5fd | | Load 0x2,-0x3 00db e005 | | Load 0x0,0x5 00dc 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00dd e005 | | Load 0x0,0x5 00de 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00df 0119 | | Execute Any,Check_In_Formal_Type 00e0 4801 |H | Short_Literal 0x1 00e1 00da | | Load_Top At_Offset_2 00e2 01d6 | | Execute Vector,Field_Write 00e3 e5ff | | Load 0x2,-0x1 00e4 e005 | | Load 0x0,0x5 00e5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00e6 e005 | | Load 0x0,0x5 00e7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e8 0119 | | Execute Any,Check_In_Formal_Type 00e9 4802 |H | Short_Literal 0x2 00ea 00da | | Load_Top At_Offset_2 00eb 01d6 | | Execute Vector,Field_Write 00ec 602f |`/ | Indirect_Literal Discrete,0x11c,{0x00000000, 0x00008801} 00ed e003 | | Load 0x0,0x3 00ee 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 00ef 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00f0 e5fc | | Load 0x2,-0x4 00f1 4801 |H | Short_Literal 0x1 00f2 4803 |H | Short_Literal 0x3 00f3 e005 | | Load 0x0,0x5 00f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00f5 035b | [ | Declare_Type Array,Constrained 00f6 0337 | 7 | Declare_Variable Array 00f7 e5fd | | Load 0x2,-0x3 00f8 e005 | | Load 0x0,0x5 00f9 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00fa e005 | | Load 0x0,0x5 00fb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00fc 0119 | | Execute Any,Check_In_Formal_Type 00fd 4801 |H | Short_Literal 0x1 00fe 00da | | Load_Top At_Offset_2 00ff 01d6 | | Execute Vector,Field_Write 0100 e5ff | | Load 0x2,-0x1 0101 e005 | | Load 0x0,0x5 0102 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0103 e005 | | Load 0x0,0x5 0104 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0105 0119 | | Execute Any,Check_In_Formal_Type 0106 4802 |H | Short_Literal 0x2 0107 00da | | Load_Top At_Offset_2 0108 01d6 | | Execute Vector,Field_Write 0109 e5fb | | Load 0x2,-0x5 010a e003 | | Load 0x0,0x3 010b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 010c e005 | | Load 0x0,0x5 010d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 010e 0119 | | Execute Any,Check_In_Formal_Type 010f 4803 |H | Short_Literal 0x3 0110 00da | | Load_Top At_Offset_2 0111 01d6 | | Execute Vector,Field_Write 0112 6005 |` | Indirect_Literal Discrete,0x118,{0x00000000, 0x00008804} 0113 e003 | | Load 0x0,0x3 0114 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0115 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0116 0000 0000 | | .XXX[0x2] 0118 0000 0000 | | .LITERAL {0x00000000, 0x00008804} 011c 0000 0000 | | .LITERAL {0x00000000, 0x00008801} 0120 ; -------------------------------------------------------------------------------------- 0120 ; Debug Table 0120 ; -------------------------------------------------------------------------------------- 0120 0004 000d | | .DEBUG4 0x0004,0x000d,0x509f,0x0000,0x0001,0x0000 0126 e858 005d | X ]| .XXX[0x3] 0128 971e | | 0129 0000 0000 | | .BLANK 0000[0x4] 012d 0010 0000 | | .XXX[0x7] 012f 0000 0000 | | 0131 000f ffff | | 0133 fff0 | | 0134 0000 0000 | | .BLANK 0000[0x5] 0139 0020 0001 | | .XXX[0x5] 013b 3980 0000 |9 | 013d 0730 | 0 | 013e 0000 0000 | | .BLANK 0000[0x4] 0142 c000 0000 | | .XXX[0xb] 0144 0000 0000 | | 0146 0002 0000 | | 0148 0000 0000 | | 014a 0001 ffff | | 014c fffe | | 014d 0000 0000 | | .BLANK 0000[0x5] 0152 0004 0000 | | .XXX[0xa] 0154 27a0 0000 |' | 0156 0015 6000 | ` | 0158 0000 0000 | | 015a 0000 1800 | | 015c 0000 0000 | | .BLANK 0000[0x4] 0160 4000 0000 |@ | .XXX[0x7] 0162 0000 0000 | | 0164 3fff ffff |? | 0166 c000 | | 0167 0000 0000 | | .BLANK 0000[0x5] 016c 8000 04f5 | | .XXX[0x9] 016e 0000 0002 | | 0170 d000 0000 | | 0172 0000 0000 | | 0174 0300 | | 0175 0000 0000 | | .BLANK 0000[0x4] 0179 0800 0000 | | .XXX[0x7] 017b 0000 0000 | | 017d 07ff ffff | | 017f f800 | | 0180 0000 0000 | | .BLANK 0000[0x5] 0185 1000 009f | | .XXX[0x9] 0187 e000 0001 | | 0189 750e 803e |u >| 018b 8580 05d9 | | 018d ad60 | ` | 018e 0000 0000 | | .BLANK 0000[0x4] 0192 0100 0000 | | .XXX[0x7] 0194 0000 0000 | | 0196 00ff ffff | | 0198 ff00 | | 0199 0000 0000 | | .BLANK 0000[0x5] 019e 0200 0014 | | .XXX[0x9] 01a0 1400 0000 | | 01a2 1d01 d007 | | 01a4 d0b0 00bb | | 01a6 3d1c |= | 01a7 0000 0000 | | .BLANK 0000[0x4] 01ab 0020 0000 | | .XXX[0x7] 01ad 0000 0000 | | 01af 001f ffff | | 01b1 ffe0 | | 01b2 0000 0000 | | .BLANK 0000[0x5] 01b7 0040 0002 | @ | .XXX[0x14] 01b9 8480 0000 | | 01bb 0212 0000 | | 01bd 0000 0000 | | 01bf 0001 8000 | | 01c1 0000 0000 | | 01c3 0000 0004 | | 01c5 0000 0000 | | 01c7 0000 0003 | | 01c9 ffff fffc | | 01cb 0000 0000 | | .BLANK 0000[0x5] 01d0 0008 0000 | | .XXX[0xa] 01d2 50b0 0000 |P | 01d4 0034 0740 | 4 @| 01d6 1f42 c002 | B | 01d8 ed12 3000 | 0 | 01da 0000 0000 | | .BLANK 0000[0x4] 01de 8000 0000 | | .XXX[0x7] 01e0 0000 0000 | | 01e2 7fff ffff | | 01e4 8000 | | 01e5 0000 0000 | | .BLANK 0000[0x4] 01e9 0001 0000 | | .XXX[0xa] 01eb 0a18 0000 | | 01ed 002c 2800 | ,( | 01ef 0000 0000 | | 01f1 0000 0600 | | 01f3 0000 0000 | | .BLANK 0000[0x4] 01f7 1000 0000 | | .XXX[0x9] 01f9 0000 0000 | | 01fb 0fff ffff | | 01fd f000 0000 | | 01ff 0000 | |