|
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 00e0 | | .CONST 0x00e0 ; 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 0056 | V | .CONST 0x0056 ; 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 0007 | | Action Break_Optional
000d 00d8 | | Load_Top At_Offset_0
000e 03d8 | | Declare_Variable Float,Duplicate
000f 03d8 | | Declare_Variable Float,Duplicate
0010 03d8 | | Declare_Variable Float,Duplicate
0011 e22c | , | Load 0x1,0x2c
0012 03e9 | | Declare_Variable Discrete,Duplicate
0013 58c4 |X | Indirect_Literal Float,0xd8,0.6931471805599453
0014 e20e | | Load 0x1,0xe
0015 02bf | | Declare_Variable Float,With_Value,With_Constraint
0016 4806 |H | Short_Literal 0x6
0017 e20e | | Load 0x1,0xe
0018 0122 | " | Execute Any,Make_Root_Type
0019 1c01 | | Execute_Immediate Run_Utility,0x1
001a 0271 | q | Execute Discrete,Times
001b 0237 | 7 | Execute Float,Convert_From_Discrete
001c e20e | | Load 0x1,0xe
001d 0238 | 8 | Execute Float,Convert
001e 4ffd |O | Short_Literal -0x3
001f 4803 |H | Short_Literal 0x3
0020 e20e | | Load 0x1,0xe
0021 02a0 | | Declare_Subprogram Null_Subprogram
0022 4801 |H | Short_Literal 0x1
0023 035d | ] | Declare_Type Array,Defined
0024 00d8 | | Load_Top At_Offset_0
0025 0337 | 7 | Declare_Variable Array
0026 00d8 | | Load_Top At_Offset_0
0027 0335 | 5 | Declare_Variable Array,Duplicate
0028 00cd | | Action Spare6_Action
0029 58aa |X | Indirect_Literal Float,0xd4,0.125
002a 4ffd |O | Short_Literal -0x3
002b 00da | | Load_Top At_Offset_2
002c 01d6 | | Execute Vector,Field_Write
002d 58a2 |X | Indirect_Literal Float,0xd0,0.25
002e 4ffe |O | Short_Literal -0x2
002f 00da | | Load_Top At_Offset_2
0030 01d6 | | Execute Vector,Field_Write
0031 589a |X | Indirect_Literal Float,0xcc,0.5
0032 4fff |O | Short_Literal -0x1
0033 00da | | Load_Top At_Offset_2
0034 01d6 | | Execute Vector,Field_Write
0035 5892 |X | Indirect_Literal Float,0xc8,1.0
0036 4800 |H | Short_Literal 0x0
0037 00da | | Load_Top At_Offset_2
0038 01d6 | | Execute Vector,Field_Write
0039 588a |X | Indirect_Literal Float,0xc4,2.0
003a 4801 |H | Short_Literal 0x1
003b 00da | | Load_Top At_Offset_2
003c 01d6 | | Execute Vector,Field_Write
003d 5882 |X | Indirect_Literal Float,0xc0,4.0
003e 4802 |H | Short_Literal 0x2
003f 00da | | Load_Top At_Offset_2
0040 01d6 | | Execute Vector,Field_Write
0041 587a |Xz | Indirect_Literal Float,0xbc,8.0
0042 4803 |H | Short_Literal 0x3
0043 00da | | Load_Top At_Offset_2
0044 01d6 | | Execute Vector,Field_Write
0045 00d9 | | Load_Top At_Offset_1
0046 01d4 | | Execute Vector,Structure_Write
0047 5874 |Xt | Indirect_Literal Float,0xbc,8.0
0048 606f |`o | Indirect_Literal Discrete,0xb8,{0x00000000, 0x00000400}
0049 0237 | 7 | Execute Float,Convert_From_Discrete
004a e20e | | Load 0x1,0xe
004b 0238 | 8 | Execute Float,Convert
004c 023b | ; | Execute Float,Times
004d 5866 |Xf | Indirect_Literal Float,0xb4,0.6931471805999999
004e 023b | ; | Execute Float,Times
004f e20e | | Load 0x1,0xe
0050 02bf | | Declare_Variable Float,With_Value,With_Constraint
0051 00db | | Load_Top At_Offset_3
0052 5885 |X | Indirect_Literal Float,0xd8,0.6931471805599453
0053 023b | ; | Execute Float,Times
0054 e20e | | Load 0x1,0xe
0055 02bf | | Declare_Variable Float,With_Value,With_Constraint
0056 BODY_0008:
0056 e5ff | | Load 0x2,-0x1
0057 00d8 | | Load_Top At_Offset_0
0058 e20e | | Load 0x1,0xe
0059 0234 | 4 | Execute Float,In_Type
005a 7001 |p | Jump_Nonzero 0x5c
005b 0801 | | Execute_Immediate Raise,0x1
005c c403 | | Store 0x2,0x3
005d e403 | | Load 0x2,0x3
005e 023e | > | Execute Float,Absolute_Value
005f c404 | | Store 0x2,0x4
0060 e404 | | Load 0x2,0x4
0061 00da | | Load_Top At_Offset_2
0062 0243 | C | Execute Float,Greater_Equal
0063 6801 |h | Jump_Zero 0x65
0064 08e0 | | Execute_Immediate Raise,0xe0
0065 e20e | | Load 0x1,0xe
0066 00d8 | | Load_Top At_Offset_0
0067 e22c | , | Load 0x1,0x2c
0068 e404 | | Load 0x2,0x4
0069 e20e | | Load 0x1,0xe
006a 0232 | 2 | Execute Float,Check_In_Type
006b 824e | N | Call 0x1,0x4e
006c c407 | | Store 0x2,0x7
006d c405 | | Store 0x2,0x5
006e c406 | | Store 0x2,0x6
006f e407 | | Load 0x2,0x7
0070 0aff | | Execute_Immediate Plus,-0x1
0071 a407 | | Store_Unchecked 0x2,0x7
0072 e231 | 1 | Load 0x1,0x31
0073 0f02 | | Execute_Immediate Equal,0x2
0074 701a |p | Jump_Nonzero 0x8f
0075 e407 | | Load 0x2,0x7
0076 4804 |H | Short_Literal 0x4
0077 026f | o | Execute Discrete,Remainder
0078 a408 | | Store_Unchecked 0x2,0x8
0079 e407 | | Load 0x2,0x7
007a e408 | | Load 0x2,0x8
007b 0272 | r | Execute Discrete,Minus
007c 09fe | | Execute_Immediate Binary_Scale,-0x2
007d a407 | | Store_Unchecked 0x2,0x7
007e e405 | | Load 0x2,0x5
007f e408 | | Load 0x2,0x8
0080 e40c | | Load 0x2,0xc
0081 01d7 | | Execute Vector,Field_Read
0082 023b | ; | Execute Float,Times
0083 c405 | | Store 0x2,0x5
0084 e406 | | Load 0x2,0x6
0085 e408 | | Load 0x2,0x8
0086 e40c | | Load 0x2,0xc
0087 01d7 | | Execute Vector,Field_Read
0088 023b | ; | Execute Float,Times
0089 c406 | | Store 0x2,0x6
008a e405 | | Load 0x2,0x5
008b e406 | | Load 0x2,0x6
008c 023d | = | Execute Float,Plus
008d c403 | | Store 0x2,0x3
008e 7804 |x | Jump 0x93
008f e405 | | Load 0x2,0x5
0090 e406 | | Load 0x2,0x6
0091 023d | = | Execute Float,Plus
0092 c403 | | Store 0x2,0x3
0093 e407 | | Load 0x2,0x7
0094 e403 | | Load 0x2,0x3
0095 e20e | | Load 0x1,0xe
0096 0232 | 2 | Execute Float,Check_In_Type
0097 e00a | | Load 0x0,0xa
0098 e230 | 0 | Load 0x1,0x30
0099 0096 | | Execute Package,Entry
009a c402 | | Store 0x2,0x2
009b e404 | | Load 0x2,0x4
009c 00d9 | | Load_Top At_Offset_1
009d 0243 | C | Execute Float,Greater_Equal
009e 6807 |h | Jump_Zero 0xa6
009f e402 | | Load 0x2,0x2
00a0 00d8 | | Load_Top At_Offset_0
00a1 e20e | | Load 0x1,0xe
00a2 0234 | 4 | Execute Float,In_Type
00a3 7001 |p | Jump_Nonzero 0xa5
00a4 0801 | | Execute_Immediate Raise,0x1
00a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a6 e402 | | Load 0x2,0x2
00a7 5828 |X( | Indirect_Literal Float,0xd0,0.25
00a8 e402 | | Load 0x2,0x2
00a9 023a | : | Execute Float,Divide
00aa 023d | = | Execute Float,Plus
00ab 00d8 | | Load_Top At_Offset_0
00ac e20e | | Load 0x1,0xe
00ad 0234 | 4 | Execute Float,In_Type
00ae 7001 |p | Jump_Nonzero 0xb0
00af 0801 | | Execute_Immediate Raise,0x1
00b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b1 0000 0000 | | .XXX[0x3]
00b3 0000 | |
00b4 3fe6 2e42 |? .B| .DBL 0.6931471805999999
00b6 feff bb3b | ;|
00b8 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
00bc 4020 0000 |@ | .DBL 8.0
00be 0000 0000 | |
00c0 4010 0000 |@ | .DBL 4.0
00c2 0000 0000 | |
00c4 4000 0000 |@ | .DBL 2.0
00c6 0000 0000 | |
00c8 3ff0 0000 |? | .DBL 1.0
00ca 0000 0000 | |
00cc 3fe0 0000 |? | .DBL 0.5
00ce 0000 0000 | |
00d0 3fd0 0000 |? | .DBL 0.25
00d2 0000 0000 | |
00d4 3fc0 0000 |? | .DBL 0.125
00d6 0000 0000 | |
00d8 3fe6 2e42 |? .B| .DBL 0.6931471805599453
00da fefa 39ef | 9 |
00dc 0000 0000 | | .BLANK 0000[0x4]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; Debug Table
00e0 ; --------------------------------------------------------------------------------------
00e0 0004 0001 | | .DEBUG4 0x0004,0x0001,0xf272,0x0000,0x0001,0x0001
00e6 000b 00ea | | .DBG4T 0x000b,0x00ea,0x1002,0x4000
00ea ; --------------------------------------------------------------------------------------
00ea ; Debug chain
00ea ; --------------------------------------------------------------------------------------
00ea 0008 0011 | | .DBGLEN 0x0008,0x0011
00ec 000b 000d | | .DBGLNO 0x000b,0x000d,0x0011,0x0013,0x0016,0x001e,0x0047,0x0051,0x0056,0x005d,0x0060,0x0064,0x0065,0x006f,0x0072,0x0075,0x0079,0x007e,0x0084,0x008a,0x008f,0x0093,0x009b,0x009f,0x00a6
0105 0001 0002 | | .XXX[0x11]
0107 0003 0004 | |
0109 0005 0006 | |
010b 0007 0009 | |
010d 000a 000b | |
010f 000c 000d | |
0111 0008 000e | |
0113 000f 0010 | |
0115 0011 | |
0116 0000 0000 | | .BLANK 0000[0xea]