|
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: 3072 (0xc00)
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 03e0 | | .CONST 0x03e0 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0026 | & | .CONST 0x0026 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0013 | | .CONST 0x0013 ; Number of locals 000b INIT_0008: 000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 000d 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 000f 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 0011 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 0013 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0015 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0017 00bf | | Action Accept_Activation 0018 029d 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call 001a 1d0d | | Execute_Immediate Reference_Lex_1,0xd 001b 00c7 | | Action Elaborate_Subprogram 001c 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001d 00c7 | | Action Elaborate_Subprogram 001e 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001f 00c7 | | Action Elaborate_Subprogram 0020 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0021 00c7 | | Action Elaborate_Subprogram 0022 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0023 00c7 | | Action Elaborate_Subprogram 0024 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0025 00c7 | | Action Elaborate_Subprogram 0026 BODY_0008: 0026 00bc | | Action Signal_Activated 0027 00bb | | Action Signal_Completion 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 0036 | 6 | .CONST 0x0036 ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0007 | | .CONST 0x0007 ; Number of locals 002b INIT_0028: 002b e002 | | Load 0x0,0x2 002c 0007 | | Action Break_Optional 002d e003 | | Load 0x0,0x3 002e 0007 | | Action Break_Optional 002f e004 | | Load 0x0,0x4 0030 0322 | " | Declare_Variable Record 0031 e005 | | Load 0x0,0x5 0032 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0033 e006 | | Load 0x0,0x6 0034 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 0036 BODY_0028: 0036 e5ff | | Load 0x2,-0x1 0037 8007 | | Call 0x0,0x7 0038 8407 | | Call 0x2,0x7 0039 e5ff | | Load 0x2,-0x1 003a 8008 | | Call 0x0,0x8 003b e5ff | | Load 0x2,-0x1 003c 8009 | | Call 0x0,0x9 003d e402 | | Load 0x2,0x2 003e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 003f 0000 | | .XXX[0x1] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0046 | F | .CONST 0x0046 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0003 | | .CONST 0x0003 ; Number of locals 0043 INIT_0040: 0043 e00a | | Load 0x0,0xa 0044 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call 0046 BODY_0040: 0046 e5fe | | Load 0x2,-0x2 0047 e002 | | Load 0x0,0x2 0048 022f | / | Execute Access,Equal 0049 6801 |h | Jump_Zero 0x4b 004a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 004b e5ff | | Load 0x2,-0x1 004c 8007 | | Call 0x0,0x7 004d 8403 | | Call 0x2,0x3 004e e5ff | | Load 0x2,-0x1 004f 8008 | | Call 0x0,0x8 0050 e5ff | | Load 0x2,-0x1 0051 8009 | | Call 0x0,0x9 0052 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0053 0000 0000 | | .BLANK 0000[0x5] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 0060 | ` | .CONST 0x0060 ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0004 | | .CONST 0x0004 ; Number of locals 005b INIT_0058: 005b e006 | | Load 0x0,0x6 005c 0007 | | Action Break_Optional 005d e002 | | Load 0x0,0x2 005e 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call 0060 BODY_0058: 0060 e5ff | | Load 0x2,-0x1 0061 8007 | | Call 0x0,0x7 0062 8404 | | Call 0x2,0x4 0063 e5ff | | Load 0x2,-0x1 0064 8008 | | Call 0x0,0x8 0065 e5ff | | Load 0x2,-0x1 0066 8009 | | Call 0x0,0x9 0067 00da | | Load_Top At_Offset_2 0068 7002 |p | Jump_Nonzero 0x6b 0069 e002 | | Load 0x0,0x2 006a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 006b 00d9 | | Load_Top At_Offset_1 006c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 006d 0000 0000 | | .XXX[0x3] 006f 0000 | | 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0079 | y | .CONST 0x0079 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0004 | | .CONST 0x0004 ; Number of locals 0073 INIT_0070: 0073 e00b | | Load 0x0,0xb 0074 0007 | | Action Break_Optional 0075 e004 | | Load 0x0,0x4 0076 0322 | " | Declare_Variable Record 0077 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call 0079 BODY_0070: 0079 e5ff | | Load 0x2,-0x1 007a 8007 | | Call 0x0,0x7 007b 8404 | | Call 0x2,0x4 007c e5ff | | Load 0x2,-0x1 007d 8008 | | Call 0x0,0x8 007e e5ff | | Load 0x2,-0x1 007f 8009 | | Call 0x0,0x9 0080 00d9 | | Load_Top At_Offset_1 0081 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0082 0000 0000 | | .BLANK 0000[0x6] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008d | | .CONST 0x008d ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0002 | | .CONST 0x0002 ; Number of locals 008b INIT_0088: 008b 029f 0283 | | Declare_Subprogram INIT_0280,For_Call 008d BODY_0088: 008d 00db | | Load_Top At_Offset_3 008e 8007 | | Call 0x0,0x7 008f 8402 | | Call 0x2,0x2 0090 00db | | Load_Top At_Offset_3 0091 8008 | | Call 0x0,0x8 0092 00db | | Load_Top At_Offset_3 0093 8009 | | Call 0x0,0x9 0094 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0095 0000 0000 | | .XXX[0x3] 0097 0000 | | 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 00cf | | Action Mark_Auxiliary 009c 00db | | Load_Top At_Offset_3 009d 0227 | ' | Execute Access,All_Reference 009e 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 009f 0227 | ' | Execute Access,All_Reference 00a0 01d9 | | Execute Vector,Reverse_Bounds 00a1 0263 | c | Execute Discrete,Above_Bound 00a2 7017 |p | Jump_Nonzero 0xba 00a3 00d8 | | Load_Top At_Offset_0 00a4 e5ff | | Load 0x2,-0x1 00a5 0227 | ' | Execute Access,All_Reference 00a6 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 00a7 0227 | ' | Execute Access,All_Reference 00a8 01d5 | | Execute Vector,Field_Reference 00a9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00aa e5fe | | Load 0x2,-0x2 00ab 017f | | Execute Record,Equal 00ac 680b |h | Jump_Zero 0xb8 00ad 00d8 | | Load_Top At_Offset_0 00ae e5ff | | Load 0x2,-0x1 00af 0227 | ' | Execute Access,All_Reference 00b0 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 00b1 0227 | ' | Execute Access,All_Reference 00b2 01d5 | | Execute Vector,Field_Reference 00b3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00b4 a5fd | | Store_Unchecked 0x2,-0x3 00b5 4801 |H | Short_Literal 0x1 00b6 a5fc | | Store_Unchecked 0x2,-0x4 00b7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00b8 00c8 | | Action Pop_Auxiliary_Range 00b9 3fe9 |? | Loop_Increasing 0xa3 00ba 00ce | | Action Pop_Auxiliary 00bb 4800 |H | Short_Literal 0x0 00bc a5fd | | Store_Unchecked 0x2,-0x3 00bd 4800 |H | Short_Literal 0x0 00be a5fc | | Store_Unchecked 0x2,-0x4 00bf 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00d2 | | .CONST 0x00d2 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0008 | | .CONST 0x0008 ; Number of locals 00c3 INIT_00c0: 00c3 e002 | | Load 0x0,0x2 00c4 0007 | | Action Break_Optional 00c5 e00c | | Load 0x0,0xc 00c6 02ff | | Declare_Variable Variant_Record 00c7 00d8 | | Load_Top At_Offset_0 00c8 1c00 | | Execute_Immediate Run_Utility,0x0 00c9 e00a | | Load 0x0,0xa 00ca 0007 | | Action Break_Optional 00cb e006 | | Load 0x0,0x6 00cc 029f 02a3 | | Declare_Subprogram INIT_02a0,For_Call 00ce 029f 033b | ;| Declare_Subprogram INIT_0338,For_Call 00d0 029f 0383 | | Declare_Subprogram INIT_0380,For_Call 00d2 BODY_00c0: 00d2 e00d | | Load 0x0,0xd 00d3 0322 | " | Declare_Variable Record 00d4 482f |H/ | Short_Literal 0x2f 00d5 00d9 | | Load_Top At_Offset_1 00d6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00d7 e00d | | Load 0x0,0xd 00d8 012c | , | Execute Any,Size 00d9 09fb | | Execute_Immediate Binary_Scale,-0x5 00da 00d9 | | Load_Top At_Offset_1 00db 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00dc 4800 |H | Short_Literal 0x0 00dd 00d9 | | Load_Top At_Offset_1 00de 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00df e5fe | | Load 0x2,-0x2 00e0 00d9 | | Load_Top At_Offset_1 00e1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00e2 e5ff | | Load 0x2,-0x1 00e3 e00e | | Load 0x0,0xe 00e4 a00f | | Store_Unchecked 0x0,0xf 00e5 e010 | | Load 0x0,0x10 00e6 e011 | | Load 0x0,0x11 00e7 a012 | | Store_Unchecked 0x0,0x12 00e8 8013 | | Call 0x0,0x13 00e9 e006 | | Load 0x0,0x6 00ea e403 | | Load 0x2,0x3 00eb 4800 |H | Short_Literal 0x0 00ec 4800 |H | Short_Literal 0x0 00ed 482f |H/ | Short_Literal 0x2f 00ee e5ff | | Load 0x2,-0x1 00ef e014 | | Load 0x0,0x14 00f0 a015 | | Store_Unchecked 0x0,0x15 00f1 a016 | | Store_Unchecked 0x0,0x16 00f2 8017 | | Call 0x0,0x17 00f3 00d1 | | Pop_Control Pop_Count_1 00f4 c405 | | Store 0x2,0x5 00f5 00db | | Load_Top At_Offset_3 00f6 7005 |p | Jump_Nonzero 0xfc 00f7 e002 | | Load 0x0,0x2 00f8 a5fd | | Store_Unchecked 0x2,-0x3 00f9 4800 |H | Short_Literal 0x0 00fa a5fc | | Store_Unchecked 0x2,-0x4 00fb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00fc 8406 | | Call 0x2,0x6 00fd e403 | | Load 0x2,0x3 00fe 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 00ff 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 0100 0c01 | | Execute_Immediate Greater_Equal,0x1 0101 6810 |h | Jump_Zero 0x112 0102 8407 | | Call 0x2,0x7 0103 e402 | | Load 0x2,0x2 0104 0229 | ) | Execute Access,All_Read 0105 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0106 0229 | ) | Execute Access,All_Read 0107 00d8 | | Load_Top At_Offset_0 0108 e5ff | | Load 0x2,-0x1 0109 e018 | | Load 0x0,0x18 010a e019 | | Load 0x0,0x19 010b e01a | | Load 0x0,0x1a 010c a01b | | Store_Unchecked 0x0,0x1b 010d e01c | | Load 0x0,0x1c 010e e01d | | Load 0x0,0x1d 010f a01e | | Store_Unchecked 0x0,0x1e 0110 801f | | Call 0x0,0x1f 0111 00d2 | | Pop_Control Pop_Count_2 0112 e403 | | Load 0x2,0x3 0113 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 0114 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 0115 0c01 | | Execute_Immediate Greater_Equal,0x1 0116 6812 |h | Jump_Zero 0x129 0117 8408 | | Call 0x2,0x8 0118 e402 | | Load 0x2,0x2 0119 0229 | ) | Execute Access,All_Read 011a 3c0c |< | Execute Record,Field_Read,Field_Number 0xc 011b 0229 | ) | Execute Access,All_Read 011c 00d8 | | Load_Top At_Offset_0 011d e5ff | | Load 0x2,-0x1 011e e020 | | Load 0x0,0x20 011f e021 | ! | Load 0x0,0x21 0120 e022 | " | Load 0x0,0x22 0121 e023 | # | Load 0x0,0x23 0122 a024 | $ | Store_Unchecked 0x0,0x24 0123 a025 | % | Store_Unchecked 0x0,0x25 0124 e026 | & | Load 0x0,0x26 0125 e027 | ' | Load 0x0,0x27 0126 a028 | ( | Store_Unchecked 0x0,0x28 0127 8029 | ) | Call 0x0,0x29 0128 00d2 | | Pop_Control Pop_Count_2 0129 e5ff | | Load 0x2,-0x1 012a 0227 | ' | Execute Access,All_Reference 012b 3c25 |<% | Execute Record,Field_Read,Field_Number 0x25 012c a404 | | Store_Unchecked 0x2,0x4 012d 00cf | | Action Mark_Auxiliary 012e 7815 |x | Jump 0x144 012f e404 | | Load 0x2,0x4 0130 0227 | ' | Execute Access,All_Reference 0131 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0132 e02a | * | Load 0x0,0x2a 0133 022e | . | Execute Access,Not_Equal 0134 680a |h | Jump_Zero 0x13f 0135 e404 | | Load 0x2,0x4 0136 0227 | ' | Execute Access,All_Reference 0137 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0138 e402 | | Load 0x2,0x2 0139 e5ff | | Load 0x2,-0x1 013a e404 | | Load 0x2,0x4 013b 0227 | ' | Execute Access,All_Reference 013c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 013d 802b | + | Call 0x0,0x2b 013e 802c | , | Call 0x0,0x2c 013f e404 | | Load 0x2,0x4 0140 0227 | ' | Execute Access,All_Reference 0141 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0142 a404 | | Store_Unchecked 0x2,0x4 0143 00c9 | | Action Pop_Auxiliary_Loop 0144 e404 | | Load 0x2,0x4 0145 77e9 |w | Jump_Nonzero 0x12f 0146 00ce | | Action Pop_Auxiliary 0147 e402 | | Load 0x2,0x2 0148 a5fd | | Store_Unchecked 0x2,-0x3 0149 4801 |H | Short_Literal 0x1 014a a5fc | | Store_Unchecked 0x2,-0x4 014b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 014c 0000 0000 | | .BLANK 0000[0x4] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0155 | U | .CONST 0x0155 ; Address of begin 0151 01aa | | .CONST 0x01aa ; Address of exception handler 0152 0002 | | .CONST 0x0002 ; Number of locals 0153 INIT_0150: 0153 029f 03cb | | Declare_Subprogram INIT_03c8,For_Call 0155 BODY_0150: 0155 e5fe | | Load 0x2,-0x2 0156 01db | | Execute Vector,Length 0157 c403 | | Store 0x2,0x3 0158 e004 | | Load 0x0,0x4 0159 0322 | " | Declare_Variable Record 015a e5ff | | Load 0x2,-0x1 015b 802d | - | Call 0x0,0x2d 015c 00d9 | | Load_Top At_Offset_1 015d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 015e e404 | | Load 0x2,0x4 015f 017d | } | Execute Record,Structure_Write 0160 e403 | | Load 0x2,0x3 0161 e02e | . | Load 0x0,0x2e 0162 0322 | " | Declare_Variable Record 0163 482d |H- | Short_Literal 0x2d 0164 00d9 | | Load_Top At_Offset_1 0165 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0166 e02e | . | Load 0x0,0x2e 0167 012c | , | Execute Any,Size 0168 09fb | | Execute_Immediate Binary_Scale,-0x5 0169 e403 | | Load 0x2,0x3 016a 0a03 | | Execute_Immediate Plus,0x3 016b 09fe | | Execute_Immediate Binary_Scale,-0x2 016c 0273 | s | Execute Discrete,Plus 016d 00d9 | | Load_Top At_Offset_1 016e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 016f 4800 |H | Short_Literal 0x0 0170 00d9 | | Load_Top At_Offset_1 0171 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0172 4800 |H | Short_Literal 0x0 0173 00d9 | | Load_Top At_Offset_1 0174 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0175 4800 |H | Short_Literal 0x0 0176 00d9 | | Load_Top At_Offset_1 0177 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0178 e404 | | Load 0x2,0x4 0179 00d9 | | Load_Top At_Offset_1 017a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 017b e403 | | Load 0x2,0x3 017c 00d9 | | Load_Top At_Offset_1 017d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 017e e5ff | | Load 0x2,-0x1 017f e02f | / | Load 0x0,0x2f 0180 a030 | 0 | Store_Unchecked 0x0,0x30 0181 e031 | 1 | Load 0x0,0x31 0182 e032 | 2 | Load 0x0,0x32 0183 a033 | 3 | Store_Unchecked 0x0,0x33 0184 8034 | 4 | Call 0x0,0x34 0185 e5fe | | Load 0x2,-0x2 0186 e5ff | | Load 0x2,-0x1 0187 e035 | 5 | Load 0x0,0x35 0188 e036 | 6 | Load 0x0,0x36 0189 e037 | 7 | Load 0x0,0x37 018a a038 | 8 | Store_Unchecked 0x0,0x38 018b e039 | 9 | Load 0x0,0x39 018c e03a | : | Load 0x0,0x3a 018d a03b | ; | Store_Unchecked 0x0,0x3b 018e 803c | < | Call 0x0,0x3c 018f e5ff | | Load 0x2,-0x1 0190 0227 | ' | Execute Access,All_Reference 0191 3c2b |<+ | Execute Record,Field_Read,Field_Number 0x2b 0192 e405 | | Load 0x2,0x5 0193 0272 | r | Execute Discrete,Minus 0194 e5ff | | Load 0x2,-0x1 0195 0227 | ' | Execute Access,All_Reference 0196 382b |8+ | Execute Record,Field_Write,Field_Number 0x2b 0197 e006 | | Load 0x0,0x6 0198 e002 | | Load 0x0,0x2 0199 e404 | | Load 0x2,0x4 019a e5ff | | Load 0x2,-0x1 019b 8213 | | Call 0x1,0x13 019c c402 | | Store 0x2,0x2 019d c406 | | Store 0x2,0x6 019e e5ff | | Load 0x2,-0x1 019f 0227 | ' | Execute Access,All_Reference 01a0 3c2b |<+ | Execute Record,Field_Read,Field_Number 0x2b 01a1 e405 | | Load 0x2,0x5 01a2 0273 | s | Execute Discrete,Plus 01a3 e5ff | | Load 0x2,-0x1 01a4 0227 | ' | Execute Access,All_Reference 01a5 382b |8+ | Execute Record,Field_Write,Field_Number 0x2b 01a6 e406 | | Load 0x2,0x6 01a7 7001 |p | Jump_Nonzero 0x1a9 01a8 8602 | | Call 0x3,0x2 01a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01aa TRAP_0150: 01aa 0007 | | Action Break_Optional 01ab e5ff | | Load 0x2,-0x1 01ac 8008 | | Call 0x0,0x8 01ad 00d8 | | Load_Top At_Offset_0 01ae 0101 | | Execute Exception,Reraise 01af 0000 | | .XXX[0x1] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0216 | | .CONST 0x0216 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 00cf | | Action Mark_Auxiliary 01b4 7815 |x | Jump 0x1ca 01b5 e402 | | Load 0x2,0x2 01b6 0227 | ' | Execute Access,All_Reference 01b7 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 01b8 e02a | * | Load 0x0,0x2a 01b9 022e | . | Execute Access,Not_Equal 01ba 680a |h | Jump_Zero 0x1c5 01bb e402 | | Load 0x2,0x2 01bc 0227 | ' | Execute Access,All_Reference 01bd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01be e5fe | | Load 0x2,-0x2 01bf e5ff | | Load 0x2,-0x1 01c0 e402 | | Load 0x2,0x2 01c1 0227 | ' | Execute Access,All_Reference 01c2 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 01c3 802b | + | Call 0x0,0x2b 01c4 802c | , | Call 0x0,0x2c 01c5 e402 | | Load 0x2,0x2 01c6 0227 | ' | Execute Access,All_Reference 01c7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01c8 a402 | | Store_Unchecked 0x2,0x2 01c9 00c9 | | Action Pop_Auxiliary_Loop 01ca e402 | | Load 0x2,0x2 01cb 77e9 |w | Jump_Nonzero 0x1b5 01cc 00ce | | Action Pop_Auxiliary 01cd e03d | = | Load 0x0,0x3d 01ce 0322 | " | Declare_Variable Record 01cf 482e |H. | Short_Literal 0x2e 01d0 00d9 | | Load_Top At_Offset_1 01d1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01d2 e03d | = | Load 0x0,0x3d 01d3 012c | , | Execute Any,Size 01d4 09fb | | Execute_Immediate Binary_Scale,-0x5 01d5 00d9 | | Load_Top At_Offset_1 01d6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01d7 4800 |H | Short_Literal 0x0 01d8 00d9 | | Load_Top At_Offset_1 01d9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01da e5fe | | Load 0x2,-0x2 01db 0227 | ' | Execute Access,All_Reference 01dc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01dd 00d9 | | Load_Top At_Offset_1 01de 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01df e5ff | | Load 0x2,-0x1 01e0 e03e | > | Load 0x0,0x3e 01e1 a03f | ? | Store_Unchecked 0x0,0x3f 01e2 e040 | @ | Load 0x0,0x40 01e3 e041 | A | Load 0x0,0x41 01e4 a042 | B | Store_Unchecked 0x0,0x42 01e5 8013 | | Call 0x0,0x13 01e6 e5fe | | Load 0x2,-0x2 01e7 0229 | ) | Execute Access,All_Read 01e8 00d8 | | Load_Top At_Offset_0 01e9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01ea e043 | C | Load 0x0,0x43 01eb e044 | D | Load 0x0,0x44 01ec a045 | E | Store_Unchecked 0x0,0x45 01ed 8046 | F | Call 0x0,0x46 01ee 00d9 | | Load_Top At_Offset_1 01ef 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01f0 00d1 | | Pop_Control Pop_Count_1 01f1 e5fe | | Load 0x2,-0x2 01f2 0227 | ' | Execute Access,All_Reference 01f3 3c0c |< | Execute Record,Field_Read,Field_Number 0xc 01f4 680b |h | Jump_Zero 0x200 01f5 e5fe | | Load 0x2,-0x2 01f6 0229 | ) | Execute Access,All_Read 01f7 00d8 | | Load_Top At_Offset_0 01f8 3c0c |< | Execute Record,Field_Read,Field_Number 0xc 01f9 e047 | G | Load 0x0,0x47 01fa e048 | H | Load 0x0,0x48 01fb a049 | I | Store_Unchecked 0x0,0x49 01fc 8046 | F | Call 0x0,0x46 01fd 00d9 | | Load_Top At_Offset_1 01fe 380c |8 | Execute Record,Field_Write,Field_Number 0xc 01ff 00d1 | | Pop_Control Pop_Count_1 0200 e5fe | | Load 0x2,-0x2 0201 0227 | ' | Execute Access,All_Reference 0202 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0203 680b |h | Jump_Zero 0x20f 0204 e5fe | | Load 0x2,-0x2 0205 0229 | ) | Execute Access,All_Read 0206 00d8 | | Load_Top At_Offset_0 0207 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0208 e04a | J | Load 0x0,0x4a 0209 e04b | K | Load 0x0,0x4b 020a a04c | L | Store_Unchecked 0x0,0x4c 020b 8046 | F | Call 0x0,0x46 020c 00d9 | | Load_Top At_Offset_1 020d 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 020e 00d1 | | Pop_Control Pop_Count_1 020f e5fe | | Load 0x2,-0x2 0210 e04d | M | Load 0x0,0x4d 0211 e04e | N | Load 0x0,0x4e 0212 a04f | O | Store_Unchecked 0x0,0x4f 0213 8046 | F | Call 0x0,0x46 0214 c5fe | | Store 0x2,-0x2 0215 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0216 TRAP_01b0: 0216 0007 | | Action Break_Optional 0217 e5ff | | Load 0x2,-0x1 0218 8008 | | Call 0x0,0x8 0219 00d8 | | Load_Top At_Offset_0 021a 0101 | | Execute Exception,Reraise 021b 0000 0000 | | .BLANK 0000[0x5] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 022b | + | .CONST 0x022b ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 e006 | | Load 0x0,0x6 0224 e002 | | Load 0x0,0x2 0225 e5fe | | Load 0x2,-0x2 0226 e5ff | | Load 0x2,-0x1 0227 8213 | | Call 0x1,0x13 0228 c403 | | Store 0x2,0x3 0229 c402 | | Store 0x2,0x2 022a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 022b TRAP_0220: 022b 0007 | | Action Break_Optional 022c e5ff | | Load 0x2,-0x1 022d 8008 | | Call 0x0,0x8 022e 00d8 | | Load_Top At_Offset_0 022f 0101 | | Execute Exception,Reraise 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0278 | x | .CONST 0x0278 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 e5fe | | Load 0x2,-0x2 0234 01db | | Execute Vector,Length 0235 c402 | | Store 0x2,0x2 0236 e004 | | Load 0x0,0x4 0237 0322 | " | Declare_Variable Record 0238 e5ff | | Load 0x2,-0x1 0239 802d | - | Call 0x0,0x2d 023a 00d9 | | Load_Top At_Offset_1 023b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 023c e403 | | Load 0x2,0x3 023d 017d | } | Execute Record,Structure_Write 023e e402 | | Load 0x2,0x2 023f e02e | . | Load 0x0,0x2e 0240 0322 | " | Declare_Variable Record 0241 482d |H- | Short_Literal 0x2d 0242 00d9 | | Load_Top At_Offset_1 0243 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0244 e02e | . | Load 0x0,0x2e 0245 012c | , | Execute Any,Size 0246 09fb | | Execute_Immediate Binary_Scale,-0x5 0247 e402 | | Load 0x2,0x2 0248 0a03 | | Execute_Immediate Plus,0x3 0249 00d8 | | Load_Top At_Offset_0 024a e003 | | Load 0x0,0x3 024b 0260 | ` | Execute Discrete,In_Type 024c 7001 |p | Jump_Nonzero 0x24e 024d 0801 | | Execute_Immediate Raise,0x1 024e 09fe | | Execute_Immediate Binary_Scale,-0x2 024f 0273 | s | Execute Discrete,Plus 0250 00d9 | | Load_Top At_Offset_1 0251 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0252 4800 |H | Short_Literal 0x0 0253 00d9 | | Load_Top At_Offset_1 0254 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0255 4800 |H | Short_Literal 0x0 0256 00d9 | | Load_Top At_Offset_1 0257 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0258 4800 |H | Short_Literal 0x0 0259 00d9 | | Load_Top At_Offset_1 025a 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 025b e402 | | Load 0x2,0x2 025c 00d8 | | Load_Top At_Offset_0 025d e003 | | Load 0x0,0x3 025e 0260 | ` | Execute Discrete,In_Type 025f 7001 |p | Jump_Nonzero 0x261 0260 0801 | | Execute_Immediate Raise,0x1 0261 00d9 | | Load_Top At_Offset_1 0262 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0263 e403 | | Load 0x2,0x3 0264 00d9 | | Load_Top At_Offset_1 0265 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0266 e5ff | | Load 0x2,-0x1 0267 e02f | / | Load 0x0,0x2f 0268 a030 | 0 | Store_Unchecked 0x0,0x30 0269 e031 | 1 | Load 0x0,0x31 026a e032 | 2 | Load 0x0,0x32 026b a033 | 3 | Store_Unchecked 0x0,0x33 026c 8034 | 4 | Call 0x0,0x34 026d e5fe | | Load 0x2,-0x2 026e e5ff | | Load 0x2,-0x1 026f e035 | 5 | Load 0x0,0x35 0270 e036 | 6 | Load 0x0,0x36 0271 e037 | 7 | Load 0x0,0x37 0272 a038 | 8 | Store_Unchecked 0x0,0x38 0273 e039 | 9 | Load 0x0,0x39 0274 e03a | : | Load 0x0,0x3a 0275 a03b | ; | Store_Unchecked 0x0,0x3b 0276 803c | < | Call 0x0,0x3c 0277 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0278 TRAP_0230: 0278 0007 | | Action Break_Optional 0279 e5ff | | Load 0x2,-0x1 027a 8008 | | Call 0x0,0x8 027b 00d8 | | Load_Top At_Offset_0 027c 0101 | | Execute Exception,Reraise 027d 0000 0000 | | .XXX[0x3] 027f 0000 | | 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 029b | | .CONST 0x029b ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 e03d | = | Load 0x0,0x3d 0284 0322 | " | Declare_Variable Record 0285 482e |H. | Short_Literal 0x2e 0286 00d9 | | Load_Top At_Offset_1 0287 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0288 e03d | = | Load 0x0,0x3d 0289 012c | , | Execute Any,Size 028a 09fb | | Execute_Immediate Binary_Scale,-0x5 028b 00d9 | | Load_Top At_Offset_1 028c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 028d 4800 |H | Short_Literal 0x0 028e 00d9 | | Load_Top At_Offset_1 028f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0290 e5fe | | Load 0x2,-0x2 0291 00d9 | | Load_Top At_Offset_1 0292 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0293 e5ff | | Load 0x2,-0x1 0294 e03e | > | Load 0x0,0x3e 0295 a03f | ? | Store_Unchecked 0x0,0x3f 0296 e040 | @ | Load 0x0,0x40 0297 e041 | A | Load 0x0,0x41 0298 a042 | B | Store_Unchecked 0x0,0x42 0299 8013 | | Call 0x0,0x13 029a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 029b TRAP_0280: 029b 0007 | | Action Break_Optional 029c e5ff | | Load 0x2,-0x1 029d 8008 | | Call 0x0,0x8 029e 00d8 | | Load_Top At_Offset_0 029f 0101 | | Execute Exception,Reraise 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a3 | | .CONST 0x02a3 ; Address of begin 02a1 0301 | | .CONST 0x0301 ; Address of exception handler 02a2 0001 | | .CONST 0x0001 ; Number of locals 02a3 BODY_02a0: 02a3 INIT_02a0: 02a3 e050 | P | Load 0x0,0x50 02a4 0322 | " | Declare_Variable Record 02a5 e051 | Q | Load 0x0,0x51 02a6 00d9 | | Load_Top At_Offset_1 02a7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02a8 e5fe | | Load 0x2,-0x2 02a9 00d9 | | Load_Top At_Offset_1 02aa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02ab e403 | | Load 0x2,0x3 02ac 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 02ad 3c0c |< | Execute Record,Field_Read,Field_Number 0xc 02ae 00d9 | | Load_Top At_Offset_1 02af 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02b0 00d8 | | Load_Top At_Offset_0 02b1 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8 02b2 e403 | | Load 0x2,0x3 02b3 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 02b4 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 02b5 09f8 | | Execute_Immediate Binary_Scale,-0x8 02b6 00d8 | | Load_Top At_Offset_0 02b7 e052 | R | Load 0x0,0x52 02b8 0260 | ` | Execute Discrete,In_Type 02b9 7001 |p | Jump_Nonzero 0x2bb 02ba 0801 | | Execute_Immediate Raise,0x1 02bb 00d9 | | Load_Top At_Offset_1 02bc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02bd e403 | | Load 0x2,0x3 02be 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 02bf 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 02c0 4900 |I | Short_Literal 0x100 02c1 026f | o | Execute Discrete,Remainder 02c2 00d8 | | Load_Top At_Offset_0 02c3 e052 | R | Load 0x0,0x52 02c4 0260 | ` | Execute Discrete,In_Type 02c5 7001 |p | Jump_Nonzero 0x2c7 02c6 0801 | | Execute_Immediate Raise,0x1 02c7 00d0 | | Action Swap_Control 02c8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02c9 e403 | | Load 0x2,0x3 02ca 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 02cb 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 02cc 00d9 | | Load_Top At_Offset_1 02cd 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 02ce e403 | | Load 0x2,0x3 02cf 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 02d0 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 02d1 00d9 | | Load_Top At_Offset_1 02d2 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 02d3 e403 | | Load 0x2,0x3 02d4 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 02d5 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 02d6 00d9 | | Load_Top At_Offset_1 02d7 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 02d8 e403 | | Load 0x2,0x3 02d9 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 02da 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 02db 00d9 | | Load_Top At_Offset_1 02dc 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 02dd e403 | | Load 0x2,0x3 02de 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 02df 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 02e0 8053 | S | Call 0x0,0x53 02e1 00d9 | | Load_Top At_Offset_1 02e2 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 02e3 e403 | | Load 0x2,0x3 02e4 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 02e5 3c10 |< | Execute Record,Field_Read,Field_Number 0x10 02e6 00d9 | | Load_Top At_Offset_1 02e7 380d |8 | Execute Record,Field_Write,Field_Number 0xd 02e8 e403 | | Load 0x2,0x3 02e9 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 02ea 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 02eb 00d9 | | Load_Top At_Offset_1 02ec 380e |8 | Execute Record,Field_Write,Field_Number 0xe 02ed e403 | | Load 0x2,0x3 02ee 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 02ef 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 02f0 00d9 | | Load_Top At_Offset_1 02f1 380a |8 | Execute Record,Field_Write,Field_Number 0xa 02f2 e403 | | Load 0x2,0x3 02f3 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 02f4 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 02f5 00d9 | | Load_Top At_Offset_1 02f6 380b |8 | Execute Record,Field_Write,Field_Number 0xb 02f7 e054 | T | Load 0x0,0x54 02f8 00d9 | | Load_Top At_Offset_1 02f9 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 02fa e055 | U | Load 0x0,0x55 02fb 00d9 | | Load_Top At_Offset_1 02fc 380c |8 | Execute Record,Field_Write,Field_Number 0xc 02fd e002 | | Load 0x0,0x2 02fe 03b6 | | Declare_Variable Access,By_Allocation,With_Value 02ff a402 | | Store_Unchecked 0x2,0x2 0300 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0301 TRAP_02a0: 0301 0007 | | Action Break_Optional 0302 e403 | | Load 0x2,0x3 0303 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 0304 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 0305 e056 | V | Load 0x0,0x56 0306 012c | , | Execute Any,Size 0307 0271 | q | Execute Discrete,Times 0308 09fd | | Execute_Immediate Binary_Scale,-0x3 0309 e403 | | Load 0x2,0x3 030a 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 030b 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 030c e403 | | Load 0x2,0x3 030d 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 030e 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 030f 0272 | r | Execute Discrete,Minus 0310 0a01 | | Execute_Immediate Plus,0x1 0311 00d8 | | Load_Top At_Offset_0 0312 e00b | | Load 0x0,0xb 0313 0260 | ` | Execute Discrete,In_Type 0314 7001 |p | Jump_Nonzero 0x316 0315 0801 | | Execute_Immediate Raise,0x1 0316 e403 | | Load 0x2,0x3 0317 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 0318 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0319 e403 | | Load 0x2,0x3 031a 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 031b 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 031c 0272 | r | Execute Discrete,Minus 031d 0a01 | | Execute_Immediate Plus,0x1 031e 00d8 | | Load_Top At_Offset_0 031f e00b | | Load 0x0,0xb 0320 0260 | ` | Execute Discrete,In_Type 0321 7001 |p | Jump_Nonzero 0x323 0322 0801 | | Execute_Immediate Raise,0x1 0323 0271 | q | Execute Discrete,Times 0324 e057 | W | Load 0x0,0x57 0325 012c | , | Execute Any,Size 0326 0271 | q | Execute Discrete,Times 0327 09fd | | Execute_Immediate Binary_Scale,-0x3 0328 0273 | s | Execute Discrete,Plus 0329 00d8 | | Load_Top At_Offset_0 032a e00b | | Load 0x0,0xb 032b 0260 | ` | Execute Discrete,In_Type 032c 7001 |p | Jump_Nonzero 0x32e 032d 0801 | | Execute_Immediate Raise,0x1 032e e5ff | | Load 0x2,-0x1 032f 8058 | X | Call 0x0,0x58 0330 00d8 | | Load_Top At_Offset_0 0331 0101 | | Execute Exception,Reraise 0332 0000 0000 | | .BLANK 0000[0x6] 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 033b | ; | .CONST 0x033b ; Address of begin 0339 0348 | H | .CONST 0x0348 ; Address of exception handler 033a 0001 | | .CONST 0x0001 ; Number of locals 033b BODY_0338: 033b INIT_0338: 033b 4801 |H | Short_Literal 0x1 033c e403 | | Load 0x2,0x3 033d 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 033e 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 033f e054 | T | Load 0x0,0x54 0340 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 0341 00d8 | | Load_Top At_Offset_0 0342 0227 | ' | Execute Access,All_Reference 0343 1c00 | | Execute_Immediate Run_Utility,0x0 0344 e402 | | Load 0x2,0x2 0345 0227 | ' | Execute Access,All_Reference 0346 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0347 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0348 TRAP_0338: 0348 0007 | | Action Break_Optional 0349 e403 | | Load 0x2,0x3 034a 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 034b 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 034c e056 | V | Load 0x0,0x56 034d 012c | , | Execute Any,Size 034e 0271 | q | Execute Discrete,Times 034f 09fd | | Execute_Immediate Binary_Scale,-0x3 0350 e403 | | Load 0x2,0x3 0351 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 0352 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 0353 e403 | | Load 0x2,0x3 0354 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 0355 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 0356 0272 | r | Execute Discrete,Minus 0357 0a01 | | Execute_Immediate Plus,0x1 0358 00d8 | | Load_Top At_Offset_0 0359 e00b | | Load 0x0,0xb 035a 0260 | ` | Execute Discrete,In_Type 035b 7001 |p | Jump_Nonzero 0x35d 035c 0801 | | Execute_Immediate Raise,0x1 035d e403 | | Load 0x2,0x3 035e 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 035f 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0360 e403 | | Load 0x2,0x3 0361 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 0362 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0363 0272 | r | Execute Discrete,Minus 0364 0a01 | | Execute_Immediate Plus,0x1 0365 00d8 | | Load_Top At_Offset_0 0366 e00b | | Load 0x0,0xb 0367 0260 | ` | Execute Discrete,In_Type 0368 7001 |p | Jump_Nonzero 0x36a 0369 0801 | | Execute_Immediate Raise,0x1 036a 0271 | q | Execute Discrete,Times 036b e057 | W | Load 0x0,0x57 036c 012c | , | Execute Any,Size 036d 0271 | q | Execute Discrete,Times 036e 09fd | | Execute_Immediate Binary_Scale,-0x3 036f 0273 | s | Execute Discrete,Plus 0370 00d8 | | Load_Top At_Offset_0 0371 e00b | | Load 0x0,0xb 0372 0260 | ` | Execute Discrete,In_Type 0373 7001 |p | Jump_Nonzero 0x375 0374 0801 | | Execute_Immediate Raise,0x1 0375 e5ff | | Load 0x2,-0x1 0376 8058 | X | Call 0x0,0x58 0377 00d8 | | Load_Top At_Offset_0 0378 0101 | | Execute Exception,Reraise 0379 0000 0000 | | .BLANK 0000[0x7] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 0383 | | .CONST 0x0383 ; Address of begin 0381 03a2 | | .CONST 0x03a2 ; Address of exception handler 0382 0001 | | .CONST 0x0001 ; Number of locals 0383 BODY_0380: 0383 INIT_0380: 0383 e403 | | Load 0x2,0x3 0384 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 0385 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 0386 e403 | | Load 0x2,0x3 0387 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 0388 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 0389 e403 | | Load 0x2,0x3 038a 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 038b 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 038c 00d8 | | Load_Top At_Offset_0 038d e052 | R | Load 0x0,0x52 038e 0260 | ` | Execute Discrete,In_Type 038f 7001 |p | Jump_Nonzero 0x391 0390 0801 | | Execute_Immediate Raise,0x1 0391 e403 | | Load 0x2,0x3 0392 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 0393 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0394 00d8 | | Load_Top At_Offset_0 0395 e052 | R | Load 0x0,0x52 0396 0260 | ` | Execute Discrete,In_Type 0397 7001 |p | Jump_Nonzero 0x399 0398 0801 | | Execute_Immediate Raise,0x1 0399 e055 | U | Load 0x0,0x55 039a 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 039b 00d8 | | Load_Top At_Offset_0 039c 0227 | ' | Execute Access,All_Reference 039d 1c00 | | Execute_Immediate Run_Utility,0x0 039e e402 | | Load 0x2,0x2 039f 0227 | ' | Execute Access,All_Reference 03a0 380c |8 | Execute Record,Field_Write,Field_Number 0xc 03a1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03a2 TRAP_0380: 03a2 0007 | | Action Break_Optional 03a3 e403 | | Load 0x2,0x3 03a4 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 03a5 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 03a6 e403 | | Load 0x2,0x3 03a7 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 03a8 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 03a9 0272 | r | Execute Discrete,Minus 03aa 0a01 | | Execute_Immediate Plus,0x1 03ab 00d8 | | Load_Top At_Offset_0 03ac e00b | | Load 0x0,0xb 03ad 0260 | ` | Execute Discrete,In_Type 03ae 7001 |p | Jump_Nonzero 0x3b0 03af 0801 | | Execute_Immediate Raise,0x1 03b0 e403 | | Load 0x2,0x3 03b1 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 03b2 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 03b3 e403 | | Load 0x2,0x3 03b4 2623 |&# | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x23 03b5 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 03b6 0272 | r | Execute Discrete,Minus 03b7 0a01 | | Execute_Immediate Plus,0x1 03b8 00d8 | | Load_Top At_Offset_0 03b9 e00b | | Load 0x0,0xb 03ba 0260 | ` | Execute Discrete,In_Type 03bb 7001 |p | Jump_Nonzero 0x3bd 03bc 0801 | | Execute_Immediate Raise,0x1 03bd 0271 | q | Execute Discrete,Times 03be 00d8 | | Load_Top At_Offset_0 03bf e00b | | Load 0x0,0xb 03c0 0260 | ` | Execute Discrete,In_Type 03c1 7001 |p | Jump_Nonzero 0x3c3 03c2 0801 | | Execute_Immediate Raise,0x1 03c3 e5ff | | Load 0x2,-0x1 03c4 8058 | X | Call 0x0,0x58 03c5 00d8 | | Load_Top At_Offset_0 03c6 0101 | | Execute Exception,Reraise 03c7 0000 | | .XXX[0x1] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03d1 | | .CONST 0x03d1 ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0003 | | .CONST 0x0003 ; Number of locals 03cb INIT_03c8: 03cb e00c | | Load 0x0,0xc 03cc 02ff | | Declare_Variable Variant_Record 03cd 00d8 | | Load_Top At_Offset_0 03ce 1c00 | | Execute_Immediate Run_Utility,0x0 03cf e006 | | Load 0x0,0x6 03d0 0007 | | Action Break_Optional 03d1 BODY_03c8: 03d1 e006 | | Load 0x0,0x6 03d2 00da | | Load_Top At_Offset_2 03d3 4801 |H | Short_Literal 0x1 03d4 4800 |H | Short_Literal 0x0 03d5 482f |H/ | Short_Literal 0x2f 03d6 e5ff | | Load 0x2,-0x1 03d7 e014 | | Load 0x0,0x14 03d8 a015 | | Store_Unchecked 0x0,0x15 03d9 a016 | | Store_Unchecked 0x0,0x16 03da 8017 | | Call 0x0,0x17 03db 00d1 | | Pop_Control Pop_Count_1 03dc 0059 | Y | Store_Top Discrete,At_Offset_1 03dd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03de 0000 0000 | | .XXX[0x2] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; Debug Table 03e0 ; -------------------------------------------------------------------------------------- 03e0 0004 0000 | | .DEBUG4 0x0004,0x0000,0x68f6,0x0000,0x0001,0x0012 03e6 000b 042e | .| .DBG4T 0x000b,0x042e,0x8000,0x0000 03ea 0018 0436 | 6| .DBG4T 0x0018,0x0436,0x8000,0x0000 03ee 002b 043f | + ?| .DBG4T 0x002b,0x043f,0x0002,0x0000 03f2 0043 044b | C K| .DBG4T 0x0043,0x044b,0x0001,0x0000 03f6 005b 0454 | [ T| .DBG4T 0x005b,0x0454,0x0002,0x0000 03fa 0073 045f | s _| .DBG4T 0x0073,0x045f,0x0002,0x0000 03fe 008b 0468 | h| .DBG4T 0x008b,0x0468,0x0001,0x0000 0402 009b 046e | n| .DBG4T 0x009b,0x046e,0x0001,0x0000 0406 00c3 0478 | x| .DBG4T 0x00c3,0x0478,0x0001,0x4000 040a 0153 04a6 | S | .DBG4T 0x0153,0x04a6,0x0004,0x0000 040e 01b3 04b3 | | .DBG4T 0x01b3,0x04b3,0x0004,0x4000 0412 0223 04cf | # | .DBG4T 0x0223,0x04cf,0x0004,0x0000 0416 0233 04d4 | 3 | .DBG4T 0x0233,0x04d4,0x0004,0x0000 041a 0283 04dc | | .DBG4T 0x0283,0x04dc,0x0004,0x0000 041e 02a3 04e1 | | .DBG4T 0x02a3,0x04e1,0x0004,0x0000 0422 033b 04e6 | ; | .DBG4T 0x033b,0x04e6,0x0004,0x0000 0426 0383 04eb | | .DBG4T 0x0383,0x04eb,0x0004,0x0000 042a 03cb 04f0 | | .DBG4T 0x03cb,0x04f0,0x0004,0x0000 042e ; -------------------------------------------------------------------------------------- 042e ; Debug chain 042e ; -------------------------------------------------------------------------------------- 042e 0006 0000 | | .DBGLEN 0x0006,0x0000 0430 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015 0436 ; -------------------------------------------------------------------------------------- 0436 ; Debug chain 0436 ; -------------------------------------------------------------------------------------- 0436 0007 0000 | | .DBGLEN 0x0007,0x0000 0438 0018 001a | | .DBGLNO 0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024 043f ; -------------------------------------------------------------------------------------- 043f ; Debug chain 043f ; -------------------------------------------------------------------------------------- 043f 0005 0005 | | .DBGLEN 0x0005,0x0005 0441 002b 002d | + -| .DBGLNO 0x002b,0x002d,0x002f,0x0031,0x0033,0x0036,0x0038,0x0039,0x003b,0x003d 044b ; -------------------------------------------------------------------------------------- 044b ; Debug chain 044b ; -------------------------------------------------------------------------------------- 044b 0001 0006 | | .DBGLEN 0x0001,0x0006 044d 0043 0046 | C F| .DBGLNO 0x0043,0x0046,0x004a,0x004b,0x004d,0x004e,0x0050 0454 ; -------------------------------------------------------------------------------------- 0454 ; Debug chain 0454 ; -------------------------------------------------------------------------------------- 0454 0002 0007 | | .DBGLEN 0x0002,0x0007 0456 005b 005d | [ ]| .DBGLNO 0x005b,0x005d,0x0060,0x0062,0x0063,0x0065,0x0067,0x0069,0x006b 045f ; -------------------------------------------------------------------------------------- 045f ; Debug chain 045f ; -------------------------------------------------------------------------------------- 045f 0002 0005 | | .DBGLEN 0x0002,0x0005 0461 0073 0075 | s u| .DBGLNO 0x0073,0x0075,0x0079,0x007b,0x007c,0x007e,0x0080 0468 ; -------------------------------------------------------------------------------------- 0468 ; Debug chain 0468 ; -------------------------------------------------------------------------------------- 0468 0000 0004 | | .DBGLEN 0x0000,0x0004 046a 008d 008f | | .DBGLNO 0x008d,0x008f,0x0090,0x0092 046e ; -------------------------------------------------------------------------------------- 046e ; Debug chain 046e ; -------------------------------------------------------------------------------------- 046e 0000 0008 | | .DBGLEN 0x0000,0x0008 0470 009c 00a3 | | .DBGLNO 0x009c,0x00a3,0x00ad,0x00b5,0x00b7,0x00bb,0x00bd,0x00bf 0478 ; -------------------------------------------------------------------------------------- 0478 ; Debug chain 0478 ; -------------------------------------------------------------------------------------- 0478 0004 0014 | | .DBGLEN 0x0004,0x0014 047a 00c3 00c5 | | .DBGLNO 0x00c3,0x00c5,0x00c9,0x00cb,0x00d2,0x00e9,0x00f5,0x00f7,0x00f9,0x00fb,0x00fc,0x00fd,0x0102,0x0103,0x0112,0x0117,0x0118,0x0129,0x012f,0x0135,0x013f,0x0144,0x0147,0x0149 0492 0001 0002 | | .XXX[0x14] 0494 0003 0004 | | 0496 0005 0006 | | 0498 0007 0008 | | 049a 0009 000a | | 049c 000b 000c | | 049e 000d 000e | | 04a0 0010 0011 | | 04a2 0012 000f | | 04a4 0013 0014 | | 04a6 ; -------------------------------------------------------------------------------------- 04a6 ; Debug chain 04a6 ; -------------------------------------------------------------------------------------- 04a6 0000 000b | | .DBGLEN 0x0000,0x000b 04a8 0155 0158 | U X| .DBGLNO 0x0155,0x0158,0x0160,0x0185,0x018f,0x0197,0x019e,0x01a6,0x01a8,0x01ab,0x01ad 04b3 ; -------------------------------------------------------------------------------------- 04b3 ; Debug chain 04b3 ; -------------------------------------------------------------------------------------- 04b3 0000 000d | | .DBGLEN 0x0000,0x000d 04b5 01b5 01bb | | .DBGLNO 0x01b5,0x01bb,0x01c5,0x01ca,0x01cd,0x01e6,0x01f1,0x01f5,0x0200,0x0204,0x020f,0x0217,0x0219 04c2 0002 0003 | | .XXX[0xd] 04c4 0004 0001 | | 04c6 0005 0006 | | 04c8 0007 0008 | | 04ca 0009 000a | | 04cc 000b 000c | | 04ce 000d | | 04cf ; -------------------------------------------------------------------------------------- 04cf ; Debug chain 04cf ; -------------------------------------------------------------------------------------- 04cf 0000 0003 | | .DBGLEN 0x0000,0x0003 04d1 0223 022c | # ,| .DBGLNO 0x0223,0x022c,0x022e 04d4 ; -------------------------------------------------------------------------------------- 04d4 ; Debug chain 04d4 ; -------------------------------------------------------------------------------------- 04d4 0000 0006 | | .DBGLEN 0x0000,0x0006 04d6 0233 0236 | 3 6| .DBGLNO 0x0233,0x0236,0x023e,0x026d,0x0279,0x027b 04dc ; -------------------------------------------------------------------------------------- 04dc ; Debug chain 04dc ; -------------------------------------------------------------------------------------- 04dc 0000 0003 | | .DBGLEN 0x0000,0x0003 04de 0283 029c | | .DBGLNO 0x0283,0x029c,0x029e 04e1 ; -------------------------------------------------------------------------------------- 04e1 ; Debug chain 04e1 ; -------------------------------------------------------------------------------------- 04e1 0000 0003 | | .DBGLEN 0x0000,0x0003 04e3 02a3 0302 | | .DBGLNO 0x02a3,0x0302,0x0330 04e6 ; -------------------------------------------------------------------------------------- 04e6 ; Debug chain 04e6 ; -------------------------------------------------------------------------------------- 04e6 0000 0003 | | .DBGLEN 0x0000,0x0003 04e8 033b 0349 | ; I| .DBGLNO 0x033b,0x0349,0x0377 04eb ; -------------------------------------------------------------------------------------- 04eb ; Debug chain 04eb ; -------------------------------------------------------------------------------------- 04eb 0000 0003 | | .DBGLEN 0x0000,0x0003 04ed 0383 03a3 | | .DBGLNO 0x0383,0x03a3,0x03c5 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; Debug chain 04f0 ; -------------------------------------------------------------------------------------- 04f0 0002 0001 | | .DBGLEN 0x0002,0x0001 04f2 03cb 03cf | | .DBGLNO 0x03cb,0x03cf,0x03d1 04f5 0000 0000 | | .BLANK 0000[0x10b]