1/*
2 * Some or all of this work - Copyright (c) 2006 - 2021, Intel Corp.
3 * All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without modification,
6 * are permitted provided that the following conditions are met:
7 *
8 * Redistributions of source code must retain the above copyright notice,
9 * this list of conditions and the following disclaimer.
10 * Redistributions in binary form must reproduce the above copyright notice,
11 * this list of conditions and the following disclaimer in the documentation
12 * and/or other materials provided with the distribution.
13 * Neither the name of Intel Corporation nor the names of its contributors
14 * may be used to endorse or promote products derived from this software
15 * without specific prior written permission.
16 *
17 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
18 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
19 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
21 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
22 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
23 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
25 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
26 * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27 */
28
29/*
30 * Methods of common use.
31 *
32 * Note: writing to the global objects - nm03, pd12 and pd13 forces
33 * outstanding allocation reports.
34 */
35
36Name(id26, 8)
37Name(nm03, 0)
38Name(pd12, Package(Multiply(id26, 2)) {})
39Name(pd13, Package(Multiply(id26, 2)) {})
40
41
42/*
43 * AcpiExec doesn't run the unload of the table have been processed.
44 * Because of that the global objects are not forced to release. Thus,
45 * if nm03, pd12 or pd13 were rewritten by the new objects during the
46 * testing the outstanding allocations are reported.
47 *
48 * To get this known case of outstanding reports the same predictable
49 * view this method could be used after completion of testing to rewrite
50 * nm03, pd12 and pd13 with the same values.
51 *
52 * Nevertheless, these outstandings should be discussed and probably
53 * eliminated by updating of AcpiExec (unload the table).
54 */
55Method(mfe8)
56{
57	mfe7(pd12, Multiply(id26, 2))
58	mfe7(pd13, Multiply(id26, 2))
59
60	Store(0, nm03)
61}
62
63/*
64 * arg0 - Package
65 * arg1 - number of elements in arg0
66 */
67Method(mfe7, 2, Serialized)
68{
69	Name(lpN0, 0)
70	Name(lpC0, 0)
71
72	Store(arg1, lpN0)
73	Store(0, lpC0)
74
75	While (lpN0) {
76
77		Store(0, Index(arg0, lpC0))
78
79		Decrement(lpN0)
80		Increment(lpC0)
81	}
82}
83
84/*
85 * Initializing the Package with the monotone increasing Integers.
86 *
87 * arg0 - Package
88 * arg1 - index of first element to be initialized
89 * arg2 - number of elements to be initialized
90 * arg3 - value to be written into first element (+1 for other)
91 */
92Method(mfc7, 4)
93{
94	While (arg2) {
95
96		Store(arg3, Index(arg0, arg1))
97
98		Increment(arg1)
99		Increment(arg3)
100
101		Decrement(arg2)
102	}
103}
104
105/*
106 * Initializing the Package with the same Integer.
107 *
108 * arg0 - Package
109 * arg1 - index of first element to be initialized
110 * arg2 - number of elements to be initialized
111 * arg3 - value to be written
112 */
113Method(mfcd, 4)
114{
115	While (arg2) {
116
117		Store(arg3, Index(arg0, arg1))
118		Increment(arg1)
119
120		Decrement(arg2)
121	}
122}
123
124/*
125 * Initializing the Package with IRefs.
126 *
127 * arg0 - (Package), IRefs to elements of this Package
128 * arg1 - (Package), are stored into elements of this Package.
129 * arg2 - first element inside arg0
130 * arg3 - first element inside arg1
131 * arg4 - number of elements to be initialized
132 * arg5 - opcode of additional assignments of References (0-12):
133 *        - none
134 *        - to NamedX
135 *        - to LocalX
136 *        - to ArgX
137 *
138 *          Store(Index(arg0, arg2[, X0]), Index(arg1, arg3[, X1]))
139 *
140 *   X0       X1
141 *
142 *   none   , none
143 *   LocalX , none
144 *   ArgX   , none
145 *   none   , LocalX
146 *   LocalX , LocalX
147 *   ArgX   , LocalX
148 *   none   , ArgX
149 *   LocalX , ArgX
150 *  (ArgX   , ArgX) - not enough arg-variables for this
151 *
152 *   ************* exceptions:
153 *   NamedX , none
154 *   NamedX , LocalX
155 *   NamedX , ArgX
156 *   none   , NamedX
157 *   NamedX , NamedX
158 *   LocalX , NamedX
159 *   ArgX   , NamedX
160 *
161 * arg6 - for auxiliary usage
162 */
163Method(mfc8, 7, Serialized)
164{
165	Name(i000, 0)
166	Name(i001, 0)
167
168	While (arg4) {
169
170		Switch (ToInteger (arg5)) {
171
172			/* (none, none) */
173
174		Case (0) {
175			Store(Index(arg0, arg2), Index(arg1, arg3))
176		}
177
178			/* (LocalX, none) */
179
180		Case (1) {
181			Index(arg0, arg2, Local0)
182			Store(Local0, Index(arg1, arg3))
183		}
184		Case (2) {
185			Store(Index(arg0, arg2, Local0), Index(arg1, arg3))
186		}
187
188			/* (ArgX, none) */
189
190		Case (3) {
191			Index(arg0, arg2, arg6)
192			Store(arg6, Index(arg1, arg3))
193		}
194		Case (4) {
195			Store(Index(arg0, arg2, arg6), Index(arg1, arg3))
196		}
197
198			/* (none, LocalX) */
199
200		Case (5) {
201			Store(Index(arg0, arg2), Index(arg1, arg3, Local0))
202		}
203
204			/* (LocalX, LocalX) */
205
206		Case (6) {
207			Index(arg0, arg2, Local0)
208			Store(Local0, Index(arg1, arg3, Local1))
209		}
210		Case (7) {
211			Store(Index(arg0, arg2, Local0), Index(arg1, arg3, Local1))
212		}
213
214			/* (ArgX, LocalX) */
215
216		Case (8) {
217			Index(arg0, arg2, arg6)
218			Store(arg6, Index(arg1, arg3, Local1))
219		}
220		Case (9) {
221			Store(Index(arg0, arg2, arg6), Index(arg1, arg3, Local1))
222		}
223
224			/* (none, ArgX) */
225
226		Case (10) {
227			Store(Index(arg0, arg2), Index(arg1, arg3, arg6))
228		}
229
230			/* (LocalX, ArgX) */
231
232		Case (11) {
233			Index(arg0, arg2, Local0)
234			Store(Local0, Index(arg1, arg3, arg6))
235		}
236		Case (12) {
237			Store(Index(arg0, arg2, Local0), Index(arg1, arg3, arg6))
238		}
239
240			/* (ArgX, ArgX) */
241
242		Default {
243			/* (none, none) */
244			Store(Index(arg0, arg2), Index(arg1, arg3))
245		}}
246
247		Increment(arg2)
248		Increment(arg3)
249
250		Decrement(arg4)
251	}
252}
253
254/*
255 * Pack parameters for mfc6
256 *
257 * arg0 - opcode of additional assignments of packages Pkg0 and Pkg1
258 * arg1 - different type of packages Pkg0 and Pkg1
259 * arg2 - different type access through the IRefs
260 * arg3 - what to do first
261 * arg4 - opcode of additional assignments of References
262 */
263Method(mfc9, 5)
264{
265	And(arg0, 0x0ff, Local0)
266	And(arg1, 0x0f, Local1)
267	And(arg2, 0x0f, Local2)
268	And(arg3, 0x0f, Local3)
269
270	ShiftLeft(Local1, 8, Local4)
271	ShiftLeft(Local2, 12, Local5)
272	ShiftLeft(Local3, 16, Local6)
273
274	Or(Local0, Local4, Local7)
275	Or(Local7, Local5, Local0)
276	Or(Local0, Local6, Local7)
277
278	And(arg4, 0x0f, Local0)
279	ShiftLeft(Local0, 20, Local1)
280	Or(Local1, Local7, Local0)
281
282	return (Local0)
283}
284
285/*
286 * Self references.
287 *
288 * Different type packages
289 *
290 * arg0 - Package P0
291 * arg1 - Package P1
292 *
293 * arg2 -
294 *
295
296 * 4. opcode of additional assignments of packages Pkg0 and Pkg1:
297 *        Pkg0 (LocalX or ArgX or NamedX)
298 *        Pkg1 (LocalX or ArgX or NamedX)
299 *
300 *        0       ,     ,       ;     ,     ,
301 *
302 *        1       ,     , Named0;     ,     , Named1
303 *        2       , Arg5,       ;     ,     , Named1
304 *        3   Loc4,     ,       ;     ,     , Named1
305 *        4       ,     , Named0;     , Arg6,
306 *        5       , Arg5,       ;     , Arg6,
307 *        6   Loc4,     ,       ;     , Arg6,
308 *        7       ,     , Named0; Loc5,     ,
309 *        8       , Arg5,       ; Loc5,     ,
310 *        9   Loc4,     ,       ; Loc5,     ,
311 *
312 *       10   Arg5              ; Arg5
313 *       11   Loc4              ; Loc4
314 *       12   Named0            ; Named0
315 *
316 *       13       ,     , Named0;     ,     ,
317 *       14       , Arg5,       ;     ,     ,
318 *       15   Loc4,     ,       ;     ,     ,
319 *       16       ,     ,       ;     ,     , Named1
320 *       17       ,     ,       ;     , Arg6,
321 *       18       ,     ,       ; Loc5,     ,
322
323
324 * 1. different type of packages Pkg0 and Pkg1:
325 *        Pkg0 (P0 or p000 or pd12)
326 *        Pkg1 (P1 or p001 or pd13)
327 *
328 *        0      ,     , pd12;   ,     , pd13
329 *        1      ,     , pd12;   , p001,
330 *        2      ,     , pd12; P1,     ,
331 *        3      , p000,     ;   ,     , pd13
332 *        4      , p000,     ;   , p001,
333 *        5      , p000,     ; P1,     ,
334 *        6    P0,     ,     ;   ,     , pd13
335 *        7    P0,     ,     ;   , p001,
336 *        8    P0,     ,     ; P1,     ,
337 *        9   p000           ; p000
338 *       10   pd12           ; pd12
339 *       11   P0             ; P0
340 *
341 * 2. different type access through the IRefs
342 *        1 - DerefOf()
343 *            DerefOf()
344 *        0 - DerefOf(DerefOf())
345 *
346 * 3. what to do first:
347 *        1 - initializing elements of Pkg to be then accessed by references
348 *        0 - or references to those elements.
349 *
350 *
351 * arg3 - reserved
352 * arg4 - reserved
353 *
354 * arg5 - for auxiliary usage (see comment to "additional assignments")
355 * arg6 - for auxiliary usage (see comment to "additional assignments")
356 */
357Method(mfc6, 7, Serialized)
358{
359	Name(pr00, 0)
360	Name(num, 0)		// half-size of Package
361	Name(i000, 0xabcd0000)	// value of the first element of Package
362	Name(i001, 0)
363	Name(targ, 0)
364
365	Name(b000, Buffer(1) {0})
366
367	Name(nm00, 0)
368
369	/* arg2 is divided to these */
370	Name(AR20, 0)
371	Name(AR21, 0)
372	Name(AR22, 0)
373	Name(AR23, 0)
374	Name(AR24, 0)
375
376	Name(lpN0, 0)
377	Name(lpC0, 0)
378
379	Store(id26, num)
380
381	Name(p000, Package(Multiply(num, 2)) {})
382	Name(p001, Package(Multiply(num, 2)) {})
383
384	CH03("", 0, 0x000, __LINE__, 0)
385
386
387	/* Unpack arg2 */
388
389	And(arg2, 0x0ff, AR23)
390
391	ShiftRight(arg2, 8, Local0)
392	And(Local0, 0x0f, AR20)
393
394	ShiftRight(arg2, 12, Local0)
395	And(Local0, 0x0f, AR21)
396
397	ShiftRight(arg2, 16, Local0)
398	And(Local0, 0x0f, AR22)
399
400	ShiftRight(arg2, 20, Local0)
401	And(Local0, 0x0f, AR24)
402
403	if (pr00) {
404
405		Store(AR23, b000)
406		Concatenate("mfc6: assign Pkgs ", b000, Local0)
407
408		Store(AR24, b000)
409		Concatenate(Local0, ", assign Refs ", Local1)
410		Concatenate(Local1, b000, Local0)
411
412		Store(AR20, b000)
413		Concatenate(Local0, ", Pkg0/Pkg1 ", Local1)
414		Concatenate(Local1, b000, Local0)
415
416		Store(AR21, b000)
417		Concatenate(Local0, ", IRef access ", Local1)
418		Concatenate(Local1, b000, Local0)
419
420		Store(AR22, b000)
421		Concatenate(Local0, ", first ", Local1)
422		Concatenate(Local1, b000, Local0)
423
424		Store(Local0, Debug)
425	}
426
427	/* Identical calculations for different AR20 below */
428
429	Switch (ToInteger (AR23)) {
430
431
432	Case (0) {
433
434	/* AR23: 0 ( , ) */
435
436	Switch (ToInteger (AR20)) {
437	Case (0) {
438
439		/* 0 - (pd12, pd13) */
440
441		/* AR22 allows to change order of execution */
442
443		if (AR22) {
444			/*
445			 * Initializing the first part of Package
446			 */
447			mfc7(pd12, 0, num, i000)
448		} else {
449			/*
450			 * Initializing the second part of Package with IRefs
451			 * to elements of its first part.
452			 */
453			mfc8(pd12, pd13, 0, num, num, AR24, 0)
454		}
455
456		if (AR22) {
457			/*
458			 * Initializing the second part of Package with IRefs
459			 * to elements of its first part.
460			 */
461			mfc8(pd12, pd13, 0, num, num, AR24, 0)
462		} else {
463			/*
464			 * Initializing the first part of Package
465			 */
466			mfc7(pd12, 0, num, i000)
467		}
468
469		Store(pd12, Local6)
470		Store(pd13, Local7)
471	}
472	Case (1) {
473
474		/* 1 - (pd12, p001) */
475
476		if (AR22) {
477			mfc7(pd12, 0, num, i000)
478		} else {
479			mfc8(pd12, p001, 0, num, num, AR24, 0)
480		}
481
482		if (AR22) {
483			mfc8(pd12, p001, 0, num, num, AR24, 0)
484		} else {
485			mfc7(pd12, 0, num, i000)
486		}
487
488		Store(pd12, Local6)
489		Store(p001, Local7)
490	}
491	Case (2) {
492
493		/* 2 - (pd12, P1) */
494
495		if (AR22) {
496			mfc7(pd12, 0, num, i000)
497		} else {
498			mfc8(pd12, arg1, 0, num, num, AR24, 0)
499		}
500
501		if (AR22) {
502			mfc8(pd12, arg1, 0, num, num, AR24, 0)
503		} else {
504			mfc7(pd12, 0, num, i000)
505		}
506
507		Store(pd12, Local6)
508		Store(arg1, Local7)
509	}
510	Case (3) {
511
512		/* 3 - (p000, pd13) */
513
514		if (AR22) {
515			mfc7(p000, 0, num, i000)
516		} else {
517			mfc8(p000, pd13, 0, num, num, AR24, 0)
518		}
519
520		if (AR22) {
521			mfc8(p000, pd13, 0, num, num, AR24, 0)
522		} else {
523			mfc7(p000, 0, num, i000)
524		}
525
526		Store(p000, Local6)
527		Store(pd13, Local7)
528	}
529	Case (4) {
530
531		/* 4 - (p000, p001) */
532
533		if (AR22) {
534			mfc7(p000, 0, num, i000)
535		} else {
536			mfc8(p000, p001, 0, num, num, AR24, 0)
537		}
538
539		if (AR22) {
540			mfc8(p000, p001, 0, num, num, AR24, 0)
541		} else {
542			mfc7(p000, 0, num, i000)
543		}
544
545		Store(p000, Local6)
546		Store(p001, Local7)
547	}
548	Case (5) {
549
550		/* 5 - (p000, P1) */
551
552		if (AR22) {
553			mfc7(p000, 0, num, i000)
554		} else {
555			mfc8(p000, arg1, 0, num, num, AR24, 0)
556		}
557
558		if (AR22) {
559			mfc8(p000, arg1, 0, num, num, AR24, 0)
560		} else {
561			mfc7(p000, 0, num, i000)
562		}
563
564		Store(p000, Local6)
565		Store(arg1, Local7)
566	}
567	Case (6) {
568
569		/* 6 - (P0,   pd13) */
570
571		if (AR22) {
572			mfc7(arg0, 0, num, i000)
573		} else {
574			mfc8(arg0, pd13, 0, num, num, AR24, 0)
575		}
576
577		if (AR22) {
578			mfc8(arg0, pd13, 0, num, num, AR24, 0)
579		} else {
580			mfc7(arg0, 0, num, i000)
581		}
582
583		Store(arg0, Local6)
584		Store(pd13, Local7)
585	}
586	Case (7) {
587
588		/* 7 - (P0,   p001) */
589
590		if (AR22) {
591			mfc7(arg0, 0, num, i000)
592		} else {
593			mfc8(arg0, p001, 0, num, num, AR24, 0)
594		}
595
596		if (AR22) {
597			mfc8(arg0, p001, 0, num, num, AR24, 0)
598		} else {
599			mfc7(arg0, 0, num, i000)
600		}
601
602		Store(arg0, Local6)
603		Store(p001, Local7)
604	}
605	Case (8) {
606
607		/* 8 - (P0,   P1) */
608
609		if (AR22) {
610			mfc7(arg0, 0, num, i000)
611		} else {
612			mfc8(arg0, arg1, 0, num, num, AR24, 0)
613		}
614
615		if (AR22) {
616			mfc8(arg0, arg1, 0, num, num, AR24, 0)
617		} else {
618			mfc7(arg0, 0, num, i000)
619		}
620
621		Store(arg0, Local6)
622		Store(arg1, Local7)
623	}
624	Case (9) {
625
626		/* 9 - (p000, p000) */
627
628		if (AR22) {
629			mfc7(p000, 0, num, i000)
630		} else {
631			mfc8(p000, p000, 0, num, num, AR24, 0)
632		}
633
634		if (AR22) {
635			mfc8(p000, p000, 0, num, num, AR24, 0)
636		} else {
637			mfc7(p000, 0, num, i000)
638		}
639
640		Store(p000, Local6)
641		Store(p000, Local7)
642	}
643	Case (10) {
644
645		/* 10 - (pd12, pd12) */
646
647		if (AR22) {
648			mfc7(pd12, 0, num, i000)
649		} else {
650			mfc8(pd12, pd12, 0, num, num, AR24, 0)
651		}
652
653		if (AR22) {
654			mfc8(pd12, pd12, 0, num, num, AR24, 0)
655		} else {
656			mfc7(pd12, 0, num, i000)
657		}
658
659		Store(pd12, Local6)
660		Store(pd12, Local7)
661	}
662	Case (11) {
663
664		/* 11 - (P0,   P0) */
665
666		if (AR22) {
667			mfc7(arg0, 0, num, i000)
668		} else {
669			mfc8(arg0, arg0, 0, num, num, AR24, 0)
670		}
671
672		if (AR22) {
673			mfc8(arg0, arg0, 0, num, num, AR24, 0)
674		} else {
675			mfc7(arg0, 0, num, i000)
676		}
677
678		Store(arg0, Local6)
679		Store(arg0, Local7)
680	}}
681
682	} /* Case(0)/Switch(AR23) */
683
684
685	Case (1) {
686
687	/* AR23: 1 (Named0, Named1) */
688
689	Switch (ToInteger (AR20)) {
690	Case (0) {
691
692		CopyObject(pd12, nm00)
693		CopyObject(pd13, nm03)
694
695		mfc7(nm00, 0, num, i000)
696		mfc8(nm00, nm03, 0, num, num, AR24, 0)
697
698		Store(nm00, Local6)
699		Store(nm03, Local7)
700	}
701	Case (1) {
702
703		CopyObject(pd12, nm00)
704		CopyObject(p001, nm03)
705
706		mfc8(nm00, nm03, 0, num, num, AR24, 0)
707		mfc7(nm00, 0, num, i000)
708
709		Store(nm00, Local6)
710		Store(nm03, Local7)
711	}
712	Case (2) {
713
714		CopyObject(pd12, nm00)
715		CopyObject(arg1, nm03)
716
717		mfc7(nm00, 0, num, i000)
718		mfc8(nm00, nm03, 0, num, num, AR24, 0)
719
720		Store(nm00, Local6)
721		Store(nm03, Local7)
722	}
723	Case (3) {
724
725		CopyObject(p000, nm00)
726		CopyObject(pd13, nm03)
727
728		mfc8(nm00, nm03, 0, num, num, AR24, 0)
729		mfc7(nm00, 0, num, i000)
730
731		Store(nm00, Local6)
732		Store(nm03, Local7)
733	}
734	Case (4) {
735
736		CopyObject(p000, nm00)
737		CopyObject(p001, nm03)
738
739		mfc7(nm00, 0, num, i000)
740		mfc8(nm00, nm03, 0, num, num, AR24, 0)
741
742		Store(nm00, Local6)
743		Store(nm03, Local7)
744	}
745	Case (5) {
746
747		CopyObject(p000, nm00)
748		CopyObject(arg1, nm03)
749
750		mfc8(nm00, nm03, 0, num, num, AR24, 0)
751		mfc7(nm00, 0, num, i000)
752
753		Store(nm00, Local6)
754		Store(nm03, Local7)
755	}
756	Case (6) {
757
758		CopyObject(arg0, nm00)
759		CopyObject(pd13, nm03)
760
761		mfc7(nm00, 0, num, i000)
762		mfc8(nm00, nm03, 0, num, num, AR24, 0)
763
764		Store(nm00, Local6)
765		Store(nm03, Local7)
766	}
767	Case (7) {
768
769		CopyObject(arg0, nm00)
770		CopyObject(p001, nm03)
771
772		mfc8(nm00, nm03, 0, num, num, AR24, 0)
773		mfc7(nm00, 0, num, i000)
774
775		Store(nm00, Local6)
776		Store(nm03, Local7)
777	}
778	Case (8) {
779
780		CopyObject(arg0, nm00)
781		CopyObject(arg1, nm03)
782
783		mfc7(nm00, 0, num, i000)
784		mfc8(nm00, nm03, 0, num, num, AR24, 0)
785
786		Store(nm00, Local6)
787		Store(nm03, Local7)
788	}
789	Case (9) {
790
791		CopyObject(p000, nm00)
792		CopyObject(p000, nm03)
793
794		mfc8(nm00, nm03, 0, num, num, AR24, 0)
795		mfc7(nm00, 0, num, i000)
796
797		Store(nm00, Local6)
798		Store(nm03, Local7)
799	}
800	Case (10) {
801
802		CopyObject(pd12, nm00)
803		CopyObject(pd12, nm03)
804
805		mfc7(nm00, 0, num, i000)
806		mfc8(nm00, nm03, 0, num, num, AR24, 0)
807
808		Store(nm00, Local6)
809		Store(nm03, Local7)
810	}
811	Case (11) {
812
813		CopyObject(arg0, nm00)
814		CopyObject(arg0, nm03)
815
816		mfc8(nm00, nm03, 0, num, num, AR24, 0)
817		mfc7(nm00, 0, num, i000)
818
819		Store(nm00, Local6)
820		Store(nm03, Local7)
821	}}
822
823	} /* Case(1)/Switch(AR23) */
824
825
826	Case (2) {
827
828	/* AR23: 2 (arg5, Named1) */
829
830	Switch (ToInteger (AR20)) {
831	Case (0) {
832
833		CopyObject(pd12, arg5)
834		CopyObject(pd13, nm03)
835
836		mfc7(arg5, 0, num, i000)
837		mfc8(arg5, nm03, 0, num, num, AR24, 0)
838
839		Store(arg5, Local6)
840		Store(nm03, Local7)
841	}
842	Case (1) {
843
844		CopyObject(pd12, arg5)
845		CopyObject(p001, nm03)
846
847		mfc8(arg5, nm03, 0, num, num, AR24, 0)
848		mfc7(arg5, 0, num, i000)
849
850		Store(arg5, Local6)
851		Store(nm03, Local7)
852	}
853	Case (2) {
854
855		CopyObject(pd12, arg5)
856		CopyObject(arg1, nm03)
857
858		mfc7(arg5, 0, num, i000)
859		mfc8(arg5, nm03, 0, num, num, AR24, 0)
860
861		Store(arg5, Local6)
862		Store(nm03, Local7)
863	}
864	Case (3) {
865
866		CopyObject(p000, arg5)
867		CopyObject(pd13, nm03)
868
869		mfc8(arg5, nm03, 0, num, num, AR24, 0)
870		mfc7(arg5, 0, num, i000)
871
872		Store(arg5, Local6)
873		Store(nm03, Local7)
874	}
875	Case (4) {
876
877		CopyObject(p000, arg5)
878		CopyObject(p001, nm03)
879
880		mfc7(arg5, 0, num, i000)
881		mfc8(arg5, nm03, 0, num, num, AR24, 0)
882
883		Store(arg5, Local6)
884		Store(nm03, Local7)
885	}
886	Case (5) {
887
888		CopyObject(p000, arg5)
889		CopyObject(arg1, nm03)
890
891		mfc8(arg5, nm03, 0, num, num, AR24, 0)
892		mfc7(arg5, 0, num, i000)
893
894		Store(arg5, Local6)
895		Store(nm03, Local7)
896	}
897	Case (6) {
898
899		CopyObject(arg0, arg5)
900		CopyObject(pd13, nm03)
901
902		mfc7(arg5, 0, num, i000)
903		mfc8(arg5, nm03, 0, num, num, AR24, 0)
904
905		Store(arg5, Local6)
906		Store(nm03, Local7)
907	}
908	Case (7) {
909
910		CopyObject(arg0, arg5)
911		CopyObject(p001, nm03)
912
913		mfc8(arg5, nm03, 0, num, num, AR24, 0)
914		mfc7(arg5, 0, num, i000)
915
916		Store(arg5, Local6)
917		Store(nm03, Local7)
918	}
919	Case (8) {
920
921		CopyObject(arg0, arg5)
922		CopyObject(arg1, nm03)
923
924		mfc7(arg5, 0, num, i000)
925		mfc8(arg5, nm03, 0, num, num, AR24, 0)
926
927		Store(arg5, Local6)
928		Store(nm03, Local7)
929	}
930	Case (9) {
931
932		CopyObject(p000, arg5)
933		CopyObject(p000, nm03)
934
935		mfc8(arg5, nm03, 0, num, num, AR24, 0)
936		mfc7(arg5, 0, num, i000)
937
938		Store(arg5, Local6)
939		Store(nm03, Local7)
940	}
941	Case (10) {
942
943		CopyObject(pd12, arg5)
944		CopyObject(pd12, nm03)
945
946		mfc7(arg5, 0, num, i000)
947		mfc8(arg5, nm03, 0, num, num, AR24, 0)
948
949		Store(arg5, Local6)
950		Store(nm03, Local7)
951	}
952	Case (11) {
953
954		CopyObject(arg0, arg5)
955		CopyObject(arg0, nm03)
956
957		mfc8(arg5, nm03, 0, num, num, AR24, 0)
958		mfc7(arg5, 0, num, i000)
959
960		Store(arg5, Local6)
961		Store(nm03, Local7)
962	}}
963
964	} /* Case(2)/Switch(AR23) */
965
966
967	Case (3) {
968
969	/* AR23: 3 (Loc4, Named1) */
970
971	Switch (ToInteger (AR20)) {
972	Case (0) {
973
974		CopyObject(pd12, Local4)
975		CopyObject(pd13, nm03)
976
977		mfc7(Local4, 0, num, i000)
978		mfc8(Local4, nm03, 0, num, num, AR24, 0)
979
980		Store(Local4, Local6)
981		Store(nm03, Local7)
982	}
983	Case (1) {
984
985		CopyObject(pd12, Local4)
986		CopyObject(p001, nm03)
987
988		mfc8(Local4, nm03, 0, num, num, AR24, 0)
989		mfc7(Local4, 0, num, i000)
990
991		Store(Local4, Local6)
992		Store(nm03, Local7)
993	}
994	Case (2) {
995
996		CopyObject(pd12, Local4)
997		CopyObject(arg1, nm03)
998
999		mfc7(Local4, 0, num, i000)
1000		mfc8(Local4, nm03, 0, num, num, AR24, 0)
1001
1002		Store(Local4, Local6)
1003		Store(nm03, Local7)
1004	}
1005	Case (3) {
1006
1007		CopyObject(p000, Local4)
1008		CopyObject(pd13, nm03)
1009
1010		mfc8(Local4, nm03, 0, num, num, AR24, 0)
1011		mfc7(Local4, 0, num, i000)
1012
1013		Store(Local4, Local6)
1014		Store(nm03, Local7)
1015	}
1016	Case (4) {
1017
1018		CopyObject(p000, Local4)
1019		CopyObject(p001, nm03)
1020
1021		mfc7(Local4, 0, num, i000)
1022		mfc8(Local4, nm03, 0, num, num, AR24, 0)
1023
1024		Store(Local4, Local6)
1025		Store(nm03, Local7)
1026	}
1027	Case (5) {
1028
1029		CopyObject(p000, Local4)
1030		CopyObject(arg1, nm03)
1031
1032		mfc8(Local4, nm03, 0, num, num, AR24, 0)
1033		mfc7(Local4, 0, num, i000)
1034
1035		Store(Local4, Local6)
1036		Store(nm03, Local7)
1037	}
1038	Case (6) {
1039
1040		CopyObject(arg0, Local4)
1041		CopyObject(pd13, nm03)
1042
1043		mfc7(Local4, 0, num, i000)
1044		mfc8(Local4, nm03, 0, num, num, AR24, 0)
1045
1046		Store(Local4, Local6)
1047		Store(nm03, Local7)
1048	}
1049	Case (7) {
1050
1051		CopyObject(arg0, Local4)
1052		CopyObject(p001, nm03)
1053
1054		mfc8(Local4, nm03, 0, num, num, AR24, 0)
1055		mfc7(Local4, 0, num, i000)
1056
1057		Store(Local4, Local6)
1058		Store(nm03, Local7)
1059	}
1060	Case (8) {
1061
1062		CopyObject(arg0, Local4)
1063		CopyObject(arg1, nm03)
1064
1065		mfc7(Local4, 0, num, i000)
1066		mfc8(Local4, nm03, 0, num, num, AR24, 0)
1067
1068		Store(Local4, Local6)
1069		Store(nm03, Local7)
1070	}
1071	Case (9) {
1072
1073		CopyObject(p000, Local4)
1074		CopyObject(p000, nm03)
1075
1076		mfc8(Local4, nm03, 0, num, num, AR24, 0)
1077		mfc7(Local4, 0, num, i000)
1078
1079		Store(Local4, Local6)
1080		Store(nm03, Local7)
1081	}
1082	Case (10) {
1083
1084		CopyObject(pd12, Local4)
1085		CopyObject(pd12, nm03)
1086
1087		mfc7(Local4, 0, num, i000)
1088		mfc8(Local4, nm03, 0, num, num, AR24, 0)
1089
1090		Store(Local4, Local6)
1091		Store(nm03, Local7)
1092	}
1093	Case (11) {
1094
1095		CopyObject(arg0, Local4)
1096		CopyObject(arg0, nm03)
1097
1098		mfc8(Local4, nm03, 0, num, num, AR24, 0)
1099		mfc7(Local4, 0, num, i000)
1100
1101		Store(Local4, Local6)
1102		Store(nm03, Local7)
1103	}}
1104
1105	} /* Case(3)/Switch(AR23) */
1106
1107
1108	Case (4) {
1109
1110	/* AR23: 4 (Named0, Arg6) */
1111
1112	Switch (ToInteger (AR20)) {
1113	Case (0) {
1114
1115		CopyObject(pd12, nm00)
1116		CopyObject(pd13, arg6)
1117
1118		mfc7(nm00, 0, num, i000)
1119		mfc8(nm00, arg6, 0, num, num, AR24, 0)
1120
1121		Store(nm00, Local6)
1122		Store(arg6, Local7)
1123	}
1124	Case (1) {
1125
1126		CopyObject(pd12, nm00)
1127		CopyObject(p001, arg6)
1128
1129		mfc8(nm00, arg6, 0, num, num, AR24, 0)
1130		mfc7(nm00, 0, num, i000)
1131
1132		Store(nm00, Local6)
1133		Store(arg6, Local7)
1134	}
1135	Case (2) {
1136
1137		CopyObject(pd12, nm00)
1138		CopyObject(arg1, arg6)
1139
1140		mfc7(nm00, 0, num, i000)
1141		mfc8(nm00, arg6, 0, num, num, AR24, 0)
1142
1143		Store(nm00, Local6)
1144		Store(arg6, Local7)
1145	}
1146	Case (3) {
1147
1148		CopyObject(p000, nm00)
1149		CopyObject(pd13, arg6)
1150
1151		mfc8(nm00, arg6, 0, num, num, AR24, 0)
1152		mfc7(nm00, 0, num, i000)
1153
1154		Store(nm00, Local6)
1155		Store(arg6, Local7)
1156	}
1157	Case (4) {
1158
1159		CopyObject(p000, nm00)
1160		CopyObject(p001, arg6)
1161
1162		mfc7(nm00, 0, num, i000)
1163		mfc8(nm00, arg6, 0, num, num, AR24, 0)
1164
1165		Store(nm00, Local6)
1166		Store(arg6, Local7)
1167	}
1168	Case (5) {
1169
1170		CopyObject(p000, nm00)
1171		CopyObject(arg1, arg6)
1172
1173		mfc8(nm00, arg6, 0, num, num, AR24, 0)
1174		mfc7(nm00, 0, num, i000)
1175
1176		Store(nm00, Local6)
1177		Store(arg6, Local7)
1178	}
1179	Case (6) {
1180
1181		CopyObject(arg0, nm00)
1182		CopyObject(pd13, arg6)
1183
1184		mfc7(nm00, 0, num, i000)
1185		mfc8(nm00, arg6, 0, num, num, AR24, 0)
1186
1187		Store(nm00, Local6)
1188		Store(arg6, Local7)
1189	}
1190	Case (7) {
1191
1192		CopyObject(arg0, nm00)
1193		CopyObject(p001, arg6)
1194
1195		mfc8(nm00, arg6, 0, num, num, AR24, 0)
1196		mfc7(nm00, 0, num, i000)
1197
1198		Store(nm00, Local6)
1199		Store(arg6, Local7)
1200	}
1201	Case (8) {
1202
1203		CopyObject(arg0, nm00)
1204		CopyObject(arg1, arg6)
1205
1206		mfc7(nm00, 0, num, i000)
1207		mfc8(nm00, arg6, 0, num, num, AR24, 0)
1208
1209		Store(nm00, Local6)
1210		Store(arg6, Local7)
1211	}
1212	Case (9) {
1213
1214		CopyObject(p000, nm00)
1215		CopyObject(p000, arg6)
1216
1217		mfc8(nm00, arg6, 0, num, num, AR24, 0)
1218		mfc7(nm00, 0, num, i000)
1219
1220		Store(nm00, Local6)
1221		Store(arg6, Local7)
1222	}
1223	Case (10) {
1224
1225		CopyObject(pd12, nm00)
1226		CopyObject(pd12, arg6)
1227
1228		mfc7(nm00, 0, num, i000)
1229		mfc8(nm00, arg6, 0, num, num, AR24, 0)
1230
1231		Store(nm00, Local6)
1232		Store(arg6, Local7)
1233	}
1234	Case (11) {
1235
1236		CopyObject(arg0, nm00)
1237		CopyObject(arg0, arg6)
1238
1239		mfc8(nm00, arg6, 0, num, num, AR24, 0)
1240		mfc7(nm00, 0, num, i000)
1241
1242		Store(nm00, Local6)
1243		Store(arg6, Local7)
1244	}}
1245
1246	} /* Case(4)/Switch(AR23) */
1247
1248
1249	Case (5) {
1250
1251	/* AR23: 5 (Arg5, Arg6) */
1252
1253	Switch (ToInteger (AR20)) {
1254	Case (0) {
1255
1256		CopyObject(pd12, arg5)
1257		CopyObject(pd13, arg6)
1258
1259		mfc7(arg5, 0, num, i000)
1260		mfc8(arg5, arg6, 0, num, num, AR24, 0)
1261
1262		Store(arg5, Local6)
1263		Store(arg6, Local7)
1264	}
1265	Case (1) {
1266
1267		CopyObject(pd12, arg5)
1268		CopyObject(p001, arg6)
1269
1270		mfc8(arg5, arg6, 0, num, num, AR24, 0)
1271		mfc7(arg5, 0, num, i000)
1272
1273		Store(arg5, Local6)
1274		Store(arg6, Local7)
1275	}
1276	Case (2) {
1277
1278		CopyObject(pd12, arg5)
1279		CopyObject(arg1, arg6)
1280
1281		mfc7(arg5, 0, num, i000)
1282		mfc8(arg5, arg6, 0, num, num, AR24, 0)
1283
1284		Store(arg5, Local6)
1285		Store(arg6, Local7)
1286	}
1287	Case (3) {
1288
1289		CopyObject(p000, arg5)
1290		CopyObject(pd13, arg6)
1291
1292		mfc8(arg5, arg6, 0, num, num, AR24, 0)
1293		mfc7(arg5, 0, num, i000)
1294
1295		Store(arg5, Local6)
1296		Store(arg6, Local7)
1297	}
1298	Case (4) {
1299
1300		CopyObject(p000, arg5)
1301		CopyObject(p001, arg6)
1302
1303		mfc7(arg5, 0, num, i000)
1304		mfc8(arg5, arg6, 0, num, num, AR24, 0)
1305
1306		Store(arg5, Local6)
1307		Store(arg6, Local7)
1308	}
1309	Case (5) {
1310
1311		CopyObject(p000, arg5)
1312		CopyObject(arg1, arg6)
1313
1314		mfc8(arg5, arg6, 0, num, num, AR24, 0)
1315		mfc7(arg5, 0, num, i000)
1316
1317		Store(arg5, Local6)
1318		Store(arg6, Local7)
1319	}
1320	Case (6) {
1321
1322		CopyObject(arg0, arg5)
1323		CopyObject(pd13, arg6)
1324
1325		mfc7(arg5, 0, num, i000)
1326		mfc8(arg5, arg6, 0, num, num, AR24, 0)
1327
1328		Store(arg5, Local6)
1329		Store(arg6, Local7)
1330	}
1331	Case (7) {
1332
1333		CopyObject(arg0, arg5)
1334		CopyObject(p001, arg6)
1335
1336		mfc8(arg5, arg6, 0, num, num, AR24, 0)
1337		mfc7(arg5, 0, num, i000)
1338
1339		Store(arg5, Local6)
1340		Store(arg6, Local7)
1341	}
1342	Case (8) {
1343
1344		CopyObject(arg0, arg5)
1345		CopyObject(arg1, arg6)
1346
1347		mfc7(arg5, 0, num, i000)
1348		mfc8(arg5, arg6, 0, num, num, AR24, 0)
1349
1350		Store(arg5, Local6)
1351		Store(arg6, Local7)
1352	}
1353	Case (9) {
1354
1355		CopyObject(p000, arg5)
1356		CopyObject(p000, arg6)
1357
1358		mfc8(arg5, arg6, 0, num, num, AR24, 0)
1359		mfc7(arg5, 0, num, i000)
1360
1361		Store(arg5, Local6)
1362		Store(arg6, Local7)
1363	}
1364	Case (10) {
1365
1366		CopyObject(pd12, arg5)
1367		CopyObject(pd12, arg6)
1368
1369		mfc7(arg5, 0, num, i000)
1370		mfc8(arg5, arg6, 0, num, num, AR24, 0)
1371
1372		Store(arg5, Local6)
1373		Store(arg6, Local7)
1374	}
1375	Case (11) {
1376
1377		CopyObject(arg0, arg5)
1378		CopyObject(arg0, arg6)
1379
1380		mfc8(arg5, arg6, 0, num, num, AR24, 0)
1381		mfc7(arg5, 0, num, i000)
1382
1383		Store(arg5, Local6)
1384		Store(arg6, Local7)
1385	}}
1386
1387	} /* Case(5)/Switch(AR23) */
1388
1389
1390	Case (6) {
1391
1392	/* AR23: 6 (Loc4, Arg6) */
1393
1394	Switch (ToInteger (AR20)) {
1395	Case (0) {
1396
1397		CopyObject(pd12, Local4)
1398		CopyObject(pd13, arg6)
1399
1400		mfc7(Local4, 0, num, i000)
1401		mfc8(Local4, arg6, 0, num, num, AR24, 0)
1402
1403		Store(Local4, Local6)
1404		Store(arg6, Local7)
1405	}
1406	Case (1) {
1407
1408		CopyObject(pd12, Local4)
1409		CopyObject(p001, arg6)
1410
1411		mfc8(Local4, arg6, 0, num, num, AR24, 0)
1412		mfc7(Local4, 0, num, i000)
1413
1414		Store(Local4, Local6)
1415		Store(arg6, Local7)
1416	}
1417	Case (2) {
1418
1419		CopyObject(pd12, Local4)
1420		CopyObject(arg1, arg6)
1421
1422		mfc7(Local4, 0, num, i000)
1423		mfc8(Local4, arg6, 0, num, num, AR24, 0)
1424
1425		Store(Local4, Local6)
1426		Store(arg6, Local7)
1427	}
1428	Case (3) {
1429
1430		CopyObject(p000, Local4)
1431		CopyObject(pd13, arg6)
1432
1433		mfc8(Local4, arg6, 0, num, num, AR24, 0)
1434		mfc7(Local4, 0, num, i000)
1435
1436		Store(Local4, Local6)
1437		Store(arg6, Local7)
1438	}
1439	Case (4) {
1440
1441		CopyObject(p000, Local4)
1442		CopyObject(p001, arg6)
1443
1444		mfc7(Local4, 0, num, i000)
1445		mfc8(Local4, arg6, 0, num, num, AR24, 0)
1446
1447		Store(Local4, Local6)
1448		Store(arg6, Local7)
1449	}
1450	Case (5) {
1451
1452		CopyObject(p000, Local4)
1453		CopyObject(arg1, arg6)
1454
1455		mfc8(Local4, arg6, 0, num, num, AR24, 0)
1456		mfc7(Local4, 0, num, i000)
1457
1458		Store(Local4, Local6)
1459		Store(arg6, Local7)
1460	}
1461	Case (6) {
1462
1463		CopyObject(arg0, Local4)
1464		CopyObject(pd13, arg6)
1465
1466		mfc7(Local4, 0, num, i000)
1467		mfc8(Local4, arg6, 0, num, num, AR24, 0)
1468
1469		Store(Local4, Local6)
1470		Store(arg6, Local7)
1471	}
1472	Case (7) {
1473
1474		CopyObject(arg0, Local4)
1475		CopyObject(p001, arg6)
1476
1477		mfc8(Local4, arg6, 0, num, num, AR24, 0)
1478		mfc7(Local4, 0, num, i000)
1479
1480		Store(Local4, Local6)
1481		Store(arg6, Local7)
1482	}
1483	Case (8) {
1484
1485		CopyObject(arg0, Local4)
1486		CopyObject(arg1, arg6)
1487
1488		mfc7(Local4, 0, num, i000)
1489		mfc8(Local4, arg6, 0, num, num, AR24, 0)
1490
1491		Store(Local4, Local6)
1492		Store(arg6, Local7)
1493	}
1494	Case (9) {
1495
1496		CopyObject(p000, Local4)
1497		CopyObject(p000, arg6)
1498
1499		mfc8(Local4, arg6, 0, num, num, AR24, 0)
1500		mfc7(Local4, 0, num, i000)
1501
1502		Store(Local4, Local6)
1503		Store(arg6, Local7)
1504	}
1505	Case (10) {
1506
1507		CopyObject(pd12, Local4)
1508		CopyObject(pd12, arg6)
1509
1510		mfc7(Local4, 0, num, i000)
1511		mfc8(Local4, arg6, 0, num, num, AR24, 0)
1512
1513		Store(Local4, Local6)
1514		Store(arg6, Local7)
1515	}
1516	Case (11) {
1517
1518		CopyObject(arg0, Local4)
1519		CopyObject(arg0, arg6)
1520
1521		mfc8(Local4, arg6, 0, num, num, AR24, 0)
1522		mfc7(Local4, 0, num, i000)
1523
1524		Store(Local4, Local6)
1525		Store(arg6, Local7)
1526	}}
1527
1528	} /* Case(6)/Switch(AR23) */
1529
1530
1531	Case (7) {
1532
1533	/* AR23: 7 (Named0, Loc5) */
1534
1535	Switch (ToInteger (AR20)) {
1536	Case (0) {
1537
1538		CopyObject(pd12, nm00)
1539		CopyObject(pd13, Local5)
1540
1541		mfc7(nm00, 0, num, i000)
1542		mfc8(nm00, Local5, 0, num, num, AR24, 0)
1543
1544		Store(nm00, Local6)
1545		Store(Local5, Local7)
1546	}
1547	Case (1) {
1548
1549		CopyObject(pd12, nm00)
1550		CopyObject(p001, Local5)
1551
1552		mfc8(nm00, Local5, 0, num, num, AR24, 0)
1553		mfc7(nm00, 0, num, i000)
1554
1555		Store(nm00, Local6)
1556		Store(Local5, Local7)
1557	}
1558	Case (2) {
1559
1560		CopyObject(pd12, nm00)
1561		CopyObject(arg1, Local5)
1562
1563		mfc7(nm00, 0, num, i000)
1564		mfc8(nm00, Local5, 0, num, num, AR24, 0)
1565
1566		Store(nm00, Local6)
1567		Store(Local5, Local7)
1568	}
1569	Case (3) {
1570
1571		CopyObject(p000, nm00)
1572		CopyObject(pd13, Local5)
1573
1574		mfc8(nm00, Local5, 0, num, num, AR24, 0)
1575		mfc7(nm00, 0, num, i000)
1576
1577		Store(nm00, Local6)
1578		Store(Local5, Local7)
1579	}
1580	Case (4) {
1581
1582		CopyObject(p000, nm00)
1583		CopyObject(p001, Local5)
1584
1585		mfc7(nm00, 0, num, i000)
1586		mfc8(nm00, Local5, 0, num, num, AR24, 0)
1587
1588		Store(nm00, Local6)
1589		Store(Local5, Local7)
1590	}
1591	Case (5) {
1592
1593		CopyObject(p000, nm00)
1594		CopyObject(arg1, Local5)
1595
1596		mfc8(nm00, Local5, 0, num, num, AR24, 0)
1597		mfc7(nm00, 0, num, i000)
1598
1599		Store(nm00, Local6)
1600		Store(Local5, Local7)
1601	}
1602	Case (6) {
1603
1604		CopyObject(arg0, nm00)
1605		CopyObject(pd13, Local5)
1606
1607		mfc7(nm00, 0, num, i000)
1608		mfc8(nm00, Local5, 0, num, num, AR24, 0)
1609
1610		Store(nm00, Local6)
1611		Store(Local5, Local7)
1612	}
1613	Case (7) {
1614
1615		CopyObject(arg0, nm00)
1616		CopyObject(p001, Local5)
1617
1618		mfc8(nm00, Local5, 0, num, num, AR24, 0)
1619		mfc7(nm00, 0, num, i000)
1620
1621		Store(nm00, Local6)
1622		Store(Local5, Local7)
1623	}
1624	Case (8) {
1625
1626		CopyObject(arg0, nm00)
1627		CopyObject(arg1, Local5)
1628
1629		mfc7(nm00, 0, num, i000)
1630		mfc8(nm00, Local5, 0, num, num, AR24, 0)
1631
1632		Store(nm00, Local6)
1633		Store(Local5, Local7)
1634	}
1635	Case (9) {
1636
1637		CopyObject(p000, nm00)
1638		CopyObject(p000, Local5)
1639
1640		mfc8(nm00, Local5, 0, num, num, AR24, 0)
1641		mfc7(nm00, 0, num, i000)
1642
1643		Store(nm00, Local6)
1644		Store(Local5, Local7)
1645	}
1646	Case (10) {
1647
1648		CopyObject(pd12, nm00)
1649		CopyObject(pd12, Local5)
1650
1651		mfc7(nm00, 0, num, i000)
1652		mfc8(nm00, Local5, 0, num, num, AR24, 0)
1653
1654		Store(nm00, Local6)
1655		Store(Local5, Local7)
1656	}
1657	Case (11) {
1658
1659		CopyObject(arg0, nm00)
1660		CopyObject(arg0, Local5)
1661
1662		mfc8(nm00, Local5, 0, num, num, AR24, 0)
1663		mfc7(nm00, 0, num, i000)
1664
1665		Store(nm00, Local6)
1666		Store(Local5, Local7)
1667	}}
1668
1669	} /* Case(7)/Switch(AR23) */
1670
1671
1672	Case (8) {
1673
1674	/* AR23: 8 (Arg5, Loc5) */
1675
1676	Switch (ToInteger (AR20)) {
1677	Case (0) {
1678
1679		CopyObject(pd12, arg5)
1680		CopyObject(pd13, Local5)
1681
1682		mfc7(arg5, 0, num, i000)
1683		mfc8(arg5, Local5, 0, num, num, AR24, 0)
1684
1685		Store(arg5, Local6)
1686		Store(Local5, Local7)
1687	}
1688	Case (1) {
1689
1690		CopyObject(pd12, arg5)
1691		CopyObject(p001, Local5)
1692
1693		mfc8(arg5, Local5, 0, num, num, AR24, 0)
1694		mfc7(arg5, 0, num, i000)
1695
1696		Store(arg5, Local6)
1697		Store(Local5, Local7)
1698	}
1699	Case (2) {
1700
1701		CopyObject(pd12, arg5)
1702		CopyObject(arg1, Local5)
1703
1704		mfc7(arg5, 0, num, i000)
1705		mfc8(arg5, Local5, 0, num, num, AR24, 0)
1706
1707		Store(arg5, Local6)
1708		Store(Local5, Local7)
1709	}
1710	Case (3) {
1711
1712		CopyObject(p000, arg5)
1713		CopyObject(pd13, Local5)
1714
1715		mfc8(arg5, Local5, 0, num, num, AR24, 0)
1716		mfc7(arg5, 0, num, i000)
1717
1718		Store(arg5, Local6)
1719		Store(Local5, Local7)
1720	}
1721	Case (4) {
1722
1723		CopyObject(p000, arg5)
1724		CopyObject(p001, Local5)
1725
1726		mfc7(arg5, 0, num, i000)
1727		mfc8(arg5, Local5, 0, num, num, AR24, 0)
1728
1729		Store(arg5, Local6)
1730		Store(Local5, Local7)
1731	}
1732	Case (5) {
1733
1734		CopyObject(p000, arg5)
1735		CopyObject(arg1, Local5)
1736
1737		mfc8(arg5, Local5, 0, num, num, AR24, 0)
1738		mfc7(arg5, 0, num, i000)
1739
1740		Store(arg5, Local6)
1741		Store(Local5, Local7)
1742	}
1743	Case (6) {
1744
1745		CopyObject(arg0, arg5)
1746		CopyObject(pd13, Local5)
1747
1748		mfc7(arg5, 0, num, i000)
1749		mfc8(arg5, Local5, 0, num, num, AR24, 0)
1750
1751		Store(arg5, Local6)
1752		Store(Local5, Local7)
1753	}
1754	Case (7) {
1755
1756		CopyObject(arg0, arg5)
1757		CopyObject(p001, Local5)
1758
1759		mfc8(arg5, Local5, 0, num, num, AR24, 0)
1760		mfc7(arg5, 0, num, i000)
1761
1762		Store(arg5, Local6)
1763		Store(Local5, Local7)
1764	}
1765	Case (8) {
1766
1767		CopyObject(arg0, arg5)
1768		CopyObject(arg1, Local5)
1769
1770		mfc7(arg5, 0, num, i000)
1771		mfc8(arg5, Local5, 0, num, num, AR24, 0)
1772
1773		Store(arg5, Local6)
1774		Store(Local5, Local7)
1775	}
1776	Case (9) {
1777
1778		CopyObject(p000, arg5)
1779		CopyObject(p000, Local5)
1780
1781		mfc8(arg5, Local5, 0, num, num, AR24, 0)
1782		mfc7(arg5, 0, num, i000)
1783
1784		Store(arg5, Local6)
1785		Store(Local5, Local7)
1786	}
1787	Case (10) {
1788
1789		CopyObject(pd12, arg5)
1790		CopyObject(pd12, Local5)
1791
1792		mfc7(arg5, 0, num, i000)
1793		mfc8(arg5, Local5, 0, num, num, AR24, 0)
1794
1795		Store(arg5, Local6)
1796		Store(Local5, Local7)
1797	}
1798	Case (11) {
1799
1800		CopyObject(arg0, arg5)
1801		CopyObject(arg0, Local5)
1802
1803		mfc8(arg5, Local5, 0, num, num, AR24, 0)
1804		mfc7(arg5, 0, num, i000)
1805
1806		Store(arg5, Local6)
1807		Store(Local5, Local7)
1808	}}
1809
1810	} /* Case(8)/Switch(AR23) */
1811
1812
1813	Case (9) {
1814
1815	/* AR23: 9 (Loc4, Loc5) */
1816
1817	Switch (ToInteger (AR20)) {
1818	Case (0) {
1819
1820		CopyObject(pd12, Local4)
1821		CopyObject(pd13, Local5)
1822
1823		mfc7(Local4, 0, num, i000)
1824		mfc8(Local4, Local5, 0, num, num, AR24, 0)
1825
1826		Store(Local4, Local6)
1827		Store(Local5, Local7)
1828	}
1829	Case (1) {
1830
1831		CopyObject(pd12, Local4)
1832		CopyObject(p001, Local5)
1833
1834		mfc8(Local4, Local5, 0, num, num, AR24, 0)
1835		mfc7(Local4, 0, num, i000)
1836
1837		Store(Local4, Local6)
1838		Store(Local5, Local7)
1839	}
1840	Case (2) {
1841
1842		CopyObject(pd12, Local4)
1843		CopyObject(arg1, Local5)
1844
1845		mfc7(Local4, 0, num, i000)
1846		mfc8(Local4, Local5, 0, num, num, AR24, 0)
1847
1848		Store(Local4, Local6)
1849		Store(Local5, Local7)
1850	}
1851	Case (3) {
1852
1853		CopyObject(p000, Local4)
1854		CopyObject(pd13, Local5)
1855
1856		mfc8(Local4, Local5, 0, num, num, AR24, 0)
1857		mfc7(Local4, 0, num, i000)
1858
1859		Store(Local4, Local6)
1860		Store(Local5, Local7)
1861	}
1862	Case (4) {
1863
1864		CopyObject(p000, Local4)
1865		CopyObject(p001, Local5)
1866
1867		mfc7(Local4, 0, num, i000)
1868		mfc8(Local4, Local5, 0, num, num, AR24, 0)
1869
1870		Store(Local4, Local6)
1871		Store(Local5, Local7)
1872	}
1873	Case (5) {
1874
1875		CopyObject(p000, Local4)
1876		CopyObject(arg1, Local5)
1877
1878		mfc8(Local4, Local5, 0, num, num, AR24, 0)
1879		mfc7(Local4, 0, num, i000)
1880
1881		Store(Local4, Local6)
1882		Store(Local5, Local7)
1883	}
1884	Case (6) {
1885
1886		CopyObject(arg0, Local4)
1887		CopyObject(pd13, Local5)
1888
1889		mfc7(Local4, 0, num, i000)
1890		mfc8(Local4, Local5, 0, num, num, AR24, 0)
1891
1892		Store(Local4, Local6)
1893		Store(Local5, Local7)
1894	}
1895	Case (7) {
1896
1897		CopyObject(arg0, Local4)
1898		CopyObject(p001, Local5)
1899
1900		mfc8(Local4, Local5, 0, num, num, AR24, 0)
1901		mfc7(Local4, 0, num, i000)
1902
1903		Store(Local4, Local6)
1904		Store(Local5, Local7)
1905	}
1906	Case (8) {
1907
1908		CopyObject(arg0, Local4)
1909		CopyObject(arg1, Local5)
1910
1911		mfc7(Local4, 0, num, i000)
1912		mfc8(Local4, Local5, 0, num, num, AR24, 0)
1913
1914		Store(Local4, Local6)
1915		Store(Local5, Local7)
1916	}
1917	Case (9) {
1918
1919		CopyObject(p000, Local4)
1920		CopyObject(p000, Local5)
1921
1922		mfc8(Local4, Local5, 0, num, num, AR24, 0)
1923		mfc7(Local4, 0, num, i000)
1924
1925		Store(Local4, Local6)
1926		Store(Local5, Local7)
1927	}
1928	Case (10) {
1929
1930		CopyObject(pd12, Local4)
1931		CopyObject(pd12, Local5)
1932
1933		mfc7(Local4, 0, num, i000)
1934		mfc8(Local4, Local5, 0, num, num, AR24, 0)
1935
1936		Store(Local4, Local6)
1937		Store(Local5, Local7)
1938	}
1939	Case (11) {
1940
1941		CopyObject(arg0, Local4)
1942		CopyObject(arg0, Local5)
1943
1944		mfc8(Local4, Local5, 0, num, num, AR24, 0)
1945		mfc7(Local4, 0, num, i000)
1946
1947		Store(Local4, Local6)
1948		Store(Local5, Local7)
1949	}}
1950
1951	} /* Case(9)/Switch(AR23) */
1952
1953
1954	Case (10) {
1955
1956	/* AR23: 10 (Arg5, Arg5) */
1957
1958	Switch (ToInteger (AR20)) {
1959	Case (0) {
1960
1961		CopyObject(pd12, arg5)
1962		CopyObject(pd13, arg5)
1963
1964		mfc7(arg5, 0, num, i000)
1965		mfc8(arg5, arg5, 0, num, num, AR24, 0)
1966
1967		Store(arg5, Local6)
1968		Store(arg5, Local7)
1969	}
1970	Case (1) {
1971
1972		CopyObject(pd12, arg5)
1973		CopyObject(p001, arg5)
1974
1975		mfc8(arg5, arg5, 0, num, num, AR24, 0)
1976		mfc7(arg5, 0, num, i000)
1977
1978		Store(arg5, Local6)
1979		Store(arg5, Local7)
1980	}
1981	Case (2) {
1982
1983		CopyObject(pd12, arg5)
1984		CopyObject(arg1, arg5)
1985
1986		mfc7(arg5, 0, num, i000)
1987		mfc8(arg5, arg5, 0, num, num, AR24, 0)
1988
1989		Store(arg5, Local6)
1990		Store(arg5, Local7)
1991	}
1992	Case (3) {
1993
1994		CopyObject(p000, arg5)
1995		CopyObject(pd13, arg5)
1996
1997		mfc8(arg5, arg5, 0, num, num, AR24, 0)
1998		mfc7(arg5, 0, num, i000)
1999
2000		Store(arg5, Local6)
2001		Store(arg5, Local7)
2002	}
2003	Case (4) {
2004
2005		CopyObject(p000, arg5)
2006		CopyObject(p001, arg5)
2007
2008		mfc7(arg5, 0, num, i000)
2009		mfc8(arg5, arg5, 0, num, num, AR24, 0)
2010
2011		Store(arg5, Local6)
2012		Store(arg5, Local7)
2013	}
2014	Case (5) {
2015
2016		CopyObject(p000, arg5)
2017		CopyObject(arg1, arg5)
2018
2019		mfc8(arg5, arg5, 0, num, num, AR24, 0)
2020		mfc7(arg5, 0, num, i000)
2021
2022		Store(arg5, Local6)
2023		Store(arg5, Local7)
2024	}
2025	Case (6) {
2026
2027		CopyObject(arg0, arg5)
2028		CopyObject(pd13, arg5)
2029
2030		mfc7(arg5, 0, num, i000)
2031		mfc8(arg5, arg5, 0, num, num, AR24, 0)
2032
2033		Store(arg5, Local6)
2034		Store(arg5, Local7)
2035	}
2036	Case (7) {
2037
2038		CopyObject(arg0, arg5)
2039		CopyObject(p001, arg5)
2040
2041		mfc8(arg5, arg5, 0, num, num, AR24, 0)
2042		mfc7(arg5, 0, num, i000)
2043
2044		Store(arg5, Local6)
2045		Store(arg5, Local7)
2046	}
2047	Case (8) {
2048
2049		CopyObject(arg0, arg5)
2050		CopyObject(arg1, arg5)
2051
2052		mfc7(arg5, 0, num, i000)
2053		mfc8(arg5, arg5, 0, num, num, AR24, 0)
2054
2055		Store(arg5, Local6)
2056		Store(arg5, Local7)
2057	}
2058	Case (9) {
2059
2060		CopyObject(p000, arg5)
2061		CopyObject(p000, arg5)
2062
2063		mfc8(arg5, arg5, 0, num, num, AR24, 0)
2064		mfc7(arg5, 0, num, i000)
2065
2066		Store(arg5, Local6)
2067		Store(arg5, Local7)
2068	}
2069	Case (10) {
2070
2071		CopyObject(pd12, arg5)
2072		CopyObject(pd12, arg5)
2073
2074		mfc7(arg5, 0, num, i000)
2075		mfc8(arg5, arg5, 0, num, num, AR24, 0)
2076
2077		Store(arg5, Local6)
2078		Store(arg5, Local7)
2079	}
2080	Case (11) {
2081
2082		CopyObject(arg0, arg5)
2083		CopyObject(arg0, arg5)
2084
2085		mfc8(arg5, arg5, 0, num, num, AR24, 0)
2086		mfc7(arg5, 0, num, i000)
2087
2088		Store(arg5, Local6)
2089		Store(arg5, Local7)
2090	}}
2091
2092	} /* Case(10)/Switch(AR23) */
2093
2094
2095	Case (11) {
2096
2097	/* AR23: 11 (Loc4, Loc4) */
2098
2099	Switch (ToInteger (AR20)) {
2100	Case (0) {
2101
2102		CopyObject(pd12, Local4)
2103		CopyObject(pd13, Local4)
2104
2105		mfc7(Local4, 0, num, i000)
2106		mfc8(Local4, Local4, 0, num, num, AR24, 0)
2107
2108		Store(Local4, Local6)
2109		Store(Local4, Local7)
2110	}
2111	Case (1) {
2112
2113		CopyObject(pd12, Local4)
2114		CopyObject(p001, Local4)
2115
2116		mfc8(Local4, Local4, 0, num, num, AR24, 0)
2117		mfc7(Local4, 0, num, i000)
2118
2119		Store(Local4, Local6)
2120		Store(Local4, Local7)
2121	}
2122	Case (2) {
2123
2124		CopyObject(pd12, Local4)
2125		CopyObject(arg1, Local4)
2126
2127		mfc7(Local4, 0, num, i000)
2128		mfc8(Local4, Local4, 0, num, num, AR24, 0)
2129
2130		Store(Local4, Local6)
2131		Store(Local4, Local7)
2132	}
2133	Case (3) {
2134
2135		CopyObject(p000, Local4)
2136		CopyObject(pd13, Local4)
2137
2138		mfc8(Local4, Local4, 0, num, num, AR24, 0)
2139		mfc7(Local4, 0, num, i000)
2140
2141		Store(Local4, Local6)
2142		Store(Local4, Local7)
2143	}
2144	Case (4) {
2145
2146		CopyObject(p000, Local4)
2147		CopyObject(p001, Local4)
2148
2149		mfc7(Local4, 0, num, i000)
2150		mfc8(Local4, Local4, 0, num, num, AR24, 0)
2151
2152		Store(Local4, Local6)
2153		Store(Local4, Local7)
2154	}
2155	Case (5) {
2156
2157		CopyObject(p000, Local4)
2158		CopyObject(arg1, Local4)
2159
2160		mfc8(Local4, Local4, 0, num, num, AR24, 0)
2161		mfc7(Local4, 0, num, i000)
2162
2163		Store(Local4, Local6)
2164		Store(Local4, Local7)
2165	}
2166	Case (6) {
2167
2168		CopyObject(arg0, Local4)
2169		CopyObject(pd13, Local4)
2170
2171		mfc7(Local4, 0, num, i000)
2172		mfc8(Local4, Local4, 0, num, num, AR24, 0)
2173
2174		Store(Local4, Local6)
2175		Store(Local4, Local7)
2176	}
2177	Case (7) {
2178
2179		CopyObject(arg0, Local4)
2180		CopyObject(p001, Local4)
2181
2182		mfc8(Local4, Local4, 0, num, num, AR24, 0)
2183		mfc7(Local4, 0, num, i000)
2184
2185		Store(Local4, Local6)
2186		Store(Local4, Local7)
2187	}
2188	Case (8) {
2189
2190		CopyObject(arg0, Local4)
2191		CopyObject(arg1, Local4)
2192
2193		mfc7(Local4, 0, num, i000)
2194		mfc8(Local4, Local4, 0, num, num, AR24, 0)
2195
2196		Store(Local4, Local6)
2197		Store(Local4, Local7)
2198	}
2199	Case (9) {
2200
2201		CopyObject(p000, Local4)
2202		CopyObject(p000, Local4)
2203
2204		mfc8(Local4, Local4, 0, num, num, AR24, 0)
2205		mfc7(Local4, 0, num, i000)
2206
2207		Store(Local4, Local6)
2208		Store(Local4, Local7)
2209	}
2210	Case (10) {
2211
2212		CopyObject(pd12, Local4)
2213		CopyObject(pd12, Local4)
2214
2215		mfc7(Local4, 0, num, i000)
2216		mfc8(Local4, Local4, 0, num, num, AR24, 0)
2217
2218		Store(Local4, Local6)
2219		Store(Local4, Local7)
2220	}
2221	Case (11) {
2222
2223		CopyObject(arg0, Local4)
2224		CopyObject(arg0, Local4)
2225
2226		mfc8(Local4, Local4, 0, num, num, AR24, 0)
2227		mfc7(Local4, 0, num, i000)
2228
2229		Store(Local4, Local6)
2230		Store(Local4, Local7)
2231	}}
2232
2233	} /* Case(11)/Switch(AR23) */
2234
2235
2236	Case (12) {
2237
2238	/* AR23: 12 (Named0, Named0) */
2239
2240	Switch (ToInteger (AR20)) {
2241	Case (0) {
2242
2243		CopyObject(pd12, nm00)
2244		CopyObject(pd13, nm00)
2245
2246		mfc7(nm00, 0, num, i000)
2247		mfc8(nm00, nm00, 0, num, num, AR24, 0)
2248
2249		Store(nm00, Local6)
2250		Store(nm00, Local7)
2251	}
2252	Case (1) {
2253
2254		CopyObject(pd12, nm00)
2255		CopyObject(p001, nm00)
2256
2257		mfc8(nm00, nm00, 0, num, num, AR24, 0)
2258		mfc7(nm00, 0, num, i000)
2259
2260		Store(nm00, Local6)
2261		Store(nm00, Local7)
2262	}
2263	Case (2) {
2264
2265		CopyObject(pd12, nm00)
2266		CopyObject(arg1, nm00)
2267
2268		mfc7(nm00, 0, num, i000)
2269		mfc8(nm00, nm00, 0, num, num, AR24, 0)
2270
2271		Store(nm00, Local6)
2272		Store(nm00, Local7)
2273	}
2274	Case (3) {
2275
2276		CopyObject(p000, nm00)
2277		CopyObject(pd13, nm00)
2278
2279		mfc8(nm00, nm00, 0, num, num, AR24, 0)
2280		mfc7(nm00, 0, num, i000)
2281
2282		Store(nm00, Local6)
2283		Store(nm00, Local7)
2284	}
2285	Case (4) {
2286
2287		CopyObject(p000, nm00)
2288		CopyObject(p001, nm00)
2289
2290		mfc7(nm00, 0, num, i000)
2291		mfc8(nm00, nm00, 0, num, num, AR24, 0)
2292
2293		Store(nm00, Local6)
2294		Store(nm00, Local7)
2295	}
2296	Case (5) {
2297
2298		CopyObject(p000, nm00)
2299		CopyObject(arg1, nm00)
2300
2301		mfc8(nm00, nm00, 0, num, num, AR24, 0)
2302		mfc7(nm00, 0, num, i000)
2303
2304		Store(nm00, Local6)
2305		Store(nm00, Local7)
2306	}
2307	Case (6) {
2308
2309		CopyObject(arg0, nm00)
2310		CopyObject(pd13, nm00)
2311
2312		mfc7(nm00, 0, num, i000)
2313		mfc8(nm00, nm00, 0, num, num, AR24, 0)
2314
2315		Store(nm00, Local6)
2316		Store(nm00, Local7)
2317	}
2318	Case (7) {
2319
2320		CopyObject(arg0, nm00)
2321		CopyObject(p001, nm00)
2322
2323		mfc8(nm00, nm00, 0, num, num, AR24, 0)
2324		mfc7(nm00, 0, num, i000)
2325
2326		Store(nm00, Local6)
2327		Store(nm00, Local7)
2328	}
2329	Case (8) {
2330
2331		CopyObject(arg0, nm00)
2332		CopyObject(arg1, nm00)
2333
2334		mfc7(nm00, 0, num, i000)
2335		mfc8(nm00, nm00, 0, num, num, AR24, 0)
2336
2337		Store(nm00, Local6)
2338		Store(nm00, Local7)
2339	}
2340	Case (9) {
2341
2342		CopyObject(p000, nm00)
2343		CopyObject(p000, nm00)
2344
2345		mfc8(nm00, nm00, 0, num, num, AR24, 0)
2346		mfc7(nm00, 0, num, i000)
2347
2348		Store(nm00, Local6)
2349		Store(nm00, Local7)
2350	}
2351	Case (10) {
2352
2353		CopyObject(pd12, nm00)
2354		CopyObject(pd12, nm00)
2355
2356		mfc7(nm00, 0, num, i000)
2357		mfc8(nm00, nm00, 0, num, num, AR24, 0)
2358
2359		Store(nm00, Local6)
2360		Store(nm00, Local7)
2361	}
2362	Case (11) {
2363
2364		CopyObject(arg0, nm00)
2365		CopyObject(arg0, nm00)
2366
2367		mfc8(nm00, nm00, 0, num, num, AR24, 0)
2368		mfc7(nm00, 0, num, i000)
2369
2370		Store(nm00, Local6)
2371		Store(nm00, Local7)
2372	}}
2373
2374	} /* Case(12)/Switch(AR23) */
2375
2376
2377	Case (13) {
2378
2379	/* AR23: 13 (Named0,  ) */
2380
2381	Switch (ToInteger (AR20)) {
2382	Case (0) {
2383
2384		/* 0 - (pd12, pd13) */
2385
2386		CopyObject(pd12, nm00)
2387
2388		/* AR22 allows to change order of execution */
2389
2390		if (AR22) {
2391			/*
2392			 * Initializing the first part of Package
2393			 */
2394			mfc7(nm00, 0, num, i000)
2395		} else {
2396			/*
2397			 * Initializing the second part of Package with IRefs
2398			 * to elements of its first part.
2399			 */
2400			mfc8(nm00, pd13, 0, num, num, AR24, 0)
2401		}
2402
2403		if (AR22) {
2404			/*
2405			 * Initializing the second part of Package with IRefs
2406			 * to elements of its first part.
2407			 */
2408			mfc8(nm00, pd13, 0, num, num, AR24, 0)
2409		} else {
2410			/*
2411			 * Initializing the first part of Package
2412			 */
2413			mfc7(nm00, 0, num, i000)
2414		}
2415
2416		Store(nm00, Local6)
2417		Store(pd13, Local7)
2418	}
2419	Case (1) {
2420
2421		/* 1 - (pd12, p001) */
2422
2423		CopyObject(pd12, nm00)
2424
2425		if (AR22) {
2426			mfc7(nm00, 0, num, i000)
2427		} else {
2428			mfc8(nm00, p001, 0, num, num, AR24, 0)
2429		}
2430
2431		if (AR22) {
2432			mfc8(nm00, p001, 0, num, num, AR24, 0)
2433		} else {
2434			mfc7(nm00, 0, num, i000)
2435		}
2436
2437		Store(nm00, Local6)
2438		Store(p001, Local7)
2439	}
2440	Case (2) {
2441
2442		/* 2 - (pd12, P1) */
2443
2444		CopyObject(pd12, nm00)
2445
2446		if (AR22) {
2447			mfc7(nm00, 0, num, i000)
2448		} else {
2449			mfc8(nm00, arg1, 0, num, num, AR24, 0)
2450		}
2451
2452		if (AR22) {
2453			mfc8(nm00, arg1, 0, num, num, AR24, 0)
2454		} else {
2455			mfc7(nm00, 0, num, i000)
2456		}
2457
2458		Store(nm00, Local6)
2459		Store(arg1, Local7)
2460	}
2461	Case (3) {
2462
2463		/* 3 - (p000, pd13) */
2464
2465		CopyObject(p000, nm00)
2466
2467		if (AR22) {
2468			mfc7(nm00, 0, num, i000)
2469		} else {
2470			mfc8(nm00, pd13, 0, num, num, AR24, 0)
2471		}
2472
2473		if (AR22) {
2474			mfc8(nm00, pd13, 0, num, num, AR24, 0)
2475		} else {
2476			mfc7(nm00, 0, num, i000)
2477		}
2478
2479		Store(nm00, Local6)
2480		Store(pd13, Local7)
2481	}
2482	Case (4) {
2483
2484		/* 4 - (p000, p001) */
2485
2486		CopyObject(p000, nm00)
2487
2488		if (AR22) {
2489			mfc7(nm00, 0, num, i000)
2490		} else {
2491			mfc8(nm00, p001, 0, num, num, AR24, 0)
2492		}
2493
2494		if (AR22) {
2495			mfc8(nm00, p001, 0, num, num, AR24, 0)
2496		} else {
2497			mfc7(nm00, 0, num, i000)
2498		}
2499
2500		Store(nm00, Local6)
2501		Store(p001, Local7)
2502	}
2503	Case (5) {
2504
2505		/* 5 - (p000, P1) */
2506
2507		CopyObject(p000, nm00)
2508
2509		if (AR22) {
2510			mfc7(nm00, 0, num, i000)
2511		} else {
2512			mfc8(nm00, arg1, 0, num, num, AR24, 0)
2513		}
2514
2515		if (AR22) {
2516			mfc8(nm00, arg1, 0, num, num, AR24, 0)
2517		} else {
2518			mfc7(nm00, 0, num, i000)
2519		}
2520
2521		Store(nm00, Local6)
2522		Store(arg1, Local7)
2523	}
2524	Case (6) {
2525
2526		/* 6 - (P0,   pd13) */
2527
2528		CopyObject(arg0, nm00)
2529
2530		if (AR22) {
2531			mfc7(nm00, 0, num, i000)
2532		} else {
2533			mfc8(nm00, pd13, 0, num, num, AR24, 0)
2534		}
2535
2536		if (AR22) {
2537			mfc8(nm00, pd13, 0, num, num, AR24, 0)
2538		} else {
2539			mfc7(nm00, 0, num, i000)
2540		}
2541
2542		Store(nm00, Local6)
2543		Store(pd13, Local7)
2544	}
2545	Case (7) {
2546
2547		/* 7 - (P0,   p001) */
2548
2549		CopyObject(arg0, nm00)
2550
2551		if (AR22) {
2552			mfc7(nm00, 0, num, i000)
2553		} else {
2554			mfc8(nm00, p001, 0, num, num, AR24, 0)
2555		}
2556
2557		if (AR22) {
2558			mfc8(nm00, p001, 0, num, num, AR24, 0)
2559		} else {
2560			mfc7(nm00, 0, num, i000)
2561		}
2562
2563		Store(nm00, Local6)
2564		Store(p001, Local7)
2565	}
2566	Case (8) {
2567
2568		/* 8 - (P0,   P1) */
2569
2570		CopyObject(arg0, nm00)
2571
2572		if (AR22) {
2573			mfc7(nm00, 0, num, i000)
2574		} else {
2575			mfc8(nm00, arg1, 0, num, num, AR24, 0)
2576		}
2577
2578		if (AR22) {
2579			mfc8(nm00, arg1, 0, num, num, AR24, 0)
2580		} else {
2581			mfc7(nm00, 0, num, i000)
2582		}
2583
2584		Store(nm00, Local6)
2585		Store(arg1, Local7)
2586	}
2587	Case (9) {
2588
2589		/* 9 - (p000, p000) */
2590
2591		CopyObject(p000, nm00)
2592
2593		if (AR22) {
2594			mfc7(nm00, 0, num, i000)
2595		} else {
2596			mfc8(nm00, p000, 0, num, num, AR24, 0)
2597		}
2598
2599		if (AR22) {
2600			mfc8(nm00, p000, 0, num, num, AR24, 0)
2601		} else {
2602			mfc7(nm00, 0, num, i000)
2603		}
2604
2605		Store(nm00, Local6)
2606		Store(p000, Local7)
2607	}
2608	Case (10) {
2609
2610		/* 10 - (pd12, pd12) */
2611
2612		CopyObject(pd12, nm00)
2613
2614		if (AR22) {
2615			mfc7(nm00, 0, num, i000)
2616		} else {
2617			mfc8(nm00, pd12, 0, num, num, AR24, 0)
2618		}
2619
2620		if (AR22) {
2621			mfc8(nm00, pd12, 0, num, num, AR24, 0)
2622		} else {
2623			mfc7(nm00, 0, num, i000)
2624		}
2625
2626		Store(nm00, Local6)
2627		Store(pd12, Local7)
2628	}
2629	Case (11) {
2630
2631		/* 11 - (P0,   P0) */
2632
2633		CopyObject(arg0, nm00)
2634
2635		if (AR22) {
2636			mfc7(nm00, 0, num, i000)
2637		} else {
2638			mfc8(nm00, arg0, 0, num, num, AR24, 0)
2639		}
2640
2641		if (AR22) {
2642			mfc8(nm00, arg0, 0, num, num, AR24, 0)
2643		} else {
2644			mfc7(nm00, 0, num, i000)
2645		}
2646
2647		Store(nm00, Local6)
2648		Store(arg0, Local7)
2649	}}
2650
2651	} /* Case(13)/Switch(AR23) */
2652
2653
2654	Case (14) {
2655
2656	/* AR23: 14 (Arg5,  ) */
2657
2658	Switch (ToInteger (AR20)) {
2659	Case (0) {
2660
2661		/* 0 - (pd12, pd13) */
2662
2663		CopyObject(pd12, arg5)
2664
2665		/* AR22 allows to change order of execution */
2666
2667		if (AR22) {
2668			/*
2669			 * Initializing the first part of Package
2670			 */
2671			mfc7(arg5, 0, num, i000)
2672		} else {
2673			/*
2674			 * Initializing the second part of Package with IRefs
2675			 * to elements of its first part.
2676			 */
2677			mfc8(arg5, pd13, 0, num, num, AR24, 0)
2678		}
2679
2680		if (AR22) {
2681			/*
2682			 * Initializing the second part of Package with IRefs
2683			 * to elements of its first part.
2684			 */
2685			mfc8(arg5, pd13, 0, num, num, AR24, 0)
2686		} else {
2687			/*
2688			 * Initializing the first part of Package
2689			 */
2690			mfc7(arg5, 0, num, i000)
2691		}
2692
2693		Store(arg5, Local6)
2694		Store(pd13, Local7)
2695	}
2696	Case (1) {
2697
2698		/* 1 - (pd12, p001) */
2699
2700		CopyObject(pd12, arg5)
2701
2702		if (AR22) {
2703			mfc7(arg5, 0, num, i000)
2704		} else {
2705			mfc8(arg5, p001, 0, num, num, AR24, 0)
2706		}
2707
2708		if (AR22) {
2709			mfc8(arg5, p001, 0, num, num, AR24, 0)
2710		} else {
2711			mfc7(arg5, 0, num, i000)
2712		}
2713
2714		Store(arg5, Local6)
2715		Store(p001, Local7)
2716	}
2717	Case (2) {
2718
2719		/* 2 - (pd12, P1) */
2720
2721		CopyObject(pd12, arg5)
2722
2723		if (AR22) {
2724			mfc7(arg5, 0, num, i000)
2725		} else {
2726			mfc8(arg5, arg1, 0, num, num, AR24, 0)
2727		}
2728
2729		if (AR22) {
2730			mfc8(arg5, arg1, 0, num, num, AR24, 0)
2731		} else {
2732			mfc7(arg5, 0, num, i000)
2733		}
2734
2735		Store(arg5, Local6)
2736		Store(arg1, Local7)
2737	}
2738	Case (3) {
2739
2740		/* 3 - (p000, pd13) */
2741
2742		CopyObject(p000, arg5)
2743
2744		if (AR22) {
2745			mfc7(arg5, 0, num, i000)
2746		} else {
2747			mfc8(arg5, pd13, 0, num, num, AR24, 0)
2748		}
2749
2750		if (AR22) {
2751			mfc8(arg5, pd13, 0, num, num, AR24, 0)
2752		} else {
2753			mfc7(arg5, 0, num, i000)
2754		}
2755
2756		Store(arg5, Local6)
2757		Store(pd13, Local7)
2758	}
2759	Case (4) {
2760
2761		/* 4 - (p000, p001) */
2762
2763		CopyObject(p000, arg5)
2764
2765		if (AR22) {
2766			mfc7(arg5, 0, num, i000)
2767		} else {
2768			mfc8(arg5, p001, 0, num, num, AR24, 0)
2769		}
2770
2771		if (AR22) {
2772			mfc8(arg5, p001, 0, num, num, AR24, 0)
2773		} else {
2774			mfc7(arg5, 0, num, i000)
2775		}
2776
2777		Store(arg5, Local6)
2778		Store(p001, Local7)
2779	}
2780	Case (5) {
2781
2782		/* 5 - (p000, P1) */
2783
2784		CopyObject(p000, arg5)
2785
2786		if (AR22) {
2787			mfc7(arg5, 0, num, i000)
2788		} else {
2789			mfc8(arg5, arg1, 0, num, num, AR24, 0)
2790		}
2791
2792		if (AR22) {
2793			mfc8(arg5, arg1, 0, num, num, AR24, 0)
2794		} else {
2795			mfc7(arg5, 0, num, i000)
2796		}
2797
2798		Store(arg5, Local6)
2799		Store(arg1, Local7)
2800	}
2801	Case (6) {
2802
2803		/* 6 - (P0,   pd13) */
2804
2805		CopyObject(arg0, arg5)
2806
2807		if (AR22) {
2808			mfc7(arg5, 0, num, i000)
2809		} else {
2810			mfc8(arg5, pd13, 0, num, num, AR24, 0)
2811		}
2812
2813		if (AR22) {
2814			mfc8(arg5, pd13, 0, num, num, AR24, 0)
2815		} else {
2816			mfc7(arg5, 0, num, i000)
2817		}
2818
2819		Store(arg5, Local6)
2820		Store(pd13, Local7)
2821	}
2822	Case (7) {
2823
2824		/* 7 - (P0,   p001) */
2825
2826		CopyObject(arg0, arg5)
2827
2828		if (AR22) {
2829			mfc7(arg5, 0, num, i000)
2830		} else {
2831			mfc8(arg5, p001, 0, num, num, AR24, 0)
2832		}
2833
2834		if (AR22) {
2835			mfc8(arg5, p001, 0, num, num, AR24, 0)
2836		} else {
2837			mfc7(arg5, 0, num, i000)
2838		}
2839
2840		Store(arg5, Local6)
2841		Store(p001, Local7)
2842	}
2843	Case (8) {
2844
2845		/* 8 - (P0,   P1) */
2846
2847		CopyObject(arg0, arg5)
2848
2849		if (AR22) {
2850			mfc7(arg5, 0, num, i000)
2851		} else {
2852			mfc8(arg5, arg1, 0, num, num, AR24, 0)
2853		}
2854
2855		if (AR22) {
2856			mfc8(arg5, arg1, 0, num, num, AR24, 0)
2857		} else {
2858			mfc7(arg5, 0, num, i000)
2859		}
2860
2861		Store(arg5, Local6)
2862		Store(arg1, Local7)
2863	}
2864	Case (9) {
2865
2866		/* 9 - (p000, p000) */
2867
2868		CopyObject(p000, arg5)
2869
2870		if (AR22) {
2871			mfc7(arg5, 0, num, i000)
2872		} else {
2873			mfc8(arg5, p000, 0, num, num, AR24, 0)
2874		}
2875
2876		if (AR22) {
2877			mfc8(arg5, p000, 0, num, num, AR24, 0)
2878		} else {
2879			mfc7(arg5, 0, num, i000)
2880		}
2881
2882		Store(arg5, Local6)
2883		Store(p000, Local7)
2884	}
2885	Case (10) {
2886
2887		/* 10 - (pd12, pd12) */
2888
2889		CopyObject(pd12, arg5)
2890
2891		if (AR22) {
2892			mfc7(arg5, 0, num, i000)
2893		} else {
2894			mfc8(arg5, pd12, 0, num, num, AR24, 0)
2895		}
2896
2897		if (AR22) {
2898			mfc8(arg5, pd12, 0, num, num, AR24, 0)
2899		} else {
2900			mfc7(arg5, 0, num, i000)
2901		}
2902
2903		Store(arg5, Local6)
2904		Store(pd12, Local7)
2905	}
2906	Case (11) {
2907
2908		/* 11 - (P0,   P0) */
2909
2910		CopyObject(arg0, arg5)
2911
2912		if (AR22) {
2913			mfc7(arg5, 0, num, i000)
2914		} else {
2915			mfc8(arg5, arg0, 0, num, num, AR24, 0)
2916		}
2917
2918		if (AR22) {
2919			mfc8(arg5, arg0, 0, num, num, AR24, 0)
2920		} else {
2921			mfc7(arg5, 0, num, i000)
2922		}
2923
2924		Store(arg5, Local6)
2925		Store(arg0, Local7)
2926	}}
2927
2928	} /* Case(14)/Switch(AR23) */
2929
2930
2931	Case (15) {
2932
2933	/* AR23: 15 (Loc4,  ) */
2934
2935	Switch (ToInteger (AR20)) {
2936	Case (0) {
2937
2938		/* 0 - (pd12, pd13) */
2939
2940		CopyObject(pd12, Local4)
2941
2942		/* AR22 allows to change order of execution */
2943
2944		if (AR22) {
2945			/*
2946			 * Initializing the first part of Package
2947			 */
2948			mfc7(Local4, 0, num, i000)
2949		} else {
2950			/*
2951			 * Initializing the second part of Package with IRefs
2952			 * to elements of its first part.
2953			 */
2954			mfc8(Local4, pd13, 0, num, num, AR24, 0)
2955		}
2956
2957		if (AR22) {
2958			/*
2959			 * Initializing the second part of Package with IRefs
2960			 * to elements of its first part.
2961			 */
2962			mfc8(Local4, pd13, 0, num, num, AR24, 0)
2963		} else {
2964			/*
2965			 * Initializing the first part of Package
2966			 */
2967			mfc7(Local4, 0, num, i000)
2968		}
2969
2970		Store(Local4, Local6)
2971		Store(pd13, Local7)
2972	}
2973	Case (1) {
2974
2975		/* 1 - (pd12, p001) */
2976
2977		CopyObject(pd12, Local4)
2978
2979		if (AR22) {
2980			mfc7(Local4, 0, num, i000)
2981		} else {
2982			mfc8(Local4, p001, 0, num, num, AR24, 0)
2983		}
2984
2985		if (AR22) {
2986			mfc8(Local4, p001, 0, num, num, AR24, 0)
2987		} else {
2988			mfc7(Local4, 0, num, i000)
2989		}
2990
2991		Store(Local4, Local6)
2992		Store(p001, Local7)
2993	}
2994	Case (2) {
2995
2996		/* 2 - (pd12, P1) */
2997
2998		CopyObject(pd12, Local4)
2999
3000		if (AR22) {
3001			mfc7(Local4, 0, num, i000)
3002		} else {
3003			mfc8(Local4, arg1, 0, num, num, AR24, 0)
3004		}
3005
3006		if (AR22) {
3007			mfc8(Local4, arg1, 0, num, num, AR24, 0)
3008		} else {
3009			mfc7(Local4, 0, num, i000)
3010		}
3011
3012		Store(Local4, Local6)
3013		Store(arg1, Local7)
3014	}
3015	Case (3) {
3016
3017		/* 3 - (p000, pd13) */
3018
3019		CopyObject(p000, Local4)
3020
3021		if (AR22) {
3022			mfc7(Local4, 0, num, i000)
3023		} else {
3024			mfc8(Local4, pd13, 0, num, num, AR24, 0)
3025		}
3026
3027		if (AR22) {
3028			mfc8(Local4, pd13, 0, num, num, AR24, 0)
3029		} else {
3030			mfc7(Local4, 0, num, i000)
3031		}
3032
3033		Store(Local4, Local6)
3034		Store(pd13, Local7)
3035	}
3036	Case (4) {
3037
3038		/* 4 - (p000, p001) */
3039
3040		CopyObject(p000, Local4)
3041
3042		if (AR22) {
3043			mfc7(Local4, 0, num, i000)
3044		} else {
3045			mfc8(Local4, p001, 0, num, num, AR24, 0)
3046		}
3047
3048		if (AR22) {
3049			mfc8(Local4, p001, 0, num, num, AR24, 0)
3050		} else {
3051			mfc7(Local4, 0, num, i000)
3052		}
3053
3054		Store(Local4, Local6)
3055		Store(p001, Local7)
3056	}
3057	Case (5) {
3058
3059		/* 5 - (p000, P1) */
3060
3061		CopyObject(p000, Local4)
3062
3063		if (AR22) {
3064			mfc7(Local4, 0, num, i000)
3065		} else {
3066			mfc8(Local4, arg1, 0, num, num, AR24, 0)
3067		}
3068
3069		if (AR22) {
3070			mfc8(Local4, arg1, 0, num, num, AR24, 0)
3071		} else {
3072			mfc7(Local4, 0, num, i000)
3073		}
3074
3075		Store(Local4, Local6)
3076		Store(arg1, Local7)
3077	}
3078	Case (6) {
3079
3080		/* 6 - (P0,   pd13) */
3081
3082		CopyObject(arg0, Local4)
3083
3084		if (AR22) {
3085			mfc7(Local4, 0, num, i000)
3086		} else {
3087			mfc8(Local4, pd13, 0, num, num, AR24, 0)
3088		}
3089
3090		if (AR22) {
3091			mfc8(Local4, pd13, 0, num, num, AR24, 0)
3092		} else {
3093			mfc7(Local4, 0, num, i000)
3094		}
3095
3096		Store(Local4, Local6)
3097		Store(pd13, Local7)
3098	}
3099	Case (7) {
3100
3101		/* 7 - (P0,   p001) */
3102
3103		CopyObject(arg0, Local4)
3104
3105		if (AR22) {
3106			mfc7(Local4, 0, num, i000)
3107		} else {
3108			mfc8(Local4, p001, 0, num, num, AR24, 0)
3109		}
3110
3111		if (AR22) {
3112			mfc8(Local4, p001, 0, num, num, AR24, 0)
3113		} else {
3114			mfc7(Local4, 0, num, i000)
3115		}
3116
3117		Store(Local4, Local6)
3118		Store(p001, Local7)
3119	}
3120	Case (8) {
3121
3122		/* 8 - (P0,   P1) */
3123
3124		CopyObject(arg0, Local4)
3125
3126		if (AR22) {
3127			mfc7(Local4, 0, num, i000)
3128		} else {
3129			mfc8(Local4, arg1, 0, num, num, AR24, 0)
3130		}
3131
3132		if (AR22) {
3133			mfc8(Local4, arg1, 0, num, num, AR24, 0)
3134		} else {
3135			mfc7(Local4, 0, num, i000)
3136		}
3137
3138		Store(Local4, Local6)
3139		Store(arg1, Local7)
3140	}
3141	Case (9) {
3142
3143		/* 9 - (p000, p000) */
3144
3145		CopyObject(p000, Local4)
3146
3147		if (AR22) {
3148			mfc7(Local4, 0, num, i000)
3149		} else {
3150			mfc8(Local4, p000, 0, num, num, AR24, 0)
3151		}
3152
3153		if (AR22) {
3154			mfc8(Local4, p000, 0, num, num, AR24, 0)
3155		} else {
3156			mfc7(Local4, 0, num, i000)
3157		}
3158
3159		Store(Local4, Local6)
3160		Store(p000, Local7)
3161	}
3162	Case (10) {
3163
3164		/* 10 - (pd12, pd12) */
3165
3166		CopyObject(pd12, Local4)
3167
3168		if (AR22) {
3169			mfc7(Local4, 0, num, i000)
3170		} else {
3171			mfc8(Local4, pd12, 0, num, num, AR24, 0)
3172		}
3173
3174		if (AR22) {
3175			mfc8(Local4, pd12, 0, num, num, AR24, 0)
3176		} else {
3177			mfc7(Local4, 0, num, i000)
3178		}
3179
3180		Store(Local4, Local6)
3181		Store(pd12, Local7)
3182	}
3183	Case (11) {
3184
3185		/* 11 - (P0,   P0) */
3186
3187		CopyObject(arg0, Local4)
3188
3189		if (AR22) {
3190			mfc7(Local4, 0, num, i000)
3191		} else {
3192			mfc8(Local4, arg0, 0, num, num, AR24, 0)
3193		}
3194
3195		if (AR22) {
3196			mfc8(Local4, arg0, 0, num, num, AR24, 0)
3197		} else {
3198			mfc7(Local4, 0, num, i000)
3199		}
3200
3201		Store(Local4, Local6)
3202		Store(arg0, Local7)
3203	}}
3204
3205	} /* Case(15)/Switch(AR23) */
3206
3207
3208	Case (16) {
3209
3210	/* AR23: 16 (  , Named1) */
3211
3212	Switch (ToInteger (AR20)) {
3213	Case (0) {
3214
3215		/* 0 - (pd12, pd13) */
3216
3217		CopyObject(pd13, nm03)
3218
3219		/* AR22 allows to change order of execution */
3220
3221		if (AR22) {
3222			/*
3223			 * Initializing the first part of Package
3224			 */
3225			mfc7(pd12, 0, num, i000)
3226		} else {
3227			/*
3228			 * Initializing the second part of Package with IRefs
3229			 * to elements of its first part.
3230			 */
3231			mfc8(pd12, nm03, 0, num, num, AR24, 0)
3232		}
3233
3234		if (AR22) {
3235			/*
3236			 * Initializing the second part of Package with IRefs
3237			 * to elements of its first part.
3238			 */
3239			mfc8(pd12, nm03, 0, num, num, AR24, 0)
3240		} else {
3241			/*
3242			 * Initializing the first part of Package
3243			 */
3244			mfc7(pd12, 0, num, i000)
3245		}
3246
3247		Store(pd12, Local6)
3248		Store(nm03, Local7)
3249	}
3250	Case (1) {
3251
3252		/* 1 - (pd12, p001) */
3253
3254		CopyObject(p001, nm03)
3255
3256		if (AR22) {
3257			mfc7(pd12, 0, num, i000)
3258		} else {
3259			mfc8(pd12, nm03, 0, num, num, AR24, 0)
3260		}
3261
3262		if (AR22) {
3263			mfc8(pd12, nm03, 0, num, num, AR24, 0)
3264		} else {
3265			mfc7(pd12, 0, num, i000)
3266		}
3267
3268		Store(pd12, Local6)
3269		Store(nm03, Local7)
3270	}
3271	Case (2) {
3272
3273		/* 2 - (pd12, P1) */
3274
3275		CopyObject(arg1, nm03)
3276
3277		if (AR22) {
3278			mfc7(pd12, 0, num, i000)
3279		} else {
3280			mfc8(pd12, nm03, 0, num, num, AR24, 0)
3281		}
3282
3283		if (AR22) {
3284			mfc8(pd12, nm03, 0, num, num, AR24, 0)
3285		} else {
3286			mfc7(pd12, 0, num, i000)
3287		}
3288
3289		Store(pd12, Local6)
3290		Store(nm03, Local7)
3291	}
3292	Case (3) {
3293
3294		/* 3 - (p000, pd13) */
3295
3296		CopyObject(pd13, nm03)
3297
3298		if (AR22) {
3299			mfc7(p000, 0, num, i000)
3300		} else {
3301			mfc8(p000, nm03, 0, num, num, AR24, 0)
3302		}
3303
3304		if (AR22) {
3305			mfc8(p000, nm03, 0, num, num, AR24, 0)
3306		} else {
3307			mfc7(p000, 0, num, i000)
3308		}
3309
3310		Store(p000, Local6)
3311		Store(nm03, Local7)
3312	}
3313	Case (4) {
3314
3315		/* 4 - (p000, p001) */
3316
3317		CopyObject(p001, nm03)
3318
3319		if (AR22) {
3320			mfc7(p000, 0, num, i000)
3321		} else {
3322			mfc8(p000, nm03, 0, num, num, AR24, 0)
3323		}
3324
3325		if (AR22) {
3326			mfc8(p000, nm03, 0, num, num, AR24, 0)
3327		} else {
3328			mfc7(p000, 0, num, i000)
3329		}
3330
3331		Store(p000, Local6)
3332		Store(nm03, Local7)
3333	}
3334	Case (5) {
3335
3336		/* 5 - (p000, P1) */
3337
3338		CopyObject(arg1, nm03)
3339
3340		if (AR22) {
3341			mfc7(p000, 0, num, i000)
3342		} else {
3343			mfc8(p000, nm03, 0, num, num, AR24, 0)
3344		}
3345
3346		if (AR22) {
3347			mfc8(p000, nm03, 0, num, num, AR24, 0)
3348		} else {
3349			mfc7(p000, 0, num, i000)
3350		}
3351
3352		Store(p000, Local6)
3353		Store(nm03, Local7)
3354	}
3355	Case (6) {
3356
3357		/* 6 - (P0,   pd13) */
3358
3359		CopyObject(pd13, nm03)
3360
3361		if (AR22) {
3362			mfc7(arg0, 0, num, i000)
3363		} else {
3364			mfc8(arg0, nm03, 0, num, num, AR24, 0)
3365		}
3366
3367		if (AR22) {
3368			mfc8(arg0, nm03, 0, num, num, AR24, 0)
3369		} else {
3370			mfc7(arg0, 0, num, i000)
3371		}
3372
3373		Store(arg0, Local6)
3374		Store(nm03, Local7)
3375	}
3376	Case (7) {
3377
3378		/* 7 - (P0,   p001) */
3379
3380		CopyObject(p001, nm03)
3381
3382		if (AR22) {
3383			mfc7(arg0, 0, num, i000)
3384		} else {
3385			mfc8(arg0, nm03, 0, num, num, AR24, 0)
3386		}
3387
3388		if (AR22) {
3389			mfc8(arg0, nm03, 0, num, num, AR24, 0)
3390		} else {
3391			mfc7(arg0, 0, num, i000)
3392		}
3393
3394		Store(arg0, Local6)
3395		Store(nm03, Local7)
3396	}
3397	Case (8) {
3398
3399		/* 8 - (P0,   P1) */
3400
3401		CopyObject(arg1, nm03)
3402
3403		if (AR22) {
3404			mfc7(arg0, 0, num, i000)
3405		} else {
3406			mfc8(arg0, nm03, 0, num, num, AR24, 0)
3407		}
3408
3409		if (AR22) {
3410			mfc8(arg0, nm03, 0, num, num, AR24, 0)
3411		} else {
3412			mfc7(arg0, 0, num, i000)
3413		}
3414
3415		Store(arg0, Local6)
3416		Store(nm03, Local7)
3417	}
3418	Case (9) {
3419
3420		/* 9 - (p000, p000) */
3421
3422		CopyObject(p000, nm03)
3423
3424		if (AR22) {
3425			mfc7(p000, 0, num, i000)
3426		} else {
3427			mfc8(p000, nm03, 0, num, num, AR24, 0)
3428		}
3429
3430		if (AR22) {
3431			mfc8(p000, nm03, 0, num, num, AR24, 0)
3432		} else {
3433			mfc7(p000, 0, num, i000)
3434		}
3435
3436		Store(p000, Local6)
3437		Store(nm03, Local7)
3438	}
3439	Case (10) {
3440
3441		/* 10 - (pd12, pd12) */
3442
3443		CopyObject(pd12, nm03)
3444
3445		if (AR22) {
3446			mfc7(pd12, 0, num, i000)
3447		} else {
3448			mfc8(pd12, nm03, 0, num, num, AR24, 0)
3449		}
3450
3451		if (AR22) {
3452			mfc8(pd12, nm03, 0, num, num, AR24, 0)
3453		} else {
3454			mfc7(pd12, 0, num, i000)
3455		}
3456
3457		Store(pd12, Local6)
3458		Store(nm03, Local7)
3459	}
3460	Case (11) {
3461
3462		/* 11 - (P0,   P0) */
3463
3464		CopyObject(arg0, nm03)
3465
3466		if (AR22) {
3467			mfc7(arg0, 0, num, i000)
3468		} else {
3469			mfc8(arg0, nm03, 0, num, num, AR24, 0)
3470		}
3471
3472		if (AR22) {
3473			mfc8(arg0, nm03, 0, num, num, AR24, 0)
3474		} else {
3475			mfc7(arg0, 0, num, i000)
3476		}
3477
3478		Store(arg0, Local6)
3479		Store(nm03, Local7)
3480	}}
3481
3482	} /* Case(16)/Switch(AR23) */
3483
3484
3485	Case (17) {
3486
3487	/* AR23: 17 (  , Arg6) */
3488
3489	Switch (ToInteger (AR20)) {
3490	Case (0) {
3491
3492		/* 0 - (pd12, pd13) */
3493
3494		CopyObject(pd13, arg6)
3495
3496		/* AR22 allows to change order of execution */
3497
3498		if (AR22) {
3499			/*
3500			 * Initializing the first part of Package
3501			 */
3502			mfc7(pd12, 0, num, i000)
3503		} else {
3504			/*
3505			 * Initializing the second part of Package with IRefs
3506			 * to elements of its first part.
3507			 */
3508			mfc8(pd12, arg6, 0, num, num, AR24, 0)
3509		}
3510
3511		if (AR22) {
3512			/*
3513			 * Initializing the second part of Package with IRefs
3514			 * to elements of its first part.
3515			 */
3516			mfc8(pd12, arg6, 0, num, num, AR24, 0)
3517		} else {
3518			/*
3519			 * Initializing the first part of Package
3520			 */
3521			mfc7(pd12, 0, num, i000)
3522		}
3523
3524		Store(pd12, Local6)
3525		Store(arg6, Local7)
3526	}
3527	Case (1) {
3528
3529		/* 1 - (pd12, p001) */
3530
3531		CopyObject(p001, arg6)
3532
3533		if (AR22) {
3534			mfc7(pd12, 0, num, i000)
3535		} else {
3536			mfc8(pd12, arg6, 0, num, num, AR24, 0)
3537		}
3538
3539		if (AR22) {
3540			mfc8(pd12, arg6, 0, num, num, AR24, 0)
3541		} else {
3542			mfc7(pd12, 0, num, i000)
3543		}
3544
3545		Store(pd12, Local6)
3546		Store(arg6, Local7)
3547	}
3548	Case (2) {
3549
3550		/* 2 - (pd12, P1) */
3551
3552		CopyObject(arg1, arg6)
3553
3554		if (AR22) {
3555			mfc7(pd12, 0, num, i000)
3556		} else {
3557			mfc8(pd12, arg6, 0, num, num, AR24, 0)
3558		}
3559
3560		if (AR22) {
3561			mfc8(pd12, arg6, 0, num, num, AR24, 0)
3562		} else {
3563			mfc7(pd12, 0, num, i000)
3564		}
3565
3566		Store(pd12, Local6)
3567		Store(arg6, Local7)
3568	}
3569	Case (3) {
3570
3571		/* 3 - (p000, pd13) */
3572
3573		CopyObject(pd13, arg6)
3574
3575		if (AR22) {
3576			mfc7(p000, 0, num, i000)
3577		} else {
3578			mfc8(p000, arg6, 0, num, num, AR24, 0)
3579		}
3580
3581		if (AR22) {
3582			mfc8(p000, arg6, 0, num, num, AR24, 0)
3583		} else {
3584			mfc7(p000, 0, num, i000)
3585		}
3586
3587		Store(p000, Local6)
3588		Store(arg6, Local7)
3589	}
3590	Case (4) {
3591
3592		/* 4 - (p000, p001) */
3593
3594		CopyObject(p001, arg6)
3595
3596		if (AR22) {
3597			mfc7(p000, 0, num, i000)
3598		} else {
3599			mfc8(p000, arg6, 0, num, num, AR24, 0)
3600		}
3601
3602		if (AR22) {
3603			mfc8(p000, arg6, 0, num, num, AR24, 0)
3604		} else {
3605			mfc7(p000, 0, num, i000)
3606		}
3607
3608		Store(p000, Local6)
3609		Store(arg6, Local7)
3610	}
3611	Case (5) {
3612
3613		/* 5 - (p000, P1) */
3614
3615		CopyObject(arg1, arg6)
3616
3617		if (AR22) {
3618			mfc7(p000, 0, num, i000)
3619		} else {
3620			mfc8(p000, arg6, 0, num, num, AR24, 0)
3621		}
3622
3623		if (AR22) {
3624			mfc8(p000, arg6, 0, num, num, AR24, 0)
3625		} else {
3626			mfc7(p000, 0, num, i000)
3627		}
3628
3629		Store(p000, Local6)
3630		Store(arg6, Local7)
3631	}
3632	Case (6) {
3633
3634		/* 6 - (P0,   pd13) */
3635
3636		CopyObject(pd13, arg6)
3637
3638		if (AR22) {
3639			mfc7(arg0, 0, num, i000)
3640		} else {
3641			mfc8(arg0, arg6, 0, num, num, AR24, 0)
3642		}
3643
3644		if (AR22) {
3645			mfc8(arg0, arg6, 0, num, num, AR24, 0)
3646		} else {
3647			mfc7(arg0, 0, num, i000)
3648		}
3649
3650		Store(arg0, Local6)
3651		Store(arg6, Local7)
3652	}
3653	Case (7) {
3654
3655		/* 7 - (P0,   p001) */
3656
3657		CopyObject(p001, arg6)
3658
3659		if (AR22) {
3660			mfc7(arg0, 0, num, i000)
3661		} else {
3662			mfc8(arg0, arg6, 0, num, num, AR24, 0)
3663		}
3664
3665		if (AR22) {
3666			mfc8(arg0, arg6, 0, num, num, AR24, 0)
3667		} else {
3668			mfc7(arg0, 0, num, i000)
3669		}
3670
3671		Store(arg0, Local6)
3672		Store(arg6, Local7)
3673	}
3674	Case (8) {
3675
3676		/* 8 - (P0,   P1) */
3677
3678		CopyObject(arg1, arg6)
3679
3680		if (AR22) {
3681			mfc7(arg0, 0, num, i000)
3682		} else {
3683			mfc8(arg0, arg6, 0, num, num, AR24, 0)
3684		}
3685
3686		if (AR22) {
3687			mfc8(arg0, arg6, 0, num, num, AR24, 0)
3688		} else {
3689			mfc7(arg0, 0, num, i000)
3690		}
3691
3692		Store(arg0, Local6)
3693		Store(arg6, Local7)
3694	}
3695	Case (9) {
3696
3697		/* 9 - (p000, p000) */
3698
3699		CopyObject(p000, arg6)
3700
3701		if (AR22) {
3702			mfc7(p000, 0, num, i000)
3703		} else {
3704			mfc8(p000, arg6, 0, num, num, AR24, 0)
3705		}
3706
3707		if (AR22) {
3708			mfc8(p000, arg6, 0, num, num, AR24, 0)
3709		} else {
3710			mfc7(p000, 0, num, i000)
3711		}
3712
3713		Store(p000, Local6)
3714		Store(arg6, Local7)
3715	}
3716	Case (10) {
3717
3718		/* 10 - (pd12, pd12) */
3719
3720		CopyObject(pd12, arg6)
3721
3722		if (AR22) {
3723			mfc7(pd12, 0, num, i000)
3724		} else {
3725			mfc8(pd12, arg6, 0, num, num, AR24, 0)
3726		}
3727
3728		if (AR22) {
3729			mfc8(pd12, arg6, 0, num, num, AR24, 0)
3730		} else {
3731			mfc7(pd12, 0, num, i000)
3732		}
3733
3734		Store(pd12, Local6)
3735		Store(arg6, Local7)
3736	}
3737	Case (11) {
3738
3739		/* 11 - (P0,   P0) */
3740
3741		CopyObject(arg0, arg6)
3742
3743		if (AR22) {
3744			mfc7(arg0, 0, num, i000)
3745		} else {
3746			mfc8(arg0, arg6, 0, num, num, AR24, 0)
3747		}
3748
3749		if (AR22) {
3750			mfc8(arg0, arg6, 0, num, num, AR24, 0)
3751		} else {
3752			mfc7(arg0, 0, num, i000)
3753		}
3754
3755		Store(arg0, Local6)
3756		Store(arg6, Local7)
3757	}}
3758
3759	} /* Case(17)/Switch(AR23) */
3760
3761
3762	Case (18) {
3763
3764	/* AR23: 18 (  , Loc5) */
3765
3766	Switch (ToInteger (AR20)) {
3767	Case (0) {
3768
3769		/* 0 - (pd12, pd13) */
3770
3771		CopyObject(pd13, Local5)
3772
3773		/* AR22 allows to change order of execution */
3774
3775		if (AR22) {
3776			/*
3777			 * Initializing the first part of Package
3778			 */
3779			mfc7(pd12, 0, num, i000)
3780		} else {
3781			/*
3782			 * Initializing the second part of Package with IRefs
3783			 * to elements of its first part.
3784			 */
3785			mfc8(pd12, Local5, 0, num, num, AR24, 0)
3786		}
3787
3788		if (AR22) {
3789			/*
3790			 * Initializing the second part of Package with IRefs
3791			 * to elements of its first part.
3792			 */
3793			mfc8(pd12, Local5, 0, num, num, AR24, 0)
3794		} else {
3795			/*
3796			 * Initializing the first part of Package
3797			 */
3798			mfc7(pd12, 0, num, i000)
3799		}
3800
3801		Store(pd12, Local6)
3802		Store(Local5, Local7)
3803	}
3804	Case (1) {
3805
3806		/* 1 - (pd12, p001) */
3807
3808		CopyObject(p001, Local5)
3809
3810		if (AR22) {
3811			mfc7(pd12, 0, num, i000)
3812		} else {
3813			mfc8(pd12, Local5, 0, num, num, AR24, 0)
3814		}
3815
3816		if (AR22) {
3817			mfc8(pd12, Local5, 0, num, num, AR24, 0)
3818		} else {
3819			mfc7(pd12, 0, num, i000)
3820		}
3821
3822		Store(pd12, Local6)
3823		Store(Local5, Local7)
3824	}
3825	Case (2) {
3826
3827		/* 2 - (pd12, P1) */
3828
3829		CopyObject(arg1, Local5)
3830
3831		if (AR22) {
3832			mfc7(pd12, 0, num, i000)
3833		} else {
3834			mfc8(pd12, Local5, 0, num, num, AR24, 0)
3835		}
3836
3837		if (AR22) {
3838			mfc8(pd12, Local5, 0, num, num, AR24, 0)
3839		} else {
3840			mfc7(pd12, 0, num, i000)
3841		}
3842
3843		Store(pd12, Local6)
3844		Store(Local5, Local7)
3845	}
3846	Case (3) {
3847
3848		/* 3 - (p000, pd13) */
3849
3850		CopyObject(pd13, Local5)
3851
3852		if (AR22) {
3853			mfc7(p000, 0, num, i000)
3854		} else {
3855			mfc8(p000, Local5, 0, num, num, AR24, 0)
3856		}
3857
3858		if (AR22) {
3859			mfc8(p000, Local5, 0, num, num, AR24, 0)
3860		} else {
3861			mfc7(p000, 0, num, i000)
3862		}
3863
3864		Store(p000, Local6)
3865		Store(Local5, Local7)
3866	}
3867	Case (4) {
3868
3869		/* 4 - (p000, p001) */
3870
3871		CopyObject(p001, Local5)
3872
3873		if (AR22) {
3874			mfc7(p000, 0, num, i000)
3875		} else {
3876			mfc8(p000, Local5, 0, num, num, AR24, 0)
3877		}
3878
3879		if (AR22) {
3880			mfc8(p000, Local5, 0, num, num, AR24, 0)
3881		} else {
3882			mfc7(p000, 0, num, i000)
3883		}
3884
3885		Store(p000, Local6)
3886		Store(Local5, Local7)
3887	}
3888	Case (5) {
3889
3890		/* 5 - (p000, P1) */
3891
3892		CopyObject(arg1, Local5)
3893
3894		if (AR22) {
3895			mfc7(p000, 0, num, i000)
3896		} else {
3897			mfc8(p000, Local5, 0, num, num, AR24, 0)
3898		}
3899
3900		if (AR22) {
3901			mfc8(p000, Local5, 0, num, num, AR24, 0)
3902		} else {
3903			mfc7(p000, 0, num, i000)
3904		}
3905
3906		Store(p000, Local6)
3907		Store(Local5, Local7)
3908	}
3909	Case (6) {
3910
3911		/* 6 - (P0,   pd13) */
3912
3913		CopyObject(pd13, Local5)
3914
3915		if (AR22) {
3916			mfc7(arg0, 0, num, i000)
3917		} else {
3918			mfc8(arg0, Local5, 0, num, num, AR24, 0)
3919		}
3920
3921		if (AR22) {
3922			mfc8(arg0, Local5, 0, num, num, AR24, 0)
3923		} else {
3924			mfc7(arg0, 0, num, i000)
3925		}
3926
3927		Store(arg0, Local6)
3928		Store(Local5, Local7)
3929	}
3930	Case (7) {
3931
3932		/* 7 - (P0,   p001) */
3933
3934		CopyObject(p001, Local5)
3935
3936		if (AR22) {
3937			mfc7(arg0, 0, num, i000)
3938		} else {
3939			mfc8(arg0, Local5, 0, num, num, AR24, 0)
3940		}
3941
3942		if (AR22) {
3943			mfc8(arg0, Local5, 0, num, num, AR24, 0)
3944		} else {
3945			mfc7(arg0, 0, num, i000)
3946		}
3947
3948		Store(arg0, Local6)
3949		Store(Local5, Local7)
3950	}
3951	Case (8) {
3952
3953		/* 8 - (P0,   P1) */
3954
3955		CopyObject(arg1, Local5)
3956
3957		if (AR22) {
3958			mfc7(arg0, 0, num, i000)
3959		} else {
3960			mfc8(arg0, Local5, 0, num, num, AR24, 0)
3961		}
3962
3963		if (AR22) {
3964			mfc8(arg0, Local5, 0, num, num, AR24, 0)
3965		} else {
3966			mfc7(arg0, 0, num, i000)
3967		}
3968
3969		Store(arg0, Local6)
3970		Store(Local5, Local7)
3971	}
3972	Case (9) {
3973
3974		/* 9 - (p000, p000) */
3975
3976		CopyObject(p000, Local5)
3977
3978		if (AR22) {
3979			mfc7(p000, 0, num, i000)
3980		} else {
3981			mfc8(p000, Local5, 0, num, num, AR24, 0)
3982		}
3983
3984		if (AR22) {
3985			mfc8(p000, Local5, 0, num, num, AR24, 0)
3986		} else {
3987			mfc7(p000, 0, num, i000)
3988		}
3989
3990		Store(p000, Local6)
3991		Store(Local5, Local7)
3992	}
3993	Case (10) {
3994
3995		/* 10 - (pd12, pd12) */
3996
3997		CopyObject(pd12, Local5)
3998
3999		if (AR22) {
4000			mfc7(pd12, 0, num, i000)
4001		} else {
4002			mfc8(pd12, Local5, 0, num, num, AR24, 0)
4003		}
4004
4005		if (AR22) {
4006			mfc8(pd12, Local5, 0, num, num, AR24, 0)
4007		} else {
4008			mfc7(pd12, 0, num, i000)
4009		}
4010
4011		Store(pd12, Local6)
4012		Store(Local5, Local7)
4013	}
4014	Case (11) {
4015
4016		/* 11 - (P0,   P0) */
4017
4018		CopyObject(arg0, Local5)
4019
4020		if (AR22) {
4021			mfc7(arg0, 0, num, i000)
4022		} else {
4023			mfc8(arg0, Local5, 0, num, num, AR24, 0)
4024		}
4025
4026		if (AR22) {
4027			mfc8(arg0, Local5, 0, num, num, AR24, 0)
4028		} else {
4029			mfc7(arg0, 0, num, i000)
4030		}
4031
4032		Store(arg0, Local6)
4033		Store(Local5, Local7)
4034	}}
4035
4036	} /* Case(18)/Switch(AR23) */
4037
4038	} /* Switch(AR23) */
4039
4040
4041	/*
4042	 * Verifying the contents of Package by
4043	 * accessing elements of its first part
4044	 * (monotone increasing Integers) through
4045	 * the IRefs of its second part.
4046	 */
4047	mfcc(Local7, num, num, i000, AR21, 0x001)
4048
4049	CH03("", 0, 0x002, __LINE__, 0)
4050}
4051
4052/*
4053 * Verifying the contents of Package by
4054 * accessing elements of its first part
4055 * (monotone increasing Integers) through
4056 * the IRefs of its second part.
4057 *
4058 * arg0 - Package to be verified
4059 * arg1 - index inside of Package
4060 * arg2 - how many elements to check
4061 * arg3 - expected value of the first element of Package
4062 * arg4 - type of access through the IRefs
4063 * arg5 - index of error (inside the file)
4064 */
4065Method(mfcc, 6, Serialized)
4066{
4067	Name(lpN0, 0)
4068	Name(lpC0, 0)
4069
4070	Name(i000, 0)
4071	Name(targ, 0)
4072
4073	Store(arg2, lpN0)
4074	Store(0, lpC0)
4075
4076	Store(arg1, targ)
4077	Store(arg3, i000)
4078
4079	While (lpN0) {
4080
4081		Store(Index(arg0, targ), Local0)
4082
4083		if (arg4) {
4084			Store(DerefOf(Local0), Local1)
4085			Store(DerefOf(Local1), Local2)
4086		} else {
4087			Store(DerefOf(DerefOf(Local0)), Local2)
4088		}
4089
4090		if (LNotEqual(Local2, i000)) {
4091			err("", zFFF, __LINE__, 0, 0, Local2, i000)
4092		}
4093
4094		Increment(i000)
4095		Increment(targ)
4096
4097		Decrement(lpN0)
4098		Increment(lpC0)
4099	}
4100}
4101
4102/*
4103 * Verifying the contents of Package by
4104 * accessing elements of its first part
4105 * through the IRefs of its second part.
4106 * All IRefs points to the same element.
4107 *
4108 * arg0 - Package to be verified
4109 * arg1 - index inside of Package
4110 * arg2 - how many elements to check
4111 * arg3 - expected value of element
4112 * arg4 - type of access through the IRefs
4113 * arg5 - index of error (inside the file)
4114 */
4115Method(mfce, 6, Serialized)
4116{
4117	Name(lpN0, 0)
4118	Name(lpC0, 0)
4119	Name(targ, 0)
4120
4121	Store(arg2, lpN0)
4122	Store(0, lpC0)
4123
4124	Store(arg1, targ)
4125
4126	While (lpN0) {
4127
4128		Store(Index(arg0, targ), Local0)
4129
4130		if (arg4) {
4131			Store(DerefOf(Local0), Local1)
4132			Store(DerefOf(Local1), Local2)
4133		} else {
4134			Store(DerefOf(DerefOf(Local0)), Local2)
4135		}
4136
4137		if (LNotEqual(Local2, arg3)) {
4138			err("", zFFF, __LINE__, 0, 0, Local2, arg3)
4139		}
4140
4141		Increment(targ)
4142
4143		Decrement(lpN0)
4144		Increment(lpC0)
4145	}
4146}
4147
4148/*
4149 * Verifying the contents of value pointed to by Reference.
4150 *
4151 * arg0 - Index reference
4152 * arg1 - expected value of element
4153 * arg2 - index of error (inside the file)
4154 */
4155Method(mfd8, 3)
4156{
4157	Store(DerefOf(arg0), Local0)
4158
4159	if (LNotEqual(Local0, arg1)) {
4160		err("", zFFF, __LINE__, 0, 0, Local0, arg1)
4161	}
4162}
4163