|
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 0110 | | .CONST 0x0110 ; 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 0020 | | .CONST 0x0020 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000e | | .CONST 0x000e ; 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 00e1 | | Load_Encached Boolean_Cache 0014 58f3 |X | Indirect_Literal Float,0x108,3.141357421875 0015 e20e | | Load 0x1,0xe 0016 02bf | | Declare_Variable Float,With_Value,With_Constraint 0017 58ec |X | Indirect_Literal Float,0x104,1.570556640625 0018 e20e | | Load 0x1,0xe 0019 02bf | | Declare_Variable Float,With_Value,With_Constraint 001a 58e5 |X | Indirect_Literal Float,0x100,0.00023523171479323846 001b e20e | | Load 0x1,0xe 001c 02bf | | Declare_Variable Float,With_Value,With_Constraint 001d 58de |X | Indirect_Literal Float,0xfc,0.00023968616989661923 001e e20e | | Load 0x1,0xe 001f 02bf | | Declare_Variable Float,With_Value,With_Constraint 0020 BODY_0008: 0020 e5fe | | Load 0x2,-0x2 0021 00d8 | | Load_Top At_Offset_0 0022 e20e | | Load 0x1,0xe 0023 0234 | 4 | Execute Float,In_Type 0024 7001 |p | Jump_Nonzero 0x26 0025 0801 | | Execute_Immediate Raise,0x1 0026 c402 | | Store 0x2,0x2 0027 e402 | | Load 0x2,0x2 0028 e20e | | Load 0x1,0xe 0029 0232 | 2 | Execute Float,Check_In_Type 002a 58cd |X | Indirect_Literal Float,0xf8,1.0 002b e20e | | Load 0x1,0xe 002c 0232 | 2 | Execute Float,Check_In_Type 002d e00b | | Load 0x0,0xb 002e e230 | 0 | Load 0x1,0x30 002f 0096 | | Execute Package,Entry 0030 c404 | | Store 0x2,0x4 0031 e402 | | Load 0x2,0x2 0032 023e | > | Execute Float,Absolute_Value 0033 c402 | | Store 0x2,0x2 0034 e5ff | | Load 0x2,-0x1 0035 00d8 | | Load_Top At_Offset_0 0036 e20e | | Load 0x1,0xe 0037 0234 | 4 | Execute Float,In_Type 0038 7001 |p | Jump_Nonzero 0x3a 0039 0801 | | Execute_Immediate Raise,0x1 003a c403 | | Store 0x2,0x3 003b e403 | | Load 0x2,0x3 003c e20e | | Load 0x1,0xe 003d 0232 | 2 | Execute Float,Check_In_Type 003e 58b9 |X | Indirect_Literal Float,0xf8,1.0 003f e20e | | Load 0x1,0xe 0040 0232 | 2 | Execute Float,Check_In_Type 0041 e00b | | Load 0x0,0xb 0042 e230 | 0 | Load 0x1,0x30 0043 0096 | | Execute Package,Entry 0044 c405 | | Store 0x2,0x5 0045 e403 | | Load 0x2,0x3 0046 023e | > | Execute Float,Absolute_Value 0047 c403 | | Store 0x2,0x3 0048 e403 | | Load 0x2,0x3 0049 7020 |p | Jump_Nonzero 0x6a 004a e402 | | Load 0x2,0x2 004b 7002 |p | Jump_Nonzero 0x4e 004c e006 | | Load 0x0,0x6 004d 0257 | W | Execute Discrete,Raise 004e e404 | | Load 0x2,0x4 004f 58a8 |X | Indirect_Literal Float,0xf8,1.0 0050 0247 | G | Execute Float,Equal 0051 680f |h | Jump_Zero 0x61 0052 e405 | | Load 0x2,0x5 0053 e20e | | Load 0x1,0xe 0054 0232 | 2 | Execute Float,Check_In_Type 0055 589e |X | Indirect_Literal Float,0xf4,0.0 0056 e20e | | Load 0x1,0xe 0057 0232 | 2 | Execute Float,Check_In_Type 0058 e00b | | Load 0x0,0xb 0059 e230 | 0 | Load 0x1,0x30 005a 0096 | | Execute Package,Entry 005b 00d8 | | Load_Top At_Offset_0 005c e20e | | Load 0x1,0xe 005d 0234 | 4 | Execute Float,In_Type 005e 7001 |p | Jump_Nonzero 0x60 005f 0801 | | Execute_Immediate Raise,0x1 0060 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0061 e405 | | Load 0x2,0x5 0062 588d |X | Indirect_Literal Float,0xf0,3.141592653589793 0063 023b | ; | Execute Float,Times 0064 00d8 | | Load_Top At_Offset_0 0065 e20e | | Load 0x1,0xe 0066 0234 | 4 | Execute Float,In_Type 0067 7001 |p | Jump_Nonzero 0x69 0068 0801 | | Execute_Immediate Raise,0x1 0069 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 006a e402 | | Load 0x2,0x2 006b 7009 |p | Jump_Nonzero 0x75 006c e405 | | Load 0x2,0x5 006d 587e |X~ | Indirect_Literal Float,0xec,1.5707963267948966 006e 023b | ; | Execute Float,Times 006f 00d8 | | Load_Top At_Offset_0 0070 e20e | | Load 0x1,0xe 0071 0234 | 4 | Execute Float,In_Type 0072 7001 |p | Jump_Nonzero 0x74 0073 0801 | | Execute_Immediate Raise,0x1 0074 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0075 e402 | | Load 0x2,0x2 0076 e403 | | Load 0x2,0x3 0077 0247 | G | Execute Float,Equal 0078 6816 |h | Jump_Zero 0x8f 0079 e404 | | Load 0x2,0x4 007a 587d |X} | Indirect_Literal Float,0xf8,1.0 007b 0247 | G | Execute Float,Equal 007c 6809 |h | Jump_Zero 0x86 007d e405 | | Load 0x2,0x5 007e 5869 |Xi | Indirect_Literal Float,0xe8,0.7853981633974483 007f 023b | ; | Execute Float,Times 0080 00d8 | | Load_Top At_Offset_0 0081 e20e | | Load 0x1,0xe 0082 0234 | 4 | Execute Float,In_Type 0083 7001 |p | Jump_Nonzero 0x85 0084 0801 | | Execute_Immediate Raise,0x1 0085 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0086 e405 | | Load 0x2,0x5 0087 585c |X\ | Indirect_Literal Float,0xe4,2.356194490192345 0088 023b | ; | Execute Float,Times 0089 00d8 | | Load_Top At_Offset_0 008a e20e | | Load 0x1,0xe 008b 0234 | 4 | Execute Float,In_Type 008c 7001 |p | Jump_Nonzero 0x8e 008d 0801 | | Execute_Immediate Raise,0x1 008e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 008f e402 | | Load 0x2,0x2 0090 e403 | | Load 0x2,0x3 0091 0244 | D | Execute Float,Less 0092 6809 |h | Jump_Zero 0x9c 0093 4801 |H | Short_Literal 0x1 0094 a40a | | Store_Unchecked 0x2,0xa 0095 e402 | | Load 0x2,0x2 0096 c406 | | Store 0x2,0x6 0097 e403 | | Load 0x2,0x3 0098 c402 | | Store 0x2,0x2 0099 e406 | | Load 0x2,0x6 009a c403 | | Store 0x2,0x3 009b 7802 |x | Jump 0x9e 009c 4800 |H | Short_Literal 0x0 009d a40a | | Store_Unchecked 0x2,0xa 009e e20e | | Load 0x1,0xe 009f 00d8 | | Load_Top At_Offset_0 00a0 e402 | | Load 0x2,0x2 00a1 e20e | | Load 0x1,0xe 00a2 0232 | 2 | Execute Float,Check_In_Type 00a3 e403 | | Load 0x2,0x3 00a4 e20e | | Load 0x1,0xe 00a5 0232 | 2 | Execute Float,Check_In_Type 00a6 8255 | U | Call 0x1,0x55 00a7 c407 | | Store 0x2,0x7 00a8 c408 | | Store 0x2,0x8 00a9 e40a | | Load 0x2,0xa 00aa 7012 |p | Jump_Nonzero 0xbd 00ab e404 | | Load 0x2,0x4 00ac 584b |XK | Indirect_Literal Float,0xf8,1.0 00ad 0247 | G | Execute Float,Equal 00ae 6805 |h | Jump_Zero 0xb4 00af e407 | | Load 0x2,0x7 00b0 e408 | | Load 0x2,0x8 00b1 023d | = | Execute Float,Plus 00b2 c409 | | Store 0x2,0x9 00b3 781e |x | Jump 0xd2 00b4 5853 |XS | Indirect_Literal Float,0x108,3.141357421875 00b5 e407 | | Load 0x2,0x7 00b6 023c | < | Execute Float,Minus 00b7 5848 |XH | Indirect_Literal Float,0x100,0.00023523171479323846 00b8 e408 | | Load 0x2,0x8 00b9 023c | < | Execute Float,Minus 00ba 023d | = | Execute Float,Plus 00bb c409 | | Store 0x2,0x9 00bc 7815 |x | Jump 0xd2 00bd e404 | | Load 0x2,0x4 00be 5839 |X9 | Indirect_Literal Float,0xf8,1.0 00bf 0247 | G | Execute Float,Equal 00c0 6809 |h | Jump_Zero 0xca 00c1 5842 |XB | Indirect_Literal Float,0x104,1.570556640625 00c2 e407 | | Load 0x2,0x7 00c3 023c | < | Execute Float,Minus 00c4 5837 |X7 | Indirect_Literal Float,0xfc,0.00023968616989661923 00c5 e408 | | Load 0x2,0x8 00c6 023c | < | Execute Float,Minus 00c7 023d | = | Execute Float,Plus 00c8 c409 | | Store 0x2,0x9 00c9 7808 |x | Jump 0xd2 00ca 5839 |X9 | Indirect_Literal Float,0x104,1.570556640625 00cb e407 | | Load 0x2,0x7 00cc 023d | = | Execute Float,Plus 00cd 582e |X. | Indirect_Literal Float,0xfc,0.00023968616989661923 00ce e408 | | Load 0x2,0x8 00cf 023d | = | Execute Float,Plus 00d0 023d | = | Execute Float,Plus 00d1 c409 | | Store 0x2,0x9 00d2 e405 | | Load 0x2,0x5 00d3 e20e | | Load 0x1,0xe 00d4 0232 | 2 | Execute Float,Check_In_Type 00d5 e409 | | Load 0x2,0x9 00d6 e20e | | Load 0x1,0xe 00d7 0232 | 2 | Execute Float,Check_In_Type 00d8 e00b | | Load 0x0,0xb 00d9 e230 | 0 | Load 0x1,0x30 00da 0096 | | Execute Package,Entry 00db 00d8 | | Load_Top At_Offset_0 00dc e20e | | Load 0x1,0xe 00dd 0234 | 4 | Execute Float,In_Type 00de 7001 |p | Jump_Nonzero 0xe0 00df 0801 | | Execute_Immediate Raise,0x1 00e0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00e1 0000 0000 | | .XXX[0x3] 00e3 0000 | | 00e4 4002 d97c |@ || .DBL 2.356194490192345 00e6 7f33 21d2 | 3! | 00e8 3fe9 21fb |? ! | .DBL 0.7853981633974483 00ea 5444 2d18 |TD- | 00ec 3ff9 21fb |? ! | .DBL 1.5707963267948966 00ee 5444 2d18 |TD- | 00f0 4009 21fb |@ ! | .DBL 3.141592653589793 00f2 5444 2d18 |TD- | 00f4 0000 0000 | | .DBL 0.0 00f6 0000 0000 | | 00f8 3ff0 0000 |? | .DBL 1.0 00fa 0000 0000 | | 00fc 3f2f 6a88 |?/j | .DBL 0.00023968616989661923 00fe 85a3 08d3 | | 0100 3f2e d511 |?. | .DBL 0.00023523171479323846 0102 0b46 11a6 | F | 0104 3ff9 2100 |? ! | .DBL 1.570556640625 0106 0000 0000 | | 0108 4009 2180 |@ ! | .DBL 3.141357421875 010a 0000 0000 | | 010c 0000 0000 | | .BLANK 0000[0x4] 0110 ; -------------------------------------------------------------------------------------- 0110 ; Debug Table 0110 ; -------------------------------------------------------------------------------------- 0110 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f10,0x0000,0x0001,0x0000 0116 0000 0028 | (| .XXX[0x1a] 0118 0000 0018 | | 011a 0002 6cb8 | l | 011c 07a3 6870 | hp| 011e 07a3 3ae8 | : | 0120 07a4 2dec | - | 0122 03d1 c984 | | 0124 0000 b00d | | 0126 2065 e175 | e u| 0128 0a35 c000 | 5 | 012a 0150 32f0 | P2 | 012c d21d 80e0 | | 012e 0000 a000 | | 0130 0000 0000 | | .BLANK 0000[0x4] 0134 7f86 8580 | | .XXX[0x21] 0136 0000 4000 | @ | 0138 7f8a 8580 | | 013a 0000 4000 | @ | 013c 0203 0802 | | 013e 2091 8000 | | 0140 0000 0000 | | 0142 1fe2 a160 | `| 0144 0000 1008 | | 0146 1978 5d45 | x]E| 0148 9060 0000 | ` | 014a 5000 0000 |P | 014c 9000 05f7 | | 014e e000 0000 | | 0150 2000 0000 | | 0152 4001 80c6 |@ | 0154 0088 | | 0155 0000 0000 | | .BLANK 0000[0x7] 015c 0206 5e17 | ^ | .XXX[0x13] 015e 5164 1800 |Qd | 0160 0014 0000 | | 0162 0024 0001 | $ | 0164 7df8 0000 |} | 0166 0008 0000 | | 0168 0010 0000 | | 016a 0018 0002 | | 016c 8c40 07a3 | @ | 016e 90f0 | | 016f 0000 0000 | | .BLANK 0000[0x4] 0173 03d1 ddc4 | | .XXX[0xe] 0175 0000 c194 | | 0177 2036 556a | 6Uj| 0179 0000 0000 | | 017b 0150 1b2a | P *| 017d b500 0000 | | 017f 0000 a000 | | 0181 0000 0000 | | .BLANK 0000[0x4] 0185 9d48 8580 | H | .XXX[0x9] 0187 0000 4000 | @ | 0189 9d4a 8580 | J | 018b 0000 4000 | @ | 018d 2600 |& | 018e 0000 0000 | | .BLANK 0000[0x5] 0193 2752 a160 |'R `| .XXX[0x9] 0195 0000 1008 | | 0197 0d95 5a80 | Z | 0199 0000 0000 | | 019b 5000 |P | 019c 0000 0000 | | .BLANK 0000[0x5] 01a1 2000 0000 | | .XXX[0x4] 01a3 0009 8000 | | 01a5 0000 0000 | | .BLANK 0000[0x8] 01ad 0206 5e2f | ^/| .XXX[0x5] 01af 737c 8000 |s| | 01b1 0014 | | 01b2 0000 0000 | | .BLANK 0000[0x5] 01b7 0008 0000 | | .XXX[0x28] 01b9 0000 0000 | | 01bb 0018 0002 | | 01bd abc8 07a3 | | 01bf b970 07a3 | p | 01c1 b468 07a4 | h | 01c3 0568 03d1 | h | 01c5 f204 0001 | | 01c7 4ed5 206d |N m| 01c9 5484 e690 |T | 01cb 4000 0490 |@ | 01cd 36aa 4376 |6 Cv| 01cf 6f80 0002 |o | 01d1 4000 0000 |@ | 01d3 0000 0000 | | 01d5 0001 60d4 | ` | 01d7 8580 0000 | | 01d9 4001 60d8 |@ ` | 01db 8580 0000 | | 01dd 4000 1e00 |@ | 01df 0000 0000 | | .BLANK 0000[0x5] 01e4 5836 2160 |X6!`| .XXX[0x12] 01e6 0000 1008 | | 01e8 1b55 213b | U!;| 01ea edb0 0001 | | 01ec 2000 0000 | | 01ee 9000 0730 | 0| 01f0 a000 0000 | | 01f2 2000 0000 | | 01f4 8009 8000 | | 01f6 0000 0000 | | .BLANK 0000[0x8] 01fe 0206 d548 | H| .XXX[0x2]