|
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 8000 | | .CONST 0x8000 ; 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 e00a | | Load 0x0,0xa
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 0014 | | .DEBUG4 0x0004,0x0014,0x8f34,0x0000,0x0001,0x0000
00e6 9903 337b | 3{| .XXX[0x10d]
00e8 9103 a343 | C|
00ea 0ba1 039b | |
00ec 2b9b 9b4b |+ K|
00ee 7b71 7102 |{qq |
00f0 9b2b a3a3 | + |
00f2 4b73 3903 |Ks9 |
00f4 a343 2b9b | C+ |
00f6 2903 9bbb |) |
00f8 4ba3 1b43 |K C|
00fa 2b99 039b |+ |
00fc 2ba3 9903 |+ |
00fe a343 2903 | C) |
0100 9b2b 9b9b | + |
0102 4b7b 7000 |K{p |
0104 0001 2000 | |
0106 0002 3101 | 1 |
0108 0101 039b | |
010a bb4b a31b | K |
010c 432b 9903 |C+ |
010e 337b 9103 |3{ |
0110 a343 0ba1 | C |
0112 039b 2b9b | + |
0114 9b4b 7b71 | K{q|
0116 7102 9b2b |q +|
0118 a3a3 4b73 | Ks|
011a 3903 a343 |9 C|
011c 2b9b 2903 |+ ) |
011e 9bbb 4ba3 | K |
0120 1b43 2b99 | C+ |
0122 039b 2ba3 | + |
0124 9903 a343 | C|
0126 2903 9b2b |) +|
0128 9b9b 4b7b | K{|
012a 7000 0001 |p |
012c 2000 0002 | |
012e 3101 0101 |1 |
0130 039b bb4b | K|
0132 a31b 432b | C+|
0134 9903 337b | 3{|
0136 9103 a343 | C|
0138 0ba1 039b | |
013a 2b9b 9b4b |+ K|
013c 7b71 7102 |{qq |
013e 9b2b a3a3 | + |
0140 4b73 3903 |Ks9 |
0142 a343 2b9b | C+ |
0144 2903 9bbb |) |
0146 4ba3 1b43 |K C|
0148 2b99 039b |+ |
014a 2ba3 9903 |+ |
014c a343 2903 | C) |
014e 9b2b 9b9b | + |
0150 4b7b 7000 |K{p |
0152 0003 7800 | x |
0154 0001 d393 | |
0156 2b9b 837b |+ {|
0158 739b 2903 |s ) |
015a 8393 7b33 | {3|
015c 4b63 2903 |Kc) |
015e 337b 9103 |3{ |
0160 a343 2903 | C) |
0162 1bab 9393 | |
0164 2b73 a103 |+s |
0166 9b2b 9b9b | + |
0168 4b7b 7101 |K{q |
016a 439b 2b29 |C +)|
016c 0112 232b | #+|
016e 330b ab63 |3 c|
0170 a102 637b | c{|
0172 3800 0003 |8 |
0174 5800 0001 |X |
0176 f101 0101 | |
0178 0393 2b9b | + |
017a 837b 739b | {s |
017c 2903 8393 |) |
017e 7b33 4b63 |{3Kc|
0180 2903 337b |) 3{|
0182 9103 a343 | C|
0184 2903 1bab |) |
0186 9393 2b73 | +s|
0188 a103 9b2b | +|
018a 9b9b 4b7b | K{|
018c 7101 439b |q C |
018e 2b29 0112 |+) |
0190 232b 330b |#+3 |
0192 ab63 a102 | c |
0194 637b 3800 |c{8 |
0196 0003 5800 | X |
0198 0001 f101 | |
019a 0101 0393 | |
019c 2b9b 837b |+ {|
019e 739b 2903 |s ) |
01a0 8393 7b33 | {3|
01a2 4b63 2903 |Kc) |
01a4 337b 9103 |3{ |
01a6 a343 2903 | C) |
01a8 1bab 9393 | |
01aa 2b73 a103 |+s |
01ac 9b2b 9b9b | + |
01ae 4b7b 7101 |K{q |
01b0 439b 2b29 |C +)|
01b2 0112 232b | #+|
01b4 330b ab63 |3 c|
01b6 a102 637b | c{|
01b8 3800 0001 |8 |
01ba 7000 0000 |p |
01bc da1b 430b | C |
01be 930b 1ba3 | |
01c0 2b93 4b9b |+ K |
01c2 a34b 1b99 | K |
01c4 6111 0383 |a |
01c6 0b3b 2903 | ;) |
01c8 7371 4970 |sqIp|
01ca 0000 0150 | P|
01cc 0000 00f9 | |
01ce 0101 0102 | |
01d0 1b43 0b93 | C |
01d2 0b1b a32b | +|
01d4 934b 9ba3 | K |
01d6 4b1b 9961 |K a|
01d8 1103 830b | |
01da 3b29 0373 |;) s|
01dc 7149 7000 |qIp |
01de 0001 5000 | P |
01e0 0000 f901 | |
01e2 0101 021b | |
01e4 430b 930b |C |
01e6 1ba3 2b93 | + |
01e8 4b9b a34b |K K|
01ea 1b99 6111 | a |
01ec 0383 0b3b | ;|
01ee 2903 7371 |) sq|
01f0 4970 0000 |Ip |
01f2 0008 | |
01f3 0000 0000 | | .BLANK 0000[0x5]
01f8 0250 0000 | P | .XXX[0x8]
01fa 0000 0000 | |
01fc 0248 0000 | H |
01fe 0260 0000 | ` |