|
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 0140 | @ | .CONST 0x0140 ; 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 000f | | .CONST 0x000f ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0005 | | .CONST 0x0005 ; 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 BODY_0008: 000f e5ff | | Load 0x2,-0x1 0010 592b |Y+ | Indirect_Literal Float,0x13c,2.0 0011 e5ff | | Load 0x2,-0x1 0012 023d | = | Execute Float,Plus 0013 023a | : | Execute Float,Divide 0014 c402 | | Store 0x2,0x2 0015 e5ff | | Load 0x2,-0x1 0016 e402 | | Load 0x2,0x2 0017 023b | ; | Execute Float,Times 0018 004a | J | Store_Top Float,At_Offset_2 0019 00db | | Load_Top At_Offset_3 001a e402 | | Load 0x2,0x2 001b 023d | = | Execute Float,Plus 001c c402 | | Store 0x2,0x2 001d 00db | | Load_Top At_Offset_3 001e e402 | | Load 0x2,0x2 001f 023b | ; | Execute Float,Times 0020 004b | K | Store_Top Float,At_Offset_3 0021 e20e | | Load 0x1,0xe 0022 0122 | " | Execute Any,Make_Root_Type 0023 1c01 | | Execute_Immediate Run_Utility,0x1 0024 00d8 | | Load_Top At_Offset_0 0025 0d01 | | Execute_Immediate Less,0x1 0026 7028 |p( | Jump_Nonzero 0x4f 0027 00d8 | | Load_Top At_Offset_0 0028 0c13 | | Execute_Immediate Greater_Equal,0x13 0029 701f |p | Jump_Nonzero 0x49 002a 00d8 | | Load_Top At_Offset_0 002b 0c07 | | Execute_Immediate Greater_Equal,0x7 002c 6824 |h$ | Jump_Zero 0x51 002d 00d8 | | Load_Top At_Offset_0 002e 0c10 | | Execute_Immediate Greater_Equal,0x10 002f 682d |h- | Jump_Zero 0x5d 0030 0f10 | | Execute_Immediate Equal,0x10 0031 703f |p? | Jump_Nonzero 0x71 0032 00db | | Load_Top At_Offset_3 0033 00db | | Load_Top At_Offset_3 0034 023b | ; | Execute Float,Times 0035 5902 |Y | Indirect_Literal Float,0x138,0.08333333333333333 0036 e403 | | Load 0x2,0x3 0037 58fc |X | Indirect_Literal Float,0x134,0.012499999999998365 0038 e403 | | Load 0x2,0x3 0039 58f6 |X | Indirect_Literal Float,0x130,0.002232142859037389 003a e403 | | Load 0x2,0x3 003b 58f0 |X | Indirect_Literal Float,0x12c,0.00043402681922366336 003c e403 | | Load 0x2,0x3 003d 58ea |X | Indirect_Literal Float,0x128,8.899850532615866e-05 003e 023b | ; | Execute Float,Times 003f 023d | = | Execute Float,Plus 0040 023b | ; | Execute Float,Times 0041 023d | = | Execute Float,Plus 0042 023b | ; | Execute Float,Times 0043 023d | = | Execute Float,Plus 0044 023b | ; | Execute Float,Times 0045 023d | = | Execute Float,Plus 0046 023b | ; | Execute Float,Times 0047 0049 | I | Store_Top Float,At_Offset_1 0048 7889 |x | Jump 0xd2 0049 00d8 | | Load_Top At_Offset_0 004a 0c1c | | Execute_Immediate Greater_Equal,0x1c 004b 683c |h< | Jump_Zero 0x88 004c 0c22 | " | Execute_Immediate Greater_Equal,0x22 004d 685e |h^ | Jump_Zero 0xac 004e 08e2 | | Execute_Immediate Raise,0xe2 004f 00d1 | | Pop_Control Pop_Count_1 0050 7ffd | | Jump 0x4e 0051 00d1 | | Pop_Control Pop_Count_1 0052 00db | | Load_Top At_Offset_3 0053 00db | | Load_Top At_Offset_3 0054 023b | ; | Execute Float,Times 0055 58ce |X | Indirect_Literal Float,0x124,0.08333331816699999 0056 e403 | | Load 0x2,0x3 0057 58c8 |X | Indirect_Literal Float,0x120,0.012512345995999999 0058 023b | ; | Execute Float,Times 0059 023d | = | Execute Float,Plus 005a 023b | ; | Execute Float,Times 005b 0049 | I | Store_Top Float,At_Offset_1 005c 7875 |xu | Jump 0xd2 005d 00d1 | | Pop_Control Pop_Count_1 005e 00db | | Load_Top At_Offset_3 005f 00db | | Load_Top At_Offset_3 0060 023b | ; | Execute Float,Times 0061 58ba |X | Indirect_Literal Float,0x11c,0.08333333333333179 0062 e403 | | Load 0x2,0x3 0063 58b4 |X | Indirect_Literal Float,0x118,0.01250000000377175 0064 e403 | | Load 0x2,0x3 0065 58ae |X | Indirect_Literal Float,0x114,0.002232139987919448 0066 e403 | | Load 0x2,0x3 0067 58a8 |X | Indirect_Literal Float,0x110,0.0004348877777076145 0068 023b | ; | Execute Float,Times 0069 023d | = | Execute Float,Plus 006a 023b | ; | Execute Float,Times 006b 023d | = | Execute Float,Plus 006c 023b | ; | Execute Float,Times 006d 023d | = | Execute Float,Plus 006e 023b | ; | Execute Float,Times 006f 0049 | I | Store_Top Float,At_Offset_1 0070 7861 |xa | Jump 0xd2 0071 00db | | Load_Top At_Offset_3 0072 00db | | Load_Top At_Offset_3 0073 023b | ; | Execute Float,Times 0074 58c3 |X | Indirect_Literal Float,0x138,0.08333333333333333 0075 e403 | | Load 0x2,0x3 0076 58bd |X | Indirect_Literal Float,0x134,0.012499999999998365 0077 e403 | | Load 0x2,0x3 0078 58b7 |X | Indirect_Literal Float,0x130,0.002232142859037389 0079 e403 | | Load 0x2,0x3 007a 58b1 |X | Indirect_Literal Float,0x12c,0.00043402681922366336 007b e403 | | Load 0x2,0x3 007c 58ab |X | Indirect_Literal Float,0x128,8.899850532615866e-05 007d 023b | ; | Execute Float,Times 007e 023d | = | Execute Float,Plus 007f 023b | ; | Execute Float,Times 0080 023d | = | Execute Float,Plus 0081 023b | ; | Execute Float,Times 0082 023d | = | Execute Float,Plus 0083 023b | ; | Execute Float,Times 0084 023d | = | Execute Float,Plus 0085 023b | ; | Execute Float,Times 0086 0049 | I | Store_Top Float,At_Offset_1 0087 784a |xJ | Jump 0xd2 0088 00d1 | | Pop_Control Pop_Count_1 0089 00db | | Load_Top At_Offset_3 008a 00db | | Load_Top At_Offset_3 008b 023b | ; | Execute Float,Times 008c 58ab |X | Indirect_Literal Float,0x138,0.08333333333333333 008d e403 | | Load 0x2,0x3 008e 587d |X} | Indirect_Literal Float,0x10c,0.012499999999999999 008f e403 | | Load 0x2,0x3 0090 5877 |Xw | Indirect_Literal Float,0x108,0.002232142857142857 0091 e403 | | Load 0x2,0x3 0092 5871 |Xq | Indirect_Literal Float,0x104,0.0004340277777777781 0093 e403 | | Load 0x2,0x3 0094 586b |Xk | Indirect_Literal Float,0x100,8.877840909066939e-05 0095 e403 | | Load 0x2,0x3 0096 5865 |Xe | Indirect_Literal Float,0xfc,1.8780048181194955e-05 0097 e403 | | Load 0x2,0x3 0098 585f |X_ | Indirect_Literal Float,0xf8,4.0689841092883615e-06 0099 e403 | | Load 0x2,0x3 009a 5859 |XY | Indirect_Literal Float,0xf4,9.011427159115642e-07 009b 023b | ; | Execute Float,Times 009c 023d | = | Execute Float,Plus 009d 023b | ; | Execute Float,Times 009e 023d | = | Execute Float,Plus 009f 023b | ; | Execute Float,Times 00a0 023d | = | Execute Float,Plus 00a1 023b | ; | Execute Float,Times 00a2 023d | = | Execute Float,Plus 00a3 023b | ; | Execute Float,Times 00a4 023d | = | Execute Float,Plus 00a5 023b | ; | Execute Float,Times 00a6 023d | = | Execute Float,Plus 00a7 023b | ; | Execute Float,Times 00a8 023d | = | Execute Float,Plus 00a9 023b | ; | Execute Float,Times 00aa 0049 | I | Store_Top Float,At_Offset_1 00ab 7826 |x& | Jump 0xd2 00ac 00db | | Load_Top At_Offset_3 00ad 00db | | Load_Top At_Offset_3 00ae 023b | ; | Execute Float,Times 00af 5888 |X | Indirect_Literal Float,0x138,0.08333333333333333 00b0 e403 | | Load 0x2,0x3 00b1 585a |XZ | Indirect_Literal Float,0x10c,0.012499999999999999 00b2 e403 | | Load 0x2,0x3 00b3 5854 |XT | Indirect_Literal Float,0x108,0.002232142857142857 00b4 e403 | | Load 0x2,0x3 00b5 583a |X: | Indirect_Literal Float,0xf0,0.00043402777777777775 00b6 e403 | | Load 0x2,0x3 00b7 5834 |X4 | Indirect_Literal Float,0xec,8.877840909090926e-05 00b8 e403 | | Load 0x2,0x3 00b9 582e |X. | Indirect_Literal Float,0xe8,1.8780048076826106e-05 00ba e403 | | Load 0x2,0x3 00bb 5828 |X( | Indirect_Literal Float,0xe4,4.069010451465706e-06 00bc e403 | | Load 0x2,0x3 00bd 5822 |X" | Indirect_Literal Float,0xe0,8.975683048820751e-07 00be e403 | | Load 0x2,0x3 00bf 581c |X | Indirect_Literal Float,0xdc,2.016715261396766e-07 00c0 023b | ; | Execute Float,Times 00c1 023d | = | Execute Float,Plus 00c2 023b | ; | Execute Float,Times 00c3 023d | = | Execute Float,Plus 00c4 023b | ; | Execute Float,Times 00c5 023d | = | Execute Float,Plus 00c6 023b | ; | Execute Float,Times 00c7 023d | = | Execute Float,Plus 00c8 023b | ; | Execute Float,Times 00c9 023d | = | Execute Float,Plus 00ca 023b | ; | Execute Float,Times 00cb 023d | = | Execute Float,Plus 00cc 023b | ; | Execute Float,Times 00cd 023d | = | Execute Float,Plus 00ce 023b | ; | Execute Float,Times 00cf 023d | = | Execute Float,Plus 00d0 023b | ; | Execute Float,Times 00d1 0049 | I | Store_Top Float,At_Offset_1 00d2 e5ff | | Load 0x2,-0x1 00d3 00d9 | | Load_Top At_Offset_1 00d4 00db | | Load_Top At_Offset_3 00d5 023c | < | Execute Float,Minus 00d6 023d | = | Execute Float,Plus 00d7 e20e | | Load 0x1,0xe 00d8 0232 | 2 | Execute Float,Check_In_Type 00d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00da 0000 0000 | | .XXX[0x2] 00dc 3e8b 1161 |> a| .DBL 2.016715261396766e-07 00de 80fc a852 | R| 00e0 3eae 1e0d |> | .DBL 8.975683048820751e-07 00e2 936d 01e5 | m | 00e4 3ed1 1111 |> | .DBL 4.069010451465706e-06 00e6 1383 f34f | O| 00e8 3ef3 b13b |> ;| .DBL 1.8780048076826106e-05 00ea 13b0 cb47 | G| 00ec 3f17 45d1 |? E | .DBL 8.877840909090926e-05 00ee 745d 1752 |t] R| 00f0 3f3c 71c7 |?<q | .DBL 0.00043402777777777775 00f2 1c71 c71c | q | 00f4 3eae 3cc1 |> < | .DBL 9.011427159115642e-07 00f6 c9f2 c85b | [| 00f8 3ed1 1109 |> | .DBL 4.0689841092883615e-06 00fa d5d9 785b | x[| 00fc 3ef3 b13b |> ;| .DBL 1.8780048181194955e-05 00fe 1586 d45e | ^| 0100 3f17 45d1 |? E | .DBL 8.877840909066939e-05 0102 745c d22f |t\ /| 0104 3f3c 71c7 |?<q | .DBL 0.0004340277777777781 0106 1c71 c722 | q "| 0108 3f62 4924 |?bI$| .DBL 0.002232142857142857 010a 9249 2492 | I$ | 010c 3f89 9999 |? | .DBL 0.012499999999999999 010e 9999 9999 | | 0110 3f3c 8034 |?< 4| .DBL 0.0004348877777076145 0112 c85d ffef | ] | 0114 3f62 4923 |?bI#| .DBL 0.002232139987919448 0116 07f1 519e | Q | 0118 3f89 9999 |? | .DBL 0.01250000000377175 011a 99ba c6d3 | | 011c 3fb5 5555 |? UU| .DBL 0.08333333333333179 011e 5555 54e6 |UUT | 0120 3f89 a012 |? | .DBL 0.012512345995999999 0122 a6ca de28 | (| 0124 3fb5 5555 |? UU| .DBL 0.08333331816699999 0126 1431 c602 | 1 | 0128 3f17 5496 |? T | .DBL 8.899850532615866e-05 012a add7 dad5 | | 012c 3f3c 71c2 |?<q | .DBL 0.00043402681922366336 012e fe80 c7df | | 0130 3f62 4924 |?bI$| .DBL 0.002232142859037389 0132 928b ccff | | 0134 3f89 9999 |? | .DBL 0.012499999999998365 0136 9999 95eb | | 0138 3fb5 5555 |? UU| .DBL 0.08333333333333333 013a 5555 5555 |UUUU| 013c 4000 0000 |@ | .DBL 2.0 013e 0000 0000 | | 0140 ; -------------------------------------------------------------------------------------- 0140 ; Debug Table 0140 ; -------------------------------------------------------------------------------------- 0140 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f24,0x0000,0x0001,0x0000 0146 4d7d 1549 |M} I| .XXX[0x3d] 0148 493d 4800 |I=H | 014a 5429 353d |T)5=| 014c 1115 7d15 | } | 014e 4949 3d48 |II=H| 0150 008c 2939 | )9| 0152 0535 157d | 5 }| 0154 1549 493d | II=| 0156 4800 5c25 |H \%| 0158 554d 157d |UM }| 015a 1549 493d | II=| 015c 4802 3831 |H 81| 015e 1115 5925 | Y%| 0160 0d15 7d15 | } | 0162 4949 3d48 |II=H| 0164 023c 2515 | <% | 0166 3911 7d15 |9 } | 0168 4949 3d48 |II=H| 016a 0240 2911 | @) | 016c 0551 057d | Q }| 016e 1549 493d | II=| 0170 4800 bc04 |H | 0172 f801 c411 | | 0174 3115 1950 |1 P| 0176 0008 1549 | I| 0178 251d 2150 |% !P| 017a 0244 08f0 | D | 017c f400 ec04 | | 017e f002 4808 | H | 0180 f8f4 00d4 | | 0182 04f4 | | 0183 0000 0000 | | .BLANK 0000[0x7d]