|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe, seg_29d0d7
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0700 | | .CONST 0x0700 ; 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 0040 | @ | .CONST 0x0040 ; 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 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
000f 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated
0011 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated
0013 029a 0363 | c| Declare_Subprogram INIT_0360,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 e002 | | Load 0x0,0x2
001d 0337 | 7 | Declare_Variable Array
001e 00e1 | | Load_Encached Boolean_Cache
001f e003 | | Load 0x0,0x3
0020 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0021 e004 | | Load 0x0,0x4
0022 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0023 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0024 0322 | " | Declare_Variable Record
0025 00e1 | | Load_Encached Boolean_Cache
0026 e005 | | Load 0x0,0x5
0027 0322 | " | Declare_Variable Record
0028 029d 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call
002a 029d 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call
002c 029d 040b | | Declare_Subprogram INIT_0408,For_Outer_Call
002e 1d11 | | Execute_Immediate Reference_Lex_1,0x11
002f 00c7 | | Action Elaborate_Subprogram
0030 029d 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call
0032 029d 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call
0034 029d 060b | | Declare_Subprogram INIT_0608,For_Outer_Call
0036 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0037 00c7 | | Action Elaborate_Subprogram
0038 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0039 00c7 | | Action Elaborate_Subprogram
003a 1d0e | | Execute_Immediate Reference_Lex_1,0xe
003b 00c7 | | Action Elaborate_Subprogram
003c 1d10 | | Execute_Immediate Reference_Lex_1,0x10
003d 00c7 | | Action Elaborate_Subprogram
003e 029d 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call
0040 BODY_0008:
0040 00bc | | Action Signal_Activated
0041 00bb | | Action Signal_Completion
0042 0000 0000 | | .BLANK 0000[0x6]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 0061 | a | .CONST 0x0061 ; 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 e006 | | Load 0x0,0x6
0055 0322 | " | Declare_Variable Record
0056 e007 | | Load 0x0,0x7
0057 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0058 e004 | | Load 0x0,0x4
0059 1b16 | | Execute Package,Field_Read,Field_Number 0x16
005a 1910 | | Execute Package,Field_Reference,Field_Number 0x10
005b 00c6 | | Action Check_Subprogram_Elaborated
005c e002 | | Load 0x0,0x2
005d e008 | | Load 0x0,0x8
005e e009 | | Load 0x0,0x9
005f 4810 |H | Short_Literal 0x10
0060 0007 | | Action Break_Optional
0061 BODY_0048:
0061 e5fb | | Load 0x2,-0x5
0062 4801 |H | Short_Literal 0x1
0063 800a | | Call 0x0,0xa
0064 c5fb | | Store 0x2,-0x5
0065 821f | | Call 0x1,0x1f
0066 e5ff | | Load 0x2,-0x1
0067 800b | | Call 0x0,0xb
0068 a407 | | Store_Unchecked 0x2,0x7
0069 e407 | | Load 0x2,0x7
006a 6165 |ae | Indirect_Literal Discrete,0x1d0,{0x00000000, 0x0000ffff}
006b 027d | } | Execute Discrete,Greater
006c 6805 |h | Jump_Zero 0x72
006d e407 | | Load 0x2,0x7
006e 615d |a] | Indirect_Literal Discrete,0x1cc,{0x00000000, 0x00010000}
006f 026f | o | Execute Discrete,Remainder
0070 a408 | | Store_Unchecked 0x2,0x8
0071 7802 |x | Jump 0x74
0072 e407 | | Load 0x2,0x7
0073 a408 | | Store_Unchecked 0x2,0x8
0074 e408 | | Load 0x2,0x8
0075 09fb | | Execute_Immediate Binary_Scale,-0x5
0076 a408 | | Store_Unchecked 0x2,0x8
0077 e408 | | Load 0x2,0x8
0078 09f8 | | Execute_Immediate Binary_Scale,-0x8
0079 e00c | | Load 0x0,0xc
007a 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
007b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
007c 01d7 | | Execute Vector,Field_Read
007d e408 | | Load 0x2,0x8
007e 48ff |H | Short_Literal 0xff
007f 0279 | y | Execute Discrete,And
0080 0273 | s | Execute Discrete,Plus
0081 c40a | | Store 0x2,0xa
0082 e40a | | Load 0x2,0xa
0083 e00c | | Load 0x0,0xc
0084 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0085 0270 | p | Execute Discrete,Divide
0086 00d8 | | Load_Top At_Offset_0
0087 e00d | | Load 0x0,0xd
0088 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0089 1b13 | | Execute Package,Field_Read,Field_Number 0x13
008a 0260 | ` | Execute Discrete,In_Type
008b 7001 |p | Jump_Nonzero 0x8d
008c 0801 | | Execute_Immediate Raise,0x1
008d e217 | | Load 0x1,0x17
008e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
008f e40a | | Load 0x2,0xa
0090 e00c | | Load 0x0,0xc
0091 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0092 026f | o | Execute Discrete,Remainder
0093 a406 | | Store_Unchecked 0x2,0x6
0094 e406 | | Load 0x2,0x6
0095 e00c | | Load 0x0,0xc
0096 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0097 0270 | p | Execute Discrete,Divide
0098 00d8 | | Load_Top At_Offset_0
0099 e00d | | Load 0x0,0xd
009a 1b14 | | Execute Package,Field_Read,Field_Number 0x14
009b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
009c 0260 | ` | Execute Discrete,In_Type
009d 7001 |p | Jump_Nonzero 0x9f
009e 0801 | | Execute_Immediate Raise,0x1
009f e217 | | Load 0x1,0x17
00a0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00a1 e406 | | Load 0x2,0x6
00a2 e00c | | Load 0x0,0xc
00a3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00a4 026f | o | Execute Discrete,Remainder
00a5 a406 | | Store_Unchecked 0x2,0x6
00a6 e406 | | Load 0x2,0x6
00a7 0901 | | Execute_Immediate Binary_Scale,0x1
00a8 00d8 | | Load_Top At_Offset_0
00a9 e00d | | Load 0x0,0xd
00aa 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00ab 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00ac 0260 | ` | Execute Discrete,In_Type
00ad 7001 |p | Jump_Nonzero 0xaf
00ae 0801 | | Execute_Immediate Raise,0x1
00af e217 | | Load 0x1,0x17
00b0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00b1 e217 | | Load 0x1,0x17
00b2 e40d | | Load 0x2,0xd
00b3 480e |H | Short_Literal 0xe
00b4 4802 |H | Short_Literal 0x2
00b5 0099 | | Action Reference_Dynamic
00b6 e004 | | Load 0x0,0x4
00b7 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00b8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00b9 e214 | | Load 0x1,0x14
00ba 01d4 | | Execute Vector,Structure_Write
00bb 4800 |H | Short_Literal 0x0
00bc a403 | | Store_Unchecked 0x2,0x3
00bd 00cf | | Action Mark_Auxiliary
00be 480f |H | Short_Literal 0xf
00bf 4800 |H | Short_Literal 0x0
00c0 0007 | | Action Break_Optional
00c1 00d8 | | Load_Top At_Offset_0
00c2 e214 | | Load 0x1,0x14
00c3 01d5 | | Execute Vector,Field_Reference
00c4 e40b | | Load 0x2,0xb
00c5 017d | } | Execute Record,Structure_Write
00c6 00d8 | | Load_Top At_Offset_0
00c7 e214 | | Load 0x1,0x14
00c8 01d5 | | Execute Vector,Field_Reference
00c9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00ca e407 | | Load 0x2,0x7
00cb 027f | | Execute Discrete,Equal
00cc 685c |h\ | Jump_Zero 0x129
00cd e216 | | Load 0x1,0x16
00ce 0f01 | | Execute_Immediate Equal,0x1
00cf 6827 |h' | Jump_Zero 0xf7
00d0 00cf | | Action Mark_Auxiliary
00d1 481e |H | Short_Literal 0x1e
00d2 4801 |H | Short_Literal 0x1
00d3 0007 | | Action Break_Optional
00d4 00d8 | | Load_Top At_Offset_0
00d5 4802 |H | Short_Literal 0x2
00d6 026f | o | Execute Discrete,Remainder
00d7 7008 |p | Jump_Nonzero 0xe0
00d8 e40c | | Load 0x2,0xc
00d9 00d9 | | Load_Top At_Offset_1
00da e413 | | Load 0x2,0x13
00db e214 | | Load 0x1,0x14
00dc 01d5 | | Execute Vector,Field_Reference
00dd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00de 01d6 | | Execute Vector,Field_Write
00df 7814 |x | Jump 0xf4
00e0 00d8 | | Load_Top At_Offset_0
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 01d7 | | Execute Vector,Field_Read
00e6 a40c | | Store_Unchecked 0x2,0xc
00e7 00d8 | | Load_Top At_Offset_0
00e8 0a01 | | Execute_Immediate Plus,0x1
00e9 e413 | | Load 0x2,0x13
00ea e214 | | Load 0x1,0x14
00eb 01d5 | | Execute Vector,Field_Reference
00ec 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00ed 01d7 | | Execute Vector,Field_Read
00ee 00d9 | | Load_Top At_Offset_1
00ef e413 | | Load 0x2,0x13
00f0 e214 | | Load 0x1,0x14
00f1 01d5 | | Execute Vector,Field_Reference
00f2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00f3 01d6 | | Execute Vector,Field_Write
00f4 00c8 | | Action Pop_Auxiliary_Range
00f5 3fde |? | Loop_Increasing 0xd4
00f6 00ce | | Action Pop_Auxiliary
00f7 00d8 | | Load_Top At_Offset_0
00f8 e214 | | Load 0x1,0x14
00f9 01d5 | | Execute Vector,Field_Reference
00fa 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00fb e00e | | Load 0x0,0xe
00fc 180d | | Execute Package,Field_Execute,Field_Number 0xd
00fd e00f | | Load 0x0,0xf
00fe 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00ff e213 | | Load 0x1,0x13
0100 01d4 | | Execute Vector,Structure_Write
0101 4801 |H | Short_Literal 0x1
0102 a403 | | Store_Unchecked 0x2,0x3
0103 00cf | | Action Mark_Auxiliary
0104 e5ff | | Load 0x2,-0x1
0105 e010 | | Load 0x0,0x10
0106 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0107 4801 |H | Short_Literal 0x1
0108 0263 | c | Execute Discrete,Above_Bound
0109 700f |p | Jump_Nonzero 0x119
010a e403 | | Load 0x2,0x3
010b 00d9 | | Load_Top At_Offset_1
010c e5ff | | Load 0x2,-0x1
010d e010 | | Load 0x0,0x10
010e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
010f e00f | | Load 0x0,0xf
0110 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0111 00da | | Load_Top At_Offset_2
0112 e213 | | Load 0x1,0x13
0113 01d7 | | Execute Vector,Field_Read
0114 027f | | Execute Discrete,Equal
0115 0279 | y | Execute Discrete,And
0116 a403 | | Store_Unchecked 0x2,0x3
0117 00c8 | | Action Pop_Auxiliary_Range
0118 3ff1 |? | Loop_Increasing 0x10a
0119 00ce | | Action Pop_Auxiliary
011a e5ff | | Load 0x2,-0x1
011b e010 | | Load 0x0,0x10
011c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
011d 0e1e | | Execute_Immediate Not_Equal,0x1e
011e 680a |h | Jump_Zero 0x129
011f e403 | | Load 0x2,0x3
0120 e5ff | | Load 0x2,-0x1
0121 e010 | | Load 0x0,0x10
0122 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0123 0a01 | | Execute_Immediate Plus,0x1
0124 e213 | | Load 0x1,0x13
0125 01d7 | | Execute Vector,Field_Read
0126 0f00 | | Execute_Immediate Equal,0x0
0127 0279 | y | Execute Discrete,And
0128 a403 | | Store_Unchecked 0x2,0x3
0129 e403 | | Load 0x2,0x3
012a 6802 |h | Jump_Zero 0x12d
012b 00d2 | | Pop_Control Pop_Count_2
012c 7802 |x | Jump 0x12f
012d 00c8 | | Action Pop_Auxiliary_Range
012e 3f92 |? | Loop_Increasing 0xc1
012f 00ce | | Action Pop_Auxiliary
0130 e5fe | | Load 0x2,-0x2
0131 700d |p | Jump_Nonzero 0x13f
0132 e40b | | Load 0x2,0xb
0133 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0134 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0135 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0136 0f00 | | Execute_Immediate Equal,0x0
0137 e403 | | Load 0x2,0x3
0138 0279 | y | Execute Discrete,And
0139 6803 |h | Jump_Zero 0x13d
013a 4800 |H | Short_Literal 0x0
013b a5fb | | Store_Unchecked 0x2,-0x5
013c 7802 |x | Jump 0x13f
013d 4802 |H | Short_Literal 0x2
013e a5fb | | Store_Unchecked 0x2,-0x5
013f e5fc | | Load 0x2,-0x4
0140 0c00 | | Execute_Immediate Greater_Equal,0x0
0141 6805 |h | Jump_Zero 0x147
0142 e5fc | | Load 0x2,-0x4
0143 a409 | | Store_Unchecked 0x2,0x9
0144 4800 |H | Short_Literal 0x0
0145 a402 | | Store_Unchecked 0x2,0x2
0146 7805 |x | Jump 0x14c
0147 e5fc | | Load 0x2,-0x4
0148 0275 | u | Execute Discrete,Unary_Minus
0149 a409 | | Store_Unchecked 0x2,0x9
014a 4801 |H | Short_Literal 0x1
014b a402 | | Store_Unchecked 0x2,0x2
014c e5fb | | Load 0x2,-0x5
014d e5fa | | Load 0x2,-0x6
014e e5ff | | Load 0x2,-0x1
014f 821c | | Call 0x1,0x1c
0150 c5fa | | Store 0x2,-0x6
0151 c5fb | | Store 0x2,-0x5
0152 e5fb | | Load 0x2,-0x5
0153 6803 |h | Jump_Zero 0x157
0154 4801 |H | Short_Literal 0x1
0155 a5fb | | Store_Unchecked 0x2,-0x5
0156 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0157 e5fb | | Load 0x2,-0x5
0158 e5fa | | Load 0x2,-0x6
0159 821e | | Call 0x1,0x1e
015a c5fb | | Store 0x2,-0x5
015b e5fb | | Load 0x2,-0x5
015c 6803 |h | Jump_Zero 0x160
015d 4805 |H | Short_Literal 0x5
015e a5fb | | Store_Unchecked 0x2,-0x5
015f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0160 e5fa | | Load 0x2,-0x6
0161 0227 | ' | Execute Access,All_Reference
0162 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0163 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0164 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0165 0f00 | | Execute_Immediate Equal,0x0
0166 a405 | | Store_Unchecked 0x2,0x5
0167 e5fe | | Load 0x2,-0x2
0168 7008 |p | Jump_Nonzero 0x171
0169 e405 | | Load 0x2,0x5
016a 6801 |h | Jump_Zero 0x16c
016b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
016c 4802 |H | Short_Literal 0x2
016d a5fb | | Store_Unchecked 0x2,-0x5
016e e011 | | Load 0x0,0x11
016f a5fa | | Store_Unchecked 0x2,-0x6
0170 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0171 e5fe | | Load 0x2,-0x2
0172 0f02 | | Execute_Immediate Equal,0x2
0173 680e |h | Jump_Zero 0x182
0174 e405 | | Load 0x2,0x5
0175 e5fa | | Load 0x2,-0x6
0176 0227 | ' | Execute Access,All_Reference
0177 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0178 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0179 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
017a 0f00 | | Execute_Immediate Equal,0x0
017b 0279 | y | Execute Discrete,And
017c 6805 |h | Jump_Zero 0x182
017d 4806 |H | Short_Literal 0x6
017e a5fb | | Store_Unchecked 0x2,-0x5
017f e011 | | Load 0x0,0x11
0180 a5fa | | Store_Unchecked 0x2,-0x6
0181 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0182 e5fa | | Load 0x2,-0x6
0183 0227 | ' | Execute Access,All_Reference
0184 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0185 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0186 e409 | | Load 0x2,0x9
0187 027f | | Execute Discrete,Equal
0188 6801 |h | Jump_Zero 0x18a
0189 4505 |E | Exit_Suprogram New_Top_Offset 0x5
018a 4801 |H | Short_Literal 0x1
018b a212 | | Store_Unchecked 0x1,0x12
018c e409 | | Load 0x2,0x9
018d 00d8 | | Load_Top At_Offset_0
018e e012 | | Load 0x0,0x12
018f 0260 | ` | Execute Discrete,In_Type
0190 7001 |p | Jump_Nonzero 0x192
0191 0801 | | Execute_Immediate Raise,0x1
0192 e5fa | | Load 0x2,-0x6
0193 0227 | ' | Execute Access,All_Reference
0194 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0195 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0196 4801 |H | Short_Literal 0x1
0197 a218 | | Store_Unchecked 0x1,0x18
0198 00cf | | Action Mark_Auxiliary
0199 4805 |H | Short_Literal 0x5
019a 4800 |H | Short_Literal 0x0
019b 0007 | | Action Break_Optional
019c 00d8 | | Load_Top At_Offset_0
019d e5fa | | Load 0x2,-0x6
019e 0227 | ' | Execute Access,All_Reference
019f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01a0 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01a1 01d5 | | Execute Vector,Field_Reference
01a2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01a3 e409 | | Load 0x2,0x9
01a4 027b | { | Execute Discrete,Greater_Equal
01a5 6802 |h | Jump_Zero 0x1a8
01a6 4800 |H | Short_Literal 0x0
01a7 a218 | | Store_Unchecked 0x1,0x18
01a8 00c8 | | Action Pop_Auxiliary_Range
01a9 3ff2 |? | Loop_Increasing 0x19c
01aa 00ce | | Action Pop_Auxiliary
01ab e218 | | Load 0x1,0x18
01ac 681c |h | Jump_Zero 0x1c9
01ad e5fa | | Load 0x2,-0x6
01ae 0227 | ' | Execute Access,All_Reference
01af 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01b0 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
01b1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01b2 6803 |h | Jump_Zero 0x1b6
01b3 4808 |H | Short_Literal 0x8
01b4 a5fb | | Store_Unchecked 0x2,-0x5
01b5 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01b6 e405 | | Load 0x2,0x5
01b7 6802 |h | Jump_Zero 0x1ba
01b8 e5fa | | Load 0x2,-0x6
01b9 8013 | | Call 0x0,0x13
01ba e404 | | Load 0x2,0x4
01bb e402 | | Load 0x2,0x2
01bc e5fa | | Load 0x2,-0x6
01bd 8014 | | Call 0x0,0x14
01be c404 | | Store 0x2,0x4
01bf e404 | | Load 0x2,0x4
01c0 6808 |h | Jump_Zero 0x1c9
01c1 4804 |H | Short_Literal 0x4
01c2 a5fb | | Store_Unchecked 0x2,-0x5
01c3 e405 | | Load 0x2,0x5
01c4 6803 |h | Jump_Zero 0x1c8
01c5 e5fa | | Load 0x2,-0x6
01c6 821d | | Call 0x1,0x1d
01c7 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01c8 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01c9 e5fa | | Load 0x2,-0x6
01ca 8211 | | Call 0x1,0x11
01cb 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01cc 0000 0000 | | .LITERAL {0x00000000, 0x00010000}
01d0 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
01d4 0000 0000 | | .BLANK 0000[0x4]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01dd | | .CONST 0x01dd ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0002 | | .CONST 0x0002 ; Number of locals
01db INIT_01d8:
01db e011 | | Load 0x0,0x11
01dc 0007 | | Action Break_Optional
01dd BODY_01d8:
01dd e215 | | Load 0x1,0x15
01de 7001 |p | Jump_Nonzero 0x1e0
01df 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01e0 e5fb | | Load 0x2,-0x5
01e1 821b | | Call 0x1,0x1b
01e2 680e |h | Jump_Zero 0x1f1
01e3 4803 |H | Short_Literal 0x3
01e4 a5fc | | Store_Unchecked 0x2,-0x4
01e5 e5fc | | Load 0x2,-0x4
01e6 e5fb | | Load 0x2,-0x5
01e7 0227 | ' | Execute Access,All_Reference
01e8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01e9 e00e | | Load 0x0,0xe
01ea 180d | | Execute Package,Field_Execute,Field_Number 0xd
01eb e010 | | Load 0x0,0x10
01ec 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01ed e5fe | | Load 0x2,-0x2
01ee 8015 | | Call 0x0,0x15
01ef c5fc | | Store 0x2,-0x4
01f0 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01f1 4800 |H | Short_Literal 0x0
01f2 a5fc | | Store_Unchecked 0x2,-0x4
01f3 e5fb | | Load 0x2,-0x5
01f4 e00c | | Load 0x0,0xc
01f5 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
01f6 022f | / | Execute Access,Equal
01f7 6803 |h | Jump_Zero 0x1fb
01f8 e011 | | Load 0x0,0x11
01f9 e00c | | Load 0x0,0xc
01fa 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
01fb 00db | | Load_Top At_Offset_3
01fc 7006 |p | Jump_Nonzero 0x203
01fd e5fb | | Load 0x2,-0x5
01fe 8211 | | Call 0x1,0x11
01ff e5fb | | Load 0x2,-0x5
0200 821a | | Call 0x1,0x1a
0201 c5fb | | Store 0x2,-0x5
0202 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0203 e5fb | | Load 0x2,-0x5
0204 0227 | ' | Execute Access,All_Reference
0205 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0206 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0207 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0208 6813 |h | Jump_Zero 0x21c
0209 4808 |H | Short_Literal 0x8
020a a5fc | | Store_Unchecked 0x2,-0x4
020b e5fc | | Load 0x2,-0x4
020c e5fb | | Load 0x2,-0x5
020d 0227 | ' | Execute Access,All_Reference
020e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
020f e00e | | Load 0x0,0xe
0210 180d | | Execute Package,Field_Execute,Field_Number 0xd
0211 e010 | | Load 0x0,0x10
0212 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0213 e5fe | | Load 0x2,-0x2
0214 8015 | | Call 0x0,0x15
0215 c5fc | | Store 0x2,-0x4
0216 e5fb | | Load 0x2,-0x5
0217 8211 | | Call 0x1,0x11
0218 e5fb | | Load 0x2,-0x5
0219 821a | | Call 0x1,0x1a
021a c5fb | | Store 0x2,-0x5
021b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
021c 00db | | Load_Top At_Offset_3
021d 0f02 | | Execute_Immediate Equal,0x2
021e 6808 |h | Jump_Zero 0x227
021f e5fb | | Load 0x2,-0x5
0220 821d | | Call 0x1,0x1d
0221 e5fb | | Load 0x2,-0x5
0222 8013 | | Call 0x0,0x13
0223 e5fb | | Load 0x2,-0x5
0224 821a | | Call 0x1,0x1a
0225 c5fb | | Store 0x2,-0x5
0226 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0227 00db | | Load_Top At_Offset_3
0228 0f01 | | Execute_Immediate Equal,0x1
0229 6863 |hc | Jump_Zero 0x28d
022a e5fd | | Load 0x2,-0x3
022b e010 | | Load 0x0,0x10
022c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
022d 7013 |p | Jump_Nonzero 0x241
022e 4801 |H | Short_Literal 0x1
022f a5fc | | Store_Unchecked 0x2,-0x4
0230 e5fc | | Load 0x2,-0x4
0231 e5fb | | Load 0x2,-0x5
0232 0227 | ' | Execute Access,All_Reference
0233 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0234 e00e | | Load 0x0,0xe
0235 180d | | Execute Package,Field_Execute,Field_Number 0xd
0236 e010 | | Load 0x0,0x10
0237 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0238 e5fe | | Load 0x2,-0x2
0239 8015 | | Call 0x0,0x15
023a c5fc | | Store 0x2,-0x4
023b e5fb | | Load 0x2,-0x5
023c 8211 | | Call 0x1,0x11
023d e5fb | | Load 0x2,-0x5
023e 821a | | Call 0x1,0x1a
023f c5fb | | Store 0x2,-0x5
0240 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0241 e5fc | | Load 0x2,-0x4
0242 00d9 | | Load_Top At_Offset_1
0243 e5fd | | Load 0x2,-0x3
0244 821c | | Call 0x1,0x1c
0245 003a | : | Store_Top Access,At_Offset_2
0246 c5fc | | Store 0x2,-0x4
0247 e5fc | | Load 0x2,-0x4
0248 680b |h | Jump_Zero 0x254
0249 e5fc | | Load 0x2,-0x4
024a e5fd | | Load 0x2,-0x3
024b e5fe | | Load 0x2,-0x2
024c 8015 | | Call 0x0,0x15
024d c5fc | | Store 0x2,-0x4
024e 00d8 | | Load_Top At_Offset_0
024f 821a | | Call 0x1,0x1a
0250 0039 | 9 | Store_Top Access,At_Offset_1
0251 e5fb | | Load 0x2,-0x5
0252 8211 | | Call 0x1,0x11
0253 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0254 e5fc | | Load 0x2,-0x4
0255 00d9 | | Load_Top At_Offset_1
0256 821e | | Call 0x1,0x1e
0257 c5fc | | Store 0x2,-0x4
0258 e5fc | | Load 0x2,-0x4
0259 680b |h | Jump_Zero 0x265
025a e5fc | | Load 0x2,-0x4
025b e5fd | | Load 0x2,-0x3
025c e5fe | | Load 0x2,-0x2
025d 8015 | | Call 0x0,0x15
025e c5fc | | Store 0x2,-0x4
025f 00d8 | | Load_Top At_Offset_0
0260 821a | | Call 0x1,0x1a
0261 0039 | 9 | Store_Top Access,At_Offset_1
0262 e5fb | | Load 0x2,-0x5
0263 8211 | | Call 0x1,0x11
0264 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0265 00d8 | | Load_Top At_Offset_0
0266 0227 | ' | Execute Access,All_Reference
0267 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0268 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0269 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
026a 700d |p | Jump_Nonzero 0x278
026b 4806 |H | Short_Literal 0x6
026c a5fc | | Store_Unchecked 0x2,-0x4
026d e5fc | | Load 0x2,-0x4
026e e5fd | | Load 0x2,-0x3
026f e5fe | | Load 0x2,-0x2
0270 8015 | | Call 0x0,0x15
0271 c5fc | | Store 0x2,-0x4
0272 00d8 | | Load_Top At_Offset_0
0273 821a | | Call 0x1,0x1a
0274 0039 | 9 | Store_Top Access,At_Offset_1
0275 e5fb | | Load 0x2,-0x5
0276 8211 | | Call 0x1,0x11
0277 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0278 e5fb | | Load 0x2,-0x5
0279 0227 | ' | Execute Access,All_Reference
027a 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
027b 00d9 | | Load_Top At_Offset_1
027c 0227 | ' | Execute Access,All_Reference
027d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
027e 4801 |H | Short_Literal 0x1
027f 00d9 | | Load_Top At_Offset_1
0280 0227 | ' | Execute Access,All_Reference
0281 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0282 e5fb | | Load 0x2,-0x5
0283 821d | | Call 0x1,0x1d
0284 00d8 | | Load_Top At_Offset_0
0285 8211 | | Call 0x1,0x11
0286 00d8 | | Load_Top At_Offset_0
0287 821a | | Call 0x1,0x1a
0288 0039 | 9 | Store_Top Access,At_Offset_1
0289 e5fb | | Load 0x2,-0x5
028a 821a | | Call 0x1,0x1a
028b c5fb | | Store 0x2,-0x5
028c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
028d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
028e 0000 0000 | | .XXX[0x2]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 02a1 | | .CONST 0x02a1 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0008 | | .CONST 0x0008 ; Number of locals
0293 INIT_0290:
0293 00e1 | | Load_Encached Boolean_Cache
0294 e006 | | Load 0x0,0x6
0295 0322 | " | Declare_Variable Record
0296 e004 | | Load 0x0,0x4
0297 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0298 1911 | | Execute Package,Field_Reference,Field_Number 0x11
0299 00c6 | | Action Check_Subprogram_Elaborated
029a e016 | | Load 0x0,0x16
029b e017 | | Load 0x0,0x17
029c e018 | | Load 0x0,0x18
029d 4807 |H | Short_Literal 0x7
029e 0007 | | Action Break_Optional
029f 029f 069b | | Declare_Subprogram INIT_0698,For_Call
02a1 BODY_0290:
02a1 4800 |H | Short_Literal 0x0
02a2 a5f9 | | Store_Unchecked 0x2,-0x7
02a3 e5ff | | Load 0x2,-0x1
02a4 821b | | Call 0x1,0x1b
02a5 680e |h | Jump_Zero 0x2b4
02a6 4803 |H | Short_Literal 0x3
02a7 a5f9 | | Store_Unchecked 0x2,-0x7
02a8 e5f9 | | Load 0x2,-0x7
02a9 e5ff | | Load 0x2,-0x1
02aa 0227 | ' | Execute Access,All_Reference
02ab 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02ac e00e | | Load 0x0,0xe
02ad 180d | | Execute Package,Field_Execute,Field_Number 0xd
02ae e010 | | Load 0x0,0x10
02af 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02b0 e5fb | | Load 0x2,-0x5
02b1 8015 | | Call 0x0,0x15
02b2 c5f9 | | Store 0x2,-0x7
02b3 4507 |E | Exit_Suprogram New_Top_Offset 0x7
02b4 e5fe | | Load 0x2,-0x2
02b5 e5ff | | Load 0x2,-0x1
02b6 0227 | ' | Execute Access,All_Reference
02b7 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02b8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02b9 027b | { | Execute Discrete,Greater_Equal
02ba 680e |h | Jump_Zero 0x2c9
02bb 4809 |H | Short_Literal 0x9
02bc a5f9 | | Store_Unchecked 0x2,-0x7
02bd e5f9 | | Load 0x2,-0x7
02be e5ff | | Load 0x2,-0x1
02bf 0227 | ' | Execute Access,All_Reference
02c0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02c1 e00e | | Load 0x0,0xe
02c2 180d | | Execute Package,Field_Execute,Field_Number 0xd
02c3 e010 | | Load 0x0,0x10
02c4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02c5 e5fb | | Load 0x2,-0x5
02c6 8015 | | Call 0x0,0x15
02c7 c5f9 | | Store 0x2,-0x7
02c8 4507 |E | Exit_Suprogram New_Top_Offset 0x7
02c9 e5fd | | Load 0x2,-0x3
02ca e5fc | | Load 0x2,-0x4
02cb 0273 | s | Execute Discrete,Plus
02cc 4a00 |J | Short_Literal 0x200
02cd 027d | } | Execute Discrete,Greater
02ce 680e |h | Jump_Zero 0x2dd
02cf 480a |H | Short_Literal 0xa
02d0 a5f9 | | Store_Unchecked 0x2,-0x7
02d1 e5f9 | | Load 0x2,-0x7
02d2 e5ff | | Load 0x2,-0x1
02d3 0227 | ' | Execute Access,All_Reference
02d4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02d5 e00e | | Load 0x0,0xe
02d6 180d | | Execute Package,Field_Execute,Field_Number 0xd
02d7 e010 | | Load 0x0,0x10
02d8 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02d9 e5fb | | Load 0x2,-0x5
02da 8015 | | Call 0x0,0x15
02db c5f9 | | Store 0x2,-0x7
02dc 4507 |E | Exit_Suprogram New_Top_Offset 0x7
02dd e5ff | | Load 0x2,-0x1
02de 0227 | ' | Execute Access,All_Reference
02df 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02e0 e403 | | Load 0x2,0x3
02e1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02e2 e5ff | | Load 0x2,-0x1
02e3 0227 | ' | Execute Access,All_Reference
02e4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02e5 e403 | | Load 0x2,0x3
02e6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02e7 e5ff | | Load 0x2,-0x1
02e8 0227 | ' | Execute Access,All_Reference
02e9 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02ea e403 | | Load 0x2,0x3
02eb 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02ec e5fe | | Load 0x2,-0x2
02ed e403 | | Load 0x2,0x3
02ee 8408 | | Call 0x2,0x8
02ef 4801 |H | Short_Literal 0x1
02f0 e5fa | | Load 0x2,-0x6
02f1 e217 | | Load 0x1,0x17
02f2 e404 | | Load 0x2,0x4
02f3 4805 |H | Short_Literal 0x5
02f4 4802 |H | Short_Literal 0x2
02f5 0099 | | Action Reference_Dynamic
02f6 e004 | | Load 0x0,0x4
02f7 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02f8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02f9 e402 | | Load 0x2,0x2
02fa 7002 |p | Jump_Nonzero 0x2fd
02fb 480c |H | Short_Literal 0xc
02fc a5f9 | | Store_Unchecked 0x2,-0x7
02fd 4507 |E | Exit_Suprogram New_Top_Offset 0x7
02fe 0000 0000 | | .XXX[0x2]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0307 | | .CONST 0x0307 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0003 | | .CONST 0x0003 ; Number of locals
0303 INIT_0300:
0303 e019 | | Load 0x0,0x19
0304 0007 | | Action Break_Optional
0305 e016 | | Load 0x0,0x16
0306 0337 | 7 | Declare_Variable Array
0307 BODY_0300:
0307 e00c | | Load 0x0,0xc
0308 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0309 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
030a 684e |hN | Jump_Zero 0x359
030b e00c | | Load 0x0,0xc
030c 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
030d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
030e 09f8 | | Execute_Immediate Binary_Scale,-0x8
030f 00d8 | | Load_Top At_Offset_0
0310 e007 | | Load 0x0,0x7
0311 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0312 0260 | ` | Execute Discrete,In_Type
0313 7001 |p | Jump_Nonzero 0x315
0314 0801 | | Execute_Immediate Raise,0x1
0315 4800 |H | Short_Literal 0x0
0316 00da | | Load_Top At_Offset_2
0317 01d6 | | Execute Vector,Field_Write
0318 e00c | | Load 0x0,0xc
0319 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
031a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
031b e00c | | Load 0x0,0xc
031c 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
031d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
031e 09f8 | | Execute_Immediate Binary_Scale,-0x8
031f 0908 | | Execute_Immediate Binary_Scale,0x8
0320 0272 | r | Execute Discrete,Minus
0321 00d8 | | Load_Top At_Offset_0
0322 e007 | | Load 0x0,0x7
0323 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0324 0260 | ` | Execute Discrete,In_Type
0325 7001 |p | Jump_Nonzero 0x327
0326 0801 | | Execute_Immediate Raise,0x1
0327 4801 |H | Short_Literal 0x1
0328 00da | | Load_Top At_Offset_2
0329 01d6 | | Execute Vector,Field_Write
032a e00c | | Load 0x0,0xc
032b 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
032c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
032d 09f8 | | Execute_Immediate Binary_Scale,-0x8
032e 00d8 | | Load_Top At_Offset_0
032f e007 | | Load 0x0,0x7
0330 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0331 0260 | ` | Execute Discrete,In_Type
0332 7001 |p | Jump_Nonzero 0x334
0333 0801 | | Execute_Immediate Raise,0x1
0334 4802 |H | Short_Literal 0x2
0335 00da | | Load_Top At_Offset_2
0336 01d6 | | Execute Vector,Field_Write
0337 e00c | | Load 0x0,0xc
0338 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0339 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
033a e00c | | Load 0x0,0xc
033b 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
033c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
033d 09f8 | | Execute_Immediate Binary_Scale,-0x8
033e 00d8 | | Load_Top At_Offset_0
033f 00e2 | | Load_Encached Integer_Cache
0340 0260 | ` | Execute Discrete,In_Type
0341 7001 |p | Jump_Nonzero 0x343
0342 0801 | | Execute_Immediate Raise,0x1
0343 0908 | | Execute_Immediate Binary_Scale,0x8
0344 0272 | r | Execute Discrete,Minus
0345 00d8 | | Load_Top At_Offset_0
0346 e007 | | Load 0x0,0x7
0347 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0348 0260 | ` | Execute Discrete,In_Type
0349 7001 |p | Jump_Nonzero 0x34b
034a 0801 | | Execute_Immediate Raise,0x1
034b 4803 |H | Short_Literal 0x3
034c 00da | | Load_Top At_Offset_2
034d 01d6 | | Execute Vector,Field_Write
034e 00d9 | | Load_Top At_Offset_1
034f 00d9 | | Load_Top At_Offset_1
0350 4801 |H | Short_Literal 0x1
0351 e00c | | Load 0x0,0xc
0352 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0353 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0354 801a | | Call 0x0,0x1a
0355 005a | Z | Store_Top Discrete,At_Offset_2
0356 00d9 | | Load_Top At_Offset_1
0357 6801 |h | Jump_Zero 0x359
0358 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0359 4501 |E | Exit_Suprogram New_Top_Offset 0x1
035a 0000 0000 | | .BLANK 0000[0x6]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0368 | h | .CONST 0x0368 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0004 | | .CONST 0x0004 ; Number of locals
0363 INIT_0360:
0363 e006 | | Load 0x0,0x6
0364 0322 | " | Declare_Variable Record
0365 00e1 | | Load_Encached Boolean_Cache
0366 e016 | | Load 0x0,0x16
0367 0337 | 7 | Declare_Variable Array
0368 BODY_0360:
0368 e5ff | | Load 0x2,-0x1
0369 0227 | ' | Execute Access,All_Reference
036a 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
036b 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
036c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
036d e5ff | | Load 0x2,-0x1
036e 0227 | ' | Execute Access,All_Reference
036f 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0370 0278 | x | Execute Discrete,Or
0371 6827 |h' | Jump_Zero 0x399
0372 4800 |H | Short_Literal 0x0
0373 e5ff | | Load 0x2,-0x1
0374 0227 | ' | Execute Access,All_Reference
0375 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0376 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0377 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0378 e5ff | | Load 0x2,-0x1
0379 0227 | ' | Execute Access,All_Reference
037a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
037b 00db | | Load_Top At_Offset_3
037c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
037d e5ff | | Load 0x2,-0x1
037e 0227 | ' | Execute Access,All_Reference
037f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0380 00db | | Load_Top At_Offset_3
0381 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0382 e5ff | | Load 0x2,-0x1
0383 0227 | ' | Execute Access,All_Reference
0384 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0385 00db | | Load_Top At_Offset_3
0386 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0387 00d9 | | Load_Top At_Offset_1
0388 4820 |H | Short_Literal 0x20
0389 e402 | | Load 0x2,0x2
038a e5ff | | Load 0x2,-0x1
038b 0227 | ' | Execute Access,All_Reference
038c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
038d e5ff | | Load 0x2,-0x1
038e 0227 | ' | Execute Access,All_Reference
038f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0390 801b | | Call 0x0,0x1b
0391 005a | Z | Store_Top Discrete,At_Offset_2
0392 00d9 | | Load_Top At_Offset_1
0393 7001 |p | Jump_Nonzero 0x395
0394 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0395 4800 |H | Short_Literal 0x0
0396 e5ff | | Load 0x2,-0x1
0397 0227 | ' | Execute Access,All_Reference
0398 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0399 4502 |E | Exit_Suprogram New_Top_Offset 0x2
039a 0000 0000 | | .BLANK 0000[0x6]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a8 | | .CONST 0x03a8 ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0004 | | .CONST 0x0004 ; Number of locals
03a3 INIT_03a0:
03a3 e011 | | Load 0x0,0x11
03a4 0007 | | Action Break_Optional
03a5 00d8 | | Load_Top At_Offset_0
03a6 0007 | | Action Break_Optional
03a7 00e1 | | Load_Encached Boolean_Cache
03a8 BODY_03a0:
03a8 e01c | | Load 0x0,0x1c
03a9 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
03aa 003b | ; | Store_Top Access,At_Offset_3
03ab e011 | | Load 0x0,0x11
03ac 003a | : | Store_Top Access,At_Offset_2
03ad 4800 |H | Short_Literal 0x0
03ae 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
03af 00cf | | Action Mark_Auxiliary
03b0 780e |x | Jump 0x3bf
03b1 00db | | Load_Top At_Offset_3
03b2 e5ff | | Load 0x2,-0x1
03b3 022f | / | Execute Access,Equal
03b4 6803 |h | Jump_Zero 0x3b8
03b5 4801 |H | Short_Literal 0x1
03b6 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
03b7 7806 |x | Jump 0x3be
03b8 00db | | Load_Top At_Offset_3
03b9 003b | ; | Store_Top Access,At_Offset_3
03ba 00db | | Load_Top At_Offset_3
03bb 0227 | ' | Execute Access,All_Reference
03bc 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
03bd a402 | | Store_Unchecked 0x2,0x2
03be 00c9 | | Action Pop_Auxiliary_Loop
03bf 00db | | Load_Top At_Offset_3
03c0 022c | , | Execute Access,Not_Null
03c1 00da | | Load_Top At_Offset_2
03c2 0f00 | | Execute_Immediate Equal,0x0
03c3 0279 | y | Execute Discrete,And
03c4 77ec |w | Jump_Nonzero 0x3b1
03c5 00ce | | Action Pop_Auxiliary
03c6 00d8 | | Load_Top At_Offset_0
03c7 7001 |p | Jump_Nonzero 0x3c9
03c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03c9 00d9 | | Load_Top At_Offset_1
03ca 7006 |p | Jump_Nonzero 0x3d1
03cb 00da | | Load_Top At_Offset_2
03cc 0227 | ' | Execute Access,All_Reference
03cd 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
03ce e01c | | Load 0x0,0x1c
03cf 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
03d0 7806 |x | Jump 0x3d7
03d1 00da | | Load_Top At_Offset_2
03d2 0227 | ' | Execute Access,All_Reference
03d3 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
03d4 00da | | Load_Top At_Offset_2
03d5 0227 | ' | Execute Access,All_Reference
03d6 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
03d7 e011 | | Load 0x0,0x11
03d8 a5ff | | Store_Unchecked 0x2,-0x1
03d9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03da 0000 0000 | | .BLANK 0000[0x6]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e6 | | .CONST 0x03e6 ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0003 | | .CONST 0x0003 ; Number of locals
03e3 INIT_03e0:
03e3 e011 | | Load 0x0,0x11
03e4 0007 | | Action Break_Optional
03e5 00e1 | | Load_Encached Boolean_Cache
03e6 BODY_03e0:
03e6 e01c | | Load 0x0,0x1c
03e7 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
03e8 003a | : | Store_Top Access,At_Offset_2
03e9 4801 |H | Short_Literal 0x1
03ea 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
03eb 00cf | | Action Mark_Auxiliary
03ec 780c |x | Jump 0x3f9
03ed 00da | | Load_Top At_Offset_2
03ee e5ff | | Load 0x2,-0x1
03ef 022f | / | Execute Access,Equal
03f0 6803 |h | Jump_Zero 0x3f4
03f1 4800 |H | Short_Literal 0x0
03f2 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
03f3 7804 |x | Jump 0x3f8
03f4 00da | | Load_Top At_Offset_2
03f5 0227 | ' | Execute Access,All_Reference
03f6 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
03f7 003b | ; | Store_Top Access,At_Offset_3
03f8 00c9 | | Action Pop_Auxiliary_Loop
03f9 00da | | Load_Top At_Offset_2
03fa 022c | , | Execute Access,Not_Null
03fb 00da | | Load_Top At_Offset_2
03fc 0279 | y | Execute Discrete,And
03fd 77ef |w | Jump_Nonzero 0x3ed
03fe 00ce | | Action Pop_Auxiliary
03ff 00d8 | | Load_Top At_Offset_0
0400 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0401 0000 0000 | | .BLANK 0000[0x7]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040f | | .CONST 0x040f ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0005 | | .CONST 0x0005 ; Number of locals
040b INIT_0408:
040b 00e2 | | Load_Encached Integer_Cache
040c 03e9 | | Declare_Variable Discrete,Duplicate
040d 00e2 | | Load_Encached Integer_Cache
040e 00e8 | | Load_Encached Character_Cache
040f BODY_0408:
040f 4801 |H | Short_Literal 0x1
0410 a5fd | | Store_Unchecked 0x2,-0x3
0411 e011 | | Load 0x0,0x11
0412 03bc | | Declare_Variable Access,By_Allocation
0413 a5fe | | Store_Unchecked 0x2,-0x2
0414 e01c | | Load 0x0,0x1c
0415 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0416 e5fe | | Load 0x2,-0x2
0417 0227 | ' | Execute Access,All_Reference
0418 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0419 e5fe | | Load 0x2,-0x2
041a e01c | | Load 0x0,0x1c
041b 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
041c e5ff | | Load 0x2,-0x1
041d e010 | | Load 0x0,0x10
041e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
041f 0c1f | | Execute_Immediate Greater_Equal,0x1f
0420 e5ff | | Load 0x2,-0x1
0421 e010 | | Load 0x0,0x10
0422 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0423 0d01 | | Execute_Immediate Less,0x1
0424 0278 | x | Execute Discrete,Or
0425 6801 |h | Jump_Zero 0x427
0426 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0427 e5ff | | Load 0x2,-0x1
0428 800b | | Call 0x0,0xb
0429 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
042a 00cf | | Action Mark_Auxiliary
042b e5ff | | Load 0x2,-0x1
042c e010 | | Load 0x0,0x10
042d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
042e 4801 |H | Short_Literal 0x1
042f 0263 | c | Execute Discrete,Above_Bound
0430 7010 |p | Jump_Nonzero 0x441
0431 00d8 | | Load_Top At_Offset_0
0432 e5ff | | Load 0x2,-0x1
0433 e010 | | Load 0x0,0x10
0434 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0435 e00f | | Load 0x0,0xf
0436 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0437 e00e | | Load 0x0,0xe
0438 180e | | Execute Package,Field_Execute,Field_Number 0xe
0439 01d7 | | Execute Vector,Field_Read
043a 00d9 | | Load_Top At_Offset_1
043b e5fe | | Load 0x2,-0x2
043c 0227 | ' | Execute Access,All_Reference
043d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
043e 01d6 | | Execute Vector,Field_Write
043f 00c8 | | Action Pop_Auxiliary_Range
0440 3ff0 |? | Loop_Increasing 0x431
0441 00c9 | | Action Pop_Auxiliary_Loop
0442 481e |H | Short_Literal 0x1e
0443 e5ff | | Load 0x2,-0x1
0444 e010 | | Load 0x0,0x10
0445 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0446 0a01 | | Execute_Immediate Plus,0x1
0447 00d8 | | Load_Top At_Offset_0
0448 00e2 | | Load_Encached Integer_Cache
0449 0260 | ` | Execute Discrete,In_Type
044a 7001 |p | Jump_Nonzero 0x44c
044b 0801 | | Execute_Immediate Raise,0x1
044c 0263 | c | Execute Discrete,Above_Bound
044d 7008 |p | Jump_Nonzero 0x456
044e 4800 |H | Short_Literal 0x0
044f 00d9 | | Load_Top At_Offset_1
0450 e5fe | | Load 0x2,-0x2
0451 0227 | ' | Execute Access,All_Reference
0452 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0453 01d6 | | Execute Vector,Field_Write
0454 00c8 | | Action Pop_Auxiliary_Range
0455 3ff8 |? | Loop_Increasing 0x44e
0456 00ce | | Action Pop_Auxiliary
0457 00d9 | | Load_Top At_Offset_1
0458 00d8 | | Load_Top At_Offset_0
0459 e012 | | Load 0x0,0x12
045a 0260 | ` | Execute Discrete,In_Type
045b 7001 |p | Jump_Nonzero 0x45d
045c 0801 | | Execute_Immediate Raise,0x1
045d e5fe | | Load 0x2,-0x2
045e 0227 | ' | Execute Access,All_Reference
045f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0460 4800 |H | Short_Literal 0x0
0461 a5fd | | Store_Unchecked 0x2,-0x3
0462 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0463 0000 0000 | | .BLANK 0000[0x5]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 0476 | v | .CONST 0x0476 ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0006 | | .CONST 0x0006 ; Number of locals
046b INIT_0468:
046b e002 | | Load 0x0,0x2
046c 0337 | 7 | Declare_Variable Array
046d 00e2 | | Load_Encached Integer_Cache
046e 00e2 | | Load_Encached Integer_Cache
046f e019 | | Load 0x0,0x19
0470 0007 | | Action Break_Optional
0471 4801 |H | Short_Literal 0x1
0472 481e |H | Short_Literal 0x1e
0473 00e9 | | Load_Encached String_Cache
0474 035b | [ | Declare_Type Array,Constrained
0475 0337 | 7 | Declare_Variable Array
0476 BODY_0468:
0476 e5ff | | Load 0x2,-0x1
0477 0227 | ' | Execute Access,All_Reference
0478 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0479 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
047a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
047b 7044 |pD | Jump_Nonzero 0x4c0
047c e5ff | | Load 0x2,-0x1
047d 0227 | ' | Execute Access,All_Reference
047e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
047f 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0480 00d9 | | Load_Top At_Offset_1
0481 e402 | | Load 0x2,0x2
0482 4801 |H | Short_Literal 0x1
0483 e404 | | Load 0x2,0x4
0484 801d | | Call 0x0,0x1d
0485 00d1 | | Pop_Control Pop_Count_1
0486 005a | Z | Store_Top Discrete,At_Offset_2
0487 00d9 | | Load_Top At_Offset_1
0488 6801 |h | Jump_Zero 0x48a
0489 4502 |E | Exit_Suprogram New_Top_Offset 0x2
048a 00cf | | Action Mark_Auxiliary
048b 480f |H | Short_Literal 0xf
048c e5ff | | Load 0x2,-0x1
048d 0227 | ' | Execute Access,All_Reference
048e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
048f 0a01 | | Execute_Immediate Plus,0x1
0490 00d8 | | Load_Top At_Offset_0
0491 00e2 | | Load_Encached Integer_Cache
0492 0260 | ` | Execute Discrete,In_Type
0493 7001 |p | Jump_Nonzero 0x495
0494 0801 | | Execute_Immediate Raise,0x1
0495 0263 | c | Execute Discrete,Above_Bound
0496 7012 |p | Jump_Nonzero 0x4a9
0497 00d8 | | Load_Top At_Offset_0
0498 e402 | | Load 0x2,0x2
0499 01d5 | | Execute Vector,Field_Reference
049a 00d9 | | Load_Top At_Offset_1
049b 0aff | | Execute_Immediate Plus,-0x1
049c e402 | | Load 0x2,0x2
049d 01d6 | | Execute Vector,Field_Write
049e 00d8 | | Load_Top At_Offset_0
049f 0aff | | Execute_Immediate Plus,-0x1
04a0 e402 | | Load 0x2,0x2
04a1 01d5 | | Execute Vector,Field_Reference
04a2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04a3 e00e | | Load 0x0,0xe
04a4 180d | | Execute Package,Field_Execute,Field_Number 0xd
04a5 e406 | | Load 0x2,0x6
04a6 01d4 | | Execute Vector,Structure_Write
04a7 00c8 | | Action Pop_Auxiliary_Range
04a8 3fee |? | Loop_Increasing 0x497
04a9 00ce | | Action Pop_Auxiliary
04aa 4801 |H | Short_Literal 0x1
04ab 480f |H | Short_Literal 0xf
04ac e402 | | Load 0x2,0x2
04ad 01d5 | | Execute Vector,Field_Reference
04ae 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
04af 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
04b0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04b1 00d9 | | Load_Top At_Offset_1
04b2 e402 | | Load 0x2,0x2
04b3 4801 |H | Short_Literal 0x1
04b4 e404 | | Load 0x2,0x4
04b5 801e | | Call 0x0,0x1e
04b6 005a | Z | Store_Top Discrete,At_Offset_2
04b7 00d9 | | Load_Top At_Offset_1
04b8 6801 |h | Jump_Zero 0x4ba
04b9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04ba 4801 |H | Short_Literal 0x1
04bb e5ff | | Load 0x2,-0x1
04bc 0227 | ' | Execute Access,All_Reference
04bd 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
04be 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
04bf 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04c0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04c1 0000 0000 | | .BLANK 0000[0x7]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 052b | + | .CONST 0x052b ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 000b | | .CONST 0x000b ; Number of locals
04cb INIT_04c8:
04cb e012 | | Load 0x0,0x12
04cc 0007 | | Action Break_Optional
04cd 00e2 | | Load_Encached Integer_Cache
04ce e002 | | Load 0x0,0x2
04cf 0337 | 7 | Declare_Variable Array
04d0 00e2 | | Load_Encached Integer_Cache
04d1 e01f | | Load 0x0,0x1f
04d2 0322 | " | Declare_Variable Record
04d3 e019 | | Load 0x0,0x19
04d4 0007 | | Action Break_Optional
04d5 00e1 | | Load_Encached Boolean_Cache
04d6 4850 |HP | Short_Literal 0x50
04d7 e010 | | Load 0x0,0x10
04d8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04d9 1c08 | | Execute_Immediate Run_Utility,0x8
04da 00d8 | | Load_Top At_Offset_0
04db 1c00 | | Execute_Immediate Run_Utility,0x0
04dc 4850 |HP | Short_Literal 0x50
04dd e010 | | Load 0x0,0x10
04de 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04df 1c08 | | Execute_Immediate Run_Utility,0x8
04e0 00d8 | | Load_Top At_Offset_0
04e1 1c00 | | Execute_Immediate Run_Utility,0x0
04e2 e020 | | Load 0x0,0x20
04e3 0337 | 7 | Declare_Variable Array
04e4 00d8 | | Load_Top At_Offset_0
04e5 0335 | 5 | Declare_Variable Array,Duplicate
04e6 00cd | | Action Spare6_Action
04e7 e021 | ! | Load 0x0,0x21
04e8 0322 | " | Declare_Variable Record
04e9 4800 |H | Short_Literal 0x0
04ea 00d9 | | Load_Top At_Offset_1
04eb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04ec 4800 |H | Short_Literal 0x0
04ed 00d9 | | Load_Top At_Offset_1
04ee 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04ef 4800 |H | Short_Literal 0x0
04f0 00da | | Load_Top At_Offset_2
04f1 01d6 | | Execute Vector,Field_Write
04f2 e021 | ! | Load 0x0,0x21
04f3 0322 | " | Declare_Variable Record
04f4 4800 |H | Short_Literal 0x0
04f5 00d9 | | Load_Top At_Offset_1
04f6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04f7 4800 |H | Short_Literal 0x0
04f8 00d9 | | Load_Top At_Offset_1
04f9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04fa 4801 |H | Short_Literal 0x1
04fb 00da | | Load_Top At_Offset_2
04fc 01d6 | | Execute Vector,Field_Write
04fd e021 | ! | Load 0x0,0x21
04fe 0322 | " | Declare_Variable Record
04ff 4800 |H | Short_Literal 0x0
0500 00d9 | | Load_Top At_Offset_1
0501 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0502 4800 |H | Short_Literal 0x0
0503 00d9 | | Load_Top At_Offset_1
0504 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0505 4802 |H | Short_Literal 0x2
0506 00da | | Load_Top At_Offset_2
0507 01d6 | | Execute Vector,Field_Write
0508 e021 | ! | Load 0x0,0x21
0509 0322 | " | Declare_Variable Record
050a 4800 |H | Short_Literal 0x0
050b 00d9 | | Load_Top At_Offset_1
050c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
050d 4800 |H | Short_Literal 0x0
050e 00d9 | | Load_Top At_Offset_1
050f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0510 4803 |H | Short_Literal 0x3
0511 00da | | Load_Top At_Offset_2
0512 01d6 | | Execute Vector,Field_Write
0513 e021 | ! | Load 0x0,0x21
0514 0322 | " | Declare_Variable Record
0515 4800 |H | Short_Literal 0x0
0516 00d9 | | Load_Top At_Offset_1
0517 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0518 4800 |H | Short_Literal 0x0
0519 00d9 | | Load_Top At_Offset_1
051a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
051b 4804 |H | Short_Literal 0x4
051c 00da | | Load_Top At_Offset_2
051d 01d6 | | Execute Vector,Field_Write
051e e021 | ! | Load 0x0,0x21
051f 0322 | " | Declare_Variable Record
0520 4800 |H | Short_Literal 0x0
0521 00d9 | | Load_Top At_Offset_1
0522 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0523 4800 |H | Short_Literal 0x0
0524 00d9 | | Load_Top At_Offset_1
0525 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0526 4805 |H | Short_Literal 0x5
0527 00da | | Load_Top At_Offset_2
0528 01d6 | | Execute Vector,Field_Write
0529 00d9 | | Load_Top At_Offset_1
052a 01d4 | | Execute Vector,Structure_Write
052b BODY_04c8:
052b e5ff | | Load 0x2,-0x1
052c 0227 | ' | Execute Access,All_Reference
052d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
052e 60d5 |` | Indirect_Literal Discrete,0x604,{0x00000000, 0x00010000}
052f 026f | o | Execute Discrete,Remainder
0530 09fb | | Execute_Immediate Binary_Scale,-0x5
0531 00d8 | | Load_Top At_Offset_0
0532 00e2 | | Load_Encached Integer_Cache
0533 0260 | ` | Execute Discrete,In_Type
0534 7001 |p | Jump_Nonzero 0x536
0535 0801 | | Execute_Immediate Raise,0x1
0536 a403 | | Store_Unchecked 0x2,0x3
0537 e403 | | Load 0x2,0x3
0538 09f8 | | Execute_Immediate Binary_Scale,-0x8
0539 e00c | | Load 0x0,0xc
053a 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
053b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
053c 01d7 | | Execute Vector,Field_Read
053d e403 | | Load 0x2,0x3
053e 48ff |H | Short_Literal 0xff
053f 0279 | y | Execute Discrete,And
0540 0273 | s | Execute Discrete,Plus
0541 00d8 | | Load_Top At_Offset_0
0542 e012 | | Load 0x0,0x12
0543 0260 | ` | Execute Discrete,In_Type
0544 7001 |p | Jump_Nonzero 0x546
0545 0801 | | Execute_Immediate Raise,0x1
0546 a402 | | Store_Unchecked 0x2,0x2
0547 e407 | | Load 0x2,0x7
0548 e404 | | Load 0x2,0x4
0549 4801 |H | Short_Literal 0x1
054a e402 | | Load 0x2,0x2
054b 801d | | Call 0x0,0x1d
054c 00d1 | | Pop_Control Pop_Count_1
054d c407 | | Store 0x2,0x7
054e e407 | | Load 0x2,0x7
054f 6801 |h | Jump_Zero 0x551
0550 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0551 00da | | Load_Top At_Offset_2
0552 e5ff | | Load 0x2,-0x1
0553 0227 | ' | Execute Access,All_Reference
0554 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0555 e00e | | Load 0x0,0xe
0556 180d | | Execute Package,Field_Execute,Field_Number 0xd
0557 e010 | | Load 0x0,0x10
0558 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0559 00d1 | | Pop_Control Pop_Count_1
055a 00cf | | Action Mark_Auxiliary
055b 480f |H | Short_Literal 0xf
055c 4800 |H | Short_Literal 0x0
055d 0007 | | Action Break_Optional
055e 00d8 | | Load_Top At_Offset_0
055f e404 | | Load 0x2,0x4
0560 01d5 | | Execute Vector,Field_Reference
0561 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0562 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0563 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0564 6847 |hG | Jump_Zero 0x5ac
0565 e406 | | Load 0x2,0x6
0566 8022 | " | Call 0x0,0x22
0567 00d1 | | Pop_Control Pop_Count_1
0568 00db | | Load_Top At_Offset_3
0569 e5ff | | Load 0x2,-0x1
056a 0227 | ' | Execute Access,All_Reference
056b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
056c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
056d 4800 |H | Short_Literal 0x0
056e e5ff | | Load 0x2,-0x1
056f 0227 | ' | Execute Access,All_Reference
0570 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0571 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0572 e406 | | Load 0x2,0x6
0573 e5ff | | Load 0x2,-0x1
0574 0227 | ' | Execute Access,All_Reference
0575 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0576 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0577 4800 |H | Short_Literal 0x0
0578 e5ff | | Load 0x2,-0x1
0579 0227 | ' | Execute Access,All_Reference
057a 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
057b 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
057c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
057d 4801 |H | Short_Literal 0x1
057e e5ff | | Load 0x2,-0x1
057f 0227 | ' | Execute Access,All_Reference
0580 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0581 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0582 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0583 4800 |H | Short_Literal 0x0
0584 e5ff | | Load 0x2,-0x1
0585 0227 | ' | Execute Access,All_Reference
0586 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0587 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0588 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0589 4800 |H | Short_Literal 0x0
058a e5ff | | Load 0x2,-0x1
058b 0227 | ' | Execute Access,All_Reference
058c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
058d 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
058e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
058f 4800 |H | Short_Literal 0x0
0590 e5ff | | Load 0x2,-0x1
0591 0227 | ' | Execute Access,All_Reference
0592 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0593 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0594 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0595 4801 |H | Short_Literal 0x1
0596 e5ff | | Load 0x2,-0x1
0597 0227 | ' | Execute Access,All_Reference
0598 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0599 00d8 | | Load_Top At_Offset_0
059a e5ff | | Load 0x2,-0x1
059b 0227 | ' | Execute Access,All_Reference
059c 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
059d 4800 |H | Short_Literal 0x0
059e a5fe | | Store_Unchecked 0x2,-0x2
059f e402 | | Load 0x2,0x2
05a0 e5ff | | Load 0x2,-0x1
05a1 0227 | ' | Execute Access,All_Reference
05a2 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
05a3 4800 |H | Short_Literal 0x0
05a4 e5ff | | Load 0x2,-0x1
05a5 0227 | ' | Execute Access,All_Reference
05a6 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
05a7 4800 |H | Short_Literal 0x0
05a8 e5ff | | Load 0x2,-0x1
05a9 0227 | ' | Execute Access,All_Reference
05aa 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
05ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05ac e5ff | | Load 0x2,-0x1
05ad 0227 | ' | Execute Access,All_Reference
05ae 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05af 00d9 | | Load_Top At_Offset_1
05b0 e404 | | Load 0x2,0x4
05b1 01d5 | | Execute Vector,Field_Reference
05b2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05b3 027f | | Execute Discrete,Equal
05b4 6846 |hF | Jump_Zero 0x5fb
05b5 4801 |H | Short_Literal 0x1
05b6 a408 | | Store_Unchecked 0x2,0x8
05b7 e40a | | Load 0x2,0xa
05b8 00d9 | | Load_Top At_Offset_1
05b9 e404 | | Load 0x2,0x4
05ba 01d5 | | Execute Vector,Field_Reference
05bb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05bc e00e | | Load 0x0,0xe
05bd 180d | | Execute Package,Field_Execute,Field_Number 0xd
05be e00f | | Load 0x0,0xf
05bf 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05c0 e010 | | Load 0x0,0x10
05c1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05c2 00d1 | | Pop_Control Pop_Count_1
05c3 00cf | | Action Mark_Auxiliary
05c4 e409 | | Load 0x2,0x9
05c5 e010 | | Load 0x0,0x10
05c6 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
05c7 4801 |H | Short_Literal 0x1
05c8 0263 | c | Execute Discrete,Above_Bound
05c9 7010 |p | Jump_Nonzero 0x5da
05ca e408 | | Load 0x2,0x8
05cb 00d9 | | Load_Top At_Offset_1
05cc e409 | | Load 0x2,0x9
05cd e010 | | Load 0x0,0x10
05ce 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
05cf e00f | | Load 0x0,0xf
05d0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05d1 00da | | Load_Top At_Offset_2
05d2 e40a | | Load 0x2,0xa
05d3 e010 | | Load 0x0,0x10
05d4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
05d5 027f | | Execute Discrete,Equal
05d6 0279 | y | Execute Discrete,And
05d7 a408 | | Store_Unchecked 0x2,0x8
05d8 00c8 | | Action Pop_Auxiliary_Range
05d9 3ff0 |? | Loop_Increasing 0x5ca
05da 00ce | | Action Pop_Auxiliary
05db e408 | | Load 0x2,0x8
05dc 681e |h | Jump_Zero 0x5fb
05dd 00d8 | | Load_Top At_Offset_0
05de e404 | | Load 0x2,0x4
05df 01d5 | | Execute Vector,Field_Reference
05e0 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
05e1 e5ff | | Load 0x2,-0x1
05e2 0227 | ' | Execute Access,All_Reference
05e3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
05e4 4800 |H | Short_Literal 0x0
05e5 e5ff | | Load 0x2,-0x1
05e6 0227 | ' | Execute Access,All_Reference
05e7 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
05e8 00d8 | | Load_Top At_Offset_0
05e9 e5ff | | Load 0x2,-0x1
05ea 0227 | ' | Execute Access,All_Reference
05eb 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
05ec 4800 |H | Short_Literal 0x0
05ed a5fe | | Store_Unchecked 0x2,-0x2
05ee e402 | | Load 0x2,0x2
05ef e5ff | | Load 0x2,-0x1
05f0 0227 | ' | Execute Access,All_Reference
05f1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
05f2 4800 |H | Short_Literal 0x0
05f3 e5ff | | Load 0x2,-0x1
05f4 0227 | ' | Execute Access,All_Reference
05f5 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
05f6 4800 |H | Short_Literal 0x0
05f7 e5ff | | Load 0x2,-0x1
05f8 0227 | ' | Execute Access,All_Reference
05f9 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
05fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05fb 00c8 | | Action Pop_Auxiliary_Range
05fc 3f61 |?a | Loop_Increasing 0x55e
05fd 00ce | | Action Pop_Auxiliary
05fe 4805 |H | Short_Literal 0x5
05ff a5fe | | Store_Unchecked 0x2,-0x2
0600 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0601 0000 0000 | | .XXX[0x3]
0603 0000 | |
0604 0000 0000 | | .LITERAL {0x00000000, 0x00010000}
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 061d | | .CONST 0x061d ; Address of begin
0609 0004 | | .CONST 0x0004 ; Address of exception handler
060a 0007 | | .CONST 0x0007 ; Number of locals
060b INIT_0608:
060b 4800 |H | Short_Literal 0x0
060c 4bff |K | Short_Literal 0x3ff
060d e007 | | Load 0x0,0x7
060e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
060f 02a0 | | Declare_Subprogram Null_Subprogram
0610 4801 |H | Short_Literal 0x1
0611 035d | ] | Declare_Type Array,Defined
0612 e004 | | Load 0x0,0x4
0613 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0614 1910 | | Execute Package,Field_Reference,Field_Number 0x10
0615 00c6 | | Action Check_Subprogram_Elaborated
0616 00d8 | | Load_Top At_Offset_0
0617 e023 | # | Load 0x0,0x23
0618 e024 | $ | Load 0x0,0x24
0619 4806 |H | Short_Literal 0x6
061a 0007 | | Action Break_Optional
061b e402 | | Load 0x2,0x2
061c 0337 | 7 | Declare_Variable Array
061d BODY_0608:
061d 4800 |H | Short_Literal 0x0
061e e217 | | Load 0x1,0x17
061f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0620 4800 |H | Short_Literal 0x0
0621 e217 | | Load 0x1,0x17
0622 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0623 4802 |H | Short_Literal 0x2
0624 e217 | | Load 0x1,0x17
0625 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0626 e217 | | Load 0x1,0x17
0627 e403 | | Load 0x2,0x3
0628 4804 |H | Short_Literal 0x4
0629 4802 |H | Short_Literal 0x2
062a 0099 | | Action Reference_Dynamic
062b e004 | | Load 0x0,0x4
062c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
062d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
062e 00d9 | | Load_Top At_Offset_1
062f 01d4 | | Execute Vector,Structure_Write
0630 4802 |H | Short_Literal 0x2
0631 00d9 | | Load_Top At_Offset_1
0632 01d7 | | Execute Vector,Field_Read
0633 0f45 | E | Execute_Immediate Equal,0x45
0634 4803 |H | Short_Literal 0x3
0635 00da | | Load_Top At_Offset_2
0636 01d7 | | Execute Vector,Field_Read
0637 0f4b | K | Execute_Immediate Equal,0x4b
0638 0279 | y | Execute Discrete,And
0639 6802 |h | Jump_Zero 0x63c
063a 4801 |H | Short_Literal 0x1
063b a216 | | Store_Unchecked 0x1,0x16
063c 4802 |H | Short_Literal 0x2
063d 00d9 | | Load_Top At_Offset_1
063e 01d7 | | Execute Vector,Field_Read
063f 0f4b | K | Execute_Immediate Equal,0x4b
0640 4803 |H | Short_Literal 0x3
0641 00da | | Load_Top At_Offset_2
0642 01d7 | | Execute Vector,Field_Read
0643 0f45 | E | Execute_Immediate Equal,0x45
0644 0279 | y | Execute Discrete,And
0645 6802 |h | Jump_Zero 0x648
0646 4802 |H | Short_Literal 0x2
0647 a216 | | Store_Unchecked 0x1,0x16
0648 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0649 0000 0000 | | .BLANK 0000[0x7]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0655 | U | .CONST 0x0655 ; Address of begin
0651 0004 | | .CONST 0x0004 ; Address of exception handler
0652 0003 | | .CONST 0x0003 ; Number of locals
0653 INIT_0650:
0653 00e2 | | Load_Encached Integer_Cache
0654 00e1 | | Load_Encached Boolean_Cache
0655 BODY_0650:
0655 e5ff | | Load 0x2,-0x1
0656 0227 | ' | Execute Access,All_Reference
0657 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0658 e5fe | | Load 0x2,-0x2
0659 0227 | ' | Execute Access,All_Reference
065a 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
065b 027e | ~ | Execute Discrete,Not_Equal
065c e5ff | | Load 0x2,-0x1
065d 0227 | ' | Execute Access,All_Reference
065e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
065f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0660 e5fe | | Load 0x2,-0x2
0661 0227 | ' | Execute Access,All_Reference
0662 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0663 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0664 027e | ~ | Execute Discrete,Not_Equal
0665 0278 | x | Execute Discrete,Or
0666 6803 |h | Jump_Zero 0x66a
0667 4800 |H | Short_Literal 0x0
0668 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0669 782b |x+ | Jump 0x695
066a 4801 |H | Short_Literal 0x1
066b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
066c 00cf | | Action Mark_Auxiliary
066d 4805 |H | Short_Literal 0x5
066e 4800 |H | Short_Literal 0x0
066f 0007 | | Action Break_Optional
0670 00d8 | | Load_Top At_Offset_0
0671 e5ff | | Load 0x2,-0x1
0672 0227 | ' | Execute Access,All_Reference
0673 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0674 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0675 01d5 | | Execute Vector,Field_Reference
0676 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0677 00d9 | | Load_Top At_Offset_1
0678 e5fe | | Load 0x2,-0x2
0679 0227 | ' | Execute Access,All_Reference
067a 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
067b 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
067c 01d5 | | Execute Vector,Field_Reference
067d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
067e 027e | ~ | Execute Discrete,Not_Equal
067f 00d9 | | Load_Top At_Offset_1
0680 e5ff | | Load 0x2,-0x1
0681 0227 | ' | Execute Access,All_Reference
0682 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0683 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0684 01d5 | | Execute Vector,Field_Reference
0685 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0686 00da | | Load_Top At_Offset_2
0687 e5fe | | Load 0x2,-0x2
0688 0227 | ' | Execute Access,All_Reference
0689 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
068a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
068b 01d5 | | Execute Vector,Field_Reference
068c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
068d 027e | ~ | Execute Discrete,Not_Equal
068e 0278 | x | Execute Discrete,Or
068f 6802 |h | Jump_Zero 0x692
0690 4800 |H | Short_Literal 0x0
0691 a403 | | Store_Unchecked 0x2,0x3
0692 00c8 | | Action Pop_Auxiliary_Range
0693 3fdc |? | Loop_Increasing 0x670
0694 00ce | | Action Pop_Auxiliary
0695 00d8 | | Load_Top At_Offset_0
0696 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0697 0000 | | .XXX[0x1]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 069f | | .CONST 0x069f ; Address of begin
0699 0004 | | .CONST 0x0004 ; Address of exception handler
069a 0004 | | .CONST 0x0004 ; Number of locals
069b INIT_0698:
069b e012 | | Load 0x0,0x12
069c 0007 | | Action Break_Optional
069d 00e2 | | Load_Encached Integer_Cache
069e 00e2 | | Load_Encached Integer_Cache
069f BODY_0698:
069f 4800 |H | Short_Literal 0x0
06a0 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
06a1 4800 |H | Short_Literal 0x0
06a2 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
06a3 00cf | | Action Mark_Auxiliary
06a4 780b |x | Jump 0x6b0
06a5 00da | | Load_Top At_Offset_2
06a6 e7ff | | Load 0x3,-0x1
06a7 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
06a8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
06a9 01d5 | | Execute Vector,Field_Reference
06aa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06ab a602 | | Store_Unchecked 0x3,0x2
06ac 00da | | Load_Top At_Offset_2
06ad 0a01 | | Execute_Immediate Plus,0x1
06ae 005b | [ | Store_Top Discrete,At_Offset_3
06af 00c9 | | Action Pop_Auxiliary_Loop
06b0 00da | | Load_Top At_Offset_2
06b1 e7ff | | Load 0x3,-0x1
06b2 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
06b3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
06b4 01d5 | | Execute Vector,Field_Reference
06b5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06b6 e7fe | | Load 0x3,-0x2
06b7 027a | z | Execute Discrete,Less_Equal
06b8 77ec |w | Jump_Nonzero 0x6a5
06b9 00ce | | Action Pop_Auxiliary
06ba 00d9 | | Load_Top At_Offset_1
06bb e7ff | | Load 0x3,-0x1
06bc 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
06bd 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
06be 01d5 | | Execute Vector,Field_Reference
06bf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06c0 e7fe | | Load 0x3,-0x2
06c1 e602 | | Load 0x3,0x2
06c2 0272 | r | Execute Discrete,Minus
06c3 0273 | s | Execute Discrete,Plus
06c4 00d8 | | Load_Top At_Offset_0
06c5 00e2 | | Load_Encached Integer_Cache
06c6 0260 | ` | Execute Discrete,In_Type
06c7 7001 |p | Jump_Nonzero 0x6c9
06c8 0801 | | Execute_Immediate Raise,0x1
06c9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
06ca 00d8 | | Load_Top At_Offset_0
06cb e00c | | Load 0x0,0xc
06cc 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
06cd 0270 | p | Execute Discrete,Divide
06ce 00d8 | | Load_Top At_Offset_0
06cf e00d | | Load 0x0,0xd
06d0 1b14 | | Execute Package,Field_Read,Field_Number 0x14
06d1 1b13 | | Execute Package,Field_Read,Field_Number 0x13
06d2 0260 | ` | Execute Discrete,In_Type
06d3 7001 |p | Jump_Nonzero 0x6d5
06d4 0801 | | Execute_Immediate Raise,0x1
06d5 e217 | | Load 0x1,0x17
06d6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
06d7 00d8 | | Load_Top At_Offset_0
06d8 e00c | | Load 0x0,0xc
06d9 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
06da 026f | o | Execute Discrete,Remainder
06db 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
06dc 00d8 | | Load_Top At_Offset_0
06dd e00c | | Load 0x0,0xc
06de 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
06df 0270 | p | Execute Discrete,Divide
06e0 00d8 | | Load_Top At_Offset_0
06e1 e00d | | Load 0x0,0xd
06e2 1b14 | | Execute Package,Field_Read,Field_Number 0x14
06e3 1b14 | | Execute Package,Field_Read,Field_Number 0x14
06e4 0260 | ` | Execute Discrete,In_Type
06e5 7001 |p | Jump_Nonzero 0x6e7
06e6 0801 | | Execute_Immediate Raise,0x1
06e7 e217 | | Load 0x1,0x17
06e8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
06e9 00d8 | | Load_Top At_Offset_0
06ea e00c | | Load 0x0,0xc
06eb 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
06ec 026f | o | Execute Discrete,Remainder
06ed 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
06ee 00d8 | | Load_Top At_Offset_0
06ef 0901 | | Execute_Immediate Binary_Scale,0x1
06f0 00d8 | | Load_Top At_Offset_0
06f1 e00d | | Load 0x0,0xd
06f2 1b14 | | Execute Package,Field_Read,Field_Number 0x14
06f3 1b15 | | Execute Package,Field_Read,Field_Number 0x15
06f4 0260 | ` | Execute Discrete,In_Type
06f5 7001 |p | Jump_Nonzero 0x6f7
06f6 0801 | | Execute_Immediate Raise,0x1
06f7 e217 | | Load 0x1,0x17
06f8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
06f9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
06fa 0000 0000 | | .BLANK 0000[0x6]
0700 ; --------------------------------------------------------------------------------------
0700 ; Debug Table
0700 ; --------------------------------------------------------------------------------------
0700 0004 0012 | | .DEBUG4 0x0004,0x0012,0x2fd8,0x0000,0x0001,0x0000
0706 0000 0000 | | .BLANK 0000[0xfa]