|
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_5e40f2
└─⟦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 0100 | | .CONST 0x0100 ; 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 0026 | & | .CONST 0x0026 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0004 | | .CONST 0x0004 ; Number of locals 001b INIT_0018: 001b 0092 0088 | | Action Push_String_Extended,0x88 ; "!Machine[Initialize@,Editor_Data.@_Commands]" 001d e001 | | Load 0x0,0x1 001e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 001f 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0020 02c7 | | Declare_Variable Any 0021 00d8 | | Load_Top At_Offset_0 0022 1c00 | | Execute_Immediate Run_Utility,0x0 0023 e001 | | Load 0x0,0x1 0024 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0025 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0026 BODY_0018: 0026 0092 0089 | | Action Push_String_Extended,0x89 ; "Reboot_For_New_Release" 0028 8002 | | Call 0x0,0x2 0029 6858 |hX | Jump_Zero 0x82 002a 0092 008a | | Action Push_String_Extended,0x8a ; "<errors>" 002c 4800 |H | Short_Literal 0x0 002d 0092 008b | | Action Push_String_Extended,0x8b ; "<ALL_WORLDS>" 002f 4803 |H | Short_Literal 0x3 0030 4803 |H | Short_Literal 0x3 0031 e402 | | Load 0x2,0x2 0032 e003 | | Load 0x0,0x3 0033 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0034 e001 | | Load 0x0,0x1 0035 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0036 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0037 00da | | Load_Top At_Offset_2 0038 604b |`K | Indirect_Literal Discrete,0x84,{0x00000000, 0x00004000} 0039 e004 | | Load 0x0,0x4 003a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 003b e005 | | Load 0x0,0x5 003c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 003d e006 | | Load 0x0,0x6 003e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 003f 4801 |H | Short_Literal 0x1 0040 4800 |H | Short_Literal 0x0 0041 e005 | | Load 0x0,0x5 0042 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0043 e001 | | Load 0x0,0x1 0044 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0045 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0046 0092 008c | | Action Push_String_Extended,0x8c ; "!Machine[Initialize@,Editor_Data.@_Commands]'S(~coded)" 0048 e001 | | Load 0x0,0x1 0049 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 004a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 004b c403 | | Store 0x2,0x3 004c 0059 | Y | Store_Top Discrete,At_Offset_1 004d 00d8 | | Load_Top At_Offset_0 004e 0f03 | | Execute_Immediate Equal,0x3 004f 7007 |p | Jump_Nonzero 0x57 0050 00d8 | | Load_Top At_Offset_0 0051 7012 |p | Jump_Nonzero 0x64 0052 00d9 | | Load_Top At_Offset_1 0053 e001 | | Load 0x0,0x1 0054 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0055 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0056 680d |h | Jump_Zero 0x64 0057 4800 |H | Short_Literal 0x0 0058 e007 | | Load 0x0,0x7 0059 181f | | Execute Package,Field_Execute,Field_Number 0x1f 005a e5ff | | Load 0x2,-0x1 005b e007 | | Load 0x0,0x7 005c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 005d 0092 008d | | Action Push_String_Extended,0x8d ; "Load new release" 005f 0092 008e | | Action Push_String_Extended,0x8e ; "Release" 0061 e007 | | Load 0x0,0x7 0062 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0063 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0064 e008 | | Load 0x0,0x8 0065 180e | | Execute Package,Field_Execute,Field_Number 0xe 0066 4805 |H | Short_Literal 0x5 0067 0092 008f | | Action Push_String_Extended,0x8f ; "The following Units must be coded before rebooting..." 0069 e009 | | Load 0x0,0x9 006a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 006b 00cf | | Action Mark_Auxiliary 006c 780f |x | Jump 0x7c 006d e008 | | Load 0x0,0x8 006e 180e | | Execute Package,Field_Execute,Field_Number 0xe 006f 4807 |H | Short_Literal 0x7 0070 e403 | | Load 0x2,0x3 0071 e001 | | Load 0x0,0x1 0072 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0073 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0074 e009 | | Load 0x0,0x9 0075 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0076 00da | | Load_Top At_Offset_2 0077 e001 | | Load 0x0,0x1 0078 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0079 181d | | Execute Package,Field_Execute,Field_Number 0x1d 007a c403 | | Store 0x2,0x3 007b 00c9 | | Action Pop_Auxiliary_Loop 007c 00da | | Load_Top At_Offset_2 007d e001 | | Load 0x0,0x1 007e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 007f 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0080 6fec |o | Jump_Zero 0x6d 0081 00ce | | Action Pop_Auxiliary 0082 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0083 0000 | | .XXX[0x1] 0084 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0088 ; -------------------------------------------------------------------------------------- 0088 ; STRING TABLE 0088 ; -------------------------------------------------------------------------------------- 0088 0012 | | .STRTAB 0x0012->0x0091 ; "!Machine[Initialize@,Editor_Data.@_Commands]" 0089 003c | < | .STRTAB 0x003c->0x00a7 ; "Reboot_For_New_Release" 008a 0050 | P | .STRTAB 0x0050->0x00b2 ; "<errors>" 008b 0056 | V | .STRTAB 0x0056->0x00b6 ; "<ALL_WORLDS>" 008c 0060 | ` | .STRTAB 0x0060->0x00bc ; "!Machine[Initialize@,Editor_Data.@_Commands]'S(~coded)" 008d 0094 | | .STRTAB 0x0094->0x00d7 ; "Load new release" 008e 00a2 | | .STRTAB 0x00a2->0x00df ; "Release" 008f 00a7 | | .STRTAB 0x00a7->0x00e2 ; "The following Units must be coded before rebooting..." 0090 00da | | .STREND 0x00da->0x00fd 0091 214d 6163 |!Mac| .STRTAB_STRINGS 00fd 0000 0000 | | .XXX[0x3] 00ff 0000 | | 0100 ; -------------------------------------------------------------------------------------- 0100 ; Debug Table 0100 ; -------------------------------------------------------------------------------------- 0100 0004 000d | | .DEBUG4 0x0004,0x000d,0x96dc,0x0000,0x0001,0x0000 0106 1918 e0c0 | | .XXX[0xfa] 0108 c080 c0cd | | 010a 14c0 c0c0 | | 010c f829 4161 | )Aa| 010e 310c 8149 |1 I| 0110 4028 c4d4 |@( | 0112 d0d4 80d4 | | 0114 d0c4 8161 | a| 0116 6481 18d4 |d | 0118 cca0 d8a5 | | 011a 4c29 6140 |L)a@| 011c 80bd 18d4 | | 011e cc80 c4c4 | | 0120 d080 c8c8 | | 0122 80c4 80c0 | | 0124 80c8 c080 | | 0126 c4e0 80c4 | | 0128 e080 c8d0 | | 012a 80c0 28f1 | ( | 012c 1918 c119 | | 012e 0cc0 8119 | | 0130 18cd 1914 | | 0132 c081 1918 | | 0134 dd19 14c0 | | 0136 80c0 dd18 | | 0138 c0d0 c080 | | 013a c0dd 14c0 | | 013c c0c0 80c0 | | 013e dd0c c0c0 | | 0140 c080 c0dc | | 0142 e0c0 c0c0 | | 0144 80c0 dce0 | | 0146 c0c0 c080 | | 0148 c0dc c0c0 | | 014a c0c0 2880 | ( | 014c c0dc c0c0 | | 014e c0c0 80c0 | | 0150 dcc0 c0c0 | | 0152 c080 c0dc | | 0154 c0c0 c0c0 | | 0156 80c0 dcc0 | | 0158 c0c0 c080 | | 015a c0dc c0c0 | | 015c c0c0 80c0 | | 015e dcc0 c0c0 | | 0160 c081 1919 | | 0162 190c c0c0 | | 0164 8119 1919 | | 0166 0cc0 c081 | | 0168 1919 190c | | 016a c0c0 f829 | )| 016c 4161 310c |Aa1 | 016e 8149 4028 | I@(| 0170 c4d4 e0e4 | | 0172 80d4 d0c4 | | 0174 8161 6481 | ad | 0176 18d4 cca1 | | 0178 c8a5 4c29 | L)| 017a 6140 80bd |a@ | 017c 18d4 cc80 | | 017e e4dc 80c8 | | 0180 c880 c880 | | 0182 c080 c8c4 | | 0184 80c4 e080 | | 0186 c4e0 80c8 | | 0188 d080 c028 | (| 018a f0c5 1914 | | 018c c0c0 c080 | | 018e dd19 18e0 | | 0190 c0c0 80dd | | 0192 1919 0cc0 | | 0194 c080 dce0 | | 0196 cd0c c0c0 | | 0198 80cc c0c5 | | 019a 14c0 c080 | | 019c c0c0 c114 | | 019e c0c0 80c0 | | 01a0 c0c1 14c0 | | 01a2 c080 c0cd | | 01a4 1914 c0c0 | | 01a6 80c5 1919 | | 01a8 14c0 c028 | (| 01aa 80dd 14c1 | | 01ac 14c0 c081 | | 01ae 18c0 c114 | | 01b0 c0c0 8114 | | 01b2 c0c1 14c0 | | 01b4 c081 14c0 | | 01b6 c114 c0c0 | | 01b8 8118 c0c5 | | 01ba 14c0 c081 | | 01bc 18e0 cd14 | | 01be c0c0 80dd | | 01c0 1919 1914 | | 01c2 c080 cd19 | | 01c4 14dd 14c0 | | 01c6 80c1 18e0 | | 01c8 cd14 c0f8 | | 01ca 2941 6131 |)Aa1| 01cc 0c81 4940 | I@| 01ce 28c4 d8c4 |( | 01d0 c080 d4d0 | | 01d2 c481 6164 | ad| 01d4 8118 d4cc | | 01d6 a184 a54c | L| 01d8 2961 4080 |)a@ | 01da bd18 d4cc | | 01dc 80c4 c4c0 | | 01de 80c8 c880 | | 01e0 c080 c080 | | 01e2 c8c4 80c4 | | 01e4 e080 c4e0 | | 01e6 80c8 d080 | | 01e8 c028 f0dd | ( | 01ea 14cd 0cc0 | | 01ec c081 1915 | | 01ee 1918 c0c0 | | 01f0 80dd 1919 | | 01f2 18e0 c080 | | 01f4 c118 e0dc | | 01f6 e0c0 80c1 | | 01f8 18c0 cce0 | | 01fa c080 c118 | | 01fc c0cc e0c0 | | 01fe 80c1 14c0 | |