|
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: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe
└─⟦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 0450 | P | .CONST 0x0450 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00ac | | .CONST 0x00ac ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 003b | ; | .CONST 0x003b ; Number of locals 000b INIT_0008: 000b 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 000d 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 000f 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0011 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0013 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0015 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 0017 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 0019 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 001b 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 001d 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated 001f 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated 0021 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated 0023 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated 0025 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated 0027 029a 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Visible,Unelaborated 0029 00bf | | Action Accept_Activation 002a 4801 |H | Short_Literal 0x1 002b 4800 |H | Short_Literal 0x0 002c 4801 |H | Short_Literal 0x1 002d 029f 040b | | Declare_Subprogram INIT_0408,For_Call 002f 03fa | | Declare_Type Discrete,Defined,With_Size 0030 480b |H | Short_Literal 0xb 0031 4800 |H | Short_Literal 0x0 0032 609d |` | Indirect_Literal Discrete,0xd0,{0x00000000, 0x000007ff} 0033 00e5 | | Load_Encached Long_Integer_Cache 0034 03f7 | | QQ_Declare_Variable Discrete,XXX 0035 4834 |H4 | Short_Literal 0x34 0036 4800 |H | Short_Literal 0x0 0037 6094 |` | Indirect_Literal Discrete,0xcc,{0x000fffff, 0xffffffff} 0038 00e5 | | Load_Encached Long_Integer_Cache 0039 03f7 | | QQ_Declare_Variable Discrete,XXX 003a 00da | | Load_Top At_Offset_2 003b 00da | | Load_Top At_Offset_2 003c 00da | | Load_Top At_Offset_2 003d 02a0 | | Declare_Subprogram Null_Subprogram 003e 4803 |H | Short_Literal 0x3 003f 032d | - | Declare_Type Record,Defined 0040 a002 | | Store_Unchecked 0x0,0x2 0041 00c6 | | Action Check_Subprogram_Elaborated 0042 e20e | | Load 0x1,0xe 0043 00d9 | | Load_Top At_Offset_1 0044 e003 | | Load 0x0,0x3 0045 e004 | | Load 0x0,0x4 0046 4800 |H | Short_Literal 0x0 0047 0007 | | Action Break_Optional 0048 a002 | | Store_Unchecked 0x0,0x2 0049 00c6 | | Action Check_Subprogram_Elaborated 004a e222 | " | Load 0x1,0x22 004b e20e | | Load 0x1,0xe 004c e005 | | Load 0x0,0x5 004d e006 | | Load 0x0,0x6 004e 4800 |H | Short_Literal 0x0 004f 0007 | | Action Break_Optional 0050 e222 | " | Load 0x1,0x22 0051 0322 | " | Declare_Variable Record 0052 4800 |H | Short_Literal 0x0 0053 00d9 | | Load_Top At_Offset_1 0054 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0055 4800 |H | Short_Literal 0x0 0056 00d9 | | Load_Top At_Offset_1 0057 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0058 4801 |H | Short_Literal 0x1 0059 00d9 | | Load_Top At_Offset_1 005a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 005b e228 | ( | Load 0x1,0x28 005c e229 | ) | Load 0x1,0x29 005d 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 005e 8002 | | Call 0x0,0x2 005f e20e | | Load 0x1,0xe 0060 02bf | | Declare_Variable Float,With_Value,With_Constraint 0061 e222 | " | Load 0x1,0x22 0062 0322 | " | Declare_Variable Record 0063 4801 |H | Short_Literal 0x1 0064 00d9 | | Load_Top At_Offset_1 0065 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0066 4800 |H | Short_Literal 0x0 0067 00d9 | | Load_Top At_Offset_1 0068 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0069 4801 |H | Short_Literal 0x1 006a 00d9 | | Load_Top At_Offset_1 006b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 006c e228 | ( | Load 0x1,0x28 006d e229 | ) | Load 0x1,0x29 006e 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 006f 8002 | | Call 0x0,0x2 0070 e20e | | Load 0x1,0xe 0071 02bf | | Declare_Variable Float,With_Value,With_Constraint 0072 4800 |H | Short_Literal 0x0 0073 6054 |`T | Indirect_Literal Discrete,0xc8,{0x001fffff, 0xffffffff} 0074 00e5 | | Load_Encached Long_Integer_Cache 0075 03f8 | | Declare_Type Discrete,Constrained 0076 4801 |H | Short_Literal 0x1 0077 4834 |H4 | Short_Literal 0x34 0078 00e1 | | Load_Encached Boolean_Cache 0079 02a0 | | Declare_Subprogram Null_Subprogram 007a 4801 |H | Short_Literal 0x1 007b 035d | ] | Declare_Type Array,Defined 007c a002 | | Store_Unchecked 0x0,0x2 007d 00c6 | | Action Check_Subprogram_Elaborated 007e 00d8 | | Load_Top At_Offset_0 007f e221 | ! | Load 0x1,0x21 0080 e007 | | Load 0x0,0x7 0081 e008 | | Load 0x0,0x8 0082 4800 |H | Short_Literal 0x0 0083 0007 | | Action Break_Optional 0084 a002 | | Store_Unchecked 0x0,0x2 0085 00c6 | | Action Check_Subprogram_Elaborated 0086 e221 | ! | Load 0x1,0x21 0087 e230 | 0 | Load 0x1,0x30 0088 e009 | | Load 0x0,0x9 0089 e00a | | Load 0x0,0xa 008a 4800 |H | Short_Literal 0x0 008b 0007 | | Action Break_Optional 008c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 008d 00c7 | | Action Elaborate_Subprogram 008e 1d11 | | Execute_Immediate Reference_Lex_1,0x11 008f 00c7 | | Action Elaborate_Subprogram 0090 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0091 00c7 | | Action Elaborate_Subprogram 0092 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0093 00c7 | | Action Elaborate_Subprogram 0094 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0095 00c7 | | Action Elaborate_Subprogram 0096 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0097 00c7 | | Action Elaborate_Subprogram 0098 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0099 00c7 | | Action Elaborate_Subprogram 009a 029d 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call 009c 1d17 | | Execute_Immediate Reference_Lex_1,0x17 009d 00c7 | | Action Elaborate_Subprogram 009e 1d18 | | Execute_Immediate Reference_Lex_1,0x18 009f 00c7 | | Action Elaborate_Subprogram 00a0 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00a1 00c7 | | Action Elaborate_Subprogram 00a2 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00a3 00c7 | | Action Elaborate_Subprogram 00a4 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00a5 00c7 | | Action Elaborate_Subprogram 00a6 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00a7 00c7 | | Action Elaborate_Subprogram 00a8 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00a9 00c7 | | Action Elaborate_Subprogram 00aa 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00ab 00c7 | | Action Elaborate_Subprogram 00ac BODY_0008: 00ac 00bc | | Action Signal_Activated 00ad 00bb | | Action Signal_Completion 00ae 0000 0000 | | .XXX[0x2] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b7 | | .CONST 0x00b7 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0003 | | .CONST 0x0003 ; Number of locals 00b3 INIT_00b0: 00b3 e20e | | Load 0x1,0xe 00b4 0007 | | Action Break_Optional 00b5 e20f | | Load 0x1,0xf 00b6 0007 | | Action Break_Optional 00b7 BODY_00b0: 00b7 e20f | | Load 0x1,0xf 00b8 e20e | | Load 0x1,0xe 00b9 e5ff | | Load 0x2,-0x1 00ba e20e | | Load 0x1,0xe 00bb 0232 | 2 | Execute Float,Check_In_Type 00bc 8212 | | Call 0x1,0x12 00bd 004b | K | Store_Top Float,At_Offset_3 00be 0059 | Y | Store_Top Discrete,At_Offset_1 00bf 00d8 | | Load_Top At_Offset_0 00c0 00d8 | | Load_Top At_Offset_0 00c1 e20f | | Load 0x1,0xf 00c2 0260 | ` | Execute Discrete,In_Type 00c3 7001 |p | Jump_Nonzero 0xc5 00c4 0801 | | Execute_Immediate Raise,0x1 00c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c6 0000 0000 | | .XXX[0x2] 00c8 001f ffff | | .LITERAL {0x001fffff, 0xffffffff} 00cc 000f ffff | | .LITERAL {0x000fffff, 0xffffffff} 00d0 0000 0000 | | .LITERAL {0x00000000, 0x000007ff} 00d4 0000 0000 | | .BLANK 0000[0x4] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00df | | .CONST 0x00df ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0003 | | .CONST 0x0003 ; Number of locals 00db INIT_00d8: 00db e20e | | Load 0x1,0xe 00dc 0007 | | Action Break_Optional 00dd e20f | | Load 0x1,0xf 00de 0007 | | Action Break_Optional 00df BODY_00d8: 00df e20f | | Load 0x1,0xf 00e0 e20e | | Load 0x1,0xe 00e1 e5ff | | Load 0x2,-0x1 00e2 e20e | | Load 0x1,0xe 00e3 0232 | 2 | Execute Float,Check_In_Type 00e4 8212 | | Call 0x1,0x12 00e5 004b | K | Store_Top Float,At_Offset_3 00e6 0059 | Y | Store_Top Discrete,At_Offset_1 00e7 00d9 | | Load_Top At_Offset_1 00e8 e20e | | Load 0x1,0xe 00e9 0232 | 2 | Execute Float,Check_In_Type 00ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00eb 0000 0000 | | .BLANK 0000[0x5] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 010b | | .CONST 0x010b ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0004 | | .CONST 0x0004 ; Number of locals 00f3 INIT_00f0: 00f3 e222 | " | Load 0x1,0x22 00f4 0322 | " | Declare_Variable Record 00f5 00db | | Load_Top At_Offset_3 00f6 e20e | | Load 0x1,0xe 00f7 0232 | 2 | Execute Float,Check_In_Type 00f8 e223 | # | Load 0x1,0x23 00f9 e224 | $ | Load 0x1,0x24 00fa 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00fb 8002 | | Call 0x0,0x2 00fc 00d9 | | Load_Top At_Offset_1 00fd 017d | } | Execute Record,Structure_Write 00fe 00d8 | | Load_Top At_Offset_0 00ff 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0100 4c02 |L | Short_Literal -0x3fe 0101 0273 | s | Execute Discrete,Plus 0102 00d8 | | Load_Top At_Offset_0 0103 e20f | | Load 0x1,0xf 0104 0260 | ` | Execute Discrete,In_Type 0105 7001 |p | Jump_Nonzero 0x107 0106 0801 | | Execute_Immediate Raise,0x1 0107 e20f | | Load 0x1,0xf 0108 03f1 | | Declare_Variable Discrete,With_Value 0109 e22f | / | Load 0x1,0x2f 010a 0007 | | Action Break_Optional 010b BODY_00f0: 010b e5ff | | Load 0x2,-0x1 010c 7005 |p | Jump_Nonzero 0x112 010d 584e |XN | Indirect_Literal Float,0x15c,0.0 010e c5fe | | Store 0x2,-0x2 010f 4800 |H | Short_Literal 0x0 0110 c5fd | | Store 0x2,-0x3 0111 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0112 00d9 | | Load_Top At_Offset_1 0113 4c02 |L | Short_Literal -0x3fe 0114 027f | | Execute Discrete,Equal 0115 6827 |h' | Jump_Zero 0x13d 0116 00da | | Load_Top At_Offset_2 0117 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0118 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0119 00cf | | Action Mark_Auxiliary 011a 7807 |x | Jump 0x122 011b 00d9 | | Load_Top At_Offset_1 011c 0901 | | Execute_Immediate Binary_Scale,0x1 011d 005a | Z | Store_Top Discrete,At_Offset_2 011e 00da | | Load_Top At_Offset_2 011f 0aff | | Execute_Immediate Plus,-0x1 0120 005b | [ | Store_Top Discrete,At_Offset_3 0121 00c9 | | Action Pop_Auxiliary_Loop 0122 00d9 | | Load_Top At_Offset_1 0123 6034 |`4 | Indirect_Literal Discrete,0x158,{0x00100000, 0x00000000} 0124 027c | | | Execute Discrete,Less 0125 77f5 |w | Jump_Nonzero 0x11b 0126 00ce | | Action Pop_Auxiliary 0127 00d8 | | Load_Top At_Offset_0 0128 602b |`+ | Indirect_Literal Discrete,0x154,{0xfff00000, 0x00000000} 0129 0273 | s | Execute Discrete,Plus 012a 00d8 | | Load_Top At_Offset_0 012b e221 | ! | Load 0x1,0x21 012c 0260 | ` | Execute Discrete,In_Type 012d 7001 |p | Jump_Nonzero 0x12f 012e 0801 | | Execute_Immediate Raise,0x1 012f 00db | | Load_Top At_Offset_3 0130 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0131 4bfe |K | Short_Literal 0x3fe 0132 00db | | Load_Top At_Offset_3 0133 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0134 00da | | Load_Top At_Offset_2 0135 e228 | ( | Load 0x1,0x28 0136 e229 | ) | Load 0x1,0x29 0137 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0138 8002 | | Call 0x0,0x2 0139 c5fe | | Store 0x2,-0x2 013a 00d9 | | Load_Top At_Offset_1 013b c5fd | | Store 0x2,-0x3 013c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 013d 00d9 | | Load_Top At_Offset_1 013e 6011 |` | Indirect_Literal Discrete,0x150,{0x00000000, 0x00000401} 013f 027b | { | Execute Discrete,Greater_Equal 0140 6801 |h | Jump_Zero 0x142 0141 08e0 | | Execute_Immediate Raise,0xe0 0142 4bfe |K | Short_Literal 0x3fe 0143 00db | | Load_Top At_Offset_3 0144 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0145 00da | | Load_Top At_Offset_2 0146 e228 | ( | Load 0x1,0x28 0147 e229 | ) | Load 0x1,0x29 0148 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0149 8002 | | Call 0x0,0x2 014a c5fe | | Store 0x2,-0x2 014b 00d9 | | Load_Top At_Offset_1 014c c5fd | | Store 0x2,-0x3 014d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 014e 0000 0000 | | .XXX[0x2] 0150 0000 0000 | | .LITERAL {0x00000000, 0x00000401} 0154 fff0 0000 | | .LITERAL {0xfff00000, 0x00000000} 0158 0010 0000 | | .LITERAL {0x00100000, 0x00000000} 015c 0000 0000 | | .DBL 0.0 015e 0000 0000 | | 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 016e | n | .CONST 0x016e ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0002 | | .CONST 0x0002 ; Number of locals 0163 INIT_0160: 0163 e222 | " | Load 0x1,0x22 0164 0322 | " | Declare_Variable Record 0165 00db | | Load_Top At_Offset_3 0166 e20e | | Load 0x1,0xe 0167 0232 | 2 | Execute Float,Check_In_Type 0168 e223 | # | Load 0x1,0x23 0169 e224 | $ | Load 0x1,0x24 016a 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 016b 8002 | | Call 0x0,0x2 016c 00d9 | | Load_Top At_Offset_1 016d 017d | } | Execute Record,Structure_Write 016e BODY_0160: 016e 00db | | Load_Top At_Offset_3 016f 7004 |p | Jump_Nonzero 0x174 0170 5feb |_ | Indirect_Literal Float,0x15c,0.0 0171 e20e | | Load 0x1,0xe 0172 0232 | 2 | Execute Float,Check_In_Type 0173 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0174 e5fe | | Load 0x2,-0x2 0175 67da |g | Indirect_Literal Discrete,0x150,{0x00000000, 0x00000401} 0176 027b | { | Execute Discrete,Greater_Equal 0177 6801 |h | Jump_Zero 0x179 0178 08e0 | | Execute_Immediate Raise,0xe0 0179 e5fe | | Load 0x2,-0x2 017a 4c02 |L | Short_Literal -0x3fe 017b 027a | z | Execute Discrete,Less_Equal 017c 6815 |h | Jump_Zero 0x192 017d 00db | | Load_Top At_Offset_3 017e e20e | | Load 0x1,0xe 017f 0232 | 2 | Execute Float,Check_In_Type 0180 5823 |X# | Indirect_Literal Float,0x1a4,2.0 0181 e20e | | Load 0x1,0xe 0182 1c01 | | Execute_Immediate Run_Utility,0x1 0183 480a |H | Short_Literal 0xa 0184 0271 | q | Execute Discrete,Times 0185 0a05 | | Execute_Immediate Plus,0x5 0186 4803 |H | Short_Literal 0x3 0187 0270 | p | Execute Discrete,Divide 0188 0902 | | Execute_Immediate Binary_Scale,0x2 0189 0a01 | | Execute_Immediate Plus,0x1 018a 0275 | u | Execute Discrete,Unary_Minus 018b 0239 | 9 | Execute Float,Exponentiate 018c e20e | | Load 0x1,0xe 018d 0232 | 2 | Execute Float,Check_In_Type 018e 821d | | Call 0x1,0x1d 018f e20e | | Load 0x1,0xe 0190 0232 | 2 | Execute Float,Check_In_Type 0191 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0192 e5fe | | Load 0x2,-0x2 0193 4bfe |K | Short_Literal 0x3fe 0194 0273 | s | Execute Discrete,Plus 0195 00d8 | | Load_Top At_Offset_0 0196 e220 | | Load 0x1,0x20 0197 0260 | ` | Execute Discrete,In_Type 0198 7001 |p | Jump_Nonzero 0x19a 0199 0801 | | Execute_Immediate Raise,0x1 019a 00d9 | | Load_Top At_Offset_1 019b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 019c 00d8 | | Load_Top At_Offset_0 019d e228 | ( | Load 0x1,0x28 019e e229 | ) | Load 0x1,0x29 019f 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 01a0 8002 | | Call 0x0,0x2 01a1 e20e | | Load 0x1,0xe 01a2 0232 | 2 | Execute Float,Check_In_Type 01a3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a4 4000 0000 |@ | .DBL 2.0 01a6 0000 0000 | | 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01b8 | | .CONST 0x01b8 ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0003 | | .CONST 0x0003 ; Number of locals 01ab INIT_01a8: 01ab e222 | " | Load 0x1,0x22 01ac 0322 | " | Declare_Variable Record 01ad 00db | | Load_Top At_Offset_3 01ae e20e | | Load 0x1,0xe 01af 0232 | 2 | Execute Float,Check_In_Type 01b0 e223 | # | Load 0x1,0x23 01b1 e224 | $ | Load 0x1,0x24 01b2 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 01b3 8002 | | Call 0x0,0x2 01b4 00d9 | | Load_Top At_Offset_1 01b5 017d | } | Execute Record,Structure_Write 01b6 e20f | | Load 0x1,0xf 01b7 0007 | | Action Break_Optional 01b8 BODY_01a8: 01b8 e5ff | | Load 0x2,-0x1 01b9 7004 |p | Jump_Nonzero 0x1be 01ba 5841 |XA | Indirect_Literal Float,0x1fc,0.0 01bb e20e | | Load 0x1,0xe 01bc 0232 | 2 | Execute Float,Check_In_Type 01bd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01be 00d9 | | Load_Top At_Offset_1 01bf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01c0 00d8 | | Load_Top At_Offset_0 01c1 e20f | | Load 0x1,0xf 01c2 0260 | ` | Execute Discrete,In_Type 01c3 7001 |p | Jump_Nonzero 0x1c5 01c4 0801 | | Execute_Immediate Raise,0x1 01c5 e5fe | | Load 0x2,-0x2 01c6 0273 | s | Execute Discrete,Plus 01c7 0059 | Y | Store_Top Discrete,At_Offset_1 01c8 00d8 | | Load_Top At_Offset_0 01c9 602e |`. | Indirect_Literal Discrete,0x1f8,{0x00000000, 0x00000401} 01ca 027b | { | Execute Discrete,Greater_Equal 01cb 6801 |h | Jump_Zero 0x1cd 01cc 08e0 | | Execute_Immediate Raise,0xe0 01cd 00d8 | | Load_Top At_Offset_0 01ce 4c02 |L | Short_Literal -0x3fe 01cf 027a | z | Execute Discrete,Less_Equal 01d0 6815 |h | Jump_Zero 0x1e6 01d1 e5ff | | Load 0x2,-0x1 01d2 e20e | | Load 0x1,0xe 01d3 0232 | 2 | Execute Float,Check_In_Type 01d4 5fcf |_ | Indirect_Literal Float,0x1a4,2.0 01d5 e20e | | Load 0x1,0xe 01d6 1c01 | | Execute_Immediate Run_Utility,0x1 01d7 480a |H | Short_Literal 0xa 01d8 0271 | q | Execute Discrete,Times 01d9 0a05 | | Execute_Immediate Plus,0x5 01da 4803 |H | Short_Literal 0x3 01db 0270 | p | Execute Discrete,Divide 01dc 0902 | | Execute_Immediate Binary_Scale,0x2 01dd 0a01 | | Execute_Immediate Plus,0x1 01de 0275 | u | Execute Discrete,Unary_Minus 01df 0239 | 9 | Execute Float,Exponentiate 01e0 e20e | | Load 0x1,0xe 01e1 0232 | 2 | Execute Float,Check_In_Type 01e2 821d | | Call 0x1,0x1d 01e3 e20e | | Load 0x1,0xe 01e4 0232 | 2 | Execute Float,Check_In_Type 01e5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01e6 00d8 | | Load_Top At_Offset_0 01e7 4bfe |K | Short_Literal 0x3fe 01e8 0273 | s | Execute Discrete,Plus 01e9 00d8 | | Load_Top At_Offset_0 01ea e220 | | Load 0x1,0x20 01eb 0260 | ` | Execute Discrete,In_Type 01ec 7001 |p | Jump_Nonzero 0x1ee 01ed 0801 | | Execute_Immediate Raise,0x1 01ee 00da | | Load_Top At_Offset_2 01ef 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01f0 00d9 | | Load_Top At_Offset_1 01f1 e228 | ( | Load 0x1,0x28 01f2 e229 | ) | Load 0x1,0x29 01f3 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 01f4 8002 | | Call 0x0,0x2 01f5 e20e | | Load 0x1,0xe 01f6 0232 | 2 | Execute Float,Check_In_Type 01f7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01f8 0000 0000 | | .LITERAL {0x00000000, 0x00000401} 01fc 0000 0000 | | .DBL 0.0 01fe 0000 0000 | | 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0205 | | .CONST 0x0205 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0002 | | .CONST 0x0002 ; Number of locals 0203 INIT_0200: 0203 e20e | | Load 0x1,0xe 0204 0007 | | Action Break_Optional 0205 BODY_0200: 0205 00db | | Load_Top At_Offset_3 0206 023e | > | Execute Float,Absolute_Value 0207 5820 |X | Indirect_Literal Float,0x228,9007199254740992.0 0208 0245 | E | Execute Float,Greater 0209 6804 |h | Jump_Zero 0x20e 020a 00db | | Load_Top At_Offset_3 020b e20e | | Load 0x1,0xe 020c 0232 | 2 | Execute Float,Check_In_Type 020d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 020e 00db | | Load_Top At_Offset_3 020f e20e | | Load 0x1,0xe 0210 0232 | 2 | Execute Float,Check_In_Type 0211 8218 | | Call 0x1,0x18 0212 0049 | I | Store_Top Float,At_Offset_1 0213 00db | | Load_Top At_Offset_3 0214 014a | J | Execute Float,Greater_Equal_Zero 0215 7004 |p | Jump_Nonzero 0x21a 0216 00d8 | | Load_Top At_Offset_0 0217 e5ff | | Load 0x2,-0x1 0218 0247 | G | Execute Float,Equal 0219 6804 |h | Jump_Zero 0x21e 021a 00d8 | | Load_Top At_Offset_0 021b e20e | | Load 0x1,0xe 021c 0232 | 2 | Execute Float,Check_In_Type 021d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 021e 00d8 | | Load_Top At_Offset_0 021f 5804 |X | Indirect_Literal Float,0x224,1.0 0220 023c | < | Execute Float,Minus 0221 e20e | | Load 0x1,0xe 0222 0232 | 2 | Execute Float,Check_In_Type 0223 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0224 3ff0 0000 |? | .DBL 1.0 0226 0000 0000 | | 0228 4340 0000 |C@ | .DBL 9007199254740992.0 022a 0000 0000 | | 022c 0000 0000 | | .BLANK 0000[0x4] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0235 | 5 | .CONST 0x0235 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0002 | | .CONST 0x0002 ; Number of locals 0233 INIT_0230: 0233 e20e | | Load 0x1,0xe 0234 0007 | | Action Break_Optional 0235 BODY_0230: 0235 00db | | Load_Top At_Offset_3 0236 023e | > | Execute Float,Absolute_Value 0237 5ff0 |_ | Indirect_Literal Float,0x228,9007199254740992.0 0238 0245 | E | Execute Float,Greater 0239 6804 |h | Jump_Zero 0x23e 023a 00db | | Load_Top At_Offset_3 023b e20e | | Load 0x1,0xe 023c 0232 | 2 | Execute Float,Check_In_Type 023d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 023e 00db | | Load_Top At_Offset_3 023f e20e | | Load 0x1,0xe 0240 0232 | 2 | Execute Float,Check_In_Type 0241 8218 | | Call 0x1,0x18 0242 0049 | I | Store_Top Float,At_Offset_1 0243 00db | | Load_Top At_Offset_3 0244 0149 | I | Execute Float,Less_Equal_Zero 0245 7004 |p | Jump_Nonzero 0x24a 0246 00d8 | | Load_Top At_Offset_0 0247 e5ff | | Load 0x2,-0x1 0248 0247 | G | Execute Float,Equal 0249 6804 |h | Jump_Zero 0x24e 024a 00d8 | | Load_Top At_Offset_0 024b e20e | | Load 0x1,0xe 024c 0232 | 2 | Execute Float,Check_In_Type 024d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024e 00d8 | | Load_Top At_Offset_0 024f 5fd4 |_ | Indirect_Literal Float,0x224,1.0 0250 023d | = | Execute Float,Plus 0251 e20e | | Load 0x1,0xe 0252 0232 | 2 | Execute Float,Check_In_Type 0253 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0254 0000 0000 | | .BLANK 0000[0x4] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 0261 | a | .CONST 0x0261 ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0004 | | .CONST 0x0004 ; Number of locals 025b INIT_0258: 025b 00da | | Load_Top At_Offset_2 025c 023e | > | Execute Float,Absolute_Value 025d e20e | | Load 0x1,0xe 025e 02bf | | Declare_Variable Float,With_Value,With_Constraint 025f e20e | | Load 0x1,0xe 0260 03d8 | | Declare_Variable Float,Duplicate 0261 BODY_0258: 0261 00da | | Load_Top At_Offset_2 0262 5851 |XQ | Indirect_Literal Float,0x2b4,9007199254740992.0 0263 0245 | E | Execute Float,Greater 0264 6804 |h | Jump_Zero 0x269 0265 e5ff | | Load 0x2,-0x1 0266 e20e | | Load 0x1,0xe 0267 0232 | 2 | Execute Float,Check_In_Type 0268 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0269 00da | | Load_Top At_Offset_2 026a e20e | | Load 0x1,0xe 026b 0232 | 2 | Execute Float,Check_In_Type 026c 8218 | | Call 0x1,0x18 026d 004a | J | Store_Top Float,At_Offset_2 026e 00da | | Load_Top At_Offset_2 026f 00da | | Load_Top At_Offset_2 0270 023c | < | Execute Float,Minus 0271 0049 | I | Store_Top Float,At_Offset_1 0272 00d8 | | Load_Top At_Offset_0 0273 583c |X< | Indirect_Literal Float,0x2b0,0.5 0274 0245 | E | Execute Float,Greater 0275 680c |h | Jump_Zero 0x282 0276 e5ff | | Load 0x2,-0x1 0277 e20e | | Load 0x1,0xe 0278 0232 | 2 | Execute Float,Check_In_Type 0279 00da | | Load_Top At_Offset_2 027a 5831 |X1 | Indirect_Literal Float,0x2ac,1.0 027b 023d | = | Execute Float,Plus 027c e20e | | Load 0x1,0xe 027d 0232 | 2 | Execute Float,Check_In_Type 027e 821d | | Call 0x1,0x1d 027f e20e | | Load 0x1,0xe 0280 0232 | 2 | Execute Float,Check_In_Type 0281 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0282 00d8 | | Load_Top At_Offset_0 0283 582c |X, | Indirect_Literal Float,0x2b0,0.5 0284 0244 | D | Execute Float,Less 0285 680a |h | Jump_Zero 0x290 0286 e5ff | | Load 0x2,-0x1 0287 e20e | | Load 0x1,0xe 0288 0232 | 2 | Execute Float,Check_In_Type 0289 00da | | Load_Top At_Offset_2 028a e20e | | Load 0x1,0xe 028b 0232 | 2 | Execute Float,Check_In_Type 028c 821d | | Call 0x1,0x1d 028d e20e | | Load 0x1,0xe 028e 0232 | 2 | Execute Float,Check_In_Type 028f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0290 00d9 | | Load_Top At_Offset_1 0291 e20e | | Load 0x1,0xe 0292 0232 | 2 | Execute Float,Check_In_Type 0293 823b | ; | Call 0x1,0x3b 0294 680c |h | Jump_Zero 0x2a1 0295 e5ff | | Load 0x2,-0x1 0296 e20e | | Load 0x1,0xe 0297 0232 | 2 | Execute Float,Check_In_Type 0298 00da | | Load_Top At_Offset_2 0299 5812 |X | Indirect_Literal Float,0x2ac,1.0 029a 023d | = | Execute Float,Plus 029b e20e | | Load 0x1,0xe 029c 0232 | 2 | Execute Float,Check_In_Type 029d 821d | | Call 0x1,0x1d 029e e20e | | Load 0x1,0xe 029f 0232 | 2 | Execute Float,Check_In_Type 02a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a1 e5ff | | Load 0x2,-0x1 02a2 e20e | | Load 0x1,0xe 02a3 0232 | 2 | Execute Float,Check_In_Type 02a4 00da | | Load_Top At_Offset_2 02a5 e20e | | Load 0x1,0xe 02a6 0232 | 2 | Execute Float,Check_In_Type 02a7 821d | | Call 0x1,0x1d 02a8 e20e | | Load 0x1,0xe 02a9 0232 | 2 | Execute Float,Check_In_Type 02aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ab 0000 | | .XXX[0x1] 02ac 3ff0 0000 |? | .DBL 1.0 02ae 0000 0000 | | 02b0 3fe0 0000 |? | .DBL 0.5 02b2 0000 0000 | | 02b4 4340 0000 |C@ | .DBL 9007199254740992.0 02b6 0000 0000 | | 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb 00da | | Load_Top At_Offset_2 02bc 023e | > | Execute Float,Absolute_Value 02bd 5ff6 |_ | Indirect_Literal Float,0x2b4,9007199254740992.0 02be 0245 | E | Execute Float,Greater 02bf 6804 |h | Jump_Zero 0x2c4 02c0 00da | | Load_Top At_Offset_2 02c1 e20e | | Load 0x1,0xe 02c2 0232 | 2 | Execute Float,Check_In_Type 02c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02c4 00da | | Load_Top At_Offset_2 02c5 023e | > | Execute Float,Absolute_Value 02c6 5fe5 |_ | Indirect_Literal Float,0x2ac,1.0 02c7 0244 | D | Execute Float,Less 02c8 6804 |h | Jump_Zero 0x2cd 02c9 5816 |X | Indirect_Literal Float,0x2e0,0.0 02ca e20e | | Load 0x1,0xe 02cb 0232 | 2 | Execute Float,Check_In_Type 02cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02cd 00da | | Load_Top At_Offset_2 02ce e20e | | Load 0x1,0xe 02cf 0232 | 2 | Execute Float,Check_In_Type 02d0 8210 | | Call 0x1,0x10 02d1 00d8 | | Load_Top At_Offset_0 02d2 00e4 | | Load_Encached Positive_Cache 02d3 0260 | ` | Execute Discrete,In_Type 02d4 7001 |p | Jump_Nonzero 0x2d6 02d5 0801 | | Execute_Immediate Raise,0x1 02d6 00db | | Load_Top At_Offset_3 02d7 e20e | | Load 0x1,0xe 02d8 0232 | 2 | Execute Float,Check_In_Type 02d9 821e | | Call 0x1,0x1e 02da e20e | | Load 0x1,0xe 02db 0232 | 2 | Execute Float,Check_In_Type 02dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02dd 0000 0000 | | .XXX[0x3] 02df 0000 | | 02e0 0000 0000 | | .DBL 0.0 02e2 0000 0000 | | 02e4 0000 0000 | | .BLANK 0000[0x4] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb 00db | | Load_Top At_Offset_3 02ec 7001 |p | Jump_Nonzero 0x2ee 02ed 08e0 | | Execute_Immediate Raise,0xe0 02ee 00da | | Load_Top At_Offset_2 02ef e5fe | | Load 0x2,-0x2 02f0 e5ff | | Load 0x2,-0x1 02f1 e5fe | | Load 0x2,-0x2 02f2 023a | : | Execute Float,Divide 02f3 e20e | | Load 0x1,0xe 02f4 0232 | 2 | Execute Float,Check_In_Type 02f5 8217 | | Call 0x1,0x17 02f6 023b | ; | Execute Float,Times 02f7 023c | < | Execute Float,Minus 02f8 e20e | | Load 0x1,0xe 02f9 0232 | 2 | Execute Float,Check_In_Type 02fa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02fb 0000 0000 | | .BLANK 0000[0x5] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0303 | | .CONST 0x0303 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0001 | | .CONST 0x0001 ; Number of locals 0303 BODY_0300: 0303 INIT_0300: 0303 00da | | Load_Top At_Offset_2 0304 e5fe | | Load 0x2,-0x2 0305 0247 | G | Execute Float,Equal 0306 6804 |h | Jump_Zero 0x30b 0307 00da | | Load_Top At_Offset_2 0308 e20e | | Load 0x1,0xe 0309 0232 | 2 | Execute Float,Check_In_Type 030a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 030b 00da | | Load_Top At_Offset_2 030c e5fe | | Load 0x2,-0x2 030d 0244 | D | Execute Float,Less 030e 6807 |h | Jump_Zero 0x316 030f 00da | | Load_Top At_Offset_2 0310 e20e | | Load 0x1,0xe 0311 0232 | 2 | Execute Float,Check_In_Type 0312 821b | | Call 0x1,0x1b 0313 e20e | | Load 0x1,0xe 0314 0232 | 2 | Execute Float,Check_In_Type 0315 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0316 00da | | Load_Top At_Offset_2 0317 e20e | | Load 0x1,0xe 0318 0232 | 2 | Execute Float,Check_In_Type 0319 821c | | Call 0x1,0x1c 031a e20e | | Load 0x1,0xe 031b 0232 | 2 | Execute Float,Check_In_Type 031c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 031d 0000 0000 | | .XXX[0x3] 031f 0000 | | 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0334 | 4 | .CONST 0x0334 ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0005 | | .CONST 0x0005 ; Number of locals 0323 INIT_0320: 0323 e20e | | Load 0x1,0xe 0324 0007 | | Action Break_Optional 0325 e20f | | Load 0x1,0xf 0326 0007 | | Action Break_Optional 0327 e222 | " | Load 0x1,0x22 0328 0322 | " | Declare_Variable Record 0329 e5ff | | Load 0x2,-0x1 032a e20e | | Load 0x1,0xe 032b 0232 | 2 | Execute Float,Check_In_Type 032c e223 | # | Load 0x1,0x23 032d e224 | $ | Load 0x1,0x24 032e 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 032f 8002 | | Call 0x0,0x2 0330 00d9 | | Load_Top At_Offset_1 0331 017d | } | Execute Record,Structure_Write 0332 e22f | / | Load 0x1,0x2f 0333 0007 | | Action Break_Optional 0334 BODY_0320: 0334 e5ff | | Load 0x2,-0x1 0335 e20e | | Load 0x1,0xe 0336 0122 | " | Execute Any,Make_Root_Type 0337 0240 | @ | Execute Float,Last 0338 0243 | C | Execute Float,Greater_Equal 0339 6801 |h | Jump_Zero 0x33b 033a 08e0 | | Execute_Immediate Raise,0xe0 033b e5ff | | Load 0x2,-0x1 033c 7004 |p | Jump_Nonzero 0x341 033d e22d | - | Load 0x1,0x2d 033e e20e | | Load 0x1,0xe 033f 0232 | 2 | Execute Float,Check_In_Type 0340 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0341 00d9 | | Load_Top At_Offset_1 0342 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0343 0a01 | | Execute_Immediate Plus,0x1 0344 0059 | Y | Store_Top Discrete,At_Offset_1 0345 00d8 | | Load_Top At_Offset_0 0346 601d |` | Indirect_Literal Discrete,0x364,{0x000fffff, 0xffffffff} 0347 027d | } | Execute Discrete,Greater 0348 6809 |h | Jump_Zero 0x352 0349 4800 |H | Short_Literal 0x0 034a 00da | | Load_Top At_Offset_2 034b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 034c 00d9 | | Load_Top At_Offset_1 034d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 034e 0a01 | | Execute_Immediate Plus,0x1 034f 00da | | Load_Top At_Offset_2 0350 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0351 7808 |x | Jump 0x35a 0352 00d8 | | Load_Top At_Offset_0 0353 00d8 | | Load_Top At_Offset_0 0354 e221 | ! | Load 0x1,0x21 0355 0260 | ` | Execute Discrete,In_Type 0356 7001 |p | Jump_Nonzero 0x358 0357 0801 | | Execute_Immediate Raise,0x1 0358 00da | | Load_Top At_Offset_2 0359 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 035a 00d9 | | Load_Top At_Offset_1 035b e228 | ( | Load 0x1,0x28 035c e229 | ) | Load 0x1,0x29 035d 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 035e 8002 | | Call 0x0,0x2 035f e20e | | Load 0x1,0xe 0360 0232 | 2 | Execute Float,Check_In_Type 0361 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0362 0000 0000 | | .XXX[0x2] 0364 000f ffff | | .LITERAL {0x000fffff, 0xffffffff} 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 0378 | x | .CONST 0x0378 ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0003 | | .CONST 0x0003 ; Number of locals 036b INIT_0368: 036b e222 | " | Load 0x1,0x22 036c 0322 | " | Declare_Variable Record 036d 00db | | Load_Top At_Offset_3 036e e20e | | Load 0x1,0xe 036f 0232 | 2 | Execute Float,Check_In_Type 0370 e223 | # | Load 0x1,0x23 0371 e224 | $ | Load 0x1,0x24 0372 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0373 8002 | | Call 0x0,0x2 0374 00d9 | | Load_Top At_Offset_1 0375 017d | } | Execute Record,Structure_Write 0376 e221 | ! | Load 0x1,0x21 0377 0007 | | Action Break_Optional 0378 BODY_0368: 0378 e5ff | | Load 0x2,-0x1 0379 e20e | | Load 0x1,0xe 037a 0122 | " | Execute Any,Make_Root_Type 037b 0240 | @ | Execute Float,Last 037c 023f | ? | Execute Float,Unary_Minus 037d 0242 | B | Execute Float,Less_Equal 037e 6801 |h | Jump_Zero 0x380 037f 08e0 | | Execute_Immediate Raise,0xe0 0380 e5ff | | Load 0x2,-0x1 0381 7004 |p | Jump_Nonzero 0x386 0382 e22e | . | Load 0x1,0x2e 0383 e20e | | Load 0x1,0xe 0384 0232 | 2 | Execute Float,Check_In_Type 0385 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0386 00d9 | | Load_Top At_Offset_1 0387 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0388 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0389 00d8 | | Load_Top At_Offset_0 038a 7009 |p | Jump_Nonzero 0x394 038b 67d8 |g | Indirect_Literal Discrete,0x364,{0x000fffff, 0xffffffff} 038c 00da | | Load_Top At_Offset_2 038d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 038e 00d9 | | Load_Top At_Offset_1 038f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0390 0aff | | Execute_Immediate Plus,-0x1 0391 00da | | Load_Top At_Offset_2 0392 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0393 7804 |x | Jump 0x398 0394 00d8 | | Load_Top At_Offset_0 0395 0aff | | Execute_Immediate Plus,-0x1 0396 00da | | Load_Top At_Offset_2 0397 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0398 00d9 | | Load_Top At_Offset_1 0399 e228 | ( | Load 0x1,0x28 039a e229 | ) | Load 0x1,0x29 039b 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 039c 8002 | | Call 0x0,0x2 039d e20e | | Load 0x1,0xe 039e 0232 | 2 | Execute Float,Check_In_Type 039f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 00db | | Load_Top At_Offset_3 03a4 014a | J | Execute Float,Greater_Equal_Zero 03a5 6805 |h | Jump_Zero 0x3ab 03a6 00da | | Load_Top At_Offset_2 03a7 023e | > | Execute Float,Absolute_Value 03a8 e20e | | Load 0x1,0xe 03a9 0232 | 2 | Execute Float,Check_In_Type 03aa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03ab 00da | | Load_Top At_Offset_2 03ac 023e | > | Execute Float,Absolute_Value 03ad 023f | ? | Execute Float,Unary_Minus 03ae e20e | | Load 0x1,0xe 03af 0232 | 2 | Execute Float,Check_In_Type 03b0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03b1 0000 0000 | | .BLANK 0000[0x7] 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; -------------------------------------------------------------------------------------- 03b8 03c3 | | .CONST 0x03c3 ; Address of begin 03b9 0004 | | .CONST 0x0004 ; Address of exception handler 03ba 0005 | | .CONST 0x0005 ; Number of locals 03bb INIT_03b8: 03bb e20e | | Load 0x1,0xe 03bc 0007 | | Action Break_Optional 03bd e20f | | Load 0x1,0xf 03be 0007 | | Action Break_Optional 03bf e222 | " | Load 0x1,0x22 03c0 0322 | " | Declare_Variable Record 03c1 e230 | 0 | Load 0x1,0x30 03c2 0337 | 7 | Declare_Variable Array 03c3 BODY_03b8: 03c3 e20f | | Load 0x1,0xf 03c4 e20e | | Load 0x1,0xe 03c5 e5ff | | Load 0x2,-0x1 03c6 e20e | | Load 0x1,0xe 03c7 0232 | 2 | Execute Float,Check_In_Type 03c8 8212 | | Call 0x1,0x12 03c9 c402 | | Store 0x2,0x2 03ca 005b | [ | Store_Top Discrete,At_Offset_3 03cb 00db | | Load_Top At_Offset_3 03cc e20e | | Load 0x1,0xe 03cd 0232 | 2 | Execute Float,Check_In_Type 03ce e223 | # | Load 0x1,0x23 03cf e224 | $ | Load 0x1,0x24 03d0 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 03d1 8002 | | Call 0x0,0x2 03d2 00da | | Load_Top At_Offset_2 03d3 017d | } | Execute Record,Structure_Write 03d4 00d9 | | Load_Top At_Offset_1 03d5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03d6 e236 | 6 | Load 0x1,0x36 03d7 e237 | 7 | Load 0x1,0x37 03d8 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 03d9 8002 | | Call 0x0,0x2 03da 00d9 | | Load_Top At_Offset_1 03db 01d4 | | Execute Vector,Structure_Write 03dc 00cf | | Action Mark_Auxiliary 03dd 4834 |H4 | Short_Literal 0x34 03de e5fe | | Load 0x2,-0x2 03df 0263 | c | Execute Discrete,Above_Bound 03e0 7006 |p | Jump_Nonzero 0x3e7 03e1 4800 |H | Short_Literal 0x0 03e2 00d9 | | Load_Top At_Offset_1 03e3 e405 | | Load 0x2,0x5 03e4 01d6 | | Execute Vector,Field_Write 03e5 00c8 | | Action Pop_Auxiliary_Range 03e6 3ffa |? | Loop_Increasing 0x3e1 03e7 00ce | | Action Pop_Auxiliary 03e8 00d8 | | Load_Top At_Offset_0 03e9 e231 | 1 | Load 0x1,0x31 03ea e232 | 2 | Load 0x1,0x32 03eb 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 03ec 8002 | | Call 0x0,0x2 03ed 00da | | Load_Top At_Offset_2 03ee 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03ef 00d9 | | Load_Top At_Offset_1 03f0 e228 | ( | Load 0x1,0x28 03f1 e229 | ) | Load 0x1,0x29 03f2 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 03f3 8002 | | Call 0x0,0x2 03f4 c402 | | Store 0x2,0x2 03f5 00da | | Load_Top At_Offset_2 03f6 00d8 | | Load_Top At_Offset_0 03f7 e20f | | Load 0x1,0xf 03f8 0260 | ` | Execute Discrete,In_Type 03f9 7001 |p | Jump_Nonzero 0x3fb 03fa 0801 | | Execute_Immediate Raise,0x1 03fb e402 | | Load 0x2,0x2 03fc e20e | | Load 0x1,0xe 03fd 0232 | 2 | Execute Float,Check_In_Type 03fe 8213 | | Call 0x1,0x13 03ff e20e | | Load 0x1,0xe 0400 0232 | 2 | Execute Float,Check_In_Type 0401 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0402 0000 0000 | | .BLANK 0000[0x6] 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 040b | | .CONST 0x040b ; Address of begin 0409 0004 | | .CONST 0x0004 ; Address of exception handler 040a 0001 | | .CONST 0x0001 ; Number of locals 040b BODY_0408: 040b INIT_0408: 040b 4607 |F | Jump_Case 0x8 040c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 040d 7807 |x | Jump 0x415 ; case 0x1 040e 780a |x | Jump 0x419 ; case 0x2 040f 780e |x | Jump 0x41e ; case 0x3 0410 7811 |x | Jump 0x422 ; case 0x4 0411 7812 |x | Jump 0x424 ; case 0x5 0412 7813 |x | Jump 0x426 ; case 0x6 0413 7816 |x | Jump 0x42a ; case 0x7 0414 4302 |C | .XXX[0x1] 0415 00da | | Load_Top At_Offset_2 0416 0091 0444 | D| Action Push_String_Extended_Indexed,0x444 ; "FALSE" 0418 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0419 00db | | Load_Top At_Offset_3 041a 00db | | Load_Top At_Offset_3 041b 00e0 | | Load_Encached Standard_Cache 041c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 041d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 041e 00da | | Load_Top At_Offset_2 041f 00e0 | | Load_Encached Standard_Cache 0420 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0421 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0422 00db | | Load_Top At_Offset_3 0423 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0424 00db | | Load_Top At_Offset_3 0425 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0426 e21f | | Load 0x1,0x1f 0427 00dc | | Load_Top At_Offset_4 0428 0267 | g | Execute Discrete,Predecessor 0429 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 042a e21f | | Load 0x1,0x1f 042b 00dc | | Load_Top At_Offset_4 042c 0268 | h | Execute Discrete,Successor 042d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 042e 0000 0000 | | .XXX[0x2] 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 0438 | 8 | .CONST 0x0438 ; Address of begin 0431 0004 | | .CONST 0x0004 ; Address of exception handler 0432 0002 | | .CONST 0x0002 ; Number of locals 0433 INIT_0430: 0433 00da | | Load_Top At_Offset_2 0434 580b |X | Indirect_Literal Float,0x440,2.0 0435 023a | : | Execute Float,Divide 0436 e20e | | Load 0x1,0xe 0437 02bf | | Declare_Variable Float,With_Value,With_Constraint 0438 BODY_0430: 0438 00d8 | | Load_Top At_Offset_0 0439 e20e | | Load 0x1,0xe 043a 0232 | 2 | Execute Float,Check_In_Type 043b 8218 | | Call 0x1,0x18 043c 00d9 | | Load_Top At_Offset_1 043d 0246 | F | Execute Float,Not_Equal 043e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 043f 0000 | | .XXX[0x1] 0440 4000 0000 |@ | .DBL 2.0 0442 0000 0000 | | 0444 ; -------------------------------------------------------------------------------------- 0444 ; STRING TABLE 0444 ; -------------------------------------------------------------------------------------- 0444 0006 | | .STRTAB 0x0006->0x0447 ; "FALSE" 0445 0009 | | .STRTAB 0x0009->0x0449 ; "TRUE" 0446 000b | | .STREND 0x000b->0x044b 0447 4641 4c53 |FALS| .STRTAB_STRINGS 044c 0000 0000 | | .BLANK 0000[0x4] 0450 ; -------------------------------------------------------------------------------------- 0450 ; Debug Table 0450 ; -------------------------------------------------------------------------------------- 0450 0004 0010 | | .DEBUG4 0x0004,0x0010,0x64dd,0x0000,0x0001,0x0000 0456 400a 0000 |@ | .XXX[0x14] 0458 0002 0000 | | 045a 0080 0000 | | 045c 0440 0000 | @ | 045e 0002 0000 | | 0460 0014 8000 | | 0462 0c07 e9c2 | | 0464 8000 0c07 | | 0466 e9c6 8000 | | 0468 0c07 e9c8 | | 046a 0000 0000 | | .BLANK 0000[0x6] 0470 8000 0c07 | | .XXX[0x3] 0472 e9ca | | 0473 0000 0000 | | .BLANK 0000[0xc] 047f 0200 00d6 | | .XXX[0x1e] 0481 cc85 4057 | @W| 0483 ae00 000e | | 0485 ddb6 4b80 | K | 0487 8004 0004 | | 0489 d000 0000 | | 048b 3a1c 0003 |: | 048d 8000 0002 | | 048f 1801 4000 | @ | 0491 0028 8000 | ( | 0493 0010 0000 | | 0495 0088 0000 | | 0497 0000 4000 | @ | 0499 0002 9000 | | 049b 1b80 fd32 | 2| 049d 0000 0000 | | .BLANK 0000[0x1b] 04b8 0040 001a | @ | .XXX[0x1f] 04ba d310 a80a | | 04bc f5d0 0001 | | 04be dba5 4970 | Ip| 04c0 1000 8000 | | 04c2 9a00 0000 | | 04c4 0743 8000 | C | 04c6 7100 0000 |q | 04c8 4300 2800 |C ( | 04ca 0005 1000 | | 04cc 0002 0000 | | 04ce 0011 0000 | | 04d0 0000 0800 | | 04d2 0000 5200 | R | 04d4 0380 1fa7 | | 04d6 6000 |` | 04d7 0000 0000 | | .BLANK 0000[0x1a] 04f1 0008 0003 | | .XXX[0x25] 04f3 5a62 1501 |Zb | 04f5 5ebc 0000 |^ | 04f7 3b76 d92e |;v .| 04f9 0200 1000 | | 04fb 1340 0000 | @ | 04fd 00eb 3800 | 8 | 04ff 0100 0000 | | 0501 0120 0500 | | 0503 0000 0100 | | 0505 0000 4000 | @ | 0507 0002 2000 | | 0509 0000 0100 | | 050b 0000 0a40 | @| 050d 0008 03f4 | | 050f fe40 0006 | @ | 0511 03f4 e340 | @| 0513 0006 03f4 | | 0515 e400 | | 0516 0000 0000 | | .BLANK 0000[0x5] 051b 0040 0006 | @ | .XXX[0x4] 051d 03f4 e500 | | 051f 0000 0000 | | .BLANK 0000[0xb] 052a 0001 0000 | | .XXX[0x1f] 052c 6b66 42a0 |kfB | 052e 2bd7 c000 |+ | 0530 076e db25 | n %| 0532 c040 0200 | @ | 0534 0268 0000 | h | 0536 001d 0e00 | | 0538 01c8 0000 | | 053a 010c 00a0 | | 053c 0000 1440 | @| 053e 0000 0800 | | 0540 0000 4400 | D | 0542 0000 0020 | | 0544 0000 0148 | H| 0546 000e 007e | ~| 0548 9d80 | | 0549 0000 0000 | | .BLANK 0000[0x1b] 0564 2000 0d69 | i| .XXX[0x1e] 0566 8854 057b | T {| 0568 0000 00ed | | 056a d2a4 b808 | | 056c 0040 004d | @ M| 056e 0000 0003 | | 0570 a1c0 0039 | 9| 0572 8000 0022 | "| 0574 8014 0000 | | 0576 0288 0000 | | 0578 0100 0000 | | 057a 0880 0000 | | 057c 0004 0000 | | 057e 0029 0001 | ) | 0580 c80f d460 | `| 0582 0000 0000 | | .BLANK 0000[0x1b] 059d 0400 01ad | | .XXX[0x28] 059f 310a 80af |1 | 05a1 6100 001d |a | 05a3 bb6c a201 | l | 05a5 0008 0009 | | 05a7 a000 0000 | | 05a9 7458 0003 |tX | 05ab 8000 0000 | | 05ad 9002 8000 | | 05af 0000 8000 | | 05b1 0020 0000 | | 05b3 0110 0000 | | 05b5 0000 8000 | | 05b7 0005 2000 | | 05b9 1c01 fa92 | | 05bb a000 1901 | | 05bd fa12 a000 | | 05bf 1c01 fa93 | | 05c1 2000 1c01 | | 05c3 fa93 8000 | | 05c5 0000 0000 | | .BLANK 0000[0x11] 05d6 0600 0000 | | .XXX[0x3] 05d8 fc80 | | 05d9 0000 0000 | | .BLANK 0000[0x27]