|
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 0078 | x | .CONST 0x0078 ; 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 000a | | .CONST 0x000a ; 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 5861 |Xa | Indirect_Literal Float,0x74,3.141357421875 0013 e20e | | Load 0x1,0xe 0014 02bf | | Declare_Variable Float,With_Value,With_Constraint 0015 585a |XZ | Indirect_Literal Float,0x70,0.00023523171479323846 0016 e20e | | Load 0x1,0xe 0017 02bf | | Declare_Variable Float,With_Value,With_Constraint 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 c402 | | Store 0x2,0x2 001f e402 | | Load 0x2,0x2 0020 e20e | | Load 0x1,0xe 0021 0232 | 2 | Execute Float,Check_In_Type 0022 5849 |XI | Indirect_Literal Float,0x6c,1.0 0023 e20e | | Load 0x1,0xe 0024 0232 | 2 | Execute Float,Check_In_Type 0025 e00b | | Load 0x0,0xb 0026 e230 | 0 | Load 0x1,0x30 0027 0096 | | Execute Package,Entry 0028 c403 | | Store 0x2,0x3 0029 e402 | | Load 0x2,0x2 002a 023e | > | Execute Float,Absolute_Value 002b c402 | | Store 0x2,0x2 002c e402 | | Load 0x2,0x2 002d 583e |X> | Indirect_Literal Float,0x6c,1.0 002e 0245 | E | Execute Float,Greater 002f 6802 |h | Jump_Zero 0x32 0030 e006 | | Load 0x0,0x6 0031 0257 | W | Execute Discrete,Raise 0032 5839 |X9 | Indirect_Literal Float,0x6c,1.0 0033 e402 | | Load 0x2,0x2 0034 023c | < | Execute Float,Minus 0035 5836 |X6 | Indirect_Literal Float,0x6c,1.0 0036 e402 | | Load 0x2,0x2 0037 023d | = | Execute Float,Plus 0038 023a | : | Execute Float,Divide 0039 c407 | | Store 0x2,0x7 003a 00db | | Load_Top At_Offset_3 003b e20e | | Load 0x1,0xe 003c 0232 | 2 | Execute Float,Check_In_Type 003d 8248 | H | Call 0x1,0x48 003e c407 | | Store 0x2,0x7 003f 582c |X, | Indirect_Literal Float,0x6c,1.0 0040 c406 | | Store 0x2,0x6 0041 e20e | | Load 0x1,0xe 0042 00d8 | | Load_Top At_Offset_0 0043 e406 | | Load 0x2,0x6 0044 e20e | | Load 0x1,0xe 0045 0232 | 2 | Execute Float,Check_In_Type 0046 e407 | | Load 0x2,0x7 0047 e20e | | Load 0x1,0xe 0048 0232 | 2 | Execute Float,Check_In_Type 0049 8255 | U | Call 0x1,0x55 004a c404 | | Store 0x2,0x4 004b c405 | | Store 0x2,0x5 004c e404 | | Load 0x2,0x4 004d 00d8 | | Load_Top At_Offset_0 004e 023d | = | Execute Float,Plus 004f c404 | | Store 0x2,0x4 0050 e405 | | Load 0x2,0x5 0051 00d8 | | Load_Top At_Offset_0 0052 023d | = | Execute Float,Plus 0053 c405 | | Store 0x2,0x5 0054 e403 | | Load 0x2,0x3 0055 5816 |X | Indirect_Literal Float,0x6c,1.0 0056 0247 | G | Execute Float,Equal 0057 6805 |h | Jump_Zero 0x5d 0058 e404 | | Load 0x2,0x4 0059 e405 | | Load 0x2,0x5 005a 023d | = | Execute Float,Plus 005b 004b | K | Store_Top Float,At_Offset_3 005c 7808 |x | Jump 0x65 005d 5816 |X | Indirect_Literal Float,0x74,3.141357421875 005e e404 | | Load 0x2,0x4 005f 023c | < | Execute Float,Minus 0060 580f |X | Indirect_Literal Float,0x70,0.00023523171479323846 0061 e405 | | Load 0x2,0x5 0062 023c | < | Execute Float,Minus 0063 023d | = | Execute Float,Plus 0064 004b | K | Store_Top Float,At_Offset_3 0065 00da | | Load_Top At_Offset_2 0066 00d8 | | Load_Top At_Offset_0 0067 e20e | | Load 0x1,0xe 0068 0234 | 4 | Execute Float,In_Type 0069 7001 |p | Jump_Nonzero 0x6b 006a 0801 | | Execute_Immediate Raise,0x1 006b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 006c 3ff0 0000 |? | .DBL 1.0 006e 0000 0000 | | 0070 3f2e d511 |?. | .DBL 0.00023523171479323846 0072 0b46 11a6 | F | 0074 4009 2180 |@ ! | .DBL 3.141357421875 0076 0000 0000 | | 0078 ; -------------------------------------------------------------------------------------- 0078 ; Debug Table 0078 ; -------------------------------------------------------------------------------------- 0078 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f09,0x0000,0x0001,0x0000 007e 394c b951 |9L Q| .XXX[0x182] 0080 0549 1d15 | I | 0082 517d 4105 |Q}A | 0084 5121 3905 |Q!9 | 0086 3514 01f6 |5 | 0088 4094 0019 |@ | 008a 4d51 0551 |MQ Q| 008c 554c 5c00 |UL\ | 008e 7951 0549 |yQ I| 0090 1d15 517d | Q}| 0092 3d41 1549 |=A I| 0094 0551 253d | Q%=| 0096 394c b915 |9L | 0098 4949 3d49 |II=I| 009a 7d4d 5105 |}MQ | 009c 5155 4c01 |QUL | 009e fa40 8c00 | @ | 00a0 1d15 6141 | aA| 00a2 5539 1d14 |U9 | 00a4 5c00 414d |\ AM| 00a6 5105 3911 |Q 9 | 00a8 0549 10b9 | I | 00aa 093d 3d31 | ==1| 00ac 1505 3858 | 8X| 00ae 0059 4d51 | YMQ| 00b0 0539 1105 | 9 | 00b2 4910 b909 |I | 00b4 3d3d 3115 |==1 | 00b6 0538 b919 | 8 | 00b8 0531 4d14 | 1M | 00ba 0000 0000 | | 00bc bc04 0800 | | 00be 6551 0549 |eQ I| 00c0 1d15 517d | Q}| 00c2 3d41 1549 |=A I| 00c4 0551 253d | Q%=| 00c6 394c b915 |9L | 00c8 6115 0d55 |a U| 00ca 5114 f5ee |Q | 00cc 51fa 408c |Q @ | 00ce 001d 0d3d | =| 00d0 3535 0539 |55 9| 00d2 105c 007d | \ }| 00d4 5105 491d |Q I | 00d6 1551 7d3d | Q}=| 00d8 4115 4905 |A I | 00da 5125 3d39 |Q%=9| 00dc 4cb9 0d3d |L =| 00de 3535 0539 |55 9| 00e0 117d 2539 | }%9| 00e2 4155 5001 |AUP | 00e4 fa40 8c00 | @ | 00e6 253d 397d |%=9}| 00e8 5105 491d |Q I | 00ea 1550 5c00 | P\ | 00ec 6951 0549 |iQ I| 00ee 1d15 517d | Q}| 00f0 3d41 1549 |=A I| 00f2 0551 253d | Q%=| 00f4 394c b921 |9L !| 00f6 3d4d 5139 |=MQ9| 00f8 0535 1401 | 5 | 00fa fa40 8c00 | @ | 00fc 193d 5551 | =UQ| 00fe 4155 505c |AUP\| 0100 007d 1115 | } | 0102 5925 0d15 |Y% | 0104 7d25 3911 |}%9 | 0106 1541 1539 | A 9| 0108 1115 3951 | 9Q| 010a 7d25 3cb9 |}%< | 010c 1925 3115 | %1 | 010e 7d51 6541 |}QeA| 0110 1401 fa40 | @| 0112 8c00 1515 | | 0114 4949 3d48 |II=H| 0116 5c00 7d11 |\ } | 0118 1559 250d | Y% | 011a 157d 2539 | }%9| 011c 1115 4115 | A | 011e 3911 1539 |9 9| 0120 517d 253c |Q}%<| 0122 b919 2531 | %1| 0124 157d 5165 | }Qe| 0126 4114 01f6 |A | 0128 4094 0019 |@ | 012a 4d51 0551 |MQ Q| 012c 554c 5c00 |UL\ | 012e 7951 0549 |yQ I| 0130 1d15 517d | Q}| 0132 3d41 1549 |=A I| 0134 0551 253d | Q%=| 0136 394c b915 |9L | 0138 4949 3d49 |II=I| 013a 7d4d 5105 |}MQ | 013c 5155 4c00 |QUL | 013e 0000 0000 | | 0140 f000 fc00 | | 0142 6551 0549 |eQ I| 0144 1d15 517d | Q}| 0146 3d41 1549 |=A I| 0148 0551 253d | Q%=| 014a 394c b939 |9L 9| 014c 2531 7d2d |%1}-| 014e 1564 085c | d \| 0150 0081 5105 | Q | 0152 491d 1551 |I Q| 0154 7d3d 4115 |}=A | 0156 4905 5125 |I Q%| 0158 3d39 4cb9 |=9L | 015a 0d3d 3939 | =99| 015c 150d 5125 | Q%| 015e 3d39 7d2d |=9}-| 0160 1564 0000 | d | 0162 0060 00c4 | ` | 0164 0069 5105 | iQ | 0166 491d 1551 |I Q| 0168 7d3d 4115 |}=A | 016a 4905 5125 |I Q%| 016c 3d39 4cb9 |=9L | 016e 213d 4d51 |!=MQ| 0170 3905 3514 |9 5 | 0172 f198 5c00 | \ | 0174 3d4d 5105 |=MQ | 0176 3911 0549 |9 I| 0178 10b9 4d51 | MQ| 017a 4925 391c |I%9 | 017c 0000 0000 | | 017e a003 6400 | d | 0180 5951 0549 |YQ I| 0182 1d15 517d | Q}| 0184 3d41 1549 |=A I| 0186 0551 253d | Q%=| 0188 394c b931 |9L 1| 018a 2539 2cf5 |%9, | 018c ee51 fa40 | Q @| 018e 8c00 2519 | % | 0190 493d 357d |I=5}| 0192 1925 3114 | %1 | 0194 5c00 8551 |\ Q| 0196 0549 1d15 | I | 0198 517d 3d41 |Q}=A| 019a 1549 0551 | I Q| 019c 253d 394c |%=9L| 019e b951 0549 | Q I| 01a0 1d15 517d | Q}| 01a2 4105 5121 |A Q!| 01a4 3905 3514 |9 5 | 01a6 01fa 408c | @ | 01a8 001d 513d | Q=| 01aa 7d19 2531 |} %1| 01ac 145c 0085 | \ | 01ae 5105 491d |Q I | 01b0 1551 7d3d | Q}=| 01b2 4115 4905 |A I | 01b4 5125 3d39 |Q%=9| 01b6 4cb9 5105 |L Q | 01b8 491d 1551 |I Q| 01ba 7d41 0551 |}A Q| 01bc 2139 0535 |!9 5| 01be 1401 fa40 | @| 01c0 8c00 253d | %=| 01c2 397d 5105 |9}Q | 01c4 491d 1550 |I P| 01c6 5c00 6951 |\ iQ| 01c8 0549 1d15 | I | 01ca 517d 3d41 |Q}=A| 01cc 1549 0551 | I Q| 01ce 253d 394c |%=9L| 01d0 b921 3d4d | !=M| 01d2 5139 0535 |Q9 5| 01d4 1401 f640 | @| 01d6 9400 194d | M| 01d8 5105 5155 |Q QU| 01da 4c5c 0079 |L\ y| 01dc 5105 491d |Q I | 01de 1551 7d3d | Q}=| 01e0 4115 4905 |A I | 01e2 5125 3d39 |Q%=9| 01e4 4cb9 1549 |L I| 01e6 493d 497d |I=I}| 01e8 4d51 0551 |MQ Q| 01ea 554c 0000 |UL | 01ec 0000 00d4 | | 01ee 025c 0071 | \ q| 01f0 5105 491d |Q I | 01f2 1551 7d3d | Q}=| 01f4 4115 4905 |A I | 01f6 5125 3d39 |Q%=9| 01f8 4cb9 3905 |L 9 | 01fa 3515 7d15 |5 } | 01fc 4949 3d48 |II=H| 01fe e198 5c00 | \ |