|
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_6a18da
└─⟦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 0108 | | .CONST 0x0108 ; 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 0029 | ) | .CONST 0x0029 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 000d 0129 | ) | Execute Any,Make_Visible 000e e001 | | Load 0x0,0x1 000f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0010 e001 | | Load 0x0,0x1 0011 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0012 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 0014 4802 |H | Short_Literal 0x2 0015 032e | . | Declare_Type Record,Defined,Visible 0016 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 0018 e002 | | Load 0x0,0x2 0019 e003 | | Load 0x0,0x3 001a 4864 |Hd | Short_Literal 0x64 001b e20d | | Load 0x1,0xd 001c e20e | | Load 0x1,0xe 001d 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001e e004 | | Load 0x0,0x4 001f 0386 | | Declare_Variable Package,Visible 0020 00d8 | | Load_Top At_Offset_0 0021 020f | | Execute Module,Activate 0022 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 0024 00bf | | Action Accept_Activation 0025 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0026 00c7 | | Action Elaborate_Subprogram 0027 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0028 00c7 | | Action Elaborate_Subprogram 0029 BODY_0008: 0029 00bc | | Action Signal_Activated 002a 00bb | | Action Signal_Completion 002b 0000 0000 | | .BLANK 0000[0x5] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0038 | 8 | .CONST 0x0038 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0003 | | .CONST 0x0003 ; Number of locals 0033 INIT_0030: 0033 00da | | Load_Top At_Offset_2 0034 e005 | | Load 0x0,0x5 0035 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0036 00e2 | | Load_Encached Integer_Cache 0037 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0038 BODY_0030: 0038 00cf | | Action Mark_Auxiliary 0039 00da | | Load_Top At_Offset_2 003a 01d9 | | Execute Vector,Reverse_Bounds 003b 0263 | c | Execute Discrete,Above_Bound 003c 7008 |p | Jump_Nonzero 0x45 003d 00db | | Load_Top At_Offset_3 003e 00d9 | | Load_Top At_Offset_1 003f e402 | | Load 0x2,0x2 0040 01d7 | | Execute Vector,Field_Read 0041 0273 | s | Execute Discrete,Plus 0042 c403 | | Store 0x2,0x3 0043 00c8 | | Action Pop_Auxiliary_Range 0044 3ff8 |? | Loop_Increasing 0x3d 0045 00ce | | Action Pop_Auxiliary 0046 00d8 | | Load_Top At_Offset_0 0047 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 0068 | h | .CONST 0x0068 ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0008 | | .CONST 0x0008 ; Number of locals 004b INIT_0048: 004b e001 | | Load 0x0,0x1 004c 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 004d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 004e 02c7 | | Declare_Variable Any 004f 00db | | Load_Top At_Offset_3 0050 a402 | | Store_Unchecked 0x2,0x2 0051 e001 | | Load 0x0,0x1 0052 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0053 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0054 02c7 | | Declare_Variable Any 0055 e5fe | | Load 0x2,-0x2 0056 a403 | | Store_Unchecked 0x2,0x3 0057 e001 | | Load 0x0,0x1 0058 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0059 02c7 | | Declare_Variable Any 005a 00d8 | | Load_Top At_Offset_0 005b 1c00 | | Execute_Immediate Run_Utility,0x0 005c e001 | | Load 0x0,0x1 005d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 005e 02c7 | | Declare_Variable Any 005f 00d8 | | Load_Top At_Offset_0 0060 1c00 | | Execute_Immediate Run_Utility,0x0 0061 e20e | | Load 0x1,0xe 0062 0322 | " | Declare_Variable Record 0063 00d8 | | Load_Top At_Offset_0 0064 1c00 | | Execute_Immediate Run_Utility,0x0 0065 00e1 | | Load_Encached Boolean_Cache 0066 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call 0068 BODY_0048: 0068 00cf | | Action Mark_Auxiliary 0069 7816 |x | Jump 0x80 006a e402 | | Load 0x2,0x2 006b e001 | | Load 0x0,0x1 006c 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 006d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 006e c404 | | Store 0x2,0x4 006f e5fd | | Load 0x2,-0x3 0070 4800 |H | Short_Literal 0x0 0071 e404 | | Load 0x2,0x4 0072 e005 | | Load 0x0,0x5 0073 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0074 c405 | | Store 0x2,0x5 0075 e405 | | Load 0x2,0x5 0076 e001 | | Load 0x0,0x1 0077 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0078 7001 |p | Jump_Nonzero 0x7a 0079 8408 | | Call 0x2,0x8 007a e402 | | Load 0x2,0x2 007b e001 | | Load 0x0,0x1 007c 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 007d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 007e c402 | | Store 0x2,0x2 007f 00c9 | | Action Pop_Auxiliary_Loop 0080 e402 | | Load 0x2,0x2 0081 e001 | | Load 0x0,0x1 0082 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0083 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0084 6fe5 |o | Jump_Zero 0x6a 0085 00c9 | | Action Pop_Auxiliary_Loop 0086 7838 |x8 | Jump 0xbf 0087 e5fd | | Load 0x2,-0x3 0088 4800 |H | Short_Literal 0x0 0089 e403 | | Load 0x2,0x3 008a e005 | | Load 0x0,0x5 008b 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 008c c404 | | Store 0x2,0x4 008d e5fd | | Load 0x2,-0x3 008e 4800 |H | Short_Literal 0x0 008f e404 | | Load 0x2,0x4 0090 e005 | | Load 0x0,0x5 0091 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0092 c405 | | Store 0x2,0x5 0093 e405 | | Load 0x2,0x5 0094 e001 | | Load 0x0,0x1 0095 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0096 701b |p | Jump_Nonzero 0xb2 0097 00e1 | | Load_Encached Boolean_Cache 0098 e406 | | Load 0x2,0x6 0099 e405 | | Load 0x2,0x5 009a e5fc | | Load 0x2,-0x4 009b e210 | | Load 0x1,0x10 009c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 009d 00d1 | | Pop_Control Pop_Count_1 009e 005b | [ | Store_Top Discrete,At_Offset_3 009f 00da | | Load_Top At_Offset_2 00a0 7008 |p | Jump_Nonzero 0xa9 00a1 e404 | | Load 0x2,0x4 00a2 e406 | | Load 0x2,0x6 00a3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00a4 e001 | | Load 0x0,0x1 00a5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00a6 e406 | | Load 0x2,0x6 00a7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00a8 7809 |x | Jump 0xb2 00a9 00db | | Load_Top At_Offset_3 00aa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00ab e001 | | Load 0x0,0x1 00ac 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00ad 7001 |p | Jump_Nonzero 0xaf 00ae 7803 |x | Jump 0xb2 00af e404 | | Load 0x2,0x4 00b0 e406 | | Load 0x2,0x6 00b1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00b2 e5fc | | Load 0x2,-0x4 00b3 4800 |H | Short_Literal 0x0 00b4 e406 | | Load 0x2,0x6 00b5 e405 | | Load 0x2,0x5 00b6 e210 | | Load 0x1,0x10 00b7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00b8 c5fc | | Store 0x2,-0x4 00b9 e403 | | Load 0x2,0x3 00ba e001 | | Load 0x0,0x1 00bb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00bc 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00bd c403 | | Store 0x2,0x3 00be 00c9 | | Action Pop_Auxiliary_Loop 00bf e403 | | Load 0x2,0x3 00c0 e001 | | Load 0x0,0x1 00c1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00c2 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00c3 6fc3 |o | Jump_Zero 0x87 00c4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00c5 0000 0000 | | .XXX[0x3] 00c7 0000 | | 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 00e1 | | .CONST 0x00e1 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb e5fc | | Load 0x2,-0x4 00cc 4801 |H | Short_Literal 0x1 00cd e20e | | Load 0x1,0xe 00ce 0322 | " | Declare_Variable Record 00cf e404 | | Load 0x2,0x4 00d0 e20e | | Load 0x1,0xe 00d1 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 00d2 0119 | | Execute Any,Check_In_Formal_Type 00d3 00d9 | | Load_Top At_Offset_1 00d4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00d5 e001 | | Load 0x0,0x1 00d6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00d7 e20e | | Load 0x1,0xe 00d8 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 00d9 0119 | | Execute Any,Check_In_Formal_Type 00da 00d9 | | Load_Top At_Offset_1 00db 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00dc e405 | | Load 0x2,0x5 00dd e210 | | Load 0x1,0x10 00de 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00df c5fc | | Store 0x2,-0x4 00e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e1 TRAP_00c8: 00e1 e210 | | Load 0x1,0x10 00e2 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 00e3 010f | | Execute Exception,Equal 00e4 6801 |h | Jump_Zero 0xe6 00e5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e6 0100 | | Execute Exception,Raise 00e7 0000 | | .XXX[0x1] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 4608 |F | Jump_Case 0x9 00ec 7808 |x | Jump 0xf5 ; case 0x0 00ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 00ee 7813 |x | Jump 0x102 ; case 0x2 00ef 7812 |x | Jump 0x102 ; case 0x3 00f0 7811 |x | Jump 0x102 ; case 0x4 00f1 7810 |x | Jump 0x102 ; case 0x5 00f2 780f |x | Jump 0x102 ; case 0x6 00f3 780e |x | Jump 0x102 ; case 0x7 00f4 780d |x | Jump 0x102 ; case 0x8 00f5 00da | | Load_Top At_Offset_2 00f6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00f7 0125 | % | Execute Any,Set_Constraint 00f8 00da | | Load_Top At_Offset_2 00f9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00fa 1c00 | | Execute_Immediate Run_Utility,0x0 00fb 00da | | Load_Top At_Offset_2 00fc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00fd 0125 | % | Execute Any,Set_Constraint 00fe 00da | | Load_Top At_Offset_2 00ff 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0100 1c00 | | Execute_Immediate Run_Utility,0x0 0101 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0102 0869 | i | Execute_Immediate Raise,0x69 0103 0000 0000 | | .BLANK 0000[0x5] 0108 ; -------------------------------------------------------------------------------------- 0108 ; Debug Table 0108 ; -------------------------------------------------------------------------------------- 0108 0004 000c | | .DEBUG4 0x0004,0x000c,0x1685,0x0000,0x0001,0x0000 010e ba00 aec2 | | .XXX[0x76] 0110 e02b b538 | + 8| 0112 0573 9a8d | s | 0114 3f00 aec2 |? | 0116 e000 0000 | | 0118 0ae5 8802 | | 011a b991 8000 | | 011c 0008 a118 | | 011e 0ae5 8800 | | 0120 0000 00b8 | | 0122 0000 4ada | J | 0124 0000 0000 | | 0126 0005 71cc | q | 0128 0001 0000 | | 012a 0000 571c | W | 012c c844 800a | D | 012e e270 0000 | p | 0130 0000 ae51 | Q| 0132 f3b1 7015 | p | 0134 c4e0 0000 | | 0136 0000 5c00 | \ | 0138 0092 2f00 | / | 013a 0000 0469 | i| 013c f805 7617 | v | 013e 0000 0000 | | 0140 5754 1015 |WT | 0142 d680 0000 | | 0144 0045 08c0 | E | 0146 5754 1000 |WT | 0148 0000 0010 | | 014a 0002 5cde | \ | 014c 0000 0000 | | 014e 002b a248 | + H| 0150 0008 0000 | | 0152 0002 ba24 | $| 0154 c224 0057 | $ W| 0156 3b50 0000 |;P | 0158 0005 750c | u | 015a 9d8b 80ae | | 015c 76a0 0000 |v | 015e 0009 5000 | P | 0160 04b7 010c | | 0162 9401 5c29 | \)| 0164 0000 0000 | | 0166 15c4 7400 | t | 0168 0000 0000 | | 016a 013b 1701 | ; | 016c 5c29 0000 |\) | 016e 0000 12a0 | | 0170 0009 6e02 | n | 0172 0200 5e00 | ^ | 0174 0000 0000 | | 0176 25cd e808 |% | 0178 0208 0aee | | 017a 3c00 015b |< [| 017c b1a3 0660 | `| 017e 0000 000a | | 0180 f2a4 0100 | | 0182 0002 bcd4 | | 0184 0000 0000 | | .BLANK 0000[0x5] 0189 015d f280 | ] | .XXX[0x77] 018b 2e40 4007 |.@@ | 018d 0000 0000 | | 018f 1801 5a25 | Z%| 0191 0760 4801 | `H | 0193 5e2e 4053 |^.@S| 0195 6020 05e0 |` | 0197 2bc8 7800 |+ x | 0199 025c de81 | \ | 019b bd00 0000 | | 019d 002c 03c0 | , | 019f 0afe 3602 | 6 | 01a1 bfd5 8057 | W| 01a3 c9e8 d3f0 | | 01a5 0afe 3600 | 6 | 01a7 0000 00af | | 01a9 7900 2be1 |y + | 01ab 3800 0000 |8 | 01ad 8a11 80af | | 01af 7900 0000 |y | 01b1 000b 8000 | | 01b3 04b9 bc00 | | 01b5 0000 0000 | | 01b7 57ad 0000 |W | 01b9 1000 0000 | | 01bb 057a d084 | z | 01bd 4800 af47 |H G| 01bf 8000 0000 | | 01c1 0af7 273b | ';| 01c3 1701 5e8f | ^ | 01c5 0000 0000 | | 01c7 12a0 0009 | | 01c9 6e00 0000 |n | 01cb 0046 9f80 | F | 01cd 57f1 b000 |W | 01cf 0000 057e | ~| 01d1 4501 5fa9 |E _ | 01d3 0000 0004 | | 01d5 508c 057e |P ~| 01d7 4500 0000 |E | 01d9 0001 0000 | | 01db 256d 0000 |%m | 01dd 0000 0002 | | 01df bea6 8000 | | 01e1 8000 0000 | | 01e3 2bea 6c22 |+ l"| 01e5 4005 7cb9 |@ | | 01e7 0000 0000 | | 01e9 57e1 09d8 |W | 01eb b80a f972 | r| 01ed 0000 0000 | | 01ef 2e00 0049 |. I| 01f1 1790 c940 | @| 01f3 15e6 a000 | | 01f5 0000 015e | ^| 01f7 8840 0000 | @ | 01f9 0000 0013 | | 01fb b170 15e6 | p | 01fd a000 0000 | | 01ff 012a | * |