|
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]