3 <GFCN
\1aMOVE-STRING!-MIMOC ("VALUE" ANY LIST) L5>
4 <TEMP FROM6 TEMP10 TO7 CNT8 NO-OVERLAP?9>
7 <RESTL L5 1 = TEMP10 (TYPE LIST)>
10 <RESTL L5 1 = TEMP10 (TYPE LIST)>
11 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
12 <NTHL TEMP10 1 = CNT8>
18 <CALL '
\1aEXTRAMEM 2 = NO-OVERLAP?9>
19 <TYPE? NO-OVERLAP?9 <TYPE-CODE FALSE> + PHRASE13>
20 <RESTL NO-OVERLAP?9 1 = TEMP10 (TYPE LIST)>
22 <NTHL TEMP10 1 = NO-OVERLAP?9>
27 <CALL '
\1aWILL-DIE? 1 = TEMP10>
28 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE15>
30 <FRAME '
\1aDEAD!-MIMOC>
31 <CONS FROM6 () = STACK>
33 <CALL '
\1aDEAD!-MIMOC 2>
37 <CALL '
\1aWILL-DIE? 1 = TEMP10>
38 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE19>
40 <FRAME '
\1aDEAD!-MIMOC>
43 <CALL '
\1aDEAD!-MIMOC 2>
47 <CALL '
\1aWILL-DIE? 1 = TEMP10>
48 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE23>
50 <FRAME '
\1aDEAD!-MIMOC>
51 <CONS CNT8 () = STACK>
53 <CALL '
\1aDEAD!-MIMOC 2>
55 <FRAME '
\1aUPDATE-ACS>
56 <CALL '
\1aUPDATE-ACS 0>
57 <TYPE? NO-OVERLAP?9 <TYPE-CODE FALSE> + PHRASE28>
59 <FRAME '
\1aGET-INTO-ACS>
72 <CALL '
\1aGET-INTO-ACS 9>
86 <SET FROM6 2 (TYPE FIX)>
89 <SCALL '
\1aOBJ-VAL 1 = TEMP10 + TAG32 FROM6>
90 <LOOP (TEMP10 TYPE VALUE LENGTH) (FROM6 VALUE)>
93 <EMPTY? TEMP10 + TAG32>
95 <REST1 TEMP10 = TEMP10>
96 <ADD FROM6 1 = FROM6 (TYPE FIX)>
99 <CALL '
\1aOCEMIT FROM6>
105 <CALL '
\1aXJUMP 1 = STACK>
107 <FRAME '
\1aFLUSH-ACS>
108 <CALL '
\1aFLUSH-ACS 0 = FROM6>
112 <FRAME '
\1aGET-INTO-ACS>
125 <CALL '
\1aGET-INTO-ACS 9>
126 <FRAME '
\1aFLUSH-ACS>
127 <CALL '
\1aFLUSH-ACS 0>
130 <CALL '
\1aPUSHJ 1 = FROM6>
133 <END
\1aMOVE-STRING!-MIMOC>
135 <GFCN
\1aMOVE-WORDS!-MIMOC ("VALUE" ANY LIST) L4>
136 <TEMP FROM5 TEMP11 TO6 CNT7 TY8 TG9 DIRECTION10>
139 <RESTL L4 1 = TEMP11 (TYPE LIST)>
140 <NTHL TEMP11 1 = TO6>
142 <RESTL L4 1 = TEMP11 (TYPE LIST)>
143 <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
144 <NTHL TEMP11 1 = CNT7>
149 <CALL '
\1aEXTRAMEM 2 = TY8>
152 <CALL '
\1aGENLBL 1 = TG9>
157 <CALL '
\1aEXTRAMEM 2 = DIRECTION10>
158 <TYPE? TY8 <TYPE-CODE FALSE> + PHRASE16>
159 <RESTL TY8 1 = TEMP11 (TYPE LIST)>
161 <NTHL TEMP11 1 = TY8>
164 <TYPE? DIRECTION10 <TYPE-CODE FALSE> + PHRASE18>
165 <RESTL DIRECTION10 1 = TEMP11 (TYPE LIST)>
167 <NTHL TEMP11 1 = DIRECTION10>
170 <TYPE? CNT7 <TYPE-CODE FIX> - PHRASE20>
171 <EQUAL? TY8 'VECTOR - PHRASE20>
172 <LSH CNT7 1 = CNT7 (TYPE FIX)>
174 <FRAME '
\1aGET-INTO-ACS>
183 <CALL '
\1aGET-INTO-ACS 6>
184 <TYPE? DIRECTION10 <TYPE-CODE FALSE> - PHRASE24 (DEAD-JUMP TG9) (DEAD-FALL DIRECTION10)>
185 <FRAME '
\1aGET-INTO-ACS>
189 <CALL '
\1aGET-INTO-ACS 3>
190 <TYPE? CNT7 <TYPE-CODE FIX> + PHRASE27 (DEAD-JUMP TY8)>
192 <EQUAL? TY8 'VECTOR - PHRASE27>
209 <CALL '
\1aXJUMP 1 = STACK>
232 <EQUAL? DIRECTION10 'BACKWARD - PHRASE37>
234 <TYPE? CNT7 <TYPE-CODE FIX> - PHRASE39 (DEAD-FALL TY8)>
255 <SET FROM5 2 (TYPE FIX)>
259 <SCALL '
\1aOBJ-VAL 1 = TEMP11 + TAG44 FROM5 (DEAD-JUMP TEMP11)>
260 <LOOP (TEMP11 TYPE VALUE LENGTH) (FROM5 VALUE)>
263 <EMPTY? TEMP11 + TAG44 (DEAD-JUMP TEMP11)>
264 <NTH1 TEMP11 = STACK>
265 <REST1 TEMP11 = TEMP11>
266 <ADD FROM5 1 = FROM5 (TYPE FIX)>
269 <CALL '
\1aOCEMIT FROM5>
271 <EQUAL? TY8 'VECTOR - PHRASE50>
290 <FRAME '
\1aGET-INTO-ACS>
294 <CALL '
\1aGET-INTO-ACS 3>
295 <TYPE? CNT7 <TYPE-CODE FIX> + PHRASE57 (DEAD-JUMP TY8)>
297 <EQUAL? TY8 'VECTOR - PHRASE57>
309 <SET TEMP11 2 (TYPE FIX)>
312 <SCALL '
\1aOBJ-VAL 1 = FROM5 + TAG60 TEMP11 (DEAD-JUMP FROM5)>
313 <LOOP (FROM5 TYPE VALUE LENGTH) (TEMP11 VALUE)>
316 <EMPTY? FROM5 + TAG60 (DEAD-JUMP FROM5)>
318 <REST1 FROM5 = FROM5>
319 <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
322 <CALL '
\1aOCEMIT TEMP11 = TEMP11>
325 <END
\1aMOVE-WORDS!-MIMOC>
328 <GFCN
\1aSTRING-EQUAL?!-MIMOC ("VALUE" ANY LIST) L4>
329 <TEMP S1-5 TEMP10 S2-6 DIR7 LBL8 LBL2-9 TEMP39>
332 <RESTL L4 1 = TEMP10 (TYPE LIST)>
333 <NTHL TEMP10 1 = S2-6>
335 <RESTL L4 1 = TEMP10 (TYPE LIST)>
336 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
337 <NTHL TEMP10 1 = DIR7>
339 <RESTL L4 1 = TEMP10 (TYPE LIST)>
340 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
341 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
342 <NTHL TEMP10 1 = LBL8>
346 <CALL '
\1aGENLBL 1 = LBL2-9>
347 <TYPE? S2-6 <TYPE-CODE STRING> + BOOL14>
351 <CALL '
\1aIN-AC? 2 = TEMP10>
352 <EQUAL? TEMP10 'A2* + BOOL14>
357 <CALL '
\1aIN-AC? 2 = TEMP10>
358 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE13>
363 <CALL '
\1aIN-AC? 2 = TEMP10>
364 <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE13>
372 <TYPE? S1-5 <TYPE-CODE ATOM> - PHRASE20>
373 <FRAME '
\1aWILL-DIE?>
375 <CALL '
\1aWILL-DIE? 1 = TEMP10>
376 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE20>
378 <FRAME '
\1aLAB-WILL-DIE>
379 <FRAME '
\1aFIND-LABEL>
381 <CALL '
\1aFIND-LABEL 1 = STACK>
384 <GVAL 'VISIT-COUNT = STACK>
386 <CALL '
\1a+ 2 = TEMP10>
387 <SETG 'VISIT-COUNT TEMP10>
391 <CALL '
\1aLAB-WILL-DIE 4 = TEMP10>
392 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE20>
394 <FRAME '
\1aDEAD!-MIMOC>
395 <CONS S1-5 () = STACK>
397 <CALL '
\1aDEAD!-MIMOC 2>
399 <TYPE? S2-6 <TYPE-CODE ATOM> - PHRASE28>
400 <FRAME '
\1aWILL-DIE?>
402 <CALL '
\1aWILL-DIE? 1 = TEMP10>
403 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE28>
405 <FRAME '
\1aLAB-WILL-DIE>
406 <FRAME '
\1aFIND-LABEL>
408 <CALL '
\1aFIND-LABEL 1 = STACK>
411 <GVAL 'VISIT-COUNT = STACK>
413 <CALL '
\1a+ 2 = TEMP10>
414 <SETG 'VISIT-COUNT TEMP10>
418 <CALL '
\1aLAB-WILL-DIE 4 = TEMP10>
419 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE28>
421 <FRAME '
\1aDEAD!-MIMOC>
422 <CONS S2-6 () = STACK>
424 <CALL '
\1aDEAD!-MIMOC 2>
426 <FRAME '
\1aUPDATE-ACS>
427 <CALL '
\1aUPDATE-ACS 0>
428 <TYPE? S1-5 <TYPE-CODE STRING> - PHRASE37>
432 <SET TEMP39 2 (TYPE FIX)>
435 <SCALL '
\1aOBJ-TYP 1 = TEMP10 + TAG38 TEMP39>
436 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP39 VALUE)>
439 <EMPTY? TEMP10 + TAG38>
440 <NTH1 TEMP10 = STACK>
441 <REST1 TEMP10 = TEMP10>
442 <ADD TEMP39 1 = TEMP39 (TYPE FIX)>
445 <CALL '
\1aOCEMIT TEMP39>
450 <LENUS S1-5 = STACK (TYPE FIX)>
455 <EQUAL? DIR7 '+ - PHRASE47>
463 <CALL '
\1aXJUMP 1 = STACK>
468 <CALL '
\1aIN-AC? 2 = TEMP39>
469 <EQUAL? TEMP39 'A2* + PHRASE50>
474 <SET TEMP10 2 (TYPE FIX)>
478 <SCALL '
\1aOBJ-VAL 1 = TEMP39 + TAG52 TEMP10>
479 <LOOP (TEMP39 TYPE VALUE LENGTH) (TEMP10 VALUE)>
482 <EMPTY? TEMP39 + TAG52>
483 <NTH1 TEMP39 = STACK>
484 <REST1 TEMP39 = TEMP39>
485 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
488 <CALL '
\1aOCEMIT TEMP10>
494 <SET TEMP39 2 (TYPE FIX)>
497 <SCALL '
\1aOBJ-VAL 1 = TEMP10 + TAG56 TEMP39>
498 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP39 VALUE)>
501 <EMPTY? TEMP10 + TAG56>
502 <NTH1 TEMP10 = STACK>
503 <REST1 TEMP10 = TEMP10>
504 <ADD TEMP39 1 = TEMP39 (TYPE FIX)>
507 <CALL '
\1aOCEMIT TEMP39>
512 <LENUS S1-5 = STACK (TYPE FIX)>
520 <SET TEMP10 2 (TYPE FIX)>
523 <SCALL '
\1aOBJ-TYP 1 = TEMP39 + TAG62 TEMP10>
524 <LOOP (TEMP39 TYPE VALUE LENGTH) (TEMP10 VALUE)>
527 <EMPTY? TEMP39 + TAG62>
528 <NTH1 TEMP39 = STACK>
529 <REST1 TEMP39 = TEMP39>
530 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
533 <CALL '
\1aOCEMIT TEMP10>
538 <CALL '
\1aIN-AC? 2 = TEMP10>
539 <EQUAL? TEMP10 'A2* - PHRASE67>
544 <CALL '
\1aIN-AC? 2 = TEMP10>
545 <EQUAL? TEMP10 'B2* - PHRASE67>
555 <SET TEMP39 2 (TYPE FIX)>
559 <SCALL '
\1aOBJ-TYP 1 = TEMP10 + TAG72 TEMP39>
560 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP39 VALUE)>
563 <EMPTY? TEMP10 + TAG72>
564 <NTH1 TEMP10 = STACK>
565 <REST1 TEMP10 = TEMP10>
566 <ADD TEMP39 1 = TEMP39 (TYPE FIX)>
569 <CALL '
\1aOCEMIT TEMP39>
576 <CALL '
\1aIN-AC? 2 = TEMP39>
577 <EQUAL? TEMP39 'B2* - PHRASE76>
587 <SET TEMP10 2 (TYPE FIX)>
590 <SCALL '
\1aOBJ-TYP 1 = TEMP39 + TAG79 TEMP10>
591 <LOOP (TEMP39 TYPE VALUE LENGTH) (TEMP10 VALUE)>
594 <EMPTY? TEMP39 + TAG79>
595 <NTH1 TEMP39 = STACK>
596 <REST1 TEMP39 = TEMP39>
597 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
600 <CALL '
\1aOCEMIT TEMP10>
605 <SET TEMP39 2 (TYPE FIX)>
609 <SCALL '
\1aOBJ-VAL 1 = TEMP10 + TAG83 TEMP39>
610 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP39 VALUE)>
613 <EMPTY? TEMP10 + TAG83>
614 <NTH1 TEMP10 = STACK>
615 <REST1 TEMP10 = TEMP10>
616 <ADD TEMP39 1 = TEMP39 (TYPE FIX)>
619 <CALL '
\1aOCEMIT TEMP39>
626 <CALL '
\1aIN-AC? 2 = TEMP39>
627 <EQUAL? TEMP39 'B2* - PHRASE87>
637 <SET TEMP10 2 (TYPE FIX)>
641 <SCALL '
\1aOBJ-TYP 1 = TEMP39 + TAG90 TEMP10>
642 <LOOP (TEMP39 TYPE VALUE LENGTH) (TEMP10 VALUE)>
645 <EMPTY? TEMP39 + TAG90>
646 <NTH1 TEMP39 = STACK>
647 <REST1 TEMP39 = TEMP39>
648 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
651 <CALL '
\1aOCEMIT TEMP10>
656 <CALL '
\1aIN-AC? 2 = TEMP10>
657 <EQUAL? TEMP10 'A2* + PHRASE101>
662 <SET TEMP39 2 (TYPE FIX)>
666 <SCALL '
\1aOBJ-VAL 1 = TEMP10 + TAG97 TEMP39>
667 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP39 VALUE)>
670 <EMPTY? TEMP10 + TAG97>
671 <NTH1 TEMP10 = STACK>
672 <REST1 TEMP10 = TEMP10>
673 <ADD TEMP39 1 = TEMP39 (TYPE FIX)>
676 <CALL '
\1aOCEMIT TEMP39>
683 <SET TEMP10 2 (TYPE FIX)>
686 <SCALL '
\1aOBJ-TYP 1 = TEMP39 + TAG102 TEMP10>
687 <LOOP (TEMP39 TYPE VALUE LENGTH) (TEMP10 VALUE)>
690 <EMPTY? TEMP39 + TAG102>
691 <NTH1 TEMP39 = STACK>
692 <REST1 TEMP39 = TEMP39>
693 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
696 <CALL '
\1aOCEMIT TEMP10>
701 <CALL '
\1aIN-AC? 2 = TEMP10>
702 <EQUAL? TEMP10 'A2* + PHRASE107>
707 <SET TEMP39 2 (TYPE FIX)>
711 <SCALL '
\1aOBJ-VAL 1 = TEMP10 + TAG109 TEMP39>
712 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP39 VALUE)>
715 <EMPTY? TEMP10 + TAG109>
716 <NTH1 TEMP10 = STACK>
717 <REST1 TEMP10 = TEMP10>
718 <ADD TEMP39 1 = TEMP39 (TYPE FIX)>
721 <CALL '
\1aOCEMIT TEMP39>
727 <SET TEMP10 2 (TYPE FIX)>
731 <SCALL '
\1aOBJ-VAL 1 = TEMP39 + TAG113 TEMP10>
732 <LOOP (TEMP39 TYPE VALUE LENGTH) (TEMP10 VALUE)>
735 <EMPTY? TEMP39 + TAG113>
736 <NTH1 TEMP39 = STACK>
737 <REST1 TEMP39 = TEMP39>
738 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
741 <CALL '
\1aOCEMIT TEMP10>
752 <EQUAL? DIR7 '+ - PHRASE121>
760 <CALL '
\1aXJUMP 1 = STACK>
763 <FRAME '
\1aFLUSH-ACS>
764 <CALL '
\1aFLUSH-ACS 0>
765 <FRAME '
\1aLABEL-UPDATE-ACS>
768 <CALL '
\1aLABEL-UPDATE-ACS 2>
777 <SET TEMP39 2 (TYPE FIX)>
779 <EQUAL? DIR7 '+ - PHRASE129>
780 <SET S1-5 805306368 (TYPE FIX)>
783 <SET S1-5 268435456 (TYPE FIX)>
787 <SCALL '
\1aOBJ-VAL 1 = TEMP10 + TAG126 TEMP39>
788 <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP39 VALUE)>
791 <EMPTY? TEMP10 + TAG126>
792 <NTH1 TEMP10 = STACK>
793 <REST1 TEMP10 = TEMP10>
794 <ADD TEMP39 1 = TEMP39 (TYPE FIX)>
797 <CALL '
\1aOCEMIT TEMP39>
804 <CALL '
\1aXJUMP 1 = STACK>
806 <EQUAL? DIR7 '+ + TAG138>
813 <CALL '
\1aLABEL 1 = TEMP39>
816 <END
\1aSTRING-EQUAL?!-MIMOC>
\r\r
818 <GFCN
\1aSTRCOMP!-MIMOC ("VALUE" ANY LIST) L5>
819 <TEMP S16 TEMP13 S27 VAL8 T19 T210 T311 TEMP29>
822 <RESTL L5 1 = TEMP13 (TYPE LIST)>
823 <NTHL TEMP13 1 = S27>
825 <RESTL L5 1 = TEMP13 (TYPE LIST)>
826 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
827 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
828 <NTHL TEMP13 1 = VAL8>
832 <CALL '
\1aGENLBL 1 = T19>
835 <CALL '
\1aGENLBL 1 = T210>
838 <CALL '
\1aGENLBL 1 = T311>
839 <TYPE? S27 <TYPE-CODE STRING> - PHRASE18>
845 <FRAME '
\1aWILL-DIE?>
847 <CALL '
\1aWILL-DIE? 1 = TEMP13>
848 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE20>
850 <FRAME '
\1aDEAD!-MIMOC>
851 <CONS S16 () = STACK>
853 <CALL '
\1aDEAD!-MIMOC 2>
855 <FRAME '
\1aWILL-DIE?>
857 <CALL '
\1aWILL-DIE? 1 = TEMP13>
858 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE24>
860 <FRAME '
\1aDEAD!-MIMOC>
861 <CONS S27 () = STACK>
863 <CALL '
\1aDEAD!-MIMOC 2>
865 <FRAME '
\1aUPDATE-ACS>
866 <CALL '
\1aUPDATE-ACS 0>
870 <SET TEMP29 2 (TYPE FIX)>
873 <SCALL '
\1aOBJ-TYP 1 = TEMP13 + TAG28 TEMP29>
874 <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP29 VALUE)>
877 <EMPTY? TEMP13 + TAG28>
878 <NTH1 TEMP13 = STACK>
879 <REST1 TEMP13 = TEMP13>
880 <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
883 <CALL '
\1aOCEMIT TEMP29>
888 <SET TEMP13 2 (TYPE FIX)>
891 <SCALL '
\1aOBJ-TYP 1 = TEMP29 + TAG33 TEMP13>
892 <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP13 VALUE)>
895 <EMPTY? TEMP29 + TAG33>
896 <NTH1 TEMP29 = STACK>
897 <REST1 TEMP29 = TEMP29>
898 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
901 <CALL '
\1aOCEMIT TEMP13>
903 <FRAME '
\1aGET-INTO-ACS>
912 <CALL '
\1aGET-INTO-ACS 6>
913 <FRAME '
\1aFLUSH-ACS>
914 <CALL '
\1aFLUSH-ACS 0>
930 <CALL '
\1aXJUMP 1 = STACK>
941 <CALL '
\1aXJUMP 1 = STACK>
974 <SET TEMP29 2 (TYPE FIX)>
977 <SCALL '
\1aOBJ-VAL 1 = TEMP13 + TAG52 TEMP29>
978 <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP29 VALUE)>
981 <EMPTY? TEMP13 + TAG52>
982 <NTH1 TEMP13 = STACK>
983 <REST1 TEMP13 = TEMP13>
984 <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
987 <CALL '
\1aOCEMIT TEMP29>
993 <CALL '
\1aXJUMP 1 = STACK>
1024 <EQUAL? VAL8 'STACK - PHRASE65>
1028 <SET TEMP13 2 (TYPE FIX)>
1031 <SCALL '
\1aTYPE-WORD 1 = TEMP29 + TAG66 TEMP13>
1032 <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP13 VALUE)>
1035 <EMPTY? TEMP29 + TAG66>
1036 <NTH1 TEMP29 = STACK>
1037 <REST1 TEMP29 = TEMP29>
1038 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
1041 <CALL '
\1aOCEMIT TEMP13>
1048 <GVAL 'WINNING-VICTIM = TEMP13>
1049 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE74>
1051 <GVAL 'STACK-DEPTH = STACK>
1053 <CALL '
\1a+ 2 = TEMP29>
1054 <SETG 'STACK-DEPTH TEMP29>
1059 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE74>
1062 <CALL '
\1aGET-AC 1 = S16>
1066 <CALL '
\1aAC-ITEM 2>
1070 <CALL '
\1aAC-CODE 2>
1071 <FRAME '
\1aAC-UPDATE>
1074 <CALL '
\1aAC-UPDATE 2>
1078 <GVAL 'AC-STAMP = STACK>
1080 <CALL '
\1a+ 2 = TEMP29>
1081 <SETG 'AC-STAMP TEMP29>
1084 <CALL '
\1aAC-TIME 2>
1089 <CALL '
\1aAC-TYPE 2>
1092 <CALL '
\1aGET-AC 1 = S16>
1097 <CALL '
\1aAC-ITEM 2>
1101 <CALL '
\1aAC-CODE 2>
1102 <FRAME '
\1aAC-UPDATE>
1105 <CALL '
\1aAC-UPDATE 2>
1109 <GVAL 'AC-STAMP = STACK>
1110 <CALL '
\1aAC-TIME 2 = TEMP13>
1114 <END
\1aSTRCOMP!-MIMOC