|
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_191cd7
└─⟦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 0178 | x | .CONST 0x0178 ; 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 004d | M | .CONST 0x004d ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0018 | | .CONST 0x0018 ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional 000c 00c4 | | Action Make_Default 000d 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 000f 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0011 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0013 4804 |H | Short_Literal 0x4 0014 032b | + | Declare_Type Record,Incomplete,Visible 0015 00d8 | | Load_Top At_Offset_0 0016 02a0 | | Declare_Subprogram Null_Subprogram 0017 4818 |H | Short_Literal 0x18 0018 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 0019 00d8 | | Load_Top At_Offset_0 001a 0221 | ! | Execute Access,Allow_Deallocate 001b 0007 | | Action Break_Optional 001c 00d8 | | Load_Top At_Offset_0 001d 0129 | ) | Execute Any,Make_Visible 001e c20d | | Store 0x1,0xd 001f 00bf | | Action Accept_Activation 0020 e002 | | Load 0x0,0x2 0021 0266 | f | Execute Discrete,Bounds 0022 00e6 | | Load_Encached Float_Cache 0023 02a0 | | Declare_Subprogram Null_Subprogram 0024 4801 |H | Short_Literal 0x1 0025 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 0026 0007 | | Action Break_Optional 0027 0007 | | Action Break_Optional 0028 0007 | | Action Break_Optional 0029 0007 | | Action Break_Optional 002a 0007 | | Action Break_Optional 002b 0007 | | Action Break_Optional 002c 0007 | | Action Break_Optional 002d 0007 | | Action Break_Optional 002e 0007 | | Action Break_Optional 002f 0007 | | Action Break_Optional 0030 0007 | | Action Break_Optional 0031 e002 | | Load 0x0,0x2 0032 00d8 | | Load_Top At_Offset_0 0033 e002 | | Load 0x0,0x2 0034 4801 |H | Short_Literal 0x1 0035 4861 |Ha | Short_Literal 0x61 0036 e213 | | Load 0x1,0x13 0037 035b | [ | Declare_Type Array,Constrained 0038 02a0 | | Declare_Subprogram Null_Subprogram 0039 e211 | | Load 0x1,0x11 003a 0326 | & | Complete_Type Record,By_Defining 003b 00d9 | | Load_Top At_Offset_1 003c 03c4 | | Complete_Type Access,By_Component_Completion 003d 00d9 | | Load_Top At_Offset_1 003e 0221 | ! | Execute Access,Allow_Deallocate 003f a003 | | Store_Unchecked 0x0,0x3 0040 00c6 | | Action Check_Subprogram_Elaborated 0041 00da | | Load_Top At_Offset_2 0042 00da | | Load_Top At_Offset_2 0043 e004 | | Load 0x0,0x4 0044 e005 | | Load 0x0,0x5 0045 4800 |H | Short_Literal 0x0 0046 0007 | | Action Break_Optional 0047 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0048 00c7 | | Action Elaborate_Subprogram 0049 1d0f | | Execute_Immediate Reference_Lex_1,0xf 004a 00c7 | | Action Elaborate_Subprogram 004b 1d10 | | Execute_Immediate Reference_Lex_1,0x10 004c 00c7 | | Action Elaborate_Subprogram 004d BODY_0008: 004d 00bc | | Action Signal_Activated 004e 00bb | | Action Signal_Completion 004f 0000 | | .XXX[0x1] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0055 | U | .CONST 0x0055 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0002 | | .CONST 0x0002 ; Number of locals 0053 INIT_0050: 0053 e212 | | Load 0x1,0x12 0054 03bc | | Declare_Variable Access,By_Allocation 0055 BODY_0050: 0055 6086 |` | Indirect_Literal Discrete,0xdc,{0x00000000, 0x0000d5f5} 0056 e5ff | | Load 0x2,-0x1 0057 0272 | r | Execute Discrete,Minus 0058 607f |` | Indirect_Literal Discrete,0xd8,{0x00000000, 0x0003f480} 0059 026e | n | Execute Discrete,Modulo 005a 00d9 | | Load_Top At_Offset_1 005b 0227 | ' | Execute Access,All_Reference 005c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 005d 6076 |`v | Indirect_Literal Discrete,0xd4,{0x00000000, 0x00001be5} 005e 00d9 | | Load_Top At_Offset_1 005f 0227 | ' | Execute Access,All_Reference 0060 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0061 0271 | q | Execute Discrete,Times 0062 6079 |`y | Indirect_Literal Discrete,0xdc,{0x00000000, 0x0000d5f5} 0063 0273 | s | Execute Discrete,Plus 0064 6073 |`s | Indirect_Literal Discrete,0xd8,{0x00000000, 0x0003f480} 0065 026e | n | Execute Discrete,Modulo 0066 00d9 | | Load_Top At_Offset_1 0067 0227 | ' | Execute Access,All_Reference 0068 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0069 00d8 | | Load_Top At_Offset_0 006a 0227 | ' | Execute Access,All_Reference 006b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 006c 6063 |`c | Indirect_Literal Discrete,0xd0,{0x00000000, 0x00020d38} 006d 026e | n | Execute Discrete,Modulo 006e 00d9 | | Load_Top At_Offset_1 006f 0227 | ' | Execute Access,All_Reference 0070 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0071 6062 |`b | Indirect_Literal Discrete,0xd4,{0x00000000, 0x00001be5} 0072 00d9 | | Load_Top At_Offset_1 0073 0227 | ' | Execute Access,All_Reference 0074 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0075 0271 | q | Execute Discrete,Times 0076 6065 |`e | Indirect_Literal Discrete,0xdc,{0x00000000, 0x0000d5f5} 0077 0273 | s | Execute Discrete,Plus 0078 605f |`_ | Indirect_Literal Discrete,0xd8,{0x00000000, 0x0003f480} 0079 026e | n | Execute Discrete,Modulo 007a 00d9 | | Load_Top At_Offset_1 007b 0227 | ' | Execute Access,All_Reference 007c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 007d 00d8 | | Load_Top At_Offset_0 007e 0227 | ' | Execute Access,All_Reference 007f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0080 604b |`K | Indirect_Literal Discrete,0xcc,{0x00000000, 0x0003b538} 0081 026e | n | Execute Discrete,Modulo 0082 00d9 | | Load_Top At_Offset_1 0083 0227 | ' | Execute Access,All_Reference 0084 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0085 00cf | | Action Mark_Auxiliary 0086 00d9 | | Load_Top At_Offset_1 0087 0227 | ' | Execute Access,All_Reference 0088 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0089 01d9 | | Execute Vector,Reverse_Bounds 008a 0007 | | Action Break_Optional 008b 6048 |`H | Indirect_Literal Discrete,0xd4,{0x00000000, 0x00001be5} 008c e402 | | Load 0x2,0x2 008d 0227 | ' | Execute Access,All_Reference 008e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 008f 0271 | q | Execute Discrete,Times 0090 604b |`K | Indirect_Literal Discrete,0xdc,{0x00000000, 0x0000d5f5} 0091 0273 | s | Execute Discrete,Plus 0092 6045 |`E | Indirect_Literal Discrete,0xd8,{0x00000000, 0x0003f480} 0093 026e | n | Execute Discrete,Modulo 0094 e402 | | Load 0x2,0x2 0095 0227 | ' | Execute Access,All_Reference 0096 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0097 6030 |`0 | Indirect_Literal Discrete,0xc8,{0x00000000, 0x00001fb9} 0098 e402 | | Load 0x2,0x2 0099 0227 | ' | Execute Access,All_Reference 009a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 009b 0271 | q | Execute Discrete,Times 009c 6027 |`' | Indirect_Literal Discrete,0xc4,{0x00000000, 0x00006efb} 009d 0273 | s | Execute Discrete,Plus 009e 6031 |`1 | Indirect_Literal Discrete,0xd0,{0x00000000, 0x00020d38} 009f 026e | n | Execute Discrete,Modulo 00a0 e402 | | Load 0x2,0x2 00a1 0227 | ' | Execute Access,All_Reference 00a2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00a3 00db | | Load_Top At_Offset_3 00a4 0227 | ' | Execute Access,All_Reference 00a5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00a6 0237 | 7 | Execute Float,Convert_From_Discrete 00a7 e402 | | Load 0x2,0x2 00a8 0227 | ' | Execute Access,All_Reference 00a9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00aa 0237 | 7 | Execute Float,Convert_From_Discrete 00ab 5814 |X | Indirect_Literal Float,0xc0,7.437377283274826e-06 00ac 023b | ; | Execute Float,Times 00ad 023d | = | Execute Float,Plus 00ae 580d |X | Indirect_Literal Float,0xbc,3.858024691358024e-06 00af 023b | ; | Execute Float,Times 00b0 00d9 | | Load_Top At_Offset_1 00b1 e402 | | Load 0x2,0x2 00b2 0227 | ' | Execute Access,All_Reference 00b3 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 00b4 01d6 | | Execute Vector,Field_Write 00b5 00c8 | | Action Pop_Auxiliary_Range 00b6 3fd4 |? | Loop_Increasing 0x8b 00b7 00ce | | Action Pop_Auxiliary 00b8 00d8 | | Load_Top At_Offset_0 00b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ba 0000 0000 | | .XXX[0x2] 00bc 3ed0 2e85 |> . | .DBL 3.858024691358024e-06 00be c089 8b70 | p| 00c0 3edf 31d2 |> 1 | .DBL 7.437377283274826e-06 00c2 b366 47fc | fG | 00c4 0000 0000 | | .LITERAL {0x00000000, 0x00006efb} 00c8 0000 0000 | | .LITERAL {0x00000000, 0x00001fb9} 00cc 0000 0000 | | .LITERAL {0x00000000, 0x0003b538} 00d0 0000 0000 | | .LITERAL {0x00000000, 0x00020d38} 00d4 0000 0000 | | .LITERAL {0x00000000, 0x00001be5} 00d8 0000 0000 | | .LITERAL {0x00000000, 0x0003f480} 00dc 0000 0000 | | .LITERAL {0x00000000, 0x0000d5f5} 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 00da | | Load_Top At_Offset_2 00e4 e214 | | Load 0x1,0x14 00e5 e215 | | Load 0x1,0x15 00e6 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00e7 8003 | | Call 0x0,0x3 00e8 003b | ; | Store_Top Access,At_Offset_3 00e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00ea 0000 0000 | | .BLANK 0000[0x6] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f6 | | .CONST 0x00f6 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0003 | | .CONST 0x0003 ; Number of locals 00f3 INIT_00f0: 00f3 e006 | | Load 0x0,0x6 00f4 0007 | | Action Break_Optional 00f5 00e6 | | Load_Encached Float_Cache 00f6 BODY_00f0: 00f6 607d |`} | Indirect_Literal Discrete,0x174,{0x00000000, 0x00001be5} 00f7 e5ff | | Load 0x2,-0x1 00f8 0227 | ' | Execute Access,All_Reference 00f9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00fa 0271 | q | Execute Discrete,Times 00fb 6074 |`t | Indirect_Literal Discrete,0x170,{0x00000000, 0x0000d5f5} 00fc 0273 | s | Execute Discrete,Plus 00fd 606e |`n | Indirect_Literal Discrete,0x16c,{0x00000000, 0x0003f480} 00fe 026e | n | Execute Discrete,Modulo 00ff e5ff | | Load 0x2,-0x1 0100 0227 | ' | Execute Access,All_Reference 0101 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0102 6065 |`e | Indirect_Literal Discrete,0x168,{0x00000000, 0x00001fb9} 0103 e5ff | | Load 0x2,-0x1 0104 0227 | ' | Execute Access,All_Reference 0105 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0106 0271 | q | Execute Discrete,Times 0107 605c |`\ | Indirect_Literal Discrete,0x164,{0x00000000, 0x00006efb} 0108 0273 | s | Execute Discrete,Plus 0109 6056 |`V | Indirect_Literal Discrete,0x160,{0x00000000, 0x00020d38} 010a 026e | n | Execute Discrete,Modulo 010b e5ff | | Load 0x2,-0x1 010c 0227 | ' | Execute Access,All_Reference 010d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 010e 604d |`M | Indirect_Literal Discrete,0x15c,{0x00000000, 0x000011d1} 010f e5ff | | Load 0x2,-0x1 0110 0227 | ' | Execute Access,All_Reference 0111 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0112 0271 | q | Execute Discrete,Times 0113 6044 |`D | Indirect_Literal Discrete,0x158,{0x00000000, 0x0000c895} 0114 0273 | s | Execute Discrete,Plus 0115 603e |`> | Indirect_Literal Discrete,0x154,{0x00000000, 0x0003b538} 0116 026e | n | Execute Discrete,Modulo 0117 e5ff | | Load 0x2,-0x1 0118 0227 | ' | Execute Access,All_Reference 0119 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 011a e5ff | | Load 0x2,-0x1 011b 0227 | ' | Execute Access,All_Reference 011c 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 011d 01dc | | Execute Vector,Last 011e e5ff | | Load 0x2,-0x1 011f 0227 | ' | Execute Access,All_Reference 0120 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0121 0271 | q | Execute Discrete,Times 0122 6031 |`1 | Indirect_Literal Discrete,0x154,{0x00000000, 0x0003b538} 0123 0270 | p | Execute Discrete,Divide 0124 0a01 | | Execute_Immediate Plus,0x1 0125 005a | Z | Store_Top Discrete,At_Offset_2 0126 00d9 | | Load_Top At_Offset_1 0127 e5ff | | Load 0x2,-0x1 0128 0227 | ' | Execute Access,All_Reference 0129 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 012a 01dc | | Execute Vector,Last 012b 027d | } | Execute Discrete,Greater 012c 6803 |h | Jump_Zero 0x130 012d 00d9 | | Load_Top At_Offset_1 012e 0aff | | Execute_Immediate Plus,-0x1 012f 005a | Z | Store_Top Discrete,At_Offset_2 0130 00d9 | | Load_Top At_Offset_1 0131 e5ff | | Load 0x2,-0x1 0132 0227 | ' | Execute Access,All_Reference 0133 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0134 01d7 | | Execute Vector,Field_Read 0135 0041 | A | Store_Top_Unchecked Float,At_Offset_1 0136 e5ff | | Load 0x2,-0x1 0137 0227 | ' | Execute Access,All_Reference 0138 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0139 0237 | 7 | Execute Float,Convert_From_Discrete 013a e5ff | | Load 0x2,-0x1 013b 0227 | ' | Execute Access,All_Reference 013c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 013d 0237 | 7 | Execute Float,Convert_From_Discrete 013e 5811 |X | Indirect_Literal Float,0x150,7.437377283274826e-06 013f 023b | ; | Execute Float,Times 0140 023d | = | Execute Float,Plus 0141 580a |X | Indirect_Literal Float,0x14c,3.858024691358024e-06 0142 023b | ; | Execute Float,Times 0143 00da | | Load_Top At_Offset_2 0144 e5ff | | Load 0x2,-0x1 0145 0227 | ' | Execute Access,All_Reference 0146 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0147 01d6 | | Execute Vector,Field_Write 0148 00d8 | | Load_Top At_Offset_0 0149 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014a 0000 0000 | | .XXX[0x2] 014c 3ed0 2e85 |> . | .DBL 3.858024691358024e-06 014e c089 8b70 | p| 0150 3edf 31d2 |> 1 | .DBL 7.437377283274826e-06 0152 b366 47fc | fG | 0154 0000 0000 | | .LITERAL {0x00000000, 0x0003b538} 0158 0000 0000 | | .LITERAL {0x00000000, 0x0000c895} 015c 0000 0000 | | .LITERAL {0x00000000, 0x000011d1} 0160 0000 0000 | | .LITERAL {0x00000000, 0x00020d38} 0164 0000 0000 | | .LITERAL {0x00000000, 0x00006efb} 0168 0000 0000 | | .LITERAL {0x00000000, 0x00001fb9} 016c 0000 0000 | | .LITERAL {0x00000000, 0x0003f480} 0170 0000 0000 | | .LITERAL {0x00000000, 0x0000d5f5} 0174 0000 0000 | | .LITERAL {0x00000000, 0x00001be5} 0178 ; -------------------------------------------------------------------------------------- 0178 ; Debug Table 0178 ; -------------------------------------------------------------------------------------- 0178 0004 0000 | | .DEBUG4 0x0004,0x0000,0x4aa2,0x0000,0x0001,0x0005 017e 000b 0192 | | .DBG4T 0x000b,0x0192,0x8000,0x0000 0182 0020 019d | | .DBG4T 0x0020,0x019d,0x8000,0x0000 0186 0053 01b0 | S | .DBG4T 0x0053,0x01b0,0x0002,0x0000 018a 00e3 01bd | | .DBG4T 0x00e3,0x01bd,0x0001,0x0000 018e 00f3 01c0 | | .DBG4T 0x00f3,0x01c0,0x0002,0x0000 0192 ; -------------------------------------------------------------------------------------- 0192 ; Debug chain 0192 ; -------------------------------------------------------------------------------------- 0192 0009 0000 | | .DBGLEN 0x0009,0x0000 0194 000b 000c | | .DBGLNO 0x000b,0x000c,0x000d,0x000f,0x0011,0x0013,0x0015,0x001b,0x001c 019d ; -------------------------------------------------------------------------------------- 019d ; Debug chain 019d ; -------------------------------------------------------------------------------------- 019d 0011 0000 | | .DBGLEN 0x0011,0x0000 019f 0020 0026 | &| .DBGLNO 0x0020,0x0026,0x0027,0x0028,0x0029,0x002a,0x002b,0x002c,0x002d,0x002e,0x002f,0x0030,0x0031,0x003f,0x0047,0x0049,0x004b 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; Debug chain 01b0 ; -------------------------------------------------------------------------------------- 01b0 0001 000a | | .DBGLEN 0x0001,0x000a 01b2 0053 0055 | S U| .DBGLNO 0x0053,0x0055,0x005d,0x0069,0x0071,0x007d,0x0086,0x008b,0x0097,0x00a3,0x00b8 01bd ; -------------------------------------------------------------------------------------- 01bd ; Debug chain 01bd ; -------------------------------------------------------------------------------------- 01bd 0000 0001 | | .DBGLEN 0x0000,0x0001 01bf 00e3 | | .DBGLNO 0x00e3 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; Debug chain 01c0 ; -------------------------------------------------------------------------------------- 01c0 0002 0009 | | .DBGLEN 0x0002,0x0009 01c2 00f3 00f5 | | .DBGLNO 0x00f3,0x00f5,0x00f6,0x0102,0x010e,0x011a,0x0126,0x012d,0x0130,0x0136,0x0148 01cd 0000 0000 | | .BLANK 0000[0x33]