|
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 0110 | | .CONST 0x0110 ; 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 0020 | | .CONST 0x0020 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000e | | .CONST 0x000e ; 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 00e1 | | Load_Encached Boolean_Cache 0014 58f3 |X | Indirect_Literal Float,0x108,3.141357421875 0015 e20e | | Load 0x1,0xe 0016 02bf | | Declare_Variable Float,With_Value,With_Constraint 0017 58ec |X | Indirect_Literal Float,0x104,1.570556640625 0018 e20e | | Load 0x1,0xe 0019 02bf | | Declare_Variable Float,With_Value,With_Constraint 001a 58e5 |X | Indirect_Literal Float,0x100,0.00023523171479323846 001b e20e | | Load 0x1,0xe 001c 02bf | | Declare_Variable Float,With_Value,With_Constraint 001d 58de |X | Indirect_Literal Float,0xfc,0.00023968616989661923 001e e20e | | Load 0x1,0xe 001f 02bf | | Declare_Variable Float,With_Value,With_Constraint 0020 BODY_0008: 0020 e5fe | | Load 0x2,-0x2 0021 00d8 | | Load_Top At_Offset_0 0022 e20e | | Load 0x1,0xe 0023 0234 | 4 | Execute Float,In_Type 0024 7001 |p | Jump_Nonzero 0x26 0025 0801 | | Execute_Immediate Raise,0x1 0026 c402 | | Store 0x2,0x2 0027 e402 | | Load 0x2,0x2 0028 e20e | | Load 0x1,0xe 0029 0232 | 2 | Execute Float,Check_In_Type 002a 58cd |X | Indirect_Literal Float,0xf8,1.0 002b e20e | | Load 0x1,0xe 002c 0232 | 2 | Execute Float,Check_In_Type 002d e00b | | Load 0x0,0xb 002e e230 | 0 | Load 0x1,0x30 002f 0096 | | Execute Package,Entry 0030 c404 | | Store 0x2,0x4 0031 e402 | | Load 0x2,0x2 0032 023e | > | Execute Float,Absolute_Value 0033 c402 | | Store 0x2,0x2 0034 e5ff | | Load 0x2,-0x1 0035 00d8 | | Load_Top At_Offset_0 0036 e20e | | Load 0x1,0xe 0037 0234 | 4 | Execute Float,In_Type 0038 7001 |p | Jump_Nonzero 0x3a 0039 0801 | | Execute_Immediate Raise,0x1 003a c403 | | Store 0x2,0x3 003b e403 | | Load 0x2,0x3 003c e20e | | Load 0x1,0xe 003d 0232 | 2 | Execute Float,Check_In_Type 003e 58b9 |X | Indirect_Literal Float,0xf8,1.0 003f e20e | | Load 0x1,0xe 0040 0232 | 2 | Execute Float,Check_In_Type 0041 e00b | | Load 0x0,0xb 0042 e230 | 0 | Load 0x1,0x30 0043 0096 | | Execute Package,Entry 0044 c405 | | Store 0x2,0x5 0045 e403 | | Load 0x2,0x3 0046 023e | > | Execute Float,Absolute_Value 0047 c403 | | Store 0x2,0x3 0048 e403 | | Load 0x2,0x3 0049 7020 |p | Jump_Nonzero 0x6a 004a e402 | | Load 0x2,0x2 004b 7002 |p | Jump_Nonzero 0x4e 004c e006 | | Load 0x0,0x6 004d 0257 | W | Execute Discrete,Raise 004e e404 | | Load 0x2,0x4 004f 58a8 |X | Indirect_Literal Float,0xf8,1.0 0050 0247 | G | Execute Float,Equal 0051 680f |h | Jump_Zero 0x61 0052 e405 | | Load 0x2,0x5 0053 e20e | | Load 0x1,0xe 0054 0232 | 2 | Execute Float,Check_In_Type 0055 589e |X | Indirect_Literal Float,0xf4,0.0 0056 e20e | | Load 0x1,0xe 0057 0232 | 2 | Execute Float,Check_In_Type 0058 e00b | | Load 0x0,0xb 0059 e230 | 0 | Load 0x1,0x30 005a 0096 | | Execute Package,Entry 005b 00d8 | | Load_Top At_Offset_0 005c e20e | | Load 0x1,0xe 005d 0234 | 4 | Execute Float,In_Type 005e 7001 |p | Jump_Nonzero 0x60 005f 0801 | | Execute_Immediate Raise,0x1 0060 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0061 e405 | | Load 0x2,0x5 0062 588d |X | Indirect_Literal Float,0xf0,3.141592653589793 0063 023b | ; | Execute Float,Times 0064 00d8 | | Load_Top At_Offset_0 0065 e20e | | Load 0x1,0xe 0066 0234 | 4 | Execute Float,In_Type 0067 7001 |p | Jump_Nonzero 0x69 0068 0801 | | Execute_Immediate Raise,0x1 0069 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 006a e402 | | Load 0x2,0x2 006b 7009 |p | Jump_Nonzero 0x75 006c e405 | | Load 0x2,0x5 006d 587e |X~ | Indirect_Literal Float,0xec,1.5707963267948966 006e 023b | ; | Execute Float,Times 006f 00d8 | | Load_Top At_Offset_0 0070 e20e | | Load 0x1,0xe 0071 0234 | 4 | Execute Float,In_Type 0072 7001 |p | Jump_Nonzero 0x74 0073 0801 | | Execute_Immediate Raise,0x1 0074 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0075 e402 | | Load 0x2,0x2 0076 e403 | | Load 0x2,0x3 0077 0247 | G | Execute Float,Equal 0078 6816 |h | Jump_Zero 0x8f 0079 e404 | | Load 0x2,0x4 007a 587d |X} | Indirect_Literal Float,0xf8,1.0 007b 0247 | G | Execute Float,Equal 007c 6809 |h | Jump_Zero 0x86 007d e405 | | Load 0x2,0x5 007e 5869 |Xi | Indirect_Literal Float,0xe8,0.7853981633974483 007f 023b | ; | Execute Float,Times 0080 00d8 | | Load_Top At_Offset_0 0081 e20e | | Load 0x1,0xe 0082 0234 | 4 | Execute Float,In_Type 0083 7001 |p | Jump_Nonzero 0x85 0084 0801 | | Execute_Immediate Raise,0x1 0085 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0086 e405 | | Load 0x2,0x5 0087 585c |X\ | Indirect_Literal Float,0xe4,2.356194490192345 0088 023b | ; | Execute Float,Times 0089 00d8 | | Load_Top At_Offset_0 008a e20e | | Load 0x1,0xe 008b 0234 | 4 | Execute Float,In_Type 008c 7001 |p | Jump_Nonzero 0x8e 008d 0801 | | Execute_Immediate Raise,0x1 008e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 008f e402 | | Load 0x2,0x2 0090 e403 | | Load 0x2,0x3 0091 0244 | D | Execute Float,Less 0092 6809 |h | Jump_Zero 0x9c 0093 4801 |H | Short_Literal 0x1 0094 a40a | | Store_Unchecked 0x2,0xa 0095 e402 | | Load 0x2,0x2 0096 c406 | | Store 0x2,0x6 0097 e403 | | Load 0x2,0x3 0098 c402 | | Store 0x2,0x2 0099 e406 | | Load 0x2,0x6 009a c403 | | Store 0x2,0x3 009b 7802 |x | Jump 0x9e 009c 4800 |H | Short_Literal 0x0 009d a40a | | Store_Unchecked 0x2,0xa 009e e20e | | Load 0x1,0xe 009f 00d8 | | Load_Top At_Offset_0 00a0 e402 | | Load 0x2,0x2 00a1 e20e | | Load 0x1,0xe 00a2 0232 | 2 | Execute Float,Check_In_Type 00a3 e403 | | Load 0x2,0x3 00a4 e20e | | Load 0x1,0xe 00a5 0232 | 2 | Execute Float,Check_In_Type 00a6 8255 | U | Call 0x1,0x55 00a7 c407 | | Store 0x2,0x7 00a8 c408 | | Store 0x2,0x8 00a9 e40a | | Load 0x2,0xa 00aa 7012 |p | Jump_Nonzero 0xbd 00ab e404 | | Load 0x2,0x4 00ac 584b |XK | Indirect_Literal Float,0xf8,1.0 00ad 0247 | G | Execute Float,Equal 00ae 6805 |h | Jump_Zero 0xb4 00af e407 | | Load 0x2,0x7 00b0 e408 | | Load 0x2,0x8 00b1 023d | = | Execute Float,Plus 00b2 c409 | | Store 0x2,0x9 00b3 781e |x | Jump 0xd2 00b4 5853 |XS | Indirect_Literal Float,0x108,3.141357421875 00b5 e407 | | Load 0x2,0x7 00b6 023c | < | Execute Float,Minus 00b7 5848 |XH | Indirect_Literal Float,0x100,0.00023523171479323846 00b8 e408 | | Load 0x2,0x8 00b9 023c | < | Execute Float,Minus 00ba 023d | = | Execute Float,Plus 00bb c409 | | Store 0x2,0x9 00bc 7815 |x | Jump 0xd2 00bd e404 | | Load 0x2,0x4 00be 5839 |X9 | Indirect_Literal Float,0xf8,1.0 00bf 0247 | G | Execute Float,Equal 00c0 6809 |h | Jump_Zero 0xca 00c1 5842 |XB | Indirect_Literal Float,0x104,1.570556640625 00c2 e407 | | Load 0x2,0x7 00c3 023c | < | Execute Float,Minus 00c4 5837 |X7 | Indirect_Literal Float,0xfc,0.00023968616989661923 00c5 e408 | | Load 0x2,0x8 00c6 023c | < | Execute Float,Minus 00c7 023d | = | Execute Float,Plus 00c8 c409 | | Store 0x2,0x9 00c9 7808 |x | Jump 0xd2 00ca 5839 |X9 | Indirect_Literal Float,0x104,1.570556640625 00cb e407 | | Load 0x2,0x7 00cc 023d | = | Execute Float,Plus 00cd 582e |X. | Indirect_Literal Float,0xfc,0.00023968616989661923 00ce e408 | | Load 0x2,0x8 00cf 023d | = | Execute Float,Plus 00d0 023d | = | Execute Float,Plus 00d1 c409 | | Store 0x2,0x9 00d2 e405 | | Load 0x2,0x5 00d3 e20e | | Load 0x1,0xe 00d4 0232 | 2 | Execute Float,Check_In_Type 00d5 e409 | | Load 0x2,0x9 00d6 e20e | | Load 0x1,0xe 00d7 0232 | 2 | Execute Float,Check_In_Type 00d8 e00b | | Load 0x0,0xb 00d9 e230 | 0 | Load 0x1,0x30 00da 0096 | | Execute Package,Entry 00db 00d8 | | Load_Top At_Offset_0 00dc e20e | | Load 0x1,0xe 00dd 0234 | 4 | Execute Float,In_Type 00de 7001 |p | Jump_Nonzero 0xe0 00df 0801 | | Execute_Immediate Raise,0x1 00e0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00e1 0000 0000 | | .XXX[0x3] 00e3 0000 | | 00e4 4002 d97c |@ || .DBL 2.356194490192345 00e6 7f33 21d2 | 3! | 00e8 3fe9 21fb |? ! | .DBL 0.7853981633974483 00ea 5444 2d18 |TD- | 00ec 3ff9 21fb |? ! | .DBL 1.5707963267948966 00ee 5444 2d18 |TD- | 00f0 4009 21fb |@ ! | .DBL 3.141592653589793 00f2 5444 2d18 |TD- | 00f4 0000 0000 | | .DBL 0.0 00f6 0000 0000 | | 00f8 3ff0 0000 |? | .DBL 1.0 00fa 0000 0000 | | 00fc 3f2f 6a88 |?/j | .DBL 0.00023968616989661923 00fe 85a3 08d3 | | 0100 3f2e d511 |?. | .DBL 0.00023523171479323846 0102 0b46 11a6 | F | 0104 3ff9 2100 |? ! | .DBL 1.570556640625 0106 0000 0000 | | 0108 4009 2180 |@ ! | .DBL 3.141357421875 010a 0000 0000 | | 010c 0000 0000 | | .BLANK 0000[0x4] 0110 ; -------------------------------------------------------------------------------------- 0110 ; Debug Table 0110 ; -------------------------------------------------------------------------------------- 0110 0004 0001 | | .DEBUG4 0x0004,0x0001,0xf26f,0x0000,0x0001,0x0001 0116 000b 011a | | .DBG4T 0x000b,0x011a,0x1002,0x8000 011a ; -------------------------------------------------------------------------------------- 011a ; Debug chain 011a ; -------------------------------------------------------------------------------------- 011a 0006 0021 | !| .DBGLEN 0x0006,0x0021 011c 000b 0013 | | .DBGLNO 0x000b,0x0013,0x0014,0x0017,0x001a,0x001d,0x0020,0x0027,0x0031,0x0034,0x003b,0x0045,0x0048,0x004a,0x004c,0x004e,0x0052,0x0061,0x006a,0x006c,0x0075,0x0079,0x007d,0x0086,0x008f,0x0093,0x0095,0x0097,0x0099,0x009c,0x009e,0x00a9,0x00ab,0x00af,0x00b4,0x00bd,0x00c1,0x00ca,0x00d2 0143 0001 0002 | | .XXX[0x6] 0145 0009 000a | | 0147 000b 000c | | 0149 0000 0000 | | .BLANK 0000[0xb7]