|
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_0bf8df
└─⟦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 00b0 | | .CONST 0x00b0 ; 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 0018 | | .CONST 0x0018 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 000f 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 0011 00bf | | Action Accept_Activation 0012 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0013 00c7 | | Action Elaborate_Subprogram 0014 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0015 00c7 | | Action Elaborate_Subprogram 0016 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0017 00c7 | | Action Elaborate_Subprogram 0018 BODY_0008: 0018 00bc | | Action Signal_Activated 0019 00bb | | Action Signal_Completion 001a 0000 0000 | | .BLANK 0000[0x6] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 002b | + | .CONST 0x002b ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0002 | | .CONST 0x0002 ; Number of locals 0023 INIT_0020: 0023 4800 |H | Short_Literal 0x0 0024 00db | | Load_Top At_Offset_3 0025 0092 00a3 | | Action Push_String_Extended,0xa3 ; "!!" 0027 e002 | | Load 0x0,0x2 0028 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0029 00e2 | | Load_Encached Integer_Cache 002a 03f1 | | Declare_Variable Discrete,With_Value 002b BODY_0020: 002b 00d8 | | Load_Top At_Offset_0 002c 700f |p | Jump_Nonzero 0x3c 002d 00db | | Load_Top At_Offset_3 002e 01db | | Execute Vector,Length 002f 7008 |p | Jump_Nonzero 0x38 0030 4801 |H | Short_Literal 0x1 0031 4806 |H | Short_Literal 0x6 0032 00e9 | | Load_Encached String_Cache 0033 0334 | 4 | Declare_Variable Array,With_Constraint 0034 5017 |P | Indirect_Literal Any,0x4c,{0x5443502f, 0x49502020} 0035 e003 | | Load 0x0,0x3 0036 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0037 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0038 00db | | Load_Top At_Offset_3 0039 0335 | 5 | Declare_Variable Array,Duplicate 003a 00cd | | Action Spare6_Action 003b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 003c 00d8 | | Load_Top At_Offset_0 003d 0a02 | | Execute_Immediate Plus,0x2 003e 00d8 | | Load_Top At_Offset_0 003f 00e2 | | Load_Encached Integer_Cache 0040 0260 | ` | Execute Discrete,In_Type 0041 7001 |p | Jump_Nonzero 0x43 0042 0801 | | Execute_Immediate Raise,0x1 0043 e5ff | | Load 0x2,-0x1 0044 01dc | | Execute Vector,Last 0045 e5ff | | Load 0x2,-0x1 0046 01cf | | Execute Vector,Slice_Read 0047 0335 | 5 | Declare_Variable Array,Duplicate 0048 00cd | | Action Spare6_Action 0049 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 004a 0000 0000 | | .XXX[0x2] 004c 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020} 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0055 | U | .CONST 0x0055 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0002 | | .CONST 0x0002 ; Number of locals 0053 INIT_0050: 0053 029f 007b | {| Declare_Subprogram INIT_0078,For_Call 0055 BODY_0050: 0055 e5fe | | Load 0x2,-0x2 0056 01db | | Execute Vector,Length 0057 6804 |h | Jump_Zero 0x5c 0058 e5fe | | Load 0x2,-0x2 0059 0335 | 5 | Declare_Variable Array,Duplicate 005a 00cd | | Action Spare6_Action 005b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 005c 8402 | | Call 0x2,0x2 005d 0831 | 1 | Execute_Immediate Raise,0x31 005e 0000 0000 | | .XXX[0x2] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0065 | e | .CONST 0x0065 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0002 | | .CONST 0x0002 ; Number of locals 0063 INIT_0060: 0063 029f 0093 | | Declare_Subprogram INIT_0090,For_Call 0065 BODY_0060: 0065 e5fe | | Load 0x2,-0x2 0066 01db | | Execute Vector,Length 0067 680b |h | Jump_Zero 0x73 0068 e5fe | | Load 0x2,-0x2 0069 0092 00a4 | | Action Push_String_Extended,0xa4 ; "<NONE>" 006b 01df | | Execute Vector,Equal 006c 6802 |h | Jump_Zero 0x6f 006d 00ea | | Load_Encached Null_String_Cache 006e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 006f e5fe | | Load 0x2,-0x2 0070 0335 | 5 | Declare_Variable Array,Duplicate 0071 00cd | | Action Spare6_Action 0072 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0073 8402 | | Call 0x2,0x2 0074 0831 | 1 | Execute_Immediate Raise,0x31 0075 0000 0000 | | .XXX[0x3] 0077 0000 | | 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 0080 | | .CONST 0x0080 ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0002 | | .CONST 0x0002 ; Number of locals 007b INIT_0078: 007b e004 | | Load 0x0,0x4 007c 180e | | Execute Package,Field_Execute,Field_Number 0xe 007d e5ff | | Load 0x2,-0x1 007e e005 | | Load 0x0,0x5 007f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0080 BODY_0078: 0080 00d8 | | Load_Top At_Offset_0 0081 01db | | Execute Vector,Length 0082 6803 |h | Jump_Zero 0x86 0083 00d8 | | Load_Top At_Offset_0 0084 00cb | | Action Pop_Block_With_Result 0085 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0086 e5fd | | Load 0x2,-0x3 0087 0335 | 5 | Declare_Variable Array,Duplicate 0088 00cd | | Action Spare6_Action 0089 00cb | | Action Pop_Block_With_Result 008a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 008b 0000 0000 | | .BLANK 0000[0x5] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0098 | | .CONST 0x0098 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0002 | | .CONST 0x0002 ; Number of locals 0093 INIT_0090: 0093 e004 | | Load 0x0,0x4 0094 180e | | Execute Package,Field_Execute,Field_Number 0xe 0095 e5ff | | Load 0x2,-0x1 0096 e005 | | Load 0x0,0x5 0097 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0098 BODY_0090: 0098 00d8 | | Load_Top At_Offset_0 0099 01db | | Execute Vector,Length 009a 6803 |h | Jump_Zero 0x9e 009b 00d8 | | Load_Top At_Offset_0 009c 00cb | | Action Pop_Block_With_Result 009d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 009e e5fd | | Load 0x2,-0x3 009f 0335 | 5 | Declare_Variable Array,Duplicate 00a0 00cd | | Action Spare6_Action 00a1 00cb | | Action Pop_Block_With_Result 00a2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00a3 ; -------------------------------------------------------------------------------------- 00a3 ; STRING TABLE 00a3 ; -------------------------------------------------------------------------------------- 00a3 0006 | | .STRTAB 0x0006->0x00a6 ; "!!" 00a4 0006 | | .STRTAB 0x0006->0x00a7 ; "<NONE>" 00a5 000a | | .STREND 0x000a->0x00aa 00a6 2121 3c4e |!!<N| .STRTAB_STRINGS 00aa 0000 0000 | | .BLANK 0000[0x6] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; Debug Table 00b0 ; -------------------------------------------------------------------------------------- 00b0 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b99,0x0000,0x0001,0x0000 00b6 0000 0000 | | .XXX[0xc] 00b8 000c 7600 | v | 00ba 000b 2440 | $@| 00bc 0000 0480 | | 00be 0142 0700 | B | 00c0 0000 0180 | | 00c2 0000 0000 | | .BLANK 0000[0x4] 00c6 0005 5500 | U | .XXX[0xa] 00c8 0004 ac20 | | 00ca 0000 0240 | @| 00cc 00a1 0400 | | 00ce 0000 00c0 | | 00d0 0000 0000 | | .BLANK 0000[0x4] 00d4 0002 3f80 | ? | .XXX[0xa] 00d6 0001 f310 | | 00d8 0000 0120 | | 00da 0050 8240 | P @| 00dc 0000 0060 | `| 00de 0000 0000 | | .BLANK 0000[0x5] 00e3 ea40 0000 | @ | .XXX[0x9] 00e5 c008 0000 | | 00e7 0090 0028 | (| 00e9 4140 0000 |A@ | 00eb 0030 | 0 | 00ec 0000 0000 | | .BLANK 0000[0x5] 00f1 55e0 0002 |U | .XXX[0x9] 00f3 68ec 0000 |h | 00f5 0048 0014 | H | 00f7 20b0 0000 | | 00f9 0018 | | 00fa 0000 0000 | | .BLANK 0000[0x5] 00ff 0d02 c081 | | .XXX[0x101] 0101 0000 04f3 | | 0103 c000 10f8 | | 0105 4000 01d0 |@ | 0107 4000 01d0 |@ | 0109 4081 0cc0 |@ | 010b 810c c081 | | 010d 0cc0 810c | | 010f c081 0cc0 | | 0111 810c c081 | | 0113 0cc0 810c | | 0115 c081 0cc0 | | 0117 810c c081 | | 0119 0cc0 810c | | 011b c081 0cc0 | | 011d 810c c028 | (| 011f 810c c081 | | 0121 0cc0 810c | | 0123 c081 0cc0 | | 0125 810c c081 | | 0127 0cc0 810c | | 0129 c081 0cc0 | | 012b 810c c081 | | 012d 0cc0 810c | | 012f c081 0cc0 | | 0131 810c c081 | | 0133 0cc0 810c | | 0135 c081 0cc0 | | 0137 8119 1481 | | 0139 1914 f829 | )| 013b 4161 310c |Aa1 | 013d 8149 4028 | I@(| 013f c4dc c8d0 | | 0141 80c8 e4c8 | | 0143 d481 6164 | ad| 0145 8118 c8e0 | | 0147 a16c a54c | l L| 0149 2961 4080 |)a@ | 014b bd18 d4d8 | | 014d 80bd 8db5 | | 014f cde4 e080 | | 0151 ccc0 c080 | | 0153 cccc b8c8 | | 0155 80cc ccb8 | | 0157 c880 c4c8 | | 0159 e081 6cb4 | l | 015b c480 b4cc | | 015d c880 cce0 | | 015f 80c8 d974 | t| 0161 8141 6131 | Aa1| 0163 3918 8149 |9 I| 0165 4029 6140 |@)a@| 0167 80bd 18d4 | | 0169 d880 c080 | | 016b c8dc 80cc | | 016d 80dc 80c8 | | 016f cc80 e480 | | 0171 c880 c8d0 | | 0173 80c0 28f1 | ( | 0175 1919 1919 | | 0177 18c0 8119 | | 0179 1919 1918 | | 017b c0f8 2941 | )A| 017d 6131 0c81 |a1 | 017f 4940 28c4 |I@( | 0181 dccc cc80 | | 0183 c8e4 c8d4 | | 0185 8161 6481 | ad | 0187 18d4 d8a1 | | 0189 70c0 c0c0 |p | 018b a54c 2961 | L)a| 018d 4080 bd18 |@ | 018f e0dc 80c8 | | 0191 d480 c8c0 | | 0193 80c4 80c0 | | 0195 80c4 e480 | | 0197 c4d0 80c4 | | 0199 d080 c8d0 | | 019b 80c0 28f0 | ( | 019d c119 1919 | | 019f 0cc0 80c5 | | 01a1 1919 190c | | 01a3 c080 c8c4 | | 01a5 c0e0 c0c0 | | 01a7 80d0 c4c4 | | 01a9 c0c0 c080 | | 01ab e0c4 c4c0 | | 01ad c0c0 80c0 | | 01af c8c4 c0c0 | | 01b1 c080 c0c8 | | 01b3 c4c0 c0c0 | | 01b5 80c0 c8c4 | | 01b7 c0c0 c080 | | 01b9 c0d8 c4c0 | | 01bb c0c0 2880 | ( | 01bd c0d0 c4c0 | | 01bf c0c0 80c1 | | 01c1 0cc4 c0c0 | | 01c3 c080 c10c | | 01c5 c4e0 c0c0 | | 01c7 80c4 e0c4 | | 01c9 e0c0 c080 | | 01cb c4e0 c0e0 | | 01cd c0c0 f829 | )| 01cf 4161 310c |Aa1 | 01d1 8149 4028 | I@(| 01d3 c4dc d8c4 | | 01d5 80c8 e4c8 | | 01d7 d481 6164 | ad| 01d9 8118 e0dc | | 01db a170 c0cc | p | 01dd c4a5 4c80 | L | 01df c481 e0a0 | | 01e1 eca5 4c80 | L | 01e3 d881 e0a1 | | 01e5 70c0 ccc4 |p | 01e7 a54c 80c4 | L | 01e9 81e0 8118 | | 01eb c8e0 a170 | p| 01ed a4a5 4c80 | L | 01ef c4c4 81e0 | | 01f1 8118 d4d4 | | 01f3 28a1 c985 |( | 01f5 91a5 85b9 | | 01f7 ccb0 a54c | L| 01f9 80c4 c481 | | 01fb e0a1 85b9 | | 01fd 90a5 4c80 | L | 01ff c4c4 | |