|
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 01a0 | | .CONST 0x01a0 ; 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 0050 | P | .CONST 0x0050 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; 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 03d8 | | Declare_Variable Float,Duplicate
0015 03d8 | | Declare_Variable Float,Duplicate
0016 e22c | , | Load 0x1,0x2c
0017 03e9 | | Declare_Variable Discrete,Duplicate
0018 03e9 | | Declare_Variable Discrete,Duplicate
0019 4803 |H | Short_Literal 0x3
001a e20e | | Load 0x1,0xe
001b 0122 | " | Execute Any,Make_Root_Type
001c 1c01 | | Execute_Immediate Run_Utility,0x1
001d 0271 | q | Execute Discrete,Times
001e 0237 | 7 | Execute Float,Convert_From_Discrete
001f e20e | | Load 0x1,0xe
0020 0238 | 8 | Execute Float,Convert
0021 4ffd |O | Short_Literal -0x3
0022 4803 |H | Short_Literal 0x3
0023 e20e | | Load 0x1,0xe
0024 02a0 | | Declare_Subprogram Null_Subprogram
0025 4801 |H | Short_Literal 0x1
0026 035d | ] | Declare_Type Array,Defined
0027 00d8 | | Load_Top At_Offset_0
0028 0337 | 7 | Declare_Variable Array
0029 00d8 | | Load_Top At_Offset_0
002a 0335 | 5 | Declare_Variable Array,Duplicate
002b 00cd | | Action Spare6_Action
002c 596f |Yo | Indirect_Literal Float,0x19c,0.125
002d 4ffd |O | Short_Literal -0x3
002e 00da | | Load_Top At_Offset_2
002f 01d6 | | Execute Vector,Field_Write
0030 5967 |Yg | Indirect_Literal Float,0x198,0.25
0031 4ffe |O | Short_Literal -0x2
0032 00da | | Load_Top At_Offset_2
0033 01d6 | | Execute Vector,Field_Write
0034 595f |Y_ | Indirect_Literal Float,0x194,0.5
0035 4fff |O | Short_Literal -0x1
0036 00da | | Load_Top At_Offset_2
0037 01d6 | | Execute Vector,Field_Write
0038 5957 |YW | Indirect_Literal Float,0x190,1.0
0039 4800 |H | Short_Literal 0x0
003a 00da | | Load_Top At_Offset_2
003b 01d6 | | Execute Vector,Field_Write
003c 594f |YO | Indirect_Literal Float,0x18c,2.0
003d 4801 |H | Short_Literal 0x1
003e 00da | | Load_Top At_Offset_2
003f 01d6 | | Execute Vector,Field_Write
0040 5947 |YG | Indirect_Literal Float,0x188,4.0
0041 4802 |H | Short_Literal 0x2
0042 00da | | Load_Top At_Offset_2
0043 01d6 | | Execute Vector,Field_Write
0044 593f |Y? | Indirect_Literal Float,0x184,8.0
0045 4803 |H | Short_Literal 0x3
0046 00da | | Load_Top At_Offset_2
0047 01d6 | | Execute Vector,Field_Write
0048 00d9 | | Load_Top At_Offset_1
0049 01d4 | | Execute Vector,Structure_Write
004a 5935 |Y5 | Indirect_Literal Float,0x180,0.693115234375
004b e20e | | Load 0x1,0xe
004c 02bf | | Declare_Variable Float,With_Value,With_Constraint
004d 592e |Y. | Indirect_Literal Float,0x17c,3.1946184945309415e-05
004e e20e | | Load 0x1,0xe
004f 02bf | | Declare_Variable Float,With_Value,With_Constraint
0050 BODY_0008:
0050 e5ff | | Load 0x2,-0x1
0051 5926 |Y& | Indirect_Literal Float,0x178,-1.0
0052 0242 | B | Execute Float,Less_Equal
0053 6802 |h | Jump_Zero 0x56
0054 e006 | | Load 0x0,0x6
0055 0257 | W | Execute Discrete,Raise
0056 e5ff | | Load 0x2,-0x1
0057 591c |Y | Indirect_Literal Float,0x174,-0.06058788299560547
0058 0243 | C | Execute Float,Greater_Equal
0059 e5ff | | Load 0x2,-0x1
005a 5915 |Y | Indirect_Literal Float,0x170,0.06449508666992188
005b 0242 | B | Execute Float,Less_Equal
005c 0279 | y | Execute Discrete,And
005d 6807 |h | Jump_Zero 0x65
005e e5ff | | Load 0x2,-0x1
005f e20e | | Load 0x1,0xe
0060 0232 | 2 | Execute Float,Check_In_Type
0061 8249 | I | Call 0x1,0x49
0062 e20e | | Load 0x1,0xe
0063 0232 | 2 | Execute Float,Check_In_Type
0064 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0065 e5ff | | Load 0x2,-0x1
0066 592d |Y- | Indirect_Literal Float,0x194,0.5
0067 5904 |Y | Indirect_Literal Float,0x16c,1.7976931348623151e+308
0068 023b | ; | Execute Float,Times
0069 0243 | C | Execute Float,Greater_Equal
006a 680b |h | Jump_Zero 0x76
006b e20e | | Load 0x1,0xe
006c 00d8 | | Load_Top At_Offset_0
006d e20e | | Load 0x1,0xe
006e e5ff | | Load 0x2,-0x1
006f e20e | | Load 0x1,0xe
0070 0232 | 2 | Execute Float,Check_In_Type
0071 824b | K | Call 0x1,0x4b
0072 c406 | | Store 0x2,0x6
0073 c408 | | Store 0x2,0x8
0074 c409 | | Store 0x2,0x9
0075 78d5 |x | Jump 0x14b
0076 5919 |Y | Indirect_Literal Float,0x190,1.0
0077 e5ff | | Load 0x2,-0x1
0078 023d | = | Execute Float,Plus
0079 c407 | | Store 0x2,0x7
007a e230 | 0 | Load 0x1,0x30
007b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
007c e230 | 0 | Load 0x1,0x30
007d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
007e e407 | | Load 0x2,0x7
007f e20e | | Load 0x1,0xe
0080 0232 | 2 | Execute Float,Check_In_Type
0081 e009 | | Load 0x0,0x9
0082 e230 | 0 | Load 0x1,0x30
0083 0096 | | Execute Package,Entry
0084 c402 | | Store 0x2,0x2
0085 c40e | | Store 0x2,0xe
0086 e40e | | Load 0x2,0xe
0087 0237 | 7 | Execute Float,Convert_From_Discrete
0088 e20e | | Load 0x1,0xe
0089 0238 | 8 | Execute Float,Convert
008a c406 | | Store 0x2,0x6
008b 4800 |H | Short_Literal 0x0
008c a40f | | Store_Unchecked 0x2,0xf
008d 7811 |x | Jump 0x9f
008e e40f 0aff | | .XXX[0x11]
0090 a40f e406 | |
0092 58fd 023c |X <|
0094 c406 e402 | |
0096 00d8 023d | =|
0098 c402 00c9 | |
009a e402 58f8 | X |
009c 0244 77f0 | Dw |
009e 00ce | |
009f e402 | | Load 0x2,0x2
00a0 58c7 |X | Indirect_Literal Float,0x168,128.0
00a1 023b | ; | Execute Float,Times
00a2 0235 | 5 | Execute Float,Round_To_Discrete
00a3 e22c | , | Load 0x1,0x2c
00a4 025e | ^ | Execute Discrete,Convert
00a5 a40d | | Store_Unchecked 0x2,0xd
00a6 e40d | | Load 0x2,0xd
00a7 0237 | 7 | Execute Float,Convert_From_Discrete
00a8 e20e | | Load 0x1,0xe
00a9 0238 | 8 | Execute Float,Convert
00aa 58b9 |X | Indirect_Literal Float,0x164,0.0078125
00ab 023b | ; | Execute Float,Times
00ac c403 | | Store 0x2,0x3
00ad e406 | | Load 0x2,0x6
00ae e410 | | Load 0x2,0x10
00af 0242 | B | Execute Float,Less_Equal
00b0 6839 |h9 | Jump_Zero 0xea
00b1 e40f | | Load 0x2,0xf
00b2 7017 |p | Jump_Nonzero 0xca
00b3 e40e | | Load 0x2,0xe
00b4 0275 | u | Execute Discrete,Unary_Minus
00b5 58da |X | Indirect_Literal Float,0x190,1.0
00b6 e20e | | Load 0x1,0xe
00b7 0232 | 2 | Execute Float,Check_In_Type
00b8 e00a | | Load 0x0,0xa
00b9 e230 | 0 | Load 0x1,0x30
00ba 0096 | | Execute Package,Entry
00bb e403 | | Load 0x2,0x3
00bc 023c | < | Execute Float,Minus
00bd c404 | | Store 0x2,0x4
00be e404 | | Load 0x2,0x4
00bf e40e | | Load 0x2,0xe
00c0 0275 | u | Execute Discrete,Unary_Minus
00c1 e5ff | | Load 0x2,-0x1
00c2 e20e | | Load 0x1,0xe
00c3 0232 | 2 | Execute Float,Check_In_Type
00c4 e00a | | Load 0x0,0xa
00c5 e230 | 0 | Load 0x1,0x30
00c6 0096 | | Execute Package,Entry
00c7 023d | = | Execute Float,Plus
00c8 c404 | | Store 0x2,0x4
00c9 7858 |xX | Jump 0x122
00ca e40e | | Load 0x2,0xe
00cb 0275 | u | Execute Discrete,Unary_Minus
00cc 58c3 |X | Indirect_Literal Float,0x190,1.0
00cd e20e | | Load 0x1,0xe
00ce 0232 | 2 | Execute Float,Check_In_Type
00cf e00a | | Load 0x0,0xa
00d0 e230 | 0 | Load 0x1,0x30
00d1 0096 | | Execute Package,Entry
00d2 e40f | | Load 0x2,0xf
00d3 e412 | | Load 0x2,0x12
00d4 01d7 | | Execute Vector,Field_Read
00d5 e403 | | Load 0x2,0x3
00d6 023b | ; | Execute Float,Times
00d7 023c | < | Execute Float,Minus
00d8 c404 | | Store 0x2,0x4
00d9 e404 | | Load 0x2,0x4
00da e40e | | Load 0x2,0xe
00db 0275 | u | Execute Discrete,Unary_Minus
00dc e5ff | | Load 0x2,-0x1
00dd e20e | | Load 0x1,0xe
00de 0232 | 2 | Execute Float,Check_In_Type
00df e00a | | Load 0x0,0xa
00e0 e230 | 0 | Load 0x1,0x30
00e1 0096 | | Execute Package,Entry
00e2 023d | = | Execute Float,Plus
00e3 e40f | | Load 0x2,0xf
00e4 0275 | u | Execute Discrete,Unary_Minus
00e5 e412 | | Load 0x2,0x12
00e6 01d7 | | Execute Vector,Field_Read
00e7 023b | ; | Execute Float,Times
00e8 c404 | | Store 0x2,0x4
00e9 7838 |x8 | Jump 0x122
00ea e40f | | Load 0x2,0xf
00eb 7017 |p | Jump_Nonzero 0x103
00ec e40e | | Load 0x2,0xe
00ed 0275 | u | Execute Discrete,Unary_Minus
00ee e5ff | | Load 0x2,-0x1
00ef e20e | | Load 0x1,0xe
00f0 0232 | 2 | Execute Float,Check_In_Type
00f1 e00a | | Load 0x0,0xa
00f2 e230 | 0 | Load 0x1,0x30
00f3 0096 | | Execute Package,Entry
00f4 e403 | | Load 0x2,0x3
00f5 023c | < | Execute Float,Minus
00f6 c404 | | Store 0x2,0x4
00f7 e404 | | Load 0x2,0x4
00f8 e40e | | Load 0x2,0xe
00f9 0275 | u | Execute Discrete,Unary_Minus
00fa 5895 |X | Indirect_Literal Float,0x190,1.0
00fb e20e | | Load 0x1,0xe
00fc 0232 | 2 | Execute Float,Check_In_Type
00fd e00a | | Load 0x0,0xa
00fe e230 | 0 | Load 0x1,0x30
00ff 0096 | | Execute Package,Entry
0100 023d | = | Execute Float,Plus
0101 c404 | | Store 0x2,0x4
0102 781f |x | Jump 0x122
0103 e40e | | Load 0x2,0xe
0104 0275 | u | Execute Discrete,Unary_Minus
0105 e5ff | | Load 0x2,-0x1
0106 e20e | | Load 0x1,0xe
0107 0232 | 2 | Execute Float,Check_In_Type
0108 e00a | | Load 0x0,0xa
0109 e230 | 0 | Load 0x1,0x30
010a 0096 | | Execute Package,Entry
010b e40f | | Load 0x2,0xf
010c e412 | | Load 0x2,0x12
010d 01d7 | | Execute Vector,Field_Read
010e e402 | | Load 0x2,0x2
010f 023b | ; | Execute Float,Times
0110 023c | < | Execute Float,Minus
0111 c404 | | Store 0x2,0x4
0112 e404 | | Load 0x2,0x4
0113 e40e | | Load 0x2,0xe
0114 0275 | u | Execute Discrete,Unary_Minus
0115 587a |Xz | Indirect_Literal Float,0x190,1.0
0116 e20e | | Load 0x1,0xe
0117 0232 | 2 | Execute Float,Check_In_Type
0118 e00a | | Load 0x0,0xa
0119 e230 | 0 | Load 0x1,0x30
011a 0096 | | Execute Package,Entry
011b 023d | = | Execute Float,Plus
011c e40f | | Load 0x2,0xf
011d 0275 | u | Execute Discrete,Unary_Minus
011e e412 | | Load 0x2,0x12
011f 01d7 | | Execute Vector,Field_Read
0120 023b | ; | Execute Float,Times
0121 c404 | | Store 0x2,0x4
0122 e406 | | Load 0x2,0x6
0123 586c |Xl | Indirect_Literal Float,0x190,1.0
0124 023c | < | Execute Float,Minus
0125 c406 | | Store 0x2,0x6
0126 e403 | | Load 0x2,0x3
0127 00d8 | | Load_Top At_Offset_0
0128 023d | = | Execute Float,Plus
0129 c403 | | Store 0x2,0x3
012a e404 | | Load 0x2,0x4
012b c40a | | Store 0x2,0xa
012c e404 | | Load 0x2,0x4
012d 00d8 | | Load_Top At_Offset_0
012e 023d | = | Execute Float,Plus
012f c404 | | Store 0x2,0x4
0130 e404 | | Load 0x2,0x4
0131 e403 | | Load 0x2,0x3
0132 e40a | | Load 0x2,0xa
0133 023d | = | Execute Float,Plus
0134 023a | : | Execute Float,Divide
0135 c405 | | Store 0x2,0x5
0136 e405 | | Load 0x2,0x5
0137 e20e | | Load 0x1,0xe
0138 0232 | 2 | Execute Float,Check_In_Type
0139 824a | J | Call 0x1,0x4a
013a c40b | | Store 0x2,0xb
013b 4800 |H | Short_Literal 0x0
013c e40d | | Load 0x2,0xd
013d e244 | D | Load 0x1,0x44
013e 01a7 | | Execute Matrix,Field_Read
013f c408 | | Store 0x2,0x8
0140 e405 | | Load 0x2,0x5
0141 4801 |H | Short_Literal 0x1
0142 e40d | | Load 0x2,0xd
0143 e244 | D | Load 0x1,0x44
0144 01a7 | | Execute Matrix,Field_Read
0145 e405 | | Load 0x2,0x5
0146 e40b | | Load 0x2,0xb
0147 023b | ; | Execute Float,Times
0148 023d | = | Execute Float,Plus
0149 023d | = | Execute Float,Plus
014a c409 | | Store 0x2,0x9
014b e406 | | Load 0x2,0x6
014c 7005 |p | Jump_Nonzero 0x152
014d e408 | | Load 0x2,0x8
014e e409 | | Load 0x2,0x9
014f 023d | = | Execute Float,Plus
0150 c40c | | Store 0x2,0xc
0151 780e |x | Jump 0x160
0152 e406 | | Load 0x2,0x6
0153 5828 |X( | Indirect_Literal Float,0x17c,3.1946184945309415e-05
0154 023b | ; | Execute Float,Times
0155 e409 | | Load 0x2,0x9
0156 023d | = | Execute Float,Plus
0157 c40c | | Store 0x2,0xc
0158 e406 | | Load 0x2,0x6
0159 5826 |X& | Indirect_Literal Float,0x180,0.693115234375
015a 023b | ; | Execute Float,Times
015b e408 | | Load 0x2,0x8
015c 023d | = | Execute Float,Plus
015d e40c | | Load 0x2,0xc
015e 023d | = | Execute Float,Plus
015f c40c | | Store 0x2,0xc
0160 e40c | | Load 0x2,0xc
0161 e20e | | Load 0x1,0xe
0162 0232 | 2 | Execute Float,Check_In_Type
0163 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0164 3f80 0000 |? | .DBL 0.0078125
0166 0000 0000 | |
0168 4060 0000 |@` | .DBL 128.0
016a 0000 0000 | |
016c 7fef ffff | | .DBL 1.7976931348623151e+308
016e ffff fffc | |
0170 3fb0 82c0 |? | .DBL 0.06449508666992188
0172 0000 0000 | |
0174 bfaf 0560 | `| .DBL -0.06058788299560547
0176 0000 0000 | |
0178 bff0 0000 | | .DBL -1.0
017a 0000 0000 | |
017c 3f00 bfbe |? | .DBL 3.1946184945309415e-05
017e 8e7b cd5e | { ^|
0180 3fe6 2e00 |? . | .DBL 0.693115234375
0182 0000 0000 | |
0184 4020 0000 |@ | .DBL 8.0
0186 0000 0000 | |
0188 4010 0000 |@ | .DBL 4.0
018a 0000 0000 | |
018c 4000 0000 |@ | .DBL 2.0
018e 0000 0000 | |
0190 3ff0 0000 |? | .DBL 1.0
0192 0000 0000 | |
0194 3fe0 0000 |? | .DBL 0.5
0196 0000 0000 | |
0198 3fd0 0000 |? | .DBL 0.25
019a 0000 0000 | |
019c 3fc0 0000 |? | .DBL 0.125
019e 0000 0000 | |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; Debug Table
01a0 ; --------------------------------------------------------------------------------------
01a0 0004 0001 | | .DEBUG4 0x0004,0x0001,0xf280,0x0000,0x0001,0x0001
01a6 000b 01aa | | .DBG4T 0x000b,0x01aa,0x1002,0xc000
01aa ; --------------------------------------------------------------------------------------
01aa ; Debug chain
01aa ; --------------------------------------------------------------------------------------
01aa 0006 0029 | )| .DBGLEN 0x0006,0x0029
01ac 000b 0016 | | .DBGLNO 0x000b,0x0016,0x0019,0x0021,0x004a,0x004d,0x0050,0x0054,0x0056,0x005e,0x0065,0x006b,0x0076,0x007a,0x0086,0x008b,0x008d,0x008e,0x0091,0x0095,0x009a,0x009f,0x00a6,0x00ad,0x00b1,0x00b3,0x00be,0x00ca,0x00d9,0x00ea,0x00ec,0x00f7,0x0103,0x0112,0x0122,0x0126,0x012a,0x012c,0x0130,0x0136,0x013b,0x0140,0x014b,0x014d,0x0152,0x0158,0x0160
01db 0001 0002 | | .XXX[0x2f]
01dd 0005 0006 | |
01df 0007 0008 | |
01e1 0001 0002 | |
01e3 0003 0004 | |
01e5 0005 0006 | |
01e7 0007 0008 | |
01e9 0009 000a | |
01eb 000b 000e | |
01ed 000f 0010 | |
01ef 000d 0011 | |
01f1 0012 0013 | |
01f3 0014 0015 | |
01f5 0016 0017 | |
01f7 0018 0019 | |
01f9 001a 001b | |
01fb 001c 001d | |
01fd 001e 001f | |
01ff 0020 0021 | !|
0201 0022 0023 | " #|
0203 0024 0025 | $ %|
0205 0026 0027 | & '|
0207 0028 0029 | ( )|
0209 002a | * |
020a 0000 0000 | | .BLANK 0000[0x1f6]