|
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 858d d5d1 | | .XXX[0x8a] 0178 9480 bd91 | | 017a a595 c995 | | 017c cda5 cc80 | | 017e bdb9 bdd1 | | 0180 95c5 d585 | | 0182 b080 bd05 | | 0184 1480 bd3d | =| 0186 cdb1 85cd | | 0188 a028 80bd | ( | 018a a5b9 99a5 | | 018c b9a5 d1e4 | | 018e 80bd c1b1 | | 0190 d5cd b5a5 | | 0192 b9d5 cc80 | | 0194 bdb1 95cd | | 0196 cd95 c5d5 | | 0198 85b0 80bd | | 019a 9dc9 9585 | | 019c d195 c995 | | 019e c5d5 85b0 | | 01a0 80bd e595 | | 01a2 b880 bdb5 | | 01a4 d480 bdc1 | | 01a6 85c9 d1a5 | | 01a8 85b1 91a5 | | 01aa 9998 80bd | | 01ac cdd5 b5b5 | | 01ae 85d1 a5bd | | 01b0 b828 80bd | ( | 01b2 c1c9 bd91 | | 01b4 d58d d080 | | 01b6 bdc1 a480 | | 01b8 bda5 b9d1 | | 01ba 959d c985 | | 01bc b080 bdbd | | 01be c991 9995 | | 01c0 b5a5 b9a5 | | 01c2 b994 80bd | | 01c4 bdc9 91b5 | | 01c6 85cd 8dd5 | | 01c8 b1a5 b994 | | 01ca 80bd 3db5 | = | 01cc 959d 8480 | | 01ce bd85 9480 | | 01d0 bdbd cdb1 | | 01d2 85cd a028 | (| 01d4 80bd c5d5 | | 01d6 95cd d1a5 | | 01d8 bdb9 91bd | | 01da ddb8 80bd | | 01dc 95e1 8db1 | | 01de 85b5 91bd | | 01e0 ddb8 80bd | | 01e2 b1bd 9da5 | | 01e4 8d85 b1b9 | | 01e6 bdd0 80bd | | 01e8 c985 91a5 | | 01ea 8d85 b080 | | 01ec bd99 b1bd | | 01ee c9a5 b880 | | 01f0 bd85 c1c1 | | 01f2 c9bd e195 | | 01f4 c5d5 85b0 | | 01f6 80bd 1195 | | 01f8 b1d1 8480 | | 01fa bd9d d5a5 | | 01fc b1b1 95b5 | | 01fe bdd1 b195 | |