|
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 00e0 | | .CONST 0x00e0 ; 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 001b | | .CONST 0x001b ; 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 03d8 | | Declare_Variable Float,Duplicate
0013 e22c | , | Load 0x1,0x2c
0014 03e9 | | Declare_Variable Discrete,Duplicate
0015 58c2 |X | Indirect_Literal Float,0xd8,0.693115234375
0016 e20e | | Load 0x1,0xe
0017 02bf | | Declare_Variable Float,With_Value,With_Constraint
0018 58bb |X | Indirect_Literal Float,0xd4,3.1946184945309415e-05
0019 e20e | | Load 0x1,0xe
001a 02bf | | Declare_Variable Float,With_Value,With_Constraint
001b BODY_0008:
001b e5ff | | Load 0x2,-0x1
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 c402 | | Store 0x2,0x2
0022 e402 | | Load 0x2,0x2
0023 58ac |X | Indirect_Literal Float,0xd0,0.9394121170043945
0024 0243 | C | Execute Float,Greater_Equal
0025 e402 | | Load 0x2,0x2
0026 58a5 |X | Indirect_Literal Float,0xcc,1.0644950866699219
0027 0242 | B | Execute Float,Less_Equal
0028 0279 | y | Execute Discrete,And
0029 681b |h | Jump_Zero 0x45
002a e402 | | Load 0x2,0x2
002b 589c |X | Indirect_Literal Float,0xc8,1.0
002c 0243 | C | Execute Float,Greater_Equal
002d 6805 |h | Jump_Zero 0x33
002e e402 | | Load 0x2,0x2
002f 5898 |X | Indirect_Literal Float,0xc8,1.0
0030 023c | < | Execute Float,Minus
0031 c402 | | Store 0x2,0x2
0032 7808 |x | Jump 0x3b
0033 e402 | | Load 0x2,0x2
0034 588f |X | Indirect_Literal Float,0xc4,0.5
0035 023c | < | Execute Float,Minus
0036 c402 | | Store 0x2,0x2
0037 e402 | | Load 0x2,0x2
0038 588b |X | Indirect_Literal Float,0xc4,0.5
0039 023c | < | Execute Float,Minus
003a c402 | | Store 0x2,0x2
003b 5884 |X | Indirect_Literal Float,0xc0,0.0
003c c5fe | | Store 0x2,-0x2
003d e402 | | Load 0x2,0x2
003e e20e | | Load 0x1,0xe
003f 0232 | 2 | Execute Float,Check_In_Type
0040 8249 | I | Call 0x1,0x49
0041 c5fd | | Store 0x2,-0x3
0042 587d |X} | Indirect_Literal Float,0xc0,0.0
0043 c5fc | | Store 0x2,-0x4
0044 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0045 e230 | 0 | Load 0x1,0x30
0046 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0047 e230 | 0 | Load 0x1,0x30
0048 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0049 e402 | | Load 0x2,0x2
004a e20e | | Load 0x1,0xe
004b 0232 | 2 | Execute Float,Check_In_Type
004c e009 | | Load 0x0,0x9
004d e230 | 0 | Load 0x1,0x30
004e 0096 | | Execute Package,Entry
004f c403 | | Store 0x2,0x3
0050 005b | [ | Store_Top Discrete,At_Offset_3
0051 00da | | Load_Top At_Offset_2
0052 0237 | 7 | Execute Float,Convert_From_Discrete
0053 e20e | | Load 0x1,0xe
0054 0238 | 8 | Execute Float,Convert
0055 c407 | | Store 0x2,0x7
0056 780f |x | Jump 0x66
0057 e403 00d8 | | .XXX[0xf]
0059 023d c403 | = |
005b e407 586b | Xk|
005d 023c c407 | < |
005f 00c9 e403 | |
0061 5862 0244 |Xb D|
0063 77f3 00ce |w |
0065 7800 |x |
0066 5851 |XQ | Indirect_Literal Float,0xb8,128.0
0067 e403 | | Load 0x2,0x3
0068 023b | ; | Execute Float,Times
0069 0235 | 5 | Execute Float,Round_To_Discrete
006a e22c | , | Load 0x1,0x2c
006b 025e | ^ | Execute Discrete,Convert
006c a40a | | Store_Unchecked 0x2,0xa
006d 00db | | Load_Top At_Offset_3
006e 0237 | 7 | Execute Float,Convert_From_Discrete
006f e20e | | Load 0x1,0xe
0070 0238 | 8 | Execute Float,Convert
0071 5842 |XB | Indirect_Literal Float,0xb4,0.0078125
0072 023b | ; | Execute Float,Times
0073 c404 | | Store 0x2,0x4
0074 e403 | | Load 0x2,0x3
0075 e404 | | Load 0x2,0x4
0076 0243 | C | Execute Float,Greater_Equal
0077 6805 |h | Jump_Zero 0x7d
0078 e403 | | Load 0x2,0x3
0079 e404 | | Load 0x2,0x4
007a 023c | < | Execute Float,Minus
007b c408 | | Store 0x2,0x8
007c 780a |x | Jump 0x87
007d e404 | | Load 0x2,0x4
007e 5845 |XE | Indirect_Literal Float,0xc4,0.5
007f 023b | ; | Execute Float,Times
0080 c405 | | Store 0x2,0x5
0081 e403 | | Load 0x2,0x3
0082 e405 | | Load 0x2,0x5
0083 023c | < | Execute Float,Minus
0084 e405 | | Load 0x2,0x5
0085 023c | < | Execute Float,Minus
0086 c408 | | Store 0x2,0x8
0087 e404 | | Load 0x2,0x4
0088 00d8 | | Load_Top At_Offset_0
0089 023d | = | Execute Float,Plus
008a c404 | | Store 0x2,0x4
008b e408 | | Load 0x2,0x8
008c 00d8 | | Load_Top At_Offset_0
008d 023d | = | Execute Float,Plus
008e c405 | | Store 0x2,0x5
008f e407 | | Load 0x2,0x7
0090 5837 |X7 | Indirect_Literal Float,0xc8,1.0
0091 023c | < | Execute Float,Minus
0092 c407 | | Store 0x2,0x7
0093 e405 | | Load 0x2,0x5
0094 e404 | | Load 0x2,0x4
0095 e408 | | Load 0x2,0x8
0096 023d | = | Execute Float,Plus
0097 023a | : | Execute Float,Divide
0098 c406 | | Store 0x2,0x6
0099 e406 | | Load 0x2,0x6
009a e20e | | Load 0x1,0xe
009b 0232 | 2 | Execute Float,Check_In_Type
009c 824a | J | Call 0x1,0x4a
009d c409 | | Store 0x2,0x9
009e e407 | | Load 0x2,0x7
009f c5fe | | Store 0x2,-0x2
00a0 4800 |H | Short_Literal 0x0
00a1 e40a | | Load 0x2,0xa
00a2 e244 | D | Load 0x1,0x44
00a3 01a7 | | Execute Matrix,Field_Read
00a4 c5fd | | Store 0x2,-0x3
00a5 e406 | | Load 0x2,0x6
00a6 4801 |H | Short_Literal 0x1
00a7 e40a | | Load 0x2,0xa
00a8 e244 | D | Load 0x1,0x44
00a9 01a7 | | Execute Matrix,Field_Read
00aa e406 | | Load 0x2,0x6
00ab e409 | | Load 0x2,0x9
00ac 023b | ; | Execute Float,Times
00ad 023d | = | Execute Float,Plus
00ae 023d | = | Execute Float,Plus
00af c5fc | | Store 0x2,-0x4
00b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b1 0000 0000 | | .XXX[0x3]
00b3 0000 | |
00b4 3f80 0000 |? | .DBL 0.0078125
00b6 0000 0000 | |
00b8 4060 0000 |@` | .DBL 128.0
00ba 0000 0000 | |
00bc 4010 0000 |@ | .XXX[0x4]
00be 0000 0000 | |
00c0 0000 0000 | | .DBL 0.0
00c2 0000 0000 | |
00c4 3fe0 0000 |? | .DBL 0.5
00c6 0000 0000 | |
00c8 3ff0 0000 |? | .DBL 1.0
00ca 0000 0000 | |
00cc 3ff1 082c |? ,| .DBL 1.0644950866699219
00ce 0000 0000 | |
00d0 3fee 0faa |? | .DBL 0.9394121170043945
00d2 0000 0000 | |
00d4 3f00 bfbe |? | .DBL 3.1946184945309415e-05
00d6 8e7b cd5e | { ^|
00d8 3fe6 2e00 |? . | .DBL 0.693115234375
00da 0000 0000 | |
00dc 0000 0000 | | .BLANK 0000[0x4]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; Debug Table
00e0 ; --------------------------------------------------------------------------------------
00e0 0004 0001 | | .DEBUG4 0x0004,0x0001,0xf28b,0x0000,0x0001,0x0001
00e6 000b 00ea | | .DBG4T 0x000b,0x00ea,0x1001,0xc000
00ea ; --------------------------------------------------------------------------------------
00ea ; Debug chain
00ea ; --------------------------------------------------------------------------------------
00ea 0004 0021 | !| .DBGLEN 0x0004,0x0021
00ec 000b 0013 | | .DBGLNO 0x000b,0x0013,0x0015,0x0018,0x001b,0x001e,0x0020,0x0022,0x002a,0x002e,0x0033,0x0037,0x003b,0x003d,0x0042,0x0044,0x0045,0x0051,0x0056,0x0057,0x005b,0x0060,0x0066,0x006d,0x0074,0x0078,0x007d,0x0081,0x0087,0x008b,0x008f,0x0093,0x0099,0x009e,0x00a0,0x00a5,0x00b0
0111 0001 0002 | | .XXX[0x25]
0113 0005 0006 | |
0115 0001 0002 | |
0117 0003 0004 | |
0119 0005 0006 | |
011b 0007 0008 | |
011d 0009 000a | |
011f 000b 000c | |
0121 000d 000e | |
0123 000f 0012 | |
0125 0013 0011 | |
0127 0016 0017 | |
0129 0018 0019 | |
012b 001a 001b | |
012d 001c 001d | |
012f 001e 001f | |
0131 0020 0021 | !|
0133 0022 0023 | " #|
0135 0024 | $ |
0136 0000 0000 | | .BLANK 0000[0xca]