|
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_0f80a5
└─⟦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 01a0 | | .CONST 0x01a0 ; 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 002d | - | .CONST 0x002d ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000a | | .CONST 0x000a ; Number of locals
001b INIT_0018:
001b 00e3 | | Load_Encached Natural_Cache
001c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
001d 00e3 | | Load_Encached Natural_Cache
001e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
001f 00e3 | | Load_Encached Natural_Cache
0020 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0021 00e3 | | Load_Encached Natural_Cache
0022 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0023 00e3 | | Load_Encached Natural_Cache
0024 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0025 00e3 | | Load_Encached Natural_Cache
0026 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0027 00e3 | | Load_Encached Natural_Cache
0028 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0029 00e3 | | Load_Encached Natural_Cache
002a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
002b 00e3 | | Load_Encached Natural_Cache
002c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
002d BODY_0018:
002d 4800 |H | Short_Literal 0x0
002e a5fd | | Store_Unchecked 0x2,-0x3
002f 8001 | | Call 0x0,0x1
0030 01db | | Execute Vector,Length
0031 6893 |h | Jump_Zero 0xc5
0032 e5ff | | Load 0x2,-0x1
0033 01db | | Execute Vector,Length
0034 0f00 | | Execute_Immediate Equal,0x0
0035 e5fe | | Load 0x2,-0x2
0036 01db | | Execute Vector,Length
0037 0f00 | | Execute_Immediate Equal,0x0
0038 0278 | x | Execute Discrete,Or
0039 6808 |h | Jump_Zero 0x42
003a e002 | | Load 0x0,0x2
003b 180e | | Execute Package,Field_Execute,Field_Number 0xe
003c 4807 |H | Short_Literal 0x7
003d 0092 00d4 | | Action Push_String_Extended,0xd4 ; "Please supply Old_Name and New_Name"
003f e003 | | Load 0x0,0x3
0040 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0041 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0042 00e3 | | Load_Encached Natural_Cache
0043 00e3 | | Load_Encached Natural_Cache
0044 00e3 | | Load_Encached Natural_Cache
0045 e5fe | | Load 0x2,-0x2
0046 8004 | | Call 0x0,0x4
0047 c405 | | Store 0x2,0x5
0048 c406 | | Store 0x2,0x6
0049 c407 | | Store 0x2,0x7
004a e405 | | Load 0x2,0x5
004b 706f |po | Jump_Nonzero 0xbb
004c 00e3 | | Load_Encached Natural_Cache
004d 00e3 | | Load_Encached Natural_Cache
004e 00e3 | | Load_Encached Natural_Cache
004f e5ff | | Load 0x2,-0x1
0050 8004 | | Call 0x0,0x4
0051 c402 | | Store 0x2,0x2
0052 c403 | | Store 0x2,0x3
0053 c404 | | Store 0x2,0x4
0054 e404 | | Load 0x2,0x4
0055 680f |h | Jump_Zero 0x65
0056 e002 | | Load 0x0,0x2
0057 180e | | Execute Package,Field_Execute,Field_Number 0xe
0058 4807 |H | Short_Literal 0x7
0059 e5ff | | Load 0x2,-0x1
005a 0092 00d5 | | Action Push_String_Extended,0xd5 ; " tokens in use, have "
005c 01cc | | Execute Vector,Catenate
005d e5ff | | Load 0x2,-0x1
005e 01cc | | Execute Vector,Catenate
005f 0092 00d6 | | Action Push_String_Extended,0xd6 ; " users log off and rerun install"
0061 01cc | | Execute Vector,Catenate
0062 e003 | | Load 0x0,0x3
0063 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0064 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0065 e402 | | Load 0x2,0x2
0066 700d |p | Jump_Nonzero 0x74
0067 e002 | | Load 0x0,0x2
0068 180e | | Execute Package,Field_Execute,Field_Number 0xe
0069 4807 |H | Short_Literal 0x7
006a 0092 00d7 | | Action Push_String_Extended,0xd7 ; "No tokens for "
006c e5ff | | Load 0x2,-0x1
006d 01cc | | Execute Vector,Catenate
006e 0092 00d8 | | Action Push_String_Extended,0xd8 ; " are on this machine."
0070 01cc | | Execute Vector,Catenate
0071 e003 | | Load 0x0,0x3
0072 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0073 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0074 0092 00d9 | | Action Push_String_Extended,0xd9 ; "password = rational/smse"
0076 4800 |H | Short_Literal 0x0
0077 0092 00da | | Action Push_String_Extended,0xda ; "<FOREVER>"
0079 0092 00db | | Action Push_String_Extended,0xdb ; "token => ("
007b e5fe | | Load 0x2,-0x2
007c 01cc | | Execute Vector,Catenate
007d 0092 00dc | | Action Push_String_Extended,0xdc ; ","
007f 01cc | | Execute Vector,Catenate
0080 e402 | | Load 0x2,0x2
0081 00e0 | | Load_Encached Standard_Cache
0082 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0083 01cc | | Execute Vector,Catenate
0084 0092 00dd | | Action Push_String_Extended,0xdd ; ")"
0086 01cc | | Execute Vector,Catenate
0087 8005 | | Call 0x0,0x5
0088 00e3 | | Load_Encached Natural_Cache
0089 00e3 | | Load_Encached Natural_Cache
008a 00e3 | | Load_Encached Natural_Cache
008b e5fe | | Load 0x2,-0x2
008c 8004 | | Call 0x0,0x4
008d c408 | | Store 0x2,0x8
008e 005b | [ | Store_Top Discrete,At_Offset_3
008f 0059 | Y | Store_Top Discrete,At_Offset_1
0090 00da | | Load_Top At_Offset_2
0091 e402 | | Load 0x2,0x2
0092 027f | | Execute Discrete,Equal
0093 681a |h | Jump_Zero 0xae
0094 0092 00de | | Action Push_String_Extended,0xde ; "<PROFILE>"
0096 8001 | | Call 0x0,0x1
0097 6038 |`8 | Indirect_Literal Discrete,0xd0,{0x00000000, 0x000f423f}
0098 e402 | | Load 0x2,0x2
0099 00d8 | | Load_Top At_Offset_0
009a 00e4 | | Load_Encached Positive_Cache
009b 0260 | ` | Execute Discrete,In_Type
009c 7001 |p | Jump_Nonzero 0x9e
009d 0801 | | Execute_Immediate Raise,0x1
009e e402 | | Load 0x2,0x2
009f 00d8 | | Load_Top At_Offset_0
00a0 00e4 | | Load_Encached Positive_Cache
00a1 0260 | ` | Execute Discrete,In_Type
00a2 7001 |p | Jump_Nonzero 0xa4
00a3 0801 | | Execute_Immediate Raise,0x1
00a4 e5ff | | Load 0x2,-0x1
00a5 8006 | | Call 0x0,0x6
00a6 0092 00d9 | | Action Push_String_Extended,0xd9 ; "password = rational/smse"
00a8 e403 | | Load 0x2,0x3
00a9 e5fe | | Load 0x2,-0x2
00aa 8007 | | Call 0x0,0x7
00ab 4801 |H | Short_Literal 0x1
00ac a5fd | | Store_Unchecked 0x2,-0x3
00ad 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00ae e002 | | Load 0x0,0x2
00af 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b0 4807 |H | Short_Literal 0x7
00b1 0092 00df | | Action Push_String_Extended,0xdf ; "Authorization of tokens for "
00b3 e5fe | | Load 0x2,-0x2
00b4 01cc | | Execute Vector,Catenate
00b5 0092 00e0 | | Action Push_String_Extended,0xe0 ; " failed. Problem may be due to Accept_Tokens already being run today."
00b7 01cc | | Execute Vector,Catenate
00b8 e003 | | Load 0x0,0x3
00b9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ba 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00bb e002 | | Load 0x0,0x2
00bc 180e | | Execute Package,Field_Execute,Field_Number 0xe
00bd 4802 |H | Short_Literal 0x2
00be e5fe | | Load 0x2,-0x2
00bf 0092 00e1 | | Action Push_String_Extended,0xe1 ; " tokens are already on this machine."
00c1 01cc | | Execute Vector,Catenate
00c2 e003 | | Load 0x0,0x3
00c3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00c5 e002 | | Load 0x0,0x2
00c6 180e | | Execute Package,Field_Execute,Field_Number 0xe
00c7 4807 |H | Short_Literal 0x7
00c8 0092 00e2 | | Action Push_String_Extended,0xe2 ; "Site Id has not been set, skipping Token Conversion"
00ca e003 | | Load 0x0,0x3
00cb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00cc 4801 |H | Short_Literal 0x1
00cd a5fd | | Store_Unchecked 0x2,-0x3
00ce 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00cf 0000 | | .XXX[0x1]
00d0 0000 0000 | | .LITERAL {0x00000000, 0x000f423f}
00d4 ; --------------------------------------------------------------------------------------
00d4 ; STRING TABLE
00d4 ; --------------------------------------------------------------------------------------
00d4 0020 | | .STRTAB 0x0020->0x00e4 ; "Please supply Old_Name and New_Name"
00d5 0041 | A | .STRTAB 0x0041->0x00f5 ; " tokens in use, have "
00d6 0054 | T | .STRTAB 0x0054->0x0100 ; " users log off and rerun install"
00d7 0072 | r | .STRTAB 0x0072->0x0110 ; "No tokens for "
00d8 007e | ~ | .STRTAB 0x007e->0x0117 ; " are on this machine."
00d9 0091 | | .STRTAB 0x0091->0x0121 ; "password = rational/smse"
00da 00a7 | | .STRTAB 0x00a7->0x012d ; "<FOREVER>"
00db 00ae | | .STRTAB 0x00ae->0x0132 ; "token => ("
00dc 00b6 | | .STRTAB 0x00b6->0x0137 ; ","
00dd 00b5 | | .STRTAB 0x00b5->0x0137 ; ")"
00de 00b4 | | .STRTAB 0x00b4->0x0138 ; "<PROFILE>"
00df 00bb | | .STRTAB 0x00bb->0x013c ; "Authorization of tokens for "
00e0 00d5 | | .STRTAB 0x00d5->0x014a ; " failed. Problem may be due to Accept_Tokens already being run today."
00e1 0119 | | .STRTAB 0x0119->0x016d ; " tokens are already on this machine."
00e2 013b | ; | .STRTAB 0x013b->0x017f ; "Site Id has not been set, skipping Token Conversion"
00e3 016c | l | .STREND 0x016c->0x0199
00e4 506c 6561 |Plea| .STRTAB_STRINGS
0199 0000 0000 | | .BLANK 0000[0x7]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; Debug Table
01a0 ; --------------------------------------------------------------------------------------
01a0 0004 0006 | | .DEBUG4 0x0004,0x0006,0x6ad3,0x0000,0x0001,0x0000
01a6 0000 0000 | | .BLANK 0000[0x5a]