|
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: 2048 (0x800)
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 01c0 | | .CONST 0x01c0 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 003d | = | .CONST 0x003d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0018 | | .CONST 0x0018 ; 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 03d8 | | Declare_Variable Float,Duplicate
0013 03d8 | | Declare_Variable Float,Duplicate
0014 00e2 | | Load_Encached Integer_Cache
0015 061a | | Execute_Immediate Set_Value_Unchecked,0x1a
0016 59a1 |Y | Indirect_Literal Float,0x1b8,0.693115234375
0017 e20e | | Load 0x1,0xe
0018 02bf | | Declare_Variable Float,With_Value,With_Constraint
0019 599a |Y | Indirect_Literal Float,0x1b4,3.1946184945309415e-05
001a e20e | | Load 0x1,0xe
001b 02bf | | Declare_Variable Float,With_Value,With_Constraint
001c 5993 |Y | Indirect_Literal Float,0x1b0,1.44140625
001d e20e | | Load 0x1,0xe
001e 02bf | | Declare_Variable Float,With_Value,With_Constraint
001f 598c |Y | Indirect_Literal Float,0x1ac,0.0012887908889634072
0020 e20e | | Load 0x1,0xe
0021 02bf | | Declare_Variable Float,With_Value,With_Constraint
0022 5985 |Y | Indirect_Literal Float,0x1a8,1.4426950408889634
0023 e20e | | Load 0x1,0xe
0024 02bf | | Declare_Variable Float,With_Value,With_Constraint
0025 597e |Y~ | Indirect_Literal Float,0x1a4,0.43408203125
0026 e20e | | Load 0x1,0xe
0027 02bf | | Declare_Variable Float,With_Value,With_Constraint
0028 5977 |Yw | Indirect_Literal Float,0x1a0,0.00021245065325182765
0029 e20e | | Load 0x1,0xe
002a 02bf | | Declare_Variable Float,With_Value,With_Constraint
002b 5970 |Yp | Indirect_Literal Float,0x19c,0.4342944819032518
002c e20e | | Load 0x1,0xe
002d 02bf | | Declare_Variable Float,With_Value,With_Constraint
002e 5969 |Yi | Indirect_Literal Float,0x198,0.301025390625
002f e20e | | Load 0x1,0xe
0030 02bf | | Declare_Variable Float,With_Value,With_Constraint
0031 5962 |Yb | Indirect_Literal Float,0x194,4.605038981195213e-06
0032 e20e | | Load 0x1,0xe
0033 02bf | | Declare_Variable Float,With_Value,With_Constraint
0034 595b |Y[ | Indirect_Literal Float,0x190,0.360595703125
0035 e20e | | Load 0x1,0xe
0036 02bf | | Declare_Variable Float,With_Value,With_Constraint
0037 5954 |YT | Indirect_Literal Float,0x18c,7.805709724085183e-05
0038 e20e | | Load 0x1,0xe
0039 02bf | | Declare_Variable Float,With_Value,With_Constraint
003a 594d |YM | Indirect_Literal Float,0x188,0.36067376022224085
003b e20e | | Load 0x1,0xe
003c 02bf | | Declare_Variable Float,With_Value,With_Constraint
003d BODY_0008:
003d e5ff | | Load 0x2,-0x1
003e 00d8 | | Load_Top At_Offset_0
003f e20e | | Load 0x1,0xe
0040 0234 | 4 | Execute Float,In_Type
0041 7001 |p | Jump_Nonzero 0x43
0042 0801 | | Execute_Immediate Raise,0x1
0043 c402 | | Store 0x2,0x2
0044 e5fe | | Load 0x2,-0x2
0045 0149 | I | Execute Float,Less_Equal_Zero
0046 e5fe | | Load 0x2,-0x2
0047 593c |Y< | Indirect_Literal Float,0x184,1.0
0048 0247 | G | Execute Float,Equal
0049 0278 | x | Execute Discrete,Or
004a 6802 |h | Jump_Zero 0x4d
004b e006 | | Load 0x0,0x6
004c 0257 | W | Execute Discrete,Raise
004d e402 | | Load 0x2,0x2
004e 7001 |p | Jump_Nonzero 0x50
004f 08e0 | | Execute_Immediate Raise,0xe0
0050 e402 | | Load 0x2,0x2
0051 014b | K | Execute Float,Less_Zero
0052 6802 |h | Jump_Zero 0x55
0053 e006 | | Load 0x0,0x6
0054 0257 | W | Execute Discrete,Raise
0055 e20e | | Load 0x1,0xe
0056 00d8 | | Load_Top At_Offset_0
0057 e20e | | Load 0x1,0xe
0058 e402 | | Load 0x2,0x2
0059 e20e | | Load 0x1,0xe
005a 0232 | 2 | Execute Float,Check_In_Type
005b 824b | K | Call 0x1,0x4b
005c c404 | | Store 0x2,0x4
005d c405 | | Store 0x2,0x5
005e c406 | | Store 0x2,0x6
005f e5fe | | Load 0x2,-0x2
0060 591f |Y | Indirect_Literal Float,0x180,2.0
0061 0247 | G | Execute Float,Equal
0062 6839 |h9 | Jump_Zero 0x9c
0063 e40b | | Load 0x2,0xb
0064 00d8 | | Load_Top At_Offset_0
0065 00e4 | | Load_Encached Positive_Cache
0066 0260 | ` | Execute Discrete,In_Type
0067 7001 |p | Jump_Nonzero 0x69
0068 0801 | | Execute_Immediate Raise,0x1
0069 e405 | | Load 0x2,0x5
006a e406 | | Load 0x2,0x6
006b 023d | = | Execute Float,Plus
006c e20e | | Load 0x1,0xe
006d 0232 | 2 | Execute Float,Check_In_Type
006e e004 | | Load 0x0,0x4
006f e230 | 0 | Load 0x1,0x30
0070 0096 | | Execute Package,Entry
0071 c407 | | Store 0x2,0x7
0072 e405 | | Load 0x2,0x5
0073 e407 | | Load 0x2,0x7
0074 023c | < | Execute Float,Minus
0075 e406 | | Load 0x2,0x6
0076 023d | = | Execute Float,Plus
0077 c408 | | Store 0x2,0x8
0078 e407 | | Load 0x2,0x7
0079 5932 |Y2 | Indirect_Literal Float,0x1ac,0.0012887908889634072
007a 023b | ; | Execute Float,Times
007b e408 | | Load 0x2,0x8
007c 592b |Y+ | Indirect_Literal Float,0x1a8,1.4426950408889634
007d 023b | ; | Execute Float,Times
007e 023d | = | Execute Float,Plus
007f c408 | | Store 0x2,0x8
0080 e407 | | Load 0x2,0x7
0081 592e |Y. | Indirect_Literal Float,0x1b0,1.44140625
0082 023b | ; | Execute Float,Times
0083 c407 | | Store 0x2,0x7
0084 e404 | | Load 0x2,0x4
0085 7005 |p | Jump_Nonzero 0x8b
0086 e407 | | Load 0x2,0x7
0087 e408 | | Load 0x2,0x8
0088 023d | = | Execute Float,Plus
0089 c40a | | Store 0x2,0xa
008a 78e2 |x | Jump 0x16d
008b e404 | | Load 0x2,0x4
008c e407 | | Load 0x2,0x7
008d 023d | = | Execute Float,Plus
008e c405 | | Store 0x2,0x5
008f e404 | | Load 0x2,0x4
0090 e405 | | Load 0x2,0x5
0091 023c | < | Execute Float,Minus
0092 e407 | | Load 0x2,0x7
0093 023d | = | Execute Float,Plus
0094 e408 | | Load 0x2,0x8
0095 023d | = | Execute Float,Plus
0096 c406 | | Store 0x2,0x6
0097 e405 | | Load 0x2,0x5
0098 e406 | | Load 0x2,0x6
0099 023d | = | Execute Float,Plus
009a c40a | | Store 0x2,0xa
009b 78d1 |x | Jump 0x16d
009c e5fe | | Load 0x2,-0x2
009d 58de |X | Indirect_Literal Float,0x17c,10.0
009e 0247 | G | Execute Float,Equal
009f 6841 |hA | Jump_Zero 0xe1
00a0 e40b | | Load 0x2,0xb
00a1 00d8 | | Load_Top At_Offset_0
00a2 00e4 | | Load_Encached Positive_Cache
00a3 0260 | ` | Execute Discrete,In_Type
00a4 7001 |p | Jump_Nonzero 0xa6
00a5 0801 | | Execute_Immediate Raise,0x1
00a6 e405 | | Load 0x2,0x5
00a7 e406 | | Load 0x2,0x6
00a8 023d | = | Execute Float,Plus
00a9 e20e | | Load 0x1,0xe
00aa 0232 | 2 | Execute Float,Check_In_Type
00ab e004 | | Load 0x0,0x4
00ac e230 | 0 | Load 0x1,0x30
00ad 0096 | | Execute Package,Entry
00ae c407 | | Store 0x2,0x7
00af e405 | | Load 0x2,0x5
00b0 e407 | | Load 0x2,0x7
00b1 023c | < | Execute Float,Minus
00b2 e406 | | Load 0x2,0x6
00b3 023d | = | Execute Float,Plus
00b4 c408 | | Store 0x2,0x8
00b5 e407 | | Load 0x2,0x7
00b6 58e9 |X | Indirect_Literal Float,0x1a0,0.00021245065325182765
00b7 023b | ; | Execute Float,Times
00b8 e408 | | Load 0x2,0x8
00b9 58e2 |X | Indirect_Literal Float,0x19c,0.4342944819032518
00ba 023b | ; | Execute Float,Times
00bb 023d | = | Execute Float,Plus
00bc c408 | | Store 0x2,0x8
00bd e407 | | Load 0x2,0x7
00be 58e5 |X | Indirect_Literal Float,0x1a4,0.43408203125
00bf 023b | ; | Execute Float,Times
00c0 c407 | | Store 0x2,0x7
00c1 e404 | | Load 0x2,0x4
00c2 7005 |p | Jump_Nonzero 0xc8
00c3 e407 | | Load 0x2,0x7
00c4 e408 | | Load 0x2,0x8
00c5 023d | = | Execute Float,Plus
00c6 c40a | | Store 0x2,0xa
00c7 78a5 |x | Jump 0x16d
00c8 e404 | | Load 0x2,0x4
00c9 58ce |X | Indirect_Literal Float,0x198,0.301025390625
00ca 023b | ; | Execute Float,Times
00cb c402 | | Store 0x2,0x2
00cc e402 | | Load 0x2,0x2
00cd e407 | | Load 0x2,0x7
00ce 023d | = | Execute Float,Plus
00cf c405 | | Store 0x2,0x5
00d0 e402 | | Load 0x2,0x2
00d1 e405 | | Load 0x2,0x5
00d2 023c | < | Execute Float,Minus
00d3 e407 | | Load 0x2,0x7
00d4 023d | = | Execute Float,Plus
00d5 e408 | | Load 0x2,0x8
00d6 e404 | | Load 0x2,0x4
00d7 58bc |X | Indirect_Literal Float,0x194,4.605038981195213e-06
00d8 023b | ; | Execute Float,Times
00d9 023d | = | Execute Float,Plus
00da 023d | = | Execute Float,Plus
00db c406 | | Store 0x2,0x6
00dc e405 | | Load 0x2,0x5
00dd e406 | | Load 0x2,0x6
00de 023d | = | Execute Float,Plus
00df c40a | | Store 0x2,0xa
00e0 788c |x | Jump 0x16d
00e1 e5fe | | Load 0x2,-0x2
00e2 5895 |X | Indirect_Literal Float,0x178,16.0
00e3 0247 | G | Execute Float,Equal
00e4 683d |h= | Jump_Zero 0x122
00e5 e40b | | Load 0x2,0xb
00e6 00d8 | | Load_Top At_Offset_0
00e7 00e4 | | Load_Encached Positive_Cache
00e8 0260 | ` | Execute Discrete,In_Type
00e9 7001 |p | Jump_Nonzero 0xeb
00ea 0801 | | Execute_Immediate Raise,0x1
00eb e405 | | Load 0x2,0x5
00ec e406 | | Load 0x2,0x6
00ed 023d | = | Execute Float,Plus
00ee e20e | | Load 0x1,0xe
00ef 0232 | 2 | Execute Float,Check_In_Type
00f0 e004 | | Load 0x0,0x4
00f1 e230 | 0 | Load 0x1,0x30
00f2 0096 | | Execute Package,Entry
00f3 c407 | | Store 0x2,0x7
00f4 e405 | | Load 0x2,0x5
00f5 e407 | | Load 0x2,0x7
00f6 023c | < | Execute Float,Minus
00f7 e406 | | Load 0x2,0x6
00f8 023d | = | Execute Float,Plus
00f9 c408 | | Store 0x2,0x8
00fa e407 | | Load 0x2,0x7
00fb 5890 |X | Indirect_Literal Float,0x18c,7.805709724085183e-05
00fc 023b | ; | Execute Float,Times
00fd e408 | | Load 0x2,0x8
00fe 5889 |X | Indirect_Literal Float,0x188,0.36067376022224085
00ff 023b | ; | Execute Float,Times
0100 023d | = | Execute Float,Plus
0101 c408 | | Store 0x2,0x8
0102 e407 | | Load 0x2,0x7
0103 588c |X | Indirect_Literal Float,0x190,0.360595703125
0104 023b | ; | Execute Float,Times
0105 c407 | | Store 0x2,0x7
0106 e404 | | Load 0x2,0x4
0107 7005 |p | Jump_Nonzero 0x10d
0108 e407 | | Load 0x2,0x7
0109 e408 | | Load 0x2,0x8
010a 023d | = | Execute Float,Plus
010b c40a | | Store 0x2,0xa
010c 7860 |x` | Jump 0x16d
010d e404 | | Load 0x2,0x4
010e 5865 |Xe | Indirect_Literal Float,0x174,0.25
010f 023b | ; | Execute Float,Times
0110 c404 | | Store 0x2,0x4
0111 e404 | | Load 0x2,0x4
0112 e407 | | Load 0x2,0x7
0113 023d | = | Execute Float,Plus
0114 c405 | | Store 0x2,0x5
0115 e404 | | Load 0x2,0x4
0116 e405 | | Load 0x2,0x5
0117 023c | < | Execute Float,Minus
0118 e407 | | Load 0x2,0x7
0119 023d | = | Execute Float,Plus
011a e408 | | Load 0x2,0x8
011b 023d | = | Execute Float,Plus
011c c406 | | Store 0x2,0x6
011d e405 | | Load 0x2,0x5
011e e406 | | Load 0x2,0x6
011f 023d | = | Execute Float,Plus
0120 c40a | | Store 0x2,0xa
0121 784b |xK | Jump 0x16d
0122 e5fe | | Load 0x2,-0x2
0123 00d8 | | Load_Top At_Offset_0
0124 e20e | | Load 0x1,0xe
0125 0234 | 4 | Execute Float,In_Type
0126 7001 |p | Jump_Nonzero 0x128
0127 0801 | | Execute_Immediate Raise,0x1
0128 c403 | | Store 0x2,0x3
0129 e20e | | Load 0x1,0xe
012a 00d8 | | Load_Top At_Offset_0
012b e20e | | Load 0x1,0xe
012c e403 | | Load 0x2,0x3
012d e20e | | Load 0x1,0xe
012e 0232 | 2 | Execute Float,Check_In_Type
012f 824b | K | Call 0x1,0x4b
0130 c404 | | Store 0x2,0x4
0131 c405 | | Store 0x2,0x5
0132 c406 | | Store 0x2,0x6
0133 e404 | | Load 0x2,0x4
0134 7005 |p | Jump_Nonzero 0x13a
0135 e405 | | Load 0x2,0x5
0136 e406 | | Load 0x2,0x6
0137 023d | = | Execute Float,Plus
0138 c409 | | Store 0x2,0x9
0139 780e |x | Jump 0x148
013a e404 | | Load 0x2,0x4
013b 5878 |Xx | Indirect_Literal Float,0x1b4,3.1946184945309415e-05
013c 023b | ; | Execute Float,Times
013d e406 | | Load 0x2,0x6
013e 023d | = | Execute Float,Plus
013f c409 | | Store 0x2,0x9
0140 e404 | | Load 0x2,0x4
0141 5876 |Xv | Indirect_Literal Float,0x1b8,0.693115234375
0142 023b | ; | Execute Float,Times
0143 e405 | | Load 0x2,0x5
0144 023d | = | Execute Float,Plus
0145 e409 | | Load 0x2,0x9
0146 023d | = | Execute Float,Plus
0147 c409 | | Store 0x2,0x9
0148 e20e | | Load 0x1,0xe
0149 00d8 | | Load_Top At_Offset_0
014a e20e | | Load 0x1,0xe
014b e402 | | Load 0x2,0x2
014c e20e | | Load 0x1,0xe
014d 0232 | 2 | Execute Float,Check_In_Type
014e 824b | K | Call 0x1,0x4b
014f c404 | | Store 0x2,0x4
0150 c405 | | Store 0x2,0x5
0151 c406 | | Store 0x2,0x6
0152 e404 | | Load 0x2,0x4
0153 7007 |p | Jump_Nonzero 0x15b
0154 e405 | | Load 0x2,0x5
0155 e406 | | Load 0x2,0x6
0156 023d | = | Execute Float,Plus
0157 e409 | | Load 0x2,0x9
0158 023a | : | Execute Float,Divide
0159 c40a | | Store 0x2,0xa
015a 7812 |x | Jump 0x16d
015b e404 | | Load 0x2,0x4
015c 5857 |XW | Indirect_Literal Float,0x1b4,3.1946184945309415e-05
015d 023b | ; | Execute Float,Times
015e e406 | | Load 0x2,0x6
015f 023d | = | Execute Float,Plus
0160 c40a | | Store 0x2,0xa
0161 e404 | | Load 0x2,0x4
0162 5855 |XU | Indirect_Literal Float,0x1b8,0.693115234375
0163 023b | ; | Execute Float,Times
0164 e405 | | Load 0x2,0x5
0165 023d | = | Execute Float,Plus
0166 e40a | | Load 0x2,0xa
0167 023d | = | Execute Float,Plus
0168 c40a | | Store 0x2,0xa
0169 e40a | | Load 0x2,0xa
016a e409 | | Load 0x2,0x9
016b 023a | : | Execute Float,Divide
016c c40a | | Store 0x2,0xa
016d e40a | | Load 0x2,0xa
016e 00d8 | | Load_Top At_Offset_0
016f e20e | | Load 0x1,0xe
0170 0234 | 4 | Execute Float,In_Type
0171 7001 |p | Jump_Nonzero 0x173
0172 0801 | | Execute_Immediate Raise,0x1
0173 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0174 3fd0 0000 |? | .DBL 0.25
0176 0000 0000 | |
0178 4030 0000 |@0 | .DBL 16.0
017a 0000 0000 | |
017c 4024 0000 |@$ | .DBL 10.0
017e 0000 0000 | |
0180 4000 0000 |@ | .DBL 2.0
0182 0000 0000 | |
0184 3ff0 0000 |? | .DBL 1.0
0186 0000 0000 | |
0188 3fd7 1547 |? G| .DBL 0.36067376022224085
018a 652b 82fe |e+ |
018c 3f14 7652 |? vR| .DBL 7.805709724085183e-05
018e b82f e177 | / w|
0190 3fd7 1400 |? | .DBL 0.360595703125
0192 0000 0000 | |
0194 3ed3 509f |> P | .DBL 4.605038981195213e-06
0196 79fe f311 |y |
0198 3fd3 4400 |? D | .DBL 0.301025390625
019a 0000 0000 | |
019c 3fdb cb7b |? {| .DBL 0.4342944819032518
019e 1526 e50e | & |
01a0 3f2b d8a9 |?+ | .DBL 0.00021245065325182765
01a2 3728 7195 |7(q |
01a4 3fdb c800 |? | .DBL 0.43408203125
01a6 0000 0000 | |
01a8 3ff7 1547 |? G| .DBL 1.4426950408889634
01aa 652b 82fe |e+ |
01ac 3f55 1d94 |?U | .DBL 0.0012887908889634072
01ae ae0b f85d | ]|
01b0 3ff7 1000 |? | .DBL 1.44140625
01b2 0000 0000 | |
01b4 3f00 bfbe |? | .DBL 3.1946184945309415e-05
01b6 8e7b cd5e | { ^|
01b8 3fe6 2e00 |? . | .DBL 0.693115234375
01ba 0000 0000 | |
01bc 0000 0000 | | .BLANK 0000[0x4]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; Debug Table
01c0 ; --------------------------------------------------------------------------------------
01c0 0004 0001 | | .DEBUG4 0x0004,0x0001,0xf282,0x0000,0x0001,0x0001
01c6 000b 01ca | | .DBG4T 0x000b,0x01ca,0x1002,0x0000
01ca ; --------------------------------------------------------------------------------------
01ca ; Debug chain
01ca ; --------------------------------------------------------------------------------------
01ca 000f 0035 | 5| .DBGLEN 0x000f,0x0035
01cc 000b 0014 | | .DBGLNO 0x000b,0x0014,0x0016,0x0019,0x001c,0x001f,0x0022,0x0025,0x0028,0x002b,0x002e,0x0031,0x0034,0x0037,0x003a,0x003d,0x0044,0x004b,0x004d,0x004f,0x0050,0x0053,0x0055,0x005f,0x0063,0x0072,0x0078,0x0080,0x0084,0x0086,0x008b,0x008f,0x0097,0x009c,0x00a0,0x00af,0x00b5,0x00bd,0x00c1,0x00c3,0x00c8,0x00cc,0x00d0,0x00dc,0x00e1,0x00e5,0x00f4,0x00fa,0x0102,0x0106,0x0108,0x010d,0x0111,0x0115,0x011d,0x0122,0x0129,0x0133,0x0135,0x013a,0x0140,0x0148,0x0152,0x0154,0x015b,0x0161,0x0169,0x016d
0210 0000 0000 | | .BLANK 0000[0x1f0]