|
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 0170 | p | .CONST 0x0170 ; 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 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 001d | | .CONST 0x001d ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0002 | | .CONST 0x0002 ; Number of locals 001b INIT_0018: 001b 029f 0093 | | Declare_Subprogram INIT_0090,For_Call 001d BODY_0018: 001d e5fe | | Load 0x2,-0x2 001e 8002 | | Call 0x0,0x2 001f 686e |hn | Jump_Zero 0x8e 0020 e003 | | Load 0x0,0x3 0021 180e | | Execute Package,Field_Execute,Field_Number 0xe 0022 e003 | | Load 0x0,0x3 0023 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0024 0092 00e3 | | Action Push_String_Extended,0xe3 ; "!Machine.Temporary.New_Item_Temp_List" 0026 e004 | | Load 0x0,0x4 0027 180e | | Execute Package,Field_Execute,Field_Number 0xe 0028 0092 00e4 | | Action Push_String_Extended,0xe4 ; "<QUIET>" 002a e5fe | | Load 0x2,-0x2 002b 0092 00e5 | | Action Push_String_Extended,0xe5 ; "R1000, New, Goal => Source, Effort_Only" 002d 0092 00e6 | | Action Push_String_Extended,0xe6 ; "*" 002f e5ff | | Load 0x2,-0x1 0030 0092 00e7 | | Action Push_String_Extended,0xe7 ; "?" 0032 e005 | | Load 0x0,0x5 0033 180e | | Execute Package,Field_Execute,Field_Number 0xe 0034 e003 | | Load 0x0,0x3 0035 180e | | Execute Package,Field_Execute,Field_Number 0xe 0036 e003 | | Load 0x0,0x3 0037 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0038 e004 | | Load 0x0,0x4 0039 180f | | Execute Package,Field_Execute,Field_Number 0xf 003a 0092 00e3 | | Action Push_String_Extended,0xe3 ; "!Machine.Temporary.New_Item_Temp_List" 003c 8002 | | Call 0x0,0x2 003d 680a |h | Jump_Zero 0x48 003e 8402 | | Call 0x2,0x2 003f 0092 00e4 | | Action Push_String_Extended,0xe4 ; "<QUIET>" 0041 0092 00e8 | | Action Push_String_Extended,0xe8 ; "<DIRECTORIES>" 0043 4801 |H | Short_Literal 0x1 0044 0092 00e3 | | Action Push_String_Extended,0xe3 ; "!Machine.Temporary.New_Item_Temp_List" 0046 e006 | | Load 0x0,0x6 0047 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0048 e003 | | Load 0x0,0x3 0049 180e | | Execute Package,Field_Execute,Field_Number 0xe 004a 4802 |H | Short_Literal 0x2 004b 0092 00e9 | | Action Push_String_Extended,0xe9 ; "Restoring New Universe Specs" 004d e004 | | Load 0x0,0x4 004e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 004f 0092 00ea | | Action Push_String_Extended,0xea ; "<PROFILE>" 0051 e5fe | | Load 0x2,-0x2 0052 0092 00eb | | Action Push_String_Extended,0xeb ; "R1000, New, Goal => Source" 0054 0092 00e6 | | Action Push_String_Extended,0xe6 ; "*" 0056 e5ff | | Load 0x2,-0x1 0057 0092 00e7 | | Action Push_String_Extended,0xe7 ; "?" 0059 e005 | | Load 0x0,0x5 005a 180e | | Execute Package,Field_Execute,Field_Number 0xe 005b e003 | | Load 0x0,0x3 005c 180e | | Execute Package,Field_Execute,Field_Number 0xe 005d 4802 |H | Short_Literal 0x2 005e 0092 00ec | | Action Push_String_Extended,0xec ; "Installing Universe links" 0060 e004 | | Load 0x0,0x4 0061 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0062 0092 00ea | | Action Push_String_Extended,0xea ; "<PROFILE>" 0064 e5fe | | Load 0x2,-0x2 0065 0092 00ed | | Action Push_String_Extended,0xed ; "Links" 0067 0092 00e6 | | Action Push_String_Extended,0xe6 ; "*" 0069 e5ff | | Load 0x2,-0x1 006a 0092 00e7 | | Action Push_String_Extended,0xe7 ; "?" 006c e005 | | Load 0x0,0x5 006d 180e | | Execute Package,Field_Execute,Field_Number 0xe 006e 0092 00ee | | Action Push_String_Extended,0xee ; "[_" 0070 e5fc | | Load 0x2,-0x4 0071 01cc | | Execute Vector,Catenate 0072 0092 00ef | | Action Push_String_Extended,0xef ; "]'c(ada)" 0074 01cc | | Execute Vector,Catenate 0075 8002 | | Call 0x0,0x2 0076 6817 |h | Jump_Zero 0x8e 0077 e003 | | Load 0x0,0x3 0078 180e | | Execute Package,Field_Execute,Field_Number 0xe 0079 4802 |H | Short_Literal 0x2 007a 0092 00f0 | | Action Push_String_Extended,0xf0 ; "Installing New Universe Specs" 007c e004 | | Load 0x0,0x4 007d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 007e 0092 00ea | | Action Push_String_Extended,0xea ; "<PROFILE>" 0080 4800 |H | Short_Literal 0x0 0081 0092 00f1 | | Action Push_String_Extended,0xf1 ; "<ALL_WORLDS>" 0083 4803 |H | Short_Literal 0x3 0084 4803 |H | Short_Literal 0x3 0085 0092 00ee | | Action Push_String_Extended,0xee ; "[_" 0087 e5fc | | Load 0x2,-0x4 0088 01cc | | Execute Vector,Catenate 0089 0092 00ef | | Action Push_String_Extended,0xef ; "]'c(ada)" 008b 01cc | | Execute Vector,Catenate 008c e007 | | Load 0x0,0x7 008d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 008e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 008f 0000 | | .XXX[0x1] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 009f | | .CONST 0x009f ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0004 | | .CONST 0x0004 ; Number of locals 0093 INIT_0090: 0093 e008 | | Load 0x0,0x8 0094 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0095 02c7 | | Declare_Variable Any 0096 00d8 | | Load_Top At_Offset_0 0097 1c00 | | Execute_Immediate Run_Utility,0x0 0098 e008 | | Load 0x0,0x8 0099 1b0d | | Execute Package,Field_Read,Field_Number 0xd 009a 02c7 | | Declare_Variable Any 009b 00d8 | | Load_Top At_Offset_0 009c 1c00 | | Execute_Immediate Run_Utility,0x0 009d 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 009f BODY_0090: 009f 00da | | Load_Top At_Offset_2 00a0 00ea | | Load_Encached Null_String_Cache 00a1 0092 00e3 | | Action Push_String_Extended,0xe3 ; "!Machine.Temporary.New_Item_Temp_List" 00a3 4800 |H | Short_Literal 0x0 00a4 e008 | | Load 0x0,0x8 00a5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00a6 c602 | | Store 0x3,0x2 00a7 00d9 | | Load_Top At_Offset_1 00a8 00ea | | Load_Encached Null_String_Cache 00a9 e5fc | | Load 0x2,-0x4 00aa 4801 |H | Short_Literal 0x1 00ab e008 | | Load 0x0,0x8 00ac 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00ad c603 | | Store 0x3,0x3 00ae 00cf | | Action Mark_Auxiliary 00af 7802 |x | Jump 0xb2 00b0 8604 | | Call 0x3,0x4 00b1 00c9 | | Action Pop_Auxiliary_Loop 00b2 00db | | Load_Top At_Offset_3 00b3 e008 | | Load 0x0,0x8 00b4 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 00b5 6ffa |o | Jump_Zero 0xb0 00b6 00ce | | Action Pop_Auxiliary 00b7 00d9 | | Load_Top At_Offset_1 00b8 e008 | | Load 0x0,0x8 00b9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ba c603 | | Store 0x3,0x3 00bb 00da | | Load_Top At_Offset_2 00bc e008 | | Load 0x0,0x8 00bd 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00be c602 | | Store 0x3,0x2 00bf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00de | | .CONST 0x00de ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0004 | | .CONST 0x0004 ; Number of locals 00c3 INIT_00c0: 00c3 4820 |H | Short_Literal 0x20 00c4 e602 | | Load 0x3,0x2 00c5 e008 | | Load 0x0,0x8 00c6 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 00c7 e009 | | Load 0x0,0x9 00c8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00c9 4800 |H | Short_Literal 0x0 00ca 00d9 | | Load_Top At_Offset_1 00cb 4820 |H | Short_Literal 0x20 00cc e009 | | Load 0x0,0x9 00cd 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00ce 00e3 | | Load_Encached Natural_Cache 00cf 03f1 | | Declare_Variable Discrete,With_Value 00d0 4820 |H | Short_Literal 0x20 00d1 00d9 | | Load_Top At_Offset_1 00d2 0a01 | | Execute_Immediate Plus,0x1 00d3 00d8 | | Load_Top At_Offset_0 00d4 00e2 | | Load_Encached Integer_Cache 00d5 0260 | ` | Execute Discrete,In_Type 00d6 7001 |p | Jump_Nonzero 0xd8 00d7 0801 | | Execute_Immediate Raise,0x1 00d8 00db | | Load_Top At_Offset_3 00d9 01dc | | Execute Vector,Last 00da e802 | | Load 0x4,0x2 00db 01cf | | Execute Vector,Slice_Read 00dc e009 | | Load 0x0,0x9 00dd 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00de BODY_00c0: 00de 00d8 | | Load_Top At_Offset_0 00df e603 | | Load 0x3,0x3 00e0 e008 | | Load 0x0,0x8 00e1 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 00e2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e3 ; -------------------------------------------------------------------------------------- 00e3 ; STRING TABLE 00e3 ; -------------------------------------------------------------------------------------- 00e3 0020 | | .STRTAB 0x0020->0x00f3 ; "!Machine.Temporary.New_Item_Temp_List" 00e4 0043 | C | .STRTAB 0x0043->0x0105 ; "<QUIET>" 00e5 0048 | H | .STRTAB 0x0048->0x0109 ; "R1000, New, Goal => Source, Effort_Only" 00e6 006d | m | .STRTAB 0x006d->0x011c ; "*" 00e7 006c | l | .STRTAB 0x006c->0x011d ; "?" 00e8 006b | k | .STRTAB 0x006b->0x011d ; "<DIRECTORIES>" 00e9 0076 | v | .STRTAB 0x0076->0x0124 ; "Restoring New Universe Specs" 00ea 0090 | | .STRTAB 0x0090->0x0132 ; "<PROFILE>" 00eb 0097 | | .STRTAB 0x0097->0x0136 ; "R1000, New, Goal => Source" 00ec 00af | | .STRTAB 0x00af->0x0143 ; "Installing Universe links" 00ed 00c6 | | .STRTAB 0x00c6->0x0150 ; "Links" 00ee 00c9 | | .STRTAB 0x00c9->0x0152 ; "[_" 00ef 00c9 | | .STRTAB 0x00c9->0x0153 ; "]'c(ada)" 00f0 00cf | | .STRTAB 0x00cf->0x0157 ; "Installing New Universe Specs" 00f1 00ea | | .STRTAB 0x00ea->0x0166 ; "<ALL_WORLDS>" 00f2 00f4 | | .STREND 0x00f4->0x016c 00f3 214d 6163 |!Mac| .STRTAB_STRINGS 016c 0000 0000 | | .BLANK 0000[0x4] 0170 ; -------------------------------------------------------------------------------------- 0170 ; Debug Table 0170 ; -------------------------------------------------------------------------------------- 0170 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b86,0x0000,0x0001,0x0000 0176 8105 b97d | }| .XXX[0xb] 0178 25b9 9195 |% | 017a e195 917d | }| 017c 0dbd b5c1 | | 017e bdb9 95b9 | | 0180 d0b0 | | 0181 8080 8080 | | .BLANK 8080[0x12] 0193 b4b4 8131 | 1| .XXX[0xf] 0195 4934 80d0 |I4 | 0197 b8c4 b8c4 | | 0199 2880 8080 |( | 019b 8080 8080 | | 019d 8105 7d4d | }M| 019f b1a5 8d94 | | 01a1 b080 | | 01a2 8080 8080 | | .BLANK 8080[0x18] 01ba b4b4 8131 | 1| .XXX[0x15] 01bc 4934 80d0 |I4 | 01be b8c4 b8c8 | | 01c0 2880 8080 |( | 01c2 8080 8080 | | 01c4 8105 7d4d | }M| 01c6 95b1 958d | | 01c8 d195 917d | }| 01ca 0dbd b5c1 | | 01cc bdb9 95b9 | | 01ce d0b0 | | 01cf 8080 8080 | | .BLANK 8080[0x12] 01e1 b4b4 8131 | 1| .XXX[0x11] 01e3 4934 80d0 |I4 | 01e5 b8c4 b8cc | | 01e7 2880 8080 |( | 01e9 8080 8080 | | 01eb 8105 b97d | }| 01ed 05d1 d1c9 | | 01ef a589 d5d1 | | 01f1 94b0 | | 01f2 8080 8080 | | .BLANK 8080[0xe]