|
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, 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 0230 | 0 | .CONST 0x0230 ; 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 0059 | Y | .CONST 0x0059 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000c | | .CONST 0x000c ; Number of locals
001b INIT_0018:
001b 4800 |H | Short_Literal 0x0
001c 4801 |H | Short_Literal 0x1
001d 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call
001f 03fd | | Declare_Type Discrete,Defined
0020 e001 | | Load 0x0,0x1
0021 e002 | | Load 0x0,0x2
0022 00da | | Load_Top At_Offset_2
0023 4800 |H | Short_Literal 0x0
0024 4801 |H | Short_Literal 0x1
0025 4801 |H | Short_Literal 0x1
0026 0092 0107 | | Action Push_String_Extended,0x107 ; "others => boolean"
0028 00ea | | Load_Encached Null_String_Cache
0029 00ea | | Load_Encached Null_String_Cache
002a 4801 |H | Short_Literal 0x1
002b 4801 |H | Short_Literal 0x1
002c e003 | | Load 0x0,0x3
002d 0387 | | Declare_Variable Package
002e 00d8 | | Load_Top At_Offset_0
002f 020f | | Execute Module,Activate
0030 e5f9 | | Load 0x2,-0x7
0031 00d9 | | Load_Top At_Offset_1
0032 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0033 4801 |H | Short_Literal 0x1
0034 4801 |H | Short_Literal 0x1
0035 00da | | Load_Top At_Offset_2
0036 e403 | | Load 0x2,0x3
0037 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0038 00e1 | | Load_Encached Boolean_Cache
0039 03f1 | | Declare_Variable Discrete,With_Value
003a e5ff | | Load 0x2,-0x1
003b e004 | | Load 0x0,0x4
003c 180d | | Execute Package,Field_Execute,Field_Number 0xd
003d e005 | | Load 0x0,0x5
003e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
003f e005 | | Load 0x0,0x5
0040 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0041 e5fd | | Load 0x2,-0x3
0042 00da | | Load_Top At_Offset_2
0043 e004 | | Load 0x0,0x4
0044 180e | | Execute Package,Field_Execute,Field_Number 0xe
0045 00ea | | Load_Encached Null_String_Cache
0046 e5fc | | Load 0x2,-0x4
0047 00db | | Load_Top At_Offset_3
0048 e004 | | Load 0x0,0x4
0049 180f | | Execute Package,Field_Execute,Field_Number 0xf
004a 00ea | | Load_Encached Null_String_Cache
004b e004 | | Load 0x0,0x4
004c 180d | | Execute Package,Field_Execute,Field_Number 0xd
004d 00da | | Load_Top At_Offset_2
004e e5fb | | Load 0x2,-0x5
004f 00da | | Load_Top At_Offset_2
0050 e004 | | Load 0x0,0x4
0051 180e | | Execute Package,Field_Execute,Field_Number 0xe
0052 00da | | Load_Top At_Offset_2
0053 e5fa | | Load 0x2,-0x6
0054 00db | | Load_Top At_Offset_3
0055 e004 | | Load 0x0,0x4
0056 180f | | Execute Package,Field_Execute,Field_Number 0xf
0057 e5fe | | Load 0x2,-0x2
0058 8006 | | Call 0x0,0x6
0059 BODY_0018:
0059 e405 | | Load 0x2,0x5
005a 6819 |h | Jump_Zero 0x74
005b 0092 0108 | | Action Push_String_Extended,0x108 ; "!Machine.Release.Archive.Environment."
005d 00d9 | | Load_Top At_Offset_1
005e 01cc | | Execute Vector,Catenate
005f 0092 0109 | | Action Push_String_Extended,0x109 ; ".Segments"
0061 01cc | | Execute Vector,Catenate
0062 8007 | | Call 0x0,0x7
0063 7010 |p | Jump_Nonzero 0x74
0064 e008 | | Load 0x0,0x8
0065 180e | | Execute Package,Field_Execute,Field_Number 0xe
0066 4805 |H | Short_Literal 0x5
0067 0092 010a | | Action Push_String_Extended,0x10a ; "This machine does not have the code segments that will be needed to remotely install the release on !!"
0069 e406 | | Load 0x2,0x6
006a 01cc | | Execute Vector,Catenate
006b 0092 010b | | Action Push_String_Extended,0x10b ; " You must run the MANIFEST_SEGMENTS procedure to enable this "
006d 01cc | | Execute Vector,Catenate
006e 0092 010c | | Action Push_String_Extended,0x10c ; "feature. Read the release note for details."
0070 01cc | | Execute Vector,Catenate
0071 e009 | | Load 0x0,0x9
0072 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0073 4509 |E | Exit_Suprogram New_Top_Offset 0x9
0074 e5f8 | | Load 0x2,-0x8
0075 0092 010d | | Action Push_String_Extended,0x10d ; "Changed_Objects, Replace, Remake, user = "
0077 e407 | | Load 0x2,0x7
0078 01cc | | Execute Vector,Catenate
0079 0092 010e | | Action Push_String_Extended,0x10e ; ", "
007b 01cc | | Execute Vector,Catenate
007c 0092 010f | | Action Push_String_Extended,0x10f ; "pass = ("
007e 01cc | | Execute Vector,Catenate
007f e408 | | Load 0x2,0x8
0080 01cc | | Execute Vector,Catenate
0081 0092 0110 | | Action Push_String_Extended,0x110 ; ")"
0083 01cc | | Execute Vector,Catenate
0084 0092 0111 | | Action Push_String_Extended,0x111 ; "*"
0086 0092 0112 | | Action Push_String_Extended,0x112 ; "!!"
0088 e406 | | Load 0x2,0x6
0089 01cc | | Execute Vector,Catenate
008a 0092 0113 | | Action Push_String_Extended,0x113 ; "$$.Load_Procs.Network_Install"
008c e00a | | Load 0x0,0xa
008d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
008e e5f8 | | Load 0x2,-0x8
008f 00ea | | Load_Encached Null_String_Cache
0090 0092 0114 | | Action Push_String_Extended,0x114 ; "<DEFAULT>"
0092 0092 0115 | | Action Push_String_Extended,0x115 ; "$"
0094 0092 0116 | | Action Push_String_Extended,0x116 ; "\x22$$.Load_Procs\x22.Network_Install (Machine => \x22!!"
0096 e409 | | Load 0x2,0x9
0097 01cc | | Execute Vector,Catenate
0098 0092 0117 | | Action Push_String_Extended,0x117 ; "\x22,"
009a 01cc | | Execute Vector,Catenate
009b 0092 0118 | | Action Push_String_Extended,0x118 ; "Release => \x22"
009d 01cc | | Execute Vector,Catenate
009e e40c | | Load 0x2,0xc
009f 01cc | | Execute Vector,Catenate
00a0 0092 0117 | | Action Push_String_Extended,0x117 ; "\x22,"
00a2 01cc | | Execute Vector,Catenate
00a3 0092 0119 | | Action Push_String_Extended,0x119 ; "Username => \x22"
00a5 01cc | | Execute Vector,Catenate
00a6 e40a | | Load 0x2,0xa
00a7 01cc | | Execute Vector,Catenate
00a8 0092 0117 | | Action Push_String_Extended,0x117 ; "\x22,"
00aa 01cc | | Execute Vector,Catenate
00ab 0092 011a | | Action Push_String_Extended,0x11a ; "Password => \x22"
00ad 01cc | | Execute Vector,Catenate
00ae e40b | | Load 0x2,0xb
00af 01cc | | Execute Vector,Catenate
00b0 0092 0117 | | Action Push_String_Extended,0x117 ; "\x22,"
00b2 01cc | | Execute Vector,Catenate
00b3 0092 011b | | Action Push_String_Extended,0x11b ; "Response => \x22"
00b5 01cc | | Execute Vector,Catenate
00b6 e5f8 | | Load 0x2,-0x8
00b7 01cc | | Execute Vector,Catenate
00b8 0092 0117 | | Action Push_String_Extended,0x117 ; "\x22,"
00ba 01cc | | Execute Vector,Catenate
00bb 0092 011c | | Action Push_String_Extended,0x11c ; "Options => \x22"
00bd 01cc | | Execute Vector,Catenate
00be 0092 011d | | Action Push_String_Extended,0x11d ; " Local_Username = "
00c0 01cc | | Execute Vector,Catenate
00c1 e407 | | Load 0x2,0x7
00c2 01cc | | Execute Vector,Catenate
00c3 0092 010e | | Action Push_String_Extended,0x10e ; ", "
00c5 01cc | | Execute Vector,Catenate
00c6 0092 011e | | Action Push_String_Extended,0x11e ; " Local_Password = ("
00c8 01cc | | Execute Vector,Catenate
00c9 e408 | | Load 0x2,0x8
00ca 01cc | | Execute Vector,Catenate
00cb 0092 011f | | Action Push_String_Extended,0x11f ; "), "
00cd 01cc | | Execute Vector,Catenate
00ce e5f9 | | Load 0x2,-0x7
00cf 01cc | | Execute Vector,Catenate
00d0 0092 0120 | | Action Push_String_Extended,0x120 ; "\x22);"
00d2 01cc | | Execute Vector,Catenate
00d3 0092 0112 | | Action Push_String_Extended,0x112 ; "!!"
00d5 e406 | | Load 0x2,0x6
00d6 01cc | | Execute Vector,Catenate
00d7 e00b | | Load 0x0,0xb
00d8 180d | | Execute Package,Field_Execute,Field_Number 0xd
00d9 4509 |E | Exit_Suprogram New_Top_Offset 0x9
00da 0000 0000 | | .BLANK 0000[0x6]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 4607 |F | Jump_Case 0x8
00e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00e5 7806 |x | Jump 0xec ; case 0x1
00e6 7809 |x | Jump 0xf0 ; case 0x2
00e7 780d |x | Jump 0xf5 ; case 0x3
00e8 7810 |x | Jump 0xf9 ; case 0x4
00e9 7811 |x | Jump 0xfb ; case 0x5
00ea 7812 |x | Jump 0xfd ; case 0x6
00eb 7815 |x | Jump 0x101 ; case 0x7
00ec 00da | | Load_Top At_Offset_2
00ed 0091 0105 | | Action Push_String_Extended_Indexed,0x105 ; "NIL"
00ef 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f0 00db | | Load_Top At_Offset_3
00f1 00db | | Load_Top At_Offset_3
00f2 00e0 | | Load_Encached Standard_Cache
00f3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f5 00da | | Load_Top At_Offset_2
00f6 00e0 | | Load_Encached Standard_Cache
00f7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f9 00db | | Load_Top At_Offset_3
00fa 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fb 00db | | Load_Top At_Offset_3
00fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fd e402 | | Load 0x2,0x2
00fe 00dc | | Load_Top At_Offset_4
00ff 0267 | g | Execute Discrete,Predecessor
0100 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0101 e402 | | Load 0x2,0x2
0102 00dc | | Load_Top At_Offset_4
0103 0268 | h | Execute Discrete,Successor
0104 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0105 ; --------------------------------------------------------------------------------------
0105 ; STRING TABLE
0105 ; --------------------------------------------------------------------------------------
0105 003a | : | .STRTAB 0x003a->0x0122 ; "NIL"
0106 003b | ; | .STRTAB 0x003b->0x0123 ; "ENVIRONMENT"
0107 0044 | D | .STRTAB 0x0044->0x0129 ; "others => boolean"
0108 0053 | S | .STRTAB 0x0053->0x0131 ; "!Machine.Release.Archive.Environment."
0109 0076 | v | .STRTAB 0x0076->0x0144 ; ".Segments"
010a 007d | } | .STRTAB 0x007d->0x0148 ; "This machine does not have the code segments that will be needed to remotely install the release on !!"
010b 00e1 | | .STRTAB 0x00e1->0x017b ; " You must run the MANIFEST_SEGMENTS procedure to enable this "
010c 011d | | .STRTAB 0x011d->0x019a ; "feature. Read the release note for details."
010d 0147 | G | .STRTAB 0x0147->0x01b0 ; "Changed_Objects, Replace, Remake, user = "
010e 016e | n | .STRTAB 0x016e->0x01c5 ; ", "
010f 016e | n | .STRTAB 0x016e->0x01c6 ; "pass = ("
0110 0174 | t | .STRTAB 0x0174->0x01ca ; ")"
0111 0173 | s | .STRTAB 0x0173->0x01ca ; "*"
0112 0172 | r | .STRTAB 0x0172->0x01cb ; "!!"
0113 0172 | r | .STRTAB 0x0172->0x01cc ; "$$.Load_Procs.Network_Install"
0114 018d | | .STRTAB 0x018d->0x01da ; "<DEFAULT>"
0115 0194 | | .STRTAB 0x0194->0x01df ; "$"
0116 0193 | | .STRTAB 0x0193->0x01df ; "\x22$$.Load_Procs\x22.Network_Install (Machine => \x22!!"
0117 01c1 | | .STRTAB 0x01c1->0x01f7 ; "\x22,"
0118 01c1 | | .STRTAB 0x01c1->0x01f8 ; "Release => \x22"
0119 01cc | | .STRTAB 0x01cc->0x01ff ; "Username => \x22"
011a 01d7 | | .STRTAB 0x01d7->0x0205 ; "Password => \x22"
011b 01e2 | | .STRTAB 0x01e2->0x020c ; "Response => \x22"
011c 01ed | | .STRTAB 0x01ed->0x0212 ; "Options => \x22"
011d 01f8 | | .STRTAB 0x01f8->0x0219 ; " Local_Username = "
011e 0209 | | .STRTAB 0x0209->0x0222 ; " Local_Password = ("
011f 021b | | .STRTAB 0x021b->0x022c ; "), "
0120 021c | | .STRTAB 0x021c->0x022e ; "\x22);"
0121 021d | | .STREND 0x021d->0x022f
0122 4e49 4c45 |NILE| .STRTAB_STRINGS
0230 ; --------------------------------------------------------------------------------------
0230 ; Debug Table
0230 ; --------------------------------------------------------------------------------------
0230 0004 0000 | | .DEBUG4 0x0004,0x0000,0x76ff,0x0000,0x0001,0x0000
0236 0000 0000 | | .BLANK 0000[0x1ca]