|
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 00b8 | | .CONST 0x00b8 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0027 | ' | .CONST 0x0027 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000a | | .CONST 0x000a ; 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 589e |X | Indirect_Literal Float,0xb0,10.0
0012 5899 |X | Indirect_Literal Float,0xac,2.0
0013 4801 |H | Short_Literal 0x1
0014 e20e | | Load 0x1,0xe
0015 0122 | " | Execute Any,Make_Root_Type
0016 1c01 | | Execute_Immediate Run_Utility,0x1
0017 480a |H | Short_Literal 0xa
0018 0271 | q | Execute Discrete,Times
0019 0a05 | | Execute_Immediate Plus,0x5
001a 4803 |H | Short_Literal 0x3
001b 0270 | p | Execute Discrete,Divide
001c 0272 | r | Execute Discrete,Minus
001d 0239 | 9 | Execute Float,Exponentiate
001e 023a | : | Execute Float,Divide
001f e20e | | Load 0x1,0xe
0020 02bf | | Declare_Variable Float,With_Value,With_Constraint
0021 5886 |X | Indirect_Literal Float,0xa8,0.693115234375
0022 e20e | | Load 0x1,0xe
0023 02bf | | Declare_Variable Float,With_Value,With_Constraint
0024 587f |X | Indirect_Literal Float,0xa4,3.1946184945309415e-05
0025 e20e | | Load 0x1,0xe
0026 02bf | | Declare_Variable Float,With_Value,With_Constraint
0027 BODY_0008:
0027 e5ff | | Load 0x2,-0x1
0028 00d8 | | Load_Top At_Offset_0
0029 e20e | | Load 0x1,0xe
002a 0234 | 4 | Execute Float,In_Type
002b 7001 |p | Jump_Nonzero 0x2d
002c 0801 | | Execute_Immediate Raise,0x1
002d c403 | | Store 0x2,0x3
002e e403 | | Load 0x2,0x3
002f 5870 |Xp | Indirect_Literal Float,0xa0,1.0
0030 0244 | D | Execute Float,Less
0031 6802 |h | Jump_Zero 0x34
0032 e006 | | Load 0x0,0x6
0033 0257 | W | Execute Discrete,Raise
0034 e403 | | Load 0x2,0x3
0035 5866 |Xf | Indirect_Literal Float,0x9c,1.414213562373095
0036 0242 | B | Execute Float,Less_Equal
0037 6824 |h$ | Jump_Zero 0x5c
0038 e403 | | Load 0x2,0x3
0039 5866 |Xf | Indirect_Literal Float,0xa0,1.0
003a 0247 | G | Execute Float,Equal
003b 6807 |h | Jump_Zero 0x43
003c 585b |X[ | Indirect_Literal Float,0x98,0.0
003d 00d8 | | Load_Top At_Offset_0
003e e20e | | Load 0x1,0xe
003f 0234 | 4 | Execute Float,In_Type
0040 7001 |p | Jump_Nonzero 0x42
0041 0801 | | Execute_Immediate Raise,0x1
0042 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0043 e403 | | Load 0x2,0x3
0044 585b |X[ | Indirect_Literal Float,0xa0,1.0
0045 023c | < | Execute Float,Minus
0046 c402 | | Store 0x2,0x2
0047 e402 | | Load 0x2,0x2
0048 00d8 | | Load_Top At_Offset_0
0049 e403 | | Load 0x2,0x3
004a 5855 |XU | Indirect_Literal Float,0xa0,1.0
004b 023d | = | Execute Float,Plus
004c 023b | ; | Execute Float,Times
004d e20e | | Load 0x1,0xe
004e 0232 | 2 | Execute Float,Check_In_Type
004f 8248 | H | Call 0x1,0x48
0050 023d | = | Execute Float,Plus
0051 c403 | | Store 0x2,0x3
0052 e403 | | Load 0x2,0x3
0053 e20e | | Load 0x1,0xe
0054 0232 | 2 | Execute Float,Check_In_Type
0055 824c | L | Call 0x1,0x4c
0056 00d8 | | Load_Top At_Offset_0
0057 e20e | | Load 0x1,0xe
0058 0234 | 4 | Execute Float,In_Type
0059 7001 |p | Jump_Nonzero 0x5b
005a 0801 | | Execute_Immediate Raise,0x1
005b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
005c e403 | | Load 0x2,0x3
005d 00db | | Load_Top At_Offset_3
005e 0244 | D | Execute Float,Less
005f 6811 |h | Jump_Zero 0x71
0060 e403 | | Load 0x2,0x3
0061 5832 |X2 | Indirect_Literal Float,0x94,0.5
0062 e403 | | Load 0x2,0x3
0063 00d8 | | Load_Top At_Offset_0
0064 583b |X; | Indirect_Literal Float,0xa0,1.0
0065 023c | < | Execute Float,Minus
0066 e403 | | Load 0x2,0x3
0067 5838 |X8 | Indirect_Literal Float,0xa0,1.0
0068 023d | = | Execute Float,Plus
0069 023b | ; | Execute Float,Times
006a e20e | | Load 0x1,0xe
006b 0232 | 2 | Execute Float,Check_In_Type
006c 8248 | H | Call 0x1,0x48
006d 023d | = | Execute Float,Plus
006e 023a | : | Execute Float,Divide
006f 023c | < | Execute Float,Minus
0070 c403 | | Store 0x2,0x3
0071 e20e | | Load 0x1,0xe
0072 00d8 | | Load_Top At_Offset_0
0073 e20e | | Load 0x1,0xe
0074 e403 | | Load 0x2,0x3
0075 e20e | | Load 0x1,0xe
0076 0232 | 2 | Execute Float,Check_In_Type
0077 824b | K | Call 0x1,0x4b
0078 c404 | | Store 0x2,0x4
0079 c405 | | Store 0x2,0x5
007a c406 | | Store 0x2,0x6
007b e404 | | Load 0x2,0x4
007c 5823 |X# | Indirect_Literal Float,0xa0,1.0
007d 023d | = | Execute Float,Plus
007e c404 | | Store 0x2,0x4
007f e404 | | Load 0x2,0x4
0080 5827 |X' | Indirect_Literal Float,0xa8,0.693115234375
0081 023b | ; | Execute Float,Times
0082 e405 | | Load 0x2,0x5
0083 e406 | | Load 0x2,0x6
0084 e404 | | Load 0x2,0x4
0085 581e |X | Indirect_Literal Float,0xa4,3.1946184945309415e-05
0086 023b | ; | Execute Float,Times
0087 023d | = | Execute Float,Plus
0088 023d | = | Execute Float,Plus
0089 023d | = | Execute Float,Plus
008a c407 | | Store 0x2,0x7
008b 00db | | Load_Top At_Offset_3
008c 00d8 | | Load_Top At_Offset_0
008d e20e | | Load 0x1,0xe
008e 0234 | 4 | Execute Float,In_Type
008f 7001 |p | Jump_Nonzero 0x91
0090 0801 | | Execute_Immediate Raise,0x1
0091 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0092 0000 0000 | | .XXX[0x2]
0094 3fe0 0000 |? | .DBL 0.5
0096 0000 0000 | |
0098 0000 0000 | | .DBL 0.0
009a 0000 0000 | |
009c 3ff6 a09e |? | .DBL 1.414213562373095
009e 667f 3bcc |f ; |
00a0 3ff0 0000 |? | .DBL 1.0
00a2 0000 0000 | |
00a4 3f00 bfbe |? | .DBL 3.1946184945309415e-05
00a6 8e7b cd5e | { ^|
00a8 3fe6 2e00 |? . | .DBL 0.693115234375
00aa 0000 0000 | |
00ac 4000 0000 |@ | .DBL 2.0
00ae 0000 0000 | |
00b0 4024 0000 |@$ | .DBL 10.0
00b2 0000 0000 | |
00b4 0000 0000 | | .BLANK 0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; Debug Table
00b8 ; --------------------------------------------------------------------------------------
00b8 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f0b,0x0000,0x0001,0x0000
00be 0000 0000 | | .BLANK 0000[0x17]
00d5 003e 1800 | > | .XXX[0x2]
00d7 0000 0000 | | .BLANK 0000[0x1d]
00f4 00ec | | .XXX[0x1]
00f5 0000 0000 | | .BLANK 0000[0x10]
0105 3ca0 |< | .XXX[0x1]
0106 0000 0000 | | .BLANK 0000[0x57]
015d e540 | @ | .XXX[0x1]
015e 0000 0000 | | .BLANK 0000[0xa2]