|
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_0bf8df
└─⟦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 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 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 8003 | | Call 0x0,0x3
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 e004 | | Load 0x0,0x4
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 e004 | | Load 0x0,0x4
003f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0040 e002 | | Load 0x0,0x2
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 e005 | | Load 0x0,0x5
0046 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0047 e006 | | Load 0x0,0x6
0048 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0049 e007 | | Load 0x0,0x7
004a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004b 4801 |H | Short_Literal 0x1
004c 4800 |H | Short_Literal 0x0
004d e006 | | Load 0x0,0x6
004e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004f e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 e008 | | Load 0x0,0x8
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 e004 | | Load 0x0,0x4
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 e009 | | Load 0x0,0x9
0080 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0081 4800 |H | Short_Literal 0x0
0082 e00a | | Load 0x0,0xa
0083 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0084 e5ff | | Load 0x2,-0x1
0085 e00a | | Load 0x0,0xa
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 e00a | | Load 0x0,0xa
008c 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
008d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
008e e00b | | Load 0x0,0xb
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 e00c | | Load 0x0,0xc
0094 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0095 00cf | | Action Mark_Auxiliary
0096 780f |x | Jump 0xa6
0097 e00b | | Load 0x0,0xb
0098 180e | | Execute Package,Field_Execute,Field_Number 0xe
0099 4807 |H | Short_Literal 0x7
009a e404 | | Load 0x2,0x4
009b e002 | | Load 0x0,0x2
009c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
009d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
009e e00c | | Load 0x0,0xc
009f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a0 00da | | Load_Top At_Offset_2
00a1 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 0002 | | .DEBUG4 0x0004,0x0002,0x0b7d,0x0000,0x0001,0x0000
0196 d995 b9d1 | | .XXX[0x6a]
0198 7dd1 8589 |} |
019a b194 ec28 | (|
019c 8080 81c0 | |
019e 80f4 80a9 | |
01a0 c1c0 ec28 | (|
01a2 8080 81dd | |
01a4 a1a5 b194 | |
01a6 80a1 c080 | |
01a8 84f4 8139 | 9|
01aa 5531 3080 |U10 |
01ac 9898 2824 | ($|
01ae 8080 a1c0 | |
01b0 b4f9 c1c9 | |
01b2 bd8c 8084 | |
01b4 f481 c1c9 | |
01b6 bd8c 81f1 | |
01b8 f080 a18d | |
01ba a195 8dad | |
01bc 7d8d b1bd |} |
01be cdd5 c994 | |
01c0 8098 9881 | |
01c2 c0b4 f98d | |
01c4 b1bd cdd5 | |
01c6 c994 8084 | |
01c8 f481 8db1 | |
01ca bdcd d5c9 | |
01cc 94a4 a4a4 | |
01ce 81ec 2880 | ( |
01d0 8080 8080 | |
01d2 8080 8081 | |
01d4 c1c0 80f4 | |
01d6 8099 c0b4 | |
01d8 f9b9 95e1 | |
01da d0ec 2880 | ( |
01dc 8080 8080 | |
01de 8080 8081 | |
01e0 c080 f480 | |
01e2 a9c1 c0ec | |
01e4 2880 8081 |( |
01e6 f428 2880 | (( |
01e8 8081 a598 | |
01ea 80a1 c080 | |
01ec f4f4 8139 | 9|
01ee 5531 30a4 |U10 |
01f0 81ec 2824 | ($|
01f2 bca8 81b9 | |
01f4 95dc 81c1 | |
01f6 c9bd 8c81 | |
01f8 d1bc 8185 | |
01fa 9190 81d1 | |
01fc bc81 b1a5 | |
01fe cdd0 80a8 | |