|
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 01c0 | | .CONST 0x01c0 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 003d | = | .CONST 0x003d ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0018 | | .CONST 0x0018 ; 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 03d8 | | Declare_Variable Float,Duplicate 0014 00e2 | | Load_Encached Integer_Cache 0015 061a | | Execute_Immediate Set_Value_Unchecked,0x1a 0016 59a1 |Y | Indirect_Literal Float,0x1b8,0.693115234375 0017 e20e | | Load 0x1,0xe 0018 02bf | | Declare_Variable Float,With_Value,With_Constraint 0019 599a |Y | Indirect_Literal Float,0x1b4,3.1946184945309415e-05 001a e20e | | Load 0x1,0xe 001b 02bf | | Declare_Variable Float,With_Value,With_Constraint 001c 5993 |Y | Indirect_Literal Float,0x1b0,1.44140625 001d e20e | | Load 0x1,0xe 001e 02bf | | Declare_Variable Float,With_Value,With_Constraint 001f 598c |Y | Indirect_Literal Float,0x1ac,0.0012887908889634072 0020 e20e | | Load 0x1,0xe 0021 02bf | | Declare_Variable Float,With_Value,With_Constraint 0022 5985 |Y | Indirect_Literal Float,0x1a8,1.4426950408889634 0023 e20e | | Load 0x1,0xe 0024 02bf | | Declare_Variable Float,With_Value,With_Constraint 0025 597e |Y~ | Indirect_Literal Float,0x1a4,0.43408203125 0026 e20e | | Load 0x1,0xe 0027 02bf | | Declare_Variable Float,With_Value,With_Constraint 0028 5977 |Yw | Indirect_Literal Float,0x1a0,0.00021245065325182765 0029 e20e | | Load 0x1,0xe 002a 02bf | | Declare_Variable Float,With_Value,With_Constraint 002b 5970 |Yp | Indirect_Literal Float,0x19c,0.4342944819032518 002c e20e | | Load 0x1,0xe 002d 02bf | | Declare_Variable Float,With_Value,With_Constraint 002e 5969 |Yi | Indirect_Literal Float,0x198,0.301025390625 002f e20e | | Load 0x1,0xe 0030 02bf | | Declare_Variable Float,With_Value,With_Constraint 0031 5962 |Yb | Indirect_Literal Float,0x194,4.605038981195213e-06 0032 e20e | | Load 0x1,0xe 0033 02bf | | Declare_Variable Float,With_Value,With_Constraint 0034 595b |Y[ | Indirect_Literal Float,0x190,0.360595703125 0035 e20e | | Load 0x1,0xe 0036 02bf | | Declare_Variable Float,With_Value,With_Constraint 0037 5954 |YT | Indirect_Literal Float,0x18c,7.805709724085183e-05 0038 e20e | | Load 0x1,0xe 0039 02bf | | Declare_Variable Float,With_Value,With_Constraint 003a 594d |YM | Indirect_Literal Float,0x188,0.36067376022224085 003b e20e | | Load 0x1,0xe 003c 02bf | | Declare_Variable Float,With_Value,With_Constraint 003d BODY_0008: 003d e5ff | | Load 0x2,-0x1 003e 00d8 | | Load_Top At_Offset_0 003f e20e | | Load 0x1,0xe 0040 0234 | 4 | Execute Float,In_Type 0041 7001 |p | Jump_Nonzero 0x43 0042 0801 | | Execute_Immediate Raise,0x1 0043 c402 | | Store 0x2,0x2 0044 e5fe | | Load 0x2,-0x2 0045 0149 | I | Execute Float,Less_Equal_Zero 0046 e5fe | | Load 0x2,-0x2 0047 593c |Y< | Indirect_Literal Float,0x184,1.0 0048 0247 | G | Execute Float,Equal 0049 0278 | x | Execute Discrete,Or 004a 6802 |h | Jump_Zero 0x4d 004b e006 | | Load 0x0,0x6 004c 0257 | W | Execute Discrete,Raise 004d e402 | | Load 0x2,0x2 004e 7001 |p | Jump_Nonzero 0x50 004f 08e0 | | Execute_Immediate Raise,0xe0 0050 e402 | | Load 0x2,0x2 0051 014b | K | Execute Float,Less_Zero 0052 6802 |h | Jump_Zero 0x55 0053 e006 | | Load 0x0,0x6 0054 0257 | W | Execute Discrete,Raise 0055 e20e | | Load 0x1,0xe 0056 00d8 | | Load_Top At_Offset_0 0057 e20e | | Load 0x1,0xe 0058 e402 | | Load 0x2,0x2 0059 e20e | | Load 0x1,0xe 005a 0232 | 2 | Execute Float,Check_In_Type 005b 824b | K | Call 0x1,0x4b 005c c404 | | Store 0x2,0x4 005d c405 | | Store 0x2,0x5 005e c406 | | Store 0x2,0x6 005f e5fe | | Load 0x2,-0x2 0060 591f |Y | Indirect_Literal Float,0x180,2.0 0061 0247 | G | Execute Float,Equal 0062 6839 |h9 | Jump_Zero 0x9c 0063 e40b | | Load 0x2,0xb 0064 00d8 | | Load_Top At_Offset_0 0065 00e4 | | Load_Encached Positive_Cache 0066 0260 | ` | Execute Discrete,In_Type 0067 7001 |p | Jump_Nonzero 0x69 0068 0801 | | Execute_Immediate Raise,0x1 0069 e405 | | Load 0x2,0x5 006a e406 | | Load 0x2,0x6 006b 023d | = | Execute Float,Plus 006c e20e | | Load 0x1,0xe 006d 0232 | 2 | Execute Float,Check_In_Type 006e e004 | | Load 0x0,0x4 006f e230 | 0 | Load 0x1,0x30 0070 0096 | | Execute Package,Entry 0071 c407 | | Store 0x2,0x7 0072 e405 | | Load 0x2,0x5 0073 e407 | | Load 0x2,0x7 0074 023c | < | Execute Float,Minus 0075 e406 | | Load 0x2,0x6 0076 023d | = | Execute Float,Plus 0077 c408 | | Store 0x2,0x8 0078 e407 | | Load 0x2,0x7 0079 5932 |Y2 | Indirect_Literal Float,0x1ac,0.0012887908889634072 007a 023b | ; | Execute Float,Times 007b e408 | | Load 0x2,0x8 007c 592b |Y+ | Indirect_Literal Float,0x1a8,1.4426950408889634 007d 023b | ; | Execute Float,Times 007e 023d | = | Execute Float,Plus 007f c408 | | Store 0x2,0x8 0080 e407 | | Load 0x2,0x7 0081 592e |Y. | Indirect_Literal Float,0x1b0,1.44140625 0082 023b | ; | Execute Float,Times 0083 c407 | | Store 0x2,0x7 0084 e404 | | Load 0x2,0x4 0085 7005 |p | Jump_Nonzero 0x8b 0086 e407 | | Load 0x2,0x7 0087 e408 | | Load 0x2,0x8 0088 023d | = | Execute Float,Plus 0089 c40a | | Store 0x2,0xa 008a 78e2 |x | Jump 0x16d 008b e404 | | Load 0x2,0x4 008c e407 | | Load 0x2,0x7 008d 023d | = | Execute Float,Plus 008e c405 | | Store 0x2,0x5 008f e404 | | Load 0x2,0x4 0090 e405 | | Load 0x2,0x5 0091 023c | < | Execute Float,Minus 0092 e407 | | Load 0x2,0x7 0093 023d | = | Execute Float,Plus 0094 e408 | | Load 0x2,0x8 0095 023d | = | Execute Float,Plus 0096 c406 | | Store 0x2,0x6 0097 e405 | | Load 0x2,0x5 0098 e406 | | Load 0x2,0x6 0099 023d | = | Execute Float,Plus 009a c40a | | Store 0x2,0xa 009b 78d1 |x | Jump 0x16d 009c e5fe | | Load 0x2,-0x2 009d 58de |X | Indirect_Literal Float,0x17c,10.0 009e 0247 | G | Execute Float,Equal 009f 6841 |hA | Jump_Zero 0xe1 00a0 e40b | | Load 0x2,0xb 00a1 00d8 | | Load_Top At_Offset_0 00a2 00e4 | | Load_Encached Positive_Cache 00a3 0260 | ` | Execute Discrete,In_Type 00a4 7001 |p | Jump_Nonzero 0xa6 00a5 0801 | | Execute_Immediate Raise,0x1 00a6 e405 | | Load 0x2,0x5 00a7 e406 | | Load 0x2,0x6 00a8 023d | = | Execute Float,Plus 00a9 e20e | | Load 0x1,0xe 00aa 0232 | 2 | Execute Float,Check_In_Type 00ab e004 | | Load 0x0,0x4 00ac e230 | 0 | Load 0x1,0x30 00ad 0096 | | Execute Package,Entry 00ae c407 | | Store 0x2,0x7 00af e405 | | Load 0x2,0x5 00b0 e407 | | Load 0x2,0x7 00b1 023c | < | Execute Float,Minus 00b2 e406 | | Load 0x2,0x6 00b3 023d | = | Execute Float,Plus 00b4 c408 | | Store 0x2,0x8 00b5 e407 | | Load 0x2,0x7 00b6 58e9 |X | Indirect_Literal Float,0x1a0,0.00021245065325182765 00b7 023b | ; | Execute Float,Times 00b8 e408 | | Load 0x2,0x8 00b9 58e2 |X | Indirect_Literal Float,0x19c,0.4342944819032518 00ba 023b | ; | Execute Float,Times 00bb 023d | = | Execute Float,Plus 00bc c408 | | Store 0x2,0x8 00bd e407 | | Load 0x2,0x7 00be 58e5 |X | Indirect_Literal Float,0x1a4,0.43408203125 00bf 023b | ; | Execute Float,Times 00c0 c407 | | Store 0x2,0x7 00c1 e404 | | Load 0x2,0x4 00c2 7005 |p | Jump_Nonzero 0xc8 00c3 e407 | | Load 0x2,0x7 00c4 e408 | | Load 0x2,0x8 00c5 023d | = | Execute Float,Plus 00c6 c40a | | Store 0x2,0xa 00c7 78a5 |x | Jump 0x16d 00c8 e404 | | Load 0x2,0x4 00c9 58ce |X | Indirect_Literal Float,0x198,0.301025390625 00ca 023b | ; | Execute Float,Times 00cb c402 | | Store 0x2,0x2 00cc e402 | | Load 0x2,0x2 00cd e407 | | Load 0x2,0x7 00ce 023d | = | Execute Float,Plus 00cf c405 | | Store 0x2,0x5 00d0 e402 | | Load 0x2,0x2 00d1 e405 | | Load 0x2,0x5 00d2 023c | < | Execute Float,Minus 00d3 e407 | | Load 0x2,0x7 00d4 023d | = | Execute Float,Plus 00d5 e408 | | Load 0x2,0x8 00d6 e404 | | Load 0x2,0x4 00d7 58bc |X | Indirect_Literal Float,0x194,4.605038981195213e-06 00d8 023b | ; | Execute Float,Times 00d9 023d | = | Execute Float,Plus 00da 023d | = | Execute Float,Plus 00db c406 | | Store 0x2,0x6 00dc e405 | | Load 0x2,0x5 00dd e406 | | Load 0x2,0x6 00de 023d | = | Execute Float,Plus 00df c40a | | Store 0x2,0xa 00e0 788c |x | Jump 0x16d 00e1 e5fe | | Load 0x2,-0x2 00e2 5895 |X | Indirect_Literal Float,0x178,16.0 00e3 0247 | G | Execute Float,Equal 00e4 683d |h= | Jump_Zero 0x122 00e5 e40b | | Load 0x2,0xb 00e6 00d8 | | Load_Top At_Offset_0 00e7 00e4 | | Load_Encached Positive_Cache 00e8 0260 | ` | Execute Discrete,In_Type 00e9 7001 |p | Jump_Nonzero 0xeb 00ea 0801 | | Execute_Immediate Raise,0x1 00eb e405 | | Load 0x2,0x5 00ec e406 | | Load 0x2,0x6 00ed 023d | = | Execute Float,Plus 00ee e20e | | Load 0x1,0xe 00ef 0232 | 2 | Execute Float,Check_In_Type 00f0 e004 | | Load 0x0,0x4 00f1 e230 | 0 | Load 0x1,0x30 00f2 0096 | | Execute Package,Entry 00f3 c407 | | Store 0x2,0x7 00f4 e405 | | Load 0x2,0x5 00f5 e407 | | Load 0x2,0x7 00f6 023c | < | Execute Float,Minus 00f7 e406 | | Load 0x2,0x6 00f8 023d | = | Execute Float,Plus 00f9 c408 | | Store 0x2,0x8 00fa e407 | | Load 0x2,0x7 00fb 5890 |X | Indirect_Literal Float,0x18c,7.805709724085183e-05 00fc 023b | ; | Execute Float,Times 00fd e408 | | Load 0x2,0x8 00fe 5889 |X | Indirect_Literal Float,0x188,0.36067376022224085 00ff 023b | ; | Execute Float,Times 0100 023d | = | Execute Float,Plus 0101 c408 | | Store 0x2,0x8 0102 e407 | | Load 0x2,0x7 0103 588c |X | Indirect_Literal Float,0x190,0.360595703125 0104 023b | ; | Execute Float,Times 0105 c407 | | Store 0x2,0x7 0106 e404 | | Load 0x2,0x4 0107 7005 |p | Jump_Nonzero 0x10d 0108 e407 | | Load 0x2,0x7 0109 e408 | | Load 0x2,0x8 010a 023d | = | Execute Float,Plus 010b c40a | | Store 0x2,0xa 010c 7860 |x` | Jump 0x16d 010d e404 | | Load 0x2,0x4 010e 5865 |Xe | Indirect_Literal Float,0x174,0.25 010f 023b | ; | Execute Float,Times 0110 c404 | | Store 0x2,0x4 0111 e404 | | Load 0x2,0x4 0112 e407 | | Load 0x2,0x7 0113 023d | = | Execute Float,Plus 0114 c405 | | Store 0x2,0x5 0115 e404 | | Load 0x2,0x4 0116 e405 | | Load 0x2,0x5 0117 023c | < | Execute Float,Minus 0118 e407 | | Load 0x2,0x7 0119 023d | = | Execute Float,Plus 011a e408 | | Load 0x2,0x8 011b 023d | = | Execute Float,Plus 011c c406 | | Store 0x2,0x6 011d e405 | | Load 0x2,0x5 011e e406 | | Load 0x2,0x6 011f 023d | = | Execute Float,Plus 0120 c40a | | Store 0x2,0xa 0121 784b |xK | Jump 0x16d 0122 e5fe | | Load 0x2,-0x2 0123 00d8 | | Load_Top At_Offset_0 0124 e20e | | Load 0x1,0xe 0125 0234 | 4 | Execute Float,In_Type 0126 7001 |p | Jump_Nonzero 0x128 0127 0801 | | Execute_Immediate Raise,0x1 0128 c403 | | Store 0x2,0x3 0129 e20e | | Load 0x1,0xe 012a 00d8 | | Load_Top At_Offset_0 012b e20e | | Load 0x1,0xe 012c e403 | | Load 0x2,0x3 012d e20e | | Load 0x1,0xe 012e 0232 | 2 | Execute Float,Check_In_Type 012f 824b | K | Call 0x1,0x4b 0130 c404 | | Store 0x2,0x4 0131 c405 | | Store 0x2,0x5 0132 c406 | | Store 0x2,0x6 0133 e404 | | Load 0x2,0x4 0134 7005 |p | Jump_Nonzero 0x13a 0135 e405 | | Load 0x2,0x5 0136 e406 | | Load 0x2,0x6 0137 023d | = | Execute Float,Plus 0138 c409 | | Store 0x2,0x9 0139 780e |x | Jump 0x148 013a e404 | | Load 0x2,0x4 013b 5878 |Xx | Indirect_Literal Float,0x1b4,3.1946184945309415e-05 013c 023b | ; | Execute Float,Times 013d e406 | | Load 0x2,0x6 013e 023d | = | Execute Float,Plus 013f c409 | | Store 0x2,0x9 0140 e404 | | Load 0x2,0x4 0141 5876 |Xv | Indirect_Literal Float,0x1b8,0.693115234375 0142 023b | ; | Execute Float,Times 0143 e405 | | Load 0x2,0x5 0144 023d | = | Execute Float,Plus 0145 e409 | | Load 0x2,0x9 0146 023d | = | Execute Float,Plus 0147 c409 | | Store 0x2,0x9 0148 e20e | | Load 0x1,0xe 0149 00d8 | | Load_Top At_Offset_0 014a e20e | | Load 0x1,0xe 014b e402 | | Load 0x2,0x2 014c e20e | | Load 0x1,0xe 014d 0232 | 2 | Execute Float,Check_In_Type 014e 824b | K | Call 0x1,0x4b 014f c404 | | Store 0x2,0x4 0150 c405 | | Store 0x2,0x5 0151 c406 | | Store 0x2,0x6 0152 e404 | | Load 0x2,0x4 0153 7007 |p | Jump_Nonzero 0x15b 0154 e405 | | Load 0x2,0x5 0155 e406 | | Load 0x2,0x6 0156 023d | = | Execute Float,Plus 0157 e409 | | Load 0x2,0x9 0158 023a | : | Execute Float,Divide 0159 c40a | | Store 0x2,0xa 015a 7812 |x | Jump 0x16d 015b e404 | | Load 0x2,0x4 015c 5857 |XW | Indirect_Literal Float,0x1b4,3.1946184945309415e-05 015d 023b | ; | Execute Float,Times 015e e406 | | Load 0x2,0x6 015f 023d | = | Execute Float,Plus 0160 c40a | | Store 0x2,0xa 0161 e404 | | Load 0x2,0x4 0162 5855 |XU | Indirect_Literal Float,0x1b8,0.693115234375 0163 023b | ; | Execute Float,Times 0164 e405 | | Load 0x2,0x5 0165 023d | = | Execute Float,Plus 0166 e40a | | Load 0x2,0xa 0167 023d | = | Execute Float,Plus 0168 c40a | | Store 0x2,0xa 0169 e40a | | Load 0x2,0xa 016a e409 | | Load 0x2,0x9 016b 023a | : | Execute Float,Divide 016c c40a | | Store 0x2,0xa 016d e40a | | Load 0x2,0xa 016e 00d8 | | Load_Top At_Offset_0 016f e20e | | Load 0x1,0xe 0170 0234 | 4 | Execute Float,In_Type 0171 7001 |p | Jump_Nonzero 0x173 0172 0801 | | Execute_Immediate Raise,0x1 0173 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0174 3fd0 0000 |? | .DBL 0.25 0176 0000 0000 | | 0178 4030 0000 |@0 | .DBL 16.0 017a 0000 0000 | | 017c 4024 0000 |@$ | .DBL 10.0 017e 0000 0000 | | 0180 4000 0000 |@ | .DBL 2.0 0182 0000 0000 | | 0184 3ff0 0000 |? | .DBL 1.0 0186 0000 0000 | | 0188 3fd7 1547 |? G| .DBL 0.36067376022224085 018a 652b 82fe |e+ | 018c 3f14 7652 |? vR| .DBL 7.805709724085183e-05 018e b82f e177 | / w| 0190 3fd7 1400 |? | .DBL 0.360595703125 0192 0000 0000 | | 0194 3ed3 509f |> P | .DBL 4.605038981195213e-06 0196 79fe f311 |y | 0198 3fd3 4400 |? D | .DBL 0.301025390625 019a 0000 0000 | | 019c 3fdb cb7b |? {| .DBL 0.4342944819032518 019e 1526 e50e | & | 01a0 3f2b d8a9 |?+ | .DBL 0.00021245065325182765 01a2 3728 7195 |7(q | 01a4 3fdb c800 |? | .DBL 0.43408203125 01a6 0000 0000 | | 01a8 3ff7 1547 |? G| .DBL 1.4426950408889634 01aa 652b 82fe |e+ | 01ac 3f55 1d94 |?U | .DBL 0.0012887908889634072 01ae ae0b f85d | ]| 01b0 3ff7 1000 |? | .DBL 1.44140625 01b2 0000 0000 | | 01b4 3f00 bfbe |? | .DBL 3.1946184945309415e-05 01b6 8e7b cd5e | { ^| 01b8 3fe6 2e00 |? . | .DBL 0.693115234375 01ba 0000 0000 | | 01bc 0000 0000 | | .BLANK 0000[0x4] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; Debug Table 01c0 ; -------------------------------------------------------------------------------------- 01c0 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f25,0x0000,0x0001,0x0000 01c6 0057 33c5 | W3 | .XXX[0x3a] 01c8 0000 0011 | | 01ca 00e3 09a4 | | 01cc 0002 0000 | | 01ce 0057 33c5 | W3 | 01d0 0000 001e | | 01d2 00fb 09b0 | | 01d4 0002 0000 | | 01d6 0057 33c5 | W3 | 01d8 0000 0029 | )| 01da 012b 09c6 | + | 01dc 0002 0000 | | 01de 0057 33c5 | W3 | 01e0 0000 0036 | 6| 01e2 016b 09f6 | k | 01e4 0001 0000 | | 01e6 0057 33c5 | W3 | 01e8 0000 0041 | A| 01ea 017b 09fa | { | 01ec 0002 0000 | | 01ee 0057 33c5 | W3 | 01f0 0000 0045 | E| 01f2 019b 0a08 | | 01f4 0002 0000 | | 01f6 0057 33c5 | W3 | 01f8 0000 0052 | R| 01fa 01a3 0a0c | | 01fc 0002 0000 | | 01fe 0057 33c5 | W3 |