|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6148f2
└─⟦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 0610 | | .CONST 0x0610 ; 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 0003 | | .CONST 0x0003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0028 | ( | .CONST 0x0028 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; Number of locals
000b INIT_0008:
000b 029a 0033 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0030
000d 029a 0053 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0050
000f 029a 0073 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0070
0011 029a 0093 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0090
0013 029a 00ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a8
0015 029a 013b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0138
0017 00bf | | Action Accept_Activation
0018 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0019 00c7 | | Action Elaborate_Subprogram
001a 1d0e | | Execute_Immediate Reference_Lex_1,0xe
001b 00c7 | | Action Elaborate_Subprogram
001c 1d0f | | Execute_Immediate Reference_Lex_1,0xf
001d 00c7 | | Action Elaborate_Subprogram
001e 1d10 | | Execute_Immediate Reference_Lex_1,0x10
001f 00c7 | | Action Elaborate_Subprogram
0020 029d 017b | {| Declare_Subprogram For_Outer_Call,INIT_0178
0022 029d 01b3 | | Declare_Subprogram For_Outer_Call,INIT_01b0
0024 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0025 00c7 | | Action Elaborate_Subprogram
0026 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0027 00c7 | | Action Elaborate_Subprogram
0028 BODY_0008:
0028 00bc | | Action Signal_Activated
0029 00bb | | Action Signal_Completion
002a 0000 0000 | | .BLANK 0000[0x6]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0043 | C | .CONST 0x0043 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0007 | | .CONST 0x0007 ; Number of locals
0033 INIT_0030:
0033 e5fa | | Load 0x2,-0x6
0034 01db | | Execute Vector,Length
0035 e002 | | Load 0x0,0x2
0036 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0037 e002 | | Load 0x0,0x2
0038 0007 | | Action Break_Optional
0039 00d9 | | Load_Top At_Offset_1
003a 0007 | | Action Break_Optional
003b e003 | | Load 0x0,0x3
003c 0322 | " | Declare_Variable Record
003d e5fa | | Load 0x2,-0x6
003e 01dd | | Execute Vector,First
003f e002 | | Load 0x0,0x2
0040 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0041 029f 01c3 | | Declare_Subprogram For_Call,INIT_01c0
0043 BODY_0030:
0043 e402 | | Load 0x2,0x2
0044 7001 |p | Jump_Nonzero 0x46
0045 4507 |E | Exit_Subprogram 0x7
0046 e5ff | | Load 0x2,-0x1
0047 8004 | | Call 0x0,0x4
0048 8407 | | Call 0x2,0x7
0049 e5ff | | Load 0x2,-0x1
004a 8005 | | Call 0x0,0x5
004b e5ff | | Load 0x2,-0x1
004c 8006 | | Call 0x0,0x6
004d 4507 |E | Exit_Subprogram 0x7
004e 0000 0000 | | .XXX[0x2]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0065 | e | .CONST 0x0065 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0008 | | .CONST 0x0008 ; Number of locals
0053 INIT_0050:
0053 e5fa | | Load 0x2,-0x6
0054 01dd | | Execute Vector,First
0055 e002 | | Load 0x0,0x2
0056 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0057 00e1 | | Load_Encached Boolean_Cache
0058 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0059 e5fc | | Load 0x2,-0x4
005a e007 | | Load 0x0,0x7
005b 03f1 | | Declare_Variable Discrete,With_Value
005c e5fa | | Load 0x2,-0x6
005d 01db | | Execute Vector,Length
005e e002 | | Load 0x0,0x2
005f 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0060 e007 | | Load 0x0,0x7
0061 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0062 e002 | | Load 0x0,0x2
0063 029f 027b | {| Declare_Subprogram For_Call,INIT_0278
0065 BODY_0050:
0065 e5ff | | Load 0x2,-0x1
0066 8004 | | Call 0x0,0x4
0067 8408 | | Call 0x2,0x8
0068 e5ff | | Load 0x2,-0x1
0069 8005 | | Call 0x0,0x5
006a e5ff | | Load 0x2,-0x1
006b 8006 | | Call 0x0,0x6
006c 4507 |E | Exit_Subprogram 0x7
006d 0000 0000 | | .XXX[0x3]
006f 0000 | |
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0086 | | .CONST 0x0086 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 000a | | .CONST 0x000a ; Number of locals
0073 INIT_0070:
0073 e002 | | Load 0x0,0x2
0074 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0075 4801 |H | Short_Literal 0x1
0076 4805 |H | Short_Literal 0x5
0077 e008 | | Load 0x0,0x8
0078 035b | [ | Declare_Type Array,Constrained
0079 0337 | 7 | Declare_Variable Array
007a e002 | | Load 0x0,0x2
007b 0007 | | Action Break_Optional
007c e007 | | Load 0x0,0x7
007d 0007 | | Action Break_Optional
007e e003 | | Load 0x0,0x3
007f 0322 | " | Declare_Variable Record
0080 00e1 | | Load_Encached Boolean_Cache
0081 e002 | | Load 0x0,0x2
0082 0007 | | Action Break_Optional
0083 e009 | | Load 0x0,0x9
0084 029f 02eb | | Declare_Subprogram For_Call,INIT_02e8
0086 BODY_0070:
0086 e5ff | | Load 0x2,-0x1
0087 8004 | | Call 0x0,0x4
0088 840a | | Call 0x2,0xa
0089 e5ff | | Load 0x2,-0x1
008a 8005 | | Call 0x0,0x5
008b e5ff | | Load 0x2,-0x1
008c 8006 | | Call 0x0,0x6
008d 4507 |E | Exit_Subprogram 0x7
008e 0000 0000 | | .XXX[0x2]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 009e | | .CONST 0x009e ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0005 | | .CONST 0x0005 ; Number of locals
0093 INIT_0090:
0093 e5fd | | Load 0x2,-0x3
0094 01db | | Execute Vector,Length
0095 e002 | | Load 0x0,0x2
0096 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0097 e00a | | Load 0x0,0xa
0098 02ff | | Declare_Variable Variant_Record
0099 00d8 | | Load_Top At_Offset_0
009a 1c00 | | Execute_Immediate Run_Utility,0x0
009b e00b | | Load 0x0,0xb
009c 029f 0503 | | Declare_Subprogram For_Call,INIT_0500
009e BODY_0090:
009e e5ff | | Load 0x2,-0x1
009f 8004 | | Call 0x0,0x4
00a0 8405 | | Call 0x2,0x5
00a1 e5ff | | Load 0x2,-0x1
00a2 8005 | | Call 0x0,0x5
00a3 e5ff | | Load 0x2,-0x1
00a4 8006 | | Call 0x0,0x6
00a5 4504 |E | Exit_Subprogram 0x4
00a6 0000 0000 | | .XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00bb | | .CONST 0x00bb ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0007 | | .CONST 0x0007 ; Number of locals
00ab INIT_00a8:
00ab e002 | | Load 0x0,0x2
00ac 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00ad e00c | | Load 0x0,0xc
00ae 0322 | " | Declare_Variable Record
00af 00d8 | | Load_Top At_Offset_0
00b0 1c00 | | Execute_Immediate Run_Utility,0x0
00b1 e00c | | Load 0x0,0xc
00b2 0322 | " | Declare_Variable Record
00b3 00d8 | | Load_Top At_Offset_0
00b4 1c00 | | Execute_Immediate Run_Utility,0x0
00b5 00e1 | | Load_Encached Boolean_Cache
00b6 00e1 | | Load_Encached Boolean_Cache
00b7 e00c | | Load 0x0,0xc
00b8 0322 | " | Declare_Variable Record
00b9 00d8 | | Load_Top At_Offset_0
00ba 1c00 | | Execute_Immediate Run_Utility,0x0
00bb BODY_00a8:
00bb 00e1 | | Load_Encached Boolean_Cache
00bc e403 | | Load 0x2,0x3
00bd e5ff | | Load 0x2,-0x1
00be 8214 | | Call 0x1,0x14
00bf 00d1 | | Pop_Control Pop_Count_1
00c0 005b | [ | Store_Top Discrete,At_Offset_3
00c1 e5ff | | Load 0x2,-0x1
00c2 0227 | ' | Execute Access,All_Reference
00c3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00c4 a5fd | | Store_Unchecked 0x2,-0x3
00c5 e5ff | | Load 0x2,-0x1
00c6 0227 | ' | Execute Access,All_Reference
00c7 3c0d |< | Execute Record,Field_Read,Field_Number 0xd
00c8 a5fc | | Store_Unchecked 0x2,-0x4
00c9 e5ff | | Load 0x2,-0x1
00ca 0227 | ' | Execute Access,All_Reference
00cb 3c0e |< | Execute Record,Field_Read,Field_Number 0xe
00cc a5fb | | Store_Unchecked 0x2,-0x5
00cd 00cf | | Action Mark_Auxiliary
00ce e5fe | | Load 0x2,-0x2
00cf 01d9 | | Execute Vector,Reverse_Bounds
00d0 0263 | c | Execute Discrete,Above_Bound
00d1 7055 |pU | Jump_Nonzero 0x127
00d2 00e1 | | Load_Encached Boolean_Cache
00d3 e404 | | Load 0x2,0x4
00d4 00da | | Load_Top At_Offset_2
00d5 e5fe | | Load 0x2,-0x2
00d6 01d7 | | Execute Vector,Field_Read
00d7 00d8 | | Load_Top At_Offset_0
00d8 e00d | | Load 0x0,0xd
00d9 0260 | ` | Execute Discrete,In_Type
00da 7001 |p | Jump_Nonzero 0xdc
00db 0801 | | Execute_Immediate Raise,0x1
00dc e5ff | | Load 0x2,-0x1
00dd 8213 | | Call 0x1,0x13
00de 00d1 | | Pop_Control Pop_Count_1
00df c406 | | Store 0x2,0x6
00e0 e406 | | Load 0x2,0x6
00e1 7006 |p | Jump_Nonzero 0xe8
00e2 e405 | | Load 0x2,0x5
00e3 6840 |h@ | Jump_Zero 0x124
00e4 e403 | | Load 0x2,0x3
00e5 e404 | | Load 0x2,0x4
00e6 017d | } | Execute Record,Structure_Write
00e7 7800 |x | Jump 0xe8
00e8 e402 | | Load 0x2,0x2
00e9 7004 |p | Jump_Nonzero 0xee
00ea e404 | | Load 0x2,0x4
00eb e5fa | | Load 0x2,-0x6
00ec 017d | } | Execute Record,Structure_Write
00ed 7833 |x3 | Jump 0x121
00ee e404 | | Load 0x2,0x4
00ef 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00f0 e407 | | Load 0x2,0x7
00f1 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00f2 800e | | Call 0x0,0xe
00f3 e407 | | Load 0x2,0x7
00f4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00f5 e404 | | Load 0x2,0x4
00f6 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00f7 e407 | | Load 0x2,0x7
00f8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00f9 800e | | Call 0x0,0xe
00fa e407 | | Load 0x2,0x7
00fb 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00fc 00db | | Load_Top At_Offset_3
00fd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00fe e404 | | Load 0x2,0x4
00ff 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0100 0273 | s | Execute Discrete,Plus
0101 00d8 | | Load_Top At_Offset_0
0102 e007 | | Load 0x0,0x7
0103 0260 | ` | Execute Discrete,In_Type
0104 7001 |p | Jump_Nonzero 0x106
0105 0801 | | Execute_Immediate Raise,0x1
0106 e407 | | Load 0x2,0x7
0107 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0108 800f | | Call 0x0,0xf
0109 e407 | | Load 0x2,0x7
010a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
010b 00db | | Load_Top At_Offset_3
010c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
010d e404 | | Load 0x2,0x4
010e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
010f 0273 | s | Execute Discrete,Plus
0110 00d8 | | Load_Top At_Offset_0
0111 e007 | | Load 0x0,0x7
0112 0260 | ` | Execute Discrete,In_Type
0113 7001 |p | Jump_Nonzero 0x115
0114 0801 | | Execute_Immediate Raise,0x1
0115 e407 | | Load 0x2,0x7
0116 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0117 800e | | Call 0x0,0xe
0118 e407 | | Load 0x2,0x7
0119 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
011a 00db | | Load_Top At_Offset_3
011b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
011c e404 | | Load 0x2,0x4
011d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
011e 0273 | s | Execute Discrete,Plus
011f e407 | | Load 0x2,0x7
0120 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0121 e402 | | Load 0x2,0x2
0122 0a01 | | Execute_Immediate Plus,0x1
0123 c402 | | Store 0x2,0x2
0124 0008 | | Action Idle
0125 00c8 | | Action Pop_Auxiliary_Range
0126 3fab |? | Loop_Increasing 0xd2
0127 00ce | | Action Pop_Auxiliary
0128 e402 | | Load 0x2,0x2
0129 7004 |p | Jump_Nonzero 0x12e
012a e010 | | Load 0x0,0x10
012b e5fa | | Load 0x2,-0x6
012c 017d | } | Execute Record,Structure_Write
012d 4503 |E | Exit_Subprogram 0x3
012e 00d8 | | Load_Top At_Offset_0
012f e5fa | | Load 0x2,-0x6
0130 017d | } | Execute Record,Structure_Write
0131 4503 |E | Exit_Subprogram 0x3
0132 0000 0000 | | .BLANK 0000[0x6]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0147 | G | .CONST 0x0147 ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0006 | | .CONST 0x0006 ; Number of locals
013b INIT_0138:
013b e00c | | Load 0x0,0xc
013c 0322 | " | Declare_Variable Record
013d 00d8 | | Load_Top At_Offset_0
013e 1c00 | | Execute_Immediate Run_Utility,0x0
013f e00c | | Load 0x0,0xc
0140 0322 | " | Declare_Variable Record
0141 00d8 | | Load_Top At_Offset_0
0142 1c00 | | Execute_Immediate Run_Utility,0x0
0143 00e1 | | Load_Encached Boolean_Cache
0144 00e1 | | Load_Encached Boolean_Cache
0145 e011 | | Load 0x0,0x11
0146 0007 | | Action Break_Optional
0147 BODY_0138:
0147 00e1 | | Load_Encached Boolean_Cache
0148 e402 | | Load 0x2,0x2
0149 e5ff | | Load 0x2,-0x1
014a 8214 | | Call 0x1,0x14
014b 00d1 | | Pop_Control Pop_Count_1
014c 005b | [ | Store_Top Discrete,At_Offset_3
014d 4800 |H | Short_Literal 0x0
014e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
014f 00cf | | Action Mark_Auxiliary
0150 e5fe | | Load 0x2,-0x2
0151 01d9 | | Execute Vector,Reverse_Bounds
0152 0263 | c | Execute Discrete,Above_Bound
0153 701f |p | Jump_Nonzero 0x173
0154 00e1 | | Load_Encached Boolean_Cache
0155 e403 | | Load 0x2,0x3
0156 00da | | Load_Top At_Offset_2
0157 e5fe | | Load 0x2,-0x2
0158 01d7 | | Execute Vector,Field_Read
0159 00d8 | | Load_Top At_Offset_0
015a e00d | | Load 0x0,0xd
015b 0260 | ` | Execute Discrete,In_Type
015c 7001 |p | Jump_Nonzero 0x15e
015d 0801 | | Execute_Immediate Raise,0x1
015e e5ff | | Load 0x2,-0x1
015f 8213 | | Call 0x1,0x13
0160 00d1 | | Pop_Control Pop_Count_1
0161 c405 | | Store 0x2,0x5
0162 e405 | | Load 0x2,0x5
0163 7008 |p | Jump_Nonzero 0x16c
0164 e404 | | Load 0x2,0x4
0165 680b |h | Jump_Zero 0x171
0166 00db | | Load_Top At_Offset_3
0167 e402 | | Load 0x2,0x2
0168 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0169 0273 | s | Execute Discrete,Plus
016a c406 | | Store 0x2,0x6
016b 7805 |x | Jump 0x171
016c 00db | | Load_Top At_Offset_3
016d e403 | | Load 0x2,0x3
016e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
016f 0273 | s | Execute Discrete,Plus
0170 c406 | | Store 0x2,0x6
0171 00c8 | | Action Pop_Auxiliary_Range
0172 3fe1 |? | Loop_Increasing 0x154
0173 00ce | | Action Pop_Auxiliary
0174 00d8 | | Load_Top At_Offset_0
0175 4402 |D | Exit_Subprogram With_Result,0x2
0176 0000 0000 | | .XXX[0x2]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00da | | Load_Top At_Offset_2
017c 0227 | ' | Execute Access,All_Reference
017d 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
017e e012 | | Load 0x0,0x12
017f 022f | / | Execute Access,Equal
0180 6808 |h | Jump_Zero 0x189
0181 00da | | Load_Top At_Offset_2
0182 0227 | ' | Execute Access,All_Reference
0183 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
0184 e5fd | | Load 0x2,-0x3
0185 017d | } | Execute Record,Structure_Write
0186 4801 |H | Short_Literal 0x1
0187 a5fc | | Store_Unchecked 0x2,-0x4
0188 4503 |E | Exit_Subprogram 0x3
0189 4800 |H | Short_Literal 0x0
018a 4801 |H | Short_Literal 0x1
018b e5ff | | Load 0x2,-0x1
018c 0227 | ' | Execute Access,All_Reference
018d 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
018e 0227 | ' | Execute Access,All_Reference
018f 01aa | | Execute Matrix,Bounds
0190 0262 | b | Execute Discrete,In_Range
0191 681b |h | Jump_Zero 0x1ad
0192 00db | | Load_Top At_Offset_3
0193 4802 |H | Short_Literal 0x2
0194 e5ff | | Load 0x2,-0x1
0195 0227 | ' | Execute Access,All_Reference
0196 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
0197 0227 | ' | Execute Access,All_Reference
0198 01aa | | Execute Matrix,Bounds
0199 0262 | b | Execute Discrete,In_Range
019a 6812 |h | Jump_Zero 0x1ad
019b 00db | | Load_Top At_Offset_3
019c 4800 |H | Short_Literal 0x0
019d e5ff | | Load 0x2,-0x1
019e 0227 | ' | Execute Access,All_Reference
019f 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
01a0 0227 | ' | Execute Access,All_Reference
01a1 01a5 | | Execute Matrix,Field_Reference
01a2 e5fd | | Load 0x2,-0x3
01a3 017d | } | Execute Record,Structure_Write
01a4 e5fd | | Load 0x2,-0x3
01a5 8013 | | Call 0x0,0x13
01a6 6803 |h | Jump_Zero 0x1aa
01a7 4800 |H | Short_Literal 0x0
01a8 a5fc | | Store_Unchecked 0x2,-0x4
01a9 4503 |E | Exit_Subprogram 0x3
01aa 4801 |H | Short_Literal 0x1
01ab a5fc | | Store_Unchecked 0x2,-0x4
01ac 4503 |E | Exit_Subprogram 0x3
01ad 4800 |H | Short_Literal 0x0
01ae a5fc | | Store_Unchecked 0x2,-0x4
01af 4503 |E | Exit_Subprogram 0x3
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00e1 | | Load_Encached Boolean_Cache
01b4 e5fe | | Load 0x2,-0x2
01b5 e5ff | | Load 0x2,-0x1
01b6 0227 | ' | Execute Access,All_Reference
01b7 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
01b8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01b9 e5ff | | Load 0x2,-0x1
01ba 8213 | | Call 0x1,0x13
01bb 00d1 | | Pop_Control Pop_Count_1
01bc c5fd | | Store 0x2,-0x3
01bd 4502 |E | Exit_Subprogram 0x2
01be 0000 0000 | | .XXX[0x2]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0270 | p | .CONST 0x0270 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 e5fd | | Load 0x2,-0x3
01c4 e5ff | | Load 0x2,-0x1
01c5 8014 | | Call 0x0,0x14
01c6 e402 | | Load 0x2,0x2
01c7 48fd |H | Short_Literal 0xfd
01c8 0273 | s | Execute Discrete,Plus
01c9 48fe |H | Short_Literal 0xfe
01ca 0270 | p | Execute Discrete,Divide
01cb 0901 | | Execute_Immediate Binary_Scale,0x1
01cc e402 | | Load 0x2,0x2
01cd 0273 | s | Execute Discrete,Plus
01ce c403 | | Store 0x2,0x3
01cf e403 | | Load 0x2,0x3
01d0 e015 | | Load 0x0,0x15
01d1 0322 | " | Declare_Variable Record
01d2 484a |HJ | Short_Literal 0x4a
01d3 00d9 | | Load_Top At_Offset_1
01d4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01d5 e015 | | Load 0x0,0x15
01d6 012c | , | Execute Any,Size
01d7 09fb | | Execute_Immediate Binary_Scale,-0x5
01d8 e403 | | Load 0x2,0x3
01d9 0a03 | | Execute_Immediate Plus,0x3
01da 09fe | | Execute_Immediate Binary_Scale,-0x2
01db 00d8 | | Load_Top At_Offset_0
01dc e016 | | Load 0x0,0x16
01dd 0260 | ` | Execute Discrete,In_Type
01de 7001 |p | Jump_Nonzero 0x1e0
01df 0801 | | Execute_Immediate Raise,0x1
01e0 0273 | s | Execute Discrete,Plus
01e1 00d9 | | Load_Top At_Offset_1
01e2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01e3 4800 |H | Short_Literal 0x0
01e4 00d9 | | Load_Top At_Offset_1
01e5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01e6 e5fe | | Load 0x2,-0x2
01e7 00d9 | | Load_Top At_Offset_1
01e8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01e9 e5fd | | Load 0x2,-0x3
01ea 0227 | ' | Execute Access,All_Reference
01eb 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01ec 00d9 | | Load_Top At_Offset_1
01ed 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01ee e5fc | | Load 0x2,-0x4
01ef 00d9 | | Load_Top At_Offset_1
01f0 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
01f1 e5fb | | Load 0x2,-0x5
01f2 00d9 | | Load_Top At_Offset_1
01f3 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
01f4 e5ff | | Load 0x2,-0x1
01f5 e017 | | Load 0x0,0x17
01f6 a018 | | Reference 0x0,0x18
01f7 e019 | | Load 0x0,0x19
01f8 e01a | | Load 0x0,0x1a
01f9 a01b | | Reference 0x0,0x1b
01fa 801c | | Call 0x0,0x1c
01fb e003 | | Load 0x0,0x3
01fc 0322 | " | Declare_Variable Record
01fd 4800 |H | Short_Literal 0x0
01fe 00d9 | | Load_Top At_Offset_1
01ff 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0200 48fe |H | Short_Literal 0xfe
0201 00d9 | | Load_Top At_Offset_1
0202 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0203 e405 | | Load 0x2,0x5
0204 017d | } | Execute Record,Structure_Write
0205 00cf | | Action Mark_Auxiliary
0206 781f |x | Jump 0x226
0207 e405 | | Load 0x2,0x5
0208 e5ff | | Load 0x2,-0x1
0209 e01d | | Load 0x0,0x1d
020a a01e | | Reference 0x0,0x1e
020b e01f | | Load 0x0,0x1f
020c a020 | | Reference 0x0,0x20
020d 8021 | ! | Call 0x0,0x21
020e e406 | | Load 0x2,0x6
020f 00d8 | | Load_Top At_Offset_0
0210 48fd |H | Short_Literal 0xfd
0211 0273 | s | Execute Discrete,Plus
0212 e5fa | | Load 0x2,-0x6
0213 01cf | | Execute Vector,Slice_Read
0214 e5ff | | Load 0x2,-0x1
0215 e022 | " | Load 0x0,0x22
0216 e023 | # | Load 0x0,0x23
0217 e024 | $ | Load 0x0,0x24
0218 a025 | % | Reference 0x0,0x25
0219 e026 | & | Load 0x0,0x26
021a e027 | ' | Load 0x0,0x27
021b a028 | ( | Reference 0x0,0x28
021c 8029 | ) | Call 0x0,0x29
021d e404 | | Load 0x2,0x4
021e 4f02 |O | Short_Literal 0x702
021f 0273 | s | Execute Discrete,Plus
0220 c404 | | Store 0x2,0x4
0221 e406 | | Load 0x2,0x6
0222 48fe |H | Short_Literal 0xfe
0223 0273 | s | Execute Discrete,Plus
0224 c406 | | Store 0x2,0x6
0225 00c9 | | Action Pop_Auxiliary_Loop
0226 e404 | | Load 0x2,0x4
0227 0cff | | Execute_Immediate Greater_Equal,0xff
0228 77de |w | Jump_Nonzero 0x207
0229 00ce | | Action Pop_Auxiliary
022a e404 | | Load 0x2,0x4
022b 6843 |hC | Jump_Zero 0x26f
022c e003 | | Load 0x0,0x3
022d 0322 | " | Declare_Variable Record
022e 4800 |H | Short_Literal 0x0
022f 00d9 | | Load_Top At_Offset_1
0230 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0231 e404 | | Load 0x2,0x4
0232 00d8 | | Load_Top At_Offset_0
0233 e00d | | Load 0x0,0xd
0234 0260 | ` | Execute Discrete,In_Type
0235 7001 |p | Jump_Nonzero 0x237
0236 0801 | | Execute_Immediate Raise,0x1
0237 00d9 | | Load_Top At_Offset_1
0238 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0239 e405 | | Load 0x2,0x5
023a 017d | } | Execute Record,Structure_Write
023b e405 | | Load 0x2,0x5
023c e5ff | | Load 0x2,-0x1
023d e01d | | Load 0x0,0x1d
023e a01e | | Reference 0x0,0x1e
023f e01f | | Load 0x0,0x1f
0240 a020 | | Reference 0x0,0x20
0241 8021 | ! | Call 0x0,0x21
0242 e406 | | Load 0x2,0x6
0243 e5fa | | Load 0x2,-0x6
0244 01dc | | Execute Vector,Last
0245 e5fa | | Load 0x2,-0x6
0246 01cf | | Execute Vector,Slice_Read
0247 e5ff | | Load 0x2,-0x1
0248 e022 | " | Load 0x0,0x22
0249 e023 | # | Load 0x0,0x23
024a e024 | $ | Load 0x0,0x24
024b a025 | % | Reference 0x0,0x25
024c e026 | & | Load 0x0,0x26
024d e027 | ' | Load 0x0,0x27
024e a028 | ( | Reference 0x0,0x28
024f 8029 | ) | Call 0x0,0x29
0250 e403 | | Load 0x2,0x3
0251 4804 |H | Short_Literal 0x4
0252 026f | o | Execute Discrete,Remainder
0253 681b |h | Jump_Zero 0x26f
0254 4801 |H | Short_Literal 0x1
0255 4804 |H | Short_Literal 0x4
0256 e403 | | Load 0x2,0x3
0257 4804 |H | Short_Literal 0x4
0258 026f | o | Execute Discrete,Remainder
0259 0272 | r | Execute Discrete,Minus
025a e008 | | Load 0x0,0x8
025b 0334 | 4 | Declare_Variable Array,With_Constraint
025c 00d8 | | Load_Top At_Offset_0
025d 01dc | | Execute Vector,Last
025e 4801 |H | Short_Literal 0x1
025f 0263 | c | Execute Discrete,Above_Bound
0260 7005 |p | Jump_Nonzero 0x266
0261 4800 |H | Short_Literal 0x0
0262 00d9 | | Load_Top At_Offset_1
0263 e602 | | Load 0x3,0x2
0264 01d6 | | Execute Vector,Field_Write
0265 3ffb |? | Loop_Increasing 0x261
0266 e5ff | | Load 0x2,-0x1
0267 e02a | * | Load 0x0,0x2a
0268 e02b | + | Load 0x0,0x2b
0269 e02c | , | Load 0x0,0x2c
026a a02d | - | Reference 0x0,0x2d
026b e02e | . | Load 0x0,0x2e
026c e02f | / | Load 0x0,0x2f
026d a030 | 0 | Reference 0x0,0x30
026e 8029 | ) | Call 0x0,0x29
026f 4501 |E | Exit_Subprogram 0x1
0270 TRAP_01c0:
0270 0007 | | Action Break_Optional
0271 e5ff | | Load 0x2,-0x1
0272 8005 | | Call 0x0,0x5
0273 00d8 | | Load_Top At_Offset_0
0274 0101 | | Execute Exception,Reraise
0275 0000 0000 | | .XXX[0x3]
0277 0000 | |
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027d | } | .CONST 0x027d ; Address of begin
0279 02e1 | | .CONST 0x02e1 ; Address of exception handler
027a 0002 | | .CONST 0x0002 ; Number of locals
027b INIT_0278:
027b 029f 0593 | | Declare_Subprogram For_Call,INIT_0590
027d BODY_0278:
027d e5fd | | Load 0x2,-0x3
027e e5ff | | Load 0x2,-0x1
027f 8014 | | Call 0x0,0x14
0280 00cf | | Action Mark_Auxiliary
0281 785b |x[ | Jump 0x2dd
0282 e405 | | Load 0x2,0x5
0283 48ff |H | Short_Literal 0xff
0284 027d | } | Execute Discrete,Greater
0285 6803 |h | Jump_Zero 0x289
0286 48ff |H | Short_Literal 0xff
0287 a407 | | Store_Unchecked 0x2,0x7
0288 7802 |x | Jump 0x28b
0289 e405 | | Load 0x2,0x5
028a a407 | | Store_Unchecked 0x2,0x7
028b e403 | | Load 0x2,0x3
028c 6803 |h | Jump_Zero 0x290
028d 4800 |H | Short_Literal 0x0
028e a403 | | Store_Unchecked 0x2,0x3
028f 7801 |x | Jump 0x291
0290 8602 | | Call 0x3,0x2
0291 e404 | | Load 0x2,0x4
0292 a406 | | Store_Unchecked 0x2,0x6
0293 e407 | | Load 0x2,0x7
0294 e031 | 1 | Load 0x0,0x31
0295 0322 | " | Declare_Variable Record
0296 484c |HL | Short_Literal 0x4c
0297 00d9 | | Load_Top At_Offset_1
0298 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0299 e031 | 1 | Load 0x0,0x31
029a 012c | , | Execute Any,Size
029b 09fb | | Execute_Immediate Binary_Scale,-0x5
029c e407 | | Load 0x2,0x7
029d 0a03 | | Execute_Immediate Plus,0x3
029e 09fe | | Execute_Immediate Binary_Scale,-0x2
029f 00d8 | | Load_Top At_Offset_0
02a0 e016 | | Load 0x0,0x16
02a1 0260 | ` | Execute Discrete,In_Type
02a2 7001 |p | Jump_Nonzero 0x2a4
02a3 0801 | | Execute_Immediate Raise,0x1
02a4 0273 | s | Execute Discrete,Plus
02a5 00d9 | | Load_Top At_Offset_1
02a6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02a7 e407 | | Load 0x2,0x7
02a8 00d8 | | Load_Top At_Offset_0
02a9 e00d | | Load 0x0,0xd
02aa 0260 | ` | Execute Discrete,In_Type
02ab 7001 |p | Jump_Nonzero 0x2ad
02ac 0801 | | Execute_Immediate Raise,0x1
02ad 00d9 | | Load_Top At_Offset_1
02ae 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02af e5fe | | Load 0x2,-0x2
02b0 00d9 | | Load_Top At_Offset_1
02b1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02b2 e5fd | | Load 0x2,-0x3
02b3 0227 | ' | Execute Access,All_Reference
02b4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02b5 00d9 | | Load_Top At_Offset_1
02b6 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
02b7 e404 | | Load 0x2,0x4
02b8 00d9 | | Load_Top At_Offset_1
02b9 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
02ba e5fb | | Load 0x2,-0x5
02bb 00d9 | | Load_Top At_Offset_1
02bc 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
02bd e5ff | | Load 0x2,-0x1
02be e032 | 2 | Load 0x0,0x32
02bf a033 | 3 | Reference 0x0,0x33
02c0 e034 | 4 | Load 0x0,0x34
02c1 e035 | 5 | Load 0x0,0x35
02c2 a036 | 6 | Reference 0x0,0x36
02c3 801c | | Call 0x0,0x1c
02c4 e402 | | Load 0x2,0x2
02c5 00d8 | | Load_Top At_Offset_0
02c6 e407 | | Load 0x2,0x7
02c7 0273 | s | Execute Discrete,Plus
02c8 0aff | | Execute_Immediate Plus,-0x1
02c9 e5fa | | Load 0x2,-0x6
02ca 01cf | | Execute Vector,Slice_Read
02cb e5ff | | Load 0x2,-0x1
02cc e037 | 7 | Load 0x0,0x37
02cd e038 | 8 | Load 0x0,0x38
02ce e039 | 9 | Load 0x0,0x39
02cf a03a | : | Reference 0x0,0x3a
02d0 e03b | ; | Load 0x0,0x3b
02d1 e03c | < | Load 0x0,0x3c
02d2 a03d | = | Reference 0x0,0x3d
02d3 803e | > | Call 0x0,0x3e
02d4 e402 | | Load 0x2,0x2
02d5 e407 | | Load 0x2,0x7
02d6 0273 | s | Execute Discrete,Plus
02d7 c402 | | Store 0x2,0x2
02d8 e405 | | Load 0x2,0x5
02d9 e407 | | Load 0x2,0x7
02da 0272 | r | Execute Discrete,Minus
02db c405 | | Store 0x2,0x5
02dc 00c9 | | Action Pop_Auxiliary_Loop
02dd e405 | | Load 0x2,0x5
02de 0c01 | | Execute_Immediate Greater_Equal,0x1
02df 77a2 |w | Jump_Nonzero 0x282
02e0 4501 |E | Exit_Subprogram 0x1
02e1 TRAP_0278:
02e1 0007 | | Action Break_Optional
02e2 e5ff | | Load 0x2,-0x1
02e3 8005 | | Call 0x0,0x5
02e4 00d8 | | Load_Top At_Offset_0
02e5 0101 | | Execute Exception,Reraise
02e6 0000 0000 | | .XXX[0x2]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 04f7 | | .CONST 0x04f7 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb e5fd | | Load 0x2,-0x3
02ec e5ff | | Load 0x2,-0x1
02ed 8014 | | Call 0x0,0x14
02ee 00cf | | Action Mark_Auxiliary
02ef e5fa | | Load 0x2,-0x6
02f0 01d9 | | Execute Vector,Reverse_Bounds
02f1 0263 | c | Execute Discrete,Above_Bound
02f2 7071 |pq | Jump_Nonzero 0x364
02f3 00d8 | | Load_Top At_Offset_0
02f4 e5fa | | Load 0x2,-0x6
02f5 01d5 | | Execute Vector,Field_Reference
02f6 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02f7 e03f | ? | Load 0x0,0x3f
02f8 017f | | Execute Record,Equal
02f9 7007 |p | Jump_Nonzero 0x301
02fa e402 | | Load 0x2,0x2
02fb 0a01 | | Execute_Immediate Plus,0x1
02fc e040 | @ | Load 0x0,0x40
02fd 012c | , | Execute Any,Size
02fe 09fd | | Execute_Immediate Binary_Scale,-0x3
02ff 0273 | s | Execute Discrete,Plus
0300 c402 | | Store 0x2,0x2
0301 00d8 | | Load_Top At_Offset_0
0302 e5fa | | Load 0x2,-0x6
0303 01d5 | | Execute Vector,Field_Reference
0304 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0305 682d |h- | Jump_Zero 0x333
0306 00d8 | | Load_Top At_Offset_0
0307 e5fa | | Load 0x2,-0x6
0308 01d5 | | Execute Vector,Field_Reference
0309 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
030a 0c01 | | Execute_Immediate Greater_Equal,0x1
030b 6814 |h | Jump_Zero 0x320
030c e402 | | Load 0x2,0x2
030d e003 | | Load 0x0,0x3
030e 012c | , | Execute Any,Size
030f 09fd | | Execute_Immediate Binary_Scale,-0x3
0310 00da | | Load_Top At_Offset_2
0311 e5fa | | Load 0x2,-0x6
0312 01d5 | | Execute Vector,Field_Reference
0313 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0314 0a7e | ~ | Execute_Immediate Plus,0x7e
0315 487f |H | Short_Literal 0x7f
0316 0270 | p | Execute Discrete,Divide
0317 00d8 | | Load_Top At_Offset_0
0318 e002 | | Load 0x0,0x2
0319 0260 | ` | Execute Discrete,In_Type
031a 7001 |p | Jump_Nonzero 0x31c
031b 0801 | | Execute_Immediate Raise,0x1
031c 0271 | q | Execute Discrete,Times
031d 0273 | s | Execute Discrete,Plus
031e c402 | | Store 0x2,0x2
031f 7813 |x | Jump 0x333
0320 e402 | | Load 0x2,0x2
0321 e003 | | Load 0x0,0x3
0322 012c | , | Execute Any,Size
0323 09fd | | Execute_Immediate Binary_Scale,-0x3
0324 00da | | Load_Top At_Offset_2
0325 e5fa | | Load 0x2,-0x6
0326 01d5 | | Execute Vector,Field_Reference
0327 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0328 0274 | t | Execute Discrete,Absolute_Value
0329 0a7f | | Execute_Immediate Plus,0x7f
032a 09f9 | | Execute_Immediate Binary_Scale,-0x7
032b 00d8 | | Load_Top At_Offset_0
032c e002 | | Load 0x0,0x2
032d 0260 | ` | Execute Discrete,In_Type
032e 7001 |p | Jump_Nonzero 0x330
032f 0801 | | Execute_Immediate Raise,0x1
0330 0271 | q | Execute Discrete,Times
0331 0273 | s | Execute Discrete,Plus
0332 c402 | | Store 0x2,0x2
0333 00d8 | | Load_Top At_Offset_0
0334 e5fa | | Load 0x2,-0x6
0335 01d5 | | Execute Vector,Field_Reference
0336 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0337 a409 | | Store_Unchecked 0x2,0x9
0338 e409 | | Load 0x2,0x9
0339 0227 | ' | Execute Access,All_Reference
033a 01db | | Execute Vector,Length
033b 0c01 | | Execute_Immediate Greater_Equal,0x1
033c 6825 |h% | Jump_Zero 0x362
033d e402 | | Load 0x2,0x2
033e e003 | | Load 0x0,0x3
033f 012c | , | Execute Any,Size
0340 09fd | | Execute_Immediate Binary_Scale,-0x3
0341 e409 | | Load 0x2,0x9
0342 0227 | ' | Execute Access,All_Reference
0343 01db | | Execute Vector,Length
0344 48fd |H | Short_Literal 0xfd
0345 0273 | s | Execute Discrete,Plus
0346 48fe |H | Short_Literal 0xfe
0347 0270 | p | Execute Discrete,Divide
0348 0aff | | Execute_Immediate Plus,-0x1
0349 00d8 | | Load_Top At_Offset_0
034a e002 | | Load 0x0,0x2
034b 0260 | ` | Execute Discrete,In_Type
034c 7001 |p | Jump_Nonzero 0x34e
034d 0801 | | Execute_Immediate Raise,0x1
034e 0271 | q | Execute Discrete,Times
034f 0273 | s | Execute Discrete,Plus
0350 c402 | | Store 0x2,0x2
0351 00d8 | | Load_Top At_Offset_0
0352 e5fa | | Load 0x2,-0x6
0353 01d5 | | Execute Vector,Field_Reference
0354 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0355 7006 |p | Jump_Nonzero 0x35c
0356 e402 | | Load 0x2,0x2
0357 e003 | | Load 0x0,0x3
0358 012c | , | Execute Any,Size
0359 09fd | | Execute_Immediate Binary_Scale,-0x3
035a 0273 | s | Execute Discrete,Plus
035b c402 | | Store 0x2,0x2
035c e402 | | Load 0x2,0x2
035d e409 | | Load 0x2,0x9
035e 0227 | ' | Execute Access,All_Reference
035f 01db | | Execute Vector,Length
0360 0273 | s | Execute Discrete,Plus
0361 c402 | | Store 0x2,0x2
0362 00c8 | | Action Pop_Auxiliary_Range
0363 3f8f |? | Loop_Increasing 0x2f3
0364 00ce | | Action Pop_Auxiliary
0365 e402 | | Load 0x2,0x2
0366 e015 | | Load 0x0,0x15
0367 0322 | " | Declare_Variable Record
0368 484a |HJ | Short_Literal 0x4a
0369 00d9 | | Load_Top At_Offset_1
036a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
036b e015 | | Load 0x0,0x15
036c 012c | , | Execute Any,Size
036d 09fb | | Execute_Immediate Binary_Scale,-0x5
036e e402 | | Load 0x2,0x2
036f 0a03 | | Execute_Immediate Plus,0x3
0370 00d8 | | Load_Top At_Offset_0
0371 e016 | | Load 0x0,0x16
0372 0260 | ` | Execute Discrete,In_Type
0373 7001 |p | Jump_Nonzero 0x375
0374 0801 | | Execute_Immediate Raise,0x1
0375 09fe | | Execute_Immediate Binary_Scale,-0x2
0376 0273 | s | Execute Discrete,Plus
0377 00d9 | | Load_Top At_Offset_1
0378 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0379 4800 |H | Short_Literal 0x0
037a 00d9 | | Load_Top At_Offset_1
037b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
037c e5fe | | Load 0x2,-0x2
037d 00d9 | | Load_Top At_Offset_1
037e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
037f e5fd | | Load 0x2,-0x3
0380 0227 | ' | Execute Access,All_Reference
0381 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0382 00d9 | | Load_Top At_Offset_1
0383 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0384 e5fc | | Load 0x2,-0x4
0385 00d9 | | Load_Top At_Offset_1
0386 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0387 e5fb | | Load 0x2,-0x5
0388 00d9 | | Load_Top At_Offset_1
0389 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
038a e5ff | | Load 0x2,-0x1
038b e017 | | Load 0x0,0x17
038c a018 | | Reference 0x0,0x18
038d e019 | | Load 0x0,0x19
038e e01a | | Load 0x0,0x1a
038f a01b | | Reference 0x0,0x1b
0390 801c | | Call 0x0,0x1c
0391 00cf | | Action Mark_Auxiliary
0392 e5fa | | Load 0x2,-0x6
0393 01d9 | | Execute Vector,Reverse_Bounds
0394 0263 | c | Execute Discrete,Above_Bound
0395 7140 |q@ | Jump_Nonzero 0x4d6
0396 00d8 | | Load_Top At_Offset_0
0397 e5fa | | Load 0x2,-0x6
0398 01d5 | | Execute Vector,Field_Reference
0399 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
039a e03f | ? | Load 0x0,0x3f
039b 017f | | Execute Record,Equal
039c 7057 |pW | Jump_Nonzero 0x3f4
039d 48ff |H | Short_Literal 0xff
039e 4801 |H | Short_Literal 0x1
039f e403 | | Load 0x2,0x3
03a0 01d6 | | Execute Vector,Field_Write
03a1 00d8 | | Load_Top At_Offset_0
03a2 e5fa | | Load 0x2,-0x6
03a3 01d5 | | Execute Vector,Field_Reference
03a4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
03a5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03a6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03a7 09e8 | | Execute_Immediate Binary_Scale,-0x18
03a8 00d8 | | Load_Top At_Offset_0
03a9 e00d | | Load 0x0,0xd
03aa 0260 | ` | Execute Discrete,In_Type
03ab 7001 |p | Jump_Nonzero 0x3ad
03ac 0801 | | Execute_Immediate Raise,0x1
03ad 4802 |H | Short_Literal 0x2
03ae e403 | | Load 0x2,0x3
03af 01d6 | | Execute Vector,Field_Write
03b0 00d8 | | Load_Top At_Offset_0
03b1 e5fa | | Load 0x2,-0x6
03b2 01d5 | | Execute Vector,Field_Reference
03b3 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
03b4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03b5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03b6 09f0 | | Execute_Immediate Binary_Scale,-0x10
03b7 4900 |I | Short_Literal 0x100
03b8 026f | o | Execute Discrete,Remainder
03b9 00d8 | | Load_Top At_Offset_0
03ba e00d | | Load 0x0,0xd
03bb 0260 | ` | Execute Discrete,In_Type
03bc 7001 |p | Jump_Nonzero 0x3be
03bd 0801 | | Execute_Immediate Raise,0x1
03be 4803 |H | Short_Literal 0x3
03bf e403 | | Load 0x2,0x3
03c0 01d6 | | Execute Vector,Field_Write
03c1 00d8 | | Load_Top At_Offset_0
03c2 e5fa | | Load 0x2,-0x6
03c3 01d5 | | Execute Vector,Field_Reference
03c4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
03c5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03c6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03c7 09f8 | | Execute_Immediate Binary_Scale,-0x8
03c8 4900 |I | Short_Literal 0x100
03c9 026f | o | Execute Discrete,Remainder
03ca 00d8 | | Load_Top At_Offset_0
03cb e00d | | Load 0x0,0xd
03cc 0260 | ` | Execute Discrete,In_Type
03cd 7001 |p | Jump_Nonzero 0x3cf
03ce 0801 | | Execute_Immediate Raise,0x1
03cf 4804 |H | Short_Literal 0x4
03d0 e403 | | Load 0x2,0x3
03d1 01d6 | | Execute Vector,Field_Write
03d2 00d8 | | Load_Top At_Offset_0
03d3 e5fa | | Load 0x2,-0x6
03d4 01d5 | | Execute Vector,Field_Reference
03d5 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
03d6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03d7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03d8 4900 |I | Short_Literal 0x100
03d9 026f | o | Execute Discrete,Remainder
03da 00d8 | | Load_Top At_Offset_0
03db e00d | | Load 0x0,0xd
03dc 0260 | ` | Execute Discrete,In_Type
03dd 7001 |p | Jump_Nonzero 0x3df
03de 0801 | | Execute_Immediate Raise,0x1
03df 4805 |H | Short_Literal 0x5
03e0 e403 | | Load 0x2,0x3
03e1 01d6 | | Execute Vector,Field_Write
03e2 e403 | | Load 0x2,0x3
03e3 e5ff | | Load 0x2,-0x1
03e4 e02a | * | Load 0x0,0x2a
03e5 e02b | + | Load 0x0,0x2b
03e6 e02c | , | Load 0x0,0x2c
03e7 a02d | - | Reference 0x0,0x2d
03e8 e02e | . | Load 0x0,0x2e
03e9 e02f | / | Load 0x0,0x2f
03ea a030 | 0 | Reference 0x0,0x30
03eb 8029 | ) | Call 0x0,0x29
03ec 00d8 | | Load_Top At_Offset_0
03ed e5fa | | Load 0x2,-0x6
03ee 01d5 | | Execute Vector,Field_Reference
03ef 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
03f0 e5fd | | Load 0x2,-0x3
03f1 0227 | ' | Execute Access,All_Reference
03f2 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
03f3 380f |8 | Execute Record,Field_Write,Field_Number 0xf
03f4 00d8 | | Load_Top At_Offset_0
03f5 e5fa | | Load 0x2,-0x6
03f6 01d5 | | Execute Vector,Field_Reference
03f7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03f8 a405 | | Store_Unchecked 0x2,0x5
03f9 e405 | | Load 0x2,0x5
03fa 6850 |hP | Jump_Zero 0x44b
03fb 00cf | | Action Mark_Auxiliary
03fc 7827 |x' | Jump 0x424
03fd e405 | | Load 0x2,0x5
03fe 0c01 | | Execute_Immediate Greater_Equal,0x1
03ff 680e |h | Jump_Zero 0x40e
0400 e003 | | Load 0x0,0x3
0401 0322 | " | Declare_Variable Record
0402 487f |H | Short_Literal 0x7f
0403 00d9 | | Load_Top At_Offset_1
0404 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0405 4800 |H | Short_Literal 0x0
0406 00d9 | | Load_Top At_Offset_1
0407 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0408 e406 | | Load 0x2,0x6
0409 017d | } | Execute Record,Structure_Write
040a e405 | | Load 0x2,0x5
040b 0a81 | | Execute_Immediate Plus,-0x7f
040c c405 | | Store 0x2,0x5
040d 780e |x | Jump 0x41c
040e e003 | | Load 0x0,0x3
040f 0322 | " | Declare_Variable Record
0410 4f80 |O | Short_Literal 0x780
0411 00d9 | | Load_Top At_Offset_1
0412 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0413 4800 |H | Short_Literal 0x0
0414 00d9 | | Load_Top At_Offset_1
0415 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0416 e406 | | Load 0x2,0x6
0417 017d | } | Execute Record,Structure_Write
0418 e405 | | Load 0x2,0x5
0419 4880 |H | Short_Literal 0x80
041a 0273 | s | Execute Discrete,Plus
041b c405 | | Store 0x2,0x5
041c e406 | | Load 0x2,0x6
041d e5ff | | Load 0x2,-0x1
041e e01d | | Load 0x0,0x1d
041f a01e | | Reference 0x0,0x1e
0420 e01f | | Load 0x0,0x1f
0421 a020 | | Reference 0x0,0x20
0422 8021 | ! | Call 0x0,0x21
0423 00c9 | | Action Pop_Auxiliary_Loop
0424 e405 | | Load 0x2,0x5
0425 4f80 |O | Short_Literal 0x780
0426 027c | | | Execute Discrete,Less
0427 77d5 |w | Jump_Nonzero 0x3fd
0428 e405 | | Load 0x2,0x5
0429 0c80 | | Execute_Immediate Greater_Equal,0x80
042a 77d2 |w | Jump_Nonzero 0x3fd
042b 00ce | | Action Pop_Auxiliary
042c e405 | | Load 0x2,0x5
042d 681d |h | Jump_Zero 0x44b
042e 00d8 | | Load_Top At_Offset_0
042f e5fa | | Load 0x2,-0x6
0430 01d5 | | Execute Vector,Field_Reference
0431 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0432 0227 | ' | Execute Access,All_Reference
0433 01db | | Execute Vector,Length
0434 7016 |p | Jump_Nonzero 0x44b
0435 e003 | | Load 0x0,0x3
0436 0322 | " | Declare_Variable Record
0437 e405 | | Load 0x2,0x5
0438 00d8 | | Load_Top At_Offset_0
0439 e041 | A | Load 0x0,0x41
043a 0260 | ` | Execute Discrete,In_Type
043b 7001 |p | Jump_Nonzero 0x43d
043c 0801 | | Execute_Immediate Raise,0x1
043d 00d9 | | Load_Top At_Offset_1
043e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
043f 4800 |H | Short_Literal 0x0
0440 00d9 | | Load_Top At_Offset_1
0441 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0442 e406 | | Load 0x2,0x6
0443 017d | } | Execute Record,Structure_Write
0444 e406 | | Load 0x2,0x6
0445 e5ff | | Load 0x2,-0x1
0446 e01d | | Load 0x0,0x1d
0447 a01e | | Reference 0x0,0x1e
0448 e01f | | Load 0x0,0x1f
0449 a020 | | Reference 0x0,0x20
044a 8021 | ! | Call 0x0,0x21
044b 00d8 | | Load_Top At_Offset_0
044c e5fa | | Load 0x2,-0x6
044d 01d5 | | Execute Vector,Field_Reference
044e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
044f a409 | | Store_Unchecked 0x2,0x9
0450 e409 | | Load 0x2,0x9
0451 0227 | ' | Execute Access,All_Reference
0452 01dc | | Execute Vector,Last
0453 c404 | | Store 0x2,0x4
0454 4801 |H | Short_Literal 0x1
0455 a407 | | Store_Unchecked 0x2,0x7
0456 e409 | | Load 0x2,0x9
0457 0227 | ' | Execute Access,All_Reference
0458 01dd | | Execute Vector,First
0459 c408 | | Store 0x2,0x8
045a 00cf | | Action Mark_Auxiliary
045b 7847 |xG | Jump 0x4a3
045c e407 | | Load 0x2,0x7
045d 681b |h | Jump_Zero 0x479
045e 4800 |H | Short_Literal 0x0
045f a407 | | Store_Unchecked 0x2,0x7
0460 e003 | | Load 0x0,0x3
0461 0322 | " | Declare_Variable Record
0462 e405 | | Load 0x2,0x5
0463 00d8 | | Load_Top At_Offset_0
0464 e041 | A | Load 0x0,0x41
0465 0260 | ` | Execute Discrete,In_Type
0466 7001 |p | Jump_Nonzero 0x468
0467 0801 | | Execute_Immediate Raise,0x1
0468 00d9 | | Load_Top At_Offset_1
0469 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
046a 48fe |H | Short_Literal 0xfe
046b 00d9 | | Load_Top At_Offset_1
046c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
046d e406 | | Load 0x2,0x6
046e 017d | } | Execute Record,Structure_Write
046f e406 | | Load 0x2,0x6
0470 e5ff | | Load 0x2,-0x1
0471 e01d | | Load 0x0,0x1d
0472 a01e | | Reference 0x0,0x1e
0473 e01f | | Load 0x0,0x1f
0474 a020 | | Reference 0x0,0x20
0475 8021 | ! | Call 0x0,0x21
0476 4800 |H | Short_Literal 0x0
0477 a405 | | Store_Unchecked 0x2,0x5
0478 7811 |x | Jump 0x48a
0479 e003 | | Load 0x0,0x3
047a 0322 | " | Declare_Variable Record
047b 4800 |H | Short_Literal 0x0
047c 00d9 | | Load_Top At_Offset_1
047d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
047e 48fe |H | Short_Literal 0xfe
047f 00d9 | | Load_Top At_Offset_1
0480 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0481 e406 | | Load 0x2,0x6
0482 017d | } | Execute Record,Structure_Write
0483 e406 | | Load 0x2,0x6
0484 e5ff | | Load 0x2,-0x1
0485 e01d | | Load 0x0,0x1d
0486 a01e | | Reference 0x0,0x1e
0487 e01f | | Load 0x0,0x1f
0488 a020 | | Reference 0x0,0x20
0489 8021 | ! | Call 0x0,0x21
048a e408 | | Load 0x2,0x8
048b 00d8 | | Load_Top At_Offset_0
048c 48fd |H | Short_Literal 0xfd
048d 0273 | s | Execute Discrete,Plus
048e e409 | | Load 0x2,0x9
048f 0227 | ' | Execute Access,All_Reference
0490 01cf | | Execute Vector,Slice_Read
0491 e5ff | | Load 0x2,-0x1
0492 e022 | " | Load 0x0,0x22
0493 e023 | # | Load 0x0,0x23
0494 e024 | $ | Load 0x0,0x24
0495 a025 | % | Reference 0x0,0x25
0496 e026 | & | Load 0x0,0x26
0497 e027 | ' | Load 0x0,0x27
0498 a028 | ( | Reference 0x0,0x28
0499 8029 | ) | Call 0x0,0x29
049a e404 | | Load 0x2,0x4
049b 4f02 |O | Short_Literal 0x702
049c 0273 | s | Execute Discrete,Plus
049d c404 | | Store 0x2,0x4
049e e408 | | Load 0x2,0x8
049f 48fe |H | Short_Literal 0xfe
04a0 0273 | s | Execute Discrete,Plus
04a1 c408 | | Store 0x2,0x8
04a2 00c9 | | Action Pop_Auxiliary_Loop
04a3 e404 | | Load 0x2,0x4
04a4 0cff | | Execute_Immediate Greater_Equal,0xff
04a5 77b6 |w | Jump_Nonzero 0x45c
04a6 00ce | | Action Pop_Auxiliary
04a7 e404 | | Load 0x2,0x4
04a8 682b |h+ | Jump_Zero 0x4d4
04a9 e003 | | Load 0x0,0x3
04aa 0322 | " | Declare_Variable Record
04ab e405 | | Load 0x2,0x5
04ac 00d8 | | Load_Top At_Offset_0
04ad e041 | A | Load 0x0,0x41
04ae 0260 | ` | Execute Discrete,In_Type
04af 7001 |p | Jump_Nonzero 0x4b1
04b0 0801 | | Execute_Immediate Raise,0x1
04b1 00d9 | | Load_Top At_Offset_1
04b2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04b3 e404 | | Load 0x2,0x4
04b4 00d8 | | Load_Top At_Offset_0
04b5 e00d | | Load 0x0,0xd
04b6 0260 | ` | Execute Discrete,In_Type
04b7 7001 |p | Jump_Nonzero 0x4b9
04b8 0801 | | Execute_Immediate Raise,0x1
04b9 00d9 | | Load_Top At_Offset_1
04ba 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04bb e406 | | Load 0x2,0x6
04bc 017d | } | Execute Record,Structure_Write
04bd e406 | | Load 0x2,0x6
04be e5ff | | Load 0x2,-0x1
04bf e01d | | Load 0x0,0x1d
04c0 a01e | | Reference 0x0,0x1e
04c1 e01f | | Load 0x0,0x1f
04c2 a020 | | Reference 0x0,0x20
04c3 8021 | ! | Call 0x0,0x21
04c4 e408 | | Load 0x2,0x8
04c5 e409 | | Load 0x2,0x9
04c6 0227 | ' | Execute Access,All_Reference
04c7 01dc | | Execute Vector,Last
04c8 e409 | | Load 0x2,0x9
04c9 0227 | ' | Execute Access,All_Reference
04ca 01cf | | Execute Vector,Slice_Read
04cb e5ff | | Load 0x2,-0x1
04cc e022 | " | Load 0x0,0x22
04cd e023 | # | Load 0x0,0x23
04ce e024 | $ | Load 0x0,0x24
04cf a025 | % | Reference 0x0,0x25
04d0 e026 | & | Load 0x0,0x26
04d1 e027 | ' | Load 0x0,0x27
04d2 a028 | ( | Reference 0x0,0x28
04d3 8029 | ) | Call 0x0,0x29
04d4 00c8 | | Action Pop_Auxiliary_Range
04d5 3ec0 |> | Loop_Increasing 0x396
04d6 00ce | | Action Pop_Auxiliary
04d7 e402 | | Load 0x2,0x2
04d8 4804 |H | Short_Literal 0x4
04d9 026f | o | Execute Discrete,Remainder
04da c402 | | Store 0x2,0x2
04db e402 | | Load 0x2,0x2
04dc 6819 |h | Jump_Zero 0x4f6
04dd 4801 |H | Short_Literal 0x1
04de 4804 |H | Short_Literal 0x4
04df e402 | | Load 0x2,0x2
04e0 0272 | r | Execute Discrete,Minus
04e1 e008 | | Load 0x0,0x8
04e2 0334 | 4 | Declare_Variable Array,With_Constraint
04e3 00d8 | | Load_Top At_Offset_0
04e4 01dc | | Execute Vector,Last
04e5 4801 |H | Short_Literal 0x1
04e6 0263 | c | Execute Discrete,Above_Bound
04e7 7005 |p | Jump_Nonzero 0x4ed
04e8 4800 |H | Short_Literal 0x0
04e9 00d9 | | Load_Top At_Offset_1
04ea e602 | | Load 0x3,0x2
04eb 01d6 | | Execute Vector,Field_Write
04ec 3ffb |? | Loop_Increasing 0x4e8
04ed e5ff | | Load 0x2,-0x1
04ee e02a | * | Load 0x0,0x2a
04ef e02b | + | Load 0x0,0x2b
04f0 e02c | , | Load 0x0,0x2c
04f1 a02d | - | Reference 0x0,0x2d
04f2 e02e | . | Load 0x0,0x2e
04f3 e02f | / | Load 0x0,0x2f
04f4 a030 | 0 | Reference 0x0,0x30
04f5 8029 | ) | Call 0x0,0x29
04f6 4501 |E | Exit_Subprogram 0x1
04f7 TRAP_02e8:
04f7 0007 | | Action Break_Optional
04f8 e5ff | | Load 0x2,-0x1
04f9 8005 | | Call 0x0,0x5
04fa 00d8 | | Load_Top At_Offset_0
04fb 0101 | | Execute Exception,Reraise
04fc 0000 0000 | | .BLANK 0000[0x4]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0505 | | .CONST 0x0505 ; Address of begin
0501 058b | | .CONST 0x058b ; Address of exception handler
0502 0002 | | .CONST 0x0002 ; Number of locals
0503 INIT_0500:
0503 029f 05db | | Declare_Subprogram For_Call,INIT_05d8
0505 BODY_0500:
0505 e042 | B | Load 0x0,0x42
0506 0322 | " | Declare_Variable Record
0507 4830 |H0 | Short_Literal 0x30
0508 00d9 | | Load_Top At_Offset_1
0509 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
050a e042 | B | Load 0x0,0x42
050b 012c | , | Execute Any,Size
050c 09fb | | Execute_Immediate Binary_Scale,-0x5
050d e402 | | Load 0x2,0x2
050e 0a03 | | Execute_Immediate Plus,0x3
050f 00d8 | | Load_Top At_Offset_0
0510 e016 | | Load 0x0,0x16
0511 0260 | ` | Execute Discrete,In_Type
0512 7001 |p | Jump_Nonzero 0x514
0513 0801 | | Execute_Immediate Raise,0x1
0514 09ff | | Execute_Immediate Binary_Scale,-0x1
0515 0273 | s | Execute Discrete,Plus
0516 00d9 | | Load_Top At_Offset_1
0517 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0518 e5fe | | Load 0x2,-0x2
0519 00d9 | | Load_Top At_Offset_1
051a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
051b e402 | | Load 0x2,0x2
051c 4802 |H | Short_Literal 0x2
051d 026f | o | Execute Discrete,Remainder
051e 0e00 | | Execute_Immediate Not_Equal,0x0
051f 8043 | C | Call 0x0,0x43
0520 00d9 | | Load_Top At_Offset_1
0521 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0522 e5ff | | Load 0x2,-0x1
0523 e044 | D | Load 0x0,0x44
0524 a045 | E | Reference 0x0,0x45
0525 e046 | F | Load 0x0,0x46
0526 e047 | G | Load 0x0,0x47
0527 a048 | H | Reference 0x0,0x48
0528 8049 | I | Call 0x0,0x49
0529 8602 | | Call 0x3,0x2
052a e00b | | Load 0x0,0xb
052b e403 | | Load 0x2,0x3
052c 4801 |H | Short_Literal 0x1
052d 4800 |H | Short_Literal 0x0
052e 4830 |H0 | Short_Literal 0x30
052f e5ff | | Load 0x2,-0x1
0530 e04a | J | Load 0x0,0x4a
0531 a04b | K | Reference 0x0,0x4b
0532 a04c | L | Reference 0x0,0x4c
0533 804d | M | Call 0x0,0x4d
0534 00d1 | | Pop_Control Pop_Count_1
0535 c404 | | Store 0x2,0x4
0536 e404 | | Load 0x2,0x4
0537 700b |p | Jump_Nonzero 0x543
0538 4800 |H | Short_Literal 0x0
0539 a5fc | | Store_Unchecked 0x2,-0x4
053a 4800 |H | Short_Literal 0x0
053b a5fb | | Store_Unchecked 0x2,-0x5
053c 4800 |H | Short_Literal 0x0
053d a5fa | | Store_Unchecked 0x2,-0x6
053e e010 | | Load 0x0,0x10
053f e5f9 | | Load 0x2,-0x7
0540 017d | } | Execute Record,Structure_Write
0541 00cc | | Action Pop_Block
0542 4504 |E | Exit_Subprogram 0x4
0543 e403 | | Load 0x2,0x3
0544 2626 |&& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x26
0545 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0546 a5fc | | Store_Unchecked 0x2,-0x4
0547 e403 | | Load 0x2,0x3
0548 2626 |&& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x26
0549 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
054a a5fb | | Store_Unchecked 0x2,-0x5
054b e403 | | Load 0x2,0x3
054c 2626 |&& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x26
054d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
054e a5fa | | Store_Unchecked 0x2,-0x6
054f e00c | | Load 0x0,0xc
0550 0322 | " | Declare_Variable Record
0551 e403 | | Load 0x2,0x3
0552 2626 |&& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x26
0553 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0554 00d9 | | Load_Top At_Offset_1
0555 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0556 e403 | | Load 0x2,0x3
0557 2626 |&& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x26
0558 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0559 00d9 | | Load_Top At_Offset_1
055a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
055b e403 | | Load 0x2,0x3
055c 2626 |&& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x26
055d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
055e 00d8 | | Load_Top At_Offset_0
055f e007 | | Load 0x0,0x7
0560 0260 | ` | Execute Discrete,In_Type
0561 7001 |p | Jump_Nonzero 0x563
0562 0801 | | Execute_Immediate Raise,0x1
0563 00d9 | | Load_Top At_Offset_1
0564 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0565 e403 | | Load 0x2,0x3
0566 2626 |&& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x26
0567 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0568 00d8 | | Load_Top At_Offset_0
0569 e007 | | Load 0x0,0x7
056a 0260 | ` | Execute Discrete,In_Type
056b 7001 |p | Jump_Nonzero 0x56d
056c 0801 | | Execute_Immediate Raise,0x1
056d 00d9 | | Load_Top At_Offset_1
056e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
056f e403 | | Load 0x2,0x3
0570 2626 |&& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x26
0571 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0572 00d8 | | Load_Top At_Offset_0
0573 e007 | | Load 0x0,0x7
0574 0260 | ` | Execute Discrete,In_Type
0575 7001 |p | Jump_Nonzero 0x577
0576 0801 | | Execute_Immediate Raise,0x1
0577 00d9 | | Load_Top At_Offset_1
0578 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0579 e00c | | Load 0x0,0xc
057a 3005 |0 | Execute Record,Field_Type,Field_Number 0x5
057b 0337 | 7 | Declare_Variable Array
057c 480f |H | Short_Literal 0xf
057d 4800 |H | Short_Literal 0x0
057e 4800 |H | Short_Literal 0x0
057f 00d9 | | Load_Top At_Offset_1
0580 e604 | | Load 0x3,0x4
0581 01d6 | | Execute Vector,Field_Write
0582 3ffb |? | Loop_Increasing 0x57e
0583 e00c | | Load 0x0,0xc
0584 3005 |0 | Execute Record,Field_Type,Field_Number 0x5
0585 0119 | | Execute Any,Check_In_Formal_Type
0586 00d9 | | Load_Top At_Offset_1
0587 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0588 e5f9 | | Load 0x2,-0x7
0589 017d | } | Execute Record,Structure_Write
058a 4501 |E | Exit_Subprogram 0x1
058b TRAP_0500:
058b 0007 | | Action Break_Optional
058c e5ff | | Load 0x2,-0x1
058d 8005 | | Call 0x0,0x5
058e 00d8 | | Load_Top At_Offset_0
058f 0101 | | Execute Exception,Reraise
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 059f | | .CONST 0x059f ; Address of begin
0591 0004 | | .CONST 0x0004 ; Address of exception handler
0592 0006 | | .CONST 0x0006 ; Number of locals
0593 INIT_0590:
0593 e04e | N | Load 0x0,0x4e
0594 0007 | | Action Break_Optional
0595 e007 | | Load 0x0,0x7
0596 0007 | | Action Break_Optional
0597 e007 | | Load 0x0,0x7
0598 0007 | | Action Break_Optional
0599 e00c | | Load 0x0,0xc
059a 0322 | " | Declare_Variable Record
059b 00d8 | | Load_Top At_Offset_0
059c 1c00 | | Execute_Immediate Run_Utility,0x0
059d e04f | O | Load 0x0,0x4f
059e 0007 | | Action Break_Optional
059f BODY_0590:
059f e5ff | | Load 0x2,-0x1
05a0 8005 | | Call 0x0,0x5
05a1 e040 | @ | Load 0x0,0x40
05a2 0322 | " | Declare_Variable Record
05a3 e5fd | | Load 0x2,-0x3
05a4 0227 | ' | Execute Access,All_Reference
05a5 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
05a6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05a7 00d9 | | Load_Top At_Offset_1
05a8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
05a9 e5ff | | Load 0x2,-0x1
05aa 8050 | P | Call 0x0,0x50
05ab 0039 | 9 | Store_Top Access,At_Offset_1
05ac 00d8 | | Load_Top At_Offset_0
05ad e04f | O | Load 0x0,0x4f
05ae 022f | / | Execute Access,Equal
05af 6803 |h | Jump_Zero 0x5b3
05b0 00cc | | Action Pop_Block
05b1 00cc | | Action Pop_Block
05b2 4507 |E | Exit_Subprogram 0x7
05b3 00d9 | | Load_Top At_Offset_1
05b4 e007 | | Load 0x0,0x7
05b5 00d8 | | Load_Top At_Offset_0
05b6 e04e | N | Load 0x0,0x4e
05b7 e402 | | Load 0x2,0x2
05b8 4f01 |O | Short_Literal 0x701
05b9 0273 | s | Execute Discrete,Plus
05ba e402 | | Load 0x2,0x2
05bb 0aff | | Execute_Immediate Plus,-0x1
05bc e5fa | | Load 0x2,-0x6
05bd 01cf | | Execute Vector,Slice_Read
05be e806 | | Load 0x4,0x6
05bf 8211 | | Call 0x1,0x11
05c0 c802 | | Store 0x4,0x2
05c1 c803 | | Store 0x4,0x3
05c2 c804 | | Store 0x4,0x4
05c3 00d1 | | Pop_Control Pop_Count_1
05c4 00d8 | | Load_Top At_Offset_0
05c5 e051 | Q | Load 0x0,0x51
05c6 e052 | R | Load 0x0,0x52
05c7 a053 | S | Reference 0x0,0x53
05c8 8054 | T | Call 0x0,0x54
05c9 0039 | 9 | Store_Top Access,At_Offset_1
05ca e5ff | | Load 0x2,-0x1
05cb 8004 | | Call 0x0,0x4
05cc e406 | | Load 0x2,0x6
05cd 00da | | Load_Top At_Offset_2
05ce 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05cf 0273 | s | Execute Discrete,Plus
05d0 c404 | | Store 0x2,0x4
05d1 4501 |E | Exit_Subprogram 0x1
05d2 0000 0000 | | .BLANK 0000[0x6]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05e6 | | .CONST 0x05e6 ; Address of begin
05d9 0004 | | .CONST 0x0004 ; Address of exception handler
05da 0002 | | .CONST 0x0002 ; Number of locals
05db INIT_05d8:
05db 4801 |H | Short_Literal 0x1
05dc e402 | | Load 0x2,0x2
05dd 0901 | | Execute_Immediate Binary_Scale,0x1
05de 00d8 | | Load_Top At_Offset_0
05df e002 | | Load 0x0,0x2
05e0 0260 | ` | Execute Discrete,In_Type
05e1 7001 |p | Jump_Nonzero 0x5e3
05e2 0801 | | Execute_Immediate Raise,0x1
05e3 e008 | | Load 0x0,0x8
05e4 035b | [ | Declare_Type Array,Constrained
05e5 0337 | 7 | Declare_Variable Array
05e6 BODY_05d8:
05e6 00cf | | Action Mark_Auxiliary
05e7 4800 |H | Short_Literal 0x0
05e8 e402 | | Load 0x2,0x2
05e9 0aff | | Execute_Immediate Plus,-0x1
05ea 0264 | d | Execute Discrete,Below_Bound
05eb 7013 |p | Jump_Nonzero 0x5ff
05ec 4800 |H | Short_Literal 0x0
05ed 00d9 | | Load_Top At_Offset_1
05ee 0901 | | Execute_Immediate Binary_Scale,0x1
05ef 0a01 | | Execute_Immediate Plus,0x1
05f0 e802 | | Load 0x4,0x2
05f1 01d6 | | Execute Vector,Field_Write
05f2 e5fd | | Load 0x2,-0x3
05f3 01dd | | Execute Vector,First
05f4 00d9 | | Load_Top At_Offset_1
05f5 0273 | s | Execute Discrete,Plus
05f6 e5fd | | Load 0x2,-0x3
05f7 01d7 | | Execute Vector,Field_Read
05f8 00d9 | | Load_Top At_Offset_1
05f9 0901 | | Execute_Immediate Binary_Scale,0x1
05fa 0a02 | | Execute_Immediate Plus,0x2
05fb e802 | | Load 0x4,0x2
05fc 01d6 | | Execute Vector,Field_Write
05fd 00c8 | | Action Pop_Auxiliary_Range
05fe 37ed |7 | Loop_Decreasing 0x5ec
05ff 00ce | | Action Pop_Auxiliary
0600 00d8 | | Load_Top At_Offset_0
0601 e5ff | | Load 0x2,-0x1
0602 e055 | U | Load 0x0,0x55
0603 e056 | V | Load 0x0,0x56
0604 e057 | W | Load 0x0,0x57
0605 a058 | X | Reference 0x0,0x58
0606 e059 | Y | Load 0x0,0x59
0607 e05a | Z | Load 0x0,0x5a
0608 a05b | [ | Reference 0x0,0x5b
0609 803e | > | Call 0x0,0x3e
060a 4501 |E | Exit_Subprogram 0x1
060b 0000 0000 | | .BLANK 0000[0x5]
0610 ; --------------------------------------------------------------------------------------
0610 ; Debug Table
0610 ; --------------------------------------------------------------------------------------
0610 0004 0000 | | .DEBUG4 0x0004,0x0000,0x68ff,0x0000,0x0001,0x0010
0616 000b 0656 | V| .DBG4T 0x000b,0x0656,0x8000,0x0000
061a 0018 065e | ^| .DBG4T 0x0018,0x065e,0x8000,0x0000
061e 0033 0668 | 3 h| .DBG4T 0x0033,0x0668,0x0001,0x0000
0622 0053 0675 | S u| .DBG4T 0x0053,0x0675,0x0001,0x0000
0626 0073 0681 | s | .DBG4T 0x0073,0x0681,0x0001,0x0000
062a 0093 0690 | | .DBG4T 0x0093,0x0690,0x0001,0x0000
062e 00ab 0699 | | .DBG4T 0x00ab,0x0699,0x0001,0x4000
0632 013b 06cb | ; | .DBG4T 0x013b,0x06cb,0x0002,0x0000
0636 017b 06db | { | .DBG4T 0x017b,0x06db,0x0001,0x0000
063a 01b3 06e6 | | .DBG4T 0x01b3,0x06e6,0x0001,0x0000
063e 01c3 06e9 | | .DBG4T 0x01c3,0x06e9,0x0004,0x4000
0642 027b 070d | { | .DBG4T 0x027b,0x070d,0x0004,0x4000
0646 02eb 072d | -| .DBG4T 0x02eb,0x072d,0x0004,0x4000
064a 0503 07a7 | | .DBG4T 0x0503,0x07a7,0x0004,0x0000
064e 0593 07b8 | | .DBG4T 0x0593,0x07b8,0x0004,0x0000
0652 05db 07c7 | | .DBG4T 0x05db,0x07c7,0x0004,0x0000
0656 ; --------------------------------------------------------------------------------------
0656 ; Debug chain
0656 ; --------------------------------------------------------------------------------------
0656 0006 0000 | | .DBGLEN 0x0006,0x0000
0658 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015
065e ; --------------------------------------------------------------------------------------
065e ; Debug chain
065e ; --------------------------------------------------------------------------------------
065e 0008 0000 | | .DBGLEN 0x0008,0x0000
0660 0018 001a | | .DBGLNO 0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026
0668 ; --------------------------------------------------------------------------------------
0668 ; Debug chain
0668 ; --------------------------------------------------------------------------------------
0668 0005 0006 | | .DBGLEN 0x0005,0x0006
066a 0033 0037 | 3 7| .DBGLNO 0x0033,0x0037,0x0039,0x003b,0x003d,0x0043,0x0045,0x0046,0x0048,0x0049,0x004b
0675 ; --------------------------------------------------------------------------------------
0675 ; Debug chain
0675 ; --------------------------------------------------------------------------------------
0675 0006 0004 | | .DBGLEN 0x0006,0x0004
0677 0053 0057 | S W| .DBGLNO 0x0053,0x0057,0x0059,0x005c,0x0060,0x0062,0x0065,0x0067,0x0068,0x006a
0681 ; --------------------------------------------------------------------------------------
0681 ; Debug chain
0681 ; --------------------------------------------------------------------------------------
0681 0008 0005 | | .DBGLEN 0x0008,0x0005
0683 0073 0075 | s u| .DBGLNO 0x0073,0x0075,0x007a,0x007c,0x007e,0x0080,0x0081,0x0083,0x0086,0x0088,0x0089,0x008b,0x008d
0690 ; --------------------------------------------------------------------------------------
0690 ; Debug chain
0690 ; --------------------------------------------------------------------------------------
0690 0003 0004 | | .DBGLEN 0x0003,0x0004
0692 0093 0097 | | .DBGLNO 0x0093,0x0097,0x009b,0x009e,0x00a0,0x00a1,0x00a3
0699 ; --------------------------------------------------------------------------------------
0699 ; Debug chain
0699 ; --------------------------------------------------------------------------------------
0699 0006 0015 | | .DBGLEN 0x0006,0x0015
069b 00ab 00ad | | .DBGLNO 0x00ab,0x00ad,0x00b1,0x00b5,0x00b6,0x00b7,0x00bb,0x00c1,0x00c5,0x00c9,0x00ce,0x00d2,0x00e0,0x00e2,0x00e4,0x00e8,0x00ea,0x00ee,0x00f5,0x00fc,0x010b,0x011a,0x0121,0x0124,0x0128,0x012a,0x012e
06b6 0001 0002 | | .XXX[0x15]
06b8 0003 0004 | |
06ba 0005 0006 | |
06bc 0007 0008 | |
06be 0009 000b | |
06c0 000c 000d | |
06c2 000e 000f | |
06c4 0010 0011 | |
06c6 0012 0013 | |
06c8 0014 0015 | |
06ca 0016 | |
06cb ; --------------------------------------------------------------------------------------
06cb ; Debug chain
06cb ; --------------------------------------------------------------------------------------
06cb 0005 0009 | | .DBGLEN 0x0005,0x0009
06cd 013b 013f | ; ?| .DBGLNO 0x013b,0x013f,0x0143,0x0144,0x0145,0x0147,0x014d,0x0150,0x0154,0x0162,0x0164,0x0166,0x016c,0x0174
06db ; --------------------------------------------------------------------------------------
06db ; Debug chain
06db ; --------------------------------------------------------------------------------------
06db 0000 0009 | | .DBGLEN 0x0000,0x0009
06dd 017b 0181 | { | .DBGLNO 0x017b,0x0181,0x0186,0x0189,0x019b,0x01a4,0x01a7,0x01aa,0x01ad
06e6 ; --------------------------------------------------------------------------------------
06e6 ; Debug chain
06e6 ; --------------------------------------------------------------------------------------
06e6 0000 0001 | | .DBGLEN 0x0000,0x0001
06e8 01b3 | | .DBGLNO 0x01b3
06e9 ; --------------------------------------------------------------------------------------
06e9 ; Debug chain
06e9 ; --------------------------------------------------------------------------------------
06e9 0000 0011 | | .DBGLEN 0x0000,0x0011
06eb 01c3 01c6 | | .DBGLNO 0x01c3,0x01c6,0x01cf,0x01fb,0x0207,0x020e,0x021d,0x0221,0x0226,0x022a,0x022c,0x023b,0x0242,0x0250,0x0254,0x0271,0x0273
06fc 0001 0002 | | .XXX[0x11]
06fe 0003 0004 | |
0700 0006 0007 | |
0702 0008 0009 | |
0704 0005 000a | |
0706 000b 000c | |
0708 000d 000e | |
070a 000f 0010 | |
070c 0011 | |
070d ; --------------------------------------------------------------------------------------
070d ; Debug chain
070d ; --------------------------------------------------------------------------------------
070d 0000 000f | | .DBGLEN 0x0000,0x000f
070f 027d 0282 | } | .DBGLNO 0x027d,0x0282,0x0286,0x0289,0x028b,0x028d,0x0290,0x0291,0x0293,0x02c4,0x02d4,0x02d8,0x02dd,0x02e2,0x02e4
071e 0001 0003 | | .XXX[0xf]
0720 0004 0005 | |
0722 0006 0007 | |
0724 0008 0009 | |
0726 000a 000b | |
0728 000c 000d | |
072a 0002 000e | |
072c 000f | |
072d ; --------------------------------------------------------------------------------------
072d ; Debug chain
072d ; --------------------------------------------------------------------------------------
072d 0000 003c | <| .DBGLEN 0x0000,0x003c
072f 02eb 02ef | | .DBGLNO 0x02eb,0x02ef,0x02f3,0x02fa,0x0301,0x0306,0x030c,0x0320,0x0333,0x0338,0x033d,0x0351,0x0356,0x035c,0x0365,0x0392,0x0396,0x039d,0x03a1,0x03b0,0x03c1,0x03d2,0x03e2,0x03ec,0x03f4,0x03f9,0x03fd,0x0400,0x040a,0x040e,0x0418,0x041c,0x0424,0x042c,0x0435,0x0444,0x044b,0x0450,0x0454,0x0456,0x045c,0x045e,0x0460,0x046f,0x0476,0x0479,0x0483,0x048a,0x049a,0x049e,0x04a3,0x04a7,0x04a9,0x04bd,0x04c4,0x04d7,0x04db,0x04dd,0x04f8,0x04fa
076b 0001 0002 | | .XXX[0x3c]
076d 0003 0004 | |
076f 0005 0006 | |
0771 0007 0008 | |
0773 0009 000a | |
0775 000b 000c | |
0777 000d 000e | |
0779 000f 0010 | |
077b 0011 0012 | |
077d 0013 0014 | |
077f 0015 0016 | |
0781 0017 0018 | |
0783 0019 001a | |
0785 001c 001d | |
0787 001e 001f | |
0789 0020 0021 | !|
078b 001b 0022 | "|
078d 0023 0024 | # $|
078f 0025 0026 | % &|
0791 0027 0028 | ' (|
0793 002a 002b | * +|
0795 002c 002d | , -|
0797 002e 002f | . /|
0799 0030 0031 | 0 1|
079b 0032 0033 | 2 3|
079d 0029 0034 | ) 4|
079f 0035 0036 | 5 6|
07a1 0037 0038 | 7 8|
07a3 0039 003a | 9 :|
07a5 003b 003c | ; <|
07a7 ; --------------------------------------------------------------------------------------
07a7 ; Debug chain
07a7 ; --------------------------------------------------------------------------------------
07a7 0000 000f | | .DBGLEN 0x0000,0x000f
07a9 0505 0529 | )| .DBGLNO 0x0505,0x0529,0x052a,0x0536,0x0538,0x053a,0x053c,0x053e,0x0541,0x0543,0x0547,0x054b,0x054f,0x058c,0x058e
07b8 ; --------------------------------------------------------------------------------------
07b8 ; Debug chain
07b8 ; --------------------------------------------------------------------------------------
07b8 0005 0008 | | .DBGLEN 0x0005,0x0008
07ba 0593 0595 | | .DBGLNO 0x0593,0x0595,0x0597,0x0599,0x059d,0x059f,0x05a1,0x05ac,0x05b0,0x05b3,0x05c4,0x05ca,0x05cc
07c7 ; --------------------------------------------------------------------------------------
07c7 ; Debug chain
07c7 ; --------------------------------------------------------------------------------------
07c7 0001 0004 | | .DBGLEN 0x0001,0x0004
07c9 05db 05e7 | | .DBGLNO 0x05db,0x05e7,0x05ec,0x05f2,0x0600
07ce 0000 0000 | | .BLANK 0000[0x32]