|
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 0098 | | .CONST 0x0098 ; 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 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 e22c | , | Load 0x1,0x2c 0012 03e9 | | Declare_Variable Discrete,Duplicate 0013 03e9 | | Declare_Variable Discrete,Duplicate 0014 03e9 | | Declare_Variable Discrete,Duplicate 0015 03e9 | | Declare_Variable Discrete,Duplicate 0016 BODY_0008: 0016 e5ff | | Load 0x2,-0x1 0017 c403 | | Store 0x2,0x3 0018 e403 | | Load 0x2,0x3 0019 5876 |Xv | Indirect_Literal Float,0x90,46.16624130844683 001a 023b | ; | Execute Float,Times 001b 0235 | 5 | Execute Float,Round_To_Discrete 001c e22c | , | Load 0x1,0x2c 001d 025e | ^ | Execute Discrete,Convert 001e a409 | | Store_Unchecked 0x2,0x9 001f 00db | | Load_Top At_Offset_3 0020 0274 | t | Execute Discrete,Absolute_Value 0021 4900 |I | Short_Literal 0x100 0022 027b | { | Execute Discrete,Greater_Equal 0023 6809 |h | Jump_Zero 0x2d 0024 00db | | Load_Top At_Offset_3 0025 483f |H? | Short_Literal 0x3f 0026 0279 | y | Execute Discrete,And 0027 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0028 00db | | Load_Top At_Offset_3 0029 00da | | Load_Top At_Offset_2 002a 0272 | r | Execute Discrete,Minus 002b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 002c 7804 |x | Jump 0x31 002d 4800 |H | Short_Literal 0x0 002e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 002f 00db | | Load_Top At_Offset_3 0030 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0031 00da | | Load_Top At_Offset_2 0032 0237 | 7 | Execute Float,Convert_From_Discrete 0033 e20e | | Load 0x1,0xe 0034 0238 | 8 | Execute Float,Convert 0035 e23d | = | Load 0x1,0x3d 0036 023b | ; | Execute Float,Times 0037 c407 | | Store 0x2,0x7 0038 e403 | | Load 0x2,0x3 0039 023e | > | Execute Float,Absolute_Value 003a e407 | | Load 0x2,0x7 003b 023e | > | Execute Float,Absolute_Value 003c 0243 | C | Execute Float,Greater_Equal 003d 6805 |h | Jump_Zero 0x43 003e e403 | | Load 0x2,0x3 003f e407 | | Load 0x2,0x7 0040 023c | < | Execute Float,Minus 0041 c404 | | Store 0x2,0x4 0042 780a |x | Jump 0x4d 0043 5848 |XH | Indirect_Literal Float,0x8c,0.5 0044 e407 | | Load 0x2,0x7 0045 023b | ; | Execute Float,Times 0046 c407 | | Store 0x2,0x7 0047 e403 | | Load 0x2,0x3 0048 e407 | | Load 0x2,0x7 0049 023c | < | Execute Float,Minus 004a e407 | | Load 0x2,0x7 004b 023c | < | Execute Float,Minus 004c c404 | | Store 0x2,0x4 004d 00d9 | | Load_Top At_Offset_1 004e 6809 |h | Jump_Zero 0x58 004f e404 | | Load 0x2,0x4 0050 00da | | Load_Top At_Offset_2 0051 0237 | 7 | Execute Float,Convert_From_Discrete 0052 e20e | | Load 0x1,0xe 0053 0238 | 8 | Execute Float,Convert 0054 e23d | = | Load 0x1,0x3d 0055 023b | ; | Execute Float,Times 0056 023c | < | Execute Float,Minus 0057 c404 | | Store 0x2,0x4 0058 00db | | Load_Top At_Offset_3 0059 0237 | 7 | Execute Float,Convert_From_Discrete 005a e20e | | Load 0x1,0xe 005b 0238 | 8 | Execute Float,Convert 005c e23e | > | Load 0x1,0x3e 005d 023b | ; | Execute Float,Times 005e 023f | ? | Execute Float,Unary_Minus 005f c405 | | Store 0x2,0x5 0060 00db | | Load_Top At_Offset_3 0061 481f |H | Short_Literal 0x1f 0062 0279 | y | Execute Discrete,And 0063 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0064 00db | | Load_Top At_Offset_3 0065 00d9 | | Load_Top At_Offset_1 0066 0272 | r | Execute Discrete,Minus 0067 09fb | | Execute_Immediate Binary_Scale,-0x5 0068 a5fe | | Store_Unchecked 0x2,-0x2 0069 e405 | | Load 0x2,0x5 006a e20e | | Load 0x1,0xe 006b 0232 | 2 | Execute Float,Check_In_Type 006c e404 | | Load 0x2,0x4 006d e20e | | Load 0x1,0xe 006e 0232 | 2 | Execute Float,Check_In_Type 006f 824d | M | Call 0x1,0x4d 0070 c406 | | Store 0x2,0x6 0071 4800 |H | Short_Literal 0x0 0072 00d9 | | Load_Top At_Offset_1 0073 e242 | B | Load 0x1,0x42 0074 01a7 | | Execute Matrix,Field_Read 0075 4801 |H | Short_Literal 0x1 0076 00da | | Load_Top At_Offset_2 0077 e242 | B | Load 0x1,0x42 0078 01a7 | | Execute Matrix,Field_Read 0079 023d | = | Execute Float,Plus 007a c402 | | Store 0x2,0x2 007b 4800 |H | Short_Literal 0x0 007c 00d9 | | Load_Top At_Offset_1 007d e242 | B | Load 0x1,0x42 007e 01a7 | | Execute Matrix,Field_Read 007f c5fd | | Store 0x2,-0x3 0080 4801 |H | Short_Literal 0x1 0081 00d9 | | Load_Top At_Offset_1 0082 e242 | B | Load 0x1,0x42 0083 01a7 | | Execute Matrix,Field_Read 0084 e402 | | Load 0x2,0x2 0085 e406 | | Load 0x2,0x6 0086 023b | ; | Execute Float,Times 0087 023d | = | Execute Float,Plus 0088 c5fc | | Store 0x2,-0x4 0089 4502 |E | Exit_Suprogram New_Top_Offset 0x2 008a 0000 0000 | | .XXX[0x2] 008c 3fe0 0000 |? | .DBL 0.5 008e 0000 0000 | | 0090 4047 1547 |@G G| .DBL 46.16624130844683 0092 652b 82fe |e+ | 0094 0000 0000 | | .BLANK 0000[0x4] 0098 ; -------------------------------------------------------------------------------------- 0098 ; Debug Table 0098 ; -------------------------------------------------------------------------------------- 0098 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f33,0x0000,0x0001,0x0000 009e cdd1 c9d5 | | .XXX[0x110] 00a0 8dd1 cc81 | | 00a2 9195 99a5 | | 00a4 b995 9028 | (| 00a6 81a5 b881 | | 00a8 c185 8dad | | 00aa 859d 9481 | | 00ac 19bd c9b5 | | 00ae 85d1 d195 | | 00b0 c8b8 8165 | e| 00b2 bdd4 81dd | | 00b4 85b9 d081 | | 00b6 d1bc 81ad | | 00b8 b9bd dc81 | | 00ba b9bd d081 | | 00bc bdb9 b1e4 | | 00be 81d1 a194 | | 00c0 81b9 85b5 | | 00c2 95cc 81bd | | 00c4 9881 d1a1 | | 00c6 9481 d5b9 | | 00c8 a5d1 ccb0 | | 00ca 2881 89d5 |( | 00cc d081 85b1 | | 00ce cdbc 81d1 | | 00d0 a194 818d | | 00d2 bdb9 cdd1 | | 00d4 c9d5 8dd1 | | 00d6 cc81 d1a1 | | 00d8 85d0 81d1 | | 00da a195 e481 | | 00dc c995 9995 | | 00de c995 b98d | | 00e0 9481 85b9 | | 00e2 9081 d1a1 | | 00e4 9481 b1a5 | | 00e6 b994 81b9 | | 00e8 d5b5 8995 | | 00ea c9cc 81bd | | 00ec 9881 89bd | | 00ee d1a0 2881 | ( | 00f0 d1a1 9481 | | 00f2 9195 99a5 | | 00f4 b9a5 d1a5 | | 00f6 bdb8 8185 | | 00f8 b990 81d5 | | 00fa cd85 9d94 | | 00fc b828 2881 | (( | 00fe 09e4 8195 | | 0100 e195 8dd5 | | 0102 d1a5 b99c | | 0104 81d1 a194 | | 0106 8199 bdb1 | | 0108 b1bd dda5 | | 010a b99c 818d | | 010c bdb5 b585 | | 010e b990 b081 | | 0110 e5bd d481 | | 0112 8d85 b881 | | 0114 8d85 d5cd | | 0116 9481 d1a1 | | 0118 9481 15b9 | | 011a d9a5 c9bd | | 011c b9b5 95b9 | | 011e d081 d1bc | | 0120 2881 a591 |( | 0122 95b9 d1a5 | | 0124 99e4 818d | | 0126 bdb9 cdd1 | | 0128 c9d5 8dd1 | | 012a cc81 bd98 | | 012c 81d1 a194 | | 012e 8191 9599 | | 0130 85d5 b1d0 | | 0132 81d1 e5c1 | | 0134 95cc 80a1 | | 0136 99d5 b98d | | 0138 d1a5 bdb9 | | 013a ccb0 819d | | 013c 95b9 95c9 | | 013e a58d ccb0 | | 0140 8185 b990 | | 0142 2881 c1c9 |( | 0144 bd8d 9591 | | 0146 d5c9 95cc | | 0148 a481 99c9 | | 014a bdb4 8119 | | 014c bdc9 b585 | | 014e d1d1 95c8 | | 0150 8185 b990 | | 0152 8191 95d1 | | 0154 95c9 b5a5 | | 0156 b994 81d1 | | 0158 a194 81d5 | | 015a b9a5 d1cc | | 015c 81d1 a185 | | 015e d081 c995 | | 0160 9995 c995 | | 0162 b98d 9481 | | 0164 d1a1 bdcd | | 0166 9428 818d | ( | 0168 bdb9 cdd1 | | 016a c9d5 8dd1 | | 016c cce8 2828 | ((| 016e 8080 8161 | a| 0170 c995 98b9 | | 0172 55cd 9591 |U | 0174 7d09 e480 |} | 0176 a089 19bd | | 0178 c9b5 85d1 | | 017a d195 c89d | | 017c 4dc1 958c |M | 017e 88a4 ec28 | (| 0180 2881 51a1 |( Q | 0182 9481 c995 | | 0184 cdd5 b1d1 | | 0186 a5b9 9c81 | | 0188 c995 c1bd | | 018a c9d0 81a5 | | 018c cc81 91a5 | | 018e cdc1 b185 | | 0190 e595 9081 | | 0192 a5b8 8185 | | 0194 b881 15b9 | | 0196 d9a5 c9bd | | 0198 b9b5 95b9 | | 019a d081 bdd5 | | 019c d1c1 d5d0 | | 019e 81dd a5b9 | | 01a0 91bd dcb0 | | 01a2 8185 cc28 | (| 01a4 81cd a1bd | | 01a6 ddb8 8189 | | 01a8 95b1 bddc | | 01aa e828 2881 | (( | 01ac 2551 1534 |%Q 4| 01ae 8080 8080 | | .BLANK 8080[0x8] 01b6 8111 1519 | | .XXX[0x6] 01b8 2539 1510 |%9 | 01ba 8125 3880 | %8 | 01bc 8080 8080 | | .BLANK 8080[0x6] 01c2 8125 4c81 | %L | .XXX[0x3e] 01c4 4915 1915 |I | 01c6 4949 1510 |II | 01c8 8151 3c81 | Q< | 01ca 0964 2828 | d((| 01cc 8141 4925 | AI%| 01ce 3951 7d21 |9Q}!| 01d0 1505 1115 | | 01d2 4880 8080 |H | 01d4 8080 8080 | | 01d6 8081 193d | =| 01d8 4935 0551 |I5 Q| 01da 5115 496c |Q Il| 01dc d174 d080 | t | 01de 8080 8080 | | 01e0 b909 054d | M| 01e2 1509 0531 | 1| 01e4 317d 4d51 |1}MQ| 01e6 0551 254d | Q%M| 01e8 5125 0d4c |Q% L| 01ea a154 a56c | T l| 01ec c4c5 74cc | t | 01ee c028 8141 | ( A| 01f0 4925 3951 |I%9Q| 01f2 7d41 3105 |}A1 | 01f4 6515 497d |e I}| 01f6 4d51 0551 |MQ Q| 01f8 4c80 8081 |L | 01fa 193d 4935 | =I5| 01fc 0551 5115 | QQ | 01fe 496c d574 |Il t|