|
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 0130 | 0 | .CONST 0x0130 ; 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 001e | | .CONST 0x001e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0012 | | .CONST 0x0012 ; 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 03d8 | | Declare_Variable Float,Duplicate
0015 03d8 | | Declare_Variable Float,Duplicate
0016 00e2 | | Load_Encached Integer_Cache
0017 03e9 | | Declare_Variable Discrete,Duplicate
0018 03e9 | | Declare_Variable Discrete,Duplicate
0019 e22f | / | Load 0x1,0x2f
001a 0007 | | Action Break_Optional
001b 00e1 | | Load_Encached Boolean_Cache
001c e20e | | Load 0x1,0xe
001d 0007 | | Action Break_Optional
001e BODY_0008:
001e e5ff | | Load 0x2,-0x1
001f c402 | | Store 0x2,0x2
0020 4800 |H | Short_Literal 0x0
0021 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0022 e402 | | Load 0x2,0x2
0023 014b | K | Execute Float,Less_Zero
0024 6805 |h | Jump_Zero 0x2a
0025 e402 | | Load 0x2,0x2
0026 023f | ? | Execute Float,Unary_Minus
0027 c402 | | Store 0x2,0x2
0028 4801 |H | Short_Literal 0x1
0029 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
002a e402 | | Load 0x2,0x2
002b 58fc |X | Indirect_Literal Float,0x128,0.6366197723675813
002c 023b | ; | Execute Float,Times
002d e20e | | Load 0x1,0xe
002e 0232 | 2 | Execute Float,Check_In_Type
002f e008 | | Load 0x0,0x8
0030 e230 | 0 | Load 0x1,0x30
0031 0096 | | Execute Package,Entry
0032 c408 | | Store 0x2,0x8
0033 e408 | | Load 0x2,0x8
0034 58ef |X | Indirect_Literal Float,0x124,0.0625
0035 023b | ; | Execute Float,Times
0036 c409 | | Store 0x2,0x9
0037 e409 | | Load 0x2,0x9
0038 e20e | | Load 0x1,0xe
0039 0232 | 2 | Execute Float,Check_In_Type
003a e009 | | Load 0x0,0x9
003b e230 | 0 | Load 0x1,0x30
003c 0096 | | Execute Package,Entry
003d c409 | | Store 0x2,0x9
003e e408 | | Load 0x2,0x8
003f 58e0 |X | Indirect_Literal Float,0x120,16.0
0040 e409 | | Load 0x2,0x9
0041 023b | ; | Execute Float,Times
0042 023c | < | Execute Float,Minus
0043 c409 | | Store 0x2,0x9
0044 e409 | | Load 0x2,0x9
0045 0235 | 5 | Execute Float,Round_To_Discrete
0046 00e2 | | Load_Encached Integer_Cache
0047 025e | ^ | Execute Discrete,Convert
0048 4803 |H | Short_Literal 0x3
0049 0279 | y | Execute Discrete,And
004a 00d8 | | Load_Top At_Offset_0
004b e22f | / | Load 0x1,0x2f
004c 0260 | ` | Execute Discrete,In_Type
004d 7001 |p | Jump_Nonzero 0x4f
004e 0801 | | Execute_Immediate Raise,0x1
004f a5fc | | Store_Unchecked 0x2,-0x4
0050 e408 | | Load 0x2,0x8
0051 7007 |p | Jump_Nonzero 0x59
0052 e5ff | | Load 0x2,-0x1
0053 c5fe | | Store 0x2,-0x2
0054 58c7 |X | Indirect_Literal Float,0x11c,0.0
0055 c5fd | | Store 0x2,-0x3
0056 4800 |H | Short_Literal 0x0
0057 a5fc | | Store_Unchecked 0x2,-0x4
0058 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0059 4801 |H | Short_Literal 0x1
005a a40d | | Store_Unchecked 0x2,0xd
005b e408 | | Load 0x2,0x8
005c e40d | | Load 0x2,0xd
005d e238 | 8 | Load 0x1,0x38
005e 01d7 | | Execute Vector,Field_Read
005f 023b | ; | Execute Float,Times
0060 c40a | | Store 0x2,0xa
0061 e40a | | Load 0x2,0xa
0062 00d8 | | Load_Top At_Offset_0
0063 023d | = | Execute Float,Plus
0064 c40b | | Store 0x2,0xb
0065 e40a | | Load 0x2,0xa
0066 58b1 |X | Indirect_Literal Float,0x118,0.5
0067 023b | ; | Execute Float,Times
0068 c40c | | Store 0x2,0xc
0069 00cf | | Action Mark_Auxiliary
006a 7821 |x! | Jump 0x8c
006b e40a | | Load 0x2,0xa
006c e402 | | Load 0x2,0x2
006d 0245 | E | Execute Float,Greater
006e 6807 |h | Jump_Zero 0x76
006f e402 | | Load 0x2,0x2
0070 e40c | | Load 0x2,0xc
0071 023c | < | Execute Float,Minus
0072 e40c | | Load 0x2,0xc
0073 023c | < | Execute Float,Minus
0074 c402 | | Store 0x2,0x2
0075 7804 |x | Jump 0x7a
0076 e402 | | Load 0x2,0x2
0077 e40a | | Load 0x2,0xa
0078 023c | < | Execute Float,Minus
0079 c402 | | Store 0x2,0x2
007a e40d | | Load 0x2,0xd
007b 0a01 | | Execute_Immediate Plus,0x1
007c c40d | | Store 0x2,0xd
007d e408 | | Load 0x2,0x8
007e e40d | | Load 0x2,0xd
007f e238 | 8 | Load 0x1,0x38
0080 01d7 | | Execute Vector,Field_Read
0081 023b | ; | Execute Float,Times
0082 c40a | | Store 0x2,0xa
0083 e40a | | Load 0x2,0xa
0084 00d8 | | Load_Top At_Offset_0
0085 023d | = | Execute Float,Plus
0086 c40b | | Store 0x2,0xb
0087 e40a | | Load 0x2,0xa
0088 588f |X | Indirect_Literal Float,0x118,0.5
0089 023b | ; | Execute Float,Times
008a c40c | | Store 0x2,0xc
008b 00c9 | | Action Pop_Auxiliary_Loop
008c e402 | | Load 0x2,0x2
008d e40c | | Load 0x2,0xc
008e 0243 | C | Execute Float,Greater_Equal
008f e402 | | Load 0x2,0x2
0090 e40b | | Load 0x2,0xb
0091 0242 | B | Execute Float,Less_Equal
0092 0279 | y | Execute Discrete,And
0093 e40d | | Load 0x2,0xd
0094 e234 | 4 | Load 0x1,0x34
0095 0afe | | Execute_Immediate Plus,-0x2
0096 027a | z | Execute Discrete,Less_Equal
0097 0279 | y | Execute Discrete,And
0098 77d2 |w | Jump_Nonzero 0x6b
0099 00ce | | Action Pop_Auxiliary
009a e408 | | Load 0x2,0x8
009b e40d | | Load 0x2,0xd
009c e238 | 8 | Load 0x1,0x38
009d 01d7 | | Execute Vector,Field_Read
009e 023b | ; | Execute Float,Times
009f 023f | ? | Execute Float,Unary_Minus
00a0 c40a | | Store 0x2,0xa
00a1 e402 | | Load 0x2,0x2
00a2 e40a | | Load 0x2,0xa
00a3 023d | = | Execute Float,Plus
00a4 c403 | | Store 0x2,0x3
00a5 e402 | | Load 0x2,0x2
00a6 014b | K | Execute Float,Less_Zero
00a7 6803 |h | Jump_Zero 0xab
00a8 4801 |H | Short_Literal 0x1
00a9 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
00aa 7802 |x | Jump 0xad
00ab 4800 |H | Short_Literal 0x0
00ac 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
00ad e402 | | Load 0x2,0x2
00ae 023e | > | Execute Float,Absolute_Value
00af e40a | | Load 0x2,0xa
00b0 023e | > | Execute Float,Absolute_Value
00b1 0244 | D | Execute Float,Less
00b2 6806 |h | Jump_Zero 0xb9
00b3 e402 | | Load 0x2,0x2
00b4 c406 | | Store 0x2,0x6
00b5 e40a | | Load 0x2,0xa
00b6 c402 | | Store 0x2,0x2
00b7 e406 | | Load 0x2,0x6
00b8 c40a | | Store 0x2,0xa
00b9 5862 |Xb | Indirect_Literal Float,0x11c,0.0
00ba c407 | | Store 0x2,0x7
00bb 00d9 | | Load_Top At_Offset_1
00bc 6808 |h | Jump_Zero 0xc5
00bd 5856 |XV | Indirect_Literal Float,0x114,0.45999999999999996
00be e403 | | Load 0x2,0x3
00bf 023b | ; | Execute Float,Times
00c0 e403 | | Load 0x2,0x3
00c1 023c | < | Execute Float,Minus
00c2 e403 | | Load 0x2,0x3
00c3 023d | = | Execute Float,Plus
00c4 c407 | | Store 0x2,0x7
00c5 e402 | | Load 0x2,0x2
00c6 e407 | | Load 0x2,0x7
00c7 023c | < | Execute Float,Minus
00c8 e403 | | Load 0x2,0x3
00c9 e407 | | Load 0x2,0x7
00ca 023c | < | Execute Float,Minus
00cb 023c | < | Execute Float,Minus
00cc e40a | | Load 0x2,0xa
00cd 023d | = | Execute Float,Plus
00ce c404 | | Store 0x2,0x4
00cf e40d | | Load 0x2,0xd
00d0 0a01 | | Execute_Immediate Plus,0x1
00d1 c40d | | Store 0x2,0xd
00d2 e20e | | Load 0x1,0xe
00d3 0122 | " | Execute Any,Make_Root_Type
00d4 1c01 | | Execute_Immediate Run_Utility,0x1
00d5 0903 | | Execute_Immediate Binary_Scale,0x3
00d6 e233 | 3 | Load 0x1,0x33
00d7 0272 | r | Execute Discrete,Minus
00d8 c40e | | Store 0x2,0xe
00d9 e40e | | Load 0x2,0xe
00da e233 | 3 | Load 0x1,0x33
00db 0270 | p | Execute Discrete,Divide
00dc 0a01 | | Execute_Immediate Plus,0x1
00dd c40f | | Store 0x2,0xf
00de 583d |X= | Indirect_Literal Float,0x11c,0.0
00df c405 | | Store 0x2,0x5
00e0 e40d | | Load 0x2,0xd
00e1 e40f | | Load 0x2,0xf
00e2 0273 | s | Execute Discrete,Plus
00e3 e234 | 4 | Load 0x1,0x34
00e4 027d | } | Execute Discrete,Greater
00e5 6804 |h | Jump_Zero 0xea
00e6 e234 | 4 | Load 0x1,0x34
00e7 e40d | | Load 0x2,0xd
00e8 0272 | r | Execute Discrete,Minus
00e9 c40f | | Store 0x2,0xf
00ea 00cf | | Action Mark_Auxiliary
00eb e40d | | Load 0x2,0xd
00ec 00d8 | | Load_Top At_Offset_0
00ed e40f | | Load 0x2,0xf
00ee 0273 | s | Execute Discrete,Plus
00ef 00d8 | | Load_Top At_Offset_0
00f0 00e2 | | Load_Encached Integer_Cache
00f1 0260 | ` | Execute Discrete,In_Type
00f2 7001 |p | Jump_Nonzero 0xf4
00f3 0801 | | Execute_Immediate Raise,0x1
00f4 0264 | d | Execute Discrete,Below_Bound
00f5 7008 |p | Jump_Nonzero 0xfe
00f6 e405 | | Load 0x2,0x5
00f7 00d9 | | Load_Top At_Offset_1
00f8 e238 | 8 | Load 0x1,0x38
00f9 01d7 | | Execute Vector,Field_Read
00fa 023d | = | Execute Float,Plus
00fb c405 | | Store 0x2,0x5
00fc 00c8 | | Action Pop_Auxiliary_Range
00fd 37f8 |7 | Loop_Decreasing 0xf6
00fe 00ce | | Action Pop_Auxiliary
00ff e404 | | Load 0x2,0x4
0100 e408 | | Load 0x2,0x8
0101 e405 | | Load 0x2,0x5
0102 023b | ; | Execute Float,Times
0103 023c | < | Execute Float,Minus
0104 c404 | | Store 0x2,0x4
0105 e403 | | Load 0x2,0x3
0106 0049 | I | Store_Top Float,At_Offset_1
0107 e403 | | Load 0x2,0x3
0108 e407 | | Load 0x2,0x7
0109 023c | < | Execute Float,Minus
010a 00d9 | | Load_Top At_Offset_1
010b e407 | | Load 0x2,0x7
010c 023c | < | Execute Float,Minus
010d 023c | < | Execute Float,Minus
010e e404 | | Load 0x2,0x4
010f 023d | = | Execute Float,Plus
0110 c5fd | | Store 0x2,-0x3
0111 00d8 | | Load_Top At_Offset_0
0112 c5fe | | Store 0x2,-0x2
0113 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0114 3fdd 70a3 |? p | .DBL 0.45999999999999996
0116 d70a 3d70 | =p|
0118 3fe0 0000 |? | .DBL 0.5
011a 0000 0000 | |
011c 0000 0000 | | .DBL 0.0
011e 0000 0000 | |
0120 4030 0000 |@0 | .DBL 16.0
0122 0000 0000 | |
0124 3fb0 0000 |? | .DBL 0.0625
0126 0000 0000 | |
0128 3fe4 5f30 |? _0| .DBL 0.6366197723675813
012a 6dc9 c882 |m |
012c 0000 0000 | | .BLANK 0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; Debug Table
0130 ; --------------------------------------------------------------------------------------
0130 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f38,0x0000,0x0001,0x0000
0136 0101 03e0 | | .XXX[0x6]
0138 0000 0018 | |
013a 0000 0231 | 1|
013c 0101 0101 | | .BLANK 0101[0x5]
0141 0103 e101 | | .XXX[0x2]
0143 0101 0101 | | .BLANK 0101[0x6]
0149 0103 e313 | | .XXX[0x10]
014b 2903 4b73 |) Ks|
014d 1b63 ab23 | c #|
014f 2b21 034b |+! K|
0151 7103 a343 |q C|
0153 2903 637b |) c{|
0155 3903 334b |9 3K|
0157 6329 7101 |c)q |
0159 0101 0101 | | .BLANK 0101[0x5]
015e 03e0 0000 | | .XXX[0x5]
0160 02b8 0000 | |
0162 01c9 | |
0163 6969 6969 |iiii| .BLANK 6969[0x1c]
017f 0000 0002 | | .XXX[0x5]
0181 5000 0002 |P |
0183 3101 |1 |
0184 0101 0101 | | .BLANK 0101[0x6]
018a 6969 6969 |iiii| .BLANK 6969[0x1c]
01a6 0000 0002 | | .XXX[0x5]
01a8 5000 0002 |P |
01aa 3101 |1 |
01ab 0101 0101 | | .BLANK 0101[0x6]
01b1 6969 6969 |iiii| .BLANK 6969[0x1c]
01cd 0000 0000 | | .XXX[0x3]
01cf 0800 | |
01d0 0000 0000 | | .BLANK 0000[0x5]
01d5 8800 0000 | | .XXX[0x7]
01d7 0000 0000 | |
01d9 8000 0000 | |
01db 0800 | |
01dc 0000 0000 | | .BLANK 0000[0x5]
01e1 9000 0000 | | .XXX[0x1f]
01e3 0000 0000 | |
01e5 8800 0000 | |
01e7 a000 0002 | |
01e9 1a9b ab83 | |
01eb 837b 9b29 | { )|
01ed 03a3 430b | C |
01ef a103 cb7b | {|
01f1 a903 bb0b | |
01f3 73a1 03a3 |s |
01f5 7903 1b7b |y {|
01f7 83c9 037b | {|
01f9 7363 c903 |sc |
01fb 0b73 c903 | s |
01fd 732b 3b0b |s+; |
01ff a34b | K |