|
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 0190 | | .CONST 0x0190 ; 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 0028 | ( | .CONST 0x0028 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0005 | | .CONST 0x0005 ; Number of locals 001b INIT_0018: 001b 0092 00b4 | | Action Push_String_Extended,0xb4 ; "!Machine.Initialization.Rational.@" 001d 0092 00b5 | | Action Push_String_Extended,0xb5 ; "!Machine.Editor_Data.@_Commands" 001f e001 | | Load 0x0,0x1 0020 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0021 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0022 02c7 | | Declare_Variable Any 0023 00d8 | | Load_Top At_Offset_0 0024 1c00 | | Execute_Immediate Run_Utility,0x0 0025 e001 | | Load 0x0,0x1 0026 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0027 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0028 BODY_0018: 0028 0092 00b6 | | Action Push_String_Extended,0xb6 ; "Reboot_For_New_Release" 002a 8002 | | Call 0x0,0x2 002b 6880 |h | Jump_Zero 0xac 002c 0092 00b7 | | Action Push_String_Extended,0xb7 ; "<ERRORS>" 002e 4800 |H | Short_Literal 0x0 002f 0092 00b8 | | Action Push_String_Extended,0xb8 ; "<ALL_WORLDS>" 0031 4803 |H | Short_Literal 0x3 0032 4803 |H | Short_Literal 0x3 0033 e402 | | Load 0x2,0x2 0034 e003 | | Load 0x0,0x3 0035 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0036 0092 00b9 | | Action Push_String_Extended,0xb9 ; "<ERROR>" 0038 4800 |H | Short_Literal 0x0 0039 0092 00b8 | | Action Push_String_Extended,0xb8 ; "<ALL_WORLDS>" 003b 4802 |H | Short_Literal 0x2 003c 4803 |H | Short_Literal 0x3 003d e403 | | Load 0x2,0x3 003e e003 | | Load 0x0,0x3 003f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0040 e001 | | Load 0x0,0x1 0041 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0042 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0043 00da | | Load_Top At_Offset_2 0044 606b |`k | Indirect_Literal Discrete,0xb0,{0x00000000, 0x00004000} 0045 e004 | | Load 0x0,0x4 0046 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0047 e005 | | Load 0x0,0x5 0048 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0049 e006 | | Load 0x0,0x6 004a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 004b 4801 |H | Short_Literal 0x1 004c 4800 |H | Short_Literal 0x0 004d e005 | | Load 0x0,0x5 004e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 004f e001 | | Load 0x0,0x1 0050 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0051 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0052 0092 00ba | | Action Push_String_Extended,0xba ; "[!Machine.Initialization.Rational.@'S(~coded), !Machine.Editor_Data.@_Commands's(archived), !Machine.Editor_Data.@_Commands's(source)]" 0054 e001 | | Load 0x0,0x1 0055 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0056 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0057 c404 | | Store 0x2,0x4 0058 0059 | Y | Store_Top Discrete,At_Offset_1 0059 00d8 | | Load_Top At_Offset_0 005a 0f03 | | Execute_Immediate Equal,0x3 005b 7007 |p | Jump_Nonzero 0x63 005c 00d8 | | Load_Top At_Offset_0 005d 7030 |p0 | Jump_Nonzero 0x8e 005e 00d9 | | Load_Top At_Offset_1 005f e001 | | Load 0x0,0x1 0060 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0061 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0062 682b |h+ | Jump_Zero 0x8e 0063 0092 00bb | | Action Push_String_Extended,0xbb ; "!Machine" 0065 4800 |H | Short_Literal 0x0 0066 0092 00bc | | Action Push_String_Extended,0xbc ; "?" 0068 0092 00bd | | Action Push_String_Extended,0xbd ; "Install_Subsystems" 006a e007 | | Load 0x0,0x7 006b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 006c 680a |h | Jump_Zero 0x77 006d 0092 00b7 | | Action Push_String_Extended,0xb7 ; "<ERRORS>" 006f 4800 |H | Short_Literal 0x0 0070 0092 00b8 | | Action Push_String_Extended,0xb8 ; "<ALL_WORLDS>" 0072 4801 |H | Short_Literal 0x1 0073 0092 00be | | Action Push_String_Extended,0xbe ; "!Machine`Install_Subsystems" 0075 e003 | | Load 0x0,0x3 0076 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0077 0092 00b7 | | Action Push_String_Extended,0xb7 ; "<ERRORS>" 0079 0092 00bb | | Action Push_String_Extended,0xbb ; "!Machine" 007b 0092 00bf | | Action Push_String_Extended,0xbf ; "#" 007d 0092 00c0 | | Action Push_String_Extended,0xc0 ; "$$`Install_Subsystems" 007f e008 | | Load 0x0,0x8 0080 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0081 4800 |H | Short_Literal 0x0 0082 e009 | | Load 0x0,0x9 0083 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0084 e5ff | | Load 0x2,-0x1 0085 e009 | | Load 0x0,0x9 0086 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0087 0092 00c1 | | Action Push_String_Extended,0xc1 ; "Load new release" 0089 0092 00c2 | | Action Push_String_Extended,0xc2 ; "Release" 008b e009 | | Load 0x0,0x9 008c 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 008d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 008e e00a | | Load 0x0,0xa 008f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0090 4805 |H | Short_Literal 0x5 0091 0092 00c3 | | Action Push_String_Extended,0xc3 ; "The following Units must be coded before rebooting..." 0093 e00b | | Load 0x0,0xb 0094 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0095 00cf | | Action Mark_Auxiliary 0096 780f |x | Jump 0xa6 0097 e00a | | Load 0x0,0xa 0098 180e | | Execute Package,Field_Execute,Field_Number 0xe 0099 4807 |H | Short_Literal 0x7 009a e404 | | Load 0x2,0x4 009b e001 | | Load 0x0,0x1 009c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 009d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 009e e00b | | Load 0x0,0xb 009f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a0 00da | | Load_Top At_Offset_2 00a1 e001 | | Load 0x0,0x1 00a2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00a3 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00a4 c404 | | Store 0x2,0x4 00a5 00c9 | | Action Pop_Auxiliary_Loop 00a6 00da | | Load_Top At_Offset_2 00a7 e001 | | Load 0x0,0x1 00a8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00a9 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00aa 6fec |o | Jump_Zero 0x97 00ab 00ce | | Action Pop_Auxiliary 00ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ad 0000 0000 | | .XXX[0x3] 00af 0000 | | 00b0 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 00b4 ; -------------------------------------------------------------------------------------- 00b4 ; STRING TABLE 00b4 ; -------------------------------------------------------------------------------------- 00b4 0022 | " | .STRTAB 0x0022->0x00c5 ; "!Machine.Initialization.Rational.@" 00b5 0042 | B | .STRTAB 0x0042->0x00d6 ; "!Machine.Editor_Data.@_Commands" 00b6 005f | _ | .STRTAB 0x005f->0x00e5 ; "Reboot_For_New_Release" 00b7 0073 | s | .STRTAB 0x0073->0x00f0 ; "<ERRORS>" 00b8 0079 | y | .STRTAB 0x0079->0x00f4 ; "<ALL_WORLDS>" 00b9 0083 | | .STRTAB 0x0083->0x00fa ; "<ERROR>" 00ba 0088 | | .STRTAB 0x0088->0x00fe ; "[!Machine.Initialization.Rational.@'S(~coded), !Machine.Editor_Data.@_Commands's(archived), !Machine.Editor_Data.@_Commands's(source)]" 00bb 010c | | .STRTAB 0x010c->0x0141 ; "!Machine" 00bc 0112 | | .STRTAB 0x0112->0x0145 ; "?" 00bd 0111 | | .STRTAB 0x0111->0x0145 ; "Install_Subsystems" 00be 0121 | ! | .STRTAB 0x0121->0x014e ; "!Machine`Install_Subsystems" 00bf 013a | : | .STRTAB 0x013a->0x015c ; "#" 00c0 0139 | 9 | .STRTAB 0x0139->0x015c ; "$$`Install_Subsystems" 00c1 014c | L | .STRTAB 0x014c->0x0167 ; "Load new release" 00c2 015a | Z | .STRTAB 0x015a->0x016f ; "Release" 00c3 015f | _ | .STRTAB 0x015f->0x0172 ; "The following Units must be coded before rebooting..." 00c4 0192 | | .STREND 0x0192->0x018d 00c5 214d 6163 |!Mac| .STRTAB_STRINGS 018d 0000 0000 | | .XXX[0x3] 018f 0000 | | 0190 ; -------------------------------------------------------------------------------------- 0190 ; Debug Table 0190 ; -------------------------------------------------------------------------------------- 0190 0004 0000 | | .DEBUG4 0x0004,0x0000,0x76e8,0x0000,0x0001,0x0000 0196 0000 0000 | | .BLANK 0000[0x17] 01ad 1002 8000 | | .XXX[0xb] 01af 0000 0000 | | 01b1 0020 0000 | | 01b3 0110 0000 | | 01b5 0000 8000 | | 01b7 0005 | | 01b8 0000 0000 | | .BLANK 0000[0x48]