|
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 0002 | | .CONST 0x0002 ; 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 0000 | | .DEBUG4 0x0004,0x0000,0x6c8e,0x0000,0x0001,0x0013
0456 000b 04a2 | | .DBG4T 0x000b,0x04a2,0xc000,0x0000
045a 002a 04b3 | * | .DBG4T 0x002a,0x04b3,0xc000,0x8000
045e 00b3 04ed | | .DBG4T 0x00b3,0x04ed,0x1002,0x0000
0462 00db 04f3 | | .DBG4T 0x00db,0x04f3,0x1002,0x0000
0466 00f3 04f9 | | .DBG4T 0x00f3,0x04f9,0x1001,0x4000
046a 0163 0520 | c | .DBG4T 0x0163,0x0520,0x1002,0x0000
046e 01ab 052b | +| .DBG4T 0x01ab,0x052b,0x1002,0x0000
0472 0203 0538 | 8| .DBG4T 0x0203,0x0538,0x1002,0x0000
0476 0233 0541 | 3 A| .DBG4T 0x0233,0x0541,0x1002,0x0000
047a 025b 054a | [ J| .DBG4T 0x025b,0x054a,0x1002,0x0000
047e 02bb 0559 | Y| .DBG4T 0x02bb,0x0559,0x1002,0x0000
0482 02eb 0560 | `| .DBG4T 0x02eb,0x0560,0x1002,0x0000
0486 0303 0565 | e| .DBG4T 0x0303,0x0565,0x1002,0x0000
048a 0323 056c | # l| .DBG4T 0x0323,0x056c,0x1002,0x0000
048e 036b 057c | k || .DBG4T 0x036b,0x057c,0x1002,0x0000
0492 03a3 058a | | .DBG4T 0x03a3,0x058a,0x1002,0x0000
0496 03bb 058f | | .DBG4T 0x03bb,0x058f,0x1002,0x0000
049a 040b 0000 | | .DBG4T 0x040b,0x0000,0x1005,0x0000
049e 0433 059d | 3 | .DBG4T 0x0433,0x059d,0x1002,0x0000
04a2 ; --------------------------------------------------------------------------------------
04a2 ; Debug chain
04a2 ; --------------------------------------------------------------------------------------
04a2 000f 0000 | | .DBGLEN 0x000f,0x0000
04a4 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027
04b3 ; --------------------------------------------------------------------------------------
04b3 ; Debug chain
04b3 ; --------------------------------------------------------------------------------------
04b3 001c 0000 | | .DBGLEN 0x001c,0x0000
04b5 002a 0030 | * 0| .DBGLNO 0x002a,0x0030,0x0035,0x003a,0x0040,0x0048,0x0050,0x0061,0x0072,0x0076,0x007c,0x0084,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0098,0x009a,0x009c,0x009e,0x00a0,0x00a2,0x00a4,0x00a6,0x00a8,0x00aa
04d1 0001 0002 | | .XXX[0x1c]
04d3 0006 0007 | |
04d5 0008 0009 | |
04d7 000b 000c | |
04d9 000d 000f | |
04db 0011 0012 | |
04dd 0013 0014 | |
04df 0015 0016 | |
04e1 0017 0018 | |
04e3 0019 001a | |
04e5 001b 001c | |
04e7 001d 001e | |
04e9 001f 0020 | |
04eb 0021 0022 | ! "|
04ed ; --------------------------------------------------------------------------------------
04ed ; Debug chain
04ed ; --------------------------------------------------------------------------------------
04ed 0002 0002 | | .DBGLEN 0x0002,0x0002
04ef 00b3 00b5 | | .DBGLNO 0x00b3,0x00b5,0x00b7,0x00bf
04f3 ; --------------------------------------------------------------------------------------
04f3 ; Debug chain
04f3 ; --------------------------------------------------------------------------------------
04f3 0002 0002 | | .DBGLEN 0x0002,0x0002
04f5 00db 00dd | | .DBGLNO 0x00db,0x00dd,0x00df,0x00e7
04f9 ; --------------------------------------------------------------------------------------
04f9 ; Debug chain
04f9 ; --------------------------------------------------------------------------------------
04f9 0003 0011 | | .DBGLEN 0x0003,0x0011
04fb 00f3 00fe | | .DBGLNO 0x00f3,0x00fe,0x0109,0x010b,0x010d,0x010f,0x0112,0x0116,0x011b,0x011e,0x0122,0x0127,0x0131,0x0134,0x013a,0x013d,0x0141,0x0142,0x0145,0x014b
050f 0001 0002 | | .XXX[0x11]
0511 0003 0004 | |
0513 0005 0007 | |
0515 0008 0006 | |
0517 0009 000a | |
0519 000b 000c | |
051b 000d 000e | |
051d 000f 0010 | |
051f 0011 | |
0520 ; --------------------------------------------------------------------------------------
0520 ; Debug chain
0520 ; --------------------------------------------------------------------------------------
0520 0001 0008 | | .DBGLEN 0x0001,0x0008
0522 0163 016e | c n| .DBGLNO 0x0163,0x016e,0x0170,0x0174,0x0178,0x0179,0x017d,0x0192,0x019c
052b ; --------------------------------------------------------------------------------------
052b ; Debug chain
052b ; --------------------------------------------------------------------------------------
052b 0002 0009 | | .DBGLEN 0x0002,0x0009
052d 01ab 01b6 | | .DBGLNO 0x01ab,0x01b6,0x01b8,0x01ba,0x01be,0x01c8,0x01cc,0x01cd,0x01d1,0x01e6,0x01f0
0538 ; --------------------------------------------------------------------------------------
0538 ; Debug chain
0538 ; --------------------------------------------------------------------------------------
0538 0001 0006 | | .DBGLEN 0x0001,0x0006
053a 0203 0205 | | .DBGLNO 0x0203,0x0205,0x020a,0x020e,0x0213,0x021a,0x021e
0541 ; --------------------------------------------------------------------------------------
0541 ; Debug chain
0541 ; --------------------------------------------------------------------------------------
0541 0001 0006 | | .DBGLEN 0x0001,0x0006
0543 0233 0235 | 3 5| .DBGLNO 0x0233,0x0235,0x023a,0x023e,0x0243,0x024a,0x024e
054a ; --------------------------------------------------------------------------------------
054a ; Debug chain
054a ; --------------------------------------------------------------------------------------
054a 0002 000b | | .DBGLEN 0x0002,0x000b
054c 025b 025f | [ _| .DBGLNO 0x025b,0x025f,0x0261,0x0265,0x0269,0x026e,0x0272,0x0276,0x0282,0x0286,0x0290,0x0295,0x02a1
0559 ; --------------------------------------------------------------------------------------
0559 ; Debug chain
0559 ; --------------------------------------------------------------------------------------
0559 0000 0005 | | .DBGLEN 0x0000,0x0005
055b 02bb 02c0 | | .DBGLNO 0x02bb,0x02c0,0x02c4,0x02c9,0x02cd
0560 ; --------------------------------------------------------------------------------------
0560 ; Debug chain
0560 ; --------------------------------------------------------------------------------------
0560 0000 0003 | | .DBGLEN 0x0000,0x0003
0562 02eb 02ed | | .DBGLNO 0x02eb,0x02ed,0x02ee
0565 ; --------------------------------------------------------------------------------------
0565 ; Debug chain
0565 ; --------------------------------------------------------------------------------------
0565 0000 0005 | | .DBGLEN 0x0000,0x0005
0567 0303 0307 | | .DBGLNO 0x0303,0x0307,0x030b,0x030f,0x0316
056c ; --------------------------------------------------------------------------------------
056c ; Debug chain
056c ; --------------------------------------------------------------------------------------
056c 0004 000a | | .DBGLEN 0x0004,0x000a
056e 0323 0325 | # %| .DBGLNO 0x0323,0x0325,0x0327,0x0332,0x0334,0x033a,0x033b,0x033d,0x0341,0x0345,0x0349,0x034c,0x0352,0x035a
057c ; --------------------------------------------------------------------------------------
057c ; Debug chain
057c ; --------------------------------------------------------------------------------------
057c 0002 000a | | .DBGLEN 0x0002,0x000a
057e 036b 0376 | k v| .DBGLNO 0x036b,0x0376,0x0378,0x037f,0x0380,0x0382,0x0386,0x0389,0x038b,0x038e,0x0394,0x0398
058a ; --------------------------------------------------------------------------------------
058a ; Debug chain
058a ; --------------------------------------------------------------------------------------
058a 0000 0003 | | .DBGLEN 0x0000,0x0003
058c 03a3 03a6 | | .DBGLNO 0x03a3,0x03a6,0x03ab
058f ; --------------------------------------------------------------------------------------
058f ; Debug chain
058f ; --------------------------------------------------------------------------------------
058f 0004 0008 | | .DBGLEN 0x0004,0x0008
0591 03bb 03bd | | .DBGLNO 0x03bb,0x03bd,0x03bf,0x03c1,0x03c3,0x03cb,0x03d4,0x03dd,0x03e1,0x03e8,0x03ef,0x03f5
059d ; --------------------------------------------------------------------------------------
059d ; Debug chain
059d ; --------------------------------------------------------------------------------------
059d 0001 0001 | | .DBGLEN 0x0001,0x0001
059f 0433 0438 | 3 8| .DBGLNO 0x0433,0x0438
05a1 0000 0000 | | .BLANK 0000[0x5f]