|
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 00c8 | | .CONST 0x00c8 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0014 | | .CONST 0x0014 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000a | | .CONST 0x000a ; 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 03d8 | | Declare_Variable Float,Duplicate
0014 BODY_0008:
0014 e5fe | | Load 0x2,-0x2
0015 00d8 | | Load_Top At_Offset_0
0016 e20e | | Load 0x1,0xe
0017 0234 | 4 | Execute Float,In_Type
0018 7001 |p | Jump_Nonzero 0x1a
0019 0801 | | Execute_Immediate Raise,0x1
001a 0049 | I | Store_Top Float,At_Offset_1
001b 00d8 | | Load_Top At_Offset_0
001c 0149 | I | Execute Float,Less_Equal_Zero
001d 6802 |h | Jump_Zero 0x20
001e e006 | | Load 0x0,0x6
001f 0257 | W | Execute Discrete,Raise
0020 e5ff | | Load 0x2,-0x1
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 5899 |X | Indirect_Literal Float,0xc4,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 c403 | | Store 0x2,0x3
0031 e402 | | Load 0x2,0x2
0032 023e | > | Execute Float,Absolute_Value
0033 c402 | | Store 0x2,0x2
0034 e402 | | Load 0x2,0x2
0035 588e |X | Indirect_Literal Float,0xc4,1.0
0036 0245 | E | Execute Float,Greater
0037 6802 |h | Jump_Zero 0x3a
0038 e006 | | Load 0x0,0x6
0039 0257 | W | Execute Discrete,Raise
003a e402 | | Load 0x2,0x2
003b 5888 |X | Indirect_Literal Float,0xc4,1.0
003c 0247 | G | Execute Float,Equal
003d 6813 |h | Jump_Zero 0x51
003e 00d8 | | Load_Top At_Offset_0
003f 5880 |X | Indirect_Literal Float,0xc0,4.0
0040 023a | : | Execute Float,Divide
0041 004a | J | Store_Top Float,At_Offset_2
0042 e403 | | Load 0x2,0x3
0043 e20e | | Load 0x1,0xe
0044 0232 | 2 | Execute Float,Check_In_Type
0045 00da | | Load_Top At_Offset_2
0046 e20e | | Load 0x1,0xe
0047 0232 | 2 | Execute Float,Check_In_Type
0048 e00b | | Load 0x0,0xb
0049 e230 | 0 | Load 0x1,0x30
004a 0096 | | Execute Package,Entry
004b 00d8 | | Load_Top At_Offset_0
004c e20e | | Load 0x1,0xe
004d 0234 | 4 | Execute Float,In_Type
004e 7001 |p | Jump_Nonzero 0x50
004f 0801 | | Execute_Immediate Raise,0x1
0050 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0051 e402 | | Load 0x2,0x2
0052 c405 | | Store 0x2,0x5
0053 e402 | | Load 0x2,0x2
0054 5867 |Xg | Indirect_Literal Float,0xbc,0.5
0055 0244 | D | Execute Float,Less
0056 6807 |h | Jump_Zero 0x5e
0057 586c |Xl | Indirect_Literal Float,0xc4,1.0
0058 e402 | | Load 0x2,0x2
0059 00d8 | | Load_Top At_Offset_0
005a 023b | ; | Execute Float,Times
005b 023c | < | Execute Float,Minus
005c c404 | | Store 0x2,0x4
005d 780e |x | Jump 0x6c
005e 585d |X] | Indirect_Literal Float,0xbc,0.5
005f 585c |X\ | Indirect_Literal Float,0xbc,0.5
0060 e402 | | Load 0x2,0x2
0061 023c | < | Execute Float,Minus
0062 023d | = | Execute Float,Plus
0063 c406 | | Store 0x2,0x6
0064 5853 |XS | Indirect_Literal Float,0xb8,2.0
0065 e406 | | Load 0x2,0x6
0066 023b | ; | Execute Float,Times
0067 e406 | | Load 0x2,0x6
0068 00d8 | | Load_Top At_Offset_0
0069 023b | ; | Execute Float,Times
006a 023c | < | Execute Float,Minus
006b c404 | | Store 0x2,0x4
006c e404 | | Load 0x2,0x4
006d e20e | | Load 0x1,0xe
006e 0232 | 2 | Execute Float,Check_In_Type
006f 8248 | H | Call 0x1,0x48
0070 c404 | | Store 0x2,0x4
0071 e404 | | Load 0x2,0x4
0072 e405 | | Load 0x2,0x5
0073 0243 | C | Execute Float,Greater_Equal
0074 6814 |h | Jump_Zero 0x89
0075 e20e | | Load 0x1,0xe
0076 00d8 | | Load_Top At_Offset_0
0077 e404 | | Load 0x2,0x4
0078 e20e | | Load 0x1,0xe
0079 0232 | 2 | Execute Float,Check_In_Type
007a e405 | | Load 0x2,0x5
007b e20e | | Load 0x1,0xe
007c 0232 | 2 | Execute Float,Check_In_Type
007d 8255 | U | Call 0x1,0x55
007e c407 | | Store 0x2,0x7
007f 004b | K | Store_Top Float,At_Offset_3
0080 00db | | Load_Top At_Offset_3
0081 00db | | Load_Top At_Offset_3
0082 023d | = | Execute Float,Plus
0083 5830 |X0 | Indirect_Literal Float,0xb4,0.15915494309189532
0084 023b | ; | Execute Float,Times
0085 00d9 | | Load_Top At_Offset_1
0086 023b | ; | Execute Float,Times
0087 004a | J | Store_Top Float,At_Offset_2
0088 7817 |x | Jump 0xa0
0089 e20e | | Load 0x1,0xe
008a 00d8 | | Load_Top At_Offset_0
008b e405 | | Load 0x2,0x5
008c e20e | | Load 0x1,0xe
008d 0232 | 2 | Execute Float,Check_In_Type
008e e404 | | Load 0x2,0x4
008f e20e | | Load 0x1,0xe
0090 0232 | 2 | Execute Float,Check_In_Type
0091 8255 | U | Call 0x1,0x55
0092 c407 | | Store 0x2,0x7
0093 004b | K | Store_Top Float,At_Offset_3
0094 00d8 | | Load_Top At_Offset_0
0095 581a |X | Indirect_Literal Float,0xb0,0.25
0096 023b | ; | Execute Float,Times
0097 e407 | | Load 0x2,0x7
0098 e408 | | Load 0x2,0x8
0099 023d | = | Execute Float,Plus
009a 5819 |X | Indirect_Literal Float,0xb4,0.15915494309189532
009b 023b | ; | Execute Float,Times
009c 00da | | Load_Top At_Offset_2
009d 023b | ; | Execute Float,Times
009e 023c | < | Execute Float,Minus
009f 004a | J | Store_Top Float,At_Offset_2
00a0 e403 | | Load 0x2,0x3
00a1 e20e | | Load 0x1,0xe
00a2 0232 | 2 | Execute Float,Check_In_Type
00a3 00da | | Load_Top At_Offset_2
00a4 e20e | | Load 0x1,0xe
00a5 0232 | 2 | Execute Float,Check_In_Type
00a6 e00b | | Load 0x0,0xb
00a7 e230 | 0 | Load 0x1,0x30
00a8 0096 | | Execute Package,Entry
00a9 00d8 | | Load_Top At_Offset_0
00aa e20e | | Load 0x1,0xe
00ab 0234 | 4 | Execute Float,In_Type
00ac 7001 |p | Jump_Nonzero 0xae
00ad 0801 | | Execute_Immediate Raise,0x1
00ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00af 0000 | | .XXX[0x1]
00b0 3fd0 0000 |? | .DBL 0.25
00b2 0000 0000 | |
00b4 3fc4 5f30 |? _0| .DBL 0.15915494309189532
00b6 6dc9 c882 |m |
00b8 4000 0000 |@ | .DBL 2.0
00ba 0000 0000 | |
00bc 3fe0 0000 |? | .DBL 0.5
00be 0000 0000 | |
00c0 4010 0000 |@ | .DBL 4.0
00c2 0000 0000 | |
00c4 3ff0 0000 |? | .DBL 1.0
00c6 0000 0000 | |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; Debug Table
00c8 ; --------------------------------------------------------------------------------------
00c8 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f18,0x0000,0x0001,0x0000
00ce 0000 0000 | | .XXX[0x6]
00d0 005a a680 | Z |
00d2 01dd 4000 | @ |
00d4 0000 0000 | | .BLANK 0000[0x4]
00d8 0008 0000 | | .XXX[0x30]
00da 0004 6428 | d(|
00dc 6ded adac |m |
00de 2dcc 8e65 |- e|
00e0 c82c 4c4e | ,LN|
00e2 4cae cd2c |L ,|
00e4 2e8d 2ded |. - |
00e6 ce65 c8ce | e |
00e8 ad8d 8be8 | |
00ea 4c2c 6d6e |L,mn|
00ec ae00 0000 | |
00ee 0800 0000 | |
00f0 0464 286d | d(m|
00f2 edad ac2d | -|
00f4 cc8e 65c8 | e |
00f6 2c4c 4e4c |,LNL|
00f8 aecd 2c2e | ,.|
00fa 8d2d edce | - |
00fc 65c8 cead |e |
00fe 8d8b e84c | L|
0100 2c6d 6eae |,mn |
0102 0000 0000 | |
0104 0000 2dae | - |
0106 6001 0280 |` |
0108 0000 0000 | | .BLANK 0000[0x5]
010d 05c0 0000 | | .XXX[0x29]
010f 01c2 1436 | 6|
0111 f6d6 d616 | |
0113 e647 32e4 | G2 |
0115 1626 2726 | &'&|
0117 5766 9617 |Wf |
0119 4696 f6e7 |F |
011b 32e4 8656 |2 V|
011d c700 0000 | |
011f 05c0 0000 | |
0121 01c2 1436 | 6|
0123 f6d6 d616 | |
0125 e647 32e4 | G2 |
0127 1626 2726 | &'&|
0129 5766 9617 |Wf |
012b 4696 f6e7 |F |
012d 32e4 8656 |2 V|
012f c700 0000 | |
0131 0000 0017 | |
0133 0bc0 008b | |
0135 3000 |0 |
0136 0000 0000 | | .BLANK 0000[0x5]
013b 8000 0000 | | .XXX[0x29]
013d e90a 1b7b | {|
013f 6b6b 0b73 |kk s|
0141 2399 720b |# r |
0143 1313 932b | +|
0145 b34b 0ba3 | K |
0147 4b7b 7399 |K{s |
0149 724b 7383 |rKs |
014b aba0 0000 | |
014d 0080 0000 | |
014f 00e9 0a1b | |
0151 7b6b 6b0b |{kk |
0153 7323 9972 |s# r|
0155 0b13 1393 | |
0157 2bb3 4b0b |+ K |
0159 a34b 7b73 | K{s|
015b 9972 4b73 | rKs|
015d 83ab a000 | |
015f 0000 0000 | |
0161 0b9c a800 | |
0163 4a90 |J |
0164 0000 0000 | | .BLANK 0000[0x5]
0169 0114 0000 | | .XXX[0x2c]
016b 007c 850d | | |
016d bdb5 b585 | |
016f b991 ccb9 | |
0171 0589 89c9 | |
0173 95d9 a585 | |
0175 d1a5 bdb9 | |
0177 ccb9 25b9 | % |
0179 cdd1 85b1 | |
017b b000 0001 | |
017d 1400 0000 | |
017f 7c85 0dbd || |
0181 b5b5 85b9 | |
0183 91cc b905 | |
0185 8989 c995 | |
0187 d9a5 85d1 | |
0189 a5bd b9cc | |
018b b925 b9cd | % |
018d d185 b1b0 | |
018f 0000 0000 | |
0191 0005 d9f8 | |
0193 0027 c400 | ' |
0195 0000 0000 | | .BLANK 0000[0x5]
019a 2000 0000 | | .XXX[0x29]
019c 3a42 86de |:B |
019e dada c2dc | |
01a0 c8e6 5c82 | \ |
01a2 c4c4 e4ca | |
01a4 ecd2 c2e8 | |
01a6 d2de dce6 | |
01a8 5c98 cac8 |\ |
01aa d2e8 0000 | |
01ac 0020 0000 | |
01ae 003a 4286 | :B |
01b0 deda dac2 | |
01b2 dcc8 e65c | \|
01b4 82c4 c4e4 | |
01b6 caec d2c2 | |
01b8 e8d2 dedc | |
01ba e65c 98ca | \ |
01bc c8d2 e800 | |
01be 0000 0000 | |
01c0 02f3 0e00 | |
01c2 1520 | |
01c3 0000 0000 | | .BLANK 0000[0x5]
01c8 0046 0000 | F | .XXX[0x38]
01ca 001c 2143 | !C|
01cc 6f6d 6d61 |omma|
01ce 6e64 732e |nds.|
01d0 4162 6272 |Abbr|
01d2 6576 6961 |evia|
01d4 7469 6f6e |tion|
01d6 732e 4c69 |s.Li|
01d8 7374 0000 |st |
01da 0046 0000 | F |
01dc 001c 2143 | !C|
01de 6f6d 6d61 |omma|
01e0 6e64 732e |nds.|
01e2 4162 6272 |Abbr|
01e4 6576 6961 |evia|
01e6 7469 6f6e |tion|
01e8 732e 4c69 |s.Li|
01ea 7374 0000 |st |
01ec 0000 0001 | |
01ee 7c70 000b ||p |
01f0 2f00 0000 |/ |
01f2 0005 c595 | |
01f4 8e80 0000 | |
01f6 4000 0000 |@ |
01f8 0f10 a1b7 | |
01fa b6b6 b0b7 | |
01fc 3239 9720 |29 |
01fe b131 3932 | 192|