|
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_0fe0f5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0000 0000 | | .BLANK 0000[0x6] 0074 104e 0000 | N | .XXX[0x37] 0076 003b c800 | ; | 0078 0001 3640 | 6@| 007a 0000 0000 | | 007c 0000 0015 | | 007e 8600 0000 | | 0080 4a00 0000 |J | 0082 00fd e024 | $| 0084 c000 0000 | | 0086 0000 16b0 | | 0088 0000 0000 | | 008a 0000 0001 | | 008c 92c0 0000 | | 008e 03c7 00b0 | | 0090 0014 2600 | & | 0092 0000 5b60 | [`| 0094 0000 00f0 | | 0096 6021 0004 |`! | 0098 5a00 0000 |Z | 009a 0e78 029c | x | 009c 0000 0000 | | 009e 0000 e540 | @| 00a0 0000 047f | | 00a2 80b1 000f | | 00a4 5e02 2c00 |^ , | 00a6 0000 0000 | | 00a8 012c 6024 | ,`$| 00aa 4000 |@ | 00ab 0000 0000 | | .BLANK 0000[0x4] 00af 0047 8009 | G | .XXX[0x15] 00b1 7000 0000 |p | 00b3 0000 0614 | | 00b5 00ad 0015 | | 00b7 fe00 0000 | | 00b9 4dd8 0000 |M | 00bb 013c e02e | < .| 00bd 0004 7400 | t | 00bf 9200 13ee | | 00c1 0274 005c | t \| 00c3 8000 | | 00c4 0000 0000 | | .BLANK 0000[0x5] 00c9 0010 5c02 | \ | .XXX[0x4] 00cb 1c00 56a8 | V | 00cd 0000 0000 | | .BLANK 0000[0x6] 00d3 0e98 0200 | | .XXX[0x8] 00d5 0000 0000 | | 00d7 0001 7140 | q@| 00d9 0000 05fb | | 00db 0000 0000 | | .BLANK 0000[0x4] 00df 4c10 0000 |L | .XXX[0x7] 00e1 016f c000 | o | 00e3 0004 ca00 | | 00e5 8c00 | | 00e6 0000 0000 | | .BLANK 0000[0x4] 00ea 0001 4980 | I | .XXX[0x23] 00ec 2840 0000 |(@ | 00ee 0000 0011 | | 00f0 3402 5400 |4 T | 00f2 5ee0 0b40 |^ @| 00f4 0000 0000 | | 00f6 0004 b900 | | 00f8 8d00 111c | | 00fa 02b0 0000 | | 00fc 0000 0001 | | 00fe 5100 2640 |Q &@| 0100 058b 8000 | | 0102 0015 ba00 | | 0104 0000 5218 | R | 0106 0000 0121 | !| 0108 a000 0005 | | 010a 9080 ba00 | | 010c 14e6 | | 010d 0000 0000 | | .BLANK 0000[0x6] 0113 04ff 0000 | | .XXX[0xa] 0115 0010 bc00 | | 0117 0000 4c58 | LX| 0119 0000 0103 | | 011b 002c c000 | , | 011d 0000 0000 | | .BLANK 0000[0x6] 0123 0001 3480 | 4 | .XXX[0x21] 0125 0000 0000 | | 0127 0000 0018 | | 0129 8e00 0000 | | 012b 45e0 0af0 |E | 012d 0157 4000 | W@ | 012f 0005 1e00 | | 0131 a000 0000 | | 0133 0000 0059 | Y| 0135 7000 0000 |p | 0137 0000 0000 | | 0139 03ca 8000 | | 013b 000e 8600 | | 013d 0000 41d8 | A | 013f 08f0 00f9 | | 0141 e02a 8005 | * | 0143 4800 |H | 0144 0000 0000 | | .BLANK 0000[0x6] 014a edc0 20c0 | | .XXX[0xe] 014c 0688 0000 | | 014e 0016 6a02 | j | 0150 9800 3ad0 | : | 0152 0000 0138 | 8| 0154 e000 0003 | | 0156 f200 9000 | | 0158 0000 0000 | | .BLANK 0000[0x4] 015c 0001 0d80 | | .XXX[0xa4] 015e 2680 0000 |& | 0160 0000 000e | | 0162 d202 0400 | | 0164 3998 09f0 |9 | 0166 018e 202b | +| 0168 8006 6580 | e | 016a 0000 16c4 | | 016c 0000 003a | :| 016e b008 5000 | P | 0170 0000 0000 | | 0172 0495 00a4 | | 0174 000f 7600 | v | 0176 0000 3f08 | ? | 0178 0880 00fe | | 017a e000 0004 | | 017c 3f00 a500 |? | 017e 119e 0224 | $| 0180 0046 d809 | F | 0182 4001 2660 |@ &`| 0184 0000 04ad | | 0186 0000 0013 | | 0188 3a02 7000 |: p | 018a 4d58 0bb0 |MX | 018c 013b 0000 | ; | 018e 0004 f000 | | 0190 0000 13dc | | 0192 0000 0050 | P| 0194 400a 8001 |@ | 0196 4380 0000 |C | 0198 0512 00a3 | | 019a 0014 5e00 | ^ | 019c 0000 5298 | R | 019e 0000 014c | L| 01a0 4000 0005 |@ | 01a2 3500 9600 |5 | 01a4 14fe 0278 | x| 01a6 0054 a00b | T | 01a8 6001 5380 |` S | 01aa 2dc0 0552 |- R| 01ac 8000 0015 | | 01ae 5e00 0000 |^ | 01b0 5668 0000 |Vh | 01b2 015c c000 | \ | 01b4 0005 7800 | x | 01b6 0000 15f0 | | 01b8 0000 0058 | X| 01ba 2800 0001 |( | 01bc 6180 0000 |a | 01be 059f 00a9 | | 01c0 0016 9000 | | 01c2 0000 5a78 | Zx| 01c4 0000 016e | n| 01c6 6000 0005 |` | 01c8 bc80 bd00 | | 01ca 173c 0000 | < | 01cc 005d c000 | ] | 01ce 0001 79e0 | y | 01d0 0000 05f4 | | 01d2 00b5 0018 | | 01d4 1200 0000 | | 01d6 60a0 0000 |` | 01d8 0186 4000 | @ | 01da 0006 1d80 | | 01dc 0000 189c | | 01de 02e4 0063 | c| 01e0 0000 0001 | | 01e2 8f80 0000 | | 01e4 0646 80b2 | F | 01e6 0019 4200 | B | 01e8 0000 65e0 | e | 01ea 0bc0 019b | | 01ec c000 0006 | | 01ee 7480 0000 |t | 01f0 19e0 0000 | | 01f2 0068 0800 | h | 01f4 0001 a120 | | 01f6 0000 068e | | 01f8 0000 001a | | 01fa 4c00 0000 |L | 01fc 69a0 0000 |i | 01fe 01a7 6000 | ` |