|
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 0130 | 0 | .CONST 0x0130 ; 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 0000 | | .CONST 0x0000 ; 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 0012 | | .CONST 0x0012 ; 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 03d8 | | Declare_Variable Float,Duplicate 0013 03d8 | | Declare_Variable Float,Duplicate 0014 03d8 | | Declare_Variable Float,Duplicate 0015 03d8 | | Declare_Variable Float,Duplicate 0016 00e2 | | Load_Encached Integer_Cache 0017 03e9 | | Declare_Variable Discrete,Duplicate 0018 03e9 | | Declare_Variable Discrete,Duplicate 0019 e22f | / | Load 0x1,0x2f 001a 0007 | | Action Break_Optional 001b 00e1 | | Load_Encached Boolean_Cache 001c e20e | | Load 0x1,0xe 001d 0007 | | Action Break_Optional 001e BODY_0008: 001e e5ff | | Load 0x2,-0x1 001f c402 | | Store 0x2,0x2 0020 4800 |H | Short_Literal 0x0 0021 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0022 e402 | | Load 0x2,0x2 0023 014b | K | Execute Float,Less_Zero 0024 6805 |h | Jump_Zero 0x2a 0025 e402 | | Load 0x2,0x2 0026 023f | ? | Execute Float,Unary_Minus 0027 c402 | | Store 0x2,0x2 0028 4801 |H | Short_Literal 0x1 0029 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 002a e402 | | Load 0x2,0x2 002b 58fc |X | Indirect_Literal Float,0x128,0.6366197723675813 002c 023b | ; | Execute Float,Times 002d e20e | | Load 0x1,0xe 002e 0232 | 2 | Execute Float,Check_In_Type 002f e007 | | Load 0x0,0x7 0030 e230 | 0 | Load 0x1,0x30 0031 0096 | | Execute Package,Entry 0032 c408 | | Store 0x2,0x8 0033 e408 | | Load 0x2,0x8 0034 58ef |X | Indirect_Literal Float,0x124,0.0625 0035 023b | ; | Execute Float,Times 0036 c409 | | Store 0x2,0x9 0037 e409 | | Load 0x2,0x9 0038 e20e | | Load 0x1,0xe 0039 0232 | 2 | Execute Float,Check_In_Type 003a e008 | | Load 0x0,0x8 003b e230 | 0 | Load 0x1,0x30 003c 0096 | | Execute Package,Entry 003d c409 | | Store 0x2,0x9 003e e408 | | Load 0x2,0x8 003f 58e0 |X | Indirect_Literal Float,0x120,16.0 0040 e409 | | Load 0x2,0x9 0041 023b | ; | Execute Float,Times 0042 023c | < | Execute Float,Minus 0043 c409 | | Store 0x2,0x9 0044 e409 | | Load 0x2,0x9 0045 0235 | 5 | Execute Float,Round_To_Discrete 0046 00e2 | | Load_Encached Integer_Cache 0047 025e | ^ | Execute Discrete,Convert 0048 4803 |H | Short_Literal 0x3 0049 0279 | y | Execute Discrete,And 004a 00d8 | | Load_Top At_Offset_0 004b e22f | / | Load 0x1,0x2f 004c 0260 | ` | Execute Discrete,In_Type 004d 7001 |p | Jump_Nonzero 0x4f 004e 0801 | | Execute_Immediate Raise,0x1 004f a5fc | | Store_Unchecked 0x2,-0x4 0050 e408 | | Load 0x2,0x8 0051 7007 |p | Jump_Nonzero 0x59 0052 e5ff | | Load 0x2,-0x1 0053 c5fe | | Store 0x2,-0x2 0054 58c7 |X | Indirect_Literal Float,0x11c,0.0 0055 c5fd | | Store 0x2,-0x3 0056 4800 |H | Short_Literal 0x0 0057 a5fc | | Store_Unchecked 0x2,-0x4 0058 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0059 4801 |H | Short_Literal 0x1 005a a40d | | Store_Unchecked 0x2,0xd 005b e408 | | Load 0x2,0x8 005c e40d | | Load 0x2,0xd 005d e238 | 8 | Load 0x1,0x38 005e 01d7 | | Execute Vector,Field_Read 005f 023b | ; | Execute Float,Times 0060 c40a | | Store 0x2,0xa 0061 e40a | | Load 0x2,0xa 0062 00d8 | | Load_Top At_Offset_0 0063 023d | = | Execute Float,Plus 0064 c40b | | Store 0x2,0xb 0065 e40a | | Load 0x2,0xa 0066 58b1 |X | Indirect_Literal Float,0x118,0.5 0067 023b | ; | Execute Float,Times 0068 c40c | | Store 0x2,0xc 0069 00cf | | Action Mark_Auxiliary 006a 7821 |x! | Jump 0x8c 006b e40a | | Load 0x2,0xa 006c e402 | | Load 0x2,0x2 006d 0245 | E | Execute Float,Greater 006e 6807 |h | Jump_Zero 0x76 006f e402 | | Load 0x2,0x2 0070 e40c | | Load 0x2,0xc 0071 023c | < | Execute Float,Minus 0072 e40c | | Load 0x2,0xc 0073 023c | < | Execute Float,Minus 0074 c402 | | Store 0x2,0x2 0075 7804 |x | Jump 0x7a 0076 e402 | | Load 0x2,0x2 0077 e40a | | Load 0x2,0xa 0078 023c | < | Execute Float,Minus 0079 c402 | | Store 0x2,0x2 007a e40d | | Load 0x2,0xd 007b 0a01 | | Execute_Immediate Plus,0x1 007c c40d | | Store 0x2,0xd 007d e408 | | Load 0x2,0x8 007e e40d | | Load 0x2,0xd 007f e238 | 8 | Load 0x1,0x38 0080 01d7 | | Execute Vector,Field_Read 0081 023b | ; | Execute Float,Times 0082 c40a | | Store 0x2,0xa 0083 e40a | | Load 0x2,0xa 0084 00d8 | | Load_Top At_Offset_0 0085 023d | = | Execute Float,Plus 0086 c40b | | Store 0x2,0xb 0087 e40a | | Load 0x2,0xa 0088 588f |X | Indirect_Literal Float,0x118,0.5 0089 023b | ; | Execute Float,Times 008a c40c | | Store 0x2,0xc 008b 00c9 | | Action Pop_Auxiliary_Loop 008c e402 | | Load 0x2,0x2 008d e40c | | Load 0x2,0xc 008e 0243 | C | Execute Float,Greater_Equal 008f e402 | | Load 0x2,0x2 0090 e40b | | Load 0x2,0xb 0091 0242 | B | Execute Float,Less_Equal 0092 0279 | y | Execute Discrete,And 0093 e40d | | Load 0x2,0xd 0094 e234 | 4 | Load 0x1,0x34 0095 0afe | | Execute_Immediate Plus,-0x2 0096 027a | z | Execute Discrete,Less_Equal 0097 0279 | y | Execute Discrete,And 0098 77d2 |w | Jump_Nonzero 0x6b 0099 00ce | | Action Pop_Auxiliary 009a e408 | | Load 0x2,0x8 009b e40d | | Load 0x2,0xd 009c e238 | 8 | Load 0x1,0x38 009d 01d7 | | Execute Vector,Field_Read 009e 023b | ; | Execute Float,Times 009f 023f | ? | Execute Float,Unary_Minus 00a0 c40a | | Store 0x2,0xa 00a1 e402 | | Load 0x2,0x2 00a2 e40a | | Load 0x2,0xa 00a3 023d | = | Execute Float,Plus 00a4 c403 | | Store 0x2,0x3 00a5 e402 | | Load 0x2,0x2 00a6 014b | K | Execute Float,Less_Zero 00a7 6803 |h | Jump_Zero 0xab 00a8 4801 |H | Short_Literal 0x1 00a9 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00aa 7802 |x | Jump 0xad 00ab 4800 |H | Short_Literal 0x0 00ac 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00ad e402 | | Load 0x2,0x2 00ae 023e | > | Execute Float,Absolute_Value 00af e40a | | Load 0x2,0xa 00b0 023e | > | Execute Float,Absolute_Value 00b1 0244 | D | Execute Float,Less 00b2 6806 |h | Jump_Zero 0xb9 00b3 e402 | | Load 0x2,0x2 00b4 c406 | | Store 0x2,0x6 00b5 e40a | | Load 0x2,0xa 00b6 c402 | | Store 0x2,0x2 00b7 e406 | | Load 0x2,0x6 00b8 c40a | | Store 0x2,0xa 00b9 5862 |Xb | Indirect_Literal Float,0x11c,0.0 00ba c407 | | Store 0x2,0x7 00bb 00d9 | | Load_Top At_Offset_1 00bc 6808 |h | Jump_Zero 0xc5 00bd 5856 |XV | Indirect_Literal Float,0x114,0.45999999999999996 00be e403 | | Load 0x2,0x3 00bf 023b | ; | Execute Float,Times 00c0 e403 | | Load 0x2,0x3 00c1 023c | < | Execute Float,Minus 00c2 e403 | | Load 0x2,0x3 00c3 023d | = | Execute Float,Plus 00c4 c407 | | Store 0x2,0x7 00c5 e402 | | Load 0x2,0x2 00c6 e407 | | Load 0x2,0x7 00c7 023c | < | Execute Float,Minus 00c8 e403 | | Load 0x2,0x3 00c9 e407 | | Load 0x2,0x7 00ca 023c | < | Execute Float,Minus 00cb 023c | < | Execute Float,Minus 00cc e40a | | Load 0x2,0xa 00cd 023d | = | Execute Float,Plus 00ce c404 | | Store 0x2,0x4 00cf e40d | | Load 0x2,0xd 00d0 0a01 | | Execute_Immediate Plus,0x1 00d1 c40d | | Store 0x2,0xd 00d2 e20e | | Load 0x1,0xe 00d3 0122 | " | Execute Any,Make_Root_Type 00d4 1c01 | | Execute_Immediate Run_Utility,0x1 00d5 0903 | | Execute_Immediate Binary_Scale,0x3 00d6 e233 | 3 | Load 0x1,0x33 00d7 0272 | r | Execute Discrete,Minus 00d8 c40e | | Store 0x2,0xe 00d9 e40e | | Load 0x2,0xe 00da e233 | 3 | Load 0x1,0x33 00db 0270 | p | Execute Discrete,Divide 00dc 0a01 | | Execute_Immediate Plus,0x1 00dd c40f | | Store 0x2,0xf 00de 583d |X= | Indirect_Literal Float,0x11c,0.0 00df c405 | | Store 0x2,0x5 00e0 e40d | | Load 0x2,0xd 00e1 e40f | | Load 0x2,0xf 00e2 0273 | s | Execute Discrete,Plus 00e3 e234 | 4 | Load 0x1,0x34 00e4 027d | } | Execute Discrete,Greater 00e5 6804 |h | Jump_Zero 0xea 00e6 e234 | 4 | Load 0x1,0x34 00e7 e40d | | Load 0x2,0xd 00e8 0272 | r | Execute Discrete,Minus 00e9 c40f | | Store 0x2,0xf 00ea 00cf | | Action Mark_Auxiliary 00eb e40d | | Load 0x2,0xd 00ec 00d8 | | Load_Top At_Offset_0 00ed e40f | | Load 0x2,0xf 00ee 0273 | s | Execute Discrete,Plus 00ef 00d8 | | Load_Top At_Offset_0 00f0 00e2 | | Load_Encached Integer_Cache 00f1 0260 | ` | Execute Discrete,In_Type 00f2 7001 |p | Jump_Nonzero 0xf4 00f3 0801 | | Execute_Immediate Raise,0x1 00f4 0264 | d | Execute Discrete,Below_Bound 00f5 7008 |p | Jump_Nonzero 0xfe 00f6 e405 | | Load 0x2,0x5 00f7 00d9 | | Load_Top At_Offset_1 00f8 e238 | 8 | Load 0x1,0x38 00f9 01d7 | | Execute Vector,Field_Read 00fa 023d | = | Execute Float,Plus 00fb c405 | | Store 0x2,0x5 00fc 00c8 | | Action Pop_Auxiliary_Range 00fd 37f8 |7 | Loop_Decreasing 0xf6 00fe 00ce | | Action Pop_Auxiliary 00ff e404 | | Load 0x2,0x4 0100 e408 | | Load 0x2,0x8 0101 e405 | | Load 0x2,0x5 0102 023b | ; | Execute Float,Times 0103 023c | < | Execute Float,Minus 0104 c404 | | Store 0x2,0x4 0105 e403 | | Load 0x2,0x3 0106 0049 | I | Store_Top Float,At_Offset_1 0107 e403 | | Load 0x2,0x3 0108 e407 | | Load 0x2,0x7 0109 023c | < | Execute Float,Minus 010a 00d9 | | Load_Top At_Offset_1 010b e407 | | Load 0x2,0x7 010c 023c | < | Execute Float,Minus 010d 023c | < | Execute Float,Minus 010e e404 | | Load 0x2,0x4 010f 023d | = | Execute Float,Plus 0110 c5fd | | Store 0x2,-0x3 0111 00d8 | | Load_Top At_Offset_0 0112 c5fe | | Store 0x2,-0x2 0113 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0114 3fdd 70a3 |? p | .DBL 0.45999999999999996 0116 d70a 3d70 | =p| 0118 3fe0 0000 |? | .DBL 0.5 011a 0000 0000 | | 011c 0000 0000 | | .DBL 0.0 011e 0000 0000 | | 0120 4030 0000 |@0 | .DBL 16.0 0122 0000 0000 | | 0124 3fb0 0000 |? | .DBL 0.0625 0126 0000 0000 | | 0128 3fe4 5f30 |? _0| .DBL 0.6366197723675813 012a 6dc9 c882 |m | 012c 0000 0000 | | .BLANK 0000[0x4] 0130 ; -------------------------------------------------------------------------------------- 0130 ; Debug Table 0130 ; -------------------------------------------------------------------------------------- 0130 0004 0001 | | .DEBUG4 0x0004,0x0001,0xf28d,0x0000,0x0001,0x0001 0136 000b 013a | :| .DBG4T 0x000b,0x013a,0x1001,0x4000 013a ; -------------------------------------------------------------------------------------- 013a ; Debug chain 013a ; -------------------------------------------------------------------------------------- 013a 0005 0035 | 5| .DBGLEN 0x0005,0x0035 013c 000b 0016 | | .DBGLNO 0x000b,0x0016,0x0019,0x001b,0x001c,0x001e,0x0020,0x0022,0x0025,0x0028,0x002a,0x0033,0x0037,0x003e,0x0044,0x0050,0x0052,0x0054,0x0056,0x0058,0x0059,0x005b,0x0061,0x0065,0x006b,0x006f,0x0076,0x007a,0x007d,0x0083,0x0087,0x008c,0x009a,0x00a1,0x00a5,0x00a8,0x00ab,0x00ad,0x00b3,0x00b5,0x00b7,0x00b9,0x00bb,0x00bd,0x00c5,0x00cf,0x00d2,0x00d9,0x00de,0x00e0,0x00e6,0x00eb,0x00f6,0x00ff,0x0105,0x0107,0x0111,0x0113 0176 0001 0002 | | .XXX[0x35] 0178 0003 0004 | | 017a 0005 0006 | | 017c 0007 0008 | | 017e 0009 000a | | 0180 000b 000c | | 0182 000d 000e | | 0184 000f 0010 | | 0186 0011 0012 | | 0188 0013 0015 | | 018a 0016 0017 | | 018c 0018 0019 | | 018e 001a 001b | | 0190 0014 001c | | 0192 001d 001e | | 0194 001f 0020 | | 0196 0021 0022 | ! "| 0198 0023 0024 | # $| 019a 0025 0026 | % &| 019c 0027 0028 | ' (| 019e 0029 002a | ) *| 01a0 002b 002c | + ,| 01a2 002d 002e | - .| 01a4 002f 0030 | / 0| 01a6 0031 0032 | 1 2| 01a8 0033 0034 | 3 4| 01aa 0035 | 5 | 01ab 0000 0000 | | .BLANK 0000[0x55]