|
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 00a8 | | .CONST 0x00a8 ; 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 0018 | | .CONST 0x0018 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000c | | .CONST 0x000c ; 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 5891 |X | Indirect_Literal Float,0xa4,0.0 0013 e20e | | Load 0x1,0xe 0014 02bf | | Declare_Variable Float,With_Value,With_Constraint 0015 e22f | / | Load 0x1,0x2f 0016 03e9 | | Declare_Variable Discrete,Duplicate 0017 03e9 | | Declare_Variable Discrete,Duplicate 0018 BODY_0008: 0018 e5ff | | Load 0x2,-0x1 0019 00d8 | | Load_Top At_Offset_0 001a e20e | | Load 0x1,0xe 001b 0234 | 4 | Execute Float,In_Type 001c 7001 |p | Jump_Nonzero 0x1e 001d 0801 | | Execute_Immediate Raise,0x1 001e 023e | > | Execute Float,Absolute_Value 001f c403 | | Store 0x2,0x3 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 c405 | | Store 0x2,0x5 0027 e405 | | Load 0x2,0x5 0028 0149 | I | Execute Float,Less_Equal_Zero 0029 6802 |h | Jump_Zero 0x2c 002a e006 | | Load 0x0,0x6 002b 0257 | W | Execute Discrete,Raise 002c e405 | | Load 0x2,0x5 002d e20e | | Load 0x1,0xe 002e 0232 | 2 | Execute Float,Check_In_Type 002f e403 | | Load 0x2,0x3 0030 e20e | | Load 0x1,0xe 0031 0232 | 2 | Execute Float,Check_In_Type 0032 e005 | | Load 0x0,0x5 0033 e230 | 0 | Load 0x1,0x30 0034 0096 | | Execute Package,Entry 0035 c402 | | Store 0x2,0x2 0036 5869 |Xi | Indirect_Literal Float,0xa0,4.0 0037 e402 | | Load 0x2,0x2 0038 023b | ; | Execute Float,Times 0039 e405 | | Load 0x2,0x5 003a 023a | : | Execute Float,Divide 003b e20e | | Load 0x1,0xe 003c 0232 | 2 | Execute Float,Check_In_Type 003d e007 | | Load 0x0,0x7 003e e230 | 0 | Load 0x1,0x30 003f 0096 | | Execute Package,Entry 0040 c408 | | Store 0x2,0x8 0041 e408 | | Load 0x2,0x8 0042 0235 | 5 | Execute Float,Round_To_Discrete 0043 00e2 | | Load_Encached Integer_Cache 0044 025e | ^ | Execute Discrete,Convert 0045 0a01 | | Execute_Immediate Plus,0x1 0046 4803 |H | Short_Literal 0x3 0047 0279 | y | Execute Discrete,And 0048 00d8 | | Load_Top At_Offset_0 0049 e22f | / | Load 0x1,0x2f 004a 0260 | ` | Execute Discrete,In_Type 004b 7001 |p | Jump_Nonzero 0x4d 004c 0801 | | Execute_Immediate Raise,0x1 004d 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 004e 00da | | Load_Top At_Offset_2 004f 4801 |H | Short_Literal 0x1 0050 0279 | y | Execute Discrete,And 0051 005a | Z | Store_Top Discrete,At_Offset_2 0052 00da | | Load_Top At_Offset_2 0053 00da | | Load_Top At_Offset_2 0054 0272 | r | Execute Discrete,Minus 0055 09ff | | Execute_Immediate Binary_Scale,-0x1 0056 0059 | Y | Store_Top Discrete,At_Offset_1 0057 4804 |H | Short_Literal 0x4 0058 e405 | | Load 0x2,0x5 0059 e20e | | Load 0x1,0xe 005a 0232 | 2 | Execute Float,Check_In_Type 005b e004 | | Load 0x0,0x4 005c e230 | 0 | Load 0x1,0x30 005d 0096 | | Execute Package,Entry 005e c406 | | Store 0x2,0x6 005f e405 | | Load 0x2,0x5 0060 e406 | | Load 0x2,0x6 0061 023c | < | Execute Float,Minus 0062 c407 | | Store 0x2,0x7 0063 e408 | | Load 0x2,0x8 0064 5837 |X7 | Indirect_Literal Float,0x9c,0.25 0065 023b | ; | Execute Float,Times 0066 c408 | | Store 0x2,0x8 0067 e402 | | Load 0x2,0x2 0068 e408 | | Load 0x2,0x8 0069 e406 | | Load 0x2,0x6 006a 023b | ; | Execute Float,Times 006b 023c | < | Execute Float,Minus 006c e408 | | Load 0x2,0x8 006d e407 | | Load 0x2,0x7 006e 023b | ; | Execute Float,Times 006f 023c | < | Execute Float,Minus 0070 c402 | | Store 0x2,0x2 0071 e402 | | Load 0x2,0x2 0072 e405 | | Load 0x2,0x5 0073 023a | : | Execute Float,Divide 0074 5823 |X# | Indirect_Literal Float,0x98,6.283185307179586 0075 023b | ; | Execute Float,Times 0076 c402 | | Store 0x2,0x2 0077 00d9 | | Load_Top At_Offset_1 0078 7009 |p | Jump_Nonzero 0x82 0079 00db | | Load_Top At_Offset_3 007a e20e | | Load 0x1,0xe 007b 0232 | 2 | Execute Float,Check_In_Type 007c e402 | | Load 0x2,0x2 007d e20e | | Load 0x1,0xe 007e 0232 | 2 | Execute Float,Check_In_Type 007f 8252 | R | Call 0x1,0x52 0080 c404 | | Store 0x2,0x4 0081 7808 |x | Jump 0x8a 0082 00db | | Load_Top At_Offset_3 0083 e20e | | Load 0x1,0xe 0084 0232 | 2 | Execute Float,Check_In_Type 0085 e402 | | Load 0x2,0x2 0086 e20e | | Load 0x1,0xe 0087 0232 | 2 | Execute Float,Check_In_Type 0088 8253 | S | Call 0x1,0x53 0089 c404 | | Store 0x2,0x4 008a 00d8 | | Load_Top At_Offset_0 008b 0f01 | | Execute_Immediate Equal,0x1 008c 6803 |h | Jump_Zero 0x90 008d e404 | | Load 0x2,0x4 008e 023f | ? | Execute Float,Unary_Minus 008f c404 | | Store 0x2,0x4 0090 e404 | | Load 0x2,0x4 0091 00d8 | | Load_Top At_Offset_0 0092 e20e | | Load 0x1,0xe 0093 0234 | 4 | Execute Float,In_Type 0094 7001 |p | Jump_Nonzero 0x96 0095 0801 | | Execute_Immediate Raise,0x1 0096 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0097 0000 | | .XXX[0x1] 0098 4019 21fb |@ ! | .DBL 6.283185307179586 009a 5444 2d18 |TD- | 009c 3fd0 0000 |? | .DBL 0.25 009e 0000 0000 | | 00a0 4010 0000 |@ | .DBL 4.0 00a2 0000 0000 | | 00a4 0000 0000 | | .DBL 0.0 00a6 0000 0000 | | 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; Debug Table 00a8 ; -------------------------------------------------------------------------------------- 00a8 0004 0001 | | .DEBUG4 0x0004,0x0001,0xf27c,0x0000,0x0001,0x0001 00ae 000b 00b2 | | .DBG4T 0x000b,0x00b2,0x1002,0x0000 00b2 ; -------------------------------------------------------------------------------------- 00b2 ; Debug chain 00b2 ; -------------------------------------------------------------------------------------- 00b2 0003 0014 | | .DBGLEN 0x0003,0x0014 00b4 000b 0012 | | .DBGLNO 0x000b,0x0012,0x0015,0x0018,0x0020,0x0027,0x002a,0x002c,0x0036,0x0041,0x004e,0x0052,0x0057,0x005f,0x0063,0x0067,0x0071,0x0077,0x0079,0x0082,0x008a,0x008d,0x0090 00cb 0000 0000 | | .BLANK 0000[0x135]