|
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 - metrics - download
Length: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0bf8df
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0a18 | | .CONST 0x0a18 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00cd | | .CONST 0x00cd ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 003b | ; | .CONST 0x003b ; Number of locals
000b INIT_0008:
000b 029a 00d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d0
000d 029a 00db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d8
000f 4800 |H | Short_Literal 0x0
0010 4802 |H | Short_Literal 0x2
0011 029f 00e3 | | Declare_Subprogram For_Call,INIT_00e0
0013 03fe | | Declare_Type Discrete,Defined,Visible
0014 029a 010b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0108
0016 029a 0183 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0180
0018 029a 01bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01b8
001a 029a 01c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01c0
001c 029a 01cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01c8
001e 029a 021b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0218
0020 029a 0253 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0250
0022 029a 028b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0288
0024 029a 02b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02b0
0026 029a 02d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02d0
0028 029a 02f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02f0
002a 029a 030b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0308
002c 029a 031b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0318
002e 029a 032b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0328
0030 029a 0333 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0330
0032 029a 0343 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0340
0034 029a 034b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0348
0036 029a 0353 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0350
0038 029a 0373 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0370
003a 029a 037b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0378
003c 029a 039b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0398
003e 029a 03f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03f0
0040 029a 044b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0448
0042 029a 0493 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0490
0044 029a 0503 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0500
0046 029a 0523 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0520
0048 029a 0543 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0540
004a 029a 05ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_05a8
004c 03a9 | | Declare_Type Heap_Access,Incomplete,Visible
004d 00bf | | Action Accept_Activation
004e 00e2 | | Load_Encached Integer_Cache
004f 00e2 | | Load_Encached Integer_Cache
0050 e002 | | Load 0x0,0x2
0051 029f 064b | K| Declare_Subprogram For_Call,INIT_0648
0053 4803 |H | Short_Literal 0x3
0054 032d | - | Declare_Type Record,Defined
0055 e003 | | Load 0x0,0x3
0056 e004 | | Load 0x0,0x4
0057 00da | | Load_Top At_Offset_2
0058 e005 | | Load 0x0,0x5
0059 0387 | | Declare_Variable Package
005a 00d8 | | Load_Top At_Offset_0
005b 020f | | Execute Module,Activate
005c e20f | | Load 0x1,0xf
005d e006 | | Load 0x0,0x6
005e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005f e007 | | Load 0x0,0x7
0060 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0061 e007 | | Load 0x0,0x7
0062 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0063 00e1 | | Load_Encached Boolean_Cache
0064 00e2 | | Load_Encached Integer_Cache
0065 e002 | | Load 0x0,0x2
0066 00e2 | | Load_Encached Integer_Cache
0067 00e2 | | Load_Encached Integer_Cache
0068 00e1 | | Load_Encached Boolean_Cache
0069 e22e | . | Load 0x1,0x2e
006a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
006b 029f 065b | [| Declare_Subprogram For_Call,INIT_0658
006d 480b |H | Short_Literal 0xb
006e 032d | - | Declare_Type Record,Defined
006f 00d8 | | Load_Top At_Offset_0
0070 02a0 | | Declare_Subprogram Null_Subprogram
0071 e22c | , | Load 0x1,0x2c
0072 03a3 | | Complete_Type Heap_Access,By_Defining
0073 029d 067b | {| Declare_Subprogram For_Outer_Call,INIT_0678
0075 029d 070b | | Declare_Subprogram For_Outer_Call,INIT_0708
0077 029d 071b | | Declare_Subprogram For_Outer_Call,INIT_0718
0079 029d 074b | K| Declare_Subprogram For_Outer_Call,INIT_0748
007b 029d 078b | | Declare_Subprogram For_Outer_Call,INIT_0788
007d 029d 07f3 | | Declare_Subprogram For_Outer_Call,INIT_07f0
007f 029d 083b | ;| Declare_Subprogram For_Outer_Call,INIT_0838
0081 029d 0853 | S| Declare_Subprogram For_Outer_Call,INIT_0850
0083 e008 | | Load 0x0,0x8
0084 e009 | | Load 0x0,0x9
0085 e00a | | Load 0x0,0xa
0086 e007 | | Load 0x0,0x7
0087 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
0088 0387 | | Declare_Variable Package
0089 00d8 | | Load_Top At_Offset_0
008a 020f | | Execute Module,Activate
008b 029d 086b | k| Declare_Subprogram For_Outer_Call,INIT_0868
008d 029d 0943 | C| Declare_Subprogram For_Outer_Call,INIT_0940
008f 029d 095b | [| Declare_Subprogram For_Outer_Call,INIT_0958
0091 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0092 00c7 | | Action Elaborate_Subprogram
0093 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0094 00c7 | | Action Elaborate_Subprogram
0095 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0096 00c7 | | Action Elaborate_Subprogram
0097 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0098 00c7 | | Action Elaborate_Subprogram
0099 1d11 | | Execute_Immediate Reference_Lex_1,0x11
009a 00c7 | | Action Elaborate_Subprogram
009b 1d12 | | Execute_Immediate Reference_Lex_1,0x12
009c 00c7 | | Action Elaborate_Subprogram
009d 1d13 | | Execute_Immediate Reference_Lex_1,0x13
009e 00c7 | | Action Elaborate_Subprogram
009f 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00a0 00c7 | | Action Elaborate_Subprogram
00a1 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00a2 00c7 | | Action Elaborate_Subprogram
00a3 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00a8 00c7 | | Action Elaborate_Subprogram
00a9 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00aa 00c7 | | Action Elaborate_Subprogram
00ab 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00ac 00c7 | | Action Elaborate_Subprogram
00ad 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00ae 00c7 | | Action Elaborate_Subprogram
00af 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00b0 00c7 | | Action Elaborate_Subprogram
00b1 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00b2 00c7 | | Action Elaborate_Subprogram
00b3 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00b4 00c7 | | Action Elaborate_Subprogram
00b5 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00b6 00c7 | | Action Elaborate_Subprogram
00b7 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00b8 00c7 | | Action Elaborate_Subprogram
00b9 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00ba 00c7 | | Action Elaborate_Subprogram
00bb 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00bc 00c7 | | Action Elaborate_Subprogram
00bd 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00be 00c7 | | Action Elaborate_Subprogram
00bf 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00c0 00c7 | | Action Elaborate_Subprogram
00c1 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00c2 00c7 | | Action Elaborate_Subprogram
00c3 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00c4 00c7 | | Action Elaborate_Subprogram
00c5 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00c6 00c7 | | Action Elaborate_Subprogram
00c7 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00c8 00c7 | | Action Elaborate_Subprogram
00c9 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00ca 00c7 | | Action Elaborate_Subprogram
00cb 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00cc 00c7 | | Action Elaborate_Subprogram
00cd BODY_0008:
00cd 00bc | | Action Signal_Activated
00ce 00bb | | Action Signal_Completion
00cf 0000 | | .XXX[0x1]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 e22c | , | Load 0x1,0x2c
00d4 00ca | | Action Exit_Nullary_Function
00d5 0000 0000 | | .XXX[0x3]
00d7 0000 | |
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 00da | | Load_Top At_Offset_2
00dc 021d | | Execute Heap_Access,Is_Null
00dd 4401 |D | Exit_Subprogram With_Result,0x1
00de 0000 0000 | | .XXX[0x2]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 4607 |F | Jump_Case 0x7
00e4 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
00e5 7807 |x | Jump 0xed ; case 0x1
00e6 780a |x | Jump 0xf1 ; case 0x2
00e7 780e |x | Jump 0xf6 ; case 0x3
00e8 7811 |x | Jump 0xfa ; case 0x4
00e9 7812 |x | Jump 0xfc ; case 0x5
00ea 7813 |x | Jump 0xfe ; case 0x6
00eb 7816 |x | Jump 0x102 ; case 0x7
00ec 4302 |C | .XXX[0x1]
00ed 00da | | Load_Top At_Offset_2
00ee 0091 09cb | | Action Push_String_Extended_Indexed,0x9cb ; "READ"
00f0 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00f1 00db | | Load_Top At_Offset_3
00f2 00db | | Load_Top At_Offset_3
00f3 00e0 | | Load_Encached Standard_Cache
00f4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00f5 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00f6 00da | | Load_Top At_Offset_2
00f7 00e0 | | Load_Encached Standard_Cache
00f8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f9 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00fa 00db | | Load_Top At_Offset_3
00fb 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00fc 00db | | Load_Top At_Offset_3
00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00fe e20f | | Load 0x1,0xf
00ff 00dc | | Load_Top At_Offset_4
0100 0267 | g | Execute Discrete,Predecessor
0101 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0102 e20f | | Load 0x1,0xf
0103 00dc | | Load_Top At_Offset_4
0104 0268 | h | Execute Discrete,Successor
0105 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0106 0000 0000 | | .XXX[0x2]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0111 | | .CONST 0x0111 ; Address of begin
0109 0164 | d | .CONST 0x0164 ; Address of exception handler
010a 0002 | | .CONST 0x0002 ; Number of locals
010b INIT_0108:
010b e22c | , | Load 0x1,0x2c
010c e00b | | Load 0x0,0xb
010d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
010e e00c | | Load 0x0,0xc
010f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0110 039c | | Declare_Variable Heap_Access,By_Allocation
0111 BODY_0108:
0111 e5fe | | Load 0x2,-0x2
0112 00d9 | | Load_Top At_Offset_1
0113 0217 | | Execute Heap_Access,All_Reference
0114 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0115 4800 |H | Short_Literal 0x0
0116 00d9 | | Load_Top At_Offset_1
0117 0217 | | Execute Heap_Access,All_Reference
0118 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0119 e5fe | | Load 0x2,-0x2
011a 4602 |F | Jump_Case 0x2
011b 7816 |x | Jump 0x132 ; case 0x0
011c 782e |x. | Jump 0x14b ; case 0x1
011d 7800 |x | Jump 0x11e ; case 0x2
011e 00d8 | | Load_Top At_Offset_0
011f 0219 | | Execute Heap_Access,All_Read
0120 00d8 | | Load_Top At_Offset_0
0121 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0122 e00d | | Load 0x0,0xd
0123 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0124 e00e | | Load 0x0,0xe
0125 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0126 00ea | | Load_Encached Null_String_Cache
0127 e5ff | | Load 0x2,-0x1
0128 e006 | | Load 0x0,0x6
0129 1816 | | Execute Package,Field_Execute,Field_Number 0x16
012a 00d9 | | Load_Top At_Offset_1
012b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
012c 00d1 | | Pop_Control Pop_Count_1
012d 00db | | Load_Top At_Offset_3
012e e5fe | | Load 0x2,-0x2
012f 00da | | Load_Top At_Offset_2
0130 8234 | 4 | Call 0x1,0x34
0131 782f |x/ | Jump 0x161
0132 00db | | Load_Top At_Offset_3
0133 e5fe | | Load 0x2,-0x2
0134 00da | | Load_Top At_Offset_2
0135 8234 | 4 | Call 0x1,0x34
0136 00d8 | | Load_Top At_Offset_0
0137 0217 | | Execute Heap_Access,All_Reference
0138 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0139 6827 |h' | Jump_Zero 0x161
013a 00d8 | | Load_Top At_Offset_0
013b 0219 | | Execute Heap_Access,All_Read
013c 00d8 | | Load_Top At_Offset_0
013d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
013e e00d | | Load 0x0,0xd
013f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0140 e00e | | Load 0x0,0xe
0141 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0142 00ea | | Load_Encached Null_String_Cache
0143 e5ff | | Load 0x2,-0x1
0144 4800 |H | Short_Literal 0x0
0145 e006 | | Load 0x0,0x6
0146 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0147 00d9 | | Load_Top At_Offset_1
0148 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0149 00d1 | | Pop_Control Pop_Count_1
014a 7816 |x | Jump 0x161
014b 00d8 | | Load_Top At_Offset_0
014c 0219 | | Execute Heap_Access,All_Read
014d 00d8 | | Load_Top At_Offset_0
014e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
014f e00d | | Load 0x0,0xd
0150 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0151 e00e | | Load 0x0,0xe
0152 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0153 e00e | | Load 0x0,0xe
0154 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0155 00ea | | Load_Encached Null_String_Cache
0156 e5ff | | Load 0x2,-0x1
0157 4801 |H | Short_Literal 0x1
0158 e006 | | Load 0x0,0x6
0159 1818 | | Execute Package,Field_Execute,Field_Number 0x18
015a 00d9 | | Load_Top At_Offset_1
015b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
015c 00d1 | | Pop_Control Pop_Count_1
015d 00db | | Load_Top At_Offset_3
015e e5fe | | Load 0x2,-0x2
015f 00da | | Load_Top At_Offset_2
0160 8234 | 4 | Call 0x1,0x34
0161 00d8 | | Load_Top At_Offset_0
0162 a5fd | | Store_Unchecked 0x2,-0x3
0163 4503 |E | Exit_Subprogram 0x3
0164 TRAP_0108:
0164 0007 | | Action Break_Optional
0165 e00f | | Load 0x0,0xf
0166 180e | | Execute Package,Field_Execute,Field_Number 0xe
0167 4808 |H | Short_Literal 0x8
0168 0092 09ce | | Action Push_String_Extended,0x9ce ; "Cannot open "
016a e5ff | | Load 0x2,-0x1
016b 01cc | | Execute Vector,Catenate
016c 0092 09cf | | Action Push_String_Extended,0x9cf ; " ("
016e 01cc | | Execute Vector,Catenate
016f 4800 |H | Short_Literal 0x0
0170 4801 |H | Short_Literal 0x1
0171 e010 | | Load 0x0,0x10
0172 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0173 01cc | | Execute Vector,Catenate
0174 0092 09d0 | | Action Push_String_Extended,0x9d0 ; ")"
0176 01cc | | Execute Vector,Catenate
0177 e011 | | Load 0x0,0x11
0178 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0179 e22c | , | Load 0x1,0x2c
017a a5fd | | Store_Unchecked 0x2,-0x3
017b 4503 |E | Exit_Subprogram 0x3
017c 0000 0000 | | .BLANK 0000[0x4]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0185 | | .CONST 0x0185 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0002 | | .CONST 0x0002 ; Number of locals
0183 INIT_0180:
0183 e007 | | Load 0x0,0x7
0184 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0185 BODY_0180:
0185 e5fe | | Load 0x2,-0x2
0186 0217 | | Execute Heap_Access,All_Reference
0187 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0188 6802 |h | Jump_Zero 0x18b
0189 e5fe | | Load 0x2,-0x2
018a 8217 | | Call 0x1,0x17
018b e5fe | | Load 0x2,-0x2
018c 0217 | | Execute Heap_Access,All_Reference
018d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
018e e006 | | Load 0x0,0x6
018f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0190 6809 |h | Jump_Zero 0x19a
0191 e5fe | | Load 0x2,-0x2
0192 0219 | | Execute Heap_Access,All_Read
0193 00d8 | | Load_Top At_Offset_0
0194 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0195 e006 | | Load 0x0,0x6
0196 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0197 00d9 | | Load_Top At_Offset_1
0198 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0199 00d1 | | Pop_Control Pop_Count_1
019a e5fe | | Load 0x2,-0x2
019b 0217 | | Execute Heap_Access,All_Reference
019c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
019d e007 | | Load 0x0,0x7
019e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
019f 680c |h | Jump_Zero 0x1ac
01a0 e5fe | | Load 0x2,-0x2
01a1 0219 | | Execute Heap_Access,All_Read
01a2 e007 | | Load 0x0,0x7
01a3 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01a4 00d9 | | Load_Top At_Offset_1
01a5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01a6 e007 | | Load 0x0,0x7
01a7 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01a8 00da | | Load_Top At_Offset_2
01a9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01aa 005a | Z | Store_Top Discrete,At_Offset_2
01ab 00d1 | | Pop_Control Pop_Count_1
01ac e5fe | | Load 0x2,-0x2
01ad 8236 | 6 | Call 0x1,0x36
01ae e22c | , | Load 0x1,0x2c
01af a5fe | | Store_Unchecked 0x2,-0x2
01b0 4502 |E | Exit_Subprogram 0x2
01b1 0000 0000 | | .BLANK 0000[0x7]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00da | | Load_Top At_Offset_2
01bc 021c | | Execute Heap_Access,Not_Null
01bd 4401 |D | Exit_Subprogram With_Result,0x1
01be 0000 0000 | | .XXX[0x2]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00da | | Load_Top At_Offset_2
01c4 8237 | 7 | Call 0x1,0x37
01c5 4401 |D | Exit_Subprogram With_Result,0x1
01c6 0000 0000 | | .XXX[0x2]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d0 | | .CONST 0x01d0 ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0002 | | .CONST 0x0002 ; Number of locals
01cb INIT_01c8:
01cb 00da | | Load_Top At_Offset_2
01cc 0217 | | Execute Heap_Access,All_Reference
01cd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01ce e006 | | Load 0x0,0x6
01cf 181f | | Execute Package,Field_Execute,Field_Number 0x1f
01d0 BODY_01c8:
01d0 00db | | Load_Top At_Offset_3
01d1 0217 | | Execute Heap_Access,All_Reference
01d2 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01d3 6802 |h | Jump_Zero 0x1d6
01d4 00db | | Load_Top At_Offset_3
01d5 8217 | | Call 0x1,0x17
01d6 e5fe | | Load 0x2,-0x2
01d7 4602 |F | Jump_Case 0x2
01d8 781b |x | Jump 0x1f4 ; case 0x0
01d9 782a |x* | Jump 0x204 ; case 0x1
01da 7800 |x | Jump 0x1db ; case 0x2
01db 00db | | Load_Top At_Offset_3
01dc 0219 | | Execute Heap_Access,All_Read
01dd 00d8 | | Load_Top At_Offset_0
01de 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01df e006 | | Load 0x0,0x6
01e0 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01e1 00d9 | | Load_Top At_Offset_1
01e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01e3 00d1 | | Pop_Control Pop_Count_1
01e4 00db | | Load_Top At_Offset_3
01e5 0219 | | Execute Heap_Access,All_Read
01e6 00d8 | | Load_Top At_Offset_0
01e7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01e8 e00d | | Load 0x0,0xd
01e9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01ea e00e | | Load 0x0,0xe
01eb 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01ec 00ea | | Load_Encached Null_String_Cache
01ed e402 | | Load 0x2,0x2
01ee e006 | | Load 0x0,0x6
01ef 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01f0 00d9 | | Load_Top At_Offset_1
01f1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01f2 00d1 | | Pop_Control Pop_Count_1
01f3 781a |x | Jump 0x20e
01f4 00db | | Load_Top At_Offset_3
01f5 0217 | | Execute Heap_Access,All_Reference
01f6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01f7 e006 | | Load 0x0,0x6
01f8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01f9 6814 |h | Jump_Zero 0x20e
01fa 00db | | Load_Top At_Offset_3
01fb 0219 | | Execute Heap_Access,All_Read
01fc 00d8 | | Load_Top At_Offset_0
01fd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01fe e006 | | Load 0x0,0x6
01ff 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0200 00d9 | | Load_Top At_Offset_1
0201 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0202 00d1 | | Pop_Control Pop_Count_1
0203 780a |x | Jump 0x20e
0204 00db | | Load_Top At_Offset_3
0205 0219 | | Execute Heap_Access,All_Read
0206 00d8 | | Load_Top At_Offset_0
0207 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0208 4801 |H | Short_Literal 0x1
0209 e006 | | Load 0x0,0x6
020a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
020b 00d9 | | Load_Top At_Offset_1
020c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
020d 00d1 | | Pop_Control Pop_Count_1
020e 00d8 | | Load_Top At_Offset_0
020f e5fe | | Load 0x2,-0x2
0210 e5ff | | Load 0x2,-0x1
0211 8235 | 5 | Call 0x1,0x35
0212 4503 |E | Exit_Subprogram 0x3
0213 0000 0000 | | .BLANK 0000[0x5]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0240 | @ | .CONST 0x0240 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 00da | | Load_Top At_Offset_2
021c 0217 | | Execute Heap_Access,All_Reference
021d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
021e 6804 |h | Jump_Zero 0x223
021f e5fd | | Load 0x2,-0x3
0220 00db | | Load_Top At_Offset_3
0221 8232 | 2 | Call 0x1,0x32
0222 7811 |x | Jump 0x234
0223 00cf | | Action Mark_Auxiliary
0224 00db | | Load_Top At_Offset_3
0225 8231 | 1 | Call 0x1,0x31
0226 e5fd | | Load 0x2,-0x3
0227 017d | } | Execute Record,Structure_Write
0228 00db | | Load_Top At_Offset_3
0229 0217 | | Execute Heap_Access,All_Reference
022a 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
022b 0c01 | | Execute_Immediate Greater_Equal,0x1
022c 7004 |p | Jump_Nonzero 0x231
022d e5fe | | Load 0x2,-0x2
022e 7002 |p | Jump_Nonzero 0x231
022f 00c9 | | Action Pop_Auxiliary_Loop
0230 7ff3 | | Jump 0x224
0231 00ce | | Action Pop_Auxiliary
0232 00da | | Load_Top At_Offset_2
0233 823a | : | Call 0x1,0x3a
0234 4801 |H | Short_Literal 0x1
0235 00db | | Load_Top At_Offset_3
0236 0217 | | Execute Heap_Access,All_Reference
0237 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0238 00da | | Load_Top At_Offset_2
0239 0217 | | Execute Heap_Access,All_Reference
023a 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
023b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
023c 00db | | Load_Top At_Offset_3
023d 0217 | | Execute Heap_Access,All_Reference
023e 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
023f 4503 |E | Exit_Subprogram 0x3
0240 TRAP_0218:
0240 00d8 | | Load_Top At_Offset_0
0241 0107 | | Execute Exception,Get_Name
0242 4950 |IP | Short_Literal 0x150
0243 495f |I_ | Short_Literal 0x15f
0244 0262 | b | Execute Discrete,In_Range
0245 6809 |h | Jump_Zero 0x24f
0246 4800 |H | Short_Literal 0x0
0247 e5ff | | Load 0x2,-0x1
0248 0217 | | Execute Heap_Access,All_Reference
0249 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
024a 4800 |H | Short_Literal 0x0
024b e5ff | | Load 0x2,-0x1
024c 0217 | | Execute Heap_Access,All_Reference
024d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
024e 4503 |E | Exit_Subprogram 0x3
024f 0100 | | Execute Exception,Raise
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 00da | | Load_Top At_Offset_2
0254 0217 | | Execute Heap_Access,All_Reference
0255 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0256 6802 |h | Jump_Zero 0x259
0257 4900 |I | Short_Literal 0x100
0258 0257 | W | Execute Discrete,Raise
0259 00cf | | Action Mark_Auxiliary
025a 7822 |x" | Jump 0x27d
025b 00db | | Load_Top At_Offset_3
025c 8231 | 1 | Call 0x1,0x31
025d e5fc | | Load 0x2,-0x4
025e 017d | } | Execute Record,Structure_Write
025f e5fd | | Load 0x2,-0x3
0260 7003 |p | Jump_Nonzero 0x264
0261 00db | | Load_Top At_Offset_3
0262 821f | | Call 0x1,0x1f
0263 7018 |p | Jump_Nonzero 0x27c
0264 00db | | Load_Top At_Offset_3
0265 0217 | | Execute Heap_Access,All_Reference
0266 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0267 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0268 e012 | | Load 0x0,0x12
0269 1813 | | Execute Package,Field_Execute,Field_Number 0x13
026a e5fe | | Load 0x2,-0x2
026b e013 | | Load 0x0,0x13
026c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
026d 680e |h | Jump_Zero 0x27c
026e 00db | | Load_Top At_Offset_3
026f 823a | : | Call 0x1,0x3a
0270 00db | | Load_Top At_Offset_3
0271 0217 | | Execute Heap_Access,All_Reference
0272 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0273 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0274 e5ff | | Load 0x2,-0x1
0275 0217 | | Execute Heap_Access,All_Reference
0276 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0277 4801 |H | Short_Literal 0x1
0278 e5ff | | Load 0x2,-0x1
0279 0217 | | Execute Heap_Access,All_Reference
027a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
027b 4504 |E | Exit_Subprogram 0x4
027c 00c9 | | Action Pop_Auxiliary_Loop
027d 00db | | Load_Top At_Offset_3
027e 8237 | 7 | Call 0x1,0x37
027f 6fdb |o | Jump_Zero 0x25b
0280 00ce | | Action Pop_Auxiliary
0281 8014 | | Call 0x0,0x14
0282 e5fc | | Load 0x2,-0x4
0283 017d | } | Execute Record,Structure_Write
0284 4504 |E | Exit_Subprogram 0x4
0285 0000 0000 | | .XXX[0x3]
0287 0000 | |
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 00da | | Load_Top At_Offset_2
028c 821b | | Call 0x1,0x1b
028d 6820 |h | Jump_Zero 0x2ae
028e 00da | | Load_Top At_Offset_2
028f 0217 | | Execute Heap_Access,All_Reference
0290 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0291 6818 |h | Jump_Zero 0x2aa
0292 7800 |x | Jump 0x293
0293 00da | | Load_Top At_Offset_2
0294 821d | | Call 0x1,0x1d
0295 0c01 | | Execute_Immediate Greater_Equal,0x1
0296 6813 |h | Jump_Zero 0x2aa
0297 4801 |H | Short_Literal 0x1
0298 00db | | Load_Top At_Offset_3
0299 821d | | Call 0x1,0x1d
029a e015 | | Load 0x0,0x15
029b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
029c 035b | [ | Declare_Type Array,Constrained
029d 0337 | 7 | Declare_Variable Array
029e 00d8 | | Load_Top At_Offset_0
029f 01dc | | Execute Vector,Last
02a0 4801 |H | Short_Literal 0x1
02a1 0263 | c | Execute Discrete,Above_Bound
02a2 7005 |p | Jump_Nonzero 0x2a8
02a3 4800 |H | Short_Literal 0x0
02a4 00d9 | | Load_Top At_Offset_1
02a5 e402 | | Load 0x2,0x2
02a6 01d6 | | Execute Vector,Field_Write
02a7 3ffb |? | Loop_Increasing 0x2a3
02a8 00db | | Load_Top At_Offset_3
02a9 8228 | ( | Call 0x1,0x28
02aa 4800 |H | Short_Literal 0x0
02ab 00db | | Load_Top At_Offset_3
02ac 0217 | | Execute Heap_Access,All_Reference
02ad 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
02ae 4502 |E | Exit_Subprogram 0x2
02af 0000 | | .XXX[0x1]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 00da | | Load_Top At_Offset_2
02b4 0217 | | Execute Heap_Access,All_Reference
02b5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02b6 6813 |h | Jump_Zero 0x2ca
02b7 00da | | Load_Top At_Offset_2
02b8 0217 | | Execute Heap_Access,All_Reference
02b9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02ba 700f |p | Jump_Nonzero 0x2ca
02bb 00da | | Load_Top At_Offset_2
02bc 0217 | | Execute Heap_Access,All_Reference
02bd 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
02be 0c01 | | Execute_Immediate Greater_Equal,0x1
02bf 6809 |h | Jump_Zero 0x2c9
02c0 00da | | Load_Top At_Offset_2
02c1 0217 | | Execute Heap_Access,All_Reference
02c2 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
02c3 0275 | u | Execute Discrete,Unary_Minus
02c4 00db | | Load_Top At_Offset_3
02c5 0217 | | Execute Heap_Access,All_Reference
02c6 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
02c7 00da | | Load_Top At_Offset_2
02c8 8233 | 3 | Call 0x1,0x33
02c9 4502 |E | Exit_Subprogram 0x2
02ca 4900 |I | Short_Literal 0x100
02cb 0257 | W | Execute Discrete,Raise
02cc 0000 0000 | | .BLANK 0000[0x4]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 00da | | Load_Top At_Offset_2
02d4 0217 | | Execute Heap_Access,All_Reference
02d5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02d6 6813 |h | Jump_Zero 0x2ea
02d7 00da | | Load_Top At_Offset_2
02d8 0217 | | Execute Heap_Access,All_Reference
02d9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02da 700f |p | Jump_Nonzero 0x2ea
02db 00da | | Load_Top At_Offset_2
02dc 0217 | | Execute Heap_Access,All_Reference
02dd 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
02de 0d00 | | Execute_Immediate Less,0x0
02df 6809 |h | Jump_Zero 0x2e9
02e0 00da | | Load_Top At_Offset_2
02e1 0217 | | Execute Heap_Access,All_Reference
02e2 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
02e3 0275 | u | Execute Discrete,Unary_Minus
02e4 00db | | Load_Top At_Offset_3
02e5 0217 | | Execute Heap_Access,All_Reference
02e6 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
02e7 00da | | Load_Top At_Offset_2
02e8 8233 | 3 | Call 0x1,0x33
02e9 4502 |E | Exit_Subprogram 0x2
02ea 4900 |I | Short_Literal 0x100
02eb 0257 | W | Execute Discrete,Raise
02ec 0000 0000 | | .BLANK 0000[0x4]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 00da | | Load_Top At_Offset_2
02f4 0217 | | Execute Heap_Access,All_Reference
02f5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02f6 680c |h | Jump_Zero 0x303
02f7 00da | | Load_Top At_Offset_2
02f8 0219 | | Execute Heap_Access,All_Read
02f9 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
02fa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02fb 00d8 | | Load_Top At_Offset_0
02fc e5fe | | Load 0x2,-0x2
02fd e012 | | Load 0x0,0x12
02fe 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02ff 00d2 | | Pop_Control Pop_Count_2
0300 00da | | Load_Top At_Offset_2
0301 8233 | 3 | Call 0x1,0x33
0302 4503 |E | Exit_Subprogram 0x3
0303 4900 |I | Short_Literal 0x100
0304 0257 | W | Execute Discrete,Raise
0305 0000 0000 | | .XXX[0x3]
0307 0000 | |
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 00da | | Load_Top At_Offset_2
030c 6804 |h | Jump_Zero 0x311
030d 00da | | Load_Top At_Offset_2
030e 0217 | | Execute Heap_Access,All_Reference
030f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0310 4401 |D | Exit_Subprogram With_Result,0x1
0311 4800 |H | Short_Literal 0x0
0312 4401 |D | Exit_Subprogram With_Result,0x1
0313 0000 0000 | | .BLANK 0000[0x5]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b 00da | | Load_Top At_Offset_2
031c 821b | | Call 0x1,0x1b
031d 6805 |h | Jump_Zero 0x323
031e 00da | | Load_Top At_Offset_2
031f 0217 | | Execute Heap_Access,All_Reference
0320 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0321 0d01 | | Execute_Immediate Less,0x1
0322 4401 |D | Exit_Subprogram With_Result,0x1
0323 4801 |H | Short_Literal 0x1
0324 4401 |D | Exit_Subprogram With_Result,0x1
0325 0000 0000 | | .XXX[0x3]
0327 0000 | |
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b 00da | | Load_Top At_Offset_2
032c 0217 | | Execute Heap_Access,All_Reference
032d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
032e 4401 |D | Exit_Subprogram With_Result,0x1
032f 0000 | | .XXX[0x1]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 00da | | Load_Top At_Offset_2
0334 821b | | Call 0x1,0x1b
0335 6806 |h | Jump_Zero 0x33c
0336 00da | | Load_Top At_Offset_2
0337 0217 | | Execute Heap_Access,All_Reference
0338 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0339 0320 | | Declare_Variable Record,Duplicate
033a 00cd | | Action Spare6_Action
033b 4401 |D | Exit_Subprogram With_Result,0x1
033c 8014 | | Call 0x0,0x14
033d 4401 |D | Exit_Subprogram With_Result,0x1
033e 0000 0000 | | .XXX[0x2]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 00da | | Load_Top At_Offset_2
0344 0217 | | Execute Heap_Access,All_Reference
0345 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0346 0d00 | | Execute_Immediate Less,0x0
0347 4401 |D | Exit_Subprogram With_Result,0x1
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b 00da | | Load_Top At_Offset_2
034c 0217 | | Execute Heap_Access,All_Reference
034d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
034e 0274 | t | Execute Discrete,Absolute_Value
034f 4401 |D | Exit_Subprogram With_Result,0x1
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 00da | | Load_Top At_Offset_2
0354 0217 | | Execute Heap_Access,All_Reference
0355 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0356 7011 |p | Jump_Nonzero 0x368
0357 00da | | Load_Top At_Offset_2
0358 0217 | | Execute Heap_Access,All_Reference
0359 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
035a 700d |p | Jump_Nonzero 0x368
035b 00db | | Load_Top At_Offset_3
035c 00d8 | | Load_Top At_Offset_0
035d e22e | . | Load 0x1,0x2e
035e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
035f 0260 | ` | Execute Discrete,In_Type
0360 7001 |p | Jump_Nonzero 0x362
0361 0801 | | Execute_Immediate Raise,0x1
0362 00db | | Load_Top At_Offset_3
0363 0217 | | Execute Heap_Access,All_Reference
0364 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0365 e22e | . | Load 0x1,0x2e
0366 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0367 4503 |E | Exit_Subprogram 0x3
0368 4900 |I | Short_Literal 0x100
0369 0257 | W | Execute Discrete,Raise
036a 0000 0000 | | .BLANK 0000[0x6]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 00da | | Load_Top At_Offset_2
0374 0217 | | Execute Heap_Access,All_Reference
0375 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0376 4401 |D | Exit_Subprogram With_Result,0x1
0377 0000 | | .XXX[0x1]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037c | | | .CONST 0x037c ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0002 | | .CONST 0x0002 ; Number of locals
037b INIT_0378:
037b 00e2 | | Load_Encached Integer_Cache
037c BODY_0378:
037c 00db | | Load_Top At_Offset_3
037d 0217 | | Execute Heap_Access,All_Reference
037e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
037f 6802 |h | Jump_Zero 0x382
0380 4900 |I | Short_Literal 0x100
0381 0257 | W | Execute Discrete,Raise
0382 e5fd | | Load 0x2,-0x3
0383 e5ff | | Load 0x2,-0x1
0384 8232 | 2 | Call 0x1,0x32
0385 00e2 | | Load_Encached Integer_Cache
0386 e5ff | | Load 0x2,-0x1
0387 0217 | | Execute Heap_Access,All_Reference
0388 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0389 e5fc | | Load 0x2,-0x4
038a e5fe | | Load 0x2,-0x2
038b 8016 | | Call 0x0,0x16
038c 0059 | Y | Store_Top Discrete,At_Offset_1
038d 00d8 | | Load_Top At_Offset_0
038e e5fd | | Load 0x2,-0x3
038f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0390 027e | ~ | Execute Discrete,Not_Equal
0391 6802 |h | Jump_Zero 0x394
0392 4960 |I` | Short_Literal 0x160
0393 0257 | W | Execute Discrete,Raise
0394 4505 |E | Exit_Subprogram 0x5
0395 0000 0000 | | .XXX[0x3]
0397 0000 | |
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 03a0 | | .CONST 0x03a0 ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0003 | | .CONST 0x0003 ; Number of locals
039b INIT_0398:
039b 00da | | Load_Top At_Offset_2
039c 821d | | Call 0x1,0x1d
039d 00e2 | | Load_Encached Integer_Cache
039e 03f1 | | Declare_Variable Discrete,With_Value
039f 00e2 | | Load_Encached Integer_Cache
03a0 BODY_0398:
03a0 e5ff | | Load 0x2,-0x1
03a1 823b | ; | Call 0x1,0x3b
03a2 00d9 | | Load_Top At_Offset_1
03a3 e5fe | | Load 0x2,-0x2
03a4 01db | | Execute Vector,Length
03a5 027b | { | Execute Discrete,Greater_Equal
03a6 6812 |h | Jump_Zero 0x3b9
03a7 e5ff | | Load 0x2,-0x1
03a8 0219 | | Execute Heap_Access,All_Read
03a9 00e3 | | Load_Encached Natural_Cache
03aa e5fe | | Load 0x2,-0x2
03ab 00da | | Load_Top At_Offset_2
03ac 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03ad e5ff | | Load 0x2,-0x1
03ae 0217 | | Execute Heap_Access,All_Reference
03af 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03b0 e007 | | Load 0x0,0x7
03b1 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
03b2 180f | | Execute Package,Field_Execute,Field_Number 0xf
03b3 00db | | Load_Top At_Offset_3
03b4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03b5 00d1 | | Pop_Control Pop_Count_1
03b6 005a | Z | Store_Top Discrete,At_Offset_2
03b7 00d1 | | Pop_Control Pop_Count_1
03b8 7828 |x( | Jump 0x3e1
03b9 00d9 | | Load_Top At_Offset_1
03ba 0c01 | | Execute_Immediate Greater_Equal,0x1
03bb 6823 |h# | Jump_Zero 0x3df
03bc e5fe | | Load 0x2,-0x2
03bd 00d8 | | Load_Top At_Offset_0
03be 01dd | | Execute Vector,First
03bf e5fe | | Load 0x2,-0x2
03c0 01dd | | Execute Vector,First
03c1 e402 | | Load 0x2,0x2
03c2 0273 | s | Execute Discrete,Plus
03c3 0aff | | Execute_Immediate Plus,-0x1
03c4 00d8 | | Load_Top At_Offset_0
03c5 00e2 | | Load_Encached Integer_Cache
03c6 0260 | ` | Execute Discrete,In_Type
03c7 7001 |p | Jump_Nonzero 0x3c9
03c8 0801 | | Execute_Immediate Raise,0x1
03c9 00da | | Load_Top At_Offset_2
03ca 035b | [ | Declare_Type Array,Constrained
03cb 00d0 | | Action Swap_Control
03cc 01cd | | Execute Vector,Slice_Reference
03cd e5ff | | Load 0x2,-0x1
03ce 0219 | | Execute Heap_Access,All_Read
03cf 00e3 | | Load_Encached Natural_Cache
03d0 00da | | Load_Top At_Offset_2
03d1 00da | | Load_Top At_Offset_2
03d2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03d3 e5ff | | Load 0x2,-0x1
03d4 0217 | | Execute Heap_Access,All_Reference
03d5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03d6 e007 | | Load 0x0,0x7
03d7 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
03d8 180f | | Execute Package,Field_Execute,Field_Number 0xf
03d9 00db | | Load_Top At_Offset_3
03da 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03db 00d1 | | Pop_Control Pop_Count_1
03dc 005b | [ | Store_Top Discrete,At_Offset_3
03dd 00d2 | | Pop_Control Pop_Count_2
03de 7802 |x | Jump 0x3e1
03df 4950 |IP | Short_Literal 0x150
03e0 0257 | W | Execute Discrete,Raise
03e1 e5ff | | Load 0x2,-0x1
03e2 0217 | | Execute Heap_Access,All_Reference
03e3 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
03e4 00d9 | | Load_Top At_Offset_1
03e5 0272 | r | Execute Discrete,Minus
03e6 e5ff | | Load 0x2,-0x1
03e7 0217 | | Execute Heap_Access,All_Reference
03e8 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
03e9 00d8 | | Load_Top At_Offset_0
03ea c5fd | | Store 0x2,-0x3
03eb 4502 |E | Exit_Subprogram 0x2
03ec 0000 0000 | | .BLANK 0000[0x4]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f8 | | .CONST 0x03f8 ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0003 | | .CONST 0x0003 ; Number of locals
03f3 INIT_03f0:
03f3 00da | | Load_Top At_Offset_2
03f4 821d | | Call 0x1,0x1d
03f5 00e2 | | Load_Encached Integer_Cache
03f6 03f1 | | Declare_Variable Discrete,With_Value
03f7 00e2 | | Load_Encached Integer_Cache
03f8 BODY_03f0:
03f8 e5ff | | Load 0x2,-0x1
03f9 823b | ; | Call 0x1,0x3b
03fa 00d9 | | Load_Top At_Offset_1
03fb e5fe | | Load 0x2,-0x2
03fc 01db | | Execute Vector,Length
03fd 027b | { | Execute Discrete,Greater_Equal
03fe 6812 |h | Jump_Zero 0x411
03ff e5ff | | Load 0x2,-0x1
0400 0219 | | Execute Heap_Access,All_Read
0401 00e3 | | Load_Encached Natural_Cache
0402 e5fe | | Load 0x2,-0x2
0403 00da | | Load_Top At_Offset_2
0404 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0405 e5ff | | Load 0x2,-0x1
0406 0217 | | Execute Heap_Access,All_Reference
0407 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0408 e007 | | Load 0x0,0x7
0409 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
040a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
040b 00db | | Load_Top At_Offset_3
040c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
040d 00d1 | | Pop_Control Pop_Count_1
040e 005a | Z | Store_Top Discrete,At_Offset_2
040f 00d1 | | Pop_Control Pop_Count_1
0410 7828 |x( | Jump 0x439
0411 00d9 | | Load_Top At_Offset_1
0412 0c01 | | Execute_Immediate Greater_Equal,0x1
0413 6823 |h# | Jump_Zero 0x437
0414 e5fe | | Load 0x2,-0x2
0415 00d8 | | Load_Top At_Offset_0
0416 01dd | | Execute Vector,First
0417 e5fe | | Load 0x2,-0x2
0418 01dd | | Execute Vector,First
0419 e402 | | Load 0x2,0x2
041a 0273 | s | Execute Discrete,Plus
041b 0aff | | Execute_Immediate Plus,-0x1
041c 00d8 | | Load_Top At_Offset_0
041d 00e2 | | Load_Encached Integer_Cache
041e 0260 | ` | Execute Discrete,In_Type
041f 7001 |p | Jump_Nonzero 0x421
0420 0801 | | Execute_Immediate Raise,0x1
0421 00da | | Load_Top At_Offset_2
0422 035b | [ | Declare_Type Array,Constrained
0423 00d0 | | Action Swap_Control
0424 01cd | | Execute Vector,Slice_Reference
0425 e5ff | | Load 0x2,-0x1
0426 0219 | | Execute Heap_Access,All_Read
0427 00e3 | | Load_Encached Natural_Cache
0428 00da | | Load_Top At_Offset_2
0429 00da | | Load_Top At_Offset_2
042a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
042b e5ff | | Load 0x2,-0x1
042c 0217 | | Execute Heap_Access,All_Reference
042d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
042e e007 | | Load 0x0,0x7
042f 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0430 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0431 00db | | Load_Top At_Offset_3
0432 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0433 00d1 | | Pop_Control Pop_Count_1
0434 005b | [ | Store_Top Discrete,At_Offset_3
0435 00d2 | | Pop_Control Pop_Count_2
0436 7802 |x | Jump 0x439
0437 4950 |IP | Short_Literal 0x150
0438 0257 | W | Execute Discrete,Raise
0439 e5ff | | Load 0x2,-0x1
043a 0217 | | Execute Heap_Access,All_Reference
043b 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
043c 00d9 | | Load_Top At_Offset_1
043d 0272 | r | Execute Discrete,Minus
043e e5ff | | Load 0x2,-0x1
043f 0217 | | Execute Heap_Access,All_Reference
0440 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0441 00d8 | | Load_Top At_Offset_0
0442 c5fd | | Store 0x2,-0x3
0443 4502 |E | Exit_Subprogram 0x2
0444 0000 0000 | | .BLANK 0000[0x4]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 0459 | Y | .CONST 0x0459 ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0005 | | .CONST 0x0005 ; Number of locals
044b INIT_0448:
044b e007 | | Load 0x0,0x7
044c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
044d 02c7 | | Declare_Variable Any
044e 00db | | Load_Top At_Offset_3
044f 0217 | | Execute Heap_Access,All_Reference
0450 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0451 a402 | | Store_Unchecked 0x2,0x2
0452 e015 | | Load 0x0,0x15
0453 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0454 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0455 00e2 | | Load_Encached Integer_Cache
0456 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0457 029f 0993 | | Declare_Subprogram For_Call,INIT_0990
0459 BODY_0448:
0459 e5ff | | Load 0x2,-0x1
045a 823b | ; | Call 0x1,0x3b
045b e5ff | | Load 0x2,-0x1
045c 0217 | | Execute Heap_Access,All_Reference
045d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
045e 7002 |p | Jump_Nonzero 0x461
045f 4950 |IP | Short_Literal 0x150
0460 0257 | W | Execute Discrete,Raise
0461 00cf | | Action Mark_Auxiliary
0462 781f |x | Jump 0x482
0463 e5ff | | Load 0x2,-0x1
0464 0219 | | Execute Heap_Access,All_Read
0465 e007 | | Load 0x0,0x7
0466 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0467 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0468 00d9 | | Load_Top At_Offset_1
0469 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
046a e5ff | | Load 0x2,-0x1
046b 0217 | | Execute Heap_Access,All_Reference
046c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
046d e007 | | Load 0x0,0x7
046e 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
046f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0470 00da | | Load_Top At_Offset_2
0471 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0472 c403 | | Store 0x2,0x3
0473 00d1 | | Pop_Control Pop_Count_1
0474 e5ff | | Load 0x2,-0x1
0475 0217 | | Execute Heap_Access,All_Reference
0476 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0477 0aff | | Execute_Immediate Plus,-0x1
0478 e5ff | | Load 0x2,-0x1
0479 0217 | | Execute Heap_Access,All_Reference
047a 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
047b 00db | | Load_Top At_Offset_3
047c 0f0a | | Execute_Immediate Equal,0xa
047d 7009 |p | Jump_Nonzero 0x487
047e 00da | | Load_Top At_Offset_2
047f 0a01 | | Execute_Immediate Plus,0x1
0480 005b | [ | Store_Top Discrete,At_Offset_3
0481 00c9 | | Action Pop_Auxiliary_Loop
0482 e5ff | | Load 0x2,-0x1
0483 0217 | | Execute Heap_Access,All_Reference
0484 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0485 0c01 | | Execute_Immediate Greater_Equal,0x1
0486 77dc |w | Jump_Nonzero 0x463
0487 00ce | | Action Pop_Auxiliary
0488 8405 | | Call 0x2,0x5
0489 0831 | 1 | Execute_Immediate Raise,0x31
048a 0000 0000 | | .BLANK 0000[0x6]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 04a1 | | .CONST 0x04a1 ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0006 | | .CONST 0x0006 ; Number of locals
0493 INIT_0490:
0493 e5fd | | Load 0x2,-0x3
0494 00e2 | | Load_Encached Integer_Cache
0495 03f1 | | Declare_Variable Discrete,With_Value
0496 00db | | Load_Top At_Offset_3
0497 821d | | Call 0x1,0x1d
0498 00e2 | | Load_Encached Integer_Cache
0499 03f1 | | Declare_Variable Discrete,With_Value
049a e5fe | | Load 0x2,-0x2
049b 8017 | | Call 0x0,0x17
049c 00e2 | | Load_Encached Integer_Cache
049d 03f1 | | Declare_Variable Discrete,With_Value
049e 00e2 | | Load_Encached Integer_Cache
049f e00a | | Load 0x0,0xa
04a0 0337 | 7 | Declare_Variable Array
04a1 BODY_0490:
04a1 e5ff | | Load 0x2,-0x1
04a2 823b | ; | Call 0x1,0x3b
04a3 00db | | Load_Top At_Offset_3
04a4 e402 | | Load 0x2,0x2
04a5 027c | | | Execute Discrete,Less
04a6 6802 |h | Jump_Zero 0x4a9
04a7 00db | | Load_Top At_Offset_3
04a8 a402 | | Store_Unchecked 0x2,0x2
04a9 00da | | Load_Top At_Offset_2
04aa e402 | | Load 0x2,0x2
04ab 027c | | | Execute Discrete,Less
04ac 6802 |h | Jump_Zero 0x4af
04ad 00da | | Load_Top At_Offset_2
04ae a402 | | Store_Unchecked 0x2,0x2
04af e402 | | Load 0x2,0x2
04b0 c5fc | | Store 0x2,-0x4
04b1 e5ff | | Load 0x2,-0x1
04b2 0217 | | Execute Heap_Access,All_Reference
04b3 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
04b4 e402 | | Load 0x2,0x2
04b5 0272 | r | Execute Discrete,Minus
04b6 e5ff | | Load 0x2,-0x1
04b7 0217 | | Execute Heap_Access,All_Reference
04b8 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
04b9 00cf | | Action Mark_Auxiliary
04ba 781a |x | Jump 0x4d5
04bb e5ff | | Load 0x2,-0x1
04bc 0217 | | Execute Heap_Access,All_Reference
04bd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04be e5ff | | Load 0x2,-0x1
04bf 0217 | | Execute Heap_Access,All_Reference
04c0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04c1 e238 | 8 | Load 0x1,0x38
04c2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04c3 e5fe | | Load 0x2,-0x2
04c4 8018 | | Call 0x0,0x18
04c5 e5ff | | Load 0x2,-0x1
04c6 0217 | | Execute Heap_Access,All_Reference
04c7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04c8 e5ff | | Load 0x2,-0x1
04c9 0217 | | Execute Heap_Access,All_Reference
04ca 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04cb e238 | 8 | Load 0x1,0x38
04cc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04cd e5ff | | Load 0x2,-0x1
04ce 0217 | | Execute Heap_Access,All_Reference
04cf 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
04d0 e402 | | Load 0x2,0x2
04d1 4c00 |L | Short_Literal 0x400
04d2 0273 | s | Execute Discrete,Plus
04d3 c402 | | Store 0x2,0x2
04d4 00c9 | | Action Pop_Auxiliary_Loop
04d5 e402 | | Load 0x2,0x2
04d6 6025 |`% | Indirect_Literal Discrete,0x4fc,{0x00000000, 0x00000400}
04d7 027b | { | Execute Discrete,Greater_Equal
04d8 77e2 |w | Jump_Nonzero 0x4bb
04d9 00ce | | Action Pop_Auxiliary
04da e402 | | Load 0x2,0x2
04db 0c01 | | Execute_Immediate Greater_Equal,0x1
04dc 681e |h | Jump_Zero 0x4fb
04dd 00d8 | | Load_Top At_Offset_0
04de 4801 |H | Short_Literal 0x1
04df e402 | | Load 0x2,0x2
04e0 00da | | Load_Top At_Offset_2
04e1 035b | [ | Declare_Type Array,Constrained
04e2 00d0 | | Action Swap_Control
04e3 01cd | | Execute Vector,Slice_Reference
04e4 e5ff | | Load 0x2,-0x1
04e5 0219 | | Execute Heap_Access,All_Read
04e6 00e3 | | Load_Encached Natural_Cache
04e7 00da | | Load_Top At_Offset_2
04e8 00da | | Load_Top At_Offset_2
04e9 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04ea e5ff | | Load 0x2,-0x1
04eb 0217 | | Execute Heap_Access,All_Reference
04ec 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04ed e007 | | Load 0x0,0x7
04ee 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
04ef 180f | | Execute Package,Field_Execute,Field_Number 0xf
04f0 00db | | Load_Top At_Offset_3
04f1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
04f2 00d1 | | Pop_Control Pop_Count_1
04f3 c405 | | Store 0x2,0x5
04f4 00d2 | | Pop_Control Pop_Count_2
04f5 4801 |H | Short_Literal 0x1
04f6 00da | | Load_Top At_Offset_2
04f7 00da | | Load_Top At_Offset_2
04f8 01cf | | Execute Vector,Slice_Read
04f9 e5fe | | Load 0x2,-0x2
04fa 8018 | | Call 0x0,0x18
04fb 4504 |E | Exit_Subprogram 0x4
04fc 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0503 | | .CONST 0x0503 ; Address of begin
0501 0004 | | .CONST 0x0004 ; Address of exception handler
0502 0001 | | .CONST 0x0001 ; Number of locals
0503 BODY_0500:
0503 INIT_0500:
0503 00da | | Load_Top At_Offset_2
0504 0217 | | Execute Heap_Access,All_Reference
0505 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0506 e5fe | | Load 0x2,-0x2
0507 01db | | Execute Vector,Length
0508 027b | { | Execute Discrete,Greater_Equal
0509 6810 |h | Jump_Zero 0x51a
050a 00db | | Load_Top At_Offset_3
050b 00db | | Load_Top At_Offset_3
050c 0217 | | Execute Heap_Access,All_Reference
050d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
050e e006 | | Load 0x0,0x6
050f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0510 00da | | Load_Top At_Offset_2
0511 0217 | | Execute Heap_Access,All_Reference
0512 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0513 e5fe | | Load 0x2,-0x2
0514 01db | | Execute Vector,Length
0515 0272 | r | Execute Discrete,Minus
0516 00db | | Load_Top At_Offset_3
0517 0217 | | Execute Heap_Access,All_Reference
0518 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0519 4503 |E | Exit_Subprogram 0x3
051a 4950 |IP | Short_Literal 0x150
051b 0257 | W | Execute Discrete,Raise
051c 0000 0000 | | .BLANK 0000[0x4]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0523 | # | .CONST 0x0523 ; Address of begin
0521 0004 | | .CONST 0x0004 ; Address of exception handler
0522 0001 | | .CONST 0x0001 ; Number of locals
0523 BODY_0520:
0523 INIT_0520:
0523 00da | | Load_Top At_Offset_2
0524 0217 | | Execute Heap_Access,All_Reference
0525 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0526 e5fe | | Load 0x2,-0x2
0527 01db | | Execute Vector,Length
0528 027b | { | Execute Discrete,Greater_Equal
0529 6810 |h | Jump_Zero 0x53a
052a 00db | | Load_Top At_Offset_3
052b 00db | | Load_Top At_Offset_3
052c 0217 | | Execute Heap_Access,All_Reference
052d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
052e e006 | | Load 0x0,0x6
052f 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0530 00da | | Load_Top At_Offset_2
0531 0217 | | Execute Heap_Access,All_Reference
0532 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0533 e5fe | | Load 0x2,-0x2
0534 01db | | Execute Vector,Length
0535 0272 | r | Execute Discrete,Minus
0536 00db | | Load_Top At_Offset_3
0537 0217 | | Execute Heap_Access,All_Reference
0538 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0539 4503 |E | Exit_Subprogram 0x3
053a 4950 |IP | Short_Literal 0x150
053b 0257 | W | Execute Discrete,Raise
053c 0000 0000 | | .BLANK 0000[0x4]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0552 | R | .CONST 0x0552 ; Address of begin
0541 0004 | | .CONST 0x0004 ; Address of exception handler
0542 0006 | | .CONST 0x0006 ; Number of locals
0543 INIT_0540:
0543 e5fd | | Load 0x2,-0x3
0544 00e2 | | Load_Encached Integer_Cache
0545 03f1 | | Declare_Variable Discrete,With_Value
0546 e5fe | | Load 0x2,-0x2
0547 8017 | | Call 0x0,0x17
0548 00e2 | | Load_Encached Integer_Cache
0549 03f1 | | Declare_Variable Discrete,With_Value
054a e5ff | | Load 0x2,-0x1
054b 0217 | | Execute Heap_Access,All_Reference
054c 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
054d 00e2 | | Load_Encached Integer_Cache
054e 03f1 | | Declare_Variable Discrete,With_Value
054f e00a | | Load 0x0,0xa
0550 0337 | 7 | Declare_Variable Array
0551 00e2 | | Load_Encached Integer_Cache
0552 BODY_0540:
0552 00da | | Load_Top At_Offset_2
0553 e402 | | Load 0x2,0x2
0554 027c | | | Execute Discrete,Less
0555 6802 |h | Jump_Zero 0x558
0556 00da | | Load_Top At_Offset_2
0557 a402 | | Store_Unchecked 0x2,0x2
0558 00db | | Load_Top At_Offset_3
0559 e402 | | Load 0x2,0x2
055a 027c | | | Execute Discrete,Less
055b 6802 |h | Jump_Zero 0x55e
055c 00db | | Load_Top At_Offset_3
055d a402 | | Store_Unchecked 0x2,0x2
055e e402 | | Load 0x2,0x2
055f c5fc | | Store 0x2,-0x4
0560 e5ff | | Load 0x2,-0x1
0561 0217 | | Execute Heap_Access,All_Reference
0562 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0563 e402 | | Load 0x2,0x2
0564 0272 | r | Execute Discrete,Minus
0565 e5ff | | Load 0x2,-0x1
0566 0217 | | Execute Heap_Access,All_Reference
0567 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0568 00cf | | Action Mark_Auxiliary
0569 7814 |x | Jump 0x57e
056a 00e3 | | Load_Encached Natural_Cache
056b 00db | | Load_Top At_Offset_3
056c e5fe | | Load 0x2,-0x2
056d 8019 | | Call 0x0,0x19
056e 00d1 | | Pop_Control Pop_Count_1
056f 005a | Z | Store_Top Discrete,At_Offset_2
0570 4801 |H | Short_Literal 0x1
0571 00da | | Load_Top At_Offset_2
0572 e405 | | Load 0x2,0x5
0573 01cf | | Execute Vector,Slice_Read
0574 e5ff | | Load 0x2,-0x1
0575 0217 | | Execute Heap_Access,All_Reference
0576 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0577 e006 | | Load 0x0,0x6
0578 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0579 e402 | | Load 0x2,0x2
057a 00da | | Load_Top At_Offset_2
057b 0272 | r | Execute Discrete,Minus
057c c402 | | Store 0x2,0x2
057d 00c9 | | Action Pop_Auxiliary_Loop
057e e402 | | Load 0x2,0x2
057f 6024 |`$ | Indirect_Literal Discrete,0x5a4,{0x00000000, 0x00000400}
0580 027d | } | Execute Discrete,Greater
0581 77e8 |w | Jump_Nonzero 0x56a
0582 00c9 | | Action Pop_Auxiliary_Loop
0583 781c |x | Jump 0x5a0
0584 00da | | Load_Top At_Offset_2
0585 4801 |H | Short_Literal 0x1
0586 e402 | | Load 0x2,0x2
0587 00da | | Load_Top At_Offset_2
0588 035b | [ | Declare_Type Array,Constrained
0589 00d0 | | Action Swap_Control
058a 01cd | | Execute Vector,Slice_Reference
058b 00e3 | | Load_Encached Natural_Cache
058c 00d9 | | Load_Top At_Offset_1
058d e5fe | | Load 0x2,-0x2
058e 8019 | | Call 0x0,0x19
058f 00d1 | | Pop_Control Pop_Count_1
0590 005b | [ | Store_Top Discrete,At_Offset_3
0591 00d1 | | Pop_Control Pop_Count_1
0592 4801 |H | Short_Literal 0x1
0593 00da | | Load_Top At_Offset_2
0594 e405 | | Load 0x2,0x5
0595 01cf | | Execute Vector,Slice_Read
0596 e5ff | | Load 0x2,-0x1
0597 0217 | | Execute Heap_Access,All_Reference
0598 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0599 e006 | | Load 0x0,0x6
059a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
059b e402 | | Load 0x2,0x2
059c 00da | | Load_Top At_Offset_2
059d 0272 | r | Execute Discrete,Minus
059e c402 | | Store 0x2,0x2
059f 00c9 | | Action Pop_Auxiliary_Loop
05a0 e402 | | Load 0x2,0x2
05a1 0c01 | | Execute_Immediate Greater_Equal,0x1
05a2 77e1 |w | Jump_Nonzero 0x584
05a3 4504 |E | Exit_Subprogram 0x4
05a4 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05b9 | | .CONST 0x05b9 ; Address of begin
05a9 0004 | | .CONST 0x0004 ; Address of exception handler
05aa 0006 | | .CONST 0x0006 ; Number of locals
05ab INIT_05a8:
05ab 00da | | Load_Top At_Offset_2
05ac 0217 | | Execute Heap_Access,All_Reference
05ad 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
05ae 00e1 | | Load_Encached Boolean_Cache
05af 03f1 | | Declare_Variable Discrete,With_Value
05b0 e5fe | | Load 0x2,-0x2
05b1 0217 | | Execute Heap_Access,All_Reference
05b2 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
05b3 00e1 | | Load_Encached Boolean_Cache
05b4 03f1 | | Declare_Variable Discrete,With_Value
05b5 00e2 | | Load_Encached Integer_Cache
05b6 00e2 | | Load_Encached Integer_Cache
05b7 e00a | | Load 0x0,0xa
05b8 0337 | 7 | Declare_Variable Array
05b9 BODY_05a8:
05b9 e402 | | Load 0x2,0x2
05ba 7008 |p | Jump_Nonzero 0x5c3
05bb e5ff | | Load 0x2,-0x1
05bc 0219 | | Execute Heap_Access,All_Read
05bd 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
05be 00d8 | | Load_Top At_Offset_0
05bf 4800 |H | Short_Literal 0x0
05c0 e5ff | | Load 0x2,-0x1
05c1 8215 | | Call 0x1,0x15
05c2 00d2 | | Pop_Control Pop_Count_2
05c3 00db | | Load_Top At_Offset_3
05c4 7008 |p | Jump_Nonzero 0x5cd
05c5 e5ff | | Load 0x2,-0x1
05c6 0219 | | Execute Heap_Access,All_Read
05c7 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
05c8 00d8 | | Load_Top At_Offset_0
05c9 4800 |H | Short_Literal 0x0
05ca e5fe | | Load 0x2,-0x2
05cb 8215 | | Call 0x1,0x15
05cc 00d2 | | Pop_Control Pop_Count_2
05cd e5fe | | Load 0x2,-0x2
05ce 0217 | | Execute Heap_Access,All_Reference
05cf 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
05d0 e5ff | | Load 0x2,-0x1
05d1 0217 | | Execute Heap_Access,All_Reference
05d2 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
05d3 027c | | | Execute Discrete,Less
05d4 6805 |h | Jump_Zero 0x5da
05d5 e5fe | | Load 0x2,-0x2
05d6 0217 | | Execute Heap_Access,All_Reference
05d7 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
05d8 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
05d9 7804 |x | Jump 0x5de
05da e5ff | | Load 0x2,-0x1
05db 0217 | | Execute Heap_Access,All_Reference
05dc 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
05dd 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
05de 00da | | Load_Top At_Offset_2
05df a5fd | | Store_Unchecked 0x2,-0x3
05e0 e5ff | | Load 0x2,-0x1
05e1 0217 | | Execute Heap_Access,All_Reference
05e2 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
05e3 00db | | Load_Top At_Offset_3
05e4 0272 | r | Execute Discrete,Minus
05e5 e5ff | | Load 0x2,-0x1
05e6 0217 | | Execute Heap_Access,All_Reference
05e7 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
05e8 e5fe | | Load 0x2,-0x2
05e9 0217 | | Execute Heap_Access,All_Reference
05ea 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
05eb 00db | | Load_Top At_Offset_3
05ec 0272 | r | Execute Discrete,Minus
05ed e5fe | | Load 0x2,-0x2
05ee 0217 | | Execute Heap_Access,All_Reference
05ef 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
05f0 e5ff | | Load 0x2,-0x1
05f1 823b | ; | Call 0x1,0x3b
05f2 00cf | | Action Mark_Auxiliary
05f3 781d |x | Jump 0x611
05f4 e5ff | | Load 0x2,-0x1
05f5 0217 | | Execute Heap_Access,All_Reference
05f6 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
05f7 e5ff | | Load 0x2,-0x1
05f8 0217 | | Execute Heap_Access,All_Reference
05f9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05fa e238 | 8 | Load 0x1,0x38
05fb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05fc e5fe | | Load 0x2,-0x2
05fd 0217 | | Execute Heap_Access,All_Reference
05fe 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05ff e006 | | Load 0x0,0x6
0600 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0601 e5ff | | Load 0x2,-0x1
0602 0217 | | Execute Heap_Access,All_Reference
0603 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0604 e5ff | | Load 0x2,-0x1
0605 0217 | | Execute Heap_Access,All_Reference
0606 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0607 e238 | 8 | Load 0x1,0x38
0608 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0609 e5ff | | Load 0x2,-0x1
060a 0217 | | Execute Heap_Access,All_Reference
060b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
060c 00db | | Load_Top At_Offset_3
060d 4c00 |L | Short_Literal 0x400
060e 0273 | s | Execute Discrete,Plus
060f c404 | | Store 0x2,0x4
0610 00c9 | | Action Pop_Auxiliary_Loop
0611 00db | | Load_Top At_Offset_3
0612 6791 |g | Indirect_Literal Discrete,0x5a4,{0x00000000, 0x00000400}
0613 027b | { | Execute Discrete,Greater_Equal
0614 77df |w | Jump_Nonzero 0x5f4
0615 00ce | | Action Pop_Auxiliary
0616 00da | | Load_Top At_Offset_2
0617 0c01 | | Execute_Immediate Greater_Equal,0x1
0618 6821 |h! | Jump_Zero 0x63a
0619 00d8 | | Load_Top At_Offset_0
061a 4801 |H | Short_Literal 0x1
061b e404 | | Load 0x2,0x4
061c 00da | | Load_Top At_Offset_2
061d 035b | [ | Declare_Type Array,Constrained
061e 00d0 | | Action Swap_Control
061f 01cd | | Execute Vector,Slice_Reference
0620 e5ff | | Load 0x2,-0x1
0621 0219 | | Execute Heap_Access,All_Read
0622 00e3 | | Load_Encached Natural_Cache
0623 00da | | Load_Top At_Offset_2
0624 00da | | Load_Top At_Offset_2
0625 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0626 e5ff | | Load 0x2,-0x1
0627 0217 | | Execute Heap_Access,All_Reference
0628 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0629 e007 | | Load 0x0,0x7
062a 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
062b 180f | | Execute Package,Field_Execute,Field_Number 0xf
062c 00db | | Load_Top At_Offset_3
062d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
062e 00d1 | | Pop_Control Pop_Count_1
062f c405 | | Store 0x2,0x5
0630 00d2 | | Pop_Control Pop_Count_2
0631 4801 |H | Short_Literal 0x1
0632 00da | | Load_Top At_Offset_2
0633 00da | | Load_Top At_Offset_2
0634 01cf | | Execute Vector,Slice_Read
0635 e5fe | | Load 0x2,-0x2
0636 0217 | | Execute Heap_Access,All_Reference
0637 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0638 e006 | | Load 0x0,0x6
0639 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
063a e402 | | Load 0x2,0x2
063b 7002 |p | Jump_Nonzero 0x63e
063c e5ff | | Load 0x2,-0x1
063d 8217 | | Call 0x1,0x17
063e 00db | | Load_Top At_Offset_3
063f 7002 |p | Jump_Nonzero 0x642
0640 e5fe | | Load 0x2,-0x2
0641 8217 | | Call 0x1,0x17
0642 4503 |E | Exit_Subprogram 0x3
0643 0000 0000 | | .BLANK 0000[0x5]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064b | K | .CONST 0x064b ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0001 | | .CONST 0x0001 ; Number of locals
064b BODY_0648:
064b INIT_0648:
064b 4601 |F | Jump_Case 0x1
064c 7801 |x | Jump 0x64e ; case 0x0
064d 7804 |x | Jump 0x652 ; case 0x1
064e 00da | | Load_Top At_Offset_2
064f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0650 1c00 | | Execute_Immediate Run_Utility,0x0
0651 4302 |C | Exit_Subprogram From_Utility,0x2
0652 00da | | Load_Top At_Offset_2
0653 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0654 1c01 | | Execute_Immediate Run_Utility,0x1
0655 4302 |C | Exit_Subprogram From_Utility,0x2
0656 0000 0000 | | .XXX[0x2]
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b | [ | .CONST 0x065b ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0001 | | .CONST 0x0001 ; Number of locals
065b BODY_0658:
065b INIT_0658:
065b 4601 |F | Jump_Case 0x1
065c 7801 |x | Jump 0x65e ; case 0x0
065d 7816 |x | Jump 0x674 ; case 0x1
065e 00da | | Load_Top At_Offset_2
065f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0660 0125 | % | Execute Any,Set_Constraint
0661 00da | | Load_Top At_Offset_2
0662 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0663 1c00 | | Execute_Immediate Run_Utility,0x0
0664 00da | | Load_Top At_Offset_2
0665 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0666 0125 | % | Execute Any,Set_Constraint
0667 00da | | Load_Top At_Offset_2
0668 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0669 1c00 | | Execute_Immediate Run_Utility,0x0
066a 00da | | Load_Top At_Offset_2
066b 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
066c 0125 | % | Execute Any,Set_Constraint
066d 00da | | Load_Top At_Offset_2
066e 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
066f 1c00 | | Execute_Immediate Run_Utility,0x0
0670 00da | | Load_Top At_Offset_2
0671 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0672 1c00 | | Execute_Immediate Run_Utility,0x0
0673 4302 |C | Exit_Subprogram From_Utility,0x2
0674 00da | | Load_Top At_Offset_2
0675 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0676 1c01 | | Execute_Immediate Run_Utility,0x1
0677 4302 |C | Exit_Subprogram From_Utility,0x2
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 068c | | .CONST 0x068c ; Address of begin
0679 0004 | | .CONST 0x0004 ; Address of exception handler
067a 0005 | | .CONST 0x0005 ; Number of locals
067b INIT_0678:
067b e22d | - | Load 0x1,0x2d
067c 0322 | " | Declare_Variable Record
067d 00d8 | | Load_Top At_Offset_0
067e 1c00 | | Execute_Immediate Run_Utility,0x0
067f e00e | | Load 0x0,0xe
0680 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0681 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0682 02c7 | | Declare_Variable Any
0683 00d8 | | Load_Top At_Offset_0
0684 1c00 | | Execute_Immediate Run_Utility,0x0
0685 e00e | | Load 0x0,0xe
0686 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0687 02ff | | Declare_Variable Variant_Record
0688 00d8 | | Load_Top At_Offset_0
0689 1c00 | | Execute_Immediate Run_Utility,0x0
068a e00e | | Load 0x0,0xe
068b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
068c BODY_0678:
068c e5ff | | Load 0x2,-0x1
068d 0217 | | Execute Heap_Access,All_Reference
068e 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
068f 6858 |hX | Jump_Zero 0x6e8
0690 e5ff | | Load 0x2,-0x1
0691 0217 | | Execute Heap_Access,All_Reference
0692 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0693 e006 | | Load 0x0,0x6
0694 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0695 00da | | Load_Top At_Offset_2
0696 016d | m | Execute Variant_Record,Structure_Write
0697 e00e | | Load 0x0,0xe
0698 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0699 00db | | Load_Top At_Offset_3
069a 0120 | | Execute Any,Is_Value
069b 6804 |h | Jump_Zero 0x6a0
069c e00e | | Load 0x0,0xe
069d 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
069e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
069f 7801 |x | Jump 0x6a1
06a0 00db | | Load_Top At_Offset_3
06a1 605e |`^ | Indirect_Literal Discrete,0x700,{0x00000000, 0x00004000}
06a2 e5ff | | Load 0x2,-0x1
06a3 0217 | | Execute Heap_Access,All_Reference
06a4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06a5 e006 | | Load 0x0,0x6
06a6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
06a7 e404 | | Load 0x2,0x4
06a8 e00e | | Load 0x0,0xe
06a9 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
06aa 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06ab c403 | | Store 0x2,0x3
06ac 0059 | Y | Store_Top Discrete,At_Offset_1
06ad 481e |H | Short_Literal 0x1e
06ae 00da | | Load_Top At_Offset_2
06af e00e | | Load 0x0,0xe
06b0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
06b1 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
06b2 e012 | | Load 0x0,0x12
06b3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06b4 e5ff | | Load 0x2,-0x1
06b5 0217 | | Execute Heap_Access,All_Reference
06b6 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06b7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
06b8 00da | | Load_Top At_Offset_2
06b9 e00e | | Load 0x0,0xe
06ba 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
06bb 181d | | Execute Package,Field_Execute,Field_Number 0x1d
06bc 0a07 | | Execute_Immediate Plus,0x7
06bd 09fd | | Execute_Immediate Binary_Scale,-0x3
06be 00d8 | | Load_Top At_Offset_0
06bf 00e2 | | Load_Encached Integer_Cache
06c0 0260 | ` | Execute Discrete,In_Type
06c1 7001 |p | Jump_Nonzero 0x6c3
06c2 0801 | | Execute_Immediate Raise,0x1
06c3 0aef | | Execute_Immediate Plus,-0x11
06c4 e5ff | | Load 0x2,-0x1
06c5 0217 | | Execute Heap_Access,All_Reference
06c6 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06c7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
06c8 4800 |H | Short_Literal 0x0
06c9 e5ff | | Load 0x2,-0x1
06ca 0217 | | Execute Heap_Access,All_Reference
06cb 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06cc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
06cd 4800 |H | Short_Literal 0x0
06ce e5ff | | Load 0x2,-0x1
06cf 0217 | | Execute Heap_Access,All_Reference
06d0 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06d1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
06d2 00da | | Load_Top At_Offset_2
06d3 e00e | | Load 0x0,0xe
06d4 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
06d5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06d6 e5ff | | Load 0x2,-0x1
06d7 0217 | | Execute Heap_Access,All_Reference
06d8 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06d9 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
06da 4f9d |O | Short_Literal 0x79d
06db e5ff | | Load 0x2,-0x1
06dc 0217 | | Execute Heap_Access,All_Reference
06dd 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06de 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
06df 4801 |H | Short_Literal 0x1
06e0 e5ff | | Load 0x2,-0x1
06e1 0217 | | Execute Heap_Access,All_Reference
06e2 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
06e3 4800 |H | Short_Literal 0x0
06e4 e5ff | | Load 0x2,-0x1
06e5 0217 | | Execute Heap_Access,All_Reference
06e6 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
06e7 4502 |E | Exit_Subprogram 0x2
06e8 00db | | Load_Top At_Offset_3
06e9 e5ff | | Load 0x2,-0x1
06ea 0217 | | Execute Heap_Access,All_Reference
06eb 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
06ec e22e | . | Load 0x1,0x2e
06ed 181f | | Execute Package,Field_Execute,Field_Number 0x1f
06ee 00d1 | | Pop_Control Pop_Count_1
06ef 00db | | Load_Top At_Offset_3
06f0 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
06f1 e5ff | | Load 0x2,-0x1
06f2 0217 | | Execute Heap_Access,All_Reference
06f3 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
06f4 00db | | Load_Top At_Offset_3
06f5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06f6 e5ff | | Load 0x2,-0x1
06f7 0217 | | Execute Heap_Access,All_Reference
06f8 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
06f9 00db | | Load_Top At_Offset_3
06fa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06fb e5ff | | Load 0x2,-0x1
06fc 0217 | | Execute Heap_Access,All_Reference
06fd 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
06fe 4502 |E | Exit_Subprogram 0x2
06ff 0000 | | .XXX[0x1]
0700 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0704 0000 0000 | | .BLANK 0000[0x4]
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 070b | | .CONST 0x070b ; Address of begin
0709 0004 | | .CONST 0x0004 ; Address of exception handler
070a 0001 | | .CONST 0x0001 ; Number of locals
070b BODY_0708:
070b INIT_0708:
070b 00da | | Load_Top At_Offset_2
070c 8230 | 0 | Call 0x1,0x30
070d 00da | | Load_Top At_Offset_2
070e 0217 | | Execute Heap_Access,All_Reference
070f 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0710 0320 | | Declare_Variable Record,Duplicate
0711 00cd | | Action Spare6_Action
0712 4401 |D | Exit_Subprogram With_Result,0x1
0713 0000 0000 | | .BLANK 0000[0x5]
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 071b | | .CONST 0x071b ; Address of begin
0719 0004 | | .CONST 0x0004 ; Address of exception handler
071a 0001 | | .CONST 0x0001 ; Number of locals
071b BODY_0718:
071b INIT_0718:
071b 00da | | Load_Top At_Offset_2
071c 0217 | | Execute Heap_Access,All_Reference
071d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
071e 0a01 | | Execute_Immediate Plus,0x1
071f 00db | | Load_Top At_Offset_3
0720 0217 | | Execute Heap_Access,All_Reference
0721 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0722 00da | | Load_Top At_Offset_2
0723 0217 | | Execute Heap_Access,All_Reference
0724 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0725 00db | | Load_Top At_Offset_3
0726 0217 | | Execute Heap_Access,All_Reference
0727 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0728 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0729 0273 | s | Execute Discrete,Plus
072a 00db | | Load_Top At_Offset_3
072b 0217 | | Execute Heap_Access,All_Reference
072c 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
072d 00db | | Load_Top At_Offset_3
072e 00db | | Load_Top At_Offset_3
072f 0217 | | Execute Heap_Access,All_Reference
0730 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0731 e22d | - | Load 0x1,0x2d
0732 0322 | " | Declare_Variable Record
0733 00d8 | | Load_Top At_Offset_0
0734 1c01 | | Execute_Immediate Run_Utility,0x1
0735 00db | | Load_Top At_Offset_3
0736 0217 | | Execute Heap_Access,All_Reference
0737 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0738 00d9 | | Load_Top At_Offset_1
0739 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
073a 00db | | Load_Top At_Offset_3
073b 0217 | | Execute Heap_Access,All_Reference
073c 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
073d 00d9 | | Load_Top At_Offset_1
073e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
073f e5fe | | Load 0x2,-0x2
0740 00d9 | | Load_Top At_Offset_1
0741 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0742 00db | | Load_Top At_Offset_3
0743 0217 | | Execute Heap_Access,All_Reference
0744 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0745 e22e | . | Load 0x1,0x2e
0746 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0747 4503 |E | Exit_Subprogram 0x3
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 074b | K | .CONST 0x074b ; Address of begin
0749 0004 | | .CONST 0x0004 ; Address of exception handler
074a 0001 | | .CONST 0x0001 ; Number of locals
074b BODY_0748:
074b INIT_0748:
074b 00da | | Load_Top At_Offset_2
074c 0217 | | Execute Heap_Access,All_Reference
074d 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
074e e22e | . | Load 0x1,0x2e
074f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0750 4801 |H | Short_Literal 0x1
0751 4802 |H | Short_Literal 0x2
0752 0262 | b | Execute Discrete,In_Range
0753 700b |p | Jump_Nonzero 0x75f
0754 7800 |x | Jump 0x755
0755 00da | | Load_Top At_Offset_2
0756 0219 | | Execute Heap_Access,All_Read
0757 00d8 | | Load_Top At_Offset_0
0758 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0759 4801 |H | Short_Literal 0x1
075a e22e | . | Load 0x1,0x2e
075b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
075c 00d9 | | Load_Top At_Offset_1
075d 380a |8 | Execute Record,Field_Write,Field_Number 0xa
075e 00d1 | | Pop_Control Pop_Count_1
075f 00da | | Load_Top At_Offset_2
0760 0217 | | Execute Heap_Access,All_Reference
0761 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0762 0274 | t | Execute Discrete,Absolute_Value
0763 00d8 | | Load_Top At_Offset_0
0764 e22e | . | Load 0x1,0x2e
0765 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0766 0260 | ` | Execute Discrete,In_Type
0767 7001 |p | Jump_Nonzero 0x769
0768 0801 | | Execute_Immediate Raise,0x1
0769 e22d | - | Load 0x1,0x2d
076a 0322 | " | Declare_Variable Record
076b 00d8 | | Load_Top At_Offset_0
076c 1c01 | | Execute_Immediate Run_Utility,0x1
076d e5ff | | Load 0x2,-0x1
076e 0217 | | Execute Heap_Access,All_Reference
076f 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0770 00d9 | | Load_Top At_Offset_1
0771 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0772 e5ff | | Load 0x2,-0x1
0773 0217 | | Execute Heap_Access,All_Reference
0774 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0775 00d9 | | Load_Top At_Offset_1
0776 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0777 e5ff | | Load 0x2,-0x1
0778 0217 | | Execute Heap_Access,All_Reference
0779 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
077a 00d9 | | Load_Top At_Offset_1
077b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
077c e5ff | | Load 0x2,-0x1
077d 0217 | | Execute Heap_Access,All_Reference
077e 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
077f e22e | . | Load 0x1,0x2e
0780 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0781 4502 |E | Exit_Subprogram 0x2
0782 0000 0000 | | .BLANK 0000[0x6]
0788 ; --------------------------------------------------------------------------------------
0788 ; SUBPROGRAM
0788 ; --------------------------------------------------------------------------------------
0788 0791 | | .CONST 0x0791 ; Address of begin
0789 0004 | | .CONST 0x0004 ; Address of exception handler
078a 0003 | | .CONST 0x0003 ; Number of locals
078b INIT_0788:
078b e5fd | | Load 0x2,-0x3
078c 0092 09d1 | | Action Push_String_Extended,0x9d1 ; ".Toc"
078e 01cc | | Execute Vector,Catenate
078f 029f 09b3 | | Declare_Subprogram For_Call,INIT_09b0
0791 BODY_0788:
0791 4800 |H | Short_Literal 0x0
0792 e5ff | | Load 0x2,-0x1
0793 0217 | | Execute Heap_Access,All_Reference
0794 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0795 4800 |H | Short_Literal 0x0
0796 e5ff | | Load 0x2,-0x1
0797 0217 | | Execute Heap_Access,All_Reference
0798 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0799 8014 | | Call 0x0,0x14
079a e5ff | | Load 0x2,-0x1
079b 0217 | | Execute Heap_Access,All_Reference
079c 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
079d 4800 |H | Short_Literal 0x0
079e e5ff | | Load 0x2,-0x1
079f 0217 | | Execute Heap_Access,All_Reference
07a0 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
07a1 e5fe | | Load 0x2,-0x2
07a2 4602 |F | Jump_Case 0x2
07a3 7836 |x6 | Jump 0x7da ; case 0x0
07a4 7837 |x7 | Jump 0x7dc ; case 0x1
07a5 7800 |x | Jump 0x7a6 ; case 0x2
07a6 e5ff | | Load 0x2,-0x1
07a7 0219 | | Execute Heap_Access,All_Read
07a8 00d8 | | Load_Top At_Offset_0
07a9 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
07aa 00ea | | Load_Encached Null_String_Cache
07ab e402 | | Load 0x2,0x2
07ac 4802 |H | Short_Literal 0x2
07ad e22e | . | Load 0x1,0x2e
07ae 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07af 00d9 | | Load_Top At_Offset_1
07b0 380a |8 | Execute Record,Field_Write,Field_Number 0xa
07b1 00d1 | | Pop_Control Pop_Count_1
07b2 e5ff | | Load 0x2,-0x1
07b3 0217 | | Execute Heap_Access,All_Reference
07b4 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
07b5 e22e | . | Load 0x1,0x2e
07b6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
07b7 e5ff | | Load 0x2,-0x1
07b8 0217 | | Execute Heap_Access,All_Reference
07b9 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
07ba e5ff | | Load 0x2,-0x1
07bb 0217 | | Execute Heap_Access,All_Reference
07bc 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
07bd 0c01 | | Execute_Immediate Greater_Equal,0x1
07be 681a |h | Jump_Zero 0x7d9
07bf e5ff | | Load 0x2,-0x1
07c0 0217 | | Execute Heap_Access,All_Reference
07c1 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
07c2 00d8 | | Load_Top At_Offset_0
07c3 e22e | . | Load 0x1,0x2e
07c4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
07c5 0260 | ` | Execute Discrete,In_Type
07c6 7001 |p | Jump_Nonzero 0x7c8
07c7 0801 | | Execute_Immediate Raise,0x1
07c8 e5ff | | Load 0x2,-0x1
07c9 0217 | | Execute Heap_Access,All_Reference
07ca 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
07cb e22e | . | Load 0x1,0x2e
07cc 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
07cd e5ff | | Load 0x2,-0x1
07ce 8230 | 0 | Call 0x1,0x30
07cf e5ff | | Load 0x2,-0x1
07d0 0217 | | Execute Heap_Access,All_Reference
07d1 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
07d2 e5ff | | Load 0x2,-0x1
07d3 0217 | | Execute Heap_Access,All_Reference
07d4 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
07d5 0273 | s | Execute Discrete,Plus
07d6 e5ff | | Load 0x2,-0x1
07d7 0217 | | Execute Heap_Access,All_Reference
07d8 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
07d9 4504 |E | Exit_Subprogram 0x4
07da 8403 | | Call 0x2,0x3
07db 4504 |E | Exit_Subprogram 0x4
07dc e5ff | | Load 0x2,-0x1
07dd 0219 | | Execute Heap_Access,All_Read
07de 00d8 | | Load_Top At_Offset_0
07df 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
07e0 00ea | | Load_Encached Null_String_Cache
07e1 e402 | | Load 0x2,0x2
07e2 4802 |H | Short_Literal 0x2
07e3 e22e | . | Load 0x1,0x2e
07e4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
07e5 00d9 | | Load_Top At_Offset_1
07e6 380a |8 | Execute Record,Field_Write,Field_Number 0xa
07e7 00d1 | | Pop_Control Pop_Count_1
07e8 4504 |E | Exit_Subprogram 0x4
07e9 0000 0000 | | .BLANK 0000[0x7]
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 07f3 | | .CONST 0x07f3 ; Address of begin
07f1 0004 | | .CONST 0x0004 ; Address of exception handler
07f2 0001 | | .CONST 0x0001 ; Number of locals
07f3 BODY_07f0:
07f3 INIT_07f0:
07f3 4800 |H | Short_Literal 0x0
07f4 00db | | Load_Top At_Offset_3
07f5 0217 | | Execute Heap_Access,All_Reference
07f6 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
07f7 4800 |H | Short_Literal 0x0
07f8 00db | | Load_Top At_Offset_3
07f9 0217 | | Execute Heap_Access,All_Reference
07fa 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
07fb 8014 | | Call 0x0,0x14
07fc 00db | | Load_Top At_Offset_3
07fd 0217 | | Execute Heap_Access,All_Reference
07fe 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
07ff 00db | | Load_Top At_Offset_3
0800 4602 |F | Jump_Case 0x2
0801 7820 |x | Jump 0x822 ; case 0x0
0802 782a |x* | Jump 0x82d ; case 0x1
0803 7800 |x | Jump 0x804 ; case 0x2
0804 00da | | Load_Top At_Offset_2
0805 0219 | | Execute Heap_Access,All_Read
0806 00d8 | | Load_Top At_Offset_0
0807 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0808 4802 |H | Short_Literal 0x2
0809 e22e | . | Load 0x1,0x2e
080a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
080b 00d9 | | Load_Top At_Offset_1
080c 380a |8 | Execute Record,Field_Write,Field_Number 0xa
080d 00d1 | | Pop_Control Pop_Count_1
080e 00e2 | | Load_Encached Integer_Cache
080f 00db | | Load_Top At_Offset_3
0810 0217 | | Execute Heap_Access,All_Reference
0811 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0812 e22e | . | Load 0x1,0x2e
0813 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0814 0268 | h | Execute Discrete,Successor
0815 e22e | . | Load 0x1,0x2e
0816 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0817 00d9 | | Load_Top At_Offset_1
0818 00d0 | | Action Swap_Control
0819 0260 | ` | Execute Discrete,In_Type
081a 7001 |p | Jump_Nonzero 0x81c
081b 0801 | | Execute_Immediate Raise,0x1
081c 00db | | Load_Top At_Offset_3
081d 0217 | | Execute Heap_Access,All_Reference
081e 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
081f e22e | . | Load 0x1,0x2e
0820 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0821 4504 |E | Exit_Subprogram 0x4
0822 00da | | Load_Top At_Offset_2
0823 0219 | | Execute Heap_Access,All_Read
0824 00d8 | | Load_Top At_Offset_0
0825 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0826 4801 |H | Short_Literal 0x1
0827 e22e | . | Load 0x1,0x2e
0828 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0829 00d9 | | Load_Top At_Offset_1
082a 380a |8 | Execute Record,Field_Write,Field_Number 0xa
082b 00d1 | | Pop_Control Pop_Count_1
082c 4504 |E | Exit_Subprogram 0x4
082d 00da | | Load_Top At_Offset_2
082e 0219 | | Execute Heap_Access,All_Read
082f 00d8 | | Load_Top At_Offset_0
0830 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0831 4802 |H | Short_Literal 0x2
0832 e22e | . | Load 0x1,0x2e
0833 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0834 00d9 | | Load_Top At_Offset_1
0835 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0836 00d1 | | Pop_Control Pop_Count_1
0837 4504 |E | Exit_Subprogram 0x4
0838 ; --------------------------------------------------------------------------------------
0838 ; SUBPROGRAM
0838 ; --------------------------------------------------------------------------------------
0838 083b | ; | .CONST 0x083b ; Address of begin
0839 0004 | | .CONST 0x0004 ; Address of exception handler
083a 0001 | | .CONST 0x0001 ; Number of locals
083b BODY_0838:
083b INIT_0838:
083b 00da | | Load_Top At_Offset_2
083c 0217 | | Execute Heap_Access,All_Reference
083d 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
083e 7009 |p | Jump_Nonzero 0x848
083f 00da | | Load_Top At_Offset_2
0840 0219 | | Execute Heap_Access,All_Read
0841 00d8 | | Load_Top At_Offset_0
0842 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0843 e22e | . | Load 0x1,0x2e
0844 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0845 00d9 | | Load_Top At_Offset_1
0846 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0847 00d1 | | Pop_Control Pop_Count_1
0848 4502 |E | Exit_Subprogram 0x2
0849 0000 0000 | | .BLANK 0000[0x7]
0850 ; --------------------------------------------------------------------------------------
0850 ; SUBPROGRAM
0850 ; --------------------------------------------------------------------------------------
0850 0853 | S | .CONST 0x0853 ; Address of begin
0851 0004 | | .CONST 0x0004 ; Address of exception handler
0852 0001 | | .CONST 0x0001 ; Number of locals
0853 BODY_0850:
0853 INIT_0850:
0853 00da | | Load_Top At_Offset_2
0854 0217 | | Execute Heap_Access,All_Reference
0855 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0856 6805 |h | Jump_Zero 0x85c
0857 00da | | Load_Top At_Offset_2
0858 0217 | | Execute Heap_Access,All_Reference
0859 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
085a 0c01 | | Execute_Immediate Greater_Equal,0x1
085b 4401 |D | Exit_Subprogram With_Result,0x1
085c 00da | | Load_Top At_Offset_2
085d 0217 | | Execute Heap_Access,All_Reference
085e 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
085f e22e | . | Load 0x1,0x2e
0860 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0861 4401 |D | Exit_Subprogram With_Result,0x1
0862 0000 0000 | | .BLANK 0000[0x6]
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 087d | } | .CONST 0x087d ; Address of begin
0869 0004 | | .CONST 0x0004 ; Address of exception handler
086a 0006 | | .CONST 0x0006 ; Number of locals
086b INIT_0868:
086b e01a | | Load 0x0,0x1a
086c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
086d 02c7 | | Declare_Variable Any
086e 00d8 | | Load_Top At_Offset_0
086f 1c00 | | Execute_Immediate Run_Utility,0x0
0870 e00e | | Load 0x0,0xe
0871 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0872 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0873 e00e | | Load 0x0,0xe
0874 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0875 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0876 e00e | | Load 0x0,0xe
0877 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0878 e00e | | Load 0x0,0xe
0879 1b14 | | Execute Package,Field_Read,Field_Number 0x14
087a 02ff | | Declare_Variable Variant_Record
087b 00d8 | | Load_Top At_Offset_0
087c 1c00 | | Execute_Immediate Run_Utility,0x0
087d BODY_0868:
087d 4801 |H | Short_Literal 0x1
087e a5fc | | Store_Unchecked 0x2,-0x4
087f e007 | | Load 0x0,0x7
0880 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0881 e5fd | | Load 0x2,-0x3
0882 4800 |H | Short_Literal 0x0
0883 60b4 |` | Indirect_Literal Discrete,0x938,{0x00000000, 0x00004000}
0884 e00d | | Load 0x0,0xd
0885 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0886 e00b | | Load 0x0,0xb
0887 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0888 e00e | | Load 0x0,0xe
0889 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
088a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
088b 4800 |H | Short_Literal 0x0
088c e5ff | | Load 0x2,-0x1
088d e5fe | | Load 0x2,-0x2
088e e007 | | Load 0x0,0x7
088f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0890 c5fd | | Store 0x2,-0x3
0891 005a | Z | Store_Top Discrete,At_Offset_2
0892 00d9 | | Load_Top At_Offset_1
0893 460e |F | Jump_Case 0xe
0894 4503 |E | Exit_Subprogram 0x3 ; case 0x0
0895 780d |x | Jump 0x8a3 ; case 0x1
0896 780c |x | Jump 0x8a3 ; case 0x2
0897 780b |x | Jump 0x8a3 ; case 0x3
0898 780a |x | Jump 0x8a3 ; case 0x4
0899 7809 |x | Jump 0x8a3 ; case 0x5
089a 7808 |x | Jump 0x8a3 ; case 0x6
089b 7807 |x | Jump 0x8a3 ; case 0x7
089c 7806 |x | Jump 0x8a3 ; case 0x8
089d 781a |x | Jump 0x8b8 ; case 0x9
089e 7804 |x | Jump 0x8a3 ; case 0xa
089f 7803 |x | Jump 0x8a3 ; case 0xb
08a0 7802 |x | Jump 0x8a3 ; case 0xc
08a1 7801 |x | Jump 0x8a3 ; case 0xd
08a2 7800 |x | Jump 0x8a3 ; case 0xe
08a3 e00f | | Load 0x0,0xf
08a4 180e | | Execute Package,Field_Execute,Field_Number 0xe
08a5 4802 |H | Short_Literal 0x2
08a6 4829 |H) | Short_Literal 0x29
08a7 0092 09d2 | | Action Push_String_Extended,0x9d2 ; "Cannot resolve file name "
08a9 e5ff | | Load 0x2,-0x1
08aa 01cc | | Execute Vector,Catenate
08ab 0092 09cf | | Action Push_String_Extended,0x9cf ; " ("
08ad 01cc | | Execute Vector,Catenate
08ae e405 | | Load 0x2,0x5
08af e00e | | Load 0x0,0xe
08b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08b1 011c | | Execute Any,Convert_Unchecked
08b2 1c01 | | Execute_Immediate Run_Utility,0x1
08b3 01cc | | Execute Vector,Catenate
08b4 01cb | | Execute Vector,Append
08b5 e011 | | Load 0x0,0x11
08b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08b7 4503 |E | Exit_Subprogram 0x3
08b8 e5fe | | Load 0x2,-0x2
08b9 700c |p | Jump_Nonzero 0x8c6
08ba e00f | | Load 0x0,0xf
08bb 180e | | Execute Package,Field_Execute,Field_Number 0xe
08bc 4805 |H | Short_Literal 0x5
08bd 0092 09d3 | | Action Push_String_Extended,0x9d3 ; "Cannot find a file named "
08bf e5ff | | Load 0x2,-0x1
08c0 01cc | | Execute Vector,Catenate
08c1 e011 | | Load 0x0,0x11
08c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08c3 4800 |H | Short_Literal 0x0
08c4 a5fc | | Store_Unchecked 0x2,-0x4
08c5 4503 |E | Exit_Subprogram 0x3
08c6 e00e | | Load 0x0,0xe
08c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08c8 00f1 | | Load_Encached Diana_Temp_Seq
08c9 e00e | | Load 0x0,0xe
08ca 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
08cb 1b17 | | Execute Package,Field_Read,Field_Number 0x17
08cc e402 | | Load 0x2,0x2
08cd 0120 | | Execute Any,Is_Value
08ce 6803 |h | Jump_Zero 0x8d2
08cf e01a | | Load 0x0,0x1a
08d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08d1 7801 |x | Jump 0x8d3
08d2 e402 | | Load 0x2,0x2
08d3 e406 | | Load 0x2,0x6
08d4 6063 |`c | Indirect_Literal Discrete,0x938,{0x00000000, 0x00004000}
08d5 e00d | | Load 0x0,0xd
08d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08d7 4800 |H | Short_Literal 0x0
08d8 e00e | | Load 0x0,0xe
08d9 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
08da 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08db e00e | | Load 0x0,0xe
08dc 1815 | | Execute Package,Field_Execute,Field_Number 0x15
08dd 6056 |`V | Indirect_Literal Discrete,0x934,{0x00000000, 0x7fffffff}
08de 4ffc |O | Short_Literal 0x7fc
08df 4ffd |O | Short_Literal 0x7fd
08e0 e00b | | Load 0x0,0xb
08e1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
08e2 e00e | | Load 0x0,0xe
08e3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
08e4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
08e5 e00e | | Load 0x0,0xe
08e6 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
08e7 e007 | | Load 0x0,0x7
08e8 180f | | Execute Package,Field_Execute,Field_Number 0xf
08e9 e5ff | | Load 0x2,-0x1
08ea e00e | | Load 0x0,0xe
08eb 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
08ec 180f | | Execute Package,Field_Execute,Field_Number 0xf
08ed 00d1 | | Pop_Control Pop_Count_1
08ee c402 | | Store 0x2,0x2
08ef c403 | | Store 0x2,0x3
08f0 c404 | | Store 0x2,0x4
08f1 005a | Z | Store_Top Discrete,At_Offset_2
08f2 00d9 | | Load_Top At_Offset_1
08f3 6818 |h | Jump_Zero 0x90c
08f4 e00f | | Load 0x0,0xf
08f5 180e | | Execute Package,Field_Execute,Field_Number 0xe
08f6 4802 |H | Short_Literal 0x2
08f7 0092 09d4 | | Action Push_String_Extended,0x9d4 ; "Cannot create a file named "
08f9 e5ff | | Load 0x2,-0x1
08fa 01cc | | Execute Vector,Catenate
08fb 0092 09cf | | Action Push_String_Extended,0x9cf ; " ("
08fd 01cc | | Execute Vector,Catenate
08fe e405 | | Load 0x2,0x5
08ff e00e | | Load 0x0,0xe
0900 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0901 011c | | Execute Any,Convert_Unchecked
0902 1c01 | | Execute_Immediate Run_Utility,0x1
0903 01cc | | Execute Vector,Catenate
0904 0092 09d0 | | Action Push_String_Extended,0x9d0 ; ")"
0906 01cc | | Execute Vector,Catenate
0907 e011 | | Load 0x0,0x11
0908 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0909 4800 |H | Short_Literal 0x0
090a a5fc | | Store_Unchecked 0x2,-0x4
090b 4503 |E | Exit_Subprogram 0x3
090c e007 | | Load 0x0,0x7
090d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
090e 00d9 | | Load_Top At_Offset_1
090f e5fd | | Load 0x2,-0x3
0910 4801 |H | Short_Literal 0x1
0911 6026 |`& | Indirect_Literal Discrete,0x938,{0x00000000, 0x00004000}
0912 e00d | | Load 0x0,0xd
0913 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0914 e5fe | | Load 0x2,-0x2
0915 e007 | | Load 0x0,0x7
0916 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0917 c5fd | | Store 0x2,-0x3
0918 00d1 | | Pop_Control Pop_Count_1
0919 005a | Z | Store_Top Discrete,At_Offset_2
091a 00d9 | | Load_Top At_Offset_1
091b 6814 |h | Jump_Zero 0x930
091c e00f | | Load 0x0,0xf
091d 180e | | Execute Package,Field_Execute,Field_Number 0xe
091e 4802 |H | Short_Literal 0x2
091f 4829 |H) | Short_Literal 0x29
0920 0092 09d5 | | Action Push_String_Extended,0x9d5 ; "Cannot open file "
0922 e5ff | | Load 0x2,-0x1
0923 01cc | | Execute Vector,Catenate
0924 0092 09cf | | Action Push_String_Extended,0x9cf ; " ("
0926 01cc | | Execute Vector,Catenate
0927 e405 | | Load 0x2,0x5
0928 e00e | | Load 0x0,0xe
0929 1b0d | | Execute Package,Field_Read,Field_Number 0xd
092a 011c | | Execute Any,Convert_Unchecked
092b 1c01 | | Execute_Immediate Run_Utility,0x1
092c 01cc | | Execute Vector,Catenate
092d 01cb | | Execute Vector,Append
092e e011 | | Load 0x0,0x11
092f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0930 4503 |E | Exit_Subprogram 0x3
0931 0000 0000 | | .XXX[0x3]
0933 0000 | |
0934 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0938 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
093c 0000 0000 | | .BLANK 0000[0x4]
0940 ; --------------------------------------------------------------------------------------
0940 ; SUBPROGRAM
0940 ; --------------------------------------------------------------------------------------
0940 0943 | C | .CONST 0x0943 ; Address of begin
0941 0004 | | .CONST 0x0004 ; Address of exception handler
0942 0001 | | .CONST 0x0001 ; Number of locals
0943 BODY_0940:
0943 INIT_0940:
0943 e007 | | Load 0x0,0x7
0944 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0945 e007 | | Load 0x0,0x7
0946 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0947 00db | | Load_Top At_Offset_3
0948 0217 | | Execute Heap_Access,All_Reference
0949 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
094a 0903 | | Execute_Immediate Binary_Scale,0x3
094b 0273 | s | Execute Discrete,Plus
094c e007 | | Load 0x0,0x7
094d 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
094e 00db | | Load_Top At_Offset_3
094f 0217 | | Execute Heap_Access,All_Reference
0950 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0951 4502 |E | Exit_Subprogram 0x2
0952 0000 0000 | | .BLANK 0000[0x6]
0958 ; --------------------------------------------------------------------------------------
0958 ; SUBPROGRAM
0958 ; --------------------------------------------------------------------------------------
0958 095c | \ | .CONST 0x095c ; Address of begin
0959 0004 | | .CONST 0x0004 ; Address of exception handler
095a 0002 | | .CONST 0x0002 ; Number of locals
095b INIT_0958:
095b 00e1 | | Load_Encached Boolean_Cache
095c BODY_0958:
095c 00db | | Load_Top At_Offset_3
095d 0217 | | Execute Heap_Access,All_Reference
095e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
095f e007 | | Load 0x0,0x7
0960 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0961 702a |p* | Jump_Nonzero 0x98c
0962 00db | | Load_Top At_Offset_3
0963 0217 | | Execute Heap_Access,All_Reference
0964 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0965 6811 |h | Jump_Zero 0x977
0966 00db | | Load_Top At_Offset_3
0967 0219 | | Execute Heap_Access,All_Read
0968 00e1 | | Load_Encached Boolean_Cache
0969 00d9 | | Load_Top At_Offset_1
096a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
096b 4800 |H | Short_Literal 0x0
096c e5ff | | Load 0x2,-0x1
096d 0217 | | Execute Heap_Access,All_Reference
096e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
096f e006 | | Load 0x0,0x6
0970 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0971 8239 | 9 | Call 0x1,0x39
0972 00da | | Load_Top At_Offset_2
0973 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0974 005a | Z | Store_Top Discrete,At_Offset_2
0975 00d1 | | Pop_Control Pop_Count_1
0976 7813 |x | Jump 0x98a
0977 00db | | Load_Top At_Offset_3
0978 0219 | | Execute Heap_Access,All_Read
0979 00e1 | | Load_Encached Boolean_Cache
097a 00d9 | | Load_Top At_Offset_1
097b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
097c 4800 |H | Short_Literal 0x0
097d e5ff | | Load 0x2,-0x1
097e 0217 | | Execute Heap_Access,All_Reference
097f 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0980 e22e | . | Load 0x1,0x2e
0981 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0982 e00e | | Load 0x0,0xe
0983 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0984 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0985 8239 | 9 | Call 0x1,0x39
0986 00da | | Load_Top At_Offset_2
0987 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0988 005a | Z | Store_Top Discrete,At_Offset_2
0989 00d1 | | Pop_Control Pop_Count_1
098a 00db | | Load_Top At_Offset_3
098b 823a | : | Call 0x1,0x3a
098c 4502 |E | Exit_Subprogram 0x2
098d 0000 0000 | | .XXX[0x3]
098f 0000 | |
0990 ; --------------------------------------------------------------------------------------
0990 ; SUBPROGRAM
0990 ; --------------------------------------------------------------------------------------
0990 0998 | | .CONST 0x0998 ; Address of begin
0991 0004 | | .CONST 0x0004 ; Address of exception handler
0992 0002 | | .CONST 0x0002 ; Number of locals
0993 INIT_0990:
0993 4801 |H | Short_Literal 0x1
0994 e404 | | Load 0x2,0x4
0995 00e9 | | Load_Encached String_Cache
0996 035b | [ | Declare_Type Array,Constrained
0997 0337 | 7 | Declare_Variable Array
0998 BODY_0990:
0998 00e3 | | Load_Encached Natural_Cache
0999 00d9 | | Load_Top At_Offset_1
099a e402 | | Load 0x2,0x2
099b e5ff | | Load 0x2,-0x1
099c 0217 | | Execute Heap_Access,All_Reference
099d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
099e e007 | | Load 0x0,0x7
099f 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
09a0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
09a1 c402 | | Store 0x2,0x2
09a2 00d1 | | Pop_Control Pop_Count_1
09a3 c404 | | Store 0x2,0x4
09a4 00d8 | | Load_Top At_Offset_0
09a5 00e9 | | Load_Encached String_Cache
09a6 01c6 | | Execute Vector,Convert_To_Formal
09a7 00cb | | Action Pop_Block_With_Result
09a8 4401 |D | Exit_Subprogram With_Result,0x1
09a9 0000 0000 | | .BLANK 0000[0x7]
09b0 ; --------------------------------------------------------------------------------------
09b0 ; SUBPROGRAM
09b0 ; --------------------------------------------------------------------------------------
09b0 09b3 | | .CONST 0x09b3 ; Address of begin
09b1 09bf | | .CONST 0x09bf ; Address of exception handler
09b2 0001 | | .CONST 0x0001 ; Number of locals
09b3 BODY_09b0:
09b3 INIT_09b0:
09b3 e5ff | | Load 0x2,-0x1
09b4 0219 | | Execute Heap_Access,All_Read
09b5 00d8 | | Load_Top At_Offset_0
09b6 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
09b7 00ea | | Load_Encached Null_String_Cache
09b8 e402 | | Load 0x2,0x2
09b9 4800 |H | Short_Literal 0x0
09ba e22e | . | Load 0x1,0x2e
09bb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
09bc 00d9 | | Load_Top At_Offset_1
09bd 380a |8 | Execute Record,Field_Write,Field_Number 0xa
09be 4501 |E | Exit_Subprogram 0x1
09bf TRAP_09b0:
09bf 00d8 | | Load_Top At_Offset_0
09c0 0107 | | Execute Exception,Get_Name
09c1 4920 |I | Short_Literal 0x120
09c2 492f |I/ | Short_Literal 0x12f
09c3 0262 | b | Execute Discrete,In_Range
09c4 6805 |h | Jump_Zero 0x9ca
09c5 4801 |H | Short_Literal 0x1
09c6 e5ff | | Load 0x2,-0x1
09c7 0217 | | Execute Heap_Access,All_Reference
09c8 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
09c9 4501 |E | Exit_Subprogram 0x1
09ca 0100 | | Execute Exception,Raise
09cb ; --------------------------------------------------------------------------------------
09cb ; STRING TABLE
09cb ; --------------------------------------------------------------------------------------
09cb 0018 | | .STRTAB 0x0018->0x09d7 ; "READ"
09cc 001a | | .STRTAB 0x001a->0x09d9 ; "WRITE"
09cd 001d | | .STRTAB 0x001d->0x09db ; "APPEND"
09ce 0021 | ! | .STRTAB 0x0021->0x09de ; "Cannot open "
09cf 002b | + | .STRTAB 0x002b->0x09e4 ; " ("
; " ("
; " ("
; " ("
09d0 002b | + | .STRTAB 0x002b->0x09e5 ; ")"
; ")"
09d1 002a | * | .STRTAB 0x002a->0x09e6 ; ".Toc"
09d2 002c | , | .STRTAB 0x002c->0x09e8 ; "Cannot resolve file name "
09d3 0043 | C | .STRTAB 0x0043->0x09f4 ; "Cannot find a file named "
09d4 005a | Z | .STRTAB 0x005a->0x0a01 ; "Cannot create a file named "
09d5 0073 | s | .STRTAB 0x0073->0x0a0e ; "Cannot open file "
09d6 0082 | | .STREND 0x0082->0x0a17
09d7 5245 4144 |READ| .STRTAB_STRINGS
0a17 0000 | | .XXX[0x1]
0a18 ; --------------------------------------------------------------------------------------
0a18 ; Debug Table
0a18 ; --------------------------------------------------------------------------------------
0a18 0004 0011 | | .DEBUG4 0x0004,0x0011,0xf21b,0x0000,0x0001,0x0000
0a1e 0000 0000 | | .BLANK 0000[0x12]
0a30 0004 0000 | | .XXX[0x4]
0a32 204f bbf0 | O |
0a34 0000 0000 | | .BLANK 0000[0x1cc]