|
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 0017 | | .CONST 0x0017 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000d | | .CONST 0x000d ; 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 e20e | | Load 0x1,0xe 0013 03d8 | | Declare_Variable Float,Duplicate 0014 03d8 | | Declare_Variable Float,Duplicate 0015 03d8 | | Declare_Variable Float,Duplicate 0016 00e1 | | Load_Encached Boolean_Cache 0017 BODY_0008: 0017 e5fd | | Load 0x2,-0x3 0018 00d8 | | Load_Top At_Offset_0 0019 e20e | | Load 0x1,0xe 001a 0234 | 4 | Execute Float,In_Type 001b 7001 |p | Jump_Nonzero 0x1d 001c 0801 | | Execute_Immediate Raise,0x1 001d c409 | | Store 0x2,0x9 001e e409 | | Load 0x2,0x9 001f 0149 | I | Execute Float,Less_Equal_Zero 0020 6802 |h | Jump_Zero 0x23 0021 e006 | | Load 0x0,0x6 0022 0257 | W | Execute Discrete,Raise 0023 e5fe | | Load 0x2,-0x2 0024 00d8 | | Load_Top At_Offset_0 0025 e20e | | Load 0x1,0xe 0026 0234 | 4 | Execute Float,In_Type 0027 7001 |p | Jump_Nonzero 0x29 0028 0801 | | Execute_Immediate Raise,0x1 0029 c402 | | Store 0x2,0x2 002a e402 | | Load 0x2,0x2 002b e20e | | Load 0x1,0xe 002c 0232 | 2 | Execute Float,Check_In_Type 002d 58fa |X | Indirect_Literal Float,0x128,1.0 002e e20e | | Load 0x1,0xe 002f 0232 | 2 | Execute Float,Check_In_Type 0030 e00b | | Load 0x0,0xb 0031 e230 | 0 | Load 0x1,0x30 0032 0096 | | Execute Package,Entry 0033 c404 | | Store 0x2,0x4 0034 e402 | | Load 0x2,0x2 0035 023e | > | Execute Float,Absolute_Value 0036 c402 | | Store 0x2,0x2 0037 e5ff | | Load 0x2,-0x1 0038 00d8 | | Load_Top At_Offset_0 0039 e20e | | Load 0x1,0xe 003a 0234 | 4 | Execute Float,In_Type 003b 7001 |p | Jump_Nonzero 0x3d 003c 0801 | | Execute_Immediate Raise,0x1 003d c403 | | Store 0x2,0x3 003e e403 | | Load 0x2,0x3 003f e20e | | Load 0x1,0xe 0040 0232 | 2 | Execute Float,Check_In_Type 0041 58e6 |X | Indirect_Literal Float,0x128,1.0 0042 e20e | | Load 0x1,0xe 0043 0232 | 2 | Execute Float,Check_In_Type 0044 e00b | | Load 0x0,0xb 0045 e230 | 0 | Load 0x1,0x30 0046 0096 | | Execute Package,Entry 0047 c405 | | Store 0x2,0x5 0048 e403 | | Load 0x2,0x3 0049 023e | > | Execute Float,Absolute_Value 004a c403 | | Store 0x2,0x3 004b e403 | | Load 0x2,0x3 004c 7022 |p" | Jump_Nonzero 0x6f 004d e402 | | Load 0x2,0x2 004e 7002 |p | Jump_Nonzero 0x51 004f e006 | | Load 0x0,0x6 0050 0257 | W | Execute Discrete,Raise 0051 e404 | | Load 0x2,0x4 0052 58d5 |X | Indirect_Literal Float,0x128,1.0 0053 0247 | G | Execute Float,Equal 0054 680f |h | Jump_Zero 0x64 0055 e405 | | Load 0x2,0x5 0056 e20e | | Load 0x1,0xe 0057 0232 | 2 | Execute Float,Check_In_Type 0058 58cb |X | Indirect_Literal Float,0x124,0.0 0059 e20e | | Load 0x1,0xe 005a 0232 | 2 | Execute Float,Check_In_Type 005b e00b | | Load 0x0,0xb 005c e230 | 0 | Load 0x1,0x30 005d 0096 | | Execute Package,Entry 005e 00d8 | | Load_Top At_Offset_0 005f e20e | | Load 0x1,0xe 0060 0234 | 4 | Execute Float,In_Type 0061 7001 |p | Jump_Nonzero 0x63 0062 0801 | | Execute_Immediate Raise,0x1 0063 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0064 e405 | | Load 0x2,0x5 0065 e409 | | Load 0x2,0x9 0066 023b | ; | Execute Float,Times 0067 58b8 |X | Indirect_Literal Float,0x120,0.5 0068 023b | ; | Execute Float,Times 0069 00d8 | | Load_Top At_Offset_0 006a e20e | | Load 0x1,0xe 006b 0234 | 4 | Execute Float,In_Type 006c 7001 |p | Jump_Nonzero 0x6e 006d 0801 | | Execute_Immediate Raise,0x1 006e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 006f e402 | | Load 0x2,0x2 0070 700b |p | Jump_Nonzero 0x7c 0071 e405 | | Load 0x2,0x5 0072 e409 | | Load 0x2,0x9 0073 023b | ; | Execute Float,Times 0074 58a7 |X | Indirect_Literal Float,0x11c,0.25 0075 023b | ; | Execute Float,Times 0076 00d8 | | Load_Top At_Offset_0 0077 e20e | | Load 0x1,0xe 0078 0234 | 4 | Execute Float,In_Type 0079 7001 |p | Jump_Nonzero 0x7b 007a 0801 | | Execute_Immediate Raise,0x1 007b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 007c e402 | | Load 0x2,0x2 007d e403 | | Load 0x2,0x3 007e 0247 | G | Execute Float,Equal 007f 681a |h | Jump_Zero 0x9a 0080 e404 | | Load 0x2,0x4 0081 58a6 |X | Indirect_Literal Float,0x128,1.0 0082 0247 | G | Execute Float,Equal 0083 680b |h | Jump_Zero 0x8f 0084 e405 | | Load 0x2,0x5 0085 e409 | | Load 0x2,0x9 0086 023b | ; | Execute Float,Times 0087 5890 |X | Indirect_Literal Float,0x118,0.125 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 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 008f e405 | | Load 0x2,0x5 0090 e409 | | Load 0x2,0x9 0091 023b | ; | Execute Float,Times 0092 5881 |X | Indirect_Literal Float,0x114,0.375 0093 023b | ; | Execute Float,Times 0094 00d8 | | Load_Top At_Offset_0 0095 e20e | | Load 0x1,0xe 0096 0234 | 4 | Execute Float,In_Type 0097 7001 |p | Jump_Nonzero 0x99 0098 0801 | | Execute_Immediate Raise,0x1 0099 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 009a e402 | | Load 0x2,0x2 009b e403 | | Load 0x2,0x3 009c 0244 | D | Execute Float,Less 009d 6809 |h | Jump_Zero 0xa7 009e 4801 |H | Short_Literal 0x1 009f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00a0 e402 | | Load 0x2,0x2 00a1 c406 | | Store 0x2,0x6 00a2 e403 | | Load 0x2,0x3 00a3 c402 | | Store 0x2,0x2 00a4 e406 | | Load 0x2,0x6 00a5 c403 | | Store 0x2,0x3 00a6 7802 |x | Jump 0xa9 00a7 4800 |H | Short_Literal 0x0 00a8 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00a9 e20e | | Load 0x1,0xe 00aa 00d8 | | Load_Top At_Offset_0 00ab e402 | | Load 0x2,0x2 00ac e20e | | Load 0x1,0xe 00ad 0232 | 2 | Execute Float,Check_In_Type 00ae e403 | | Load 0x2,0x3 00af e20e | | Load 0x1,0xe 00b0 0232 | 2 | Execute Float,Check_In_Type 00b1 8255 | U | Call 0x1,0x55 00b2 c407 | | Store 0x2,0x7 00b3 c408 | | Store 0x2,0x8 00b4 e407 | | Load 0x2,0x7 00b5 585a |XZ | Indirect_Literal Float,0x110,0.15915494309189532 00b6 023b | ; | Execute Float,Times 00b7 e409 | | Load 0x2,0x9 00b8 023b | ; | Execute Float,Times 00b9 c407 | | Store 0x2,0x7 00ba e408 | | Load 0x2,0x8 00bb 5854 |XT | Indirect_Literal Float,0x110,0.15915494309189532 00bc 023b | ; | Execute Float,Times 00bd e409 | | Load 0x2,0x9 00be 023b | ; | Execute Float,Times 00bf c408 | | Store 0x2,0x8 00c0 481a |H | Short_Literal 0x1a 00c1 e409 | | Load 0x2,0x9 00c2 e20e | | Load 0x1,0xe 00c3 0232 | 2 | Execute Float,Check_In_Type 00c4 e004 | | Load 0x0,0x4 00c5 e230 | 0 | Load 0x1,0x30 00c6 0096 | | Execute Package,Entry 00c7 c40a | | Store 0x2,0xa 00c8 e409 | | Load 0x2,0x9 00c9 e40a | | Load 0x2,0xa 00ca 023c | < | Execute Float,Minus 00cb 004b | K | Store_Top Float,At_Offset_3 00cc 00d8 | | Load_Top At_Offset_0 00cd 7016 |p | Jump_Nonzero 0xe4 00ce e404 | | Load 0x2,0x4 00cf 5858 |XX | Indirect_Literal Float,0x128,1.0 00d0 0247 | G | Execute Float,Equal 00d1 6805 |h | Jump_Zero 0xd7 00d2 e407 | | Load 0x2,0x7 00d3 e408 | | Load 0x2,0x8 00d4 023d | = | Execute Float,Plus 00d5 004a | J | Store_Top Float,At_Offset_2 00d6 782a |x* | Jump 0x101 00d7 00db | | Load_Top At_Offset_3 00d8 5847 |XG | Indirect_Literal Float,0x120,0.5 00d9 023b | ; | Execute Float,Times 00da e407 | | Load 0x2,0x7 00db 023c | < | Execute Float,Minus 00dc 00db | | Load_Top At_Offset_3 00dd 5842 |XB | Indirect_Literal Float,0x120,0.5 00de 023b | ; | Execute Float,Times 00df e408 | | Load 0x2,0x8 00e0 023c | < | Execute Float,Minus 00e1 023d | = | Execute Float,Plus 00e2 004a | J | Store_Top Float,At_Offset_2 00e3 781d |x | Jump 0x101 00e4 e404 | | Load 0x2,0x4 00e5 5842 |XB | Indirect_Literal Float,0x128,1.0 00e6 0247 | G | Execute Float,Equal 00e7 680d |h | Jump_Zero 0xf5 00e8 00db | | Load_Top At_Offset_3 00e9 5832 |X2 | Indirect_Literal Float,0x11c,0.25 00ea 023b | ; | Execute Float,Times 00eb e407 | | Load 0x2,0x7 00ec 023c | < | Execute Float,Minus 00ed 00db | | Load_Top At_Offset_3 00ee 582d |X- | Indirect_Literal Float,0x11c,0.25 00ef 023b | ; | Execute Float,Times 00f0 e408 | | Load 0x2,0x8 00f1 023c | < | Execute Float,Minus 00f2 023d | = | Execute Float,Plus 00f3 004a | J | Store_Top Float,At_Offset_2 00f4 780c |x | Jump 0x101 00f5 00db | | Load_Top At_Offset_3 00f6 5825 |X% | Indirect_Literal Float,0x11c,0.25 00f7 023b | ; | Execute Float,Times 00f8 e407 | | Load 0x2,0x7 00f9 023d | = | Execute Float,Plus 00fa 00db | | Load_Top At_Offset_3 00fb 5820 |X | Indirect_Literal Float,0x11c,0.25 00fc 023b | ; | Execute Float,Times 00fd e408 | | Load 0x2,0x8 00fe 023d | = | Execute Float,Plus 00ff 023d | = | Execute Float,Plus 0100 004a | J | Store_Top Float,At_Offset_2 0101 e405 | | Load 0x2,0x5 0102 e20e | | Load 0x1,0xe 0103 0232 | 2 | Execute Float,Check_In_Type 0104 00da | | Load_Top At_Offset_2 0105 e20e | | Load 0x1,0xe 0106 0232 | 2 | Execute Float,Check_In_Type 0107 e00b | | Load 0x0,0xb 0108 e230 | 0 | Load 0x1,0x30 0109 0096 | | Execute Package,Entry 010a 00d8 | | Load_Top At_Offset_0 010b e20e | | Load 0x1,0xe 010c 0234 | 4 | Execute Float,In_Type 010d 7001 |p | Jump_Nonzero 0x10f 010e 0801 | | Execute_Immediate Raise,0x1 010f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0110 3fc4 5f30 |? _0| .DBL 0.15915494309189532 0112 6dc9 c882 |m | 0114 3fd8 0000 |? | .DBL 0.375 0116 0000 0000 | | 0118 3fc0 0000 |? | .DBL 0.125 011a 0000 0000 | | 011c 3fd0 0000 |? | .DBL 0.25 011e 0000 0000 | | 0120 3fe0 0000 |? | .DBL 0.5 0122 0000 0000 | | 0124 0000 0000 | | .DBL 0.0 0126 0000 0000 | | 0128 3ff0 0000 |? | .DBL 1.0 012a 0000 0000 | | 012c 0000 0000 | | .BLANK 0000[0x4] 0130 ; -------------------------------------------------------------------------------------- 0130 ; Debug Table 0130 ; -------------------------------------------------------------------------------------- 0130 0004 0001 | | .DEBUG4 0x0004,0x0001,0xf279,0x0000,0x0001,0x0001 0136 000b 013a | :| .DBG4T 0x000b,0x013a,0x1002,0x0000 013a ; -------------------------------------------------------------------------------------- 013a ; Debug chain 013a ; -------------------------------------------------------------------------------------- 013a 0003 0028 | (| .DBGLEN 0x0003,0x0028 013c 000b 0012 | | .DBGLNO 0x000b,0x0012,0x0016,0x0017,0x001e,0x0021,0x0023,0x002a,0x0034,0x0037,0x003e,0x0048,0x004b,0x004d,0x004f,0x0051,0x0055,0x0064,0x006f,0x0071,0x007c,0x0080,0x0084,0x008f,0x009a,0x009e,0x00a0,0x00a2,0x00a4,0x00a7,0x00a9,0x00b4,0x00ba,0x00c0,0x00c8,0x00cc,0x00ce,0x00d2,0x00d7,0x00e4,0x00e8,0x00f5,0x0101 0167 0000 0000 | | .BLANK 0000[0x99]