|
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_5850da
└─⟦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 00b0 | | .CONST 0x00b0 ; 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 0017 | | .CONST 0x0017 ; Address of begin
0009 0026 | & | .CONST 0x0026 ; Address of exception handler
000a 000f | | .CONST 0x000f ; Number of locals
000b INIT_0008:
000b 4802 |H | Short_Literal 0x2
000c 02cb | | Declare_Variable Entry
000d 00bf | | Action Accept_Activation
000e e001 | | Load 0x0,0x1
000f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0010 02c7 | | Declare_Variable Any
0011 e001 | | Load 0x0,0x1
0012 180e | | Execute Package,Field_Execute,Field_Number 0xe
0013 a20e | | Store_Unchecked 0x1,0xe
0014 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call
0016 00bc | | Action Signal_Activated
0017 BODY_0008:
0017 6040 |`@ | Indirect_Literal Discrete,0x58,{0x00000000, 0x000f0000}
0018 00ba | | Action Initiate_Delay
0019 00d9 | | Load_Top At_Offset_1
001a 4800 |H | Short_Literal 0x0
001b 0092 0069 | i| Action Push_String_Extended,0x69 ; "Logging messages for REMOTE_OPERATIONS CONTEXT CACHE "
001d e002 | | Load 0x0,0x2
001e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
001f 00d9 | | Load_Top At_Offset_1
0020 e002 | | Load 0x0,0x2
0021 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0022 00cf | | Action Mark_Auxiliary
0023 820f | | Call 0x1,0xf
0024 00c9 | | Action Pop_Auxiliary_Loop
0025 7ffd | | Jump 0x23
0026 TRAP_0008:
0026 0007 | | Action Break_Optional
0027 00da | | Load_Top At_Offset_2
0028 4808 |H | Short_Literal 0x8
0029 0092 006a | j| Action Push_String_Extended,0x6a ; "Unexpected exception "
002b 8003 | | Call 0x0,0x3
002c 01cc | | Execute Vector,Catenate
002d 0092 006b | k| Action Push_String_Extended,0x6b ; " causing death of the Logger"
002f 01cc | | Execute Vector,Catenate
0030 e002 | | Load 0x0,0x2
0031 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0032 00da | | Load_Top At_Offset_2
0033 e002 | | Load 0x0,0x2
0034 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0035 00bb | | Action Signal_Completion
0036 0000 0000 | | .XXX[0x2]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003e | > | .CONST 0x003e ; Address of begin
0039 0047 | G | .CONST 0x0047 ; Address of exception handler
003a 0002 | | .CONST 0x0002 ; Number of locals
003b INIT_0038:
003b 480d |H | Short_Literal 0xd
003c 0299 0063 | c| Declare_Subprogram INIT_0060,For_Accept
003e BODY_0038:
003e 4802 |H | Short_Literal 0x2
003f 4802 |H | Short_Literal 0x2
0040 0099 | | Action Reference_Dynamic
0041 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0042 0137 | 7 | Execute Entry,Rendezvous
0043 e20e | | Load 0x1,0xe
0044 e002 | | Load 0x0,0x2
0045 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0046 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0047 TRAP_0038:
0047 0007 | | Action Break_Optional
0048 e20e | | Load 0x1,0xe
0049 4808 |H | Short_Literal 0x8
004a 0092 006a | j| Action Push_String_Extended,0x6a ; "Unexpected exception "
004c 8003 | | Call 0x0,0x3
004d 01cc | | Execute Vector,Catenate
004e 0092 006c | l| Action Push_String_Extended,0x6c ; " in main loop of Logger"
0050 01cc | | Execute Vector,Catenate
0051 e002 | | Load 0x0,0x2
0052 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0053 e20e | | Load 0x1,0xe
0054 e002 | | Load 0x0,0x2
0055 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0056 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0057 0000 | | .XXX[0x1]
0058 0000 0000 | | .LITERAL {0x00000000, 0x000f0000}
005c 0000 0000 | | .BLANK 0000[0x4]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 e20e | | Load 0x1,0xe
0064 e7fd | | Load 0x3,-0x3
0065 e7fe | | Load 0x3,-0x2
0066 e002 | | Load 0x0,0x2
0067 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0068 4100 |A | End_Rendezvous 0x0
0069 ; --------------------------------------------------------------------------------------
0069 ; STRING TABLE
0069 ; --------------------------------------------------------------------------------------
0069 000a | | .STRTAB 0x000a->0x006e ; "Logging messages for REMOTE_OPERATIONS CONTEXT CACHE "
006a 003d | = | .STRTAB 0x003d->0x0088 ; "Unexpected exception "
006b 0050 | P | .STRTAB 0x0050->0x0093 ; " causing death of the Logger"
006c 006a | j | .STRTAB 0x006a->0x00a1 ; " in main loop of Logger"
006d 007f | | .STREND 0x007f->0x00ac
006e 4c6f 6767 |Logg| .STRTAB_STRINGS
00ad 0000 0000 | | .XXX[0x3]
00af 0000 | |
00b0 ; --------------------------------------------------------------------------------------
00b0 ; Debug Table
00b0 ; --------------------------------------------------------------------------------------
00b0 0004 000e | | .DEBUG4 0x0004,0x000e,0xf45e,0x0000,0x0001,0x0000
00b6 b925 3541 | %5A| .XXX[0x14a]
00b8 3d49 517d |=IQ}|
00ba 2539 5115 |%9Q |
00bc 4919 050d |I |
00be 149d 4d41 | MA|
00c0 150c 2958 | )X|
00c2 c8e0 e0d8 | |
00c4 c0d5 f0b4 | |
00c6 c8dc d4c5 | |
00c8 f0d1 f0c4 | |
00ca c4bc c4cc | |
00cc bce4 c080 | |
00ce c4dc e8c4 | |
00d0 c0e8 d0c9 | |
00d2 f141 050d | A |
00d4 2d05 1d15 |- |
00d6 7d4d 4115 |}MA |
00d8 0df1 f0e5 | |
00da f029 0539 | ) 9|
00dc 1551 5d3d | Q]=|
00de 492d 7d41 |I-}A|
00e0 5509 3125 |U 1%|
00e2 0cf4 f949 | I|
00e4 5df0 2885 |] ( |
00e6 5105 491d |Q I |
00e8 1551 4cb9 | QL |
00ea 2535 4131 |%5A1|
00ec 1535 1539 | 5 9|
00ee 5105 5125 |Q Q%|
00f0 3d38 b949 |=8 I|
00f2 0d19 7d41 | }A|
00f4 493d 1d49 |I= I|
00f6 0535 3505 | 55 |
00f8 5125 0d7d |Q% }|
00fa 2539 5115 |%9Q |
00fc 4919 050d |I |
00fe 14b9 4915 | I |
0100 58c5 7cc1 |X | |
0102 7d4d 4115 |}MA |
0104 0cb9 5539 | U9|
0106 2551 4cb9 |%QL |
0108 3125 0949 |1% I|
010a 0549 657d | Ie}|
010c 2539 5115 |%9Q |
010e 4919 050d |I |
0110 149d 4d41 | MA|
0112 150c 2958 | )X|
0114 c8e4 c4cc | |
0116 d4d9 f0b4 | |
0118 d0d8 e4cd | |
011a f0d1 f080 | |
011c c4bc c4c0 | |
011e bce4 c480 | |
0120 c4e0 e8c8 | |
0122 c0e8 c4c5 | |
0124 f141 050d | A |
0126 2d05 1d15 |- |
0128 7d4d 4115 |}MA |
012a 0df1 f0e5 | |
012c f029 0539 | ) 9|
012e 1551 5d3d | Q]=|
0130 492d 7d41 |I-}A|
0132 5509 3125 |U 1%|
0134 0cf4 f949 | I|
0136 5df0 2885 |] ( |
0138 5105 491d |Q I |
013a 1551 4cb9 | QL |
013c 2535 4131 |%5A1|
013e 1535 1539 | 5 9|
0140 5105 5125 |Q Q%|
0142 3d38 b949 |=8 I|
0144 0d19 7d41 | }A|
0146 493d 1d49 |I= I|
0148 0535 3505 | 55 |
014a 5125 0d7d |Q% }|
014c 2539 5115 |%9Q |
014e 4919 050d |I |
0150 14b9 4915 | I |
0152 58c5 7cc1 |X | |
0154 7d4d 4115 |}MA |
0156 0cb9 5539 | U9|
0158 2551 4cb9 |%QL |
015a 4915 353d |I 5=|
015c 5115 7d0d |Q } |
015e 3d35 3505 |=55 |
0160 3911 7d25 |9 }%|
0162 3951 1549 |9Q I|
0164 1905 0d14 | |
0166 9d4d 4115 | MA |
0168 0c29 58c8 | )X |
016a e4d8 c0d0 | |
016c e5f0 b4e0 | |
016e d8cc cdf0 | |
0170 d1f0 80d0 | |
0172 bcc0 d0bc | |
0174 e4c4 80c4 | |
0176 d8e8 c0dc | |
0178 e8c8 c9f1 | |
017a 4105 0d2d |A -|
017c 051d 157d | }|
017e 4d41 150d |MA |
0180 f1f0 e5f0 | |
0182 2905 3915 |) 9 |
0184 515d 3d49 |Q]=I|
0186 2d7d 4155 |-}AU|
0188 0931 250c | 1% |
018a f4f9 495d | I]|
018c f028 8551 | ( Q|
018e 0549 1d15 | I |
0190 514c b925 |QL %|
0192 3541 3115 |5A1 |
0194 3515 3951 |5 9Q|
0196 0551 253d | Q%=|
0198 38b9 490d |8 I |
019a 197d 4149 | }AI|
019c 3d1d 4905 |= I |
019e 3535 0551 |55 Q|
01a0 250d 7d25 |% }%|
01a2 3951 1549 |9Q I|
01a4 1905 0d14 | |
01a6 b949 1558 | I X|
01a8 c57c c17d | | }|
01aa 4d41 150c |MA |
01ac b955 3925 | U9%|
01ae 514c b951 |QL Q|
01b0 0549 1d15 | I |
01b2 517d 1115 |Q} |
01b4 4115 3911 |A 9 |
01b6 1539 517d | 9Q}|
01b8 2539 5115 |%9Q |
01ba 4919 050d |I |
01bc 149d 4d41 | MA|
01be 150c 2958 | )X|
01c0 ccc0 d0d8 | |
01c2 e0c9 f0b4 | |
01c4 d8d0 ddf0 | |
01c6 d1f0 80e4 | |
01c8 bcc4 e0bc | |
01ca e4c4 80c4 | |
01cc d4e8 cce0 | |
01ce e8d4 c5f1 | |
01d0 4105 0d2d |A -|
01d2 051d 157d | }|
01d4 4d41 150d |MA |
01d6 f1f0 e5f0 | |
01d8 2905 3915 |) 9 |
01da 515d 3d49 |Q]=I|
01dc 2d7d 4155 |-}AU|
01de 0931 250c | 1% |
01e0 f4f9 495d | I]|
01e2 f028 8551 | ( Q|
01e4 0549 1d15 | I |
01e6 514c b925 |QL %|
01e8 3541 3115 |5A1 |
01ea 3515 3951 |5 9Q|
01ec 0551 253d | Q%=|
01ee 38b9 490d |8 I |
01f0 197d 4149 | }AI|
01f2 3d1d 4905 |= I |
01f4 3535 0551 |55 Q|
01f6 250d 7d25 |% }%|
01f8 3951 1549 |9Q I|
01fa 1905 0d14 | |
01fc b949 1558 | I X|
01fe c57c c17d | | }|