|
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: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_29d0d7
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0310 | | .CONST 0x0310 ; 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 0041 | A | .CONST 0x0041 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0008 | | .CONST 0x0008 ; Number of locals 001b INIT_0018: 001b e002 | | Load 0x0,0x2 001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001d 02c7 | | Declare_Variable Any 001e 00d8 | | Load_Top At_Offset_0 001f 1c00 | | Execute_Immediate Run_Utility,0x0 0020 e003 | | Load 0x0,0x3 0021 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 0022 e004 | | Load 0x0,0x4 0023 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0024 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0025 e004 | | Load 0x0,0x4 0026 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0027 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0028 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0029 4801 |H | Short_Literal 0x1 002a e005 | | Load 0x0,0x5 002b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 002d 0092 0137 | 7| Action Push_String_Extended,0x137 ; "$$" 002f e005 | | Load 0x0,0x5 0030 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0031 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0032 e005 | | Load 0x0,0x5 0033 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0034 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0035 4801 |H | Short_Literal 0x1 0036 0092 0138 | 8| Action Push_String_Extended,0x138 ; "D_12_7_2" 0038 00db | | Load_Top At_Offset_3 0039 e006 | | Load 0x0,0x6 003a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 003b 00e1 | | Load_Encached Boolean_Cache 003c 03f1 | | Declare_Variable Discrete,With_Value 003d 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 003f 029f 011b | | Declare_Subprogram INIT_0118,For_Call 0041 BODY_0018: 0041 4801 |H | Short_Literal 0x1 0042 e007 | | Load 0x0,0x7 0043 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0044 e007 | | Load 0x0,0x7 0045 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0046 7008 |p | Jump_Nonzero 0x4f 0047 e002 | | Load 0x0,0x2 0048 180e | | Execute Package,Field_Execute,Field_Number 0xe 0049 4805 |H | Short_Literal 0x5 004a 0092 0139 | 9| Action Push_String_Extended,0x139 ; "Aborting patch installation: could not set PRIVILEGED MODE" 004c e008 | | Load 0x0,0x8 004d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 004e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 004f 0092 013a | :| Action Push_String_Extended,0x13a ; "$$.Combined_Mload" 0051 8009 | | Call 0x0,0x9 0052 7008 |p | Jump_Nonzero 0x5b 0053 e002 | | Load 0x0,0x2 0054 180e | | Execute Package,Field_Execute,Field_Number 0xe 0055 4805 |H | Short_Literal 0x5 0056 0092 013b | ;| Action Push_String_Extended,0x13b ; "Aborting patch installation: Current context is not a release world." 0058 e008 | | Load 0x0,0x8 0059 1813 | | Execute Package,Field_Execute,Field_Number 0x13 005a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 005b e5ff | | Load 0x2,-0x1 005c e5fd | | Load 0x2,-0x3 005d 0f00 | | Execute_Immediate Equal,0x0 005e 0279 | y | Execute Discrete,And 005f 00db | | Load_Top At_Offset_3 0060 0f00 | | Execute_Immediate Equal,0x0 0061 0279 | y | Execute Discrete,And 0062 680d |h | Jump_Zero 0x70 0063 e002 | | Load 0x0,0x2 0064 180e | | Execute Package,Field_Execute,Field_Number 0xe 0065 4805 |H | Short_Literal 0x5 0066 0092 013c | <| Action Push_String_Extended,0x13c ; "Aborting patch installation: This machine is currently running release " 0068 e404 | | Load 0x2,0x4 0069 01cc | | Execute Vector,Catenate 006a 0092 013d | =| Action Push_String_Extended,0x13d ; ", which is incorrect for installing the patch." 006c 01cc | | Execute Vector,Catenate 006d e008 | | Load 0x0,0x8 006e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 006f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0070 e403 | | Load 0x2,0x3 0071 e405 | | Load 0x2,0x5 0072 01df | | Execute Vector,Equal 0073 6808 |h | Jump_Zero 0x7c 0074 e002 | | Load 0x0,0x2 0075 180e | | Execute Package,Field_Execute,Field_Number 0xe 0076 4805 |H | Short_Literal 0x5 0077 0092 013e | >| Action Push_String_Extended,0x13e ; "Aborting patch installation: This machine is already running the patch release number, therefore the configuration cannot be updated." 0079 e008 | | Load 0x0,0x8 007a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 007b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 007c e5fd | | Load 0x2,-0x3 007d 680e |h | Jump_Zero 0x8c 007e e5fe | | Load 0x2,-0x2 007f 00ea | | Load_Encached Null_String_Cache 0080 00ea | | Load_Encached Null_String_Cache 0081 0092 013f | ?| Action Push_String_Extended,0x13f ; "$$.Segments:D3_0.Xfer" 0083 800a | | Call 0x0,0xa 0084 e002 | | Load 0x0,0x2 0085 180e | | Execute Package,Field_Execute,Field_Number 0xe 0086 4803 |H | Short_Literal 0x3 0087 0092 0140 | @| Action Push_String_Extended,0x140 ; "D3.0 special networking patch: subsystems installed" 0089 e008 | | Load 0x0,0x8 008a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 008b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 008c e002 | | Load 0x0,0x2 008d 180e | | Execute Package,Field_Execute,Field_Number 0xe 008e c402 | | Store 0x2,0x2 008f e002 | | Load 0x0,0x2 0090 180e | | Execute Package,Field_Execute,Field_Number 0xe 0091 4800 |H | Short_Literal 0x0 0092 0092 0141 | A| Action Push_String_Extended,0x141 ; "updating DFS files" 0094 e008 | | Load 0x0,0x8 0095 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0096 4800 |H | Short_Literal 0x0 0097 0092 0142 | B| Action Push_String_Extended,0x142 ; "<PROFILE>" 0099 4801 |H | Short_Literal 0x1 009a 0092 0137 | 7| Action Push_String_Extended,0x137 ; "$$" 009c 0092 0143 | C| Action Push_String_Extended,0x143 ; "Dfs_Patch_Image" 009e 800b | | Call 0x0,0xb 009f e402 | | Load 0x2,0x2 00a0 e002 | | Load 0x0,0x2 00a1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00a2 e5fc | | Load 0x2,-0x4 00a3 800c | | Call 0x0,0xc 00a4 e402 | | Load 0x2,0x2 00a5 e002 | | Load 0x0,0x2 00a6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00a7 e002 | | Load 0x0,0x2 00a8 180e | | Execute Package,Field_Execute,Field_Number 0xe 00a9 4800 |H | Short_Literal 0x0 00aa 0092 0144 | D| Action Push_String_Extended,0x144 ; "updating EEDB subsystems" 00ac e008 | | Load 0x0,0x8 00ad 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ae e5fe | | Load 0x2,-0x2 00af 00ea | | Load_Encached Null_String_Cache 00b0 00ea | | Load_Encached Null_String_Cache 00b1 0092 0145 | E| Action Push_String_Extended,0x145 ; "$$.Segments:Ae.Xfer" 00b3 800a | | Call 0x0,0xa 00b4 e004 | | Load 0x0,0x4 00b5 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00b6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00b7 e004 | | Load 0x0,0x4 00b8 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00b9 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 00ba 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00bb e405 | | Load 0x2,0x5 00bc 01df | | Execute Vector,Equal 00bd 7008 |p | Jump_Nonzero 0xc6 00be e002 | | Load 0x0,0x2 00bf 180e | | Execute Package,Field_Execute,Field_Number 0xe 00c0 4805 |H | Short_Literal 0x5 00c1 0092 0146 | F| Action Push_String_Extended,0x146 ; "The default configuration in the EEDB is not correct, it appears that the install has failed." 00c3 e008 | | Load 0x0,0x8 00c4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00c6 4801 |H | Short_Literal 0x1 00c7 4801 |H | Short_Literal 0x1 00c8 4801 |H | Short_Literal 0x1 00c9 4801 |H | Short_Literal 0x1 00ca 4801 |H | Short_Literal 0x1 00cb 4801 |H | Short_Literal 0x1 00cc 4801 |H | Short_Literal 0x1 00cd 4801 |H | Short_Literal 0x1 00ce 4801 |H | Short_Literal 0x1 00cf 4801 |H | Short_Literal 0x1 00d0 4800 |H | Short_Literal 0x0 00d1 4800 |H | Short_Literal 0x0 00d2 e002 | | Load 0x0,0x2 00d3 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00d4 0092 0142 | B| Action Push_String_Extended,0x142 ; "<PROFILE>" 00d6 0092 0147 | G| Action Push_String_Extended,0x147 ; "$$.Archive" 00d8 0092 0148 | H| Action Push_String_Extended,0x148 ; "R1000, All, Replace, Remake" 00da 0092 0149 | I| Action Push_String_Extended,0x149 ; "*" 00dc 0092 0149 | I| Action Push_String_Extended,0x149 ; "*" 00de 0092 014a | J| Action Push_String_Extended,0x14a ; "?" 00e0 e00d | | Load 0x0,0xd 00e1 180e | | Execute Package,Field_Execute,Field_Number 0xe 00e2 8407 | | Call 0x2,0x7 00e3 00da | | Load_Top At_Offset_2 00e4 6801 |h | Jump_Zero 0xe6 00e5 8408 | | Call 0x2,0x8 00e6 0092 0142 | B| Action Push_String_Extended,0x142 ; "<PROFILE>" 00e8 0092 014b | K| Action Push_String_Extended,0x14b ; "Snapshot" 00ea e00e | | Load 0x0,0xe 00eb 180e | | Execute Package,Field_Execute,Field_Number 0xe 00ec e402 | | Load 0x2,0x2 00ed e002 | | Load 0x0,0x2 00ee 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00ef e002 | | Load 0x0,0x2 00f0 180e | | Execute Package,Field_Execute,Field_Number 0xe 00f1 4803 |H | Short_Literal 0x3 00f2 0092 014c | L| Action Push_String_Extended,0x14c ; "patch was installed - reboot the system" 00f4 e008 | | Load 0x0,0x8 00f5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00f6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00f7 0000 | | .XXX[0x1] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0100 | | .CONST 0x0100 ; Address of begin 00f9 0111 | | .CONST 0x0111 ; Address of exception handler 00fa 0002 | | .CONST 0x0002 ; Number of locals 00fb INIT_00f8: 00fb e00f | | Load 0x0,0xf 00fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00fd 02c7 | | Declare_Variable Any 00fe 00d8 | | Load_Top At_Offset_0 00ff 1c00 | | Execute_Immediate Run_Utility,0x0 0100 BODY_00f8: 0100 00d8 | | Load_Top At_Offset_0 0101 00ea | | Load_Encached Null_String_Cache 0102 0092 014d | M| Action Push_String_Extended,0x14d ; "!Machine.Release.Environment.Current" 0104 4801 |H | Short_Literal 0x1 0105 e00f | | Load 0x0,0xf 0106 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0107 c602 | | Store 0x3,0x2 0108 e405 | | Load 0x2,0x5 0109 00d9 | | Load_Top At_Offset_1 010a e00f | | Load 0x0,0xf 010b 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 010c 00d8 | | Load_Top At_Offset_0 010d e00f | | Load 0x0,0xf 010e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 010f c602 | | Store 0x3,0x2 0110 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0111 TRAP_00f8: 0111 0007 | | Action Break_Optional 0112 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0113 0000 0000 | | .BLANK 0000[0x5] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0135 | 5 | .CONST 0x0135 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 0092 0142 | B| Action Push_String_Extended,0x142 ; "<PROFILE>" 011d 4800 |H | Short_Literal 0x0 011e 0092 014e | N| Action Push_String_Extended,0x14e ; "!Commands.System_Maintenance.[, Current_Combined_Mload]" 0120 e010 | | Load 0x0,0x10 0121 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0122 00ea | | Load_Encached Null_String_Cache 0123 4801 |H | Short_Literal 0x1 0124 0092 0142 | B| Action Push_String_Extended,0x142 ; "<PROFILE>" 0126 4801 |H | Short_Literal 0x1 0127 0092 014f | O| Action Push_String_Extended,0x14f ; "!Commands.System_Maintenance.Current_Combined_Mload" 0129 0092 013a | :| Action Push_String_Extended,0x13a ; "$$.Combined_Mload" 012b e010 | | Load 0x0,0x10 012c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 012d 0092 0142 | B| Action Push_String_Extended,0x142 ; "<PROFILE>" 012f 4800 |H | Short_Literal 0x0 0130 0092 014e | N| Action Push_String_Extended,0x14e ; "!Commands.System_Maintenance.[, Current_Combined_Mload]" 0132 e010 | | Load 0x0,0x10 0133 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0134 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0135 TRAP_0118: 0135 0007 | | Action Break_Optional 0136 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0137 ; -------------------------------------------------------------------------------------- 0137 ; STRING TABLE 0137 ; -------------------------------------------------------------------------------------- 0137 0034 | 4 | .STRTAB 0x0034->0x0151 ; "$$" 0138 0034 | 4 | .STRTAB 0x0034->0x0152 ; "D_12_7_2" 0139 003a | : | .STRTAB 0x003a->0x0156 ; "Aborting patch installation: could not set PRIVILEGED MODE" 013a 0072 | r | .STRTAB 0x0072->0x0173 ; "$$.Combined_Mload" 013b 0081 | | .STRTAB 0x0081->0x017b ; "Aborting patch installation: Current context is not a release world." 013c 00c3 | | .STRTAB 0x00c3->0x019d ; "Aborting patch installation: This machine is currently running release " 013d 0108 | | .STRTAB 0x0108->0x01c1 ; ", which is incorrect for installing the patch." 013e 0134 | 4 | .STRTAB 0x0134->0x01d8 ; "Aborting patch installation: This machine is already running the patch release number, therefore the configuration cannot be updated." 013f 01b7 | | .STRTAB 0x01b7->0x021a ; "$$.Segments:D3_0.Xfer" 0140 01ca | | .STRTAB 0x01ca->0x0225 ; "D3.0 special networking patch: subsystems installed" 0141 01fb | | .STRTAB 0x01fb->0x023e ; "updating DFS files" 0142 020b | | .STRTAB 0x020b->0x0247 ; "<PROFILE>" 0143 0212 | | .STRTAB 0x0212->0x024c ; "Dfs_Patch_Image" 0144 021f | | .STRTAB 0x021f->0x0253 ; "updating EEDB subsystems" 0145 0235 | 5 | .STRTAB 0x0235->0x025f ; "$$.Segments:Ae.Xfer" 0146 0246 | F | .STRTAB 0x0246->0x0269 ; "The default configuration in the EEDB is not correct, it appears that the install has failed." 0147 02a1 | | .STRTAB 0x02a1->0x0297 ; "$$.Archive" 0148 02a9 | | .STRTAB 0x02a9->0x029c ; "R1000, All, Replace, Remake" 0149 02c2 | | .STRTAB 0x02c2->0x02aa ; "*" 014a 02c1 | | .STRTAB 0x02c1->0x02aa ; "?" 014b 02c0 | | .STRTAB 0x02c0->0x02ab ; "Snapshot" 014c 02c6 | | .STRTAB 0x02c6->0x02af ; "patch was installed - reboot the system" 014d 02eb | | .STRTAB 0x02eb->0x02c2 ; "!Machine.Release.Environment.Current" 014e 030d | | .STRTAB 0x030d->0x02d4 ; "!Commands.System_Maintenance.[, Current_Combined_Mload]" 014f 0342 | B | .STRTAB 0x0342->0x02f0 ; "!Commands.System_Maintenance.Current_Combined_Mload" 0150 0373 | s | .STREND 0x0373->0x0309 0151 2424 445f |$$D_| .STRTAB_STRINGS 030a 0000 0000 | | .BLANK 0000[0x6] 0310 ; -------------------------------------------------------------------------------------- 0310 ; Debug Table 0310 ; -------------------------------------------------------------------------------------- 0310 0004 0002 | | .DEBUG4 0x0004,0x0002,0xb21e,0x0000,0x0001,0x0000 0316 0000 0000 | | .BLANK 0000[0x24] 033a 0004 00a0 | | .XXX[0xc] 033c 0000 0000 | | 033e 0000 0800 | | 0340 0000 4400 | D | 0342 0000 0020 | | 0344 0000 0140 | @| 0346 0000 0000 | | .BLANK 0000[0x2e] 0374 8014 0000 | | .XXX[0xb] 0376 0000 0000 | | 0378 0100 0000 | | 037a 0880 0000 | | 037c 0004 0000 | | 037e 0028 | ( | 037f 0000 0000 | | .BLANK 0000[0x2e] 03ad 1002 8000 | | .XXX[0xb] 03af 0000 0000 | | 03b1 0020 0000 | | 03b3 0110 0000 | | 03b5 0000 8000 | | 03b7 0005 | | 03b8 0000 0000 | | .BLANK 0000[0x48]