|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c8f4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 00e0 | | .CONST 0x00e0 ; 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 003e | > | .CONST 0x003e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001a | | .CONST 0x001a ; Number of locals 000b INIT_0008: 000b 00e3 | | Load_Encached Natural_Cache 000c 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 000d 00d8 | | Load_Top At_Offset_0 000e 0129 | ) | Execute Any,Make_Visible 000f 4800 |H | Short_Literal 0x0 0010 603f |`? | Indirect_Literal Discrete,0x50,{0x00000000, 0x0000ffff} 0011 00e3 | | Load_Encached Natural_Cache 0012 03f9 | | Declare_Type Discrete,Constrained,Visible 0013 6038 |`8 | Indirect_Literal Discrete,0x4c,{0x00000000, 0x00008000} 0014 00e7 | | Load_Encached Duration_Cache 0015 03f0 | | Declare_Variable Discrete,Visible,With_Value 0016 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 0018 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 001a 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 001c 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 001e 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0020 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0022 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0024 00bf | | Action Accept_Activation 0025 4801 |H | Short_Literal 0x1 0026 4820 |H | Short_Literal 0x20 0027 00e4 | | Load_Encached Positive_Cache 0028 03f8 | | Declare_Type Discrete,Constrained 0029 00d8 | | Load_Top At_Offset_0 002a 0007 | | Action Break_Optional 002b 4801 |H | Short_Literal 0x1 002c 4820 |H | Short_Literal 0x20 002d 00e9 | | Load_Encached String_Cache 002e 035b | [ | Declare_Type Array,Constrained 002f 0337 | 7 | Declare_Variable Array 0030 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0031 00c7 | | Action Elaborate_Subprogram 0032 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0033 00c7 | | Action Elaborate_Subprogram 0034 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0035 00c7 | | Action Elaborate_Subprogram 0036 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0037 00c7 | | Action Elaborate_Subprogram 0038 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0039 00c7 | | Action Elaborate_Subprogram 003a 1d17 | | Execute_Immediate Reference_Lex_1,0x17 003b 00c7 | | Action Elaborate_Subprogram 003c 1d12 | | Execute_Immediate Reference_Lex_1,0x12 003d 00c7 | | Action Elaborate_Subprogram 003e BODY_0008: 003e 00bc | | Action Signal_Activated 003f 00bb | | Action Signal_Completion 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 6004 |` | Indirect_Literal Discrete,0x48,{0x00000000, 0x00000414} 0044 00ca | | Action Exit_Nullary_Function 0045 0000 0000 | | .XXX[0x3] 0047 0000 | | 0048 0000 0000 | | .LITERAL {0x00000000, 0x00000414} 004c 0000 0000 | | .LITERAL {0x00000000, 0x00008000} 0050 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 0054 0000 0000 | | .BLANK 0000[0x4] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b 0092 00d2 | | Action Push_String_Extended,0xd2 ; "enter orb host name: " 005d e002 | | Load 0x0,0x2 005e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 005f 00e3 | | Load_Encached Natural_Cache 0060 e21a | | Load 0x1,0x1a 0061 e002 | | Load 0x0,0x2 0062 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 0063 00d1 | | Pop_Control Pop_Count_1 0064 c219 | | Store 0x1,0x19 0065 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0066 0000 0000 | | .XXX[0x2] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 4801 |H | Short_Literal 0x1 006c e219 | | Load 0x1,0x19 006d 00d8 | | Load_Top At_Offset_0 006e 00e2 | | Load_Encached Integer_Cache 006f 0260 | ` | Execute Discrete,In_Type 0070 7001 |p | Jump_Nonzero 0x72 0071 0801 | | Execute_Immediate Raise,0x1 0072 e21a | | Load 0x1,0x1a 0073 01cf | | Execute Vector,Slice_Read 0074 0335 | 5 | Declare_Variable Array,Duplicate 0075 00cd | | Action Spare6_Action 0076 00ca | | Action Exit_Nullary_Function 0077 0000 | | .XXX[0x1] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 0081 | | .CONST 0x0081 ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0002 | | .CONST 0x0002 ; Number of locals 007b INIT_0078: 007b 4800 |H | Short_Literal 0x0 007c 4803 |H | Short_Literal 0x3 007d e003 | | Load 0x0,0x3 007e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 007f 035b | [ | Declare_Type Array,Constrained 0080 0337 | 7 | Declare_Variable Array 0081 BODY_0078: 0081 e21a | | Load 0x1,0x1a 0082 e004 | | Load 0x0,0x4 0083 180e | | Execute Package,Field_Execute,Field_Number 0xe 0084 00d9 | | Load_Top At_Offset_1 0085 01d4 | | Execute Vector,Structure_Write 0086 4800 |H | Short_Literal 0x0 0087 00d9 | | Load_Top At_Offset_1 0088 01d7 | | Execute Vector,Field_Read 0089 00ca | | Action Exit_Nullary_Function 008a 0000 0000 | | .BLANK 0000[0x6] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0099 | | .CONST 0x0099 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0002 | | .CONST 0x0002 ; Number of locals 0093 INIT_0090: 0093 4800 |H | Short_Literal 0x0 0094 4803 |H | Short_Literal 0x3 0095 e003 | | Load 0x0,0x3 0096 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0097 035b | [ | Declare_Type Array,Constrained 0098 0337 | 7 | Declare_Variable Array 0099 BODY_0090: 0099 e21a | | Load 0x1,0x1a 009a e004 | | Load 0x0,0x4 009b 180e | | Execute Package,Field_Execute,Field_Number 0xe 009c 00d9 | | Load_Top At_Offset_1 009d 01d4 | | Execute Vector,Structure_Write 009e 4801 |H | Short_Literal 0x1 009f 00d9 | | Load_Top At_Offset_1 00a0 01d7 | | Execute Vector,Field_Read 00a1 00ca | | Action Exit_Nullary_Function 00a2 0000 0000 | | .BLANK 0000[0x6] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00b1 | | .CONST 0x00b1 ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0002 | | .CONST 0x0002 ; Number of locals 00ab INIT_00a8: 00ab 4800 |H | Short_Literal 0x0 00ac 4803 |H | Short_Literal 0x3 00ad e003 | | Load 0x0,0x3 00ae 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00af 035b | [ | Declare_Type Array,Constrained 00b0 0337 | 7 | Declare_Variable Array 00b1 BODY_00a8: 00b1 e21a | | Load 0x1,0x1a 00b2 e004 | | Load 0x0,0x4 00b3 180e | | Execute Package,Field_Execute,Field_Number 0xe 00b4 00d9 | | Load_Top At_Offset_1 00b5 01d4 | | Execute Vector,Structure_Write 00b6 4802 |H | Short_Literal 0x2 00b7 00d9 | | Load_Top At_Offset_1 00b8 01d7 | | Execute Vector,Field_Read 00b9 00ca | | Action Exit_Nullary_Function 00ba 0000 0000 | | .BLANK 0000[0x6] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c9 | | .CONST 0x00c9 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0002 | | .CONST 0x0002 ; Number of locals 00c3 INIT_00c0: 00c3 4800 |H | Short_Literal 0x0 00c4 4803 |H | Short_Literal 0x3 00c5 e003 | | Load 0x0,0x3 00c6 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00c7 035b | [ | Declare_Type Array,Constrained 00c8 0337 | 7 | Declare_Variable Array 00c9 BODY_00c0: 00c9 e21a | | Load 0x1,0x1a 00ca e004 | | Load 0x0,0x4 00cb 180e | | Execute Package,Field_Execute,Field_Number 0xe 00cc 00d9 | | Load_Top At_Offset_1 00cd 01d4 | | Execute Vector,Structure_Write 00ce 4803 |H | Short_Literal 0x3 00cf 00d9 | | Load_Top At_Offset_1 00d0 01d7 | | Execute Vector,Field_Read 00d1 00ca | | Action Exit_Nullary_Function 00d2 ; -------------------------------------------------------------------------------------- 00d2 ; STRING TABLE 00d2 ; -------------------------------------------------------------------------------------- 00d2 0004 | | .STRTAB 0x0004->0x00d4 ; "enter orb host name: " 00d3 0017 | | .STREND 0x0017->0x00de 00d4 656e 7465 |ente| .STRTAB_STRINGS 00df 0000 | | .XXX[0x1] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; Debug Table 00e0 ; -------------------------------------------------------------------------------------- 00e0 0004 0002 | | .DEBUG4 0x0004,0x0002,0xd8af,0x0000,0x0001,0x0000 00e6 6cae 6e6d |l nm| .XXX[0x11a] 00e8 2ded ce65 |- e| 00ea c40a 8d0c | | 00ec a40e 8f2e | .| 00ee 0ca4 0d2e | .| 00f0 640e ae6c |d l| 00f2 ac84 0eed | | 00f4 2e8d 040e |. | 00f6 8d0c a000 | | 00f8 000a 4000 | @ | 00fa 0008 e92d | -| 00fc cd2e 840c | . | 00fe 2dcc 8409 |- | 0100 ccaf 0e84 | | 0102 0e0e 4dec | M | 0104 6cac 8eae |l | 0106 4cae 640c |L d | 0108 2dcc 840e |- | 010a 8d0c a40a | | 010c cc2d 8eac | - | 010e a40c 2dcc | - | 0110 8408 8ded | | 0112 cca4 0cce | | 0114 adcc 6e8d | n | 0116 2ded ce65 |- e| 0118 c40a 4cac | L | 011a ccae 440e | D | 011c 8de4 0e8d | | 011e 0ca0 0000 | | 0120 0a20 0000 | | 0122 0904 092d | -| 0124 cd2e 840c | . | 0126 2dcc 8409 |- | 0128 ccaf 0e84 | | 012a 0e0e 4dec | M | 012c 6cac 8eae |l | 012e 4cae 640c |L d | 0130 2dcc 840e |- | 0132 8d0c a40a | | 0134 cc2d 8eac | - | 0136 a40c 2dcc | - | 0138 8408 8ded | | 013a cca4 0cce | | 013c adcc 6e8d | n | 013e 2ded ce65 |- e| 0140 c40a 4cac | L | 0142 ccae 440e | D | 0144 8de4 0e8d | | 0146 0ca0 0000 | | 0148 0a20 0000 | | 014a 0904 092d | -| 014c cd2e 840c | . | 014e 2dcc 8409 |- | 0150 ccaf 0e84 | | 0152 0e0e 4dec | M | 0154 6cac 8eae |l | 0156 4cae 640c |L d | 0158 2dcc 840e |- | 015a 8d0c a40a | | 015c cc2d 8eac | - | 015e a40c 2dcc | - | 0160 8408 8ded | | 0162 cca4 0cce | | 0164 adcc 6e8d | n | 0166 2ded ce65 |- e| 0168 c40a 4cac | L | 016a ccae 440e | D | 016c 8de4 0e8d | | 016e 0ca0 0000 | | 0170 0360 0000 | ` | 0172 0924 492e | $I.| 0174 8cae 4c2e | L.| 0176 8d2d edc4 | - | 0178 086c 2e0c | l. | 017a 2c4d 2d8d |,M- | 017c 2e8f 2444 |. $D| 017e 0e6e ac4e | n N| 0180 6cac 6e8d |l n | 0182 2ded c40d |- | 0184 2dc4 0e8d |- | 0186 0ca4 0d2d | -| 0188 ce8e 4dec | M | 018a 8eac 6e8d | n | 018c 2ded c40e |- | 018e 8de4 0e8d | | 0190 0d2e 640e | .d | 0192 0c2c 6d6c | ,ml| 0194 2cec a40c |, | 0196 cdee 4000 | @ | 0198 0003 4000 | @ | 019a 0009 4404 | D | 019c 492e 8cae |I. | 019e 4c2e 8d2d |L. -| 01a0 edc4 086c | l| 01a2 2e0c 2c4d |. ,M| 01a4 2d8d 2e8f |- . | 01a6 2444 0e6e |$D n| 01a8 ac4e 6cac | Nl | 01aa 6e8d 2ded |n - | 01ac c40d 2dc4 | - | 01ae 0e8d 0ca4 | | 01b0 0d2d ce8e | - | 01b2 4dec 8eac |M | 01b4 6e8d 2ded |n - | 01b6 c40e 8de4 | | 01b8 0e8d 0d2e | .| 01ba 640e 0c2c |d ,| 01bc 6d6c 2cec |ml, | 01be a40c cdee | | 01c0 4000 0003 |@ | 01c2 4000 0009 |@ | 01c4 4404 492e |D I.| 01c6 8cae 4c2e | L.| 01c8 8d2d edc4 | - | 01ca 086c 2e0c | l. | 01cc 2c4d 2d8d |,M- | 01ce 2e8f 2444 |. $D| 01d0 0e6e ac4e | n N| 01d2 6cac 6e8d |l n | 01d4 2ded c40d |- | 01d6 2dc4 0e8d |- | 01d8 0ca4 0d2d | -| 01da ce8e 4dec | M | 01dc 8eac 6e8d | n | 01de 2ded c40e |- | 01e0 8de4 0e8d | | 01e2 0d2e 640e | .d | 01e4 0c2c 6d6c | ,ml| 01e6 2cec a40c |, | 01e8 cdee 4000 | @ | 01ea 000c c000 | | 01ec 0005 8dad | | 01ee ee4c a40d | L | 01f0 2dcc cdee |- | 01f2 4dac 2e8d |M . | 01f4 2ded c40c |- | 01f6 2c4d eeae |,M | 01f8 840e 8d0c | | 01fa a40e 6cae | l | 01fc 6e6d 2ded |nm- | 01fe c40d 2e8c | . |