|
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]