|
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 00d0 | | .CONST 0x00d0 ; 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 0036 | 6 | .CONST 0x0036 ; 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 58b9 |X | Indirect_Literal Float,0xcc,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 e20e | | Load 0x1,0xe
001f 02bf | | Declare_Variable Float,With_Value,With_Constraint
0020 58a7 |X | Indirect_Literal Float,0xc8,10.0
0021 58aa |X | Indirect_Literal Float,0xcc,2.0
0022 4801 |H | Short_Literal 0x1
0023 e20e | | Load 0x1,0xe
0024 0122 | " | Execute Any,Make_Root_Type
0025 1c01 | | Execute_Immediate Run_Utility,0x1
0026 480a |H | Short_Literal 0xa
0027 0271 | q | Execute Discrete,Times
0028 0a05 | | Execute_Immediate Plus,0x5
0029 4803 |H | Short_Literal 0x3
002a 0270 | p | Execute Discrete,Divide
002b 0272 | r | Execute Discrete,Minus
002c 0239 | 9 | Execute Float,Exponentiate
002d 023a | : | Execute Float,Divide
002e e20e | | Load 0x1,0xe
002f 02bf | | Declare_Variable Float,With_Value,With_Constraint
0030 5893 |X | Indirect_Literal Float,0xc4,0.693115234375
0031 e20e | | Load 0x1,0xe
0032 02bf | | Declare_Variable Float,With_Value,With_Constraint
0033 588c |X | Indirect_Literal Float,0xc0,3.1946184945309415e-05
0034 e20e | | Load 0x1,0xe
0035 02bf | | Declare_Variable Float,With_Value,With_Constraint
0036 BODY_0008:
0036 e5ff | | Load 0x2,-0x1
0037 00d8 | | Load_Top At_Offset_0
0038 e20e | | Load 0x1,0xe
0039 0234 | 4 | Execute Float,In_Type
003a 7001 |p | Jump_Nonzero 0x3c
003b 0801 | | Execute_Immediate Raise,0x1
003c c402 | | Store 0x2,0x2
003d e402 | | Load 0x2,0x2
003e e20e | | Load 0x1,0xe
003f 0232 | 2 | Execute Float,Check_In_Type
0040 587b |X{ | Indirect_Literal Float,0xbc,1.0
0041 e20e | | Load 0x1,0xe
0042 0232 | 2 | Execute Float,Check_In_Type
0043 e00b | | Load 0x0,0xb
0044 e230 | 0 | Load 0x1,0x30
0045 0096 | | Execute Package,Entry
0046 c403 | | Store 0x2,0x3
0047 e402 | | Load 0x2,0x2
0048 023e | > | Execute Float,Absolute_Value
0049 c402 | | Store 0x2,0x2
004a e402 | | Load 0x2,0x2
004b 586c |Xl | Indirect_Literal Float,0xb8,0.5
004c 0242 | B | Execute Float,Less_Equal
004d 682c |h, | Jump_Zero 0x7a
004e e402 | | Load 0x2,0x2
004f e409 | | Load 0x2,0x9
0050 0244 | D | Execute Float,Less
0051 680f |h | Jump_Zero 0x61
0052 e403 | | Load 0x2,0x3
0053 e20e | | Load 0x1,0xe
0054 0232 | 2 | Execute Float,Check_In_Type
0055 e402 | | Load 0x2,0x2
0056 e20e | | Load 0x1,0xe
0057 0232 | 2 | Execute Float,Check_In_Type
0058 e00b | | Load 0x0,0xb
0059 e230 | 0 | Load 0x1,0x30
005a 0096 | | Execute Package,Entry
005b 00d8 | | Load_Top At_Offset_0
005c e20e | | Load 0x1,0xe
005d 0234 | 4 | Execute Float,In_Type
005e 7001 |p | Jump_Nonzero 0x60
005f 0801 | | Execute_Immediate Raise,0x1
0060 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0061 e402 | | Load 0x2,0x2
0062 00d8 | | Load_Top At_Offset_0
0063 5858 |XX | Indirect_Literal Float,0xbc,1.0
0064 e402 | | Load 0x2,0x2
0065 023a | : | Execute Float,Divide
0066 5855 |XU | Indirect_Literal Float,0xbc,1.0
0067 5854 |XT | Indirect_Literal Float,0xbc,1.0
0068 e402 | | Load 0x2,0x2
0069 00d8 | | Load_Top At_Offset_0
006a 023b | ; | Execute Float,Times
006b 023a | : | Execute Float,Divide
006c 023d | = | Execute Float,Plus
006d e20e | | Load 0x1,0xe
006e 0232 | 2 | Execute Float,Check_In_Type
006f 8248 | H | Call 0x1,0x48
0070 023d | = | Execute Float,Plus
0071 023a | : | Execute Float,Divide
0072 023d | = | Execute Float,Plus
0073 c404 | | Store 0x2,0x4
0074 e404 | | Load 0x2,0x4
0075 e20e | | Load 0x1,0xe
0076 0232 | 2 | Execute Float,Check_In_Type
0077 824c | L | Call 0x1,0x4c
0078 c408 | | Store 0x2,0x8
0079 782d |x- | Jump 0xa7
007a e402 | | Load 0x2,0x2
007b 00db | | Load_Top At_Offset_3
007c 0244 | D | Execute Float,Less
007d 680f |h | Jump_Zero 0x8d
007e e402 | | Load 0x2,0x2
007f 5838 |X8 | Indirect_Literal Float,0xb8,0.5
0080 e402 | | Load 0x2,0x2
0081 583a |X: | Indirect_Literal Float,0xbc,1.0
0082 e402 | | Load 0x2,0x2
0083 00d8 | | Load_Top At_Offset_0
0084 023b | ; | Execute Float,Times
0085 023d | = | Execute Float,Plus
0086 e20e | | Load 0x1,0xe
0087 0232 | 2 | Execute Float,Check_In_Type
0088 8248 | H | Call 0x1,0x48
0089 023d | = | Execute Float,Plus
008a 023a | : | Execute Float,Divide
008b 023d | = | Execute Float,Plus
008c c402 | | Store 0x2,0x2
008d e20e | | Load 0x1,0xe
008e 00d8 | | Load_Top At_Offset_0
008f e20e | | Load 0x1,0xe
0090 e402 | | Load 0x2,0x2
0091 e20e | | Load 0x1,0xe
0092 0232 | 2 | Execute Float,Check_In_Type
0093 824b | K | Call 0x1,0x4b
0094 c405 | | Store 0x2,0x5
0095 c406 | | Store 0x2,0x6
0096 c407 | | Store 0x2,0x7
0097 e405 | | Load 0x2,0x5
0098 5823 |X# | Indirect_Literal Float,0xbc,1.0
0099 023d | = | Execute Float,Plus
009a c405 | | Store 0x2,0x5
009b e405 | | Load 0x2,0x5
009c 5827 |X' | Indirect_Literal Float,0xc4,0.693115234375
009d 023b | ; | Execute Float,Times
009e e406 | | Load 0x2,0x6
009f e407 | | Load 0x2,0x7
00a0 e405 | | Load 0x2,0x5
00a1 581e |X | Indirect_Literal Float,0xc0,3.1946184945309415e-05
00a2 023b | ; | Execute Float,Times
00a3 023d | = | Execute Float,Plus
00a4 023d | = | Execute Float,Plus
00a5 023d | = | Execute Float,Plus
00a6 c408 | | Store 0x2,0x8
00a7 e403 | | Load 0x2,0x3
00a8 e20e | | Load 0x1,0xe
00a9 0232 | 2 | Execute Float,Check_In_Type
00aa e408 | | Load 0x2,0x8
00ab e20e | | Load 0x1,0xe
00ac 0232 | 2 | Execute Float,Check_In_Type
00ad e00b | | Load 0x0,0xb
00ae e230 | 0 | Load 0x1,0x30
00af 0096 | | Execute Package,Entry
00b0 00d8 | | Load_Top At_Offset_0
00b1 e20e | | Load 0x1,0xe
00b2 0234 | 4 | Execute Float,In_Type
00b3 7001 |p | Jump_Nonzero 0xb5
00b4 0801 | | Execute_Immediate Raise,0x1
00b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b6 0000 0000 | | .XXX[0x2]
00b8 3fe0 0000 |? | .DBL 0.5
00ba 0000 0000 | |
00bc 3ff0 0000 |? | .DBL 1.0
00be 0000 0000 | |
00c0 3f00 bfbe |? | .DBL 3.1946184945309415e-05
00c2 8e7b cd5e | { ^|
00c4 3fe6 2e00 |? . | .DBL 0.693115234375
00c6 0000 0000 | |
00c8 4024 0000 |@$ | .DBL 10.0
00ca 0000 0000 | |
00cc 4000 0000 |@ | .DBL 2.0
00ce 0000 0000 | |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; Debug Table
00d0 ; --------------------------------------------------------------------------------------
00d0 0004 0001 | | .DEBUG4 0x0004,0x0001,0xf26e,0x0000,0x0001,0x0001
00d6 000b 00da | | .DBG4T 0x000b,0x00da,0x1002,0x8000
00da ; --------------------------------------------------------------------------------------
00da ; Debug chain
00da ; --------------------------------------------------------------------------------------
00da 0005 000e | | .DBGLEN 0x0005,0x000e
00dc 000b 0012 | | .DBGLNO 0x000b,0x0012,0x0020,0x0030,0x0033,0x0036,0x003d,0x0047,0x004a,0x004e,0x0052,0x0061,0x0074,0x007a,0x007e,0x008d,0x0097,0x009b,0x00a7
00ef 0001 0004 | | .XXX[0x5]
00f1 0005 0006 | |
00f3 0007 | |
00f4 0000 0000 | | .BLANK 0000[0x10c]