|
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 00e0 | | .CONST 0x00e0 ; 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 0056 | V | .CONST 0x0056 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000e | | .CONST 0x000e ; 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 e22c | , | Load 0x1,0x2c
0012 03e9 | | Declare_Variable Discrete,Duplicate
0013 58c4 |X | Indirect_Literal Float,0xd8,0.6931471805599453
0014 e20e | | Load 0x1,0xe
0015 02bf | | Declare_Variable Float,With_Value,With_Constraint
0016 4806 |H | Short_Literal 0x6
0017 e20e | | Load 0x1,0xe
0018 0122 | " | Execute Any,Make_Root_Type
0019 1c01 | | Execute_Immediate Run_Utility,0x1
001a 0271 | q | Execute Discrete,Times
001b 0237 | 7 | Execute Float,Convert_From_Discrete
001c e20e | | Load 0x1,0xe
001d 0238 | 8 | Execute Float,Convert
001e 4ffd |O | Short_Literal -0x3
001f 4803 |H | Short_Literal 0x3
0020 e20e | | Load 0x1,0xe
0021 02a0 | | Declare_Subprogram Null_Subprogram
0022 4801 |H | Short_Literal 0x1
0023 035d | ] | Declare_Type Array,Defined
0024 00d8 | | Load_Top At_Offset_0
0025 0337 | 7 | Declare_Variable Array
0026 00d8 | | Load_Top At_Offset_0
0027 0335 | 5 | Declare_Variable Array,Duplicate
0028 00cd | | Action Spare6_Action
0029 58aa |X | Indirect_Literal Float,0xd4,0.125
002a 4ffd |O | Short_Literal -0x3
002b 00da | | Load_Top At_Offset_2
002c 01d6 | | Execute Vector,Field_Write
002d 58a2 |X | Indirect_Literal Float,0xd0,0.25
002e 4ffe |O | Short_Literal -0x2
002f 00da | | Load_Top At_Offset_2
0030 01d6 | | Execute Vector,Field_Write
0031 589a |X | Indirect_Literal Float,0xcc,0.5
0032 4fff |O | Short_Literal -0x1
0033 00da | | Load_Top At_Offset_2
0034 01d6 | | Execute Vector,Field_Write
0035 5892 |X | Indirect_Literal Float,0xc8,1.0
0036 4800 |H | Short_Literal 0x0
0037 00da | | Load_Top At_Offset_2
0038 01d6 | | Execute Vector,Field_Write
0039 588a |X | Indirect_Literal Float,0xc4,2.0
003a 4801 |H | Short_Literal 0x1
003b 00da | | Load_Top At_Offset_2
003c 01d6 | | Execute Vector,Field_Write
003d 5882 |X | Indirect_Literal Float,0xc0,4.0
003e 4802 |H | Short_Literal 0x2
003f 00da | | Load_Top At_Offset_2
0040 01d6 | | Execute Vector,Field_Write
0041 587a |Xz | Indirect_Literal Float,0xbc,8.0
0042 4803 |H | Short_Literal 0x3
0043 00da | | Load_Top At_Offset_2
0044 01d6 | | Execute Vector,Field_Write
0045 00d9 | | Load_Top At_Offset_1
0046 01d4 | | Execute Vector,Structure_Write
0047 5874 |Xt | Indirect_Literal Float,0xbc,8.0
0048 606f |`o | Indirect_Literal Discrete,0xb8,{0x00000000, 0x00000400}
0049 0237 | 7 | Execute Float,Convert_From_Discrete
004a e20e | | Load 0x1,0xe
004b 0238 | 8 | Execute Float,Convert
004c 023b | ; | Execute Float,Times
004d 5866 |Xf | Indirect_Literal Float,0xb4,0.6931471805999999
004e 023b | ; | Execute Float,Times
004f e20e | | Load 0x1,0xe
0050 02bf | | Declare_Variable Float,With_Value,With_Constraint
0051 00db | | Load_Top At_Offset_3
0052 5885 |X | Indirect_Literal Float,0xd8,0.6931471805599453
0053 023b | ; | Execute Float,Times
0054 e20e | | Load 0x1,0xe
0055 02bf | | Declare_Variable Float,With_Value,With_Constraint
0056 BODY_0008:
0056 e5ff | | Load 0x2,-0x1
0057 00d8 | | Load_Top At_Offset_0
0058 e20e | | Load 0x1,0xe
0059 0234 | 4 | Execute Float,In_Type
005a 7001 |p | Jump_Nonzero 0x5c
005b 0801 | | Execute_Immediate Raise,0x1
005c c403 | | Store 0x2,0x3
005d e403 | | Load 0x2,0x3
005e 023e | > | Execute Float,Absolute_Value
005f c404 | | Store 0x2,0x4
0060 e404 | | Load 0x2,0x4
0061 00da | | Load_Top At_Offset_2
0062 0243 | C | Execute Float,Greater_Equal
0063 6801 |h | Jump_Zero 0x65
0064 08e0 | | Execute_Immediate Raise,0xe0
0065 e20e | | Load 0x1,0xe
0066 00d8 | | Load_Top At_Offset_0
0067 e22c | , | Load 0x1,0x2c
0068 e404 | | Load 0x2,0x4
0069 e20e | | Load 0x1,0xe
006a 0232 | 2 | Execute Float,Check_In_Type
006b 824e | N | Call 0x1,0x4e
006c c407 | | Store 0x2,0x7
006d c405 | | Store 0x2,0x5
006e c406 | | Store 0x2,0x6
006f e407 | | Load 0x2,0x7
0070 0aff | | Execute_Immediate Plus,-0x1
0071 a407 | | Store_Unchecked 0x2,0x7
0072 e231 | 1 | Load 0x1,0x31
0073 0f02 | | Execute_Immediate Equal,0x2
0074 701a |p | Jump_Nonzero 0x8f
0075 e407 | | Load 0x2,0x7
0076 4804 |H | Short_Literal 0x4
0077 026f | o | Execute Discrete,Remainder
0078 a408 | | Store_Unchecked 0x2,0x8
0079 e407 | | Load 0x2,0x7
007a e408 | | Load 0x2,0x8
007b 0272 | r | Execute Discrete,Minus
007c 09fe | | Execute_Immediate Binary_Scale,-0x2
007d a407 | | Store_Unchecked 0x2,0x7
007e e405 | | Load 0x2,0x5
007f e408 | | Load 0x2,0x8
0080 e40c | | Load 0x2,0xc
0081 01d7 | | Execute Vector,Field_Read
0082 023b | ; | Execute Float,Times
0083 c405 | | Store 0x2,0x5
0084 e406 | | Load 0x2,0x6
0085 e408 | | Load 0x2,0x8
0086 e40c | | Load 0x2,0xc
0087 01d7 | | Execute Vector,Field_Read
0088 023b | ; | Execute Float,Times
0089 c406 | | Store 0x2,0x6
008a e405 | | Load 0x2,0x5
008b e406 | | Load 0x2,0x6
008c 023d | = | Execute Float,Plus
008d c403 | | Store 0x2,0x3
008e 7804 |x | Jump 0x93
008f e405 | | Load 0x2,0x5
0090 e406 | | Load 0x2,0x6
0091 023d | = | Execute Float,Plus
0092 c403 | | Store 0x2,0x3
0093 e407 | | Load 0x2,0x7
0094 e403 | | Load 0x2,0x3
0095 e20e | | Load 0x1,0xe
0096 0232 | 2 | Execute Float,Check_In_Type
0097 e007 | | Load 0x0,0x7
0098 e230 | 0 | Load 0x1,0x30
0099 0096 | | Execute Package,Entry
009a c402 | | Store 0x2,0x2
009b e404 | | Load 0x2,0x4
009c 00d9 | | Load_Top At_Offset_1
009d 0243 | C | Execute Float,Greater_Equal
009e 6807 |h | Jump_Zero 0xa6
009f e402 | | Load 0x2,0x2
00a0 00d8 | | Load_Top At_Offset_0
00a1 e20e | | Load 0x1,0xe
00a2 0234 | 4 | Execute Float,In_Type
00a3 7001 |p | Jump_Nonzero 0xa5
00a4 0801 | | Execute_Immediate Raise,0x1
00a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a6 e402 | | Load 0x2,0x2
00a7 5828 |X( | Indirect_Literal Float,0xd0,0.25
00a8 e402 | | Load 0x2,0x2
00a9 023a | : | Execute Float,Divide
00aa 023d | = | Execute Float,Plus
00ab 00d8 | | Load_Top At_Offset_0
00ac e20e | | Load 0x1,0xe
00ad 0234 | 4 | Execute Float,In_Type
00ae 7001 |p | Jump_Nonzero 0xb0
00af 0801 | | Execute_Immediate Raise,0x1
00b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b1 0000 0000 | | .XXX[0x3]
00b3 0000 | |
00b4 3fe6 2e42 |? .B| .DBL 0.6931471805999999
00b6 feff bb3b | ;|
00b8 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
00bc 4020 0000 |@ | .DBL 8.0
00be 0000 0000 | |
00c0 4010 0000 |@ | .DBL 4.0
00c2 0000 0000 | |
00c4 4000 0000 |@ | .DBL 2.0
00c6 0000 0000 | |
00c8 3ff0 0000 |? | .DBL 1.0
00ca 0000 0000 | |
00cc 3fe0 0000 |? | .DBL 0.5
00ce 0000 0000 | |
00d0 3fd0 0000 |? | .DBL 0.25
00d2 0000 0000 | |
00d4 3fc0 0000 |? | .DBL 0.125
00d6 0000 0000 | |
00d8 3fe6 2e42 |? .B| .DBL 0.6931471805599453
00da fefa 39ef | 9 |
00dc 0000 0000 | | .BLANK 0000[0x4]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; Debug Table
00e0 ; --------------------------------------------------------------------------------------
00e0 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f13,0x0000,0x0001,0x0000
00e6 b925 3541 | %5A| .XXX[0x11a]
00e8 3d49 514c |=IQL|
00ea b925 3941 | %9A|
00ec 5551 7d3d |UQ}=|
00ee 5551 4155 |UQAU|
00f0 5081 a185 |P |
00f2 cc81 8995 | |
00f4 95b8 8028 | (|
00f6 c4c4 e8c0 | |
00f8 e0e8 c4cc | |
00fa 80b8 b8b8 | |
00fc 81c9 95cd | |
00fe d1bd c995 | |
0100 90b8 28c4 | ( |
0102 c4e8 c0e0 | |
0104 e8c4 d080 | |
0106 acac ac81 | |
0108 d195 e1d0 | |
010a 8085 3505 | 5 |
010c 0d21 2539 | !%9|
010e 14b9 1119 | |
0110 4cb9 0d3d |L =|
0112 1114 cd7c | ||
0114 c17c c0b9 | | |
0116 2535 413d |%5A=|
0118 4951 4cb9 |IQL |
011a 3915 515d |9 Q]|
011c 3d49 2c81 |=I, |
011e a185 cc81 | |
0120 8995 95b8 | |
0122 81c9 95cd | |
0124 d1bd c995 | |
0126 90b8 28c4 | ( |
0128 c4e8 c0e0 | |
012a e8c4 d480 | |
012c acac ac81 | |
012e d195 e1d0 | |
0130 8085 3505 | 5 |
0132 0d21 2539 | !%9|
0134 14b9 1119 | |
0136 4cb9 0d3d |L =|
0138 1114 cd7c | ||
013a c17c c0b9 | | |
013c 2535 413d |%5A=|
013e 4951 4cb8 |IQL |
0140 28c4 c4e8 |( |
0142 c0e0 e8c4 | |
0144 d480 b8b8 | |
0146 b881 513d | Q=|
0148 3d31 4d7d |=1M}|
014a 3915 515d |9 Q]|
014c 3d49 2d25 |=I-%|
014e 391d 7d51 |9 }Q|
0150 1531 3915 | 19 |
0152 517d 513d |Q}Q=|
0154 3d31 4c81 |=1L |
0156 a185 cc81 | |
0158 8995 95b8 | |
015a 81c9 95cd | |
015c d1bd c995 | |
015e 90b8 28c4 | ( |
0160 c4e8 c0e0 | |
0162 e8c4 d880 | |
0164 acac ac81 | |
0166 91a5 c995 | |
0168 8dd1 bdc9 | |
016a e480 8535 | 5|
016c 050d 2125 | !%|
016e 3914 b911 |9 |
0170 194c b90d | L |
0172 3d11 14cd |= |
0174 7cc1 7cc0 || | |
0176 b955 3925 | U9%|
0178 514c 81a1 |QL |
017a 85cc 8189 | |
017c 9595 b881 | |
017e c995 cdd1 | |
0180 bdc9 9590 | |
0182 b828 c4c4 | ( |
0184 e8c0 e0e8 | |
0186 c4e0 80ac | |
0188 acac 8191 | |
018a a5c9 958d | |
018c d1bd c9e4 | |
018e 8085 3505 | 5 |
0190 0d21 2539 | !%9|
0192 14b9 1119 | |
0194 4cb9 0d3d |L =|
0196 1114 cd7c | ||
0198 c17c c0b9 | | |
019a 5539 2551 |U9%Q|
019c 4cb9 0d49 |L I|
019e 054d 2111 | M! |
01a0 5535 417d |U5A}|
01a2 513d 3d31 |Q==1|
01a4 4c81 a185 |L |
01a6 cc81 8995 | |
01a8 95b8 8028 | (|
01aa c4c4 e8c0 | |
01ac e0e8 c4e0 | |
01ae 80b8 b8b8 | |
01b0 81c9 95cd | |
01b2 d1bd c995 | |
01b4 90b8 28c4 | ( |
01b6 c4e8 c0e0 | |
01b8 e8c4 e480 | |
01ba acac ac81 | |
01bc 91a5 c995 | |
01be 8dd1 bdc9 | |
01c0 e480 8535 | 5|
01c2 050d 2125 | !%|
01c4 3914 b911 |9 |
01c6 194c b90d | L |
01c8 3d11 14cd |= |
01ca 7cc1 7cc0 || | |
01cc b955 3925 | U9%|
01ce 514c b935 |QL 5|
01d0 5081 a185 |P |
01d2 cc81 8995 | |
01d4 95b8 81c9 | |
01d6 95cd d1bd | |
01d8 c995 90b8 | |
01da 28c4 c4e8 |( |
01dc c0e0 e8c8 | |
01de c080 acac | |
01e0 ac81 d195 | |
01e2 e1d0 8085 | |
01e4 3505 0d21 |5 !|
01e6 2539 14b9 |%9 |
01e8 1119 4cb9 | L |
01ea 0d3d 1114 | = |
01ec cd7c c17c | | ||
01ee c0b9 5539 | U9|
01f0 2551 4cb9 |%QL |
01f2 3550 b951 |5P Q|
01f4 154d 517d | MQ}|
01f6 0549 0d21 | I !|
01f8 2559 1481 |%Y |
01fa a185 cc81 | |
01fc 8995 95b8 | |
01fe 8028 c4c4 | ( |