|
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 0053 | S | .CONST 0x0053 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000b | | .CONST 0x000b ; 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 e22c | , | Load 0x1,0x2c
0011 03e9 | | Declare_Variable Discrete,Duplicate
0012 4ffd |O | Short_Literal -0x3
0013 4803 |H | Short_Literal 0x3
0014 e20e | | Load 0x1,0xe
0015 02a0 | | Declare_Subprogram Null_Subprogram
0016 4801 |H | Short_Literal 0x1
0017 035d | ] | Declare_Type Array,Defined
0018 00d8 | | Load_Top At_Offset_0
0019 0337 | 7 | Declare_Variable Array
001a 00d8 | | Load_Top At_Offset_0
001b 0335 | 5 | Declare_Variable Array,Duplicate
001c 00cd | | Action Spare6_Action
001d 589e |X | Indirect_Literal Float,0xbc,0.125
001e 4ffd |O | Short_Literal -0x3
001f 00da | | Load_Top At_Offset_2
0020 01d6 | | Execute Vector,Field_Write
0021 5896 |X | Indirect_Literal Float,0xb8,0.25
0022 4ffe |O | Short_Literal -0x2
0023 00da | | Load_Top At_Offset_2
0024 01d6 | | Execute Vector,Field_Write
0025 588e |X | Indirect_Literal Float,0xb4,0.5
0026 4fff |O | Short_Literal -0x1
0027 00da | | Load_Top At_Offset_2
0028 01d6 | | Execute Vector,Field_Write
0029 5886 |X | Indirect_Literal Float,0xb0,1.0
002a 4800 |H | Short_Literal 0x0
002b 00da | | Load_Top At_Offset_2
002c 01d6 | | Execute Vector,Field_Write
002d 587e |X~ | Indirect_Literal Float,0xac,2.0
002e 4801 |H | Short_Literal 0x1
002f 00da | | Load_Top At_Offset_2
0030 01d6 | | Execute Vector,Field_Write
0031 5876 |Xv | Indirect_Literal Float,0xa8,4.0
0032 4802 |H | Short_Literal 0x2
0033 00da | | Load_Top At_Offset_2
0034 01d6 | | Execute Vector,Field_Write
0035 586e |Xn | Indirect_Literal Float,0xa4,8.0
0036 4803 |H | Short_Literal 0x3
0037 00da | | Load_Top At_Offset_2
0038 01d6 | | Execute Vector,Field_Write
0039 00d9 | | Load_Top At_Offset_1
003a 01d4 | | Execute Vector,Structure_Write
003b 586c |Xl | Indirect_Literal Float,0xa8,4.0
003c 6063 |`c | Indirect_Literal Discrete,0xa0,{0x00000000, 0x00000400}
003d 0237 | 7 | Execute Float,Convert_From_Discrete
003e e20e | | Load 0x1,0xe
003f 0238 | 8 | Execute Float,Convert
0040 023b | ; | Execute Float,Times
0041 585a |XZ | Indirect_Literal Float,0x9c,0.6931471805999999
0042 023b | ; | Execute Float,Times
0043 e20e | | Load 0x1,0xe
0044 02bf | | Declare_Variable Float,With_Value,With_Constraint
0045 5866 |Xf | Indirect_Literal Float,0xac,2.0
0046 4801 |H | Short_Literal 0x1
0047 e20e | | Load 0x1,0xe
0048 0122 | " | Execute Any,Make_Root_Type
0049 1c01 | | Execute_Immediate Run_Utility,0x1
004a 480a |H | Short_Literal 0xa
004b 0271 | q | Execute Discrete,Times
004c 0a05 | | Execute_Immediate Plus,0x5
004d 4803 |H | Short_Literal 0x3
004e 0270 | p | Execute Discrete,Divide
004f 0272 | r | Execute Discrete,Minus
0050 0239 | 9 | Execute Float,Exponentiate
0051 e20e | | Load 0x1,0xe
0052 02bf | | Declare_Variable Float,With_Value,With_Constraint
0053 BODY_0008:
0053 e5ff | | Load 0x2,-0x1
0054 00d8 | | Load_Top At_Offset_0
0055 e20e | | Load 0x1,0xe
0056 0234 | 4 | Execute Float,In_Type
0057 7001 |p | Jump_Nonzero 0x59
0058 0801 | | Execute_Immediate Raise,0x1
0059 c403 | | Store 0x2,0x3
005a e403 | | Load 0x2,0x3
005b 023e | > | Execute Float,Absolute_Value
005c 00da | | Load_Top At_Offset_2
005d 0243 | C | Execute Float,Greater_Equal
005e 680b |h | Jump_Zero 0x6a
005f e403 | | Load 0x2,0x3
0060 014c | L | Execute Float,Greater_Zero
0061 6801 |h | Jump_Zero 0x63
0062 08e0 | | Execute_Immediate Raise,0xe0
0063 5834 |X4 | Indirect_Literal Float,0x98,0.0
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 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
006a e403 | | Load 0x2,0x3
006b 023e | > | Execute Float,Absolute_Value
006c 00d9 | | Load_Top At_Offset_1
006d 0242 | B | Execute Float,Less_Equal
006e 6809 |h | Jump_Zero 0x78
006f 5840 |X@ | Indirect_Literal Float,0xb0,1.0
0070 e403 | | Load 0x2,0x3
0071 023d | = | Execute Float,Plus
0072 00d8 | | Load_Top At_Offset_0
0073 e20e | | Load 0x1,0xe
0074 0234 | 4 | Execute Float,In_Type
0075 7001 |p | Jump_Nonzero 0x77
0076 0801 | | Execute_Immediate Raise,0x1
0077 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0078 e20e | | Load 0x1,0xe
0079 00d8 | | Load_Top At_Offset_0
007a e22c | , | Load 0x1,0x2c
007b e403 | | Load 0x2,0x3
007c e20e | | Load 0x1,0xe
007d 0232 | 2 | Execute Float,Check_In_Type
007e 824e | N | Call 0x1,0x4e
007f c406 | | Store 0x2,0x6
0080 c404 | | Store 0x2,0x4
0081 c405 | | Store 0x2,0x5
0082 e404 | | Load 0x2,0x4
0083 e405 | | Load 0x2,0x5
0084 023d | = | Execute Float,Plus
0085 c403 | | Store 0x2,0x3
0086 7800 |x | Jump 0x87
0087 e406 | | Load 0x2,0x6
0088 e403 | | Load 0x2,0x3
0089 e20e | | Load 0x1,0xe
008a 0232 | 2 | Execute Float,Check_In_Type
008b e00a | | Load 0x0,0xa
008c e230 | 0 | Load 0x1,0x30
008d 0096 | | Execute Package,Entry
008e 00d8 | | Load_Top At_Offset_0
008f e20e | | Load 0x1,0xe
0090 0234 | 4 | Execute Float,In_Type
0091 7001 |p | Jump_Nonzero 0x93
0092 0801 | | Execute_Immediate Raise,0x1
0093 c402 | | Store 0x2,0x2
0094 e402 | | Load 0x2,0x2
0095 e20e | | Load 0x1,0xe
0096 0232 | 2 | Execute Float,Check_In_Type
0097 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0098 0000 0000 | | .DBL 0.0
009a 0000 0000 | |
009c 3fe6 2e42 |? .B| .DBL 0.6931471805999999
009e feff bb3b | ;|
00a0 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
00a4 4020 0000 |@ | .DBL 8.0
00a6 0000 0000 | |
00a8 4010 0000 |@ | .DBL 4.0
00aa 0000 0000 | |
00ac 4000 0000 |@ | .DBL 2.0
00ae 0000 0000 | |
00b0 3ff0 0000 |? | .DBL 1.0
00b2 0000 0000 | |
00b4 3fe0 0000 |? | .DBL 0.5
00b6 0000 0000 | |
00b8 3fd0 0000 |? | .DBL 0.25
00ba 0000 0000 | |
00bc 3fc0 0000 |? | .DBL 0.125
00be 0000 0000 | |
00c0 ; --------------------------------------------------------------------------------------
00c0 ; Debug Table
00c0 ; --------------------------------------------------------------------------------------
00c0 0004 0001 | | .DEBUG4 0x0004,0x0001,0xf275,0x0000,0x0001,0x0001
00c6 000b 00ca | | .DBG4T 0x000b,0x00ca,0x1002,0x4000
00ca ; --------------------------------------------------------------------------------------
00ca ; Debug chain
00ca ; --------------------------------------------------------------------------------------
00ca 0006 000b | | .DBGLEN 0x0006,0x000b
00cc 000b 000d | | .DBGLNO 0x000b,0x000d,0x0010,0x0012,0x003b,0x0045,0x0053,0x005a,0x005f,0x0062,0x0063,0x006a,0x006f,0x0078,0x0082,0x0087,0x0094
00dd 0001 0002 | | .XXX[0xb]
00df 0003 0004 | |
00e1 0005 0006 | |
00e3 0007 0008 | |
00e5 000a 0010 | |
00e7 0011 | |
00e8 0000 0000 | | .BLANK 0000[0x118]