|
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 0198 | | .CONST 0x0198 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 005d | ] | .CONST 0x005d ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0017 | | .CONST 0x0017 ; Number of locals 000b INIT_0008: 000b e20e | | Load 0x1,0xe 000c 0007 | | Action Break_Optional 000d 00d8 | | Load_Top At_Offset_0 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 03d8 | | Declare_Variable Float,Duplicate 0017 03d8 | | Declare_Variable Float,Duplicate 0018 03d8 | | Declare_Variable Float,Duplicate 0019 03d8 | | Declare_Variable Float,Duplicate 001a e22c | , | Load 0x1,0x2c 001b 03e9 | | Declare_Variable Discrete,Duplicate 001c 03e9 | | Declare_Variable Discrete,Duplicate 001d 00e4 | | Load_Encached Positive_Cache 001e 03e9 | | Declare_Variable Discrete,Duplicate 001f 4ffd |O | Short_Literal -0x3 0020 4803 |H | Short_Literal 0x3 0021 e20e | | Load 0x1,0xe 0022 02a0 | | Declare_Subprogram Null_Subprogram 0023 4801 |H | Short_Literal 0x1 0024 035d | ] | Declare_Type Array,Defined 0025 00d8 | | Load_Top At_Offset_0 0026 0337 | 7 | Declare_Variable Array 0027 00d8 | | Load_Top At_Offset_0 0028 0335 | 5 | Declare_Variable Array,Duplicate 0029 00cd | | Action Spare6_Action 002a 5965 |Ye | Indirect_Literal Float,0x190,0.125 002b 4ffd |O | Short_Literal -0x3 002c 00da | | Load_Top At_Offset_2 002d 01d6 | | Execute Vector,Field_Write 002e 595d |Y] | Indirect_Literal Float,0x18c,0.25 002f 4ffe |O | Short_Literal -0x2 0030 00da | | Load_Top At_Offset_2 0031 01d6 | | Execute Vector,Field_Write 0032 5955 |YU | Indirect_Literal Float,0x188,0.5 0033 4fff |O | Short_Literal -0x1 0034 00da | | Load_Top At_Offset_2 0035 01d6 | | Execute Vector,Field_Write 0036 594d |YM | Indirect_Literal Float,0x184,1.0 0037 4800 |H | Short_Literal 0x0 0038 00da | | Load_Top At_Offset_2 0039 01d6 | | Execute Vector,Field_Write 003a 5945 |YE | Indirect_Literal Float,0x180,2.0 003b 4801 |H | Short_Literal 0x1 003c 00da | | Load_Top At_Offset_2 003d 01d6 | | Execute Vector,Field_Write 003e 593d |Y= | Indirect_Literal Float,0x17c,4.0 003f 4802 |H | Short_Literal 0x2 0040 00da | | Load_Top At_Offset_2 0041 01d6 | | Execute Vector,Field_Write 0042 5935 |Y5 | Indirect_Literal Float,0x178,8.0 0043 4803 |H | Short_Literal 0x3 0044 00da | | Load_Top At_Offset_2 0045 01d6 | | Execute Vector,Field_Write 0046 00d9 | | Load_Top At_Offset_1 0047 01d4 | | Execute Vector,Structure_Write 0048 5933 |Y3 | Indirect_Literal Float,0x17c,4.0 0049 612a |a* | Indirect_Literal Discrete,0x174,{0x00000000, 0x00000400} 004a 0237 | 7 | Execute Float,Convert_From_Discrete 004b e20e | | Load 0x1,0xe 004c 0238 | 8 | Execute Float,Convert 004d 023b | ; | Execute Float,Times 004e 5931 |Y1 | Indirect_Literal Float,0x180,2.0 004f 4801 |H | Short_Literal 0x1 0050 e20e | | Load 0x1,0xe 0051 0122 | " | Execute Any,Make_Root_Type 0052 1c01 | | Execute_Immediate Run_Utility,0x1 0053 480a |H | Short_Literal 0xa 0054 0271 | q | Execute Discrete,Times 0055 0a05 | | Execute_Immediate Plus,0x5 0056 4803 |H | Short_Literal 0x3 0057 0270 | p | Execute Discrete,Divide 0058 0272 | r | Execute Discrete,Minus 0059 0239 | 9 | Execute Float,Exponentiate 005a 023a | : | Execute Float,Divide 005b e20e | | Load 0x1,0xe 005c 02bf | | Declare_Variable Float,With_Value,With_Constraint 005d BODY_0008: 005d e5ff | | Load 0x2,-0x1 005e 00d8 | | Load_Top At_Offset_0 005f e20e | | Load 0x1,0xe 0060 0234 | 4 | Execute Float,In_Type 0061 7001 |p | Jump_Nonzero 0x63 0062 0801 | | Execute_Immediate Raise,0x1 0063 c403 | | Store 0x2,0x3 0064 e5fe | | Load 0x2,-0x2 0065 00d8 | | Load_Top At_Offset_0 0066 e20e | | Load 0x1,0xe 0067 0234 | 4 | Execute Float,In_Type 0068 7001 |p | Jump_Nonzero 0x6a 0069 0801 | | Execute_Immediate Raise,0x1 006a c404 | | Store 0x2,0x4 006b e403 | | Load 0x2,0x3 006c 700d |p | Jump_Nonzero 0x7a 006d e5fe | | Load 0x2,-0x2 006e 014b | K | Execute Float,Less_Zero 006f 6801 |h | Jump_Zero 0x71 0070 08e0 | | Execute_Immediate Raise,0xe0 0071 e5fe | | Load 0x2,-0x2 0072 014c | L | Execute Float,Greater_Zero 0073 6804 |h | Jump_Zero 0x78 0074 58fb |X | Indirect_Literal Float,0x170,0.0 0075 e20e | | Load 0x1,0xe 0076 0232 | 2 | Execute Float,Check_In_Type 0077 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0078 e006 | | Load 0x0,0x6 0079 0257 | W | Execute Discrete,Raise 007a e403 | | Load 0x2,0x3 007b 014b | K | Execute Float,Less_Zero 007c 6802 |h | Jump_Zero 0x7f 007d e006 | | Load 0x0,0x6 007e 0257 | W | Execute Discrete,Raise 007f e403 | | Load 0x2,0x3 0080 5903 |Y | Indirect_Literal Float,0x184,1.0 0081 0247 | G | Execute Float,Equal 0082 e5fe | | Load 0x2,-0x2 0083 014e | N | Execute Float,Equal_Zero 0084 0278 | x | Execute Discrete,Or 0085 6804 |h | Jump_Zero 0x8a 0086 58fd |X | Indirect_Literal Float,0x184,1.0 0087 e20e | | Load 0x1,0xe 0088 0232 | 2 | Execute Float,Check_In_Type 0089 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 008a e404 | | Load 0x2,0x4 008b 58f8 |X | Indirect_Literal Float,0x184,1.0 008c 0247 | G | Execute Float,Equal 008d 6804 |h | Jump_Zero 0x92 008e e5ff | | Load 0x2,-0x1 008f e20e | | Load 0x1,0xe 0090 0232 | 2 | Execute Float,Check_In_Type 0091 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0092 e404 | | Load 0x2,0x4 0093 023e | > | Execute Float,Absolute_Value 0094 00d9 | | Load_Top At_Offset_1 0095 0243 | C | Execute Float,Greater_Equal 0096 680b |h | Jump_Zero 0xa2 0097 e404 | | Load 0x2,0x4 0098 014c | L | Execute Float,Greater_Zero 0099 6801 |h | Jump_Zero 0x9b 009a 08e0 | | Execute_Immediate Raise,0xe0 009b 58d4 |X | Indirect_Literal Float,0x170,0.0 009c 00d8 | | Load_Top At_Offset_0 009d e20e | | Load 0x1,0xe 009e 0234 | 4 | Execute Float,In_Type 009f 7001 |p | Jump_Nonzero 0xa1 00a0 0801 | | Execute_Immediate Raise,0x1 00a1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00a2 4815 |H | Short_Literal 0x15 00a3 a413 | | Store_Unchecked 0x2,0x13 00a4 4835 |H5 | Short_Literal 0x35 00a5 a414 | | Store_Unchecked 0x2,0x14 00a6 e20e | | Load 0x1,0xe 00a7 00d8 | | Load_Top At_Offset_0 00a8 e403 | | Load 0x2,0x3 00a9 e20e | | Load 0x1,0xe 00aa 0232 | 2 | Execute Float,Check_In_Type 00ab 8250 | P | Call 0x1,0x50 00ac c407 | | Store 0x2,0x7 00ad c408 | | Store 0x2,0x8 00ae e413 | | Load 0x2,0x13 00af e404 | | Load 0x2,0x4 00b0 e20e | | Load 0x1,0xe 00b1 0232 | 2 | Execute Float,Check_In_Type 00b2 e004 | | Load 0x0,0x4 00b3 e230 | 0 | Load 0x1,0x30 00b4 0096 | | Execute Package,Entry 00b5 c40c | | Store 0x2,0xc 00b6 e404 | | Load 0x2,0x4 00b7 e40c | | Load 0x2,0xc 00b8 023c | < | Execute Float,Minus 00b9 c40d | | Store 0x2,0xd 00ba e40c | | Load 0x2,0xc 00bb e407 | | Load 0x2,0x7 00bc 023b | ; | Execute Float,Times 00bd c409 | | Store 0x2,0x9 00be e40c | | Load 0x2,0xc 00bf e408 | | Load 0x2,0x8 00c0 023b | ; | Execute Float,Times 00c1 e40d | | Load 0x2,0xd 00c2 e407 | | Load 0x2,0x7 00c3 023b | ; | Execute Float,Times 00c4 e40d | | Load 0x2,0xd 00c5 e408 | | Load 0x2,0x8 00c6 023b | ; | Execute Float,Times 00c7 023d | = | Execute Float,Plus 00c8 023d | = | Execute Float,Plus 00c9 c40a | | Store 0x2,0xa 00ca 00db | | Load_Top At_Offset_3 00cb 0afe | | Execute_Immediate Plus,-0x2 00cc 00d8 | | Load_Top At_Offset_0 00cd 00e4 | | Load_Encached Positive_Cache 00ce 0260 | ` | Execute Discrete,In_Type 00cf 7001 |p | Jump_Nonzero 0xd1 00d0 0801 | | Execute_Immediate Raise,0x1 00d1 e409 | | Load 0x2,0x9 00d2 e40a | | Load 0x2,0xa 00d3 023d | = | Execute Float,Plus 00d4 e20e | | Load 0x1,0xe 00d5 0232 | 2 | Execute Float,Check_In_Type 00d6 e004 | | Load 0x0,0x4 00d7 e230 | 0 | Load 0x1,0x30 00d8 0096 | | Execute Package,Entry 00d9 c407 | | Store 0x2,0x7 00da e409 | | Load 0x2,0x9 00db e407 | | Load 0x2,0x7 00dc 023c | < | Execute Float,Minus 00dd c408 | | Store 0x2,0x8 00de e40a | | Load 0x2,0xa 00df e408 | | Load 0x2,0x8 00e0 023d | = | Execute Float,Plus 00e1 c408 | | Store 0x2,0x8 00e2 e407 | | Load 0x2,0x7 00e3 5888 |X | Indirect_Literal Float,0x16c,46.16624130844683 00e4 023b | ; | Execute Float,Times 00e5 0235 | 5 | Execute Float,Round_To_Discrete 00e6 e22c | , | Load 0x1,0x2c 00e7 025e | ^ | Execute Discrete,Convert 00e8 a410 | | Store_Unchecked 0x2,0x10 00e9 e410 | | Load 0x2,0x10 00ea 0237 | 7 | Execute Float,Convert_From_Discrete 00eb e20e | | Load 0x1,0xe 00ec 0238 | 8 | Execute Float,Convert 00ed e23d | = | Load 0x1,0x3d 00ee 023b | ; | Execute Float,Times 00ef c40e | | Store 0x2,0xe 00f0 e407 | | Load 0x2,0x7 00f1 023e | > | Execute Float,Absolute_Value 00f2 e40e | | Load 0x2,0xe 00f3 023e | > | Execute Float,Absolute_Value 00f4 0243 | C | Execute Float,Greater_Equal 00f5 6805 |h | Jump_Zero 0xfb 00f6 e407 | | Load 0x2,0x7 00f7 e40e | | Load 0x2,0xe 00f8 023c | < | Execute Float,Minus 00f9 c405 | | Store 0x2,0x5 00fa 780a |x | Jump 0x105 00fb 588c |X | Indirect_Literal Float,0x188,0.5 00fc e40e | | Load 0x2,0xe 00fd 023b | ; | Execute Float,Times 00fe c40e | | Store 0x2,0xe 00ff e407 | | Load 0x2,0x7 0100 e40e | | Load 0x2,0xe 0101 023c | < | Execute Float,Minus 0102 e40e | | Load 0x2,0xe 0103 023c | < | Execute Float,Minus 0104 c405 | | Store 0x2,0x5 0105 e408 | | Load 0x2,0x8 0106 e410 | | Load 0x2,0x10 0107 0237 | 7 | Execute Float,Convert_From_Discrete 0108 e20e | | Load 0x1,0xe 0109 0238 | 8 | Execute Float,Convert 010a e23e | > | Load 0x1,0x3e 010b 023b | ; | Execute Float,Times 010c 023c | < | Execute Float,Minus 010d c406 | | Store 0x2,0x6 010e e410 | | Load 0x2,0x10 010f 481f |H | Short_Literal 0x1f 0110 0279 | y | Execute Discrete,And 0111 a412 | | Store_Unchecked 0x2,0x12 0112 e410 | | Load 0x2,0x10 0113 e412 | | Load 0x2,0x12 0114 0272 | r | Execute Discrete,Minus 0115 09fb | | Execute_Immediate Binary_Scale,-0x5 0116 a411 | | Store_Unchecked 0x2,0x11 0117 e406 | | Load 0x2,0x6 0118 e20e | | Load 0x1,0xe 0119 0232 | 2 | Execute Float,Check_In_Type 011a e405 | | Load 0x2,0x5 011b e20e | | Load 0x1,0xe 011c 0232 | 2 | Execute Float,Check_In_Type 011d 824d | M | Call 0x1,0x4d 011e c40b | | Store 0x2,0xb 011f 4800 |H | Short_Literal 0x0 0120 e412 | | Load 0x2,0x12 0121 e242 | B | Load 0x1,0x42 0122 01a7 | | Execute Matrix,Field_Read 0123 4801 |H | Short_Literal 0x1 0124 e412 | | Load 0x2,0x12 0125 e242 | B | Load 0x1,0x42 0126 01a7 | | Execute Matrix,Field_Read 0127 023d | = | Execute Float,Plus 0128 c40f | | Store 0x2,0xf 0129 4800 |H | Short_Literal 0x0 012a e412 | | Load 0x2,0x12 012b e242 | B | Load 0x1,0x42 012c 01a7 | | Execute Matrix,Field_Read 012d c409 | | Store 0x2,0x9 012e 4801 |H | Short_Literal 0x1 012f e412 | | Load 0x2,0x12 0130 e242 | B | Load 0x1,0x42 0131 01a7 | | Execute Matrix,Field_Read 0132 e40f | | Load 0x2,0xf 0133 e40b | | Load 0x2,0xb 0134 023b | ; | Execute Float,Times 0135 023d | = | Execute Float,Plus 0136 c40a | | Store 0x2,0xa 0137 e231 | 1 | Load 0x1,0x31 0138 0f02 | | Execute_Immediate Equal,0x2 0139 701a |p | Jump_Nonzero 0x154 013a e411 | | Load 0x2,0x11 013b 4804 |H | Short_Literal 0x4 013c 026f | o | Execute Discrete,Remainder 013d a412 | | Store_Unchecked 0x2,0x12 013e e411 | | Load 0x2,0x11 013f e412 | | Load 0x2,0x12 0140 0272 | r | Execute Discrete,Minus 0141 09fe | | Execute_Immediate Binary_Scale,-0x2 0142 a411 | | Store_Unchecked 0x2,0x11 0143 e409 | | Load 0x2,0x9 0144 e412 | | Load 0x2,0x12 0145 00db | | Load_Top At_Offset_3 0146 01d7 | | Execute Vector,Field_Read 0147 023b | ; | Execute Float,Times 0148 c409 | | Store 0x2,0x9 0149 e40a | | Load 0x2,0xa 014a e412 | | Load 0x2,0x12 014b 00db | | Load_Top At_Offset_3 014c 01d7 | | Execute Vector,Field_Read 014d 023b | ; | Execute Float,Times 014e c40a | | Store 0x2,0xa 014f e409 | | Load 0x2,0x9 0150 e40a | | Load 0x2,0xa 0151 023d | = | Execute Float,Plus 0152 c40e | | Store 0x2,0xe 0153 7804 |x | Jump 0x158 0154 e409 | | Load 0x2,0x9 0155 e40a | | Load 0x2,0xa 0156 023d | = | Execute Float,Plus 0157 c40e | | Store 0x2,0xe 0158 e411 | | Load 0x2,0x11 0159 e40e | | Load 0x2,0xe 015a e20e | | Load 0x1,0xe 015b 0232 | 2 | Execute Float,Check_In_Type 015c e007 | | Load 0x0,0x7 015d e230 | 0 | Load 0x1,0x30 015e 0096 | | Execute Package,Entry 015f 00d8 | | Load_Top At_Offset_0 0160 e20e | | Load 0x1,0xe 0161 0234 | 4 | Execute Float,In_Type 0162 7001 |p | Jump_Nonzero 0x164 0163 0801 | | Execute_Immediate Raise,0x1 0164 c402 | | Store 0x2,0x2 0165 e402 | | Load 0x2,0x2 0166 e20e | | Load 0x1,0xe 0167 0232 | 2 | Execute Float,Check_In_Type 0168 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0169 0000 0000 | | .XXX[0x3] 016b 0000 | | 016c 4047 1547 |@G G| .DBL 46.16624130844683 016e 652b 82fe |e+ | 0170 0000 0000 | | .DBL 0.0 0172 0000 0000 | | 0174 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 0178 4020 0000 |@ | .DBL 8.0 017a 0000 0000 | | 017c 4010 0000 |@ | .DBL 4.0 017e 0000 0000 | | 0180 4000 0000 |@ | .DBL 2.0 0182 0000 0000 | | 0184 3ff0 0000 |? | .DBL 1.0 0186 0000 0000 | | 0188 3fe0 0000 |? | .DBL 0.5 018a 0000 0000 | | 018c 3fd0 0000 |? | .DBL 0.25 018e 0000 0000 | | 0190 3fc0 0000 |? | .DBL 0.125 0192 0000 0000 | | 0194 0000 0000 | | .BLANK 0000[0x4] 0198 ; -------------------------------------------------------------------------------------- 0198 ; Debug Table 0198 ; -------------------------------------------------------------------------------------- 0198 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f26,0x0000,0x0001,0x0000 019e 0000 6000 | ` | .XXX[0x3d] 01a0 0000 0023 | #| 01a2 6f46 6000 |oF` | 01a4 0000 2000 | | 01a6 0000 4000 | @ | 01a8 0001 8000 | | 01aa 0000 c000 | | 01ac 15d9 8000 | | 01ae 0000 8000 | | 01b0 0005 0000 | | 01b2 0003 0002 | | 01b4 5b74 0000 |[t | 01b6 0002 0000 | | 01b8 0004 0000 | | 01ba 0000 046d | m| 01bc ef38 0000 | 8 | 01be 0004 0000 | | 01c0 0004 0000 | | 01c2 0030 0000 | 0 | 01c4 0018 0002 | | 01c6 bb30 0000 | 0 | 01c8 001c 0000 | | 01ca 000c 0001 | | 01cc 5da8 0000 |] | 01ce 0008 0000 | | 01d0 0018 0002 | | 01d2 bb50 0000 | P | 01d4 0010 086a | j| 01d6 d040 0000 | @ | 01d8 0808 0000 | | 01da 9808 | | 01db 0000 0000 | | .BLANK 0000[0x5] 01e0 9808 0000 | | .XXX[0x20] 01e2 000c 0000 | | 01e4 0000 046d | m| 01e6 f9b8 0000 | | 01e8 0004 0000 | | 01ea 0008 0000 | | 01ec 0030 0000 | 0 | 01ee 0018 0002 | | 01f0 bb50 0000 | P | 01f2 0010 0000 | | 01f4 00a0 0000 | | 01f6 0060 004b | ` K| 01f8 6ec0 0000 |n | 01fa 0040 0000 | @ | 01fc 0080 0000 | | 01fe 0000 8dc0 | |