|
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 0053 | S | .CONST 0x0053 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000b | | .CONST 0x000b ; 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 e22c | , | Load 0x1,0x2c 0011 03e9 | | Declare_Variable Discrete,Duplicate 0012 4ffd |O | Short_Literal -0x3 0013 4803 |H | Short_Literal 0x3 0014 e20e | | Load 0x1,0xe 0015 02a0 | | Declare_Subprogram Null_Subprogram 0016 4801 |H | Short_Literal 0x1 0017 035d | ] | Declare_Type Array,Defined 0018 00d8 | | Load_Top At_Offset_0 0019 0337 | 7 | Declare_Variable Array 001a 00d8 | | Load_Top At_Offset_0 001b 0335 | 5 | Declare_Variable Array,Duplicate 001c 00cd | | Action Spare6_Action 001d 589e |X | Indirect_Literal Float,0xbc,0.125 001e 4ffd |O | Short_Literal -0x3 001f 00da | | Load_Top At_Offset_2 0020 01d6 | | Execute Vector,Field_Write 0021 5896 |X | Indirect_Literal Float,0xb8,0.25 0022 4ffe |O | Short_Literal -0x2 0023 00da | | Load_Top At_Offset_2 0024 01d6 | | Execute Vector,Field_Write 0025 588e |X | Indirect_Literal Float,0xb4,0.5 0026 4fff |O | Short_Literal -0x1 0027 00da | | Load_Top At_Offset_2 0028 01d6 | | Execute Vector,Field_Write 0029 5886 |X | Indirect_Literal Float,0xb0,1.0 002a 4800 |H | Short_Literal 0x0 002b 00da | | Load_Top At_Offset_2 002c 01d6 | | Execute Vector,Field_Write 002d 587e |X~ | Indirect_Literal Float,0xac,2.0 002e 4801 |H | Short_Literal 0x1 002f 00da | | Load_Top At_Offset_2 0030 01d6 | | Execute Vector,Field_Write 0031 5876 |Xv | Indirect_Literal Float,0xa8,4.0 0032 4802 |H | Short_Literal 0x2 0033 00da | | Load_Top At_Offset_2 0034 01d6 | | Execute Vector,Field_Write 0035 586e |Xn | Indirect_Literal Float,0xa4,8.0 0036 4803 |H | Short_Literal 0x3 0037 00da | | Load_Top At_Offset_2 0038 01d6 | | Execute Vector,Field_Write 0039 00d9 | | Load_Top At_Offset_1 003a 01d4 | | Execute Vector,Structure_Write 003b 586c |Xl | Indirect_Literal Float,0xa8,4.0 003c 6063 |`c | Indirect_Literal Discrete,0xa0,{0x00000000, 0x00000400} 003d 0237 | 7 | Execute Float,Convert_From_Discrete 003e e20e | | Load 0x1,0xe 003f 0238 | 8 | Execute Float,Convert 0040 023b | ; | Execute Float,Times 0041 585a |XZ | Indirect_Literal Float,0x9c,0.6931471805999999 0042 023b | ; | Execute Float,Times 0043 e20e | | Load 0x1,0xe 0044 02bf | | Declare_Variable Float,With_Value,With_Constraint 0045 5866 |Xf | Indirect_Literal Float,0xac,2.0 0046 4801 |H | Short_Literal 0x1 0047 e20e | | Load 0x1,0xe 0048 0122 | " | Execute Any,Make_Root_Type 0049 1c01 | | Execute_Immediate Run_Utility,0x1 004a 480a |H | Short_Literal 0xa 004b 0271 | q | Execute Discrete,Times 004c 0a05 | | Execute_Immediate Plus,0x5 004d 4803 |H | Short_Literal 0x3 004e 0270 | p | Execute Discrete,Divide 004f 0272 | r | Execute Discrete,Minus 0050 0239 | 9 | Execute Float,Exponentiate 0051 e20e | | Load 0x1,0xe 0052 02bf | | Declare_Variable Float,With_Value,With_Constraint 0053 BODY_0008: 0053 e5ff | | Load 0x2,-0x1 0054 00d8 | | Load_Top At_Offset_0 0055 e20e | | Load 0x1,0xe 0056 0234 | 4 | Execute Float,In_Type 0057 7001 |p | Jump_Nonzero 0x59 0058 0801 | | Execute_Immediate Raise,0x1 0059 c403 | | Store 0x2,0x3 005a e403 | | Load 0x2,0x3 005b 023e | > | Execute Float,Absolute_Value 005c 00da | | Load_Top At_Offset_2 005d 0243 | C | Execute Float,Greater_Equal 005e 680b |h | Jump_Zero 0x6a 005f e403 | | Load 0x2,0x3 0060 014c | L | Execute Float,Greater_Zero 0061 6801 |h | Jump_Zero 0x63 0062 08e0 | | Execute_Immediate Raise,0xe0 0063 5834 |X4 | Indirect_Literal Float,0x98,0.0 0064 00d8 | | Load_Top At_Offset_0 0065 e20e | | Load 0x1,0xe 0066 0234 | 4 | Execute Float,In_Type 0067 7001 |p | Jump_Nonzero 0x69 0068 0801 | | Execute_Immediate Raise,0x1 0069 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 006a e403 | | Load 0x2,0x3 006b 023e | > | Execute Float,Absolute_Value 006c 00d9 | | Load_Top At_Offset_1 006d 0242 | B | Execute Float,Less_Equal 006e 6809 |h | Jump_Zero 0x78 006f 5840 |X@ | Indirect_Literal Float,0xb0,1.0 0070 e403 | | Load 0x2,0x3 0071 023d | = | Execute Float,Plus 0072 00d8 | | Load_Top At_Offset_0 0073 e20e | | Load 0x1,0xe 0074 0234 | 4 | Execute Float,In_Type 0075 7001 |p | Jump_Nonzero 0x77 0076 0801 | | Execute_Immediate Raise,0x1 0077 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0078 e20e | | Load 0x1,0xe 0079 00d8 | | Load_Top At_Offset_0 007a e22c | , | Load 0x1,0x2c 007b e403 | | Load 0x2,0x3 007c e20e | | Load 0x1,0xe 007d 0232 | 2 | Execute Float,Check_In_Type 007e 824e | N | Call 0x1,0x4e 007f c406 | | Store 0x2,0x6 0080 c404 | | Store 0x2,0x4 0081 c405 | | Store 0x2,0x5 0082 e404 | | Load 0x2,0x4 0083 e405 | | Load 0x2,0x5 0084 023d | = | Execute Float,Plus 0085 c403 | | Store 0x2,0x3 0086 7800 |x | Jump 0x87 0087 e406 | | Load 0x2,0x6 0088 e403 | | Load 0x2,0x3 0089 e20e | | Load 0x1,0xe 008a 0232 | 2 | Execute Float,Check_In_Type 008b e007 | | Load 0x0,0x7 008c e230 | 0 | Load 0x1,0x30 008d 0096 | | Execute Package,Entry 008e 00d8 | | Load_Top At_Offset_0 008f e20e | | Load 0x1,0xe 0090 0234 | 4 | Execute Float,In_Type 0091 7001 |p | Jump_Nonzero 0x93 0092 0801 | | Execute_Immediate Raise,0x1 0093 c402 | | Store 0x2,0x2 0094 e402 | | Load 0x2,0x2 0095 e20e | | Load 0x1,0xe 0096 0232 | 2 | Execute Float,Check_In_Type 0097 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0098 0000 0000 | | .DBL 0.0 009a 0000 0000 | | 009c 3fe6 2e42 |? .B| .DBL 0.6931471805999999 009e feff bb3b | ;| 00a0 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 00a4 4020 0000 |@ | .DBL 8.0 00a6 0000 0000 | | 00a8 4010 0000 |@ | .DBL 4.0 00aa 0000 0000 | | 00ac 4000 0000 |@ | .DBL 2.0 00ae 0000 0000 | | 00b0 3ff0 0000 |? | .DBL 1.0 00b2 0000 0000 | | 00b4 3fe0 0000 |? | .DBL 0.5 00b6 0000 0000 | | 00b8 3fd0 0000 |? | .DBL 0.25 00ba 0000 0000 | | 00bc 3fc0 0000 |? | .DBL 0.125 00be 0000 0000 | | 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; Debug Table 00c0 ; -------------------------------------------------------------------------------------- 00c0 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f16,0x0000,0x0001,0x0000 00c6 0044 0000 | D | .XXX[0x72] 00c8 0004 0000 | | 00ca 0378 00a9 | x | 00cc 0905 4d15 | M | 00ce 5165 4114 |QeA | 00d0 b935 050d | 5 | 00d2 2125 3915 |!%9 | 00d4 7d11 1541 |} A| 00d6 1539 1105 | 9 | 00d8 3951 7d19 |9Q} | 00da 2531 157d |%1 }| 00dc 0551 5149 | QQI| 00de 2509 5551 |% UQ| 00e0 154c ee65 | L e| 00e2 c8e6 4070 | @p| 00e4 0019 1925 | %| 00e6 3131 1549 |11 I| 00e8 985c 0059 | \ Y| 00ea 0905 4d15 | M | 00ec 5165 4114 |QeA | 00ee b919 2531 | %1| 00f0 3115 48c4 |1 H | 00f2 c97d 5165 | }Qe| 00f4 4114 0000 |A | 00f6 e640 7000 | @p | 00f8 1515 3541 | 5A| 00fa 5165 985c |Qe \| 00fc 0041 4d51 | AMQ| 00fe 0539 1105 | 9 | 0100 4910 b909 |I | 0102 3d3d 3115 |==1 | 0104 0538 0000 | 8 | 0106 e640 7000 | @p | 0108 192d 1549 | - I| 010a 3915 3198 |9 1 | 010c 5c00 414d |\ AM| 010e 5105 3911 |Q 9 | 0110 0549 10b9 | I | 0112 093d 3d31 | ==1| 0114 1505 3800 | 8 | 0116 00e6 4070 | @p| 0118 0011 4149 | AI| 011a 3d1d 985c |= \| 011c 0041 4d51 | AMQ| 011e 0539 1105 | 9 | 0120 4910 b909 |I | 0122 3d3d 3115 |==1 | 0124 0538 0000 | 8 | 0126 e640 7000 | @p | 0128 2d39 3d7d |-9=}| 012a 1115 3115 | 1 | 012c 5125 3d39 |Q%=9| 012e 985c 0041 | \ A| 0130 4d51 0539 |MQ 9| 0132 1105 4910 | I | 0134 b909 3d3d | ==| 0136 3115 0538 |1 8| 0138 0000 0000 | | .BLANK 0000[0x5] 013d 0080 0000 | | .XXX[0x15] 013f 0008 0000 | | 0141 0220 00ca | | 0143 120a 9a2a | *| 0145 a2ca 8229 | )| 0147 7222 4a9a |r"J | 0149 5afa aa72 |Z r| 014b 4aa2 fa72 |J r| 014d aa6a 122a | j *| 014f 91dc cb7b | {| 0151 0840 | @ | 0152 0000 0000 | | .BLANK 0000[0x4] 0156 00b0 00ba | | .XXX[0x43] 0158 120a 9a2a | *| 015a a2ca 8229 | )| 015c 7262 0a9a |rb | 015e a2fa 224a | "J| 0160 9a5a faaa | Z | 0162 724a a000 |rJ | 0164 0000 0000 | | 0166 0000 0060 | `| 0168 0000 0010 | | 016a 0000 05e0 | | 016c 01a4 2415 | $ | 016e 3455 4595 |4UE | 0170 0452 e455 | R U| 0172 8544 54e5 | DT | 0174 45f4 4455 |E DU| 0176 3435 2495 |45$ | 0178 0544 f523 | D #| 017a b997 2399 | # | 017c 01c0 0064 | d| 017e c454 e475 | T u| 0180 4486 6170 |D ap| 0182 0105 3544 | 5D| 0184 14e4 4415 | D | 0186 2442 e494 |$B | 0188 e544 5474 | DTt| 018a 5520 0003 |U | 018c 9901 c000 | | 018e 44c4 94e4 |D | 0190 b661 7000 | ap | 0192 d424 1534 | $ 4| 0194 5545 9504 |UE | 0196 52e5 74f5 |R t | 0198 2440 |$@ | 0199 0000 0000 | | .BLANK 0000[0x5] 019e 02e0 | | .XXX[0x1] 019f 0000 0000 | | .BLANK 0000[0x61]