|
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 0100 | | .CONST 0x0100 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0055 | U | .CONST 0x0055 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; 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 03d8 | | Declare_Variable Float,Duplicate 0010 03d8 | | Declare_Variable Float,Duplicate 0011 03d8 | | Declare_Variable Float,Duplicate 0012 e22c | , | Load 0x1,0x2c 0013 03e9 | | Declare_Variable Discrete,Duplicate 0014 58e3 |X | Indirect_Literal Float,0xf8,1.0 0015 e20e | | Load 0x1,0xe 0016 02bf | | Declare_Variable Float,With_Value,With_Constraint 0017 58dc |X | Indirect_Literal Float,0xf4,0.6931471805599453 0018 e20e | | Load 0x1,0xe 0019 02bf | | Declare_Variable Float,With_Value,With_Constraint 001a 4806 |H | Short_Literal 0x6 001b e20e | | Load 0x1,0xe 001c 0122 | " | Execute Any,Make_Root_Type 001d 1c01 | | Execute_Immediate Run_Utility,0x1 001e 0271 | q | Execute Discrete,Times 001f 0237 | 7 | Execute Float,Convert_From_Discrete 0020 e20e | | Load 0x1,0xe 0021 0238 | 8 | Execute Float,Convert 0022 4ffd |O | Short_Literal -0x3 0023 4803 |H | Short_Literal 0x3 0024 e20e | | Load 0x1,0xe 0025 02a0 | | Declare_Subprogram Null_Subprogram 0026 4801 |H | Short_Literal 0x1 0027 035d | ] | Declare_Type Array,Defined 0028 00d8 | | Load_Top At_Offset_0 0029 0337 | 7 | Declare_Variable Array 002a 00d8 | | Load_Top At_Offset_0 002b 0335 | 5 | Declare_Variable Array,Duplicate 002c 00cd | | Action Spare6_Action 002d 58c2 |X | Indirect_Literal Float,0xf0,0.125 002e 4ffd |O | Short_Literal -0x3 002f 00da | | Load_Top At_Offset_2 0030 01d6 | | Execute Vector,Field_Write 0031 58ba |X | Indirect_Literal Float,0xec,0.25 0032 4ffe |O | Short_Literal -0x2 0033 00da | | Load_Top At_Offset_2 0034 01d6 | | Execute Vector,Field_Write 0035 58b2 |X | Indirect_Literal Float,0xe8,0.5 0036 4fff |O | Short_Literal -0x1 0037 00da | | Load_Top At_Offset_2 0038 01d6 | | Execute Vector,Field_Write 0039 58be |X | Indirect_Literal Float,0xf8,1.0 003a 4800 |H | Short_Literal 0x0 003b 00da | | Load_Top At_Offset_2 003c 01d6 | | Execute Vector,Field_Write 003d 58a6 |X | Indirect_Literal Float,0xe4,2.0 003e 4801 |H | Short_Literal 0x1 003f 00da | | Load_Top At_Offset_2 0040 01d6 | | Execute Vector,Field_Write 0041 589e |X | Indirect_Literal Float,0xe0,4.0 0042 4802 |H | Short_Literal 0x2 0043 00da | | Load_Top At_Offset_2 0044 01d6 | | Execute Vector,Field_Write 0045 5896 |X | Indirect_Literal Float,0xdc,8.0 0046 4803 |H | Short_Literal 0x3 0047 00da | | Load_Top At_Offset_2 0048 01d6 | | Execute Vector,Field_Write 0049 00d9 | | Load_Top At_Offset_1 004a 01d4 | | Execute Vector,Structure_Write 004b 5890 |X | Indirect_Literal Float,0xdc,8.0 004c 608b |` | Indirect_Literal Discrete,0xd8,{0x00000000, 0x00000400} 004d 0237 | 7 | Execute Float,Convert_From_Discrete 004e e20e | | Load 0x1,0xe 004f 0238 | 8 | Execute Float,Convert 0050 023b | ; | Execute Float,Times 0051 5882 |X | Indirect_Literal Float,0xd4,0.6931471805999999 0052 023b | ; | Execute Float,Times 0053 e20e | | Load 0x1,0xe 0054 02bf | | Declare_Variable Float,With_Value,With_Constraint 0055 BODY_0008: 0055 e5ff | | Load 0x2,-0x1 0056 7004 |p | Jump_Nonzero 0x5b 0057 e5ff | | Load 0x2,-0x1 0058 e20e | | Load 0x1,0xe 0059 0232 | 2 | Execute Float,Check_In_Type 005a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 005b e5ff | | Load 0x2,-0x1 005c 00d8 | | Load_Top At_Offset_0 005d e20e | | Load 0x1,0xe 005e 0234 | 4 | Execute Float,In_Type 005f 7001 |p | Jump_Nonzero 0x61 0060 0801 | | Execute_Immediate Raise,0x1 0061 c404 | | Store 0x2,0x4 0062 e404 | | Load 0x2,0x4 0063 014c | L | Execute Float,Greater_Zero 0064 6803 |h | Jump_Zero 0x68 0065 5892 |X | Indirect_Literal Float,0xf8,1.0 0066 c403 | | Store 0x2,0x3 0067 7802 |x | Jump 0x6a 0068 5867 |Xg | Indirect_Literal Float,0xd0,-1.0 0069 c403 | | Store 0x2,0x3 006a e404 | | Load 0x2,0x4 006b 023e | > | Execute Float,Absolute_Value 006c c405 | | Store 0x2,0x5 006d e405 | | Load 0x2,0x5 006e 00d9 | | Load_Top At_Offset_1 006f 0243 | C | Execute Float,Greater_Equal 0070 6801 |h | Jump_Zero 0x72 0071 08e0 | | Execute_Immediate Raise,0xe0 0072 00db | | Load_Top At_Offset_3 0073 5880 |X | Indirect_Literal Float,0xf4,0.6931471805599453 0074 023b | ; | Execute Float,Times 0075 c408 | | Store 0x2,0x8 0076 e405 | | Load 0x2,0x5 0077 e408 | | Load 0x2,0x8 0078 0243 | C | Execute Float,Greater_Equal 0079 683f |h? | Jump_Zero 0xb9 007a e20e | | Load 0x1,0xe 007b 00d8 | | Load_Top At_Offset_0 007c e22c | , | Load 0x1,0x2c 007d e405 | | Load 0x2,0x5 007e e20e | | Load 0x1,0xe 007f 0232 | 2 | Execute Float,Check_In_Type 0080 824e | N | Call 0x1,0x4e 0081 c409 | | Store 0x2,0x9 0082 c406 | | Store 0x2,0x6 0083 c407 | | Store 0x2,0x7 0084 e409 | | Load 0x2,0x9 0085 0aff | | Execute_Immediate Plus,-0x1 0086 a409 | | Store_Unchecked 0x2,0x9 0087 e231 | 1 | Load 0x1,0x31 0088 0f02 | | Execute_Immediate Equal,0x2 0089 701a |p | Jump_Nonzero 0xa4 008a e409 | | Load 0x2,0x9 008b 4804 |H | Short_Literal 0x4 008c 026f | o | Execute Discrete,Remainder 008d a40a | | Store_Unchecked 0x2,0xa 008e e409 | | Load 0x2,0x9 008f e40a | | Load 0x2,0xa 0090 0272 | r | Execute Discrete,Minus 0091 09fe | | Execute_Immediate Binary_Scale,-0x2 0092 a409 | | Store_Unchecked 0x2,0x9 0093 e406 | | Load 0x2,0x6 0094 e40a | | Load 0x2,0xa 0095 00db | | Load_Top At_Offset_3 0096 01d7 | | Execute Vector,Field_Read 0097 023b | ; | Execute Float,Times 0098 c406 | | Store 0x2,0x6 0099 e407 | | Load 0x2,0x7 009a e40a | | Load 0x2,0xa 009b 00db | | Load_Top At_Offset_3 009c 01d7 | | Execute Vector,Field_Read 009d 023b | ; | Execute Float,Times 009e c407 | | Store 0x2,0x7 009f e406 | | Load 0x2,0x6 00a0 e407 | | Load 0x2,0x7 00a1 023d | = | Execute Float,Plus 00a2 c404 | | Store 0x2,0x4 00a3 7804 |x | Jump 0xa8 00a4 e406 | | Load 0x2,0x6 00a5 e407 | | Load 0x2,0x7 00a6 023d | = | Execute Float,Plus 00a7 c404 | | Store 0x2,0x4 00a8 e403 | | Load 0x2,0x3 00a9 e409 | | Load 0x2,0x9 00aa e404 | | Load 0x2,0x4 00ab e20e | | Load 0x1,0xe 00ac 0232 | 2 | Execute Float,Check_In_Type 00ad e00a | | Load 0x0,0xa 00ae e230 | 0 | Load 0x1,0x30 00af 0096 | | Execute Package,Entry 00b0 023b | ; | Execute Float,Times 00b1 c402 | | Store 0x2,0x2 00b2 e402 | | Load 0x2,0x2 00b3 00d8 | | Load_Top At_Offset_0 00b4 e20e | | Load 0x1,0xe 00b5 0234 | 4 | Execute Float,In_Type 00b6 7001 |p | Jump_Nonzero 0xb8 00b7 0801 | | Execute_Immediate Raise,0x1 00b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b9 e405 | | Load 0x2,0x5 00ba e20e | | Load 0x1,0xe 00bb 0232 | 2 | Execute Float,Check_In_Type 00bc 824f | O | Call 0x1,0x4f 00bd c402 | | Store 0x2,0x2 00be e403 | | Load 0x2,0x3 00bf 5828 |X( | Indirect_Literal Float,0xe8,0.5 00c0 023b | ; | Execute Float,Times 00c1 e402 | | Load 0x2,0x2 00c2 00d8 | | Load_Top At_Offset_0 00c3 e402 | | Load 0x2,0x2 00c4 5833 |X3 | Indirect_Literal Float,0xf8,1.0 00c5 023d | = | Execute Float,Plus 00c6 023a | : | Execute Float,Divide 00c7 023d | = | Execute Float,Plus 00c8 023b | ; | Execute Float,Times 00c9 00d8 | | Load_Top At_Offset_0 00ca e20e | | Load 0x1,0xe 00cb 0234 | 4 | Execute Float,In_Type 00cc 7001 |p | Jump_Nonzero 0xce 00cd 0801 | | Execute_Immediate Raise,0x1 00ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00cf 0000 | | .XXX[0x1] 00d0 bff0 0000 | | .DBL -1.0 00d2 0000 0000 | | 00d4 3fe6 2e42 |? .B| .DBL 0.6931471805999999 00d6 feff bb3b | ;| 00d8 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 00dc 4020 0000 |@ | .DBL 8.0 00de 0000 0000 | | 00e0 4010 0000 |@ | .DBL 4.0 00e2 0000 0000 | | 00e4 4000 0000 |@ | .DBL 2.0 00e6 0000 0000 | | 00e8 3fe0 0000 |? | .DBL 0.5 00ea 0000 0000 | | 00ec 3fd0 0000 |? | .DBL 0.25 00ee 0000 0000 | | 00f0 3fc0 0000 |? | .DBL 0.125 00f2 0000 0000 | | 00f4 3fe6 2e42 |? .B| .DBL 0.6931471805599453 00f6 fefa 39ef | 9 | 00f8 3ff0 0000 |? | .DBL 1.0 00fa 0000 0000 | | 00fc 0000 0000 | | .BLANK 0000[0x4] 0100 ; -------------------------------------------------------------------------------------- 0100 ; Debug Table 0100 ; -------------------------------------------------------------------------------------- 0100 0004 0001 | | .DEBUG4 0x0004,0x0001,0xf261,0x0000,0x0001,0x0001 0106 000b 010a | | .DBG4T 0x000b,0x010a,0x1002,0x4000 010a ; -------------------------------------------------------------------------------------- 010a ; Debug chain 010a ; -------------------------------------------------------------------------------------- 010a 0008 0018 | | .DBGLEN 0x0008,0x0018 010c 000b 000d | | .DBGLNO 0x000b,0x000d,0x0012,0x0014,0x0017,0x001a,0x0022,0x004b,0x0055,0x0057,0x005b,0x0062,0x0065,0x0068,0x006a,0x006d,0x0071,0x0072,0x0076,0x007a,0x0084,0x0087,0x008a,0x008e,0x0093,0x0099,0x009f,0x00a4,0x00a8,0x00b2,0x00b9,0x00be 012c 0001 0002 | | .XXX[0x18] 012e 0003 0004 | | 0130 0005 0006 | | 0132 0007 0008 | | 0134 0009 000a | | 0136 000b 000c | | 0138 000d 000e | | 013a 0010 0011 | | 013c 0012 0013 | | 013e 0014 000f | | 0140 0015 0016 | | 0142 0017 0018 | | 0144 0000 0000 | | .BLANK 0000[0xbc]