|
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_0d2ce3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 8001 | | Call 0x0,0x1 001f 686e |hn | Jump_Zero 0x8e 0020 e002 | | Load 0x0,0x2 0021 180e | | Execute Package,Field_Execute,Field_Number 0xe 0022 e002 | | Load 0x0,0x2 0023 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0024 0092 00e3 | | Action Push_String_Extended,0xe3 ; "!Machine.Temporary.New_Item_Temp_List" 0026 e003 | | Load 0x0,0x3 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 e004 | | Load 0x0,0x4 0033 180e | | Execute Package,Field_Execute,Field_Number 0xe 0034 e002 | | Load 0x0,0x2 0035 180e | | Execute Package,Field_Execute,Field_Number 0xe 0036 e002 | | Load 0x0,0x2 0037 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0038 e003 | | Load 0x0,0x3 0039 180f | | Execute Package,Field_Execute,Field_Number 0xf 003a 0092 00e3 | | Action Push_String_Extended,0xe3 ; "!Machine.Temporary.New_Item_Temp_List" 003c 8001 | | Call 0x0,0x1 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 e005 | | Load 0x0,0x5 0047 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0048 e002 | | Load 0x0,0x2 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 e003 | | Load 0x0,0x3 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 e004 | | Load 0x0,0x4 005a 180e | | Execute Package,Field_Execute,Field_Number 0xe 005b e002 | | Load 0x0,0x2 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 e003 | | Load 0x0,0x3 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 e004 | | Load 0x0,0x4 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 8001 | | Call 0x0,0x1 0076 6817 |h | Jump_Zero 0x8e 0077 e002 | | Load 0x0,0x2 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 e003 | | Load 0x0,0x3 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 e006 | | Load 0x0,0x6 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 e007 | | Load 0x0,0x7 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 e007 | | Load 0x0,0x7 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 e007 | | Load 0x0,0x7 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 e007 | | Load 0x0,0x7 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 e007 | | Load 0x0,0x7 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 e007 | | Load 0x0,0x7 00b9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ba c603 | | Store 0x3,0x3 00bb 00da | | Load_Top At_Offset_2 00bc e007 | | Load 0x0,0x7 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 e007 | | Load 0x0,0x7 00c6 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 00c7 e008 | | Load 0x0,0x8 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 e008 | | Load 0x0,0x8 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 e008 | | Load 0x0,0x8 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 e007 | | Load 0x0,0x7 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 0000 | | .DEBUG4 0x0004,0x0000,0x7792,0x0000,0x0001,0x0000 0176 4d51 0539 |MQ 9| .XXX[0x8a] 0178 1105 4910 | I | 017a b931 3d39 | 1=9| 017c 1d7d 2539 | }%9| 017e 5115 1d15 |Q | 0180 4800 0000 |H | 0182 0000 0800 | | 0184 3c00 295d |< )]| 0186 3d49 114c |=I L| 0188 b95d 3d49 | ]=I| 018a 10ee 65c4 | e | 018c 0000 0004 | | 018e 0024 0015 | $ | 0190 5d3d 4911 |]=I | 0192 4cf9 f000 |L | 0194 0000 1002 | | 0196 0400 595d | Y]| 0198 3d49 114c |=I L| 019a b94d 2125 | M!%| 019c 1951 7d31 | Q}1| 019e 3d1d 250d |= % | 01a0 0531 7d3d | 1}=| 01a2 40f5 ee51 |@ Q| 01a4 fa40 8c00 | @ | 01a6 1111 0551 | Q| 01a8 045c 0055 | \ U| 01aa 4d51 0539 |MQ 9| 01ac 1105 4910 | I | 01ae b931 3d39 | 1=9| 01b0 1d7d 2539 | }%9| 01b2 5115 1d15 |Q | 01b4 4801 fa40 |H @| 01b6 8c00 1905 | | 01b8 353d 5539 |5=U9| 01ba 505c 0041 |P\ A| 01bc 4d51 0539 |MQ 9| 01be 1105 4910 | I | 01c0 b925 3951 | %9Q| 01c2 151d 1548 | H| 01c4 01f6 4094 | @ | 01c6 0019 4915 | I | 01c8 4d55 3150 |MU1P| 01ca 5c00 554d |\ UM| 01cc 5105 3911 |Q 9 | 01ce 0549 10b9 | I | 01d0 313d 391d |1=9 | 01d2 7d25 3951 |}%9Q| 01d4 151d 1548 | H| 01d6 0000 0c00 | | 01d8 0004 2400 | $ | 01da 2109 054d |! M| 01dc 1551 6541 | QeA| 01de 1408 0000 | | 01e0 000c 0008 | | 01e2 001d ad5c | \| 01e4 0234 0014 | 4 | 01e6 0004 0000 | | 01e8 0000 00a8 | | 01ea 0008 0004 | | 01ec 0004 0034 | 4| 01ee 000c 0004 | | 01f0 0004 0038 | 8| 01f2 0010 0004 | | 01f4 0004 003c | <| 01f6 0018 0004 | | 01f8 0004 0040 | @| 01fa 001c 0004 | | 01fc 0004 0044 | D| 01fe 0020 0004 | |