|
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_0340e4
└─⟦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 0200 | | .CONST 0x0200 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0020 | | .CONST 0x0020 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0007 | | .CONST 0x0007 ; Number of locals 000b INIT_0008: 000b e00d | | Load 0x0,0xd 000c 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 000d 0322 | " | Declare_Variable Record 000e 00d8 | | Load_Top At_Offset_0 000f 1c00 | | Execute_Immediate Run_Utility,0x0 0010 e00d | | Load 0x0,0xd 0011 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0012 0322 | " | Declare_Variable Record 0013 00d8 | | Load_Top At_Offset_0 0014 1c00 | | Execute_Immediate Run_Utility,0x0 0015 e00d | | Load 0x0,0xd 0016 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0017 02c7 | | Declare_Variable Any 0018 00d8 | | Load_Top At_Offset_0 0019 1c00 | | Execute_Immediate Run_Utility,0x0 001a 00e3 | | Load_Encached Natural_Cache 001b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 001c 00e3 | | Load_Encached Natural_Cache 001d 0605 | | Execute_Immediate Set_Value_Unchecked,0x5 001e 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 0020 BODY_0008: 0020 e402 | | Load 0x2,0x2 0021 e5ff | | Load 0x2,-0x1 0022 e00d | | Load 0x0,0xd 0023 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0024 00d1 | | Pop_Control Pop_Count_1 0025 e403 | | Load 0x2,0x3 0026 e5ff | | Load 0x2,-0x1 0027 e00d | | Load 0x0,0xd 0028 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0029 00d1 | | Pop_Control Pop_Count_1 002a 4800 |H | Short_Literal 0x0 002b 0092 0115 | | Action Push_String_Extended,0x115 ; "Rpc" 002d e00e | | Load 0x0,0xe 002e 180d | | Execute Package,Field_Execute,Field_Number 0xd 002f 8407 | | Call 0x2,0x7 0030 4800 |H | Short_Literal 0x0 0031 0092 0116 | | Action Push_String_Extended,0x116 ; "Transport_Defs" 0033 e00e | | Load 0x0,0xe 0034 180d | | Execute Package,Field_Execute,Field_Number 0xd 0035 8407 | | Call 0x2,0x7 0036 4800 |H | Short_Literal 0x0 0037 4800 |H | Short_Literal 0x0 0038 e5fe | | Load 0x2,-0x2 0039 e013 | | Load 0x0,0x13 003a 180d | | Execute Package,Field_Execute,Field_Number 0xd 003b e00e | | Load 0x0,0xe 003c 180f | | Execute Package,Field_Execute,Field_Number 0xf 003d 8407 | | Call 0x2,0x7 003e 4802 |H | Short_Literal 0x2 003f 0092 0117 | | Action Push_String_Extended,0x117 ; " -- Shared defintiions for remote procedure call:" 0041 8407 | | Call 0x2,0x7 0042 4800 |H | Short_Literal 0x0 0043 0092 0118 | | Action Push_String_Extended,0x118 ; "\x22TCP/IP\x22" 0045 0092 0119 | | Action Push_String_Extended,0x119 ; "Transport_Defs.Network_Name" 0047 0092 011a | | Action Push_String_Extended,0x11a ; "Network" 0049 e00e | | Load 0x0,0xe 004a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 004b 8407 | | Call 0x2,0x7 004c 4801 |H | Short_Literal 0x1 004d 0092 011b | | Action Push_String_Extended,0x11b ; "([INTEGER-expression], [INTEGER-expression])" 004f 0092 011c | | Action Push_String_Extended,0x11c ; "Transport_Defs.Socket_id (1..2)" 0051 0092 011d | | Action Push_String_Extended,0x11d ; "Socket" 0053 e00e | | Load 0x0,0xe 0054 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0055 8407 | | Call 0x2,0x7 0056 4800 |H | Short_Literal 0x0 0057 0092 011e | | Action Push_String_Extended,0x11e ; "[INTEGER-expression]" 0059 0092 011f | | Action Push_String_Extended,0x11f ; "Rpc.Program_Number" 005b 0092 0120 | | Action Push_String_Extended,0x120 ; "Program" 005d e00e | | Load 0x0,0xe 005e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 005f 8407 | | Call 0x2,0x7 0060 4801 |H | Short_Literal 0x1 0061 0092 011e | | Action Push_String_Extended,0x11e ; "[INTEGER-expression]" 0063 0092 0121 | !| Action Push_String_Extended,0x121 ; "Rpc.Version_Number" 0065 0092 0122 | "| Action Push_String_Extended,0x122 ; "Version" 0067 e00e | | Load 0x0,0xe 0068 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0069 8407 | | Call 0x2,0x7 006a 4800 |H | Short_Literal 0x0 006b 4800 |H | Short_Literal 0x0 006c 0092 0123 | #| Action Push_String_Extended,0x123 ; "Procedure_Number" 006e e00e | | Load 0x0,0xe 006f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0070 8407 | | Call 0x2,0x7 0071 00cf | | Action Mark_Auxiliary 0072 7814 |x | Jump 0x87 0073 4800 |H | Short_Literal 0x0 0074 e405 | | Load 0x2,0x5 0075 00e0 | | Load_Encached Standard_Cache 0076 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0077 0092 0124 | $| Action Push_String_Extended,0x124 ; "Rpc.Procedure_Number" 0079 e402 | | Load 0x2,0x2 007a e00d | | Load 0x0,0xd 007b 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 007c e00e | | Load 0x0,0xe 007d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 007e 8407 | | Call 0x2,0x7 007f e402 | | Load 0x2,0x2 0080 e00d | | Load 0x0,0xd 0081 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0082 00d1 | | Pop_Control Pop_Count_1 0083 00db | | Load_Top At_Offset_3 0084 0a01 | | Execute_Immediate Plus,0x1 0085 c405 | | Store 0x2,0x5 0086 00c9 | | Action Pop_Auxiliary_Loop 0087 e402 | | Load 0x2,0x2 0088 e00d | | Load 0x0,0xd 0089 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 008a 6fe8 |o | Jump_Zero 0x73 008b 00ce | | Action Pop_Auxiliary 008c 4801 |H | Short_Literal 0x1 008d 00ea | | Load_Encached Null_String_Cache 008e e00e | | Load 0x0,0xe 008f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0090 8407 | | Call 0x2,0x7 0091 4800 |H | Short_Literal 0x0 0092 4800 |H | Short_Literal 0x0 0093 0092 0125 | %| Action Push_String_Extended,0x125 ; "Exception_Number" 0095 e00e | | Load 0x0,0xe 0096 180f | | Execute Package,Field_Execute,Field_Number 0xf 0097 8407 | | Call 0x2,0x7 0098 4800 |H | Short_Literal 0x0 0099 0092 0126 | &| Action Push_String_Extended,0x126 ; "0" 009b 0092 0127 | '| Action Push_String_Extended,0x127 ; "Rpc.Exception_Number" 009d 0092 0128 | (| Action Push_String_Extended,0x128 ; "Constraint_Error" 009f e00e | | Load 0x0,0xe 00a0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00a1 8407 | | Call 0x2,0x7 00a2 4800 |H | Short_Literal 0x0 00a3 0092 0129 | )| Action Push_String_Extended,0x129 ; "1" 00a5 0092 0127 | '| Action Push_String_Extended,0x127 ; "Rpc.Exception_Number" 00a7 0092 012a | *| Action Push_String_Extended,0x12a ; "Numeric_Error" 00a9 e00e | | Load 0x0,0xe 00aa 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00ab 8407 | | Call 0x2,0x7 00ac 4800 |H | Short_Literal 0x0 00ad 0092 012b | +| Action Push_String_Extended,0x12b ; "2" 00af 0092 0127 | '| Action Push_String_Extended,0x127 ; "Rpc.Exception_Number" 00b1 0092 012c | ,| Action Push_String_Extended,0x12c ; "Program_Error" 00b3 e00e | | Load 0x0,0xe 00b4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00b5 8407 | | Call 0x2,0x7 00b6 4800 |H | Short_Literal 0x0 00b7 0092 012d | -| Action Push_String_Extended,0x12d ; "3" 00b9 0092 0127 | '| Action Push_String_Extended,0x127 ; "Rpc.Exception_Number" 00bb 0092 012e | .| Action Push_String_Extended,0x12e ; "Storage_Error" 00bd e00e | | Load 0x0,0xe 00be 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00bf 8407 | | Call 0x2,0x7 00c0 4800 |H | Short_Literal 0x0 00c1 0092 012f | /| Action Push_String_Extended,0x12f ; "4" 00c3 0092 0127 | '| Action Push_String_Extended,0x127 ; "Rpc.Exception_Number" 00c5 0092 0130 | 0| Action Push_String_Extended,0x130 ; "Tasking_Error" 00c7 e00e | | Load 0x0,0xe 00c8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00c9 8407 | | Call 0x2,0x7 00ca 00cf | | Action Mark_Auxiliary 00cb 7824 |x$ | Jump 0xf0 00cc e403 | | Load 0x2,0x3 00cd e00d | | Load 0x0,0xd 00ce 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00cf c404 | | Store 0x2,0x4 00d0 00cf | | Action Mark_Auxiliary 00d1 7814 |x | Jump 0xe6 00d2 4800 |H | Short_Literal 0x0 00d3 e406 | | Load 0x2,0x6 00d4 00e0 | | Load_Encached Standard_Cache 00d5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00d6 0092 0127 | '| Action Push_String_Extended,0x127 ; "Rpc.Exception_Number" 00d8 e404 | | Load 0x2,0x4 00d9 e00d | | Load 0x0,0xd 00da 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00db e00e | | Load 0x0,0xe 00dc 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00dd 8407 | | Call 0x2,0x7 00de e404 | | Load 0x2,0x4 00df e00d | | Load 0x0,0xd 00e0 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00e1 c404 | | Store 0x2,0x4 00e2 00db | | Load_Top At_Offset_3 00e3 0a01 | | Execute_Immediate Plus,0x1 00e4 c406 | | Store 0x2,0x6 00e5 00c9 | | Action Pop_Auxiliary_Loop 00e6 e404 | | Load 0x2,0x4 00e7 e00d | | Load 0x0,0xd 00e8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00e9 6fe8 |o | Jump_Zero 0xd2 00ea 00ce | | Action Pop_Auxiliary 00eb e403 | | Load 0x2,0x3 00ec e00d | | Load 0x0,0xd 00ed 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00ee 00d1 | | Pop_Control Pop_Count_1 00ef 00c9 | | Action Pop_Auxiliary_Loop 00f0 e403 | | Load 0x2,0x3 00f1 e00d | | Load 0x0,0xd 00f2 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00f3 6fd8 |o | Jump_Zero 0xcc 00f4 00ce | | Action Pop_Auxiliary 00f5 4801 |H | Short_Literal 0x1 00f6 00ea | | Load_Encached Null_String_Cache 00f7 e00e | | Load 0x0,0xe 00f8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00f9 8407 | | Call 0x2,0x7 00fa 4800 |H | Short_Literal 0x0 00fb 00ea | | Load_Encached Null_String_Cache 00fc e00e | | Load 0x0,0xe 00fd 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00fe 8407 | | Call 0x2,0x7 00ff 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 e5fd | | Load 0x2,-0x3 0105 e015 | | Load 0x0,0x15 0106 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 0107 00db | | Load_Top At_Offset_3 0108 0c01 | | Execute_Immediate Greater_Equal,0x1 0109 680a |h | Jump_Zero 0x114 010a 00db | | Load_Top At_Offset_3 010b 00d8 | | Load_Top At_Offset_0 010c e015 | | Load 0x0,0x15 010d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 010e 0260 | ` | Execute Discrete,In_Type 010f 7001 |p | Jump_Nonzero 0x111 0110 0801 | | Execute_Immediate Raise,0x1 0111 e5fd | | Load 0x2,-0x3 0112 e015 | | Load 0x0,0x15 0113 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0114 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0115 ; -------------------------------------------------------------------------------------- 0115 ; STRING TABLE 0115 ; -------------------------------------------------------------------------------------- 0115 003a | : | .STRTAB 0x003a->0x0132 ; "Rpc" 0116 003b | ; | .STRTAB 0x003b->0x0133 ; "Transport_Defs" 0117 0047 | G | .STRTAB 0x0047->0x013a ; " -- Shared defintiions for remote procedure call:" 0118 0077 | w | .STRTAB 0x0077->0x0153 ; "\x22TCP/IP\x22" 0119 007d | } | .STRTAB 0x007d->0x0157 ; "Transport_Defs.Network_Name" 011a 0096 | | .STRTAB 0x0096->0x0165 ; "Network" 011b 009b | | .STRTAB 0x009b->0x0168 ; "([INTEGER-expression], [INTEGER-expression])" 011c 00c5 | | .STRTAB 0x00c5->0x017e ; "Transport_Defs.Socket_id (1..2)" 011d 00e2 | | .STRTAB 0x00e2->0x018e ; "Socket" 011e 00e6 | | .STRTAB 0x00e6->0x0191 ; "[INTEGER-expression]" 011f 00f8 | | .STRTAB 0x00f8->0x019b ; "Rpc.Program_Number" 0120 0108 | | .STRTAB 0x0108->0x01a4 ; "Program" 0121 010d | | .STRTAB 0x010d->0x01a7 ; "Rpc.Version_Number" 0122 011d | | .STRTAB 0x011d->0x01b0 ; "Version" 0123 0122 | " | .STRTAB 0x0122->0x01b4 ; "Procedure_Number" 0124 0130 | 0 | .STRTAB 0x0130->0x01bc ; "Rpc.Procedure_Number" 0125 0142 | B | .STRTAB 0x0142->0x01c6 ; "Exception_Number" 0126 0150 | P | .STRTAB 0x0150->0x01ce ; "0" 0127 014f | O | .STRTAB 0x014f->0x01ce ; "Rpc.Exception_Number" 0128 0161 | a | .STRTAB 0x0161->0x01d8 ; "Constraint_Error" 0129 016f | o | .STRTAB 0x016f->0x01e0 ; "1" 012a 016e | n | .STRTAB 0x016e->0x01e1 ; "Numeric_Error" 012b 0179 | y | .STRTAB 0x0179->0x01e7 ; "2" 012c 0178 | x | .STRTAB 0x0178->0x01e8 ; "Program_Error" 012d 0183 | | .STRTAB 0x0183->0x01ee ; "3" 012e 0182 | | .STRTAB 0x0182->0x01ef ; "Storage_Error" 012f 018d | | .STRTAB 0x018d->0x01f5 ; "4" 0130 018c | | .STRTAB 0x018c->0x01f6 ; "Tasking_Error" 0131 0197 | | .STREND 0x0197->0x01fc 0132 5270 6354 |RpcT| .STRTAB_STRINGS 01fd 0000 0000 | | .XXX[0x3] 01ff 0000 | | 0200 ; -------------------------------------------------------------------------------------- 0200 ; Debug Table 0200 ; -------------------------------------------------------------------------------------- 0200 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f00,0x0000,0x0001,0x0002 0206 000b 020e | | .DBG4T 0x000b,0x020e,0x0001,0x4000 020a 0103 0254 | T| .DBG4T 0x0103,0x0254,0x0001,0x0000 020e ; -------------------------------------------------------------------------------------- 020e ; Debug chain 020e ; -------------------------------------------------------------------------------------- 020e 0006 001f | | .DBGLEN 0x0006,0x001f 0210 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0015,0x001a,0x001c,0x001e,0x0020,0x0025,0x002a,0x0030,0x0036,0x003e,0x0042,0x004c,0x0056,0x0060,0x006a,0x0073,0x007f,0x0083,0x0087,0x008c,0x0091,0x0098,0x00a2,0x00ac,0x00b6,0x00c0,0x00cc,0x00d2,0x00de,0x00e2,0x00e6,0x00eb,0x00f0,0x00f5,0x00fa 0235 0001 0002 | | .XXX[0x1f] 0237 0003 0004 | | 0239 0005 0006 | | 023b 0007 0008 | | 023d 0009 000a | | 023f 000b 000d | | 0241 000e 000f | | 0243 000c 0010 | | 0245 0011 0012 | | 0247 0013 0014 | | 0249 0015 0016 | | 024b 0018 001a | | 024d 001b 001c | | 024f 0019 001d | | 0251 0017 001e | | 0253 001f | | 0254 ; -------------------------------------------------------------------------------------- 0254 ; Debug chain 0254 ; -------------------------------------------------------------------------------------- 0254 0000 0003 | | .DBGLEN 0x0000,0x0003 0256 0103 0107 | | .DBGLNO 0x0103,0x0107,0x010a 0259 0000 0000 | | .BLANK 0000[0x1a7]