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