|
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 00a0 | | .CONST 0x00a0 ; 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 0019 | | .CONST 0x0019 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000b | | .CONST 0x000b ; 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 03d8 | | Declare_Variable Float,Duplicate 0013 5888 |X | Indirect_Literal Float,0x9c,1.570556640625 0014 e20e | | Load 0x1,0xe 0015 02bf | | Declare_Variable Float,With_Value,With_Constraint 0016 5881 |X | Indirect_Literal Float,0x98,0.00023968616989661923 0017 e20e | | Load 0x1,0xe 0018 02bf | | Declare_Variable Float,With_Value,With_Constraint 0019 BODY_0008: 0019 e5ff | | Load 0x2,-0x1 001a 00d8 | | Load_Top At_Offset_0 001b e20e | | Load 0x1,0xe 001c 0234 | 4 | Execute Float,In_Type 001d 7001 |p | Jump_Nonzero 0x1f 001e 0801 | | Execute_Immediate Raise,0x1 001f c402 | | Store 0x2,0x2 0020 e402 | | Load 0x2,0x2 0021 e20e | | Load 0x1,0xe 0022 0232 | 2 | Execute Float,Check_In_Type 0023 5870 |Xp | Indirect_Literal Float,0x94,1.0 0024 e20e | | Load 0x1,0xe 0025 0232 | 2 | Execute Float,Check_In_Type 0026 e00b | | Load 0x0,0xb 0027 e230 | 0 | Load 0x1,0x30 0028 0096 | | Execute Package,Entry 0029 c403 | | Store 0x2,0x3 002a e402 | | Load 0x2,0x2 002b 023e | > | Execute Float,Absolute_Value 002c c402 | | Store 0x2,0x2 002d e402 | | Load 0x2,0x2 002e 5865 |Xe | Indirect_Literal Float,0x94,1.0 002f 0245 | E | Execute Float,Greater 0030 6802 |h | Jump_Zero 0x33 0031 e006 | | Load 0x0,0x6 0032 0257 | W | Execute Discrete,Raise 0033 e402 | | Load 0x2,0x2 0034 c405 | | Store 0x2,0x5 0035 e402 | | Load 0x2,0x2 0036 5859 |XY | Indirect_Literal Float,0x90,0.5 0037 0244 | D | Execute Float,Less 0038 6807 |h | Jump_Zero 0x40 0039 585a |XZ | Indirect_Literal Float,0x94,1.0 003a e402 | | Load 0x2,0x2 003b 00d8 | | Load_Top At_Offset_0 003c 023b | ; | Execute Float,Times 003d 023c | < | Execute Float,Minus 003e c404 | | Store 0x2,0x4 003f 780e |x | Jump 0x4e 0040 584f |XO | Indirect_Literal Float,0x90,0.5 0041 584e |XN | Indirect_Literal Float,0x90,0.5 0042 e402 | | Load 0x2,0x2 0043 023c | < | Execute Float,Minus 0044 023d | = | Execute Float,Plus 0045 c406 | | Store 0x2,0x6 0046 5845 |XE | Indirect_Literal Float,0x8c,2.0 0047 e406 | | Load 0x2,0x6 0048 023b | ; | Execute Float,Times 0049 e406 | | Load 0x2,0x6 004a 00d8 | | Load_Top At_Offset_0 004b 023b | ; | Execute Float,Times 004c 023c | < | Execute Float,Minus 004d c404 | | Store 0x2,0x4 004e e404 | | Load 0x2,0x4 004f e20e | | Load 0x1,0xe 0050 0232 | 2 | Execute Float,Check_In_Type 0051 8248 | H | Call 0x1,0x48 0052 c404 | | Store 0x2,0x4 0053 e404 | | Load 0x2,0x4 0054 e405 | | Load 0x2,0x5 0055 0243 | C | Execute Float,Greater_Equal 0056 6810 |h | Jump_Zero 0x67 0057 e20e | | Load 0x1,0xe 0058 00d8 | | Load_Top At_Offset_0 0059 e404 | | Load 0x2,0x4 005a e20e | | Load 0x1,0xe 005b 0232 | 2 | Execute Float,Check_In_Type 005c e405 | | Load 0x2,0x5 005d e20e | | Load 0x1,0xe 005e 0232 | 2 | Execute Float,Check_In_Type 005f 8255 | U | Call 0x1,0x55 0060 c407 | | Store 0x2,0x7 0061 c408 | | Store 0x2,0x8 0062 e407 | | Load 0x2,0x7 0063 e408 | | Load 0x2,0x8 0064 023d | = | Execute Float,Plus 0065 004b | K | Store_Top Float,At_Offset_3 0066 7813 |x | Jump 0x7a 0067 e20e | | Load 0x1,0xe 0068 00d8 | | Load_Top At_Offset_0 0069 e405 | | Load 0x2,0x5 006a e20e | | Load 0x1,0xe 006b 0232 | 2 | Execute Float,Check_In_Type 006c e404 | | Load 0x2,0x4 006d e20e | | Load 0x1,0xe 006e 0232 | 2 | Execute Float,Check_In_Type 006f 8255 | U | Call 0x1,0x55 0070 c407 | | Store 0x2,0x7 0071 c408 | | Store 0x2,0x8 0072 5829 |X) | Indirect_Literal Float,0x9c,1.570556640625 0073 e407 | | Load 0x2,0x7 0074 023c | < | Execute Float,Minus 0075 5822 |X" | Indirect_Literal Float,0x98,0.00023968616989661923 0076 e408 | | Load 0x2,0x8 0077 023c | < | Execute Float,Minus 0078 023d | = | Execute Float,Plus 0079 004b | K | Store_Top Float,At_Offset_3 007a e403 | | Load 0x2,0x3 007b e20e | | Load 0x1,0xe 007c 0232 | 2 | Execute Float,Check_In_Type 007d 00db | | Load_Top At_Offset_3 007e e20e | | Load 0x1,0xe 007f 0232 | 2 | Execute Float,Check_In_Type 0080 e00b | | Load 0x0,0xb 0081 e230 | 0 | Load 0x1,0x30 0082 0096 | | Execute Package,Entry 0083 00d8 | | Load_Top At_Offset_0 0084 e20e | | Load 0x1,0xe 0085 0234 | 4 | Execute Float,In_Type 0086 7001 |p | Jump_Nonzero 0x88 0087 0801 | | Execute_Immediate Raise,0x1 0088 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0089 0000 0000 | | .XXX[0x3] 008b 0000 | | 008c 4000 0000 |@ | .DBL 2.0 008e 0000 0000 | | 0090 3fe0 0000 |? | .DBL 0.5 0092 0000 0000 | | 0094 3ff0 0000 |? | .DBL 1.0 0096 0000 0000 | | 0098 3f2f 6a88 |?/j | .DBL 0.00023968616989661923 009a 85a3 08d3 | | 009c 3ff9 2100 |? ! | .DBL 1.570556640625 009e 0000 0000 | | 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; Debug Table 00a0 ; -------------------------------------------------------------------------------------- 00a0 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f0e,0x0000,0x0001,0x0000 00a6 5125 3951 |Q%9Q| .XXX[0x50] 00a8 1549 0d21 | I !| 00aa 0539 1d14 | 9 | 00ac b911 5549 | UI| 00ae 0551 253d | Q%=| 00b0 3800 0000 |8 | 00b2 0088 6800 | h | 00b4 0000 7800 | x | 00b6 0000 0800 | | 00b8 0003 d801 | | 00ba 2aa2 920a |* | 00bc 729a 827a |r z| 00be 92a2 fa4a | J| 00c0 72a2 2a92 |r * | 00c2 1a42 0a72 | B r| 00c4 3a29 7282 |:)r | 00c6 aaa2 fa12 | | 00c8 caa2 2afa | * | 00ca 9aa2 924a | J| 00cc 7239 ebdc |r9 | 00ce a3f4 8118 | | 00d0 0022 4a72 | "Jr| 00d2 a278 b800 | x | 00d4 faa2 920a | | 00d6 729a 827a |r z| 00d8 92a2 fa4a | J| 00da 72a2 2a92 |r * | 00dc 1a42 0a72 | B r| 00de 3a29 729a |:)r | 00e0 a292 2a0a | * | 00e2 6afa 4a20 |j J | 00e4 03f4 8118 | | 00e6 0022 220a | "" | 00e8 a208 b800 | | 00ea ba4a 72a2 | Jr | 00ec 2a92 1a42 |* B| 00ee 0a72 3a29 | r:)| 00f0 7212 caa2 |r | 00f2 2afa 9aa2 |* | 00f4 924a 7238 | Jr8| 00f6 0000 0000 | | .BLANK 0000[0x4] 00fa 0180 0000 | | .XXX[0x84] 00fc 0010 0000 | | 00fe 0870 0205 | p | 0100 4524 14e5 |E$ | 0102 3504 f525 |5 %| 0104 45f4 94e5 |E | 0106 4455 2434 |DU$4| 0108 8414 e474 | t| 010a 52e5 6454 |R dT| 010c 3544 f522 |5D "| 010e e505 5543 | UC| 0110 d7b9 47e9 | G | 0112 0230 0044 | 0 D| 0114 94e5 44f1 | D | 0116 7001 f545 |p E| 0118 2414 e535 |$ 5| 011a 04f5 2545 | %E| 011c f494 e544 | D| 011e 5524 3484 |U$4 | 0120 14e4 7452 | tR| 0122 e535 4524 | 5E$| 0124 5414 d5f4 |T | 0126 9440 07e9 | @ | 0128 0230 0044 | 0 D| 012a 4415 4411 |D D | 012c 7002 8545 |p E| 012e 2414 e535 |$ 5| 0130 04f5 2545 | %E| 0132 f494 e544 | D| 0134 5524 3484 |U$4 | 0136 14e4 7452 | tR| 0138 e564 5435 | dT5| 013a 44f5 22e5 |D " | 013c 6454 3544 |dT5D| 013e f525 f545 | % E| 0140 9504 5000 | P | 0142 0000 0000 | | 0144 0000 0003 | | 0146 c000 0000 | | 0148 2000 000d | | 014a 2003 2a8a | * | 014c 4829 ca6a |H) j| 014e 09ea 4a8b | J | 0150 e929 ca88 | ) | 0152 aa48 6908 | Hi | 0154 29c8 e8a5 |) | 0156 c8e8 aa87 | | 0158 af72 8fd2 | r | 015a 0460 0088 | ` | 015c ca49 e9a2 | I | 015e e003 ea8a | | 0160 4829 ca6a |H) j| 0162 09ea 4a8b | J | 0164 e929 ca88 | ) | 0166 aa48 6908 | Hi | 0168 29c8 e8a5 |) | 016a ca6a 8a48 | j H| 016c a829 abe9 | ) | 016e 2880 0fb2 |( | 0170 04a0 0088 | | 0172 882a 8822 | * "| 0174 e002 2929 | ))| 0176 ca88 aa48 | H| 0178 6908 29c8 |i ) | 017a e8a5 c8c9 | | 017c 89e8 2a80 | * | 017e 0000 0000 | | .BLANK 0000[0x4] 0182 0240 0000 | @ | .XXX[0x7e] 0184 0040 0000 | @ | 0186 2340 0895 |#@ | 0188 1490 5394 | S | 018a d413 d495 | | 018c 17d2 5395 | S | 018e 1154 90d2 | T | 0190 1053 91d1 | S | 0192 4b91 1254 |K T| 0194 d0d4 9155 | U| 0196 114b 9415 | K | 0198 550f 5ee5 |U ^ | 019a 1fa4 08c0 | | 019c 0112 5395 | S | 019e 13c5 c007 | | 01a0 d514 9053 | S| 01a2 94d4 13d4 | | 01a4 9517 d253 | S| 01a6 9511 5490 | T | 01a8 d210 5391 | S | 01aa d14b 94d5 | K | 01ac 1491 5053 | PS| 01ae 57d2 5100 |W Q | 01b0 1fa4 08c0 | | 01b2 0111 1055 | U| 01b4 1045 c00b | E | 01b6 1514 9053 | S| 01b8 94d4 13d4 | | 01ba 9517 d253 | S| 01bc 9511 5490 | T | 01be d210 5391 | S | 01c0 d14b 9112 | K | 01c2 54d0 d491 |T | 01c4 5511 4b91 |U K | 01c6 1254 d0d4 | T | 01c8 9155 1157 | U W| 01ca d516 5411 | T | 01cc 4000 0000 |@ | 01ce 0000 0000 | | 01d0 000d 8000 | | 01d2 0000 8000 | | 01d4 0038 8012 | 8 | 01d6 aa29 20a7 | ) | 01d8 29a8 27a9 |) ' | 01da 2a2f a4a7 |*/ | 01dc 2a22 a921 |*" !| 01de a420 a723 | #| 01e0 a297 23a2 | # | 01e2 aa2f a12c | / ,| 01e4 aa22 afa9 | " | 01e6 aa29 24a7 | )$ | 01e8 239e bd4a |# J| 01ea 3f48 1180 |?H | 01ec 0223 2927 | #)'| 01ee a68b 800f | | 01f0 aa29 20a7 | ) | 01f2 29a8 27a9 |) ' | 01f4 2a2f a4a7 |*/ | 01f6 2a22 a921 |*" !| 01f8 a420 a723 | #| 01fa a297 29aa | ) | 01fc 2922 a0a6 |)" | 01fe afa4 a200 | |