|
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_0d2ce3
└─⟦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 0a58 | X | .CONST 0x0a58 ; 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 00d4 | | .CONST 0x00d4 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 003c | < | .CONST 0x003c ; Number of locals
000b INIT_0008:
000b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible
000c 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
000e 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0010 4800 |H | Short_Literal 0x0
0011 4802 |H | Short_Literal 0x2
0012 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call
0014 03fe | | Declare_Type Discrete,Defined,Visible
0015 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0017 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
0019 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
001b 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
001d 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
001f 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
0021 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0023 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated
0025 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
0027 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
0029 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated
002b 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated
002d 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
002f 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated
0031 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated
0033 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
0035 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated
0037 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated
0039 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated
003b 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated
003d 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated
003f 029a 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Visible,Unelaborated
0041 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated
0043 029a 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Visible,Unelaborated
0045 029a 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call,Visible,Unelaborated
0047 029a 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call,Visible,Unelaborated
0049 029a 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call,Visible,Unelaborated
004b 029a 05c3 | | Declare_Subprogram INIT_05c0,For_Outer_Call,Visible,Unelaborated
004d 480b |H | Short_Literal 0xb
004e 032a | * | Declare_Type Record,Incomplete
004f 00d8 | | Load_Top At_Offset_0
0050 02a0 | | Declare_Subprogram Null_Subprogram
0051 e20d | | Load 0x1,0xd
0052 03a3 | | Complete_Type Heap_Access,By_Defining
0053 00bf | | Action Accept_Activation
0054 e001 | | Load 0x0,0x1
0055 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0056 00e2 | | Load_Encached Integer_Cache
0057 00e2 | | Load_Encached Integer_Cache
0058 e001 | | Load 0x0,0x1
0059 1b12 | | Execute Package,Field_Read,Field_Number 0x12
005a 029f 0663 | c| Declare_Subprogram INIT_0660,For_Call
005c 4803 |H | Short_Literal 0x3
005d 032d | - | Declare_Type Record,Defined
005e e002 | | Load 0x0,0x2
005f e003 | | Load 0x0,0x3
0060 00da | | Load_Top At_Offset_2
0061 e004 | | Load 0x0,0x4
0062 0387 | | Declare_Variable Package
0063 00d8 | | Load_Top At_Offset_0
0064 020f | | Execute Module,Activate
0065 e210 | | Load 0x1,0x10
0066 e005 | | Load 0x0,0x5
0067 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0068 e006 | | Load 0x0,0x6
0069 1b11 | | Execute Package,Field_Read,Field_Number 0x11
006a e006 | | Load 0x0,0x6
006b 1b15 | | Execute Package,Field_Read,Field_Number 0x15
006c 00e1 | | Load_Encached Boolean_Cache
006d 00e2 | | Load_Encached Integer_Cache
006e e001 | | Load 0x0,0x1
006f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0070 00e2 | | Load_Encached Integer_Cache
0071 00e2 | | Load_Encached Integer_Cache
0072 00e1 | | Load_Encached Boolean_Cache
0073 e230 | 0 | Load 0x1,0x30
0074 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0075 029f 067b | {| Declare_Subprogram INIT_0678,For_Call
0077 e22d | - | Load 0x1,0x2d
0078 0326 | & | Complete_Type Record,By_Defining
0079 029d 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call
007b 029d 0733 | 3| Declare_Subprogram INIT_0730,For_Outer_Call
007d 029d 0743 | C| Declare_Subprogram INIT_0740,For_Outer_Call
007f 029d 0773 | s| Declare_Subprogram INIT_0770,For_Outer_Call
0081 029d 07b3 | | Declare_Subprogram INIT_07b0,For_Outer_Call
0083 029d 081b | | Declare_Subprogram INIT_0818,For_Outer_Call
0085 029d 086b | k| Declare_Subprogram INIT_0868,For_Outer_Call
0087 029d 0883 | | Declare_Subprogram INIT_0880,For_Outer_Call
0089 e007 | | Load 0x0,0x7
008a e008 | | Load 0x0,0x8
008b e001 | | Load 0x0,0x1
008c 1b18 | | Execute Package,Field_Read,Field_Number 0x18
008d e006 | | Load 0x0,0x6
008e 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
008f 0387 | | Declare_Variable Package
0090 00d8 | | Load_Top At_Offset_0
0091 020f | | Execute Module,Activate
0092 029d 089b | | Declare_Subprogram INIT_0898,For_Outer_Call
0094 029d 0983 | | Declare_Subprogram INIT_0980,For_Outer_Call
0096 029d 099b | | Declare_Subprogram INIT_0998,For_Outer_Call
0098 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0099 00c7 | | Action Elaborate_Subprogram
009a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
009b 00c7 | | Action Elaborate_Subprogram
009c 1d11 | | Execute_Immediate Reference_Lex_1,0x11
009d 00c7 | | Action Elaborate_Subprogram
009e 1d15 | | Execute_Immediate Reference_Lex_1,0x15
009f 00c7 | | Action Elaborate_Subprogram
00a0 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00a1 00c7 | | Action Elaborate_Subprogram
00a2 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00a3 00c7 | | Action Elaborate_Subprogram
00a4 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00a5 00c7 | | Action Elaborate_Subprogram
00a6 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00a7 00c7 | | Action Elaborate_Subprogram
00a8 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00a9 00c7 | | Action Elaborate_Subprogram
00aa 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00ab 00c7 | | Action Elaborate_Subprogram
00ac 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00ad 00c7 | | Action Elaborate_Subprogram
00ae 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00af 00c7 | | Action Elaborate_Subprogram
00b0 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00b1 00c7 | | Action Elaborate_Subprogram
00b2 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00b3 00c7 | | Action Elaborate_Subprogram
00b4 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00b5 00c7 | | Action Elaborate_Subprogram
00b6 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00b7 00c7 | | Action Elaborate_Subprogram
00b8 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00b9 00c7 | | Action Elaborate_Subprogram
00ba 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00bb 00c7 | | Action Elaborate_Subprogram
00bc 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00bd 00c7 | | Action Elaborate_Subprogram
00be 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00bf 00c7 | | Action Elaborate_Subprogram
00c0 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00c1 00c7 | | Action Elaborate_Subprogram
00c2 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00c3 00c7 | | Action Elaborate_Subprogram
00c4 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00c5 00c7 | | Action Elaborate_Subprogram
00c6 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00c7 00c7 | | Action Elaborate_Subprogram
00c8 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00c9 00c7 | | Action Elaborate_Subprogram
00ca 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00cb 00c7 | | Action Elaborate_Subprogram
00cc 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00cd 00c7 | | Action Elaborate_Subprogram
00ce 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00cf 00c7 | | Action Elaborate_Subprogram
00d0 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00d1 00c7 | | Action Elaborate_Subprogram
00d2 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00d3 00c7 | | Action Elaborate_Subprogram
00d4 BODY_0008:
00d4 00bc | | Action Signal_Activated
00d5 00bb | | Action Signal_Completion
00d6 0000 0000 | | .XXX[0x2]
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 e20d | | Load 0x1,0xd
00dc 00ca | | Action Exit_Nullary_Function
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
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 00da | | Load_Top At_Offset_2
00e4 021d | | Execute Heap_Access,Is_Null
00e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e6 0000 0000 | | .XXX[0x2]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 4607 |F | Jump_Case 0x8
00ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00ed 7806 |x | Jump 0xf4 ; case 0x1
00ee 7809 |x | Jump 0xf8 ; case 0x2
00ef 780d |x | Jump 0xfd ; case 0x3
00f0 7810 |x | Jump 0x101 ; case 0x4
00f1 7811 |x | Jump 0x103 ; case 0x5
00f2 7812 |x | Jump 0x105 ; case 0x6
00f3 7815 |x | Jump 0x109 ; case 0x7
00f4 00da | | Load_Top At_Offset_2
00f5 0091 0a0b | | Action Push_String_Extended_Indexed,0xa0b ; "READ"
00f7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f8 00db | | Load_Top At_Offset_3
00f9 00db | | Load_Top At_Offset_3
00fa 00e0 | | Load_Encached Standard_Cache
00fb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fd 00da | | Load_Top At_Offset_2
00fe 00e0 | | Load_Encached Standard_Cache
00ff 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0100 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0101 00db | | Load_Top At_Offset_3
0102 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0103 00db | | Load_Top At_Offset_3
0104 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0105 e210 | | Load 0x1,0x10
0106 00dc | | Load_Top At_Offset_4
0107 0267 | g | Execute Discrete,Predecessor
0108 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0109 e210 | | Load 0x1,0x10
010a 00dc | | Load_Top At_Offset_4
010b 0268 | h | Execute Discrete,Successor
010c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
010d 0000 0000 | | .XXX[0x3]
010f 0000 | |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0119 | | .CONST 0x0119 ; Address of begin
0111 016c | l | .CONST 0x016c ; Address of exception handler
0112 0002 | | .CONST 0x0002 ; Number of locals
0113 INIT_0110:
0113 e20d | | Load 0x1,0xd
0114 e009 | | Load 0x0,0x9
0115 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0116 e00a | | Load 0x0,0xa
0117 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0118 039c | | Declare_Variable Heap_Access,By_Allocation
0119 BODY_0110:
0119 e5fe | | Load 0x2,-0x2
011a 00d9 | | Load_Top At_Offset_1
011b 0217 | | Execute Heap_Access,All_Reference
011c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
011d 4800 |H | Short_Literal 0x0
011e 00d9 | | Load_Top At_Offset_1
011f 0217 | | Execute Heap_Access,All_Reference
0120 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0121 e5fe | | Load 0x2,-0x2
0122 4602 |F | Jump_Case 0x3
0123 7816 |x | Jump 0x13a ; case 0x0
0124 782e |x. | Jump 0x153 ; case 0x1
0125 7800 |x | Jump 0x126 ; case 0x2
0126 00d8 | | Load_Top At_Offset_0
0127 0219 | | Execute Heap_Access,All_Read
0128 00d8 | | Load_Top At_Offset_0
0129 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
012a e00b | | Load 0x0,0xb
012b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
012c e00c | | Load 0x0,0xc
012d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
012e 00ea | | Load_Encached Null_String_Cache
012f e5ff | | Load 0x2,-0x1
0130 e005 | | Load 0x0,0x5
0131 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0132 00d9 | | Load_Top At_Offset_1
0133 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0134 00d1 | | Pop_Control Pop_Count_1
0135 00db | | Load_Top At_Offset_3
0136 e5fe | | Load 0x2,-0x2
0137 00da | | Load_Top At_Offset_2
0138 8235 | 5 | Call 0x1,0x35
0139 782f |x/ | Jump 0x169
013a 00db | | Load_Top At_Offset_3
013b e5fe | | Load 0x2,-0x2
013c 00da | | Load_Top At_Offset_2
013d 8235 | 5 | Call 0x1,0x35
013e 00d8 | | Load_Top At_Offset_0
013f 0217 | | Execute Heap_Access,All_Reference
0140 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0141 6827 |h' | Jump_Zero 0x169
0142 00d8 | | Load_Top At_Offset_0
0143 0219 | | Execute Heap_Access,All_Read
0144 00d8 | | Load_Top At_Offset_0
0145 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0146 e00b | | Load 0x0,0xb
0147 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0148 e00c | | Load 0x0,0xc
0149 181e | | Execute Package,Field_Execute,Field_Number 0x1e
014a 00ea | | Load_Encached Null_String_Cache
014b e5ff | | Load 0x2,-0x1
014c 4800 |H | Short_Literal 0x0
014d e005 | | Load 0x0,0x5
014e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
014f 00d9 | | Load_Top At_Offset_1
0150 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0151 00d1 | | Pop_Control Pop_Count_1
0152 7816 |x | Jump 0x169
0153 00d8 | | Load_Top At_Offset_0
0154 0219 | | Execute Heap_Access,All_Read
0155 00d8 | | Load_Top At_Offset_0
0156 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0157 e00b | | Load 0x0,0xb
0158 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0159 e00c | | Load 0x0,0xc
015a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
015b e00c | | Load 0x0,0xc
015c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
015d 00ea | | Load_Encached Null_String_Cache
015e e5ff | | Load 0x2,-0x1
015f 4801 |H | Short_Literal 0x1
0160 e005 | | Load 0x0,0x5
0161 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0162 00d9 | | Load_Top At_Offset_1
0163 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0164 00d1 | | Pop_Control Pop_Count_1
0165 00db | | Load_Top At_Offset_3
0166 e5fe | | Load 0x2,-0x2
0167 00da | | Load_Top At_Offset_2
0168 8235 | 5 | Call 0x1,0x35
0169 00d8 | | Load_Top At_Offset_0
016a a5fd | | Store_Unchecked 0x2,-0x3
016b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
016c TRAP_0110:
016c 0007 | | Action Break_Optional
016d e00d | | Load 0x0,0xd
016e 180e | | Execute Package,Field_Execute,Field_Number 0xe
016f 4808 |H | Short_Literal 0x8
0170 0092 0a0e | | Action Push_String_Extended,0xa0e ; "Cannot open "
0172 e5ff | | Load 0x2,-0x1
0173 01cc | | Execute Vector,Catenate
0174 0092 0a0f | | Action Push_String_Extended,0xa0f ; " ("
0176 01cc | | Execute Vector,Catenate
0177 4800 |H | Short_Literal 0x0
0178 4801 |H | Short_Literal 0x1
0179 e00e | | Load 0x0,0xe
017a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
017b 01cc | | Execute Vector,Catenate
017c 0092 0a10 | | Action Push_String_Extended,0xa10 ; ")"
017e 01cc | | Execute Vector,Catenate
017f e00f | | Load 0x0,0xf
0180 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0181 e20d | | Load 0x1,0xd
0182 a5fd | | Store_Unchecked 0x2,-0x3
0183 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0184 0000 0000 | | .BLANK 0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018d | | .CONST 0x018d ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0002 | | .CONST 0x0002 ; Number of locals
018b INIT_0188:
018b e006 | | Load 0x0,0x6
018c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
018d BODY_0188:
018d e5fe | | Load 0x2,-0x2
018e 0217 | | Execute Heap_Access,All_Reference
018f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0190 6802 |h | Jump_Zero 0x193
0191 e5fe | | Load 0x2,-0x2
0192 8218 | | Call 0x1,0x18
0193 e5fe | | Load 0x2,-0x2
0194 0217 | | Execute Heap_Access,All_Reference
0195 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0196 e005 | | Load 0x0,0x5
0197 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0198 6809 |h | Jump_Zero 0x1a2
0199 e5fe | | Load 0x2,-0x2
019a 0219 | | Execute Heap_Access,All_Read
019b 00d8 | | Load_Top At_Offset_0
019c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
019d e005 | | Load 0x0,0x5
019e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
019f 00d9 | | Load_Top At_Offset_1
01a0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01a1 00d1 | | Pop_Control Pop_Count_1
01a2 e5fe | | Load 0x2,-0x2
01a3 0217 | | Execute Heap_Access,All_Reference
01a4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01a5 e006 | | Load 0x0,0x6
01a6 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01a7 680c |h | Jump_Zero 0x1b4
01a8 e5fe | | Load 0x2,-0x2
01a9 0219 | | Execute Heap_Access,All_Read
01aa e006 | | Load 0x0,0x6
01ab 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01ac 00d9 | | Load_Top At_Offset_1
01ad 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01ae e006 | | Load 0x0,0x6
01af 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01b0 00da | | Load_Top At_Offset_2
01b1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01b2 005a | Z | Store_Top Discrete,At_Offset_2
01b3 00d1 | | Pop_Control Pop_Count_1
01b4 e5fe | | Load 0x2,-0x2
01b5 8237 | 7 | Call 0x1,0x37
01b6 e20d | | Load 0x1,0xd
01b7 a5fe | | Store_Unchecked 0x2,-0x2
01b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b9 0000 0000 | | .BLANK 0000[0x7]
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 021c | | Execute Heap_Access,Not_Null
01c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c6 0000 0000 | | .XXX[0x2]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00da | | Load_Top At_Offset_2
01cc 8238 | 8 | Call 0x1,0x38
01cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ce 0000 0000 | | .XXX[0x2]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d8 | | .CONST 0x01d8 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0002 | | .CONST 0x0002 ; Number of locals
01d3 INIT_01d0:
01d3 00da | | Load_Top At_Offset_2
01d4 0217 | | Execute Heap_Access,All_Reference
01d5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01d6 e005 | | Load 0x0,0x5
01d7 181f | | Execute Package,Field_Execute,Field_Number 0x1f
01d8 BODY_01d0:
01d8 00db | | Load_Top At_Offset_3
01d9 0217 | | Execute Heap_Access,All_Reference
01da 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01db 6802 |h | Jump_Zero 0x1de
01dc 00db | | Load_Top At_Offset_3
01dd 8218 | | Call 0x1,0x18
01de e5fe | | Load 0x2,-0x2
01df 4602 |F | Jump_Case 0x3
01e0 781b |x | Jump 0x1fc ; case 0x0
01e1 782a |x* | Jump 0x20c ; case 0x1
01e2 7800 |x | Jump 0x1e3 ; case 0x2
01e3 00db | | Load_Top At_Offset_3
01e4 0219 | | Execute Heap_Access,All_Read
01e5 00d8 | | Load_Top At_Offset_0
01e6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01e7 e005 | | Load 0x0,0x5
01e8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01e9 00d9 | | Load_Top At_Offset_1
01ea 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01eb 00d1 | | Pop_Control Pop_Count_1
01ec 00db | | Load_Top At_Offset_3
01ed 0219 | | Execute Heap_Access,All_Read
01ee 00d8 | | Load_Top At_Offset_0
01ef 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01f0 e00b | | Load 0x0,0xb
01f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f2 e00c | | Load 0x0,0xc
01f3 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01f4 00ea | | Load_Encached Null_String_Cache
01f5 e402 | | Load 0x2,0x2
01f6 e005 | | Load 0x0,0x5
01f7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01f8 00d9 | | Load_Top At_Offset_1
01f9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01fa 00d1 | | Pop_Control Pop_Count_1
01fb 781a |x | Jump 0x216
01fc 00db | | Load_Top At_Offset_3
01fd 0217 | | Execute Heap_Access,All_Reference
01fe 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01ff e005 | | Load 0x0,0x5
0200 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0201 6814 |h | Jump_Zero 0x216
0202 00db | | Load_Top At_Offset_3
0203 0219 | | Execute Heap_Access,All_Read
0204 00d8 | | Load_Top At_Offset_0
0205 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0206 e005 | | Load 0x0,0x5
0207 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0208 00d9 | | Load_Top At_Offset_1
0209 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
020a 00d1 | | Pop_Control Pop_Count_1
020b 780a |x | Jump 0x216
020c 00db | | Load_Top At_Offset_3
020d 0219 | | Execute Heap_Access,All_Read
020e 00d8 | | Load_Top At_Offset_0
020f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0210 4801 |H | Short_Literal 0x1
0211 e005 | | Load 0x0,0x5
0212 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0213 00d9 | | Load_Top At_Offset_1
0214 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0215 00d1 | | Pop_Control Pop_Count_1
0216 00d8 | | Load_Top At_Offset_0
0217 e5fe | | Load 0x2,-0x2
0218 e5ff | | Load 0x2,-0x1
0219 8236 | 6 | Call 0x1,0x36
021a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
021b 0000 0000 | | .BLANK 0000[0x5]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0248 | H | .CONST 0x0248 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 00da | | Load_Top At_Offset_2
0224 0217 | | Execute Heap_Access,All_Reference
0225 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0226 6804 |h | Jump_Zero 0x22b
0227 e5fd | | Load 0x2,-0x3
0228 00db | | Load_Top At_Offset_3
0229 8233 | 3 | Call 0x1,0x33
022a 7811 |x | Jump 0x23c
022b 00cf | | Action Mark_Auxiliary
022c 00db | | Load_Top At_Offset_3
022d 8232 | 2 | Call 0x1,0x32
022e e5fd | | Load 0x2,-0x3
022f 017d | } | Execute Record,Structure_Write
0230 00db | | Load_Top At_Offset_3
0231 0217 | | Execute Heap_Access,All_Reference
0232 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0233 0c01 | | Execute_Immediate Greater_Equal,0x1
0234 7004 |p | Jump_Nonzero 0x239
0235 e5fe | | Load 0x2,-0x2
0236 7002 |p | Jump_Nonzero 0x239
0237 00c9 | | Action Pop_Auxiliary_Loop
0238 7ff3 | | Jump 0x22c
0239 00ce | | Action Pop_Auxiliary
023a 00da | | Load_Top At_Offset_2
023b 823b | ; | Call 0x1,0x3b
023c 4801 |H | Short_Literal 0x1
023d 00db | | Load_Top At_Offset_3
023e 0217 | | Execute Heap_Access,All_Reference
023f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0240 00da | | Load_Top At_Offset_2
0241 0217 | | Execute Heap_Access,All_Reference
0242 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0243 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0244 00db | | Load_Top At_Offset_3
0245 0217 | | Execute Heap_Access,All_Reference
0246 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0247 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0248 TRAP_0220:
0248 00d8 | | Load_Top At_Offset_0
0249 0107 | | Execute Exception,Get_Name
024a 4950 |IP | Short_Literal 0x150
024b 495f |I_ | Short_Literal 0x15f
024c 0262 | b | Execute Discrete,In_Range
024d 6809 |h | Jump_Zero 0x257
024e 4800 |H | Short_Literal 0x0
024f e5ff | | Load 0x2,-0x1
0250 0217 | | Execute Heap_Access,All_Reference
0251 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0252 4800 |H | Short_Literal 0x0
0253 e5ff | | Load 0x2,-0x1
0254 0217 | | Execute Heap_Access,All_Reference
0255 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0256 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0257 0100 | | Execute Exception,Raise
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 00da | | Load_Top At_Offset_2
025c 0217 | | Execute Heap_Access,All_Reference
025d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
025e 6802 |h | Jump_Zero 0x261
025f 4900 |I | Short_Literal 0x100
0260 0257 | W | Execute Discrete,Raise
0261 00cf | | Action Mark_Auxiliary
0262 7822 |x" | Jump 0x285
0263 00db | | Load_Top At_Offset_3
0264 8232 | 2 | Call 0x1,0x32
0265 e5fc | | Load 0x2,-0x4
0266 017d | } | Execute Record,Structure_Write
0267 e5fd | | Load 0x2,-0x3
0268 7003 |p | Jump_Nonzero 0x26c
0269 00db | | Load_Top At_Offset_3
026a 8220 | | Call 0x1,0x20
026b 7018 |p | Jump_Nonzero 0x284
026c 00db | | Load_Top At_Offset_3
026d 0217 | | Execute Heap_Access,All_Reference
026e 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
026f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0270 e010 | | Load 0x0,0x10
0271 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0272 e5fe | | Load 0x2,-0x2
0273 e011 | | Load 0x0,0x11
0274 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0275 680e |h | Jump_Zero 0x284
0276 00db | | Load_Top At_Offset_3
0277 823b | ; | Call 0x1,0x3b
0278 00db | | Load_Top At_Offset_3
0279 0217 | | Execute Heap_Access,All_Reference
027a 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
027b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
027c e5ff | | Load 0x2,-0x1
027d 0217 | | Execute Heap_Access,All_Reference
027e 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
027f 4801 |H | Short_Literal 0x1
0280 e5ff | | Load 0x2,-0x1
0281 0217 | | Execute Heap_Access,All_Reference
0282 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0283 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0284 00c9 | | Action Pop_Auxiliary_Loop
0285 00db | | Load_Top At_Offset_3
0286 8238 | 8 | Call 0x1,0x38
0287 6fdb |o | Jump_Zero 0x263
0288 00ce | | Action Pop_Auxiliary
0289 e001 | | Load 0x0,0x1
028a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
028b e5fc | | Load 0x2,-0x4
028c 017d | } | Execute Record,Structure_Write
028d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
028e 0000 0000 | | .XXX[0x2]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 00da | | Load_Top At_Offset_2
0294 821c | | Call 0x1,0x1c
0295 6820 |h | Jump_Zero 0x2b6
0296 00da | | Load_Top At_Offset_2
0297 0217 | | Execute Heap_Access,All_Reference
0298 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0299 6818 |h | Jump_Zero 0x2b2
029a 7800 |x | Jump 0x29b
029b 00da | | Load_Top At_Offset_2
029c 821e | | Call 0x1,0x1e
029d 0c01 | | Execute_Immediate Greater_Equal,0x1
029e 6813 |h | Jump_Zero 0x2b2
029f 4801 |H | Short_Literal 0x1
02a0 00db | | Load_Top At_Offset_3
02a1 821e | | Call 0x1,0x1e
02a2 e012 | | Load 0x0,0x12
02a3 1b12 | | Execute Package,Field_Read,Field_Number 0x12
02a4 035b | [ | Declare_Type Array,Constrained
02a5 0337 | 7 | Declare_Variable Array
02a6 00d8 | | Load_Top At_Offset_0
02a7 01dc | | Execute Vector,Last
02a8 4801 |H | Short_Literal 0x1
02a9 0263 | c | Execute Discrete,Above_Bound
02aa 7005 |p | Jump_Nonzero 0x2b0
02ab 4800 |H | Short_Literal 0x0
02ac 00d9 | | Load_Top At_Offset_1
02ad e402 | | Load 0x2,0x2
02ae 01d6 | | Execute Vector,Field_Write
02af 3ffb |? | Loop_Increasing 0x2ab
02b0 00db | | Load_Top At_Offset_3
02b1 8229 | ) | Call 0x1,0x29
02b2 4800 |H | Short_Literal 0x0
02b3 00db | | Load_Top At_Offset_3
02b4 0217 | | Execute Heap_Access,All_Reference
02b5 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
02b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02b7 0000 | | .XXX[0x1]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb | | .CONST 0x02bb ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0001 | | .CONST 0x0001 ; Number of locals
02bb BODY_02b8:
02bb INIT_02b8:
02bb 00da | | Load_Top At_Offset_2
02bc 0217 | | Execute Heap_Access,All_Reference
02bd 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02be 6813 |h | Jump_Zero 0x2d2
02bf 00da | | Load_Top At_Offset_2
02c0 0217 | | Execute Heap_Access,All_Reference
02c1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02c2 700f |p | Jump_Nonzero 0x2d2
02c3 00da | | Load_Top At_Offset_2
02c4 0217 | | Execute Heap_Access,All_Reference
02c5 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
02c6 0c01 | | Execute_Immediate Greater_Equal,0x1
02c7 6809 |h | Jump_Zero 0x2d1
02c8 00da | | Load_Top At_Offset_2
02c9 0217 | | Execute Heap_Access,All_Reference
02ca 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
02cb 0275 | u | Execute Discrete,Unary_Minus
02cc 00db | | Load_Top At_Offset_3
02cd 0217 | | Execute Heap_Access,All_Reference
02ce 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
02cf 00da | | Load_Top At_Offset_2
02d0 8234 | 4 | Call 0x1,0x34
02d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02d2 4900 |I | Short_Literal 0x100
02d3 0257 | W | Execute Discrete,Raise
02d4 0000 0000 | | .BLANK 0000[0x4]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db 00da | | Load_Top At_Offset_2
02dc 0217 | | Execute Heap_Access,All_Reference
02dd 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02de 6813 |h | Jump_Zero 0x2f2
02df 00da | | Load_Top At_Offset_2
02e0 0217 | | Execute Heap_Access,All_Reference
02e1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02e2 700f |p | Jump_Nonzero 0x2f2
02e3 00da | | Load_Top At_Offset_2
02e4 0217 | | Execute Heap_Access,All_Reference
02e5 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
02e6 0d00 | | Execute_Immediate Less,0x0
02e7 6809 |h | Jump_Zero 0x2f1
02e8 00da | | Load_Top At_Offset_2
02e9 0217 | | Execute Heap_Access,All_Reference
02ea 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
02eb 0275 | u | Execute Discrete,Unary_Minus
02ec 00db | | Load_Top At_Offset_3
02ed 0217 | | Execute Heap_Access,All_Reference
02ee 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
02ef 00da | | Load_Top At_Offset_2
02f0 8234 | 4 | Call 0x1,0x34
02f1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02f2 4900 |I | Short_Literal 0x100
02f3 0257 | W | Execute Discrete,Raise
02f4 0000 0000 | | .BLANK 0000[0x4]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb 00da | | Load_Top At_Offset_2
02fc 0217 | | Execute Heap_Access,All_Reference
02fd 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02fe 680c |h | Jump_Zero 0x30b
02ff 00da | | Load_Top At_Offset_2
0300 0219 | | Execute Heap_Access,All_Read
0301 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0302 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0303 00d8 | | Load_Top At_Offset_0
0304 e5fe | | Load 0x2,-0x2
0305 e010 | | Load 0x0,0x10
0306 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0307 00d2 | | Pop_Control Pop_Count_2
0308 00da | | Load_Top At_Offset_2
0309 8234 | 4 | Call 0x1,0x34
030a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
030b 4900 |I | Short_Literal 0x100
030c 0257 | W | Execute Discrete,Raise
030d 0000 0000 | | .XXX[0x3]
030f 0000 | |
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 00da | | Load_Top At_Offset_2
0314 6804 |h | Jump_Zero 0x319
0315 00da | | Load_Top At_Offset_2
0316 0217 | | Execute Heap_Access,All_Reference
0317 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0318 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0319 4800 |H | Short_Literal 0x0
031a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
031b 0000 0000 | | .BLANK 0000[0x5]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 00da | | Load_Top At_Offset_2
0324 821c | | Call 0x1,0x1c
0325 6805 |h | Jump_Zero 0x32b
0326 00da | | Load_Top At_Offset_2
0327 0217 | | Execute Heap_Access,All_Reference
0328 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0329 0d01 | | Execute_Immediate Less,0x1
032a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
032b 4801 |H | Short_Literal 0x1
032c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
032d 0000 0000 | | .XXX[0x3]
032f 0000 | |
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 0217 | | Execute Heap_Access,All_Reference
0335 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0336 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0337 0000 | | .XXX[0x1]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b 00da | | Load_Top At_Offset_2
033c 821c | | Call 0x1,0x1c
033d 6806 |h | Jump_Zero 0x344
033e 00da | | Load_Top At_Offset_2
033f 0217 | | Execute Heap_Access,All_Reference
0340 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0341 0320 | | Declare_Variable Record,Duplicate
0342 00cd | | Action Spare6_Action
0343 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0344 e001 | | Load 0x0,0x1
0345 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0346 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0347 0000 | | .XXX[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 0d00 | | Execute_Immediate Less,0x0
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 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0356 0274 | t | Execute Discrete,Absolute_Value
0357 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b 00da | | Load_Top At_Offset_2
035c 0217 | | Execute Heap_Access,All_Reference
035d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
035e 7011 |p | Jump_Nonzero 0x370
035f 00da | | Load_Top At_Offset_2
0360 0217 | | Execute Heap_Access,All_Reference
0361 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0362 700d |p | Jump_Nonzero 0x370
0363 00db | | Load_Top At_Offset_3
0364 00d8 | | Load_Top At_Offset_0
0365 e230 | 0 | Load 0x1,0x30
0366 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0367 0260 | ` | Execute Discrete,In_Type
0368 7001 |p | Jump_Nonzero 0x36a
0369 0801 | | Execute_Immediate Raise,0x1
036a 00db | | Load_Top At_Offset_3
036b 0217 | | Execute Heap_Access,All_Reference
036c 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
036d e230 | 0 | Load 0x1,0x30
036e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
036f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0370 4900 |I | Short_Literal 0x100
0371 0257 | W | Execute Discrete,Raise
0372 0000 0000 | | .BLANK 0000[0x6]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b 00da | | Load_Top At_Offset_2
037c 0217 | | Execute Heap_Access,All_Reference
037d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
037e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
037f 0000 | | .XXX[0x1]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0384 | | .CONST 0x0384 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0002 | | .CONST 0x0002 ; Number of locals
0383 INIT_0380:
0383 00e2 | | Load_Encached Integer_Cache
0384 BODY_0380:
0384 00db | | Load_Top At_Offset_3
0385 0217 | | Execute Heap_Access,All_Reference
0386 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0387 6802 |h | Jump_Zero 0x38a
0388 4900 |I | Short_Literal 0x100
0389 0257 | W | Execute Discrete,Raise
038a e5fd | | Load 0x2,-0x3
038b e5ff | | Load 0x2,-0x1
038c 8233 | 3 | Call 0x1,0x33
038d 00e2 | | Load_Encached Integer_Cache
038e e5ff | | Load 0x2,-0x1
038f 0217 | | Execute Heap_Access,All_Reference
0390 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0391 e5fc | | Load 0x2,-0x4
0392 e5fe | | Load 0x2,-0x2
0393 e013 | | Load 0x0,0x13
0394 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0395 0059 | Y | Store_Top Discrete,At_Offset_1
0396 00d8 | | Load_Top At_Offset_0
0397 e5fd | | Load 0x2,-0x3
0398 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0399 027e | ~ | Execute Discrete,Not_Equal
039a 6802 |h | Jump_Zero 0x39d
039b 4960 |I` | Short_Literal 0x160
039c 0257 | W | Execute Discrete,Raise
039d 4505 |E | Exit_Suprogram New_Top_Offset 0x5
039e 0000 0000 | | .XXX[0x2]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a8 | | .CONST 0x03a8 ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0003 | | .CONST 0x0003 ; Number of locals
03a3 INIT_03a0:
03a3 00da | | Load_Top At_Offset_2
03a4 821e | | Call 0x1,0x1e
03a5 00e2 | | Load_Encached Integer_Cache
03a6 03f1 | | Declare_Variable Discrete,With_Value
03a7 00e2 | | Load_Encached Integer_Cache
03a8 BODY_03a0:
03a8 e5ff | | Load 0x2,-0x1
03a9 823c | < | Call 0x1,0x3c
03aa 00d9 | | Load_Top At_Offset_1
03ab e5fe | | Load 0x2,-0x2
03ac 01db | | Execute Vector,Length
03ad 027b | { | Execute Discrete,Greater_Equal
03ae 6812 |h | Jump_Zero 0x3c1
03af e5ff | | Load 0x2,-0x1
03b0 0219 | | Execute Heap_Access,All_Read
03b1 00e3 | | Load_Encached Natural_Cache
03b2 e5fe | | Load 0x2,-0x2
03b3 00da | | Load_Top At_Offset_2
03b4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03b5 e5ff | | Load 0x2,-0x1
03b6 0217 | | Execute Heap_Access,All_Reference
03b7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03b8 e006 | | Load 0x0,0x6
03b9 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
03ba 180f | | Execute Package,Field_Execute,Field_Number 0xf
03bb 00db | | Load_Top At_Offset_3
03bc 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03bd 00d1 | | Pop_Control Pop_Count_1
03be 005a | Z | Store_Top Discrete,At_Offset_2
03bf 00d1 | | Pop_Control Pop_Count_1
03c0 7828 |x( | Jump 0x3e9
03c1 00d9 | | Load_Top At_Offset_1
03c2 0c01 | | Execute_Immediate Greater_Equal,0x1
03c3 6823 |h# | Jump_Zero 0x3e7
03c4 e5fe | | Load 0x2,-0x2
03c5 00d8 | | Load_Top At_Offset_0
03c6 01dd | | Execute Vector,First
03c7 e5fe | | Load 0x2,-0x2
03c8 01dd | | Execute Vector,First
03c9 e402 | | Load 0x2,0x2
03ca 0273 | s | Execute Discrete,Plus
03cb 0aff | | Execute_Immediate Plus,-0x1
03cc 00d8 | | Load_Top At_Offset_0
03cd 00e2 | | Load_Encached Integer_Cache
03ce 0260 | ` | Execute Discrete,In_Type
03cf 7001 |p | Jump_Nonzero 0x3d1
03d0 0801 | | Execute_Immediate Raise,0x1
03d1 00da | | Load_Top At_Offset_2
03d2 035b | [ | Declare_Type Array,Constrained
03d3 00d0 | | Action Swap_Control
03d4 01cd | | Execute Vector,Slice_Reference
03d5 e5ff | | Load 0x2,-0x1
03d6 0219 | | Execute Heap_Access,All_Read
03d7 00e3 | | Load_Encached Natural_Cache
03d8 00da | | Load_Top At_Offset_2
03d9 00da | | Load_Top At_Offset_2
03da 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03db e5ff | | Load 0x2,-0x1
03dc 0217 | | Execute Heap_Access,All_Reference
03dd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03de e006 | | Load 0x0,0x6
03df 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
03e0 180f | | Execute Package,Field_Execute,Field_Number 0xf
03e1 00db | | Load_Top At_Offset_3
03e2 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03e3 00d1 | | Pop_Control Pop_Count_1
03e4 005b | [ | Store_Top Discrete,At_Offset_3
03e5 00d2 | | Pop_Control Pop_Count_2
03e6 7802 |x | Jump 0x3e9
03e7 4950 |IP | Short_Literal 0x150
03e8 0257 | W | Execute Discrete,Raise
03e9 e5ff | | Load 0x2,-0x1
03ea 0217 | | Execute Heap_Access,All_Reference
03eb 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
03ec 00d9 | | Load_Top At_Offset_1
03ed 0272 | r | Execute Discrete,Minus
03ee e5ff | | Load 0x2,-0x1
03ef 0217 | | Execute Heap_Access,All_Reference
03f0 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
03f1 00d8 | | Load_Top At_Offset_0
03f2 c5fd | | Store 0x2,-0x3
03f3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03f4 0000 0000 | | .BLANK 0000[0x4]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 0400 | | .CONST 0x0400 ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0003 | | .CONST 0x0003 ; Number of locals
03fb INIT_03f8:
03fb 00da | | Load_Top At_Offset_2
03fc 821e | | Call 0x1,0x1e
03fd 00e2 | | Load_Encached Integer_Cache
03fe 03f1 | | Declare_Variable Discrete,With_Value
03ff 00e2 | | Load_Encached Integer_Cache
0400 BODY_03f8:
0400 e5ff | | Load 0x2,-0x1
0401 823c | < | Call 0x1,0x3c
0402 00d9 | | Load_Top At_Offset_1
0403 e5fe | | Load 0x2,-0x2
0404 01db | | Execute Vector,Length
0405 027b | { | Execute Discrete,Greater_Equal
0406 6812 |h | Jump_Zero 0x419
0407 e5ff | | Load 0x2,-0x1
0408 0219 | | Execute Heap_Access,All_Read
0409 00e3 | | Load_Encached Natural_Cache
040a e5fe | | Load 0x2,-0x2
040b 00da | | Load_Top At_Offset_2
040c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
040d e5ff | | Load 0x2,-0x1
040e 0217 | | Execute Heap_Access,All_Reference
040f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0410 e006 | | Load 0x0,0x6
0411 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0412 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0413 00db | | Load_Top At_Offset_3
0414 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0415 00d1 | | Pop_Control Pop_Count_1
0416 005a | Z | Store_Top Discrete,At_Offset_2
0417 00d1 | | Pop_Control Pop_Count_1
0418 7828 |x( | Jump 0x441
0419 00d9 | | Load_Top At_Offset_1
041a 0c01 | | Execute_Immediate Greater_Equal,0x1
041b 6823 |h# | Jump_Zero 0x43f
041c e5fe | | Load 0x2,-0x2
041d 00d8 | | Load_Top At_Offset_0
041e 01dd | | Execute Vector,First
041f e5fe | | Load 0x2,-0x2
0420 01dd | | Execute Vector,First
0421 e402 | | Load 0x2,0x2
0422 0273 | s | Execute Discrete,Plus
0423 0aff | | Execute_Immediate Plus,-0x1
0424 00d8 | | Load_Top At_Offset_0
0425 00e2 | | Load_Encached Integer_Cache
0426 0260 | ` | Execute Discrete,In_Type
0427 7001 |p | Jump_Nonzero 0x429
0428 0801 | | Execute_Immediate Raise,0x1
0429 00da | | Load_Top At_Offset_2
042a 035b | [ | Declare_Type Array,Constrained
042b 00d0 | | Action Swap_Control
042c 01cd | | Execute Vector,Slice_Reference
042d e5ff | | Load 0x2,-0x1
042e 0219 | | Execute Heap_Access,All_Read
042f 00e3 | | Load_Encached Natural_Cache
0430 00da | | Load_Top At_Offset_2
0431 00da | | Load_Top At_Offset_2
0432 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0433 e5ff | | Load 0x2,-0x1
0434 0217 | | Execute Heap_Access,All_Reference
0435 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0436 e006 | | Load 0x0,0x6
0437 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0438 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0439 00db | | Load_Top At_Offset_3
043a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
043b 00d1 | | Pop_Control Pop_Count_1
043c 005b | [ | Store_Top Discrete,At_Offset_3
043d 00d2 | | Pop_Control Pop_Count_2
043e 7802 |x | Jump 0x441
043f 4950 |IP | Short_Literal 0x150
0440 0257 | W | Execute Discrete,Raise
0441 e5ff | | Load 0x2,-0x1
0442 0217 | | Execute Heap_Access,All_Reference
0443 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0444 00d9 | | Load_Top At_Offset_1
0445 0272 | r | Execute Discrete,Minus
0446 e5ff | | Load 0x2,-0x1
0447 0217 | | Execute Heap_Access,All_Reference
0448 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0449 00d8 | | Load_Top At_Offset_0
044a c5fd | | Store 0x2,-0x3
044b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
044c 0000 0000 | | .BLANK 0000[0x4]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0461 | a | .CONST 0x0461 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0005 | | .CONST 0x0005 ; Number of locals
0453 INIT_0450:
0453 e006 | | Load 0x0,0x6
0454 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0455 02c7 | | Declare_Variable Any
0456 00db | | Load_Top At_Offset_3
0457 0217 | | Execute Heap_Access,All_Reference
0458 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0459 a402 | | Store_Unchecked 0x2,0x2
045a e012 | | Load 0x0,0x12
045b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
045c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
045d 00e2 | | Load_Encached Integer_Cache
045e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
045f 029f 09d3 | | Declare_Subprogram INIT_09d0,For_Call
0461 BODY_0450:
0461 e5ff | | Load 0x2,-0x1
0462 823c | < | Call 0x1,0x3c
0463 e5ff | | Load 0x2,-0x1
0464 0217 | | Execute Heap_Access,All_Reference
0465 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0466 7002 |p | Jump_Nonzero 0x469
0467 4950 |IP | Short_Literal 0x150
0468 0257 | W | Execute Discrete,Raise
0469 00cf | | Action Mark_Auxiliary
046a 781f |x | Jump 0x48a
046b e5ff | | Load 0x2,-0x1
046c 0219 | | Execute Heap_Access,All_Read
046d e006 | | Load 0x0,0x6
046e 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
046f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0470 00d9 | | Load_Top At_Offset_1
0471 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0472 e5ff | | Load 0x2,-0x1
0473 0217 | | Execute Heap_Access,All_Reference
0474 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0475 e006 | | Load 0x0,0x6
0476 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0477 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0478 00da | | Load_Top At_Offset_2
0479 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
047a c403 | | Store 0x2,0x3
047b 00d1 | | Pop_Control Pop_Count_1
047c e5ff | | Load 0x2,-0x1
047d 0217 | | Execute Heap_Access,All_Reference
047e 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
047f 0aff | | Execute_Immediate Plus,-0x1
0480 e5ff | | Load 0x2,-0x1
0481 0217 | | Execute Heap_Access,All_Reference
0482 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0483 00db | | Load_Top At_Offset_3
0484 0f0a | | Execute_Immediate Equal,0xa
0485 7009 |p | Jump_Nonzero 0x48f
0486 00da | | Load_Top At_Offset_2
0487 0a01 | | Execute_Immediate Plus,0x1
0488 005b | [ | Store_Top Discrete,At_Offset_3
0489 00c9 | | Action Pop_Auxiliary_Loop
048a e5ff | | Load 0x2,-0x1
048b 0217 | | Execute Heap_Access,All_Reference
048c 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
048d 0c01 | | Execute_Immediate Greater_Equal,0x1
048e 77dc |w | Jump_Nonzero 0x46b
048f 00ce | | Action Pop_Auxiliary
0490 8405 | | Call 0x2,0x5
0491 0831 | 1 | Execute_Immediate Raise,0x31
0492 0000 0000 | | .BLANK 0000[0x6]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 04aa | | .CONST 0x04aa ; Address of begin
0499 0004 | | .CONST 0x0004 ; Address of exception handler
049a 0006 | | .CONST 0x0006 ; Number of locals
049b INIT_0498:
049b e5fd | | Load 0x2,-0x3
049c 00e2 | | Load_Encached Integer_Cache
049d 03f1 | | Declare_Variable Discrete,With_Value
049e 00db | | Load_Top At_Offset_3
049f 821e | | Call 0x1,0x1e
04a0 00e2 | | Load_Encached Integer_Cache
04a1 03f1 | | Declare_Variable Discrete,With_Value
04a2 e5fe | | Load 0x2,-0x2
04a3 e001 | | Load 0x0,0x1
04a4 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04a5 00e2 | | Load_Encached Integer_Cache
04a6 03f1 | | Declare_Variable Discrete,With_Value
04a7 00e2 | | Load_Encached Integer_Cache
04a8 e22e | . | Load 0x1,0x2e
04a9 0337 | 7 | Declare_Variable Array
04aa BODY_0498:
04aa e5ff | | Load 0x2,-0x1
04ab 823c | < | Call 0x1,0x3c
04ac 00db | | Load_Top At_Offset_3
04ad e402 | | Load 0x2,0x2
04ae 027c | | | Execute Discrete,Less
04af 6802 |h | Jump_Zero 0x4b2
04b0 00db | | Load_Top At_Offset_3
04b1 a402 | | Store_Unchecked 0x2,0x2
04b2 00da | | Load_Top At_Offset_2
04b3 e402 | | Load 0x2,0x2
04b4 027c | | | Execute Discrete,Less
04b5 6802 |h | Jump_Zero 0x4b8
04b6 00da | | Load_Top At_Offset_2
04b7 a402 | | Store_Unchecked 0x2,0x2
04b8 e402 | | Load 0x2,0x2
04b9 c5fc | | Store 0x2,-0x4
04ba e5ff | | Load 0x2,-0x1
04bb 0217 | | Execute Heap_Access,All_Reference
04bc 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
04bd e402 | | Load 0x2,0x2
04be 0272 | r | Execute Discrete,Minus
04bf e5ff | | Load 0x2,-0x1
04c0 0217 | | Execute Heap_Access,All_Reference
04c1 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
04c2 00cf | | Action Mark_Auxiliary
04c3 781b |x | Jump 0x4df
04c4 e5ff | | Load 0x2,-0x1
04c5 0217 | | Execute Heap_Access,All_Reference
04c6 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04c7 e5ff | | Load 0x2,-0x1
04c8 0217 | | Execute Heap_Access,All_Reference
04c9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04ca e239 | 9 | Load 0x1,0x39
04cb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04cc e5fe | | Load 0x2,-0x2
04cd e001 | | Load 0x0,0x1
04ce 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
04cf e5ff | | Load 0x2,-0x1
04d0 0217 | | Execute Heap_Access,All_Reference
04d1 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04d2 e5ff | | Load 0x2,-0x1
04d3 0217 | | Execute Heap_Access,All_Reference
04d4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04d5 e239 | 9 | Load 0x1,0x39
04d6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04d7 e5ff | | Load 0x2,-0x1
04d8 0217 | | Execute Heap_Access,All_Reference
04d9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
04da e402 | | Load 0x2,0x2
04db 4c00 |L | Short_Literal -0x400
04dc 0273 | s | Execute Discrete,Plus
04dd c402 | | Store 0x2,0x2
04de 00c9 | | Action Pop_Auxiliary_Loop
04df e402 | | Load 0x2,0x2
04e0 6027 |`' | Indirect_Literal Discrete,0x508,{0x00000000, 0x00000400}
04e1 027b | { | Execute Discrete,Greater_Equal
04e2 77e1 |w | Jump_Nonzero 0x4c4
04e3 00ce | | Action Pop_Auxiliary
04e4 e402 | | Load 0x2,0x2
04e5 0c01 | | Execute_Immediate Greater_Equal,0x1
04e6 681f |h | Jump_Zero 0x506
04e7 00d8 | | Load_Top At_Offset_0
04e8 4801 |H | Short_Literal 0x1
04e9 e402 | | Load 0x2,0x2
04ea 00da | | Load_Top At_Offset_2
04eb 035b | [ | Declare_Type Array,Constrained
04ec 00d0 | | Action Swap_Control
04ed 01cd | | Execute Vector,Slice_Reference
04ee e5ff | | Load 0x2,-0x1
04ef 0219 | | Execute Heap_Access,All_Read
04f0 00e3 | | Load_Encached Natural_Cache
04f1 00da | | Load_Top At_Offset_2
04f2 00da | | Load_Top At_Offset_2
04f3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04f4 e5ff | | Load 0x2,-0x1
04f5 0217 | | Execute Heap_Access,All_Reference
04f6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04f7 e006 | | Load 0x0,0x6
04f8 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
04f9 180f | | Execute Package,Field_Execute,Field_Number 0xf
04fa 00db | | Load_Top At_Offset_3
04fb 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
04fc 00d1 | | Pop_Control Pop_Count_1
04fd c405 | | Store 0x2,0x5
04fe 00d2 | | Pop_Control Pop_Count_2
04ff 4801 |H | Short_Literal 0x1
0500 00da | | Load_Top At_Offset_2
0501 00da | | Load_Top At_Offset_2
0502 01cf | | Execute Vector,Slice_Read
0503 e5fe | | Load 0x2,-0x2
0504 e001 | | Load 0x0,0x1
0505 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0506 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0507 0000 | | .XXX[0x1]
0508 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
050c 0000 0000 | | .BLANK 0000[0x4]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0513 | | .CONST 0x0513 ; Address of begin
0511 0004 | | .CONST 0x0004 ; Address of exception handler
0512 0001 | | .CONST 0x0001 ; Number of locals
0513 BODY_0510:
0513 INIT_0510:
0513 00da | | Load_Top At_Offset_2
0514 0217 | | Execute Heap_Access,All_Reference
0515 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0516 e5fe | | Load 0x2,-0x2
0517 01db | | Execute Vector,Length
0518 027b | { | Execute Discrete,Greater_Equal
0519 6810 |h | Jump_Zero 0x52a
051a 00db | | Load_Top At_Offset_3
051b 00db | | Load_Top At_Offset_3
051c 0217 | | Execute Heap_Access,All_Reference
051d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
051e e005 | | Load 0x0,0x5
051f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0520 00da | | Load_Top At_Offset_2
0521 0217 | | Execute Heap_Access,All_Reference
0522 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0523 e5fe | | Load 0x2,-0x2
0524 01db | | Execute Vector,Length
0525 0272 | r | Execute Discrete,Minus
0526 00db | | Load_Top At_Offset_3
0527 0217 | | Execute Heap_Access,All_Reference
0528 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0529 4503 |E | Exit_Suprogram New_Top_Offset 0x3
052a 4950 |IP | Short_Literal 0x150
052b 0257 | W | Execute Discrete,Raise
052c 0000 0000 | | .BLANK 0000[0x4]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0533 | 3 | .CONST 0x0533 ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 0001 | | .CONST 0x0001 ; Number of locals
0533 BODY_0530:
0533 INIT_0530:
0533 00da | | Load_Top At_Offset_2
0534 0217 | | Execute Heap_Access,All_Reference
0535 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0536 e5fe | | Load 0x2,-0x2
0537 01db | | Execute Vector,Length
0538 027b | { | Execute Discrete,Greater_Equal
0539 6810 |h | Jump_Zero 0x54a
053a 00db | | Load_Top At_Offset_3
053b 00db | | Load_Top At_Offset_3
053c 0217 | | Execute Heap_Access,All_Reference
053d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
053e e005 | | Load 0x0,0x5
053f 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0540 00da | | Load_Top At_Offset_2
0541 0217 | | Execute Heap_Access,All_Reference
0542 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0543 e5fe | | Load 0x2,-0x2
0544 01db | | Execute Vector,Length
0545 0272 | r | Execute Discrete,Minus
0546 00db | | Load_Top At_Offset_3
0547 0217 | | Execute Heap_Access,All_Reference
0548 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0549 4503 |E | Exit_Suprogram New_Top_Offset 0x3
054a 4950 |IP | Short_Literal 0x150
054b 0257 | W | Execute Discrete,Raise
054c 0000 0000 | | .BLANK 0000[0x4]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0563 | c | .CONST 0x0563 ; Address of begin
0551 0004 | | .CONST 0x0004 ; Address of exception handler
0552 0006 | | .CONST 0x0006 ; Number of locals
0553 INIT_0550:
0553 e5fd | | Load 0x2,-0x3
0554 00e2 | | Load_Encached Integer_Cache
0555 03f1 | | Declare_Variable Discrete,With_Value
0556 e5fe | | Load 0x2,-0x2
0557 e001 | | Load 0x0,0x1
0558 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0559 00e2 | | Load_Encached Integer_Cache
055a 03f1 | | Declare_Variable Discrete,With_Value
055b e5ff | | Load 0x2,-0x1
055c 0217 | | Execute Heap_Access,All_Reference
055d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
055e 00e2 | | Load_Encached Integer_Cache
055f 03f1 | | Declare_Variable Discrete,With_Value
0560 e22e | . | Load 0x1,0x2e
0561 0337 | 7 | Declare_Variable Array
0562 00e2 | | Load_Encached Integer_Cache
0563 BODY_0550:
0563 00da | | Load_Top At_Offset_2
0564 e402 | | Load 0x2,0x2
0565 027c | | | Execute Discrete,Less
0566 6802 |h | Jump_Zero 0x569
0567 00da | | Load_Top At_Offset_2
0568 a402 | | Store_Unchecked 0x2,0x2
0569 00db | | Load_Top At_Offset_3
056a e402 | | Load 0x2,0x2
056b 027c | | | Execute Discrete,Less
056c 6802 |h | Jump_Zero 0x56f
056d 00db | | Load_Top At_Offset_3
056e a402 | | Store_Unchecked 0x2,0x2
056f e402 | | Load 0x2,0x2
0570 c5fc | | Store 0x2,-0x4
0571 e5ff | | Load 0x2,-0x1
0572 0217 | | Execute Heap_Access,All_Reference
0573 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0574 e402 | | Load 0x2,0x2
0575 0272 | r | Execute Discrete,Minus
0576 e5ff | | Load 0x2,-0x1
0577 0217 | | Execute Heap_Access,All_Reference
0578 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0579 00cf | | Action Mark_Auxiliary
057a 7815 |x | Jump 0x590
057b 00e3 | | Load_Encached Natural_Cache
057c 00db | | Load_Top At_Offset_3
057d e5fe | | Load 0x2,-0x2
057e e001 | | Load 0x0,0x1
057f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0580 00d1 | | Pop_Control Pop_Count_1
0581 005a | Z | Store_Top Discrete,At_Offset_2
0582 4801 |H | Short_Literal 0x1
0583 00da | | Load_Top At_Offset_2
0584 e405 | | Load 0x2,0x5
0585 01cf | | Execute Vector,Slice_Read
0586 e5ff | | Load 0x2,-0x1
0587 0217 | | Execute Heap_Access,All_Reference
0588 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0589 e005 | | Load 0x0,0x5
058a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
058b e402 | | Load 0x2,0x2
058c 00da | | Load_Top At_Offset_2
058d 0272 | r | Execute Discrete,Minus
058e c402 | | Store 0x2,0x2
058f 00c9 | | Action Pop_Auxiliary_Loop
0590 e402 | | Load 0x2,0x2
0591 6026 |`& | Indirect_Literal Discrete,0x5b8,{0x00000000, 0x00000400}
0592 027d | } | Execute Discrete,Greater
0593 77e7 |w | Jump_Nonzero 0x57b
0594 00c9 | | Action Pop_Auxiliary_Loop
0595 781d |x | Jump 0x5b3
0596 00da | | Load_Top At_Offset_2
0597 4801 |H | Short_Literal 0x1
0598 e402 | | Load 0x2,0x2
0599 00da | | Load_Top At_Offset_2
059a 035b | [ | Declare_Type Array,Constrained
059b 00d0 | | Action Swap_Control
059c 01cd | | Execute Vector,Slice_Reference
059d 00e3 | | Load_Encached Natural_Cache
059e 00d9 | | Load_Top At_Offset_1
059f e5fe | | Load 0x2,-0x2
05a0 e001 | | Load 0x0,0x1
05a1 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
05a2 00d1 | | Pop_Control Pop_Count_1
05a3 005b | [ | Store_Top Discrete,At_Offset_3
05a4 00d1 | | Pop_Control Pop_Count_1
05a5 4801 |H | Short_Literal 0x1
05a6 00da | | Load_Top At_Offset_2
05a7 e405 | | Load 0x2,0x5
05a8 01cf | | Execute Vector,Slice_Read
05a9 e5ff | | Load 0x2,-0x1
05aa 0217 | | Execute Heap_Access,All_Reference
05ab 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05ac e005 | | Load 0x0,0x5
05ad 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
05ae e402 | | Load 0x2,0x2
05af 00da | | Load_Top At_Offset_2
05b0 0272 | r | Execute Discrete,Minus
05b1 c402 | | Store 0x2,0x2
05b2 00c9 | | Action Pop_Auxiliary_Loop
05b3 e402 | | Load 0x2,0x2
05b4 0c01 | | Execute_Immediate Greater_Equal,0x1
05b5 77e0 |w | Jump_Nonzero 0x596
05b6 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05b7 0000 | | .XXX[0x1]
05b8 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
05bc 0000 0000 | | .BLANK 0000[0x4]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05d1 | | .CONST 0x05d1 ; Address of begin
05c1 0004 | | .CONST 0x0004 ; Address of exception handler
05c2 0006 | | .CONST 0x0006 ; Number of locals
05c3 INIT_05c0:
05c3 00da | | Load_Top At_Offset_2
05c4 0217 | | Execute Heap_Access,All_Reference
05c5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
05c6 00e1 | | Load_Encached Boolean_Cache
05c7 03f1 | | Declare_Variable Discrete,With_Value
05c8 e5fe | | Load 0x2,-0x2
05c9 0217 | | Execute Heap_Access,All_Reference
05ca 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
05cb 00e1 | | Load_Encached Boolean_Cache
05cc 03f1 | | Declare_Variable Discrete,With_Value
05cd 00e2 | | Load_Encached Integer_Cache
05ce 00e2 | | Load_Encached Integer_Cache
05cf e22e | . | Load 0x1,0x2e
05d0 0337 | 7 | Declare_Variable Array
05d1 BODY_05c0:
05d1 e402 | | Load 0x2,0x2
05d2 7008 |p | Jump_Nonzero 0x5db
05d3 e5ff | | Load 0x2,-0x1
05d4 0219 | | Execute Heap_Access,All_Read
05d5 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
05d6 00d8 | | Load_Top At_Offset_0
05d7 4800 |H | Short_Literal 0x0
05d8 e5ff | | Load 0x2,-0x1
05d9 8216 | | Call 0x1,0x16
05da 00d2 | | Pop_Control Pop_Count_2
05db 00db | | Load_Top At_Offset_3
05dc 7008 |p | Jump_Nonzero 0x5e5
05dd e5ff | | Load 0x2,-0x1
05de 0219 | | Execute Heap_Access,All_Read
05df 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
05e0 00d8 | | Load_Top At_Offset_0
05e1 4800 |H | Short_Literal 0x0
05e2 e5fe | | Load 0x2,-0x2
05e3 8216 | | Call 0x1,0x16
05e4 00d2 | | Pop_Control Pop_Count_2
05e5 e5fe | | Load 0x2,-0x2
05e6 0217 | | Execute Heap_Access,All_Reference
05e7 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
05e8 e5ff | | Load 0x2,-0x1
05e9 0217 | | Execute Heap_Access,All_Reference
05ea 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
05eb 027c | | | Execute Discrete,Less
05ec 6805 |h | Jump_Zero 0x5f2
05ed e5fe | | Load 0x2,-0x2
05ee 0217 | | Execute Heap_Access,All_Reference
05ef 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
05f0 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
05f1 7804 |x | Jump 0x5f6
05f2 e5ff | | Load 0x2,-0x1
05f3 0217 | | Execute Heap_Access,All_Reference
05f4 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
05f5 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
05f6 00da | | Load_Top At_Offset_2
05f7 a5fd | | Store_Unchecked 0x2,-0x3
05f8 e5ff | | Load 0x2,-0x1
05f9 0217 | | Execute Heap_Access,All_Reference
05fa 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
05fb 00db | | Load_Top At_Offset_3
05fc 0272 | r | Execute Discrete,Minus
05fd e5ff | | Load 0x2,-0x1
05fe 0217 | | Execute Heap_Access,All_Reference
05ff 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0600 e5fe | | Load 0x2,-0x2
0601 0217 | | Execute Heap_Access,All_Reference
0602 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0603 00db | | Load_Top At_Offset_3
0604 0272 | r | Execute Discrete,Minus
0605 e5fe | | Load 0x2,-0x2
0606 0217 | | Execute Heap_Access,All_Reference
0607 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0608 e5ff | | Load 0x2,-0x1
0609 823c | < | Call 0x1,0x3c
060a 00cf | | Action Mark_Auxiliary
060b 781d |x | Jump 0x629
060c e5ff | | Load 0x2,-0x1
060d 0217 | | Execute Heap_Access,All_Reference
060e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
060f e5ff | | Load 0x2,-0x1
0610 0217 | | Execute Heap_Access,All_Reference
0611 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0612 e239 | 9 | Load 0x1,0x39
0613 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0614 e5fe | | Load 0x2,-0x2
0615 0217 | | Execute Heap_Access,All_Reference
0616 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0617 e005 | | Load 0x0,0x5
0618 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0619 e5ff | | Load 0x2,-0x1
061a 0217 | | Execute Heap_Access,All_Reference
061b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
061c e5ff | | Load 0x2,-0x1
061d 0217 | | Execute Heap_Access,All_Reference
061e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
061f e239 | 9 | Load 0x1,0x39
0620 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0621 e5ff | | Load 0x2,-0x1
0622 0217 | | Execute Heap_Access,All_Reference
0623 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0624 00db | | Load_Top At_Offset_3
0625 4c00 |L | Short_Literal -0x400
0626 0273 | s | Execute Discrete,Plus
0627 c404 | | Store 0x2,0x4
0628 00c9 | | Action Pop_Auxiliary_Loop
0629 00db | | Load_Top At_Offset_3
062a 678d |g | Indirect_Literal Discrete,0x5b8,{0x00000000, 0x00000400}
062b 027b | { | Execute Discrete,Greater_Equal
062c 77df |w | Jump_Nonzero 0x60c
062d 00ce | | Action Pop_Auxiliary
062e 00da | | Load_Top At_Offset_2
062f 0c01 | | Execute_Immediate Greater_Equal,0x1
0630 6821 |h! | Jump_Zero 0x652
0631 00d8 | | Load_Top At_Offset_0
0632 4801 |H | Short_Literal 0x1
0633 e404 | | Load 0x2,0x4
0634 00da | | Load_Top At_Offset_2
0635 035b | [ | Declare_Type Array,Constrained
0636 00d0 | | Action Swap_Control
0637 01cd | | Execute Vector,Slice_Reference
0638 e5ff | | Load 0x2,-0x1
0639 0219 | | Execute Heap_Access,All_Read
063a 00e3 | | Load_Encached Natural_Cache
063b 00da | | Load_Top At_Offset_2
063c 00da | | Load_Top At_Offset_2
063d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
063e e5ff | | Load 0x2,-0x1
063f 0217 | | Execute Heap_Access,All_Reference
0640 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0641 e006 | | Load 0x0,0x6
0642 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0643 180f | | Execute Package,Field_Execute,Field_Number 0xf
0644 00db | | Load_Top At_Offset_3
0645 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0646 00d1 | | Pop_Control Pop_Count_1
0647 c405 | | Store 0x2,0x5
0648 00d2 | | Pop_Control Pop_Count_2
0649 4801 |H | Short_Literal 0x1
064a 00da | | Load_Top At_Offset_2
064b 00da | | Load_Top At_Offset_2
064c 01cf | | Execute Vector,Slice_Read
064d e5fe | | Load 0x2,-0x2
064e 0217 | | Execute Heap_Access,All_Reference
064f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0650 e005 | | Load 0x0,0x5
0651 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0652 e402 | | Load 0x2,0x2
0653 7002 |p | Jump_Nonzero 0x656
0654 e5ff | | Load 0x2,-0x1
0655 8218 | | Call 0x1,0x18
0656 00db | | Load_Top At_Offset_3
0657 7002 |p | Jump_Nonzero 0x65a
0658 e5fe | | Load 0x2,-0x2
0659 8218 | | Call 0x1,0x18
065a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
065b 0000 0000 | | .BLANK 0000[0x5]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0663 | c | .CONST 0x0663 ; Address of begin
0661 0004 | | .CONST 0x0004 ; Address of exception handler
0662 0001 | | .CONST 0x0001 ; Number of locals
0663 BODY_0660:
0663 INIT_0660:
0663 4608 |F | Jump_Case 0x9
0664 7808 |x | Jump 0x66d ; case 0x0
0665 780b |x | Jump 0x671 ; case 0x1
0666 780e |x | Jump 0x675 ; case 0x2
0667 780d |x | Jump 0x675 ; case 0x3
0668 780c |x | Jump 0x675 ; case 0x4
0669 780b |x | Jump 0x675 ; case 0x5
066a 780a |x | Jump 0x675 ; case 0x6
066b 7809 |x | Jump 0x675 ; case 0x7
066c 7808 |x | Jump 0x675 ; case 0x8
066d 00da | | Load_Top At_Offset_2
066e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
066f 1c00 | | Execute_Immediate Run_Utility,0x0
0670 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0671 00da | | Load_Top At_Offset_2
0672 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0673 1c01 | | Execute_Immediate Run_Utility,0x1
0674 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0675 0869 | i | Execute_Immediate Raise,0x69
0676 0000 0000 | | .XXX[0x2]
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 067b | { | .CONST 0x067b ; Address of begin
0679 0004 | | .CONST 0x0004 ; Address of exception handler
067a 0001 | | .CONST 0x0001 ; Number of locals
067b BODY_0678:
067b INIT_0678:
067b 4608 |F | Jump_Case 0x9
067c 7808 |x | Jump 0x685 ; case 0x0
067d 781d |x | Jump 0x69b ; case 0x1
067e 7820 |x | Jump 0x69f ; case 0x2
067f 781f |x | Jump 0x69f ; case 0x3
0680 781e |x | Jump 0x69f ; case 0x4
0681 781d |x | Jump 0x69f ; case 0x5
0682 781c |x | Jump 0x69f ; case 0x6
0683 781b |x | Jump 0x69f ; case 0x7
0684 781a |x | Jump 0x69f ; case 0x8
0685 00da | | Load_Top At_Offset_2
0686 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0687 0125 | % | Execute Any,Set_Constraint
0688 00da | | Load_Top At_Offset_2
0689 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
068a 1c00 | | Execute_Immediate Run_Utility,0x0
068b 00da | | Load_Top At_Offset_2
068c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
068d 0125 | % | Execute Any,Set_Constraint
068e 00da | | Load_Top At_Offset_2
068f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0690 1c00 | | Execute_Immediate Run_Utility,0x0
0691 00da | | Load_Top At_Offset_2
0692 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0693 0125 | % | Execute Any,Set_Constraint
0694 00da | | Load_Top At_Offset_2
0695 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0696 1c00 | | Execute_Immediate Run_Utility,0x0
0697 00da | | Load_Top At_Offset_2
0698 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0699 1c00 | | Execute_Immediate Run_Utility,0x0
069a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
069b 00da | | Load_Top At_Offset_2
069c 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
069d 1c01 | | Execute_Immediate Run_Utility,0x1
069e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
069f 0869 | i | Execute_Immediate Raise,0x69
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06b4 | | .CONST 0x06b4 ; Address of begin
06a1 0004 | | .CONST 0x0004 ; Address of exception handler
06a2 0005 | | .CONST 0x0005 ; Number of locals
06a3 INIT_06a0:
06a3 e22f | / | Load 0x1,0x2f
06a4 0322 | " | Declare_Variable Record
06a5 00d8 | | Load_Top At_Offset_0
06a6 1c00 | | Execute_Immediate Run_Utility,0x0
06a7 e00c | | Load 0x0,0xc
06a8 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
06a9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06aa 02c7 | | Declare_Variable Any
06ab 00d8 | | Load_Top At_Offset_0
06ac 1c00 | | Execute_Immediate Run_Utility,0x0
06ad e00c | | Load 0x0,0xc
06ae 1b14 | | Execute Package,Field_Read,Field_Number 0x14
06af 02ff | | Declare_Variable Variant_Record
06b0 00d8 | | Load_Top At_Offset_0
06b1 1c00 | | Execute_Immediate Run_Utility,0x0
06b2 e00c | | Load 0x0,0xc
06b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06b4 BODY_06a0:
06b4 e5ff | | Load 0x2,-0x1
06b5 0217 | | Execute Heap_Access,All_Reference
06b6 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
06b7 6858 |hX | Jump_Zero 0x710
06b8 e5ff | | Load 0x2,-0x1
06b9 0217 | | Execute Heap_Access,All_Reference
06ba 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06bb e005 | | Load 0x0,0x5
06bc 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
06bd 00da | | Load_Top At_Offset_2
06be 016d | m | Execute Variant_Record,Structure_Write
06bf e00c | | Load 0x0,0xc
06c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06c1 00db | | Load_Top At_Offset_3
06c2 0120 | | Execute Any,Is_Value
06c3 6804 |h | Jump_Zero 0x6c8
06c4 e00c | | Load 0x0,0xc
06c5 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
06c6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06c7 7801 |x | Jump 0x6c9
06c8 00db | | Load_Top At_Offset_3
06c9 605e |`^ | Indirect_Literal Discrete,0x728,{0x00000000, 0x00004000}
06ca e5ff | | Load 0x2,-0x1
06cb 0217 | | Execute Heap_Access,All_Reference
06cc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06cd e005 | | Load 0x0,0x5
06ce 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
06cf e404 | | Load 0x2,0x4
06d0 e00c | | Load 0x0,0xc
06d1 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
06d2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06d3 c403 | | Store 0x2,0x3
06d4 0059 | Y | Store_Top Discrete,At_Offset_1
06d5 481e |H | Short_Literal 0x1e
06d6 00da | | Load_Top At_Offset_2
06d7 e00c | | Load 0x0,0xc
06d8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
06d9 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
06da e010 | | Load 0x0,0x10
06db 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06dc e5ff | | Load 0x2,-0x1
06dd 0217 | | Execute Heap_Access,All_Reference
06de 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06df 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
06e0 00da | | Load_Top At_Offset_2
06e1 e00c | | Load 0x0,0xc
06e2 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
06e3 181d | | Execute Package,Field_Execute,Field_Number 0x1d
06e4 0a07 | | Execute_Immediate Plus,0x7
06e5 09fd | | Execute_Immediate Binary_Scale,-0x3
06e6 00d8 | | Load_Top At_Offset_0
06e7 00e2 | | Load_Encached Integer_Cache
06e8 0260 | ` | Execute Discrete,In_Type
06e9 7001 |p | Jump_Nonzero 0x6eb
06ea 0801 | | Execute_Immediate Raise,0x1
06eb 0aef | | Execute_Immediate Plus,-0x11
06ec e5ff | | Load 0x2,-0x1
06ed 0217 | | Execute Heap_Access,All_Reference
06ee 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06ef 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
06f0 4800 |H | Short_Literal 0x0
06f1 e5ff | | Load 0x2,-0x1
06f2 0217 | | Execute Heap_Access,All_Reference
06f3 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06f4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
06f5 4800 |H | Short_Literal 0x0
06f6 e5ff | | Load 0x2,-0x1
06f7 0217 | | Execute Heap_Access,All_Reference
06f8 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06f9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
06fa 00da | | Load_Top At_Offset_2
06fb e00c | | Load 0x0,0xc
06fc 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
06fd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06fe e5ff | | Load 0x2,-0x1
06ff 0217 | | Execute Heap_Access,All_Reference
0700 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0701 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0702 4f9d |O | Short_Literal -0x63
0703 e5ff | | Load 0x2,-0x1
0704 0217 | | Execute Heap_Access,All_Reference
0705 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0706 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0707 4801 |H | Short_Literal 0x1
0708 e5ff | | Load 0x2,-0x1
0709 0217 | | Execute Heap_Access,All_Reference
070a 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
070b 4800 |H | Short_Literal 0x0
070c e5ff | | Load 0x2,-0x1
070d 0217 | | Execute Heap_Access,All_Reference
070e 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
070f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0710 00db | | Load_Top At_Offset_3
0711 e5ff | | Load 0x2,-0x1
0712 0217 | | Execute Heap_Access,All_Reference
0713 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0714 e230 | 0 | Load 0x1,0x30
0715 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0716 00d1 | | Pop_Control Pop_Count_1
0717 00db | | Load_Top At_Offset_3
0718 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0719 e5ff | | Load 0x2,-0x1
071a 0217 | | Execute Heap_Access,All_Reference
071b 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
071c 00db | | Load_Top At_Offset_3
071d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
071e e5ff | | Load 0x2,-0x1
071f 0217 | | Execute Heap_Access,All_Reference
0720 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0721 00db | | Load_Top At_Offset_3
0722 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0723 e5ff | | Load 0x2,-0x1
0724 0217 | | Execute Heap_Access,All_Reference
0725 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0726 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0727 0000 | | .XXX[0x1]
0728 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
072c 0000 0000 | | .BLANK 0000[0x4]
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 0733 | 3 | .CONST 0x0733 ; Address of begin
0731 0004 | | .CONST 0x0004 ; Address of exception handler
0732 0001 | | .CONST 0x0001 ; Number of locals
0733 BODY_0730:
0733 INIT_0730:
0733 00da | | Load_Top At_Offset_2
0734 8231 | 1 | Call 0x1,0x31
0735 00da | | Load_Top At_Offset_2
0736 0217 | | Execute Heap_Access,All_Reference
0737 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0738 0320 | | Declare_Variable Record,Duplicate
0739 00cd | | Action Spare6_Action
073a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
073b 0000 0000 | | .BLANK 0000[0x5]
0740 ; --------------------------------------------------------------------------------------
0740 ; SUBPROGRAM
0740 ; --------------------------------------------------------------------------------------
0740 0743 | C | .CONST 0x0743 ; Address of begin
0741 0004 | | .CONST 0x0004 ; Address of exception handler
0742 0001 | | .CONST 0x0001 ; Number of locals
0743 BODY_0740:
0743 INIT_0740:
0743 00da | | Load_Top At_Offset_2
0744 0217 | | Execute Heap_Access,All_Reference
0745 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0746 0a01 | | Execute_Immediate Plus,0x1
0747 00db | | Load_Top At_Offset_3
0748 0217 | | Execute Heap_Access,All_Reference
0749 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
074a 00da | | Load_Top At_Offset_2
074b 0217 | | Execute Heap_Access,All_Reference
074c 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
074d 00db | | Load_Top At_Offset_3
074e 0217 | | Execute Heap_Access,All_Reference
074f 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0750 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0751 0273 | s | Execute Discrete,Plus
0752 00db | | Load_Top At_Offset_3
0753 0217 | | Execute Heap_Access,All_Reference
0754 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0755 00db | | Load_Top At_Offset_3
0756 00db | | Load_Top At_Offset_3
0757 0217 | | Execute Heap_Access,All_Reference
0758 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0759 e22f | / | Load 0x1,0x2f
075a 0322 | " | Declare_Variable Record
075b 00d8 | | Load_Top At_Offset_0
075c 1c01 | | Execute_Immediate Run_Utility,0x1
075d 00db | | Load_Top At_Offset_3
075e 0217 | | Execute Heap_Access,All_Reference
075f 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0760 00d9 | | Load_Top At_Offset_1
0761 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0762 00db | | Load_Top At_Offset_3
0763 0217 | | Execute Heap_Access,All_Reference
0764 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0765 00d9 | | Load_Top At_Offset_1
0766 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0767 e5fe | | Load 0x2,-0x2
0768 00d9 | | Load_Top At_Offset_1
0769 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
076a 00db | | Load_Top At_Offset_3
076b 0217 | | Execute Heap_Access,All_Reference
076c 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
076d e230 | 0 | Load 0x1,0x30
076e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
076f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0770 ; --------------------------------------------------------------------------------------
0770 ; SUBPROGRAM
0770 ; --------------------------------------------------------------------------------------
0770 0773 | s | .CONST 0x0773 ; Address of begin
0771 0004 | | .CONST 0x0004 ; Address of exception handler
0772 0001 | | .CONST 0x0001 ; Number of locals
0773 BODY_0770:
0773 INIT_0770:
0773 00da | | Load_Top At_Offset_2
0774 0217 | | Execute Heap_Access,All_Reference
0775 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0776 e230 | 0 | Load 0x1,0x30
0777 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0778 4801 |H | Short_Literal 0x1
0779 4802 |H | Short_Literal 0x2
077a 0262 | b | Execute Discrete,In_Range
077b 700b |p | Jump_Nonzero 0x787
077c 7800 |x | Jump 0x77d
077d 00da | | Load_Top At_Offset_2
077e 0219 | | Execute Heap_Access,All_Read
077f 00d8 | | Load_Top At_Offset_0
0780 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0781 4801 |H | Short_Literal 0x1
0782 e230 | 0 | Load 0x1,0x30
0783 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0784 00d9 | | Load_Top At_Offset_1
0785 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0786 00d1 | | Pop_Control Pop_Count_1
0787 00da | | Load_Top At_Offset_2
0788 0217 | | Execute Heap_Access,All_Reference
0789 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
078a 0274 | t | Execute Discrete,Absolute_Value
078b 00d8 | | Load_Top At_Offset_0
078c e230 | 0 | Load 0x1,0x30
078d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
078e 0260 | ` | Execute Discrete,In_Type
078f 7001 |p | Jump_Nonzero 0x791
0790 0801 | | Execute_Immediate Raise,0x1
0791 e22f | / | Load 0x1,0x2f
0792 0322 | " | Declare_Variable Record
0793 00d8 | | Load_Top At_Offset_0
0794 1c01 | | Execute_Immediate Run_Utility,0x1
0795 e5ff | | Load 0x2,-0x1
0796 0217 | | Execute Heap_Access,All_Reference
0797 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0798 00d9 | | Load_Top At_Offset_1
0799 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
079a e5ff | | Load 0x2,-0x1
079b 0217 | | Execute Heap_Access,All_Reference
079c 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
079d 00d9 | | Load_Top At_Offset_1
079e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
079f e5ff | | Load 0x2,-0x1
07a0 0217 | | Execute Heap_Access,All_Reference
07a1 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
07a2 00d9 | | Load_Top At_Offset_1
07a3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
07a4 e5ff | | Load 0x2,-0x1
07a5 0217 | | Execute Heap_Access,All_Reference
07a6 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
07a7 e230 | 0 | Load 0x1,0x30
07a8 1820 | | Execute Package,Field_Execute,Field_Number 0x20
07a9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07aa 0000 0000 | | .BLANK 0000[0x6]
07b0 ; --------------------------------------------------------------------------------------
07b0 ; SUBPROGRAM
07b0 ; --------------------------------------------------------------------------------------
07b0 07b9 | | .CONST 0x07b9 ; Address of begin
07b1 0004 | | .CONST 0x0004 ; Address of exception handler
07b2 0003 | | .CONST 0x0003 ; Number of locals
07b3 INIT_07b0:
07b3 e5fd | | Load 0x2,-0x3
07b4 0092 0a11 | | Action Push_String_Extended,0xa11 ; ".Toc"
07b6 01cc | | Execute Vector,Catenate
07b7 029f 09f3 | | Declare_Subprogram INIT_09f0,For_Call
07b9 BODY_07b0:
07b9 4800 |H | Short_Literal 0x0
07ba e5ff | | Load 0x2,-0x1
07bb 0217 | | Execute Heap_Access,All_Reference
07bc 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
07bd 4800 |H | Short_Literal 0x0
07be e5ff | | Load 0x2,-0x1
07bf 0217 | | Execute Heap_Access,All_Reference
07c0 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
07c1 e001 | | Load 0x0,0x1
07c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07c3 e5ff | | Load 0x2,-0x1
07c4 0217 | | Execute Heap_Access,All_Reference
07c5 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
07c6 4800 |H | Short_Literal 0x0
07c7 e5ff | | Load 0x2,-0x1
07c8 0217 | | Execute Heap_Access,All_Reference
07c9 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
07ca e5fe | | Load 0x2,-0x2
07cb 4602 |F | Jump_Case 0x3
07cc 7836 |x6 | Jump 0x803 ; case 0x0
07cd 7837 |x7 | Jump 0x805 ; case 0x1
07ce 7800 |x | Jump 0x7cf ; case 0x2
07cf e5ff | | Load 0x2,-0x1
07d0 0219 | | Execute Heap_Access,All_Read
07d1 00d8 | | Load_Top At_Offset_0
07d2 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
07d3 00ea | | Load_Encached Null_String_Cache
07d4 e402 | | Load 0x2,0x2
07d5 4802 |H | Short_Literal 0x2
07d6 e230 | 0 | Load 0x1,0x30
07d7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07d8 00d9 | | Load_Top At_Offset_1
07d9 380a |8 | Execute Record,Field_Write,Field_Number 0xa
07da 00d1 | | Pop_Control Pop_Count_1
07db e5ff | | Load 0x2,-0x1
07dc 0217 | | Execute Heap_Access,All_Reference
07dd 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
07de e230 | 0 | Load 0x1,0x30
07df 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
07e0 e5ff | | Load 0x2,-0x1
07e1 0217 | | Execute Heap_Access,All_Reference
07e2 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
07e3 e5ff | | Load 0x2,-0x1
07e4 0217 | | Execute Heap_Access,All_Reference
07e5 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
07e6 0c01 | | Execute_Immediate Greater_Equal,0x1
07e7 681a |h | Jump_Zero 0x802
07e8 e5ff | | Load 0x2,-0x1
07e9 0217 | | Execute Heap_Access,All_Reference
07ea 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
07eb 00d8 | | Load_Top At_Offset_0
07ec e230 | 0 | Load 0x1,0x30
07ed 1b13 | | Execute Package,Field_Read,Field_Number 0x13
07ee 0260 | ` | Execute Discrete,In_Type
07ef 7001 |p | Jump_Nonzero 0x7f1
07f0 0801 | | Execute_Immediate Raise,0x1
07f1 e5ff | | Load 0x2,-0x1
07f2 0217 | | Execute Heap_Access,All_Reference
07f3 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
07f4 e230 | 0 | Load 0x1,0x30
07f5 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
07f6 e5ff | | Load 0x2,-0x1
07f7 8231 | 1 | Call 0x1,0x31
07f8 e5ff | | Load 0x2,-0x1
07f9 0217 | | Execute Heap_Access,All_Reference
07fa 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
07fb e5ff | | Load 0x2,-0x1
07fc 0217 | | Execute Heap_Access,All_Reference
07fd 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
07fe 0273 | s | Execute Discrete,Plus
07ff e5ff | | Load 0x2,-0x1
0800 0217 | | Execute Heap_Access,All_Reference
0801 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0802 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0803 8403 | | Call 0x2,0x3
0804 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0805 e5ff | | Load 0x2,-0x1
0806 0219 | | Execute Heap_Access,All_Read
0807 00d8 | | Load_Top At_Offset_0
0808 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0809 00ea | | Load_Encached Null_String_Cache
080a e402 | | Load 0x2,0x2
080b 4802 |H | Short_Literal 0x2
080c e230 | 0 | Load 0x1,0x30
080d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
080e 00d9 | | Load_Top At_Offset_1
080f 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0810 00d1 | | Pop_Control Pop_Count_1
0811 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0812 0000 0000 | | .BLANK 0000[0x6]
0818 ; --------------------------------------------------------------------------------------
0818 ; SUBPROGRAM
0818 ; --------------------------------------------------------------------------------------
0818 081b | | .CONST 0x081b ; Address of begin
0819 0004 | | .CONST 0x0004 ; Address of exception handler
081a 0001 | | .CONST 0x0001 ; Number of locals
081b BODY_0818:
081b INIT_0818:
081b 4800 |H | Short_Literal 0x0
081c 00db | | Load_Top At_Offset_3
081d 0217 | | Execute Heap_Access,All_Reference
081e 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
081f 4800 |H | Short_Literal 0x0
0820 00db | | Load_Top At_Offset_3
0821 0217 | | Execute Heap_Access,All_Reference
0822 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0823 e001 | | Load 0x0,0x1
0824 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0825 00db | | Load_Top At_Offset_3
0826 0217 | | Execute Heap_Access,All_Reference
0827 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0828 00db | | Load_Top At_Offset_3
0829 4602 |F | Jump_Case 0x3
082a 7820 |x | Jump 0x84b ; case 0x0
082b 782a |x* | Jump 0x856 ; case 0x1
082c 7800 |x | Jump 0x82d ; case 0x2
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 e230 | 0 | Load 0x1,0x30
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 00e2 | | Load_Encached Integer_Cache
0838 00db | | Load_Top At_Offset_3
0839 0217 | | Execute Heap_Access,All_Reference
083a 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
083b e230 | 0 | Load 0x1,0x30
083c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
083d 0268 | h | Execute Discrete,Successor
083e e230 | 0 | Load 0x1,0x30
083f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0840 00d9 | | Load_Top At_Offset_1
0841 00d0 | | Action Swap_Control
0842 0260 | ` | Execute Discrete,In_Type
0843 7001 |p | Jump_Nonzero 0x845
0844 0801 | | Execute_Immediate Raise,0x1
0845 00db | | Load_Top At_Offset_3
0846 0217 | | Execute Heap_Access,All_Reference
0847 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0848 e230 | 0 | Load 0x1,0x30
0849 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
084a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
084b 00da | | Load_Top At_Offset_2
084c 0219 | | Execute Heap_Access,All_Read
084d 00d8 | | Load_Top At_Offset_0
084e 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
084f 4801 |H | Short_Literal 0x1
0850 e230 | 0 | Load 0x1,0x30
0851 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0852 00d9 | | Load_Top At_Offset_1
0853 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0854 00d1 | | Pop_Control Pop_Count_1
0855 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0856 00da | | Load_Top At_Offset_2
0857 0219 | | Execute Heap_Access,All_Read
0858 00d8 | | Load_Top At_Offset_0
0859 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
085a 4802 |H | Short_Literal 0x2
085b e230 | 0 | Load 0x1,0x30
085c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
085d 00d9 | | Load_Top At_Offset_1
085e 380a |8 | Execute Record,Field_Write,Field_Number 0xa
085f 00d1 | | Pop_Control Pop_Count_1
0860 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0861 0000 0000 | | .BLANK 0000[0x7]
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 086b | k | .CONST 0x086b ; Address of begin
0869 0004 | | .CONST 0x0004 ; Address of exception handler
086a 0001 | | .CONST 0x0001 ; Number of locals
086b BODY_0868:
086b INIT_0868:
086b 00da | | Load_Top At_Offset_2
086c 0217 | | Execute Heap_Access,All_Reference
086d 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
086e 7009 |p | Jump_Nonzero 0x878
086f 00da | | Load_Top At_Offset_2
0870 0219 | | Execute Heap_Access,All_Read
0871 00d8 | | Load_Top At_Offset_0
0872 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0873 e230 | 0 | Load 0x1,0x30
0874 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0875 00d9 | | Load_Top At_Offset_1
0876 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0877 00d1 | | Pop_Control Pop_Count_1
0878 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0879 0000 0000 | | .BLANK 0000[0x7]
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0883 | | .CONST 0x0883 ; Address of begin
0881 0004 | | .CONST 0x0004 ; Address of exception handler
0882 0001 | | .CONST 0x0001 ; Number of locals
0883 BODY_0880:
0883 INIT_0880:
0883 00da | | Load_Top At_Offset_2
0884 0217 | | Execute Heap_Access,All_Reference
0885 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0886 6805 |h | Jump_Zero 0x88c
0887 00da | | Load_Top At_Offset_2
0888 0217 | | Execute Heap_Access,All_Reference
0889 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
088a 0c01 | | Execute_Immediate Greater_Equal,0x1
088b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
088c 00da | | Load_Top At_Offset_2
088d 0217 | | Execute Heap_Access,All_Reference
088e 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
088f e230 | 0 | Load 0x1,0x30
0890 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0891 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0892 0000 0000 | | .BLANK 0000[0x6]
0898 ; --------------------------------------------------------------------------------------
0898 ; SUBPROGRAM
0898 ; --------------------------------------------------------------------------------------
0898 08b3 | | .CONST 0x08b3 ; Address of begin
0899 0004 | | .CONST 0x0004 ; Address of exception handler
089a 0006 | | .CONST 0x0006 ; Number of locals
089b INIT_0898:
089b e014 | | Load 0x0,0x14
089c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
089d 02c7 | | Declare_Variable Any
089e 00d8 | | Load_Top At_Offset_0
089f 1c00 | | Execute_Immediate Run_Utility,0x0
08a0 e00c | | Load 0x0,0xc
08a1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
08a2 1b17 | | Execute Package,Field_Read,Field_Number 0x17
08a3 02c7 | | Declare_Variable Any
08a4 00d8 | | Load_Top At_Offset_0
08a5 1c00 | | Execute_Immediate Run_Utility,0x0
08a6 e00c | | Load 0x0,0xc
08a7 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
08a8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
08a9 02c7 | | Declare_Variable Any
08aa 00d8 | | Load_Top At_Offset_0
08ab 1c00 | | Execute_Immediate Run_Utility,0x0
08ac e00c | | Load 0x0,0xc
08ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08ae e00c | | Load 0x0,0xc
08af 1b14 | | Execute Package,Field_Read,Field_Number 0x14
08b0 02ff | | Declare_Variable Variant_Record
08b1 00d8 | | Load_Top At_Offset_0
08b2 1c00 | | Execute_Immediate Run_Utility,0x0
08b3 BODY_0898:
08b3 4801 |H | Short_Literal 0x1
08b4 a5fc | | Store_Unchecked 0x2,-0x4
08b5 e006 | | Load 0x0,0x6
08b6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
08b7 e5fd | | Load 0x2,-0x3
08b8 4800 |H | Short_Literal 0x0
08b9 60be |` | Indirect_Literal Discrete,0x978,{0x00000000, 0x00004000}
08ba e00b | | Load 0x0,0xb
08bb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08bc e009 | | Load 0x0,0x9
08bd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
08be e00c | | Load 0x0,0xc
08bf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
08c0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
08c1 4800 |H | Short_Literal 0x0
08c2 e5ff | | Load 0x2,-0x1
08c3 e5fe | | Load 0x2,-0x2
08c4 e006 | | Load 0x0,0x6
08c5 1820 | | Execute Package,Field_Execute,Field_Number 0x20
08c6 c5fd | | Store 0x2,-0x3
08c7 005a | Z | Store_Top Discrete,At_Offset_2
08c8 00d9 | | Load_Top At_Offset_1
08c9 460e |F | Jump_Case 0xf
08ca 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x0
08cb 780d |x | Jump 0x8d9 ; case 0x1
08cc 780c |x | Jump 0x8d9 ; case 0x2
08cd 780b |x | Jump 0x8d9 ; case 0x3
08ce 780a |x | Jump 0x8d9 ; case 0x4
08cf 7809 |x | Jump 0x8d9 ; case 0x5
08d0 7808 |x | Jump 0x8d9 ; case 0x6
08d1 7807 |x | Jump 0x8d9 ; case 0x7
08d2 7806 |x | Jump 0x8d9 ; case 0x8
08d3 781a |x | Jump 0x8ee ; case 0x9
08d4 7804 |x | Jump 0x8d9 ; case 0xa
08d5 7803 |x | Jump 0x8d9 ; case 0xb
08d6 7802 |x | Jump 0x8d9 ; case 0xc
08d7 7801 |x | Jump 0x8d9 ; case 0xd
08d8 7800 |x | Jump 0x8d9 ; case 0xe
08d9 e00d | | Load 0x0,0xd
08da 180e | | Execute Package,Field_Execute,Field_Number 0xe
08db 4802 |H | Short_Literal 0x2
08dc 4829 |H) | Short_Literal 0x29
08dd 0092 0a12 | | Action Push_String_Extended,0xa12 ; "Cannot resolve file name "
08df e5ff | | Load 0x2,-0x1
08e0 01cc | | Execute Vector,Catenate
08e1 0092 0a0f | | Action Push_String_Extended,0xa0f ; " ("
08e3 01cc | | Execute Vector,Catenate
08e4 e405 | | Load 0x2,0x5
08e5 e00c | | Load 0x0,0xc
08e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08e7 011c | | Execute Any,Convert_Unchecked
08e8 1c01 | | Execute_Immediate Run_Utility,0x1
08e9 01cc | | Execute Vector,Catenate
08ea 01cb | | Execute Vector,Append
08eb e00f | | Load 0x0,0xf
08ec 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08ed 4503 |E | Exit_Suprogram New_Top_Offset 0x3
08ee e5fe | | Load 0x2,-0x2
08ef 700c |p | Jump_Nonzero 0x8fc
08f0 e00d | | Load 0x0,0xd
08f1 180e | | Execute Package,Field_Execute,Field_Number 0xe
08f2 4805 |H | Short_Literal 0x5
08f3 0092 0a13 | | Action Push_String_Extended,0xa13 ; "Cannot find a file named "
08f5 e5ff | | Load 0x2,-0x1
08f6 01cc | | Execute Vector,Catenate
08f7 e00f | | Load 0x0,0xf
08f8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08f9 4800 |H | Short_Literal 0x0
08fa a5fc | | Store_Unchecked 0x2,-0x4
08fb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
08fc e00c | | Load 0x0,0xc
08fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08fe 00db | | Load_Top At_Offset_3
08ff 0120 | | Execute Any,Is_Value
0900 6802 |h | Jump_Zero 0x903
0901 00f1 | | Load_Encached Diana_Temp_Seq
0902 7801 |x | Jump 0x904
0903 00db | | Load_Top At_Offset_3
0904 e403 | | Load 0x2,0x3
0905 0120 | | Execute Any,Is_Value
0906 6804 |h | Jump_Zero 0x90b
0907 e00c | | Load 0x0,0xc
0908 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0909 1b17 | | Execute Package,Field_Read,Field_Number 0x17
090a 7801 |x | Jump 0x90c
090b e403 | | Load 0x2,0x3
090c e402 | | Load 0x2,0x2
090d 0120 | | Execute Any,Is_Value
090e 6803 |h | Jump_Zero 0x912
090f e014 | | Load 0x0,0x14
0910 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0911 7801 |x | Jump 0x913
0912 e402 | | Load 0x2,0x2
0913 e406 | | Load 0x2,0x6
0914 6063 |`c | Indirect_Literal Discrete,0x978,{0x00000000, 0x00004000}
0915 e00b | | Load 0x0,0xb
0916 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0917 4800 |H | Short_Literal 0x0
0918 e00c | | Load 0x0,0xc
0919 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
091a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
091b e00c | | Load 0x0,0xc
091c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
091d 6056 |`V | Indirect_Literal Discrete,0x974,{0x00000000, 0x7fffffff}
091e 4ffc |O | Short_Literal -0x4
091f 4ffd |O | Short_Literal -0x3
0920 e009 | | Load 0x0,0x9
0921 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0922 e00c | | Load 0x0,0xc
0923 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0924 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0925 e00c | | Load 0x0,0xc
0926 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0927 e006 | | Load 0x0,0x6
0928 180f | | Execute Package,Field_Execute,Field_Number 0xf
0929 e5ff | | Load 0x2,-0x1
092a e00c | | Load 0x0,0xc
092b 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
092c 180f | | Execute Package,Field_Execute,Field_Number 0xf
092d 00d1 | | Pop_Control Pop_Count_1
092e c402 | | Store 0x2,0x2
092f c403 | | Store 0x2,0x3
0930 c404 | | Store 0x2,0x4
0931 005a | Z | Store_Top Discrete,At_Offset_2
0932 00d9 | | Load_Top At_Offset_1
0933 6818 |h | Jump_Zero 0x94c
0934 e00d | | Load 0x0,0xd
0935 180e | | Execute Package,Field_Execute,Field_Number 0xe
0936 4802 |H | Short_Literal 0x2
0937 0092 0a14 | | Action Push_String_Extended,0xa14 ; "Cannot create a file named "
0939 e5ff | | Load 0x2,-0x1
093a 01cc | | Execute Vector,Catenate
093b 0092 0a0f | | Action Push_String_Extended,0xa0f ; " ("
093d 01cc | | Execute Vector,Catenate
093e e405 | | Load 0x2,0x5
093f e00c | | Load 0x0,0xc
0940 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0941 011c | | Execute Any,Convert_Unchecked
0942 1c01 | | Execute_Immediate Run_Utility,0x1
0943 01cc | | Execute Vector,Catenate
0944 0092 0a10 | | Action Push_String_Extended,0xa10 ; ")"
0946 01cc | | Execute Vector,Catenate
0947 e00f | | Load 0x0,0xf
0948 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0949 4800 |H | Short_Literal 0x0
094a a5fc | | Store_Unchecked 0x2,-0x4
094b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
094c e006 | | Load 0x0,0x6
094d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
094e 00d9 | | Load_Top At_Offset_1
094f e5fd | | Load 0x2,-0x3
0950 4801 |H | Short_Literal 0x1
0951 6026 |`& | Indirect_Literal Discrete,0x978,{0x00000000, 0x00004000}
0952 e00b | | Load 0x0,0xb
0953 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0954 e5fe | | Load 0x2,-0x2
0955 e006 | | Load 0x0,0x6
0956 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0957 c5fd | | Store 0x2,-0x3
0958 00d1 | | Pop_Control Pop_Count_1
0959 005a | Z | Store_Top Discrete,At_Offset_2
095a 00d9 | | Load_Top At_Offset_1
095b 6814 |h | Jump_Zero 0x970
095c e00d | | Load 0x0,0xd
095d 180e | | Execute Package,Field_Execute,Field_Number 0xe
095e 4802 |H | Short_Literal 0x2
095f 4829 |H) | Short_Literal 0x29
0960 0092 0a15 | | Action Push_String_Extended,0xa15 ; "Cannot open file "
0962 e5ff | | Load 0x2,-0x1
0963 01cc | | Execute Vector,Catenate
0964 0092 0a0f | | Action Push_String_Extended,0xa0f ; " ("
0966 01cc | | Execute Vector,Catenate
0967 e405 | | Load 0x2,0x5
0968 e00c | | Load 0x0,0xc
0969 1b0d | | Execute Package,Field_Read,Field_Number 0xd
096a 011c | | Execute Any,Convert_Unchecked
096b 1c01 | | Execute_Immediate Run_Utility,0x1
096c 01cc | | Execute Vector,Catenate
096d 01cb | | Execute Vector,Append
096e e00f | | Load 0x0,0xf
096f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0970 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0971 0000 0000 | | .XXX[0x3]
0973 0000 | |
0974 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0978 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
097c 0000 0000 | | .BLANK 0000[0x4]
0980 ; --------------------------------------------------------------------------------------
0980 ; SUBPROGRAM
0980 ; --------------------------------------------------------------------------------------
0980 0983 | | .CONST 0x0983 ; Address of begin
0981 0004 | | .CONST 0x0004 ; Address of exception handler
0982 0001 | | .CONST 0x0001 ; Number of locals
0983 BODY_0980:
0983 INIT_0980:
0983 e006 | | Load 0x0,0x6
0984 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0985 e006 | | Load 0x0,0x6
0986 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0987 00db | | Load_Top At_Offset_3
0988 0217 | | Execute Heap_Access,All_Reference
0989 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
098a 0903 | | Execute_Immediate Binary_Scale,0x3
098b 0273 | s | Execute Discrete,Plus
098c e006 | | Load 0x0,0x6
098d 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
098e 00db | | Load_Top At_Offset_3
098f 0217 | | Execute Heap_Access,All_Reference
0990 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0991 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0992 0000 0000 | | .BLANK 0000[0x6]
0998 ; --------------------------------------------------------------------------------------
0998 ; SUBPROGRAM
0998 ; --------------------------------------------------------------------------------------
0998 099c | | .CONST 0x099c ; Address of begin
0999 0004 | | .CONST 0x0004 ; Address of exception handler
099a 0002 | | .CONST 0x0002 ; Number of locals
099b INIT_0998:
099b 00e1 | | Load_Encached Boolean_Cache
099c BODY_0998:
099c 00db | | Load_Top At_Offset_3
099d 0217 | | Execute Heap_Access,All_Reference
099e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
099f e006 | | Load 0x0,0x6
09a0 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
09a1 702a |p* | Jump_Nonzero 0x9cc
09a2 00db | | Load_Top At_Offset_3
09a3 0217 | | Execute Heap_Access,All_Reference
09a4 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
09a5 6811 |h | Jump_Zero 0x9b7
09a6 00db | | Load_Top At_Offset_3
09a7 0219 | | Execute Heap_Access,All_Read
09a8 00e1 | | Load_Encached Boolean_Cache
09a9 00d9 | | Load_Top At_Offset_1
09aa 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
09ab 4800 |H | Short_Literal 0x0
09ac e5ff | | Load 0x2,-0x1
09ad 0217 | | Execute Heap_Access,All_Reference
09ae 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
09af e005 | | Load 0x0,0x5
09b0 181f | | Execute Package,Field_Execute,Field_Number 0x1f
09b1 823a | : | Call 0x1,0x3a
09b2 00da | | Load_Top At_Offset_2
09b3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
09b4 005a | Z | Store_Top Discrete,At_Offset_2
09b5 00d1 | | Pop_Control Pop_Count_1
09b6 7813 |x | Jump 0x9ca
09b7 00db | | Load_Top At_Offset_3
09b8 0219 | | Execute Heap_Access,All_Read
09b9 00e1 | | Load_Encached Boolean_Cache
09ba 00d9 | | Load_Top At_Offset_1
09bb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
09bc 4800 |H | Short_Literal 0x0
09bd e5ff | | Load 0x2,-0x1
09be 0217 | | Execute Heap_Access,All_Reference
09bf 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
09c0 e230 | 0 | Load 0x1,0x30
09c1 181b | | Execute Package,Field_Execute,Field_Number 0x1b
09c2 e00c | | Load 0x0,0xc
09c3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
09c4 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
09c5 823a | : | Call 0x1,0x3a
09c6 00da | | Load_Top At_Offset_2
09c7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
09c8 005a | Z | Store_Top Discrete,At_Offset_2
09c9 00d1 | | Pop_Control Pop_Count_1
09ca 00db | | Load_Top At_Offset_3
09cb 823b | ; | Call 0x1,0x3b
09cc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
09cd 0000 0000 | | .XXX[0x3]
09cf 0000 | |
09d0 ; --------------------------------------------------------------------------------------
09d0 ; SUBPROGRAM
09d0 ; --------------------------------------------------------------------------------------
09d0 09d8 | | .CONST 0x09d8 ; Address of begin
09d1 0004 | | .CONST 0x0004 ; Address of exception handler
09d2 0002 | | .CONST 0x0002 ; Number of locals
09d3 INIT_09d0:
09d3 4801 |H | Short_Literal 0x1
09d4 e404 | | Load 0x2,0x4
09d5 00e9 | | Load_Encached String_Cache
09d6 035b | [ | Declare_Type Array,Constrained
09d7 0337 | 7 | Declare_Variable Array
09d8 BODY_09d0:
09d8 00e3 | | Load_Encached Natural_Cache
09d9 00d9 | | Load_Top At_Offset_1
09da e402 | | Load 0x2,0x2
09db e5ff | | Load 0x2,-0x1
09dc 0217 | | Execute Heap_Access,All_Reference
09dd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
09de e006 | | Load 0x0,0x6
09df 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
09e0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
09e1 c402 | | Store 0x2,0x2
09e2 00d1 | | Pop_Control Pop_Count_1
09e3 c404 | | Store 0x2,0x4
09e4 00d8 | | Load_Top At_Offset_0
09e5 00e9 | | Load_Encached String_Cache
09e6 01c6 | | Execute Vector,Convert_To_Formal
09e7 00cb | | Action Pop_Block_With_Result
09e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09e9 0000 0000 | | .BLANK 0000[0x7]
09f0 ; --------------------------------------------------------------------------------------
09f0 ; SUBPROGRAM
09f0 ; --------------------------------------------------------------------------------------
09f0 09f3 | | .CONST 0x09f3 ; Address of begin
09f1 09ff | | .CONST 0x09ff ; Address of exception handler
09f2 0001 | | .CONST 0x0001 ; Number of locals
09f3 BODY_09f0:
09f3 INIT_09f0:
09f3 e5ff | | Load 0x2,-0x1
09f4 0219 | | Execute Heap_Access,All_Read
09f5 00d8 | | Load_Top At_Offset_0
09f6 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
09f7 00ea | | Load_Encached Null_String_Cache
09f8 e402 | | Load 0x2,0x2
09f9 4800 |H | Short_Literal 0x0
09fa e230 | 0 | Load 0x1,0x30
09fb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
09fc 00d9 | | Load_Top At_Offset_1
09fd 380a |8 | Execute Record,Field_Write,Field_Number 0xa
09fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09ff TRAP_09f0:
09ff 00d8 | | Load_Top At_Offset_0
0a00 0107 | | Execute Exception,Get_Name
0a01 4920 |I | Short_Literal 0x120
0a02 492f |I/ | Short_Literal 0x12f
0a03 0262 | b | Execute Discrete,In_Range
0a04 6805 |h | Jump_Zero 0xa0a
0a05 4801 |H | Short_Literal 0x1
0a06 e5ff | | Load 0x2,-0x1
0a07 0217 | | Execute Heap_Access,All_Reference
0a08 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0a09 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0a0a 0100 | | Execute Exception,Raise
0a0b ; --------------------------------------------------------------------------------------
0a0b ; STRING TABLE
0a0b ; --------------------------------------------------------------------------------------
0a0b 0018 | | .STRTAB 0x0018->0x0a17 ; "READ"
0a0c 001a | | .STRTAB 0x001a->0x0a19 ; "WRITE"
0a0d 001d | | .STRTAB 0x001d->0x0a1b ; "APPEND"
0a0e 0021 | ! | .STRTAB 0x0021->0x0a1e ; "Cannot open "
0a0f 002b | + | .STRTAB 0x002b->0x0a24 ; " ("
0a10 002b | + | .STRTAB 0x002b->0x0a25 ; ")"
0a11 002a | * | .STRTAB 0x002a->0x0a26 ; ".Toc"
0a12 002c | , | .STRTAB 0x002c->0x0a28 ; "Cannot resolve file name "
0a13 0043 | C | .STRTAB 0x0043->0x0a34 ; "Cannot find a file named "
0a14 005a | Z | .STRTAB 0x005a->0x0a41 ; "Cannot create a file named "
0a15 0073 | s | .STRTAB 0x0073->0x0a4e ; "Cannot open file "
0a16 0082 | | .STREND 0x0082->0x0a57
0a17 5245 4144 |READ| .STRTAB_STRINGS
0a57 0000 | | .XXX[0x1]
0a58 ; --------------------------------------------------------------------------------------
0a58 ; Debug Table
0a58 ; --------------------------------------------------------------------------------------
0a58 0004 0010 | | .DEBUG4 0x0004,0x0010,0x8b59,0x0000,0x0001,0x0000
0a5e 0000 0000 | | .BLANK 0000[0x1a2]