|
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_0694fc
└─⟦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 0068 | h | .CONST 0x0068 ; 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 0020 | | .CONST 0x0020 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 000d e001 | | Load 0x0,0x1 000e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000f 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 0011 4802 |H | Short_Literal 0x2 0012 032e | . | Declare_Type Record,Defined,Visible 0013 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 0015 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 0017 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 0019 00bf | | Action Accept_Activation 001a 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001b 00c7 | | Action Elaborate_Subprogram 001c 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001d 00c7 | | Action Elaborate_Subprogram 001e 1d10 | | Execute_Immediate Reference_Lex_1,0x10 001f 00c7 | | Action Elaborate_Subprogram 0020 BODY_0008: 0020 00bc | | Action Signal_Activated 0021 00bb | | Action Signal_Completion 0022 0000 0000 | | .BLANK 0000[0x6] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002b | + | .CONST 0x002b ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0001 | | .CONST 0x0001 ; Number of locals 002b BODY_0028: 002b INIT_0028: 002b 00db | | Load_Top At_Offset_3 002c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 002d e5fe | | Load 0x2,-0x2 002e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 002f e5ff | | Load 0x2,-0x1 0030 e002 | | Load 0x0,0x2 0031 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0032 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0033 0000 0000 | | .BLANK 0000[0x5] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003b | ; | .CONST 0x003b ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0001 | | .CONST 0x0001 ; Number of locals 003b BODY_0038: 003b INIT_0038: 003b 00db | | Load_Top At_Offset_3 003c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 003d e5fe | | Load 0x2,-0x2 003e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 003f e5ff | | Load 0x2,-0x1 0040 e002 | | Load 0x0,0x2 0041 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0042 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0043 0000 0000 | | .BLANK 0000[0x5] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 004c 0000 0000 | | .BLANK 0000[0x4] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 4608 |F | Jump_Case 0x9 0054 7808 |x | Jump 0x5d ; case 0x0 0055 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0056 780d |x | Jump 0x64 ; case 0x2 0057 780c |x | Jump 0x64 ; case 0x3 0058 780b |x | Jump 0x64 ; case 0x4 0059 780a |x | Jump 0x64 ; case 0x5 005a 7809 |x | Jump 0x64 ; case 0x6 005b 7808 |x | Jump 0x64 ; case 0x7 005c 7807 |x | Jump 0x64 ; case 0x8 005d 00da | | Load_Top At_Offset_2 005e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 005f 0125 | % | Execute Any,Set_Constraint 0060 00da | | Load_Top At_Offset_2 0061 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0062 1c00 | | Execute_Immediate Run_Utility,0x0 0063 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0064 0869 | i | Execute_Immediate Raise,0x69 0065 0000 0000 | | .XXX[0x3] 0067 0000 | | 0068 ; -------------------------------------------------------------------------------------- 0068 ; Debug Table 0068 ; -------------------------------------------------------------------------------------- 0068 0004 000d | | .DEBUG4 0x0004,0x000d,0x91c1,0x0000,0x0001,0x0000 006e 2048 d214 | H | .XXX[0x18e] 0070 0000 2046 | F| 0072 fc44 0000 | D | 0074 2021 ea54 | ! T| 0076 0000 2041 | A| 0078 23e4 0000 |# | 007a 204c 0554 | L T| 007c 0000 2022 | "| 007e 73d4 0000 |s | 0080 2049 9b94 | I | 0082 0000 2043 | C| 0084 95c4 0000 | | 0086 2020 c9f4 | | 0088 0000 204a | J| 008a 1614 0000 | | 008c 2022 2f54 | "/T| 008e 0000 2049 | I| 0090 4414 0000 |D | 0092 204e 1414 | N | 0094 0000 2047 | G| 0096 d684 0000 | | 0098 201f fc24 | $| 009a 0000 2022 | "| 009c 5cc4 0000 |\ | 009e 2039 6a54 | 9jT| 00a0 0000 2049 | I| 00a2 9c74 0000 | t | 00a4 2020 0884 | | 00a6 0000 2048 | H| 00a8 d4e4 0000 | | 00aa 2049 f814 | I | 00ac 0000 2023 | #| 00ae 0174 0000 | t | 00b0 204c c824 | L $| 00b2 0000 2048 | H| 00b4 b454 0000 | T | 00b6 2020 c974 | t| 00b8 0000 204a | J| 00ba 1204 0000 | | 00bc 2049 9b14 | I | 00be 0000 2023 | #| 00c0 5654 0000 |VT | 00c2 2020 c9b4 | | 00c4 0000 2049 | I| 00c6 46d4 0000 |F | 00c8 204a 4684 | JF | 00ca 0000 2022 | "| 00cc af24 0000 | $ | 00ce 2048 d184 | H | 00d0 0000 2046 | F| 00d2 f844 0000 | D | 00d4 2023 cbd4 | # | 00d6 0000 2020 | | 00d8 ca04 0000 | | 00da 204c 0444 | L D| 00dc 0000 2021 | !| 00de 7034 0000 |p4 | 00e0 2022 34c4 | "4 | 00e2 0000 2021 | !| 00e4 7704 0000 |w | 00e6 2049 d9d4 | I | 00e8 0000 204e | N| 00ea 1484 0017 | | 00ec 20ba 4034 | @4| 00ee 0017 20ba | | 00f0 6324 0017 |c$ | 00f2 00b3 17b4 | | 00f4 0017 00b3 | | 00f6 17c4 0017 | | 00f8 20ba 1ea4 | | 00fa 0017 20ba | | 00fc 2c04 0017 |, | 00fe 00b3 17e4 | | 0100 0017 20ba | | 0102 3ef4 0017 |> | 0104 00b3 17f4 | | 0106 0017 00b3 | | 0108 1014 0017 | | 010a 00b3 1804 | | 010c 0017 00b3 | | 010e 1814 0017 | | 0110 20ba 2af4 | * | 0112 0017 20b9 | | 0114 f8e4 0017 | | 0116 00b3 1084 | | 0118 0017 20ba | | 011a 2b54 0017 |+T | 011c 20ba 2b74 | +t| 011e 0017 20ba | | 0120 2b44 0017 |+D | 0122 20ba c9c4 | | 0124 0017 20ba | | 0126 7334 0017 |s4 | 0128 00b3 1854 | T| 012a 0017 00b3 | | 012c 1864 0000 | d | 012e 2020 ca94 | | 0130 0000 2046 | F| 0132 b534 0000 | 4 | 0134 2022 3664 | "6d| 0136 0000 204a | J| 0138 1ea4 0017 | | 013a 20ba c9b4 | | 013c 0017 20ba | | 013e 4964 0017 |Id | 0140 20bb 2c84 | , | 0142 0017 20ba | | 0144 7154 0017 |qT | 0146 20ba 7194 | q | 0148 0015 2084 | | 014a f9d4 0015 | | 014c 2085 f374 | t| 014e 0015 2084 | | 0150 c6d4 0015 | | 0152 2086 1f54 | T| 0154 0015 2085 | | 0156 f384 0015 | | 0158 2084 f9e4 | | 015a 0015 2085 | | 015c 87c4 0015 | | 015e 2084 c6e4 | | 0160 0015 2086 | | 0162 4104 0015 |A | 0164 2086 4114 | A | 0166 0015 2086 | | 0168 21b4 0015 |! | 016a 2086 4124 | A$| 016c 0015 2086 | | 016e 4134 0015 |A4 | 0170 2086 4144 | AD| 0172 0015 408f | @ | 0174 adc4 0015 | | 0176 408f a484 |@ | 0178 0015 408f | @ | 017a a754 0015 | T | 017c 408b 1f64 |@ d| 017e 0015 408a | @ | 0180 ed74 0017 | t | 0182 20ba cf94 | | 0184 0017 20b9 | | 0186 fa34 0017 | 4 | 0188 20ba 2a04 | * | 018a 0017 20ba | | 018c 29e4 0017 |) | 018e 20ba 2c54 | ,T| 0190 0017 20ba | | 0192 2a34 0017 |*4 | 0194 20ba 2a44 | *D| 0196 0017 20ba | | 0198 59d4 0017 |Y | 019a 20ba 7114 | q | 019c 0017 20b9 | | 019e 3754 0017 |7T | 01a0 20b9 3774 | 7t| 01a2 0017 20b9 | | 01a4 3714 0017 |7 | 01a6 20b9 3734 | 74| 01a8 0017 20b9 | | 01aa 7334 0017 |s4 | 01ac 20b9 f1b4 | | 01ae 0017 20b9 | | 01b0 6534 0017 |e4 | 01b2 20b9 6fb4 | o | 01b4 0017 20b9 | | 01b6 8484 0017 | | 01b8 20b9 8494 | | 01ba 0017 20ba | | 01bc 0c64 0017 | d | 01be 20b9 5e14 | ^ | 01c0 0016 60ac | ` | 01c2 f5f4 0016 | | 01c4 60ac e8b4 |` | 01c6 0016 60ac | ` | 01c8 c6d4 0016 | | 01ca 60ac f604 |` | 01cc 0016 60ac | ` | 01ce f614 0016 | | 01d0 60ac f624 |` $| 01d2 0016 60ac | ` | 01d4 f634 0016 | 4 | 01d6 60ac f644 |` D| 01d8 0016 60ac | ` | 01da f654 0016 | T | 01dc 80ad 7654 | vT| 01de 0016 80ad | | 01e0 7e34 0016 |~4 | 01e2 80ad 7df4 | } | 01e4 0016 80ad | | 01e6 5984 0016 |Y | 01e8 80ad 8654 | T| 01ea 0016 80ad | | 01ec 8ec4 0016 | | 01ee 80ad 7e44 | ~D| 01f0 0016 80ad | | 01f2 8bd4 0016 | | 01f4 80ad 9d14 | | 01f6 0016 80ad | | 01f8 6e34 0016 |n4 | 01fa 80ad 8b40 | @| 01fc 0000 0000 | | .BLANK 0000[0x4]