|
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 0088 | | .CONST 0x0088 ; 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 001e | | .CONST 0x001e ; 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 03d8 | | Declare_Variable Float,Duplicate 000d 03d8 | | Declare_Variable Float,Duplicate 000e 03d8 | | Declare_Variable Float,Duplicate 000f 03d8 | | Declare_Variable Float,Duplicate 0010 e22f | / | Load 0x1,0x2f 0011 03e9 | | Declare_Variable Discrete,Duplicate 0012 03e9 | | Declare_Variable Discrete,Duplicate 0013 e231 | 1 | Load 0x1,0x31 0014 0237 | 7 | Execute Float,Convert_From_Discrete 0015 e20e | | Load 0x1,0xe 0016 0238 | 8 | Execute Float,Convert 0017 481a |H | Short_Literal 0x1a 0018 0239 | 9 | Execute Float,Exponentiate 0019 e20e | | Load 0x1,0xe 001a 02bf | | Declare_Variable Float,With_Value,With_Constraint 001b 5868 |Xh | Indirect_Literal Float,0x84,6.283185307179586 001c e20e | | Load 0x1,0xe 001d 02bf | | Declare_Variable Float,With_Value,With_Constraint 001e BODY_0008: 001e e5ff | | Load 0x2,-0x1 001f 7004 |p | Jump_Nonzero 0x24 0020 e5ff | | Load 0x2,-0x1 0021 e20e | | Load 0x1,0xe 0022 0232 | 2 | Execute Float,Check_In_Type 0023 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0024 e5ff | | Load 0x2,-0x1 0025 00d8 | | Load_Top At_Offset_0 0026 e20e | | Load 0x1,0xe 0027 0234 | 4 | Execute Float,In_Type 0028 7001 |p | Jump_Nonzero 0x2a 0029 0801 | | Execute_Immediate Raise,0x1 002a c402 | | Store 0x2,0x2 002b e402 | | Load 0x2,0x2 002c 023e | > | Execute Float,Absolute_Value 002d 00da | | Load_Top At_Offset_2 002e 0245 | E | Execute Float,Greater 002f 680a |h | Jump_Zero 0x3a 0030 5853 |XS | Indirect_Literal Float,0x84,6.283185307179586 0031 e20e | | Load 0x1,0xe 0032 0232 | 2 | Execute Float,Check_In_Type 0033 e402 | | Load 0x2,0x2 0034 e20e | | Load 0x1,0xe 0035 0232 | 2 | Execute Float,Check_In_Type 0036 e005 | | Load 0x0,0x5 0037 e230 | 0 | Load 0x1,0x30 0038 0096 | | Execute Package,Entry 0039 c402 | | Store 0x2,0x2 003a e402 | | Load 0x2,0x2 003b 014a | J | Execute Float,Greater_Equal_Zero 003c 6803 |h | Jump_Zero 0x40 003d 5842 |XB | Indirect_Literal Float,0x80,1.0 003e c405 | | Store 0x2,0x5 003f 7805 |x | Jump 0x45 0040 583b |X; | Indirect_Literal Float,0x7c,-1.0 0041 c405 | | Store 0x2,0x5 0042 e402 | | Load 0x2,0x2 0043 023e | > | Execute Float,Absolute_Value 0044 c402 | | Store 0x2,0x2 0045 e22f | / | Load 0x1,0x2f 0046 e20e | | Load 0x1,0xe 0047 00d8 | | Load_Top At_Offset_0 0048 e402 | | Load 0x2,0x2 0049 e20e | | Load 0x1,0xe 004a 0232 | 2 | Execute Float,Check_In_Type 004b 8251 | Q | Call 0x1,0x51 004c c403 | | Store 0x2,0x3 004d c404 | | Store 0x2,0x4 004e c407 | | Store 0x2,0x7 004f e407 | | Load 0x2,0x7 0050 4801 |H | Short_Literal 0x1 0051 0279 | y | Execute Discrete,And 0052 c408 | | Store 0x2,0x8 0053 e407 | | Load 0x2,0x7 0054 e408 | | Load 0x2,0x8 0055 0272 | r | Execute Discrete,Minus 0056 09ff | | Execute_Immediate Binary_Scale,-0x1 0057 005b | [ | Store_Top Discrete,At_Offset_3 0058 00db | | Load_Top At_Offset_3 0059 7009 |p | Jump_Nonzero 0x63 005a e404 | | Load 0x2,0x4 005b e20e | | Load 0x1,0xe 005c 0232 | 2 | Execute Float,Check_In_Type 005d e403 | | Load 0x2,0x3 005e e20e | | Load 0x1,0xe 005f 0232 | 2 | Execute Float,Check_In_Type 0060 8252 | R | Call 0x1,0x52 0061 c406 | | Store 0x2,0x6 0062 7808 |x | Jump 0x6b 0063 e404 | | Load 0x2,0x4 0064 e20e | | Load 0x1,0xe 0065 0232 | 2 | Execute Float,Check_In_Type 0066 e403 | | Load 0x2,0x3 0067 e20e | | Load 0x1,0xe 0068 0232 | 2 | Execute Float,Check_In_Type 0069 8253 | S | Call 0x1,0x53 006a c406 | | Store 0x2,0x6 006b 00da | | Load_Top At_Offset_2 006c 0f01 | | Execute_Immediate Equal,0x1 006d 6803 |h | Jump_Zero 0x71 006e e406 | | Load 0x2,0x6 006f 023f | ? | Execute Float,Unary_Minus 0070 c406 | | Store 0x2,0x6 0071 e405 | | Load 0x2,0x5 0072 e406 | | Load 0x2,0x6 0073 023b | ; | Execute Float,Times 0074 00d8 | | Load_Top At_Offset_0 0075 e20e | | Load 0x1,0xe 0076 0234 | 4 | Execute Float,In_Type 0077 7001 |p | Jump_Nonzero 0x79 0078 0801 | | Execute_Immediate Raise,0x1 0079 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 007a 0000 0000 | | .XXX[0x2] 007c bff0 0000 | | .DBL -1.0 007e 0000 0000 | | 0080 3ff0 0000 |? | .DBL 1.0 0082 0000 0000 | | 0084 4019 21fb |@ ! | .DBL 6.283185307179586 0086 5444 2d18 |TD- | 0088 ; -------------------------------------------------------------------------------------- 0088 ; Debug Table 0088 ; -------------------------------------------------------------------------------------- 0088 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f3a,0x0000,0x0001,0x0000 008e 8aa9 a8ab | | .XXX[0x165] 0090 e988 2848 | (H| 0092 a98b ea8b | | 0094 2a08 a620 |* | 0096 0289 082a | *| 0098 6908 a88b |i | 009a ea8b 2a08 | * | 009c abe9 a8ea | | 009e 4bea 8b2a |K *| 00a0 08a6 2002 | | 00a2 8a8b 2a08 | * | 00a4 abe9 a8ea | | 00a6 4be8 4a48 |K JH| 00a8 29c8 690b |) i | 00aa ea8b 2a08 | * | 00ac a620 024a | J| 00ae 8b2a 08ab | * | 00b0 e9a8 ea4b | K| 00b2 e988 a828 | (| 00b4 cbea 8b2a | *| 00b6 08a6 2002 | | 00b8 4aca 0be8 |J | 00ba 892a 4be8 | *K | 00bc 4a48 29c8 |JH) | 00be 690b ea8b |i | 00c0 2a08 a620 |* | 00c2 020a ca0b | | 00c4 e889 2a4b | *K| 00c6 e988 a828 | (| 00c8 cbea 8b2a | *| 00ca 08a6 2002 | | 00cc 6868 2a88 |hh* | 00ce 2989 e8eb |) | 00d0 e84a 4829 | JH)| 00d2 c869 0bea | i | 00d4 8b2a 08a6 | * | 00d6 2002 2868 | (h| 00d8 2a88 2989 |* ) | 00da e8eb e988 | | 00dc a828 cbea | ( | 00de 8b2a 08a6 | * | 00e0 2002 6a68 | jh| 00e2 a8e9 a8a9 | | 00e4 ca8b e84a | J| 00e6 4829 c869 |H) i| 00e8 0bea 8b2a | *| 00ea 08a6 2002 | | 00ec eac9 e98b | | 00ee e849 2a8b | I* | 00f0 e9a8 2a0b | * | 00f2 e84a 4829 | JH)| 00f4 c869 0bea | i | 00f6 8b2a 08a6 | * | 00f8 2002 aac9 | | 00fa e98b e849 | I| 00fc 2a8b e9a8 |* | 00fe 2a0b e988 |* | 0100 a828 cbea | ( | 0102 8b2a 08a6 | * | 0104 2002 a8e9 | | 0106 09ea 6a8b | j | 0108 e989 e8eb | | 010a e84a 4829 | JH)| 010c c869 0bea | i | 010e 8b2a 08a6 | * | 0110 2002 68e9 | h | 0112 09ea 6a8b | j | 0114 e989 e8eb | | 0116 e988 a828 | (| 0118 cbea 8b2a | *| 011a 08a6 2002 | | 011c e8a9 cac9 | | 011e 2a49 e9cb |*I | 0120 e989 e8eb | | 0122 e84a 4829 | JH)| 0124 c869 0bea | i | 0126 8b2a 08a6 | * | 0128 2002 a8a9 | | 012a cac9 2a49 | *I| 012c e9cb e989 | | 012e e8eb e988 | | 0130 a828 cbea | ( | 0132 8b2a 08a6 | * | 0134 2003 0a69 | i| 0136 2b48 abe9 |+H | 0138 092a 6a89 | *j | 013a ea4b 2be8 | K+ | 013c 4a48 29c8 |JH) | 013e 690b ea8b |i | 0140 2a08 a620 |* | 0142 02ca 692b | i+| 0144 48ab e909 |H | 0146 2a6a 89ea |*j | 0148 4b2b e988 |K+ | 014a a828 cbea | ( | 014c 8b2a 08a0 | * | 014e 0000 2c73 | ,s| 0150 e000 0010 | | 0152 0000 0000 | | 0154 4000 0033 |@ 3| 0156 000b 10d3 | | 0158 d391 9251 | Q| 015a d554 9055 | T U| 015c 13d4 8b94 | | 015e d654 d511 | T | 0160 5357 d3d4 |SW | 0162 1154 9055 | T U| 0164 1253 d394 | S | 0166 cb95 1052 | R| 0168 d157 d4d3 | W | 016a 9054 14d2 | T | 016c 13d5 0f5e | ^| 016e e51f a408 | | 0170 c002 1491 | | 0172 5510 5253 |U RS| 0174 9151 05c0 | Q | 0176 0414 d510 | | 0178 5391 1054 |S T| 017a 910b 9093 | | 017c d3d3 1150 | P| 017e 5380 1fa4 |S | 0180 08c0 0254 | T| 0182 d055 9157 | U W| 0184 d090 54d1 | T | 0186 45c0 0754 |E T| 0188 d410 50d1 | P | 018a 57d1 1151 |W Q| 018c 94cb 94d0 | | 018e 5591 57d4 |U W | 0190 13d2 5395 | S | 0192 17d0 9054 | T| 0194 d157 d251 | W Q| 0196 001f 6409 | d | 0198 4002 9295 |@ | 019a 54d5 17d5 |T | 019c 1052 d153 | R S| 019e 85c0 0694 | | 01a0 d410 50d1 | P | 01a2 57d1 1151 |W Q| 01a4 94cb 94d3 | | 01a6 9054 14d2 | T | 01a8 13d5 17d3 | | 01aa 9553 5091 | SP | 01ac 5480 1f64 |T d| 01ae 0940 01d0 | @ | 01b0 5517 d512 |U | 01b2 5351 45c0 |SQE | 01b4 0350 d053 | P S| 01b6 1153 9110 | S | 01b8 548b 9512 |T | 01ba 5351 4000 |SQ@ | 01bc 0000 5985 | Y | 01be 8000 0004 | | 01c0 8000 0000 | | 01c2 8000 0030 | 0| 01c4 0019 a1a7 | | 01c6 a723 24a3 | #$ | 01c8 aaa9 20aa | | 01ca 27a9 172b |' +| 01cc 282f a7a8 |(/ | 01ce 22a9 20aa |" | 01d0 24a7 a729 |$ )| 01d2 9722 22a6 | "" | 01d4 22aa 22af |" " | 01d6 ab24 a92a | $ *| 01d8 2aa0 a62f |* /| 01da a829 27a1 | )' | 01dc a2a9 a9a7 | | 01de a91e bdca | | 01e0 3f48 1180 |?H | 01e2 0327 a622 | ' "| 01e4 2fab 280b |/ ( | 01e6 800c 2b24 | +$| 01e8 a92a 2aa0 | ** | 01ea a62f a829 | / )| 01ec 27a1 a2a9 |' | 01ee a9a7 a92f | /| 01f0 a72a a6a1 | * | 01f2 22a9 |" | 01f3 0000 0000 | | .BLANK 0000[0x4] 01f7 001b 0000 | | .XXX[0x9] 01f9 0001 0000 | | 01fb 0064 0032 | d 2| 01fd 434f 4e46 |CONF| 01ff 4947 |IG |