|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_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 INIT_0030,For_Outer_Call,Visible,Unelaborated 000d 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 000f 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 0011 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0013 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0015 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 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 INIT_0178,For_Outer_Call 0022 029d 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call 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 INIT_01c0,For_Call 0043 BODY_0030: 0043 e402 | | Load 0x2,0x2 0044 7001 |p | Jump_Nonzero 0x46 0045 4507 |E | Exit_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 INIT_0278,For_Call 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_Suprogram New_Top_Offset 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 INIT_02e8,For_Call 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_Suprogram New_Top_Offset 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 INIT_0500,For_Call 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 0x3 012e 00d8 | | Load_Top At_Offset_0 012f e5fa | | Load 0x2,-0x6 0130 017d | } | Execute Record,Structure_Write 0131 4503 |E | Exit_Suprogram New_Top_Offset 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_Value,New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 0x3 01aa 4801 |H | Short_Literal 0x1 01ab a5fc | | Store_Unchecked 0x2,-0x4 01ac 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01ad 4800 |H | Short_Literal 0x0 01ae a5fc | | Store_Unchecked 0x2,-0x4 01af 4503 |E | Exit_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 | | Store_Unchecked 0x0,0x18 01f7 e019 | | Load 0x0,0x19 01f8 e01a | | Load 0x0,0x1a 01f9 a01b | | Store_Unchecked 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 | | Store_Unchecked 0x0,0x1e 020b e01f | | Load 0x0,0x1f 020c a020 | | Store_Unchecked 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 | % | Store_Unchecked 0x0,0x25 0219 e026 | & | Load 0x0,0x26 021a e027 | ' | Load 0x0,0x27 021b a028 | ( | Store_Unchecked 0x0,0x28 021c 8029 | ) | Call 0x0,0x29 021d e404 | | Load 0x2,0x4 021e 4f02 |O | Short_Literal -0xfe 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,-0x1 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 | | Store_Unchecked 0x0,0x1e 023f e01f | | Load 0x0,0x1f 0240 a020 | | Store_Unchecked 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 | % | Store_Unchecked 0x0,0x25 024c e026 | & | Load 0x0,0x26 024d e027 | ' | Load 0x0,0x27 024e a028 | ( | Store_Unchecked 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 | - | Store_Unchecked 0x0,0x2d 026b e02e | . | Load 0x0,0x2e 026c e02f | / | Load 0x0,0x2f 026d a030 | 0 | Store_Unchecked 0x0,0x30 026e 8029 | ) | Call 0x0,0x29 026f 4501 |E | Exit_Suprogram New_Top_Offset 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 INIT_0590,For_Call 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 | Store_Unchecked 0x0,0x33 02c0 e034 | 4 | Load 0x0,0x34 02c1 e035 | 5 | Load 0x0,0x35 02c2 a036 | 6 | Store_Unchecked 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 | : | Store_Unchecked 0x0,0x3a 02d0 e03b | ; | Load 0x0,0x3b 02d1 e03c | < | Load 0x0,0x3c 02d2 a03d | = | Store_Unchecked 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_Suprogram New_Top_Offset 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 | | Store_Unchecked 0x0,0x18 038d e019 | | Load 0x0,0x19 038e e01a | | Load 0x0,0x1a 038f a01b | | Store_Unchecked 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 | - | Store_Unchecked 0x0,0x2d 03e8 e02e | . | Load 0x0,0x2e 03e9 e02f | / | Load 0x0,0x2f 03ea a030 | 0 | Store_Unchecked 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 -0x80 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 | | Store_Unchecked 0x0,0x1e 0420 e01f | | Load 0x0,0x1f 0421 a020 | | Store_Unchecked 0x0,0x20 0422 8021 | ! | Call 0x0,0x21 0423 00c9 | | Action Pop_Auxiliary_Loop 0424 e405 | | Load 0x2,0x5 0425 4f80 |O | Short_Literal -0x80 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 | | Store_Unchecked 0x0,0x1e 0448 e01f | | Load 0x0,0x1f 0449 a020 | | Store_Unchecked 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 | | Store_Unchecked 0x0,0x1e 0473 e01f | | Load 0x0,0x1f 0474 a020 | | Store_Unchecked 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 | | Store_Unchecked 0x0,0x1e 0487 e01f | | Load 0x0,0x1f 0488 a020 | | Store_Unchecked 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 | % | Store_Unchecked 0x0,0x25 0496 e026 | & | Load 0x0,0x26 0497 e027 | ' | Load 0x0,0x27 0498 a028 | ( | Store_Unchecked 0x0,0x28 0499 8029 | ) | Call 0x0,0x29 049a e404 | | Load 0x2,0x4 049b 4f02 |O | Short_Literal -0xfe 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,-0x1 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 | | Store_Unchecked 0x0,0x1e 04c1 e01f | | Load 0x0,0x1f 04c2 a020 | | Store_Unchecked 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 | % | Store_Unchecked 0x0,0x25 04d0 e026 | & | Load 0x0,0x26 04d1 e027 | ' | Load 0x0,0x27 04d2 a028 | ( | Store_Unchecked 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 | - | Store_Unchecked 0x0,0x2d 04f2 e02e | . | Load 0x0,0x2e 04f3 e02f | / | Load 0x0,0x2f 04f4 a030 | 0 | Store_Unchecked 0x0,0x30 04f5 8029 | ) | Call 0x0,0x29 04f6 4501 |E | Exit_Suprogram New_Top_Offset 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 INIT_05d8,For_Call 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 | Store_Unchecked 0x0,0x45 0525 e046 | F | Load 0x0,0x46 0526 e047 | G | Load 0x0,0x47 0527 a048 | H | Store_Unchecked 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 | Store_Unchecked 0x0,0x4b 0532 a04c | L | Store_Unchecked 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 -0xff 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 | Store_Unchecked 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_Suprogram New_Top_Offset 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 | Store_Unchecked 0x0,0x58 0606 e059 | Y | Load 0x0,0x59 0607 e05a | Z | Load 0x0,0x5a 0608 a05b | [ | Store_Unchecked 0x0,0x5b 0609 803e | > | Call 0x0,0x3e 060a 4501 |E | Exit_Suprogram New_Top_Offset 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]