|
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_11cacfe
└─⟦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 00d8 | | .CONST 0x00d8 ; 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 001b | | .CONST 0x001b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0010 | | .CONST 0x0010 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated
0010 c20f | | Store 0x1,0xf
0011 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
0013 c20e | | Store 0x1,0xe
0014 00bf | | Action Accept_Activation
0015 0092 0081 | | Action Push_String_Extended,0x81 ; "Insight"
0017 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0018 00c7 | | Action Elaborate_Subprogram
0019 1d0e | | Execute_Immediate Reference_Lex_1,0xe
001a 00c7 | | Action Elaborate_Subprogram
001b BODY_0008:
001b 00bc | | Action Signal_Activated
001c 00bb | | Action Signal_Completion
001d 0000 0000 | | .XXX[0x3]
001f 0000 | |
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0025 | % | .CONST 0x0025 ; Address of begin
0021 0004 | | .CONST 0x0004 ; Address of exception handler
0022 0002 | | .CONST 0x0002 ; Number of locals
0023 INIT_0020:
0023 029f 006b | k| Declare_Subprogram INIT_0068,For_Call
0025 BODY_0020:
0025 0092 0082 | | Action Push_String_Extended,0x82 ; "[Insight ("
0027 4800 |H | Short_Literal 0x0
0028 e5ff | | Load 0x2,-0x1
0029 0092 0083 | | Action Push_String_Extended,0x83 ; "Object_Context"
002b 8402 | | Call 0x2,0x2
002c 01cc | | Execute Vector,Catenate
002d 4800 |H | Short_Literal 0x0
002e e5fe | | Load 0x2,-0x2
002f 0092 0084 | | Action Push_String_Extended,0x84 ; "Diagram_Context"
0031 8402 | | Call 0x2,0x2
0032 01cc | | Execute Vector,Catenate
0033 4800 |H | Short_Literal 0x0
0034 e5fd | | Load 0x2,-0x3
0035 0092 0085 | | Action Push_String_Extended,0x85 ; "Remote_Machine"
0037 8402 | | Call 0x2,0x2
0038 01cc | | Execute Vector,Catenate
0039 4800 |H | Short_Literal 0x0
003a e5fc | | Load 0x2,-0x4
003b 0092 0086 | | Action Push_String_Extended,0x86 ; "X_Display"
003d 8402 | | Call 0x2,0x2
003e 01cc | | Execute Vector,Catenate
003f 4800 |H | Short_Literal 0x0
0040 e5fb | | Load 0x2,-0x5
0041 0092 0087 | | Action Push_String_Extended,0x87 ; "Remote_Username"
0043 8402 | | Call 0x2,0x2
0044 01cc | | Execute Vector,Catenate
0045 4800 |H | Short_Literal 0x0
0046 e5fa | | Load 0x2,-0x6
0047 00e1 | | Load_Encached Boolean_Cache
0048 011c | | Execute Any,Convert_Unchecked
0049 1c01 | | Execute_Immediate Run_Utility,0x1
004a 0092 0088 | | Action Push_String_Extended,0x88 ; "Start_Server_Only"
004c 8402 | | Call 0x2,0x2
004d 01cc | | Execute Vector,Catenate
004e 4801 |H | Short_Literal 0x1
004f e5f9 | | Load 0x2,-0x7
0050 0092 0089 | | Action Push_String_Extended,0x89 ; "Response"
0052 8402 | | Call 0x2,0x2
0053 01cc | | Execute Vector,Catenate
0054 0092 008a | | Action Push_String_Extended,0x8a ; ")]"
0056 01cc | | Execute Vector,Catenate
0057 e001 | | Load 0x0,0x1
0058 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0059 4508 |E | Exit_Suprogram New_Top_Offset 0x8
005a 0000 0000 | | .BLANK 0000[0x6]
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 0092 008b | | Action Push_String_Extended,0x8b ; "[Insight has finished]"
0065 e001 | | Load 0x0,0x1
0066 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0067 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b e7fd | | Load 0x3,-0x3
006c 700a |p | Jump_Nonzero 0x77
006d 00da | | Load_Top At_Offset_2
006e 0092 008c | | Action Push_String_Extended,0x8c ; " => \x22"
0070 01cc | | Execute Vector,Catenate
0071 e7fe | | Load 0x3,-0x2
0072 01cc | | Execute Vector,Catenate
0073 0092 008d | | Action Push_String_Extended,0x8d ; "\x22, "
0075 01cc | | Execute Vector,Catenate
0076 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0077 00da | | Load_Top At_Offset_2
0078 0092 008c | | Action Push_String_Extended,0x8c ; " => \x22"
007a 01cc | | Execute Vector,Catenate
007b e7fe | | Load 0x3,-0x2
007c 01cc | | Execute Vector,Catenate
007d 0092 008e | | Action Push_String_Extended,0x8e ; "\x22"
007f 01cc | | Execute Vector,Catenate
0080 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0081 ; --------------------------------------------------------------------------------------
0081 ; STRING TABLE
0081 ; --------------------------------------------------------------------------------------
0081 001e | | .STRTAB 0x001e->0x0090 ; "Insight"
0082 0023 | # | .STRTAB 0x0023->0x0093 ; "[Insight ("
0083 002b | + | .STRTAB 0x002b->0x0098 ; "Object_Context"
0084 0037 | 7 | .STRTAB 0x0037->0x009f ; "Diagram_Context"
0085 0044 | D | .STRTAB 0x0044->0x00a7 ; "Remote_Machine"
0086 0050 | P | .STRTAB 0x0050->0x00ae ; "X_Display"
0087 0057 | W | .STRTAB 0x0057->0x00b2 ; "Remote_Username"
0088 0064 | d | .STRTAB 0x0064->0x00ba ; "Start_Server_Only"
0089 0073 | s | .STRTAB 0x0073->0x00c2 ; "Response"
008a 0079 | y | .STRTAB 0x0079->0x00c6 ; ")]"
008b 0079 | y | .STRTAB 0x0079->0x00c7 ; "[Insight has finished]"
008c 008d | | .STRTAB 0x008d->0x00d2 ; " => \x22"
008d 0090 | | .STRTAB 0x0090->0x00d5 ; "\x22, "
008e 0091 | | .STRTAB 0x0091->0x00d6 ; "\x22"
008f 0090 | | .STREND 0x0090->0x00d7
0090 496e 7369 |Insi| .STRTAB_STRINGS
00d7 0000 | | .XXX[0x1]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; Debug Table
00d8 ; --------------------------------------------------------------------------------------
00d8 0004 0011 | | .DEBUG4 0x0004,0x0011,0x9458,0x0000,0x0001,0x0000
00de 1010 0000 | | .XXX[0x122]
00e0 0000 4407 | D |
00e2 4000 f291 |@ |
00e4 3010 0000 |0 |
00e6 0000 440b | D |
00e8 2000 f291 | |
00ea 5c10 0000 |\ |
00ec 0000 4414 | D |
00ee 2000 f291 | |
00f0 7810 0000 |x |
00f2 0000 4414 | D |
00f4 6000 f291 |` |
00f6 9410 0000 | |
00f8 0000 4417 | D |
00fa 8000 f291 | |
00fc d018 0000 | |
00fe 0000 97bf | |
0100 6000 f291 |` |
0102 fc10 0000 | |
0104 0000 4432 | D2|
0106 0000 f292 | |
0108 3c10 0000 |< |
010a 0000 447c | D||
010c 0000 f292 | |
010e 5810 0000 |X |
0110 0000 448c | D |
0112 4000 f292 |@ |
0114 7410 0000 |t |
0116 0000 44eb | D |
0118 a000 f292 | |
011a 9c18 0000 | |
011c 0000 97c5 | |
011e 0000 f292 | |
0120 f010 0000 | |
0122 0000 4539 | E9|
0124 d000 f293 | |
0126 2410 0000 |$ |
0128 0000 454f | EO|
012a 6000 f293 |` |
012c 4c10 0000 |L |
012e 0000 4551 | EQ|
0130 0000 f293 | |
0132 6810 0000 |h |
0134 0000 455b | E[|
0136 0000 f293 | |
0138 8410 0000 | |
013a 0000 4563 | Ec|
013c 0000 f293 | |
013e a410 0000 | |
0140 0000 457c | E||
0142 0000 f293 | |
0144 c010 0000 | |
0146 0000 45ba | E |
0148 2000 f293 | |
014a dc10 0000 | |
014c 0000 45c2 | E |
014e 6000 f293 |` |
0150 fc10 0000 | |
0152 0000 462b | F+|
0154 8000 f294 | |
0156 1c10 0000 | |
0158 0000 4631 | F1|
015a 8000 f294 | |
015c 3810 0000 |8 |
015e 0000 4633 | F3|
0160 a000 f294 | |
0162 5c20 0000 |\ |
0164 0000 a93a | :|
0166 8000 f294 | |
0168 8410 0000 | |
016a 0000 4636 | F6|
016c a000 f294 | |
016e b010 0000 | |
0170 0000 463d | F=|
0172 7000 f294 |p |
0174 d418 0000 | |
0176 0000 97ca | |
0178 3000 f295 |0 |
017a 0818 0000 | |
017c 0000 97ca | |
017e 2000 f295 | |
0180 3010 0000 |0 |
0182 0000 4646 | FF|
0184 8000 f295 | |
0186 5810 0000 |X |
0188 0000 464e | FN|
018a 4000 f295 |@ |
018c 8410 0000 | |
018e 0000 465e | F^|
0190 e000 f295 | |
0192 a810 0000 | |
0194 0000 466a | Fj|
0196 8000 f295 | |
0198 cc10 0000 | |
019a 0000 4693 | F |
019c 6000 f295 |` |
019e e810 0000 | |
01a0 0000 4696 | F |
01a2 c000 f296 | |
01a4 0410 0000 | |
01a6 0000 46aa | F |
01a8 e000 f296 | |
01aa 2810 0000 |( |
01ac 0000 46ab | F |
01ae 6000 f296 |` |
01b0 4810 0000 |H |
01b2 0000 46bf | F |
01b4 6000 f296 |` |
01b6 6410 0000 |d |
01b8 0000 474b | GK|
01ba 4000 f296 |@ |
01bc 8010 0000 | |
01be 0000 47d5 | G |
01c0 8000 f296 | |
01c2 9c10 0000 | |
01c4 0000 4829 | H)|
01c6 8000 f296 | |
01c8 bc10 0000 | |
01ca 0000 484a | HJ|
01cc 6000 f296 |` |
01ce e010 0000 | |
01d0 0000 4858 | HX|
01d2 0000 f297 | |
01d4 0810 0000 | |
01d6 0000 48d4 | H |
01d8 6000 f297 |` |
01da 2c10 0000 |, |
01dc 0000 48d6 | H |
01de 4000 f297 |@ |
01e0 5820 0000 |X |
01e2 0000 a942 | B|
01e4 a000 f297 | |
01e6 6c20 0000 |l |
01e8 0000 a942 | B|
01ea 8000 f297 | |
01ec 8410 0000 | |
01ee 0000 48e7 | H |
01f0 6000 f297 |` |
01f2 a810 0000 | |
01f4 0000 48ef | H |
01f6 1000 f297 | |
01f8 d810 0000 | |
01fa 0000 48e8 | H |
01fc 8000 f298 | |
01fe 0818 0000 | |