|
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 01f8 | | .CONST 0x01f8 ; 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 8001 | | .CONST 0x8001 ; 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 0036 | 6 | .CONST 0x0036 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0005 | | .CONST 0x0005 ; Number of locals
001b INIT_0018:
001b 6048 |`H | Indirect_Literal Discrete,0x64,{0x00000000, 0x00004000}
001c e001 | | Load 0x0,0x1
001d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
001e e002 | | Load 0x0,0x2
001f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0020 e003 | | Load 0x0,0x3
0021 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0022 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0023 0092 0081 | | Action Push_String_Extended,0x81 ; "$$"
0025 e003 | | Load 0x0,0x3
0026 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0027 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0028 e003 | | Load 0x0,0x3
0029 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
002a 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
002b 0092 0082 | | Action Push_String_Extended,0x82 ; "Delta3_0_Dfs"
002d 0092 0083 | | Action Push_String_Extended,0x83 ; "!Machine.Release.Archive.Environment."
002f 00da | | Load_Top At_Offset_2
0030 01cc | | Execute Vector,Catenate
0031 0092 0084 | | Action Push_String_Extended,0x84 ; ".Dfs_Image"
0033 01cc | | Execute Vector,Catenate
0034 029f 006b | k| Declare_Subprogram INIT_0068,For_Call
0036 BODY_0018:
0036 e004 | | Load 0x0,0x4
0037 180e | | Execute Package,Field_Execute,Field_Number 0xe
0038 4800 |H | Short_Literal 0x0
0039 0092 0085 | | Action Push_String_Extended,0x85 ; "[Install_Dfs_Image]"
003b e005 | | Load 0x0,0x5
003c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
003d e5ff | | Load 0x2,-0x1
003e 6808 |h | Jump_Zero 0x47
003f e004 | | Load 0x0,0x4
0040 180e | | Execute Package,Field_Execute,Field_Number 0xe
0041 4806 |H | Short_Literal 0x6
0042 0092 0086 | | Action Push_String_Extended,0x86 ; "This procedure installs the dfs image. It should only be run once, and then the machine should be rebooted. If you would like to run this procedure set Effort_Only to False."
0044 e005 | | Load 0x0,0x5
0045 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0046 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0047 0092 0087 | | Action Push_String_Extended,0x87 ; "Install_Dfs_Image"
0049 8006 | | Call 0x0,0x6
004a 6818 |h | Jump_Zero 0x63
004b 00d9 | | Load_Top At_Offset_1
004c 0092 0088 | | Action Push_String_Extended,0x88 ; "."
004e 01cc | | Execute Vector,Catenate
004f 00db | | Load_Top At_Offset_3
0050 01cc | | Execute Vector,Catenate
0051 8007 | | Call 0x0,0x7
0052 6809 |h | Jump_Zero 0x5c
0053 8405 | | Call 0x2,0x5
0054 e004 | | Load 0x0,0x4
0055 180e | | Execute Package,Field_Execute,Field_Number 0xe
0056 4800 |H | Short_Literal 0x0
0057 0092 0089 | | Action Push_String_Extended,0x89 ; "[Install_Dfs_Image has completed]"
0059 e005 | | Load 0x0,0x5
005a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
005b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
005c e004 | | Load 0x0,0x4
005d 180e | | Execute Package,Field_Execute,Field_Number 0xe
005e 4805 |H | Short_Literal 0x5
005f 0092 008a | | Action Push_String_Extended,0x8a ; "The Dfs image does not exist. You must either read this image from tape using Read_Dfs_Image, or copy it from another machine."
0061 e005 | | Load 0x0,0x5
0062 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0063 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0064 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0077 | w | .CONST 0x0077 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b e004 | | Load 0x0,0x4
006c 180e | | Execute Package,Field_Execute,Field_Number 0xe
006d 4806 |H | Short_Literal 0x6
006e 0092 008b | | Action Push_String_Extended,0x8b ; "DO NOT KILL THIS PROCESS! Incomplete Dfs installs are difficult to detect and can corrupt the state of the machine."
0070 e005 | | Load 0x0,0x5
0071 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0072 4800 |H | Short_Literal 0x0
0073 e404 | | Load 0x2,0x4
0074 e403 | | Load 0x2,0x3
0075 8008 | | Call 0x0,0x8
0076 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0077 TRAP_0068:
0077 0007 | | Action Break_Optional
0078 e004 | | Load 0x0,0x4
0079 180e | | Execute Package,Field_Execute,Field_Number 0xe
007a 4808 |H | Short_Literal 0x8
007b 0092 008c | | Action Push_String_Extended,0x8c ; "The installation of the Dfs image has raised an exception. Please bring the machine down and install the dfs using the tape, because the current dfs image may be corrupt."
007d e005 | | Load 0x0,0x5
007e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
007f 00cc | | Action Pop_Block
0080 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0081 ; --------------------------------------------------------------------------------------
0081 ; STRING TABLE
0081 ; --------------------------------------------------------------------------------------
0081 001a | | .STRTAB 0x001a->0x008e ; "$$"
0082 001a | | .STRTAB 0x001a->0x008f ; "Delta3_0_Dfs"
0083 0024 | $ | .STRTAB 0x0024->0x0095 ; "!Machine.Release.Archive.Environment."
0084 0047 | G | .STRTAB 0x0047->0x00a7 ; ".Dfs_Image"
0085 004f | O | .STRTAB 0x004f->0x00ac ; "[Install_Dfs_Image]"
0086 0060 | ` | .STRTAB 0x0060->0x00b6 ; "This procedure installs the dfs image. It should only be run once, and then the machine should be rebooted. If you would like to run this procedure set Effort_Only to False."
0087 010d | | .STRTAB 0x010d->0x010d ; "Install_Dfs_Image"
0088 011c | | .STRTAB 0x011c->0x0116 ; "."
0089 011b | | .STRTAB 0x011b->0x0116 ; "[Install_Dfs_Image has completed]"
008a 013a | : | .STRTAB 0x013a->0x0127 ; "The Dfs image does not exist. You must either read this image from tape using Read_Dfs_Image, or copy it from another machine."
008b 01b7 | | .STRTAB 0x01b7->0x0166 ; "DO NOT KILL THIS PROCESS! Incomplete Dfs installs are difficult to detect and can corrupt the state of the machine."
008c 0229 | ) | .STRTAB 0x0229->0x01a0 ; "The installation of the Dfs image has raised an exception. Please bring the machine down and install the dfs using the tape, because the current dfs image may be corrupt."
008d 02d2 | | .STREND 0x02d2->0x01f6
008e 2424 4465 |$$De| .STRTAB_STRINGS
01f6 0000 0000 | | .XXX[0x2]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; Debug Table
01f8 ; --------------------------------------------------------------------------------------
01f8 0004 0001 | | .DEBUG4 0x0004,0x0001,0x3c8d,0x0000,0x0001,0x0000
01fe 0000 0000 | | .XXX[0x2]