|
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: 6144 (0x1800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_29d0d7
└─⟦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 0a18 | | .CONST 0x0a18 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00cd | | .CONST 0x00cd ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 003b | ; | .CONST 0x003b ; Number of locals 000b INIT_0008: 000b 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 000d 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 000f 4800 |H | Short_Literal 0x0 0010 4802 |H | Short_Literal 0x2 0011 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call 0013 03fe | | Declare_Type Discrete,Defined,Visible 0014 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0016 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0018 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 001a 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 001c 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 001e 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 0020 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated 0022 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated 0024 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 0026 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 0028 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated 002a 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 002c 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated 002e 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated 0030 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated 0032 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated 0034 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated 0036 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated 0038 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated 003a 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated 003c 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated 003e 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated 0040 029a 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call,Visible,Unelaborated 0042 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated 0044 029a 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call,Visible,Unelaborated 0046 029a 0523 | #| Declare_Subprogram INIT_0520,For_Outer_Call,Visible,Unelaborated 0048 029a 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call,Visible,Unelaborated 004a 029a 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call,Visible,Unelaborated 004c 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 004d 00bf | | Action Accept_Activation 004e 00e2 | | Load_Encached Integer_Cache 004f 00e2 | | Load_Encached Integer_Cache 0050 e002 | | Load 0x0,0x2 0051 029f 064b | K| Declare_Subprogram INIT_0648,For_Call 0053 4803 |H | Short_Literal 0x3 0054 032d | - | Declare_Type Record,Defined 0055 e003 | | Load 0x0,0x3 0056 e004 | | Load 0x0,0x4 0057 00da | | Load_Top At_Offset_2 0058 e005 | | Load 0x0,0x5 0059 0387 | | Declare_Variable Package 005a 00d8 | | Load_Top At_Offset_0 005b 020f | | Execute Module,Activate 005c e20f | | Load 0x1,0xf 005d e006 | | Load 0x0,0x6 005e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005f e007 | | Load 0x0,0x7 0060 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0061 e007 | | Load 0x0,0x7 0062 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0063 00e1 | | Load_Encached Boolean_Cache 0064 00e2 | | Load_Encached Integer_Cache 0065 e002 | | Load 0x0,0x2 0066 00e2 | | Load_Encached Integer_Cache 0067 00e2 | | Load_Encached Integer_Cache 0068 00e1 | | Load_Encached Boolean_Cache 0069 e22e | . | Load 0x1,0x2e 006a 1b10 | | Execute Package,Field_Read,Field_Number 0x10 006b 029f 065b | [| Declare_Subprogram INIT_0658,For_Call 006d 480b |H | Short_Literal 0xb 006e 032d | - | Declare_Type Record,Defined 006f 00d8 | | Load_Top At_Offset_0 0070 02a0 | | Declare_Subprogram Null_Subprogram 0071 e22c | , | Load 0x1,0x2c 0072 03a3 | | Complete_Type Heap_Access,By_Defining 0073 029d 067b | {| Declare_Subprogram INIT_0678,For_Outer_Call 0075 029d 070b | | Declare_Subprogram INIT_0708,For_Outer_Call 0077 029d 071b | | Declare_Subprogram INIT_0718,For_Outer_Call 0079 029d 074b | K| Declare_Subprogram INIT_0748,For_Outer_Call 007b 029d 078b | | Declare_Subprogram INIT_0788,For_Outer_Call 007d 029d 07f3 | | Declare_Subprogram INIT_07f0,For_Outer_Call 007f 029d 083b | ;| Declare_Subprogram INIT_0838,For_Outer_Call 0081 029d 0853 | S| Declare_Subprogram INIT_0850,For_Outer_Call 0083 e008 | | Load 0x0,0x8 0084 e009 | | Load 0x0,0x9 0085 e00a | | Load 0x0,0xa 0086 e007 | | Load 0x0,0x7 0087 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 0088 0387 | | Declare_Variable Package 0089 00d8 | | Load_Top At_Offset_0 008a 020f | | Execute Module,Activate 008b 029d 086b | k| Declare_Subprogram INIT_0868,For_Outer_Call 008d 029d 0943 | C| Declare_Subprogram INIT_0940,For_Outer_Call 008f 029d 095b | [| Declare_Subprogram INIT_0958,For_Outer_Call 0091 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0092 00c7 | | Action Elaborate_Subprogram 0093 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0094 00c7 | | Action Elaborate_Subprogram 0095 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0096 00c7 | | Action Elaborate_Subprogram 0097 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0098 00c7 | | Action Elaborate_Subprogram 0099 1d11 | | Execute_Immediate Reference_Lex_1,0x11 009a 00c7 | | Action Elaborate_Subprogram 009b 1d12 | | Execute_Immediate Reference_Lex_1,0x12 009c 00c7 | | Action Elaborate_Subprogram 009d 1d13 | | Execute_Immediate Reference_Lex_1,0x13 009e 00c7 | | Action Elaborate_Subprogram 009f 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00a0 00c7 | | Action Elaborate_Subprogram 00a1 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00a2 00c7 | | Action Elaborate_Subprogram 00a3 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00a4 00c7 | | Action Elaborate_Subprogram 00a5 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00a6 00c7 | | Action Elaborate_Subprogram 00a7 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00a8 00c7 | | Action Elaborate_Subprogram 00a9 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00aa 00c7 | | Action Elaborate_Subprogram 00ab 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00ac 00c7 | | Action Elaborate_Subprogram 00ad 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00ae 00c7 | | Action Elaborate_Subprogram 00af 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00b0 00c7 | | Action Elaborate_Subprogram 00b1 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00b2 00c7 | | Action Elaborate_Subprogram 00b3 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00b4 00c7 | | Action Elaborate_Subprogram 00b5 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00b6 00c7 | | Action Elaborate_Subprogram 00b7 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00b8 00c7 | | Action Elaborate_Subprogram 00b9 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00ba 00c7 | | Action Elaborate_Subprogram 00bb 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00bc 00c7 | | Action Elaborate_Subprogram 00bd 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00be 00c7 | | Action Elaborate_Subprogram 00bf 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00c0 00c7 | | Action Elaborate_Subprogram 00c1 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00c2 00c7 | | Action Elaborate_Subprogram 00c3 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00c4 00c7 | | Action Elaborate_Subprogram 00c5 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00c6 00c7 | | Action Elaborate_Subprogram 00c7 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00c8 00c7 | | Action Elaborate_Subprogram 00c9 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00ca 00c7 | | Action Elaborate_Subprogram 00cb 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 00cc 00c7 | | Action Elaborate_Subprogram 00cd BODY_0008: 00cd 00bc | | Action Signal_Activated 00ce 00bb | | Action Signal_Completion 00cf 0000 | | .XXX[0x1] 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 e22c | , | Load 0x1,0x2c 00d4 00ca | | Action Exit_Nullary_Function 00d5 0000 0000 | | .XXX[0x3] 00d7 0000 | | 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 00da | | Load_Top At_Offset_2 00dc 021d | | Execute Heap_Access,Is_Null 00dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00de 0000 0000 | | .XXX[0x2] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 4607 |F | Jump_Case 0x8 00e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00e5 7807 |x | Jump 0xed ; case 0x1 00e6 780a |x | Jump 0xf1 ; case 0x2 00e7 780e |x | Jump 0xf6 ; case 0x3 00e8 7811 |x | Jump 0xfa ; case 0x4 00e9 7812 |x | Jump 0xfc ; case 0x5 00ea 7813 |x | Jump 0xfe ; case 0x6 00eb 7816 |x | Jump 0x102 ; case 0x7 00ec 4302 |C | .XXX[0x1] 00ed 00da | | Load_Top At_Offset_2 00ee 0091 09cb | | Action Push_String_Extended_Indexed,0x9cb ; "READ" 00f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00f1 00db | | Load_Top At_Offset_3 00f2 00db | | Load_Top At_Offset_3 00f3 00e0 | | Load_Encached Standard_Cache 00f4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f6 00da | | Load_Top At_Offset_2 00f7 00e0 | | Load_Encached Standard_Cache 00f8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00f9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00fa 00db | | Load_Top At_Offset_3 00fb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fc 00db | | Load_Top At_Offset_3 00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fe e20f | | Load 0x1,0xf 00ff 00dc | | Load_Top At_Offset_4 0100 0267 | g | Execute Discrete,Predecessor 0101 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0102 e20f | | Load 0x1,0xf 0103 00dc | | Load_Top At_Offset_4 0104 0268 | h | Execute Discrete,Successor 0105 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0106 0000 0000 | | .XXX[0x2] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 0111 | | .CONST 0x0111 ; Address of begin 0109 0164 | d | .CONST 0x0164 ; Address of exception handler 010a 0002 | | .CONST 0x0002 ; Number of locals 010b INIT_0108: 010b e22c | , | Load 0x1,0x2c 010c e00b | | Load 0x0,0xb 010d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 010e e00c | | Load 0x0,0xc 010f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0110 039c | | Declare_Variable Heap_Access,By_Allocation 0111 BODY_0108: 0111 e5fe | | Load 0x2,-0x2 0112 00d9 | | Load_Top At_Offset_1 0113 0217 | | Execute Heap_Access,All_Reference 0114 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0115 4800 |H | Short_Literal 0x0 0116 00d9 | | Load_Top At_Offset_1 0117 0217 | | Execute Heap_Access,All_Reference 0118 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0119 e5fe | | Load 0x2,-0x2 011a 4602 |F | Jump_Case 0x3 011b 7816 |x | Jump 0x132 ; case 0x0 011c 782e |x. | Jump 0x14b ; case 0x1 011d 7800 |x | Jump 0x11e ; case 0x2 011e 00d8 | | Load_Top At_Offset_0 011f 0219 | | Execute Heap_Access,All_Read 0120 00d8 | | Load_Top At_Offset_0 0121 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0122 e00d | | Load 0x0,0xd 0123 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0124 e00e | | Load 0x0,0xe 0125 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0126 00ea | | Load_Encached Null_String_Cache 0127 e5ff | | Load 0x2,-0x1 0128 e006 | | Load 0x0,0x6 0129 1816 | | Execute Package,Field_Execute,Field_Number 0x16 012a 00d9 | | Load_Top At_Offset_1 012b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 012c 00d1 | | Pop_Control Pop_Count_1 012d 00db | | Load_Top At_Offset_3 012e e5fe | | Load 0x2,-0x2 012f 00da | | Load_Top At_Offset_2 0130 8234 | 4 | Call 0x1,0x34 0131 782f |x/ | Jump 0x161 0132 00db | | Load_Top At_Offset_3 0133 e5fe | | Load 0x2,-0x2 0134 00da | | Load_Top At_Offset_2 0135 8234 | 4 | Call 0x1,0x34 0136 00d8 | | Load_Top At_Offset_0 0137 0217 | | Execute Heap_Access,All_Reference 0138 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0139 6827 |h' | Jump_Zero 0x161 013a 00d8 | | Load_Top At_Offset_0 013b 0219 | | Execute Heap_Access,All_Read 013c 00d8 | | Load_Top At_Offset_0 013d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 013e e00d | | Load 0x0,0xd 013f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0140 e00e | | Load 0x0,0xe 0141 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0142 00ea | | Load_Encached Null_String_Cache 0143 e5ff | | Load 0x2,-0x1 0144 4800 |H | Short_Literal 0x0 0145 e006 | | Load 0x0,0x6 0146 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0147 00d9 | | Load_Top At_Offset_1 0148 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0149 00d1 | | Pop_Control Pop_Count_1 014a 7816 |x | Jump 0x161 014b 00d8 | | Load_Top At_Offset_0 014c 0219 | | Execute Heap_Access,All_Read 014d 00d8 | | Load_Top At_Offset_0 014e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 014f e00d | | Load 0x0,0xd 0150 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0151 e00e | | Load 0x0,0xe 0152 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0153 e00e | | Load 0x0,0xe 0154 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0155 00ea | | Load_Encached Null_String_Cache 0156 e5ff | | Load 0x2,-0x1 0157 4801 |H | Short_Literal 0x1 0158 e006 | | Load 0x0,0x6 0159 1818 | | Execute Package,Field_Execute,Field_Number 0x18 015a 00d9 | | Load_Top At_Offset_1 015b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 015c 00d1 | | Pop_Control Pop_Count_1 015d 00db | | Load_Top At_Offset_3 015e e5fe | | Load 0x2,-0x2 015f 00da | | Load_Top At_Offset_2 0160 8234 | 4 | Call 0x1,0x34 0161 00d8 | | Load_Top At_Offset_0 0162 a5fd | | Store_Unchecked 0x2,-0x3 0163 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0164 TRAP_0108: 0164 0007 | | Action Break_Optional 0165 e00f | | Load 0x0,0xf 0166 180e | | Execute Package,Field_Execute,Field_Number 0xe 0167 4808 |H | Short_Literal 0x8 0168 0092 09ce | | Action Push_String_Extended,0x9ce ; "Cannot open " 016a e5ff | | Load 0x2,-0x1 016b 01cc | | Execute Vector,Catenate 016c 0092 09cf | | Action Push_String_Extended,0x9cf ; " (" 016e 01cc | | Execute Vector,Catenate 016f 4800 |H | Short_Literal 0x0 0170 4801 |H | Short_Literal 0x1 0171 e010 | | Load 0x0,0x10 0172 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0173 01cc | | Execute Vector,Catenate 0174 0092 09d0 | | Action Push_String_Extended,0x9d0 ; ")" 0176 01cc | | Execute Vector,Catenate 0177 e011 | | Load 0x0,0x11 0178 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0179 e22c | , | Load 0x1,0x2c 017a a5fd | | Store_Unchecked 0x2,-0x3 017b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 017c 0000 0000 | | .BLANK 0000[0x4] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0185 | | .CONST 0x0185 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0002 | | .CONST 0x0002 ; Number of locals 0183 INIT_0180: 0183 e007 | | Load 0x0,0x7 0184 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0185 BODY_0180: 0185 e5fe | | Load 0x2,-0x2 0186 0217 | | Execute Heap_Access,All_Reference 0187 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0188 6802 |h | Jump_Zero 0x18b 0189 e5fe | | Load 0x2,-0x2 018a 8217 | | Call 0x1,0x17 018b e5fe | | Load 0x2,-0x2 018c 0217 | | Execute Heap_Access,All_Reference 018d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 018e e006 | | Load 0x0,0x6 018f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0190 6809 |h | Jump_Zero 0x19a 0191 e5fe | | Load 0x2,-0x2 0192 0219 | | Execute Heap_Access,All_Read 0193 00d8 | | Load_Top At_Offset_0 0194 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0195 e006 | | Load 0x0,0x6 0196 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0197 00d9 | | Load_Top At_Offset_1 0198 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0199 00d1 | | Pop_Control Pop_Count_1 019a e5fe | | Load 0x2,-0x2 019b 0217 | | Execute Heap_Access,All_Reference 019c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 019d e007 | | Load 0x0,0x7 019e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 019f 680c |h | Jump_Zero 0x1ac 01a0 e5fe | | Load 0x2,-0x2 01a1 0219 | | Execute Heap_Access,All_Read 01a2 e007 | | Load 0x0,0x7 01a3 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01a4 00d9 | | Load_Top At_Offset_1 01a5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01a6 e007 | | Load 0x0,0x7 01a7 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01a8 00da | | Load_Top At_Offset_2 01a9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01aa 005a | Z | Store_Top Discrete,At_Offset_2 01ab 00d1 | | Pop_Control Pop_Count_1 01ac e5fe | | Load 0x2,-0x2 01ad 8236 | 6 | Call 0x1,0x36 01ae e22c | , | Load 0x1,0x2c 01af a5fe | | Store_Unchecked 0x2,-0x2 01b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b1 0000 0000 | | .BLANK 0000[0x7] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 00da | | Load_Top At_Offset_2 01bc 021c | | Execute Heap_Access,Not_Null 01bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01be 0000 0000 | | .XXX[0x2] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 00da | | Load_Top At_Offset_2 01c4 8237 | 7 | Call 0x1,0x37 01c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c6 0000 0000 | | .XXX[0x2] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01d0 | | .CONST 0x01d0 ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0002 | | .CONST 0x0002 ; Number of locals 01cb INIT_01c8: 01cb 00da | | Load_Top At_Offset_2 01cc 0217 | | Execute Heap_Access,All_Reference 01cd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01ce e006 | | Load 0x0,0x6 01cf 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01d0 BODY_01c8: 01d0 00db | | Load_Top At_Offset_3 01d1 0217 | | Execute Heap_Access,All_Reference 01d2 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01d3 6802 |h | Jump_Zero 0x1d6 01d4 00db | | Load_Top At_Offset_3 01d5 8217 | | Call 0x1,0x17 01d6 e5fe | | Load 0x2,-0x2 01d7 4602 |F | Jump_Case 0x3 01d8 781b |x | Jump 0x1f4 ; case 0x0 01d9 782a |x* | Jump 0x204 ; case 0x1 01da 7800 |x | Jump 0x1db ; case 0x2 01db 00db | | Load_Top At_Offset_3 01dc 0219 | | Execute Heap_Access,All_Read 01dd 00d8 | | Load_Top At_Offset_0 01de 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01df e006 | | Load 0x0,0x6 01e0 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01e1 00d9 | | Load_Top At_Offset_1 01e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01e3 00d1 | | Pop_Control Pop_Count_1 01e4 00db | | Load_Top At_Offset_3 01e5 0219 | | Execute Heap_Access,All_Read 01e6 00d8 | | Load_Top At_Offset_0 01e7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01e8 e00d | | Load 0x0,0xd 01e9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01ea e00e | | Load 0x0,0xe 01eb 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01ec 00ea | | Load_Encached Null_String_Cache 01ed e402 | | Load 0x2,0x2 01ee e006 | | Load 0x0,0x6 01ef 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01f0 00d9 | | Load_Top At_Offset_1 01f1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01f2 00d1 | | Pop_Control Pop_Count_1 01f3 781a |x | Jump 0x20e 01f4 00db | | Load_Top At_Offset_3 01f5 0217 | | Execute Heap_Access,All_Reference 01f6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01f7 e006 | | Load 0x0,0x6 01f8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 01f9 6814 |h | Jump_Zero 0x20e 01fa 00db | | Load_Top At_Offset_3 01fb 0219 | | Execute Heap_Access,All_Read 01fc 00d8 | | Load_Top At_Offset_0 01fd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01fe e006 | | Load 0x0,0x6 01ff 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0200 00d9 | | Load_Top At_Offset_1 0201 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0202 00d1 | | Pop_Control Pop_Count_1 0203 780a |x | Jump 0x20e 0204 00db | | Load_Top At_Offset_3 0205 0219 | | Execute Heap_Access,All_Read 0206 00d8 | | Load_Top At_Offset_0 0207 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0208 4801 |H | Short_Literal 0x1 0209 e006 | | Load 0x0,0x6 020a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 020b 00d9 | | Load_Top At_Offset_1 020c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 020d 00d1 | | Pop_Control Pop_Count_1 020e 00d8 | | Load_Top At_Offset_0 020f e5fe | | Load 0x2,-0x2 0210 e5ff | | Load 0x2,-0x1 0211 8235 | 5 | Call 0x1,0x35 0212 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0213 0000 0000 | | .BLANK 0000[0x5] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0240 | @ | .CONST 0x0240 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 00da | | Load_Top At_Offset_2 021c 0217 | | Execute Heap_Access,All_Reference 021d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 021e 6804 |h | Jump_Zero 0x223 021f e5fd | | Load 0x2,-0x3 0220 00db | | Load_Top At_Offset_3 0221 8232 | 2 | Call 0x1,0x32 0222 7811 |x | Jump 0x234 0223 00cf | | Action Mark_Auxiliary 0224 00db | | Load_Top At_Offset_3 0225 8231 | 1 | Call 0x1,0x31 0226 e5fd | | Load 0x2,-0x3 0227 017d | } | Execute Record,Structure_Write 0228 00db | | Load_Top At_Offset_3 0229 0217 | | Execute Heap_Access,All_Reference 022a 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 022b 0c01 | | Execute_Immediate Greater_Equal,0x1 022c 7004 |p | Jump_Nonzero 0x231 022d e5fe | | Load 0x2,-0x2 022e 7002 |p | Jump_Nonzero 0x231 022f 00c9 | | Action Pop_Auxiliary_Loop 0230 7ff3 | | Jump 0x224 0231 00ce | | Action Pop_Auxiliary 0232 00da | | Load_Top At_Offset_2 0233 823a | : | Call 0x1,0x3a 0234 4801 |H | Short_Literal 0x1 0235 00db | | Load_Top At_Offset_3 0236 0217 | | Execute Heap_Access,All_Reference 0237 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0238 00da | | Load_Top At_Offset_2 0239 0217 | | Execute Heap_Access,All_Reference 023a 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 023b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 023c 00db | | Load_Top At_Offset_3 023d 0217 | | Execute Heap_Access,All_Reference 023e 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 023f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0240 TRAP_0218: 0240 00d8 | | Load_Top At_Offset_0 0241 0107 | | Execute Exception,Get_Name 0242 4950 |IP | Short_Literal 0x150 0243 495f |I_ | Short_Literal 0x15f 0244 0262 | b | Execute Discrete,In_Range 0245 6809 |h | Jump_Zero 0x24f 0246 4800 |H | Short_Literal 0x0 0247 e5ff | | Load 0x2,-0x1 0248 0217 | | Execute Heap_Access,All_Reference 0249 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 024a 4800 |H | Short_Literal 0x0 024b e5ff | | Load 0x2,-0x1 024c 0217 | | Execute Heap_Access,All_Reference 024d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 024e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 024f 0100 | | Execute Exception,Raise 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 00da | | Load_Top At_Offset_2 0254 0217 | | Execute Heap_Access,All_Reference 0255 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0256 6802 |h | Jump_Zero 0x259 0257 4900 |I | Short_Literal 0x100 0258 0257 | W | Execute Discrete,Raise 0259 00cf | | Action Mark_Auxiliary 025a 7822 |x" | Jump 0x27d 025b 00db | | Load_Top At_Offset_3 025c 8231 | 1 | Call 0x1,0x31 025d e5fc | | Load 0x2,-0x4 025e 017d | } | Execute Record,Structure_Write 025f e5fd | | Load 0x2,-0x3 0260 7003 |p | Jump_Nonzero 0x264 0261 00db | | Load_Top At_Offset_3 0262 821f | | Call 0x1,0x1f 0263 7018 |p | Jump_Nonzero 0x27c 0264 00db | | Load_Top At_Offset_3 0265 0217 | | Execute Heap_Access,All_Reference 0266 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0267 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0268 e012 | | Load 0x0,0x12 0269 1813 | | Execute Package,Field_Execute,Field_Number 0x13 026a e5fe | | Load 0x2,-0x2 026b e013 | | Load 0x0,0x13 026c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 026d 680e |h | Jump_Zero 0x27c 026e 00db | | Load_Top At_Offset_3 026f 823a | : | Call 0x1,0x3a 0270 00db | | Load_Top At_Offset_3 0271 0217 | | Execute Heap_Access,All_Reference 0272 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0273 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0274 e5ff | | Load 0x2,-0x1 0275 0217 | | Execute Heap_Access,All_Reference 0276 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0277 4801 |H | Short_Literal 0x1 0278 e5ff | | Load 0x2,-0x1 0279 0217 | | Execute Heap_Access,All_Reference 027a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 027b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 027c 00c9 | | Action Pop_Auxiliary_Loop 027d 00db | | Load_Top At_Offset_3 027e 8237 | 7 | Call 0x1,0x37 027f 6fdb |o | Jump_Zero 0x25b 0280 00ce | | Action Pop_Auxiliary 0281 8014 | | Call 0x0,0x14 0282 e5fc | | Load 0x2,-0x4 0283 017d | } | Execute Record,Structure_Write 0284 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0285 0000 0000 | | .XXX[0x3] 0287 0000 | | 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028b | | .CONST 0x028b ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0001 | | .CONST 0x0001 ; Number of locals 028b BODY_0288: 028b INIT_0288: 028b 00da | | Load_Top At_Offset_2 028c 821b | | Call 0x1,0x1b 028d 6820 |h | Jump_Zero 0x2ae 028e 00da | | Load_Top At_Offset_2 028f 0217 | | Execute Heap_Access,All_Reference 0290 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0291 6818 |h | Jump_Zero 0x2aa 0292 7800 |x | Jump 0x293 0293 00da | | Load_Top At_Offset_2 0294 821d | | Call 0x1,0x1d 0295 0c01 | | Execute_Immediate Greater_Equal,0x1 0296 6813 |h | Jump_Zero 0x2aa 0297 4801 |H | Short_Literal 0x1 0298 00db | | Load_Top At_Offset_3 0299 821d | | Call 0x1,0x1d 029a e015 | | Load 0x0,0x15 029b 1b12 | | Execute Package,Field_Read,Field_Number 0x12 029c 035b | [ | Declare_Type Array,Constrained 029d 0337 | 7 | Declare_Variable Array 029e 00d8 | | Load_Top At_Offset_0 029f 01dc | | Execute Vector,Last 02a0 4801 |H | Short_Literal 0x1 02a1 0263 | c | Execute Discrete,Above_Bound 02a2 7005 |p | Jump_Nonzero 0x2a8 02a3 4800 |H | Short_Literal 0x0 02a4 00d9 | | Load_Top At_Offset_1 02a5 e402 | | Load 0x2,0x2 02a6 01d6 | | Execute Vector,Field_Write 02a7 3ffb |? | Loop_Increasing 0x2a3 02a8 00db | | Load_Top At_Offset_3 02a9 8228 | ( | Call 0x1,0x28 02aa 4800 |H | Short_Literal 0x0 02ab 00db | | Load_Top At_Offset_3 02ac 0217 | | Execute Heap_Access,All_Reference 02ad 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 02ae 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02af 0000 | | .XXX[0x1] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 00da | | Load_Top At_Offset_2 02b4 0217 | | Execute Heap_Access,All_Reference 02b5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 02b6 6813 |h | Jump_Zero 0x2ca 02b7 00da | | Load_Top At_Offset_2 02b8 0217 | | Execute Heap_Access,All_Reference 02b9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02ba 700f |p | Jump_Nonzero 0x2ca 02bb 00da | | Load_Top At_Offset_2 02bc 0217 | | Execute Heap_Access,All_Reference 02bd 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 02be 0c01 | | Execute_Immediate Greater_Equal,0x1 02bf 6809 |h | Jump_Zero 0x2c9 02c0 00da | | Load_Top At_Offset_2 02c1 0217 | | Execute Heap_Access,All_Reference 02c2 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 02c3 0275 | u | Execute Discrete,Unary_Minus 02c4 00db | | Load_Top At_Offset_3 02c5 0217 | | Execute Heap_Access,All_Reference 02c6 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 02c7 00da | | Load_Top At_Offset_2 02c8 8233 | 3 | Call 0x1,0x33 02c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02ca 4900 |I | Short_Literal 0x100 02cb 0257 | W | Execute Discrete,Raise 02cc 0000 0000 | | .BLANK 0000[0x4] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d3 | | .CONST 0x02d3 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0001 | | .CONST 0x0001 ; Number of locals 02d3 BODY_02d0: 02d3 INIT_02d0: 02d3 00da | | Load_Top At_Offset_2 02d4 0217 | | Execute Heap_Access,All_Reference 02d5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 02d6 6813 |h | Jump_Zero 0x2ea 02d7 00da | | Load_Top At_Offset_2 02d8 0217 | | Execute Heap_Access,All_Reference 02d9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02da 700f |p | Jump_Nonzero 0x2ea 02db 00da | | Load_Top At_Offset_2 02dc 0217 | | Execute Heap_Access,All_Reference 02dd 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 02de 0d00 | | Execute_Immediate Less,0x0 02df 6809 |h | Jump_Zero 0x2e9 02e0 00da | | Load_Top At_Offset_2 02e1 0217 | | Execute Heap_Access,All_Reference 02e2 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 02e3 0275 | u | Execute Discrete,Unary_Minus 02e4 00db | | Load_Top At_Offset_3 02e5 0217 | | Execute Heap_Access,All_Reference 02e6 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 02e7 00da | | Load_Top At_Offset_2 02e8 8233 | 3 | Call 0x1,0x33 02e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02ea 4900 |I | Short_Literal 0x100 02eb 0257 | W | Execute Discrete,Raise 02ec 0000 0000 | | .BLANK 0000[0x4] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02f3 | | .CONST 0x02f3 ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0001 | | .CONST 0x0001 ; Number of locals 02f3 BODY_02f0: 02f3 INIT_02f0: 02f3 00da | | Load_Top At_Offset_2 02f4 0217 | | Execute Heap_Access,All_Reference 02f5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 02f6 680c |h | Jump_Zero 0x303 02f7 00da | | Load_Top At_Offset_2 02f8 0219 | | Execute Heap_Access,All_Read 02f9 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 02fa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02fb 00d8 | | Load_Top At_Offset_0 02fc e5fe | | Load 0x2,-0x2 02fd e012 | | Load 0x0,0x12 02fe 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02ff 00d2 | | Pop_Control Pop_Count_2 0300 00da | | Load_Top At_Offset_2 0301 8233 | 3 | Call 0x1,0x33 0302 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0303 4900 |I | Short_Literal 0x100 0304 0257 | W | Execute Discrete,Raise 0305 0000 0000 | | .XXX[0x3] 0307 0000 | | 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b 00da | | Load_Top At_Offset_2 030c 6804 |h | Jump_Zero 0x311 030d 00da | | Load_Top At_Offset_2 030e 0217 | | Execute Heap_Access,All_Reference 030f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0310 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0311 4800 |H | Short_Literal 0x0 0312 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0313 0000 0000 | | .BLANK 0000[0x5] 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 031b | | .CONST 0x031b ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0001 | | .CONST 0x0001 ; Number of locals 031b BODY_0318: 031b INIT_0318: 031b 00da | | Load_Top At_Offset_2 031c 821b | | Call 0x1,0x1b 031d 6805 |h | Jump_Zero 0x323 031e 00da | | Load_Top At_Offset_2 031f 0217 | | Execute Heap_Access,All_Reference 0320 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0321 0d01 | | Execute_Immediate Less,0x1 0322 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0323 4801 |H | Short_Literal 0x1 0324 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0325 0000 0000 | | .XXX[0x3] 0327 0000 | | 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 00da | | Load_Top At_Offset_2 032c 0217 | | Execute Heap_Access,All_Reference 032d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 032e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 032f 0000 | | .XXX[0x1] 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0333 | 3 | .CONST 0x0333 ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0001 | | .CONST 0x0001 ; Number of locals 0333 BODY_0330: 0333 INIT_0330: 0333 00da | | Load_Top At_Offset_2 0334 821b | | Call 0x1,0x1b 0335 6806 |h | Jump_Zero 0x33c 0336 00da | | Load_Top At_Offset_2 0337 0217 | | Execute Heap_Access,All_Reference 0338 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0339 0320 | | Declare_Variable Record,Duplicate 033a 00cd | | Action Spare6_Action 033b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 033c 8014 | | Call 0x0,0x14 033d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 033e 0000 0000 | | .XXX[0x2] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0343 | C | .CONST 0x0343 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0001 | | .CONST 0x0001 ; Number of locals 0343 BODY_0340: 0343 INIT_0340: 0343 00da | | Load_Top At_Offset_2 0344 0217 | | Execute Heap_Access,All_Reference 0345 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0346 0d00 | | Execute_Immediate Less,0x0 0347 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 034b | K | .CONST 0x034b ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0001 | | .CONST 0x0001 ; Number of locals 034b BODY_0348: 034b INIT_0348: 034b 00da | | Load_Top At_Offset_2 034c 0217 | | Execute Heap_Access,All_Reference 034d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 034e 0274 | t | Execute Discrete,Absolute_Value 034f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0353 | S | .CONST 0x0353 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0001 | | .CONST 0x0001 ; Number of locals 0353 BODY_0350: 0353 INIT_0350: 0353 00da | | Load_Top At_Offset_2 0354 0217 | | Execute Heap_Access,All_Reference 0355 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0356 7011 |p | Jump_Nonzero 0x368 0357 00da | | Load_Top At_Offset_2 0358 0217 | | Execute Heap_Access,All_Reference 0359 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 035a 700d |p | Jump_Nonzero 0x368 035b 00db | | Load_Top At_Offset_3 035c 00d8 | | Load_Top At_Offset_0 035d e22e | . | Load 0x1,0x2e 035e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 035f 0260 | ` | Execute Discrete,In_Type 0360 7001 |p | Jump_Nonzero 0x362 0361 0801 | | Execute_Immediate Raise,0x1 0362 00db | | Load_Top At_Offset_3 0363 0217 | | Execute Heap_Access,All_Reference 0364 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 0365 e22e | . | Load 0x1,0x2e 0366 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0367 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0368 4900 |I | Short_Literal 0x100 0369 0257 | W | Execute Discrete,Raise 036a 0000 0000 | | .BLANK 0000[0x6] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0373 | s | .CONST 0x0373 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0001 | | .CONST 0x0001 ; Number of locals 0373 BODY_0370: 0373 INIT_0370: 0373 00da | | Load_Top At_Offset_2 0374 0217 | | Execute Heap_Access,All_Reference 0375 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0376 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0377 0000 | | .XXX[0x1] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037c | | | .CONST 0x037c ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0002 | | .CONST 0x0002 ; Number of locals 037b INIT_0378: 037b 00e2 | | Load_Encached Integer_Cache 037c BODY_0378: 037c 00db | | Load_Top At_Offset_3 037d 0217 | | Execute Heap_Access,All_Reference 037e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 037f 6802 |h | Jump_Zero 0x382 0380 4900 |I | Short_Literal 0x100 0381 0257 | W | Execute Discrete,Raise 0382 e5fd | | Load 0x2,-0x3 0383 e5ff | | Load 0x2,-0x1 0384 8232 | 2 | Call 0x1,0x32 0385 00e2 | | Load_Encached Integer_Cache 0386 e5ff | | Load 0x2,-0x1 0387 0217 | | Execute Heap_Access,All_Reference 0388 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0389 e5fc | | Load 0x2,-0x4 038a e5fe | | Load 0x2,-0x2 038b 8016 | | Call 0x0,0x16 038c 0059 | Y | Store_Top Discrete,At_Offset_1 038d 00d8 | | Load_Top At_Offset_0 038e e5fd | | Load 0x2,-0x3 038f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0390 027e | ~ | Execute Discrete,Not_Equal 0391 6802 |h | Jump_Zero 0x394 0392 4960 |I` | Short_Literal 0x160 0393 0257 | W | Execute Discrete,Raise 0394 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0395 0000 0000 | | .XXX[0x3] 0397 0000 | | 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 03a0 | | .CONST 0x03a0 ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0003 | | .CONST 0x0003 ; Number of locals 039b INIT_0398: 039b 00da | | Load_Top At_Offset_2 039c 821d | | Call 0x1,0x1d 039d 00e2 | | Load_Encached Integer_Cache 039e 03f1 | | Declare_Variable Discrete,With_Value 039f 00e2 | | Load_Encached Integer_Cache 03a0 BODY_0398: 03a0 e5ff | | Load 0x2,-0x1 03a1 823b | ; | Call 0x1,0x3b 03a2 00d9 | | Load_Top At_Offset_1 03a3 e5fe | | Load 0x2,-0x2 03a4 01db | | Execute Vector,Length 03a5 027b | { | Execute Discrete,Greater_Equal 03a6 6812 |h | Jump_Zero 0x3b9 03a7 e5ff | | Load 0x2,-0x1 03a8 0219 | | Execute Heap_Access,All_Read 03a9 00e3 | | Load_Encached Natural_Cache 03aa e5fe | | Load 0x2,-0x2 03ab 00da | | Load_Top At_Offset_2 03ac 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 03ad e5ff | | Load 0x2,-0x1 03ae 0217 | | Execute Heap_Access,All_Reference 03af 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03b0 e007 | | Load 0x0,0x7 03b1 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 03b2 180f | | Execute Package,Field_Execute,Field_Number 0xf 03b3 00db | | Load_Top At_Offset_3 03b4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 03b5 00d1 | | Pop_Control Pop_Count_1 03b6 005a | Z | Store_Top Discrete,At_Offset_2 03b7 00d1 | | Pop_Control Pop_Count_1 03b8 7828 |x( | Jump 0x3e1 03b9 00d9 | | Load_Top At_Offset_1 03ba 0c01 | | Execute_Immediate Greater_Equal,0x1 03bb 6823 |h# | Jump_Zero 0x3df 03bc e5fe | | Load 0x2,-0x2 03bd 00d8 | | Load_Top At_Offset_0 03be 01dd | | Execute Vector,First 03bf e5fe | | Load 0x2,-0x2 03c0 01dd | | Execute Vector,First 03c1 e402 | | Load 0x2,0x2 03c2 0273 | s | Execute Discrete,Plus 03c3 0aff | | Execute_Immediate Plus,-0x1 03c4 00d8 | | Load_Top At_Offset_0 03c5 00e2 | | Load_Encached Integer_Cache 03c6 0260 | ` | Execute Discrete,In_Type 03c7 7001 |p | Jump_Nonzero 0x3c9 03c8 0801 | | Execute_Immediate Raise,0x1 03c9 00da | | Load_Top At_Offset_2 03ca 035b | [ | Declare_Type Array,Constrained 03cb 00d0 | | Action Swap_Control 03cc 01cd | | Execute Vector,Slice_Reference 03cd e5ff | | Load 0x2,-0x1 03ce 0219 | | Execute Heap_Access,All_Read 03cf 00e3 | | Load_Encached Natural_Cache 03d0 00da | | Load_Top At_Offset_2 03d1 00da | | Load_Top At_Offset_2 03d2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 03d3 e5ff | | Load 0x2,-0x1 03d4 0217 | | Execute Heap_Access,All_Reference 03d5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03d6 e007 | | Load 0x0,0x7 03d7 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 03d8 180f | | Execute Package,Field_Execute,Field_Number 0xf 03d9 00db | | Load_Top At_Offset_3 03da 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 03db 00d1 | | Pop_Control Pop_Count_1 03dc 005b | [ | Store_Top Discrete,At_Offset_3 03dd 00d2 | | Pop_Control Pop_Count_2 03de 7802 |x | Jump 0x3e1 03df 4950 |IP | Short_Literal 0x150 03e0 0257 | W | Execute Discrete,Raise 03e1 e5ff | | Load 0x2,-0x1 03e2 0217 | | Execute Heap_Access,All_Reference 03e3 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 03e4 00d9 | | Load_Top At_Offset_1 03e5 0272 | r | Execute Discrete,Minus 03e6 e5ff | | Load 0x2,-0x1 03e7 0217 | | Execute Heap_Access,All_Reference 03e8 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 03e9 00d8 | | Load_Top At_Offset_0 03ea c5fd | | Store 0x2,-0x3 03eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03ec 0000 0000 | | .BLANK 0000[0x4] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03f8 | | .CONST 0x03f8 ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0003 | | .CONST 0x0003 ; Number of locals 03f3 INIT_03f0: 03f3 00da | | Load_Top At_Offset_2 03f4 821d | | Call 0x1,0x1d 03f5 00e2 | | Load_Encached Integer_Cache 03f6 03f1 | | Declare_Variable Discrete,With_Value 03f7 00e2 | | Load_Encached Integer_Cache 03f8 BODY_03f0: 03f8 e5ff | | Load 0x2,-0x1 03f9 823b | ; | Call 0x1,0x3b 03fa 00d9 | | Load_Top At_Offset_1 03fb e5fe | | Load 0x2,-0x2 03fc 01db | | Execute Vector,Length 03fd 027b | { | Execute Discrete,Greater_Equal 03fe 6812 |h | Jump_Zero 0x411 03ff e5ff | | Load 0x2,-0x1 0400 0219 | | Execute Heap_Access,All_Read 0401 00e3 | | Load_Encached Natural_Cache 0402 e5fe | | Load 0x2,-0x2 0403 00da | | Load_Top At_Offset_2 0404 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0405 e5ff | | Load 0x2,-0x1 0406 0217 | | Execute Heap_Access,All_Reference 0407 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0408 e007 | | Load 0x0,0x7 0409 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 040a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 040b 00db | | Load_Top At_Offset_3 040c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 040d 00d1 | | Pop_Control Pop_Count_1 040e 005a | Z | Store_Top Discrete,At_Offset_2 040f 00d1 | | Pop_Control Pop_Count_1 0410 7828 |x( | Jump 0x439 0411 00d9 | | Load_Top At_Offset_1 0412 0c01 | | Execute_Immediate Greater_Equal,0x1 0413 6823 |h# | Jump_Zero 0x437 0414 e5fe | | Load 0x2,-0x2 0415 00d8 | | Load_Top At_Offset_0 0416 01dd | | Execute Vector,First 0417 e5fe | | Load 0x2,-0x2 0418 01dd | | Execute Vector,First 0419 e402 | | Load 0x2,0x2 041a 0273 | s | Execute Discrete,Plus 041b 0aff | | Execute_Immediate Plus,-0x1 041c 00d8 | | Load_Top At_Offset_0 041d 00e2 | | Load_Encached Integer_Cache 041e 0260 | ` | Execute Discrete,In_Type 041f 7001 |p | Jump_Nonzero 0x421 0420 0801 | | Execute_Immediate Raise,0x1 0421 00da | | Load_Top At_Offset_2 0422 035b | [ | Declare_Type Array,Constrained 0423 00d0 | | Action Swap_Control 0424 01cd | | Execute Vector,Slice_Reference 0425 e5ff | | Load 0x2,-0x1 0426 0219 | | Execute Heap_Access,All_Read 0427 00e3 | | Load_Encached Natural_Cache 0428 00da | | Load_Top At_Offset_2 0429 00da | | Load_Top At_Offset_2 042a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 042b e5ff | | Load 0x2,-0x1 042c 0217 | | Execute Heap_Access,All_Reference 042d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 042e e007 | | Load 0x0,0x7 042f 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 0430 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0431 00db | | Load_Top At_Offset_3 0432 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0433 00d1 | | Pop_Control Pop_Count_1 0434 005b | [ | Store_Top Discrete,At_Offset_3 0435 00d2 | | Pop_Control Pop_Count_2 0436 7802 |x | Jump 0x439 0437 4950 |IP | Short_Literal 0x150 0438 0257 | W | Execute Discrete,Raise 0439 e5ff | | Load 0x2,-0x1 043a 0217 | | Execute Heap_Access,All_Reference 043b 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 043c 00d9 | | Load_Top At_Offset_1 043d 0272 | r | Execute Discrete,Minus 043e e5ff | | Load 0x2,-0x1 043f 0217 | | Execute Heap_Access,All_Reference 0440 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0441 00d8 | | Load_Top At_Offset_0 0442 c5fd | | Store 0x2,-0x3 0443 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0444 0000 0000 | | .BLANK 0000[0x4] 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 0459 | Y | .CONST 0x0459 ; Address of begin 0449 0004 | | .CONST 0x0004 ; Address of exception handler 044a 0005 | | .CONST 0x0005 ; Number of locals 044b INIT_0448: 044b e007 | | Load 0x0,0x7 044c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 044d 02c7 | | Declare_Variable Any 044e 00db | | Load_Top At_Offset_3 044f 0217 | | Execute Heap_Access,All_Reference 0450 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0451 a402 | | Store_Unchecked 0x2,0x2 0452 e015 | | Load 0x0,0x15 0453 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0454 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0455 00e2 | | Load_Encached Integer_Cache 0456 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0457 029f 0993 | | Declare_Subprogram INIT_0990,For_Call 0459 BODY_0448: 0459 e5ff | | Load 0x2,-0x1 045a 823b | ; | Call 0x1,0x3b 045b e5ff | | Load 0x2,-0x1 045c 0217 | | Execute Heap_Access,All_Reference 045d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 045e 7002 |p | Jump_Nonzero 0x461 045f 4950 |IP | Short_Literal 0x150 0460 0257 | W | Execute Discrete,Raise 0461 00cf | | Action Mark_Auxiliary 0462 781f |x | Jump 0x482 0463 e5ff | | Load 0x2,-0x1 0464 0219 | | Execute Heap_Access,All_Read 0465 e007 | | Load 0x0,0x7 0466 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 0467 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0468 00d9 | | Load_Top At_Offset_1 0469 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 046a e5ff | | Load 0x2,-0x1 046b 0217 | | Execute Heap_Access,All_Reference 046c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 046d e007 | | Load 0x0,0x7 046e 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 046f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0470 00da | | Load_Top At_Offset_2 0471 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0472 c403 | | Store 0x2,0x3 0473 00d1 | | Pop_Control Pop_Count_1 0474 e5ff | | Load 0x2,-0x1 0475 0217 | | Execute Heap_Access,All_Reference 0476 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0477 0aff | | Execute_Immediate Plus,-0x1 0478 e5ff | | Load 0x2,-0x1 0479 0217 | | Execute Heap_Access,All_Reference 047a 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 047b 00db | | Load_Top At_Offset_3 047c 0f0a | | Execute_Immediate Equal,0xa 047d 7009 |p | Jump_Nonzero 0x487 047e 00da | | Load_Top At_Offset_2 047f 0a01 | | Execute_Immediate Plus,0x1 0480 005b | [ | Store_Top Discrete,At_Offset_3 0481 00c9 | | Action Pop_Auxiliary_Loop 0482 e5ff | | Load 0x2,-0x1 0483 0217 | | Execute Heap_Access,All_Reference 0484 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0485 0c01 | | Execute_Immediate Greater_Equal,0x1 0486 77dc |w | Jump_Nonzero 0x463 0487 00ce | | Action Pop_Auxiliary 0488 8405 | | Call 0x2,0x5 0489 0831 | 1 | Execute_Immediate Raise,0x31 048a 0000 0000 | | .BLANK 0000[0x6] 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 04a1 | | .CONST 0x04a1 ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0006 | | .CONST 0x0006 ; Number of locals 0493 INIT_0490: 0493 e5fd | | Load 0x2,-0x3 0494 00e2 | | Load_Encached Integer_Cache 0495 03f1 | | Declare_Variable Discrete,With_Value 0496 00db | | Load_Top At_Offset_3 0497 821d | | Call 0x1,0x1d 0498 00e2 | | Load_Encached Integer_Cache 0499 03f1 | | Declare_Variable Discrete,With_Value 049a e5fe | | Load 0x2,-0x2 049b 8017 | | Call 0x0,0x17 049c 00e2 | | Load_Encached Integer_Cache 049d 03f1 | | Declare_Variable Discrete,With_Value 049e 00e2 | | Load_Encached Integer_Cache 049f e00a | | Load 0x0,0xa 04a0 0337 | 7 | Declare_Variable Array 04a1 BODY_0490: 04a1 e5ff | | Load 0x2,-0x1 04a2 823b | ; | Call 0x1,0x3b 04a3 00db | | Load_Top At_Offset_3 04a4 e402 | | Load 0x2,0x2 04a5 027c | | | Execute Discrete,Less 04a6 6802 |h | Jump_Zero 0x4a9 04a7 00db | | Load_Top At_Offset_3 04a8 a402 | | Store_Unchecked 0x2,0x2 04a9 00da | | Load_Top At_Offset_2 04aa e402 | | Load 0x2,0x2 04ab 027c | | | Execute Discrete,Less 04ac 6802 |h | Jump_Zero 0x4af 04ad 00da | | Load_Top At_Offset_2 04ae a402 | | Store_Unchecked 0x2,0x2 04af e402 | | Load 0x2,0x2 04b0 c5fc | | Store 0x2,-0x4 04b1 e5ff | | Load 0x2,-0x1 04b2 0217 | | Execute Heap_Access,All_Reference 04b3 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 04b4 e402 | | Load 0x2,0x2 04b5 0272 | r | Execute Discrete,Minus 04b6 e5ff | | Load 0x2,-0x1 04b7 0217 | | Execute Heap_Access,All_Reference 04b8 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 04b9 00cf | | Action Mark_Auxiliary 04ba 781a |x | Jump 0x4d5 04bb e5ff | | Load 0x2,-0x1 04bc 0217 | | Execute Heap_Access,All_Reference 04bd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04be e5ff | | Load 0x2,-0x1 04bf 0217 | | Execute Heap_Access,All_Reference 04c0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04c1 e238 | 8 | Load 0x1,0x38 04c2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04c3 e5fe | | Load 0x2,-0x2 04c4 8018 | | Call 0x0,0x18 04c5 e5ff | | Load 0x2,-0x1 04c6 0217 | | Execute Heap_Access,All_Reference 04c7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04c8 e5ff | | Load 0x2,-0x1 04c9 0217 | | Execute Heap_Access,All_Reference 04ca 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04cb e238 | 8 | Load 0x1,0x38 04cc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04cd e5ff | | Load 0x2,-0x1 04ce 0217 | | Execute Heap_Access,All_Reference 04cf 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 04d0 e402 | | Load 0x2,0x2 04d1 4c00 |L | Short_Literal -0x400 04d2 0273 | s | Execute Discrete,Plus 04d3 c402 | | Store 0x2,0x2 04d4 00c9 | | Action Pop_Auxiliary_Loop 04d5 e402 | | Load 0x2,0x2 04d6 6025 |`% | Indirect_Literal Discrete,0x4fc,{0x00000000, 0x00000400} 04d7 027b | { | Execute Discrete,Greater_Equal 04d8 77e2 |w | Jump_Nonzero 0x4bb 04d9 00ce | | Action Pop_Auxiliary 04da e402 | | Load 0x2,0x2 04db 0c01 | | Execute_Immediate Greater_Equal,0x1 04dc 681e |h | Jump_Zero 0x4fb 04dd 00d8 | | Load_Top At_Offset_0 04de 4801 |H | Short_Literal 0x1 04df e402 | | Load 0x2,0x2 04e0 00da | | Load_Top At_Offset_2 04e1 035b | [ | Declare_Type Array,Constrained 04e2 00d0 | | Action Swap_Control 04e3 01cd | | Execute Vector,Slice_Reference 04e4 e5ff | | Load 0x2,-0x1 04e5 0219 | | Execute Heap_Access,All_Read 04e6 00e3 | | Load_Encached Natural_Cache 04e7 00da | | Load_Top At_Offset_2 04e8 00da | | Load_Top At_Offset_2 04e9 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04ea e5ff | | Load 0x2,-0x1 04eb 0217 | | Execute Heap_Access,All_Reference 04ec 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04ed e007 | | Load 0x0,0x7 04ee 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 04ef 180f | | Execute Package,Field_Execute,Field_Number 0xf 04f0 00db | | Load_Top At_Offset_3 04f1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 04f2 00d1 | | Pop_Control Pop_Count_1 04f3 c405 | | Store 0x2,0x5 04f4 00d2 | | Pop_Control Pop_Count_2 04f5 4801 |H | Short_Literal 0x1 04f6 00da | | Load_Top At_Offset_2 04f7 00da | | Load_Top At_Offset_2 04f8 01cf | | Execute Vector,Slice_Read 04f9 e5fe | | Load 0x2,-0x2 04fa 8018 | | Call 0x0,0x18 04fb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04fc 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 0500 ; -------------------------------------------------------------------------------------- 0500 ; SUBPROGRAM 0500 ; -------------------------------------------------------------------------------------- 0500 0503 | | .CONST 0x0503 ; Address of begin 0501 0004 | | .CONST 0x0004 ; Address of exception handler 0502 0001 | | .CONST 0x0001 ; Number of locals 0503 BODY_0500: 0503 INIT_0500: 0503 00da | | Load_Top At_Offset_2 0504 0217 | | Execute Heap_Access,All_Reference 0505 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0506 e5fe | | Load 0x2,-0x2 0507 01db | | Execute Vector,Length 0508 027b | { | Execute Discrete,Greater_Equal 0509 6810 |h | Jump_Zero 0x51a 050a 00db | | Load_Top At_Offset_3 050b 00db | | Load_Top At_Offset_3 050c 0217 | | Execute Heap_Access,All_Reference 050d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 050e e006 | | Load 0x0,0x6 050f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0510 00da | | Load_Top At_Offset_2 0511 0217 | | Execute Heap_Access,All_Reference 0512 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0513 e5fe | | Load 0x2,-0x2 0514 01db | | Execute Vector,Length 0515 0272 | r | Execute Discrete,Minus 0516 00db | | Load_Top At_Offset_3 0517 0217 | | Execute Heap_Access,All_Reference 0518 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0519 4503 |E | Exit_Suprogram New_Top_Offset 0x3 051a 4950 |IP | Short_Literal 0x150 051b 0257 | W | Execute Discrete,Raise 051c 0000 0000 | | .BLANK 0000[0x4] 0520 ; -------------------------------------------------------------------------------------- 0520 ; SUBPROGRAM 0520 ; -------------------------------------------------------------------------------------- 0520 0523 | # | .CONST 0x0523 ; Address of begin 0521 0004 | | .CONST 0x0004 ; Address of exception handler 0522 0001 | | .CONST 0x0001 ; Number of locals 0523 BODY_0520: 0523 INIT_0520: 0523 00da | | Load_Top At_Offset_2 0524 0217 | | Execute Heap_Access,All_Reference 0525 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0526 e5fe | | Load 0x2,-0x2 0527 01db | | Execute Vector,Length 0528 027b | { | Execute Discrete,Greater_Equal 0529 6810 |h | Jump_Zero 0x53a 052a 00db | | Load_Top At_Offset_3 052b 00db | | Load_Top At_Offset_3 052c 0217 | | Execute Heap_Access,All_Reference 052d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 052e e006 | | Load 0x0,0x6 052f 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0530 00da | | Load_Top At_Offset_2 0531 0217 | | Execute Heap_Access,All_Reference 0532 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0533 e5fe | | Load 0x2,-0x2 0534 01db | | Execute Vector,Length 0535 0272 | r | Execute Discrete,Minus 0536 00db | | Load_Top At_Offset_3 0537 0217 | | Execute Heap_Access,All_Reference 0538 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0539 4503 |E | Exit_Suprogram New_Top_Offset 0x3 053a 4950 |IP | Short_Literal 0x150 053b 0257 | W | Execute Discrete,Raise 053c 0000 0000 | | .BLANK 0000[0x4] 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 0552 | R | .CONST 0x0552 ; Address of begin 0541 0004 | | .CONST 0x0004 ; Address of exception handler 0542 0006 | | .CONST 0x0006 ; Number of locals 0543 INIT_0540: 0543 e5fd | | Load 0x2,-0x3 0544 00e2 | | Load_Encached Integer_Cache 0545 03f1 | | Declare_Variable Discrete,With_Value 0546 e5fe | | Load 0x2,-0x2 0547 8017 | | Call 0x0,0x17 0548 00e2 | | Load_Encached Integer_Cache 0549 03f1 | | Declare_Variable Discrete,With_Value 054a e5ff | | Load 0x2,-0x1 054b 0217 | | Execute Heap_Access,All_Reference 054c 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 054d 00e2 | | Load_Encached Integer_Cache 054e 03f1 | | Declare_Variable Discrete,With_Value 054f e00a | | Load 0x0,0xa 0550 0337 | 7 | Declare_Variable Array 0551 00e2 | | Load_Encached Integer_Cache 0552 BODY_0540: 0552 00da | | Load_Top At_Offset_2 0553 e402 | | Load 0x2,0x2 0554 027c | | | Execute Discrete,Less 0555 6802 |h | Jump_Zero 0x558 0556 00da | | Load_Top At_Offset_2 0557 a402 | | Store_Unchecked 0x2,0x2 0558 00db | | Load_Top At_Offset_3 0559 e402 | | Load 0x2,0x2 055a 027c | | | Execute Discrete,Less 055b 6802 |h | Jump_Zero 0x55e 055c 00db | | Load_Top At_Offset_3 055d a402 | | Store_Unchecked 0x2,0x2 055e e402 | | Load 0x2,0x2 055f c5fc | | Store 0x2,-0x4 0560 e5ff | | Load 0x2,-0x1 0561 0217 | | Execute Heap_Access,All_Reference 0562 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0563 e402 | | Load 0x2,0x2 0564 0272 | r | Execute Discrete,Minus 0565 e5ff | | Load 0x2,-0x1 0566 0217 | | Execute Heap_Access,All_Reference 0567 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0568 00cf | | Action Mark_Auxiliary 0569 7814 |x | Jump 0x57e 056a 00e3 | | Load_Encached Natural_Cache 056b 00db | | Load_Top At_Offset_3 056c e5fe | | Load 0x2,-0x2 056d 8019 | | Call 0x0,0x19 056e 00d1 | | Pop_Control Pop_Count_1 056f 005a | Z | Store_Top Discrete,At_Offset_2 0570 4801 |H | Short_Literal 0x1 0571 00da | | Load_Top At_Offset_2 0572 e405 | | Load 0x2,0x5 0573 01cf | | Execute Vector,Slice_Read 0574 e5ff | | Load 0x2,-0x1 0575 0217 | | Execute Heap_Access,All_Reference 0576 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0577 e006 | | Load 0x0,0x6 0578 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0579 e402 | | Load 0x2,0x2 057a 00da | | Load_Top At_Offset_2 057b 0272 | r | Execute Discrete,Minus 057c c402 | | Store 0x2,0x2 057d 00c9 | | Action Pop_Auxiliary_Loop 057e e402 | | Load 0x2,0x2 057f 6024 |`$ | Indirect_Literal Discrete,0x5a4,{0x00000000, 0x00000400} 0580 027d | } | Execute Discrete,Greater 0581 77e8 |w | Jump_Nonzero 0x56a 0582 00c9 | | Action Pop_Auxiliary_Loop 0583 781c |x | Jump 0x5a0 0584 00da | | Load_Top At_Offset_2 0585 4801 |H | Short_Literal 0x1 0586 e402 | | Load 0x2,0x2 0587 00da | | Load_Top At_Offset_2 0588 035b | [ | Declare_Type Array,Constrained 0589 00d0 | | Action Swap_Control 058a 01cd | | Execute Vector,Slice_Reference 058b 00e3 | | Load_Encached Natural_Cache 058c 00d9 | | Load_Top At_Offset_1 058d e5fe | | Load 0x2,-0x2 058e 8019 | | Call 0x0,0x19 058f 00d1 | | Pop_Control Pop_Count_1 0590 005b | [ | Store_Top Discrete,At_Offset_3 0591 00d1 | | Pop_Control Pop_Count_1 0592 4801 |H | Short_Literal 0x1 0593 00da | | Load_Top At_Offset_2 0594 e405 | | Load 0x2,0x5 0595 01cf | | Execute Vector,Slice_Read 0596 e5ff | | Load 0x2,-0x1 0597 0217 | | Execute Heap_Access,All_Reference 0598 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0599 e006 | | Load 0x0,0x6 059a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 059b e402 | | Load 0x2,0x2 059c 00da | | Load_Top At_Offset_2 059d 0272 | r | Execute Discrete,Minus 059e c402 | | Store 0x2,0x2 059f 00c9 | | Action Pop_Auxiliary_Loop 05a0 e402 | | Load 0x2,0x2 05a1 0c01 | | Execute_Immediate Greater_Equal,0x1 05a2 77e1 |w | Jump_Nonzero 0x584 05a3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05a4 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 05a8 ; -------------------------------------------------------------------------------------- 05a8 ; SUBPROGRAM 05a8 ; -------------------------------------------------------------------------------------- 05a8 05b9 | | .CONST 0x05b9 ; Address of begin 05a9 0004 | | .CONST 0x0004 ; Address of exception handler 05aa 0006 | | .CONST 0x0006 ; Number of locals 05ab INIT_05a8: 05ab 00da | | Load_Top At_Offset_2 05ac 0217 | | Execute Heap_Access,All_Reference 05ad 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 05ae 00e1 | | Load_Encached Boolean_Cache 05af 03f1 | | Declare_Variable Discrete,With_Value 05b0 e5fe | | Load 0x2,-0x2 05b1 0217 | | Execute Heap_Access,All_Reference 05b2 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 05b3 00e1 | | Load_Encached Boolean_Cache 05b4 03f1 | | Declare_Variable Discrete,With_Value 05b5 00e2 | | Load_Encached Integer_Cache 05b6 00e2 | | Load_Encached Integer_Cache 05b7 e00a | | Load 0x0,0xa 05b8 0337 | 7 | Declare_Variable Array 05b9 BODY_05a8: 05b9 e402 | | Load 0x2,0x2 05ba 7008 |p | Jump_Nonzero 0x5c3 05bb e5ff | | Load 0x2,-0x1 05bc 0219 | | Execute Heap_Access,All_Read 05bd 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 05be 00d8 | | Load_Top At_Offset_0 05bf 4800 |H | Short_Literal 0x0 05c0 e5ff | | Load 0x2,-0x1 05c1 8215 | | Call 0x1,0x15 05c2 00d2 | | Pop_Control Pop_Count_2 05c3 00db | | Load_Top At_Offset_3 05c4 7008 |p | Jump_Nonzero 0x5cd 05c5 e5ff | | Load 0x2,-0x1 05c6 0219 | | Execute Heap_Access,All_Read 05c7 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 05c8 00d8 | | Load_Top At_Offset_0 05c9 4800 |H | Short_Literal 0x0 05ca e5fe | | Load 0x2,-0x2 05cb 8215 | | Call 0x1,0x15 05cc 00d2 | | Pop_Control Pop_Count_2 05cd e5fe | | Load 0x2,-0x2 05ce 0217 | | Execute Heap_Access,All_Reference 05cf 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 05d0 e5ff | | Load 0x2,-0x1 05d1 0217 | | Execute Heap_Access,All_Reference 05d2 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 05d3 027c | | | Execute Discrete,Less 05d4 6805 |h | Jump_Zero 0x5da 05d5 e5fe | | Load 0x2,-0x2 05d6 0217 | | Execute Heap_Access,All_Reference 05d7 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 05d8 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 05d9 7804 |x | Jump 0x5de 05da e5ff | | Load 0x2,-0x1 05db 0217 | | Execute Heap_Access,All_Reference 05dc 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 05dd 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 05de 00da | | Load_Top At_Offset_2 05df a5fd | | Store_Unchecked 0x2,-0x3 05e0 e5ff | | Load 0x2,-0x1 05e1 0217 | | Execute Heap_Access,All_Reference 05e2 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 05e3 00db | | Load_Top At_Offset_3 05e4 0272 | r | Execute Discrete,Minus 05e5 e5ff | | Load 0x2,-0x1 05e6 0217 | | Execute Heap_Access,All_Reference 05e7 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 05e8 e5fe | | Load 0x2,-0x2 05e9 0217 | | Execute Heap_Access,All_Reference 05ea 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 05eb 00db | | Load_Top At_Offset_3 05ec 0272 | r | Execute Discrete,Minus 05ed e5fe | | Load 0x2,-0x2 05ee 0217 | | Execute Heap_Access,All_Reference 05ef 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 05f0 e5ff | | Load 0x2,-0x1 05f1 823b | ; | Call 0x1,0x3b 05f2 00cf | | Action Mark_Auxiliary 05f3 781d |x | Jump 0x611 05f4 e5ff | | Load 0x2,-0x1 05f5 0217 | | Execute Heap_Access,All_Reference 05f6 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 05f7 e5ff | | Load 0x2,-0x1 05f8 0217 | | Execute Heap_Access,All_Reference 05f9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 05fa e238 | 8 | Load 0x1,0x38 05fb 1811 | | Execute Package,Field_Execute,Field_Number 0x11 05fc e5fe | | Load 0x2,-0x2 05fd 0217 | | Execute Heap_Access,All_Reference 05fe 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 05ff e006 | | Load 0x0,0x6 0600 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0601 e5ff | | Load 0x2,-0x1 0602 0217 | | Execute Heap_Access,All_Reference 0603 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0604 e5ff | | Load 0x2,-0x1 0605 0217 | | Execute Heap_Access,All_Reference 0606 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0607 e238 | 8 | Load 0x1,0x38 0608 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0609 e5ff | | Load 0x2,-0x1 060a 0217 | | Execute Heap_Access,All_Reference 060b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 060c 00db | | Load_Top At_Offset_3 060d 4c00 |L | Short_Literal -0x400 060e 0273 | s | Execute Discrete,Plus 060f c404 | | Store 0x2,0x4 0610 00c9 | | Action Pop_Auxiliary_Loop 0611 00db | | Load_Top At_Offset_3 0612 6791 |g | Indirect_Literal Discrete,0x5a4,{0x00000000, 0x00000400} 0613 027b | { | Execute Discrete,Greater_Equal 0614 77df |w | Jump_Nonzero 0x5f4 0615 00ce | | Action Pop_Auxiliary 0616 00da | | Load_Top At_Offset_2 0617 0c01 | | Execute_Immediate Greater_Equal,0x1 0618 6821 |h! | Jump_Zero 0x63a 0619 00d8 | | Load_Top At_Offset_0 061a 4801 |H | Short_Literal 0x1 061b e404 | | Load 0x2,0x4 061c 00da | | Load_Top At_Offset_2 061d 035b | [ | Declare_Type Array,Constrained 061e 00d0 | | Action Swap_Control 061f 01cd | | Execute Vector,Slice_Reference 0620 e5ff | | Load 0x2,-0x1 0621 0219 | | Execute Heap_Access,All_Read 0622 00e3 | | Load_Encached Natural_Cache 0623 00da | | Load_Top At_Offset_2 0624 00da | | Load_Top At_Offset_2 0625 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0626 e5ff | | Load 0x2,-0x1 0627 0217 | | Execute Heap_Access,All_Reference 0628 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0629 e007 | | Load 0x0,0x7 062a 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 062b 180f | | Execute Package,Field_Execute,Field_Number 0xf 062c 00db | | Load_Top At_Offset_3 062d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 062e 00d1 | | Pop_Control Pop_Count_1 062f c405 | | Store 0x2,0x5 0630 00d2 | | Pop_Control Pop_Count_2 0631 4801 |H | Short_Literal 0x1 0632 00da | | Load_Top At_Offset_2 0633 00da | | Load_Top At_Offset_2 0634 01cf | | Execute Vector,Slice_Read 0635 e5fe | | Load 0x2,-0x2 0636 0217 | | Execute Heap_Access,All_Reference 0637 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0638 e006 | | Load 0x0,0x6 0639 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 063a e402 | | Load 0x2,0x2 063b 7002 |p | Jump_Nonzero 0x63e 063c e5ff | | Load 0x2,-0x1 063d 8217 | | Call 0x1,0x17 063e 00db | | Load_Top At_Offset_3 063f 7002 |p | Jump_Nonzero 0x642 0640 e5fe | | Load 0x2,-0x2 0641 8217 | | Call 0x1,0x17 0642 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0643 0000 0000 | | .BLANK 0000[0x5] 0648 ; -------------------------------------------------------------------------------------- 0648 ; SUBPROGRAM 0648 ; -------------------------------------------------------------------------------------- 0648 064b | K | .CONST 0x064b ; Address of begin 0649 0004 | | .CONST 0x0004 ; Address of exception handler 064a 0001 | | .CONST 0x0001 ; Number of locals 064b BODY_0648: 064b INIT_0648: 064b 4601 |F | Jump_Case 0x2 064c 7801 |x | Jump 0x64e ; case 0x0 064d 7804 |x | Jump 0x652 ; case 0x1 064e 00da | | Load_Top At_Offset_2 064f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0650 1c00 | | Execute_Immediate Run_Utility,0x0 0651 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0652 00da | | Load_Top At_Offset_2 0653 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0654 1c01 | | Execute_Immediate Run_Utility,0x1 0655 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0656 0000 0000 | | .XXX[0x2] 0658 ; -------------------------------------------------------------------------------------- 0658 ; SUBPROGRAM 0658 ; -------------------------------------------------------------------------------------- 0658 065b | [ | .CONST 0x065b ; Address of begin 0659 0004 | | .CONST 0x0004 ; Address of exception handler 065a 0001 | | .CONST 0x0001 ; Number of locals 065b BODY_0658: 065b INIT_0658: 065b 4601 |F | Jump_Case 0x2 065c 7801 |x | Jump 0x65e ; case 0x0 065d 7816 |x | Jump 0x674 ; case 0x1 065e 00da | | Load_Top At_Offset_2 065f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0660 0125 | % | Execute Any,Set_Constraint 0661 00da | | Load_Top At_Offset_2 0662 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0663 1c00 | | Execute_Immediate Run_Utility,0x0 0664 00da | | Load_Top At_Offset_2 0665 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0666 0125 | % | Execute Any,Set_Constraint 0667 00da | | Load_Top At_Offset_2 0668 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0669 1c00 | | Execute_Immediate Run_Utility,0x0 066a 00da | | Load_Top At_Offset_2 066b 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 066c 0125 | % | Execute Any,Set_Constraint 066d 00da | | Load_Top At_Offset_2 066e 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 066f 1c00 | | Execute_Immediate Run_Utility,0x0 0670 00da | | Load_Top At_Offset_2 0671 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0672 1c00 | | Execute_Immediate Run_Utility,0x0 0673 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0674 00da | | Load_Top At_Offset_2 0675 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0676 1c01 | | Execute_Immediate Run_Utility,0x1 0677 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0678 ; -------------------------------------------------------------------------------------- 0678 ; SUBPROGRAM 0678 ; -------------------------------------------------------------------------------------- 0678 068c | | .CONST 0x068c ; Address of begin 0679 0004 | | .CONST 0x0004 ; Address of exception handler 067a 0005 | | .CONST 0x0005 ; Number of locals 067b INIT_0678: 067b e22d | - | Load 0x1,0x2d 067c 0322 | " | Declare_Variable Record 067d 00d8 | | Load_Top At_Offset_0 067e 1c00 | | Execute_Immediate Run_Utility,0x0 067f e00e | | Load 0x0,0xe 0680 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0681 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0682 02c7 | | Declare_Variable Any 0683 00d8 | | Load_Top At_Offset_0 0684 1c00 | | Execute_Immediate Run_Utility,0x0 0685 e00e | | Load 0x0,0xe 0686 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0687 02ff | | Declare_Variable Variant_Record 0688 00d8 | | Load_Top At_Offset_0 0689 1c00 | | Execute_Immediate Run_Utility,0x0 068a e00e | | Load 0x0,0xe 068b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 068c BODY_0678: 068c e5ff | | Load 0x2,-0x1 068d 0217 | | Execute Heap_Access,All_Reference 068e 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 068f 6858 |hX | Jump_Zero 0x6e8 0690 e5ff | | Load 0x2,-0x1 0691 0217 | | Execute Heap_Access,All_Reference 0692 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0693 e006 | | Load 0x0,0x6 0694 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0695 00da | | Load_Top At_Offset_2 0696 016d | m | Execute Variant_Record,Structure_Write 0697 e00e | | Load 0x0,0xe 0698 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0699 00db | | Load_Top At_Offset_3 069a 0120 | | Execute Any,Is_Value 069b 6804 |h | Jump_Zero 0x6a0 069c e00e | | Load 0x0,0xe 069d 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 069e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 069f 7801 |x | Jump 0x6a1 06a0 00db | | Load_Top At_Offset_3 06a1 605e |`^ | Indirect_Literal Discrete,0x700,{0x00000000, 0x00004000} 06a2 e5ff | | Load 0x2,-0x1 06a3 0217 | | Execute Heap_Access,All_Reference 06a4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06a5 e006 | | Load 0x0,0x6 06a6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 06a7 e404 | | Load 0x2,0x4 06a8 e00e | | Load 0x0,0xe 06a9 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 06aa 1811 | | Execute Package,Field_Execute,Field_Number 0x11 06ab c403 | | Store 0x2,0x3 06ac 0059 | Y | Store_Top Discrete,At_Offset_1 06ad 481e |H | Short_Literal 0x1e 06ae 00da | | Load_Top At_Offset_2 06af e00e | | Load 0x0,0xe 06b0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06b1 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 06b2 e012 | | Load 0x0,0x12 06b3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 06b4 e5ff | | Load 0x2,-0x1 06b5 0217 | | Execute Heap_Access,All_Reference 06b6 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 06b7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 06b8 00da | | Load_Top At_Offset_2 06b9 e00e | | Load 0x0,0xe 06ba 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 06bb 181d | | Execute Package,Field_Execute,Field_Number 0x1d 06bc 0a07 | | Execute_Immediate Plus,0x7 06bd 09fd | | Execute_Immediate Binary_Scale,-0x3 06be 00d8 | | Load_Top At_Offset_0 06bf 00e2 | | Load_Encached Integer_Cache 06c0 0260 | ` | Execute Discrete,In_Type 06c1 7001 |p | Jump_Nonzero 0x6c3 06c2 0801 | | Execute_Immediate Raise,0x1 06c3 0aef | | Execute_Immediate Plus,-0x11 06c4 e5ff | | Load 0x2,-0x1 06c5 0217 | | Execute Heap_Access,All_Reference 06c6 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 06c7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 06c8 4800 |H | Short_Literal 0x0 06c9 e5ff | | Load 0x2,-0x1 06ca 0217 | | Execute Heap_Access,All_Reference 06cb 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 06cc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 06cd 4800 |H | Short_Literal 0x0 06ce e5ff | | Load 0x2,-0x1 06cf 0217 | | Execute Heap_Access,All_Reference 06d0 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 06d1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 06d2 00da | | Load_Top At_Offset_2 06d3 e00e | | Load 0x0,0xe 06d4 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 06d5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06d6 e5ff | | Load 0x2,-0x1 06d7 0217 | | Execute Heap_Access,All_Reference 06d8 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 06d9 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 06da 4f9d |O | Short_Literal -0x63 06db e5ff | | Load 0x2,-0x1 06dc 0217 | | Execute Heap_Access,All_Reference 06dd 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 06de 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 06df 4801 |H | Short_Literal 0x1 06e0 e5ff | | Load 0x2,-0x1 06e1 0217 | | Execute Heap_Access,All_Reference 06e2 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 06e3 4800 |H | Short_Literal 0x0 06e4 e5ff | | Load 0x2,-0x1 06e5 0217 | | Execute Heap_Access,All_Reference 06e6 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 06e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06e8 00db | | Load_Top At_Offset_3 06e9 e5ff | | Load 0x2,-0x1 06ea 0217 | | Execute Heap_Access,All_Reference 06eb 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 06ec e22e | . | Load 0x1,0x2e 06ed 181f | | Execute Package,Field_Execute,Field_Number 0x1f 06ee 00d1 | | Pop_Control Pop_Count_1 06ef 00db | | Load_Top At_Offset_3 06f0 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 06f1 e5ff | | Load 0x2,-0x1 06f2 0217 | | Execute Heap_Access,All_Reference 06f3 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 06f4 00db | | Load_Top At_Offset_3 06f5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06f6 e5ff | | Load 0x2,-0x1 06f7 0217 | | Execute Heap_Access,All_Reference 06f8 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 06f9 00db | | Load_Top At_Offset_3 06fa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06fb e5ff | | Load 0x2,-0x1 06fc 0217 | | Execute Heap_Access,All_Reference 06fd 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 06fe 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06ff 0000 | | .XXX[0x1] 0700 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0704 0000 0000 | | .BLANK 0000[0x4] 0708 ; -------------------------------------------------------------------------------------- 0708 ; SUBPROGRAM 0708 ; -------------------------------------------------------------------------------------- 0708 070b | | .CONST 0x070b ; Address of begin 0709 0004 | | .CONST 0x0004 ; Address of exception handler 070a 0001 | | .CONST 0x0001 ; Number of locals 070b BODY_0708: 070b INIT_0708: 070b 00da | | Load_Top At_Offset_2 070c 8230 | 0 | Call 0x1,0x30 070d 00da | | Load_Top At_Offset_2 070e 0217 | | Execute Heap_Access,All_Reference 070f 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0710 0320 | | Declare_Variable Record,Duplicate 0711 00cd | | Action Spare6_Action 0712 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0713 0000 0000 | | .BLANK 0000[0x5] 0718 ; -------------------------------------------------------------------------------------- 0718 ; SUBPROGRAM 0718 ; -------------------------------------------------------------------------------------- 0718 071b | | .CONST 0x071b ; Address of begin 0719 0004 | | .CONST 0x0004 ; Address of exception handler 071a 0001 | | .CONST 0x0001 ; Number of locals 071b BODY_0718: 071b INIT_0718: 071b 00da | | Load_Top At_Offset_2 071c 0217 | | Execute Heap_Access,All_Reference 071d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 071e 0a01 | | Execute_Immediate Plus,0x1 071f 00db | | Load_Top At_Offset_3 0720 0217 | | Execute Heap_Access,All_Reference 0721 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0722 00da | | Load_Top At_Offset_2 0723 0217 | | Execute Heap_Access,All_Reference 0724 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0725 00db | | Load_Top At_Offset_3 0726 0217 | | Execute Heap_Access,All_Reference 0727 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0728 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0729 0273 | s | Execute Discrete,Plus 072a 00db | | Load_Top At_Offset_3 072b 0217 | | Execute Heap_Access,All_Reference 072c 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 072d 00db | | Load_Top At_Offset_3 072e 00db | | Load_Top At_Offset_3 072f 0217 | | Execute Heap_Access,All_Reference 0730 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0731 e22d | - | Load 0x1,0x2d 0732 0322 | " | Declare_Variable Record 0733 00d8 | | Load_Top At_Offset_0 0734 1c01 | | Execute_Immediate Run_Utility,0x1 0735 00db | | Load_Top At_Offset_3 0736 0217 | | Execute Heap_Access,All_Reference 0737 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0738 00d9 | | Load_Top At_Offset_1 0739 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 073a 00db | | Load_Top At_Offset_3 073b 0217 | | Execute Heap_Access,All_Reference 073c 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 073d 00d9 | | Load_Top At_Offset_1 073e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 073f e5fe | | Load 0x2,-0x2 0740 00d9 | | Load_Top At_Offset_1 0741 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0742 00db | | Load_Top At_Offset_3 0743 0217 | | Execute Heap_Access,All_Reference 0744 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 0745 e22e | . | Load 0x1,0x2e 0746 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0747 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0748 ; -------------------------------------------------------------------------------------- 0748 ; SUBPROGRAM 0748 ; -------------------------------------------------------------------------------------- 0748 074b | K | .CONST 0x074b ; Address of begin 0749 0004 | | .CONST 0x0004 ; Address of exception handler 074a 0001 | | .CONST 0x0001 ; Number of locals 074b BODY_0748: 074b INIT_0748: 074b 00da | | Load_Top At_Offset_2 074c 0217 | | Execute Heap_Access,All_Reference 074d 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 074e e22e | . | Load 0x1,0x2e 074f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0750 4801 |H | Short_Literal 0x1 0751 4802 |H | Short_Literal 0x2 0752 0262 | b | Execute Discrete,In_Range 0753 700b |p | Jump_Nonzero 0x75f 0754 7800 |x | Jump 0x755 0755 00da | | Load_Top At_Offset_2 0756 0219 | | Execute Heap_Access,All_Read 0757 00d8 | | Load_Top At_Offset_0 0758 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 0759 4801 |H | Short_Literal 0x1 075a e22e | . | Load 0x1,0x2e 075b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 075c 00d9 | | Load_Top At_Offset_1 075d 380a |8 | Execute Record,Field_Write,Field_Number 0xa 075e 00d1 | | Pop_Control Pop_Count_1 075f 00da | | Load_Top At_Offset_2 0760 0217 | | Execute Heap_Access,All_Reference 0761 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0762 0274 | t | Execute Discrete,Absolute_Value 0763 00d8 | | Load_Top At_Offset_0 0764 e22e | . | Load 0x1,0x2e 0765 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0766 0260 | ` | Execute Discrete,In_Type 0767 7001 |p | Jump_Nonzero 0x769 0768 0801 | | Execute_Immediate Raise,0x1 0769 e22d | - | Load 0x1,0x2d 076a 0322 | " | Declare_Variable Record 076b 00d8 | | Load_Top At_Offset_0 076c 1c01 | | Execute_Immediate Run_Utility,0x1 076d e5ff | | Load 0x2,-0x1 076e 0217 | | Execute Heap_Access,All_Reference 076f 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0770 00d9 | | Load_Top At_Offset_1 0771 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0772 e5ff | | Load 0x2,-0x1 0773 0217 | | Execute Heap_Access,All_Reference 0774 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0775 00d9 | | Load_Top At_Offset_1 0776 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0777 e5ff | | Load 0x2,-0x1 0778 0217 | | Execute Heap_Access,All_Reference 0779 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 077a 00d9 | | Load_Top At_Offset_1 077b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 077c e5ff | | Load 0x2,-0x1 077d 0217 | | Execute Heap_Access,All_Reference 077e 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 077f e22e | . | Load 0x1,0x2e 0780 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0781 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0782 0000 0000 | | .BLANK 0000[0x6] 0788 ; -------------------------------------------------------------------------------------- 0788 ; SUBPROGRAM 0788 ; -------------------------------------------------------------------------------------- 0788 0791 | | .CONST 0x0791 ; Address of begin 0789 0004 | | .CONST 0x0004 ; Address of exception handler 078a 0003 | | .CONST 0x0003 ; Number of locals 078b INIT_0788: 078b e5fd | | Load 0x2,-0x3 078c 0092 09d1 | | Action Push_String_Extended,0x9d1 ; ".Toc" 078e 01cc | | Execute Vector,Catenate 078f 029f 09b3 | | Declare_Subprogram INIT_09b0,For_Call 0791 BODY_0788: 0791 4800 |H | Short_Literal 0x0 0792 e5ff | | Load 0x2,-0x1 0793 0217 | | Execute Heap_Access,All_Reference 0794 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0795 4800 |H | Short_Literal 0x0 0796 e5ff | | Load 0x2,-0x1 0797 0217 | | Execute Heap_Access,All_Reference 0798 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0799 8014 | | Call 0x0,0x14 079a e5ff | | Load 0x2,-0x1 079b 0217 | | Execute Heap_Access,All_Reference 079c 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 079d 4800 |H | Short_Literal 0x0 079e e5ff | | Load 0x2,-0x1 079f 0217 | | Execute Heap_Access,All_Reference 07a0 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 07a1 e5fe | | Load 0x2,-0x2 07a2 4602 |F | Jump_Case 0x3 07a3 7836 |x6 | Jump 0x7da ; case 0x0 07a4 7837 |x7 | Jump 0x7dc ; case 0x1 07a5 7800 |x | Jump 0x7a6 ; case 0x2 07a6 e5ff | | Load 0x2,-0x1 07a7 0219 | | Execute Heap_Access,All_Read 07a8 00d8 | | Load_Top At_Offset_0 07a9 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 07aa 00ea | | Load_Encached Null_String_Cache 07ab e402 | | Load 0x2,0x2 07ac 4802 |H | Short_Literal 0x2 07ad e22e | . | Load 0x1,0x2e 07ae 1815 | | Execute Package,Field_Execute,Field_Number 0x15 07af 00d9 | | Load_Top At_Offset_1 07b0 380a |8 | Execute Record,Field_Write,Field_Number 0xa 07b1 00d1 | | Pop_Control Pop_Count_1 07b2 e5ff | | Load 0x2,-0x1 07b3 0217 | | Execute Heap_Access,All_Reference 07b4 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 07b5 e22e | . | Load 0x1,0x2e 07b6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 07b7 e5ff | | Load 0x2,-0x1 07b8 0217 | | Execute Heap_Access,All_Reference 07b9 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 07ba e5ff | | Load 0x2,-0x1 07bb 0217 | | Execute Heap_Access,All_Reference 07bc 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 07bd 0c01 | | Execute_Immediate Greater_Equal,0x1 07be 681a |h | Jump_Zero 0x7d9 07bf e5ff | | Load 0x2,-0x1 07c0 0217 | | Execute Heap_Access,All_Reference 07c1 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 07c2 00d8 | | Load_Top At_Offset_0 07c3 e22e | . | Load 0x1,0x2e 07c4 1b13 | | Execute Package,Field_Read,Field_Number 0x13 07c5 0260 | ` | Execute Discrete,In_Type 07c6 7001 |p | Jump_Nonzero 0x7c8 07c7 0801 | | Execute_Immediate Raise,0x1 07c8 e5ff | | Load 0x2,-0x1 07c9 0217 | | Execute Heap_Access,All_Reference 07ca 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 07cb e22e | . | Load 0x1,0x2e 07cc 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 07cd e5ff | | Load 0x2,-0x1 07ce 8230 | 0 | Call 0x1,0x30 07cf e5ff | | Load 0x2,-0x1 07d0 0217 | | Execute Heap_Access,All_Reference 07d1 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 07d2 e5ff | | Load 0x2,-0x1 07d3 0217 | | Execute Heap_Access,All_Reference 07d4 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 07d5 0273 | s | Execute Discrete,Plus 07d6 e5ff | | Load 0x2,-0x1 07d7 0217 | | Execute Heap_Access,All_Reference 07d8 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 07d9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 07da 8403 | | Call 0x2,0x3 07db 4504 |E | Exit_Suprogram New_Top_Offset 0x4 07dc e5ff | | Load 0x2,-0x1 07dd 0219 | | Execute Heap_Access,All_Read 07de 00d8 | | Load_Top At_Offset_0 07df 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 07e0 00ea | | Load_Encached Null_String_Cache 07e1 e402 | | Load 0x2,0x2 07e2 4802 |H | Short_Literal 0x2 07e3 e22e | . | Load 0x1,0x2e 07e4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 07e5 00d9 | | Load_Top At_Offset_1 07e6 380a |8 | Execute Record,Field_Write,Field_Number 0xa 07e7 00d1 | | Pop_Control Pop_Count_1 07e8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 07e9 0000 0000 | | .BLANK 0000[0x7] 07f0 ; -------------------------------------------------------------------------------------- 07f0 ; SUBPROGRAM 07f0 ; -------------------------------------------------------------------------------------- 07f0 07f3 | | .CONST 0x07f3 ; Address of begin 07f1 0004 | | .CONST 0x0004 ; Address of exception handler 07f2 0001 | | .CONST 0x0001 ; Number of locals 07f3 BODY_07f0: 07f3 INIT_07f0: 07f3 4800 |H | Short_Literal 0x0 07f4 00db | | Load_Top At_Offset_3 07f5 0217 | | Execute Heap_Access,All_Reference 07f6 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 07f7 4800 |H | Short_Literal 0x0 07f8 00db | | Load_Top At_Offset_3 07f9 0217 | | Execute Heap_Access,All_Reference 07fa 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 07fb 8014 | | Call 0x0,0x14 07fc 00db | | Load_Top At_Offset_3 07fd 0217 | | Execute Heap_Access,All_Reference 07fe 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 07ff 00db | | Load_Top At_Offset_3 0800 4602 |F | Jump_Case 0x3 0801 7820 |x | Jump 0x822 ; case 0x0 0802 782a |x* | Jump 0x82d ; case 0x1 0803 7800 |x | Jump 0x804 ; case 0x2 0804 00da | | Load_Top At_Offset_2 0805 0219 | | Execute Heap_Access,All_Read 0806 00d8 | | Load_Top At_Offset_0 0807 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 0808 4802 |H | Short_Literal 0x2 0809 e22e | . | Load 0x1,0x2e 080a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 080b 00d9 | | Load_Top At_Offset_1 080c 380a |8 | Execute Record,Field_Write,Field_Number 0xa 080d 00d1 | | Pop_Control Pop_Count_1 080e 00e2 | | Load_Encached Integer_Cache 080f 00db | | Load_Top At_Offset_3 0810 0217 | | Execute Heap_Access,All_Reference 0811 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 0812 e22e | . | Load 0x1,0x2e 0813 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0814 0268 | h | Execute Discrete,Successor 0815 e22e | . | Load 0x1,0x2e 0816 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0817 00d9 | | Load_Top At_Offset_1 0818 00d0 | | Action Swap_Control 0819 0260 | ` | Execute Discrete,In_Type 081a 7001 |p | Jump_Nonzero 0x81c 081b 0801 | | Execute_Immediate Raise,0x1 081c 00db | | Load_Top At_Offset_3 081d 0217 | | Execute Heap_Access,All_Reference 081e 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 081f e22e | . | Load 0x1,0x2e 0820 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0821 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0822 00da | | Load_Top At_Offset_2 0823 0219 | | Execute Heap_Access,All_Read 0824 00d8 | | Load_Top At_Offset_0 0825 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 0826 4801 |H | Short_Literal 0x1 0827 e22e | . | Load 0x1,0x2e 0828 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0829 00d9 | | Load_Top At_Offset_1 082a 380a |8 | Execute Record,Field_Write,Field_Number 0xa 082b 00d1 | | Pop_Control Pop_Count_1 082c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 082d 00da | | Load_Top At_Offset_2 082e 0219 | | Execute Heap_Access,All_Read 082f 00d8 | | Load_Top At_Offset_0 0830 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 0831 4802 |H | Short_Literal 0x2 0832 e22e | . | Load 0x1,0x2e 0833 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0834 00d9 | | Load_Top At_Offset_1 0835 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0836 00d1 | | Pop_Control Pop_Count_1 0837 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0838 ; -------------------------------------------------------------------------------------- 0838 ; SUBPROGRAM 0838 ; -------------------------------------------------------------------------------------- 0838 083b | ; | .CONST 0x083b ; Address of begin 0839 0004 | | .CONST 0x0004 ; Address of exception handler 083a 0001 | | .CONST 0x0001 ; Number of locals 083b BODY_0838: 083b INIT_0838: 083b 00da | | Load_Top At_Offset_2 083c 0217 | | Execute Heap_Access,All_Reference 083d 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 083e 7009 |p | Jump_Nonzero 0x848 083f 00da | | Load_Top At_Offset_2 0840 0219 | | Execute Heap_Access,All_Read 0841 00d8 | | Load_Top At_Offset_0 0842 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 0843 e22e | . | Load 0x1,0x2e 0844 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0845 00d9 | | Load_Top At_Offset_1 0846 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0847 00d1 | | Pop_Control Pop_Count_1 0848 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0849 0000 0000 | | .BLANK 0000[0x7] 0850 ; -------------------------------------------------------------------------------------- 0850 ; SUBPROGRAM 0850 ; -------------------------------------------------------------------------------------- 0850 0853 | S | .CONST 0x0853 ; Address of begin 0851 0004 | | .CONST 0x0004 ; Address of exception handler 0852 0001 | | .CONST 0x0001 ; Number of locals 0853 BODY_0850: 0853 INIT_0850: 0853 00da | | Load_Top At_Offset_2 0854 0217 | | Execute Heap_Access,All_Reference 0855 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0856 6805 |h | Jump_Zero 0x85c 0857 00da | | Load_Top At_Offset_2 0858 0217 | | Execute Heap_Access,All_Reference 0859 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 085a 0c01 | | Execute_Immediate Greater_Equal,0x1 085b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 085c 00da | | Load_Top At_Offset_2 085d 0217 | | Execute Heap_Access,All_Reference 085e 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 085f e22e | . | Load 0x1,0x2e 0860 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0861 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0862 0000 0000 | | .BLANK 0000[0x6] 0868 ; -------------------------------------------------------------------------------------- 0868 ; SUBPROGRAM 0868 ; -------------------------------------------------------------------------------------- 0868 087d | } | .CONST 0x087d ; Address of begin 0869 0004 | | .CONST 0x0004 ; Address of exception handler 086a 0006 | | .CONST 0x0006 ; Number of locals 086b INIT_0868: 086b e01a | | Load 0x0,0x1a 086c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 086d 02c7 | | Declare_Variable Any 086e 00d8 | | Load_Top At_Offset_0 086f 1c00 | | Execute_Immediate Run_Utility,0x0 0870 e00e | | Load 0x0,0xe 0871 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0872 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0873 e00e | | Load 0x0,0xe 0874 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0875 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0876 e00e | | Load 0x0,0xe 0877 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0878 e00e | | Load 0x0,0xe 0879 1b14 | | Execute Package,Field_Read,Field_Number 0x14 087a 02ff | | Declare_Variable Variant_Record 087b 00d8 | | Load_Top At_Offset_0 087c 1c00 | | Execute_Immediate Run_Utility,0x0 087d BODY_0868: 087d 4801 |H | Short_Literal 0x1 087e a5fc | | Store_Unchecked 0x2,-0x4 087f e007 | | Load 0x0,0x7 0880 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0881 e5fd | | Load 0x2,-0x3 0882 4800 |H | Short_Literal 0x0 0883 60b4 |` | Indirect_Literal Discrete,0x938,{0x00000000, 0x00004000} 0884 e00d | | Load 0x0,0xd 0885 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0886 e00b | | Load 0x0,0xb 0887 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0888 e00e | | Load 0x0,0xe 0889 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 088a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 088b 4800 |H | Short_Literal 0x0 088c e5ff | | Load 0x2,-0x1 088d e5fe | | Load 0x2,-0x2 088e e007 | | Load 0x0,0x7 088f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0890 c5fd | | Store 0x2,-0x3 0891 005a | Z | Store_Top Discrete,At_Offset_2 0892 00d9 | | Load_Top At_Offset_1 0893 460e |F | Jump_Case 0xf 0894 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x0 0895 780d |x | Jump 0x8a3 ; case 0x1 0896 780c |x | Jump 0x8a3 ; case 0x2 0897 780b |x | Jump 0x8a3 ; case 0x3 0898 780a |x | Jump 0x8a3 ; case 0x4 0899 7809 |x | Jump 0x8a3 ; case 0x5 089a 7808 |x | Jump 0x8a3 ; case 0x6 089b 7807 |x | Jump 0x8a3 ; case 0x7 089c 7806 |x | Jump 0x8a3 ; case 0x8 089d 781a |x | Jump 0x8b8 ; case 0x9 089e 7804 |x | Jump 0x8a3 ; case 0xa 089f 7803 |x | Jump 0x8a3 ; case 0xb 08a0 7802 |x | Jump 0x8a3 ; case 0xc 08a1 7801 |x | Jump 0x8a3 ; case 0xd 08a2 7800 |x | Jump 0x8a3 ; case 0xe 08a3 e00f | | Load 0x0,0xf 08a4 180e | | Execute Package,Field_Execute,Field_Number 0xe 08a5 4802 |H | Short_Literal 0x2 08a6 4829 |H) | Short_Literal 0x29 08a7 0092 09d2 | | Action Push_String_Extended,0x9d2 ; "Cannot resolve file name " 08a9 e5ff | | Load 0x2,-0x1 08aa 01cc | | Execute Vector,Catenate 08ab 0092 09cf | | Action Push_String_Extended,0x9cf ; " (" 08ad 01cc | | Execute Vector,Catenate 08ae e405 | | Load 0x2,0x5 08af e00e | | Load 0x0,0xe 08b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08b1 011c | | Execute Any,Convert_Unchecked 08b2 1c01 | | Execute_Immediate Run_Utility,0x1 08b3 01cc | | Execute Vector,Catenate 08b4 01cb | | Execute Vector,Append 08b5 e011 | | Load 0x0,0x11 08b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 08b7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08b8 e5fe | | Load 0x2,-0x2 08b9 700c |p | Jump_Nonzero 0x8c6 08ba e00f | | Load 0x0,0xf 08bb 180e | | Execute Package,Field_Execute,Field_Number 0xe 08bc 4805 |H | Short_Literal 0x5 08bd 0092 09d3 | | Action Push_String_Extended,0x9d3 ; "Cannot find a file named " 08bf e5ff | | Load 0x2,-0x1 08c0 01cc | | Execute Vector,Catenate 08c1 e011 | | Load 0x0,0x11 08c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 08c3 4800 |H | Short_Literal 0x0 08c4 a5fc | | Store_Unchecked 0x2,-0x4 08c5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08c6 e00e | | Load 0x0,0xe 08c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08c8 00f1 | | Load_Encached Diana_Temp_Seq 08c9 e00e | | Load 0x0,0xe 08ca 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 08cb 1b17 | | Execute Package,Field_Read,Field_Number 0x17 08cc e402 | | Load 0x2,0x2 08cd 0120 | | Execute Any,Is_Value 08ce 6803 |h | Jump_Zero 0x8d2 08cf e01a | | Load 0x0,0x1a 08d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08d1 7801 |x | Jump 0x8d3 08d2 e402 | | Load 0x2,0x2 08d3 e406 | | Load 0x2,0x6 08d4 6063 |`c | Indirect_Literal Discrete,0x938,{0x00000000, 0x00004000} 08d5 e00d | | Load 0x0,0xd 08d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08d7 4800 |H | Short_Literal 0x0 08d8 e00e | | Load 0x0,0xe 08d9 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 08da 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08db e00e | | Load 0x0,0xe 08dc 1815 | | Execute Package,Field_Execute,Field_Number 0x15 08dd 6056 |`V | Indirect_Literal Discrete,0x934,{0x00000000, 0x7fffffff} 08de 4ffc |O | Short_Literal -0x4 08df 4ffd |O | Short_Literal -0x3 08e0 e00b | | Load 0x0,0xb 08e1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 08e2 e00e | | Load 0x0,0xe 08e3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 08e4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 08e5 e00e | | Load 0x0,0xe 08e6 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 08e7 e007 | | Load 0x0,0x7 08e8 180f | | Execute Package,Field_Execute,Field_Number 0xf 08e9 e5ff | | Load 0x2,-0x1 08ea e00e | | Load 0x0,0xe 08eb 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 08ec 180f | | Execute Package,Field_Execute,Field_Number 0xf 08ed 00d1 | | Pop_Control Pop_Count_1 08ee c402 | | Store 0x2,0x2 08ef c403 | | Store 0x2,0x3 08f0 c404 | | Store 0x2,0x4 08f1 005a | Z | Store_Top Discrete,At_Offset_2 08f2 00d9 | | Load_Top At_Offset_1 08f3 6818 |h | Jump_Zero 0x90c 08f4 e00f | | Load 0x0,0xf 08f5 180e | | Execute Package,Field_Execute,Field_Number 0xe 08f6 4802 |H | Short_Literal 0x2 08f7 0092 09d4 | | Action Push_String_Extended,0x9d4 ; "Cannot create a file named " 08f9 e5ff | | Load 0x2,-0x1 08fa 01cc | | Execute Vector,Catenate 08fb 0092 09cf | | Action Push_String_Extended,0x9cf ; " (" 08fd 01cc | | Execute Vector,Catenate 08fe e405 | | Load 0x2,0x5 08ff e00e | | Load 0x0,0xe 0900 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0901 011c | | Execute Any,Convert_Unchecked 0902 1c01 | | Execute_Immediate Run_Utility,0x1 0903 01cc | | Execute Vector,Catenate 0904 0092 09d0 | | Action Push_String_Extended,0x9d0 ; ")" 0906 01cc | | Execute Vector,Catenate 0907 e011 | | Load 0x0,0x11 0908 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0909 4800 |H | Short_Literal 0x0 090a a5fc | | Store_Unchecked 0x2,-0x4 090b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 090c e007 | | Load 0x0,0x7 090d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 090e 00d9 | | Load_Top At_Offset_1 090f e5fd | | Load 0x2,-0x3 0910 4801 |H | Short_Literal 0x1 0911 6026 |`& | Indirect_Literal Discrete,0x938,{0x00000000, 0x00004000} 0912 e00d | | Load 0x0,0xd 0913 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0914 e5fe | | Load 0x2,-0x2 0915 e007 | | Load 0x0,0x7 0916 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0917 c5fd | | Store 0x2,-0x3 0918 00d1 | | Pop_Control Pop_Count_1 0919 005a | Z | Store_Top Discrete,At_Offset_2 091a 00d9 | | Load_Top At_Offset_1 091b 6814 |h | Jump_Zero 0x930 091c e00f | | Load 0x0,0xf 091d 180e | | Execute Package,Field_Execute,Field_Number 0xe 091e 4802 |H | Short_Literal 0x2 091f 4829 |H) | Short_Literal 0x29 0920 0092 09d5 | | Action Push_String_Extended,0x9d5 ; "Cannot open file " 0922 e5ff | | Load 0x2,-0x1 0923 01cc | | Execute Vector,Catenate 0924 0092 09cf | | Action Push_String_Extended,0x9cf ; " (" 0926 01cc | | Execute Vector,Catenate 0927 e405 | | Load 0x2,0x5 0928 e00e | | Load 0x0,0xe 0929 1b0d | | Execute Package,Field_Read,Field_Number 0xd 092a 011c | | Execute Any,Convert_Unchecked 092b 1c01 | | Execute_Immediate Run_Utility,0x1 092c 01cc | | Execute Vector,Catenate 092d 01cb | | Execute Vector,Append 092e e011 | | Load 0x0,0x11 092f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0930 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0931 0000 0000 | | .XXX[0x3] 0933 0000 | | 0934 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0938 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 093c 0000 0000 | | .BLANK 0000[0x4] 0940 ; -------------------------------------------------------------------------------------- 0940 ; SUBPROGRAM 0940 ; -------------------------------------------------------------------------------------- 0940 0943 | C | .CONST 0x0943 ; Address of begin 0941 0004 | | .CONST 0x0004 ; Address of exception handler 0942 0001 | | .CONST 0x0001 ; Number of locals 0943 BODY_0940: 0943 INIT_0940: 0943 e007 | | Load 0x0,0x7 0944 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0945 e007 | | Load 0x0,0x7 0946 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0947 00db | | Load_Top At_Offset_3 0948 0217 | | Execute Heap_Access,All_Reference 0949 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 094a 0903 | | Execute_Immediate Binary_Scale,0x3 094b 0273 | s | Execute Discrete,Plus 094c e007 | | Load 0x0,0x7 094d 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 094e 00db | | Load_Top At_Offset_3 094f 0217 | | Execute Heap_Access,All_Reference 0950 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0951 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0952 0000 0000 | | .BLANK 0000[0x6] 0958 ; -------------------------------------------------------------------------------------- 0958 ; SUBPROGRAM 0958 ; -------------------------------------------------------------------------------------- 0958 095c | \ | .CONST 0x095c ; Address of begin 0959 0004 | | .CONST 0x0004 ; Address of exception handler 095a 0002 | | .CONST 0x0002 ; Number of locals 095b INIT_0958: 095b 00e1 | | Load_Encached Boolean_Cache 095c BODY_0958: 095c 00db | | Load_Top At_Offset_3 095d 0217 | | Execute Heap_Access,All_Reference 095e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 095f e007 | | Load 0x0,0x7 0960 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0961 702a |p* | Jump_Nonzero 0x98c 0962 00db | | Load_Top At_Offset_3 0963 0217 | | Execute Heap_Access,All_Reference 0964 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0965 6811 |h | Jump_Zero 0x977 0966 00db | | Load_Top At_Offset_3 0967 0219 | | Execute Heap_Access,All_Read 0968 00e1 | | Load_Encached Boolean_Cache 0969 00d9 | | Load_Top At_Offset_1 096a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 096b 4800 |H | Short_Literal 0x0 096c e5ff | | Load 0x2,-0x1 096d 0217 | | Execute Heap_Access,All_Reference 096e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 096f e006 | | Load 0x0,0x6 0970 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0971 8239 | 9 | Call 0x1,0x39 0972 00da | | Load_Top At_Offset_2 0973 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0974 005a | Z | Store_Top Discrete,At_Offset_2 0975 00d1 | | Pop_Control Pop_Count_1 0976 7813 |x | Jump 0x98a 0977 00db | | Load_Top At_Offset_3 0978 0219 | | Execute Heap_Access,All_Read 0979 00e1 | | Load_Encached Boolean_Cache 097a 00d9 | | Load_Top At_Offset_1 097b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 097c 4800 |H | Short_Literal 0x0 097d e5ff | | Load 0x2,-0x1 097e 0217 | | Execute Heap_Access,All_Reference 097f 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 0980 e22e | . | Load 0x1,0x2e 0981 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0982 e00e | | Load 0x0,0xe 0983 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0984 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0985 8239 | 9 | Call 0x1,0x39 0986 00da | | Load_Top At_Offset_2 0987 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0988 005a | Z | Store_Top Discrete,At_Offset_2 0989 00d1 | | Pop_Control Pop_Count_1 098a 00db | | Load_Top At_Offset_3 098b 823a | : | Call 0x1,0x3a 098c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 098d 0000 0000 | | .XXX[0x3] 098f 0000 | | 0990 ; -------------------------------------------------------------------------------------- 0990 ; SUBPROGRAM 0990 ; -------------------------------------------------------------------------------------- 0990 0998 | | .CONST 0x0998 ; Address of begin 0991 0004 | | .CONST 0x0004 ; Address of exception handler 0992 0002 | | .CONST 0x0002 ; Number of locals 0993 INIT_0990: 0993 4801 |H | Short_Literal 0x1 0994 e404 | | Load 0x2,0x4 0995 00e9 | | Load_Encached String_Cache 0996 035b | [ | Declare_Type Array,Constrained 0997 0337 | 7 | Declare_Variable Array 0998 BODY_0990: 0998 00e3 | | Load_Encached Natural_Cache 0999 00d9 | | Load_Top At_Offset_1 099a e402 | | Load 0x2,0x2 099b e5ff | | Load 0x2,-0x1 099c 0217 | | Execute Heap_Access,All_Reference 099d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 099e e007 | | Load 0x0,0x7 099f 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 09a0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 09a1 c402 | | Store 0x2,0x2 09a2 00d1 | | Pop_Control Pop_Count_1 09a3 c404 | | Store 0x2,0x4 09a4 00d8 | | Load_Top At_Offset_0 09a5 00e9 | | Load_Encached String_Cache 09a6 01c6 | | Execute Vector,Convert_To_Formal 09a7 00cb | | Action Pop_Block_With_Result 09a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09a9 0000 0000 | | .BLANK 0000[0x7] 09b0 ; -------------------------------------------------------------------------------------- 09b0 ; SUBPROGRAM 09b0 ; -------------------------------------------------------------------------------------- 09b0 09b3 | | .CONST 0x09b3 ; Address of begin 09b1 09bf | | .CONST 0x09bf ; Address of exception handler 09b2 0001 | | .CONST 0x0001 ; Number of locals 09b3 BODY_09b0: 09b3 INIT_09b0: 09b3 e5ff | | Load 0x2,-0x1 09b4 0219 | | Execute Heap_Access,All_Read 09b5 00d8 | | Load_Top At_Offset_0 09b6 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 09b7 00ea | | Load_Encached Null_String_Cache 09b8 e402 | | Load 0x2,0x2 09b9 4800 |H | Short_Literal 0x0 09ba e22e | . | Load 0x1,0x2e 09bb 1815 | | Execute Package,Field_Execute,Field_Number 0x15 09bc 00d9 | | Load_Top At_Offset_1 09bd 380a |8 | Execute Record,Field_Write,Field_Number 0xa 09be 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09bf TRAP_09b0: 09bf 00d8 | | Load_Top At_Offset_0 09c0 0107 | | Execute Exception,Get_Name 09c1 4920 |I | Short_Literal 0x120 09c2 492f |I/ | Short_Literal 0x12f 09c3 0262 | b | Execute Discrete,In_Range 09c4 6805 |h | Jump_Zero 0x9ca 09c5 4801 |H | Short_Literal 0x1 09c6 e5ff | | Load 0x2,-0x1 09c7 0217 | | Execute Heap_Access,All_Reference 09c8 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 09c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09ca 0100 | | Execute Exception,Raise 09cb ; -------------------------------------------------------------------------------------- 09cb ; STRING TABLE 09cb ; -------------------------------------------------------------------------------------- 09cb 0018 | | .STRTAB 0x0018->0x09d7 ; "READ" 09cc 001a | | .STRTAB 0x001a->0x09d9 ; "WRITE" 09cd 001d | | .STRTAB 0x001d->0x09db ; "APPEND" 09ce 0021 | ! | .STRTAB 0x0021->0x09de ; "Cannot open " 09cf 002b | + | .STRTAB 0x002b->0x09e4 ; " (" 09d0 002b | + | .STRTAB 0x002b->0x09e5 ; ")" 09d1 002a | * | .STRTAB 0x002a->0x09e6 ; ".Toc" 09d2 002c | , | .STRTAB 0x002c->0x09e8 ; "Cannot resolve file name " 09d3 0043 | C | .STRTAB 0x0043->0x09f4 ; "Cannot find a file named " 09d4 005a | Z | .STRTAB 0x005a->0x0a01 ; "Cannot create a file named " 09d5 0073 | s | .STRTAB 0x0073->0x0a0e ; "Cannot open file " 09d6 0082 | | .STREND 0x0082->0x0a17 09d7 5245 4144 |READ| .STRTAB_STRINGS 0a17 0000 | | .XXX[0x1] 0a18 ; -------------------------------------------------------------------------------------- 0a18 ; Debug Table 0a18 ; -------------------------------------------------------------------------------------- 0a18 0004 0011 | | .DEBUG4 0x0004,0x0011,0xf21b,0x0000,0x0001,0x0000 0a1e 3d26 4311 |=&C | .XXX[0x1e2] 0a20 c4f8 91de | | 0a22 c78b 3b7e | ;~| 0a24 a106 cb3e | >| 0a26 2640 b1d0 |&@ | 0a28 4821 5687 |H!V | 0a2a da01 b802 | | 0a2c 95b0 7900 | y | 0a2e 3963 c5c0 |9c | 0a30 a116 2b1f | + | 0a32 183c 9650 | < P| 0a34 d9ce e0bb | | 0a36 3476 18eb |4v | 0a38 4400 96d0 |D | 0a3a 4e69 2c48 |Ni,H| 0a3c 9b25 18b4 | % | 0a3e 76e9 47d6 |v G | 0a40 98e0 d57c | || 0a42 9cc8 d8fb | | 0a44 ac2e e05a | . Z| 0a46 0006 ea92 | | 0a48 7001 d301 |p | 0a4a 0225 29ab | %) | 0a4c b1cb b944 | D| 0a4e 0202 8085 | | 0a50 52b9 8c23 |R #| 0a52 5546 efbe |UF | 0a54 30ab 28c9 |0 ( | 0a56 4e12 d54d |N M| 0a58 1001 81c9 | | 0a5a f3a0 0634 | 4| 0a5c b698 43b5 | C | 0a5e e689 090a | | 0a60 6472 0cd1 |dr | 0a62 18b4 027e | ~| 0a64 f574 5c0a | t\ | 0a66 0124 a5ab | $ | 0a68 2759 9618 |'Y | 0a6a 26c1 bdc9 |& | 0a6c 095a aa36 | Z 6| 0a6e c1d8 7680 | v | 0a70 4110 280d |A ( | 0a72 e0c4 aaf9 | | 0a74 4001 dd44 |@ D| 0a76 fba5 4b36 | K6| 0a78 63a8 2b88 |c + | 0a7a 25b0 0008 |% | 0a7c c4c5 6c49 | lI| 0a7e aaec b99d | | 0a80 ec7b c3f3 | { | 0a82 b555 d69e | U | 0a84 0403 0093 | | 0a86 d998 4381 | C | 0a88 670a 4f44 |g OD| 0a8a 0282 54b2 | T | 0a8c 0280 b7d7 | | 0a8e ca63 68e7 | ch | 0a90 6403 e11e |d | 0a92 8ada eb4d | M| 0a94 2001 a8d5 | | 0a96 9e2e f7c3 | . | 0a98 f076 6692 | vf | 0a9a da06 0137 | 7| 0a9c 0348 d99b | H | 0a9e 2ec6 1540 |. @| 0aa0 3ab0 6006 |: ` | 0aa2 7a96 2bb0 |z + | 0aa4 9282 65e1 | e | 0aa6 914b 6f09 | Ko | 0aa8 b2dc 35b5 | 5 | 0aaa 6f17 a771 |o q| 0aac db6e 42d9 | nB | 0aae 776d 7849 |wmxI| 0ab0 dad9 5352 | SR| 0ab2 f4b4 3681 | 6 | 0ab4 bdee df75 | u| 0ab6 68f1 aa6d |h m| 0ab8 ee53 36f4 | S6 | 0aba b518 11b6 | | 0abc aedb 177b | {| 0abe 01b7 1681 | | 0ac0 836e eab7 | n | 0ac2 b851 4162 | QAb| 0ac4 d496 36e4 | 6 | 0ac6 6f62 da1d |ob | 0ac8 6ef7 b52a |n *| 0aca d5bc ad00 | | 0acc 0130 593d | 0Y=| 0ace 2ad9 cb6e |* n| 0ad0 e8b3 9cd9 | | 0ad2 9d2c 0f23 | , #| 0ad4 6feb f012 |o | 0ad6 de8d 6f03 | o | 0ad8 9358 09d2 | X | 0ada 2d29 b499 |-) | 0adc 8913 52da | R | 0ade 5f6c c1ab |_l | 0ae0 6c58 932e |lX .| 0ae2 d017 7219 | r | 0ae4 bb6d d5f7 | m | 0ae6 6f61 b7c4 |oa | 0ae8 91cd eee8 | | 0aea 5777 09b9 |Ww | 0aec 26de db6d |& m| 0aee 68ab abd9 |h | 0af0 deae e8d7 | | 0af2 76ca f452 |v R| 0af4 ddf5 6efe | n | 0af6 4f9c 59c2 |O Y | 0af8 2c9e 2f75 |, /u| 0afa 89bd e2dd | | 0afc e0fe e9b7 | | 0afe cad9 db2e | .| 0b00 ea37 7b89 | 7{ | 0b02 bb56 db2b | V +| 0b04 6efc b7d1 |n | 0b06 d8e7 4130 | A0| 0b08 7371 89bc |sq | 0b0a 1c07 156d | m| 0b0c 1b00 7ed1 | ~ | 0b0e d6ef face | | 0b10 a838 0b19 | 8 | 0b12 fd4b 5037 | KP7| 0b14 0041 5a75 | AZu| 0b16 e610 368e | 6 | 0b18 79bd 96de |y | 0b1a 6e00 84b1 |n | 0b1c a6b1 2e19 | . | 0b1e 69f7 7d89 |i } | 0b20 bf52 de21 | R !| 0b22 6d05 b055 |m U| 0b24 daa4 615c | a\| 0b26 556a a95d |Uj ]| 0b28 aea6 8551 | Q| 0b2a a092 35c0 | 5 | 0b2c 7840 3663 |x@6c| 0b2e 5e18 0e08 |^ | 0b30 8c0f 70b3 | p | 0b32 02f4 da42 | B| 0b34 98e8 6e9d | n | 0b36 09a4 2c00 | , | 0b38 e4f8 0400 | | 0b3a f400 61c8 | a | 0b3c 81d6 0c95 | | 0b3e 2185 a833 |! 3| 0b40 4976 9d04 |Iv | 0b42 3d3a d8ab |=: | 0b44 92a6 c71b | | 0b46 a179 8001 | y | 0b48 a47f 8f44 | D| 0b4a 8440 2562 | @%b| 0b4c a7a8 59d6 | Y | 0b4e 9d18 c40e | | 0b50 01a8 9d69 | i| 0b52 2001 2012 | | 0b54 c3d8 a001 | | 0b56 5400 1200 |T | 0b58 98d1 69e3 | i | 0b5a 438d 2108 |C ! | 0b5c 0d8a e30d | | 0b5e 46c1 8482 |F | 0b60 02d5 5f0c | _ | 0b62 77bf 81c0 |w | 0b64 2e75 0b6c |.u l| 0b66 0b5c f080 | \ | 0b68 08c2 bc14 | | 0b6a 1fd2 41a2 | A | 0b6c 13b6 0169 | i| 0b6e 0230 53cd | 0S | 0b70 178f 8df1 | | 0b72 05a4 0c02 | | 0b74 371c b163 |7 c| 0b76 48c9 a9ab |H | 0b78 63cd e837 |c 7| 0b7a e629 f30f | ) | 0b7c 4080 012e |@ .| 0b7e b5e7 5b5c | [\| 0b80 72b4 0952 |r R| 0b82 0da2 b0f4 | | 0b84 2000 54dd | T | 0b86 15e7 1475 | u| 0b88 ecd7 3780 | 7 | 0b8a 00c4 02bb | | 0b8c 0062 0193 | b | 0b8e c317 f676 | v| 0b90 15c7 1ee1 | | 0b92 5b72 afa4 |[r | 0b94 7782 322f |w 2/| 0b96 0fa3 8a08 | | 0b98 076a e166 | j f| 0b9a c0dd b86e | n| 0b9c 822b efd6 | + | 0b9e 4b8e 79c7 |K y | 0ba0 6c68 ed4e |lh N| 0ba2 6891 6b80 |h k | 0ba4 e02c 1802 | , | 0ba6 680b 661a |h f | 0ba8 983c 0662 | < b| 0baa 650b 91a2 |e | 0bac a81d 6387 | c | 0bae eba7 19a0 | | 0bb0 7cd5 856b || k| 0bb2 4fd1 dc58 |O X| 0bb4 e244 0111 | D | 0bb6 372d e7d0 |7- | 0bb8 d0f9 b866 | f| 0bba 5fb0 1537 |_ 7| 0bbc 6e94 a4d4 |n | 0bbe 0a05 fc0c | | 0bc0 a249 8910 | I | 0bc2 79c0 3923 |y 9#| 0bc4 cec1 3686 | 6 | 0bc6 d191 520e | R | 0bc8 6b50 2c76 |kP,v| 0bca 2c1e e007 |, | 0bcc 8003 c19f | | 0bce e8ce 5f68 | _h| 0bd0 9eb6 4d2d | M-| 0bd2 444c 1050 |DL P| 0bd4 0150 428a | PB | 0bd6 0020 01c2 | | 0bd8 87a6 d543 | C| 0bda d0ed c71b | | 0bdc e81d c8c1 | | 0bde c61c 2928 | )(| 0be0 0286 0be8 | | 0be2 5dc3 1bd0 |] | 0be4 939e 01a8 | | 0be6 90de c68e | | 0be8 1929 6e6a | )nj| 0bea 89c9 cdf0 | | 0bec 58fa 202c |X ,| 0bee 6783 8840 |g @| 0bf0 0e42 9f87 | B | 0bf2 4569 abda |Ei | 0bf4 d19f 6933 | i3| 0bf6 4a4d 6e4e |JMnN| 0bf8 d397 89c9 | | 0bfa d6e7 f0f2 | | 0bfc ba00 7332 | s2| 0bfe 5d6e 9a46 |]n F|