|
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 00d0 | | .CONST 0x00d0 ; 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 0036 | 6 | .CONST 0x0036 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000c | | .CONST 0x000c ; 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 58b9 |X | Indirect_Literal Float,0xcc,2.0
0013 4801 |H | Short_Literal 0x1
0014 e20e | | Load 0x1,0xe
0015 0122 | " | Execute Any,Make_Root_Type
0016 1c01 | | Execute_Immediate Run_Utility,0x1
0017 480a |H | Short_Literal 0xa
0018 0271 | q | Execute Discrete,Times
0019 0a05 | | Execute_Immediate Plus,0x5
001a 4803 |H | Short_Literal 0x3
001b 0270 | p | Execute Discrete,Divide
001c 0272 | r | Execute Discrete,Minus
001d 0239 | 9 | Execute Float,Exponentiate
001e e20e | | Load 0x1,0xe
001f 02bf | | Declare_Variable Float,With_Value,With_Constraint
0020 58a7 |X | Indirect_Literal Float,0xc8,10.0
0021 58aa |X | Indirect_Literal Float,0xcc,2.0
0022 4801 |H | Short_Literal 0x1
0023 e20e | | Load 0x1,0xe
0024 0122 | " | Execute Any,Make_Root_Type
0025 1c01 | | Execute_Immediate Run_Utility,0x1
0026 480a |H | Short_Literal 0xa
0027 0271 | q | Execute Discrete,Times
0028 0a05 | | Execute_Immediate Plus,0x5
0029 4803 |H | Short_Literal 0x3
002a 0270 | p | Execute Discrete,Divide
002b 0272 | r | Execute Discrete,Minus
002c 0239 | 9 | Execute Float,Exponentiate
002d 023a | : | Execute Float,Divide
002e e20e | | Load 0x1,0xe
002f 02bf | | Declare_Variable Float,With_Value,With_Constraint
0030 5893 |X | Indirect_Literal Float,0xc4,0.693115234375
0031 e20e | | Load 0x1,0xe
0032 02bf | | Declare_Variable Float,With_Value,With_Constraint
0033 588c |X | Indirect_Literal Float,0xc0,3.1946184945309415e-05
0034 e20e | | Load 0x1,0xe
0035 02bf | | Declare_Variable Float,With_Value,With_Constraint
0036 BODY_0008:
0036 e5ff | | Load 0x2,-0x1
0037 00d8 | | Load_Top At_Offset_0
0038 e20e | | Load 0x1,0xe
0039 0234 | 4 | Execute Float,In_Type
003a 7001 |p | Jump_Nonzero 0x3c
003b 0801 | | Execute_Immediate Raise,0x1
003c c402 | | Store 0x2,0x2
003d e402 | | Load 0x2,0x2
003e e20e | | Load 0x1,0xe
003f 0232 | 2 | Execute Float,Check_In_Type
0040 587b |X{ | Indirect_Literal Float,0xbc,1.0
0041 e20e | | Load 0x1,0xe
0042 0232 | 2 | Execute Float,Check_In_Type
0043 e00b | | Load 0x0,0xb
0044 e230 | 0 | Load 0x1,0x30
0045 0096 | | Execute Package,Entry
0046 c403 | | Store 0x2,0x3
0047 e402 | | Load 0x2,0x2
0048 023e | > | Execute Float,Absolute_Value
0049 c402 | | Store 0x2,0x2
004a e402 | | Load 0x2,0x2
004b 586c |Xl | Indirect_Literal Float,0xb8,0.5
004c 0242 | B | Execute Float,Less_Equal
004d 682c |h, | Jump_Zero 0x7a
004e e402 | | Load 0x2,0x2
004f e409 | | Load 0x2,0x9
0050 0244 | D | Execute Float,Less
0051 680f |h | Jump_Zero 0x61
0052 e403 | | Load 0x2,0x3
0053 e20e | | Load 0x1,0xe
0054 0232 | 2 | Execute Float,Check_In_Type
0055 e402 | | Load 0x2,0x2
0056 e20e | | Load 0x1,0xe
0057 0232 | 2 | Execute Float,Check_In_Type
0058 e00b | | Load 0x0,0xb
0059 e230 | 0 | Load 0x1,0x30
005a 0096 | | Execute Package,Entry
005b 00d8 | | Load_Top At_Offset_0
005c e20e | | Load 0x1,0xe
005d 0234 | 4 | Execute Float,In_Type
005e 7001 |p | Jump_Nonzero 0x60
005f 0801 | | Execute_Immediate Raise,0x1
0060 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0061 e402 | | Load 0x2,0x2
0062 00d8 | | Load_Top At_Offset_0
0063 5858 |XX | Indirect_Literal Float,0xbc,1.0
0064 e402 | | Load 0x2,0x2
0065 023a | : | Execute Float,Divide
0066 5855 |XU | Indirect_Literal Float,0xbc,1.0
0067 5854 |XT | Indirect_Literal Float,0xbc,1.0
0068 e402 | | Load 0x2,0x2
0069 00d8 | | Load_Top At_Offset_0
006a 023b | ; | Execute Float,Times
006b 023a | : | Execute Float,Divide
006c 023d | = | Execute Float,Plus
006d e20e | | Load 0x1,0xe
006e 0232 | 2 | Execute Float,Check_In_Type
006f 8248 | H | Call 0x1,0x48
0070 023d | = | Execute Float,Plus
0071 023a | : | Execute Float,Divide
0072 023d | = | Execute Float,Plus
0073 c404 | | Store 0x2,0x4
0074 e404 | | Load 0x2,0x4
0075 e20e | | Load 0x1,0xe
0076 0232 | 2 | Execute Float,Check_In_Type
0077 824c | L | Call 0x1,0x4c
0078 c408 | | Store 0x2,0x8
0079 782d |x- | Jump 0xa7
007a e402 | | Load 0x2,0x2
007b 00db | | Load_Top At_Offset_3
007c 0244 | D | Execute Float,Less
007d 680f |h | Jump_Zero 0x8d
007e e402 | | Load 0x2,0x2
007f 5838 |X8 | Indirect_Literal Float,0xb8,0.5
0080 e402 | | Load 0x2,0x2
0081 583a |X: | Indirect_Literal Float,0xbc,1.0
0082 e402 | | Load 0x2,0x2
0083 00d8 | | Load_Top At_Offset_0
0084 023b | ; | Execute Float,Times
0085 023d | = | Execute Float,Plus
0086 e20e | | Load 0x1,0xe
0087 0232 | 2 | Execute Float,Check_In_Type
0088 8248 | H | Call 0x1,0x48
0089 023d | = | Execute Float,Plus
008a 023a | : | Execute Float,Divide
008b 023d | = | Execute Float,Plus
008c c402 | | Store 0x2,0x2
008d e20e | | Load 0x1,0xe
008e 00d8 | | Load_Top At_Offset_0
008f e20e | | Load 0x1,0xe
0090 e402 | | Load 0x2,0x2
0091 e20e | | Load 0x1,0xe
0092 0232 | 2 | Execute Float,Check_In_Type
0093 824b | K | Call 0x1,0x4b
0094 c405 | | Store 0x2,0x5
0095 c406 | | Store 0x2,0x6
0096 c407 | | Store 0x2,0x7
0097 e405 | | Load 0x2,0x5
0098 5823 |X# | Indirect_Literal Float,0xbc,1.0
0099 023d | = | Execute Float,Plus
009a c405 | | Store 0x2,0x5
009b e405 | | Load 0x2,0x5
009c 5827 |X' | Indirect_Literal Float,0xc4,0.693115234375
009d 023b | ; | Execute Float,Times
009e e406 | | Load 0x2,0x6
009f e407 | | Load 0x2,0x7
00a0 e405 | | Load 0x2,0x5
00a1 581e |X | Indirect_Literal Float,0xc0,3.1946184945309415e-05
00a2 023b | ; | Execute Float,Times
00a3 023d | = | Execute Float,Plus
00a4 023d | = | Execute Float,Plus
00a5 023d | = | Execute Float,Plus
00a6 c408 | | Store 0x2,0x8
00a7 e403 | | Load 0x2,0x3
00a8 e20e | | Load 0x1,0xe
00a9 0232 | 2 | Execute Float,Check_In_Type
00aa e408 | | Load 0x2,0x8
00ab e20e | | Load 0x1,0xe
00ac 0232 | 2 | Execute Float,Check_In_Type
00ad e00b | | Load 0x0,0xb
00ae e230 | 0 | Load 0x1,0x30
00af 0096 | | Execute Package,Entry
00b0 00d8 | | Load_Top At_Offset_0
00b1 e20e | | Load 0x1,0xe
00b2 0234 | 4 | Execute Float,In_Type
00b3 7001 |p | Jump_Nonzero 0xb5
00b4 0801 | | Execute_Immediate Raise,0x1
00b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b6 0000 0000 | | .XXX[0x2]
00b8 3fe0 0000 |? | .DBL 0.5
00ba 0000 0000 | |
00bc 3ff0 0000 |? | .DBL 1.0
00be 0000 0000 | |
00c0 3f00 bfbe |? | .DBL 3.1946184945309415e-05
00c2 8e7b cd5e | { ^|
00c4 3fe6 2e00 |? . | .DBL 0.693115234375
00c6 0000 0000 | |
00c8 4024 0000 |@$ | .DBL 10.0
00ca 0000 0000 | |
00cc 4000 0000 |@ | .DBL 2.0
00ce 0000 0000 | |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; Debug Table
00d0 ; --------------------------------------------------------------------------------------
00d0 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f0f,0x0000,0x0001,0x0000
00d6 4d51 7d19 |MQ} | .XXX[0x12a]
00d8 2515 3111 |% 1 |
00da 4cb9 2539 |L %9|
00dc 4155 517d |AUQ}|
00de 513d 7d4d |Q=}M|
00e0 2115 3130 |! 10|
00e2 b94d 5111 | MQ |
00e4 7d15 4949 |} II|
00e6 3d48 f5ee |=H |
00e8 51fa 408c |Q @ |
00ea 0005 205c | \|
00ec 0091 4915 | I |
00ee 4555 154d |EU M|
00f0 517d 1925 |Q} %|
00f2 1531 114c | 1 L|
00f4 b925 3941 | %9A|
00f6 5551 7d51 |UQ}Q|
00f8 3d7d 4d21 |=}M!|
00fa 1531 30b9 | 10 |
00fc 2105 3911 |! 9 |
00fe 3114 01fa |1 |
0100 408c 0015 |@ |
0102 1549 493d | II=|
0104 485c 003d |H\ =|
0106 4d51 0539 |MQ 9|
0108 1105 4910 | I |
010a b94d 5149 | MQI|
010c 2539 1c00 |%9 |
010e 0000 0000 | |
0110 7c02 1000 || |
0112 8d49 1545 | I E|
0114 5515 4d51 |U MQ|
0116 7d19 2515 |} % |
0118 3111 4cb9 |1 L |
011a 1115 3115 | 1 |
011c 5114 b925 |Q %|
011e 397d 4105 |9}A |
0120 4905 3515 |I 5 |
0122 5115 494c |Q IL|
0124 f5ee 51fa | Q |
0126 408c 002d |@ -|
0128 4915 353d |I 5=|
012a 5115 7d19 |Q } |
012c 2531 145c |%1 \|
012e 003d 4d51 | =MQ|
0130 0539 1105 | 9 |
0132 4910 b94d |I M|
0134 5149 2539 |QI%9|
0136 1c01 fa40 | @|
0138 8c00 1d15 | |
013a 6141 5539 |aAU9|
013c 1d14 5c00 | \ |
013e 414d 5105 |AMQ |
0140 3911 0549 |9 I|
0142 10b9 093d | =|
0144 3d31 1505 |=1 |
0146 3858 0059 |8X Y|
0148 4d51 0539 |MQ 9|
014a 1105 4910 | I |
014c b909 3d3d | ==|
014e 3115 0538 |1 8|
0150 b919 0531 | 1|
0152 4d14 0000 |M |
0154 0000 1c00 | |
0156 7800 6549 |x eI|
0158 1545 5515 | EU |
015a 4d51 7d19 |MQ} |
015c 2515 3111 |% 1 |
015e 4cb9 4155 |L AU|
0160 50b9 2105 |P ! |
0162 3911 3114 |9 1 |
0164 ee65 c400 | e |
0166 0000 d400 | |
0168 a400 9149 | I|
016a 1545 5515 | EU |
016c 4d51 7d19 |MQ} |
016e 2515 3111 |% 1 |
0170 4cb9 2539 |L %9|
0172 4155 517d |AUQ}|
0174 513d 7d4d |Q=}M|
0176 2115 3130 |! 10|
0178 b921 0539 | ! 9|
017a 1131 14ee | 1 |
017c 65c4 0000 |e |
017e 00f8 0304 | |
0180 00ad 4915 | I |
0182 4555 154d |EU M|
0184 517d 1925 |Q} %|
0186 1531 114c | 1 L|
0188 b925 3941 | %9A|
018a 5551 7d51 |UQ}Q|
018c 3d7d 4d21 |=}M!|
018e 1531 30b9 | 10 |
0190 2539 7d41 |%9}A|
0192 0549 0535 | I 5|
0194 1551 1549 | Q I|
0196 4cf5 ee51 |L Q|
0198 fa40 8c00 | @ |
019a 1525 3941 | %9A|
019c 5550 5c00 |UP\ |
019e 3d4d 5105 |=MQ |
01a0 3911 0549 |9 I|
01a2 10b9 4d51 | MQ|
01a4 4925 391c |I%9 |
01a6 01fa 408c | @ |
01a8 0019 3d55 | =U|
01aa 5141 5550 |QAUP|
01ac 5c00 3d4d |\ =M|
01ae 5105 3911 |Q 9 |
01b0 0549 10b9 | I |
01b2 4d51 4925 |MQI%|
01b4 391c 01fa |9 |
01b6 408c 0039 |@ 9|
01b8 0541 4115 | AA |
01ba 3911 7d51 |9 }Q|
01bc 3d7d 1925 |=} %|
01be 3114 5c00 |1 \ |
01c0 414d 5105 |AMQ |
01c2 3911 0549 |9 I|
01c4 10b9 093d | =|
01c6 3d31 1505 |=1 |
01c8 3801 f640 |8 @|
01ca 9400 0520 | |
01cc 5c00 9149 |\ I|
01ce 1545 5515 | EU |
01d0 4d51 7d19 |MQ} |
01d2 2515 3111 |% 1 |
01d4 4cb9 2539 |L %9|
01d6 4155 517d |AUQ}|
01d8 513d 7d4d |Q=}M|
01da 2115 3130 |! 10|
01dc b921 0539 | ! 9|
01de 1131 1400 | 1 |
01e0 0000 0000 | |
01e2 1800 5800 | X |
01e4 4949 1545 |II E|
01e6 5515 4d51 |U MQ|
01e8 7d19 2515 |} % |
01ea 3111 4cb9 |1 L |
01ec 4155 50f9 |AUP |
01ee f000 0000 | |
01f0 6400 e800 |d |
01f2 8149 1545 | I E|
01f4 5515 4d51 |U MQ|
01f6 7d19 2515 |} % |
01f8 3111 4cb9 |1 L |
01fa 3105 4d51 |1 MQ|
01fc 7d55 4111 |}UA |
01fe 0551 14b9 | Q |