|
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: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0d2ce3
└─⟦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 0728 | ( | .CONST 0x0728 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0042 | B | .CONST 0x0042 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0020 | | .CONST 0x0020 ; Number of locals
000b INIT_0008:
000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
000d 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
000f 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
0011 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated
0013 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated
0015 00bf | | Action Accept_Activation
0016 00e1 | | Load_Encached Boolean_Cache
0017 4801 |H | Short_Literal 0x1
0018 481e |H | Short_Literal 0x1e
0019 00e9 | | Load_Encached String_Cache
001a 035b | [ | Declare_Type Array,Constrained
001b 0337 | 7 | Declare_Variable Array
001c e001 | | Load 0x0,0x1
001d 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
001e 0337 | 7 | Declare_Variable Array
001f 00e1 | | Load_Encached Boolean_Cache
0020 e001 | | Load 0x0,0x1
0021 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0022 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0023 e002 | | Load 0x0,0x2
0024 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0025 0322 | " | Declare_Variable Record
0026 00e1 | | Load_Encached Boolean_Cache
0027 e003 | | Load 0x0,0x3
0028 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0029 0322 | " | Declare_Variable Record
002a 029d 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call
002c 029d 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call
002e 029d 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call
0030 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0031 00c7 | | Action Elaborate_Subprogram
0032 029d 048b | | Declare_Subprogram INIT_0488,For_Outer_Call
0034 029d 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call
0036 029d 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call
0038 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0039 00c7 | | Action Elaborate_Subprogram
003a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
003b 00c7 | | Action Elaborate_Subprogram
003c 1d0e | | Execute_Immediate Reference_Lex_1,0xe
003d 00c7 | | Action Elaborate_Subprogram
003e 1d10 | | Execute_Immediate Reference_Lex_1,0x10
003f 00c7 | | Action Elaborate_Subprogram
0040 029d 067b | {| Declare_Subprogram INIT_0678,For_Outer_Call
0042 BODY_0008:
0042 00bc | | Action Signal_Activated
0043 00bb | | Action Signal_Completion
0044 0000 0000 | | .BLANK 0000[0x4]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 0062 | b | .CONST 0x0062 ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0010 | | .CONST 0x0010 ; Number of locals
004b INIT_0048:
004b 00e1 | | Load_Encached Boolean_Cache
004c 03e9 | | Declare_Variable Discrete,Duplicate
004d 03e9 | | Declare_Variable Discrete,Duplicate
004e 03e9 | | Declare_Variable Discrete,Duplicate
004f 00e2 | | Load_Encached Integer_Cache
0050 03e9 | | Declare_Variable Discrete,Duplicate
0051 03e9 | | Declare_Variable Discrete,Duplicate
0052 03e9 | | Declare_Variable Discrete,Duplicate
0053 03e9 | | Declare_Variable Discrete,Duplicate
0054 e001 | | Load 0x0,0x1
0055 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0056 0322 | " | Declare_Variable Record
0057 e004 | | Load 0x0,0x4
0058 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0059 e002 | | Load 0x0,0x2
005a 1910 | | Execute Package,Field_Reference,Field_Number 0x10
005b 00c6 | | Action Check_Subprogram_Elaborated
005c e001 | | Load 0x0,0x1
005d 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
005e e005 | | Load 0x0,0x5
005f e006 | | Load 0x0,0x6
0060 4810 |H | Short_Literal 0x10
0061 0007 | | Action Break_Optional
0062 BODY_0048:
0062 e5fb | | Load 0x2,-0x5
0063 4801 |H | Short_Literal 0x1
0064 e007 | | Load 0x0,0x7
0065 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0066 c5fb | | Store 0x2,-0x5
0067 821f | | Call 0x1,0x1f
0068 e5ff | | Load 0x2,-0x1
0069 e007 | | Load 0x0,0x7
006a 180e | | Execute Package,Field_Execute,Field_Number 0xe
006b a407 | | Store_Unchecked 0x2,0x7
006c e407 | | Load 0x2,0x7
006d 616e |an | Indirect_Literal Discrete,0x1dc,{0x00000000, 0x0000ffff}
006e 027d | } | Execute Discrete,Greater
006f 6805 |h | Jump_Zero 0x75
0070 e407 | | Load 0x2,0x7
0071 6166 |af | Indirect_Literal Discrete,0x1d8,{0x00000000, 0x00010000}
0072 026f | o | Execute Discrete,Remainder
0073 a408 | | Store_Unchecked 0x2,0x8
0074 7802 |x | Jump 0x77
0075 e407 | | Load 0x2,0x7
0076 a408 | | Store_Unchecked 0x2,0x8
0077 e408 | | Load 0x2,0x8
0078 09fb | | Execute_Immediate Binary_Scale,-0x5
0079 a408 | | Store_Unchecked 0x2,0x8
007a e408 | | Load 0x2,0x8
007b 09f8 | | Execute_Immediate Binary_Scale,-0x8
007c e008 | | Load 0x0,0x8
007d 1b16 | | Execute Package,Field_Read,Field_Number 0x16
007e 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
007f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0080 01d7 | | Execute Vector,Field_Read
0081 e408 | | Load 0x2,0x8
0082 48ff |H | Short_Literal 0xff
0083 0279 | y | Execute Discrete,And
0084 0273 | s | Execute Discrete,Plus
0085 c40a | | Store 0x2,0xa
0086 e40a | | Load 0x2,0xa
0087 e008 | | Load 0x0,0x8
0088 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0089 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
008a 0270 | p | Execute Discrete,Divide
008b 00d8 | | Load_Top At_Offset_0
008c e009 | | Load 0x0,0x9
008d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
008e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
008f 0260 | ` | Execute Discrete,In_Type
0090 7001 |p | Jump_Nonzero 0x92
0091 0801 | | Execute_Immediate Raise,0x1
0092 e217 | | Load 0x1,0x17
0093 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0094 e40a | | Load 0x2,0xa
0095 e008 | | Load 0x0,0x8
0096 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0097 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0098 026f | o | Execute Discrete,Remainder
0099 a406 | | Store_Unchecked 0x2,0x6
009a e406 | | Load 0x2,0x6
009b e008 | | Load 0x0,0x8
009c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
009d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
009e 0270 | p | Execute Discrete,Divide
009f 00d8 | | Load_Top At_Offset_0
00a0 e009 | | Load 0x0,0x9
00a1 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00a2 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00a3 0260 | ` | Execute Discrete,In_Type
00a4 7001 |p | Jump_Nonzero 0xa6
00a5 0801 | | Execute_Immediate Raise,0x1
00a6 e217 | | Load 0x1,0x17
00a7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00a8 e406 | | Load 0x2,0x6
00a9 e008 | | Load 0x0,0x8
00aa 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00ab 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00ac 026f | o | Execute Discrete,Remainder
00ad a406 | | Store_Unchecked 0x2,0x6
00ae e406 | | Load 0x2,0x6
00af 0901 | | Execute_Immediate Binary_Scale,0x1
00b0 00d8 | | Load_Top At_Offset_0
00b1 e009 | | Load 0x0,0x9
00b2 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00b3 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00b4 0260 | ` | Execute Discrete,In_Type
00b5 7001 |p | Jump_Nonzero 0xb7
00b6 0801 | | Execute_Immediate Raise,0x1
00b7 e217 | | Load 0x1,0x17
00b8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00b9 e217 | | Load 0x1,0x17
00ba e40d | | Load 0x2,0xd
00bb 480e |H | Short_Literal 0xe
00bc 4802 |H | Short_Literal 0x2
00bd 0099 | | Action Reference_Dynamic
00be e002 | | Load 0x0,0x2
00bf 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00c0 e214 | | Load 0x1,0x14
00c1 01d4 | | Execute Vector,Structure_Write
00c2 4800 |H | Short_Literal 0x0
00c3 a403 | | Store_Unchecked 0x2,0x3
00c4 00cf | | Action Mark_Auxiliary
00c5 480f |H | Short_Literal 0xf
00c6 4800 |H | Short_Literal 0x0
00c7 0007 | | Action Break_Optional
00c8 00d8 | | Load_Top At_Offset_0
00c9 e214 | | Load 0x1,0x14
00ca 01d5 | | Execute Vector,Field_Reference
00cb e40b | | Load 0x2,0xb
00cc 017d | } | Execute Record,Structure_Write
00cd 00d8 | | Load_Top At_Offset_0
00ce e214 | | Load 0x1,0x14
00cf 01d5 | | Execute Vector,Field_Reference
00d0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00d1 e407 | | Load 0x2,0x7
00d2 027f | | Execute Discrete,Equal
00d3 685c |h\ | Jump_Zero 0x130
00d4 e216 | | Load 0x1,0x16
00d5 0f01 | | Execute_Immediate Equal,0x1
00d6 6827 |h' | Jump_Zero 0xfe
00d7 00cf | | Action Mark_Auxiliary
00d8 481e |H | Short_Literal 0x1e
00d9 4801 |H | Short_Literal 0x1
00da 0007 | | Action Break_Optional
00db 00d8 | | Load_Top At_Offset_0
00dc 4802 |H | Short_Literal 0x2
00dd 026f | o | Execute Discrete,Remainder
00de 7008 |p | Jump_Nonzero 0xe7
00df e40c | | Load 0x2,0xc
00e0 00d9 | | Load_Top At_Offset_1
00e1 e413 | | Load 0x2,0x13
00e2 e214 | | Load 0x1,0x14
00e3 01d5 | | Execute Vector,Field_Reference
00e4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00e5 01d6 | | Execute Vector,Field_Write
00e6 7814 |x | Jump 0xfb
00e7 00d8 | | Load_Top At_Offset_0
00e8 e413 | | Load 0x2,0x13
00e9 e214 | | Load 0x1,0x14
00ea 01d5 | | Execute Vector,Field_Reference
00eb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00ec 01d7 | | Execute Vector,Field_Read
00ed a40c | | Store_Unchecked 0x2,0xc
00ee 00d8 | | Load_Top At_Offset_0
00ef 0a01 | | Execute_Immediate Plus,0x1
00f0 e413 | | Load 0x2,0x13
00f1 e214 | | Load 0x1,0x14
00f2 01d5 | | Execute Vector,Field_Reference
00f3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00f4 01d7 | | Execute Vector,Field_Read
00f5 00d9 | | Load_Top At_Offset_1
00f6 e413 | | Load 0x2,0x13
00f7 e214 | | Load 0x1,0x14
00f8 01d5 | | Execute Vector,Field_Reference
00f9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00fa 01d6 | | Execute Vector,Field_Write
00fb 00c8 | | Action Pop_Auxiliary_Range
00fc 3fde |? | Loop_Increasing 0xdb
00fd 00ce | | Action Pop_Auxiliary
00fe 00d8 | | Load_Top At_Offset_0
00ff e214 | | Load 0x1,0x14
0100 01d5 | | Execute Vector,Field_Reference
0101 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0102 e00a | | Load 0x0,0xa
0103 180d | | Execute Package,Field_Execute,Field_Number 0xd
0104 e00b | | Load 0x0,0xb
0105 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0106 e213 | | Load 0x1,0x13
0107 01d4 | | Execute Vector,Structure_Write
0108 4801 |H | Short_Literal 0x1
0109 a403 | | Store_Unchecked 0x2,0x3
010a 00cf | | Action Mark_Auxiliary
010b e5ff | | Load 0x2,-0x1
010c e00c | | Load 0x0,0xc
010d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
010e 4801 |H | Short_Literal 0x1
010f 0263 | c | Execute Discrete,Above_Bound
0110 700f |p | Jump_Nonzero 0x120
0111 e403 | | Load 0x2,0x3
0112 00d9 | | Load_Top At_Offset_1
0113 e5ff | | Load 0x2,-0x1
0114 e00c | | Load 0x0,0xc
0115 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0116 e00b | | Load 0x0,0xb
0117 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0118 00da | | Load_Top At_Offset_2
0119 e213 | | Load 0x1,0x13
011a 01d7 | | Execute Vector,Field_Read
011b 027f | | Execute Discrete,Equal
011c 0279 | y | Execute Discrete,And
011d a403 | | Store_Unchecked 0x2,0x3
011e 00c8 | | Action Pop_Auxiliary_Range
011f 3ff1 |? | Loop_Increasing 0x111
0120 00ce | | Action Pop_Auxiliary
0121 e5ff | | Load 0x2,-0x1
0122 e00c | | Load 0x0,0xc
0123 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0124 0e1e | | Execute_Immediate Not_Equal,0x1e
0125 680a |h | Jump_Zero 0x130
0126 e403 | | Load 0x2,0x3
0127 e5ff | | Load 0x2,-0x1
0128 e00c | | Load 0x0,0xc
0129 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
012a 0a01 | | Execute_Immediate Plus,0x1
012b e213 | | Load 0x1,0x13
012c 01d7 | | Execute Vector,Field_Read
012d 0f00 | | Execute_Immediate Equal,0x0
012e 0279 | y | Execute Discrete,And
012f a403 | | Store_Unchecked 0x2,0x3
0130 e403 | | Load 0x2,0x3
0131 6802 |h | Jump_Zero 0x134
0132 00d2 | | Pop_Control Pop_Count_2
0133 7802 |x | Jump 0x136
0134 00c8 | | Action Pop_Auxiliary_Range
0135 3f92 |? | Loop_Increasing 0xc8
0136 00ce | | Action Pop_Auxiliary
0137 e5fe | | Load 0x2,-0x2
0138 700d |p | Jump_Nonzero 0x146
0139 e40b | | Load 0x2,0xb
013a 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
013b 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
013c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
013d 0f00 | | Execute_Immediate Equal,0x0
013e e403 | | Load 0x2,0x3
013f 0279 | y | Execute Discrete,And
0140 6803 |h | Jump_Zero 0x144
0141 4800 |H | Short_Literal 0x0
0142 a5fb | | Store_Unchecked 0x2,-0x5
0143 7802 |x | Jump 0x146
0144 4802 |H | Short_Literal 0x2
0145 a5fb | | Store_Unchecked 0x2,-0x5
0146 e5fc | | Load 0x2,-0x4
0147 0c00 | | Execute_Immediate Greater_Equal,0x0
0148 6805 |h | Jump_Zero 0x14e
0149 e5fc | | Load 0x2,-0x4
014a a409 | | Store_Unchecked 0x2,0x9
014b 4800 |H | Short_Literal 0x0
014c a402 | | Store_Unchecked 0x2,0x2
014d 7805 |x | Jump 0x153
014e e5fc | | Load 0x2,-0x4
014f 0275 | u | Execute Discrete,Unary_Minus
0150 a409 | | Store_Unchecked 0x2,0x9
0151 4801 |H | Short_Literal 0x1
0152 a402 | | Store_Unchecked 0x2,0x2
0153 e5fb | | Load 0x2,-0x5
0154 e5fa | | Load 0x2,-0x6
0155 e5ff | | Load 0x2,-0x1
0156 821c | | Call 0x1,0x1c
0157 c5fa | | Store 0x2,-0x6
0158 c5fb | | Store 0x2,-0x5
0159 e5fb | | Load 0x2,-0x5
015a 6803 |h | Jump_Zero 0x15e
015b 4801 |H | Short_Literal 0x1
015c a5fb | | Store_Unchecked 0x2,-0x5
015d 4505 |E | Exit_Suprogram New_Top_Offset 0x5
015e e5fb | | Load 0x2,-0x5
015f e5fa | | Load 0x2,-0x6
0160 821e | | Call 0x1,0x1e
0161 c5fb | | Store 0x2,-0x5
0162 e5fb | | Load 0x2,-0x5
0163 6803 |h | Jump_Zero 0x167
0164 4805 |H | Short_Literal 0x5
0165 a5fb | | Store_Unchecked 0x2,-0x5
0166 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0167 e5fa | | Load 0x2,-0x6
0168 0227 | ' | Execute Access,All_Reference
0169 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
016a 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
016b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
016c 0f00 | | Execute_Immediate Equal,0x0
016d a405 | | Store_Unchecked 0x2,0x5
016e e5fe | | Load 0x2,-0x2
016f 7009 |p | Jump_Nonzero 0x179
0170 e405 | | Load 0x2,0x5
0171 6801 |h | Jump_Zero 0x173
0172 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0173 4802 |H | Short_Literal 0x2
0174 a5fb | | Store_Unchecked 0x2,-0x5
0175 e001 | | Load 0x0,0x1
0176 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0177 a5fa | | Store_Unchecked 0x2,-0x6
0178 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0179 e5fe | | Load 0x2,-0x2
017a 0f02 | | Execute_Immediate Equal,0x2
017b 680f |h | Jump_Zero 0x18b
017c e405 | | Load 0x2,0x5
017d e5fa | | Load 0x2,-0x6
017e 0227 | ' | Execute Access,All_Reference
017f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0180 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0181 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0182 0f00 | | Execute_Immediate Equal,0x0
0183 0279 | y | Execute Discrete,And
0184 6806 |h | Jump_Zero 0x18b
0185 4806 |H | Short_Literal 0x6
0186 a5fb | | Store_Unchecked 0x2,-0x5
0187 e001 | | Load 0x0,0x1
0188 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0189 a5fa | | Store_Unchecked 0x2,-0x6
018a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
018b e5fa | | Load 0x2,-0x6
018c 0227 | ' | Execute Access,All_Reference
018d 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
018e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
018f e409 | | Load 0x2,0x9
0190 027f | | Execute Discrete,Equal
0191 6801 |h | Jump_Zero 0x193
0192 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0193 4801 |H | Short_Literal 0x1
0194 a212 | | Store_Unchecked 0x1,0x12
0195 e409 | | Load 0x2,0x9
0196 00d8 | | Load_Top At_Offset_0
0197 e001 | | Load 0x0,0x1
0198 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0199 0260 | ` | Execute Discrete,In_Type
019a 7001 |p | Jump_Nonzero 0x19c
019b 0801 | | Execute_Immediate Raise,0x1
019c e5fa | | Load 0x2,-0x6
019d 0227 | ' | Execute Access,All_Reference
019e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
019f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01a0 4801 |H | Short_Literal 0x1
01a1 a218 | | Store_Unchecked 0x1,0x18
01a2 00cf | | Action Mark_Auxiliary
01a3 4805 |H | Short_Literal 0x5
01a4 4800 |H | Short_Literal 0x0
01a5 0007 | | Action Break_Optional
01a6 00d8 | | Load_Top At_Offset_0
01a7 e5fa | | Load 0x2,-0x6
01a8 0227 | ' | Execute Access,All_Reference
01a9 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01aa 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01ab 01d5 | | Execute Vector,Field_Reference
01ac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01ad e409 | | Load 0x2,0x9
01ae 027b | { | Execute Discrete,Greater_Equal
01af 6802 |h | Jump_Zero 0x1b2
01b0 4800 |H | Short_Literal 0x0
01b1 a218 | | Store_Unchecked 0x1,0x18
01b2 00c8 | | Action Pop_Auxiliary_Range
01b3 3ff2 |? | Loop_Increasing 0x1a6
01b4 00ce | | Action Pop_Auxiliary
01b5 e218 | | Load 0x1,0x18
01b6 681e |h | Jump_Zero 0x1d5
01b7 e5fa | | Load 0x2,-0x6
01b8 0227 | ' | Execute Access,All_Reference
01b9 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01ba 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
01bb 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01bc 6803 |h | Jump_Zero 0x1c0
01bd 4808 |H | Short_Literal 0x8
01be a5fb | | Store_Unchecked 0x2,-0x5
01bf 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01c0 e405 | | Load 0x2,0x5
01c1 6803 |h | Jump_Zero 0x1c5
01c2 e5fa | | Load 0x2,-0x6
01c3 e00d | | Load 0x0,0xd
01c4 180f | | Execute Package,Field_Execute,Field_Number 0xf
01c5 e404 | | Load 0x2,0x4
01c6 e402 | | Load 0x2,0x2
01c7 e5fa | | Load 0x2,-0x6
01c8 e00d | | Load 0x0,0xd
01c9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01ca c404 | | Store 0x2,0x4
01cb e404 | | Load 0x2,0x4
01cc 6808 |h | Jump_Zero 0x1d5
01cd 4804 |H | Short_Literal 0x4
01ce a5fb | | Store_Unchecked 0x2,-0x5
01cf e405 | | Load 0x2,0x5
01d0 6803 |h | Jump_Zero 0x1d4
01d1 e5fa | | Load 0x2,-0x6
01d2 821d | | Call 0x1,0x1d
01d3 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01d4 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01d5 e5fa | | Load 0x2,-0x6
01d6 8211 | | Call 0x1,0x11
01d7 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01d8 0000 0000 | | .LITERAL {0x00000000, 0x00010000}
01dc 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e5 | | .CONST 0x01e5 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 e001 | | Load 0x0,0x1
01e4 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
01e5 BODY_01e0:
01e5 e215 | | Load 0x1,0x15
01e6 7001 |p | Jump_Nonzero 0x1e8
01e7 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01e8 e5fb | | Load 0x2,-0x5
01e9 821b | | Call 0x1,0x1b
01ea 680f |h | Jump_Zero 0x1fa
01eb 4803 |H | Short_Literal 0x3
01ec a5fc | | Store_Unchecked 0x2,-0x4
01ed e5fc | | Load 0x2,-0x4
01ee e5fb | | Load 0x2,-0x5
01ef 0227 | ' | Execute Access,All_Reference
01f0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01f1 e00a | | Load 0x0,0xa
01f2 180d | | Execute Package,Field_Execute,Field_Number 0xd
01f3 e00c | | Load 0x0,0xc
01f4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01f5 e5fe | | Load 0x2,-0x2
01f6 e007 | | Load 0x0,0x7
01f7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01f8 c5fc | | Store 0x2,-0x4
01f9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01fa 4800 |H | Short_Literal 0x0
01fb a5fc | | Store_Unchecked 0x2,-0x4
01fc e5fb | | Load 0x2,-0x5
01fd e008 | | Load 0x0,0x8
01fe 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01ff 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0200 022f | / | Execute Access,Equal
0201 6805 |h | Jump_Zero 0x207
0202 e001 | | Load 0x0,0x1
0203 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0204 e008 | | Load 0x0,0x8
0205 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0206 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0207 00db | | Load_Top At_Offset_3
0208 7006 |p | Jump_Nonzero 0x20f
0209 e5fb | | Load 0x2,-0x5
020a 8211 | | Call 0x1,0x11
020b e5fb | | Load 0x2,-0x5
020c 821a | | Call 0x1,0x1a
020d c5fb | | Store 0x2,-0x5
020e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
020f e5fb | | Load 0x2,-0x5
0210 0227 | ' | Execute Access,All_Reference
0211 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0212 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0213 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0214 6814 |h | Jump_Zero 0x229
0215 4808 |H | Short_Literal 0x8
0216 a5fc | | Store_Unchecked 0x2,-0x4
0217 e5fc | | Load 0x2,-0x4
0218 e5fb | | Load 0x2,-0x5
0219 0227 | ' | Execute Access,All_Reference
021a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
021b e00a | | Load 0x0,0xa
021c 180d | | Execute Package,Field_Execute,Field_Number 0xd
021d e00c | | Load 0x0,0xc
021e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
021f e5fe | | Load 0x2,-0x2
0220 e007 | | Load 0x0,0x7
0221 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0222 c5fc | | Store 0x2,-0x4
0223 e5fb | | Load 0x2,-0x5
0224 8211 | | Call 0x1,0x11
0225 e5fb | | Load 0x2,-0x5
0226 821a | | Call 0x1,0x1a
0227 c5fb | | Store 0x2,-0x5
0228 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0229 00db | | Load_Top At_Offset_3
022a 0f02 | | Execute_Immediate Equal,0x2
022b 6809 |h | Jump_Zero 0x235
022c e5fb | | Load 0x2,-0x5
022d 821d | | Call 0x1,0x1d
022e e5fb | | Load 0x2,-0x5
022f e00d | | Load 0x0,0xd
0230 180f | | Execute Package,Field_Execute,Field_Number 0xf
0231 e5fb | | Load 0x2,-0x5
0232 821a | | Call 0x1,0x1a
0233 c5fb | | Store 0x2,-0x5
0234 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0235 00db | | Load_Top At_Offset_3
0236 0f01 | | Execute_Immediate Equal,0x1
0237 6867 |hg | Jump_Zero 0x29f
0238 e5fd | | Load 0x2,-0x3
0239 e00c | | Load 0x0,0xc
023a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
023b 7014 |p | Jump_Nonzero 0x250
023c 4801 |H | Short_Literal 0x1
023d a5fc | | Store_Unchecked 0x2,-0x4
023e e5fc | | Load 0x2,-0x4
023f e5fb | | Load 0x2,-0x5
0240 0227 | ' | Execute Access,All_Reference
0241 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0242 e00a | | Load 0x0,0xa
0243 180d | | Execute Package,Field_Execute,Field_Number 0xd
0244 e00c | | Load 0x0,0xc
0245 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0246 e5fe | | Load 0x2,-0x2
0247 e007 | | Load 0x0,0x7
0248 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0249 c5fc | | Store 0x2,-0x4
024a e5fb | | Load 0x2,-0x5
024b 8211 | | Call 0x1,0x11
024c e5fb | | Load 0x2,-0x5
024d 821a | | Call 0x1,0x1a
024e c5fb | | Store 0x2,-0x5
024f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0250 e5fc | | Load 0x2,-0x4
0251 00d9 | | Load_Top At_Offset_1
0252 e5fd | | Load 0x2,-0x3
0253 821c | | Call 0x1,0x1c
0254 003a | : | Store_Top Access,At_Offset_2
0255 c5fc | | Store 0x2,-0x4
0256 e5fc | | Load 0x2,-0x4
0257 680c |h | Jump_Zero 0x264
0258 e5fc | | Load 0x2,-0x4
0259 e5fd | | Load 0x2,-0x3
025a e5fe | | Load 0x2,-0x2
025b e007 | | Load 0x0,0x7
025c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
025d c5fc | | Store 0x2,-0x4
025e 00d8 | | Load_Top At_Offset_0
025f 821a | | Call 0x1,0x1a
0260 0039 | 9 | Store_Top Access,At_Offset_1
0261 e5fb | | Load 0x2,-0x5
0262 8211 | | Call 0x1,0x11
0263 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0264 e5fc | | Load 0x2,-0x4
0265 00d9 | | Load_Top At_Offset_1
0266 821e | | Call 0x1,0x1e
0267 c5fc | | Store 0x2,-0x4
0268 e5fc | | Load 0x2,-0x4
0269 680c |h | Jump_Zero 0x276
026a e5fc | | Load 0x2,-0x4
026b e5fd | | Load 0x2,-0x3
026c e5fe | | Load 0x2,-0x2
026d e007 | | Load 0x0,0x7
026e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
026f c5fc | | Store 0x2,-0x4
0270 00d8 | | Load_Top At_Offset_0
0271 821a | | Call 0x1,0x1a
0272 0039 | 9 | Store_Top Access,At_Offset_1
0273 e5fb | | Load 0x2,-0x5
0274 8211 | | Call 0x1,0x11
0275 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0276 00d8 | | Load_Top At_Offset_0
0277 0227 | ' | Execute Access,All_Reference
0278 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0279 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
027a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
027b 700e |p | Jump_Nonzero 0x28a
027c 4806 |H | Short_Literal 0x6
027d a5fc | | Store_Unchecked 0x2,-0x4
027e e5fc | | Load 0x2,-0x4
027f e5fd | | Load 0x2,-0x3
0280 e5fe | | Load 0x2,-0x2
0281 e007 | | Load 0x0,0x7
0282 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0283 c5fc | | Store 0x2,-0x4
0284 00d8 | | Load_Top At_Offset_0
0285 821a | | Call 0x1,0x1a
0286 0039 | 9 | Store_Top Access,At_Offset_1
0287 e5fb | | Load 0x2,-0x5
0288 8211 | | Call 0x1,0x11
0289 4504 |E | Exit_Suprogram New_Top_Offset 0x4
028a e5fb | | Load 0x2,-0x5
028b 0227 | ' | Execute Access,All_Reference
028c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
028d 00d9 | | Load_Top At_Offset_1
028e 0227 | ' | Execute Access,All_Reference
028f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0290 4801 |H | Short_Literal 0x1
0291 00d9 | | Load_Top At_Offset_1
0292 0227 | ' | Execute Access,All_Reference
0293 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0294 e5fb | | Load 0x2,-0x5
0295 821d | | Call 0x1,0x1d
0296 00d8 | | Load_Top At_Offset_0
0297 8211 | | Call 0x1,0x11
0298 00d8 | | Load_Top At_Offset_0
0299 821a | | Call 0x1,0x1a
029a 0039 | 9 | Store_Top Access,At_Offset_1
029b e5fb | | Load 0x2,-0x5
029c 821a | | Call 0x1,0x1a
029d c5fb | | Store 0x2,-0x5
029e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
029f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02b2 | | .CONST 0x02b2 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0008 | | .CONST 0x0008 ; Number of locals
02a3 INIT_02a0:
02a3 00e1 | | Load_Encached Boolean_Cache
02a4 e001 | | Load 0x0,0x1
02a5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
02a6 0322 | " | Declare_Variable Record
02a7 e002 | | Load 0x0,0x2
02a8 1911 | | Execute Package,Field_Reference,Field_Number 0x11
02a9 00c6 | | Action Check_Subprogram_Elaborated
02aa e00e | | Load 0x0,0xe
02ab 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02ac e00f | | Load 0x0,0xf
02ad e010 | | Load 0x0,0x10
02ae 4807 |H | Short_Literal 0x7
02af 0007 | | Action Break_Optional
02b0 029f 06c3 | | Declare_Subprogram INIT_06c0,For_Call
02b2 BODY_02a0:
02b2 4800 |H | Short_Literal 0x0
02b3 a5f9 | | Store_Unchecked 0x2,-0x7
02b4 e5ff | | Load 0x2,-0x1
02b5 821b | | Call 0x1,0x1b
02b6 680f |h | Jump_Zero 0x2c6
02b7 4803 |H | Short_Literal 0x3
02b8 a5f9 | | Store_Unchecked 0x2,-0x7
02b9 e5f9 | | Load 0x2,-0x7
02ba e5ff | | Load 0x2,-0x1
02bb 0227 | ' | Execute Access,All_Reference
02bc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02bd e00a | | Load 0x0,0xa
02be 180d | | Execute Package,Field_Execute,Field_Number 0xd
02bf e00c | | Load 0x0,0xc
02c0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02c1 e5fb | | Load 0x2,-0x5
02c2 e007 | | Load 0x0,0x7
02c3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02c4 c5f9 | | Store 0x2,-0x7
02c5 4507 |E | Exit_Suprogram New_Top_Offset 0x7
02c6 e5fe | | Load 0x2,-0x2
02c7 e5ff | | Load 0x2,-0x1
02c8 0227 | ' | Execute Access,All_Reference
02c9 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02ca 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02cb 027b | { | Execute Discrete,Greater_Equal
02cc 680f |h | Jump_Zero 0x2dc
02cd 4809 |H | Short_Literal 0x9
02ce a5f9 | | Store_Unchecked 0x2,-0x7
02cf e5f9 | | Load 0x2,-0x7
02d0 e5ff | | Load 0x2,-0x1
02d1 0227 | ' | Execute Access,All_Reference
02d2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02d3 e00a | | Load 0x0,0xa
02d4 180d | | Execute Package,Field_Execute,Field_Number 0xd
02d5 e00c | | Load 0x0,0xc
02d6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02d7 e5fb | | Load 0x2,-0x5
02d8 e007 | | Load 0x0,0x7
02d9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02da c5f9 | | Store 0x2,-0x7
02db 4507 |E | Exit_Suprogram New_Top_Offset 0x7
02dc e5fd | | Load 0x2,-0x3
02dd e5fc | | Load 0x2,-0x4
02de 0273 | s | Execute Discrete,Plus
02df 4a00 |J | Short_Literal 0x200
02e0 027d | } | Execute Discrete,Greater
02e1 680f |h | Jump_Zero 0x2f1
02e2 480a |H | Short_Literal 0xa
02e3 a5f9 | | Store_Unchecked 0x2,-0x7
02e4 e5f9 | | Load 0x2,-0x7
02e5 e5ff | | Load 0x2,-0x1
02e6 0227 | ' | Execute Access,All_Reference
02e7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02e8 e00a | | Load 0x0,0xa
02e9 180d | | Execute Package,Field_Execute,Field_Number 0xd
02ea e00c | | Load 0x0,0xc
02eb 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02ec e5fb | | Load 0x2,-0x5
02ed e007 | | Load 0x0,0x7
02ee 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02ef c5f9 | | Store 0x2,-0x7
02f0 4507 |E | Exit_Suprogram New_Top_Offset 0x7
02f1 e5ff | | Load 0x2,-0x1
02f2 0227 | ' | Execute Access,All_Reference
02f3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02f4 e403 | | Load 0x2,0x3
02f5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02f6 e5ff | | Load 0x2,-0x1
02f7 0227 | ' | Execute Access,All_Reference
02f8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02f9 e403 | | Load 0x2,0x3
02fa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02fb e5ff | | Load 0x2,-0x1
02fc 0227 | ' | Execute Access,All_Reference
02fd 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02fe e403 | | Load 0x2,0x3
02ff 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0300 e5fe | | Load 0x2,-0x2
0301 e403 | | Load 0x2,0x3
0302 8408 | | Call 0x2,0x8
0303 4801 |H | Short_Literal 0x1
0304 e5fa | | Load 0x2,-0x6
0305 e217 | | Load 0x1,0x17
0306 e404 | | Load 0x2,0x4
0307 4805 |H | Short_Literal 0x5
0308 4802 |H | Short_Literal 0x2
0309 0099 | | Action Reference_Dynamic
030a e002 | | Load 0x0,0x2
030b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
030c e402 | | Load 0x2,0x2
030d 7002 |p | Jump_Nonzero 0x310
030e 480c |H | Short_Literal 0xc
030f a5f9 | | Store_Unchecked 0x2,-0x7
0310 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0311 0000 0000 | | .BLANK 0000[0x7]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 0320 | | .CONST 0x0320 ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0003 | | .CONST 0x0003 ; Number of locals
031b INIT_0318:
031b e00e | | Load 0x0,0xe
031c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
031d e00e | | Load 0x0,0xe
031e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
031f 0337 | 7 | Declare_Variable Array
0320 BODY_0318:
0320 e008 | | Load 0x0,0x8
0321 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0322 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0323 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0324 6856 |hV | Jump_Zero 0x37b
0325 e008 | | Load 0x0,0x8
0326 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0327 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0328 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0329 09f8 | | Execute_Immediate Binary_Scale,-0x8
032a 00d8 | | Load_Top At_Offset_0
032b e004 | | Load 0x0,0x4
032c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
032d 0260 | ` | Execute Discrete,In_Type
032e 7001 |p | Jump_Nonzero 0x330
032f 0801 | | Execute_Immediate Raise,0x1
0330 4800 |H | Short_Literal 0x0
0331 00da | | Load_Top At_Offset_2
0332 01d6 | | Execute Vector,Field_Write
0333 e008 | | Load 0x0,0x8
0334 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0335 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0336 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0337 e008 | | Load 0x0,0x8
0338 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0339 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
033a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
033b 09f8 | | Execute_Immediate Binary_Scale,-0x8
033c 0908 | | Execute_Immediate Binary_Scale,0x8
033d 0272 | r | Execute Discrete,Minus
033e 00d8 | | Load_Top At_Offset_0
033f e004 | | Load 0x0,0x4
0340 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0341 0260 | ` | Execute Discrete,In_Type
0342 7001 |p | Jump_Nonzero 0x344
0343 0801 | | Execute_Immediate Raise,0x1
0344 4801 |H | Short_Literal 0x1
0345 00da | | Load_Top At_Offset_2
0346 01d6 | | Execute Vector,Field_Write
0347 e008 | | Load 0x0,0x8
0348 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0349 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
034a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
034b 09f8 | | Execute_Immediate Binary_Scale,-0x8
034c 00d8 | | Load_Top At_Offset_0
034d e004 | | Load 0x0,0x4
034e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
034f 0260 | ` | Execute Discrete,In_Type
0350 7001 |p | Jump_Nonzero 0x352
0351 0801 | | Execute_Immediate Raise,0x1
0352 4802 |H | Short_Literal 0x2
0353 00da | | Load_Top At_Offset_2
0354 01d6 | | Execute Vector,Field_Write
0355 e008 | | Load 0x0,0x8
0356 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0357 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0358 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0359 e008 | | Load 0x0,0x8
035a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
035b 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
035c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
035d 09f8 | | Execute_Immediate Binary_Scale,-0x8
035e 00d8 | | Load_Top At_Offset_0
035f 00e2 | | Load_Encached Integer_Cache
0360 0260 | ` | Execute Discrete,In_Type
0361 7001 |p | Jump_Nonzero 0x363
0362 0801 | | Execute_Immediate Raise,0x1
0363 0908 | | Execute_Immediate Binary_Scale,0x8
0364 0272 | r | Execute Discrete,Minus
0365 00d8 | | Load_Top At_Offset_0
0366 e004 | | Load 0x0,0x4
0367 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0368 0260 | ` | Execute Discrete,In_Type
0369 7001 |p | Jump_Nonzero 0x36b
036a 0801 | | Execute_Immediate Raise,0x1
036b 4803 |H | Short_Literal 0x3
036c 00da | | Load_Top At_Offset_2
036d 01d6 | | Execute Vector,Field_Write
036e 00d9 | | Load_Top At_Offset_1
036f 00d9 | | Load_Top At_Offset_1
0370 4801 |H | Short_Literal 0x1
0371 e008 | | Load 0x0,0x8
0372 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0373 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0374 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0375 e007 | | Load 0x0,0x7
0376 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0377 005a | Z | Store_Top Discrete,At_Offset_2
0378 00d9 | | Load_Top At_Offset_1
0379 6801 |h | Jump_Zero 0x37b
037a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
037b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
037c 0000 0000 | | .BLANK 0000[0x4]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 038a | | .CONST 0x038a ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0004 | | .CONST 0x0004 ; Number of locals
0383 INIT_0380:
0383 e001 | | Load 0x0,0x1
0384 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0385 0322 | " | Declare_Variable Record
0386 00e1 | | Load_Encached Boolean_Cache
0387 e00e | | Load 0x0,0xe
0388 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0389 0337 | 7 | Declare_Variable Array
038a BODY_0380:
038a e5ff | | Load 0x2,-0x1
038b 0227 | ' | Execute Access,All_Reference
038c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
038d 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
038e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
038f e5ff | | Load 0x2,-0x1
0390 0227 | ' | Execute Access,All_Reference
0391 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0392 0278 | x | Execute Discrete,Or
0393 6828 |h( | Jump_Zero 0x3bc
0394 4800 |H | Short_Literal 0x0
0395 e5ff | | Load 0x2,-0x1
0396 0227 | ' | Execute Access,All_Reference
0397 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0398 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0399 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
039a e5ff | | Load 0x2,-0x1
039b 0227 | ' | Execute Access,All_Reference
039c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
039d 00db | | Load_Top At_Offset_3
039e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
039f e5ff | | Load 0x2,-0x1
03a0 0227 | ' | Execute Access,All_Reference
03a1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03a2 00db | | Load_Top At_Offset_3
03a3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03a4 e5ff | | Load 0x2,-0x1
03a5 0227 | ' | Execute Access,All_Reference
03a6 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
03a7 00db | | Load_Top At_Offset_3
03a8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03a9 00d9 | | Load_Top At_Offset_1
03aa 4820 |H | Short_Literal 0x20
03ab e402 | | Load 0x2,0x2
03ac e5ff | | Load 0x2,-0x1
03ad 0227 | ' | Execute Access,All_Reference
03ae 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
03af e5ff | | Load 0x2,-0x1
03b0 0227 | ' | Execute Access,All_Reference
03b1 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03b2 e00d | | Load 0x0,0xd
03b3 180d | | Execute Package,Field_Execute,Field_Number 0xd
03b4 005a | Z | Store_Top Discrete,At_Offset_2
03b5 00d9 | | Load_Top At_Offset_1
03b6 7001 |p | Jump_Nonzero 0x3b8
03b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03b8 4800 |H | Short_Literal 0x0
03b9 e5ff | | Load 0x2,-0x1
03ba 0227 | ' | Execute Access,All_Reference
03bb 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
03bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03bd 0000 0000 | | .XXX[0x3]
03bf 0000 | |
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c8 | | .CONST 0x03c8 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0004 | | .CONST 0x0004 ; Number of locals
03c3 INIT_03c0:
03c3 e001 | | Load 0x0,0x1
03c4 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
03c5 e001 | | Load 0x0,0x1
03c6 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
03c7 00e1 | | Load_Encached Boolean_Cache
03c8 BODY_03c0:
03c8 e008 | | Load 0x0,0x8
03c9 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03ca 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
03cb 003b | ; | Store_Top Access,At_Offset_3
03cc e001 | | Load 0x0,0x1
03cd 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
03ce 003a | : | Store_Top Access,At_Offset_2
03cf 4800 |H | Short_Literal 0x0
03d0 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
03d1 00cf | | Action Mark_Auxiliary
03d2 780e |x | Jump 0x3e1
03d3 00db | | Load_Top At_Offset_3
03d4 e5ff | | Load 0x2,-0x1
03d5 022f | / | Execute Access,Equal
03d6 6803 |h | Jump_Zero 0x3da
03d7 4801 |H | Short_Literal 0x1
03d8 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
03d9 7806 |x | Jump 0x3e0
03da 00db | | Load_Top At_Offset_3
03db 003b | ; | Store_Top Access,At_Offset_3
03dc 00db | | Load_Top At_Offset_3
03dd 0227 | ' | Execute Access,All_Reference
03de 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
03df a402 | | Store_Unchecked 0x2,0x2
03e0 00c9 | | Action Pop_Auxiliary_Loop
03e1 00db | | Load_Top At_Offset_3
03e2 022c | , | Execute Access,Not_Null
03e3 00da | | Load_Top At_Offset_2
03e4 0f00 | | Execute_Immediate Equal,0x0
03e5 0279 | y | Execute Discrete,And
03e6 77ec |w | Jump_Nonzero 0x3d3
03e7 00ce | | Action Pop_Auxiliary
03e8 00d8 | | Load_Top At_Offset_0
03e9 7001 |p | Jump_Nonzero 0x3eb
03ea 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03eb 00d9 | | Load_Top At_Offset_1
03ec 7007 |p | Jump_Nonzero 0x3f4
03ed 00da | | Load_Top At_Offset_2
03ee 0227 | ' | Execute Access,All_Reference
03ef 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
03f0 e008 | | Load 0x0,0x8
03f1 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03f2 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
03f3 7806 |x | Jump 0x3fa
03f4 00da | | Load_Top At_Offset_2
03f5 0227 | ' | Execute Access,All_Reference
03f6 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
03f7 00da | | Load_Top At_Offset_2
03f8 0227 | ' | Execute Access,All_Reference
03f9 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
03fa e001 | | Load 0x0,0x1
03fb 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
03fc a5ff | | Store_Unchecked 0x2,-0x1
03fd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03fe 0000 0000 | | .XXX[0x2]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0406 | | .CONST 0x0406 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0003 | | .CONST 0x0003 ; Number of locals
0403 INIT_0400:
0403 e001 | | Load 0x0,0x1
0404 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0405 00e1 | | Load_Encached Boolean_Cache
0406 BODY_0400:
0406 e008 | | Load 0x0,0x8
0407 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0408 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0409 003a | : | Store_Top Access,At_Offset_2
040a 4801 |H | Short_Literal 0x1
040b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
040c 00cf | | Action Mark_Auxiliary
040d 780c |x | Jump 0x41a
040e 00da | | Load_Top At_Offset_2
040f e5ff | | Load 0x2,-0x1
0410 022f | / | Execute Access,Equal
0411 6803 |h | Jump_Zero 0x415
0412 4800 |H | Short_Literal 0x0
0413 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0414 7804 |x | Jump 0x419
0415 00da | | Load_Top At_Offset_2
0416 0227 | ' | Execute Access,All_Reference
0417 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0418 003b | ; | Store_Top Access,At_Offset_3
0419 00c9 | | Action Pop_Auxiliary_Loop
041a 00da | | Load_Top At_Offset_2
041b 022c | , | Execute Access,Not_Null
041c 00da | | Load_Top At_Offset_2
041d 0279 | y | Execute Discrete,And
041e 77ef |w | Jump_Nonzero 0x40e
041f 00ce | | Action Pop_Auxiliary
0420 00d8 | | Load_Top At_Offset_0
0421 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0422 0000 0000 | | .BLANK 0000[0x6]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042f | / | .CONST 0x042f ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0005 | | .CONST 0x0005 ; Number of locals
042b INIT_0428:
042b 00e2 | | Load_Encached Integer_Cache
042c 03e9 | | Declare_Variable Discrete,Duplicate
042d 00e2 | | Load_Encached Integer_Cache
042e 00e8 | | Load_Encached Character_Cache
042f BODY_0428:
042f 4801 |H | Short_Literal 0x1
0430 a5fd | | Store_Unchecked 0x2,-0x3
0431 e001 | | Load 0x0,0x1
0432 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0433 03bc | | Declare_Variable Access,By_Allocation
0434 a5fe | | Store_Unchecked 0x2,-0x2
0435 e008 | | Load 0x0,0x8
0436 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0437 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0438 e5fe | | Load 0x2,-0x2
0439 0227 | ' | Execute Access,All_Reference
043a 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
043b e5fe | | Load 0x2,-0x2
043c e008 | | Load 0x0,0x8
043d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
043e 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
043f e5ff | | Load 0x2,-0x1
0440 e00c | | Load 0x0,0xc
0441 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0442 0c1f | | Execute_Immediate Greater_Equal,0x1f
0443 e5ff | | Load 0x2,-0x1
0444 e00c | | Load 0x0,0xc
0445 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0446 0d01 | | Execute_Immediate Less,0x1
0447 0278 | x | Execute Discrete,Or
0448 6801 |h | Jump_Zero 0x44a
0449 4502 |E | Exit_Suprogram New_Top_Offset 0x2
044a e5ff | | Load 0x2,-0x1
044b e007 | | Load 0x0,0x7
044c 180e | | Execute Package,Field_Execute,Field_Number 0xe
044d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
044e 00cf | | Action Mark_Auxiliary
044f e5ff | | Load 0x2,-0x1
0450 e00c | | Load 0x0,0xc
0451 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0452 4801 |H | Short_Literal 0x1
0453 0263 | c | Execute Discrete,Above_Bound
0454 7010 |p | Jump_Nonzero 0x465
0455 00d8 | | Load_Top At_Offset_0
0456 e5ff | | Load 0x2,-0x1
0457 e00c | | Load 0x0,0xc
0458 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0459 e00b | | Load 0x0,0xb
045a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
045b e00a | | Load 0x0,0xa
045c 180e | | Execute Package,Field_Execute,Field_Number 0xe
045d 01d7 | | Execute Vector,Field_Read
045e 00d9 | | Load_Top At_Offset_1
045f e5fe | | Load 0x2,-0x2
0460 0227 | ' | Execute Access,All_Reference
0461 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0462 01d6 | | Execute Vector,Field_Write
0463 00c8 | | Action Pop_Auxiliary_Range
0464 3ff0 |? | Loop_Increasing 0x455
0465 00c9 | | Action Pop_Auxiliary_Loop
0466 481e |H | Short_Literal 0x1e
0467 e5ff | | Load 0x2,-0x1
0468 e00c | | Load 0x0,0xc
0469 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
046a 0a01 | | Execute_Immediate Plus,0x1
046b 00d8 | | Load_Top At_Offset_0
046c 00e2 | | Load_Encached Integer_Cache
046d 0260 | ` | Execute Discrete,In_Type
046e 7001 |p | Jump_Nonzero 0x470
046f 0801 | | Execute_Immediate Raise,0x1
0470 0263 | c | Execute Discrete,Above_Bound
0471 7008 |p | Jump_Nonzero 0x47a
0472 4800 |H | Short_Literal 0x0
0473 00d9 | | Load_Top At_Offset_1
0474 e5fe | | Load 0x2,-0x2
0475 0227 | ' | Execute Access,All_Reference
0476 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0477 01d6 | | Execute Vector,Field_Write
0478 00c8 | | Action Pop_Auxiliary_Range
0479 3ff8 |? | Loop_Increasing 0x472
047a 00ce | | Action Pop_Auxiliary
047b 00d9 | | Load_Top At_Offset_1
047c 00d8 | | Load_Top At_Offset_0
047d e001 | | Load 0x0,0x1
047e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
047f 0260 | ` | Execute Discrete,In_Type
0480 7001 |p | Jump_Nonzero 0x482
0481 0801 | | Execute_Immediate Raise,0x1
0482 e5fe | | Load 0x2,-0x2
0483 0227 | ' | Execute Access,All_Reference
0484 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0485 4800 |H | Short_Literal 0x0
0486 a5fd | | Store_Unchecked 0x2,-0x3
0487 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 0497 | | .CONST 0x0497 ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0006 | | .CONST 0x0006 ; Number of locals
048b INIT_0488:
048b e001 | | Load 0x0,0x1
048c 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
048d 0337 | 7 | Declare_Variable Array
048e 00e2 | | Load_Encached Integer_Cache
048f 00e2 | | Load_Encached Integer_Cache
0490 e00e | | Load 0x0,0xe
0491 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0492 4801 |H | Short_Literal 0x1
0493 481e |H | Short_Literal 0x1e
0494 00e9 | | Load_Encached String_Cache
0495 035b | [ | Declare_Type Array,Constrained
0496 0337 | 7 | Declare_Variable Array
0497 BODY_0488:
0497 e5ff | | Load 0x2,-0x1
0498 0227 | ' | Execute Access,All_Reference
0499 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
049a 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
049b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
049c 7046 |pF | Jump_Nonzero 0x4e3
049d e5ff | | Load 0x2,-0x1
049e 0227 | ' | Execute Access,All_Reference
049f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04a0 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
04a1 00d9 | | Load_Top At_Offset_1
04a2 e402 | | Load 0x2,0x2
04a3 4801 |H | Short_Literal 0x1
04a4 e404 | | Load 0x2,0x4
04a5 e007 | | Load 0x0,0x7
04a6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04a7 00d1 | | Pop_Control Pop_Count_1
04a8 005a | Z | Store_Top Discrete,At_Offset_2
04a9 00d9 | | Load_Top At_Offset_1
04aa 6801 |h | Jump_Zero 0x4ac
04ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04ac 00cf | | Action Mark_Auxiliary
04ad 480f |H | Short_Literal 0xf
04ae e5ff | | Load 0x2,-0x1
04af 0227 | ' | Execute Access,All_Reference
04b0 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
04b1 0a01 | | Execute_Immediate Plus,0x1
04b2 00d8 | | Load_Top At_Offset_0
04b3 00e2 | | Load_Encached Integer_Cache
04b4 0260 | ` | Execute Discrete,In_Type
04b5 7001 |p | Jump_Nonzero 0x4b7
04b6 0801 | | Execute_Immediate Raise,0x1
04b7 0263 | c | Execute Discrete,Above_Bound
04b8 7012 |p | Jump_Nonzero 0x4cb
04b9 00d8 | | Load_Top At_Offset_0
04ba e402 | | Load 0x2,0x2
04bb 01d5 | | Execute Vector,Field_Reference
04bc 00d9 | | Load_Top At_Offset_1
04bd 0aff | | Execute_Immediate Plus,-0x1
04be e402 | | Load 0x2,0x2
04bf 01d6 | | Execute Vector,Field_Write
04c0 00d8 | | Load_Top At_Offset_0
04c1 0aff | | Execute_Immediate Plus,-0x1
04c2 e402 | | Load 0x2,0x2
04c3 01d5 | | Execute Vector,Field_Reference
04c4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04c5 e00a | | Load 0x0,0xa
04c6 180d | | Execute Package,Field_Execute,Field_Number 0xd
04c7 e406 | | Load 0x2,0x6
04c8 01d4 | | Execute Vector,Structure_Write
04c9 00c8 | | Action Pop_Auxiliary_Range
04ca 3fee |? | Loop_Increasing 0x4b9
04cb 00ce | | Action Pop_Auxiliary
04cc 4801 |H | Short_Literal 0x1
04cd 480f |H | Short_Literal 0xf
04ce e402 | | Load 0x2,0x2
04cf 01d5 | | Execute Vector,Field_Reference
04d0 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
04d1 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
04d2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04d3 00d9 | | Load_Top At_Offset_1
04d4 e402 | | Load 0x2,0x2
04d5 4801 |H | Short_Literal 0x1
04d6 e404 | | Load 0x2,0x4
04d7 e007 | | Load 0x0,0x7
04d8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04d9 005a | Z | Store_Top Discrete,At_Offset_2
04da 00d9 | | Load_Top At_Offset_1
04db 6801 |h | Jump_Zero 0x4dd
04dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04dd 4801 |H | Short_Literal 0x1
04de e5ff | | Load 0x2,-0x1
04df 0227 | ' | Execute Access,All_Reference
04e0 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
04e1 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
04e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04e4 0000 0000 | | .BLANK 0000[0x4]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 0554 | T | .CONST 0x0554 ; Address of begin
04e9 0004 | | .CONST 0x0004 ; Address of exception handler
04ea 000b | | .CONST 0x000b ; Number of locals
04eb INIT_04e8:
04eb e001 | | Load 0x0,0x1
04ec 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04ed 00e2 | | Load_Encached Integer_Cache
04ee e001 | | Load 0x0,0x1
04ef 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
04f0 0337 | 7 | Declare_Variable Array
04f1 00e2 | | Load_Encached Integer_Cache
04f2 e001 | | Load 0x0,0x1
04f3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
04f4 0322 | " | Declare_Variable Record
04f5 e00e | | Load 0x0,0xe
04f6 1b11 | | Execute Package,Field_Read,Field_Number 0x11
04f7 00e1 | | Load_Encached Boolean_Cache
04f8 4850 |HP | Short_Literal 0x50
04f9 e00c | | Load 0x0,0xc
04fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04fb 1c08 | | Execute_Immediate Run_Utility,0x8
04fc 00d8 | | Load_Top At_Offset_0
04fd 1c00 | | Execute_Immediate Run_Utility,0x0
04fe 4850 |HP | Short_Literal 0x50
04ff e00c | | Load 0x0,0xc
0500 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0501 1c08 | | Execute_Immediate Run_Utility,0x8
0502 00d8 | | Load_Top At_Offset_0
0503 1c00 | | Execute_Immediate Run_Utility,0x0
0504 e001 | | Load 0x0,0x1
0505 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0506 0337 | 7 | Declare_Variable Array
0507 00d8 | | Load_Top At_Offset_0
0508 0335 | 5 | Declare_Variable Array,Duplicate
0509 00cd | | Action Spare6_Action
050a e001 | | Load 0x0,0x1
050b 1b20 | | Execute Package,Field_Read,Field_Number 0x20
050c 0322 | " | Declare_Variable Record
050d 4800 |H | Short_Literal 0x0
050e 00d9 | | Load_Top At_Offset_1
050f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0510 4800 |H | Short_Literal 0x0
0511 00d9 | | Load_Top At_Offset_1
0512 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0513 4800 |H | Short_Literal 0x0
0514 00da | | Load_Top At_Offset_2
0515 01d6 | | Execute Vector,Field_Write
0516 e001 | | Load 0x0,0x1
0517 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0518 0322 | " | Declare_Variable Record
0519 4800 |H | Short_Literal 0x0
051a 00d9 | | Load_Top At_Offset_1
051b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
051c 4800 |H | Short_Literal 0x0
051d 00d9 | | Load_Top At_Offset_1
051e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
051f 4801 |H | Short_Literal 0x1
0520 00da | | Load_Top At_Offset_2
0521 01d6 | | Execute Vector,Field_Write
0522 e001 | | Load 0x0,0x1
0523 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0524 0322 | " | Declare_Variable Record
0525 4800 |H | Short_Literal 0x0
0526 00d9 | | Load_Top At_Offset_1
0527 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0528 4800 |H | Short_Literal 0x0
0529 00d9 | | Load_Top At_Offset_1
052a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
052b 4802 |H | Short_Literal 0x2
052c 00da | | Load_Top At_Offset_2
052d 01d6 | | Execute Vector,Field_Write
052e e001 | | Load 0x0,0x1
052f 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0530 0322 | " | Declare_Variable Record
0531 4800 |H | Short_Literal 0x0
0532 00d9 | | Load_Top At_Offset_1
0533 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0534 4800 |H | Short_Literal 0x0
0535 00d9 | | Load_Top At_Offset_1
0536 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0537 4803 |H | Short_Literal 0x3
0538 00da | | Load_Top At_Offset_2
0539 01d6 | | Execute Vector,Field_Write
053a e001 | | Load 0x0,0x1
053b 1b20 | | Execute Package,Field_Read,Field_Number 0x20
053c 0322 | " | Declare_Variable Record
053d 4800 |H | Short_Literal 0x0
053e 00d9 | | Load_Top At_Offset_1
053f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0540 4800 |H | Short_Literal 0x0
0541 00d9 | | Load_Top At_Offset_1
0542 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0543 4804 |H | Short_Literal 0x4
0544 00da | | Load_Top At_Offset_2
0545 01d6 | | Execute Vector,Field_Write
0546 e001 | | Load 0x0,0x1
0547 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0548 0322 | " | Declare_Variable Record
0549 4800 |H | Short_Literal 0x0
054a 00d9 | | Load_Top At_Offset_1
054b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
054c 4800 |H | Short_Literal 0x0
054d 00d9 | | Load_Top At_Offset_1
054e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
054f 4805 |H | Short_Literal 0x5
0550 00da | | Load_Top At_Offset_2
0551 01d6 | | Execute Vector,Field_Write
0552 00d9 | | Load_Top At_Offset_1
0553 01d4 | | Execute Vector,Structure_Write
0554 BODY_04e8:
0554 e5ff | | Load 0x2,-0x1
0555 0227 | ' | Execute Access,All_Reference
0556 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0557 60d8 |` | Indirect_Literal Discrete,0x630,{0x00000000, 0x00010000}
0558 026f | o | Execute Discrete,Remainder
0559 09fb | | Execute_Immediate Binary_Scale,-0x5
055a 00d8 | | Load_Top At_Offset_0
055b 00e2 | | Load_Encached Integer_Cache
055c 0260 | ` | Execute Discrete,In_Type
055d 7001 |p | Jump_Nonzero 0x55f
055e 0801 | | Execute_Immediate Raise,0x1
055f a403 | | Store_Unchecked 0x2,0x3
0560 e403 | | Load 0x2,0x3
0561 09f8 | | Execute_Immediate Binary_Scale,-0x8
0562 e008 | | Load 0x0,0x8
0563 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0564 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0565 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0566 01d7 | | Execute Vector,Field_Read
0567 e403 | | Load 0x2,0x3
0568 48ff |H | Short_Literal 0xff
0569 0279 | y | Execute Discrete,And
056a 0273 | s | Execute Discrete,Plus
056b 00d8 | | Load_Top At_Offset_0
056c e001 | | Load 0x0,0x1
056d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
056e 0260 | ` | Execute Discrete,In_Type
056f 7001 |p | Jump_Nonzero 0x571
0570 0801 | | Execute_Immediate Raise,0x1
0571 a402 | | Store_Unchecked 0x2,0x2
0572 e407 | | Load 0x2,0x7
0573 e404 | | Load 0x2,0x4
0574 4801 |H | Short_Literal 0x1
0575 e402 | | Load 0x2,0x2
0576 e007 | | Load 0x0,0x7
0577 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0578 00d1 | | Pop_Control Pop_Count_1
0579 c407 | | Store 0x2,0x7
057a e407 | | Load 0x2,0x7
057b 6801 |h | Jump_Zero 0x57d
057c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
057d 00da | | Load_Top At_Offset_2
057e e5ff | | Load 0x2,-0x1
057f 0227 | ' | Execute Access,All_Reference
0580 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0581 e00a | | Load 0x0,0xa
0582 180d | | Execute Package,Field_Execute,Field_Number 0xd
0583 e00c | | Load 0x0,0xc
0584 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0585 00d1 | | Pop_Control Pop_Count_1
0586 00cf | | Action Mark_Auxiliary
0587 480f |H | Short_Literal 0xf
0588 4800 |H | Short_Literal 0x0
0589 0007 | | Action Break_Optional
058a 00d8 | | Load_Top At_Offset_0
058b e404 | | Load 0x2,0x4
058c 01d5 | | Execute Vector,Field_Reference
058d 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
058e 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
058f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0590 6848 |hH | Jump_Zero 0x5d9
0591 e406 | | Load 0x2,0x6
0592 e011 | | Load 0x0,0x11
0593 180f | | Execute Package,Field_Execute,Field_Number 0xf
0594 00d1 | | Pop_Control Pop_Count_1
0595 00db | | Load_Top At_Offset_3
0596 e5ff | | Load 0x2,-0x1
0597 0227 | ' | Execute Access,All_Reference
0598 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0599 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
059a 4800 |H | Short_Literal 0x0
059b e5ff | | Load 0x2,-0x1
059c 0227 | ' | Execute Access,All_Reference
059d 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
059e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
059f e406 | | Load 0x2,0x6
05a0 e5ff | | Load 0x2,-0x1
05a1 0227 | ' | Execute Access,All_Reference
05a2 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
05a3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
05a4 4800 |H | Short_Literal 0x0
05a5 e5ff | | Load 0x2,-0x1
05a6 0227 | ' | Execute Access,All_Reference
05a7 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
05a8 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
05a9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
05aa 4801 |H | Short_Literal 0x1
05ab e5ff | | Load 0x2,-0x1
05ac 0227 | ' | Execute Access,All_Reference
05ad 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
05ae 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
05af 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
05b0 4800 |H | Short_Literal 0x0
05b1 e5ff | | Load 0x2,-0x1
05b2 0227 | ' | Execute Access,All_Reference
05b3 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
05b4 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
05b5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
05b6 4800 |H | Short_Literal 0x0
05b7 e5ff | | Load 0x2,-0x1
05b8 0227 | ' | Execute Access,All_Reference
05b9 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
05ba 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
05bb 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
05bc 4800 |H | Short_Literal 0x0
05bd e5ff | | Load 0x2,-0x1
05be 0227 | ' | Execute Access,All_Reference
05bf 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
05c0 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
05c1 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
05c2 4801 |H | Short_Literal 0x1
05c3 e5ff | | Load 0x2,-0x1
05c4 0227 | ' | Execute Access,All_Reference
05c5 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
05c6 00d8 | | Load_Top At_Offset_0
05c7 e5ff | | Load 0x2,-0x1
05c8 0227 | ' | Execute Access,All_Reference
05c9 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
05ca 4800 |H | Short_Literal 0x0
05cb a5fe | | Store_Unchecked 0x2,-0x2
05cc e402 | | Load 0x2,0x2
05cd e5ff | | Load 0x2,-0x1
05ce 0227 | ' | Execute Access,All_Reference
05cf 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
05d0 4800 |H | Short_Literal 0x0
05d1 e5ff | | Load 0x2,-0x1
05d2 0227 | ' | Execute Access,All_Reference
05d3 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
05d4 4800 |H | Short_Literal 0x0
05d5 e5ff | | Load 0x2,-0x1
05d6 0227 | ' | Execute Access,All_Reference
05d7 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
05d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05d9 e5ff | | Load 0x2,-0x1
05da 0227 | ' | Execute Access,All_Reference
05db 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05dc 00d9 | | Load_Top At_Offset_1
05dd e404 | | Load 0x2,0x4
05de 01d5 | | Execute Vector,Field_Reference
05df 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05e0 027f | | Execute Discrete,Equal
05e1 6846 |hF | Jump_Zero 0x628
05e2 4801 |H | Short_Literal 0x1
05e3 a408 | | Store_Unchecked 0x2,0x8
05e4 e40a | | Load 0x2,0xa
05e5 00d9 | | Load_Top At_Offset_1
05e6 e404 | | Load 0x2,0x4
05e7 01d5 | | Execute Vector,Field_Reference
05e8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05e9 e00a | | Load 0x0,0xa
05ea 180d | | Execute Package,Field_Execute,Field_Number 0xd
05eb e00b | | Load 0x0,0xb
05ec 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05ed e00c | | Load 0x0,0xc
05ee 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05ef 00d1 | | Pop_Control Pop_Count_1
05f0 00cf | | Action Mark_Auxiliary
05f1 e409 | | Load 0x2,0x9
05f2 e00c | | Load 0x0,0xc
05f3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
05f4 4801 |H | Short_Literal 0x1
05f5 0263 | c | Execute Discrete,Above_Bound
05f6 7010 |p | Jump_Nonzero 0x607
05f7 e408 | | Load 0x2,0x8
05f8 00d9 | | Load_Top At_Offset_1
05f9 e409 | | Load 0x2,0x9
05fa e00c | | Load 0x0,0xc
05fb 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
05fc e00b | | Load 0x0,0xb
05fd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05fe 00da | | Load_Top At_Offset_2
05ff e40a | | Load 0x2,0xa
0600 e00c | | Load 0x0,0xc
0601 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0602 027f | | Execute Discrete,Equal
0603 0279 | y | Execute Discrete,And
0604 a408 | | Store_Unchecked 0x2,0x8
0605 00c8 | | Action Pop_Auxiliary_Range
0606 3ff0 |? | Loop_Increasing 0x5f7
0607 00ce | | Action Pop_Auxiliary
0608 e408 | | Load 0x2,0x8
0609 681e |h | Jump_Zero 0x628
060a 00d8 | | Load_Top At_Offset_0
060b e404 | | Load 0x2,0x4
060c 01d5 | | Execute Vector,Field_Reference
060d 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
060e e5ff | | Load 0x2,-0x1
060f 0227 | ' | Execute Access,All_Reference
0610 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0611 4800 |H | Short_Literal 0x0
0612 e5ff | | Load 0x2,-0x1
0613 0227 | ' | Execute Access,All_Reference
0614 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0615 00d8 | | Load_Top At_Offset_0
0616 e5ff | | Load 0x2,-0x1
0617 0227 | ' | Execute Access,All_Reference
0618 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0619 4800 |H | Short_Literal 0x0
061a a5fe | | Store_Unchecked 0x2,-0x2
061b e402 | | Load 0x2,0x2
061c e5ff | | Load 0x2,-0x1
061d 0227 | ' | Execute Access,All_Reference
061e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
061f 4800 |H | Short_Literal 0x0
0620 e5ff | | Load 0x2,-0x1
0621 0227 | ' | Execute Access,All_Reference
0622 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0623 4800 |H | Short_Literal 0x0
0624 e5ff | | Load 0x2,-0x1
0625 0227 | ' | Execute Access,All_Reference
0626 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0627 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0628 00c8 | | Action Pop_Auxiliary_Range
0629 3f60 |?` | Loop_Increasing 0x58a
062a 00ce | | Action Pop_Auxiliary
062b 4805 |H | Short_Literal 0x5
062c a5fe | | Store_Unchecked 0x2,-0x2
062d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
062e 0000 0000 | | .XXX[0x2]
0630 0000 0000 | | .LITERAL {0x00000000, 0x00010000}
0634 0000 0000 | | .BLANK 0000[0x4]
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 064c | L | .CONST 0x064c ; Address of begin
0639 0004 | | .CONST 0x0004 ; Address of exception handler
063a 0007 | | .CONST 0x0007 ; Number of locals
063b INIT_0638:
063b 4800 |H | Short_Literal 0x0
063c 4bff |K | Short_Literal 0x3ff
063d e004 | | Load 0x0,0x4
063e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
063f 02a0 | | Declare_Subprogram Null_Subprogram
0640 4801 |H | Short_Literal 0x1
0641 035d | ] | Declare_Type Array,Defined
0642 e002 | | Load 0x0,0x2
0643 1910 | | Execute Package,Field_Reference,Field_Number 0x10
0644 00c6 | | Action Check_Subprogram_Elaborated
0645 00d8 | | Load_Top At_Offset_0
0646 e012 | | Load 0x0,0x12
0647 e013 | | Load 0x0,0x13
0648 4806 |H | Short_Literal 0x6
0649 0007 | | Action Break_Optional
064a e402 | | Load 0x2,0x2
064b 0337 | 7 | Declare_Variable Array
064c BODY_0638:
064c 4800 |H | Short_Literal 0x0
064d e217 | | Load 0x1,0x17
064e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
064f 4800 |H | Short_Literal 0x0
0650 e217 | | Load 0x1,0x17
0651 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0652 4802 |H | Short_Literal 0x2
0653 e217 | | Load 0x1,0x17
0654 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0655 e217 | | Load 0x1,0x17
0656 e403 | | Load 0x2,0x3
0657 4804 |H | Short_Literal 0x4
0658 4802 |H | Short_Literal 0x2
0659 0099 | | Action Reference_Dynamic
065a e002 | | Load 0x0,0x2
065b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
065c 00d9 | | Load_Top At_Offset_1
065d 01d4 | | Execute Vector,Structure_Write
065e 4802 |H | Short_Literal 0x2
065f 00d9 | | Load_Top At_Offset_1
0660 01d7 | | Execute Vector,Field_Read
0661 0f45 | E | Execute_Immediate Equal,0x45
0662 4803 |H | Short_Literal 0x3
0663 00da | | Load_Top At_Offset_2
0664 01d7 | | Execute Vector,Field_Read
0665 0f4b | K | Execute_Immediate Equal,0x4b
0666 0279 | y | Execute Discrete,And
0667 6802 |h | Jump_Zero 0x66a
0668 4801 |H | Short_Literal 0x1
0669 a216 | | Store_Unchecked 0x1,0x16
066a 4802 |H | Short_Literal 0x2
066b 00d9 | | Load_Top At_Offset_1
066c 01d7 | | Execute Vector,Field_Read
066d 0f4b | K | Execute_Immediate Equal,0x4b
066e 4803 |H | Short_Literal 0x3
066f 00da | | Load_Top At_Offset_2
0670 01d7 | | Execute Vector,Field_Read
0671 0f45 | E | Execute_Immediate Equal,0x45
0672 0279 | y | Execute Discrete,And
0673 6802 |h | Jump_Zero 0x676
0674 4802 |H | Short_Literal 0x2
0675 a216 | | Store_Unchecked 0x1,0x16
0676 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0677 0000 | | .XXX[0x1]
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 067d | } | .CONST 0x067d ; Address of begin
0679 0004 | | .CONST 0x0004 ; Address of exception handler
067a 0003 | | .CONST 0x0003 ; Number of locals
067b INIT_0678:
067b 00e2 | | Load_Encached Integer_Cache
067c 00e1 | | Load_Encached Boolean_Cache
067d BODY_0678:
067d e5ff | | Load 0x2,-0x1
067e 0227 | ' | Execute Access,All_Reference
067f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0680 e5fe | | Load 0x2,-0x2
0681 0227 | ' | Execute Access,All_Reference
0682 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0683 027e | ~ | Execute Discrete,Not_Equal
0684 e5ff | | Load 0x2,-0x1
0685 0227 | ' | Execute Access,All_Reference
0686 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0687 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0688 e5fe | | Load 0x2,-0x2
0689 0227 | ' | Execute Access,All_Reference
068a 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
068b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
068c 027e | ~ | Execute Discrete,Not_Equal
068d 0278 | x | Execute Discrete,Or
068e 6803 |h | Jump_Zero 0x692
068f 4800 |H | Short_Literal 0x0
0690 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0691 782b |x+ | Jump 0x6bd
0692 4801 |H | Short_Literal 0x1
0693 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0694 00cf | | Action Mark_Auxiliary
0695 4805 |H | Short_Literal 0x5
0696 4800 |H | Short_Literal 0x0
0697 0007 | | Action Break_Optional
0698 00d8 | | Load_Top At_Offset_0
0699 e5ff | | Load 0x2,-0x1
069a 0227 | ' | Execute Access,All_Reference
069b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
069c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
069d 01d5 | | Execute Vector,Field_Reference
069e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
069f 00d9 | | Load_Top At_Offset_1
06a0 e5fe | | Load 0x2,-0x2
06a1 0227 | ' | Execute Access,All_Reference
06a2 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
06a3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
06a4 01d5 | | Execute Vector,Field_Reference
06a5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06a6 027e | ~ | Execute Discrete,Not_Equal
06a7 00d9 | | Load_Top At_Offset_1
06a8 e5ff | | Load 0x2,-0x1
06a9 0227 | ' | Execute Access,All_Reference
06aa 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
06ab 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
06ac 01d5 | | Execute Vector,Field_Reference
06ad 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06ae 00da | | Load_Top At_Offset_2
06af e5fe | | Load 0x2,-0x2
06b0 0227 | ' | Execute Access,All_Reference
06b1 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
06b2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
06b3 01d5 | | Execute Vector,Field_Reference
06b4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06b5 027e | ~ | Execute Discrete,Not_Equal
06b6 0278 | x | Execute Discrete,Or
06b7 6802 |h | Jump_Zero 0x6ba
06b8 4800 |H | Short_Literal 0x0
06b9 a403 | | Store_Unchecked 0x2,0x3
06ba 00c8 | | Action Pop_Auxiliary_Range
06bb 3fdc |? | Loop_Increasing 0x698
06bc 00ce | | Action Pop_Auxiliary
06bd 00d8 | | Load_Top At_Offset_0
06be 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06bf 0000 | | .XXX[0x1]
06c0 ; --------------------------------------------------------------------------------------
06c0 ; SUBPROGRAM
06c0 ; --------------------------------------------------------------------------------------
06c0 06c7 | | .CONST 0x06c7 ; Address of begin
06c1 0004 | | .CONST 0x0004 ; Address of exception handler
06c2 0004 | | .CONST 0x0004 ; Number of locals
06c3 INIT_06c0:
06c3 e001 | | Load 0x0,0x1
06c4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06c5 00e2 | | Load_Encached Integer_Cache
06c6 00e2 | | Load_Encached Integer_Cache
06c7 BODY_06c0:
06c7 4800 |H | Short_Literal 0x0
06c8 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
06c9 4800 |H | Short_Literal 0x0
06ca 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
06cb 00cf | | Action Mark_Auxiliary
06cc 780b |x | Jump 0x6d8
06cd 00da | | Load_Top At_Offset_2
06ce e7ff | | Load 0x3,-0x1
06cf 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
06d0 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
06d1 01d5 | | Execute Vector,Field_Reference
06d2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06d3 a602 | | Store_Unchecked 0x3,0x2
06d4 00da | | Load_Top At_Offset_2
06d5 0a01 | | Execute_Immediate Plus,0x1
06d6 005b | [ | Store_Top Discrete,At_Offset_3
06d7 00c9 | | Action Pop_Auxiliary_Loop
06d8 00da | | Load_Top At_Offset_2
06d9 e7ff | | Load 0x3,-0x1
06da 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
06db 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
06dc 01d5 | | Execute Vector,Field_Reference
06dd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06de e7fe | | Load 0x3,-0x2
06df 027a | z | Execute Discrete,Less_Equal
06e0 77ec |w | Jump_Nonzero 0x6cd
06e1 00ce | | Action Pop_Auxiliary
06e2 00d9 | | Load_Top At_Offset_1
06e3 e7ff | | Load 0x3,-0x1
06e4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
06e5 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
06e6 01d5 | | Execute Vector,Field_Reference
06e7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06e8 e7fe | | Load 0x3,-0x2
06e9 e602 | | Load 0x3,0x2
06ea 0272 | r | Execute Discrete,Minus
06eb 0273 | s | Execute Discrete,Plus
06ec 00d8 | | Load_Top At_Offset_0
06ed 00e2 | | Load_Encached Integer_Cache
06ee 0260 | ` | Execute Discrete,In_Type
06ef 7001 |p | Jump_Nonzero 0x6f1
06f0 0801 | | Execute_Immediate Raise,0x1
06f1 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
06f2 00d8 | | Load_Top At_Offset_0
06f3 e008 | | Load 0x0,0x8
06f4 1b16 | | Execute Package,Field_Read,Field_Number 0x16
06f5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
06f6 0270 | p | Execute Discrete,Divide
06f7 00d8 | | Load_Top At_Offset_0
06f8 e009 | | Load 0x0,0x9
06f9 1b14 | | Execute Package,Field_Read,Field_Number 0x14
06fa 1b13 | | Execute Package,Field_Read,Field_Number 0x13
06fb 0260 | ` | Execute Discrete,In_Type
06fc 7001 |p | Jump_Nonzero 0x6fe
06fd 0801 | | Execute_Immediate Raise,0x1
06fe e217 | | Load 0x1,0x17
06ff 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0700 00d8 | | Load_Top At_Offset_0
0701 e008 | | Load 0x0,0x8
0702 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0703 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0704 026f | o | Execute Discrete,Remainder
0705 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0706 00d8 | | Load_Top At_Offset_0
0707 e008 | | Load 0x0,0x8
0708 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0709 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
070a 0270 | p | Execute Discrete,Divide
070b 00d8 | | Load_Top At_Offset_0
070c e009 | | Load 0x0,0x9
070d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
070e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
070f 0260 | ` | Execute Discrete,In_Type
0710 7001 |p | Jump_Nonzero 0x712
0711 0801 | | Execute_Immediate Raise,0x1
0712 e217 | | Load 0x1,0x17
0713 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0714 00d8 | | Load_Top At_Offset_0
0715 e008 | | Load 0x0,0x8
0716 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0717 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0718 026f | o | Execute Discrete,Remainder
0719 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
071a 00d8 | | Load_Top At_Offset_0
071b 0901 | | Execute_Immediate Binary_Scale,0x1
071c 00d8 | | Load_Top At_Offset_0
071d e009 | | Load 0x0,0x9
071e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
071f 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0720 0260 | ` | Execute Discrete,In_Type
0721 7001 |p | Jump_Nonzero 0x723
0722 0801 | | Execute_Immediate Raise,0x1
0723 e217 | | Load 0x1,0x17
0724 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0725 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0726 0000 0000 | | .XXX[0x2]
0728 ; --------------------------------------------------------------------------------------
0728 ; Debug Table
0728 ; --------------------------------------------------------------------------------------
0728 0004 0010 | | .DEBUG4 0x0004,0x0010,0x8b4e,0x0000,0x0001,0x0000
072e c0c0 d8d0 | | .XXX[0xd2]
0730 e0d9 10c0 | |
0732 c0c0 d0c9 | |
0734 18c9 14d0 | |
0736 d029 4ccc | )L |
0738 c4c5 14c0 | |
073a c0c4 c4d8 | |
073c c8c0 c0c0 | |
073e c4e0 d115 | |
0740 08e5 14c0 | |
0742 c0c4 d8d5 | |
0744 18d0 d119 | |
0746 1518 c0c0 | |
0748 c10c ccd0 | |
074a 294c ccc4 |)L |
074c c514 c0c0 | |
074e c4c4 d8c9 | |
0750 0cd8 c111 | |
0752 14c8 c0d9 | |
0754 14c0 c0c4 | |
0756 e0c9 04e4 | |
0758 c0d8 c110 | |
075a d8c0 c0c0 | |
075c c118 dc29 | )|
075e 4ccc c4c5 |L |
0760 14c0 c0c4 | |
0762 c4d8 cce0 | |
0764 d114 d4d8 | |
0766 c0c0 c0c0 | |
0768 c10d 0514 | |
076a c0c0 c0c0 | |
076c c0c0 c0c4 | |
076e c0c0 c4c0 | |
0770 d4c0 294c | )L|
0772 ccc4 c514 | |
0774 c0c0 c4c4 | |
0776 d8d0 d0d8 | |
0778 d8c4 c8c8 | |
077a c0d9 14c0 | |
077c c0c4 d0c8 | |
077e c0c4 c108 | |
0780 c108 e514 | |
0782 c0c0 c4c5 | |
0784 1829 4ccc | )L |
0786 c4c5 14c0 | |
0788 c0c4 c4d8 | |
078a d4c1 04cc | |
078c ccd0 d8c8 | |
078e c0d0 d104 | |
0790 e4c0 d8d8 | |
0792 c0d0 dcc1 | |
0794 1918 d8c0 | |
0796 c0c8 d4d4 | |
0798 294c ccc4 |)L |
079a c514 c0c0 | |
079c c4c4 d8d5 | |
079e 0cdc c0c0 | |
07a0 c0d1 14d5 | |
07a2 14d1 14dc | |
07a4 d4d1 14d4 | |
07a6 d919 1919 | |
07a8 0cc9 14e0 | |
07aa dcd8 e029 | )|
07ac 4ccc c4c5 |L |
07ae 14c0 c0c4 | |
07b0 c4d8 d8e0 | |
07b2 d105 0514 | |
07b4 c0c0 c10c | |
07b6 d8dc c104 | |
07b8 c8c0 d914 | |
07ba c0c0 c4c0 | |
07bc c8c0 c4c0 | |
07be d10c 294c | )L|
07c0 ccc4 c514 | |
07c2 c0c0 c4c4 | |
07c4 d8dc d0d4 | |
07c6 c8e0 c0d8 | |
07c8 c0c0 c8dc | |
07ca c0c0 c4c9 | |
07cc 14c0 c109 | |
07ce 1508 e514 | |
07d0 c0c0 c4d4 | |
07d2 e029 4ccc | )L |
07d4 c4c5 14c0 | |
07d6 c0c4 c4d8 | |
07d8 e0c1 04cc | |
07da ccd0 d914 | |
07dc c104 c8c0 | |
07de d914 c0c0 | |
07e0 c4d0 c8c0 | |
07e2 e0dc dcc0 | |
07e4 c0c4 d914 | |
07e6 294c ccc4 |)L |
07e8 c514 c0c0 | |
07ea c4c4 d8e1 | |
07ec 0cd8 c0c0 | |
07ee c8dc c0c0 | |
07f0 c0c9 14c9 | |
07f2 1519 1919 | |
07f4 0cd1 14d5 | |
07f6 14d1 14dc | |
07f8 d510 cc29 | )|
07fa 4ccc c4c5 |L |
07fc 14c0 c0c4 | |
07fe c4d8 e4e0 | |