|
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 0620 | | .CONST 0x0620 ; 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 005b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0058
000f 029a 007b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0078
0011 029a 009b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0098
0013 029a 00b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b0
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 01bb | | Declare_Subprogram For_Outer_Call,INIT_01b8
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 0045 | E | .CONST 0x0045 ; 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 e5fa | | Load 0x2,-0x6
003a 01db | | Execute Vector,Length
003b e002 | | Load 0x0,0x2
003c 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
003d e003 | | Load 0x0,0x3
003e 0322 | " | Declare_Variable Record
003f e5fa | | Load 0x2,-0x6
0040 01dd | | Execute Vector,First
0041 e002 | | Load 0x0,0x2
0042 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0043 029f 01cb | | Declare_Subprogram For_Call,INIT_01c8
0045 BODY_0030:
0045 e402 | | Load 0x2,0x2
0046 0d01 | | Execute_Immediate Less,0x1
0047 6801 |h | Jump_Zero 0x49
0048 4507 |E | Exit_Subprogram 0x7
0049 e5ff | | Load 0x2,-0x1
004a 8004 | | Call 0x0,0x4
004b 8407 | | Call 0x2,0x7
004c e5ff | | Load 0x2,-0x1
004d 8005 | | Call 0x0,0x5
004e e5ff | | Load 0x2,-0x1
004f 8006 | | Call 0x0,0x6
0050 4507 |E | Exit_Subprogram 0x7
0051 0000 0000 | | .BLANK 0000[0x7]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 006d | m | .CONST 0x006d ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0008 | | .CONST 0x0008 ; Number of locals
005b INIT_0058:
005b e5fa | | Load 0x2,-0x6
005c 01dd | | Execute Vector,First
005d e002 | | Load 0x0,0x2
005e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
005f 00e1 | | Load_Encached Boolean_Cache
0060 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0061 e5fc | | Load 0x2,-0x4
0062 e007 | | Load 0x0,0x7
0063 03f1 | | Declare_Variable Discrete,With_Value
0064 e007 | | Load 0x0,0x7
0065 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0066 e5fa | | Load 0x2,-0x6
0067 01db | | Execute Vector,Length
0068 e002 | | Load 0x0,0x2
0069 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
006a e002 | | Load 0x0,0x2
006b 029f 0283 | | Declare_Subprogram For_Call,INIT_0280
006d BODY_0058:
006d e5ff | | Load 0x2,-0x1
006e 8004 | | Call 0x0,0x4
006f 8408 | | Call 0x2,0x8
0070 e5ff | | Load 0x2,-0x1
0071 8005 | | Call 0x0,0x5
0072 e5ff | | Load 0x2,-0x1
0073 8006 | | Call 0x0,0x6
0074 4507 |E | Exit_Subprogram 0x7
0075 0000 0000 | | .XXX[0x3]
0077 0000 | |
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 008e | | .CONST 0x008e ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 000a | | .CONST 0x000a ; Number of locals
007b INIT_0078:
007b e002 | | Load 0x0,0x2
007c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
007d 4801 |H | Short_Literal 0x1
007e 4805 |H | Short_Literal 0x5
007f e008 | | Load 0x0,0x8
0080 035b | [ | Declare_Type Array,Constrained
0081 0337 | 7 | Declare_Variable Array
0082 e002 | | Load 0x0,0x2
0083 0007 | | Action Break_Optional
0084 e007 | | Load 0x0,0x7
0085 0007 | | Action Break_Optional
0086 e003 | | Load 0x0,0x3
0087 0322 | " | Declare_Variable Record
0088 00e1 | | Load_Encached Boolean_Cache
0089 e002 | | Load 0x0,0x2
008a 0007 | | Action Break_Optional
008b e009 | | Load 0x0,0x9
008c 029f 02f3 | | Declare_Subprogram For_Call,INIT_02f0
008e BODY_0078:
008e e5ff | | Load 0x2,-0x1
008f 8004 | | Call 0x0,0x4
0090 840a | | Call 0x2,0xa
0091 e5ff | | Load 0x2,-0x1
0092 8005 | | Call 0x0,0x5
0093 e5ff | | Load 0x2,-0x1
0094 8006 | | Call 0x0,0x6
0095 4507 |E | Exit_Subprogram 0x7
0096 0000 0000 | | .XXX[0x2]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a6 | | .CONST 0x00a6 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0005 | | .CONST 0x0005 ; Number of locals
009b INIT_0098:
009b e5fd | | Load 0x2,-0x3
009c 01db | | Execute Vector,Length
009d e002 | | Load 0x0,0x2
009e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
009f e00a | | Load 0x0,0xa
00a0 02ff | | Declare_Variable Variant_Record
00a1 00d8 | | Load_Top At_Offset_0
00a2 1c00 | | Execute_Immediate Run_Utility,0x0
00a3 e00b | | Load 0x0,0xb
00a4 029f 0513 | | Declare_Subprogram For_Call,INIT_0510
00a6 BODY_0098:
00a6 e5ff | | Load 0x2,-0x1
00a7 8004 | | Call 0x0,0x4
00a8 8405 | | Call 0x2,0x5
00a9 e5ff | | Load 0x2,-0x1
00aa 8005 | | Call 0x0,0x5
00ab e5ff | | Load 0x2,-0x1
00ac 8006 | | Call 0x0,0x6
00ad 4504 |E | Exit_Subprogram 0x4
00ae 0000 0000 | | .XXX[0x2]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00c3 | | .CONST 0x00c3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0007 | | .CONST 0x0007 ; Number of locals
00b3 INIT_00b0:
00b3 e002 | | Load 0x0,0x2
00b4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00b5 e00c | | Load 0x0,0xc
00b6 0322 | " | Declare_Variable Record
00b7 00d8 | | Load_Top At_Offset_0
00b8 1c00 | | Execute_Immediate Run_Utility,0x0
00b9 e00c | | Load 0x0,0xc
00ba 0322 | " | Declare_Variable Record
00bb 00d8 | | Load_Top At_Offset_0
00bc 1c00 | | Execute_Immediate Run_Utility,0x0
00bd 00e1 | | Load_Encached Boolean_Cache
00be 00e1 | | Load_Encached Boolean_Cache
00bf e00c | | Load 0x0,0xc
00c0 0322 | " | Declare_Variable Record
00c1 00d8 | | Load_Top At_Offset_0
00c2 1c00 | | Execute_Immediate Run_Utility,0x0
00c3 BODY_00b0:
00c3 00e1 | | Load_Encached Boolean_Cache
00c4 e403 | | Load 0x2,0x3
00c5 e5ff | | Load 0x2,-0x1
00c6 8214 | | Call 0x1,0x14
00c7 00d1 | | Pop_Control Pop_Count_1
00c8 005b | [ | Store_Top Discrete,At_Offset_3
00c9 e5ff | | Load 0x2,-0x1
00ca 0227 | ' | Execute Access,All_Reference
00cb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00cc a5fd | | Store_Unchecked 0x2,-0x3
00cd e5ff | | Load 0x2,-0x1
00ce 0227 | ' | Execute Access,All_Reference
00cf 3c0d |< | Execute Record,Field_Read,Field_Number 0xd
00d0 a5fc | | Store_Unchecked 0x2,-0x4
00d1 e5ff | | Load 0x2,-0x1
00d2 0227 | ' | Execute Access,All_Reference
00d3 3c0e |< | Execute Record,Field_Read,Field_Number 0xe
00d4 a5fb | | Store_Unchecked 0x2,-0x5
00d5 00cf | | Action Mark_Auxiliary
00d6 e5fe | | Load 0x2,-0x2
00d7 01d9 | | Execute Vector,Reverse_Bounds
00d8 0263 | c | Execute Discrete,Above_Bound
00d9 7050 |pP | Jump_Nonzero 0x12a
00da 00e1 | | Load_Encached Boolean_Cache
00db e404 | | Load 0x2,0x4
00dc 00da | | Load_Top At_Offset_2
00dd e5fe | | Load 0x2,-0x2
00de 01d5 | | Execute Vector,Field_Reference
00df e5ff | | Load 0x2,-0x1
00e0 8213 | | Call 0x1,0x13
00e1 00d1 | | Pop_Control Pop_Count_1
00e2 c406 | | Store 0x2,0x6
00e3 e406 | | Load 0x2,0x6
00e4 7006 |p | Jump_Nonzero 0xeb
00e5 e405 | | Load 0x2,0x5
00e6 6840 |h@ | Jump_Zero 0x127
00e7 e403 | | Load 0x2,0x3
00e8 e404 | | Load 0x2,0x4
00e9 017d | } | Execute Record,Structure_Write
00ea 7800 |x | Jump 0xeb
00eb e402 | | Load 0x2,0x2
00ec 7004 |p | Jump_Nonzero 0xf1
00ed e404 | | Load 0x2,0x4
00ee e5fa | | Load 0x2,-0x6
00ef 017d | } | Execute Record,Structure_Write
00f0 7833 |x3 | Jump 0x124
00f1 e404 | | Load 0x2,0x4
00f2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00f3 e407 | | Load 0x2,0x7
00f4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00f5 800d | | Call 0x0,0xd
00f6 e407 | | Load 0x2,0x7
00f7 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00f8 e404 | | Load 0x2,0x4
00f9 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00fa e407 | | Load 0x2,0x7
00fb 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00fc 800d | | Call 0x0,0xd
00fd e407 | | Load 0x2,0x7
00fe 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00ff 00db | | Load_Top At_Offset_3
0100 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0101 e404 | | Load 0x2,0x4
0102 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0103 0273 | s | Execute Discrete,Plus
0104 00d8 | | Load_Top At_Offset_0
0105 e007 | | Load 0x0,0x7
0106 0260 | ` | Execute Discrete,In_Type
0107 7001 |p | Jump_Nonzero 0x109
0108 0801 | | Execute_Immediate Raise,0x1
0109 e407 | | Load 0x2,0x7
010a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
010b 800e | | Call 0x0,0xe
010c e407 | | Load 0x2,0x7
010d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
010e 00db | | Load_Top At_Offset_3
010f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0110 e404 | | Load 0x2,0x4
0111 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0112 0273 | s | Execute Discrete,Plus
0113 00d8 | | Load_Top At_Offset_0
0114 e007 | | Load 0x0,0x7
0115 0260 | ` | Execute Discrete,In_Type
0116 7001 |p | Jump_Nonzero 0x118
0117 0801 | | Execute_Immediate Raise,0x1
0118 e407 | | Load 0x2,0x7
0119 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
011a 800d | | Call 0x0,0xd
011b e407 | | Load 0x2,0x7
011c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
011d 00db | | Load_Top At_Offset_3
011e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
011f e404 | | Load 0x2,0x4
0120 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0121 0273 | s | Execute Discrete,Plus
0122 e407 | | Load 0x2,0x7
0123 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0124 e402 | | Load 0x2,0x2
0125 0a01 | | Execute_Immediate Plus,0x1
0126 c402 | | Store 0x2,0x2
0127 0008 | | Action Idle
0128 00c8 | | Action Pop_Auxiliary_Range
0129 3fb0 |? | Loop_Increasing 0xda
012a 00ce | | Action Pop_Auxiliary
012b e402 | | Load 0x2,0x2
012c 7004 |p | Jump_Nonzero 0x131
012d e00f | | Load 0x0,0xf
012e e5fa | | Load 0x2,-0x6
012f 017d | } | Execute Record,Structure_Write
0130 4503 |E | Exit_Subprogram 0x3
0131 00d8 | | Load_Top At_Offset_0
0132 e5fa | | Load 0x2,-0x6
0133 017d | } | Execute Record,Structure_Write
0134 4503 |E | Exit_Subprogram 0x3
0135 0000 0000 | | .XXX[0x3]
0137 0000 | |
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 e010 | | Load 0x0,0x10
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 701a |p | Jump_Nonzero 0x16e
0154 00e1 | | Load_Encached Boolean_Cache
0155 e403 | | Load 0x2,0x3
0156 00da | | Load_Top At_Offset_2
0157 e5fe | | Load 0x2,-0x2
0158 01d5 | | Execute Vector,Field_Reference
0159 e5ff | | Load 0x2,-0x1
015a 8213 | | Call 0x1,0x13
015b 00d1 | | Pop_Control Pop_Count_1
015c c405 | | Store 0x2,0x5
015d e405 | | Load 0x2,0x5
015e 7008 |p | Jump_Nonzero 0x167
015f e404 | | Load 0x2,0x4
0160 680b |h | Jump_Zero 0x16c
0161 00db | | Load_Top At_Offset_3
0162 e402 | | Load 0x2,0x2
0163 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0164 0273 | s | Execute Discrete,Plus
0165 c406 | | Store 0x2,0x6
0166 7805 |x | Jump 0x16c
0167 00db | | Load_Top At_Offset_3
0168 e403 | | Load 0x2,0x3
0169 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
016a 0273 | s | Execute Discrete,Plus
016b c406 | | Store 0x2,0x6
016c 00c8 | | Action Pop_Auxiliary_Range
016d 3fe6 |? | Loop_Increasing 0x154
016e 00ce | | Action Pop_Auxiliary
016f 00d8 | | Load_Top At_Offset_0
0170 4402 |D | Exit_Subprogram With_Result,0x2
0171 0000 0000 | | .BLANK 0000[0x7]
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 e011 | | Load 0x0,0x11
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 00db | | Load_Top At_Offset_3
018a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
018b 4801 |H | Short_Literal 0x1
018c e5ff | | Load 0x2,-0x1
018d 0227 | ' | Execute Access,All_Reference
018e 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
018f 0227 | ' | Execute Access,All_Reference
0190 01aa | | Execute Matrix,Bounds
0191 0262 | b | Execute Discrete,In_Range
0192 681e |h | Jump_Zero 0x1b1
0193 00db | | Load_Top At_Offset_3
0194 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0195 4802 |H | Short_Literal 0x2
0196 e5ff | | Load 0x2,-0x1
0197 0227 | ' | Execute Access,All_Reference
0198 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
0199 0227 | ' | Execute Access,All_Reference
019a 01aa | | Execute Matrix,Bounds
019b 0262 | b | Execute Discrete,In_Range
019c 6814 |h | Jump_Zero 0x1b1
019d 00db | | Load_Top At_Offset_3
019e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
019f e5fe | | Load 0x2,-0x2
01a0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01a1 e5ff | | Load 0x2,-0x1
01a2 0227 | ' | Execute Access,All_Reference
01a3 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
01a4 0227 | ' | Execute Access,All_Reference
01a5 01a5 | | Execute Matrix,Field_Reference
01a6 e5fd | | Load 0x2,-0x3
01a7 017d | } | Execute Record,Structure_Write
01a8 e5fd | | Load 0x2,-0x3
01a9 8012 | | Call 0x0,0x12
01aa 6803 |h | Jump_Zero 0x1ae
01ab 4800 |H | Short_Literal 0x0
01ac a5fc | | Store_Unchecked 0x2,-0x4
01ad 4503 |E | Exit_Subprogram 0x3
01ae 4801 |H | Short_Literal 0x1
01af a5fc | | Store_Unchecked 0x2,-0x4
01b0 4503 |E | Exit_Subprogram 0x3
01b1 4800 |H | Short_Literal 0x0
01b2 a5fc | | Store_Unchecked 0x2,-0x4
01b3 4503 |E | Exit_Subprogram 0x3
01b4 0000 0000 | | .BLANK 0000[0x4]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00e1 | | Load_Encached Boolean_Cache
01bc e5fe | | Load 0x2,-0x2
01bd e5ff | | Load 0x2,-0x1
01be 0227 | ' | Execute Access,All_Reference
01bf 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
01c0 e5ff | | Load 0x2,-0x1
01c1 8213 | | Call 0x1,0x13
01c2 00d1 | | Pop_Control Pop_Count_1
01c3 c5fd | | Store 0x2,-0x3
01c4 4502 |E | Exit_Subprogram 0x2
01c5 0000 0000 | | .XXX[0x3]
01c7 0000 | |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0279 | y | .CONST 0x0279 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb e5fd | | Load 0x2,-0x3
01cc e5ff | | Load 0x2,-0x1
01cd 8013 | | Call 0x0,0x13
01ce e402 | | Load 0x2,0x2
01cf 48fd |H | Short_Literal 0xfd
01d0 0273 | s | Execute Discrete,Plus
01d1 48fe |H | Short_Literal 0xfe
01d2 0270 | p | Execute Discrete,Divide
01d3 0901 | | Execute_Immediate Binary_Scale,0x1
01d4 e402 | | Load 0x2,0x2
01d5 0901 | | Execute_Immediate Binary_Scale,0x1
01d6 0273 | s | Execute Discrete,Plus
01d7 c403 | | Store 0x2,0x3
01d8 e403 | | Load 0x2,0x3
01d9 e014 | | Load 0x0,0x14
01da 0322 | " | Declare_Variable Record
01db 484b |HK | Short_Literal 0x4b
01dc 00d9 | | Load_Top At_Offset_1
01dd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01de e014 | | Load 0x0,0x14
01df 012c | , | Execute Any,Size
01e0 09fb | | Execute_Immediate Binary_Scale,-0x5
01e1 e403 | | Load 0x2,0x3
01e2 0a03 | | Execute_Immediate Plus,0x3
01e3 09fe | | Execute_Immediate Binary_Scale,-0x2
01e4 00d8 | | Load_Top At_Offset_0
01e5 e015 | | Load 0x0,0x15
01e6 0260 | ` | Execute Discrete,In_Type
01e7 7001 |p | Jump_Nonzero 0x1e9
01e8 0801 | | Execute_Immediate Raise,0x1
01e9 0273 | s | Execute Discrete,Plus
01ea 00d9 | | Load_Top At_Offset_1
01eb 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01ec 4800 |H | Short_Literal 0x0
01ed 00d9 | | Load_Top At_Offset_1
01ee 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01ef e5fe | | Load 0x2,-0x2
01f0 00d9 | | Load_Top At_Offset_1
01f1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01f2 e5fd | | Load 0x2,-0x3
01f3 0227 | ' | Execute Access,All_Reference
01f4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01f5 00d9 | | Load_Top At_Offset_1
01f6 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01f7 e5fc | | Load 0x2,-0x4
01f8 00d9 | | Load_Top At_Offset_1
01f9 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
01fa e5fb | | Load 0x2,-0x5
01fb 00d9 | | Load_Top At_Offset_1
01fc 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
01fd e5ff | | Load 0x2,-0x1
01fe e016 | | Load 0x0,0x16
01ff a017 | | Reference 0x0,0x17
0200 e018 | | Load 0x0,0x18
0201 e019 | | Load 0x0,0x19
0202 a01a | | Reference 0x0,0x1a
0203 801b | | Call 0x0,0x1b
0204 e003 | | Load 0x0,0x3
0205 0322 | " | Declare_Variable Record
0206 4800 |H | Short_Literal 0x0
0207 00d9 | | Load_Top At_Offset_1
0208 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0209 48fe |H | Short_Literal 0xfe
020a 00d9 | | Load_Top At_Offset_1
020b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
020c e405 | | Load 0x2,0x5
020d 017d | } | Execute Record,Structure_Write
020e 00cf | | Action Mark_Auxiliary
020f 781f |x | Jump 0x22f
0210 e405 | | Load 0x2,0x5
0211 e5ff | | Load 0x2,-0x1
0212 e01c | | Load 0x0,0x1c
0213 a01d | | Reference 0x0,0x1d
0214 e01e | | Load 0x0,0x1e
0215 a01f | | Reference 0x0,0x1f
0216 8020 | | Call 0x0,0x20
0217 e406 | | Load 0x2,0x6
0218 00d8 | | Load_Top At_Offset_0
0219 48fd |H | Short_Literal 0xfd
021a 0273 | s | Execute Discrete,Plus
021b e5fa | | Load 0x2,-0x6
021c 01cf | | Execute Vector,Slice_Read
021d e5ff | | Load 0x2,-0x1
021e e021 | ! | Load 0x0,0x21
021f e022 | " | Load 0x0,0x22
0220 e023 | # | Load 0x0,0x23
0221 a024 | $ | Reference 0x0,0x24
0222 e025 | % | Load 0x0,0x25
0223 e026 | & | Load 0x0,0x26
0224 a027 | ' | Reference 0x0,0x27
0225 8028 | ( | Call 0x0,0x28
0226 e404 | | Load 0x2,0x4
0227 4f02 |O | Short_Literal 0x702
0228 0273 | s | Execute Discrete,Plus
0229 c404 | | Store 0x2,0x4
022a e406 | | Load 0x2,0x6
022b 48fe |H | Short_Literal 0xfe
022c 0273 | s | Execute Discrete,Plus
022d c406 | | Store 0x2,0x6
022e 00c9 | | Action Pop_Auxiliary_Loop
022f e404 | | Load 0x2,0x4
0230 0cff | | Execute_Immediate Greater_Equal,0xff
0231 77de |w | Jump_Nonzero 0x210
0232 00ce | | Action Pop_Auxiliary
0233 e404 | | Load 0x2,0x4
0234 6824 |h$ | Jump_Zero 0x259
0235 e003 | | Load 0x0,0x3
0236 0322 | " | Declare_Variable Record
0237 4800 |H | Short_Literal 0x0
0238 00d9 | | Load_Top At_Offset_1
0239 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
023a e404 | | Load 0x2,0x4
023b 00d8 | | Load_Top At_Offset_0
023c e029 | ) | Load 0x0,0x29
023d 0260 | ` | Execute Discrete,In_Type
023e 7001 |p | Jump_Nonzero 0x240
023f 0801 | | Execute_Immediate Raise,0x1
0240 00d9 | | Load_Top At_Offset_1
0241 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0242 e405 | | Load 0x2,0x5
0243 017d | } | Execute Record,Structure_Write
0244 e405 | | Load 0x2,0x5
0245 e5ff | | Load 0x2,-0x1
0246 e01c | | Load 0x0,0x1c
0247 a01d | | Reference 0x0,0x1d
0248 e01e | | Load 0x0,0x1e
0249 a01f | | Reference 0x0,0x1f
024a 8020 | | Call 0x0,0x20
024b e406 | | Load 0x2,0x6
024c e5fa | | Load 0x2,-0x6
024d 01dc | | Execute Vector,Last
024e e5fa | | Load 0x2,-0x6
024f 01cf | | Execute Vector,Slice_Read
0250 e5ff | | Load 0x2,-0x1
0251 e021 | ! | Load 0x0,0x21
0252 e022 | " | Load 0x0,0x22
0253 e023 | # | Load 0x0,0x23
0254 a024 | $ | Reference 0x0,0x24
0255 e025 | % | Load 0x0,0x25
0256 e026 | & | Load 0x0,0x26
0257 a027 | ' | Reference 0x0,0x27
0258 8028 | ( | Call 0x0,0x28
0259 e403 | | Load 0x2,0x3
025a 4804 |H | Short_Literal 0x4
025b 026f | o | Execute Discrete,Remainder
025c 681b |h | Jump_Zero 0x278
025d 4801 |H | Short_Literal 0x1
025e 4804 |H | Short_Literal 0x4
025f e403 | | Load 0x2,0x3
0260 4804 |H | Short_Literal 0x4
0261 026f | o | Execute Discrete,Remainder
0262 0272 | r | Execute Discrete,Minus
0263 e008 | | Load 0x0,0x8
0264 0334 | 4 | Declare_Variable Array,With_Constraint
0265 00d8 | | Load_Top At_Offset_0
0266 01dc | | Execute Vector,Last
0267 4801 |H | Short_Literal 0x1
0268 0263 | c | Execute Discrete,Above_Bound
0269 7005 |p | Jump_Nonzero 0x26f
026a 4800 |H | Short_Literal 0x0
026b 00d9 | | Load_Top At_Offset_1
026c e602 | | Load 0x3,0x2
026d 01d6 | | Execute Vector,Field_Write
026e 3ffb |? | Loop_Increasing 0x26a
026f e5ff | | Load 0x2,-0x1
0270 e02a | * | Load 0x0,0x2a
0271 e02b | + | Load 0x0,0x2b
0272 e02c | , | Load 0x0,0x2c
0273 a02d | - | Reference 0x0,0x2d
0274 e02e | . | Load 0x0,0x2e
0275 e02f | / | Load 0x0,0x2f
0276 a030 | 0 | Reference 0x0,0x30
0277 8028 | ( | Call 0x0,0x28
0278 4501 |E | Exit_Subprogram 0x1
0279 TRAP_01c8:
0279 0007 | | Action Break_Optional
027a e5ff | | Load 0x2,-0x1
027b 8005 | | Call 0x0,0x5
027c 00d8 | | Load_Top At_Offset_0
027d 0101 | | Execute Exception,Reraise
027e 0000 0000 | | .XXX[0x2]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0285 | | .CONST 0x0285 ; Address of begin
0281 02ea | | .CONST 0x02ea ; Address of exception handler
0282 0002 | | .CONST 0x0002 ; Number of locals
0283 INIT_0280:
0283 029f 05a3 | | Declare_Subprogram For_Call,INIT_05a0
0285 BODY_0280:
0285 e5fd | | Load 0x2,-0x3
0286 e5ff | | Load 0x2,-0x1
0287 8013 | | Call 0x0,0x13
0288 00cf | | Action Mark_Auxiliary
0289 785c |x\ | Jump 0x2e6
028a e406 | | Load 0x2,0x6
028b 48ff |H | Short_Literal 0xff
028c 027d | } | Execute Discrete,Greater
028d 6803 |h | Jump_Zero 0x291
028e 48ff |H | Short_Literal 0xff
028f a407 | | Store_Unchecked 0x2,0x7
0290 7802 |x | Jump 0x293
0291 e406 | | Load 0x2,0x6
0292 a407 | | Store_Unchecked 0x2,0x7
0293 e403 | | Load 0x2,0x3
0294 6803 |h | Jump_Zero 0x298
0295 4800 |H | Short_Literal 0x0
0296 a403 | | Store_Unchecked 0x2,0x3
0297 7801 |x | Jump 0x299
0298 8602 | | Call 0x3,0x2
0299 e404 | | Load 0x2,0x4
029a a405 | | Store_Unchecked 0x2,0x5
029b e407 | | Load 0x2,0x7
029c e031 | 1 | Load 0x0,0x31
029d 0322 | " | Declare_Variable Record
029e 484d |HM | Short_Literal 0x4d
029f 00d9 | | Load_Top At_Offset_1
02a0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02a1 e031 | 1 | Load 0x0,0x31
02a2 012c | , | Execute Any,Size
02a3 09fb | | Execute_Immediate Binary_Scale,-0x5
02a4 e407 | | Load 0x2,0x7
02a5 0901 | | Execute_Immediate Binary_Scale,0x1
02a6 0a03 | | Execute_Immediate Plus,0x3
02a7 09fe | | Execute_Immediate Binary_Scale,-0x2
02a8 00d8 | | Load_Top At_Offset_0
02a9 e015 | | Load 0x0,0x15
02aa 0260 | ` | Execute Discrete,In_Type
02ab 7001 |p | Jump_Nonzero 0x2ad
02ac 0801 | | Execute_Immediate Raise,0x1
02ad 0273 | s | Execute Discrete,Plus
02ae 00d9 | | Load_Top At_Offset_1
02af 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02b0 e407 | | Load 0x2,0x7
02b1 00d8 | | Load_Top At_Offset_0
02b2 e029 | ) | Load 0x0,0x29
02b3 0260 | ` | Execute Discrete,In_Type
02b4 7001 |p | Jump_Nonzero 0x2b6
02b5 0801 | | Execute_Immediate Raise,0x1
02b6 00d9 | | Load_Top At_Offset_1
02b7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02b8 e5fe | | Load 0x2,-0x2
02b9 00d9 | | Load_Top At_Offset_1
02ba 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02bb e5fd | | Load 0x2,-0x3
02bc 0227 | ' | Execute Access,All_Reference
02bd 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02be 00d9 | | Load_Top At_Offset_1
02bf 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
02c0 e405 | | Load 0x2,0x5
02c1 00d9 | | Load_Top At_Offset_1
02c2 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
02c3 e5fb | | Load 0x2,-0x5
02c4 00d9 | | Load_Top At_Offset_1
02c5 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
02c6 e5ff | | Load 0x2,-0x1
02c7 e032 | 2 | Load 0x0,0x32
02c8 a033 | 3 | Reference 0x0,0x33
02c9 e034 | 4 | Load 0x0,0x34
02ca e035 | 5 | Load 0x0,0x35
02cb a036 | 6 | Reference 0x0,0x36
02cc 801b | | Call 0x0,0x1b
02cd e402 | | Load 0x2,0x2
02ce 00d8 | | Load_Top At_Offset_0
02cf e407 | | Load 0x2,0x7
02d0 0273 | s | Execute Discrete,Plus
02d1 0aff | | Execute_Immediate Plus,-0x1
02d2 e5fa | | Load 0x2,-0x6
02d3 01cf | | Execute Vector,Slice_Read
02d4 e5ff | | Load 0x2,-0x1
02d5 e037 | 7 | Load 0x0,0x37
02d6 e038 | 8 | Load 0x0,0x38
02d7 e039 | 9 | Load 0x0,0x39
02d8 a03a | : | Reference 0x0,0x3a
02d9 e03b | ; | Load 0x0,0x3b
02da e03c | < | Load 0x0,0x3c
02db a03d | = | Reference 0x0,0x3d
02dc 803e | > | Call 0x0,0x3e
02dd e402 | | Load 0x2,0x2
02de e407 | | Load 0x2,0x7
02df 0273 | s | Execute Discrete,Plus
02e0 c402 | | Store 0x2,0x2
02e1 e406 | | Load 0x2,0x6
02e2 e407 | | Load 0x2,0x7
02e3 0272 | r | Execute Discrete,Minus
02e4 c406 | | Store 0x2,0x6
02e5 00c9 | | Action Pop_Auxiliary_Loop
02e6 e406 | | Load 0x2,0x6
02e7 0c01 | | Execute_Immediate Greater_Equal,0x1
02e8 77a1 |w | Jump_Nonzero 0x28a
02e9 4501 |E | Exit_Subprogram 0x1
02ea TRAP_0280:
02ea 0007 | | Action Break_Optional
02eb e5ff | | Load 0x2,-0x1
02ec 8005 | | Call 0x0,0x5
02ed 00d8 | | Load_Top At_Offset_0
02ee 0101 | | Execute Exception,Reraise
02ef 0000 | | .XXX[0x1]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0505 | | .CONST 0x0505 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 e5fd | | Load 0x2,-0x3
02f4 e5ff | | Load 0x2,-0x1
02f5 8013 | | Call 0x0,0x13
02f6 00cf | | Action Mark_Auxiliary
02f7 e5fa | | Load 0x2,-0x6
02f8 01d9 | | Execute Vector,Reverse_Bounds
02f9 0263 | c | Execute Discrete,Above_Bound
02fa 7077 |pw | Jump_Nonzero 0x372
02fb 00d8 | | Load_Top At_Offset_0
02fc e5fa | | Load 0x2,-0x6
02fd 01d5 | | Execute Vector,Field_Reference
02fe 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02ff e03f | ? | Load 0x0,0x3f
0300 017f | | Execute Record,Equal
0301 7007 |p | Jump_Nonzero 0x309
0302 e402 | | Load 0x2,0x2
0303 0a01 | | Execute_Immediate Plus,0x1
0304 e040 | @ | Load 0x0,0x40
0305 012c | , | Execute Any,Size
0306 09fd | | Execute_Immediate Binary_Scale,-0x3
0307 0273 | s | Execute Discrete,Plus
0308 c402 | | Store 0x2,0x2
0309 00d8 | | Load_Top At_Offset_0
030a e5fa | | Load 0x2,-0x6
030b 01d5 | | Execute Vector,Field_Reference
030c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
030d 682d |h- | Jump_Zero 0x33b
030e 00d8 | | Load_Top At_Offset_0
030f e5fa | | Load 0x2,-0x6
0310 01d5 | | Execute Vector,Field_Reference
0311 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0312 0c01 | | Execute_Immediate Greater_Equal,0x1
0313 6814 |h | Jump_Zero 0x328
0314 e402 | | Load 0x2,0x2
0315 e003 | | Load 0x0,0x3
0316 012c | , | Execute Any,Size
0317 09fd | | Execute_Immediate Binary_Scale,-0x3
0318 00da | | Load_Top At_Offset_2
0319 e5fa | | Load 0x2,-0x6
031a 01d5 | | Execute Vector,Field_Reference
031b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
031c 0a7e | ~ | Execute_Immediate Plus,0x7e
031d 487f |H | Short_Literal 0x7f
031e 0270 | p | Execute Discrete,Divide
031f 00d8 | | Load_Top At_Offset_0
0320 e002 | | Load 0x0,0x2
0321 0260 | ` | Execute Discrete,In_Type
0322 7001 |p | Jump_Nonzero 0x324
0323 0801 | | Execute_Immediate Raise,0x1
0324 0271 | q | Execute Discrete,Times
0325 0273 | s | Execute Discrete,Plus
0326 c402 | | Store 0x2,0x2
0327 7813 |x | Jump 0x33b
0328 e402 | | Load 0x2,0x2
0329 e003 | | Load 0x0,0x3
032a 012c | , | Execute Any,Size
032b 09fd | | Execute_Immediate Binary_Scale,-0x3
032c 00da | | Load_Top At_Offset_2
032d e5fa | | Load 0x2,-0x6
032e 01d5 | | Execute Vector,Field_Reference
032f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0330 0274 | t | Execute Discrete,Absolute_Value
0331 0a7f | | Execute_Immediate Plus,0x7f
0332 09f9 | | Execute_Immediate Binary_Scale,-0x7
0333 00d8 | | Load_Top At_Offset_0
0334 e002 | | Load 0x0,0x2
0335 0260 | ` | Execute Discrete,In_Type
0336 7001 |p | Jump_Nonzero 0x338
0337 0801 | | Execute_Immediate Raise,0x1
0338 0271 | q | Execute Discrete,Times
0339 0273 | s | Execute Discrete,Plus
033a c402 | | Store 0x2,0x2
033b 00d8 | | Load_Top At_Offset_0
033c e5fa | | Load 0x2,-0x6
033d 01d5 | | Execute Vector,Field_Reference
033e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
033f a409 | | Store_Unchecked 0x2,0x9
0340 e409 | | Load 0x2,0x9
0341 0227 | ' | Execute Access,All_Reference
0342 01db | | Execute Vector,Length
0343 0c01 | | Execute_Immediate Greater_Equal,0x1
0344 682b |h+ | Jump_Zero 0x370
0345 e402 | | Load 0x2,0x2
0346 e003 | | Load 0x0,0x3
0347 012c | , | Execute Any,Size
0348 09fd | | Execute_Immediate Binary_Scale,-0x3
0349 e409 | | Load 0x2,0x9
034a 0227 | ' | Execute Access,All_Reference
034b 01db | | Execute Vector,Length
034c 48fd |H | Short_Literal 0xfd
034d 0273 | s | Execute Discrete,Plus
034e 48fe |H | Short_Literal 0xfe
034f 0270 | p | Execute Discrete,Divide
0350 0aff | | Execute_Immediate Plus,-0x1
0351 00d8 | | Load_Top At_Offset_0
0352 e002 | | Load 0x0,0x2
0353 0260 | ` | Execute Discrete,In_Type
0354 7001 |p | Jump_Nonzero 0x356
0355 0801 | | Execute_Immediate Raise,0x1
0356 0271 | q | Execute Discrete,Times
0357 0273 | s | Execute Discrete,Plus
0358 c402 | | Store 0x2,0x2
0359 00d8 | | Load_Top At_Offset_0
035a e5fa | | Load 0x2,-0x6
035b 01d5 | | Execute Vector,Field_Reference
035c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
035d 7006 |p | Jump_Nonzero 0x364
035e e402 | | Load 0x2,0x2
035f e003 | | Load 0x0,0x3
0360 012c | , | Execute Any,Size
0361 09fd | | Execute_Immediate Binary_Scale,-0x3
0362 0273 | s | Execute Discrete,Plus
0363 c402 | | Store 0x2,0x2
0364 e402 | | Load 0x2,0x2
0365 e409 | | Load 0x2,0x9
0366 0227 | ' | Execute Access,All_Reference
0367 01db | | Execute Vector,Length
0368 00d8 | | Load_Top At_Offset_0
0369 e002 | | Load 0x0,0x2
036a 0260 | ` | Execute Discrete,In_Type
036b 7001 |p | Jump_Nonzero 0x36d
036c 0801 | | Execute_Immediate Raise,0x1
036d 0901 | | Execute_Immediate Binary_Scale,0x1
036e 0273 | s | Execute Discrete,Plus
036f c402 | | Store 0x2,0x2
0370 00c8 | | Action Pop_Auxiliary_Range
0371 3f89 |? | Loop_Increasing 0x2fb
0372 00ce | | Action Pop_Auxiliary
0373 e402 | | Load 0x2,0x2
0374 e014 | | Load 0x0,0x14
0375 0322 | " | Declare_Variable Record
0376 484b |HK | Short_Literal 0x4b
0377 00d9 | | Load_Top At_Offset_1
0378 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0379 e014 | | Load 0x0,0x14
037a 012c | , | Execute Any,Size
037b 09fb | | Execute_Immediate Binary_Scale,-0x5
037c e402 | | Load 0x2,0x2
037d 0a03 | | Execute_Immediate Plus,0x3
037e 09fe | | Execute_Immediate Binary_Scale,-0x2
037f 00d8 | | Load_Top At_Offset_0
0380 e015 | | Load 0x0,0x15
0381 0260 | ` | Execute Discrete,In_Type
0382 7001 |p | Jump_Nonzero 0x384
0383 0801 | | Execute_Immediate Raise,0x1
0384 0273 | s | Execute Discrete,Plus
0385 00d9 | | Load_Top At_Offset_1
0386 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0387 4800 |H | Short_Literal 0x0
0388 00d9 | | Load_Top At_Offset_1
0389 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
038a e5fe | | Load 0x2,-0x2
038b 00d9 | | Load_Top At_Offset_1
038c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
038d e5fd | | Load 0x2,-0x3
038e 0227 | ' | Execute Access,All_Reference
038f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0390 00d9 | | Load_Top At_Offset_1
0391 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0392 e5fc | | Load 0x2,-0x4
0393 00d9 | | Load_Top At_Offset_1
0394 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0395 e5fb | | Load 0x2,-0x5
0396 00d9 | | Load_Top At_Offset_1
0397 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0398 e5ff | | Load 0x2,-0x1
0399 e016 | | Load 0x0,0x16
039a a017 | | Reference 0x0,0x17
039b e018 | | Load 0x0,0x18
039c e019 | | Load 0x0,0x19
039d a01a | | Reference 0x0,0x1a
039e 801b | | Call 0x0,0x1b
039f 00cf | | Action Mark_Auxiliary
03a0 e5fa | | Load 0x2,-0x6
03a1 01d9 | | Execute Vector,Reverse_Bounds
03a2 0263 | c | Execute Discrete,Above_Bound
03a3 7140 |q@ | Jump_Nonzero 0x4e4
03a4 00d8 | | Load_Top At_Offset_0
03a5 e5fa | | Load 0x2,-0x6
03a6 01d5 | | Execute Vector,Field_Reference
03a7 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
03a8 e03f | ? | Load 0x0,0x3f
03a9 017f | | Execute Record,Equal
03aa 7057 |pW | Jump_Nonzero 0x402
03ab 48ff |H | Short_Literal 0xff
03ac 4801 |H | Short_Literal 0x1
03ad e403 | | Load 0x2,0x3
03ae 01d6 | | Execute Vector,Field_Write
03af 00d8 | | Load_Top At_Offset_0
03b0 e5fa | | Load 0x2,-0x6
03b1 01d5 | | Execute Vector,Field_Reference
03b2 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
03b3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03b5 09e8 | | Execute_Immediate Binary_Scale,-0x18
03b6 00d8 | | Load_Top At_Offset_0
03b7 e029 | ) | Load 0x0,0x29
03b8 0260 | ` | Execute Discrete,In_Type
03b9 7001 |p | Jump_Nonzero 0x3bb
03ba 0801 | | Execute_Immediate Raise,0x1
03bb 4802 |H | Short_Literal 0x2
03bc e403 | | Load 0x2,0x3
03bd 01d6 | | Execute Vector,Field_Write
03be 00d8 | | Load_Top At_Offset_0
03bf e5fa | | Load 0x2,-0x6
03c0 01d5 | | Execute Vector,Field_Reference
03c1 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
03c2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03c3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03c4 09f0 | | Execute_Immediate Binary_Scale,-0x10
03c5 4900 |I | Short_Literal 0x100
03c6 026f | o | Execute Discrete,Remainder
03c7 00d8 | | Load_Top At_Offset_0
03c8 e029 | ) | Load 0x0,0x29
03c9 0260 | ` | Execute Discrete,In_Type
03ca 7001 |p | Jump_Nonzero 0x3cc
03cb 0801 | | Execute_Immediate Raise,0x1
03cc 4803 |H | Short_Literal 0x3
03cd e403 | | Load 0x2,0x3
03ce 01d6 | | Execute Vector,Field_Write
03cf 00d8 | | Load_Top At_Offset_0
03d0 e5fa | | Load 0x2,-0x6
03d1 01d5 | | Execute Vector,Field_Reference
03d2 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
03d3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03d4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03d5 09f8 | | Execute_Immediate Binary_Scale,-0x8
03d6 4900 |I | Short_Literal 0x100
03d7 026f | o | Execute Discrete,Remainder
03d8 00d8 | | Load_Top At_Offset_0
03d9 e029 | ) | Load 0x0,0x29
03da 0260 | ` | Execute Discrete,In_Type
03db 7001 |p | Jump_Nonzero 0x3dd
03dc 0801 | | Execute_Immediate Raise,0x1
03dd 4804 |H | Short_Literal 0x4
03de e403 | | Load 0x2,0x3
03df 01d6 | | Execute Vector,Field_Write
03e0 00d8 | | Load_Top At_Offset_0
03e1 e5fa | | Load 0x2,-0x6
03e2 01d5 | | Execute Vector,Field_Reference
03e3 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
03e4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03e5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03e6 4900 |I | Short_Literal 0x100
03e7 026f | o | Execute Discrete,Remainder
03e8 00d8 | | Load_Top At_Offset_0
03e9 e029 | ) | Load 0x0,0x29
03ea 0260 | ` | Execute Discrete,In_Type
03eb 7001 |p | Jump_Nonzero 0x3ed
03ec 0801 | | Execute_Immediate Raise,0x1
03ed 4805 |H | Short_Literal 0x5
03ee e403 | | Load 0x2,0x3
03ef 01d6 | | Execute Vector,Field_Write
03f0 e403 | | Load 0x2,0x3
03f1 e5ff | | Load 0x2,-0x1
03f2 e02a | * | Load 0x0,0x2a
03f3 e02b | + | Load 0x0,0x2b
03f4 e02c | , | Load 0x0,0x2c
03f5 a02d | - | Reference 0x0,0x2d
03f6 e02e | . | Load 0x0,0x2e
03f7 e02f | / | Load 0x0,0x2f
03f8 a030 | 0 | Reference 0x0,0x30
03f9 8028 | ( | Call 0x0,0x28
03fa 00d8 | | Load_Top At_Offset_0
03fb e5fa | | Load 0x2,-0x6
03fc 01d5 | | Execute Vector,Field_Reference
03fd 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
03fe e5fd | | Load 0x2,-0x3
03ff 0227 | ' | Execute Access,All_Reference
0400 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0401 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0402 00d8 | | Load_Top At_Offset_0
0403 e5fa | | Load 0x2,-0x6
0404 01d5 | | Execute Vector,Field_Reference
0405 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0406 a405 | | Store_Unchecked 0x2,0x5
0407 e405 | | Load 0x2,0x5
0408 6850 |hP | Jump_Zero 0x459
0409 00cf | | Action Mark_Auxiliary
040a 7827 |x' | Jump 0x432
040b e405 | | Load 0x2,0x5
040c 0c01 | | Execute_Immediate Greater_Equal,0x1
040d 680e |h | Jump_Zero 0x41c
040e e003 | | Load 0x0,0x3
040f 0322 | " | Declare_Variable Record
0410 487f |H | Short_Literal 0x7f
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 0a81 | | Execute_Immediate Plus,-0x7f
041a c405 | | Store 0x2,0x5
041b 780e |x | Jump 0x42a
041c e003 | | Load 0x0,0x3
041d 0322 | " | Declare_Variable Record
041e 4f80 |O | Short_Literal 0x780
041f 00d9 | | Load_Top At_Offset_1
0420 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0421 4800 |H | Short_Literal 0x0
0422 00d9 | | Load_Top At_Offset_1
0423 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0424 e406 | | Load 0x2,0x6
0425 017d | } | Execute Record,Structure_Write
0426 e405 | | Load 0x2,0x5
0427 4880 |H | Short_Literal 0x80
0428 0273 | s | Execute Discrete,Plus
0429 c405 | | Store 0x2,0x5
042a e406 | | Load 0x2,0x6
042b e5ff | | Load 0x2,-0x1
042c e01c | | Load 0x0,0x1c
042d a01d | | Reference 0x0,0x1d
042e e01e | | Load 0x0,0x1e
042f a01f | | Reference 0x0,0x1f
0430 8020 | | Call 0x0,0x20
0431 00c9 | | Action Pop_Auxiliary_Loop
0432 e405 | | Load 0x2,0x5
0433 4f80 |O | Short_Literal 0x780
0434 027c | | | Execute Discrete,Less
0435 77d5 |w | Jump_Nonzero 0x40b
0436 e405 | | Load 0x2,0x5
0437 0c80 | | Execute_Immediate Greater_Equal,0x80
0438 77d2 |w | Jump_Nonzero 0x40b
0439 00ce | | Action Pop_Auxiliary
043a e405 | | Load 0x2,0x5
043b 681d |h | Jump_Zero 0x459
043c 00d8 | | Load_Top At_Offset_0
043d e5fa | | Load 0x2,-0x6
043e 01d5 | | Execute Vector,Field_Reference
043f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0440 0227 | ' | Execute Access,All_Reference
0441 01db | | Execute Vector,Length
0442 7016 |p | Jump_Nonzero 0x459
0443 e003 | | Load 0x0,0x3
0444 0322 | " | Declare_Variable Record
0445 e405 | | Load 0x2,0x5
0446 00d8 | | Load_Top At_Offset_0
0447 e041 | A | Load 0x0,0x41
0448 0260 | ` | Execute Discrete,In_Type
0449 7001 |p | Jump_Nonzero 0x44b
044a 0801 | | Execute_Immediate Raise,0x1
044b 00d9 | | Load_Top At_Offset_1
044c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
044d 4800 |H | Short_Literal 0x0
044e 00d9 | | Load_Top At_Offset_1
044f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0450 e406 | | Load 0x2,0x6
0451 017d | } | Execute Record,Structure_Write
0452 e406 | | Load 0x2,0x6
0453 e5ff | | Load 0x2,-0x1
0454 e01c | | Load 0x0,0x1c
0455 a01d | | Reference 0x0,0x1d
0456 e01e | | Load 0x0,0x1e
0457 a01f | | Reference 0x0,0x1f
0458 8020 | | Call 0x0,0x20
0459 00d8 | | Load_Top At_Offset_0
045a e5fa | | Load 0x2,-0x6
045b 01d5 | | Execute Vector,Field_Reference
045c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
045d a409 | | Store_Unchecked 0x2,0x9
045e e409 | | Load 0x2,0x9
045f 0227 | ' | Execute Access,All_Reference
0460 01dc | | Execute Vector,Last
0461 c404 | | Store 0x2,0x4
0462 4801 |H | Short_Literal 0x1
0463 a407 | | Store_Unchecked 0x2,0x7
0464 e409 | | Load 0x2,0x9
0465 0227 | ' | Execute Access,All_Reference
0466 01dd | | Execute Vector,First
0467 c408 | | Store 0x2,0x8
0468 00cf | | Action Mark_Auxiliary
0469 7847 |xG | Jump 0x4b1
046a e407 | | Load 0x2,0x7
046b 681b |h | Jump_Zero 0x487
046c 4800 |H | Short_Literal 0x0
046d a407 | | Store_Unchecked 0x2,0x7
046e e003 | | Load 0x0,0x3
046f 0322 | " | Declare_Variable Record
0470 e405 | | Load 0x2,0x5
0471 00d8 | | Load_Top At_Offset_0
0472 e041 | A | Load 0x0,0x41
0473 0260 | ` | Execute Discrete,In_Type
0474 7001 |p | Jump_Nonzero 0x476
0475 0801 | | Execute_Immediate Raise,0x1
0476 00d9 | | Load_Top At_Offset_1
0477 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0478 48fe |H | Short_Literal 0xfe
0479 00d9 | | Load_Top At_Offset_1
047a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
047b e406 | | Load 0x2,0x6
047c 017d | } | Execute Record,Structure_Write
047d e406 | | Load 0x2,0x6
047e e5ff | | Load 0x2,-0x1
047f e01c | | Load 0x0,0x1c
0480 a01d | | Reference 0x0,0x1d
0481 e01e | | Load 0x0,0x1e
0482 a01f | | Reference 0x0,0x1f
0483 8020 | | Call 0x0,0x20
0484 4800 |H | Short_Literal 0x0
0485 a405 | | Store_Unchecked 0x2,0x5
0486 7811 |x | Jump 0x498
0487 e003 | | Load 0x0,0x3
0488 0322 | " | Declare_Variable Record
0489 4800 |H | Short_Literal 0x0
048a 00d9 | | Load_Top At_Offset_1
048b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
048c 48fe |H | Short_Literal 0xfe
048d 00d9 | | Load_Top At_Offset_1
048e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
048f e406 | | Load 0x2,0x6
0490 017d | } | Execute Record,Structure_Write
0491 e406 | | Load 0x2,0x6
0492 e5ff | | Load 0x2,-0x1
0493 e01c | | Load 0x0,0x1c
0494 a01d | | Reference 0x0,0x1d
0495 e01e | | Load 0x0,0x1e
0496 a01f | | Reference 0x0,0x1f
0497 8020 | | Call 0x0,0x20
0498 e408 | | Load 0x2,0x8
0499 00d8 | | Load_Top At_Offset_0
049a 48fd |H | Short_Literal 0xfd
049b 0273 | s | Execute Discrete,Plus
049c e409 | | Load 0x2,0x9
049d 0227 | ' | Execute Access,All_Reference
049e 01cf | | Execute Vector,Slice_Read
049f e5ff | | Load 0x2,-0x1
04a0 e021 | ! | Load 0x0,0x21
04a1 e022 | " | Load 0x0,0x22
04a2 e023 | # | Load 0x0,0x23
04a3 a024 | $ | Reference 0x0,0x24
04a4 e025 | % | Load 0x0,0x25
04a5 e026 | & | Load 0x0,0x26
04a6 a027 | ' | Reference 0x0,0x27
04a7 8028 | ( | Call 0x0,0x28
04a8 e404 | | Load 0x2,0x4
04a9 4f02 |O | Short_Literal 0x702
04aa 0273 | s | Execute Discrete,Plus
04ab c404 | | Store 0x2,0x4
04ac e408 | | Load 0x2,0x8
04ad 48fe |H | Short_Literal 0xfe
04ae 0273 | s | Execute Discrete,Plus
04af c408 | | Store 0x2,0x8
04b0 00c9 | | Action Pop_Auxiliary_Loop
04b1 e404 | | Load 0x2,0x4
04b2 0cff | | Execute_Immediate Greater_Equal,0xff
04b3 77b6 |w | Jump_Nonzero 0x46a
04b4 00ce | | Action Pop_Auxiliary
04b5 e404 | | Load 0x2,0x4
04b6 682b |h+ | Jump_Zero 0x4e2
04b7 e003 | | Load 0x0,0x3
04b8 0322 | " | Declare_Variable Record
04b9 e405 | | Load 0x2,0x5
04ba 00d8 | | Load_Top At_Offset_0
04bb e041 | A | Load 0x0,0x41
04bc 0260 | ` | Execute Discrete,In_Type
04bd 7001 |p | Jump_Nonzero 0x4bf
04be 0801 | | Execute_Immediate Raise,0x1
04bf 00d9 | | Load_Top At_Offset_1
04c0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04c1 e404 | | Load 0x2,0x4
04c2 00d8 | | Load_Top At_Offset_0
04c3 e029 | ) | Load 0x0,0x29
04c4 0260 | ` | Execute Discrete,In_Type
04c5 7001 |p | Jump_Nonzero 0x4c7
04c6 0801 | | Execute_Immediate Raise,0x1
04c7 00d9 | | Load_Top At_Offset_1
04c8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04c9 e406 | | Load 0x2,0x6
04ca 017d | } | Execute Record,Structure_Write
04cb e406 | | Load 0x2,0x6
04cc e5ff | | Load 0x2,-0x1
04cd e01c | | Load 0x0,0x1c
04ce a01d | | Reference 0x0,0x1d
04cf e01e | | Load 0x0,0x1e
04d0 a01f | | Reference 0x0,0x1f
04d1 8020 | | Call 0x0,0x20
04d2 e408 | | Load 0x2,0x8
04d3 e409 | | Load 0x2,0x9
04d4 0227 | ' | Execute Access,All_Reference
04d5 01dc | | Execute Vector,Last
04d6 e409 | | Load 0x2,0x9
04d7 0227 | ' | Execute Access,All_Reference
04d8 01cf | | Execute Vector,Slice_Read
04d9 e5ff | | Load 0x2,-0x1
04da e021 | ! | Load 0x0,0x21
04db e022 | " | Load 0x0,0x22
04dc e023 | # | Load 0x0,0x23
04dd a024 | $ | Reference 0x0,0x24
04de e025 | % | Load 0x0,0x25
04df e026 | & | Load 0x0,0x26
04e0 a027 | ' | Reference 0x0,0x27
04e1 8028 | ( | Call 0x0,0x28
04e2 00c8 | | Action Pop_Auxiliary_Range
04e3 3ec0 |> | Loop_Increasing 0x3a4
04e4 00ce | | Action Pop_Auxiliary
04e5 e402 | | Load 0x2,0x2
04e6 4804 |H | Short_Literal 0x4
04e7 026f | o | Execute Discrete,Remainder
04e8 c402 | | Store 0x2,0x2
04e9 e402 | | Load 0x2,0x2
04ea 6819 |h | Jump_Zero 0x504
04eb 4801 |H | Short_Literal 0x1
04ec 4804 |H | Short_Literal 0x4
04ed e402 | | Load 0x2,0x2
04ee 0272 | r | Execute Discrete,Minus
04ef e008 | | Load 0x0,0x8
04f0 0334 | 4 | Declare_Variable Array,With_Constraint
04f1 00d8 | | Load_Top At_Offset_0
04f2 01dc | | Execute Vector,Last
04f3 4801 |H | Short_Literal 0x1
04f4 0263 | c | Execute Discrete,Above_Bound
04f5 7005 |p | Jump_Nonzero 0x4fb
04f6 4800 |H | Short_Literal 0x0
04f7 00d9 | | Load_Top At_Offset_1
04f8 e602 | | Load 0x3,0x2
04f9 01d6 | | Execute Vector,Field_Write
04fa 3ffb |? | Loop_Increasing 0x4f6
04fb e5ff | | Load 0x2,-0x1
04fc e02a | * | Load 0x0,0x2a
04fd e02b | + | Load 0x0,0x2b
04fe e02c | , | Load 0x0,0x2c
04ff a02d | - | Reference 0x0,0x2d
0500 e02e | . | Load 0x0,0x2e
0501 e02f | / | Load 0x0,0x2f
0502 a030 | 0 | Reference 0x0,0x30
0503 8028 | ( | Call 0x0,0x28
0504 4501 |E | Exit_Subprogram 0x1
0505 TRAP_02f0:
0505 0007 | | Action Break_Optional
0506 e5ff | | Load 0x2,-0x1
0507 8005 | | Call 0x0,0x5
0508 00d8 | | Load_Top At_Offset_0
0509 0101 | | Execute Exception,Reraise
050a 0000 0000 | | .BLANK 0000[0x6]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0515 | | .CONST 0x0515 ; Address of begin
0511 059b | | .CONST 0x059b ; Address of exception handler
0512 0002 | | .CONST 0x0002 ; Number of locals
0513 INIT_0510:
0513 029f 05eb | | Declare_Subprogram For_Call,INIT_05e8
0515 BODY_0510:
0515 e042 | B | Load 0x0,0x42
0516 0322 | " | Declare_Variable Record
0517 4830 |H0 | Short_Literal 0x30
0518 00d9 | | Load_Top At_Offset_1
0519 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
051a e042 | B | Load 0x0,0x42
051b 012c | , | Execute Any,Size
051c 09fb | | Execute_Immediate Binary_Scale,-0x5
051d e402 | | Load 0x2,0x2
051e 0a01 | | Execute_Immediate Plus,0x1
051f 09ff | | Execute_Immediate Binary_Scale,-0x1
0520 00d8 | | Load_Top At_Offset_0
0521 e015 | | Load 0x0,0x15
0522 0260 | ` | Execute Discrete,In_Type
0523 7001 |p | Jump_Nonzero 0x525
0524 0801 | | Execute_Immediate Raise,0x1
0525 0273 | s | Execute Discrete,Plus
0526 00d9 | | Load_Top At_Offset_1
0527 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0528 e5fe | | Load 0x2,-0x2
0529 00d9 | | Load_Top At_Offset_1
052a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
052b e402 | | Load 0x2,0x2
052c 4802 |H | Short_Literal 0x2
052d 026f | o | Execute Discrete,Remainder
052e 0e00 | | Execute_Immediate Not_Equal,0x0
052f 8043 | C | Call 0x0,0x43
0530 00d9 | | Load_Top At_Offset_1
0531 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0532 e5ff | | Load 0x2,-0x1
0533 e044 | D | Load 0x0,0x44
0534 a045 | E | Reference 0x0,0x45
0535 e046 | F | Load 0x0,0x46
0536 e047 | G | Load 0x0,0x47
0537 a048 | H | Reference 0x0,0x48
0538 8049 | I | Call 0x0,0x49
0539 8602 | | Call 0x3,0x2
053a e00b | | Load 0x0,0xb
053b e403 | | Load 0x2,0x3
053c 4801 |H | Short_Literal 0x1
053d 4800 |H | Short_Literal 0x0
053e 4830 |H0 | Short_Literal 0x30
053f e5ff | | Load 0x2,-0x1
0540 e04a | J | Load 0x0,0x4a
0541 a04b | K | Reference 0x0,0x4b
0542 a04c | L | Reference 0x0,0x4c
0543 804d | M | Call 0x0,0x4d
0544 00d1 | | Pop_Control Pop_Count_1
0545 c404 | | Store 0x2,0x4
0546 e404 | | Load 0x2,0x4
0547 700b |p | Jump_Nonzero 0x553
0548 4800 |H | Short_Literal 0x0
0549 a5fc | | Store_Unchecked 0x2,-0x4
054a 4800 |H | Short_Literal 0x0
054b a5fb | | Store_Unchecked 0x2,-0x5
054c 4800 |H | Short_Literal 0x0
054d a5fa | | Store_Unchecked 0x2,-0x6
054e e00f | | Load 0x0,0xf
054f e5f9 | | Load 0x2,-0x7
0550 017d | } | Execute Record,Structure_Write
0551 00cc | | Action Pop_Block
0552 4504 |E | Exit_Subprogram 0x4
0553 e403 | | Load 0x2,0x3
0554 2626 |&& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x26
0555 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0556 a5fc | | Store_Unchecked 0x2,-0x4
0557 e403 | | Load 0x2,0x3
0558 2626 |&& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x26
0559 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
055a a5fb | | Store_Unchecked 0x2,-0x5
055b e403 | | Load 0x2,0x3
055c 2626 |&& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x26
055d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
055e a5fa | | Store_Unchecked 0x2,-0x6
055f e00c | | Load 0x0,0xc
0560 0322 | " | Declare_Variable Record
0561 e403 | | Load 0x2,0x3
0562 2626 |&& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x26
0563 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0564 00d9 | | Load_Top At_Offset_1
0565 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0566 e403 | | Load 0x2,0x3
0567 2626 |&& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x26
0568 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0569 00d9 | | Load_Top At_Offset_1
056a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
056b e403 | | Load 0x2,0x3
056c 2626 |&& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x26
056d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
056e 00d8 | | Load_Top At_Offset_0
056f e007 | | Load 0x0,0x7
0570 0260 | ` | Execute Discrete,In_Type
0571 7001 |p | Jump_Nonzero 0x573
0572 0801 | | Execute_Immediate Raise,0x1
0573 00d9 | | Load_Top At_Offset_1
0574 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0575 e403 | | Load 0x2,0x3
0576 2626 |&& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x26
0577 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0578 00d8 | | Load_Top At_Offset_0
0579 e007 | | Load 0x0,0x7
057a 0260 | ` | Execute Discrete,In_Type
057b 7001 |p | Jump_Nonzero 0x57d
057c 0801 | | Execute_Immediate Raise,0x1
057d 00d9 | | Load_Top At_Offset_1
057e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
057f e403 | | Load 0x2,0x3
0580 2626 |&& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x26
0581 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0582 00d8 | | Load_Top At_Offset_0
0583 e007 | | Load 0x0,0x7
0584 0260 | ` | Execute Discrete,In_Type
0585 7001 |p | Jump_Nonzero 0x587
0586 0801 | | Execute_Immediate Raise,0x1
0587 00d9 | | Load_Top At_Offset_1
0588 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0589 e00c | | Load 0x0,0xc
058a 3005 |0 | Execute Record,Field_Type,Field_Number 0x5
058b 0337 | 7 | Declare_Variable Array
058c 480f |H | Short_Literal 0xf
058d 4800 |H | Short_Literal 0x0
058e 4800 |H | Short_Literal 0x0
058f 00d9 | | Load_Top At_Offset_1
0590 e604 | | Load 0x3,0x4
0591 01d6 | | Execute Vector,Field_Write
0592 3ffb |? | Loop_Increasing 0x58e
0593 e00c | | Load 0x0,0xc
0594 3005 |0 | Execute Record,Field_Type,Field_Number 0x5
0595 0119 | | Execute Any,Check_In_Formal_Type
0596 00d9 | | Load_Top At_Offset_1
0597 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0598 e5f9 | | Load 0x2,-0x7
0599 017d | } | Execute Record,Structure_Write
059a 4501 |E | Exit_Subprogram 0x1
059b TRAP_0510:
059b 0007 | | Action Break_Optional
059c e5ff | | Load 0x2,-0x1
059d 8005 | | Call 0x0,0x5
059e 00d8 | | Load_Top At_Offset_0
059f 0101 | | Execute Exception,Reraise
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05af | | .CONST 0x05af ; Address of begin
05a1 0004 | | .CONST 0x0004 ; Address of exception handler
05a2 0006 | | .CONST 0x0006 ; Number of locals
05a3 INIT_05a0:
05a3 e04e | N | Load 0x0,0x4e
05a4 0007 | | Action Break_Optional
05a5 e007 | | Load 0x0,0x7
05a6 0007 | | Action Break_Optional
05a7 e007 | | Load 0x0,0x7
05a8 0007 | | Action Break_Optional
05a9 e00c | | Load 0x0,0xc
05aa 0322 | " | Declare_Variable Record
05ab 00d8 | | Load_Top At_Offset_0
05ac 1c00 | | Execute_Immediate Run_Utility,0x0
05ad e04f | O | Load 0x0,0x4f
05ae 0007 | | Action Break_Optional
05af BODY_05a0:
05af e5ff | | Load 0x2,-0x1
05b0 8005 | | Call 0x0,0x5
05b1 e040 | @ | Load 0x0,0x40
05b2 0322 | " | Declare_Variable Record
05b3 e5fd | | Load 0x2,-0x3
05b4 0227 | ' | Execute Access,All_Reference
05b5 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
05b6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05b7 00d9 | | Load_Top At_Offset_1
05b8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
05b9 e5ff | | Load 0x2,-0x1
05ba 8050 | P | Call 0x0,0x50
05bb 0039 | 9 | Store_Top Access,At_Offset_1
05bc 00d8 | | Load_Top At_Offset_0
05bd e04f | O | Load 0x0,0x4f
05be 022f | / | Execute Access,Equal
05bf 6803 |h | Jump_Zero 0x5c3
05c0 00cc | | Action Pop_Block
05c1 00cc | | Action Pop_Block
05c2 4507 |E | Exit_Subprogram 0x7
05c3 00d9 | | Load_Top At_Offset_1
05c4 e007 | | Load 0x0,0x7
05c5 00d8 | | Load_Top At_Offset_0
05c6 e04e | N | Load 0x0,0x4e
05c7 e402 | | Load 0x2,0x2
05c8 4f01 |O | Short_Literal 0x701
05c9 0273 | s | Execute Discrete,Plus
05ca e402 | | Load 0x2,0x2
05cb 0aff | | Execute_Immediate Plus,-0x1
05cc e5fa | | Load 0x2,-0x6
05cd 01cf | | Execute Vector,Slice_Read
05ce e806 | | Load 0x4,0x6
05cf 8211 | | Call 0x1,0x11
05d0 c802 | | Store 0x4,0x2
05d1 c803 | | Store 0x4,0x3
05d2 c804 | | Store 0x4,0x4
05d3 00d1 | | Pop_Control Pop_Count_1
05d4 00d8 | | Load_Top At_Offset_0
05d5 e051 | Q | Load 0x0,0x51
05d6 e052 | R | Load 0x0,0x52
05d7 a053 | S | Reference 0x0,0x53
05d8 8054 | T | Call 0x0,0x54
05d9 0039 | 9 | Store_Top Access,At_Offset_1
05da e5ff | | Load 0x2,-0x1
05db 8004 | | Call 0x0,0x4
05dc e405 | | Load 0x2,0x5
05dd 00da | | Load_Top At_Offset_2
05de 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05df 0273 | s | Execute Discrete,Plus
05e0 c404 | | Store 0x2,0x4
05e1 4501 |E | Exit_Subprogram 0x1
05e2 0000 0000 | | .BLANK 0000[0x6]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05f1 | | .CONST 0x05f1 ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 0002 | | .CONST 0x0002 ; Number of locals
05eb INIT_05e8:
05eb 4801 |H | Short_Literal 0x1
05ec e402 | | Load 0x2,0x2
05ed 0901 | | Execute_Immediate Binary_Scale,0x1
05ee e008 | | Load 0x0,0x8
05ef 035b | [ | Declare_Type Array,Constrained
05f0 0337 | 7 | Declare_Variable Array
05f1 BODY_05e8:
05f1 00cf | | Action Mark_Auxiliary
05f2 4800 |H | Short_Literal 0x0
05f3 e402 | | Load 0x2,0x2
05f4 0aff | | Execute_Immediate Plus,-0x1
05f5 0264 | d | Execute Discrete,Below_Bound
05f6 701a |p | Jump_Nonzero 0x611
05f7 e5fd | | Load 0x2,-0x3
05f8 01dd | | Execute Vector,First
05f9 00d9 | | Load_Top At_Offset_1
05fa 0273 | s | Execute Discrete,Plus
05fb e5fd | | Load 0x2,-0x3
05fc 01d5 | | Execute Vector,Field_Reference
05fd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05fe 00d9 | | Load_Top At_Offset_1
05ff 0901 | | Execute_Immediate Binary_Scale,0x1
0600 0a01 | | Execute_Immediate Plus,0x1
0601 e802 | | Load 0x4,0x2
0602 01d6 | | Execute Vector,Field_Write
0603 e5fd | | Load 0x2,-0x3
0604 01dd | | Execute Vector,First
0605 00d9 | | Load_Top At_Offset_1
0606 0273 | s | Execute Discrete,Plus
0607 e5fd | | Load 0x2,-0x3
0608 01d5 | | Execute Vector,Field_Reference
0609 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
060a 00d9 | | Load_Top At_Offset_1
060b 0901 | | Execute_Immediate Binary_Scale,0x1
060c 0a02 | | Execute_Immediate Plus,0x2
060d e802 | | Load 0x4,0x2
060e 01d6 | | Execute Vector,Field_Write
060f 00c8 | | Action Pop_Auxiliary_Range
0610 37e6 |7 | Loop_Decreasing 0x5f7
0611 00ce | | Action Pop_Auxiliary
0612 00d8 | | Load_Top At_Offset_0
0613 e5ff | | Load 0x2,-0x1
0614 e055 | U | Load 0x0,0x55
0615 e056 | V | Load 0x0,0x56
0616 e057 | W | Load 0x0,0x57
0617 a058 | X | Reference 0x0,0x58
0618 e059 | Y | Load 0x0,0x59
0619 e05a | Z | Load 0x0,0x5a
061a a05b | [ | Reference 0x0,0x5b
061b 803e | > | Call 0x0,0x3e
061c 4501 |E | Exit_Subprogram 0x1
061d 0000 0000 | | .XXX[0x3]
061f 0000 | |
0620 ; --------------------------------------------------------------------------------------
0620 ; Debug Table
0620 ; --------------------------------------------------------------------------------------
0620 0004 0000 | | .DEBUG4 0x0004,0x0000,0x692c,0x0000,0x0001,0x0010
0626 000b 0666 | f| .DBG4T 0x000b,0x0666,0x8000,0x0000
062a 0018 066e | n| .DBG4T 0x0018,0x066e,0x8000,0x0000
062e 0033 0678 | 3 x| .DBG4T 0x0033,0x0678,0x0001,0x0000
0632 005b 0685 | [ | .DBG4T 0x005b,0x0685,0x0001,0x0000
0636 007b 0691 | { | .DBG4T 0x007b,0x0691,0x0001,0x0000
063a 009b 069f | | .DBG4T 0x009b,0x069f,0x0001,0x0000
063e 00b3 06a8 | | .DBG4T 0x00b3,0x06a8,0x0001,0x4000
0642 013b 06da | ; | .DBG4T 0x013b,0x06da,0x0002,0x0000
0646 017b 06ea | { | .DBG4T 0x017b,0x06ea,0x0001,0x0000
064a 01bb 06f5 | | .DBG4T 0x01bb,0x06f5,0x0001,0x0000
064e 01cb 06f8 | | .DBG4T 0x01cb,0x06f8,0x0004,0x4000
0652 0283 071c | | .DBG4T 0x0283,0x071c,0x0004,0x4000
0656 02f3 073c | <| .DBG4T 0x02f3,0x073c,0x0004,0x4000
065a 0513 07b6 | | .DBG4T 0x0513,0x07b6,0x0004,0x0000
065e 05a3 07c7 | | .DBG4T 0x05a3,0x07c7,0x0004,0x0000
0662 05eb 07d6 | | .DBG4T 0x05eb,0x07d6,0x0004,0x0000
0666 ; --------------------------------------------------------------------------------------
0666 ; Debug chain
0666 ; --------------------------------------------------------------------------------------
0666 0006 0000 | | .DBGLEN 0x0006,0x0000
0668 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015
066e ; --------------------------------------------------------------------------------------
066e ; Debug chain
066e ; --------------------------------------------------------------------------------------
066e 0008 0000 | | .DBGLEN 0x0008,0x0000
0670 0018 001a | | .DBGLNO 0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026
0678 ; --------------------------------------------------------------------------------------
0678 ; Debug chain
0678 ; --------------------------------------------------------------------------------------
0678 0005 0006 | | .DBGLEN 0x0005,0x0006
067a 0033 0037 | 3 7| .DBGLNO 0x0033,0x0037,0x0039,0x003d,0x003f,0x0045,0x0048,0x0049,0x004b,0x004c,0x004e
0685 ; --------------------------------------------------------------------------------------
0685 ; Debug chain
0685 ; --------------------------------------------------------------------------------------
0685 0006 0004 | | .DBGLEN 0x0006,0x0004
0687 005b 005f | [ _| .DBGLNO 0x005b,0x005f,0x0061,0x0064,0x0066,0x006a,0x006d,0x006f,0x0070,0x0072
0691 ; --------------------------------------------------------------------------------------
0691 ; Debug chain
0691 ; --------------------------------------------------------------------------------------
0691 0008 0004 | | .DBGLEN 0x0008,0x0004
0693 007b 007d | { }| .DBGLNO 0x007b,0x007d,0x0082,0x0084,0x0086,0x0088,0x0089,0x008b,0x008e,0x0090,0x0091,0x0093
069f ; --------------------------------------------------------------------------------------
069f ; Debug chain
069f ; --------------------------------------------------------------------------------------
069f 0003 0004 | | .DBGLEN 0x0003,0x0004
06a1 009b 009f | | .DBGLNO 0x009b,0x009f,0x00a3,0x00a6,0x00a8,0x00a9,0x00ab
06a8 ; --------------------------------------------------------------------------------------
06a8 ; Debug chain
06a8 ; --------------------------------------------------------------------------------------
06a8 0006 0015 | | .DBGLEN 0x0006,0x0015
06aa 00b3 00b5 | | .DBGLNO 0x00b3,0x00b5,0x00b9,0x00bd,0x00be,0x00bf,0x00c3,0x00c9,0x00cd,0x00d1,0x00d6,0x00da,0x00e3,0x00e5,0x00e7,0x00eb,0x00ed,0x00f1,0x00f8,0x00ff,0x010e,0x011d,0x0124,0x0127,0x012b,0x012d,0x0131
06c5 0001 0002 | | .XXX[0x15]
06c7 0003 0004 | |
06c9 0005 0006 | |
06cb 0007 0008 | |
06cd 0009 000b | |
06cf 000c 000d | |
06d1 000e 000f | |
06d3 0010 0011 | |
06d5 0012 0013 | |
06d7 0014 0015 | |
06d9 0016 | |
06da ; --------------------------------------------------------------------------------------
06da ; Debug chain
06da ; --------------------------------------------------------------------------------------
06da 0005 0009 | | .DBGLEN 0x0005,0x0009
06dc 013b 013f | ; ?| .DBGLNO 0x013b,0x013f,0x0143,0x0144,0x0145,0x0147,0x014d,0x0150,0x0154,0x015d,0x015f,0x0161,0x0167,0x016f
06ea ; --------------------------------------------------------------------------------------
06ea ; Debug chain
06ea ; --------------------------------------------------------------------------------------
06ea 0000 0009 | | .DBGLEN 0x0000,0x0009
06ec 017b 0181 | { | .DBGLNO 0x017b,0x0181,0x0186,0x0189,0x019d,0x01a8,0x01ab,0x01ae,0x01b1
06f5 ; --------------------------------------------------------------------------------------
06f5 ; Debug chain
06f5 ; --------------------------------------------------------------------------------------
06f5 0000 0001 | | .DBGLEN 0x0000,0x0001
06f7 01bb | | .DBGLNO 0x01bb
06f8 ; --------------------------------------------------------------------------------------
06f8 ; Debug chain
06f8 ; --------------------------------------------------------------------------------------
06f8 0000 0011 | | .DBGLEN 0x0000,0x0011
06fa 01cb 01ce | | .DBGLNO 0x01cb,0x01ce,0x01d8,0x0204,0x0210,0x0217,0x0226,0x022a,0x022f,0x0233,0x0235,0x0244,0x024b,0x0259,0x025d,0x027a,0x027c
070b 0001 0002 | | .XXX[0x11]
070d 0003 0004 | |
070f 0006 0007 | |
0711 0008 0009 | |
0713 0005 000a | |
0715 000b 000c | |
0717 000d 000e | |
0719 000f 0010 | |
071b 0011 | |
071c ; --------------------------------------------------------------------------------------
071c ; Debug chain
071c ; --------------------------------------------------------------------------------------
071c 0000 000f | | .DBGLEN 0x0000,0x000f
071e 0285 028a | | .DBGLNO 0x0285,0x028a,0x028e,0x0291,0x0293,0x0295,0x0298,0x0299,0x029b,0x02cd,0x02dd,0x02e1,0x02e6,0x02eb,0x02ed
072d 0001 0003 | | .XXX[0xf]
072f 0004 0005 | |
0731 0006 0007 | |
0733 0008 0009 | |
0735 000a 000b | |
0737 000c 000d | |
0739 0002 000e | |
073b 000f | |
073c ; --------------------------------------------------------------------------------------
073c ; Debug chain
073c ; --------------------------------------------------------------------------------------
073c 0000 003c | <| .DBGLEN 0x0000,0x003c
073e 02f3 02f7 | | .DBGLNO 0x02f3,0x02f7,0x02fb,0x0302,0x0309,0x030e,0x0314,0x0328,0x033b,0x0340,0x0345,0x0359,0x035e,0x0364,0x0373,0x03a0,0x03a4,0x03ab,0x03af,0x03be,0x03cf,0x03e0,0x03f0,0x03fa,0x0402,0x0407,0x040b,0x040e,0x0418,0x041c,0x0426,0x042a,0x0432,0x043a,0x0443,0x0452,0x0459,0x045e,0x0462,0x0464,0x046a,0x046c,0x046e,0x047d,0x0484,0x0487,0x0491,0x0498,0x04a8,0x04ac,0x04b1,0x04b5,0x04b7,0x04cb,0x04d2,0x04e5,0x04e9,0x04eb,0x0506,0x0508
077a 0001 0002 | | .XXX[0x3c]
077c 0003 0004 | |
077e 0005 0006 | |
0780 0007 0008 | |
0782 0009 000a | |
0784 000b 000c | |
0786 000d 000e | |
0788 000f 0010 | |
078a 0011 0012 | |
078c 0013 0014 | |
078e 0015 0016 | |
0790 0017 0018 | |
0792 0019 001a | |
0794 001c 001d | |
0796 001e 001f | |
0798 0020 0021 | !|
079a 001b 0022 | "|
079c 0023 0024 | # $|
079e 0025 0026 | % &|
07a0 0027 0028 | ' (|
07a2 002a 002b | * +|
07a4 002c 002d | , -|
07a6 002e 002f | . /|
07a8 0030 0031 | 0 1|
07aa 0032 0033 | 2 3|
07ac 0029 0034 | ) 4|
07ae 0035 0036 | 5 6|
07b0 0037 0038 | 7 8|
07b2 0039 003a | 9 :|
07b4 003b 003c | ; <|
07b6 ; --------------------------------------------------------------------------------------
07b6 ; Debug chain
07b6 ; --------------------------------------------------------------------------------------
07b6 0000 000f | | .DBGLEN 0x0000,0x000f
07b8 0515 0539 | 9| .DBGLNO 0x0515,0x0539,0x053a,0x0546,0x0548,0x054a,0x054c,0x054e,0x0551,0x0553,0x0557,0x055b,0x055f,0x059c,0x059e
07c7 ; --------------------------------------------------------------------------------------
07c7 ; Debug chain
07c7 ; --------------------------------------------------------------------------------------
07c7 0005 0008 | | .DBGLEN 0x0005,0x0008
07c9 05a3 05a5 | | .DBGLNO 0x05a3,0x05a5,0x05a7,0x05a9,0x05ad,0x05af,0x05b1,0x05bc,0x05c0,0x05c3,0x05d4,0x05da,0x05dc
07d6 ; --------------------------------------------------------------------------------------
07d6 ; Debug chain
07d6 ; --------------------------------------------------------------------------------------
07d6 0001 0004 | | .DBGLEN 0x0001,0x0004
07d8 05eb 05f2 | | .DBGLNO 0x05eb,0x05f2,0x05f7,0x0603,0x0612
07dd 0000 0000 | | .BLANK 0000[0x23]