|
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]