|
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: 2048 (0x800)
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 02f0 | | .CONST 0x02f0 ; 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 001b | | .CONST 0x001b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000b | | .CONST 0x000b ; 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 029f 005b | [| Declare_Subprogram INIT_0058,For_Call
0011 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call
0013 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
0015 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call
0017 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call
0019 029f 021b | | Declare_Subprogram INIT_0218,For_Call
001b BODY_0008:
001b e5ff | | Load 0x2,-0x1
001c c402 | | Store 0x2,0x2
001d e5fe | | Load 0x2,-0x2
001e c403 | | Store 0x2,0x3
001f e402 | | Load 0x2,0x2
0020 e403 | | Load 0x2,0x3
0021 023d | = | Execute Float,Plus
0022 c404 | | Store 0x2,0x4
0023 e404 | | Load 0x2,0x4
0024 00d8 | | Load_Top At_Offset_0
0025 023b | ; | Execute Float,Times
0026 c404 | | Store 0x2,0x4
0027 e20e | | Load 0x1,0xe
0028 0122 | " | Execute Any,Make_Root_Type
0029 1c01 | | Execute_Immediate Run_Utility,0x1
002a 00d8 | | Load_Top At_Offset_0
002b 0d01 | | Execute_Immediate Less,0x1
002c 7013 |p | Jump_Nonzero 0x40
002d 00d8 | | Load_Top At_Offset_0
002e 0c13 | | Execute_Immediate Greater_Equal,0x13
002f 700a |p | Jump_Nonzero 0x3a
0030 00d8 | | Load_Top At_Offset_0
0031 0c07 | | Execute_Immediate Greater_Equal,0x7
0032 680f |h | Jump_Zero 0x42
0033 00d8 | | Load_Top At_Offset_0
0034 0c10 | | Execute_Immediate Greater_Equal,0x10
0035 680f |h | Jump_Zero 0x45
0036 0f10 | | Execute_Immediate Equal,0x10
0037 7010 |p | Jump_Nonzero 0x48
0038 8409 | | Call 0x2,0x9
0039 7814 |x | Jump 0x4e
003a 00d8 | | Load_Top At_Offset_0
003b 0c1c | | Execute_Immediate Greater_Equal,0x1c
003c 680d |h | Jump_Zero 0x4a
003d 0c22 | " | Execute_Immediate Greater_Equal,0x22
003e 680e |h | Jump_Zero 0x4d
003f 08e2 | | Execute_Immediate Raise,0xe2
0040 00d1 | | Pop_Control Pop_Count_1
0041 7ffd | | Jump 0x3f
0042 00d1 | | Pop_Control Pop_Count_1
0043 8406 | | Call 0x2,0x6
0044 7809 |x | Jump 0x4e
0045 00d1 | | Pop_Control Pop_Count_1
0046 8407 | | Call 0x2,0x7
0047 7806 |x | Jump 0x4e
0048 8408 | | Call 0x2,0x8
0049 7804 |x | Jump 0x4e
004a 00d1 | | Pop_Control Pop_Count_1
004b 840a | | Call 0x2,0xa
004c 7801 |x | Jump 0x4e
004d 840b | | Call 0x2,0xb
004e e405 | | Load 0x2,0x5
004f e20e | | Load 0x1,0xe
0050 0232 | 2 | Execute Float,Check_In_Type
0051 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0052 0000 0000 | | .BLANK 0000[0x6]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0069 | i | .CONST 0x0069 ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0005 | | .CONST 0x0005 ; Number of locals
005b INIT_0058:
005b 00e6 | | Load_Encached Float_Cache
005c 0241 | A | Execute Float,First
005d 00e6 | | Load_Encached Float_Cache
005e 0240 | @ | Execute Float,Last
005f 00e6 | | Load_Encached Float_Cache
0060 03e3 | | Declare_Type Float,Constrained
0061 029f 0293 | | Declare_Subprogram INIT_0290,For_Call
0063 00d9 | | Load_Top At_Offset_1
0064 012a | * | Execute Any,Change_Utility
0065 0007 | | Action Break_Optional
0066 00d8 | | Load_Top At_Offset_0
0067 03d8 | | Declare_Variable Float,Duplicate
0068 03d8 | | Declare_Variable Float,Duplicate
0069 BODY_0058:
0069 e402 | | Load 0x2,0x2
006a e403 | | Load 0x2,0x3
006b 023d | = | Execute Float,Plus
006c 00d8 | | Load_Top At_Offset_0
006d e602 | | Load 0x3,0x2
006e 0234 | 4 | Execute Float,In_Type
006f 7001 |p | Jump_Nonzero 0x71
0070 0801 | | Execute_Immediate Raise,0x1
0071 0043 | C | Store_Top_Uncheched Float,At_Offset_3
0072 00da | | Load_Top At_Offset_2
0073 00db | | Load_Top At_Offset_3
0074 023b | ; | Execute Float,Times
0075 004a | J | Store_Top Float,At_Offset_2
0076 5825 |X% | Indirect_Literal Float,0x9c,0.5
0077 00da | | Load_Top At_Offset_2
0078 581f |X | Indirect_Literal Float,0x98,0.041666656729999994
0079 e604 | | Load 0x3,0x4
007a 5819 |X | Indirect_Literal Float,0x94,0.0013887773309999999
007b e604 | | Load 0x3,0x4
007c 5813 |X | Indirect_Literal Float,0x90,2.447879547e-05
007d 023b | ; | Execute Float,Times
007e 023c | < | Execute Float,Minus
007f 023b | ; | Execute Float,Times
0080 023c | < | Execute Float,Minus
0081 023b | ; | Execute Float,Times
0082 023c | < | Execute Float,Minus
0083 0049 | I | Store_Top Float,At_Offset_1
0084 5807 |X | Indirect_Literal Float,0x8c,1.0
0085 e404 | | Load 0x2,0x4
0086 00da | | Load_Top At_Offset_2
0087 023b | ; | Execute Float,Times
0088 023c | < | Execute Float,Minus
0089 c405 | | Store 0x2,0x5
008a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
008b 0000 | | .XXX[0x1]
008c 3ff0 0000 |? | .DBL 1.0
008e 0000 0000 | |
0090 3ef9 aafa |> | .DBL 2.447879547e-05
0092 040d 2bab | + |
0094 3f56 c0f4 |?V | .DBL 0.0013887773309999999
0096 4df4 e0c4 |M |
0098 3fa5 5554 |? UT| .DBL 0.041666656729999994
009a fffa 5f4b | _K|
009c 3fe0 0000 |? | .DBL 0.5
009e 0000 0000 | |
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00b1 | | .CONST 0x00b1 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0005 | | .CONST 0x0005 ; Number of locals
00a3 INIT_00a0:
00a3 00e6 | | Load_Encached Float_Cache
00a4 0241 | A | Execute Float,First
00a5 00e6 | | Load_Encached Float_Cache
00a6 0240 | @ | Execute Float,Last
00a7 00e6 | | Load_Encached Float_Cache
00a8 03e3 | | Declare_Type Float,Constrained
00a9 029f 02a3 | | Declare_Subprogram INIT_02a0,For_Call
00ab 00d9 | | Load_Top At_Offset_1
00ac 012a | * | Execute Any,Change_Utility
00ad 0007 | | Action Break_Optional
00ae 00d8 | | Load_Top At_Offset_0
00af 03d8 | | Declare_Variable Float,Duplicate
00b0 03d8 | | Declare_Variable Float,Duplicate
00b1 BODY_00a0:
00b1 e402 | | Load 0x2,0x2
00b2 e403 | | Load 0x2,0x3
00b3 023d | = | Execute Float,Plus
00b4 00d8 | | Load_Top At_Offset_0
00b5 e602 | | Load 0x3,0x2
00b6 0234 | 4 | Execute Float,In_Type
00b7 7001 |p | Jump_Nonzero 0xb9
00b8 0801 | | Execute_Immediate Raise,0x1
00b9 0043 | C | Store_Top_Uncheched Float,At_Offset_3
00ba 00da | | Load_Top At_Offset_2
00bb 00db | | Load_Top At_Offset_3
00bc 023b | ; | Execute Float,Times
00bd 004a | J | Store_Top Float,At_Offset_2
00be 5fdd |_ | Indirect_Literal Float,0x9c,0.5
00bf 00da | | Load_Top At_Offset_2
00c0 5833 |X3 | Indirect_Literal Float,0xf4,0.041666666666666595
00c1 e604 | | Load 0x3,0x4
00c2 582d |X- | Indirect_Literal Float,0xf0,0.0013888888888874448
00c3 e604 | | Load 0x3,0x4
00c4 5827 |X' | Indirect_Literal Float,0xec,2.4801587289643873e-05
00c5 e604 | | Load 0x3,0x4
00c6 5821 |X! | Indirect_Literal Float,0xe8,2.7557314390420184e-07
00c7 e604 | | Load 0x3,0x4
00c8 581b |X | Indirect_Literal Float,0xe4,2.087572754718955e-09
00c9 e604 | | Load 0x3,0x4
00ca 5815 |X | Indirect_Literal Float,0xe0,1.135983163106883e-11
00cb 023b | ; | Execute Float,Times
00cc 023c | < | Execute Float,Minus
00cd 023b | ; | Execute Float,Times
00ce 023c | < | Execute Float,Minus
00cf 023b | ; | Execute Float,Times
00d0 023c | < | Execute Float,Minus
00d1 023b | ; | Execute Float,Times
00d2 023c | < | Execute Float,Minus
00d3 023b | ; | Execute Float,Times
00d4 023c | < | Execute Float,Minus
00d5 023b | ; | Execute Float,Times
00d6 023c | < | Execute Float,Minus
00d7 0049 | I | Store_Top Float,At_Offset_1
00d8 5fb3 |_ | Indirect_Literal Float,0x8c,1.0
00d9 e404 | | Load 0x2,0x4
00da 00da | | Load_Top At_Offset_2
00db 023b | ; | Execute Float,Times
00dc 023c | < | Execute Float,Minus
00dd c405 | | Store 0x2,0x5
00de 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00df 0000 | | .XXX[0x1]
00e0 3da8 fb04 |= | .DBL 1.135983163106883e-11
00e2 45a3 3426 |E 4&|
00e4 3e21 ee9e |>! | .DBL 2.087572754718955e-09
00e6 fc2b 194c | + L|
00e8 3e92 7e4f |> ~O| .DBL 2.7557314390420184e-07
00ea 810c d161 | a|
00ec 3efa 01a0 |> | .DBL 2.4801587289643873e-05
00ee 19cb d644 | D|
00f0 3f56 c16c |?V l| .DBL 0.0013888888888874448
00f2 16c1 5213 | R |
00f4 3fa5 5555 |? UU| .DBL 0.041666666666666595
00f6 5555 554b |UUUK|
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0109 | | .CONST 0x0109 ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0005 | | .CONST 0x0005 ; Number of locals
00fb INIT_00f8:
00fb 00e6 | | Load_Encached Float_Cache
00fc 0241 | A | Execute Float,First
00fd 00e6 | | Load_Encached Float_Cache
00fe 0240 | @ | Execute Float,Last
00ff 00e6 | | Load_Encached Float_Cache
0100 03e3 | | Declare_Type Float,Constrained
0101 029f 02b3 | | Declare_Subprogram INIT_02b0,For_Call
0103 00d9 | | Load_Top At_Offset_1
0104 012a | * | Execute Any,Change_Utility
0105 0007 | | Action Break_Optional
0106 00d8 | | Load_Top At_Offset_0
0107 03d8 | | Declare_Variable Float,Duplicate
0108 03d8 | | Declare_Variable Float,Duplicate
0109 BODY_00f8:
0109 e402 | | Load 0x2,0x2
010a e403 | | Load 0x2,0x3
010b 023d | = | Execute Float,Plus
010c 00d8 | | Load_Top At_Offset_0
010d e602 | | Load 0x3,0x2
010e 0234 | 4 | Execute Float,In_Type
010f 7001 |p | Jump_Nonzero 0x111
0110 0801 | | Execute_Immediate Raise,0x1
0111 0043 | C | Store_Top_Uncheched Float,At_Offset_3
0112 00da | | Load_Top At_Offset_2
0113 00db | | Load_Top At_Offset_3
0114 023b | ; | Execute Float,Times
0115 004a | J | Store_Top Float,At_Offset_2
0116 5825 |X% | Indirect_Literal Float,0x13c,0.5
0117 00da | | Load_Top At_Offset_2
0118 5fdb |_ | Indirect_Literal Float,0xf4,0.041666666666666595
0119 e604 | | Load 0x3,0x4
011a 5fd5 |_ | Indirect_Literal Float,0xf0,0.0013888888888874448
011b e604 | | Load 0x3,0x4
011c 5fcf |_ | Indirect_Literal Float,0xec,2.4801587289643873e-05
011d e604 | | Load 0x3,0x4
011e 5fc9 |_ | Indirect_Literal Float,0xe8,2.7557314390420184e-07
011f e604 | | Load 0x3,0x4
0120 5fc3 |_ | Indirect_Literal Float,0xe4,2.087572754718955e-09
0121 e604 | | Load 0x3,0x4
0122 5fbd |_ | Indirect_Literal Float,0xe0,1.135983163106883e-11
0123 023b | ; | Execute Float,Times
0124 023c | < | Execute Float,Minus
0125 023b | ; | Execute Float,Times
0126 023c | < | Execute Float,Minus
0127 023b | ; | Execute Float,Times
0128 023c | < | Execute Float,Minus
0129 023b | ; | Execute Float,Times
012a 023c | < | Execute Float,Minus
012b 023b | ; | Execute Float,Times
012c 023c | < | Execute Float,Minus
012d 023b | ; | Execute Float,Times
012e 023c | < | Execute Float,Minus
012f 0049 | I | Store_Top Float,At_Offset_1
0130 5807 |X | Indirect_Literal Float,0x138,1.0
0131 e404 | | Load 0x2,0x4
0132 00da | | Load_Top At_Offset_2
0133 023b | ; | Execute Float,Times
0134 023c | < | Execute Float,Minus
0135 c405 | | Store 0x2,0x5
0136 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0137 0000 | | .XXX[0x1]
0138 3ff0 0000 |? | .DBL 1.0
013a 0000 0000 | |
013c 3fe0 0000 |? | .DBL 0.5
013e 0000 0000 | |
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0151 | Q | .CONST 0x0151 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0005 | | .CONST 0x0005 ; Number of locals
0143 INIT_0140:
0143 00e6 | | Load_Encached Float_Cache
0144 0241 | A | Execute Float,First
0145 00e6 | | Load_Encached Float_Cache
0146 0240 | @ | Execute Float,Last
0147 00e6 | | Load_Encached Float_Cache
0148 03e3 | | Declare_Type Float,Constrained
0149 029f 02c3 | | Declare_Subprogram INIT_02c0,For_Call
014b 00d9 | | Load_Top At_Offset_1
014c 012a | * | Execute Any,Change_Utility
014d 0007 | | Action Break_Optional
014e 00d8 | | Load_Top At_Offset_0
014f 03d8 | | Declare_Variable Float,Duplicate
0150 03d8 | | Declare_Variable Float,Duplicate
0151 BODY_0140:
0151 e402 | | Load 0x2,0x2
0152 e403 | | Load 0x2,0x3
0153 023d | = | Execute Float,Plus
0154 00d8 | | Load_Top At_Offset_0
0155 e602 | | Load 0x3,0x2
0156 0234 | 4 | Execute Float,In_Type
0157 7001 |p | Jump_Nonzero 0x159
0158 0801 | | Execute_Immediate Raise,0x1
0159 0043 | C | Store_Top_Uncheched Float,At_Offset_3
015a 00da | | Load_Top At_Offset_2
015b 00db | | Load_Top At_Offset_3
015c 023b | ; | Execute Float,Times
015d 004a | J | Store_Top Float,At_Offset_2
015e 5fdd |_ | Indirect_Literal Float,0x13c,0.5
015f 00da | | Load_Top At_Offset_2
0160 583b |X; | Indirect_Literal Float,0x19c,0.041666666666666664
0161 e604 | | Load 0x3,0x4
0162 5835 |X5 | Indirect_Literal Float,0x198,0.001388888888888887
0163 e604 | | Load 0x3,0x4
0164 582f |X/ | Indirect_Literal Float,0x194,2.4801587301569182e-05
0165 e604 | | Load 0x3,0x4
0166 5829 |X) | Indirect_Literal Float,0x190,2.755731921438274e-07
0167 e604 | | Load 0x3,0x4
0168 5823 |X# | Indirect_Literal Float,0x18c,2.0876754142530703e-09
0169 e604 | | Load 0x3,0x4
016a 581d |X | Indirect_Literal Float,0x188,1.1470267908943572e-11
016b e604 | | Load 0x3,0x4
016c 5817 |X | Indirect_Literal Float,0x184,4.736966690473187e-14
016d 023b | ; | Execute Float,Times
016e 023c | < | Execute Float,Minus
016f 023b | ; | Execute Float,Times
0170 023c | < | Execute Float,Minus
0171 023b | ; | Execute Float,Times
0172 023c | < | Execute Float,Minus
0173 023b | ; | Execute Float,Times
0174 023c | < | Execute Float,Minus
0175 023b | ; | Execute Float,Times
0176 023c | < | Execute Float,Minus
0177 023b | ; | Execute Float,Times
0178 023c | < | Execute Float,Minus
0179 023b | ; | Execute Float,Times
017a 023c | < | Execute Float,Minus
017b 0049 | I | Store_Top Float,At_Offset_1
017c 5fbb |_ | Indirect_Literal Float,0x138,1.0
017d e404 | | Load 0x2,0x4
017e 00da | | Load_Top At_Offset_2
017f 023b | ; | Execute Float,Times
0180 023c | < | Execute Float,Minus
0181 c405 | | Store 0x2,0x5
0182 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0183 0000 | | .XXX[0x1]
0184 3d2a aab0 |=* | .DBL 4.736966690473187e-14
0186 3e97 5993 |> Y |
0188 3da9 392f |= 9/| .DBL 1.1470267908943572e-11
018a d125 75f9 | %u |
018c 3e21 eed8 |>! | .DBL 2.0876754142530703e-09
018e c6f7 6767 | gg|
0190 3e92 7e4f |> ~O| .DBL 2.755731921438274e-07
0192 b75c f17d | \ }|
0194 3efa 01a0 |> | .DBL 2.4801587301569182e-05
0196 1a01 8b36 | 6|
0198 3f56 c16c |?V l| .DBL 0.001388888888888887
019a 16c1 6c0e | l |
019c 3fa5 5555 |? UU| .DBL 0.041666666666666664
019e 5555 5555 |UUUU|
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01b1 | | .CONST 0x01b1 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0005 | | .CONST 0x0005 ; Number of locals
01a3 INIT_01a0:
01a3 00e6 | | Load_Encached Float_Cache
01a4 0241 | A | Execute Float,First
01a5 00e6 | | Load_Encached Float_Cache
01a6 0240 | @ | Execute Float,Last
01a7 00e6 | | Load_Encached Float_Cache
01a8 03e3 | | Declare_Type Float,Constrained
01a9 029f 02d3 | | Declare_Subprogram INIT_02d0,For_Call
01ab 00d9 | | Load_Top At_Offset_1
01ac 012a | * | Execute Any,Change_Utility
01ad 0007 | | Action Break_Optional
01ae 00d8 | | Load_Top At_Offset_0
01af 03d8 | | Declare_Variable Float,Duplicate
01b0 03d8 | | Declare_Variable Float,Duplicate
01b1 BODY_01a0:
01b1 e402 | | Load 0x2,0x2
01b2 e403 | | Load 0x2,0x3
01b3 023d | = | Execute Float,Plus
01b4 00d8 | | Load_Top At_Offset_0
01b5 e602 | | Load 0x3,0x2
01b6 0234 | 4 | Execute Float,In_Type
01b7 7001 |p | Jump_Nonzero 0x1b9
01b8 0801 | | Execute_Immediate Raise,0x1
01b9 0043 | C | Store_Top_Uncheched Float,At_Offset_3
01ba 00da | | Load_Top At_Offset_2
01bb 00db | | Load_Top At_Offset_3
01bc 023b | ; | Execute Float,Times
01bd 004a | J | Store_Top Float,At_Offset_2
01be 5851 |XQ | Indirect_Literal Float,0x210,0.5
01bf 00da | | Load_Top At_Offset_2
01c0 5fdb |_ | Indirect_Literal Float,0x19c,0.041666666666666664
01c1 e604 | | Load 0x3,0x4
01c2 5849 |XI | Indirect_Literal Float,0x20c,0.0013888888888888887
01c3 e604 | | Load 0x3,0x4
01c4 5843 |XC | Indirect_Literal Float,0x208,2.48015873015873e-05
01c5 e604 | | Load 0x3,0x4
01c6 583d |X= | Indirect_Literal Float,0x204,2.755731922398588e-07
01c7 e604 | | Load 0x3,0x4
01c8 5837 |X7 | Indirect_Literal Float,0x200,2.087675698786318e-09
01c9 e604 | | Load 0x3,0x4
01ca 5831 |X1 | Indirect_Literal Float,0x1fc,1.1470745596128973e-11
01cb e604 | | Load 0x3,0x4
01cc 582b |X+ | Indirect_Literal Float,0x1f8,4.779477003636784e-14
01cd e604 | | Load 0x3,0x4
01ce 5825 |X% | Indirect_Literal Float,0x1f4,1.5618792659201637e-16
01cf e604 | | Load 0x3,0x4
01d0 581f |X | Indirect_Literal Float,0x1f0,4.0810438772696613e-19
01d1 023b | ; | Execute Float,Times
01d2 023c | < | Execute Float,Minus
01d3 023b | ; | Execute Float,Times
01d4 023c | < | Execute Float,Minus
01d5 023b | ; | Execute Float,Times
01d6 023c | < | Execute Float,Minus
01d7 023b | ; | Execute Float,Times
01d8 023c | < | Execute Float,Minus
01d9 023b | ; | Execute Float,Times
01da 023c | < | Execute Float,Minus
01db 023b | ; | Execute Float,Times
01dc 023c | < | Execute Float,Minus
01dd 023b | ; | Execute Float,Times
01de 023c | < | Execute Float,Minus
01df 023b | ; | Execute Float,Times
01e0 023c | < | Execute Float,Minus
01e1 023b | ; | Execute Float,Times
01e2 023c | < | Execute Float,Minus
01e3 0049 | I | Store_Top Float,At_Offset_1
01e4 5807 |X | Indirect_Literal Float,0x1ec,1.0
01e5 e404 | | Load 0x2,0x4
01e6 00da | | Load_Top At_Offset_2
01e7 023b | ; | Execute Float,Times
01e8 023c | < | Execute Float,Minus
01e9 c405 | | Store 0x2,0x5
01ea 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01eb 0000 | | .XXX[0x1]
01ec 3ff0 0000 |? | .DBL 1.0
01ee 0000 0000 | |
01f0 3c1e 1cdf |< | .DBL 4.0810438772696613e-19
01f2 b9c6 7736 | w6|
01f4 3ca6 8251 |< Q| .DBL 1.5618792659201637e-16
01f6 4256 9c86 |BV |
01f8 3d2a e7f3 |=* | .DBL 4.779477003636784e-14
01fa c827 0476 | ' v|
01fc 3da9 3974 |= 9t| .DBL 1.1470745596128973e-11
01fe a8b1 5e3c | ^<|
0200 3e21 eed8 |>! | .DBL 2.087675698786318e-09
0202 eff8 d3f2 | |
0204 3e92 7e4f |> ~O| .DBL 2.755731922398588e-07
0206 b778 9f5a | x Z|
0208 3efa 01a0 |> | .DBL 2.48015873015873e-05
020a 1a01 a01a | |
020c 3f56 c16c |?V l| .DBL 0.0013888888888888887
020e 16c1 6c16 | l |
0210 3fe0 0000 |? | .DBL 0.5
0212 0000 0000 | |
0214 0000 0000 | | .BLANK 0000[0x4]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0229 | ) | .CONST 0x0229 ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0005 | | .CONST 0x0005 ; Number of locals
021b INIT_0218:
021b 00e6 | | Load_Encached Float_Cache
021c 0241 | A | Execute Float,First
021d 00e6 | | Load_Encached Float_Cache
021e 0240 | @ | Execute Float,Last
021f 00e6 | | Load_Encached Float_Cache
0220 03e3 | | Declare_Type Float,Constrained
0221 029f 02e3 | | Declare_Subprogram INIT_02e0,For_Call
0223 00d9 | | Load_Top At_Offset_1
0224 012a | * | Execute Any,Change_Utility
0225 0007 | | Action Break_Optional
0226 00d8 | | Load_Top At_Offset_0
0227 03d8 | | Declare_Variable Float,Duplicate
0228 03d8 | | Declare_Variable Float,Duplicate
0229 BODY_0218:
0229 e402 | | Load 0x2,0x2
022a e403 | | Load 0x2,0x3
022b 023d | = | Execute Float,Plus
022c 00d8 | | Load_Top At_Offset_0
022d e602 | | Load 0x3,0x2
022e 0234 | 4 | Execute Float,In_Type
022f 7001 |p | Jump_Nonzero 0x231
0230 0801 | | Execute_Immediate Raise,0x1
0231 0043 | C | Store_Top_Uncheched Float,At_Offset_3
0232 00da | | Load_Top At_Offset_2
0233 00db | | Load_Top At_Offset_3
0234 023b | ; | Execute Float,Times
0235 004a | J | Store_Top Float,At_Offset_2
0236 5fd9 |_ | Indirect_Literal Float,0x210,0.5
0237 00da | | Load_Top At_Offset_2
0238 5853 |XS | Indirect_Literal Float,0x28c,0.041666666666666664
0239 e604 | | Load 0x3,0x4
023a 5fd1 |_ | Indirect_Literal Float,0x20c,0.0013888888888888887
023b e604 | | Load 0x3,0x4
023c 5fcb |_ | Indirect_Literal Float,0x208,2.48015873015873e-05
023d e604 | | Load 0x3,0x4
023e 5849 |XI | Indirect_Literal Float,0x288,2.755731922398589e-07
023f e604 | | Load 0x3,0x4
0240 5843 |XC | Indirect_Literal Float,0x284,2.0876756987868096e-09
0241 e604 | | Load 0x3,0x4
0242 583d |X= | Indirect_Literal Float,0x280,1.1470745597729723e-11
0243 e604 | | Load 0x3,0x4
0244 5837 |X7 | Indirect_Literal Float,0x27c,4.779477332386916e-14
0245 e604 | | Load 0x3,0x4
0246 5831 |X1 | Indirect_Literal Float,0x278,1.5619206967497144e-16
0247 e604 | | Load 0x3,0x4
0248 582b |X+ | Indirect_Literal Float,0x274,4.1103174541350836e-19
0249 e604 | | Load 0x3,0x4
024a 5825 |X% | Indirect_Literal Float,0x270,8.896622926278036e-22
024b e604 | | Load 0x3,0x4
024c 581f |X | Indirect_Literal Float,0x26c,1.6020111933074803e-24
024d 023b | ; | Execute Float,Times
024e 023c | < | Execute Float,Minus
024f 023b | ; | Execute Float,Times
0250 023c | < | Execute Float,Minus
0251 023b | ; | Execute Float,Times
0252 023c | < | Execute Float,Minus
0253 023b | ; | Execute Float,Times
0254 023c | < | Execute Float,Minus
0255 023b | ; | Execute Float,Times
0256 023c | < | Execute Float,Minus
0257 023b | ; | Execute Float,Times
0258 023c | < | Execute Float,Minus
0259 023b | ; | Execute Float,Times
025a 023c | < | Execute Float,Minus
025b 023b | ; | Execute Float,Times
025c 023c | < | Execute Float,Minus
025d 023b | ; | Execute Float,Times
025e 023c | < | Execute Float,Minus
025f 023b | ; | Execute Float,Times
0260 023c | < | Execute Float,Minus
0261 023b | ; | Execute Float,Times
0262 023c | < | Execute Float,Minus
0263 0049 | I | Store_Top Float,At_Offset_1
0264 5f87 |_ | Indirect_Literal Float,0x1ec,1.0
0265 e404 | | Load 0x2,0x4
0266 00da | | Load_Top At_Offset_2
0267 023b | ; | Execute Float,Times
0268 023c | < | Execute Float,Minus
0269 c405 | | Store 0x2,0x5
026a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
026b 0000 | | .XXX[0x1]
026c 3afe fcc6 |: | .DBL 1.6020111933074803e-24
026e 7365 91a8 |se |
0270 3b90 ce24 |; $| .DBL 8.896622926278036e-22
0272 92d0 00f3 | |
0274 3c1e 542b |< T+| .DBL 4.1103174541350836e-19
0276 8f10 929a | |
0278 3ca6 8278 |< x| .DBL 1.5619206967497144e-16
027a 63b2 bfdf |c |
027c 3d2a e7f3 |=* | .DBL 4.779477332386916e-14
027e e733 b537 | 3 7|
0280 3da9 3974 |= 9t| .DBL 1.1470745597729723e-11
0282 a8c0 7c9c | | |
0284 3e21 eed8 |>! | .DBL 2.0876756987868096e-09
0286 eff8 d897 | |
0288 3e92 7e4f |> ~O| .DBL 2.755731922398589e-07
028a b778 9f5c | x \|
028c 3fa5 5555 |? UU| .DBL 0.041666666666666664
028e 5555 5555 |UUUU|
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 4601 |F | Jump_Case 0x2
0294 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0295 7801 |x | Jump 0x297 ; case 0x1
0296 4302 |C | .XXX[0x1]
0297 4806 |H | Short_Literal 0x6
0298 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0299 0000 0000 | | .BLANK 0000[0x7]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 4601 |F | Jump_Case 0x2
02a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
02a5 7801 |x | Jump 0x2a7 ; case 0x1
02a6 4302 |C | .XXX[0x1]
02a7 480f |H | Short_Literal 0xf
02a8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02a9 0000 0000 | | .BLANK 0000[0x7]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 4601 |F | Jump_Case 0x2
02b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
02b5 7801 |x | Jump 0x2b7 ; case 0x1
02b6 4302 |C | .XXX[0x1]
02b7 480f |H | Short_Literal 0xf
02b8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02b9 0000 0000 | | .BLANK 0000[0x7]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 4601 |F | Jump_Case 0x2
02c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
02c5 7801 |x | Jump 0x2c7 ; case 0x1
02c6 4302 |C | .XXX[0x1]
02c7 480f |H | Short_Literal 0xf
02c8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02c9 0000 0000 | | .BLANK 0000[0x7]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 4601 |F | Jump_Case 0x2
02d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
02d5 7801 |x | Jump 0x2d7 ; case 0x1
02d6 4302 |C | .XXX[0x1]
02d7 480f |H | Short_Literal 0xf
02d8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02d9 0000 0000 | | .BLANK 0000[0x7]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 4601 |F | Jump_Case 0x2
02e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
02e5 7801 |x | Jump 0x2e7 ; case 0x1
02e6 4302 |C | .XXX[0x1]
02e7 480f |H | Short_Literal 0xf
02e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02e9 0000 0000 | | .BLANK 0000[0x7]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; Debug Table
02f0 ; --------------------------------------------------------------------------------------
02f0 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f1c,0x0000,0x0001,0x0000
02f6 0800 | | .XXX[0x1]
02f7 0000 0000 | | .BLANK 0000[0x4]
02fb 0003 8800 | | .XXX[0x5e]
02fd 0000 0000 | |
02ff 0003 8000 | |
0301 0003 9800 | |
0303 0001 8951 | Q|
0305 0102 9ba3 | |
0307 0b73 230b | s# |
0309 9322 fa7b | " {|
030b aba3 83ab | |
030d a101 430b | C |
030f 7102 2b73 |q +s|
0311 b34b 937b | K {|
0313 736b 2b73 |sk+s|
0315 a103 7bab | { |
0317 a383 aba1 | |
0319 03bb 4b73 | Ks|
031b 237b b948 |#{ H|
031d 0000 0390 | |
031f 0000 0191 | |
0321 0151 0102 | Q |
0323 9ba3 0b73 | s|
0325 230b 9322 |# "|
0327 fa7b aba3 | { |
0329 83ab a101 | |
032b 430b 7102 |C q |
032d 2b73 b34b |+s K|
032f 937b 736b | {sk|
0331 2b73 a103 |+s |
0333 7bab a383 |{ |
0335 aba1 03bb | |
0337 4b73 237b |Ks#{|
0339 b948 0000 | H |
033b 0390 0000 | |
033d 0191 0151 | Q|
033f 0102 9ba3 | |
0341 0b73 230b | s# |
0343 9322 fa7b | " {|
0345 aba3 83ab | |
0347 a101 430b | C |
0349 7102 2b73 |q +s|
034b b34b 937b | K {|
034d 736b 2b73 |sk+s|
034f a103 7bab | { |
0351 a383 aba1 | |
0353 03bb 4b73 | Ks|
0355 237b b948 |#{ H|
0357 0000 0008 | |
0359 0000 0000 | | .BLANK 0000[0x5]
035e 0128 0000 | ( | .XXX[0x29]
0360 0000 0000 | |
0362 0120 0000 | |
0364 0138 0000 | 8 |
0366 0071 5101 | qQ |
0368 0209 03a3 | |
036a 2bc3 a103 |+ |
036c 334b 6328 |3Kc(|
036e 0000 0130 | 0|
0370 0000 0079 | y|
0372 0151 0102 | Q |
0374 0903 a32b | +|
0376 c3a1 0333 | 3|
0378 4b63 2800 |Kc( |
037a 0001 3000 | 0 |
037c 0000 7901 | y |
037e 5101 0209 |Q |
0380 03a3 2bc3 | + |
0382 a103 334b | 3K|
0384 6328 0000 |c( |
0386 0008 | |
0387 0000 0000 | | .BLANK 0000[0x5]
038c 01b0 0000 | | .XXX[0x74]
038e 0000 0000 | |
0390 01a8 0000 | |
0392 01c0 0000 | |
0394 023a 637b | :c{|
0396 3b99 031b |; |
0398 0b71 0313 | q |
039a 2903 9b2b |) +|
039c 73a1 0323 |s #|
039e 4b93 2b1b |K + |
03a0 a363 c903 | c |
03a2 a379 029b | y |
03a4 a30b 7323 | s#|
03a6 0b93 22fa | " |
03a8 7bab a383 |{ |
03aa aba1 037b | {|
03ac 9102 9ba3 | |
03ae 0b73 230b | s# |
03b0 9322 fa2b | " +|
03b2 9393 7b91 | { |
03b4 6103 7b91 |a { |
03b6 03a3 432b | C+|
03b8 c800 0001 | |
03ba b800 0002 | |
03bc 4102 637b |A c{|
03be 3b99 031b |; |
03c0 0b71 0313 | q |
03c2 2903 9b2b |) +|
03c4 73a1 0323 |s #|
03c6 4b93 2b1b |K + |
03c8 a363 c903 | c |
03ca a379 029b | y |
03cc a30b 7323 | s#|
03ce 0b93 22fa | " |
03d0 7bab a383 |{ |
03d2 aba1 037b | {|
03d4 9102 9ba3 | |
03d6 0b73 230b | s# |
03d8 9322 fa2b | " +|
03da 9393 7b91 | { |
03dc 6103 7b91 |a { |
03de 03a3 432b | C+|
03e0 c800 0001 | |
03e2 b800 0002 | |
03e4 4102 637b |A c{|
03e6 3b99 031b |; |
03e8 0b71 0313 | q |
03ea 2903 9b2b |) +|
03ec 73a1 0323 |s #|
03ee 4b93 2b1b |K + |
03f0 a363 c903 | c |
03f2 a379 029b | y |
03f4 a30b 7323 | s#|
03f6 0b93 22fa | " |
03f8 7bab a383 |{ |
03fa aba1 037b | {|
03fc 9102 9ba3 | |
03fe 0b73 230b | s# |