|
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 00c0 | | .CONST 0x00c0 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0019 | | .CONST 0x0019 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000d | | .CONST 0x000d ; 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 58a4 |X | Indirect_Literal Float,0xb8,0.0 0014 e20e | | Load 0x1,0xe 0015 02bf | | Declare_Variable Float,With_Value,With_Constraint 0016 e22f | / | Load 0x1,0x2f 0017 03e9 | | Declare_Variable Discrete,Duplicate 0018 03e9 | | Declare_Variable Discrete,Duplicate 0019 BODY_0008: 0019 e5ff | | Load 0x2,-0x1 001a 00d8 | | Load_Top At_Offset_0 001b e20e | | Load 0x1,0xe 001c 0234 | 4 | Execute Float,In_Type 001d 7001 |p | Jump_Nonzero 0x1f 001e 0801 | | Execute_Immediate Raise,0x1 001f c403 | | Store 0x2,0x3 0020 e403 | | Load 0x2,0x3 0021 014c | L | Execute Float,Greater_Zero 0022 6803 |h | Jump_Zero 0x26 0023 5890 |X | Indirect_Literal Float,0xb4,1.0 0024 c404 | | Store 0x2,0x4 0025 7805 |x | Jump 0x2b 0026 5889 |X | Indirect_Literal Float,0xb0,-1.0 0027 c404 | | Store 0x2,0x4 0028 e403 | | Load 0x2,0x3 0029 023e | > | Execute Float,Absolute_Value 002a c403 | | Store 0x2,0x3 002b e5fe | | Load 0x2,-0x2 002c 00d8 | | Load_Top At_Offset_0 002d e20e | | Load 0x1,0xe 002e 0234 | 4 | Execute Float,In_Type 002f 7001 |p | Jump_Nonzero 0x31 0030 0801 | | Execute_Immediate Raise,0x1 0031 c406 | | Store 0x2,0x6 0032 e406 | | Load 0x2,0x6 0033 0149 | I | Execute Float,Less_Equal_Zero 0034 6802 |h | Jump_Zero 0x37 0035 e006 | | Load 0x0,0x6 0036 0257 | W | Execute Discrete,Raise 0037 e406 | | Load 0x2,0x6 0038 e20e | | Load 0x1,0xe 0039 0232 | 2 | Execute Float,Check_In_Type 003a e403 | | Load 0x2,0x3 003b e20e | | Load 0x1,0xe 003c 0232 | 2 | Execute Float,Check_In_Type 003d e005 | | Load 0x0,0x5 003e e230 | 0 | Load 0x1,0x30 003f 0096 | | Execute Package,Entry 0040 c402 | | Store 0x2,0x2 0041 586a |Xj | Indirect_Literal Float,0xac,4.0 0042 e402 | | Load 0x2,0x2 0043 023b | ; | Execute Float,Times 0044 e406 | | Load 0x2,0x6 0045 023a | : | Execute Float,Divide 0046 e20e | | Load 0x1,0xe 0047 0232 | 2 | Execute Float,Check_In_Type 0048 e008 | | Load 0x0,0x8 0049 e230 | 0 | Load 0x1,0x30 004a 0096 | | Execute Package,Entry 004b c409 | | Store 0x2,0x9 004c e409 | | Load 0x2,0x9 004d 0235 | 5 | Execute Float,Round_To_Discrete 004e 00e2 | | Load_Encached Integer_Cache 004f 025e | ^ | Execute Discrete,Convert 0050 4803 |H | Short_Literal 0x3 0051 0279 | y | Execute Discrete,And 0052 00d8 | | Load_Top At_Offset_0 0053 e22f | / | Load 0x1,0x2f 0054 0260 | ` | Execute Discrete,In_Type 0055 7001 |p | Jump_Nonzero 0x57 0056 0801 | | Execute_Immediate Raise,0x1 0057 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0058 00da | | Load_Top At_Offset_2 0059 4801 |H | Short_Literal 0x1 005a 0279 | y | Execute Discrete,And 005b 005a | Z | Store_Top Discrete,At_Offset_2 005c 00da | | Load_Top At_Offset_2 005d 00da | | Load_Top At_Offset_2 005e 0272 | r | Execute Discrete,Minus 005f 09ff | | Execute_Immediate Binary_Scale,-0x1 0060 0059 | Y | Store_Top Discrete,At_Offset_1 0061 4804 |H | Short_Literal 0x4 0062 e406 | | Load 0x2,0x6 0063 e20e | | Load 0x1,0xe 0064 0232 | 2 | Execute Float,Check_In_Type 0065 e004 | | Load 0x0,0x4 0066 e230 | 0 | Load 0x1,0x30 0067 0096 | | Execute Package,Entry 0068 c407 | | Store 0x2,0x7 0069 e406 | | Load 0x2,0x6 006a e407 | | Load 0x2,0x7 006b 023c | < | Execute Float,Minus 006c c408 | | Store 0x2,0x8 006d e409 | | Load 0x2,0x9 006e 5839 |X9 | Indirect_Literal Float,0xa8,0.25 006f 023b | ; | Execute Float,Times 0070 c409 | | Store 0x2,0x9 0071 e402 | | Load 0x2,0x2 0072 e409 | | Load 0x2,0x9 0073 e407 | | Load 0x2,0x7 0074 023b | ; | Execute Float,Times 0075 023c | < | Execute Float,Minus 0076 e409 | | Load 0x2,0x9 0077 e408 | | Load 0x2,0x8 0078 023b | ; | Execute Float,Times 0079 023c | < | Execute Float,Minus 007a c402 | | Store 0x2,0x2 007b e402 | | Load 0x2,0x2 007c e406 | | Load 0x2,0x6 007d 023a | : | Execute Float,Divide 007e 5825 |X% | Indirect_Literal Float,0xa4,6.283185307179586 007f 023b | ; | Execute Float,Times 0080 c402 | | Store 0x2,0x2 0081 00d9 | | Load_Top At_Offset_1 0082 7009 |p | Jump_Nonzero 0x8c 0083 00db | | Load_Top At_Offset_3 0084 e20e | | Load 0x1,0xe 0085 0232 | 2 | Execute Float,Check_In_Type 0086 e402 | | Load 0x2,0x2 0087 e20e | | Load 0x1,0xe 0088 0232 | 2 | Execute Float,Check_In_Type 0089 8252 | R | Call 0x1,0x52 008a c405 | | Store 0x2,0x5 008b 7808 |x | Jump 0x94 008c 00db | | Load_Top At_Offset_3 008d e20e | | Load 0x1,0xe 008e 0232 | 2 | Execute Float,Check_In_Type 008f e402 | | Load 0x2,0x2 0090 e20e | | Load 0x1,0xe 0091 0232 | 2 | Execute Float,Check_In_Type 0092 8253 | S | Call 0x1,0x53 0093 c405 | | Store 0x2,0x5 0094 00d8 | | Load_Top At_Offset_0 0095 0f01 | | Execute_Immediate Equal,0x1 0096 6803 |h | Jump_Zero 0x9a 0097 e405 | | Load 0x2,0x5 0098 023f | ? | Execute Float,Unary_Minus 0099 c405 | | Store 0x2,0x5 009a e404 | | Load 0x2,0x4 009b e405 | | Load 0x2,0x5 009c 023b | ; | Execute Float,Times 009d 00d8 | | Load_Top At_Offset_0 009e e20e | | Load 0x1,0xe 009f 0234 | 4 | Execute Float,In_Type 00a0 7001 |p | Jump_Nonzero 0xa2 00a1 0801 | | Execute_Immediate Raise,0x1 00a2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00a3 0000 | | .XXX[0x1] 00a4 4019 21fb |@ ! | .DBL 6.283185307179586 00a6 5444 2d18 |TD- | 00a8 3fd0 0000 |? | .DBL 0.25 00aa 0000 0000 | | 00ac 4010 0000 |@ | .DBL 4.0 00ae 0000 0000 | | 00b0 bff0 0000 | | .DBL -1.0 00b2 0000 0000 | | 00b4 3ff0 0000 |? | .DBL 1.0 00b6 0000 0000 | | 00b8 0000 0000 | | .DBL 0.0 00ba 0000 0000 | | 00bc 0000 0000 | | .BLANK 0000[0x4] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; Debug Table 00c0 ; -------------------------------------------------------------------------------------- 00c0 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f2e,0x0000,0x0001,0x0000 00c6 1d10 2a34 | *4| .XXX[0x33] 00c8 3290 31b6 |2 1 | 00ca 34b2 b73a |4 :| 00cc 13b9 9037 | 7| 00ce 30b6 b297 |0 | 00d0 0000 003d | =| 00d2 0000 000f | | 00d4 1015 1010 | | 00d6 21b6 34b2 |! 4 | 00d8 b73a 1d10 | : | 00da 2a34 3290 |*42 | 00dc 31b6 34b2 |1 4 | 00de b73a 13b9 | : | 00e0 9037 30b6 | 70 | 00e2 b297 0000 | | 00e4 003d 0000 | = | 00e6 000f 1015 | | 00e8 1010 21b6 | ! | 00ea 34b2 b73a |4 :| 00ec 1d10 2a34 | *4| 00ee 3290 31b6 |2 1 | 00f0 34b2 b73a |4 :| 00f2 13b9 9037 | 7| 00f4 30b6 b297 |0 | 00f6 0000 0000 | | 00f8 8000 | | 00f9 0000 0000 | | .BLANK 0000[0x4] 00fd 000c 8000 | | .XXX[0x6c] 00ff 0000 0000 | | 0101 000c 0000 | | 0103 000d 8000 | | 0105 001d 1510 | | 0107 1027 32bc | '2 | 0109 3a10 2a34 |: *4| 010b b6b2 9d10 | | 010d 2a34 3290 |*42 | 010f 3a34 b6b2 |:4 | 0111 9037 b310 | 7 | 0113 3a34 3290 |:42 | 0115 31b6 34b2 |1 4 | 0117 b73a 13b9 | : | 0119 9037 32bc | 72 | 011b 3a10 39b1 |: 9 | 011d b432 b23a | 2 :| 011f b632 b210 | 2 | 0121 393a b717 |9: | 0123 0000 000d | | 0125 0000 001d | | 0127 9015 1010 | | 0129 2732 bc3a |'2 :| 012b 102a 34b6 | *4 | 012d b29d 102a | *| 012f 3432 903a |42 :| 0131 34b6 b290 |4 | 0133 37b3 103a |7 :| 0135 3432 9031 |42 1| 0137 b634 b2b7 | 4 | 0139 3a13 b990 |: | 013b 3732 bc3a |72 :| 013d 1039 b1b4 | 9 | 013f 32b2 3ab6 |2 : | 0141 32b2 1039 |2 9| 0143 3ab7 1700 |: | 0145 0000 0d00 | | 0147 0000 1d90 | | 0149 1510 1027 | '| 014b 32bc 3a10 |2 : | 014d 2a34 b6b2 |*4 | 014f 9d10 2a34 | *4| 0151 3290 3a34 |2 :4| 0153 b6b2 9037 | 7| 0155 b310 3a34 | :4| 0157 3290 31b6 |2 1 | 0159 34b2 b73a |4 :| 015b 13b9 9037 | 7| 015d 32bc 3a10 |2 : | 015f 39b1 b432 |9 2| 0161 b23a b632 | : 2| 0163 b210 393a | 9:| 0165 b717 0000 | | 0167 0000 8000 | | 0169 0000 0000 | | .BLANK 0000[0x4] 016d 002b 0000 | + | .XXX[0x93] 016f 0000 0000 | | 0171 002a 8000 | * | 0173 002c 0000 | , | 0175 0023 1510 | # | 0177 1028 3932 | (92| 0179 bb34 b7ba | 4 | 017b b990 2a34 | *4| 017d b6b2 9d10 | | 017f 2a34 3290 |*42 | 0181 30b1 ba3a |0 :| 0183 b0b6 103a | :| 0185 34b6 b290 |4 | 0187 37b3 103a |7 :| 0189 3432 9031 |42 1| 018b b634 b2b7 | 4 | 018d 3a13 b990 |: | 018f 36b7 b9ba |6 | 0191 1039 32b1 | 92 | 0193 b2b7 3a10 | : | 0195 3839 32bb |892 | 0197 34b7 bab9 |4 | 0199 8000 002b | +| 019b 8000 0023 | #| 019d 9015 1010 | | 019f 2839 32bb |(92 | 01a1 34b7 bab9 |4 | 01a3 902a 34b6 | *4 | 01a5 b29d 102a | *| 01a7 3432 9030 |42 0| 01a9 b1ba 3ab0 | : | 01ab b610 3a34 | :4| 01ad b6b2 9037 | 7| 01af b310 3a34 | :4| 01b1 3290 31b6 |2 1 | 01b3 34b2 b73a |4 :| 01b5 13b9 9036 | 6| 01b7 b7b9 ba10 | | 01b9 3932 b1b2 |92 | 01bb b73a 1038 | : 8| 01bd 3932 bb34 |92 4| 01bf b7ba b980 | | 01c1 0000 2b80 | + | 01c3 0000 2390 | # | 01c5 1510 1028 | (| 01c7 3932 bb34 |92 4| 01c9 b7ba b990 | | 01cb 2a34 b6b2 |*4 | 01cd 9d10 2a34 | *4| 01cf 3290 30b1 |2 0 | 01d1 ba3a b0b6 | : | 01d3 103a 34b6 | :4 | 01d5 b290 37b3 | 7 | 01d7 103a 3432 | :42| 01d9 9031 b634 | 1 4| 01db b2b7 3a13 | : | 01dd b990 36b7 | 6 | 01df b9ba 1039 | 9| 01e1 32b1 b2b7 |2 | 01e3 3a10 3839 |: 89| 01e5 32bb 34b7 |2 4 | 01e7 bab9 8000 | | 01e9 0011 8000 | | 01eb 001f 393a | 9:| 01ed b717 1027 | '| 01ef 37ba 3290 |7 2 | 01f1 3a34 30ba |:40 | 01f3 103a 3432 | :42| 01f5 9030 b1ba | 0 | 01f7 3ab0 b610 |: | 01f9 3a34 b6b2 |:4 | 01fb 9030 9031 | 0 1| 01fd b634 b2b7 | 4 | 01ff 3a10 |: |