|
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 00b8 | | .CONST 0x00b8 ; 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 0013 | | .CONST 0x0013 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0009 | | .CONST 0x0009 ; 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 BODY_0008: 0013 e5fe | | Load 0x2,-0x2 0014 00d8 | | Load_Top At_Offset_0 0015 e20e | | Load 0x1,0xe 0016 0234 | 4 | Execute Float,In_Type 0017 7001 |p | Jump_Nonzero 0x19 0018 0801 | | Execute_Immediate Raise,0x1 0019 004a | J | Store_Top Float,At_Offset_2 001a 00d9 | | Load_Top At_Offset_1 001b 0149 | I | Execute Float,Less_Equal_Zero 001c 6802 |h | Jump_Zero 0x1f 001d e006 | | Load 0x0,0x6 001e 0257 | W | Execute Discrete,Raise 001f e5ff | | Load 0x2,-0x1 0020 00d8 | | Load_Top At_Offset_0 0021 e20e | | Load 0x1,0xe 0022 0234 | 4 | Execute Float,In_Type 0023 7001 |p | Jump_Nonzero 0x25 0024 0801 | | Execute_Immediate Raise,0x1 0025 c402 | | Store 0x2,0x2 0026 e402 | | Load 0x2,0x2 0027 e20e | | Load 0x1,0xe 0028 0232 | 2 | Execute Float,Check_In_Type 0029 588a |X | Indirect_Literal Float,0xb4,1.0 002a e20e | | Load 0x1,0xe 002b 0232 | 2 | Execute Float,Check_In_Type 002c e00b | | Load 0x0,0xb 002d e230 | 0 | Load 0x1,0x30 002e 0096 | | Execute Package,Entry 002f c403 | | Store 0x2,0x3 0030 e402 | | Load 0x2,0x2 0031 023e | > | Execute Float,Absolute_Value 0032 c402 | | Store 0x2,0x2 0033 e402 | | Load 0x2,0x2 0034 587f |X | Indirect_Literal Float,0xb4,1.0 0035 0245 | E | Execute Float,Greater 0036 6802 |h | Jump_Zero 0x39 0037 e006 | | Load 0x0,0x6 0038 0257 | W | Execute Discrete,Raise 0039 e402 | | Load 0x2,0x2 003a 5879 |Xy | Indirect_Literal Float,0xb4,1.0 003b 0247 | G | Execute Float,Equal 003c 6812 |h | Jump_Zero 0x4f 003d e403 | | Load 0x2,0x3 003e 5875 |Xu | Indirect_Literal Float,0xb4,1.0 003f 0247 | G | Execute Float,Equal 0040 6803 |h | Jump_Zero 0x44 0041 586e |Xn | Indirect_Literal Float,0xb0,0.0 0042 0049 | I | Store_Top Float,At_Offset_1 0043 7804 |x | Jump 0x48 0044 00d9 | | Load_Top At_Offset_1 0045 5866 |Xf | Indirect_Literal Float,0xac,2.0 0046 023a | : | Execute Float,Divide 0047 0049 | I | Store_Top Float,At_Offset_1 0048 00d8 | | Load_Top At_Offset_0 0049 00d8 | | Load_Top At_Offset_0 004a e20e | | Load 0x1,0xe 004b 0234 | 4 | Execute Float,In_Type 004c 7001 |p | Jump_Nonzero 0x4e 004d 0801 | | Execute_Immediate Raise,0x1 004e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 004f e402 | | Load 0x2,0x2 0050 700b |p | Jump_Nonzero 0x5c 0051 00d9 | | Load_Top At_Offset_1 0052 5855 |XU | Indirect_Literal Float,0xa8,4.0 0053 023a | : | Execute Float,Divide 0054 0049 | I | Store_Top Float,At_Offset_1 0055 00d8 | | Load_Top At_Offset_0 0056 00d8 | | Load_Top At_Offset_0 0057 e20e | | Load 0x1,0xe 0058 0234 | 4 | Execute Float,In_Type 0059 7001 |p | Jump_Nonzero 0x5b 005a 0801 | | Execute_Immediate Raise,0x1 005b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 005c 5857 |XW | Indirect_Literal Float,0xb4,1.0 005d e402 | | Load 0x2,0x2 005e 023c | < | Execute Float,Minus 005f 5854 |XT | Indirect_Literal Float,0xb4,1.0 0060 e402 | | Load 0x2,0x2 0061 023d | = | Execute Float,Plus 0062 023a | : | Execute Float,Divide 0063 004b | K | Store_Top Float,At_Offset_3 0064 00da | | Load_Top At_Offset_2 0065 e20e | | Load 0x1,0xe 0066 0232 | 2 | Execute Float,Check_In_Type 0067 8248 | H | Call 0x1,0x48 0068 004b | K | Store_Top Float,At_Offset_3 0069 584a |XJ | Indirect_Literal Float,0xb4,1.0 006a c406 | | Store 0x2,0x6 006b e20e | | Load 0x1,0xe 006c 00d8 | | Load_Top At_Offset_0 006d e406 | | Load 0x2,0x6 006e e20e | | Load 0x1,0xe 006f 0232 | 2 | Execute Float,Check_In_Type 0070 e407 | | Load 0x2,0x7 0071 e20e | | Load 0x1,0xe 0072 0232 | 2 | Execute Float,Check_In_Type 0073 8255 | U | Call 0x1,0x55 0074 c404 | | Store 0x2,0x4 0075 c405 | | Store 0x2,0x5 0076 e404 | | Load 0x2,0x4 0077 00d8 | | Load_Top At_Offset_0 0078 023d | = | Execute Float,Plus 0079 c404 | | Store 0x2,0x4 007a e405 | | Load 0x2,0x5 007b 00d8 | | Load_Top At_Offset_0 007c 023d | = | Execute Float,Plus 007d c405 | | Store 0x2,0x5 007e e403 | | Load 0x2,0x3 007f 5834 |X4 | Indirect_Literal Float,0xb4,1.0 0080 0247 | G | Execute Float,Equal 0081 6809 |h | Jump_Zero 0x8b 0082 e404 | | Load 0x2,0x4 0083 e405 | | Load 0x2,0x5 0084 023d | = | Execute Float,Plus 0085 581e |X | Indirect_Literal Float,0xa4,0.15915494309189532 0086 023b | ; | Execute Float,Times 0087 00da | | Load_Top At_Offset_2 0088 023b | ; | Execute Float,Times 0089 0049 | I | Store_Top Float,At_Offset_1 008a 780c |x | Jump 0x97 008b 00d9 | | Load_Top At_Offset_1 008c 5813 |X | Indirect_Literal Float,0xa0,0.5 008d 023b | ; | Execute Float,Times 008e e404 | | Load 0x2,0x4 008f e405 | | Load 0x2,0x5 0090 023d | = | Execute Float,Plus 0091 5812 |X | Indirect_Literal Float,0xa4,0.15915494309189532 0092 023b | ; | Execute Float,Times 0093 00db | | Load_Top At_Offset_3 0094 023b | ; | Execute Float,Times 0095 023c | < | Execute Float,Minus 0096 0049 | I | Store_Top Float,At_Offset_1 0097 00d8 | | Load_Top At_Offset_0 0098 00d8 | | Load_Top At_Offset_0 0099 e20e | | Load 0x1,0xe 009a 0234 | 4 | Execute Float,In_Type 009b 7001 |p | Jump_Nonzero 0x9d 009c 0801 | | Execute_Immediate Raise,0x1 009d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 009e 0000 0000 | | .XXX[0x2] 00a0 3fe0 0000 |? | .DBL 0.5 00a2 0000 0000 | | 00a4 3fc4 5f30 |? _0| .DBL 0.15915494309189532 00a6 6dc9 c882 |m | 00a8 4010 0000 |@ | .DBL 4.0 00aa 0000 0000 | | 00ac 4000 0000 |@ | .DBL 2.0 00ae 0000 0000 | | 00b0 0000 0000 | | .DBL 0.0 00b2 0000 0000 | | 00b4 3ff0 0000 |? | .DBL 1.0 00b6 0000 0000 | | 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; Debug Table 00b8 ; -------------------------------------------------------------------------------------- 00b8 0004 0001 | | .DEBUG4 0x0004,0x0001,0xf276,0x0000,0x0001,0x0001 00be 000b 00c2 | | .DBG4T 0x000b,0x00c2,0x1002,0x0000 00c2 ; -------------------------------------------------------------------------------------- 00c2 ; Debug chain 00c2 ; -------------------------------------------------------------------------------------- 00c2 0001 001a | | .DBGLEN 0x0001,0x001a 00c4 000b 0013 | | .DBGLNO 0x000b,0x0013,0x001a,0x001d,0x001f,0x0026,0x0030,0x0033,0x0037,0x0039,0x003d,0x0041,0x0044,0x0048,0x004f,0x0051,0x0055,0x005c,0x0064,0x0069,0x006b,0x0076,0x007a,0x007e,0x0082,0x008b,0x0097 00df 0000 0000 | | .BLANK 0000[0x121]