|
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_8344e4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦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 03b0 | | .CONST 0x03b0 ; 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 00b8 | | .CONST 0x00b8 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0043 | C | .CONST 0x0043 ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 00c4 | | Action Make_Default 0030 00c4 | | Action Make_Default 0031 00c4 | | Action Make_Default 0032 00c4 | | Action Make_Default 0033 00c4 | | Action Make_Default 0034 00c4 | | Action Make_Default 0035 00c4 | | Action Make_Default 0036 00c4 | | Action Make_Default 0037 00c4 | | Action Make_Default 0038 00c4 | | Action Make_Default 0039 00c4 | | Action Make_Default 003a 00c4 | | Action Make_Default 003b 00c4 | | Action Make_Default 003c 00c4 | | Action Make_Default 003d 00c4 | | Action Make_Default 003e 00c4 | | Action Make_Default 003f 00c4 | | Action Make_Default 0040 00c4 | | Action Make_Default 0041 00c4 | | Action Make_Default 0042 4803 |H | Short_Literal 0x3 0043 032b | + | Declare_Type Record,Incomplete,Visible 0044 c221 | ! | Store 0x1,0x21 0045 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0047 c242 | B | Store 0x1,0x42 0048 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 004a c222 | " | Store 0x1,0x22 004b 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 004d c223 | # | Store 0x1,0x23 004e 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0050 c224 | $ | Store 0x1,0x24 0051 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0053 c238 | 8 | Store 0x1,0x38 0054 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0056 c239 | 9 | Store 0x1,0x39 0057 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0059 c23a | : | Store 0x1,0x3a 005a 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 005c c23b | ; | Store 0x1,0x3b 005d 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 005f c23c | < | Store 0x1,0x3c 0060 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0062 c23d | = | Store 0x1,0x3d 0063 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 0065 c23e | > | Store 0x1,0x3e 0066 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 0068 c23f | ? | Store 0x1,0x3f 0069 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 006b c240 | @ | Store 0x1,0x40 006c 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 006e c241 | A | Store 0x1,0x41 006f 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 0071 c22f | / | Store 0x1,0x2f 0072 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 0074 c230 | 0 | Store 0x1,0x30 0075 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 0077 c243 | C | Store 0x1,0x43 0078 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated 007a c235 | 5 | Store 0x1,0x35 007b 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 007d c233 | 3 | Store 0x1,0x33 007e e001 | | Load 0x0,0x1 007f 0129 | ) | Execute Any,Make_Visible 0080 c236 | 6 | Store 0x1,0x36 0081 4801 |H | Short_Literal 0x1 0082 480a |H | Short_Literal 0xa 0083 e002 | | Load 0x0,0x2 0084 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0085 029f 0313 | | Declare_Subprogram INIT_0310,For_Call 0087 4801 |H | Short_Literal 0x1 0088 035d | ] | Declare_Type Array,Defined 0089 c237 | 7 | Store 0x1,0x37 008a e237 | 7 | Load 0x1,0x37 008b 00e3 | | Load_Encached Natural_Cache 008c 00e4 | | Load_Encached Positive_Cache 008d 029f 039b | | Declare_Subprogram INIT_0398,For_Call 008f e221 | ! | Load 0x1,0x21 0090 0326 | & | Complete_Type Record,By_Defining 0091 00bf | | Action Accept_Activation 0092 1d42 | B | Execute_Immediate Reference_Lex_1,0x42 0093 00c7 | | Action Elaborate_Subprogram 0094 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0095 00c7 | | Action Elaborate_Subprogram 0096 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0097 00c7 | | Action Elaborate_Subprogram 0098 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0099 00c7 | | Action Elaborate_Subprogram 009a 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 009b 00c7 | | Action Elaborate_Subprogram 009c 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 009d 00c7 | | Action Elaborate_Subprogram 009e 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 009f 00c7 | | Action Elaborate_Subprogram 00a0 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 00a1 00c7 | | Action Elaborate_Subprogram 00a2 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c 00a3 00c7 | | Action Elaborate_Subprogram 00a4 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d 00a5 00c7 | | Action Elaborate_Subprogram 00a6 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e 00a7 00c7 | | Action Elaborate_Subprogram 00a8 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 00a9 00c7 | | Action Elaborate_Subprogram 00aa 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40 00ab 00c7 | | Action Elaborate_Subprogram 00ac 1d41 | A | Execute_Immediate Reference_Lex_1,0x41 00ad 00c7 | | Action Elaborate_Subprogram 00ae 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 00af 00c7 | | Action Elaborate_Subprogram 00b0 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 00b1 00c7 | | Action Elaborate_Subprogram 00b2 1d43 | C | Execute_Immediate Reference_Lex_1,0x43 00b3 00c7 | | Action Elaborate_Subprogram 00b4 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 00b5 00c7 | | Action Elaborate_Subprogram 00b6 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 00b7 00c7 | | Action Elaborate_Subprogram 00b8 BODY_0008: 00b8 00bc | | Action Signal_Activated 00b9 00bb | | Action Signal_Completion 00ba 0000 0000 | | .BLANK 0000[0x6] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c4 0000 0000 | | .BLANK 0000[0x4] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 00da | | Load_Top At_Offset_2 00cc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ce 0000 0000 | | .XXX[0x2] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 00da | | Load_Top At_Offset_2 00d4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00d5 0f00 | | Execute_Immediate Equal,0x0 00d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d7 0000 | | .XXX[0x1] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 00cf | | Action Mark_Auxiliary 00dc e5fd | | Load 0x2,-0x3 00dd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00de 4801 |H | Short_Literal 0x1 00df 0263 | c | Execute Discrete,Above_Bound 00e0 7007 |p | Jump_Nonzero 0xe8 00e1 00d8 | | Load_Top At_Offset_0 00e2 e5fd | | Load 0x2,-0x3 00e3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00e4 01d5 | | Execute Vector,Field_Reference 00e5 85fe | | Call 0x2,-0x2 00e6 00c8 | | Action Pop_Auxiliary_Range 00e7 3ff9 |? | Loop_Increasing 0xe1 00e8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00e9 0000 0000 | | .BLANK 0000[0x7] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 4801 |H | Short_Literal 0x1 00f4 00db | | Load_Top At_Offset_3 00f5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00f6 01d5 | | Execute Vector,Field_Reference 00f7 e5fe | | Load 0x2,-0x2 00f8 016d | m | Execute Variant_Record,Structure_Write 00f9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00fa 0000 0000 | | .BLANK 0000[0x6] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 4801 |H | Short_Literal 0x1 0104 00db | | Load_Top At_Offset_3 0105 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0106 01d5 | | Execute Vector,Field_Reference 0107 e5fe | | Load 0x2,-0x2 0108 016d | m | Execute Variant_Record,Structure_Write 0109 4802 |H | Short_Literal 0x2 010a 00db | | Load_Top At_Offset_3 010b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 010c 01d5 | | Execute Vector,Field_Reference 010d e5fd | | Load 0x2,-0x3 010e 016d | m | Execute Variant_Record,Structure_Write 010f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 4801 |H | Short_Literal 0x1 0114 00db | | Load_Top At_Offset_3 0115 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0116 01d5 | | Execute Vector,Field_Reference 0117 e5fe | | Load 0x2,-0x2 0118 016d | m | Execute Variant_Record,Structure_Write 0119 4802 |H | Short_Literal 0x2 011a 00db | | Load_Top At_Offset_3 011b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 011c 01d5 | | Execute Vector,Field_Reference 011d e5fd | | Load 0x2,-0x3 011e 016d | m | Execute Variant_Record,Structure_Write 011f 4803 |H | Short_Literal 0x3 0120 00db | | Load_Top At_Offset_3 0121 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0122 01d5 | | Execute Vector,Field_Reference 0123 e5fc | | Load 0x2,-0x4 0124 016d | m | Execute Variant_Record,Structure_Write 0125 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0126 0000 0000 | | .XXX[0x2] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 4801 |H | Short_Literal 0x1 012c 00db | | Load_Top At_Offset_3 012d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 012e 01d5 | | Execute Vector,Field_Reference 012f e5fe | | Load 0x2,-0x2 0130 016d | m | Execute Variant_Record,Structure_Write 0131 4802 |H | Short_Literal 0x2 0132 00db | | Load_Top At_Offset_3 0133 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0134 01d5 | | Execute Vector,Field_Reference 0135 e5fd | | Load 0x2,-0x3 0136 016d | m | Execute Variant_Record,Structure_Write 0137 4803 |H | Short_Literal 0x3 0138 00db | | Load_Top At_Offset_3 0139 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 013a 01d5 | | Execute Vector,Field_Reference 013b e5fc | | Load 0x2,-0x4 013c 016d | m | Execute Variant_Record,Structure_Write 013d 4804 |H | Short_Literal 0x4 013e 00db | | Load_Top At_Offset_3 013f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0140 01d5 | | Execute Vector,Field_Reference 0141 e5fb | | Load 0x2,-0x5 0142 016d | m | Execute Variant_Record,Structure_Write 0143 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0144 0000 0000 | | .BLANK 0000[0x4] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 4801 |H | Short_Literal 0x1 014c 00db | | Load_Top At_Offset_3 014d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 014e 01d5 | | Execute Vector,Field_Reference 014f e5fe | | Load 0x2,-0x2 0150 016d | m | Execute Variant_Record,Structure_Write 0151 4802 |H | Short_Literal 0x2 0152 00db | | Load_Top At_Offset_3 0153 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0154 01d5 | | Execute Vector,Field_Reference 0155 e5fd | | Load 0x2,-0x3 0156 016d | m | Execute Variant_Record,Structure_Write 0157 4803 |H | Short_Literal 0x3 0158 00db | | Load_Top At_Offset_3 0159 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 015a 01d5 | | Execute Vector,Field_Reference 015b e5fc | | Load 0x2,-0x4 015c 016d | m | Execute Variant_Record,Structure_Write 015d 4804 |H | Short_Literal 0x4 015e 00db | | Load_Top At_Offset_3 015f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0160 01d5 | | Execute Vector,Field_Reference 0161 e5fb | | Load 0x2,-0x5 0162 016d | m | Execute Variant_Record,Structure_Write 0163 4805 |H | Short_Literal 0x5 0164 00db | | Load_Top At_Offset_3 0165 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0166 01d5 | | Execute Vector,Field_Reference 0167 e5fa | | Load 0x2,-0x6 0168 016d | m | Execute Variant_Record,Structure_Write 0169 4502 |E | Exit_Suprogram New_Top_Offset 0x2 016a 0000 0000 | | .BLANK 0000[0x6] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 4801 |H | Short_Literal 0x1 0174 00db | | Load_Top At_Offset_3 0175 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0176 01d5 | | Execute Vector,Field_Reference 0177 e5fe | | Load 0x2,-0x2 0178 016d | m | Execute Variant_Record,Structure_Write 0179 4802 |H | Short_Literal 0x2 017a 00db | | Load_Top At_Offset_3 017b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 017c 01d5 | | Execute Vector,Field_Reference 017d e5fd | | Load 0x2,-0x3 017e 016d | m | Execute Variant_Record,Structure_Write 017f 4803 |H | Short_Literal 0x3 0180 00db | | Load_Top At_Offset_3 0181 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0182 01d5 | | Execute Vector,Field_Reference 0183 e5fc | | Load 0x2,-0x4 0184 016d | m | Execute Variant_Record,Structure_Write 0185 4804 |H | Short_Literal 0x4 0186 00db | | Load_Top At_Offset_3 0187 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0188 01d5 | | Execute Vector,Field_Reference 0189 e5fb | | Load 0x2,-0x5 018a 016d | m | Execute Variant_Record,Structure_Write 018b 4805 |H | Short_Literal 0x5 018c 00db | | Load_Top At_Offset_3 018d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 018e 01d5 | | Execute Vector,Field_Reference 018f e5fa | | Load 0x2,-0x6 0190 016d | m | Execute Variant_Record,Structure_Write 0191 4806 |H | Short_Literal 0x6 0192 00db | | Load_Top At_Offset_3 0193 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0194 01d5 | | Execute Vector,Field_Reference 0195 e5f9 | | Load 0x2,-0x7 0196 016d | m | Execute Variant_Record,Structure_Write 0197 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 4801 |H | Short_Literal 0x1 019c 00db | | Load_Top At_Offset_3 019d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 019e 01d5 | | Execute Vector,Field_Reference 019f e5fe | | Load 0x2,-0x2 01a0 016d | m | Execute Variant_Record,Structure_Write 01a1 4802 |H | Short_Literal 0x2 01a2 00db | | Load_Top At_Offset_3 01a3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01a4 01d5 | | Execute Vector,Field_Reference 01a5 e5fd | | Load 0x2,-0x3 01a6 016d | m | Execute Variant_Record,Structure_Write 01a7 4803 |H | Short_Literal 0x3 01a8 00db | | Load_Top At_Offset_3 01a9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01aa 01d5 | | Execute Vector,Field_Reference 01ab e5fc | | Load 0x2,-0x4 01ac 016d | m | Execute Variant_Record,Structure_Write 01ad 4804 |H | Short_Literal 0x4 01ae 00db | | Load_Top At_Offset_3 01af 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01b0 01d5 | | Execute Vector,Field_Reference 01b1 e5fb | | Load 0x2,-0x5 01b2 016d | m | Execute Variant_Record,Structure_Write 01b3 4805 |H | Short_Literal 0x5 01b4 00db | | Load_Top At_Offset_3 01b5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01b6 01d5 | | Execute Vector,Field_Reference 01b7 e5fa | | Load 0x2,-0x6 01b8 016d | m | Execute Variant_Record,Structure_Write 01b9 4806 |H | Short_Literal 0x6 01ba 00db | | Load_Top At_Offset_3 01bb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01bc 01d5 | | Execute Vector,Field_Reference 01bd e5f9 | | Load 0x2,-0x7 01be 016d | m | Execute Variant_Record,Structure_Write 01bf 4807 |H | Short_Literal 0x7 01c0 00db | | Load_Top At_Offset_3 01c1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01c2 01d5 | | Execute Vector,Field_Reference 01c3 e5f8 | | Load 0x2,-0x8 01c4 016d | m | Execute Variant_Record,Structure_Write 01c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c6 0000 0000 | | .XXX[0x2] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 4801 |H | Short_Literal 0x1 01cc 00db | | Load_Top At_Offset_3 01cd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01ce 01d5 | | Execute Vector,Field_Reference 01cf e5fe | | Load 0x2,-0x2 01d0 016d | m | Execute Variant_Record,Structure_Write 01d1 4802 |H | Short_Literal 0x2 01d2 00db | | Load_Top At_Offset_3 01d3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01d4 01d5 | | Execute Vector,Field_Reference 01d5 e5fd | | Load 0x2,-0x3 01d6 016d | m | Execute Variant_Record,Structure_Write 01d7 4803 |H | Short_Literal 0x3 01d8 00db | | Load_Top At_Offset_3 01d9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01da 01d5 | | Execute Vector,Field_Reference 01db e5fc | | Load 0x2,-0x4 01dc 016d | m | Execute Variant_Record,Structure_Write 01dd 4804 |H | Short_Literal 0x4 01de 00db | | Load_Top At_Offset_3 01df 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01e0 01d5 | | Execute Vector,Field_Reference 01e1 e5fb | | Load 0x2,-0x5 01e2 016d | m | Execute Variant_Record,Structure_Write 01e3 4805 |H | Short_Literal 0x5 01e4 00db | | Load_Top At_Offset_3 01e5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01e6 01d5 | | Execute Vector,Field_Reference 01e7 e5fa | | Load 0x2,-0x6 01e8 016d | m | Execute Variant_Record,Structure_Write 01e9 4806 |H | Short_Literal 0x6 01ea 00db | | Load_Top At_Offset_3 01eb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01ec 01d5 | | Execute Vector,Field_Reference 01ed e5f9 | | Load 0x2,-0x7 01ee 016d | m | Execute Variant_Record,Structure_Write 01ef 4807 |H | Short_Literal 0x7 01f0 00db | | Load_Top At_Offset_3 01f1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01f2 01d5 | | Execute Vector,Field_Reference 01f3 e5f8 | | Load 0x2,-0x8 01f4 016d | m | Execute Variant_Record,Structure_Write 01f5 4808 |H | Short_Literal 0x8 01f6 00db | | Load_Top At_Offset_3 01f7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01f8 01d5 | | Execute Vector,Field_Reference 01f9 e5f7 | | Load 0x2,-0x9 01fa 016d | m | Execute Variant_Record,Structure_Write 01fb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01fc 0000 0000 | | .BLANK 0000[0x4] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 4801 |H | Short_Literal 0x1 0204 00db | | Load_Top At_Offset_3 0205 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0206 01d5 | | Execute Vector,Field_Reference 0207 e5fe | | Load 0x2,-0x2 0208 016d | m | Execute Variant_Record,Structure_Write 0209 4802 |H | Short_Literal 0x2 020a 00db | | Load_Top At_Offset_3 020b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 020c 01d5 | | Execute Vector,Field_Reference 020d e5fd | | Load 0x2,-0x3 020e 016d | m | Execute Variant_Record,Structure_Write 020f 4803 |H | Short_Literal 0x3 0210 00db | | Load_Top At_Offset_3 0211 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0212 01d5 | | Execute Vector,Field_Reference 0213 e5fc | | Load 0x2,-0x4 0214 016d | m | Execute Variant_Record,Structure_Write 0215 4804 |H | Short_Literal 0x4 0216 00db | | Load_Top At_Offset_3 0217 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0218 01d5 | | Execute Vector,Field_Reference 0219 e5fb | | Load 0x2,-0x5 021a 016d | m | Execute Variant_Record,Structure_Write 021b 4805 |H | Short_Literal 0x5 021c 00db | | Load_Top At_Offset_3 021d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 021e 01d5 | | Execute Vector,Field_Reference 021f e5fa | | Load 0x2,-0x6 0220 016d | m | Execute Variant_Record,Structure_Write 0221 4806 |H | Short_Literal 0x6 0222 00db | | Load_Top At_Offset_3 0223 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0224 01d5 | | Execute Vector,Field_Reference 0225 e5f9 | | Load 0x2,-0x7 0226 016d | m | Execute Variant_Record,Structure_Write 0227 4807 |H | Short_Literal 0x7 0228 00db | | Load_Top At_Offset_3 0229 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 022a 01d5 | | Execute Vector,Field_Reference 022b e5f8 | | Load 0x2,-0x8 022c 016d | m | Execute Variant_Record,Structure_Write 022d 4808 |H | Short_Literal 0x8 022e 00db | | Load_Top At_Offset_3 022f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0230 01d5 | | Execute Vector,Field_Reference 0231 e5f7 | | Load 0x2,-0x9 0232 016d | m | Execute Variant_Record,Structure_Write 0233 4809 |H | Short_Literal 0x9 0234 00db | | Load_Top At_Offset_3 0235 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0236 01d5 | | Execute Vector,Field_Reference 0237 e5f6 | | Load 0x2,-0xa 0238 016d | m | Execute Variant_Record,Structure_Write 0239 4502 |E | Exit_Suprogram New_Top_Offset 0x2 023a 0000 0000 | | .BLANK 0000[0x6] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 4801 |H | Short_Literal 0x1 0244 00db | | Load_Top At_Offset_3 0245 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0246 01d5 | | Execute Vector,Field_Reference 0247 e5fe | | Load 0x2,-0x2 0248 016d | m | Execute Variant_Record,Structure_Write 0249 4802 |H | Short_Literal 0x2 024a 00db | | Load_Top At_Offset_3 024b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 024c 01d5 | | Execute Vector,Field_Reference 024d e5fd | | Load 0x2,-0x3 024e 016d | m | Execute Variant_Record,Structure_Write 024f 4803 |H | Short_Literal 0x3 0250 00db | | Load_Top At_Offset_3 0251 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0252 01d5 | | Execute Vector,Field_Reference 0253 e5fc | | Load 0x2,-0x4 0254 016d | m | Execute Variant_Record,Structure_Write 0255 4804 |H | Short_Literal 0x4 0256 00db | | Load_Top At_Offset_3 0257 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0258 01d5 | | Execute Vector,Field_Reference 0259 e5fb | | Load 0x2,-0x5 025a 016d | m | Execute Variant_Record,Structure_Write 025b 4805 |H | Short_Literal 0x5 025c 00db | | Load_Top At_Offset_3 025d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 025e 01d5 | | Execute Vector,Field_Reference 025f e5fa | | Load 0x2,-0x6 0260 016d | m | Execute Variant_Record,Structure_Write 0261 4806 |H | Short_Literal 0x6 0262 00db | | Load_Top At_Offset_3 0263 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0264 01d5 | | Execute Vector,Field_Reference 0265 e5f9 | | Load 0x2,-0x7 0266 016d | m | Execute Variant_Record,Structure_Write 0267 4807 |H | Short_Literal 0x7 0268 00db | | Load_Top At_Offset_3 0269 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 026a 01d5 | | Execute Vector,Field_Reference 026b e5f8 | | Load 0x2,-0x8 026c 016d | m | Execute Variant_Record,Structure_Write 026d 4808 |H | Short_Literal 0x8 026e 00db | | Load_Top At_Offset_3 026f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0270 01d5 | | Execute Vector,Field_Reference 0271 e5f7 | | Load 0x2,-0x9 0272 016d | m | Execute Variant_Record,Structure_Write 0273 4809 |H | Short_Literal 0x9 0274 00db | | Load_Top At_Offset_3 0275 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0276 01d5 | | Execute Vector,Field_Reference 0277 e5f6 | | Load 0x2,-0xa 0278 016d | m | Execute Variant_Record,Structure_Write 0279 480a |H | Short_Literal 0xa 027a 00db | | Load_Top At_Offset_3 027b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 027c 01d5 | | Execute Vector,Field_Reference 027d e5f5 | | Load 0x2,-0xb 027e 016d | m | Execute Variant_Record,Structure_Write 027f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 028a | | .CONST 0x028a ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0002 | | .CONST 0x0002 ; Number of locals 0283 INIT_0280: 0283 e002 | | Load 0x0,0x2 0284 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0285 02ff | | Declare_Variable Variant_Record 0286 e002 | | Load 0x0,0x2 0287 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0288 00d9 | | Load_Top At_Offset_1 0289 016d | m | Execute Variant_Record,Structure_Write 028a BODY_0280: 028a e5fe | | Load 0x2,-0x2 028b e5ff | | Load 0x2,-0x1 028c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 028d 027a | z | Execute Discrete,Less_Equal 028e 6806 |h | Jump_Zero 0x295 028f e5fe | | Load 0x2,-0x2 0290 e5ff | | Load 0x2,-0x1 0291 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0292 01d5 | | Execute Vector,Field_Reference 0293 00d9 | | Load_Top At_Offset_1 0294 016d | m | Execute Variant_Record,Structure_Write 0295 00d8 | | Load_Top At_Offset_0 0296 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0297 0000 | | .XXX[0x1] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 02af | | .CONST 0x02af ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b 00db | | Load_Top At_Offset_3 029c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 029d 0a01 | | Execute_Immediate Plus,0x1 029e e5fe | | Load 0x2,-0x2 029f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02a0 00db | | Load_Top At_Offset_3 02a1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02a2 e5fe | | Load 0x2,-0x2 02a3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02a4 027d | } | Execute Discrete,Greater 02a5 6802 |h | Jump_Zero 0x2a8 02a6 e236 | 6 | Load 0x1,0x36 02a7 0257 | W | Execute Discrete,Raise 02a8 00da | | Load_Top At_Offset_2 02a9 e5fe | | Load 0x2,-0x2 02aa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02ab e5fe | | Load 0x2,-0x2 02ac 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02ad 01d6 | | Execute Vector,Field_Write 02ae 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02af TRAP_0298: 02af 010e | | Execute Exception,Is_Constraint_Error 02b0 6802 |h | Jump_Zero 0x2b3 02b1 e236 | 6 | Load 0x1,0x36 02b2 0257 | W | Execute Discrete,Raise 02b3 0100 | | Execute Exception,Raise 02b4 0000 0000 | | .BLANK 0000[0x4] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bd | | .CONST 0x02bd ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0002 | | .CONST 0x0002 ; Number of locals 02bb INIT_02b8: 02bb 029f 032b | +| Declare_Subprogram INIT_0328,For_Call 02bd BODY_02b8: 02bd 8402 | | Call 0x2,0x2 02be 450c |E | Exit_Suprogram New_Top_Offset 0xc 02bf 0000 | | .XXX[0x1] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c7 | | .CONST 0x02c7 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0002 | | .CONST 0x0002 ; Number of locals 02c3 INIT_02c0: 02c3 e221 | ! | Load 0x1,0x21 02c4 0322 | " | Declare_Variable Record 02c5 00d8 | | Load_Top At_Offset_0 02c6 1c00 | | Execute_Immediate Run_Utility,0x0 02c7 BODY_02c0: 02c7 00d8 | | Load_Top At_Offset_0 02c8 e5ff | | Load 0x2,-0x1 02c9 8230 | 0 | Call 0x1,0x30 02ca 00d1 | | Pop_Control Pop_Count_1 02cb 00d8 | | Load_Top At_Offset_0 02cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02cd 0000 0000 | | .XXX[0x3] 02cf 0000 | | 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02dc | | .CONST 0x02dc ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0003 | | .CONST 0x0003 ; Number of locals 02d3 INIT_02d0: 02d3 4800 |H | Short_Literal 0x0 02d4 480a |H | Short_Literal 0xa 02d5 00e2 | | Load_Encached Integer_Cache 02d6 03f8 | | Declare_Type Discrete,Constrained 02d7 e002 | | Load 0x0,0x2 02d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02d9 02ff | | Declare_Variable Variant_Record 02da 00d8 | | Load_Top At_Offset_0 02db 1c00 | | Execute_Immediate Run_Utility,0x0 02dc BODY_02d0: 02dc 00cf | | Action Mark_Auxiliary 02dd e5fd | | Load 0x2,-0x3 02de 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02df 0aff | | Execute_Immediate Plus,-0x1 02e0 4802 |H | Short_Literal 0x2 02e1 0263 | c | Execute Discrete,Above_Bound 02e2 702a |p* | Jump_Nonzero 0x30d 02e3 00d8 | | Load_Top At_Offset_0 02e4 e5fd | | Load 0x2,-0x3 02e5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02e6 01d5 | | Execute Vector,Field_Reference 02e7 e403 | | Load 0x2,0x3 02e8 016d | m | Execute Variant_Record,Structure_Write 02e9 00d8 | | Load_Top At_Offset_0 02ea 0aff | | Execute_Immediate Plus,-0x1 02eb c402 | | Store 0x2,0x2 02ec 00cf | | Action Mark_Auxiliary 02ed 780d |x | Jump 0x2fb 02ee e402 | | Load 0x2,0x2 02ef e5fd | | Load 0x2,-0x3 02f0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02f1 01d5 | | Execute Vector,Field_Reference 02f2 e402 | | Load 0x2,0x2 02f3 0a01 | | Execute_Immediate Plus,0x1 02f4 e5fd | | Load 0x2,-0x3 02f5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02f6 01d6 | | Execute Vector,Field_Write 02f7 e402 | | Load 0x2,0x2 02f8 0aff | | Execute_Immediate Plus,-0x1 02f9 c402 | | Store 0x2,0x2 02fa 00c9 | | Action Pop_Auxiliary_Loop 02fb e402 | | Load 0x2,0x2 02fc 6807 |h | Jump_Zero 0x304 02fd e402 | | Load 0x2,0x2 02fe e5fd | | Load 0x2,-0x3 02ff 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0300 01d5 | | Execute Vector,Field_Reference 0301 e403 | | Load 0x2,0x3 0302 85fe | | Call 0x2,-0x2 0303 77ea |w | Jump_Nonzero 0x2ee 0304 00ce | | Action Pop_Auxiliary 0305 00db | | Load_Top At_Offset_3 0306 e402 | | Load 0x2,0x2 0307 0a01 | | Execute_Immediate Plus,0x1 0308 e5fd | | Load 0x2,-0x3 0309 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 030a 01d6 | | Execute Vector,Field_Write 030b 00c8 | | Action Pop_Auxiliary_Range 030c 3fd6 |? | Loop_Increasing 0x2e3 030d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 030e 0000 0000 | | .XXX[0x2] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0313 | | .CONST 0x0313 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0001 | | .CONST 0x0001 ; Number of locals 0313 BODY_0310: 0313 INIT_0310: 0313 00d1 | | Pop_Control Pop_Count_1 0314 00da | | Load_Top At_Offset_2 0315 01d8 | | Execute Vector,Element_Type 0316 02ff | | Declare_Variable Variant_Record 0317 00d8 | | Load_Top At_Offset_0 0318 1c00 | | Execute_Immediate Run_Utility,0x0 0319 00db | | Load_Top At_Offset_3 031a 01dc | | Execute Vector,Last 031b e5ff | | Load 0x2,-0x1 031c 01dd | | Execute Vector,First 031d 0263 | c | Execute Discrete,Above_Bound 031e 7006 |p | Jump_Nonzero 0x325 031f 00da | | Load_Top At_Offset_2 0320 00d9 | | Load_Top At_Offset_1 0321 e5ff | | Load 0x2,-0x1 0322 01d6 | | Execute Vector,Field_Write 0323 0a01 | | Execute_Immediate Plus,0x1 0324 7ff8 | | Jump 0x31d 0325 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0326 0000 0000 | | .XXX[0x2] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032b | + | .CONST 0x032b ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0001 | | .CONST 0x0001 ; Number of locals 032b BODY_0328: 032b INIT_0328: 032b e5ff | | Load 0x2,-0x1 032c 0c01 | | Execute_Immediate Greater_Equal,0x1 032d e5ff | | Load 0x2,-0x1 032e 0d0b | | Execute_Immediate Less,0xb 032f 0279 | y | Execute Discrete,And 0330 6804 |h | Jump_Zero 0x335 0331 e5ff | | Load 0x2,-0x1 0332 e5f4 | | Load 0x2,-0xc 0333 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0334 7803 |x | Jump 0x338 0335 4801 |H | Short_Literal 0x1 0336 e5f4 | | Load 0x2,-0xc 0337 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0338 e5fe | | Load 0x2,-0x2 0339 e002 | | Load 0x0,0x2 033a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 033b 016e | n | Execute Variant_Record,Not_Equal 033c 6804 |h | Jump_Zero 0x341 033d e5f4 | | Load 0x2,-0xc 033e e5fe | | Load 0x2,-0x2 033f 8230 | 0 | Call 0x1,0x30 0340 00d1 | | Pop_Control Pop_Count_1 0341 e5fd | | Load 0x2,-0x3 0342 e002 | | Load 0x0,0x2 0343 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0344 016e | n | Execute Variant_Record,Not_Equal 0345 6804 |h | Jump_Zero 0x34a 0346 e5f4 | | Load 0x2,-0xc 0347 e5fd | | Load 0x2,-0x3 0348 8230 | 0 | Call 0x1,0x30 0349 00d1 | | Pop_Control Pop_Count_1 034a e5fc | | Load 0x2,-0x4 034b e002 | | Load 0x0,0x2 034c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 034d 016e | n | Execute Variant_Record,Not_Equal 034e 6804 |h | Jump_Zero 0x353 034f e5f4 | | Load 0x2,-0xc 0350 e5fc | | Load 0x2,-0x4 0351 8230 | 0 | Call 0x1,0x30 0352 00d1 | | Pop_Control Pop_Count_1 0353 e5fb | | Load 0x2,-0x5 0354 e002 | | Load 0x0,0x2 0355 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0356 016e | n | Execute Variant_Record,Not_Equal 0357 6804 |h | Jump_Zero 0x35c 0358 e5f4 | | Load 0x2,-0xc 0359 e5fb | | Load 0x2,-0x5 035a 8230 | 0 | Call 0x1,0x30 035b 00d1 | | Pop_Control Pop_Count_1 035c e5fa | | Load 0x2,-0x6 035d e002 | | Load 0x0,0x2 035e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 035f 016e | n | Execute Variant_Record,Not_Equal 0360 6804 |h | Jump_Zero 0x365 0361 e5f4 | | Load 0x2,-0xc 0362 e5fa | | Load 0x2,-0x6 0363 8230 | 0 | Call 0x1,0x30 0364 00d1 | | Pop_Control Pop_Count_1 0365 e5f9 | | Load 0x2,-0x7 0366 e002 | | Load 0x0,0x2 0367 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0368 016e | n | Execute Variant_Record,Not_Equal 0369 6804 |h | Jump_Zero 0x36e 036a e5f4 | | Load 0x2,-0xc 036b e5f9 | | Load 0x2,-0x7 036c 8230 | 0 | Call 0x1,0x30 036d 00d1 | | Pop_Control Pop_Count_1 036e e5f8 | | Load 0x2,-0x8 036f e002 | | Load 0x0,0x2 0370 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0371 016e | n | Execute Variant_Record,Not_Equal 0372 6804 |h | Jump_Zero 0x377 0373 e5f4 | | Load 0x2,-0xc 0374 e5f8 | | Load 0x2,-0x8 0375 8230 | 0 | Call 0x1,0x30 0376 00d1 | | Pop_Control Pop_Count_1 0377 e5f7 | | Load 0x2,-0x9 0378 e002 | | Load 0x0,0x2 0379 1b0e | | Execute Package,Field_Read,Field_Number 0xe 037a 016e | n | Execute Variant_Record,Not_Equal 037b 6804 |h | Jump_Zero 0x380 037c e5f4 | | Load 0x2,-0xc 037d e5f7 | | Load 0x2,-0x9 037e 8230 | 0 | Call 0x1,0x30 037f 00d1 | | Pop_Control Pop_Count_1 0380 e5f6 | | Load 0x2,-0xa 0381 e002 | | Load 0x0,0x2 0382 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0383 016e | n | Execute Variant_Record,Not_Equal 0384 6804 |h | Jump_Zero 0x389 0385 e5f4 | | Load 0x2,-0xc 0386 e5f6 | | Load 0x2,-0xa 0387 8230 | 0 | Call 0x1,0x30 0388 00d1 | | Pop_Control Pop_Count_1 0389 e5f5 | | Load 0x2,-0xb 038a e002 | | Load 0x0,0x2 038b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 038c 016e | n | Execute Variant_Record,Not_Equal 038d 6804 |h | Jump_Zero 0x392 038e e5f4 | | Load 0x2,-0xc 038f e5f5 | | Load 0x2,-0xb 0390 8230 | 0 | Call 0x1,0x30 0391 00d1 | | Pop_Control Pop_Count_1 0392 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0393 0000 0000 | | .BLANK 0000[0x5] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 039b | | .CONST 0x039b ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0001 | | .CONST 0x0001 ; Number of locals 039b BODY_0398: 039b INIT_0398: 039b 4608 |F | Jump_Case 0x9 039c 7808 |x | Jump 0x3a5 ; case 0x0 039d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 039e 7810 |x | Jump 0x3af ; case 0x2 039f 780f |x | Jump 0x3af ; case 0x3 03a0 780e |x | Jump 0x3af ; case 0x4 03a1 780d |x | Jump 0x3af ; case 0x5 03a2 780c |x | Jump 0x3af ; case 0x6 03a3 780b |x | Jump 0x3af ; case 0x7 03a4 780a |x | Jump 0x3af ; case 0x8 03a5 00da | | Load_Top At_Offset_2 03a6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03a7 1c00 | | Execute_Immediate Run_Utility,0x0 03a8 4800 |H | Short_Literal 0x0 03a9 00db | | Load_Top At_Offset_3 03aa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03ab 4801 |H | Short_Literal 0x1 03ac 00db | | Load_Top At_Offset_3 03ad 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03ae 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 03af 0869 | i | Execute_Immediate Raise,0x69 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; Debug Table 03b0 ; -------------------------------------------------------------------------------------- 03b0 0004 0001 | | .DEBUG4 0x0004,0x0001,0xd33f,0x0000,0x0001,0x0018 03b6 000b 0416 | | .DBG4T 0x000b,0x0416,0x8000,0x8000 03ba 0092 0446 | F| .DBG4T 0x0092,0x0446,0x8000,0x0000 03be 00c3 045b | [| .DBG4T 0x00c3,0x045b,0x0001,0x0000 03c2 00cb 045e | ^| .DBG4T 0x00cb,0x045e,0x0002,0x0000 03c6 00d3 0461 | a| .DBG4T 0x00d3,0x0461,0x0002,0x0000 03ca 00db 0464 | d| .DBG4T 0x00db,0x0464,0x2801,0x0002 03ce 00f3 0468 | h| .DBG4T 0x00f3,0x0468,0x0001,0x0000 03d2 0103 046b | k| .DBG4T 0x0103,0x046b,0x0001,0x0000 03d6 0113 046f | o| .DBG4T 0x0113,0x046f,0x0001,0x0000 03da 012b 0474 | + t| .DBG4T 0x012b,0x0474,0x0001,0x0000 03de 014b 047a | K z| .DBG4T 0x014b,0x047a,0x0001,0x0000 03e2 0173 0481 | s | .DBG4T 0x0173,0x0481,0x0001,0x0000 03e6 019b 0489 | | .DBG4T 0x019b,0x0489,0x0001,0x0000 03ea 01cb 0492 | | .DBG4T 0x01cb,0x0492,0x0001,0x0000 03ee 0203 049c | | .DBG4T 0x0203,0x049c,0x0001,0x0000 03f2 0243 04a7 | C | .DBG4T 0x0243,0x04a7,0x0001,0x0000 03f6 0283 04b3 | | .DBG4T 0x0283,0x04b3,0x0002,0x0000 03fa 029b 04b9 | | .DBG4T 0x029b,0x04b9,0x0001,0x0000 03fe 02bb 04c0 | | .DBG4T 0x02bb,0x04c0,0x0001,0x0000 0402 02c3 04c3 | | .DBG4T 0x02c3,0x04c3,0x0002,0x0000 0406 02d3 04c8 | | .DBG4T 0x02d3,0x04c8,0x2801,0x4002 040a 0313 0000 | | .DBG4T 0x0313,0x0000,0x0005,0x0000 040e 032b 04da | + | .DBG4T 0x032b,0x04da,0x0004,0x0000 0412 039b 0000 | | .DBG4T 0x039b,0x0000,0x0005,0x0000 0416 ; -------------------------------------------------------------------------------------- 0416 ; Debug chain 0416 ; -------------------------------------------------------------------------------------- 0416 0017 0000 | | .DBGLEN 0x0017,0x0000 0418 0042 0045 | B E| .DBGLNO 0x0042,0x0045,0x0048,0x004b,0x004e,0x0051,0x0054,0x0057,0x005a,0x005d,0x0060,0x0063,0x0066,0x0069,0x006c,0x006f,0x0072,0x0075,0x0078,0x007b,0x007e,0x0081,0x008a 042f 0001 0002 | | .XXX[0x17] 0431 0003 0004 | | 0433 0005 0006 | | 0435 0007 0008 | | 0437 0009 000a | | 0439 000b 000c | | 043b 000d 000e | | 043d 000f 0010 | | 043f 0011 0012 | | 0441 0013 0014 | | 0443 0015 0017 | | 0445 0018 | | 0446 ; -------------------------------------------------------------------------------------- 0446 ; Debug chain 0446 ; -------------------------------------------------------------------------------------- 0446 0013 0000 | | .DBGLEN 0x0013,0x0000 0448 0092 0094 | | .DBGLNO 0x0092,0x0094,0x0096,0x0098,0x009a,0x009c,0x009e,0x00a0,0x00a2,0x00a4,0x00a6,0x00a8,0x00aa,0x00ac,0x00ae,0x00b0,0x00b2,0x00b4,0x00b6 045b ; -------------------------------------------------------------------------------------- 045b ; Debug chain 045b ; -------------------------------------------------------------------------------------- 045b 0000 0001 | | .DBGLEN 0x0000,0x0001 045d 00c3 | | .DBGLNO 0x00c3 045e ; -------------------------------------------------------------------------------------- 045e ; Debug chain 045e ; -------------------------------------------------------------------------------------- 045e 0000 0001 | | .DBGLEN 0x0000,0x0001 0460 00cb | | .DBGLNO 0x00cb 0461 ; -------------------------------------------------------------------------------------- 0461 ; Debug chain 0461 ; -------------------------------------------------------------------------------------- 0461 0000 0001 | | .DBGLEN 0x0000,0x0001 0463 00d3 | | .DBGLNO 0x00d3 0464 ; -------------------------------------------------------------------------------------- 0464 ; Debug chain 0464 ; -------------------------------------------------------------------------------------- 0464 0000 0002 | | .DBGLEN 0x0000,0x0002 0466 00dc 00e1 | | .DBGLNO 0x00dc,0x00e1 0468 ; -------------------------------------------------------------------------------------- 0468 ; Debug chain 0468 ; -------------------------------------------------------------------------------------- 0468 0000 0001 | | .DBGLEN 0x0000,0x0001 046a 00f3 | | .DBGLNO 0x00f3 046b ; -------------------------------------------------------------------------------------- 046b ; Debug chain 046b ; -------------------------------------------------------------------------------------- 046b 0000 0002 | | .DBGLEN 0x0000,0x0002 046d 0103 0109 | | .DBGLNO 0x0103,0x0109 046f ; -------------------------------------------------------------------------------------- 046f ; Debug chain 046f ; -------------------------------------------------------------------------------------- 046f 0000 0003 | | .DBGLEN 0x0000,0x0003 0471 0113 0119 | | .DBGLNO 0x0113,0x0119,0x011f 0474 ; -------------------------------------------------------------------------------------- 0474 ; Debug chain 0474 ; -------------------------------------------------------------------------------------- 0474 0000 0004 | | .DBGLEN 0x0000,0x0004 0476 012b 0131 | + 1| .DBGLNO 0x012b,0x0131,0x0137,0x013d 047a ; -------------------------------------------------------------------------------------- 047a ; Debug chain 047a ; -------------------------------------------------------------------------------------- 047a 0000 0005 | | .DBGLEN 0x0000,0x0005 047c 014b 0151 | K Q| .DBGLNO 0x014b,0x0151,0x0157,0x015d,0x0163 0481 ; -------------------------------------------------------------------------------------- 0481 ; Debug chain 0481 ; -------------------------------------------------------------------------------------- 0481 0000 0006 | | .DBGLEN 0x0000,0x0006 0483 0173 0179 | s y| .DBGLNO 0x0173,0x0179,0x017f,0x0185,0x018b,0x0191 0489 ; -------------------------------------------------------------------------------------- 0489 ; Debug chain 0489 ; -------------------------------------------------------------------------------------- 0489 0000 0007 | | .DBGLEN 0x0000,0x0007 048b 019b 01a1 | | .DBGLNO 0x019b,0x01a1,0x01a7,0x01ad,0x01b3,0x01b9,0x01bf 0492 ; -------------------------------------------------------------------------------------- 0492 ; Debug chain 0492 ; -------------------------------------------------------------------------------------- 0492 0000 0008 | | .DBGLEN 0x0000,0x0008 0494 01cb 01d1 | | .DBGLNO 0x01cb,0x01d1,0x01d7,0x01dd,0x01e3,0x01e9,0x01ef,0x01f5 049c ; -------------------------------------------------------------------------------------- 049c ; Debug chain 049c ; -------------------------------------------------------------------------------------- 049c 0000 0009 | | .DBGLEN 0x0000,0x0009 049e 0203 0209 | | .DBGLNO 0x0203,0x0209,0x020f,0x0215,0x021b,0x0221,0x0227,0x022d,0x0233 04a7 ; -------------------------------------------------------------------------------------- 04a7 ; Debug chain 04a7 ; -------------------------------------------------------------------------------------- 04a7 0000 000a | | .DBGLEN 0x0000,0x000a 04a9 0243 0249 | C I| .DBGLNO 0x0243,0x0249,0x024f,0x0255,0x025b,0x0261,0x0267,0x026d,0x0273,0x0279 04b3 ; -------------------------------------------------------------------------------------- 04b3 ; Debug chain 04b3 ; -------------------------------------------------------------------------------------- 04b3 0001 0003 | | .DBGLEN 0x0001,0x0003 04b5 0283 028a | | .DBGLNO 0x0283,0x028a,0x028f,0x0295 04b9 ; -------------------------------------------------------------------------------------- 04b9 ; Debug chain 04b9 ; -------------------------------------------------------------------------------------- 04b9 0000 0005 | | .DBGLEN 0x0000,0x0005 04bb 029b 02a0 | | .DBGLNO 0x029b,0x02a0,0x02a6,0x02a8,0x02b1 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; Debug chain 04c0 ; -------------------------------------------------------------------------------------- 04c0 0000 0001 | | .DBGLEN 0x0000,0x0001 04c2 02bd | | .DBGLNO 0x02bd 04c3 ; -------------------------------------------------------------------------------------- 04c3 ; Debug chain 04c3 ; -------------------------------------------------------------------------------------- 04c3 0001 0002 | | .DBGLEN 0x0001,0x0002 04c5 02c3 02c7 | | .DBGLNO 0x02c3,0x02c7,0x02cb 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; Debug chain 04c8 ; -------------------------------------------------------------------------------------- 04c8 0002 0007 | | .DBGLEN 0x0002,0x0007 04ca 02d3 02d7 | | .DBGLNO 0x02d3,0x02d7,0x02dd,0x02e3,0x02e9,0x02ee,0x02f7,0x02fb,0x0305 04d3 0001 0002 | | .XXX[0x7] 04d5 0003 0005 | | 04d7 0006 0004 | | 04d9 0007 | | 04da ; -------------------------------------------------------------------------------------- 04da ; Debug chain 04da ; -------------------------------------------------------------------------------------- 04da 0000 0017 | | .DBGLEN 0x0000,0x0017 04dc 032b 0331 | + 1| .DBGLNO 0x032b,0x0331,0x0335,0x0338,0x033d,0x0341,0x0346,0x034a,0x034f,0x0353,0x0358,0x035c,0x0361,0x0365,0x036a,0x036e,0x0373,0x0377,0x037c,0x0380,0x0385,0x0389,0x038e 04f3 0000 0000 | | .BLANK 0000[0x10d]