|
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 - metrics - 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 For_Outer_Call,Visible,Unelaborated,INIT_00b0
000d 029a 00db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d8
000f 029a 00f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f0
0011 029a 0163 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0160
0013 029a 01ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a8
0015 029a 0203 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0200
0017 029a 0233 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0230
0019 029a 025b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0258
001b 029a 02bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02b8
001d 029a 02eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02e8
001f 029a 0303 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0300
0021 029a 0323 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0320
0023 029a 036b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0368
0025 029a 03a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03a0
0027 029a 03bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03b8
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 For_Call,INIT_0408
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 | | Declare_Type InMicrocode,Discrete
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 | | Declare_Type InMicrocode,Discrete
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 | | Reference 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 | | Reference 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 | | Reference 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 | | Reference 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 For_Outer_Call,INIT_0430
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_Result,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_Result,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 0x402
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_Subprogram 0x2
0112 00d9 | | Load_Top At_Offset_1
0113 4c02 |L | Short_Literal 0x402
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_Subprogram 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_Subprogram 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_Result,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 0x402
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_Result,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_Result,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_Result,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 0x402
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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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 0x7
040c 4302 |C | Exit_Subprogram From_Utility,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,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,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,0x1
0422 00db | | Load_Top At_Offset_3
0423 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0424 00db | | Load_Top At_Offset_3
0425 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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_Result,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]