|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0418 | | .CONST 0x0418 ; 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 0053 | S | .CONST 0x0053 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0023 | # | .CONST 0x0023 ; Number of locals
000b INIT_0008:
000b 6094 |` | Indirect_Literal Discrete,0xa0,{0xffffffff, 0xfffffbcd}
000c 4bcb |K | Short_Literal 0x3cb
000d 00e2 | | Load_Encached Integer_Cache
000e 03f9 | | Declare_Type Discrete,Constrained,Visible
000f 4800 |H | Short_Literal 0x0
0010 608b |` | Indirect_Literal Discrete,0x9c,{0x001fffff, 0xffffffff}
0011 00e5 | | Load_Encached Long_Integer_Cache
0012 03f9 | | Declare_Type Discrete,Constrained,Visible
0013 00e1 | | Load_Encached Boolean_Cache
0014 00da | | Load_Top At_Offset_2
0015 00da | | Load_Top At_Offset_2
0016 02a0 | | Declare_Subprogram Null_Subprogram
0017 4803 |H | Short_Literal 0x3
0018 032e | . | Declare_Type Record,Defined,Visible
0019 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
001b 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
001d e001 | | Load 0x0,0x1
001e 0129 | ) | Execute Any,Make_Visible
001f e002 | | Load 0x0,0x2
0020 0129 | ) | Execute Any,Make_Visible
0021 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0023 00bf | | Action Accept_Activation
0024 4800 |H | Short_Literal 0x0
0025 6072 |`r | Indirect_Literal Discrete,0x98,{0x00000000, 0x000007ff}
0026 00e2 | | Load_Encached Integer_Cache
0027 03f8 | | Declare_Type Discrete,Constrained
0028 4800 |H | Short_Literal 0x0
0029 606a |`j | Indirect_Literal Discrete,0x94,{0x000fffff, 0xffffffff}
002a 00e5 | | Load_Encached Long_Integer_Cache
002b 03f8 | | Declare_Type Discrete,Constrained
002c 00e1 | | Load_Encached Boolean_Cache
002d 00da | | Load_Top At_Offset_2
002e 00da | | Load_Top At_Offset_2
002f 02a0 | | Declare_Subprogram Null_Subprogram
0030 4803 |H | Short_Literal 0x3
0031 032d | - | Declare_Type Record,Defined
0032 00e6 | | Load_Encached Float_Cache
0033 012c | , | Execute Any,Size
0034 00d9 | | Load_Top At_Offset_1
0035 012c | , | Execute Any,Size
0036 027f | | Execute Discrete,Equal
0037 7001 |p | Jump_Nonzero 0x39
0038 0887 | | Execute_Immediate Raise,0x87
0039 a003 | | Store_Unchecked 0x0,0x3
003a 00c6 | | Action Check_Subprogram_Elaborated
003b 00e6 | | Load_Encached Float_Cache
003c 00d9 | | Load_Top At_Offset_1
003d e004 | | Load 0x0,0x4
003e e005 | | Load 0x0,0x5
003f 4800 |H | Short_Literal 0x0
0040 0007 | | Action Break_Optional
0041 a003 | | Store_Unchecked 0x0,0x3
0042 00c6 | | Action Check_Subprogram_Elaborated
0043 e217 | | Load 0x1,0x17
0044 00e6 | | Load_Encached Float_Cache
0045 e006 | | Load 0x0,0x6
0046 e007 | | Load 0x0,0x7
0047 4800 |H | Short_Literal 0x0
0048 0007 | | Action Break_Optional
0049 029d 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call
004b 029d 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call
004d 1d10 | | Execute_Immediate Reference_Lex_1,0x10
004e 00c7 | | Action Elaborate_Subprogram
004f 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0050 00c7 | | Action Elaborate_Subprogram
0051 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0052 00c7 | | Action Elaborate_Subprogram
0053 BODY_0008:
0053 00bc | | Action Signal_Activated
0054 00bb | | Action Signal_Completion
0055 0000 0000 | | .XXX[0x3]
0057 0000 | |
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0073 | s | .CONST 0x0073 ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0003 | | .CONST 0x0003 ; Number of locals
005b INIT_0058:
005b e217 | | Load 0x1,0x17
005c 0322 | " | Declare_Variable Record
005d 00db | | Load_Top At_Offset_3
005e e218 | | Load 0x1,0x18
005f e219 | | Load 0x1,0x19
0060 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0061 8003 | | Call 0x0,0x3
0062 00d9 | | Load_Top At_Offset_1
0063 017d | } | Execute Record,Structure_Write
0064 e20f | | Load 0x1,0xf
0065 0322 | " | Declare_Variable Record
0066 00d9 | | Load_Top At_Offset_1
0067 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0068 00d9 | | Load_Top At_Offset_1
0069 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
006a 00d9 | | Load_Top At_Offset_1
006b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
006c 6033 |`3 | Indirect_Literal Discrete,0xa0,{0xffffffff, 0xfffffbcd}
006d 0273 | s | Execute Discrete,Plus
006e 00d9 | | Load_Top At_Offset_1
006f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0070 4800 |H | Short_Literal 0x0
0071 00d9 | | Load_Top At_Offset_1
0072 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0073 BODY_0058:
0073 00d9 | | Load_Top At_Offset_1
0074 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0075 0b00 | | Execute_Immediate Case_Compare,0x0
0076 700a |p | Jump_Nonzero 0x81
0077 6020 |` | Indirect_Literal Discrete,0x98,{0x00000000, 0x000007ff}
0078 027f | | Execute Discrete,Equal
0079 700e |p | Jump_Nonzero 0x88
007a 00d9 | | Load_Top At_Offset_1
007b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
007c 6013 |` | Indirect_Literal Discrete,0x90,{0x00100000, 0x00000000}
007d 0273 | s | Execute Discrete,Plus
007e 00d9 | | Load_Top At_Offset_1
007f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0080 7809 |x | Jump 0x8a
0081 00d1 | | Pop_Control Pop_Count_1
0082 00d9 | | Load_Top At_Offset_1
0083 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0084 0901 | | Execute_Immediate Binary_Scale,0x1
0085 00d9 | | Load_Top At_Offset_1
0086 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0087 7802 |x | Jump 0x8a
0088 e212 | | Load 0x1,0x12
0089 0257 | W | Execute Discrete,Raise
008a 00d8 | | Load_Top At_Offset_0
008b e5ff | | Load 0x2,-0x1
008c 8223 | # | Call 0x1,0x23
008d 00d8 | | Load_Top At_Offset_0
008e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
008f 0000 | | .XXX[0x1]
0090 0010 0000 | | .LITERAL {0x00100000, 0x00000000}
0094 000f ffff | | .LITERAL {0x000fffff, 0xffffffff}
0098 0000 0000 | | .LITERAL {0x00000000, 0x000007ff}
009c 001f ffff | | .LITERAL {0x001fffff, 0xffffffff}
00a0 ffff ffff | | .LITERAL {0xffffffff, 0xfffffbcd}
00a4 0000 0000 | | .BLANK 0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00bb | | .CONST 0x00bb ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0003 | | .CONST 0x0003 ; Number of locals
00ab INIT_00a8:
00ab e217 | | Load 0x1,0x17
00ac 0322 | " | Declare_Variable Record
00ad 00db | | Load_Top At_Offset_3
00ae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00af 00d9 | | Load_Top At_Offset_1
00b0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00b1 00db | | Load_Top At_Offset_3
00b2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00b3 603c |`< | Indirect_Literal Discrete,0xf0,{0x00000000, 0x00000433}
00b4 0273 | s | Execute Discrete,Plus
00b5 00d9 | | Load_Top At_Offset_1
00b6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00b7 4800 |H | Short_Literal 0x0
00b8 00d9 | | Load_Top At_Offset_1
00b9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00ba 00e6 | | Load_Encached Float_Cache
00bb BODY_00a8:
00bb 00d9 | | Load_Top At_Offset_1
00bc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00bd 0b00 | | Execute_Immediate Case_Compare,0x0
00be 7011 |p | Jump_Nonzero 0xd0
00bf 67d8 |g | Indirect_Literal Discrete,0x98,{0x00000000, 0x000007ff}
00c0 027f | | Execute Discrete,Equal
00c1 701c |p | Jump_Nonzero 0xde
00c2 e5ff | | Load 0x2,-0x1
00c3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00c4 67cf |g | Indirect_Literal Discrete,0x94,{0x000fffff, 0xffffffff}
00c5 027a | z | Execute Discrete,Less_Equal
00c6 6802 |h | Jump_Zero 0xc9
00c7 e212 | | Load 0x1,0x12
00c8 0257 | W | Execute Discrete,Raise
00c9 e5ff | | Load 0x2,-0x1
00ca 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00cb 6020 |` | Indirect_Literal Discrete,0xec,{0xfff00000, 0x00000000}
00cc 0273 | s | Execute Discrete,Plus
00cd 00da | | Load_Top At_Offset_2
00ce 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00cf 7810 |x | Jump 0xe0
00d0 00d1 | | Pop_Control Pop_Count_1
00d1 e5ff | | Load 0x2,-0x1
00d2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00d3 4801 |H | Short_Literal 0x1
00d4 0279 | y | Execute Discrete,And
00d5 6802 |h | Jump_Zero 0xd8
00d6 e212 | | Load 0x1,0x12
00d7 0257 | W | Execute Discrete,Raise
00d8 e5ff | | Load 0x2,-0x1
00d9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00da 09ff | | Execute_Immediate Binary_Scale,-0x1
00db 00da | | Load_Top At_Offset_2
00dc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00dd 7802 |x | Jump 0xe0
00de e213 | | Load 0x1,0x13
00df 0257 | W | Execute Discrete,Raise
00e0 00d9 | | Load_Top At_Offset_1
00e1 e21d | | Load 0x1,0x1d
00e2 e21e | | Load 0x1,0x1e
00e3 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00e4 8003 | | Call 0x0,0x3
00e5 0041 | A | Store_Top_Unchecked Float,At_Offset_1
00e6 e5ff | | Load 0x2,-0x1
00e7 00d9 | | Load_Top At_Offset_1
00e8 8223 | # | Call 0x1,0x23
00e9 00d8 | | Load_Top At_Offset_0
00ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00eb 0000 | | .XXX[0x1]
00ec fff0 0000 | | .LITERAL {0xfff00000, 0x00000000}
00f0 0000 0000 | | .LITERAL {0x00000000, 0x00000433}
00f4 0000 0000 | | .BLANK 0000[0x4]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 013c | < | .CONST 0x013c ; Address of begin
00f9 02d9 | | .CONST 0x02d9 ; Address of exception handler
00fa 0021 | ! | .CONST 0x0021 ; Number of locals
00fb INIT_00f8:
00fb 00e5 | | Load_Encached Long_Integer_Cache
00fc 0602 | | Execute_Immediate Set_Value_Unchecked,0x2
00fd 00d8 | | Load_Top At_Offset_0
00fe 483e |H> | Short_Literal 0x3e
00ff 026d | m | Execute Discrete,Exponentiate
0100 0aff | | Execute_Immediate Plus,-0x1
0101 0901 | | Execute_Immediate Binary_Scale,0x1
0102 0a01 | | Execute_Immediate Plus,0x1
0103 0007 | | Action Break_Optional
0104 00d8 | | Load_Top At_Offset_0
0105 480a |H | Short_Literal 0xa
0106 0270 | p | Execute Discrete,Divide
0107 0007 | | Action Break_Optional
0108 00d9 | | Load_Top At_Offset_1
0109 480a |H | Short_Literal 0xa
010a 026e | n | Execute Discrete,Modulo
010b 0007 | | Action Break_Optional
010c a003 | | Store_Unchecked 0x0,0x3
010d 00c6 | | Action Check_Subprogram_Elaborated
010e 00e6 | | Load_Encached Float_Cache
010f 00e5 | | Load_Encached Long_Integer_Cache
0110 e008 | | Load 0x0,0x8
0111 e009 | | Load 0x0,0x9
0112 480a |H | Short_Literal 0xa
0113 0007 | | Action Break_Optional
0114 e5ff | | Load 0x2,-0x1
0115 01dd | | Execute Vector,First
0116 00e2 | | Load_Encached Integer_Cache
0117 03f1 | | Declare_Variable Discrete,With_Value
0118 e5ff | | Load 0x2,-0x1
0119 01dc | | Execute Vector,Last
011a 00e2 | | Load_Encached Integer_Cache
011b 03f1 | | Declare_Variable Discrete,With_Value
011c 00e8 | | Load_Encached Character_Cache
011d 00e8 | | Load_Encached Character_Cache
011e 00e5 | | Load_Encached Long_Integer_Cache
011f 00e2 | | Load_Encached Integer_Cache
0120 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0121 00e2 | | Load_Encached Integer_Cache
0122 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0123 00e5 | | Load_Encached Long_Integer_Cache
0124 00e1 | | Load_Encached Boolean_Cache
0125 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0126 00e1 | | Load_Encached Boolean_Cache
0127 00e1 | | Load_Encached Boolean_Cache
0128 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0129 00e6 | | Load_Encached Float_Cache
012a 00e5 | | Load_Encached Long_Integer_Cache
012b 060a | | Execute_Immediate Set_Value_Unchecked,0xa
012c 00e5 | | Load_Encached Long_Integer_Cache
012d 00e8 | | Load_Encached Character_Cache
012e e404 | | Load 0x2,0x4
012f 00e5 | | Load_Encached Long_Integer_Cache
0130 03f1 | | Declare_Variable Discrete,With_Value
0131 00e5 | | Load_Encached Long_Integer_Cache
0132 00e5 | | Load_Encached Long_Integer_Cache
0133 00e5 | | Load_Encached Long_Integer_Cache
0134 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call
0136 029f 035b | [| Declare_Subprogram INIT_0358,For_Call
0138 029f 03b3 | | Declare_Subprogram INIT_03b0,For_Call
013a 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call
013c BODY_00f8:
013c e40c | | Load 0x2,0xc
013d e40b | | Load 0x2,0xb
013e 027c | | | Execute Discrete,Less
013f 7007 |p | Jump_Nonzero 0x147
0140 e40c | | Load 0x2,0xc
0141 e40b | | Load 0x2,0xb
0142 027f | | Execute Discrete,Equal
0143 e5fe | | Load 0x2,-0x2
0144 0f00 | | Execute_Immediate Equal,0x0
0145 0279 | y | Execute Discrete,And
0146 6801 |h | Jump_Zero 0x148
0147 08e0 | | Execute_Immediate Raise,0xe0
0148 e40b | | Load 0x2,0xb
0149 e5ff | | Load 0x2,-0x1
014a 01d7 | | Execute Vector,Field_Read
014b a40d | | Store_Unchecked 0x2,0xd
014c 00cf | | Action Mark_Auxiliary
014d 7807 |x | Jump 0x155
014e e40b | | Load 0x2,0xb
014f e40c | | Load 0x2,0xc
0150 027b | { | Execute Discrete,Greater_Equal
0151 6801 |h | Jump_Zero 0x153
0152 08e0 | | Execute_Immediate Raise,0xe0
0153 841e | | Call 0x2,0x1e
0154 00c9 | | Action Pop_Auxiliary_Loop
0155 e40d | | Load 0x2,0xd
0156 0f20 | | Execute_Immediate Equal,0x20
0157 77f6 |w | Jump_Nonzero 0x14e
0158 00ce | | Action Pop_Auxiliary
0159 00e5 | | Load_Encached Long_Integer_Cache
015a 841f | | Call 0x2,0x1f
015b c40f | | Store 0x2,0xf
015c e40d | | Load 0x2,0xd
015d 0f2e | . | Execute_Immediate Equal,0x2e
015e 6847 |hG | Jump_Zero 0x1a6
015f 841e | | Call 0x2,0x1e
0160 4801 |H | Short_Literal 0x1
0161 a415 | | Store_Unchecked 0x2,0x15
0162 e40d | | Load 0x2,0xd
0163 4830 |H0 | Short_Literal 0x30
0164 4839 |H9 | Short_Literal 0x39
0165 0261 | a | Execute Discrete,Not_In_Range
0166 6801 |h | Jump_Zero 0x168
0167 08e0 | | Execute_Immediate Raise,0xe0
0168 e40f | | Load 0x2,0xf
0169 0274 | t | Execute Discrete,Absolute_Value
016a a40f | | Store_Unchecked 0x2,0xf
016b 00cf | | Action Mark_Auxiliary
016c e40d | | Load 0x2,0xd
016d 4830 |H0 | Short_Literal 0x30
016e 4839 |H9 | Short_Literal 0x39
016f 0262 | b | Execute Discrete,In_Range
0170 7008 |p | Jump_Nonzero 0x179
0171 e40e | | Load 0x2,0xe
0172 0f5f | _ | Execute_Immediate Equal,0x5f
0173 6801 |h | Jump_Zero 0x175
0174 08e0 | | Execute_Immediate Raise,0xe0
0175 e40d | | Load 0x2,0xd
0176 0e5f | _ | Execute_Immediate Not_Equal,0x5f
0177 702c |p, | Jump_Nonzero 0x1a4
0178 7828 |x( | Jump 0x1a1
0179 e40d | | Load 0x2,0xd
017a 0ad0 | | Execute_Immediate Plus,-0x30
017b a418 | | Store_Unchecked 0x2,0x18
017c e40f | | Load 0x2,0xf
017d e404 | | Load 0x2,0x4
017e 027f | | Execute Discrete,Equal
017f 6806 |h | Jump_Zero 0x186
0180 e418 | | Load 0x2,0x18
0181 e405 | | Load 0x2,0x5
0182 027d | } | Execute Discrete,Greater
0183 6802 |h | Jump_Zero 0x186
0184 4800 |H | Short_Literal 0x0
0185 a418 | | Store_Unchecked 0x2,0x18
0186 e40f | | Load 0x2,0xf
0187 e404 | | Load 0x2,0x4
0188 027a | z | Execute Discrete,Less_Equal
0189 6812 |h | Jump_Zero 0x19c
018a e40f | | Load 0x2,0xf
018b 480a |H | Short_Literal 0xa
018c 0271 | q | Execute Discrete,Times
018d e418 | | Load 0x2,0x18
018e 0273 | s | Execute Discrete,Plus
018f a40f | | Store_Unchecked 0x2,0xf
0190 e411 | | Load 0x2,0x11
0191 0aff | | Execute_Immediate Plus,-0x1
0192 c411 | | Store 0x2,0x11
0193 e418 | | Load 0x2,0x18
0194 7004 |p | Jump_Nonzero 0x199
0195 e410 | | Load 0x2,0x10
0196 0a01 | | Execute_Immediate Plus,0x1
0197 c410 | | Store 0x2,0x10
0198 7808 |x | Jump 0x1a1
0199 4800 |H | Short_Literal 0x0
019a a410 | | Store_Unchecked 0x2,0x10
019b 7805 |x | Jump 0x1a1
019c e413 | | Load 0x2,0x13
019d e418 | | Load 0x2,0x18
019e 0e00 | | Execute_Immediate Not_Equal,0x0
019f 0278 | x | Execute Discrete,Or
01a0 a413 | | Store_Unchecked 0x2,0x13
01a1 841e | | Call 0x2,0x1e
01a2 00c9 | | Action Pop_Auxiliary_Loop
01a3 7fc8 | | Jump 0x16c
01a4 00ce | | Action Pop_Auxiliary
01a5 788e |x | Jump 0x234
01a6 e40d | | Load 0x2,0xd
01a7 0f23 | # | Execute_Immediate Equal,0x23
01a8 e40d | | Load 0x2,0xd
01a9 0f3a | : | Execute_Immediate Equal,0x3a
01aa 0278 | x | Execute Discrete,Or
01ab 6888 |h | Jump_Zero 0x234
01ac e40d | | Load 0x2,0xd
01ad a419 | | Store_Unchecked 0x2,0x19
01ae e40f | | Load 0x2,0xf
01af 0274 | t | Execute Discrete,Absolute_Value
01b0 a417 | | Store_Unchecked 0x2,0x17
01b1 e417 | | Load 0x2,0x17
01b2 4802 |H | Short_Literal 0x2
01b3 4810 |H | Short_Literal 0x10
01b4 0261 | a | Execute Discrete,Not_In_Range
01b5 6801 |h | Jump_Zero 0x1b7
01b6 08e0 | | Execute_Immediate Raise,0xe0
01b7 e403 | | Load 0x2,0x3
01b8 e417 | | Load 0x2,0x17
01b9 0270 | p | Execute Discrete,Divide
01ba a41a | | Store_Unchecked 0x2,0x1a
01bb e403 | | Load 0x2,0x3
01bc e417 | | Load 0x2,0x17
01bd 026e | n | Execute Discrete,Modulo
01be a41b | | Store_Unchecked 0x2,0x1b
01bf 4800 |H | Short_Literal 0x0
01c0 a40f | | Store_Unchecked 0x2,0xf
01c1 00cf | | Action Mark_Auxiliary
01c2 841e | | Call 0x2,0x1e
01c3 e40d | | Load 0x2,0xd
01c4 00d8 | | Load_Top At_Offset_0
01c5 0d41 | A | Execute_Immediate Less,0x41
01c6 700d |p | Jump_Nonzero 0x1d4
01c7 00d8 | | Load_Top At_Offset_0
01c8 0c47 | G | Execute_Immediate Greater_Equal,0x47
01c9 7005 |p | Jump_Nonzero 0x1cf
01ca 00d1 | | Pop_Control Pop_Count_1
01cb e40d | | Load 0x2,0xd
01cc 0ac9 | | Execute_Immediate Plus,-0x37
01cd a418 | | Store_Unchecked 0x2,0x18
01ce 7831 |x1 | Jump 0x200
01cf 4861 |Ha | Short_Literal 0x61
01d0 4866 |Hf | Short_Literal 0x66
01d1 0262 | b | Execute Discrete,In_Range
01d2 700a |p | Jump_Nonzero 0x1dd
01d3 780d |x | Jump 0x1e1
01d4 4830 |H0 | Short_Literal 0x30
01d5 4839 |H9 | Short_Literal 0x39
01d6 0262 | b | Execute Discrete,In_Range
01d7 7001 |p | Jump_Nonzero 0x1d9
01d8 7808 |x | Jump 0x1e1
01d9 e40d | | Load 0x2,0xd
01da 0ad0 | | Execute_Immediate Plus,-0x30
01db a418 | | Store_Unchecked 0x2,0x18
01dc 7823 |x# | Jump 0x200
01dd e40d | | Load 0x2,0xd
01de 0aa9 | | Execute_Immediate Plus,-0x57
01df a418 | | Store_Unchecked 0x2,0x18
01e0 781f |x | Jump 0x200
01e1 e40e | | Load 0x2,0xe
01e2 0f5f | _ | Execute_Immediate Equal,0x5f
01e3 e40e | | Load 0x2,0xe
01e4 0f2e | . | Execute_Immediate Equal,0x2e
01e5 0278 | x | Execute Discrete,Or
01e6 e40e | | Load 0x2,0xe
01e7 e419 | | Load 0x2,0x19
01e8 027f | | Execute Discrete,Equal
01e9 0278 | x | Execute Discrete,Or
01ea 6801 |h | Jump_Zero 0x1ec
01eb 08e0 | | Execute_Immediate Raise,0xe0
01ec e40d | | Load 0x2,0xd
01ed 0f5f | _ | Execute_Immediate Equal,0x5f
01ee 6801 |h | Jump_Zero 0x1f0
01ef 7fd2 | | Jump 0x1c2
01f0 e40d | | Load 0x2,0xd
01f1 0f2e | . | Execute_Immediate Equal,0x2e
01f2 6806 |h | Jump_Zero 0x1f9
01f3 e415 | | Load 0x2,0x15
01f4 6801 |h | Jump_Zero 0x1f6
01f5 08e0 | | Execute_Immediate Raise,0xe0
01f6 4801 |H | Short_Literal 0x1
01f7 a415 | | Store_Unchecked 0x2,0x15
01f8 7fc9 | | Jump 0x1c2
01f9 e40d | | Load 0x2,0xd
01fa e419 | | Load 0x2,0x19
01fb 027e | ~ | Execute Discrete,Not_Equal
01fc 6801 |h | Jump_Zero 0x1fe
01fd 08e0 | | Execute_Immediate Raise,0xe0
01fe 841e | | Call 0x2,0x1e
01ff 7833 |x3 | Jump 0x233
0200 e418 | | Load 0x2,0x18
0201 e417 | | Load 0x2,0x17
0202 027b | { | Execute Discrete,Greater_Equal
0203 6801 |h | Jump_Zero 0x205
0204 08e0 | | Execute_Immediate Raise,0xe0
0205 e40f | | Load 0x2,0xf
0206 e41a | | Load 0x2,0x1a
0207 027f | | Execute Discrete,Equal
0208 6806 |h | Jump_Zero 0x20f
0209 e418 | | Load 0x2,0x18
020a e41b | | Load 0x2,0x1b
020b 027d | } | Execute Discrete,Greater
020c 6802 |h | Jump_Zero 0x20f
020d 4800 |H | Short_Literal 0x0
020e a418 | | Store_Unchecked 0x2,0x18
020f e40f | | Load 0x2,0xf
0210 e41a | | Load 0x2,0x1a
0211 027a | z | Execute Discrete,Less_Equal
0212 6814 |h | Jump_Zero 0x227
0213 e40f | | Load 0x2,0xf
0214 e417 | | Load 0x2,0x17
0215 0271 | q | Execute Discrete,Times
0216 e418 | | Load 0x2,0x18
0217 0273 | s | Execute Discrete,Plus
0218 a40f | | Store_Unchecked 0x2,0xf
0219 e418 | | Load 0x2,0x18
021a 7004 |p | Jump_Nonzero 0x21f
021b e410 | | Load 0x2,0x10
021c 0a01 | | Execute_Immediate Plus,0x1
021d c410 | | Store 0x2,0x10
021e 7802 |x | Jump 0x221
021f 4800 |H | Short_Literal 0x0
0220 a410 | | Store_Unchecked 0x2,0x10
0221 e415 | | Load 0x2,0x15
0222 680e |h | Jump_Zero 0x231
0223 e411 | | Load 0x2,0x11
0224 0aff | | Execute_Immediate Plus,-0x1
0225 c411 | | Store 0x2,0x11
0226 780a |x | Jump 0x231
0227 e413 | | Load 0x2,0x13
0228 e418 | | Load 0x2,0x18
0229 0e00 | | Execute_Immediate Not_Equal,0x0
022a 0278 | x | Execute Discrete,Or
022b a413 | | Store_Unchecked 0x2,0x13
022c e415 | | Load 0x2,0x15
022d 7003 |p | Jump_Nonzero 0x231
022e e411 | | Load 0x2,0x11
022f 0a01 | | Execute_Immediate Plus,0x1
0230 c411 | | Store 0x2,0x11
0231 00c9 | | Action Pop_Auxiliary_Loop
0232 7f8f | | Jump 0x1c2
0233 00ce | | Action Pop_Auxiliary
0234 e410 | | Load 0x2,0x10
0235 0c01 | | Execute_Immediate Greater_Equal,0x1
0236 680a |h | Jump_Zero 0x241
0237 e40f | | Load 0x2,0xf
0238 e417 | | Load 0x2,0x17
0239 e410 | | Load 0x2,0x10
023a 026d | m | Execute Discrete,Exponentiate
023b 0270 | p | Execute Discrete,Divide
023c a40f | | Store_Unchecked 0x2,0xf
023d e411 | | Load 0x2,0x11
023e e410 | | Load 0x2,0x10
023f 0273 | s | Execute Discrete,Plus
0240 c411 | | Store 0x2,0x11
0241 e415 | | Load 0x2,0x15
0242 7003 |p | Jump_Nonzero 0x246
0243 e5fe | | Load 0x2,-0x2
0244 7001 |p | Jump_Nonzero 0x246
0245 08e0 | | Execute_Immediate Raise,0xe0
0246 e40f | | Load 0x2,0xf
0247 0237 | 7 | Execute Float,Convert_From_Discrete
0248 a416 | | Store_Unchecked 0x2,0x16
0249 e40f | | Load 0x2,0xf
024a e416 | | Load 0x2,0x16
024b 0235 | 5 | Execute Float,Round_To_Discrete
024c 00e5 | | Load_Encached Long_Integer_Cache
024d 025e | ^ | Execute Discrete,Convert
024e 0272 | r | Execute Discrete,Minus
024f a412 | | Store_Unchecked 0x2,0x12
0250 e412 | | Load 0x2,0x12
0251 0c01 | | Execute_Immediate Greater_Equal,0x1
0252 6802 |h | Jump_Zero 0x255
0253 4801 |H | Short_Literal 0x1
0254 a413 | | Store_Unchecked 0x2,0x13
0255 e417 | | Load 0x2,0x17
0256 00d8 | | Load_Top At_Offset_0
0257 4802 |H | Short_Literal 0x2
0258 4810 |H | Short_Literal 0x10
0259 0262 | b | Execute Discrete,In_Range
025a 6814 |h | Jump_Zero 0x26f
025b 0afe | | Execute_Immediate Plus,-0x2
025c 460e |F | Jump_Case 0xf
025d 780e |x | Jump 0x26c ; case 0x0
025e 7811 |x | Jump 0x270 ; case 0x1
025f 780c |x | Jump 0x26c ; case 0x2
0260 780f |x | Jump 0x270 ; case 0x3
0261 780e |x | Jump 0x270 ; case 0x4
0262 780d |x | Jump 0x270 ; case 0x5
0263 7808 |x | Jump 0x26c ; case 0x6
0264 780b |x | Jump 0x270 ; case 0x7
0265 780a |x | Jump 0x270 ; case 0x8
0266 7809 |x | Jump 0x270 ; case 0x9
0267 7808 |x | Jump 0x270 ; case 0xa
0268 7807 |x | Jump 0x270 ; case 0xb
0269 7806 |x | Jump 0x270 ; case 0xc
026a 7805 |x | Jump 0x270 ; case 0xd
026b 7800 |x | Jump 0x26c ; case 0xe
026c 4800 |H | Short_Literal 0x0
026d a413 | | Store_Unchecked 0x2,0x13
026e 7801 |x | Jump 0x270
026f 00d1 | | Pop_Control Pop_Count_1
0270 e40d | | Load 0x2,0xd
0271 0f45 | E | Execute_Immediate Equal,0x45
0272 e40d | | Load 0x2,0xd
0273 0f65 | e | Execute_Immediate Equal,0x65
0274 0278 | x | Execute Discrete,Or
0275 6817 |h | Jump_Zero 0x28d
0276 841e | | Call 0x2,0x1e
0277 00e5 | | Load_Encached Long_Integer_Cache
0278 841f | | Call 0x2,0x1f
0279 c41c | | Store 0x2,0x1c
027a e416 | | Load 0x2,0x16
027b 014e | N | Execute Float,Equal_Zero
027c e41c | | Load 0x2,0x1c
027d 6066 |`f | Indirect_Literal Discrete,0x2e4,{0xffffffff, 0xc0000001}
027e 027c | | | Execute Discrete,Less
027f 0278 | x | Execute Discrete,Or
0280 6803 |h | Jump_Zero 0x284
0281 585e |X^ | Indirect_Literal Float,0x2e0,0.0
0282 a416 | | Store_Unchecked 0x2,0x16
0283 7809 |x | Jump 0x28d
0284 e411 | | Load 0x2,0x11
0285 e41c | | Load 0x2,0x1c
0286 00d8 | | Load_Top At_Offset_0
0287 00e2 | | Load_Encached Integer_Cache
0288 0260 | ` | Execute Discrete,In_Type
0289 7001 |p | Jump_Nonzero 0x28b
028a 0801 | | Execute_Immediate Raise,0x1
028b 0273 | s | Execute Discrete,Plus
028c c411 | | Store 0x2,0x11
028d 00cf | | Action Mark_Auxiliary
028e e40c | | Load 0x2,0xc
028f e40b | | Load 0x2,0xb
0290 0263 | c | Execute Discrete,Above_Bound
0291 7007 |p | Jump_Nonzero 0x299
0292 e40d | | Load 0x2,0xd
0293 0e20 | | Execute_Immediate Not_Equal,0x20
0294 6801 |h | Jump_Zero 0x296
0295 08e0 | | Execute_Immediate Raise,0xe0
0296 841e | | Call 0x2,0x1e
0297 00c8 | | Action Pop_Auxiliary_Range
0298 3ff9 |? | Loop_Increasing 0x292
0299 00ce | | Action Pop_Auxiliary
029a e416 | | Load 0x2,0x16
029b 014d | M | Execute Float,Not_Equal_Zero
029c e411 | | Load 0x2,0x11
029d 0e00 | | Execute_Immediate Not_Equal,0x0
029e 0279 | y | Execute Discrete,And
029f 680c |h | Jump_Zero 0x2ac
02a0 e411 | | Load 0x2,0x11
02a1 0d00 | | Execute_Immediate Less,0x0
02a2 6802 |h | Jump_Zero 0x2a5
02a3 8420 | | Call 0x2,0x20
02a4 7807 |x | Jump 0x2ac
02a5 e416 | | Load 0x2,0x16
02a6 e417 | | Load 0x2,0x17
02a7 0237 | 7 | Execute Float,Convert_From_Discrete
02a8 e411 | | Load 0x2,0x11
02a9 0239 | 9 | Execute Float,Exponentiate
02aa 023b | ; | Execute Float,Times
02ab a416 | | Store_Unchecked 0x2,0x16
02ac e413 | | Load 0x2,0x13
02ad 6829 |h) | Jump_Zero 0x2d7
02ae e416 | | Load 0x2,0x16
02af 023e | > | Execute Float,Absolute_Value
02b0 e406 | | Load 0x2,0x6
02b1 e407 | | Load 0x2,0x7
02b2 4808 |H | Short_Literal 0x8
02b3 4802 |H | Short_Literal 0x2
02b4 0099 | | Action Reference_Dynamic
02b5 8003 | | Call 0x0,0x3
02b6 a41d | | Store_Unchecked 0x2,0x1d
02b7 e41d | | Load 0x2,0x1d
02b8 4803 |H | Short_Literal 0x3
02b9 0279 | y | Execute Discrete,And
02ba 0b00 | | Execute_Immediate Case_Compare,0x0
02bb 7012 |p | Jump_Nonzero 0x2ce
02bc 0b01 | | Execute_Immediate Case_Compare,0x1
02bd 7005 |p | Jump_Nonzero 0x2c3
02be 0b02 | | Execute_Immediate Case_Compare,0x2
02bf 7007 |p | Jump_Nonzero 0x2c7
02c0 0f03 | | Execute_Immediate Equal,0x3
02c1 7009 |p | Jump_Nonzero 0x2cb
02c2 780e |x | Jump 0x2d1
02c3 00d1 | | Pop_Control Pop_Count_1
02c4 4fff |O | Short_Literal -0x1
02c5 a412 | | Store_Unchecked 0x2,0x12
02c6 780a |x | Jump 0x2d1
02c7 00d1 | | Pop_Control Pop_Count_1
02c8 4802 |H | Short_Literal 0x2
02c9 a412 | | Store_Unchecked 0x2,0x12
02ca 7806 |x | Jump 0x2d1
02cb 4801 |H | Short_Literal 0x1
02cc a412 | | Store_Unchecked 0x2,0x12
02cd 7803 |x | Jump 0x2d1
02ce 00d1 | | Pop_Control Pop_Count_1
02cf 4800 |H | Short_Literal 0x0
02d0 a412 | | Store_Unchecked 0x2,0x12
02d1 e41d | | Load 0x2,0x1d
02d2 09cc | | Execute_Immediate Binary_Scale,-0x34
02d3 6008 |` | Indirect_Literal Discrete,0x2dc,{0xffffffff, 0xfffffbcd}
02d4 0273 | s | Execute Discrete,Plus
02d5 a41c | | Store_Unchecked 0x2,0x1c
02d6 8421 | ! | Call 0x2,0x21
02d7 e416 | | Load 0x2,0x16
02d8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02d9 TRAP_00f8:
02d9 0007 | | Action Break_Optional
02da 08e0 | | Execute_Immediate Raise,0xe0
02db 0000 | | .XXX[0x1]
02dc ffff ffff | | .LITERAL {0xffffffff, 0xfffffbcd}
02e0 0000 0000 | | .DBL 0.0
02e2 0000 0000 | |
02e4 ffff ffff | | .LITERAL {0xffffffff, 0xc0000001}
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 e213 | | Load 0x1,0x13
02ec 0257 | W | Execute Discrete,Raise
02ed 0000 0000 | | .XXX[0x3]
02ef 0000 | |
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f8 | | .CONST 0x02f8 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0005 | | .CONST 0x0005 ; Number of locals
02f3 INIT_02f0:
02f3 00e6 | | Load_Encached Float_Cache
02f4 03d8 | | Declare_Variable Float,Duplicate
02f5 03d8 | | Declare_Variable Float,Duplicate
02f6 00e2 | | Load_Encached Integer_Cache
02f7 0635 | 5 | Execute_Immediate Set_Value_Unchecked,0x35
02f8 BODY_02f0:
02f8 e5ff | | Load 0x2,-0x1
02f9 014b | K | Execute Float,Less_Zero
02fa e5fe | | Load 0x2,-0x2
02fb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02fc 027e | ~ | Execute Discrete,Not_Equal
02fd 6802 |h | Jump_Zero 0x300
02fe 8222 | " | Call 0x1,0x22
02ff 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0300 e5fe | | Load 0x2,-0x2
0301 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0302 6811 |h | Jump_Zero 0x314
0303 e20f | | Load 0x1,0xf
0304 0322 | " | Declare_Variable Record
0305 4800 |H | Short_Literal 0x0
0306 00d9 | | Load_Top At_Offset_1
0307 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0308 e5fe | | Load 0x2,-0x2
0309 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
030a 00d9 | | Load_Top At_Offset_1
030b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
030c e5fe | | Load 0x2,-0x2
030d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
030e 00d9 | | Load_Top At_Offset_1
030f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0310 e5ff | | Load 0x2,-0x1
0311 023f | ? | Execute Float,Unary_Minus
0312 8223 | # | Call 0x1,0x23
0313 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0314 e5fe | | Load 0x2,-0x2
0315 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0316 00d9 | | Load_Top At_Offset_1
0317 0273 | s | Execute Discrete,Plus
0318 4bff |K | Short_Literal 0x3ff
0319 027d | } | Execute Discrete,Greater
031a 6805 |h | Jump_Zero 0x320
031b 4bff |K | Short_Literal 0x3ff
031c e5fe | | Load 0x2,-0x2
031d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
031e 0272 | r | Execute Discrete,Minus
031f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0320 e5fe | | Load 0x2,-0x2
0321 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0322 0237 | 7 | Execute Float,Convert_From_Discrete
0323 5818 |X | Indirect_Literal Float,0x33c,2.0
0324 00da | | Load_Top At_Offset_2
0325 0275 | u | Execute Discrete,Unary_Minus
0326 0239 | 9 | Execute Float,Exponentiate
0327 023b | ; | Execute Float,Times
0328 a402 | | Store_Unchecked 0x2,0x2
0329 5812 |X | Indirect_Literal Float,0x33c,2.0
032a e5fe | | Load 0x2,-0x2
032b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
032c 00da | | Load_Top At_Offset_2
032d 0273 | s | Execute Discrete,Plus
032e 0239 | 9 | Execute Float,Exponentiate
032f 0043 | C | Store_Top_Uncheched Float,At_Offset_3
0330 00db | | Load_Top At_Offset_3
0331 00db | | Load_Top At_Offset_3
0332 023b | ; | Execute Float,Times
0333 0042 | B | Store_Top_Unchecked Float,At_Offset_2
0334 e5ff | | Load 0x2,-0x1
0335 00da | | Load_Top At_Offset_2
0336 0246 | F | Execute Float,Not_Equal
0337 6801 |h | Jump_Zero 0x339
0338 8222 | " | Call 0x1,0x22
0339 4503 |E | Exit_Suprogram New_Top_Offset 0x3
033a 0000 0000 | | .XXX[0x2]
033c 4000 0000 |@ | .DBL 2.0
033e 0000 0000 | |
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 e40d | | Load 0x2,0xd
0344 a40e | | Store_Unchecked 0x2,0xe
0345 e40b | | Load 0x2,0xb
0346 0a01 | | Execute_Immediate Plus,0x1
0347 c40b | | Store 0x2,0xb
0348 e40b | | Load 0x2,0xb
0349 e40c | | Load 0x2,0xc
034a 027a | z | Execute Discrete,Less_Equal
034b 6805 |h | Jump_Zero 0x351
034c e40b | | Load 0x2,0xb
034d e5ff | | Load 0x2,-0x1
034e 01d7 | | Execute Vector,Field_Read
034f a40d | | Store_Unchecked 0x2,0xd
0350 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0351 4820 |H | Short_Literal 0x20
0352 a40d | | Store_Unchecked 0x2,0xd
0353 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0354 0000 0000 | | .BLANK 0000[0x4]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035d | ] | .CONST 0x035d ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0002 | | .CONST 0x0002 ; Number of locals
035b INIT_0358:
035b 00e5 | | Load_Encached Long_Integer_Cache
035c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
035d BODY_0358:
035d e40d | | Load 0x2,0xd
035e 0f2d | - | Execute_Immediate Equal,0x2d
035f a414 | | Store_Unchecked 0x2,0x14
0360 e40d | | Load 0x2,0xd
0361 0f2b | + | Execute_Immediate Equal,0x2b
0362 e40d | | Load 0x2,0xd
0363 0f2d | - | Execute_Immediate Equal,0x2d
0364 0278 | x | Execute Discrete,Or
0365 6801 |h | Jump_Zero 0x367
0366 841e | | Call 0x2,0x1e
0367 e40d | | Load 0x2,0xd
0368 4830 |H0 | Short_Literal 0x30
0369 4839 |H9 | Short_Literal 0x39
036a 0261 | a | Execute Discrete,Not_In_Range
036b 6801 |h | Jump_Zero 0x36d
036c 08e0 | | Execute_Immediate Raise,0xe0
036d 00cf | | Action Mark_Auxiliary
036e e40d | | Load 0x2,0xd
036f 4830 |H0 | Short_Literal 0x30
0370 4839 |H9 | Short_Literal 0x39
0371 0262 | b | Execute Discrete,In_Range
0372 7008 |p | Jump_Nonzero 0x37b
0373 e40e | | Load 0x2,0xe
0374 0f5f | _ | Execute_Immediate Equal,0x5f
0375 6801 |h | Jump_Zero 0x377
0376 08e0 | | Execute_Immediate Raise,0xe0
0377 e40d | | Load 0x2,0xd
0378 0e5f | _ | Execute_Immediate Not_Equal,0x5f
0379 702c |p, | Jump_Nonzero 0x3a6
037a 7828 |x( | Jump 0x3a3
037b e40d | | Load 0x2,0xd
037c 0ad0 | | Execute_Immediate Plus,-0x30
037d a418 | | Store_Unchecked 0x2,0x18
037e 00d9 | | Load_Top At_Offset_1
037f e404 | | Load 0x2,0x4
0380 027f | | Execute Discrete,Equal
0381 6806 |h | Jump_Zero 0x388
0382 e418 | | Load 0x2,0x18
0383 e405 | | Load 0x2,0x5
0384 027d | } | Execute Discrete,Greater
0385 6802 |h | Jump_Zero 0x388
0386 4800 |H | Short_Literal 0x0
0387 a418 | | Store_Unchecked 0x2,0x18
0388 00d9 | | Load_Top At_Offset_1
0389 e404 | | Load 0x2,0x4
038a 027d | } | Execute Discrete,Greater
038b 6809 |h | Jump_Zero 0x395
038c e411 | | Load 0x2,0x11
038d 0a01 | | Execute_Immediate Plus,0x1
038e c411 | | Store 0x2,0x11
038f e413 | | Load 0x2,0x13
0390 e418 | | Load 0x2,0x18
0391 0e00 | | Execute_Immediate Not_Equal,0x0
0392 0278 | x | Execute Discrete,Or
0393 a413 | | Store_Unchecked 0x2,0x13
0394 780e |x | Jump 0x3a3
0395 00d9 | | Load_Top At_Offset_1
0396 480a |H | Short_Literal 0xa
0397 0271 | q | Execute Discrete,Times
0398 e418 | | Load 0x2,0x18
0399 0273 | s | Execute Discrete,Plus
039a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
039b e418 | | Load 0x2,0x18
039c 7004 |p | Jump_Nonzero 0x3a1
039d e410 | | Load 0x2,0x10
039e 0a01 | | Execute_Immediate Plus,0x1
039f c410 | | Store 0x2,0x10
03a0 7802 |x | Jump 0x3a3
03a1 4800 |H | Short_Literal 0x0
03a2 a410 | | Store_Unchecked 0x2,0x10
03a3 841e | | Call 0x2,0x1e
03a4 00c9 | | Action Pop_Auxiliary_Loop
03a5 7fc8 | | Jump 0x36e
03a6 00ce | | Action Pop_Auxiliary
03a7 e414 | | Load 0x2,0x14
03a8 6804 |h | Jump_Zero 0x3ad
03a9 00d8 | | Load_Top At_Offset_0
03aa 0275 | u | Execute Discrete,Unary_Minus
03ab a7ff | | Store_Unchecked 0x3,-0x1
03ac 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03ad 00d8 | | Load_Top At_Offset_0
03ae a7ff | | Store_Unchecked 0x3,-0x1
03af 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3 | | .CONST 0x03b3 ; Address of begin
03b1 03d4 | | .CONST 0x03d4 ; Address of exception handler
03b2 0001 | | .CONST 0x0001 ; Number of locals
03b3 BODY_03b0:
03b3 INIT_03b0:
03b3 e411 | | Load 0x2,0x11
03b4 4f38 |O8 | Short_Literal -0xc8
03b5 027d | } | Execute Discrete,Greater
03b6 6809 |h | Jump_Zero 0x3c0
03b7 e416 | | Load 0x2,0x16
03b8 e417 | | Load 0x2,0x17
03b9 0237 | 7 | Execute Float,Convert_From_Discrete
03ba e411 | | Load 0x2,0x11
03bb 0275 | u | Execute Discrete,Unary_Minus
03bc 0239 | 9 | Execute Float,Exponentiate
03bd 023a | : | Execute Float,Divide
03be a416 | | Store_Unchecked 0x2,0x16
03bf 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03c0 e416 | | Load 0x2,0x16
03c1 581e |X | Indirect_Literal Float,0x3e0,3.402823669209385e+38
03c2 023a | : | Execute Float,Divide
03c3 e417 | | Load 0x2,0x17
03c4 0237 | 7 | Execute Float,Convert_From_Discrete
03c5 48c8 |H | Short_Literal 0xc8
03c6 0239 | 9 | Execute Float,Exponentiate
03c7 5818 |X | Indirect_Literal Float,0x3e0,3.402823669209385e+38
03c8 023a | : | Execute Float,Divide
03c9 e417 | | Load 0x2,0x17
03ca 0237 | 7 | Execute Float,Convert_From_Discrete
03cb e411 | | Load 0x2,0x11
03cc 0275 | u | Execute Discrete,Unary_Minus
03cd 4f38 |O8 | Short_Literal -0xc8
03ce 0273 | s | Execute Discrete,Plus
03cf 0239 | 9 | Execute Float,Exponentiate
03d0 023b | ; | Execute Float,Times
03d1 023a | : | Execute Float,Divide
03d2 a416 | | Store_Unchecked 0x2,0x16
03d3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03d4 TRAP_03b0:
03d4 0007 | | Action Break_Optional
03d5 e416 | | Load 0x2,0x16
03d6 e417 | | Load 0x2,0x17
03d7 0237 | 7 | Execute Float,Convert_From_Discrete
03d8 e411 | | Load 0x2,0x11
03d9 0239 | 9 | Execute Float,Exponentiate
03da 023b | ; | Execute Float,Times
03db a416 | | Store_Unchecked 0x2,0x16
03dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03dd 0000 0000 | | .XXX[0x3]
03df 0000 | |
03e0 47f0 0000 |G | .DBL 3.402823669209385e+38
03e2 0000 0000 | |
03e4 0000 0000 | | .BLANK 0000[0x4]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 040c | | .CONST 0x040c ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb e416 | | Load 0x2,0x16
03ec 014a | J | Execute Float,Greater_Equal_Zero
03ed 680f |h | Jump_Zero 0x3fd
03ee e416 | | Load 0x2,0x16
03ef e412 | | Load 0x2,0x12
03f0 0237 | 7 | Execute Float,Convert_From_Discrete
03f1 581e |X | Indirect_Literal Float,0x410,2.0
03f2 e41c | | Load 0x2,0x1c
03f3 00d8 | | Load_Top At_Offset_0
03f4 00e2 | | Load_Encached Integer_Cache
03f5 0260 | ` | Execute Discrete,In_Type
03f6 7001 |p | Jump_Nonzero 0x3f8
03f7 0801 | | Execute_Immediate Raise,0x1
03f8 0239 | 9 | Execute Float,Exponentiate
03f9 023b | ; | Execute Float,Times
03fa 023d | = | Execute Float,Plus
03fb a416 | | Store_Unchecked 0x2,0x16
03fc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03fd e416 | | Load 0x2,0x16
03fe e412 | | Load 0x2,0x12
03ff 0237 | 7 | Execute Float,Convert_From_Discrete
0400 580f |X | Indirect_Literal Float,0x410,2.0
0401 e41c | | Load 0x2,0x1c
0402 00d8 | | Load_Top At_Offset_0
0403 00e2 | | Load_Encached Integer_Cache
0404 0260 | ` | Execute Discrete,In_Type
0405 7001 |p | Jump_Nonzero 0x407
0406 0801 | | Execute_Immediate Raise,0x1
0407 0239 | 9 | Execute Float,Exponentiate
0408 023b | ; | Execute Float,Times
0409 023c | < | Execute Float,Minus
040a a416 | | Store_Unchecked 0x2,0x16
040b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
040c TRAP_03e8:
040c 0007 | | Action Break_Optional
040d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
040e 0000 0000 | | .XXX[0x2]
0410 4000 0000 |@ | .DBL 2.0
0412 0000 0000 | |
0414 0000 0000 | | .BLANK 0000[0x4]
0418 ; --------------------------------------------------------------------------------------
0418 ; Debug Table
0418 ; --------------------------------------------------------------------------------------
0418 0004 000d | | .DEBUG4 0x0004,0x000d,0x7a71,0x0000,0x0001,0x0000
041e 0000 13b2 | | .XXX[0xa]
0420 0001 0404 | |
0422 0800 0280 | |
0424 0000 0004 | |
0426 0000 0004 | |
0428 0000 0000 | | .BLANK 0000[0x7]
042f 000f 09ac | | .XXX[0x9]
0431 4004 8000 |@ |
0433 0002 09ac | |
0435 3004 0000 |0 |
0437 0002 | |
0438 0000 0000 | | .BLANK 0000[0xe]
0446 0001 31ce | 1 | .XXX[0x3]
0448 3000 |0 |
0449 0000 0000 | | .BLANK 0000[0xd]
0456 400a 0000 |@ | .XXX[0xb]
0458 0000 0000 | |
045a 0080 0000 | |
045c 0440 0000 | @ |
045e 0002 0000 | |
0460 0014 | |
0461 0000 0000 | | .BLANK 0000[0x2e]
048f 0801 4000 | @ | .XXX[0xc]
0491 0000 0000 | |
0493 0010 0000 | |
0495 0088 0000 | |
0497 0000 4000 | @ |
0499 0002 8000 | |
049b 0000 0000 | | .BLANK 0000[0x2d]
04c8 0100 2800 | ( | .XXX[0xc]
04ca 0000 0000 | |
04cc 0002 0000 | |
04ce 0011 0000 | |
04d0 0000 0800 | |
04d2 0000 5000 | P |
04d4 0000 0000 | | .BLANK 0000[0x2d]
0501 0020 0500 | | .XXX[0xc]
0503 0000 0000 | |
0505 0000 4000 | @ |
0507 0002 2000 | |
0509 0000 0100 | |
050b 0000 0a00 | |
050d 0000 0000 | | .BLANK 0000[0x2d]
053a 0004 00a0 | | .XXX[0xc]
053c 0000 0000 | |
053e 0000 0800 | |
0540 0000 4400 | D |
0542 0000 0020 | |
0544 0000 0140 | @|
0546 0000 0000 | | .BLANK 0000[0x2e]
0574 8014 0000 | | .XXX[0xb]
0576 0000 0000 | |
0578 0100 0000 | |
057a 0880 0000 | |
057c 0004 0000 | |
057e 0028 | ( |
057f 0000 0000 | | .BLANK 0000[0x2e]
05ad 1002 8000 | | .XXX[0xb]
05af 0000 0000 | |
05b1 0020 0000 | |
05b3 0110 0000 | |
05b5 0000 8000 | |
05b7 0005 | |
05b8 0000 0000 | | .BLANK 0000[0x48]