|
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 00c0 | | .CONST 0x00c0 ; 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 0019 | | .CONST 0x0019 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000d | | .CONST 0x000d ; 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 58a4 |X | Indirect_Literal Float,0xb8,0.0 0014 e20e | | Load 0x1,0xe 0015 02bf | | Declare_Variable Float,With_Value,With_Constraint 0016 e22f | / | Load 0x1,0x2f 0017 03e9 | | Declare_Variable Discrete,Duplicate 0018 03e9 | | Declare_Variable Discrete,Duplicate 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 c403 | | Store 0x2,0x3 0020 e403 | | Load 0x2,0x3 0021 014c | L | Execute Float,Greater_Zero 0022 6803 |h | Jump_Zero 0x26 0023 5890 |X | Indirect_Literal Float,0xb4,1.0 0024 c404 | | Store 0x2,0x4 0025 7805 |x | Jump 0x2b 0026 5889 |X | Indirect_Literal Float,0xb0,-1.0 0027 c404 | | Store 0x2,0x4 0028 e403 | | Load 0x2,0x3 0029 023e | > | Execute Float,Absolute_Value 002a c403 | | Store 0x2,0x3 002b e5fe | | Load 0x2,-0x2 002c 00d8 | | Load_Top At_Offset_0 002d e20e | | Load 0x1,0xe 002e 0234 | 4 | Execute Float,In_Type 002f 7001 |p | Jump_Nonzero 0x31 0030 0801 | | Execute_Immediate Raise,0x1 0031 c406 | | Store 0x2,0x6 0032 e406 | | Load 0x2,0x6 0033 0149 | I | Execute Float,Less_Equal_Zero 0034 6802 |h | Jump_Zero 0x37 0035 e006 | | Load 0x0,0x6 0036 0257 | W | Execute Discrete,Raise 0037 e406 | | Load 0x2,0x6 0038 e20e | | Load 0x1,0xe 0039 0232 | 2 | Execute Float,Check_In_Type 003a e403 | | Load 0x2,0x3 003b e20e | | Load 0x1,0xe 003c 0232 | 2 | Execute Float,Check_In_Type 003d e005 | | Load 0x0,0x5 003e e230 | 0 | Load 0x1,0x30 003f 0096 | | Execute Package,Entry 0040 c402 | | Store 0x2,0x2 0041 586a |Xj | Indirect_Literal Float,0xac,4.0 0042 e402 | | Load 0x2,0x2 0043 023b | ; | Execute Float,Times 0044 e406 | | Load 0x2,0x6 0045 023a | : | Execute Float,Divide 0046 e20e | | Load 0x1,0xe 0047 0232 | 2 | Execute Float,Check_In_Type 0048 e007 | | Load 0x0,0x7 0049 e230 | 0 | Load 0x1,0x30 004a 0096 | | Execute Package,Entry 004b c409 | | Store 0x2,0x9 004c e409 | | Load 0x2,0x9 004d 0235 | 5 | Execute Float,Round_To_Discrete 004e 00e2 | | Load_Encached Integer_Cache 004f 025e | ^ | Execute Discrete,Convert 0050 4803 |H | Short_Literal 0x3 0051 0279 | y | Execute Discrete,And 0052 00d8 | | Load_Top At_Offset_0 0053 e22f | / | Load 0x1,0x2f 0054 0260 | ` | Execute Discrete,In_Type 0055 7001 |p | Jump_Nonzero 0x57 0056 0801 | | Execute_Immediate Raise,0x1 0057 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0058 00da | | Load_Top At_Offset_2 0059 4801 |H | Short_Literal 0x1 005a 0279 | y | Execute Discrete,And 005b 005a | Z | Store_Top Discrete,At_Offset_2 005c 00da | | Load_Top At_Offset_2 005d 00da | | Load_Top At_Offset_2 005e 0272 | r | Execute Discrete,Minus 005f 09ff | | Execute_Immediate Binary_Scale,-0x1 0060 0059 | Y | Store_Top Discrete,At_Offset_1 0061 4804 |H | Short_Literal 0x4 0062 e406 | | Load 0x2,0x6 0063 e20e | | Load 0x1,0xe 0064 0232 | 2 | Execute Float,Check_In_Type 0065 e004 | | Load 0x0,0x4 0066 e230 | 0 | Load 0x1,0x30 0067 0096 | | Execute Package,Entry 0068 c407 | | Store 0x2,0x7 0069 e406 | | Load 0x2,0x6 006a e407 | | Load 0x2,0x7 006b 023c | < | Execute Float,Minus 006c c408 | | Store 0x2,0x8 006d e409 | | Load 0x2,0x9 006e 5839 |X9 | Indirect_Literal Float,0xa8,0.25 006f 023b | ; | Execute Float,Times 0070 c409 | | Store 0x2,0x9 0071 e402 | | Load 0x2,0x2 0072 e409 | | Load 0x2,0x9 0073 e407 | | Load 0x2,0x7 0074 023b | ; | Execute Float,Times 0075 023c | < | Execute Float,Minus 0076 e409 | | Load 0x2,0x9 0077 e408 | | Load 0x2,0x8 0078 023b | ; | Execute Float,Times 0079 023c | < | Execute Float,Minus 007a c402 | | Store 0x2,0x2 007b e402 | | Load 0x2,0x2 007c e406 | | Load 0x2,0x6 007d 023a | : | Execute Float,Divide 007e 5825 |X% | Indirect_Literal Float,0xa4,6.283185307179586 007f 023b | ; | Execute Float,Times 0080 c402 | | Store 0x2,0x2 0081 00d9 | | Load_Top At_Offset_1 0082 7009 |p | Jump_Nonzero 0x8c 0083 00db | | Load_Top At_Offset_3 0084 e20e | | Load 0x1,0xe 0085 0232 | 2 | Execute Float,Check_In_Type 0086 e402 | | Load 0x2,0x2 0087 e20e | | Load 0x1,0xe 0088 0232 | 2 | Execute Float,Check_In_Type 0089 8252 | R | Call 0x1,0x52 008a c405 | | Store 0x2,0x5 008b 7808 |x | Jump 0x94 008c 00db | | Load_Top At_Offset_3 008d e20e | | Load 0x1,0xe 008e 0232 | 2 | Execute Float,Check_In_Type 008f e402 | | Load 0x2,0x2 0090 e20e | | Load 0x1,0xe 0091 0232 | 2 | Execute Float,Check_In_Type 0092 8253 | S | Call 0x1,0x53 0093 c405 | | Store 0x2,0x5 0094 00d8 | | Load_Top At_Offset_0 0095 0f01 | | Execute_Immediate Equal,0x1 0096 6803 |h | Jump_Zero 0x9a 0097 e405 | | Load 0x2,0x5 0098 023f | ? | Execute Float,Unary_Minus 0099 c405 | | Store 0x2,0x5 009a e404 | | Load 0x2,0x4 009b e405 | | Load 0x2,0x5 009c 023b | ; | Execute Float,Times 009d 00d8 | | Load_Top At_Offset_0 009e e20e | | Load 0x1,0xe 009f 0234 | 4 | Execute Float,In_Type 00a0 7001 |p | Jump_Nonzero 0xa2 00a1 0801 | | Execute_Immediate Raise,0x1 00a2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00a3 0000 | | .XXX[0x1] 00a4 4019 21fb |@ ! | .DBL 6.283185307179586 00a6 5444 2d18 |TD- | 00a8 3fd0 0000 |? | .DBL 0.25 00aa 0000 0000 | | 00ac 4010 0000 |@ | .DBL 4.0 00ae 0000 0000 | | 00b0 bff0 0000 | | .DBL -1.0 00b2 0000 0000 | | 00b4 3ff0 0000 |? | .DBL 1.0 00b6 0000 0000 | | 00b8 0000 0000 | | .DBL 0.0 00ba 0000 0000 | | 00bc 0000 0000 | | .BLANK 0000[0x4] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; Debug Table 00c0 ; -------------------------------------------------------------------------------------- 00c0 0004 0001 | | .DEBUG4 0x0004,0x0001,0xf286,0x0000,0x0001,0x0001 00c6 000b 00ca | | .DBG4T 0x000b,0x00ca,0x1002,0x0000 00ca ; -------------------------------------------------------------------------------------- 00ca ; Debug chain 00ca ; -------------------------------------------------------------------------------------- 00ca 0003 0018 | | .DBGLEN 0x0003,0x0018 00cc 000b 0013 | | .DBGLNO 0x000b,0x0013,0x0016,0x0019,0x0020,0x0023,0x0026,0x0028,0x002b,0x0032,0x0035,0x0037,0x0041,0x004c,0x0058,0x005c,0x0061,0x0069,0x006d,0x0071,0x007b,0x0081,0x0083,0x008c,0x0094,0x0097,0x009a 00e7 0000 0000 | | .BLANK 0000[0x119]