|
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 0070 | p | .CONST 0x0070 ; 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 0016 | | .CONST 0x0016 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0008 | | .CONST 0x0008 ; Number of locals 000b INIT_0008: 000b e20e | | Load 0x1,0xe 000c 03d8 | | Declare_Variable Float,Duplicate 000d e20e | | Load 0x1,0xe 000e 03d8 | | Declare_Variable Float,Duplicate 000f 03d8 | | Declare_Variable Float,Duplicate 0010 5857 |XW | Indirect_Literal Float,0x68,0.6931471805599453 0011 e20e | | Load 0x1,0xe 0012 02bf | | Declare_Variable Float,With_Value,With_Constraint 0013 5850 |XP | Indirect_Literal Float,0x64,1.3862943611198906 0014 e20e | | Load 0x1,0xe 0015 02bf | | Declare_Variable Float,With_Value,With_Constraint 0016 BODY_0008: 0016 e5ff | | Load 0x2,-0x1 0017 7004 |p | Jump_Nonzero 0x1c 0018 e5ff | | Load 0x2,-0x1 0019 e20e | | Load 0x1,0xe 001a 0232 | 2 | Execute Float,Check_In_Type 001b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 001c e5ff | | Load 0x2,-0x1 001d 00d8 | | Load_Top At_Offset_0 001e e20e | | Load 0x1,0xe 001f 0234 | 4 | Execute Float,In_Type 0020 7001 |p | Jump_Nonzero 0x22 0021 0801 | | Execute_Immediate Raise,0x1 0022 c404 | | Store 0x2,0x4 0023 e404 | | Load 0x2,0x4 0024 023e | > | Execute Float,Absolute_Value 0025 c405 | | Store 0x2,0x5 0026 00db | | Load_Top At_Offset_3 0027 5838 |X8 | Indirect_Literal Float,0x60,1.0 0028 0247 | G | Execute Float,Equal 0029 6801 |h | Jump_Zero 0x2b 002a 08e0 | | Execute_Immediate Raise,0xe0 002b 00db | | Load_Top At_Offset_3 002c 5833 |X3 | Indirect_Literal Float,0x60,1.0 002d 0245 | E | Execute Float,Greater 002e 6802 |h | Jump_Zero 0x31 002f e006 | | Load 0x0,0x6 0030 0257 | W | Execute Discrete,Raise 0031 e404 | | Load 0x2,0x4 0032 014a | J | Execute Float,Greater_Equal_Zero 0033 6803 |h | Jump_Zero 0x37 0034 582b |X+ | Indirect_Literal Float,0x60,1.0 0035 c403 | | Store 0x2,0x3 0036 7802 |x | Jump 0x39 0037 5824 |X$ | Indirect_Literal Float,0x5c,-1.0 0038 c403 | | Store 0x2,0x3 0039 581e |X | Indirect_Literal Float,0x58,2.0 003a e405 | | Load 0x2,0x5 003b 023b | ; | Execute Float,Times 003c 5823 |X# | Indirect_Literal Float,0x60,1.0 003d e405 | | Load 0x2,0x5 003e 023c | < | Execute Float,Minus 003f 023a | : | Execute Float,Divide 0040 004b | K | Store_Top Float,At_Offset_3 0041 00da | | Load_Top At_Offset_2 0042 e20e | | Load 0x1,0xe 0043 0232 | 2 | Execute Float,Check_In_Type 0044 824c | L | Call 0x1,0x4c 0045 004b | K | Store_Top Float,At_Offset_3 0046 e403 | | Load 0x2,0x3 0047 580c |X | Indirect_Literal Float,0x54,0.5 0048 023b | ; | Execute Float,Times 0049 00db | | Load_Top At_Offset_3 004a 023b | ; | Execute Float,Times 004b c402 | | Store 0x2,0x2 004c e402 | | Load 0x2,0x2 004d 00d8 | | Load_Top At_Offset_0 004e e20e | | Load 0x1,0xe 004f 0234 | 4 | Execute Float,In_Type 0050 7001 |p | Jump_Nonzero 0x52 0051 0801 | | Execute_Immediate Raise,0x1 0052 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0053 0000 | | .XXX[0x1] 0054 3fe0 0000 |? | .DBL 0.5 0056 0000 0000 | | 0058 4000 0000 |@ | .DBL 2.0 005a 0000 0000 | | 005c bff0 0000 | | .DBL -1.0 005e 0000 0000 | | 0060 3ff0 0000 |? | .DBL 1.0 0062 0000 0000 | | 0064 3ff6 2e42 |? .B| .DBL 1.3862943611198906 0066 fefa 39ef | 9 | 0068 3fe6 2e42 |? .B| .DBL 0.6931471805599453 006a fefa 39ef | 9 | 006c 0000 0000 | | .BLANK 0000[0x4] 0070 ; -------------------------------------------------------------------------------------- 0070 ; Debug Table 0070 ; -------------------------------------------------------------------------------------- 0070 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f11,0x0000,0x0001,0x0000 0076 514c b941 |QL A| .XXX[0x7] 0078 3105 5119 |1 Q | 007a 3d49 354c |=I5L| 007c 0020 | | 007d 0000 0000 | | .BLANK 0000[0x4] 0081 1400 0000 | | .XXX[0x17f] 0083 8003 6c00 | l | 0085 5d49 1545 |]I E| 0087 5515 4d51 |U MQ| 0089 4cb9 2539 |L %9| 008b 4155 517d |AUQ}| 008d 513d 7d4d |Q=}M| 008f 2115 3130 |! 10| 0091 f5ee 51fa | Q | 0093 408c 0015 |@ | 0095 2539 4155 |%9AU| 0097 505c 003d |P\ =| 0099 4d51 0539 |MQ 9| 009b 1105 4910 | I | 009d b94d 5149 | MQI| 009f 2539 1c01 |%9 | 00a1 fa40 8c00 | @ | 00a3 1d51 2535 | Q%5| 00a5 153d 5550 | =UP| 00a7 5c00 414d |\ AM| 00a9 5105 3911 |Q 9 | 00ab 0549 10b9 | I | 00ad 2539 5115 |%9Q | 00af 1d15 4801 | H | 00b1 fa40 8c00 | @ | 00b3 193d 5551 | =UQ| 00b5 4155 505c |AUP\| 00b7 007d 1115 | } | 00b9 5925 0d15 |Y% | 00bb 7d25 3911 |}%9 | 00bd 1541 1539 | A 9| 00bf 1115 3951 | 9Q| 00c1 7d25 3cb9 |}%< | 00c3 1925 3115 | %1 | 00c5 7d51 6541 |}QeA| 00c7 1401 fa40 | @| 00c9 8c00 290d | ) | 00cb 3d39 3915 |=99 | 00cd 0d51 253d | Q%=| 00cf 385c 0069 |8\ i| 00d1 4915 4555 |I EU| 00d3 154d 514c | MQL| 00d5 b90d 3d39 | =9| 00d7 3915 0d51 |9 Q| 00d9 253d 397d |%=9}| 00db 2105 3911 |! 9 | 00dd 3114 01f6 |1 | 00df 4094 0019 |@ | 00e1 4d51 0551 |MQ Q| 00e3 554c 5c00 |UL\ | 00e5 5d4d 2535 |]M%5| 00e7 4131 157d |A1 }| 00e9 4d51 0551 |MQ Q| 00eb 554c b90d |UL | 00ed 3d39 1125 |=9 %| 00ef 5125 3d38 |Q%=8| 00f1 0000 0000 | | 00f3 02c0 03b8 | | 00f5 0031 4915 | 1I | 00f7 4555 154d |EU M| 00f9 514c b941 |QL A| 00fb 5550 f5ee |UP | 00fd 51fa 408c |Q @ | 00ff 003d 1949 | = I| 0101 3d35 7d31 |=5}1| 0103 3d0d 0531 |= 1| 0105 7d19 2531 |} %1| 0107 145c 003d | \ =| 0109 4d51 0539 |MQ 9| 010b 1105 4910 | I | 010d b94d 5149 | MQI| 010f 2539 1c01 |%9 | 0111 fa40 8c00 | @ | 0113 3951 3d7d |9Q=}| 0115 4915 353d |I 5=| 0117 5115 7d19 |Q } | 0119 2531 145c |%1 \| 011b 003d 4d51 | =MQ| 011d 0539 1105 | 9 | 011f 4910 b94d |I M| 0121 5149 2539 |QI%9| 0123 1c01 fa40 | @| 0125 8c00 1905 | | 0127 4141 1539 |AA 9| 0129 105c 0041 | \ A| 012b 4d51 0539 |MQ 9| 012d 1105 4910 | I | 012f b909 3d3d | ==| 0131 3115 0538 |1 8| 0133 01fa 408c | @ | 0135 001d 3d41 | =A| 0137 5125 3d39 |Q%=9| 0139 4c5c 003d |L\ =| 013b 4d51 0539 |MQ 9| 013d 1105 4910 | I | 013f b94d 5149 | MQI| 0141 2539 1c01 |%9 | 0143 fa40 8c00 | @ | 0145 290d 3d39 |) =9| 0147 3915 0d51 |9 Q| 0149 253d 385c |%=8\| 014b 0069 4915 | iI | 014d 4555 154d |EU M| 014f 514c b90d |QL | 0151 3d39 3915 |=99 | 0153 0d51 253d | Q%=| 0155 397d 2105 |9}! | 0157 3911 3114 |9 1 | 0159 01f6 4094 | @ | 015b 0019 4d51 | MQ| 015d 0551 554c | QUL| 015f 5c00 5549 |\ UI| 0161 1545 5515 | EU | 0163 4d51 4cb9 |MQL | 0165 1549 493d | II=| 0167 497d 4d51 |I}MQ| 0169 0551 554c | QUL| 016b 0000 0000 | | 016d 02e4 016c | l| 016f 0055 4915 | UI | 0171 4555 154d |EU M| 0173 514c b925 |QL %| 0175 4d7d 0d3d |M} =| 0177 3939 150d |99 | 0179 5115 10f5 |Q | 017b ea51 fa40 | Q @| 017d 8c00 290d | ) | 017f 3d39 3915 |=99 | 0181 0d51 253d | Q%=| 0183 385c 0069 |8\ i| 0185 4915 4555 |I EU| 0187 154d 514c | MQL| 0189 b90d 3d39 | =9| 018b 3915 0d51 |9 Q| 018d 253d 397d |%=9}| 018f 2105 3911 |! 9 | 0191 3114 005c |1 \| 0193 0041 4d51 | AMQ| 0195 0539 1105 | 9 | 0197 4910 b909 |I | 0199 3d3d 3115 |==1 | 019b 0538 0000 | 8 | 019d 0002 1002 | | 019f d000 5149 | QI| 01a1 1545 5515 | EU | 01a3 4d51 4cb9 |MQL | 01a5 3105 4d51 |1 MQ| 01a7 7d55 4111 |}UA | 01a9 0551 14f5 | Q | 01ab ee51 fa40 | Q @| 01ad 8c00 393d | 9=| 01af 197d 4915 | }I | 01b1 353d 5115 |5=Q | 01b3 7d19 2531 |} %1| 01b5 145c 003d | \ =| 01b7 4d51 0539 |MQ 9| 01b9 1105 4910 | I | 01bb b94d 5149 | MQI| 01bd 2539 1c01 |%9 | 01bf f640 9400 | @ | 01c1 2925 397d |)%9}| 01c3 4d15 0d3d |M =| 01c5 3911 4c5c |9 L\| 01c7 0041 4d51 | AMQ| 01c9 0539 1105 | 9 | 01cb 4910 b925 |I %| 01cd 3951 151d |9Q | 01cf 1548 01fa | H | 01d1 408c 0029 |@ )| 01d3 0d3d 3939 | =99| 01d5 150d 5125 | Q%| 01d7 3d38 5c00 |=8\ | 01d9 6949 1545 |iI E| 01db 5515 4d51 |U MQ| 01dd 4cb9 0d3d |L =| 01df 3939 150d |99 | 01e1 5125 3d39 |Q%=9| 01e3 7d21 0539 |}! 9| 01e5 1131 1401 | 1 | 01e7 f640 9400 | @ | 01e9 194d 5105 | MQ | 01eb 5155 4c5c |QUL\| 01ed 0055 4915 | UI | 01ef 4555 154d |EU M| 01f1 514c b915 |QL | 01f3 4949 3d49 |II=I| 01f5 7d4d 5105 |}MQ | 01f7 5155 4c00 |QUL | 01f9 0000 0002 | | 01fb 9404 7400 | t | 01fd 4d49 1545 |MI E| 01ff 5515 |U |