|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_10acc3
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0168 | h | .CONST 0x0168 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0013 | | .CONST 0x0013 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0004 | | .CONST 0x0004 ; Number of locals 000b INIT_0008: 000b 00da | | Load_Top At_Offset_2 000c 8015 | | Call 0x0,0x15 000d 801c | | Call 0x0,0x1c 000e 00db | | Load_Top At_Offset_3 000f 8015 | | Call 0x0,0x15 0010 801d | | Call 0x0,0x1d 0011 e00c | | Load 0x0,0xc 0012 0007 | | Action Break_Optional 0013 BODY_0008: 0013 4801 |H | Short_Literal 0x1 0014 e00a | | Load 0x0,0xa 0015 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0016 0092 00a8 | | Action Push_String_Extended,0xa8 ; "+++ Received request for " 0018 e5ff | | Load 0x2,-0x1 0019 8015 | | Call 0x0,0x15 001a 8018 | | Call 0x0,0x18 001b 01cc | | Execute Vector,Catenate 001c e00a | | Load 0x0,0xa 001d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 001e 00cf | | Action Mark_Auxiliary 001f 784d |xM | Jump 0x6d 0020 0092 00a9 | | Action Push_String_Extended,0xa9 ; "+++ Found potential server =>" 0022 e402 | | Load 0x2,0x2 0023 801e | | Call 0x0,0x1e 0024 00e0 | | Load_Encached Standard_Cache 0025 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0026 01cc | | Execute Vector,Catenate 0027 e00a | | Load 0x0,0xa 0028 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0029 0092 00aa | | Action Push_String_Extended,0xaa ; "--- Forwarding request" 002b e00a | | Load 0x0,0xa 002c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 002d e00c | | Load 0x0,0xc 002e 6075 |`u | Indirect_Literal Discrete,0xa4,{0x00000000, 0x00000ccd} 002f 480a |H | Short_Literal 0xa 0030 e402 | | Load 0x2,0x2 0031 801e | | Call 0x0,0x1e 0032 800e | | Call 0x0,0xe 0033 8006 | | Call 0x0,0x6 0034 e402 | | Load 0x2,0x2 0035 801e | | Call 0x0,0x1e 0036 800e | | Call 0x0,0xe 0037 8010 | | Call 0x0,0x10 0038 e5ff | | Load 0x2,-0x1 0039 8011 | | Call 0x0,0x11 003a 8012 | | Call 0x0,0x12 003b 005a | Z | Store_Top Discrete,At_Offset_2 003c 00d9 | | Load_Top At_Offset_1 003d 7005 |p | Jump_Nonzero 0x43 003e 0092 00ab | | Action Push_String_Extended,0xab ; "+++ Forward successful" 0040 e00a | | Load 0x0,0xa 0041 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0042 782d |x- | Jump 0x70 0043 0092 00ac | | Action Push_String_Extended,0xac ; "++* Forward failed for publisher =>" 0045 e402 | | Load 0x2,0x2 0046 801e | | Call 0x0,0x1e 0047 00e0 | | Load_Encached Standard_Cache 0048 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0049 01cc | | Execute Vector,Catenate 004a e00a | | Load 0x0,0xa 004b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 004c 0092 00ad | | Action Push_String_Extended,0xad ; "--- Making it stale" 004e e00a | | Load 0x0,0xa 004f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0050 00db | | Load_Top At_Offset_3 0051 801e | | Call 0x0,0x1e 0052 821b | | Call 0x1,0x1b 0053 0092 00ae | | Action Push_String_Extended,0xae ; "--- Trying next publisher" 0055 e00a | | Load 0x0,0xa 0056 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0057 00db | | Load_Top At_Offset_3 0058 801f | | Call 0x0,0x1f 0059 00db | | Load_Top At_Offset_3 005a 8020 | | Call 0x0,0x20 005b 6810 |h | Jump_Zero 0x6c 005c 0092 00af | | Action Push_String_Extended,0xaf ; "*** Forward failed for all publishers" 005e e00a | | Load 0x0,0xa 005f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0060 0092 00b0 | | Action Push_String_Extended,0xb0 ; "--- Method => " 0062 e5ff | | Load 0x2,-0x1 0063 8015 | | Call 0x0,0x15 0064 8018 | | Call 0x0,0x18 0065 01cc | | Execute Vector,Catenate 0066 e00a | | Load 0x0,0xa 0067 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0068 0092 00b1 | | Action Push_String_Extended,0xb1 ; "--- could not be handled" 006a e00a | | Load 0x0,0xa 006b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 006c 00c9 | | Action Pop_Auxiliary_Loop 006d 00db | | Load_Top At_Offset_3 006e 8020 | | Call 0x0,0x20 006f 6fb0 |o | Jump_Zero 0x20 0070 00c9 | | Action Pop_Auxiliary_Loop 0071 782e |x. | Jump 0xa0 0072 e00c | | Load 0x0,0xc 0073 6030 |`0 | Indirect_Literal Discrete,0xa4,{0x00000000, 0x00000ccd} 0074 480a |H | Short_Literal 0xa 0075 e403 | | Load 0x2,0x3 0076 801e | | Call 0x0,0x1e 0077 800e | | Call 0x0,0xe 0078 8006 | | Call 0x0,0x6 0079 e403 | | Load 0x2,0x3 007a 801e | | Call 0x0,0x1e 007b 800e | | Call 0x0,0xe 007c 8010 | | Call 0x0,0x10 007d e5ff | | Load 0x2,-0x1 007e 8011 | | Call 0x0,0x11 007f 8012 | | Call 0x0,0x12 0080 005a | Z | Store_Top Discrete,At_Offset_2 0081 00d9 | | Load_Top At_Offset_1 0082 700a |p | Jump_Nonzero 0x8d 0083 0092 00b2 | | Action Push_String_Extended,0xb2 ; "+++ Propagated notification to subscriber => " 0085 00db | | Load_Top At_Offset_3 0086 801e | | Call 0x0,0x1e 0087 00e0 | | Load_Encached Standard_Cache 0088 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0089 01cc | | Execute Vector,Catenate 008a e00a | | Load 0x0,0xa 008b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 008c 7810 |x | Jump 0x9d 008d 0092 00b3 | | Action Push_String_Extended,0xb3 ; "*** Failed to propagate notification to subscriber => " 008f 00db | | Load_Top At_Offset_3 0090 801e | | Call 0x0,0x1e 0091 00e0 | | Load_Encached Standard_Cache 0092 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0093 01cc | | Execute Vector,Catenate 0094 e00a | | Load 0x0,0xa 0095 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0096 0092 00ad | | Action Push_String_Extended,0xad ; "--- Making it stale" 0098 e00a | | Load 0x0,0xa 0099 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 009a 00da | | Load_Top At_Offset_2 009b 801e | | Call 0x0,0x1e 009c 821b | | Call 0x1,0x1b 009d 00da | | Load_Top At_Offset_2 009e 801f | | Call 0x0,0x1f 009f 00c9 | | Action Pop_Auxiliary_Loop 00a0 00da | | Load_Top At_Offset_2 00a1 8020 | | Call 0x0,0x20 00a2 6fcf |o | Jump_Zero 0x72 00a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a4 0000 0000 | | .LITERAL {0x00000000, 0x00000ccd} 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; STRING TABLE 00a8 ; -------------------------------------------------------------------------------------- 00a8 001a | | .STRTAB 0x001a->0x00b5 ; "+++ Received request for " 00a9 0031 | 1 | .STRTAB 0x0031->0x00c1 ; "+++ Found potential server =>" 00aa 004c | L | .STRTAB 0x004c->0x00d0 ; "--- Forwarding request" 00ab 0060 | ` | .STRTAB 0x0060->0x00db ; "+++ Forward successful" 00ac 0074 | t | .STRTAB 0x0074->0x00e6 ; "++* Forward failed for publisher =>" 00ad 0095 | | .STRTAB 0x0095->0x00f7 ; "--- Making it stale" 00ae 00a6 | | .STRTAB 0x00a6->0x0101 ; "--- Trying next publisher" 00af 00bd | | .STRTAB 0x00bd->0x010d ; "*** Forward failed for all publishers" 00b0 00e0 | | .STRTAB 0x00e0->0x0120 ; "--- Method => " 00b1 00ec | | .STRTAB 0x00ec->0x0127 ; "--- could not be handled" 00b2 0102 | | .STRTAB 0x0102->0x0133 ; "+++ Propagated notification to subscriber => " 00b3 012d | - | .STRTAB 0x012d->0x0149 ; "*** Failed to propagate notification to subscriber => " 00b4 0161 | a | .STREND 0x0161->0x0164 00b5 2b2b 2b20 |+++ | .STRTAB_STRINGS 0165 0000 0000 | | .XXX[0x3] 0167 0000 | | 0168 ; -------------------------------------------------------------------------------------- 0168 ; Debug Table 0168 ; -------------------------------------------------------------------------------------- 0168 0004 0009 | | .DEBUG4 0x0004,0x0009,0x9118,0x0000,0x0001,0x0001 016e 000b 0172 | r| .DBG4T 0x000b,0x0172,0x0001,0x4000 0172 ; -------------------------------------------------------------------------------------- 0172 ; Debug chain 0172 ; -------------------------------------------------------------------------------------- 0172 0003 001c | | .DBGLEN 0x0003,0x001c 0174 000b 000e | | .DBGLNO 0x000b,0x000e,0x0011,0x0013,0x0016,0x001e,0x0020,0x0029,0x002d,0x003c,0x003e,0x0042,0x0043,0x004c,0x0050,0x0053,0x0057,0x0059,0x005c,0x0060,0x0068,0x006d,0x0070,0x0072,0x0081,0x0083,0x008d,0x0096,0x009a,0x009d,0x00a0 0193 0001 0002 | | .XXX[0x1c] 0195 0003 0004 | | 0197 0005 0006 | | 0199 0007 0008 | | 019b 0009 000a | | 019d 000b 000c | | 019f 000d 000e | | 01a1 000f 0010 | | 01a3 0011 0012 | | 01a5 0003 0013 | | 01a7 0014 0015 | | 01a9 0016 0017 | | 01ab 0018 0019 | | 01ad 001a 0013 | | 01af 0000 0000 | | .BLANK 0000[0x51]