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