|
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]