|
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 0068 | h | .CONST 0x0068 ; 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 0008 | | .CONST 0x0008 ; Number of locals 000b INIT_0008: 000b e20e | | Load 0x1,0xe 000c 03d8 | | Declare_Variable Float,Duplicate 000d e20e | | Load 0x1,0xe 000e 03d8 | | Declare_Variable Float,Duplicate 000f 03d8 | | Declare_Variable Float,Duplicate 0010 584f |XO | Indirect_Literal Float,0x60,0.6931471805599453 0011 e20e | | Load 0x1,0xe 0012 02bf | | Declare_Variable Float,With_Value,With_Constraint 0013 5848 |XH | Indirect_Literal Float,0x5c,1.3862943611198906 0014 e20e | | Load 0x1,0xe 0015 02bf | | Declare_Variable Float,With_Value,With_Constraint 0016 BODY_0008: 0016 e5ff | | Load 0x2,-0x1 0017 00d8 | | Load_Top At_Offset_0 0018 e20e | | Load 0x1,0xe 0019 0234 | 4 | Execute Float,In_Type 001a 7001 |p | Jump_Nonzero 0x1c 001b 0801 | | Execute_Immediate Raise,0x1 001c c404 | | Store 0x2,0x4 001d e404 | | Load 0x2,0x4 001e 023e | > | Execute Float,Absolute_Value 001f c405 | | Store 0x2,0x5 0020 00db | | Load_Top At_Offset_3 0021 5836 |X6 | Indirect_Literal Float,0x58,1.0 0022 0247 | G | Execute Float,Equal 0023 6801 |h | Jump_Zero 0x25 0024 08e0 | | Execute_Immediate Raise,0xe0 0025 00db | | Load_Top At_Offset_3 0026 5831 |X1 | Indirect_Literal Float,0x58,1.0 0027 0244 | D | Execute Float,Less 0028 6802 |h | Jump_Zero 0x2b 0029 e006 | | Load 0x0,0x6 002a 0257 | W | Execute Discrete,Raise 002b e404 | | Load 0x2,0x4 002c 014a | J | Execute Float,Greater_Equal_Zero 002d 6803 |h | Jump_Zero 0x31 002e 5829 |X) | Indirect_Literal Float,0x58,1.0 002f c403 | | Store 0x2,0x3 0030 7802 |x | Jump 0x33 0031 5822 |X" | Indirect_Literal Float,0x54,-1.0 0032 c403 | | Store 0x2,0x3 0033 581c |X | Indirect_Literal Float,0x50,2.0 0034 e405 | | Load 0x2,0x5 0035 5822 |X" | Indirect_Literal Float,0x58,1.0 0036 023c | < | Execute Float,Minus 0037 023a | : | Execute Float,Divide 0038 004b | K | Store_Top Float,At_Offset_3 0039 00da | | Load_Top At_Offset_2 003a e20e | | Load 0x1,0xe 003b 0232 | 2 | Execute Float,Check_In_Type 003c 824c | L | Call 0x1,0x4c 003d 004b | K | Store_Top Float,At_Offset_3 003e e403 | | Load 0x2,0x3 003f 580c |X | Indirect_Literal Float,0x4c,0.5 0040 023b | ; | Execute Float,Times 0041 00db | | Load_Top At_Offset_3 0042 023b | ; | Execute Float,Times 0043 c402 | | Store 0x2,0x2 0044 e402 | | Load 0x2,0x2 0045 00d8 | | Load_Top At_Offset_0 0046 e20e | | Load 0x1,0xe 0047 0234 | 4 | Execute Float,In_Type 0048 7001 |p | Jump_Nonzero 0x4a 0049 0801 | | Execute_Immediate Raise,0x1 004a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 004b 0000 | | .XXX[0x1] 004c 3fe0 0000 |? | .DBL 0.5 004e 0000 0000 | | 0050 4000 0000 |@ | .DBL 2.0 0052 0000 0000 | | 0054 bff0 0000 | | .DBL -1.0 0056 0000 0000 | | 0058 3ff0 0000 |? | .DBL 1.0 005a 0000 0000 | | 005c 3ff6 2e42 |? .B| .DBL 1.3862943611198906 005e fefa 39ef | 9 | 0060 3fe6 2e42 |? .B| .DBL 0.6931471805599453 0062 fefa 39ef | 9 | 0064 0000 0000 | | .BLANK 0000[0x4] 0068 ; -------------------------------------------------------------------------------------- 0068 ; Debug Table 0068 ; -------------------------------------------------------------------------------------- 0068 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f0d,0x0000,0x0001,0x0000 006e 45f3 1325 |E %| .XXX[0x2a] 0070 f323 25f3 | #% | 0072 2390 1176 |# v| 0074 80c0 0014 | | 0076 b360 22ec | `" | 0078 a480 22ed | " | 007a 2680 0000 |& | 007c 0000 1176 | v| 007e 80c0 0000 | | 0080 0000 0000 | | 0082 0010 0000 | | 0084 01d4 1435 | 5| 0086 4495 6495 |D d | 0088 4595 f393 |E | 008a 25f3 0365 |% e| 008c f303 95f4 | | 008e 1545 f313 | E | 0090 75f3 3325 |u 3%| 0092 f323 1011 | # | 0094 76a1 4000 |v @ | 0096 14bb 4000 | @ | 0098 0000 0000 | | .BLANK 0000[0x5] 009d 0011 76a1 | v | .XXX[0x3c] 009f 4000 0000 |@ | 00a1 0000 0000 | | 00a3 1000 0001 | | 00a5 d414 3544 | 5D| 00a7 9564 9545 | d E| 00a9 95f3 9325 | %| 00ab f303 65f3 | e | 00ad 2355 f415 |#U | 00af 45f3 1355 |E U| 00b1 f333 05f3 | 3 | 00b3 0360 1176 | ` v| 00b5 c1c0 0014 | | 00b7 bd20 22ec | " | 00b9 e580 22ee | " | 00bb 6b90 0000 |k | 00bd 0000 1176 | v| 00bf c1c0 0000 | | 00c1 0000 0000 | | 00c3 0010 0000 | | 00c5 01d4 1435 | 5| 00c7 4495 6495 |D d | 00c9 4595 f393 |E | 00cb 25f3 0365 |% e| 00cd f333 05f4 | 3 | 00cf 1545 f313 | E | 00d1 35f3 2385 |5 # | 00d3 f313 3011 | 0 | 00d5 76e2 4000 |v @ | 00d7 14be 4000 | @ | 00d9 0000 0000 | | .BLANK 0000[0x5] 00de 0011 76e2 | v | .XXX[0x3c] 00e0 4008 9cba |@ | 00e2 f000 0000 | | 00e4 1000 0001 | | 00e6 d414 3544 | 5D| 00e8 9564 9545 | d E| 00ea 95f3 9325 | %| 00ec f303 65f3 | e | 00ee 3305 f415 |3 | 00f0 45f3 1355 |E U| 00f2 f313 25f3 | % | 00f4 0310 1177 | w| 00f6 02c0 0014 | | 00f8 c040 22ed | @" | 00fa a880 22ee | " | 00fc 2a80 0000 |* | 00fe 0000 1177 | w| 0100 02c0 0000 | | 0102 0000 0000 | | 0104 0010 0000 | | 0106 01d4 1435 | 5| 0108 4495 6495 |D d | 010a 4595 f393 |E | 010c 25f3 0375 |% u| 010e f303 55f4 | U | 0110 1545 f313 | E | 0112 35f3 1355 |5 U| 0114 f313 4011 | @ | 0116 7723 4000 |w#@ | 0118 14c1 a000 | | 011a 0000 0000 | | .BLANK 0000[0x5] 011f 0011 7723 | w#| .XXX[0x3c] 0121 4000 0000 |@ | 0123 0000 0000 | | 0125 1000 0001 | | 0127 d414 3544 | 5D| 0129 9564 9545 | d E| 012b 95f3 9325 | %| 012d f303 75f3 | u | 012f 2315 f415 |# | 0131 45f3 1315 |E | 0133 f353 25f3 | S% | 0135 2370 1177 |#p w| 0137 43c0 0014 |C | 0139 c2c0 22ed | " | 013b e980 22ee | " | 013d ed80 0000 | | 013f 0000 1177 | w| 0141 43c0 0000 |C | 0143 0000 0000 | | 0145 0010 0000 | | 0147 01d4 1435 | 5| 0149 4495 6495 |D d | 014b 4595 f393 |E | 014d 25f3 0375 |% u| 014f f323 15f4 | # | 0151 1545 f313 | E | 0153 65f3 3325 |e 3%| 0155 f333 9011 | 3 | 0157 7764 4000 |wd@ | 0159 14c5 e000 | | 015b 0000 0000 | | .BLANK 0000[0x5] 0160 0011 7764 | wd| .XXX[0x58] 0162 400d 9630 |@ 0| 0164 6000 0000 |` | 0166 1000 0001 | | 0168 d414 3544 | 5D| 016a 9564 9545 | d E| 016c 95f3 9325 | %| 016e f303 75f3 | u | 0170 2365 f415 |#e | 0172 45f3 1335 |E 5| 0174 f333 35f3 | 35 | 0176 1350 1177 | P w| 0178 84c0 0014 | | 017a c8e0 22ee | " | 017c ac80 3d64 | =d| 017e a840 0000 | @ | 0180 0000 1177 | w| 0182 84c0 0b9a | | 0184 4010 0000 |@ | 0186 0010 0000 | | 0188 01d4 1435 | 5| 018a 4495 6495 |D d | 018c 4595 f393 |E | 018e 25f3 0385 |% | 0190 f303 25f4 | % | 0192 1545 f313 | E | 0194 15f3 3345 | 3E| 0196 f333 3001 | 30 | 0198 8f3f 7000 | ?p | 019a 0215 4000 | @ | 019c 0000 0000 | | 019e 0000 0808 | | 01a0 0000 0028 | (| 01a2 0000 0000 | | 01a4 00c0 6300 | c | 01a6 4400 0000 |D | 01a8 0000 0000 | | 01aa 0010 1941 | A| 01ac 2d00 4400 |- D | 01ae 0000 0000 | | 01b0 0011 1111 | | 01b2 008b bdd1 | | 01b4 0000 0000 | | 01b6 0000 0001 | | 01b8 0000 0000 | | .BLANK 0000[0x4] 01bc 8000 00ac | | .XXX[0x2] 01be 0000 0000 | | .BLANK 0000[0x4] 01c2 00f5 8be1 | | .XXX[0x2c] 01c4 0000 0000 | | 01c6 0000 001b | | 01c8 0000 0000 | | 01ca 003c 95f3 | < | 01cc 0000 12cd | | 01ce 8000 0000 | | 01d0 0000 0000 | | 01d2 003e 72b6 | >r | 01d4 8000 1328 | (| 01d6 008b be51 | Q| 01d8 008b bed1 | | 01da 003e ff09 | > | 01dc 8000 133e | >| 01de 8000 0000 | | 01e0 0000 0000 | | 01e2 0045 d40d | E | 01e4 0000 1608 | | 01e6 808b be91 | | 01e8 008b bf91 | | 01ea 0045 d48f | E | 01ec 0000 160c | | 01ee 0000 0000 | | .BLANK 0000[0x4] 01f2 0045 d511 | E | .XXX[0xe] 01f4 0000 162f | /| 01f6 808b bf51 | Q| 01f8 008b bfd1 | | 01fa 0045 d593 | E | 01fc 0000 1635 | 5| 01fe 0000 0000 | |