|
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_03bcfe
└─⟦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 00a8 | | .CONST 0x00a8 ; 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 0018 | | .CONST 0x0018 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000c | | .CONST 0x000c ; Number of locals 000b INIT_0008: 000b e20e | | Load 0x1,0xe 000c 03d8 | | Declare_Variable Float,Duplicate 000d 03d8 | | Declare_Variable Float,Duplicate 000e 03d8 | | Declare_Variable Float,Duplicate 000f 03d8 | | Declare_Variable Float,Duplicate 0010 03d8 | | Declare_Variable Float,Duplicate 0011 03d8 | | Declare_Variable Float,Duplicate 0012 5891 |X | Indirect_Literal Float,0xa4,0.0 0013 e20e | | Load 0x1,0xe 0014 02bf | | Declare_Variable Float,With_Value,With_Constraint 0015 e22f | / | Load 0x1,0x2f 0016 03e9 | | Declare_Variable Discrete,Duplicate 0017 03e9 | | Declare_Variable Discrete,Duplicate 0018 BODY_0008: 0018 e5ff | | Load 0x2,-0x1 0019 00d8 | | Load_Top At_Offset_0 001a e20e | | Load 0x1,0xe 001b 0234 | 4 | Execute Float,In_Type 001c 7001 |p | Jump_Nonzero 0x1e 001d 0801 | | Execute_Immediate Raise,0x1 001e 023e | > | Execute Float,Absolute_Value 001f c403 | | Store 0x2,0x3 0020 e5fe | | Load 0x2,-0x2 0021 00d8 | | Load_Top At_Offset_0 0022 e20e | | Load 0x1,0xe 0023 0234 | 4 | Execute Float,In_Type 0024 7001 |p | Jump_Nonzero 0x26 0025 0801 | | Execute_Immediate Raise,0x1 0026 c405 | | Store 0x2,0x5 0027 e405 | | Load 0x2,0x5 0028 0149 | I | Execute Float,Less_Equal_Zero 0029 6802 |h | Jump_Zero 0x2c 002a e006 | | Load 0x0,0x6 002b 0257 | W | Execute Discrete,Raise 002c e405 | | Load 0x2,0x5 002d e20e | | Load 0x1,0xe 002e 0232 | 2 | Execute Float,Check_In_Type 002f e403 | | Load 0x2,0x3 0030 e20e | | Load 0x1,0xe 0031 0232 | 2 | Execute Float,Check_In_Type 0032 e005 | | Load 0x0,0x5 0033 e230 | 0 | Load 0x1,0x30 0034 0096 | | Execute Package,Entry 0035 c402 | | Store 0x2,0x2 0036 5869 |Xi | Indirect_Literal Float,0xa0,4.0 0037 e402 | | Load 0x2,0x2 0038 023b | ; | Execute Float,Times 0039 e405 | | Load 0x2,0x5 003a 023a | : | Execute Float,Divide 003b e20e | | Load 0x1,0xe 003c 0232 | 2 | Execute Float,Check_In_Type 003d e008 | | Load 0x0,0x8 003e e230 | 0 | Load 0x1,0x30 003f 0096 | | Execute Package,Entry 0040 c408 | | Store 0x2,0x8 0041 e408 | | Load 0x2,0x8 0042 0235 | 5 | Execute Float,Round_To_Discrete 0043 00e2 | | Load_Encached Integer_Cache 0044 025e | ^ | Execute Discrete,Convert 0045 0a01 | | Execute_Immediate Plus,0x1 0046 4803 |H | Short_Literal 0x3 0047 0279 | y | Execute Discrete,And 0048 00d8 | | Load_Top At_Offset_0 0049 e22f | / | Load 0x1,0x2f 004a 0260 | ` | Execute Discrete,In_Type 004b 7001 |p | Jump_Nonzero 0x4d 004c 0801 | | Execute_Immediate Raise,0x1 004d 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 004e 00da | | Load_Top At_Offset_2 004f 4801 |H | Short_Literal 0x1 0050 0279 | y | Execute Discrete,And 0051 005a | Z | Store_Top Discrete,At_Offset_2 0052 00da | | Load_Top At_Offset_2 0053 00da | | Load_Top At_Offset_2 0054 0272 | r | Execute Discrete,Minus 0055 09ff | | Execute_Immediate Binary_Scale,-0x1 0056 0059 | Y | Store_Top Discrete,At_Offset_1 0057 4804 |H | Short_Literal 0x4 0058 e405 | | Load 0x2,0x5 0059 e20e | | Load 0x1,0xe 005a 0232 | 2 | Execute Float,Check_In_Type 005b e004 | | Load 0x0,0x4 005c e230 | 0 | Load 0x1,0x30 005d 0096 | | Execute Package,Entry 005e c406 | | Store 0x2,0x6 005f e405 | | Load 0x2,0x5 0060 e406 | | Load 0x2,0x6 0061 023c | < | Execute Float,Minus 0062 c407 | | Store 0x2,0x7 0063 e408 | | Load 0x2,0x8 0064 5837 |X7 | Indirect_Literal Float,0x9c,0.25 0065 023b | ; | Execute Float,Times 0066 c408 | | Store 0x2,0x8 0067 e402 | | Load 0x2,0x2 0068 e408 | | Load 0x2,0x8 0069 e406 | | Load 0x2,0x6 006a 023b | ; | Execute Float,Times 006b 023c | < | Execute Float,Minus 006c e408 | | Load 0x2,0x8 006d e407 | | Load 0x2,0x7 006e 023b | ; | Execute Float,Times 006f 023c | < | Execute Float,Minus 0070 c402 | | Store 0x2,0x2 0071 e402 | | Load 0x2,0x2 0072 e405 | | Load 0x2,0x5 0073 023a | : | Execute Float,Divide 0074 5823 |X# | Indirect_Literal Float,0x98,6.283185307179586 0075 023b | ; | Execute Float,Times 0076 c402 | | Store 0x2,0x2 0077 00d9 | | Load_Top At_Offset_1 0078 7009 |p | Jump_Nonzero 0x82 0079 00db | | Load_Top At_Offset_3 007a e20e | | Load 0x1,0xe 007b 0232 | 2 | Execute Float,Check_In_Type 007c e402 | | Load 0x2,0x2 007d e20e | | Load 0x1,0xe 007e 0232 | 2 | Execute Float,Check_In_Type 007f 8252 | R | Call 0x1,0x52 0080 c404 | | Store 0x2,0x4 0081 7808 |x | Jump 0x8a 0082 00db | | Load_Top At_Offset_3 0083 e20e | | Load 0x1,0xe 0084 0232 | 2 | Execute Float,Check_In_Type 0085 e402 | | Load 0x2,0x2 0086 e20e | | Load 0x1,0xe 0087 0232 | 2 | Execute Float,Check_In_Type 0088 8253 | S | Call 0x1,0x53 0089 c404 | | Store 0x2,0x4 008a 00d8 | | Load_Top At_Offset_0 008b 0f01 | | Execute_Immediate Equal,0x1 008c 6803 |h | Jump_Zero 0x90 008d e404 | | Load 0x2,0x4 008e 023f | ? | Execute Float,Unary_Minus 008f c404 | | Store 0x2,0x4 0090 e404 | | Load 0x2,0x4 0091 00d8 | | Load_Top At_Offset_0 0092 e20e | | Load 0x1,0xe 0093 0234 | 4 | Execute Float,In_Type 0094 7001 |p | Jump_Nonzero 0x96 0095 0801 | | Execute_Immediate Raise,0x1 0096 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0097 0000 | | .XXX[0x1] 0098 4019 21fb |@ ! | .DBL 6.283185307179586 009a 5444 2d18 |TD- | 009c 3fd0 0000 |? | .DBL 0.25 009e 0000 0000 | | 00a0 4010 0000 |@ | .DBL 4.0 00a2 0000 0000 | | 00a4 0000 0000 | | .DBL 0.0 00a6 0000 0000 | | 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; Debug Table 00a8 ; -------------------------------------------------------------------------------------- 00a8 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f1d,0x0000,0x0001,0x0000 00ae 81b1 a5b9 | | .XXX[0x152] 00b0 ace8 8135 | 5| 00b2 050d 2125 | !%| 00b4 3915 7d0d |9 } | 00b6 3d11 14f4 |= | 00b8 f885 3149 | 1I| 00ba 34b9 3505 |4 5 | 00bc 0d21 2539 | !%9| 00be 157d 0d3d | } =| 00c0 1114 9d4d | M| 00c2 4115 0c81 |A | 00c4 a5b8 8028 | (| 00c6 c4c4 e8c8 | | 00c8 c0e8 ccd0 | | 00ca 80b8 b8b8 | | 00cc 81dd bdc9 | | 00ce b190 8085 | | 00d0 3505 0d21 |5 !| 00d2 2539 14b9 |%9 | 00d4 1119 4cb9 | L | 00d6 4915 58cd |I X | 00d8 7cc1 7d4d || }M| 00da 4115 0c80 |A | 00dc a155 3911 | U9 | 00de 1519 2539 | %9| 00e0 1511 7d4d | }M| 00e2 3d55 490d |=UI | 00e4 157d 3905 | }9 | 00e6 3514 a4b8 |5 | 00e8 28c4 c4e8 |( | 00ea c8c0 e8d0 | | 00ec c080 8484 | | 00ee 8481 8d85 | | 00f0 b89d d081 | | 00f2 c995 cdd1 | | 00f4 bdc9 9481 | | 00f6 b1a5 b9ac | | 00f8 e881 0549 | I| 00fa 0d21 2559 | !%Y| 00fc 1511 7d0d | } | 00fe 3d11 157d |= }| 0100 3d09 2915 |= ) | 0102 0d51 7d15 | Q} | 0104 1125 513d | %Q=| 0106 48f4 f885 |H | 0108 513d 3d31 |Q==1| 010a 4cb8 28c4 |L ( | 010c c4e8 c8c0 | | 010e e8d0 c080 | | 0110 b8b8 b881 | | 0112 0549 0d21 | I !| 0114 2559 1511 |%Y | 0116 7d0d 3d11 |} = | 0118 157d 3d09 | }= | 011a 2915 0d51 |) Q| 011c 7d15 1125 |} %| 011e 513d 489d |Q=H | 0120 4d41 150c |MA | 0122 81a5 b881 | | 0124 ddbd c9b1 | | 0126 9080 8535 | 5| 0128 050d 2125 | !%| 012a 3914 b911 |9 | 012c 194c b828 | L (| 012e c4c4 e8c8 | | 0130 c0e8 d0c0 | | 0132 80b8 b8b8 | | 0134 8149 1558 | I X| 0136 cd7c c17d | | }| 0138 4d41 150c |MA | 013a 80a1 5539 | U9| 013c 1115 1925 | %| 013e 3915 117d |9 }| 0140 4d3d 5549 |M=UI| 0142 0d15 7d39 | }9| 0144 0535 14a4 | 5 | 0146 b828 c4c4 | ( | 0148 e8c8 c0e8 | | 014a d0c0 8084 | | 014c 8484 818d | | 014e 85b8 9dd0 | | 0150 81c9 95cd | | 0152 d1bd c994 | | 0154 81b1 a5b9 | | 0156 ace8 8111 | | 0158 154d 251d | M% | 015a 397d 2535 |9}%5| 015c 4131 1535 |A1 5| 015e 1539 5105 | 9Q | 0160 5125 3d38 |Q%=8| 0162 f4f8 8551 | Q| 0164 3d3d 314c |==1L| 0166 b828 c4c4 | ( | 0168 e8c8 c0e8 | | 016a d0c0 80b8 | | 016c b8b8 8111 | | 016e 154d 251d | M% | 0170 397d 2535 |9}%5| 0172 4131 1535 |A1 5| 0174 1539 5105 | 9Q | 0176 5125 3d38 |Q%=8| 0178 9d4d 4115 | MA | 017a 0c81 a5b8 | | 017c 81dd bdc9 | | 017e b190 8085 | | 0180 3505 0d21 |5 !| 0182 2539 14b9 |%9 | 0184 1119 4cb9 | L | 0186 4915 58cd |I X | 0188 7cc1 7d4d || }M| 018a 4115 0c80 |A | 018c 28c4 c4e8 |( | 018e c8c0 e8d0 | | 0190 c080 b8b8 | | 0192 b880 a155 | U| 0194 3911 1519 |9 | 0196 2539 1511 |%9 | 0198 7d4d 3d55 |}M=U| 019a 490d 157d |I }| 019c 3905 3514 |9 5 | 019e a4b8 28c4 | ( | 01a0 c4e8 c8c0 | | 01a2 e8d0 c480 | | 01a4 8484 8481 | | 01a6 8d85 b89d | | 01a8 d081 c995 | | 01aa cdd1 bdc9 | | 01ac 9481 b1a5 | | 01ae b9ac e881 | | 01b0 4d41 1531 |MA 1| 01b2 3115 48f4 |1 H | 01b4 f885 0d3d | =| 01b6 3535 0539 |55 9| 01b8 114c b94d | L M| 01ba 4115 3131 |A 11| 01bc 1548 9d4d | H M| 01be 4115 0c81 |A | 01c0 a5b8 81dd | | 01c2 bdc9 b190 | | 01c4 8028 c4c4 | ( | 01c6 e8c8 c0e8 | | 01c8 d0c4 80b8 | | 01ca b8b8 8085 | | 01cc 3505 0d21 |5 !| 01ce 2539 14b9 |%9 | 01d0 1119 4cb9 | L | 01d2 4915 58cd |I X | 01d4 7cc1 7d4d || }M| 01d6 4115 0c80 |A | 01d8 a155 3911 | U9 | 01da 1519 2539 | %9| 01dc 1511 7d4d | }M| 01de 3d55 490d |=UI | 01e0 157d 3905 | }9 | 01e2 3514 a4b8 |5 | 01e4 28c4 c4e8 |( | 01e6 c8c0 e8d0 | | 01e8 cc80 8484 | | 01ea 8481 8d85 | | 01ec b89d d081 | | 01ee c995 cdd1 | | 01f0 bdc9 9481 | | 01f2 b1a5 b9ac | | 01f4 e881 5149 | QI| 01f6 0539 4d19 | 9M | 01f8 1548 f4f8 | H | 01fa 850d 3d35 | =5| 01fc 3505 3911 |5 9 | 01fe 4cb9 5149 |L QI|