|
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 0198 | | .CONST 0x0198 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 005d | ] | .CONST 0x005d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0017 | | .CONST 0x0017 ; Number of locals
000b INIT_0008:
000b e20e | | Load 0x1,0xe
000c 0007 | | Action Break_Optional
000d 00d8 | | Load_Top At_Offset_0
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 03d8 | | Declare_Variable Float,Duplicate
0014 03d8 | | Declare_Variable Float,Duplicate
0015 03d8 | | Declare_Variable Float,Duplicate
0016 03d8 | | Declare_Variable Float,Duplicate
0017 03d8 | | Declare_Variable Float,Duplicate
0018 03d8 | | Declare_Variable Float,Duplicate
0019 03d8 | | Declare_Variable Float,Duplicate
001a e22c | , | Load 0x1,0x2c
001b 03e9 | | Declare_Variable Discrete,Duplicate
001c 03e9 | | Declare_Variable Discrete,Duplicate
001d 00e4 | | Load_Encached Positive_Cache
001e 03e9 | | Declare_Variable Discrete,Duplicate
001f 4ffd |O | Short_Literal -0x3
0020 4803 |H | Short_Literal 0x3
0021 e20e | | Load 0x1,0xe
0022 02a0 | | Declare_Subprogram Null_Subprogram
0023 4801 |H | Short_Literal 0x1
0024 035d | ] | Declare_Type Array,Defined
0025 00d8 | | Load_Top At_Offset_0
0026 0337 | 7 | Declare_Variable Array
0027 00d8 | | Load_Top At_Offset_0
0028 0335 | 5 | Declare_Variable Array,Duplicate
0029 00cd | | Action Spare6_Action
002a 5965 |Ye | Indirect_Literal Float,0x190,0.125
002b 4ffd |O | Short_Literal -0x3
002c 00da | | Load_Top At_Offset_2
002d 01d6 | | Execute Vector,Field_Write
002e 595d |Y] | Indirect_Literal Float,0x18c,0.25
002f 4ffe |O | Short_Literal -0x2
0030 00da | | Load_Top At_Offset_2
0031 01d6 | | Execute Vector,Field_Write
0032 5955 |YU | Indirect_Literal Float,0x188,0.5
0033 4fff |O | Short_Literal -0x1
0034 00da | | Load_Top At_Offset_2
0035 01d6 | | Execute Vector,Field_Write
0036 594d |YM | Indirect_Literal Float,0x184,1.0
0037 4800 |H | Short_Literal 0x0
0038 00da | | Load_Top At_Offset_2
0039 01d6 | | Execute Vector,Field_Write
003a 5945 |YE | Indirect_Literal Float,0x180,2.0
003b 4801 |H | Short_Literal 0x1
003c 00da | | Load_Top At_Offset_2
003d 01d6 | | Execute Vector,Field_Write
003e 593d |Y= | Indirect_Literal Float,0x17c,4.0
003f 4802 |H | Short_Literal 0x2
0040 00da | | Load_Top At_Offset_2
0041 01d6 | | Execute Vector,Field_Write
0042 5935 |Y5 | Indirect_Literal Float,0x178,8.0
0043 4803 |H | Short_Literal 0x3
0044 00da | | Load_Top At_Offset_2
0045 01d6 | | Execute Vector,Field_Write
0046 00d9 | | Load_Top At_Offset_1
0047 01d4 | | Execute Vector,Structure_Write
0048 5933 |Y3 | Indirect_Literal Float,0x17c,4.0
0049 612a |a* | Indirect_Literal Discrete,0x174,{0x00000000, 0x00000400}
004a 0237 | 7 | Execute Float,Convert_From_Discrete
004b e20e | | Load 0x1,0xe
004c 0238 | 8 | Execute Float,Convert
004d 023b | ; | Execute Float,Times
004e 5931 |Y1 | Indirect_Literal Float,0x180,2.0
004f 4801 |H | Short_Literal 0x1
0050 e20e | | Load 0x1,0xe
0051 0122 | " | Execute Any,Make_Root_Type
0052 1c01 | | Execute_Immediate Run_Utility,0x1
0053 480a |H | Short_Literal 0xa
0054 0271 | q | Execute Discrete,Times
0055 0a05 | | Execute_Immediate Plus,0x5
0056 4803 |H | Short_Literal 0x3
0057 0270 | p | Execute Discrete,Divide
0058 0272 | r | Execute Discrete,Minus
0059 0239 | 9 | Execute Float,Exponentiate
005a 023a | : | Execute Float,Divide
005b e20e | | Load 0x1,0xe
005c 02bf | | Declare_Variable Float,With_Value,With_Constraint
005d BODY_0008:
005d e5ff | | Load 0x2,-0x1
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 c403 | | Store 0x2,0x3
0064 e5fe | | Load 0x2,-0x2
0065 00d8 | | Load_Top At_Offset_0
0066 e20e | | Load 0x1,0xe
0067 0234 | 4 | Execute Float,In_Type
0068 7001 |p | Jump_Nonzero 0x6a
0069 0801 | | Execute_Immediate Raise,0x1
006a c404 | | Store 0x2,0x4
006b e403 | | Load 0x2,0x3
006c 700d |p | Jump_Nonzero 0x7a
006d e5fe | | Load 0x2,-0x2
006e 014b | K | Execute Float,Less_Zero
006f 6801 |h | Jump_Zero 0x71
0070 08e0 | | Execute_Immediate Raise,0xe0
0071 e5fe | | Load 0x2,-0x2
0072 014c | L | Execute Float,Greater_Zero
0073 6804 |h | Jump_Zero 0x78
0074 58fb |X | Indirect_Literal Float,0x170,0.0
0075 e20e | | Load 0x1,0xe
0076 0232 | 2 | Execute Float,Check_In_Type
0077 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0078 e006 | | Load 0x0,0x6
0079 0257 | W | Execute Discrete,Raise
007a e403 | | Load 0x2,0x3
007b 014b | K | Execute Float,Less_Zero
007c 6802 |h | Jump_Zero 0x7f
007d e006 | | Load 0x0,0x6
007e 0257 | W | Execute Discrete,Raise
007f e403 | | Load 0x2,0x3
0080 5903 |Y | Indirect_Literal Float,0x184,1.0
0081 0247 | G | Execute Float,Equal
0082 e5fe | | Load 0x2,-0x2
0083 014e | N | Execute Float,Equal_Zero
0084 0278 | x | Execute Discrete,Or
0085 6804 |h | Jump_Zero 0x8a
0086 58fd |X | Indirect_Literal Float,0x184,1.0
0087 e20e | | Load 0x1,0xe
0088 0232 | 2 | Execute Float,Check_In_Type
0089 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
008a e404 | | Load 0x2,0x4
008b 58f8 |X | Indirect_Literal Float,0x184,1.0
008c 0247 | G | Execute Float,Equal
008d 6804 |h | Jump_Zero 0x92
008e e5ff | | Load 0x2,-0x1
008f e20e | | Load 0x1,0xe
0090 0232 | 2 | Execute Float,Check_In_Type
0091 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0092 e404 | | Load 0x2,0x4
0093 023e | > | Execute Float,Absolute_Value
0094 00d9 | | Load_Top At_Offset_1
0095 0243 | C | Execute Float,Greater_Equal
0096 680b |h | Jump_Zero 0xa2
0097 e404 | | Load 0x2,0x4
0098 014c | L | Execute Float,Greater_Zero
0099 6801 |h | Jump_Zero 0x9b
009a 08e0 | | Execute_Immediate Raise,0xe0
009b 58d4 |X | Indirect_Literal Float,0x170,0.0
009c 00d8 | | Load_Top At_Offset_0
009d e20e | | Load 0x1,0xe
009e 0234 | 4 | Execute Float,In_Type
009f 7001 |p | Jump_Nonzero 0xa1
00a0 0801 | | Execute_Immediate Raise,0x1
00a1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00a2 4815 |H | Short_Literal 0x15
00a3 a413 | | Store_Unchecked 0x2,0x13
00a4 4835 |H5 | Short_Literal 0x35
00a5 a414 | | Store_Unchecked 0x2,0x14
00a6 e20e | | Load 0x1,0xe
00a7 00d8 | | Load_Top At_Offset_0
00a8 e403 | | Load 0x2,0x3
00a9 e20e | | Load 0x1,0xe
00aa 0232 | 2 | Execute Float,Check_In_Type
00ab 8250 | P | Call 0x1,0x50
00ac c407 | | Store 0x2,0x7
00ad c408 | | Store 0x2,0x8
00ae e413 | | Load 0x2,0x13
00af e404 | | Load 0x2,0x4
00b0 e20e | | Load 0x1,0xe
00b1 0232 | 2 | Execute Float,Check_In_Type
00b2 e004 | | Load 0x0,0x4
00b3 e230 | 0 | Load 0x1,0x30
00b4 0096 | | Execute Package,Entry
00b5 c40c | | Store 0x2,0xc
00b6 e404 | | Load 0x2,0x4
00b7 e40c | | Load 0x2,0xc
00b8 023c | < | Execute Float,Minus
00b9 c40d | | Store 0x2,0xd
00ba e40c | | Load 0x2,0xc
00bb e407 | | Load 0x2,0x7
00bc 023b | ; | Execute Float,Times
00bd c409 | | Store 0x2,0x9
00be e40c | | Load 0x2,0xc
00bf e408 | | Load 0x2,0x8
00c0 023b | ; | Execute Float,Times
00c1 e40d | | Load 0x2,0xd
00c2 e407 | | Load 0x2,0x7
00c3 023b | ; | Execute Float,Times
00c4 e40d | | Load 0x2,0xd
00c5 e408 | | Load 0x2,0x8
00c6 023b | ; | Execute Float,Times
00c7 023d | = | Execute Float,Plus
00c8 023d | = | Execute Float,Plus
00c9 c40a | | Store 0x2,0xa
00ca 00db | | Load_Top At_Offset_3
00cb 0afe | | Execute_Immediate Plus,-0x2
00cc 00d8 | | Load_Top At_Offset_0
00cd 00e4 | | Load_Encached Positive_Cache
00ce 0260 | ` | Execute Discrete,In_Type
00cf 7001 |p | Jump_Nonzero 0xd1
00d0 0801 | | Execute_Immediate Raise,0x1
00d1 e409 | | Load 0x2,0x9
00d2 e40a | | Load 0x2,0xa
00d3 023d | = | Execute Float,Plus
00d4 e20e | | Load 0x1,0xe
00d5 0232 | 2 | Execute Float,Check_In_Type
00d6 e004 | | Load 0x0,0x4
00d7 e230 | 0 | Load 0x1,0x30
00d8 0096 | | Execute Package,Entry
00d9 c407 | | Store 0x2,0x7
00da e409 | | Load 0x2,0x9
00db e407 | | Load 0x2,0x7
00dc 023c | < | Execute Float,Minus
00dd c408 | | Store 0x2,0x8
00de e40a | | Load 0x2,0xa
00df e408 | | Load 0x2,0x8
00e0 023d | = | Execute Float,Plus
00e1 c408 | | Store 0x2,0x8
00e2 e407 | | Load 0x2,0x7
00e3 5888 |X | Indirect_Literal Float,0x16c,46.16624130844683
00e4 023b | ; | Execute Float,Times
00e5 0235 | 5 | Execute Float,Round_To_Discrete
00e6 e22c | , | Load 0x1,0x2c
00e7 025e | ^ | Execute Discrete,Convert
00e8 a410 | | Store_Unchecked 0x2,0x10
00e9 e410 | | Load 0x2,0x10
00ea 0237 | 7 | Execute Float,Convert_From_Discrete
00eb e20e | | Load 0x1,0xe
00ec 0238 | 8 | Execute Float,Convert
00ed e23d | = | Load 0x1,0x3d
00ee 023b | ; | Execute Float,Times
00ef c40e | | Store 0x2,0xe
00f0 e407 | | Load 0x2,0x7
00f1 023e | > | Execute Float,Absolute_Value
00f2 e40e | | Load 0x2,0xe
00f3 023e | > | Execute Float,Absolute_Value
00f4 0243 | C | Execute Float,Greater_Equal
00f5 6805 |h | Jump_Zero 0xfb
00f6 e407 | | Load 0x2,0x7
00f7 e40e | | Load 0x2,0xe
00f8 023c | < | Execute Float,Minus
00f9 c405 | | Store 0x2,0x5
00fa 780a |x | Jump 0x105
00fb 588c |X | Indirect_Literal Float,0x188,0.5
00fc e40e | | Load 0x2,0xe
00fd 023b | ; | Execute Float,Times
00fe c40e | | Store 0x2,0xe
00ff e407 | | Load 0x2,0x7
0100 e40e | | Load 0x2,0xe
0101 023c | < | Execute Float,Minus
0102 e40e | | Load 0x2,0xe
0103 023c | < | Execute Float,Minus
0104 c405 | | Store 0x2,0x5
0105 e408 | | Load 0x2,0x8
0106 e410 | | Load 0x2,0x10
0107 0237 | 7 | Execute Float,Convert_From_Discrete
0108 e20e | | Load 0x1,0xe
0109 0238 | 8 | Execute Float,Convert
010a e23e | > | Load 0x1,0x3e
010b 023b | ; | Execute Float,Times
010c 023c | < | Execute Float,Minus
010d c406 | | Store 0x2,0x6
010e e410 | | Load 0x2,0x10
010f 481f |H | Short_Literal 0x1f
0110 0279 | y | Execute Discrete,And
0111 a412 | | Store_Unchecked 0x2,0x12
0112 e410 | | Load 0x2,0x10
0113 e412 | | Load 0x2,0x12
0114 0272 | r | Execute Discrete,Minus
0115 09fb | | Execute_Immediate Binary_Scale,-0x5
0116 a411 | | Store_Unchecked 0x2,0x11
0117 e406 | | Load 0x2,0x6
0118 e20e | | Load 0x1,0xe
0119 0232 | 2 | Execute Float,Check_In_Type
011a e405 | | Load 0x2,0x5
011b e20e | | Load 0x1,0xe
011c 0232 | 2 | Execute Float,Check_In_Type
011d 824d | M | Call 0x1,0x4d
011e c40b | | Store 0x2,0xb
011f 4800 |H | Short_Literal 0x0
0120 e412 | | Load 0x2,0x12
0121 e242 | B | Load 0x1,0x42
0122 01a7 | | Execute Matrix,Field_Read
0123 4801 |H | Short_Literal 0x1
0124 e412 | | Load 0x2,0x12
0125 e242 | B | Load 0x1,0x42
0126 01a7 | | Execute Matrix,Field_Read
0127 023d | = | Execute Float,Plus
0128 c40f | | Store 0x2,0xf
0129 4800 |H | Short_Literal 0x0
012a e412 | | Load 0x2,0x12
012b e242 | B | Load 0x1,0x42
012c 01a7 | | Execute Matrix,Field_Read
012d c409 | | Store 0x2,0x9
012e 4801 |H | Short_Literal 0x1
012f e412 | | Load 0x2,0x12
0130 e242 | B | Load 0x1,0x42
0131 01a7 | | Execute Matrix,Field_Read
0132 e40f | | Load 0x2,0xf
0133 e40b | | Load 0x2,0xb
0134 023b | ; | Execute Float,Times
0135 023d | = | Execute Float,Plus
0136 c40a | | Store 0x2,0xa
0137 e231 | 1 | Load 0x1,0x31
0138 0f02 | | Execute_Immediate Equal,0x2
0139 701a |p | Jump_Nonzero 0x154
013a e411 | | Load 0x2,0x11
013b 4804 |H | Short_Literal 0x4
013c 026f | o | Execute Discrete,Remainder
013d a412 | | Store_Unchecked 0x2,0x12
013e e411 | | Load 0x2,0x11
013f e412 | | Load 0x2,0x12
0140 0272 | r | Execute Discrete,Minus
0141 09fe | | Execute_Immediate Binary_Scale,-0x2
0142 a411 | | Store_Unchecked 0x2,0x11
0143 e409 | | Load 0x2,0x9
0144 e412 | | Load 0x2,0x12
0145 00db | | Load_Top At_Offset_3
0146 01d7 | | Execute Vector,Field_Read
0147 023b | ; | Execute Float,Times
0148 c409 | | Store 0x2,0x9
0149 e40a | | Load 0x2,0xa
014a e412 | | Load 0x2,0x12
014b 00db | | Load_Top At_Offset_3
014c 01d7 | | Execute Vector,Field_Read
014d 023b | ; | Execute Float,Times
014e c40a | | Store 0x2,0xa
014f e409 | | Load 0x2,0x9
0150 e40a | | Load 0x2,0xa
0151 023d | = | Execute Float,Plus
0152 c40e | | Store 0x2,0xe
0153 7804 |x | Jump 0x158
0154 e409 | | Load 0x2,0x9
0155 e40a | | Load 0x2,0xa
0156 023d | = | Execute Float,Plus
0157 c40e | | Store 0x2,0xe
0158 e411 | | Load 0x2,0x11
0159 e40e | | Load 0x2,0xe
015a e20e | | Load 0x1,0xe
015b 0232 | 2 | Execute Float,Check_In_Type
015c e007 | | Load 0x0,0x7
015d e230 | 0 | Load 0x1,0x30
015e 0096 | | Execute Package,Entry
015f 00d8 | | Load_Top At_Offset_0
0160 e20e | | Load 0x1,0xe
0161 0234 | 4 | Execute Float,In_Type
0162 7001 |p | Jump_Nonzero 0x164
0163 0801 | | Execute_Immediate Raise,0x1
0164 c402 | | Store 0x2,0x2
0165 e402 | | Load 0x2,0x2
0166 e20e | | Load 0x1,0xe
0167 0232 | 2 | Execute Float,Check_In_Type
0168 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0169 0000 0000 | | .XXX[0x3]
016b 0000 | |
016c 4047 1547 |@G G| .DBL 46.16624130844683
016e 652b 82fe |e+ |
0170 0000 0000 | | .DBL 0.0
0172 0000 0000 | |
0174 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0178 4020 0000 |@ | .DBL 8.0
017a 0000 0000 | |
017c 4010 0000 |@ | .DBL 4.0
017e 0000 0000 | |
0180 4000 0000 |@ | .DBL 2.0
0182 0000 0000 | |
0184 3ff0 0000 |? | .DBL 1.0
0186 0000 0000 | |
0188 3fe0 0000 |? | .DBL 0.5
018a 0000 0000 | |
018c 3fd0 0000 |? | .DBL 0.25
018e 0000 0000 | |
0190 3fc0 0000 |? | .DBL 0.125
0192 0000 0000 | |
0194 0000 0000 | | .BLANK 0000[0x4]
0198 ; --------------------------------------------------------------------------------------
0198 ; Debug Table
0198 ; --------------------------------------------------------------------------------------
0198 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f26,0x0000,0x0001,0x0000
019e 0000 6000 | ` | .XXX[0x3d]
01a0 0000 0023 | #|
01a2 6f46 6000 |oF` |
01a4 0000 2000 | |
01a6 0000 4000 | @ |
01a8 0001 8000 | |
01aa 0000 c000 | |
01ac 15d9 8000 | |
01ae 0000 8000 | |
01b0 0005 0000 | |
01b2 0003 0002 | |
01b4 5b74 0000 |[t |
01b6 0002 0000 | |
01b8 0004 0000 | |
01ba 0000 046d | m|
01bc ef38 0000 | 8 |
01be 0004 0000 | |
01c0 0004 0000 | |
01c2 0030 0000 | 0 |
01c4 0018 0002 | |
01c6 bb30 0000 | 0 |
01c8 001c 0000 | |
01ca 000c 0001 | |
01cc 5da8 0000 |] |
01ce 0008 0000 | |
01d0 0018 0002 | |
01d2 bb50 0000 | P |
01d4 0010 086a | j|
01d6 d040 0000 | @ |
01d8 0808 0000 | |
01da 9808 | |
01db 0000 0000 | | .BLANK 0000[0x5]
01e0 9808 0000 | | .XXX[0x20]
01e2 000c 0000 | |
01e4 0000 046d | m|
01e6 f9b8 0000 | |
01e8 0004 0000 | |
01ea 0008 0000 | |
01ec 0030 0000 | 0 |
01ee 0018 0002 | |
01f0 bb50 0000 | P |
01f2 0010 0000 | |
01f4 00a0 0000 | |
01f6 0060 004b | ` K|
01f8 6ec0 0000 |n |
01fa 0040 0000 | @ |
01fc 0080 0000 | |
01fe 0000 8dc0 | |