|
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 0088 | | .CONST 0x0088 ; 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 0022 | " | .CONST 0x0022 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0009 | | .CONST 0x0009 ; Number of locals 000b INIT_0008: 000b e20e | | Load 0x1,0xe 000c 03d8 | | Declare_Variable Float,Duplicate 000d e20e | | Load 0x1,0xe 000e 03d8 | | Declare_Variable Float,Duplicate 000f 5874 |Xt | Indirect_Literal Float,0x84,0.6931471805599453 0010 e20e | | Load 0x1,0xe 0011 02bf | | Declare_Variable Float,With_Value,With_Constraint 0012 4806 |H | Short_Literal 0x6 0013 e20e | | Load 0x1,0xe 0014 0122 | " | Execute Any,Make_Root_Type 0015 1c01 | | Execute_Immediate Run_Utility,0x1 0016 0271 | q | Execute Discrete,Times 0017 0237 | 7 | Execute Float,Convert_From_Discrete 0018 e20e | | Load 0x1,0xe 0019 0238 | 8 | Execute Float,Convert 001a 5865 |Xe | Indirect_Literal Float,0x80,1.3862943611198906 001b e20e | | Load 0x1,0xe 001c 02bf | | Declare_Variable Float,With_Value,With_Constraint 001d 00d9 | | Load_Top At_Offset_1 001e 5865 |Xe | Indirect_Literal Float,0x84,0.6931471805599453 001f 023b | ; | Execute Float,Times 0020 e20e | | Load 0x1,0xe 0021 02bf | | Declare_Variable Float,With_Value,With_Constraint 0022 BODY_0008: 0022 e5ff | | Load 0x2,-0x1 0023 00d8 | | Load_Top At_Offset_0 0024 e20e | | Load 0x1,0xe 0025 0234 | 4 | Execute Float,In_Type 0026 7001 |p | Jump_Nonzero 0x28 0027 0801 | | Execute_Immediate Raise,0x1 0028 c404 | | Store 0x2,0x4 0029 e404 | | Load 0x2,0x4 002a 7001 |p | Jump_Nonzero 0x2c 002b 08e0 | | Execute_Immediate Raise,0xe0 002c e404 | | Load 0x2,0x4 002d 023e | > | Execute Float,Absolute_Value 002e c405 | | Store 0x2,0x5 002f e404 | | Load 0x2,0x4 0030 014a | J | Execute Float,Greater_Equal_Zero 0031 6803 |h | Jump_Zero 0x35 0032 5849 |XI | Indirect_Literal Float,0x7c,1.0 0033 c403 | | Store 0x2,0x3 0034 7802 |x | Jump 0x37 0035 5842 |XB | Indirect_Literal Float,0x78,-1.0 0036 c403 | | Store 0x2,0x3 0037 e405 | | Load 0x2,0x5 0038 5847 |XG | Indirect_Literal Float,0x80,1.3862943611198906 0039 0242 | B | Execute Float,Less_Equal 003a 6816 |h | Jump_Zero 0x51 003b 5838 |X8 | Indirect_Literal Float,0x74,2.0 003c e405 | | Load 0x2,0x5 003d 023b | ; | Execute Float,Times 003e e20e | | Load 0x1,0xe 003f 0232 | 2 | Execute Float,Check_In_Type 0040 824f | O | Call 0x1,0x4f 0041 c402 | | Store 0x2,0x2 0042 e403 | | Load 0x2,0x3 0043 e402 | | Load 0x2,0x2 0044 582f |X/ | Indirect_Literal Float,0x74,2.0 0045 023d | = | Execute Float,Plus 0046 e402 | | Load 0x2,0x2 0047 023a | : | Execute Float,Divide 0048 023b | ; | Execute Float,Times 0049 c402 | | Store 0x2,0x2 004a e402 | | Load 0x2,0x2 004b 00d8 | | Load_Top At_Offset_0 004c e20e | | Load 0x1,0xe 004d 0234 | 4 | Execute Float,In_Type 004e 7001 |p | Jump_Nonzero 0x50 004f 0801 | | Execute_Immediate Raise,0x1 0050 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0051 e405 | | Load 0x2,0x5 0052 00d9 | | Load_Top At_Offset_1 0053 0245 | E | Execute Float,Greater 0054 6807 |h | Jump_Zero 0x5c 0055 e403 | | Load 0x2,0x3 0056 00d8 | | Load_Top At_Offset_0 0057 e20e | | Load 0x1,0xe 0058 0234 | 4 | Execute Float,In_Type 0059 7001 |p | Jump_Nonzero 0x5b 005a 0801 | | Execute_Immediate Raise,0x1 005b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 005c 5817 |X | Indirect_Literal Float,0x74,2.0 005d e405 | | Load 0x2,0x5 005e 023b | ; | Execute Float,Times 005f e20e | | Load 0x1,0xe 0060 0232 | 2 | Execute Float,Check_In_Type 0061 824f | O | Call 0x1,0x4f 0062 c402 | | Store 0x2,0x2 0063 e403 | | Load 0x2,0x3 0064 5817 |X | Indirect_Literal Float,0x7c,1.0 0065 580e |X | Indirect_Literal Float,0x74,2.0 0066 e402 | | Load 0x2,0x2 0067 023a | : | Execute Float,Divide 0068 023d | = | Execute Float,Plus 0069 023b | ; | Execute Float,Times 006a c402 | | Store 0x2,0x2 006b e402 | | Load 0x2,0x2 006c 00d8 | | Load_Top At_Offset_0 006d e20e | | Load 0x1,0xe 006e 0234 | 4 | Execute Float,In_Type 006f 7001 |p | Jump_Nonzero 0x71 0070 0801 | | Execute_Immediate Raise,0x1 0071 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0072 0000 0000 | | .XXX[0x2] 0074 4000 0000 |@ | .DBL 2.0 0076 0000 0000 | | 0078 bff0 0000 | | .DBL -1.0 007a 0000 0000 | | 007c 3ff0 0000 |? | .DBL 1.0 007e 0000 0000 | | 0080 3ff6 2e42 |? .B| .DBL 1.3862943611198906 0082 fefa 39ef | 9 | 0084 3fe6 2e42 |? .B| .DBL 0.6931471805599453 0086 fefa 39ef | 9 | 0088 ; -------------------------------------------------------------------------------------- 0088 ; Debug Table 0088 ; -------------------------------------------------------------------------------------- 0088 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f15,0x0000,0x0001,0x0000 008e 0000 1f6d | m| .XXX[0x5f] 0090 01a0 0000 | | 0092 0bc2 6df1 | m | 0094 0100 0000 | | 0096 0000 3eda | > | 0098 2300 0000 |# | 009a 1804 de76 | v| 009c 0200 0000 | | 009e 0000 7db4 | } | 00a0 8580 0000 | | 00a2 3109 b71c |1 | 00a4 0400 0000 | | 00a6 0000 fb69 | i| 00a8 8a00 0000 | | 00aa 7813 d140 |x @| 00ac 0800 0000 | | 00ae 0001 f6d4 | | 00b0 1200 0000 | | 00b2 f427 09d0 | ' | 00b4 1000 0000 | | 00b6 0003 edaa | | 00b8 2000 0002 | | 00ba 484f be80 |HO | 00bc 2000 0000 | | 00be 0007 db58 | X| 00c0 3800 0004 |8 | 00c2 a09f 8940 | @| 00c4 4000 0000 |@ | 00c6 000f b6b8 | | 00c8 6000 0009 |` | 00ca 613f 1c80 |a? | 00cc 8000 0000 | | 00ce 001f 6d80 | m | 00d0 b035 c000 | 5 | 00d2 0000 0000 | | 00d4 0000 1000 | | 00d6 0001 2000 | | 00d8 2aa3 8000 |* | 00da 0000 6000 | ` | 00dc 0000 001f | | 00de 6bc6 1412 |k | 00e0 22e4 2c00 |" , | 00e2 0000 0000 | | 00e4 0000 e529 | )| 00e6 e400 0000 | | 00e8 0003 eef3 | | 00ea f200 0000 | | 00ec 5000 |P | 00ed 0000 0000 | | .BLANK 0000[0x5] 00f2 8000 0003 | | .XXX[0x10e] 00f4 0000 0000 | | 00f6 0200 0000 | | 00f8 5042 8a9c |PB | 00fa ac92 a49e | | 00fc 9c9a 8a9c | | 00fe a85c a0a4 | \ | 0100 8aa8 a8b2 | | 0102 bea0 a492 | | 0104 9ca8 8aa4 | | 0106 5ca4 8aac |\ | 0108 6262 be6a |bb j| 010a bea6 a08a | | 010c 8700 0000 | | 010e 2300 0000 |# | 0110 0000 fb6e | n| 0112 a600 0000 | | 0114 4000 0001 |@ | 0116 5800 0000 |X | 0118 0100 0000 | | 011a 2321 544f |#!TO| 011c 4f4c 532e |OLS.| 011e 5052 4f47 |PROG| 0120 5241 4d5f |RAM_| 0122 4c49 4252 |LIBR| 0124 4152 592e |ARY.| 0126 5245 5631 |REV1| 0128 315f 315f |1_1_| 012a 5350 4543 |SPEC| 012c 8000 0012 | | 012e 0000 0000 | | 0130 007d b863 | } c| 0132 8000 0020 | | 0134 0000 00b0 | | 0136 0000 0000 | | 0138 8000 0012 | | 013a 10a2 a72b | +| 013c 24a9 27a7 |$ ' | 013e 26a2 a72a |& *| 0140 1724 a724 | $ $| 0142 aa24 a0a6 | $ | 0144 24ad 2297 |$ " | 0146 2922 ab18 |)" | 0148 98af 9aaf | | 014a a9a8 22a1 | " | 014c c000 0009 | | 014e c000 0000 | | 0150 003e dcb0 | > | 0152 0000 0010 | | 0154 0000 005e | ^| 0156 0000 0000 | | 0158 4000 0009 |@ | 015a c851 5395 | QS | 015c 9254 93d3 | T | 015e 9351 5395 | QS | 0160 0b93 d357 | W| 0162 d351 50d2 | QP | 0164 1053 9254 | S T| 0166 d354 cb94 | T | 0168 9155 8c4c | U L| 016a 57cd 57d4 |W W | 016c d411 50e0 | P | 016e 0000 0520 | | 0170 0000 0000 | | 0172 1f6e 9820 | n | 0174 0000 0800 | | 0176 0000 3100 | 1 | 0178 0000 0020 | | 017a 0000 0524 | $| 017c 28a9 cac9 |( | 017e 2a49 e9c9 |*I | 0180 a8a9 ca85 | | 0182 ca46 2606 | F& | 0184 060b e888 | | 0186 aa08 a9c8 | | 0188 88a9 ca85 | | 018a ca48 aac6 | H | 018c 262b e6ab |&+ | 018e ea6a 08a8 | j | 0190 7000 0002 |p | 0192 7000 0000 |p | 0194 000f b76d | m| 0196 a000 0004 | | 0198 0000 0017 | | 019a 8000 0000 | | 019c 1000 0002 | | 019e 7214 54e5 |r T | 01a0 6495 24f4 |d $ | 01a2 e4d4 54e5 | T | 01a4 42e5 5534 |B U4| 01a6 5525 f434 |U% 4| 01a8 f4d4 d414 | | 01aa e445 32e5 | E2 | 01ac 2455 6313 |$Uc | 01ae 15f3 55f5 | U | 01b0 3504 5438 |5 T8| 01b2 0000 0138 | 8| 01b4 0000 0000 | | 01b6 07db c818 | | 01b8 0000 0200 | | 01ba 0000 0bc0 | | 01bc 0000 0008 | | 01be 0000 0139 | 9| 01c0 0a2a 72b2 | *r | 01c2 4a92 7a72 |J zr| 01c4 6a2a 72a1 |j*r | 01c6 727a 1252 |rz R| 01c8 2a1a a2fa |* | 01ca 2a22 4aa2 |*"J | 01cc 7a91 7292 |z r | 01ce 2ab1 898a |* | 01d0 f9aa fa9a | | 01d2 822a 1c00 | * | 01d4 0000 8000 | | 01d6 0000 0003 | | 01d8 edec 7000 | p | 01da 0001 0000 | | 01dc 0005 0000 | | 01de 0000 0400 | | 01e0 0000 8085 | | 01e2 1539 5925 | 9Y%| 01e4 493d 3935 |I=95| 01e6 1539 50b9 | 9P | 01e8 2d15 4939 |- I9| 01ea 1530 b949 | 0 I| 01ec 1558 c4c5 | X | 01ee 7cd5 7d4d || }M| 01f0 4115 0e00 |A | 01f2 0000 5000 | P | 01f4 0000 0001 | | 01f6 f6fa 6a00 | j | 01f8 0000 8000 | | 01fa 0003 0000 | | 01fc 0000 0200 | | 01fe 0000 5042 | PB|