
     1  !!! %option  stack=40
     2  !! 17/1/78
     3  {Modified 25-Feb-82 to run on new subsystem}
     4  
     5  !!!!  %CONTROL 1;        ! CHECK SWITCHES ONLY
     6  
     7  ! PASS 3 OF 7/32 IMP COMPILER - VERSION FOR MOUSES AND OS-32MT SUBSYSTEM
     8  
     9  %CONSTINTEGER  MAX PERM = 54
503 @ 4405:         LINE   9 "regression-compile-tmp/gens400.imp"

    10  %CONSTINTEGERARRAY PERMS(1: 733) = %C
    11  X'0037',X'018E',X'019A',X'01A4',X'01B8',X'024B',X'01EE',X'01FB',X'01CF',
    12  X'0000',X'0084',X'00A3',X'00C6',X'0046',X'00DB',X'0000',X'0000',X'02C4',
    13  X'02B5',X'02A6',X'029E',X'0298',X'0292',X'0282',X'0210',X'003C',X'005E',
    14  X'0059',X'0218',X'0141',X'0184',X'0050',X'004B',X'0077',X'0070',X'0069',
    15  X'0063',X'007F',X'0041',X'0169',X'0220',X'0225',X'022A',X'022F',X'024E',
    16  X'0055',X'0057',X'0235',X'023A',X'023F',X'0245',X'016E',X'017A',X'026F',
    17  X'0004',X'2440',X'583D',X'0004',X'0303',X'0004',X'2441',X'583D',X'0004',
    18  X'0303',X'0004',X'2445',X'583D',X'0004',X'0303',X'0004',X'2442',X'583D',
    19  X'0004',X'0303',X'0004',X'2443',X'583D',X'0004',X'0303',X'0004',X'2444',
    20  X'583D',X'0004',X'0303',X'0001',X'0000',X'0001',X'0000',X'0004',X'2449',
    21  X'583D',X'0004',X'0303',X'0004',X'244A',X'583D',X'0004',X'0303',X'0005',
    22  X'246A',X'2445',X'583D',X'0004',X'0303',X'0006',X'0856',X'246A',X'2447',
    23  X'583D',X'0004',X'0303',X'0006',X'C860',X'0020',X'2445',X'583D',X'0004',
    24  X'0303',X'0007',X'0856',X'C860',X'0020',X'2447',X'583D',X'0004',X'0303',
    25  X'0004',X'2446',X'583D',X'0004',X'0303',X'001E',X'4801',X'0000',X'C500',
    26  X'8080',X'2135',X'2401',X'2410',X'8888',X'0001',X'9400',X'9330',X'1001',
    27  X'2188',X'D301',X'4300',X'0000',X'D202',X'4300',X'0000',X'2308',X'2731',
    28  X'4801',X'4300',X'0000',X'4002',X'4300',X'0000',X'2732',X'2217',X'0308',
    29  X'0022',X'4801',X'0000',X'C500',X'8080',X'2135',X'2401',X'2410',X'8888',
    30  X'0001',X'9400',X'9300',X'D352',X'0000',X'0865',X'0A62',X'0A50',X'C550',
    31  X'00FF',X'2325',X'2405',X'241C',X'8888',X'0001',X'D252',X'0000',X'2701',
    32  X'0218',X'2661',X'2611',X'D331',X'0000',X'D236',X'0000',X'2208',X'0014',
    33  X'0862',X'D301',X'0000',X'D352',X'0000',X'0B50',X'2318',X'0A05',X'2306',
    34  X'D336',X'0000',X'D431',X'0000',X'0238',X'2611',X'2661',X'2701',X'2218',
    35  X'0855',X'0308',X'005D',X'D0B7',X'0100',X'08B2',X'48D1',X'0000',X'C5D0',
    36  X'8080',X'2338',X'94DD',X'93DD',X'4802',X'0000',X'C500',X'8080',X'2135',
    37  X'2401',X'2410',X'8888',X'0001',X'9400',X'9300',X'0B0D',X'4210',X'8022',
    38  X'08CB',X'08E1',X'08FD',X'27F1',X'4210',X'801E',X'26C1',X'26E1',X'D33C',
    39  X'0000',X'D43E',X'0000',X'2239',X'26B1',X'2701',X'4300',X'FFDA',X'D1B7',
    40  X'0100',X'0801',X'0308',X'0866',X'2135',X'05B2',X'2037',X'4300',X'801C',
    41  X'083B',X'0B32',X'D236',X'0000',X'08CC',X'05BC',X'2338',X'2661',X'26C1',
    42  X'D336',X'0000',X'D23C',X'0000',X'2208',X'0855',X'2136',X'0800',X'4230',
    43  X'FFC6',X'4300',X'8022',X'0ABD',X'D302',X'0000',X'0A02',X'0830',X'0B3B',
    44  X'D235',X'0000',X'05B0',X'2338',X'26B1',X'2651',X'D335',X'0000',X'D23B',
    45  X'0000',X'2208',X'D1B7',X'0000',X'05DD',X'0308',X'0007',X'0827',X'C810',
    46  X'0100',X'9261',X'4012',X'0000',X'0308',X'0027',X'4836',X'0000',X'C530',
    47  X'8080',X'2135',X'2401',X'2410',X'8888',X'0001',X'9433',X'9333',X'0855',
    48  X'2328',X'5807',X'002C',X'0503',X'2124',X'0B05',X'2601',X'2315',X'2405',
    49  X'2419',X'8888',X'0001',X'C837',X'002C',X'0813',X'D203',X'0000',X'0A65',
    50  X'2701',X'0218',X'2631',X'D326',X'0000',X'D223',X'0000',X'2661',X'2208',
    51  X'0004',X'2448',X'583D',X'0004',X'0303',X'000B',X'6827',X'002C',X'5867',
    52  X'0030',X'5857',X'0034',X'C840',X'0016',X'583D',X'0004',X'0303',X'0009',
    53  X'6827',X'002C',X'5867',X'0030',X'C840',X'0017',X'583D',X'0004',X'0303',
    54  X'0009',X'5867',X'002C',X'5857',X'0030',X'C840',X'0015',X'583D',X'0004',
    55  X'0303',X'000B',X'0830',X'0A33',X'2734',X'0218',X'5801',X'4300',X'0000',
    56  X'5002',X'4300',X'0000',X'2208',X'0009',X'0830',X'0A33',X'2400',X'2734',
    57  X'0218',X'5002',X'4300',X'0000',X'2205',X'0013',X'0831',X'4932',X'0002',
    58  X'212B',X'4B32',X'0000',X'2118',X'0A33',X'7333',X'4200',X'0004',X'2333',
    59  X'0A3E',X'0233',X'0821',X'2405',X'2414',X'8888',X'0001',X'0016',X'5016',
    60  X'0008',X'5036',X'0004',X'5056',X'0000',X'CB35',X'FFFF',X'2125',X'2405',
    61  X'2416',X'8888',X'0001',X'1C21',X'1C05',X'2400',X'0B01',X'C813',X'0003',
    62  X'C410',X'FFFC',X'0308',X'001E',X'5073',X'0000',X'5103',X'0000',X'5063',
    63  X'0004',X'0827',X'0A71',X'583D',X'0000',X'C973',X'FE00',X'2327',X'0B71',
    64  X'0821',X'2402',X'2410',X'8888',X'0001',X'585E',X'0010',X'F550',X'8080',
    65  X'8080',X'0238',X'5051',X'42FF',X'FFFC',X'2714',X'2035',X'000C',X'0833',
    66  X'2316',X'0823',X'2405',X'241A',X'8888',X'0001',X'2411',X'2731',X'0218',
    67  X'1C02',X'2203',X'000D',X'2401',X'2F00',X'0801',X'2316',X'2D02',X'2820',
    68  X'2400',X'CB01',X'0001',X'0338',X'2C02',X'2701',X'2203',X'0002',X'0816',
    69  X'0308',X'0003',X'0816',X'0A15',X'0308',X'0007',X'C817',X'002C',X'C840',
    70  X'0011',X'583D',X'0004',X'0303',X'0007',X'C817',X'002C',X'C840',X'0012',
    71  X'583D',X'0004',X'0303',X'0004',X'244D',X'583D',X'0004',X'0303',X'0004',
    72  X'244E',X'583D',X'0004',X'0303',X'0004',X'244F',X'583D',X'0004',X'0303',
    73  X'0005',X'C840',X'0010',X'583D',X'0004',X'0303',X'0004',X'244B',X'583D',
    74  X'0004',X'0303',X'0004',X'244C',X'583D',X'0004',X'0303',X'0005',X'C840',
    75  X'0013',X'583D',X'0004',X'0303',X'0005',X'C840',X'0014',X'583D',X'0004',
    76  X'0303',X'0002',X'2F01',X'0308',X'0008',X'581D',X'0000',X'0B17',X'0318',
    77  X'2402',X'2410',X'8888',X'0001',X'000B',X'6807',X'002C',X'F810',X'4080',
    78  X'0000',X'5017',X'002C',X'6A07',X'002C',X'2E10',X'0308',X'0004',X'6807',
    79  X'002C',X'2E10',X'0308',X'0006',X'6807',X'002C',X'2E10',X'2F21',X'2B02',
    80  X'0308',X'0012',X'5817',X'002C',X'C460',X'000F',X'1164',X'C660',X'E101',
    81  X'4067',X'0000',X'2460',X'4067',X'0002',X'C860',X'0308',X'4067',X'0004',
    82  X'4307',X'0000',X'000F',X'0822',X'233A',X'0B10',X'0801',X'EE00',X'001F',
    83  X'1D02',X'2611',X'2113',X'0800',X'0338',X'2405',X'2411',X'8888',X'0001',
    84  X'0005',X'0338',X'2406',X'2411',X'8888',X'0001',X'0005',X'0348',X'2406',
    85  X'2411',X'8888',X'0001',X'0007',X'D401',X'0000',X'0388',X'2406',X'2411',
    86  X'8888',X'0001',X'000E',X'5912',X'0000',X'2117',X'5912',X'0004',X'2124',
    87  X'5C02',X'0008',X'0308',X'0821',X'2406',X'2412',X'8888',X'0001',X'000E',
    88  X'4A78',X'0000',X'580D',X'0000',X'C507',X'0200',X'4388',X'0002',X'4B78',
    89  X'0000',X'2402',X'2410',X'8888',X'0001',X'0019',X'0847',X'4A48',X'0000',
    90  X'4A78',X'0002',X'580D',X'0000',X'C507',X'0200',X'2387',X'4B78',X'0002',
    91  X'2402',X'2410',X'8888',X'0001',X'580E',X'0010',X'5004',X'0000',X'2644',
    92  X'0547',X'2224',X'4308',X'0004'
    93  !
    94  !  FAULT MESSAGES
    95  !   1  -  NO CODE REFS LEFT
    96  !   2  -  TOO MANY LABELS
    97  !   3  -  SPURIOUS PERM CALL
    98  !   4  -  TOO MANY PATCHES
    99  !   5  -  CORRUPT JUMP
   100  !   6  -  CORRUPT PERM ROUTINE
   101  !   7  -  PHASE ERROR
   102  !   8  -  CORRUPT PERM ADDRESS
   103  !   9  -  CODE INCOMPLETE
   104  !  10  -  GLAP INCOMPLETE
   105  !
504 @ 4443:         LINE   10 "regression-compile-tmp/gens400.imp"
505 @ 4481:         PUSHI  #0x00000001
506 @ 4486:         PUSHI  #0x000002dd
507 @ 4491:         BOUNDS
508 @ 4492:         DEF    PERMS p1=V_0081 a/tf=1b b/format=1 c/ostate=112  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=2 (constant) spec=0 indirect=1 unass=0
509 @ 4509:         PUSHI  #0x00000037
510 @ 4514:         INIT   1
511 @ 4517:         PUSHI  #0x0000018e
512 @ 4522:         INIT   1
513 @ 4525:         PUSHI  #0x0000019a
514 @ 4530:         INIT   1
515 @ 4533:         PUSHI  #0x000001a4
516 @ 4538:         INIT   1
517 @ 4541:         PUSHI  #0x000001b8
518 @ 4546:         INIT   1
519 @ 4549:         PUSHI  #0x0000024b
520 @ 4554:         INIT   1
521 @ 4557:         PUSHI  #0x000001ee
522 @ 4562:         INIT   1
523 @ 4565:         PUSHI  #0x000001fb
524 @ 4570:         INIT   1
525 @ 4573:         PUSHI  #0x000001cf
526 @ 4578:         INIT   1
527 @ 4581:         PUSHI  #0x00000000
528 @ 4586:         INIT   1
529 @ 4589:         PUSHI  #0x00000084
530 @ 4594:         INIT   1
531 @ 4597:         PUSHI  #0x000000a3
532 @ 4602:         INIT   1
533 @ 4605:         PUSHI  #0x000000c6
534 @ 4610:         INIT   1
535 @ 4613:         PUSHI  #0x00000046
536 @ 4618:         INIT   1
537 @ 4621:         PUSHI  #0x000000db
538 @ 4626:         INIT   1
539 @ 4629:         PUSHI  #0x00000000
540 @ 4634:         INIT   1
541 @ 4637:         PUSHI  #0x00000000
542 @ 4642:         INIT   1
543 @ 4645:         PUSHI  #0x000002c4
544 @ 4650:         INIT   1
545 @ 4653:         PUSHI  #0x000002b5
546 @ 4658:         INIT   1
547 @ 4661:         PUSHI  #0x000002a6
548 @ 4666:         INIT   1
549 @ 4669:         PUSHI  #0x0000029e
550 @ 4674:         INIT   1
551 @ 4677:         PUSHI  #0x00000298
552 @ 4682:         INIT   1
553 @ 4685:         PUSHI  #0x00000292
554 @ 4690:         INIT   1
555 @ 4693:         PUSHI  #0x00000282
556 @ 4698:         INIT   1
557 @ 4701:         PUSHI  #0x00000210
558 @ 4706:         INIT   1
559 @ 4709:         PUSHI  #0x0000003c
560 @ 4714:         INIT   1
561 @ 4717:         PUSHI  #0x0000005e
562 @ 4722:         INIT   1
563 @ 4725:         PUSHI  #0x00000059
564 @ 4730:         INIT   1
565 @ 4733:         PUSHI  #0x00000218
566 @ 4738:         INIT   1
567 @ 4741:         PUSHI  #0x00000141
568 @ 4746:         INIT   1
569 @ 4749:         PUSHI  #0x00000184
570 @ 4754:         INIT   1
571 @ 4757:         PUSHI  #0x00000050
572 @ 4762:         INIT   1
573 @ 4765:         PUSHI  #0x0000004b
574 @ 4770:         INIT   1
575 @ 4773:         PUSHI  #0x00000077
576 @ 4778:         INIT   1
577 @ 4781:         PUSHI  #0x00000070
578 @ 4786:         INIT   1
579 @ 4789:         PUSHI  #0x00000069
580 @ 4794:         INIT   1
581 @ 4797:         PUSHI  #0x00000063
582 @ 4802:         INIT   1
583 @ 4805:         PUSHI  #0x0000007f
584 @ 4810:         INIT   1
585 @ 4813:         PUSHI  #0x00000041
586 @ 4818:         INIT   1
587 @ 4821:         PUSHI  #0x00000169
588 @ 4826:         INIT   1
589 @ 4829:         PUSHI  #0x00000220
590 @ 4834:         INIT   1
591 @ 4837:         PUSHI  #0x00000225
592 @ 4842:         INIT   1
593 @ 4845:         PUSHI  #0x0000022a
594 @ 4850:         INIT   1
595 @ 4853:         PUSHI  #0x0000022f
596 @ 4858:         INIT   1
597 @ 4861:         PUSHI  #0x0000024e
598 @ 4866:         INIT   1
599 @ 4869:         PUSHI  #0x00000055
600 @ 4874:         INIT   1
601 @ 4877:         PUSHI  #0x00000057
602 @ 4882:         INIT   1
603 @ 4885:         PUSHI  #0x00000235
604 @ 4890:         INIT   1
605 @ 4893:         PUSHI  #0x0000023a
606 @ 4898:         INIT   1
607 @ 4901:         PUSHI  #0x0000023f
608 @ 4906:         INIT   1
609 @ 4909:         PUSHI  #0x00000245
610 @ 4914:         INIT   1
611 @ 4917:         PUSHI  #0x0000016e
612 @ 4922:         INIT   1
613 @ 4925:         PUSHI  #0x0000017a
614 @ 4930:         INIT   1
615 @ 4933:         PUSHI  #0x0000026f
616 @ 4938:         INIT   1
617 @ 4941:         PUSHI  #0x00000004
618 @ 4946:         INIT   1
619 @ 4949:         PUSHI  #0x00002440
620 @ 4954:         INIT   1
621 @ 4957:         PUSHI  #0x0000583d
622 @ 4962:         INIT   1
623 @ 4965:         PUSHI  #0x00000004
624 @ 4970:         INIT   1
625 @ 4973:         PUSHI  #0x00000303
626 @ 4978:         INIT   1
627 @ 4981:         PUSHI  #0x00000004
628 @ 4986:         INIT   1
629 @ 4989:         PUSHI  #0x00002441
630 @ 4994:         INIT   1
631 @ 4997:         PUSHI  #0x0000583d
632 @ 5002:         INIT   1
633 @ 5005:         PUSHI  #0x00000004
634 @ 5010:         INIT   1
635 @ 5013:         PUSHI  #0x00000303
636 @ 5018:         INIT   1
637 @ 5021:         PUSHI  #0x00000004
638 @ 5026:         INIT   1
639 @ 5029:         PUSHI  #0x00002445
640 @ 5034:         INIT   1
641 @ 5037:         PUSHI  #0x0000583d
642 @ 5042:         INIT   1
643 @ 5045:         PUSHI  #0x00000004
644 @ 5050:         INIT   1
645 @ 5053:         PUSHI  #0x00000303
646 @ 5058:         INIT   1
647 @ 5061:         PUSHI  #0x00000004
648 @ 5066:         INIT   1
649 @ 5069:         PUSHI  #0x00002442
650 @ 5074:         INIT   1
651 @ 5077:         PUSHI  #0x0000583d
652 @ 5082:         INIT   1
653 @ 5085:         PUSHI  #0x00000004
654 @ 5090:         INIT   1
655 @ 5093:         PUSHI  #0x00000303
656 @ 5098:         INIT   1
657 @ 5101:         PUSHI  #0x00000004
658 @ 5106:         INIT   1
659 @ 5109:         PUSHI  #0x00002443
660 @ 5114:         INIT   1
661 @ 5117:         PUSHI  #0x0000583d
662 @ 5122:         INIT   1
663 @ 5125:         PUSHI  #0x00000004
664 @ 5130:         INIT   1
665 @ 5133:         PUSHI  #0x00000303
666 @ 5138:         INIT   1
667 @ 5141:         PUSHI  #0x00000004
668 @ 5146:         INIT   1
669 @ 5149:         PUSHI  #0x00002444
670 @ 5154:         INIT   1
671 @ 5157:         PUSHI  #0x0000583d
672 @ 5162:         INIT   1
673 @ 5165:         PUSHI  #0x00000004
674 @ 5170:         INIT   1
675 @ 5173:         PUSHI  #0x00000303
676 @ 5178:         INIT   1
677 @ 5181:         PUSHI  #0x00000001
678 @ 5186:         INIT   1
679 @ 5189:         PUSHI  #0x00000000
680 @ 5194:         INIT   1
681 @ 5197:         PUSHI  #0x00000001
682 @ 5202:         INIT   1
683 @ 5205:         PUSHI  #0x00000000
684 @ 5210:         INIT   1
685 @ 5213:         PUSHI  #0x00000004
686 @ 5218:         INIT   1
687 @ 5221:         PUSHI  #0x00002449
688 @ 5226:         INIT   1
689 @ 5229:         PUSHI  #0x0000583d
690 @ 5234:         INIT   1
691 @ 5237:         PUSHI  #0x00000004
692 @ 5242:         INIT   1
693 @ 5245:         PUSHI  #0x00000303
694 @ 5250:         INIT   1
695 @ 5253:         PUSHI  #0x00000004
696 @ 5258:         INIT   1
697 @ 5261:         PUSHI  #0x0000244a
698 @ 5266:         INIT   1
699 @ 5269:         PUSHI  #0x0000583d
700 @ 5274:         INIT   1
701 @ 5277:         PUSHI  #0x00000004
702 @ 5282:         INIT   1
703 @ 5285:         PUSHI  #0x00000303
704 @ 5290:         INIT   1
705 @ 5293:         PUSHI  #0x00000005
706 @ 5298:         INIT   1
707 @ 5301:         PUSHI  #0x0000246a
708 @ 5306:         INIT   1
709 @ 5309:         PUSHI  #0x00002445
710 @ 5314:         INIT   1
711 @ 5317:         PUSHI  #0x0000583d
712 @ 5322:         INIT   1
713 @ 5325:         PUSHI  #0x00000004
714 @ 5330:         INIT   1
715 @ 5333:         PUSHI  #0x00000303
716 @ 5338:         INIT   1
717 @ 5341:         PUSHI  #0x00000006
718 @ 5346:         INIT   1
719 @ 5349:         PUSHI  #0x00000856
720 @ 5354:         INIT   1
721 @ 5357:         PUSHI  #0x0000246a
722 @ 5362:         INIT   1
723 @ 5365:         PUSHI  #0x00002447
724 @ 5370:         INIT   1
725 @ 5373:         PUSHI  #0x0000583d
726 @ 5378:         INIT   1
727 @ 5381:         PUSHI  #0x00000004
728 @ 5386:         INIT   1
729 @ 5389:         PUSHI  #0x00000303
730 @ 5394:         INIT   1
731 @ 5397:         PUSHI  #0x00000006
732 @ 5402:         INIT   1
733 @ 5405:         PUSHI  #0x0000c860
734 @ 5410:         INIT   1
735 @ 5413:         PUSHI  #0x00000020
736 @ 5418:         INIT   1
737 @ 5421:         PUSHI  #0x00002445
738 @ 5426:         INIT   1
739 @ 5429:         PUSHI  #0x0000583d
740 @ 5434:         INIT   1
741 @ 5437:         PUSHI  #0x00000004
742 @ 5442:         INIT   1
743 @ 5445:         PUSHI  #0x00000303
744 @ 5450:         INIT   1
745 @ 5453:         PUSHI  #0x00000007
746 @ 5458:         INIT   1
747 @ 5461:         PUSHI  #0x00000856
748 @ 5466:         INIT   1
749 @ 5469:         PUSHI  #0x0000c860
750 @ 5474:         INIT   1
751 @ 5477:         PUSHI  #0x00000020
752 @ 5482:         INIT   1
753 @ 5485:         PUSHI  #0x00002447
754 @ 5490:         INIT   1
755 @ 5493:         PUSHI  #0x0000583d
756 @ 5498:         INIT   1
757 @ 5501:         PUSHI  #0x00000004
758 @ 5506:         INIT   1
759 @ 5509:         PUSHI  #0x00000303
760 @ 5514:         INIT   1
761 @ 5517:         PUSHI  #0x00000004
762 @ 5522:         INIT   1
763 @ 5525:         PUSHI  #0x00002446
764 @ 5530:         INIT   1
765 @ 5533:         PUSHI  #0x0000583d
766 @ 5538:         INIT   1
767 @ 5541:         PUSHI  #0x00000004
768 @ 5546:         INIT   1
769 @ 5549:         PUSHI  #0x00000303
770 @ 5554:         INIT   1
771 @ 5557:         PUSHI  #0x0000001e
772 @ 5562:         INIT   1
773 @ 5565:         PUSHI  #0x00004801
774 @ 5570:         INIT   1
775 @ 5573:         PUSHI  #0x00000000
776 @ 5578:         INIT   1
777 @ 5581:         PUSHI  #0x0000c500
778 @ 5586:         INIT   1
779 @ 5589:         PUSHI  #0x00008080
780 @ 5594:         INIT   1
781 @ 5597:         PUSHI  #0x00002135
782 @ 5602:         INIT   1
783 @ 5605:         PUSHI  #0x00002401
784 @ 5610:         INIT   1
785 @ 5613:         PUSHI  #0x00002410
786 @ 5618:         INIT   1
787 @ 5621:         PUSHI  #0x00008888
788 @ 5626:         INIT   1
789 @ 5629:         PUSHI  #0x00000001
790 @ 5634:         INIT   1
791 @ 5637:         PUSHI  #0x00009400
792 @ 5642:         INIT   1
793 @ 5645:         PUSHI  #0x00009330
794 @ 5650:         INIT   1
795 @ 5653:         PUSHI  #0x00001001
796 @ 5658:         INIT   1
797 @ 5661:         PUSHI  #0x00002188
798 @ 5666:         INIT   1
799 @ 5669:         PUSHI  #0x0000d301
800 @ 5674:         INIT   1
801 @ 5677:         PUSHI  #0x00004300
802 @ 5682:         INIT   1
803 @ 5685:         PUSHI  #0x00000000
804 @ 5690:         INIT   1
805 @ 5693:         PUSHI  #0x0000d202
806 @ 5698:         INIT   1
807 @ 5701:         PUSHI  #0x00004300
808 @ 5706:         INIT   1
809 @ 5709:         PUSHI  #0x00000000
810 @ 5714:         INIT   1
811 @ 5717:         PUSHI  #0x00002308
812 @ 5722:         INIT   1
813 @ 5725:         PUSHI  #0x00002731
814 @ 5730:         INIT   1
815 @ 5733:         PUSHI  #0x00004801
816 @ 5738:         INIT   1
817 @ 5741:         PUSHI  #0x00004300
818 @ 5746:         INIT   1
819 @ 5749:         PUSHI  #0x00000000
820 @ 5754:         INIT   1
821 @ 5757:         PUSHI  #0x00004002
822 @ 5762:         INIT   1
823 @ 5765:         PUSHI  #0x00004300
824 @ 5770:         INIT   1
825 @ 5773:         PUSHI  #0x00000000
826 @ 5778:         INIT   1
827 @ 5781:         PUSHI  #0x00002732
828 @ 5786:         INIT   1
829 @ 5789:         PUSHI  #0x00002217
830 @ 5794:         INIT   1
831 @ 5797:         PUSHI  #0x00000308
832 @ 5802:         INIT   1
833 @ 5805:         PUSHI  #0x00000022
834 @ 5810:         INIT   1
835 @ 5813:         PUSHI  #0x00004801
836 @ 5818:         INIT   1
837 @ 5821:         PUSHI  #0x00000000
838 @ 5826:         INIT   1
839 @ 5829:         PUSHI  #0x0000c500
840 @ 5834:         INIT   1
841 @ 5837:         PUSHI  #0x00008080
842 @ 5842:         INIT   1
843 @ 5845:         PUSHI  #0x00002135
844 @ 5850:         INIT   1
845 @ 5853:         PUSHI  #0x00002401
846 @ 5858:         INIT   1
847 @ 5861:         PUSHI  #0x00002410
848 @ 5866:         INIT   1
849 @ 5869:         PUSHI  #0x00008888
850 @ 5874:         INIT   1
851 @ 5877:         PUSHI  #0x00000001
852 @ 5882:         INIT   1
853 @ 5885:         PUSHI  #0x00009400
854 @ 5890:         INIT   1
855 @ 5893:         PUSHI  #0x00009300
856 @ 5898:         INIT   1
857 @ 5901:         PUSHI  #0x0000d352
858 @ 5906:         INIT   1
859 @ 5909:         PUSHI  #0x00000000
860 @ 5914:         INIT   1
861 @ 5917:         PUSHI  #0x00000865
862 @ 5922:         INIT   1
863 @ 5925:         PUSHI  #0x00000a62
864 @ 5930:         INIT   1
865 @ 5933:         PUSHI  #0x00000a50
866 @ 5938:         INIT   1
867 @ 5941:         PUSHI  #0x0000c550
868 @ 5946:         INIT   1
869 @ 5949:         PUSHI  #0x000000ff
870 @ 5954:         INIT   1
871 @ 5957:         PUSHI  #0x00002325
872 @ 5962:         INIT   1
873 @ 5965:         PUSHI  #0x00002405
874 @ 5970:         INIT   1
875 @ 5973:         PUSHI  #0x0000241c
876 @ 5978:         INIT   1
877 @ 5981:         PUSHI  #0x00008888
878 @ 5986:         INIT   1
879 @ 5989:         PUSHI  #0x00000001
880 @ 5994:         INIT   1
881 @ 5997:         PUSHI  #0x0000d252
882 @ 6002:         INIT   1
883 @ 6005:         PUSHI  #0x00000000
884 @ 6010:         INIT   1
885 @ 6013:         PUSHI  #0x00002701
886 @ 6018:         INIT   1
887 @ 6021:         PUSHI  #0x00000218
888 @ 6026:         INIT   1
889 @ 6029:         PUSHI  #0x00002661
890 @ 6034:         INIT   1
891 @ 6037:         PUSHI  #0x00002611
892 @ 6042:         INIT   1
893 @ 6045:         PUSHI  #0x0000d331
894 @ 6050:         INIT   1
895 @ 6053:         PUSHI  #0x00000000
896 @ 6058:         INIT   1
897 @ 6061:         PUSHI  #0x0000d236
898 @ 6066:         INIT   1
899 @ 6069:         PUSHI  #0x00000000
900 @ 6074:         INIT   1
901 @ 6077:         PUSHI  #0x00002208
902 @ 6082:         INIT   1
903 @ 6085:         PUSHI  #0x00000014
904 @ 6090:         INIT   1
905 @ 6093:         PUSHI  #0x00000862
906 @ 6098:         INIT   1
907 @ 6101:         PUSHI  #0x0000d301
908 @ 6106:         INIT   1
909 @ 6109:         PUSHI  #0x00000000
910 @ 6114:         INIT   1
911 @ 6117:         PUSHI  #0x0000d352
912 @ 6122:         INIT   1
913 @ 6125:         PUSHI  #0x00000000
914 @ 6130:         INIT   1
915 @ 6133:         PUSHI  #0x00000b50
916 @ 6138:         INIT   1
917 @ 6141:         PUSHI  #0x00002318
918 @ 6146:         INIT   1
919 @ 6149:         PUSHI  #0x00000a05
920 @ 6154:         INIT   1
921 @ 6157:         PUSHI  #0x00002306
922 @ 6162:         INIT   1
923 @ 6165:         PUSHI  #0x0000d336
924 @ 6170:         INIT   1
925 @ 6173:         PUSHI  #0x00000000
926 @ 6178:         INIT   1
927 @ 6181:         PUSHI  #0x0000d431
928 @ 6186:         INIT   1
929 @ 6189:         PUSHI  #0x00000000
930 @ 6194:         INIT   1
931 @ 6197:         PUSHI  #0x00000238
932 @ 6202:         INIT   1
933 @ 6205:         PUSHI  #0x00002611
934 @ 6210:         INIT   1
935 @ 6213:         PUSHI  #0x00002661
936 @ 6218:         INIT   1
937 @ 6221:         PUSHI  #0x00002701
938 @ 6226:         INIT   1
939 @ 6229:         PUSHI  #0x00002218
940 @ 6234:         INIT   1
941 @ 6237:         PUSHI  #0x00000855
942 @ 6242:         INIT   1
943 @ 6245:         PUSHI  #0x00000308
944 @ 6250:         INIT   1
945 @ 6253:         PUSHI  #0x0000005d
946 @ 6258:         INIT   1
947 @ 6261:         PUSHI  #0x0000d0b7
948 @ 6266:         INIT   1
949 @ 6269:         PUSHI  #0x00000100
950 @ 6274:         INIT   1
951 @ 6277:         PUSHI  #0x000008b2
952 @ 6282:         INIT   1
953 @ 6285:         PUSHI  #0x000048d1
954 @ 6290:         INIT   1
955 @ 6293:         PUSHI  #0x00000000
956 @ 6298:         INIT   1
957 @ 6301:         PUSHI  #0x0000c5d0
958 @ 6306:         INIT   1
959 @ 6309:         PUSHI  #0x00008080
960 @ 6314:         INIT   1
961 @ 6317:         PUSHI  #0x00002338
962 @ 6322:         INIT   1
963 @ 6325:         PUSHI  #0x000094dd
964 @ 6330:         INIT   1
965 @ 6333:         PUSHI  #0x000093dd
966 @ 6338:         INIT   1
967 @ 6341:         PUSHI  #0x00004802
968 @ 6346:         INIT   1
969 @ 6349:         PUSHI  #0x00000000
970 @ 6354:         INIT   1
971 @ 6357:         PUSHI  #0x0000c500
972 @ 6362:         INIT   1
973 @ 6365:         PUSHI  #0x00008080
974 @ 6370:         INIT   1
975 @ 6373:         PUSHI  #0x00002135
976 @ 6378:         INIT   1
977 @ 6381:         PUSHI  #0x00002401
978 @ 6386:         INIT   1
979 @ 6389:         PUSHI  #0x00002410
980 @ 6394:         INIT   1
981 @ 6397:         PUSHI  #0x00008888
982 @ 6402:         INIT   1
983 @ 6405:         PUSHI  #0x00000001
984 @ 6410:         INIT   1
985 @ 6413:         PUSHI  #0x00009400
986 @ 6418:         INIT   1
987 @ 6421:         PUSHI  #0x00009300
988 @ 6426:         INIT   1
989 @ 6429:         PUSHI  #0x00000b0d
990 @ 6434:         INIT   1
991 @ 6437:         PUSHI  #0x00004210
992 @ 6442:         INIT   1
993 @ 6445:         PUSHI  #0x00008022
994 @ 6450:         INIT   1
995 @ 6453:         PUSHI  #0x000008cb
996 @ 6458:         INIT   1
997 @ 6461:         PUSHI  #0x000008e1
998 @ 6466:         INIT   1
999 @ 6469:         PUSHI  #0x000008fd
1000 @ 6474:         INIT   1
1001 @ 6477:         PUSHI  #0x000027f1
1002 @ 6482:         INIT   1
1003 @ 6485:         PUSHI  #0x00004210
1004 @ 6490:         INIT   1
1005 @ 6493:         PUSHI  #0x0000801e
1006 @ 6498:         INIT   1
1007 @ 6501:         PUSHI  #0x000026c1
1008 @ 6506:         INIT   1
1009 @ 6509:         PUSHI  #0x000026e1
1010 @ 6514:         INIT   1
1011 @ 6517:         PUSHI  #0x0000d33c
1012 @ 6522:         INIT   1
1013 @ 6525:         PUSHI  #0x00000000
1014 @ 6530:         INIT   1
1015 @ 6533:         PUSHI  #0x0000d43e
1016 @ 6538:         INIT   1
1017 @ 6541:         PUSHI  #0x00000000
1018 @ 6546:         INIT   1
1019 @ 6549:         PUSHI  #0x00002239
1020 @ 6554:         INIT   1
1021 @ 6557:         PUSHI  #0x000026b1
1022 @ 6562:         INIT   1
1023 @ 6565:         PUSHI  #0x00002701
1024 @ 6570:         INIT   1
1025 @ 6573:         PUSHI  #0x00004300
1026 @ 6578:         INIT   1
1027 @ 6581:         PUSHI  #0x0000ffda
1028 @ 6586:         INIT   1
1029 @ 6589:         PUSHI  #0x0000d1b7
1030 @ 6594:         INIT   1
1031 @ 6597:         PUSHI  #0x00000100
1032 @ 6602:         INIT   1
1033 @ 6605:         PUSHI  #0x00000801
1034 @ 6610:         INIT   1
1035 @ 6613:         PUSHI  #0x00000308
1036 @ 6618:         INIT   1
1037 @ 6621:         PUSHI  #0x00000866
1038 @ 6626:         INIT   1
1039 @ 6629:         PUSHI  #0x00002135
1040 @ 6634:         INIT   1
1041 @ 6637:         PUSHI  #0x000005b2
1042 @ 6642:         INIT   1
1043 @ 6645:         PUSHI  #0x00002037
1044 @ 6650:         INIT   1
1045 @ 6653:         PUSHI  #0x00004300
1046 @ 6658:         INIT   1
1047 @ 6661:         PUSHI  #0x0000801c
1048 @ 6666:         INIT   1
1049 @ 6669:         PUSHI  #0x0000083b
1050 @ 6674:         INIT   1
1051 @ 6677:         PUSHI  #0x00000b32
1052 @ 6682:         INIT   1
1053 @ 6685:         PUSHI  #0x0000d236
1054 @ 6690:         INIT   1
1055 @ 6693:         PUSHI  #0x00000000
1056 @ 6698:         INIT   1
1057 @ 6701:         PUSHI  #0x000008cc
1058 @ 6706:         INIT   1
1059 @ 6709:         PUSHI  #0x000005bc
1060 @ 6714:         INIT   1
1061 @ 6717:         PUSHI  #0x00002338
1062 @ 6722:         INIT   1
1063 @ 6725:         PUSHI  #0x00002661
1064 @ 6730:         INIT   1
1065 @ 6733:         PUSHI  #0x000026c1
1066 @ 6738:         INIT   1
1067 @ 6741:         PUSHI  #0x0000d336
1068 @ 6746:         INIT   1
1069 @ 6749:         PUSHI  #0x00000000
1070 @ 6754:         INIT   1
1071 @ 6757:         PUSHI  #0x0000d23c
1072 @ 6762:         INIT   1
1073 @ 6765:         PUSHI  #0x00000000
1074 @ 6770:         INIT   1
1075 @ 6773:         PUSHI  #0x00002208
1076 @ 6778:         INIT   1
1077 @ 6781:         PUSHI  #0x00000855
1078 @ 6786:         INIT   1
1079 @ 6789:         PUSHI  #0x00002136
1080 @ 6794:         INIT   1
1081 @ 6797:         PUSHI  #0x00000800
1082 @ 6802:         INIT   1
1083 @ 6805:         PUSHI  #0x00004230
1084 @ 6810:         INIT   1
1085 @ 6813:         PUSHI  #0x0000ffc6
1086 @ 6818:         INIT   1
1087 @ 6821:         PUSHI  #0x00004300
1088 @ 6826:         INIT   1
1089 @ 6829:         PUSHI  #0x00008022
1090 @ 6834:         INIT   1
1091 @ 6837:         PUSHI  #0x00000abd
1092 @ 6842:         INIT   1
1093 @ 6845:         PUSHI  #0x0000d302
1094 @ 6850:         INIT   1
1095 @ 6853:         PUSHI  #0x00000000
1096 @ 6858:         INIT   1
1097 @ 6861:         PUSHI  #0x00000a02
1098 @ 6866:         INIT   1
1099 @ 6869:         PUSHI  #0x00000830
1100 @ 6874:         INIT   1
1101 @ 6877:         PUSHI  #0x00000b3b
1102 @ 6882:         INIT   1
1103 @ 6885:         PUSHI  #0x0000d235
1104 @ 6890:         INIT   1
1105 @ 6893:         PUSHI  #0x00000000
1106 @ 6898:         INIT   1
1107 @ 6901:         PUSHI  #0x000005b0
1108 @ 6906:         INIT   1
1109 @ 6909:         PUSHI  #0x00002338
1110 @ 6914:         INIT   1
1111 @ 6917:         PUSHI  #0x000026b1
1112 @ 6922:         INIT   1
1113 @ 6925:         PUSHI  #0x00002651
1114 @ 6930:         INIT   1
1115 @ 6933:         PUSHI  #0x0000d335
1116 @ 6938:         INIT   1
1117 @ 6941:         PUSHI  #0x00000000
1118 @ 6946:         INIT   1
1119 @ 6949:         PUSHI  #0x0000d23b
1120 @ 6954:         INIT   1
1121 @ 6957:         PUSHI  #0x00000000
1122 @ 6962:         INIT   1
1123 @ 6965:         PUSHI  #0x00002208
1124 @ 6970:         INIT   1
1125 @ 6973:         PUSHI  #0x0000d1b7
1126 @ 6978:         INIT   1
1127 @ 6981:         PUSHI  #0x00000000
1128 @ 6986:         INIT   1
1129 @ 6989:         PUSHI  #0x000005dd
1130 @ 6994:         INIT   1
1131 @ 6997:         PUSHI  #0x00000308
1132 @ 7002:         INIT   1
1133 @ 7005:         PUSHI  #0x00000007
1134 @ 7010:         INIT   1
1135 @ 7013:         PUSHI  #0x00000827
1136 @ 7018:         INIT   1
1137 @ 7021:         PUSHI  #0x0000c810
1138 @ 7026:         INIT   1
1139 @ 7029:         PUSHI  #0x00000100
1140 @ 7034:         INIT   1
1141 @ 7037:         PUSHI  #0x00009261
1142 @ 7042:         INIT   1
1143 @ 7045:         PUSHI  #0x00004012
1144 @ 7050:         INIT   1
1145 @ 7053:         PUSHI  #0x00000000
1146 @ 7058:         INIT   1
1147 @ 7061:         PUSHI  #0x00000308
1148 @ 7066:         INIT   1
1149 @ 7069:         PUSHI  #0x00000027
1150 @ 7074:         INIT   1
1151 @ 7077:         PUSHI  #0x00004836
1152 @ 7082:         INIT   1
1153 @ 7085:         PUSHI  #0x00000000
1154 @ 7090:         INIT   1
1155 @ 7093:         PUSHI  #0x0000c530
1156 @ 7098:         INIT   1
1157 @ 7101:         PUSHI  #0x00008080
1158 @ 7106:         INIT   1
1159 @ 7109:         PUSHI  #0x00002135
1160 @ 7114:         INIT   1
1161 @ 7117:         PUSHI  #0x00002401
1162 @ 7122:         INIT   1
1163 @ 7125:         PUSHI  #0x00002410
1164 @ 7130:         INIT   1
1165 @ 7133:         PUSHI  #0x00008888
1166 @ 7138:         INIT   1
1167 @ 7141:         PUSHI  #0x00000001
1168 @ 7146:         INIT   1
1169 @ 7149:         PUSHI  #0x00009433
1170 @ 7154:         INIT   1
1171 @ 7157:         PUSHI  #0x00009333
1172 @ 7162:         INIT   1
1173 @ 7165:         PUSHI  #0x00000855
1174 @ 7170:         INIT   1
1175 @ 7173:         PUSHI  #0x00002328
1176 @ 7178:         INIT   1
1177 @ 7181:         PUSHI  #0x00005807
1178 @ 7186:         INIT   1
1179 @ 7189:         PUSHI  #0x0000002c
1180 @ 7194:         INIT   1
1181 @ 7197:         PUSHI  #0x00000503
1182 @ 7202:         INIT   1
1183 @ 7205:         PUSHI  #0x00002124
1184 @ 7210:         INIT   1
1185 @ 7213:         PUSHI  #0x00000b05
1186 @ 7218:         INIT   1
1187 @ 7221:         PUSHI  #0x00002601
1188 @ 7226:         INIT   1
1189 @ 7229:         PUSHI  #0x00002315
1190 @ 7234:         INIT   1
1191 @ 7237:         PUSHI  #0x00002405
1192 @ 7242:         INIT   1
1193 @ 7245:         PUSHI  #0x00002419
1194 @ 7250:         INIT   1
1195 @ 7253:         PUSHI  #0x00008888
1196 @ 7258:         INIT   1
1197 @ 7261:         PUSHI  #0x00000001
1198 @ 7266:         INIT   1
1199 @ 7269:         PUSHI  #0x0000c837
1200 @ 7274:         INIT   1
1201 @ 7277:         PUSHI  #0x0000002c
1202 @ 7282:         INIT   1
1203 @ 7285:         PUSHI  #0x00000813
1204 @ 7290:         INIT   1
1205 @ 7293:         PUSHI  #0x0000d203
1206 @ 7298:         INIT   1
1207 @ 7301:         PUSHI  #0x00000000
1208 @ 7306:         INIT   1
1209 @ 7309:         PUSHI  #0x00000a65
1210 @ 7314:         INIT   1
1211 @ 7317:         PUSHI  #0x00002701
1212 @ 7322:         INIT   1
1213 @ 7325:         PUSHI  #0x00000218
1214 @ 7330:         INIT   1
1215 @ 7333:         PUSHI  #0x00002631
1216 @ 7338:         INIT   1
1217 @ 7341:         PUSHI  #0x0000d326
1218 @ 7346:         INIT   1
1219 @ 7349:         PUSHI  #0x00000000
1220 @ 7354:         INIT   1
1221 @ 7357:         PUSHI  #0x0000d223
1222 @ 7362:         INIT   1
1223 @ 7365:         PUSHI  #0x00000000
1224 @ 7370:         INIT   1
1225 @ 7373:         PUSHI  #0x00002661
1226 @ 7378:         INIT   1
1227 @ 7381:         PUSHI  #0x00002208
1228 @ 7386:         INIT   1
1229 @ 7389:         PUSHI  #0x00000004
1230 @ 7394:         INIT   1
1231 @ 7397:         PUSHI  #0x00002448
1232 @ 7402:         INIT   1
1233 @ 7405:         PUSHI  #0x0000583d
1234 @ 7410:         INIT   1
1235 @ 7413:         PUSHI  #0x00000004
1236 @ 7418:         INIT   1
1237 @ 7421:         PUSHI  #0x00000303
1238 @ 7426:         INIT   1
1239 @ 7429:         PUSHI  #0x0000000b
1240 @ 7434:         INIT   1
1241 @ 7437:         PUSHI  #0x00006827
1242 @ 7442:         INIT   1
1243 @ 7445:         PUSHI  #0x0000002c
1244 @ 7450:         INIT   1
1245 @ 7453:         PUSHI  #0x00005867
1246 @ 7458:         INIT   1
1247 @ 7461:         PUSHI  #0x00000030
1248 @ 7466:         INIT   1
1249 @ 7469:         PUSHI  #0x00005857
1250 @ 7474:         INIT   1
1251 @ 7477:         PUSHI  #0x00000034
1252 @ 7482:         INIT   1
1253 @ 7485:         PUSHI  #0x0000c840
1254 @ 7490:         INIT   1
1255 @ 7493:         PUSHI  #0x00000016
1256 @ 7498:         INIT   1
1257 @ 7501:         PUSHI  #0x0000583d
1258 @ 7506:         INIT   1
1259 @ 7509:         PUSHI  #0x00000004
1260 @ 7514:         INIT   1
1261 @ 7517:         PUSHI  #0x00000303
1262 @ 7522:         INIT   1
1263 @ 7525:         PUSHI  #0x00000009
1264 @ 7530:         INIT   1
1265 @ 7533:         PUSHI  #0x00006827
1266 @ 7538:         INIT   1
1267 @ 7541:         PUSHI  #0x0000002c
1268 @ 7546:         INIT   1
1269 @ 7549:         PUSHI  #0x00005867
1270 @ 7554:         INIT   1
1271 @ 7557:         PUSHI  #0x00000030
1272 @ 7562:         INIT   1
1273 @ 7565:         PUSHI  #0x0000c840
1274 @ 7570:         INIT   1
1275 @ 7573:         PUSHI  #0x00000017
1276 @ 7578:         INIT   1
1277 @ 7581:         PUSHI  #0x0000583d
1278 @ 7586:         INIT   1
1279 @ 7589:         PUSHI  #0x00000004
1280 @ 7594:         INIT   1
1281 @ 7597:         PUSHI  #0x00000303
1282 @ 7602:         INIT   1
1283 @ 7605:         PUSHI  #0x00000009
1284 @ 7610:         INIT   1
1285 @ 7613:         PUSHI  #0x00005867
1286 @ 7618:         INIT   1
1287 @ 7621:         PUSHI  #0x0000002c
1288 @ 7626:         INIT   1
1289 @ 7629:         PUSHI  #0x00005857
1290 @ 7634:         INIT   1
1291 @ 7637:         PUSHI  #0x00000030
1292 @ 7642:         INIT   1
1293 @ 7645:         PUSHI  #0x0000c840
1294 @ 7650:         INIT   1
1295 @ 7653:         PUSHI  #0x00000015
1296 @ 7658:         INIT   1
1297 @ 7661:         PUSHI  #0x0000583d
1298 @ 7666:         INIT   1
1299 @ 7669:         PUSHI  #0x00000004
1300 @ 7674:         INIT   1
1301 @ 7677:         PUSHI  #0x00000303
1302 @ 7682:         INIT   1
1303 @ 7685:         PUSHI  #0x0000000b
1304 @ 7690:         INIT   1
1305 @ 7693:         PUSHI  #0x00000830
1306 @ 7698:         INIT   1
1307 @ 7701:         PUSHI  #0x00000a33
1308 @ 7706:         INIT   1
1309 @ 7709:         PUSHI  #0x00002734
1310 @ 7714:         INIT   1
1311 @ 7717:         PUSHI  #0x00000218
1312 @ 7722:         INIT   1
1313 @ 7725:         PUSHI  #0x00005801
1314 @ 7730:         INIT   1
1315 @ 7733:         PUSHI  #0x00004300
1316 @ 7738:         INIT   1
1317 @ 7741:         PUSHI  #0x00000000
1318 @ 7746:         INIT   1
1319 @ 7749:         PUSHI  #0x00005002
1320 @ 7754:         INIT   1
1321 @ 7757:         PUSHI  #0x00004300
1322 @ 7762:         INIT   1
1323 @ 7765:         PUSHI  #0x00000000
1324 @ 7770:         INIT   1
1325 @ 7773:         PUSHI  #0x00002208
1326 @ 7778:         INIT   1
1327 @ 7781:         PUSHI  #0x00000009
1328 @ 7786:         INIT   1
1329 @ 7789:         PUSHI  #0x00000830
1330 @ 7794:         INIT   1
1331 @ 7797:         PUSHI  #0x00000a33
1332 @ 7802:         INIT   1
1333 @ 7805:         PUSHI  #0x00002400
1334 @ 7810:         INIT   1
1335 @ 7813:         PUSHI  #0x00002734
1336 @ 7818:         INIT   1
1337 @ 7821:         PUSHI  #0x00000218
1338 @ 7826:         INIT   1
1339 @ 7829:         PUSHI  #0x00005002
1340 @ 7834:         INIT   1
1341 @ 7837:         PUSHI  #0x00004300
1342 @ 7842:         INIT   1
1343 @ 7845:         PUSHI  #0x00000000
1344 @ 7850:         INIT   1
1345 @ 7853:         PUSHI  #0x00002205
1346 @ 7858:         INIT   1
1347 @ 7861:         PUSHI  #0x00000013
1348 @ 7866:         INIT   1
1349 @ 7869:         PUSHI  #0x00000831
1350 @ 7874:         INIT   1
1351 @ 7877:         PUSHI  #0x00004932
1352 @ 7882:         INIT   1
1353 @ 7885:         PUSHI  #0x00000002
1354 @ 7890:         INIT   1
1355 @ 7893:         PUSHI  #0x0000212b
1356 @ 7898:         INIT   1
1357 @ 7901:         PUSHI  #0x00004b32
1358 @ 7906:         INIT   1
1359 @ 7909:         PUSHI  #0x00000000
1360 @ 7914:         INIT   1
1361 @ 7917:         PUSHI  #0x00002118
1362 @ 7922:         INIT   1
1363 @ 7925:         PUSHI  #0x00000a33
1364 @ 7930:         INIT   1
1365 @ 7933:         PUSHI  #0x00007333
1366 @ 7938:         INIT   1
1367 @ 7941:         PUSHI  #0x00004200
1368 @ 7946:         INIT   1
1369 @ 7949:         PUSHI  #0x00000004
1370 @ 7954:         INIT   1
1371 @ 7957:         PUSHI  #0x00002333
1372 @ 7962:         INIT   1
1373 @ 7965:         PUSHI  #0x00000a3e
1374 @ 7970:         INIT   1
1375 @ 7973:         PUSHI  #0x00000233
1376 @ 7978:         INIT   1
1377 @ 7981:         PUSHI  #0x00000821
1378 @ 7986:         INIT   1
1379 @ 7989:         PUSHI  #0x00002405
1380 @ 7994:         INIT   1
1381 @ 7997:         PUSHI  #0x00002414
1382 @ 8002:         INIT   1
1383 @ 8005:         PUSHI  #0x00008888
1384 @ 8010:         INIT   1
1385 @ 8013:         PUSHI  #0x00000001
1386 @ 8018:         INIT   1
1387 @ 8021:         PUSHI  #0x00000016
1388 @ 8026:         INIT   1
1389 @ 8029:         PUSHI  #0x00005016
1390 @ 8034:         INIT   1
1391 @ 8037:         PUSHI  #0x00000008
1392 @ 8042:         INIT   1
1393 @ 8045:         PUSHI  #0x00005036
1394 @ 8050:         INIT   1
1395 @ 8053:         PUSHI  #0x00000004
1396 @ 8058:         INIT   1
1397 @ 8061:         PUSHI  #0x00005056
1398 @ 8066:         INIT   1
1399 @ 8069:         PUSHI  #0x00000000
1400 @ 8074:         INIT   1
1401 @ 8077:         PUSHI  #0x0000cb35
1402 @ 8082:         INIT   1
1403 @ 8085:         PUSHI  #0x0000ffff
1404 @ 8090:         INIT   1
1405 @ 8093:         PUSHI  #0x00002125
1406 @ 8098:         INIT   1
1407 @ 8101:         PUSHI  #0x00002405
1408 @ 8106:         INIT   1
1409 @ 8109:         PUSHI  #0x00002416
1410 @ 8114:         INIT   1
1411 @ 8117:         PUSHI  #0x00008888
1412 @ 8122:         INIT   1
1413 @ 8125:         PUSHI  #0x00000001
1414 @ 8130:         INIT   1
1415 @ 8133:         PUSHI  #0x00001c21
1416 @ 8138:         INIT   1
1417 @ 8141:         PUSHI  #0x00001c05
1418 @ 8146:         INIT   1
1419 @ 8149:         PUSHI  #0x00002400
1420 @ 8154:         INIT   1
1421 @ 8157:         PUSHI  #0x00000b01
1422 @ 8162:         INIT   1
1423 @ 8165:         PUSHI  #0x0000c813
1424 @ 8170:         INIT   1
1425 @ 8173:         PUSHI  #0x00000003
1426 @ 8178:         INIT   1
1427 @ 8181:         PUSHI  #0x0000c410
1428 @ 8186:         INIT   1
1429 @ 8189:         PUSHI  #0x0000fffc
1430 @ 8194:         INIT   1
1431 @ 8197:         PUSHI  #0x00000308
1432 @ 8202:         INIT   1
1433 @ 8205:         PUSHI  #0x0000001e
1434 @ 8210:         INIT   1
1435 @ 8213:         PUSHI  #0x00005073
1436 @ 8218:         INIT   1
1437 @ 8221:         PUSHI  #0x00000000
1438 @ 8226:         INIT   1
1439 @ 8229:         PUSHI  #0x00005103
1440 @ 8234:         INIT   1
1441 @ 8237:         PUSHI  #0x00000000
1442 @ 8242:         INIT   1
1443 @ 8245:         PUSHI  #0x00005063
1444 @ 8250:         INIT   1
1445 @ 8253:         PUSHI  #0x00000004
1446 @ 8258:         INIT   1
1447 @ 8261:         PUSHI  #0x00000827
1448 @ 8266:         INIT   1
1449 @ 8269:         PUSHI  #0x00000a71
1450 @ 8274:         INIT   1
1451 @ 8277:         PUSHI  #0x0000583d
1452 @ 8282:         INIT   1
1453 @ 8285:         PUSHI  #0x00000000
1454 @ 8290:         INIT   1
1455 @ 8293:         PUSHI  #0x0000c973
1456 @ 8298:         INIT   1
1457 @ 8301:         PUSHI  #0x0000fe00
1458 @ 8306:         INIT   1
1459 @ 8309:         PUSHI  #0x00002327
1460 @ 8314:         INIT   1
1461 @ 8317:         PUSHI  #0x00000b71
1462 @ 8322:         INIT   1
1463 @ 8325:         PUSHI  #0x00000821
1464 @ 8330:         INIT   1
1465 @ 8333:         PUSHI  #0x00002402
1466 @ 8338:         INIT   1
1467 @ 8341:         PUSHI  #0x00002410
1468 @ 8346:         INIT   1
1469 @ 8349:         PUSHI  #0x00008888
1470 @ 8354:         INIT   1
1471 @ 8357:         PUSHI  #0x00000001
1472 @ 8362:         INIT   1
1473 @ 8365:         PUSHI  #0x0000585e
1474 @ 8370:         INIT   1
1475 @ 8373:         PUSHI  #0x00000010
1476 @ 8378:         INIT   1
1477 @ 8381:         PUSHI  #0x0000f550
1478 @ 8386:         INIT   1
1479 @ 8389:         PUSHI  #0x00008080
1480 @ 8394:         INIT   1
1481 @ 8397:         PUSHI  #0x00008080
1482 @ 8402:         INIT   1
1483 @ 8405:         PUSHI  #0x00000238
1484 @ 8410:         INIT   1
1485 @ 8413:         PUSHI  #0x00005051
1486 @ 8418:         INIT   1
1487 @ 8421:         PUSHI  #0x000042ff
1488 @ 8426:         INIT   1
1489 @ 8429:         PUSHI  #0x0000fffc
1490 @ 8434:         INIT   1
1491 @ 8437:         PUSHI  #0x00002714
1492 @ 8442:         INIT   1
1493 @ 8445:         PUSHI  #0x00002035
1494 @ 8450:         INIT   1
1495 @ 8453:         PUSHI  #0x0000000c
1496 @ 8458:         INIT   1
1497 @ 8461:         PUSHI  #0x00000833
1498 @ 8466:         INIT   1
1499 @ 8469:         PUSHI  #0x00002316
1500 @ 8474:         INIT   1
1501 @ 8477:         PUSHI  #0x00000823
1502 @ 8482:         INIT   1
1503 @ 8485:         PUSHI  #0x00002405
1504 @ 8490:         INIT   1
1505 @ 8493:         PUSHI  #0x0000241a
1506 @ 8498:         INIT   1
1507 @ 8501:         PUSHI  #0x00008888
1508 @ 8506:         INIT   1
1509 @ 8509:         PUSHI  #0x00000001
1510 @ 8514:         INIT   1
1511 @ 8517:         PUSHI  #0x00002411
1512 @ 8522:         INIT   1
1513 @ 8525:         PUSHI  #0x00002731
1514 @ 8530:         INIT   1
1515 @ 8533:         PUSHI  #0x00000218
1516 @ 8538:         INIT   1
1517 @ 8541:         PUSHI  #0x00001c02
1518 @ 8546:         INIT   1
1519 @ 8549:         PUSHI  #0x00002203
1520 @ 8554:         INIT   1
1521 @ 8557:         PUSHI  #0x0000000d
1522 @ 8562:         INIT   1
1523 @ 8565:         PUSHI  #0x00002401
1524 @ 8570:         INIT   1
1525 @ 8573:         PUSHI  #0x00002f00
1526 @ 8578:         INIT   1
1527 @ 8581:         PUSHI  #0x00000801
1528 @ 8586:         INIT   1
1529 @ 8589:         PUSHI  #0x00002316
1530 @ 8594:         INIT   1
1531 @ 8597:         PUSHI  #0x00002d02
1532 @ 8602:         INIT   1
1533 @ 8605:         PUSHI  #0x00002820
1534 @ 8610:         INIT   1
1535 @ 8613:         PUSHI  #0x00002400
1536 @ 8618:         INIT   1
1537 @ 8621:         PUSHI  #0x0000cb01
1538 @ 8626:         INIT   1
1539 @ 8629:         PUSHI  #0x00000001
1540 @ 8634:         INIT   1
1541 @ 8637:         PUSHI  #0x00000338
1542 @ 8642:         INIT   1
1543 @ 8645:         PUSHI  #0x00002c02
1544 @ 8650:         INIT   1
1545 @ 8653:         PUSHI  #0x00002701
1546 @ 8658:         INIT   1
1547 @ 8661:         PUSHI  #0x00002203
1548 @ 8666:         INIT   1
1549 @ 8669:         PUSHI  #0x00000002
1550 @ 8674:         INIT   1
1551 @ 8677:         PUSHI  #0x00000816
1552 @ 8682:         INIT   1
1553 @ 8685:         PUSHI  #0x00000308
1554 @ 8690:         INIT   1
1555 @ 8693:         PUSHI  #0x00000003
1556 @ 8698:         INIT   1
1557 @ 8701:         PUSHI  #0x00000816
1558 @ 8706:         INIT   1
1559 @ 8709:         PUSHI  #0x00000a15
1560 @ 8714:         INIT   1
1561 @ 8717:         PUSHI  #0x00000308
1562 @ 8722:         INIT   1
1563 @ 8725:         PUSHI  #0x00000007
1564 @ 8730:         INIT   1
1565 @ 8733:         PUSHI  #0x0000c817
1566 @ 8738:         INIT   1
1567 @ 8741:         PUSHI  #0x0000002c
1568 @ 8746:         INIT   1
1569 @ 8749:         PUSHI  #0x0000c840
1570 @ 8754:         INIT   1
1571 @ 8757:         PUSHI  #0x00000011
1572 @ 8762:         INIT   1
1573 @ 8765:         PUSHI  #0x0000583d
1574 @ 8770:         INIT   1
1575 @ 8773:         PUSHI  #0x00000004
1576 @ 8778:         INIT   1
1577 @ 8781:         PUSHI  #0x00000303
1578 @ 8786:         INIT   1
1579 @ 8789:         PUSHI  #0x00000007
1580 @ 8794:         INIT   1
1581 @ 8797:         PUSHI  #0x0000c817
1582 @ 8802:         INIT   1
1583 @ 8805:         PUSHI  #0x0000002c
1584 @ 8810:         INIT   1
1585 @ 8813:         PUSHI  #0x0000c840
1586 @ 8818:         INIT   1
1587 @ 8821:         PUSHI  #0x00000012
1588 @ 8826:         INIT   1
1589 @ 8829:         PUSHI  #0x0000583d
1590 @ 8834:         INIT   1
1591 @ 8837:         PUSHI  #0x00000004
1592 @ 8842:         INIT   1
1593 @ 8845:         PUSHI  #0x00000303
1594 @ 8850:         INIT   1
1595 @ 8853:         PUSHI  #0x00000004
1596 @ 8858:         INIT   1
1597 @ 8861:         PUSHI  #0x0000244d
1598 @ 8866:         INIT   1
1599 @ 8869:         PUSHI  #0x0000583d
1600 @ 8874:         INIT   1
1601 @ 8877:         PUSHI  #0x00000004
1602 @ 8882:         INIT   1
1603 @ 8885:         PUSHI  #0x00000303
1604 @ 8890:         INIT   1
1605 @ 8893:         PUSHI  #0x00000004
1606 @ 8898:         INIT   1
1607 @ 8901:         PUSHI  #0x0000244e
1608 @ 8906:         INIT   1
1609 @ 8909:         PUSHI  #0x0000583d
1610 @ 8914:         INIT   1
1611 @ 8917:         PUSHI  #0x00000004
1612 @ 8922:         INIT   1
1613 @ 8925:         PUSHI  #0x00000303
1614 @ 8930:         INIT   1
1615 @ 8933:         PUSHI  #0x00000004
1616 @ 8938:         INIT   1
1617 @ 8941:         PUSHI  #0x0000244f
1618 @ 8946:         INIT   1
1619 @ 8949:         PUSHI  #0x0000583d
1620 @ 8954:         INIT   1
1621 @ 8957:         PUSHI  #0x00000004
1622 @ 8962:         INIT   1
1623 @ 8965:         PUSHI  #0x00000303
1624 @ 8970:         INIT   1
1625 @ 8973:         PUSHI  #0x00000005
1626 @ 8978:         INIT   1
1627 @ 8981:         PUSHI  #0x0000c840
1628 @ 8986:         INIT   1
1629 @ 8989:         PUSHI  #0x00000010
1630 @ 8994:         INIT   1
1631 @ 8997:         PUSHI  #0x0000583d
1632 @ 9002:         INIT   1
1633 @ 9005:         PUSHI  #0x00000004
1634 @ 9010:         INIT   1
1635 @ 9013:         PUSHI  #0x00000303
1636 @ 9018:         INIT   1
1637 @ 9021:         PUSHI  #0x00000004
1638 @ 9026:         INIT   1
1639 @ 9029:         PUSHI  #0x0000244b
1640 @ 9034:         INIT   1
1641 @ 9037:         PUSHI  #0x0000583d
1642 @ 9042:         INIT   1
1643 @ 9045:         PUSHI  #0x00000004
1644 @ 9050:         INIT   1
1645 @ 9053:         PUSHI  #0x00000303
1646 @ 9058:         INIT   1
1647 @ 9061:         PUSHI  #0x00000004
1648 @ 9066:         INIT   1
1649 @ 9069:         PUSHI  #0x0000244c
1650 @ 9074:         INIT   1
1651 @ 9077:         PUSHI  #0x0000583d
1652 @ 9082:         INIT   1
1653 @ 9085:         PUSHI  #0x00000004
1654 @ 9090:         INIT   1
1655 @ 9093:         PUSHI  #0x00000303
1656 @ 9098:         INIT   1
1657 @ 9101:         PUSHI  #0x00000005
1658 @ 9106:         INIT   1
1659 @ 9109:         PUSHI  #0x0000c840
1660 @ 9114:         INIT   1
1661 @ 9117:         PUSHI  #0x00000013
1662 @ 9122:         INIT   1
1663 @ 9125:         PUSHI  #0x0000583d
1664 @ 9130:         INIT   1
1665 @ 9133:         PUSHI  #0x00000004
1666 @ 9138:         INIT   1
1667 @ 9141:         PUSHI  #0x00000303
1668 @ 9146:         INIT   1
1669 @ 9149:         PUSHI  #0x00000005
1670 @ 9154:         INIT   1
1671 @ 9157:         PUSHI  #0x0000c840
1672 @ 9162:         INIT   1
1673 @ 9165:         PUSHI  #0x00000014
1674 @ 9170:         INIT   1
1675 @ 9173:         PUSHI  #0x0000583d
1676 @ 9178:         INIT   1
1677 @ 9181:         PUSHI  #0x00000004
1678 @ 9186:         INIT   1
1679 @ 9189:         PUSHI  #0x00000303
1680 @ 9194:         INIT   1
1681 @ 9197:         PUSHI  #0x00000002
1682 @ 9202:         INIT   1
1683 @ 9205:         PUSHI  #0x00002f01
1684 @ 9210:         INIT   1
1685 @ 9213:         PUSHI  #0x00000308
1686 @ 9218:         INIT   1
1687 @ 9221:         PUSHI  #0x00000008
1688 @ 9226:         INIT   1
1689 @ 9229:         PUSHI  #0x0000581d
1690 @ 9234:         INIT   1
1691 @ 9237:         PUSHI  #0x00000000
1692 @ 9242:         INIT   1
1693 @ 9245:         PUSHI  #0x00000b17
1694 @ 9250:         INIT   1
1695 @ 9253:         PUSHI  #0x00000318
1696 @ 9258:         INIT   1
1697 @ 9261:         PUSHI  #0x00002402
1698 @ 9266:         INIT   1
1699 @ 9269:         PUSHI  #0x00002410
1700 @ 9274:         INIT   1
1701 @ 9277:         PUSHI  #0x00008888
1702 @ 9282:         INIT   1
1703 @ 9285:         PUSHI  #0x00000001
1704 @ 9290:         INIT   1
1705 @ 9293:         PUSHI  #0x0000000b
1706 @ 9298:         INIT   1
1707 @ 9301:         PUSHI  #0x00006807
1708 @ 9306:         INIT   1
1709 @ 9309:         PUSHI  #0x0000002c
1710 @ 9314:         INIT   1
1711 @ 9317:         PUSHI  #0x0000f810
1712 @ 9322:         INIT   1
1713 @ 9325:         PUSHI  #0x00004080
1714 @ 9330:         INIT   1
1715 @ 9333:         PUSHI  #0x00000000
1716 @ 9338:         INIT   1
1717 @ 9341:         PUSHI  #0x00005017
1718 @ 9346:         INIT   1
1719 @ 9349:         PUSHI  #0x0000002c
1720 @ 9354:         INIT   1
1721 @ 9357:         PUSHI  #0x00006a07
1722 @ 9362:         INIT   1
1723 @ 9365:         PUSHI  #0x0000002c
1724 @ 9370:         INIT   1
1725 @ 9373:         PUSHI  #0x00002e10
1726 @ 9378:         INIT   1
1727 @ 9381:         PUSHI  #0x00000308
1728 @ 9386:         INIT   1
1729 @ 9389:         PUSHI  #0x00000004
1730 @ 9394:         INIT   1
1731 @ 9397:         PUSHI  #0x00006807
1732 @ 9402:         INIT   1
1733 @ 9405:         PUSHI  #0x0000002c
1734 @ 9410:         INIT   1
1735 @ 9413:         PUSHI  #0x00002e10
1736 @ 9418:         INIT   1
1737 @ 9421:         PUSHI  #0x00000308
1738 @ 9426:         INIT   1
1739 @ 9429:         PUSHI  #0x00000006
1740 @ 9434:         INIT   1
1741 @ 9437:         PUSHI  #0x00006807
1742 @ 9442:         INIT   1
1743 @ 9445:         PUSHI  #0x0000002c
1744 @ 9450:         INIT   1
1745 @ 9453:         PUSHI  #0x00002e10
1746 @ 9458:         INIT   1
1747 @ 9461:         PUSHI  #0x00002f21
1748 @ 9466:         INIT   1
1749 @ 9469:         PUSHI  #0x00002b02
1750 @ 9474:         INIT   1
1751 @ 9477:         PUSHI  #0x00000308
1752 @ 9482:         INIT   1
1753 @ 9485:         PUSHI  #0x00000012
1754 @ 9490:         INIT   1
1755 @ 9493:         PUSHI  #0x00005817
1756 @ 9498:         INIT   1
1757 @ 9501:         PUSHI  #0x0000002c
1758 @ 9506:         INIT   1
1759 @ 9509:         PUSHI  #0x0000c460
1760 @ 9514:         INIT   1
1761 @ 9517:         PUSHI  #0x0000000f
1762 @ 9522:         INIT   1
1763 @ 9525:         PUSHI  #0x00001164
1764 @ 9530:         INIT   1
1765 @ 9533:         PUSHI  #0x0000c660
1766 @ 9538:         INIT   1
1767 @ 9541:         PUSHI  #0x0000e101
1768 @ 9546:         INIT   1
1769 @ 9549:         PUSHI  #0x00004067
1770 @ 9554:         INIT   1
1771 @ 9557:         PUSHI  #0x00000000
1772 @ 9562:         INIT   1
1773 @ 9565:         PUSHI  #0x00002460
1774 @ 9570:         INIT   1
1775 @ 9573:         PUSHI  #0x00004067
1776 @ 9578:         INIT   1
1777 @ 9581:         PUSHI  #0x00000002
1778 @ 9586:         INIT   1
1779 @ 9589:         PUSHI  #0x0000c860
1780 @ 9594:         INIT   1
1781 @ 9597:         PUSHI  #0x00000308
1782 @ 9602:         INIT   1
1783 @ 9605:         PUSHI  #0x00004067
1784 @ 9610:         INIT   1
1785 @ 9613:         PUSHI  #0x00000004
1786 @ 9618:         INIT   1
1787 @ 9621:         PUSHI  #0x00004307
1788 @ 9626:         INIT   1
1789 @ 9629:         PUSHI  #0x00000000
1790 @ 9634:         INIT   1
1791 @ 9637:         PUSHI  #0x0000000f
1792 @ 9642:         INIT   1
1793 @ 9645:         PUSHI  #0x00000822
1794 @ 9650:         INIT   1
1795 @ 9653:         PUSHI  #0x0000233a
1796 @ 9658:         INIT   1
1797 @ 9661:         PUSHI  #0x00000b10
1798 @ 9666:         INIT   1
1799 @ 9669:         PUSHI  #0x00000801
1800 @ 9674:         INIT   1
1801 @ 9677:         PUSHI  #0x0000ee00
1802 @ 9682:         INIT   1
1803 @ 9685:         PUSHI  #0x0000001f
1804 @ 9690:         INIT   1
1805 @ 9693:         PUSHI  #0x00001d02
1806 @ 9698:         INIT   1
1807 @ 9701:         PUSHI  #0x00002611
1808 @ 9706:         INIT   1
1809 @ 9709:         PUSHI  #0x00002113
1810 @ 9714:         INIT   1
1811 @ 9717:         PUSHI  #0x00000800
1812 @ 9722:         INIT   1
1813 @ 9725:         PUSHI  #0x00000338
1814 @ 9730:         INIT   1
1815 @ 9733:         PUSHI  #0x00002405
1816 @ 9738:         INIT   1
1817 @ 9741:         PUSHI  #0x00002411
1818 @ 9746:         INIT   1
1819 @ 9749:         PUSHI  #0x00008888
1820 @ 9754:         INIT   1
1821 @ 9757:         PUSHI  #0x00000001
1822 @ 9762:         INIT   1
1823 @ 9765:         PUSHI  #0x00000005
1824 @ 9770:         INIT   1
1825 @ 9773:         PUSHI  #0x00000338
1826 @ 9778:         INIT   1
1827 @ 9781:         PUSHI  #0x00002406
1828 @ 9786:         INIT   1
1829 @ 9789:         PUSHI  #0x00002411
1830 @ 9794:         INIT   1
1831 @ 9797:         PUSHI  #0x00008888
1832 @ 9802:         INIT   1
1833 @ 9805:         PUSHI  #0x00000001
1834 @ 9810:         INIT   1
1835 @ 9813:         PUSHI  #0x00000005
1836 @ 9818:         INIT   1
1837 @ 9821:         PUSHI  #0x00000348
1838 @ 9826:         INIT   1
1839 @ 9829:         PUSHI  #0x00002406
1840 @ 9834:         INIT   1
1841 @ 9837:         PUSHI  #0x00002411
1842 @ 9842:         INIT   1
1843 @ 9845:         PUSHI  #0x00008888
1844 @ 9850:         INIT   1
1845 @ 9853:         PUSHI  #0x00000001
1846 @ 9858:         INIT   1
1847 @ 9861:         PUSHI  #0x00000007
1848 @ 9866:         INIT   1
1849 @ 9869:         PUSHI  #0x0000d401
1850 @ 9874:         INIT   1
1851 @ 9877:         PUSHI  #0x00000000
1852 @ 9882:         INIT   1
1853 @ 9885:         PUSHI  #0x00000388
1854 @ 9890:         INIT   1
1855 @ 9893:         PUSHI  #0x00002406
1856 @ 9898:         INIT   1
1857 @ 9901:         PUSHI  #0x00002411
1858 @ 9906:         INIT   1
1859 @ 9909:         PUSHI  #0x00008888
1860 @ 9914:         INIT   1
1861 @ 9917:         PUSHI  #0x00000001
1862 @ 9922:         INIT   1
1863 @ 9925:         PUSHI  #0x0000000e
1864 @ 9930:         INIT   1
1865 @ 9933:         PUSHI  #0x00005912
1866 @ 9938:         INIT   1
1867 @ 9941:         PUSHI  #0x00000000
1868 @ 9946:         INIT   1
1869 @ 9949:         PUSHI  #0x00002117
1870 @ 9954:         INIT   1
1871 @ 9957:         PUSHI  #0x00005912
1872 @ 9962:         INIT   1
1873 @ 9965:         PUSHI  #0x00000004
1874 @ 9970:         INIT   1
1875 @ 9973:         PUSHI  #0x00002124
1876 @ 9978:         INIT   1
1877 @ 9981:         PUSHI  #0x00005c02
1878 @ 9986:         INIT   1
1879 @ 9989:         PUSHI  #0x00000008
1880 @ 9994:         INIT   1
1881 @ 9997:         PUSHI  #0x00000308
1882 @ 10002:         INIT   1
1883 @ 10005:         PUSHI  #0x00000821
1884 @ 10010:         INIT   1
1885 @ 10013:         PUSHI  #0x00002406
1886 @ 10018:         INIT   1
1887 @ 10021:         PUSHI  #0x00002412
1888 @ 10026:         INIT   1
1889 @ 10029:         PUSHI  #0x00008888
1890 @ 10034:         INIT   1
1891 @ 10037:         PUSHI  #0x00000001
1892 @ 10042:         INIT   1
1893 @ 10045:         PUSHI  #0x0000000e
1894 @ 10050:         INIT   1
1895 @ 10053:         PUSHI  #0x00004a78
1896 @ 10058:         INIT   1
1897 @ 10061:         PUSHI  #0x00000000
1898 @ 10066:         INIT   1
1899 @ 10069:         PUSHI  #0x0000580d
1900 @ 10074:         INIT   1
1901 @ 10077:         PUSHI  #0x00000000
1902 @ 10082:         INIT   1
1903 @ 10085:         PUSHI  #0x0000c507
1904 @ 10090:         INIT   1
1905 @ 10093:         PUSHI  #0x00000200
1906 @ 10098:         INIT   1
1907 @ 10101:         PUSHI  #0x00004388
1908 @ 10106:         INIT   1
1909 @ 10109:         PUSHI  #0x00000002
1910 @ 10114:         INIT   1
1911 @ 10117:         PUSHI  #0x00004b78
1912 @ 10122:         INIT   1
1913 @ 10125:         PUSHI  #0x00000000
1914 @ 10130:         INIT   1
1915 @ 10133:         PUSHI  #0x00002402
1916 @ 10138:         INIT   1
1917 @ 10141:         PUSHI  #0x00002410
1918 @ 10146:         INIT   1
1919 @ 10149:         PUSHI  #0x00008888
1920 @ 10154:         INIT   1
1921 @ 10157:         PUSHI  #0x00000001
1922 @ 10162:         INIT   1
1923 @ 10165:         PUSHI  #0x00000019
1924 @ 10170:         INIT   1
1925 @ 10173:         PUSHI  #0x00000847
1926 @ 10178:         INIT   1
1927 @ 10181:         PUSHI  #0x00004a48
1928 @ 10186:         INIT   1
1929 @ 10189:         PUSHI  #0x00000000
1930 @ 10194:         INIT   1
1931 @ 10197:         PUSHI  #0x00004a78
1932 @ 10202:         INIT   1
1933 @ 10205:         PUSHI  #0x00000002
1934 @ 10210:         INIT   1
1935 @ 10213:         PUSHI  #0x0000580d
1936 @ 10218:         INIT   1
1937 @ 10221:         PUSHI  #0x00000000
1938 @ 10226:         INIT   1
1939 @ 10229:         PUSHI  #0x0000c507
1940 @ 10234:         INIT   1
1941 @ 10237:         PUSHI  #0x00000200
1942 @ 10242:         INIT   1
1943 @ 10245:         PUSHI  #0x00002387
1944 @ 10250:         INIT   1
1945 @ 10253:         PUSHI  #0x00004b78
1946 @ 10258:         INIT   1
1947 @ 10261:         PUSHI  #0x00000002
1948 @ 10266:         INIT   1
1949 @ 10269:         PUSHI  #0x00002402
1950 @ 10274:         INIT   1
1951 @ 10277:         PUSHI  #0x00002410
1952 @ 10282:         INIT   1
1953 @ 10285:         PUSHI  #0x00008888
1954 @ 10290:         INIT   1
1955 @ 10293:         PUSHI  #0x00000001
1956 @ 10298:         INIT   1
1957 @ 10301:         PUSHI  #0x0000580e
1958 @ 10306:         INIT   1
1959 @ 10309:         PUSHI  #0x00000010
1960 @ 10314:         INIT   1
1961 @ 10317:         PUSHI  #0x00005004
1962 @ 10322:         INIT   1
1963 @ 10325:         PUSHI  #0x00000000
1964 @ 10330:         INIT   1
1965 @ 10333:         PUSHI  #0x00002644
1966 @ 10338:         INIT   1
1967 @ 10341:         PUSHI  #0x00000547
1968 @ 10346:         INIT   1
1969 @ 10349:         PUSHI  #0x00002224
1970 @ 10354:         INIT   1
1971 @ 10357:         PUSHI  #0x00004308
1972 @ 10362:         INIT   1
1973 @ 10365:         PUSHI  #0x00000004
1974 @ 10370:         INIT   1

   106  %CONSTINTEGER PSEUDO OBJ = 2, DIRECT = 3;! INPUT STREAMS
1975 @ 10373:         LINE   106 "regression-compile-tmp/gens400.imp"

   107  %CONSTINTEGER  REPORT = 0, OBJECT = 2;      ! OUTPUT
   108  
1976 @ 10411:         LINE   107 "regression-compile-tmp/gens400.imp"

   109  %CONSTINTEGERARRAY NOT(0:12) = 1,0,5,4,3,2,7,6,11,10,9,8,12
1977 @ 10449:         LINE   109 "regression-compile-tmp/gens400.imp"
1978 @ 10487:         PUSHI  #0x00000000
1979 @ 10492:         PUSHI  #0x0000000c
1980 @ 10497:         BOUNDS
1981 @ 10498:         DEF    NOT p1=V_0082 a/tf=1b b/format=1 c/ostate=112  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=2 (constant) spec=0 indirect=1 unass=0
1982 @ 10513:         PUSHI  #0x00000001
1983 @ 10518:         INIT   1
1984 @ 10521:         PUSHI  #0x00000000
1985 @ 10526:         INIT   1
1986 @ 10529:         PUSHI  #0x00000005
1987 @ 10534:         INIT   1
1988 @ 10537:         PUSHI  #0x00000004
1989 @ 10542:         INIT   1
1990 @ 10545:         PUSHI  #0x00000003
1991 @ 10550:         INIT   1
1992 @ 10553:         PUSHI  #0x00000002
1993 @ 10558:         INIT   1
1994 @ 10561:         PUSHI  #0x00000007
1995 @ 10566:         INIT   1
1996 @ 10569:         PUSHI  #0x00000006
1997 @ 10574:         INIT   1
1998 @ 10577:         PUSHI  #0x0000000b
1999 @ 10582:         INIT   1
2000 @ 10585:         PUSHI  #0x0000000a
2001 @ 10590:         INIT   1
2002 @ 10593:         PUSHI  #0x00000009
2003 @ 10598:         INIT   1
2004 @ 10601:         PUSHI  #0x00000008
2005 @ 10606:         INIT   1
2006 @ 10609:         PUSHI  #0x0000000c
2007 @ 10614:         INIT   1

   110  %CONSTINTEGERARRAY SB(0:12) =
   111  X'2230', X'2030', X'2010', X'2020', X'2220', X'2210',
   112  X'2230', X'2030', X'2020', X'2010', X'2210', X'2220', X'2200'
2008 @ 10617:         LINE   110 "regression-compile-tmp/gens400.imp"
2009 @ 10655:         PUSHI  #0x00000000
2010 @ 10660:         PUSHI  #0x0000000c
2011 @ 10665:         BOUNDS
2012 @ 10666:         DEF    SB p1=V_0083 a/tf=1b b/format=1 c/ostate=112  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=2 (constant) spec=0 indirect=1 unass=0
2013 @ 10680:         PUSHI  #0x00002230
2014 @ 10685:         INIT   1
2015 @ 10688:         PUSHI  #0x00002030
2016 @ 10693:         INIT   1
2017 @ 10696:         PUSHI  #0x00002010
2018 @ 10701:         INIT   1
2019 @ 10704:         PUSHI  #0x00002020
2020 @ 10709:         INIT   1
2021 @ 10712:         PUSHI  #0x00002220
2022 @ 10717:         INIT   1
2023 @ 10720:         PUSHI  #0x00002210
2024 @ 10725:         INIT   1
2025 @ 10728:         PUSHI  #0x00002230
2026 @ 10733:         INIT   1
2027 @ 10736:         PUSHI  #0x00002030
2028 @ 10741:         INIT   1
2029 @ 10744:         PUSHI  #0x00002020
2030 @ 10749:         INIT   1
2031 @ 10752:         PUSHI  #0x00002010
2032 @ 10757:         INIT   1
2033 @ 10760:         PUSHI  #0x00002210
2034 @ 10765:         INIT   1
2035 @ 10768:         PUSHI  #0x00002220
2036 @ 10773:         INIT   1
2037 @ 10776:         PUSHI  #0x00002200
2038 @ 10781:         INIT   1

   113  %CONSTINTEGERARRAY SF(0:12) =
   114  X'2330', X'2130', X'2110', X'2120', X'2320', X'2310',
   115  X'2330', X'2130', X'2120', X'2110', X'2310', X'2320', X'2300'
2039 @ 10784:         LINE   113 "regression-compile-tmp/gens400.imp"
2040 @ 10822:         PUSHI  #0x00000000
2041 @ 10827:         PUSHI  #0x0000000c
2042 @ 10832:         BOUNDS
2043 @ 10833:         DEF    SF p1=V_0084 a/tf=1b b/format=1 c/ostate=112  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=2 (constant) spec=0 indirect=1 unass=0
2044 @ 10847:         PUSHI  #0x00002330
2045 @ 10852:         INIT   1
2046 @ 10855:         PUSHI  #0x00002130
2047 @ 10860:         INIT   1
2048 @ 10863:         PUSHI  #0x00002110
2049 @ 10868:         INIT   1
2050 @ 10871:         PUSHI  #0x00002120
2051 @ 10876:         INIT   1
2052 @ 10879:         PUSHI  #0x00002320
2053 @ 10884:         INIT   1
2054 @ 10887:         PUSHI  #0x00002310
2055 @ 10892:         INIT   1
2056 @ 10895:         PUSHI  #0x00002330
2057 @ 10900:         INIT   1
2058 @ 10903:         PUSHI  #0x00002130
2059 @ 10908:         INIT   1
2060 @ 10911:         PUSHI  #0x00002120
2061 @ 10916:         INIT   1
2062 @ 10919:         PUSHI  #0x00002110
2063 @ 10924:         INIT   1
2064 @ 10927:         PUSHI  #0x00002310
2065 @ 10932:         INIT   1
2066 @ 10935:         PUSHI  #0x00002320
2067 @ 10940:         INIT   1
2068 @ 10943:         PUSHI  #0x00002300
2069 @ 10948:         INIT   1

   116  %CONSTINTEGERARRAY LJ(0:12) =
   117  X'433E', X'423E', X'421E', X'422E', X'432E', X'431E',
   118  X'433E', X'423E', X'422E', X'421E', X'431E', X'432E', X'430E'
2070 @ 10951:         LINE   116 "regression-compile-tmp/gens400.imp"
2071 @ 10989:         PUSHI  #0x00000000
2072 @ 10994:         PUSHI  #0x0000000c
2073 @ 10999:         BOUNDS
2074 @ 11000:         DEF    LJ p1=V_0085 a/tf=1b b/format=1 c/ostate=112  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=2 (constant) spec=0 indirect=1 unass=0
2075 @ 11014:         PUSHI  #0x0000433e
2076 @ 11019:         INIT   1
2077 @ 11022:         PUSHI  #0x0000423e
2078 @ 11027:         INIT   1
2079 @ 11030:         PUSHI  #0x0000421e
2080 @ 11035:         INIT   1
2081 @ 11038:         PUSHI  #0x0000422e
2082 @ 11043:         INIT   1
2083 @ 11046:         PUSHI  #0x0000432e
2084 @ 11051:         INIT   1
2085 @ 11054:         PUSHI  #0x0000431e
2086 @ 11059:         INIT   1
2087 @ 11062:         PUSHI  #0x0000433e
2088 @ 11067:         INIT   1
2089 @ 11070:         PUSHI  #0x0000423e
2090 @ 11075:         INIT   1
2091 @ 11078:         PUSHI  #0x0000422e
2092 @ 11083:         INIT   1
2093 @ 11086:         PUSHI  #0x0000421e
2094 @ 11091:         INIT   1
2095 @ 11094:         PUSHI  #0x0000431e
2096 @ 11099:         INIT   1
2097 @ 11102:         PUSHI  #0x0000432e
2098 @ 11107:         INIT   1
2099 @ 11110:         PUSHI  #0x0000430e
2100 @ 11115:         INIT   1

   119  %CONSTINTEGER MAX PATCH = 450
2101 @ 11118:         LINE   119 "regression-compile-tmp/gens400.imp"

   120  %CONSTINTEGER MAX JUMPS = 3000
2102 @ 11156:         LINE   120 "regression-compile-tmp/gens400.imp"

   121  %CONSTINTEGER MAX LABELS= 2000
2103 @ 11194:         LINE   121 "regression-compile-tmp/gens400.imp"

   122  %BEGIN
   123  
2104 @ 11232:         LINE   122 "regression-compile-tmp/gens400.imp"
2105 @ 11270:         BEGIN  _lev0id0 {lev=0 --> 1}

   124     %RECORDFORMAT PFM(%INTEGER WHAT, WHERE)
2106 @ 11271:            LINE   124 "regression-compile-tmp/gens400.imp"
2107 @ 11309:            DEF    PFM p1=V_0086 a/tf=44 b/format=86 c/ostate=0  type=4 (record) form=4 (record-format) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2108 @ 11324:            START  ( RECORDFORMAT
2109 @ 11325:               DEF    WHAT p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2110 @ 11341:               DEF    WHERE p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2111 @ 11358:            FINISH ) 

   125     %RECORDFORMAT LFM(%INTEGER LAB, CA)
   126                      !  LAB =  MODE(3)+LABEL(12)
   127                      !  MODE= LONG+CONDITIONAL+PERM+RT
2112 @ 11359:            LINE   125 "regression-compile-tmp/gens400.imp"
2113 @ 11397:            DEF    LFM p1=V_0087 a/tf=44 b/format=87 c/ostate=0  type=4 (record) form=4 (record-format) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2114 @ 11412:            START  ( RECORDFORMAT
2115 @ 11413:               DEF    LAB p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2116 @ 11428:               DEF    CA p1=V_0000 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2117 @ 11442:            FINISH ) 

   128     %RECORD(LFM)%ARRAY JUMP(1 : MAXJUMPS+1)
2118 @ 11443:            LINE   128 "regression-compile-tmp/gens400.imp"
2119 @ 11481:            DEF    JUMP p1=V_0088 a/tf=4b b/format=87 c/ostate=100  type=4 (record) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2120 @ 11497:            PUSHI  #0x00000001
2121 @ 11502:            PUSHI  #0x00000bb8
2122 @ 11507:            PUSHI  #0x00000001
2123 @ 11512:            ADD   
2124 @ 11513:            DIM    0001 0001

   129     %RECORD(PFM)%ARRAY PATCH(1 : MAX PATCH)
2125 @ 11519:            LINE   129 "regression-compile-tmp/gens400.imp"
2126 @ 11557:            DEF    PATCH p1=V_0089 a/tf=4b b/format=86 c/ostate=100  type=4 (record) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2127 @ 11574:            PUSHI  #0x00000001
2128 @ 11579:            PUSHI  #0x000001c2
2129 @ 11584:            DIM    0001 0001

   130     %INTEGERARRAY LAB(0 : MAXLABELS)
2130 @ 11590:            LINE   130 "regression-compile-tmp/gens400.imp"
2131 @ 11628:            DEF    LAB p1=V_008a a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2132 @ 11643:            PUSHI  #0x00000000
2133 @ 11648:            PUSHI  #0x000007d0
2134 @ 11653:            DIM    0001 0001

   131     %INTEGERARRAY LTEMP(0:9)
2135 @ 11659:            LINE   131 "regression-compile-tmp/gens400.imp"
2136 @ 11697:            DEF    LTEMP p1=V_008b a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2137 @ 11714:            PUSHI  #0x00000000
2138 @ 11719:            PUSHI  #0x00000009
2139 @ 11724:            DIM    0001 0001

   132     %INTEGERARRAY PEP, PADDR(1:MAX PERM)
2140 @ 11730:            LINE   132 "regression-compile-tmp/gens400.imp"
2141 @ 11768:            DEF    PEP p1=V_008c a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2142 @ 11783:            DEF    PADDR p1=V_008d a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2143 @ 11800:            PUSHI  #0x00000001
2144 @ 11805:            PUSHI  #0x00000036
2145 @ 11810:            DIM    0001 0002

   133     %INTEGER CA, GA, LA, DA
2146 @ 11816:            LINE   133 "regression-compile-tmp/gens400.imp"
2147 @ 11854:            DEF    CA p1=V_008e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2148 @ 11868:            DEF    GA p1=V_008f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2149 @ 11882:            DEF    LA p1=V_0090 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2150 @ 11896:            DEF    DA p1=V_0091 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   134     %INTEGER LINE SIZE
2151 @ 11910:            LINE   134 "regression-compile-tmp/gens400.imp"
2152 @ 11948:            DEF    LINESIZE p1=V_0092 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   135     %INTEGER CODE SIZE, GLA SIZE, LOAD SIZE, PERM SIZE, DIAG SIZE
2153 @ 11968:            LINE   135 "regression-compile-tmp/gens400.imp"
2154 @ 12006:            DEF    CODESIZE p1=V_0093 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2155 @ 12026:            DEF    GLASIZE p1=V_0094 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2156 @ 12045:            DEF    LOADSIZE p1=V_0095 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2157 @ 12065:            DEF    PERMSIZE p1=V_0096 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2158 @ 12085:            DEF    DIAGSIZE p1=V_0097 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   136     %CONSTINTEGER EMARK = X'8888'
2159 @ 12105:            LINE   136 "regression-compile-tmp/gens400.imp"

   137     %CONSTINTEGER NEVER = X'7FFF'
2160 @ 12143:            LINE   137 "regression-compile-tmp/gens400.imp"

   138     %CONSTINTEGER LONG = X'800000'
2161 @ 12181:            LINE   138 "regression-compile-tmp/gens400.imp"

   139     %CONSTINTEGER COND = X'400000'
2162 @ 12219:            LINE   139 "regression-compile-tmp/gens400.imp"

   140     %CONSTINTEGER PERM = X'200000'
2163 @ 12257:            LINE   140 "regression-compile-tmp/gens400.imp"

   141     %CONSTINTEGER RT   = X'100000'
2164 @ 12295:            LINE   141 "regression-compile-tmp/gens400.imp"

   142     %CONSTINTEGER VERY = X'080000'
2165 @ 12333:            LINE   142 "regression-compile-tmp/gens400.imp"

   143     %CONSTINTEGER LABEL= X'FFFF'
2166 @ 12371:            LINE   143 "regression-compile-tmp/gens400.imp"

   144     %OWNINTEGER MAX LABEL = 1
2167 @ 12409:            LINE   144 "regression-compile-tmp/gens400.imp"
2168 @ 12447:            PUSHI  #0x00000001
2169 @ 12452:            DEF    MAXLABEL p1=V_0098 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2170 @ 12472:            INIT   1

   145     %OWNINTEGER INIT GLA = 0
2171 @ 12475:            LINE   145 "regression-compile-tmp/gens400.imp"
2172 @ 12513:            PUSHI  #0x00000000
2173 @ 12518:            DEF    INITGLA p1=V_0099 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2174 @ 12537:            INIT   1

   146     %INTEGER REF EXTRA, IGNORE, FLAG
2175 @ 12540:            LINE   146 "regression-compile-tmp/gens400.imp"
2176 @ 12578:            DEF    REFEXTRA p1=V_009a a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2177 @ 12598:            DEF    IGNORE p1=V_009b a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2178 @ 12616:            DEF    FLAG p1=V_009c a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   147     %INTEGER REFS, CURRENT LINE
2179 @ 12632:            LINE   147 "regression-compile-tmp/gens400.imp"
2180 @ 12670:            DEF    REFS p1=V_009d a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2181 @ 12686:            DEF    CURRENTLINE p1=V_009e a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   148     %INTEGER J,K,L,z
2182 @ 12709:            LINE   148 "regression-compile-tmp/gens400.imp"
2183 @ 12747:            DEF    J p1=V_009f a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2184 @ 12760:            DEF    K p1=V_00a0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2185 @ 12773:            DEF    L p1=V_00a1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2186 @ 12786:            DEF    Z p1=V_00a2 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   149     %INTEGER CP, GP, CODE, TAG, EXTRA
2187 @ 12799:            LINE   149 "regression-compile-tmp/gens400.imp"
2188 @ 12837:            DEF    CP p1=V_00a3 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2189 @ 12851:            DEF    GP p1=V_00a4 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2190 @ 12865:            DEF    CODE p1=V_00a5 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2191 @ 12881:            DEF    TAG p1=V_00a6 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2192 @ 12896:            DEF    EXTRA p1=V_00a7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   150     %RECORD(PFM)%NAME PAT
2193 @ 12913:            LINE   150 "regression-compile-tmp/gens400.imp"
2194 @ 12951:            DEF    PAT p1=V_00a8 a/tf=42 b/format=86 c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   151     %INTEGER CTAG, CCA, UCA, DEFMOD, LAST
2195 @ 12966:            LINE   151 "regression-compile-tmp/gens400.imp"
2196 @ 13004:            DEF    CTAG p1=V_00a9 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2197 @ 13020:            DEF    CCA p1=V_00aa a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2198 @ 13035:            DEF    UCA p1=V_00ab a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2199 @ 13050:            DEF    DEFMOD p1=V_00ac a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2200 @ 13068:            DEF    LAST p1=V_00ad a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   152     %INTEGER MODE, CADDR, CVAL, GADDR, GVAL
2201 @ 13084:            LINE   152 "regression-compile-tmp/gens400.imp"
2202 @ 13122:            DEF    MODE p1=V_00ae a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2203 @ 13138:            DEF    CADDR p1=V_00af a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2204 @ 13155:            DEF    CVAL p1=V_00b0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2205 @ 13171:            DEF    GADDR p1=V_00b1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2206 @ 13188:            DEF    GVAL p1=V_00b2 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   153     %SWITCH D(1:8), C(2:11)
2207 @ 13204:            LINE   153 "regression-compile-tmp/gens400.imp"
2208 @ 13242:            PUSHI  #0x00000001
2209 @ 13247:            PUSHI  #0x00000008
2210 @ 13252:            BOUNDS
2211 @ 13253:            DEF    D p1=V_00b3 a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2212 @ 13266:            PUSHI  #0x00000002
2213 @ 13271:            PUSHI  #0x0000000b
2214 @ 13276:            BOUNDS
2215 @ 13277:            DEF    C p1=V_00b4 a/tf=6 b/format=0 c/ostate=0  type=0 (<type:0>) form=6 (switch) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   154     %RECORD(LFM)%NAME UREF, CREF
2216 @ 13290:            LINE   154 "regression-compile-tmp/gens400.imp"
2217 @ 13328:            DEF    UREF p1=V_00b5 a/tf=42 b/format=87 c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2218 @ 13344:            DEF    CREF p1=V_00b6 a/tf=42 b/format=87 c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   155     %RECORD(LFM)%NAME  R,B
2219 @ 13360:            LINE   155 "regression-compile-tmp/gens400.imp"
2220 @ 13398:            DEF    R p1=V_00b7 a/tf=42 b/format=87 c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2221 @ 13411:            DEF    B p1=V_00b8 a/tf=42 b/format=87 c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   156     %INTEGERNAME V
2222 @ 13424:            LINE   156 "regression-compile-tmp/gens400.imp"
2223 @ 13462:            DEF    V p1=V_00b9 a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   157     %INTEGER PHASE
2224 @ 13475:            LINE   157 "regression-compile-tmp/gens400.imp"
2225 @ 13513:            DEF    PHASE p1=V_00ba a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   158     %INTEGER  RX1,RX2,RX3,SJ;  RX1=0;  RX2=0;  RX3=0;  SJ=0
2226 @ 13530:            LINE   158 "regression-compile-tmp/gens400.imp"
2227 @ 13568:            DEF    RX1 p1=V_00bb a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2228 @ 13583:            DEF    RX2 p1=V_00bc a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2229 @ 13598:            DEF    RX3 p1=V_00bd a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2230 @ 13613:            DEF    SJ p1=V_00be a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2231 @ 13627:            LINE   158 "regression-compile-tmp/gens400.imp"
2232 @ 13665:            PUSH   RX1
2233 @ 13668:            PUSHI  #0x00000000
2234 @ 13673:            ASSVAL
2235 @ 13674:            LINE   158 "regression-compile-tmp/gens400.imp"
2236 @ 13712:            PUSH   RX2
2237 @ 13715:            PUSHI  #0x00000000
2238 @ 13720:            ASSVAL
2239 @ 13721:            LINE   158 "regression-compile-tmp/gens400.imp"
2240 @ 13759:            PUSH   RX3
2241 @ 13762:            PUSHI  #0x00000000
2242 @ 13767:            ASSVAL
2243 @ 13768:            LINE   158 "regression-compile-tmp/gens400.imp"
2244 @ 13806:            PUSH   SJ
2245 @ 13809:            PUSHI  #0x00000000
2246 @ 13814:            ASSVAL

   159     %INTEGER RTNCALLS, PERMCALLS;  RTNCALLS=0;  PERMCALLS=0
   160  !
   161  !
   162  !
2247 @ 13815:            LINE   159 "regression-compile-tmp/gens400.imp"
2248 @ 13853:            DEF    RTNCALLS p1=V_00bf a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2249 @ 13873:            DEF    PERMCALLS p1=V_00c0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2250 @ 13894:            LINE   159 "regression-compile-tmp/gens400.imp"
2251 @ 13932:            PUSH   RTNCALLS
2252 @ 13935:            PUSHI  #0x00000000
2253 @ 13940:            ASSVAL
2254 @ 13941:            LINE   159 "regression-compile-tmp/gens400.imp"
2255 @ 13979:            PUSH   PERMCALLS
2256 @ 13982:            PUSHI  #0x00000000
2257 @ 13987:            ASSVAL

   163  %SHORTINTEGER  CBP, GBP, LBP, DBP, TBP
   164  
   165  !  N.B.   'GLABUFFSIZE' MUST BE A POWER OF 2 -- SEE LINE 562 ISH
2258 @ 13988:            LINE   163 "regression-compile-tmp/gens400.imp"
2259 @ 14026:            DEF    CBP p1=V_00c1 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2260 @ 14041:            DEF    GBP p1=V_00c2 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2261 @ 14056:            DEF    LBP p1=V_00c3 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2262 @ 14071:            DEF    DBP p1=V_00c4 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2263 @ 14086:            DEF    TBP p1=V_00c5 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

   166  %CONSTINTEGER  CODEBUFFSIZE=200, GLABUFFSIZE=256, LD BUFF SIZE=200
2264 @ 14101:            LINE   166 "regression-compile-tmp/gens400.imp"

   167  %CONSTINTEGER DIAG BUFF SIZE = 256
2265 @ 14139:            LINE   167 "regression-compile-tmp/gens400.imp"

   168  %SHORTINTEGERARRAY TBUFF,DBUFF(1:DIAG BUFF SIZE)
2266 @ 14177:            LINE   168 "regression-compile-tmp/gens400.imp"
2267 @ 14215:            DEF    TBUFF p1=V_00c6 a/tf=1b b/format=3 c/ostate=100  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2268 @ 14232:            DEF    DBUFF p1=V_00c7 a/tf=1b b/format=3 c/ostate=100  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2269 @ 14249:            PUSHI  #0x00000001
2270 @ 14254:            PUSHI  #0x00000100
2271 @ 14259:            DIM    0001 0002

   169  %SHORTINTEGERARRAY CBUFF(1:CODE BUFFSIZE), GBUFF(1:GLA BUFFSIZE)
2272 @ 14265:            LINE   169 "regression-compile-tmp/gens400.imp"
2273 @ 14303:            DEF    CBUFF p1=V_00c8 a/tf=1b b/format=3 c/ostate=100  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2274 @ 14320:            PUSHI  #0x00000001
2275 @ 14325:            PUSHI  #0x000000c8
2276 @ 14330:            DIM    0001 0001
2277 @ 14336:            DEF    GBUFF p1=V_00c9 a/tf=1b b/format=3 c/ostate=100  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2278 @ 14353:            PUSHI  #0x00000001
2279 @ 14358:            PUSHI  #0x00000100
2280 @ 14363:            DIM    0001 0001

   170  %SHORTINTEGERARRAY LBUFF(1:LD BUFFSIZE);   ! ... LD = 'LOADER DATA'
   171  !
   172  !   -------OBJECT BLOCK TYPE CODES-------
2281 @ 14369:            LINE   170 "regression-compile-tmp/gens400.imp"
2282 @ 14407:            DEF    LBUFF p1=V_00ca a/tf=1b b/format=3 c/ostate=100  type=1 (integer) form=11 (array) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2283 @ 14424:            PUSHI  #0x00000001
2284 @ 14429:            PUSHI  #0x000000c8
2285 @ 14434:            DIM    0001 0001

   173  %CONSTINTEGER END OF FILE BLOCK = 0
2286 @ 14440:            LINE   173 "regression-compile-tmp/gens400.imp"

   174  %CONSTINTEGER NONDIAG CODE BLOCK = 1
2287 @ 14478:            LINE   174 "regression-compile-tmp/gens400.imp"

   175  %CONSTINTEGER DIAG CODE BLOCK = 2
2288 @ 14516:            LINE   175 "regression-compile-tmp/gens400.imp"

   176  %CONSTINTEGER STATIC DATA BLOCK = 3;  ! ...'GLA' IN IMP CONTEXT
2289 @ 14554:            LINE   176 "regression-compile-tmp/gens400.imp"

   177  %CONSTINTEGER DIAGS DATA BLOCK = 4
2290 @ 14592:            LINE   177 "regression-compile-tmp/gens400.imp"

   178  %CONSTINTEGER DIAG TABLE     = 5
2291 @ 14630:            LINE   178 "regression-compile-tmp/gens400.imp"

   179  %CONSTINTEGER ENTRY POINT BLOCK = 6
2292 @ 14668:            LINE   179 "regression-compile-tmp/gens400.imp"

   180  %CONSTINTEGER EXTERNAL REF BLOCK = 7
2293 @ 14706:            LINE   180 "regression-compile-tmp/gens400.imp"

   181  %CONSTINTEGER SEGMENT SIZE BLOCK = 15
   182  !
2294 @ 14744:            LINE   181 "regression-compile-tmp/gens400.imp"

   183     %ROUTINE  GET(%INTEGERNAME  N)
2295 @ 14782:            LINE   183 "regression-compile-tmp/gens400.imp"
2296 @ 14820:            DEF    GET (_lev0id0_GET) p1=V_00cb a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2297 @ 14835:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2298 @ 14836:                  DEF    N p1=V_00cc a/tf=12 b/format=1 c/ostate=0  type=1 (integer) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2299 @ 14849:               FINISH ) {lev=2}

   184        %INTEGER S
2300 @ 14850:               LINE   184 "regression-compile-tmp/gens400.imp"
2301 @ 14888:               DEF    S p1=V_00cd a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   185        READSYMBOL(N);  READSYMBOL(S)
2302 @ 14901:               LINE   185 "regression-compile-tmp/gens400.imp"
2303 @ 14939:               PUSH   READSYMBOL
2304 @ 14942:               PUSH   N
2305 @ 14945:               ASSPAR
2306 @ 14946:               CALL  
2307 @ 14947:               LINE   185 "regression-compile-tmp/gens400.imp"
2308 @ 14985:               PUSH   READSYMBOL
2309 @ 14988:               PUSH   S
2310 @ 14991:               ASSPAR
2311 @ 14992:               CALL  

   186        N = N<<8!S
2312 @ 14993:               LINE   186 "regression-compile-tmp/gens400.imp"
2313 @ 15031:               PUSH   N
2314 @ 15034:               PUSH   N
2315 @ 15037:               PUSHI  #0x00000008
2316 @ 15042:               LSH   
2317 @ 15043:               PUSH   S
2318 @ 15046:               OR    
2319 @ 15047:               ASSVAL

   187     %END
   188  !
2320 @ 15048:               LINE   187 "regression-compile-tmp/gens400.imp"
2321 @ 15086:            END    _lev0id0_GET {lev=2 --> 1}

   189  %ROUTINE  PUT HALF(%SHORTINTEGER N)
2322 @ 15087:            LINE   189 "regression-compile-tmp/gens400.imp"
2323 @ 15125:            DEF    PUTHALF (_lev0id0_PUTHALF) p1=V_00cc a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2324 @ 15144:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2325 @ 15145:                  DEF    N p1=V_00cd a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2326 @ 15158:               FINISH ) {lev=2}

   190     PRINT SYMBOL((N>>8)&255)
2327 @ 15159:               LINE   190 "regression-compile-tmp/gens400.imp"
2328 @ 15197:               PUSH   PRINTSYMBOL
2329 @ 15200:               PUSH   N
2330 @ 15203:               PUSHI  #0x00000008
2331 @ 15208:               RSH   
2332 @ 15209:               PUSHI  #0x000000ff
2333 @ 15214:               AND   
2334 @ 15215:               ASSPAR
2335 @ 15216:               CALL  

   191     PRINT SYMBOL(N&255)
2336 @ 15217:               LINE   191 "regression-compile-tmp/gens400.imp"
2337 @ 15255:               PUSH   PRINTSYMBOL
2338 @ 15258:               PUSH   N
2339 @ 15261:               PUSHI  #0x000000ff
2340 @ 15266:               AND   
2341 @ 15267:               ASSPAR
2342 @ 15268:               CALL  

   192  %END
   193  !
2343 @ 15269:               LINE   192 "regression-compile-tmp/gens400.imp"
2344 @ 15307:            END    _lev0id0_PUTHALF {lev=2 --> 1}

   194  %ROUTINE  PUT BLOCK(%SHORTINTEGER HEADER, %SHORTINTEGERARRAYNAME BLOCK)
2345 @ 15308:            LINE   194 "regression-compile-tmp/gens400.imp"
2346 @ 15346:            DEF    PUTBLOCK (_lev0id0_PUTBLOCK) p1=V_00cd a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2347 @ 15366:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2348 @ 15367:                  DEF    HEADER p1=V_00ce a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2349 @ 15385:                  DEF    BLOCK p1=V_00cf a/tf=1c b/format=3 c/ostate=140  type=1 (integer) form=12 (<form:12>) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2350 @ 15402:               FINISH ) {lev=2}

   195  %SHORTINTEGER I,J
2351 @ 15403:               LINE   195 "regression-compile-tmp/gens400.imp"
2352 @ 15441:               DEF    I p1=V_00d0 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2353 @ 15454:               DEF    J p1=V_00d1 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0

   196     PUT HALF(HEADER)
2354 @ 15467:               LINE   196 "regression-compile-tmp/gens400.imp"
2355 @ 15505:               PUSH   PUTHALF
2356 @ 15508:               PUSH   HEADER
2357 @ 15511:               ASSPAR
2358 @ 15512:               CALL  

   197     %CYCLE I = 1,1,(HEADER>>4)&X'0FFF';   ! ...EXTRACT LENGTH
2359 @ 15513:               LINE   197 "regression-compile-tmp/gens400.imp"
2360 @ 15551:               PUSH   I
2361 @ 15554:               PUSHI  #0x00000001
2362 @ 15559:               PUSH   HEADER
2363 @ 15562:               PUSHI  #0x00000004
2364 @ 15567:               RSH   
2365 @ 15568:               PUSHI  #0x00000fff
2366 @ 15573:               AND   
2367 @ 15574:               PUSHI  #0x00000001
2368 @ 15579:               FOR    L_0003

   198        J = BLOCK(I)
2369 @ 15582:               LINE   198 "regression-compile-tmp/gens400.imp"
2370 @ 15620:               PUSH   J
2371 @ 15623:               PUSH   BLOCK
2372 @ 15626:               PUSH   I
2373 @ 15629:               ACCESS
2374 @ 15630:               ASSVAL

   199        HEADER = HEADER+J;    ! ...ACCUMULATE CHECKSUM
2375 @ 15631:               LINE   199 "regression-compile-tmp/gens400.imp"
2376 @ 15669:               PUSH   HEADER
2377 @ 15672:               PUSH   HEADER
2378 @ 15675:               PUSH   J
2379 @ 15678:               ADD   
2380 @ 15679:               ASSVAL

   200        PUT HALF(J)
2381 @ 15680:               LINE   200 "regression-compile-tmp/gens400.imp"
2382 @ 15718:               PUSH   PUTHALF
2383 @ 15721:               PUSH   J
2384 @ 15724:               ASSPAR
2385 @ 15725:               CALL  

   201     %REPEAT
2386 @ 15726:               LINE   201 "regression-compile-tmp/gens400.imp"
2387 @ 15764:               REPEAT L_0003
2388 @ 15767:               LOCATE L_0004

   202     PUT HALF(-HEADER-1);   ! ...CHECKSUM
2389 @ 15770:               LINE   202 "regression-compile-tmp/gens400.imp"
2390 @ 15808:               PUSH   PUTHALF
2391 @ 15811:               PUSH   HEADER
2392 @ 15814:               NEGATE
2393 @ 15815:               PUSHI  #0x00000001
2394 @ 15820:               SUB   
2395 @ 15821:               ASSPAR
2396 @ 15822:               CALL  

   203  %END
   204  !
2397 @ 15823:               LINE   203 "regression-compile-tmp/gens400.imp"
2398 @ 15861:            END    _lev0id0_PUTBLOCK {lev=2 --> 1}

   205  %ROUTINE  COPY BLOCK(%SHORTINTEGER  HEADER)
2399 @ 15862:            LINE   205 "regression-compile-tmp/gens400.imp"
2400 @ 15900:            DEF    COPYBLOCK (_lev0id0_COPYBLOCK) p1=V_00ce a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2401 @ 15921:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2402 @ 15922:                  DEF    HEADER p1=V_00cf a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2403 @ 15940:               FINISH ) {lev=2}

   206  %SHORTINTEGER I;  %INTEGER N
2404 @ 15941:               LINE   206 "regression-compile-tmp/gens400.imp"
2405 @ 15979:               DEF    I p1=V_00d0 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2406 @ 15992:               LINE   206 "regression-compile-tmp/gens400.imp"
2407 @ 16030:               DEF    N p1=V_00d1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   207     PUT HALF(HEADER)
2408 @ 16043:               LINE   207 "regression-compile-tmp/gens400.imp"
2409 @ 16081:               PUSH   PUTHALF
2410 @ 16084:               PUSH   HEADER
2411 @ 16087:               ASSPAR
2412 @ 16088:               CALL  

   208     %CYCLE I = 1,1,(HEADER>>4)&X'0FFF'
2413 @ 16089:               LINE   208 "regression-compile-tmp/gens400.imp"
2414 @ 16127:               PUSH   I
2415 @ 16130:               PUSHI  #0x00000001
2416 @ 16135:               PUSH   HEADER
2417 @ 16138:               PUSHI  #0x00000004
2418 @ 16143:               RSH   
2419 @ 16144:               PUSHI  #0x00000fff
2420 @ 16149:               AND   
2421 @ 16150:               PUSHI  #0x00000001
2422 @ 16155:               FOR    L_0003

   209        GET(N); HEADER = HEADER+N
2423 @ 16158:               LINE   209 "regression-compile-tmp/gens400.imp"
2424 @ 16196:               PUSH   GET
2425 @ 16199:               PUSH   N
2426 @ 16202:               ASSPAR
2427 @ 16203:               CALL  
2428 @ 16204:               LINE   209 "regression-compile-tmp/gens400.imp"
2429 @ 16242:               PUSH   HEADER
2430 @ 16245:               PUSH   HEADER
2431 @ 16248:               PUSH   N
2432 @ 16251:               ADD   
2433 @ 16252:               ASSVAL

   210        PUT HALF(N)
2434 @ 16253:               LINE   210 "regression-compile-tmp/gens400.imp"
2435 @ 16291:               PUSH   PUTHALF
2436 @ 16294:               PUSH   N
2437 @ 16297:               ASSPAR
2438 @ 16298:               CALL  

   211     %REPEAT
2439 @ 16299:               LINE   211 "regression-compile-tmp/gens400.imp"
2440 @ 16337:               REPEAT L_0003
2441 @ 16340:               LOCATE L_0004

   212     PUT HALF(-HEADER-1)
2442 @ 16343:               LINE   212 "regression-compile-tmp/gens400.imp"
2443 @ 16381:               PUSH   PUTHALF
2444 @ 16384:               PUSH   HEADER
2445 @ 16387:               NEGATE
2446 @ 16388:               PUSHI  #0x00000001
2447 @ 16393:               SUB   
2448 @ 16394:               ASSPAR
2449 @ 16395:               CALL  

   213  %END
2450 @ 16396:               LINE   213 "regression-compile-tmp/gens400.imp"
2451 @ 16434:            END    _lev0id0_COPYBLOCK {lev=2 --> 1}

   214  %ROUTINE  CFLUSH
   215  !   OUTPUT BUFFER IF THERE IS ANYTHING IN IT -- OTHERWISE JUST
   216  !   INITIALISE.   BUFFER IS EMPTY IF CBP=1
2452 @ 16435:            LINE   214 "regression-compile-tmp/gens400.imp"
2453 @ 16473:            DEF    CFLUSH (_lev0id0_CFLUSH) p1=V_00cf a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2454 @ 16491:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2455 @ 16492:               FINISH ) {lev=2}

   217     PUT BLOCK( (CBP<<4)!DIAG CODE BLOCK, CBUFF ) %IF CBP # 1
2456 @ 16493:               LINE   217 "regression-compile-tmp/gens400.imp"
2457 @ 16531:               PUSH   CBP
2458 @ 16534:               PUSHI  #0x00000001
2459 @ 16539:               JUMPIF = L_0004
2460 @ 16543:               PUSH   PUTBLOCK
2461 @ 16546:               PUSH   CBP
2462 @ 16549:               PUSHI  #0x00000004
2463 @ 16554:               LSH   
2464 @ 16555:               PUSHI  #0x00000002
2465 @ 16560:               OR    
2466 @ 16561:               ASSPAR
2467 @ 16562:               PUSH   CBUFF
2468 @ 16565:               ASSPAR
2469 @ 16566:               CALL  
2470 @ 16567:               LOCATE L_0004

   218     CBP = 1;  CBUFF(1) = CURRENT LINE
2471 @ 16570:               LINE   218 "regression-compile-tmp/gens400.imp"
2472 @ 16608:               PUSH   CBP
2473 @ 16611:               PUSHI  #0x00000001
2474 @ 16616:               ASSVAL
2475 @ 16617:               LINE   218 "regression-compile-tmp/gens400.imp"
2476 @ 16655:               PUSH   CBUFF
2477 @ 16658:               PUSHI  #0x00000001
2478 @ 16663:               ACCESS
2479 @ 16664:               PUSH   CURRENTLINE
2480 @ 16667:               ASSVAL

   219  %END
   220  !
2481 @ 16668:               LINE   219 "regression-compile-tmp/gens400.imp"
2482 @ 16706:            END    _lev0id0_CFLUSH {lev=2 --> 1}

   221  %ROUTINE  GFLUSH
2483 @ 16707:            LINE   221 "regression-compile-tmp/gens400.imp"
2484 @ 16745:            DEF    GFLUSH (_lev0id0_GFLUSH) p1=V_00d0 a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2485 @ 16763:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2486 @ 16764:               FINISH ) {lev=2}

   222     PUT BLOCK( (GBP<<4)!STATIC DATA BLOCK, GBUFF) %UNLESS GBP = 0
2487 @ 16765:               LINE   222 "regression-compile-tmp/gens400.imp"
2488 @ 16803:               PUSH   GBP
2489 @ 16806:               PUSHI  #0x00000000
2490 @ 16811:               JUMPIF = L_0004
2491 @ 16815:               PUSH   PUTBLOCK
2492 @ 16818:               PUSH   GBP
2493 @ 16821:               PUSHI  #0x00000004
2494 @ 16826:               LSH   
2495 @ 16827:               PUSHI  #0x00000003
2496 @ 16832:               OR    
2497 @ 16833:               ASSPAR
2498 @ 16834:               PUSH   GBUFF
2499 @ 16837:               ASSPAR
2500 @ 16838:               CALL  
2501 @ 16839:               LOCATE L_0004

   223     GBP = 0
2502 @ 16842:               LINE   223 "regression-compile-tmp/gens400.imp"
2503 @ 16880:               PUSH   GBP
2504 @ 16883:               PUSHI  #0x00000000
2505 @ 16888:               ASSVAL

   224  %END
   225  !
2506 @ 16889:               LINE   224 "regression-compile-tmp/gens400.imp"
2507 @ 16927:            END    _lev0id0_GFLUSH {lev=2 --> 1}

   226  %ROUTINE  LFLUSH
2508 @ 16928:            LINE   226 "regression-compile-tmp/gens400.imp"
2509 @ 16966:            DEF    LFLUSH (_lev0id0_LFLUSH) p1=V_00d1 a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2510 @ 16984:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2511 @ 16985:               FINISH ) {lev=2}

   227     PUT BLOCK( (LBP<<4)!EXTERNAL REF BLOCK, LBUFF) %IF LBP # 0
2512 @ 16986:               LINE   227 "regression-compile-tmp/gens400.imp"
2513 @ 17024:               PUSH   LBP
2514 @ 17027:               PUSHI  #0x00000000
2515 @ 17032:               JUMPIF = L_0004
2516 @ 17036:               PUSH   PUTBLOCK
2517 @ 17039:               PUSH   LBP
2518 @ 17042:               PUSHI  #0x00000004
2519 @ 17047:               LSH   
2520 @ 17048:               PUSHI  #0x00000007
2521 @ 17053:               OR    
2522 @ 17054:               ASSPAR
2523 @ 17055:               PUSH   LBUFF
2524 @ 17058:               ASSPAR
2525 @ 17059:               CALL  
2526 @ 17060:               LOCATE L_0004

   228     LBP = 0
2527 @ 17063:               LINE   228 "regression-compile-tmp/gens400.imp"
2528 @ 17101:               PUSH   LBP
2529 @ 17104:               PUSHI  #0x00000000
2530 @ 17109:               ASSVAL

   229  %END
   230  !
2531 @ 17110:               LINE   229 "regression-compile-tmp/gens400.imp"
2532 @ 17148:            END    _lev0id0_LFLUSH {lev=2 --> 1}

   231  %ROUTINE DFLUSH
2533 @ 17149:            LINE   231 "regression-compile-tmp/gens400.imp"
2534 @ 17187:            DEF    DFLUSH (_lev0id0_DFLUSH) p1=V_00d2 a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2535 @ 17205:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2536 @ 17206:               FINISH ) {lev=2}

   232     %RETURN %IF DBP = 0
2537 @ 17207:               LINE   232 "regression-compile-tmp/gens400.imp"
2538 @ 17245:               PUSH   DBP
2539 @ 17248:               PUSHI  #0x00000000
2540 @ 17253:               JUMPIF # L_0004
2541 @ 17257:               RETURN
2542 @ 17258:               LOCATE L_0004

   233     PUT BLOCK(DBP<<4+DIAGS DATA BLOCK, DBUFF)
2543 @ 17261:               LINE   233 "regression-compile-tmp/gens400.imp"
2544 @ 17299:               PUSH   PUTBLOCK
2545 @ 17302:               PUSH   DBP
2546 @ 17305:               PUSHI  #0x00000004
2547 @ 17310:               LSH   
2548 @ 17311:               PUSHI  #0x00000004
2549 @ 17316:               ADD   
2550 @ 17317:               ASSPAR
2551 @ 17318:               PUSH   DBUFF
2552 @ 17321:               ASSPAR
2553 @ 17322:               CALL  

   234     DBP = 0
2554 @ 17323:               LINE   234 "regression-compile-tmp/gens400.imp"
2555 @ 17361:               PUSH   DBP
2556 @ 17364:               PUSHI  #0x00000000
2557 @ 17369:               ASSVAL

   235  %END
2558 @ 17370:               LINE   235 "regression-compile-tmp/gens400.imp"
2559 @ 17408:            END    _lev0id0_DFLUSH {lev=2 --> 1}

   236  %ROUTINE T FLUSH
2560 @ 17409:            LINE   236 "regression-compile-tmp/gens400.imp"
2561 @ 17447:            DEF    TFLUSH (_lev0id0_TFLUSH) p1=V_00d3 a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2562 @ 17465:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2563 @ 17466:               FINISH ) {lev=2}

   237     PUT BLOCK((TBP<<4)!DIAG TABLE, T BUFF) %UNLESS TBP = 0
2564 @ 17467:               LINE   237 "regression-compile-tmp/gens400.imp"
2565 @ 17505:               PUSH   TBP
2566 @ 17508:               PUSHI  #0x00000000
2567 @ 17513:               JUMPIF = L_0004
2568 @ 17517:               PUSH   PUTBLOCK
2569 @ 17520:               PUSH   TBP
2570 @ 17523:               PUSHI  #0x00000004
2571 @ 17528:               LSH   
2572 @ 17529:               PUSHI  #0x00000005
2573 @ 17534:               OR    
2574 @ 17535:               ASSPAR
2575 @ 17536:               PUSH   TBUFF
2576 @ 17539:               ASSPAR
2577 @ 17540:               CALL  
2578 @ 17541:               LOCATE L_0004

   238     TBP = 0
2579 @ 17544:               LINE   238 "regression-compile-tmp/gens400.imp"
2580 @ 17582:               PUSH   TBP
2581 @ 17585:               PUSHI  #0x00000000
2582 @ 17590:               ASSVAL

   239  %END
2583 @ 17591:               LINE   239 "regression-compile-tmp/gens400.imp"
2584 @ 17629:            END    _lev0id0_TFLUSH {lev=2 --> 1}

   240  %ROUTINE  CPUT(%SHORTINTEGER  N)
2585 @ 17630:            LINE   240 "regression-compile-tmp/gens400.imp"
2586 @ 17668:            DEF    CPUT (_lev0id0_CPUT) p1=V_00d4 a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2587 @ 17684:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2588 @ 17685:                  DEF    N p1=V_00d5 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2589 @ 17698:               FINISH ) {lev=2}

   241     CBP = CBP+1;  CBUFF(CBP) = N
2590 @ 17699:               LINE   241 "regression-compile-tmp/gens400.imp"
2591 @ 17737:               PUSH   CBP
2592 @ 17740:               PUSH   CBP
2593 @ 17743:               PUSHI  #0x00000001
2594 @ 17748:               ADD   
2595 @ 17749:               ASSVAL
2596 @ 17750:               LINE   241 "regression-compile-tmp/gens400.imp"
2597 @ 17788:               PUSH   CBUFF
2598 @ 17791:               PUSH   CBP
2599 @ 17794:               ACCESS
2600 @ 17795:               PUSH   N
2601 @ 17798:               ASSVAL

   242     CA = CA+2
2602 @ 17799:               LINE   242 "regression-compile-tmp/gens400.imp"
2603 @ 17837:               PUSH   CA
2604 @ 17840:               PUSH   CA
2605 @ 17843:               PUSHI  #0x00000002
2606 @ 17848:               ADD   
2607 @ 17849:               ASSVAL

   243  %END
   244  !
2608 @ 17850:               LINE   243 "regression-compile-tmp/gens400.imp"
2609 @ 17888:            END    _lev0id0_CPUT {lev=2 --> 1}

   245  %ROUTINE  GPUT(%SHORTINTEGER  N)
2610 @ 17889:            LINE   245 "regression-compile-tmp/gens400.imp"
2611 @ 17927:            DEF    GPUT (_lev0id0_GPUT) p1=V_00d5 a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2612 @ 17943:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2613 @ 17944:                  DEF    N p1=V_00d6 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2614 @ 17957:               FINISH ) {lev=2}

   246     GFLUSH %IF GBP = GLA BUFF SIZE
2615 @ 17958:               LINE   246 "regression-compile-tmp/gens400.imp"
2616 @ 17996:               PUSH   GBP
2617 @ 17999:               PUSHI  #0x00000100
2618 @ 18004:               JUMPIF # L_0004
2619 @ 18008:               PUSH   GFLUSH
2620 @ 18011:               CALL  
2621 @ 18012:               LOCATE L_0004

   247     GBP = GBP+1;  GBUFF(GBP) = N
2622 @ 18015:               LINE   247 "regression-compile-tmp/gens400.imp"
2623 @ 18053:               PUSH   GBP
2624 @ 18056:               PUSH   GBP
2625 @ 18059:               PUSHI  #0x00000001
2626 @ 18064:               ADD   
2627 @ 18065:               ASSVAL
2628 @ 18066:               LINE   247 "regression-compile-tmp/gens400.imp"
2629 @ 18104:               PUSH   GBUFF
2630 @ 18107:               PUSH   GBP
2631 @ 18110:               ACCESS
2632 @ 18111:               PUSH   N
2633 @ 18114:               ASSVAL

   248     GA = GA+2
2634 @ 18115:               LINE   248 "regression-compile-tmp/gens400.imp"
2635 @ 18153:               PUSH   GA
2636 @ 18156:               PUSH   GA
2637 @ 18159:               PUSHI  #0x00000002
2638 @ 18164:               ADD   
2639 @ 18165:               ASSVAL

   249  %END
   250  !
2640 @ 18166:               LINE   249 "regression-compile-tmp/gens400.imp"
2641 @ 18204:            END    _lev0id0_GPUT {lev=2 --> 1}

   251  %ROUTINE  LPUT(%SHORTINTEGER  N)
2642 @ 18205:            LINE   251 "regression-compile-tmp/gens400.imp"
2643 @ 18243:            DEF    LPUT (_lev0id0_LPUT) p1=V_00d6 a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2644 @ 18259:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2645 @ 18260:                  DEF    N p1=V_00d7 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2646 @ 18273:               FINISH ) {lev=2}

   252     LFLUSH %IF LBP = LD BUFFSIZE
2647 @ 18274:               LINE   252 "regression-compile-tmp/gens400.imp"
2648 @ 18312:               PUSH   LBP
2649 @ 18315:               PUSHI  #0x000000c8
2650 @ 18320:               JUMPIF # L_0004
2651 @ 18324:               PUSH   LFLUSH
2652 @ 18327:               CALL  
2653 @ 18328:               LOCATE L_0004

   253     LBP = LBP+1;  LBUFF(LBP) = N
2654 @ 18331:               LINE   253 "regression-compile-tmp/gens400.imp"
2655 @ 18369:               PUSH   LBP
2656 @ 18372:               PUSH   LBP
2657 @ 18375:               PUSHI  #0x00000001
2658 @ 18380:               ADD   
2659 @ 18381:               ASSVAL
2660 @ 18382:               LINE   253 "regression-compile-tmp/gens400.imp"
2661 @ 18420:               PUSH   LBUFF
2662 @ 18423:               PUSH   LBP
2663 @ 18426:               ACCESS
2664 @ 18427:               PUSH   N
2665 @ 18430:               ASSVAL

   254     LA = LA+2
2666 @ 18431:               LINE   254 "regression-compile-tmp/gens400.imp"
2667 @ 18469:               PUSH   LA
2668 @ 18472:               PUSH   LA
2669 @ 18475:               PUSHI  #0x00000002
2670 @ 18480:               ADD   
2671 @ 18481:               ASSVAL

   255  %END
   256  !
2672 @ 18482:               LINE   255 "regression-compile-tmp/gens400.imp"
2673 @ 18520:            END    _lev0id0_LPUT {lev=2 --> 1}

   257  %ROUTINE  LSYM(%SHORTINTEGER N)
2674 @ 18521:            LINE   257 "regression-compile-tmp/gens400.imp"
2675 @ 18559:            DEF    LSYM (_lev0id0_LSYM) p1=V_00d7 a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2676 @ 18575:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2677 @ 18576:                  DEF    N p1=V_00d8 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2678 @ 18589:               FINISH ) {lev=2}

   258  %OWNINTEGER  FLAG,V
2679 @ 18590:               LINE   258 "regression-compile-tmp/gens400.imp"
2680 @ 18628:               DEF    FLAG p1=V_00d9 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2681 @ 18644:               INIT   1
2682 @ 18647:               DEF    V p1=V_00da a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2683 @ 18660:               INIT   1

   259     FLAG = \FLAG
2684 @ 18663:               LINE   259 "regression-compile-tmp/gens400.imp"
2685 @ 18701:               PUSH   FLAG
2686 @ 18704:               PUSH   FLAG
2687 @ 18707:               NOT   
2688 @ 18708:               ASSVAL

   260     %IF FLAG = 0 %START
2689 @ 18709:               LINE   260 "regression-compile-tmp/gens400.imp"
2690 @ 18747:               PUSH   FLAG
2691 @ 18750:               PUSHI  #0x00000000
2692 @ 18755:               JUMPIF # L_0004

   261        LPUT(N<<8+V)
2693 @ 18759:               LINE   261 "regression-compile-tmp/gens400.imp"
2694 @ 18797:               PUSH   LPUT
2695 @ 18800:               PUSH   N
2696 @ 18803:               PUSHI  #0x00000008
2697 @ 18808:               LSH   
2698 @ 18809:               PUSH   V
2699 @ 18812:               ADD   
2700 @ 18813:               ASSPAR
2701 @ 18814:               CALL  

   262     %ELSE
2702 @ 18815:               LINE   262 "regression-compile-tmp/gens400.imp"
2703 @ 18853:               GOTO   L_0003
2704 @ 18856:               LOCATE L_0004

   263        V = N
2705 @ 18859:               LINE   263 "regression-compile-tmp/gens400.imp"
2706 @ 18897:               PUSH   V
2707 @ 18900:               PUSH   N
2708 @ 18903:               ASSVAL

   264     %FINISH
2709 @ 18904:               LINE   264 "regression-compile-tmp/gens400.imp"
2710 @ 18942:               LOCATE L_0003

   265  %END
   266  !
2711 @ 18945:               LINE   265 "regression-compile-tmp/gens400.imp"
2712 @ 18983:            END    _lev0id0_LSYM {lev=2 --> 1}

   267  %ROUTINE DPUT(%SHORTINTEGER N)
2713 @ 18984:            LINE   267 "regression-compile-tmp/gens400.imp"
2714 @ 19022:            DEF    DPUT (_lev0id0_DPUT) p1=V_00d8 a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2715 @ 19038:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2716 @ 19039:                  DEF    N p1=V_00d9 a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2717 @ 19052:               FINISH ) {lev=2}

   268     DBP = DBP+1;  DBUFF(DBP) = N
2718 @ 19053:               LINE   268 "regression-compile-tmp/gens400.imp"
2719 @ 19091:               PUSH   DBP
2720 @ 19094:               PUSH   DBP
2721 @ 19097:               PUSHI  #0x00000001
2722 @ 19102:               ADD   
2723 @ 19103:               ASSVAL
2724 @ 19104:               LINE   268 "regression-compile-tmp/gens400.imp"
2725 @ 19142:               PUSH   DBUFF
2726 @ 19145:               PUSH   DBP
2727 @ 19148:               ACCESS
2728 @ 19149:               PUSH   N
2729 @ 19152:               ASSVAL

   269     DFLUSH %IF DBP = DIAG BUFF SIZE
2730 @ 19153:               LINE   269 "regression-compile-tmp/gens400.imp"
2731 @ 19191:               PUSH   DBP
2732 @ 19194:               PUSHI  #0x00000100
2733 @ 19199:               JUMPIF # L_0004
2734 @ 19203:               PUSH   DFLUSH
2735 @ 19206:               CALL  
2736 @ 19207:               LOCATE L_0004

   270     DA = DA+2
2737 @ 19210:               LINE   270 "regression-compile-tmp/gens400.imp"
2738 @ 19248:               PUSH   DA
2739 @ 19251:               PUSH   DA
2740 @ 19254:               PUSHI  #0x00000002
2741 @ 19259:               ADD   
2742 @ 19260:               ASSVAL

   271  %END
2743 @ 19261:               LINE   271 "regression-compile-tmp/gens400.imp"
2744 @ 19299:            END    _lev0id0_DPUT {lev=2 --> 1}

   272  %ROUTINE  DIAG LINE
2745 @ 19300:            LINE   272 "regression-compile-tmp/gens400.imp"
2746 @ 19338:            DEF    DIAGLINE (_lev0id0_DIAGLINE) p1=V_00d9 a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2747 @ 19358:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2748 @ 19359:               FINISH ) {lev=2}

   273  %OWNINTEGER  HERE = 0
2749 @ 19360:               LINE   273 "regression-compile-tmp/gens400.imp"
2750 @ 19398:               PUSHI  #0x00000000
2751 @ 19403:               DEF    HERE p1=V_00da a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
2752 @ 19419:               INIT   1

   274     %RETURN %IF HERE = CURRENT LINE
2753 @ 19422:               LINE   274 "regression-compile-tmp/gens400.imp"
2754 @ 19460:               PUSH   HERE
2755 @ 19463:               PUSH   CURRENTLINE
2756 @ 19466:               JUMPIF # L_0004
2757 @ 19470:               RETURN
2758 @ 19471:               LOCATE L_0004

   275     HERE = CURRENT LINE
2759 @ 19474:               LINE   275 "regression-compile-tmp/gens400.imp"
2760 @ 19512:               PUSH   HERE
2761 @ 19515:               PUSH   CURRENTLINE
2762 @ 19518:               ASSVAL

   276     DPUT(CURRENT LINE);  DPUT(CA)
2763 @ 19519:               LINE   276 "regression-compile-tmp/gens400.imp"
2764 @ 19557:               PUSH   DPUT
2765 @ 19560:               PUSH   CURRENTLINE
2766 @ 19563:               ASSPAR
2767 @ 19564:               CALL  
2768 @ 19565:               LINE   276 "regression-compile-tmp/gens400.imp"
2769 @ 19603:               PUSH   DPUT
2770 @ 19606:               PUSH   CA
2771 @ 19609:               ASSPAR
2772 @ 19610:               CALL  

   277  %END
2773 @ 19611:               LINE   277 "regression-compile-tmp/gens400.imp"
2774 @ 19649:            END    _lev0id0_DIAGLINE {lev=2 --> 1}

   278  %ROUTINE T PUT(%SHORTINTEGER V)
2775 @ 19650:            LINE   278 "regression-compile-tmp/gens400.imp"
2776 @ 19688:            DEF    TPUT (_lev0id0_TPUT) p1=V_00da a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2777 @ 19704:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2778 @ 19705:                  DEF    V p1=V_00db a/tf=11 b/format=3 c/ostate=0  type=1 (integer) form=1 (simple) special=2 (short-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
2779 @ 19718:               FINISH ) {lev=2}

   279     TBP = TBP+1;  TBUFF(TBP) = V
2780 @ 19719:               LINE   279 "regression-compile-tmp/gens400.imp"
2781 @ 19757:               PUSH   TBP
2782 @ 19760:               PUSH   TBP
2783 @ 19763:               PUSHI  #0x00000001
2784 @ 19768:               ADD   
2785 @ 19769:               ASSVAL
2786 @ 19770:               LINE   279 "regression-compile-tmp/gens400.imp"
2787 @ 19808:               PUSH   TBUFF
2788 @ 19811:               PUSH   TBP
2789 @ 19814:               ACCESS
2790 @ 19815:               PUSH   V
2791 @ 19818:               ASSVAL

   280     T FLUSH %IF TBP = DIAG BUFF SIZE
2792 @ 19819:               LINE   280 "regression-compile-tmp/gens400.imp"
2793 @ 19857:               PUSH   TBP
2794 @ 19860:               PUSHI  #0x00000100
2795 @ 19865:               JUMPIF # L_0004
2796 @ 19869:               PUSH   TFLUSH
2797 @ 19872:               CALL  
2798 @ 19873:               LOCATE L_0004

   281  %END
2799 @ 19876:               LINE   281 "regression-compile-tmp/gens400.imp"
2800 @ 19914:            END    _lev0id0_TPUT {lev=2 --> 1}

   282  %ROUTINE  CLOSE OBJECT FILE
2801 @ 19915:            LINE   282 "regression-compile-tmp/gens400.imp"
2802 @ 19953:            DEF    CLOSEOBJECTFILE (_lev0id0_CLOSEOBJECTFILE) p1=V_00db a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2803 @ 19980:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2804 @ 19981:               FINISH ) {lev=2}

   283     CFLUSH;  GFLUSH;  LFLUSH
2805 @ 19982:               LINE   283 "regression-compile-tmp/gens400.imp"
2806 @ 20020:               PUSH   CFLUSH
2807 @ 20023:               CALL  
2808 @ 20024:               LINE   283 "regression-compile-tmp/gens400.imp"
2809 @ 20062:               PUSH   GFLUSH
2810 @ 20065:               CALL  
2811 @ 20066:               LINE   283 "regression-compile-tmp/gens400.imp"
2812 @ 20104:               PUSH   LFLUSH
2813 @ 20107:               CALL  

   284     DPUT(0);  DPUT(0);  D FLUSH ;  ! ... MARK END OF TABLE THEN FLUSH
2814 @ 20108:               LINE   284 "regression-compile-tmp/gens400.imp"
2815 @ 20146:               PUSH   DPUT
2816 @ 20149:               PUSHI  #0x00000000
2817 @ 20154:               ASSPAR
2818 @ 20155:               CALL  
2819 @ 20156:               LINE   284 "regression-compile-tmp/gens400.imp"
2820 @ 20194:               PUSH   DPUT
2821 @ 20197:               PUSHI  #0x00000000
2822 @ 20202:               ASSPAR
2823 @ 20203:               CALL  
2824 @ 20204:               LINE   284 "regression-compile-tmp/gens400.imp"
2825 @ 20242:               PUSH   DFLUSH
2826 @ 20245:               CALL  

   285     TPUT(X'8800');  TPUT(CA+2)
2827 @ 20246:               LINE   285 "regression-compile-tmp/gens400.imp"
2828 @ 20284:               PUSH   TPUT
2829 @ 20287:               PUSHI  #0x00008800
2830 @ 20292:               ASSPAR
2831 @ 20293:               CALL  
2832 @ 20294:               LINE   285 "regression-compile-tmp/gens400.imp"
2833 @ 20332:               PUSH   TPUT
2834 @ 20335:               PUSH   CA
2835 @ 20338:               PUSHI  #0x00000002
2836 @ 20343:               ADD   
2837 @ 20344:               ASSPAR
2838 @ 20345:               CALL  

   286     TPUT(0);  TPUT(0)
2839 @ 20346:               LINE   286 "regression-compile-tmp/gens400.imp"
2840 @ 20384:               PUSH   TPUT
2841 @ 20387:               PUSHI  #0x00000000
2842 @ 20392:               ASSPAR
2843 @ 20393:               CALL  
2844 @ 20394:               LINE   286 "regression-compile-tmp/gens400.imp"
2845 @ 20432:               PUSH   TPUT
2846 @ 20435:               PUSHI  #0x00000000
2847 @ 20440:               ASSPAR
2848 @ 20441:               CALL  

   287     TPUT(0);  TPUT(0)
2849 @ 20442:               LINE   287 "regression-compile-tmp/gens400.imp"
2850 @ 20480:               PUSH   TPUT
2851 @ 20483:               PUSHI  #0x00000000
2852 @ 20488:               ASSPAR
2853 @ 20489:               CALL  
2854 @ 20490:               LINE   287 "regression-compile-tmp/gens400.imp"
2855 @ 20528:               PUSH   TPUT
2856 @ 20531:               PUSHI  #0x00000000
2857 @ 20536:               ASSPAR
2858 @ 20537:               CALL  

   288     TPUT(0);  TPUT(0); T FLUSH;   ! .... DITTO ....
2859 @ 20538:               LINE   288 "regression-compile-tmp/gens400.imp"
2860 @ 20576:               PUSH   TPUT
2861 @ 20579:               PUSHI  #0x00000000
2862 @ 20584:               ASSPAR
2863 @ 20585:               CALL  
2864 @ 20586:               LINE   288 "regression-compile-tmp/gens400.imp"
2865 @ 20624:               PUSH   TPUT
2866 @ 20627:               PUSHI  #0x00000000
2867 @ 20632:               ASSPAR
2868 @ 20633:               CALL  
2869 @ 20634:               LINE   288 "regression-compile-tmp/gens400.imp"
2870 @ 20672:               PUSH   TFLUSH
2871 @ 20675:               CALL  

   289     PUT HALF( (0<<4)!END OF FILE BLOCK );  ! ...ZERO DATA CONTENT
2872 @ 20676:               LINE   289 "regression-compile-tmp/gens400.imp"
2873 @ 20714:               PUSH   PUTHALF
2874 @ 20717:               PUSHI  #0x00000000
2875 @ 20722:               PUSHI  #0x00000004
2876 @ 20727:               LSH   
2877 @ 20728:               PUSHI  #0x00000000
2878 @ 20733:               OR    
2879 @ 20734:               ASSPAR
2880 @ 20735:               CALL  

   290     PUT HALF(-END OF FILE BLOCK-1);   ! ...CHECK SUM
2881 @ 20736:               LINE   290 "regression-compile-tmp/gens400.imp"
2882 @ 20774:               PUSH   PUTHALF
2883 @ 20777:               PUSHI  #0x00000000
2884 @ 20782:               NEGATE
2885 @ 20783:               PUSHI  #0x00000001
2886 @ 20788:               SUB   
2887 @ 20789:               ASSPAR
2888 @ 20790:               CALL  

   291  %END
   292  !
   293  !
   294  !
   295  !
   296  !
2889 @ 20791:               LINE   291 "regression-compile-tmp/gens400.imp"
2890 @ 20829:            END    _lev0id0_CLOSEOBJECTFILE {lev=2 --> 1}

   297     %ROUTINE MONITOR(%INTEGER N)
2891 @ 20830:            LINE   297 "regression-compile-tmp/gens400.imp"
2892 @ 20868:            DEF    MONITOR (_lev0id0_MONITOR) p1=V_00dc a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2893 @ 20887:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2894 @ 20888:                  DEF    N p1=V_00dd a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2895 @ 20901:               FINISH ) {lev=2}

   298        SELECTOUTPUT(REPORT)
2896 @ 20902:               LINE   298 "regression-compile-tmp/gens400.imp"
2897 @ 20940:               PUSH   SELECTOUTPUT
2898 @ 20943:               PUSHI  #0x00000000
2899 @ 20948:               ASSPAR
2900 @ 20949:               CALL  

   299        PRINTSTRING("FAULT");  WRITE(N, 1)
2901 @ 20950:               LINE   299 "regression-compile-tmp/gens400.imp"
2902 @ 20988:               PUSH   PRINTSTRING
2903 @ 20991:               PUSHS  "FAULT"
2904 @ 20998:               ASSPAR
2905 @ 20999:               CALL  
2906 @ 21000:               LINE   299 "regression-compile-tmp/gens400.imp"
2907 @ 21038:               PUSH   WRITE
2908 @ 21041:               PUSH   N
2909 @ 21044:               ASSPAR
2910 @ 21045:               PUSHI  #0x00000001
2911 @ 21050:               ASSPAR
2912 @ 21051:               CALL  

   300        PRINTSTRING("   PHASE");  WRITE(PHASE, 1);  NEWLINE
2913 @ 21052:               LINE   300 "regression-compile-tmp/gens400.imp"
2914 @ 21090:               PUSH   PRINTSTRING
2915 @ 21093:               PUSHS  "   PHASE"
2916 @ 21103:               ASSPAR
2917 @ 21104:               CALL  
2918 @ 21105:               LINE   300 "regression-compile-tmp/gens400.imp"
2919 @ 21143:               PUSH   WRITE
2920 @ 21146:               PUSH   PHASE
2921 @ 21149:               ASSPAR
2922 @ 21150:               PUSHI  #0x00000001
2923 @ 21155:               ASSPAR
2924 @ 21156:               CALL  
2925 @ 21157:               LINE   300 "regression-compile-tmp/gens400.imp"
2926 @ 21195:               PUSH   NEWLINE
2927 @ 21198:               CALL  

   301        WRITE(REFS, 1);  PRINTSTRING(" REFS");  NEWLINE
2928 @ 21199:               LINE   301 "regression-compile-tmp/gens400.imp"
2929 @ 21237:               PUSH   WRITE
2930 @ 21240:               PUSH   REFS
2931 @ 21243:               ASSPAR
2932 @ 21244:               PUSHI  #0x00000001
2933 @ 21249:               ASSPAR
2934 @ 21250:               CALL  
2935 @ 21251:               LINE   301 "regression-compile-tmp/gens400.imp"
2936 @ 21289:               PUSH   PRINTSTRING
2937 @ 21292:               PUSHS  " REFS"
2938 @ 21299:               ASSPAR
2939 @ 21300:               CALL  
2940 @ 21301:               LINE   301 "regression-compile-tmp/gens400.imp"
2941 @ 21339:               PUSH   NEWLINE
2942 @ 21342:               CALL  

   302        PRINTSTRING("MAX LABEL");  WRITE(MAX LABEL, 1);  NEWLINE
2943 @ 21343:               LINE   302 "regression-compile-tmp/gens400.imp"
2944 @ 21381:               PUSH   PRINTSTRING
2945 @ 21384:               PUSHS  "MAX LABEL"
2946 @ 21395:               ASSPAR
2947 @ 21396:               CALL  
2948 @ 21397:               LINE   302 "regression-compile-tmp/gens400.imp"
2949 @ 21435:               PUSH   WRITE
2950 @ 21438:               PUSH   MAXLABEL
2951 @ 21441:               ASSPAR
2952 @ 21442:               PUSHI  #0x00000001
2953 @ 21447:               ASSPAR
2954 @ 21448:               CALL  
2955 @ 21449:               LINE   302 "regression-compile-tmp/gens400.imp"
2956 @ 21487:               PUSH   NEWLINE
2957 @ 21490:               CALL  

   303        %SIGNAL 15,15
2958 @ 21491:               LINE   303 "regression-compile-tmp/gens400.imp"
2959 @ 21529:               PUSHI  #0x0000000f
2960 @ 21534:               EVENT  000f

   304     %END
   305  !
2961 @ 21537:               LINE   304 "regression-compile-tmp/gens400.imp"
2962 @ 21575:            END    _lev0id0_MONITOR {lev=2 --> 1}

   306     %ROUTINE SORT(%INTEGER FROM, TO)
2963 @ 21576:            LINE   306 "regression-compile-tmp/gens400.imp"
2964 @ 21614:            DEF    SORT (_lev0id0_SORT) p1=V_00dd a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2965 @ 21630:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
2966 @ 21631:                  DEF    FROM p1=V_00de a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2967 @ 21647:                  DEF    TO p1=V_00df a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2968 @ 21661:               FINISH ) {lev=2}

   307        %INTEGER FLAG, J, T
2969 @ 21662:               LINE   307 "regression-compile-tmp/gens400.imp"
2970 @ 21700:               DEF    FLAG p1=V_00e0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2971 @ 21716:               DEF    J p1=V_00e1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2972 @ 21729:               DEF    T p1=V_00e2 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   308        %RECORD(PFM)%NAME A, B
2973 @ 21742:               LINE   308 "regression-compile-tmp/gens400.imp"
2974 @ 21780:               DEF    A p1=V_00e3 a/tf=42 b/format=86 c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2975 @ 21793:               DEF    B p1=V_00e4 a/tf=42 b/format=86 c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   309        %WHILE TO > FROM %CYCLE
2976 @ 21806:               LINE   309 "regression-compile-tmp/gens400.imp"
2977 @ 21844:               LOCATE L_0003
2978 @ 21847:               PUSH   TO
2979 @ 21850:               PUSH   FROM
2980 @ 21853:               JUMPIF <= L_0004

   310           FLAG = 0
2981 @ 21857:               LINE   310 "regression-compile-tmp/gens400.imp"
2982 @ 21895:               PUSH   FLAG
2983 @ 21898:               PUSHI  #0x00000000
2984 @ 21903:               ASSVAL

   311           A == PATCH(FROM)
2985 @ 21904:               LINE   311 "regression-compile-tmp/gens400.imp"
2986 @ 21942:               PUSH   A
2987 @ 21945:               PUSH   PATCH
2988 @ 21948:               PUSH   FROM
2989 @ 21951:               ACCESS
2990 @ 21952:               ASSREF

   312           %CYCLE J = FROM+1, 1, TO
2991 @ 21953:               LINE   312 "regression-compile-tmp/gens400.imp"
2992 @ 21991:               PUSH   J
2993 @ 21994:               PUSHI  #0x00000001
2994 @ 21999:               PUSH   TO
2995 @ 22002:               PUSH   FROM
2996 @ 22005:               PUSHI  #0x00000001
2997 @ 22010:               ADD   
2998 @ 22011:               FOR    L_0006

   313              B == PATCH(J)
2999 @ 22014:               LINE   313 "regression-compile-tmp/gens400.imp"
3000 @ 22052:               PUSH   B
3001 @ 22055:               PUSH   PATCH
3002 @ 22058:               PUSH   J
3003 @ 22061:               ACCESS
3004 @ 22062:               ASSREF

   314              %IF A_WHERE > B_WHERE %START
3005 @ 22063:               LINE   314 "regression-compile-tmp/gens400.imp"
3006 @ 22101:               PUSH   A
3007 @ 22104:               SELECT 2
3008 @ 22107:               PUSH   B
3009 @ 22110:               SELECT 2
3010 @ 22113:               JUMPIF <= L_000a

   315                 T = A_WHERE;  A_WHERE = B_WHERE;  B_WHERE = T
3011 @ 22117:               LINE   315 "regression-compile-tmp/gens400.imp"
3012 @ 22155:               PUSH   T
3013 @ 22158:               PUSH   A
3014 @ 22161:               SELECT 2
3015 @ 22164:               ASSVAL
3016 @ 22165:               LINE   315 "regression-compile-tmp/gens400.imp"
3017 @ 22203:               PUSH   A
3018 @ 22206:               SELECT 2
3019 @ 22209:               PUSH   B
3020 @ 22212:               SELECT 2
3021 @ 22215:               ASSVAL
3022 @ 22216:               LINE   315 "regression-compile-tmp/gens400.imp"
3023 @ 22254:               PUSH   B
3024 @ 22257:               SELECT 2
3025 @ 22260:               PUSH   T
3026 @ 22263:               ASSVAL

   316                 T = B_WHAT;  B_WHAT = A_WHAT;  A_WHAT = T
3027 @ 22264:               LINE   316 "regression-compile-tmp/gens400.imp"
3028 @ 22302:               PUSH   T
3029 @ 22305:               PUSH   B
3030 @ 22308:               SELECT 1
3031 @ 22311:               ASSVAL
3032 @ 22312:               LINE   316 "regression-compile-tmp/gens400.imp"
3033 @ 22350:               PUSH   B
3034 @ 22353:               SELECT 1
3035 @ 22356:               PUSH   A
3036 @ 22359:               SELECT 1
3037 @ 22362:               ASSVAL
3038 @ 22363:               LINE   316 "regression-compile-tmp/gens400.imp"
3039 @ 22401:               PUSH   A
3040 @ 22404:               SELECT 1
3041 @ 22407:               PUSH   T
3042 @ 22410:               ASSVAL

   317                 FLAG = 1
3043 @ 22411:               LINE   317 "regression-compile-tmp/gens400.imp"
3044 @ 22449:               PUSH   FLAG
3045 @ 22452:               PUSHI  #0x00000001
3046 @ 22457:               ASSVAL

   318              %ELSE %IF A_WHERE = B_WHERE
3047 @ 22458:               LINE   318 "regression-compile-tmp/gens400.imp"
3048 @ 22496:               GOTO   L_0009
3049 @ 22499:               LOCATE L_000a
3050 @ 22502:               PUSH   A
3051 @ 22505:               SELECT 2
3052 @ 22508:               PUSH   B
3053 @ 22511:               SELECT 2
3054 @ 22514:               JUMPIF # L_000a

   319                 FLAG = 1
3055 @ 22518:               LINE   319 "regression-compile-tmp/gens400.imp"
3056 @ 22556:               PUSH   FLAG
3057 @ 22559:               PUSHI  #0x00000001
3058 @ 22564:               ASSVAL

   320                 A_WHERE = -10
3059 @ 22565:               LINE   320 "regression-compile-tmp/gens400.imp"
3060 @ 22603:               PUSH   A
3061 @ 22606:               SELECT 2
3062 @ 22609:               PUSHI  #0x0000000a
3063 @ 22614:               NEGATE
3064 @ 22615:               ASSVAL

   321              %FINISH
3065 @ 22616:               LINE   321 "regression-compile-tmp/gens400.imp"
3066 @ 22654:               LOCATE L_000a
3067 @ 22657:               LOCATE L_0009

   322              A == B
3068 @ 22660:               LINE   322 "regression-compile-tmp/gens400.imp"
3069 @ 22698:               PUSH   A
3070 @ 22701:               PUSH   B
3071 @ 22704:               ASSREF

   323           %REPEAT
3072 @ 22705:               LINE   323 "regression-compile-tmp/gens400.imp"
3073 @ 22743:               REPEAT L_0006
3074 @ 22746:               LOCATE L_0007

   324           %EXIT %IF FLAG = 0
3075 @ 22749:               LINE   324 "regression-compile-tmp/gens400.imp"
3076 @ 22787:               PUSH   FLAG
3077 @ 22790:               PUSHI  #0x00000000
3078 @ 22795:               JUMPIF # L_0007
3079 @ 22799:               GOTO   L_0004
3080 @ 22802:               LOCATE L_0007

   325           TO = TO-1
3081 @ 22805:               LINE   325 "regression-compile-tmp/gens400.imp"
3082 @ 22843:               PUSH   TO
3083 @ 22846:               PUSH   TO
3084 @ 22849:               PUSHI  #0x00000001
3085 @ 22854:               SUB   
3086 @ 22855:               ASSVAL

   326        %REPEAT
3087 @ 22856:               LINE   326 "regression-compile-tmp/gens400.imp"
3088 @ 22894:               REPEAT L_0003
3089 @ 22897:               LOCATE L_0004

   327     %END
3090 @ 22900:               LINE   327 "regression-compile-tmp/gens400.imp"
3091 @ 22938:            END    _lev0id0_SORT {lev=2 --> 1}

   328     %ROUTINE NEXT CODE
3092 @ 22939:            LINE   328 "regression-compile-tmp/gens400.imp"
3093 @ 22977:            DEF    NEXTCODE (_lev0id0_NEXTCODE) p1=V_00de a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
3094 @ 22997:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3095 @ 22998:               FINISH ) {lev=2}

   329        %OWNINTEGER P = 1, J = 1
3096 @ 22999:               LINE   329 "regression-compile-tmp/gens400.imp"
3097 @ 23037:               PUSHI  #0x00000001
3098 @ 23042:               DEF    P p1=V_00df a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
3099 @ 23055:               INIT   1
3100 @ 23058:               PUSHI  #0x00000001
3101 @ 23063:               DEF    J p1=V_00e0 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
3102 @ 23076:               INIT   1

   330        %INTEGER C, BV
3103 @ 23079:               LINE   330 "regression-compile-tmp/gens400.imp"
3104 @ 23117:               DEF    C p1=V_00e1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
3105 @ 23130:               DEF    BV p1=V_00e2 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   331        %RECORD(PFM)%NAME PP
3106 @ 23144:               LINE   331 "regression-compile-tmp/gens400.imp"
3107 @ 23182:               DEF    PP p1=V_00e3 a/tf=42 b/format=86 c/ostate=0  type=4 (record) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   332        C = NEVER;  BV = NEVER;  MODE = NEVER
3108 @ 23196:               LINE   332 "regression-compile-tmp/gens400.imp"
3109 @ 23234:               PUSH   C
3110 @ 23237:               PUSHI  #0x00007fff
3111 @ 23242:               ASSVAL
3112 @ 23243:               LINE   332 "regression-compile-tmp/gens400.imp"
3113 @ 23281:               PUSH   BV
3114 @ 23284:               PUSHI  #0x00007fff
3115 @ 23289:               ASSVAL
3116 @ 23290:               LINE   332 "regression-compile-tmp/gens400.imp"
3117 @ 23328:               PUSH   MODE
3118 @ 23331:               PUSHI  #0x00007fff
3119 @ 23336:               ASSVAL

   333        %IF P <= CP %START;! CODE PATCHES LEFT
3120 @ 23337:               LINE   333 "regression-compile-tmp/gens400.imp"
3121 @ 23375:               PUSH   P
3122 @ 23378:               PUSH   CP
3123 @ 23381:               JUMPIF > L_0004

   334           %CYCLE
3124 @ 23385:               LINE   334 "regression-compile-tmp/gens400.imp"
3125 @ 23423:               LOCATE L_0006

   335              PP == PATCH(P)
3126 @ 23426:               LINE   335 "regression-compile-tmp/gens400.imp"
3127 @ 23464:               PUSH   PP
3128 @ 23467:               PUSH   PATCH
3129 @ 23470:               PUSH   P
3130 @ 23473:               ACCESS
3131 @ 23474:               ASSREF

   336              %EXIT %IF PP_WHERE # -10
3132 @ 23475:               LINE   336 "regression-compile-tmp/gens400.imp"
3133 @ 23513:               PUSH   PP
3134 @ 23516:               SELECT 2
3135 @ 23519:               PUSHI  #0x0000000a
3136 @ 23524:               NEGATE
3137 @ 23525:               JUMPIF = L_000a
3138 @ 23529:               GOTO   L_0007
3139 @ 23532:               LOCATE L_000a

   337              P = P+1
3140 @ 23535:               LINE   337 "regression-compile-tmp/gens400.imp"
3141 @ 23573:               PUSH   P
3142 @ 23576:               PUSH   P
3143 @ 23579:               PUSHI  #0x00000001
3144 @ 23584:               ADD   
3145 @ 23585:               ASSVAL

   338           %REPEAT
3146 @ 23586:               LINE   338 "regression-compile-tmp/gens400.imp"
3147 @ 23624:               REPEAT L_0006
3148 @ 23627:               LOCATE L_0007

   339           C = PP_WHERE>>1
3149 @ 23630:               LINE   339 "regression-compile-tmp/gens400.imp"
3150 @ 23668:               PUSH   C
3151 @ 23671:               PUSH   PP
3152 @ 23674:               SELECT 2
3153 @ 23677:               PUSHI  #0x00000001
3154 @ 23682:               RSH   
3155 @ 23683:               ASSVAL

   340        %FINISH
3156 @ 23684:               LINE   340 "regression-compile-tmp/gens400.imp"
3157 @ 23722:               LOCATE L_0004

   341        %IF J < REFS %START;!  JUMPS LEFT
3158 @ 23725:               LINE   341 "regression-compile-tmp/gens400.imp"
3159 @ 23763:               PUSH   J
3160 @ 23766:               PUSH   REFS
3161 @ 23769:               JUMPIF >= L_0004

   342           B == JUMP(J)
3162 @ 23773:               LINE   342 "regression-compile-tmp/gens400.imp"
3163 @ 23811:               PUSH   B
3164 @ 23814:               PUSH   JUMP
3165 @ 23817:               PUSH   J
3166 @ 23820:               ACCESS
3167 @ 23821:               ASSREF

   343           BV = B_CA>>1
3168 @ 23822:               LINE   343 "regression-compile-tmp/gens400.imp"
3169 @ 23860:               PUSH   BV
3170 @ 23863:               PUSH   B
3171 @ 23866:               SELECT 2
3172 @ 23869:               PUSHI  #0x00000001
3173 @ 23874:               RSH   
3174 @ 23875:               ASSVAL

   344        %FINISH
3175 @ 23876:               LINE   344 "regression-compile-tmp/gens400.imp"
3176 @ 23914:               LOCATE L_0004

   345        CADDR = NEVER
3177 @ 23917:               LINE   345 "regression-compile-tmp/gens400.imp"
3178 @ 23955:               PUSH   CADDR
3179 @ 23958:               PUSHI  #0x00007fff
3180 @ 23963:               ASSVAL

   346        %RETURN %IF BV = NEVER = C
3181 @ 23964:               LINE   346 "regression-compile-tmp/gens400.imp"
3182 @ 24002:               PUSH   BV
3183 @ 24005:               PUSHI  #0x00007fff
3184 @ 24010:               JUMPIFD # L_0004
3185 @ 24014:               PUSH   C
3186 @ 24017:               JUMPIF # L_0004
3187 @ 24021:               RETURN
3188 @ 24022:               LOCATE L_0004

   347        %IF BV > C %START
3189 @ 24025:               LINE   347 "regression-compile-tmp/gens400.imp"
3190 @ 24063:               PUSH   BV
3191 @ 24066:               PUSH   C
3192 @ 24069:               JUMPIF <= L_0004

   348           P = P+1
3193 @ 24073:               LINE   348 "regression-compile-tmp/gens400.imp"
3194 @ 24111:               PUSH   P
3195 @ 24114:               PUSH   P
3196 @ 24117:               PUSHI  #0x00000001
3197 @ 24122:               ADD   
3198 @ 24123:               ASSVAL

   349           CADDR = PP_WHERE;  CVAL = PP_WHAT
3199 @ 24124:               LINE   349 "regression-compile-tmp/gens400.imp"
3200 @ 24162:               PUSH   CADDR
3201 @ 24165:               PUSH   PP
3202 @ 24168:               SELECT 2
3203 @ 24171:               ASSVAL
3204 @ 24172:               LINE   349 "regression-compile-tmp/gens400.imp"
3205 @ 24210:               PUSH   CVAL
3206 @ 24213:               PUSH   PP
3207 @ 24216:               SELECT 1
3208 @ 24219:               ASSVAL

   350           %RETURN
3209 @ 24220:               LINE   350 "regression-compile-tmp/gens400.imp"
3210 @ 24258:               RETURN

   351        %FINISH
3211 @ 24259:               LINE   351 "regression-compile-tmp/gens400.imp"
3212 @ 24297:               LOCATE L_0004

   352        %IF C > BV %START
3213 @ 24300:               LINE   352 "regression-compile-tmp/gens400.imp"
3214 @ 24338:               PUSH   C
3215 @ 24341:               PUSH   BV
3216 @ 24344:               JUMPIF <= L_0004

   353           J = J+1
3217 @ 24348:               LINE   353 "regression-compile-tmp/gens400.imp"
3218 @ 24386:               PUSH   J
3219 @ 24389:               PUSH   J
3220 @ 24392:               PUSHI  #0x00000001
3221 @ 24397:               ADD   
3222 @ 24398:               ASSVAL

   354           MODE = 0;  CADDR = B_CA
3223 @ 24399:               LINE   354 "regression-compile-tmp/gens400.imp"
3224 @ 24437:               PUSH   MODE
3225 @ 24440:               PUSHI  #0x00000000
3226 @ 24445:               ASSVAL
3227 @ 24446:               LINE   354 "regression-compile-tmp/gens400.imp"
3228 @ 24484:               PUSH   CADDR
3229 @ 24487:               PUSH   B
3230 @ 24490:               SELECT 2
3231 @ 24493:               ASSVAL

   355           %RETURN
3232 @ 24494:               LINE   355 "regression-compile-tmp/gens400.imp"
3233 @ 24532:               RETURN

   356        %FINISH
3234 @ 24533:               LINE   356 "regression-compile-tmp/gens400.imp"
3235 @ 24571:               LOCATE L_0004

   357        MONITOR(1)
3236 @ 24574:               LINE   357 "regression-compile-tmp/gens400.imp"
3237 @ 24612:               PUSH   MONITOR
3238 @ 24615:               PUSHI  #0x00000001
3239 @ 24620:               ASSPAR
3240 @ 24621:               CALL  

   358     %END
3241 @ 24622:               LINE   358 "regression-compile-tmp/gens400.imp"
3242 @ 24660:            END    _lev0id0_NEXTCODE {lev=2 --> 1}

   359     %ROUTINE NEXT GLA
3243 @ 24661:            LINE   359 "regression-compile-tmp/gens400.imp"
3244 @ 24699:            DEF    NEXTGLA (_lev0id0_NEXTGLA) p1=V_00df a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
3245 @ 24718:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3246 @ 24719:               FINISH ) {lev=2}

   360        GADDR = NEVER %AND %RETURN %IF GP > MAX PATCH
3247 @ 24720:               LINE   360 "regression-compile-tmp/gens400.imp"
3248 @ 24758:               PUSH   GP
3249 @ 24761:               PUSHI  #0x000001c2
3250 @ 24766:               JUMPIF <= L_0004
3251 @ 24770:               PUSH   GADDR
3252 @ 24773:               PUSHI  #0x00007fff
3253 @ 24778:               ASSVAL
3254 @ 24779:               RETURN
3255 @ 24780:               LOCATE L_0004

   361        PAT == PATCH(GP) %AND GP = GP+1 %UNTIL PAT_WHERE >= 0
3256 @ 24783:               LINE   361 "regression-compile-tmp/gens400.imp"
3257 @ 24821:               LOCATE L_0003
3258 @ 24824:               PUSH   PAT
3259 @ 24827:               PUSH   PATCH
3260 @ 24830:               PUSH   GP
3261 @ 24833:               ACCESS
3262 @ 24834:               ASSREF
3263 @ 24835:               PUSH   GP
3264 @ 24838:               PUSH   GP
3265 @ 24841:               PUSHI  #0x00000001
3266 @ 24846:               ADD   
3267 @ 24847:               ASSVAL
3268 @ 24848:               PUSH   PAT
3269 @ 24851:               SELECT 2
3270 @ 24854:               PUSHI  #0x00000000
3271 @ 24859:               JUMPIF >= L_0004
3272 @ 24863:               REPEAT L_0003
3273 @ 24866:               LOCATE L_0004

   362        GADDR = PAT_WHERE;  GVAL = PAT_WHAT
3274 @ 24869:               LINE   362 "regression-compile-tmp/gens400.imp"
3275 @ 24907:               PUSH   GADDR
3276 @ 24910:               PUSH   PAT
3277 @ 24913:               SELECT 2
3278 @ 24916:               ASSVAL
3279 @ 24917:               LINE   362 "regression-compile-tmp/gens400.imp"
3280 @ 24955:               PUSH   GVAL
3281 @ 24958:               PUSH   PAT
3282 @ 24961:               SELECT 1
3283 @ 24964:               ASSVAL

   363     %END
3284 @ 24965:               LINE   363 "regression-compile-tmp/gens400.imp"
3285 @ 25003:            END    _lev0id0_NEXTGLA {lev=2 --> 1}

   364     %ROUTINE SET PERM(%INTEGER N)
3286 @ 25004:            LINE   364 "regression-compile-tmp/gens400.imp"
3287 @ 25042:            DEF    SETPERM (_lev0id0_SETPERM) p1=V_00e0 a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
3288 @ 25061:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3289 @ 25062:                  DEF    N p1=V_00e1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
3290 @ 25075:               FINISH ) {lev=2}

   365        %INTEGER J,K
3291 @ 25076:               LINE   365 "regression-compile-tmp/gens400.imp"
3292 @ 25114:               DEF    J p1=V_00e2 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
3293 @ 25127:               DEF    K p1=V_00e3 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   366        %RETURN %UNLESS PEP(N) = 1
3294 @ 25140:               LINE   366 "regression-compile-tmp/gens400.imp"
3295 @ 25178:               PUSH   PEP
3296 @ 25181:               PUSH   N
3297 @ 25184:               ACCESS
3298 @ 25185:               PUSHI  #0x00000001
3299 @ 25190:               JUMPIF = L_0004
3300 @ 25194:               RETURN
3301 @ 25195:               LOCATE L_0004

   367        PEP(N) = 2
3302 @ 25198:               LINE   367 "regression-compile-tmp/gens400.imp"
3303 @ 25236:               PUSH   PEP
3304 @ 25239:               PUSH   N
3305 @ 25242:               ACCESS
3306 @ 25243:               PUSHI  #0x00000002
3307 @ 25248:               ASSVAL

   368        K = PERMS(N)
3308 @ 25249:               LINE   368 "regression-compile-tmp/gens400.imp"
3309 @ 25287:               PUSH   K
3310 @ 25290:               PUSH   PERMS
3311 @ 25293:               PUSH   N
3312 @ 25296:               ACCESS
3313 @ 25297:               ASSVAL

   369        %IF K = 0 %START
3314 @ 25298:               LINE   369 "regression-compile-tmp/gens400.imp"
3315 @ 25336:               PUSH   K
3316 @ 25339:               PUSHI  #0x00000000
3317 @ 25344:               JUMPIF # L_0004

   370           SELECTOUTPUT(REPORT)
3318 @ 25348:               LINE   370 "regression-compile-tmp/gens400.imp"
3319 @ 25386:               PUSH   SELECTOUTPUT
3320 @ 25389:               PUSHI  #0x00000000
3321 @ 25394:               ASSPAR
3322 @ 25395:               CALL  

   371           PRINTSTRING("NO ENTRY FOR PERM");  WRITE(N, 1);  NEWLINE
3323 @ 25396:               LINE   371 "regression-compile-tmp/gens400.imp"
3324 @ 25434:               PUSH   PRINTSTRING
3325 @ 25437:               PUSHS  "NO ENTRY FOR PERM"
3326 @ 25456:               ASSPAR
3327 @ 25457:               CALL  
3328 @ 25458:               LINE   371 "regression-compile-tmp/gens400.imp"
3329 @ 25496:               PUSH   WRITE
3330 @ 25499:               PUSH   N
3331 @ 25502:               ASSPAR
3332 @ 25503:               PUSHI  #0x00000001
3333 @ 25508:               ASSPAR
3334 @ 25509:               CALL  
3335 @ 25510:               LINE   371 "regression-compile-tmp/gens400.imp"
3336 @ 25548:               PUSH   NEWLINE
3337 @ 25551:               CALL  

   372           PEP(N) = 0
3338 @ 25552:               LINE   372 "regression-compile-tmp/gens400.imp"
3339 @ 25590:               PUSH   PEP
3340 @ 25593:               PUSH   N
3341 @ 25596:               ACCESS
3342 @ 25597:               PUSHI  #0x00000000
3343 @ 25602:               ASSVAL

   373           SELECTOUTPUT(OBJECT)
3344 @ 25603:               LINE   373 "regression-compile-tmp/gens400.imp"
3345 @ 25641:               PUSH   SELECTOUTPUT
3346 @ 25644:               PUSHI  #0x00000002
3347 @ 25649:               ASSPAR
3348 @ 25650:               CALL  

   374           %RETURN
3349 @ 25651:               LINE   374 "regression-compile-tmp/gens400.imp"
3350 @ 25689:               RETURN

   375        %FINISH
3351 @ 25690:               LINE   375 "regression-compile-tmp/gens400.imp"
3352 @ 25728:               LOCATE L_0004

   376        %CYCLE J = 1, 1, PERMS(K)
3353 @ 25731:               LINE   376 "regression-compile-tmp/gens400.imp"
3354 @ 25769:               PUSH   J
3355 @ 25772:               PUSHI  #0x00000001
3356 @ 25777:               PUSH   PERMS
3357 @ 25780:               PUSH   K
3358 @ 25783:               ACCESS
3359 @ 25784:               PUSHI  #0x00000001
3360 @ 25789:               FOR    L_0003

   377           K = K+1
3361 @ 25792:               LINE   377 "regression-compile-tmp/gens400.imp"
3362 @ 25830:               PUSH   K
3363 @ 25833:               PUSH   K
3364 @ 25836:               PUSHI  #0x00000001
3365 @ 25841:               ADD   
3366 @ 25842:               ASSVAL

   378           %IF PERMS(K) = EMARK %START
3367 @ 25843:               LINE   378 "regression-compile-tmp/gens400.imp"
3368 @ 25881:               PUSH   PERMS
3369 @ 25884:               PUSH   K
3370 @ 25887:               ACCESS
3371 @ 25888:               PUSHI  #0x00008888
3372 @ 25893:               JUMPIF # L_0007

   379              N = PERMS(K+1)
3373 @ 25897:               LINE   379 "regression-compile-tmp/gens400.imp"
3374 @ 25935:               PUSH   N
3375 @ 25938:               PUSH   PERMS
3376 @ 25941:               PUSH   K
3377 @ 25944:               PUSHI  #0x00000001
3378 @ 25949:               ADD   
3379 @ 25950:               ACCESS
3380 @ 25951:               ASSVAL

   380              %IF PEP(N) # 2 %START
3381 @ 25952:               LINE   380 "regression-compile-tmp/gens400.imp"
3382 @ 25990:               PUSH   PEP
3383 @ 25993:               PUSH   N
3384 @ 25996:               ACCESS
3385 @ 25997:               PUSHI  #0x00000002
3386 @ 26002:               JUMPIF = L_000a

   381                 PEP(N) = 1;  SET PERM(N)
3387 @ 26006:               LINE   381 "regression-compile-tmp/gens400.imp"
3388 @ 26044:               PUSH   PEP
3389 @ 26047:               PUSH   N
3390 @ 26050:               ACCESS
3391 @ 26051:               PUSHI  #0x00000001
3392 @ 26056:               ASSVAL
3393 @ 26057:               LINE   381 "regression-compile-tmp/gens400.imp"
3394 @ 26095:               PUSH   SETPERM
3395 @ 26098:               PUSH   N
3396 @ 26101:               ASSPAR
3397 @ 26102:               CALL  

   382              %FINISH
3398 @ 26103:               LINE   382 "regression-compile-tmp/gens400.imp"
3399 @ 26141:               LOCATE L_000a

   383           %FINISH
3400 @ 26144:               LINE   383 "regression-compile-tmp/gens400.imp"
3401 @ 26182:               LOCATE L_0007

   384        %REPEAT
3402 @ 26185:               LINE   384 "regression-compile-tmp/gens400.imp"
3403 @ 26223:               REPEAT L_0003
3404 @ 26226:               LOCATE L_0004

   385     %END
   386  
3405 @ 26229:               LINE   385 "regression-compile-tmp/gens400.imp"
3406 @ 26267:            END    _lev0id0_SETPERM {lev=2 --> 1}

   387  %ROUTINE  PLANT LONG JUMP
3407 @ 26268:            LINE   387 "regression-compile-tmp/gens400.imp"
3408 @ 26306:            DEF    PLANTLONGJUMP (_lev0id0_PLANTLONGJUMP) p1=V_00e1 a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
3409 @ 26331:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
3410 @ 26332:               FINISH ) {lev=2}

   388     %INTEGER N
   389  !  PLANT A BRANCH OR BAL INSTRUCTION WHICH IS ASSUMED TO BE DESCRIBED
   390  !  BY 'L'(OP CODE + BASE REG), 'TAG'(DESTINATION ADDRESS),
   391  !  'B'(NAME OF RECORD CONTAINING FLAG BITS) AND 'CA'(CURRENT CODE
   392  !  ADDRESS).
3411 @ 26333:               LINE   388 "regression-compile-tmp/gens400.imp"
3412 @ 26371:               DEF    N p1=V_00e2 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   393     %IF B_LAB&VERY = 0 %START;    ! ...CAN USE A 32 BIT FORM
3413 @ 26384:               LINE   393 "regression-compile-tmp/gens400.imp"
3414 @ 26422:               PUSH   B
3415 @ 26425:               SELECT 1
3416 @ 26428:               PUSHI  #0x00080000
3417 @ 26433:               AND   
3418 @ 26434:               PUSHI  #0x00000000
3419 @ 26439:               JUMPIF # L_0004

   394        N = TAG-(CA+4)
3420 @ 26443:               LINE   394 "regression-compile-tmp/gens400.imp"
3421 @ 26481:               PUSH   N
3422 @ 26484:               PUSH   TAG
3423 @ 26487:               PUSH   CA
3424 @ 26490:               PUSHI  #0x00000004
3425 @ 26495:               ADD   
3426 @ 26496:               SUB   
3427 @ 26497:               ASSVAL

   395        %IF -16*1024 <= N < 16*1024 %START;      ! USE PC RELATIVE
3428 @ 26498:               LINE   395 "regression-compile-tmp/gens400.imp"
3429 @ 26536:               PUSHI  #0x00000010
3430 @ 26541:               PUSHI  #0x00000400
3431 @ 26546:               MUL   
3432 @ 26547:               NEGATE
3433 @ 26548:               PUSH   N
3434 @ 26551:               JUMPIFD > L_0007
3435 @ 26555:               PUSHI  #0x00000010
3436 @ 26560:               PUSHI  #0x00000400
3437 @ 26565:               MUL   
3438 @ 26566:               JUMPIF >= L_0007

   396           L = L&X'FFF0';          ! STRIP OFF BASE REGISTER
3439 @ 26570:               LINE   396 "regression-compile-tmp/gens400.imp"
3440 @ 26608:               PUSH   L
3441 @ 26611:               PUSH   L
3442 @ 26614:               PUSHI  #0x0000fff0
3443 @ 26619:               AND   
3444 @ 26620:               ASSVAL

   397           CPUT(L);  CPUT(N!X'8000' )
3445 @ 26621:               LINE   397 "regression-compile-tmp/gens400.imp"
3446 @ 26659:               PUSH   CPUT
3447 @ 26662:               PUSH   L
3448 @ 26665:               ASSPAR
3449 @ 26666:               CALL  
3450 @ 26667:               LINE   397 "regression-compile-tmp/gens400.imp"
3451 @ 26705:               PUSH   CPUT
3452 @ 26708:               PUSH   N
3453 @ 26711:               PUSHI  #0x00008000
3454 @ 26716:               OR    
3455 @ 26717:               ASSPAR
3456 @ 26718:               CALL  

   398           RX2 = RX2+1
3457 @ 26719:               LINE   398 "regression-compile-tmp/gens400.imp"
3458 @ 26757:               PUSH   RX2
3459 @ 26760:               PUSH   RX2
3460 @ 26763:               PUSHI  #0x00000001
3461 @ 26768:               ADD   
3462 @ 26769:               ASSVAL

   399        %ELSE;          !USE BASE+DISP
3463 @ 26770:               LINE   399 "regression-compile-tmp/gens400.imp"
3464 @ 26808:               GOTO   L_0006
3465 @ 26811:               LOCATE L_0007

   400           CPUT(L);  CPUT(TAG)
3466 @ 26814:               LINE   400 "regression-compile-tmp/gens400.imp"
3467 @ 26852:               PUSH   CPUT
3468 @ 26855:               PUSH   L
3469 @ 26858:               ASSPAR
3470 @ 26859:               CALL  
3471 @ 26860:               LINE   400 "regression-compile-tmp/gens400.imp"
3472 @ 26898:               PUSH   CPUT
3473 @ 26901:               PUSH   TAG
3474 @ 26904:               ASSPAR
3475 @ 26905:               CALL  

   401           RX1 = RX1+1
3476 @ 26906:               LINE   401 "regression-compile-tmp/gens400.imp"
3477 @ 26944:               PUSH   RX1
3478 @ 26947:               PUSH   RX1
3479 @ 26950:               PUSHI  #0x00000001
3480 @ 26955:               ADD   
3481 @ 26956:               ASSVAL

   402        %FINISH
3482 @ 26957:               LINE   402 "regression-compile-tmp/gens400.imp"
3483 @ 26995:               LOCATE L_0006

   403     %ELSE;                        ! ...48 BIT ADDRESS REQ'D
3484 @ 26998:               LINE   403 "regression-compile-tmp/gens400.imp"
3485 @ 27036:               GOTO   L_0003
3486 @ 27039:               LOCATE L_0004

   404        CPUT(L)
3487 @ 27042:               LINE   404 "regression-compile-tmp/gens400.imp"
3488 @ 27080:               PUSH   CPUT
3489 @ 27083:               PUSH   L
3490 @ 27086:               ASSPAR
3491 @ 27087:               CALL  

   405        CPUT((TAG>>16&X'FF')+X'4000')
3492 @ 27088:               LINE   405 "regression-compile-tmp/gens400.imp"
3493 @ 27126:               PUSH   CPUT
3494 @ 27129:               PUSH   TAG
3495 @ 27132:               PUSHI  #0x00000010
3496 @ 27137:               RSH   
3497 @ 27138:               PUSHI  #0x000000ff
3498 @ 27143:               AND   
3499 @ 27144:               PUSHI  #0x00004000
3500 @ 27149:               ADD   
3501 @ 27150:               ASSPAR
3502 @ 27151:               CALL  

   406        CPUT(TAG);      ! ...N.B. 'CPUT' ONLY PUTS 16 BITS
3503 @ 27152:               LINE   406 "regression-compile-tmp/gens400.imp"
3504 @ 27190:               PUSH   CPUT
3505 @ 27193:               PUSH   TAG
3506 @ 27196:               ASSPAR
3507 @ 27197:               CALL  

   407        RX3 = RX3+1
3508 @ 27198:               LINE   407 "regression-compile-tmp/gens400.imp"
3509 @ 27236:               PUSH   RX3
3510 @ 27239:               PUSH   RX3
3511 @ 27242:               PUSHI  #0x00000001
3512 @ 27247:               ADD   
3513 @ 27248:               ASSVAL

   408     %FINISH
3514 @ 27249:               LINE   408 "regression-compile-tmp/gens400.imp"
3515 @ 27287:               LOCATE L_0003

   409  %END
   410  
   411  
   412  
   413  !
   414  ! PHASE 1 - INPUT PROGRAM & GENERATE JUMP TABLES + PATCH TABLES
   415  !
3516 @ 27290:               LINE   409 "regression-compile-tmp/gens400.imp"
3517 @ 27328:            END    _lev0id0_PLANTLONGJUMP {lev=2 --> 1}

   416     PHASE = 1
3518 @ 27329:            LINE   416 "regression-compile-tmp/gens400.imp"
3519 @ 27367:            PUSH   PHASE
3520 @ 27370:            PUSHI  #0x00000001
3521 @ 27375:            ASSVAL

   417     PEP(J) = 0 %AND PADDR(J) = 0 %FOR J = 1, 1, MAX PERM
3522 @ 27376:            LINE   417 "regression-compile-tmp/gens400.imp"
3523 @ 27414:            PUSH   J
3524 @ 27417:            PUSHI  #0x00000001
3525 @ 27422:            PUSHI  #0x00000036
3526 @ 27427:            PUSHI  #0x00000001
3527 @ 27432:            FOR    L_0003
3528 @ 27435:            PUSH   PEP
3529 @ 27438:            PUSH   J
3530 @ 27441:            ACCESS
3531 @ 27442:            PUSHI  #0x00000000
3532 @ 27447:            ASSVAL
3533 @ 27448:            PUSH   PADDR
3534 @ 27451:            PUSH   J
3535 @ 27454:            ACCESS
3536 @ 27455:            PUSHI  #0x00000000
3537 @ 27460:            ASSVAL
3538 @ 27461:            REPEAT L_0003
3539 @ 27464:            LOCATE L_0004

   418     CP = 0;  GP = MAX PATCH+1
3540 @ 27467:            LINE   418 "regression-compile-tmp/gens400.imp"
3541 @ 27505:            PUSH   CP
3542 @ 27508:            PUSHI  #0x00000000
3543 @ 27513:            ASSVAL
3544 @ 27514:            LINE   418 "regression-compile-tmp/gens400.imp"
3545 @ 27552:            PUSH   GP
3546 @ 27555:            PUSHI  #0x000001c2
3547 @ 27560:            PUSHI  #0x00000001
3548 @ 27565:            ADD   
3549 @ 27566:            ASSVAL

   419     REFS = 0;  DEFMOD = 0;  UCA = 0;  CCA = 0;  CTAG = 0
3550 @ 27567:            LINE   419 "regression-compile-tmp/gens400.imp"
3551 @ 27605:            PUSH   REFS
3552 @ 27608:            PUSHI  #0x00000000
3553 @ 27613:            ASSVAL
3554 @ 27614:            LINE   419 "regression-compile-tmp/gens400.imp"
3555 @ 27652:            PUSH   DEFMOD
3556 @ 27655:            PUSHI  #0x00000000
3557 @ 27660:            ASSVAL
3558 @ 27661:            LINE   419 "regression-compile-tmp/gens400.imp"
3559 @ 27699:            PUSH   UCA
3560 @ 27702:            PUSHI  #0x00000000
3561 @ 27707:            ASSVAL
3562 @ 27708:            LINE   419 "regression-compile-tmp/gens400.imp"
3563 @ 27746:            PUSH   CCA
3564 @ 27749:            PUSHI  #0x00000000
3565 @ 27754:            ASSVAL
3566 @ 27755:            LINE   419 "regression-compile-tmp/gens400.imp"
3567 @ 27793:            PUSH   CTAG
3568 @ 27796:            PUSHI  #0x00000000
3569 @ 27801:            ASSVAL

   420     LAB(J) = 0 %FOR J = 1,1,MAX LABELS
3570 @ 27802:            LINE   420 "regression-compile-tmp/gens400.imp"
3571 @ 27840:            PUSH   J
3572 @ 27843:            PUSHI  #0x00000001
3573 @ 27848:            PUSHI  #0x000007d0
3574 @ 27853:            PUSHI  #0x00000001
3575 @ 27858:            FOR    L_0003
3576 @ 27861:            PUSH   LAB
3577 @ 27864:            PUSH   J
3578 @ 27867:            ACCESS
3579 @ 27868:            PUSHI  #0x00000000
3580 @ 27873:            ASSVAL
3581 @ 27874:            REPEAT L_0003
3582 @ 27877:            LOCATE L_0004

   421     SELECTINPUT(DIRECT)
3583 @ 27880:            LINE   421 "regression-compile-tmp/gens400.imp"
3584 @ 27918:            PUSH   SELECTINPUT
3585 @ 27921:            PUSHI  #0x00000003
3586 @ 27926:            ASSPAR
3587 @ 27927:            CALL  

   422     READ SYMBOL(INIT GLA);  ! MINIMUM POSSIBLE SIZE OF GLA - FROM PASS 2
3588 @ 27928:            LINE   422 "regression-compile-tmp/gens400.imp"
3589 @ 27966:            PUSH   READSYMBOL
3590 @ 27969:            PUSH   INITGLA
3591 @ 27972:            ASSPAR
3592 @ 27973:            CALL  

   423     %CYCLE
3593 @ 27974:            LINE   423 "regression-compile-tmp/gens400.imp"
3594 @ 28012:            LOCATE L_0003

   424        READSYMBOL(CODE);  ->D(CODE)
3595 @ 28015:            LINE   424 "regression-compile-tmp/gens400.imp"
3596 @ 28053:            PUSH   READSYMBOL
3597 @ 28056:            PUSH   CODE
3598 @ 28059:            ASSPAR
3599 @ 28060:            CALL  
3600 @ 28061:            LINE   424 "regression-compile-tmp/gens400.imp"
3601 @ 28099:            PUSH   CODE
3602 @ 28102:            SJUMP  179

   425  D(1):! TAG DEF <REF>, <CA>
3603 @ 28105:            LINE   425 "regression-compile-tmp/gens400.imp"
3604 @ 28143:            PUSHI  #0x00000001
3605 @ 28148:            SLABEL 179

   426        GET(TAG);  GET(CA)
3606 @ 28151:            LINE   426 "regression-compile-tmp/gens400.imp"
3607 @ 28189:            PUSH   GET
3608 @ 28192:            PUSH   TAG
3609 @ 28195:            ASSPAR
3610 @ 28196:            CALL  
3611 @ 28197:            LINE   426 "regression-compile-tmp/gens400.imp"
3612 @ 28235:            PUSH   GET
3613 @ 28238:            PUSH   CA
3614 @ 28241:            ASSPAR
3615 @ 28242:            CALL  

   427        MONITOR(2) %IF TAG > MAX LABELS
3616 @ 28243:            LINE   427 "regression-compile-tmp/gens400.imp"
3617 @ 28281:            PUSH   TAG
3618 @ 28284:            PUSHI  #0x000007d0
3619 @ 28289:            JUMPIF <= L_0007
3620 @ 28293:            PUSH   MONITOR
3621 @ 28296:            PUSHI  #0x00000002
3622 @ 28301:            ASSPAR
3623 @ 28302:            CALL  
3624 @ 28303:            LOCATE L_0007

   428        MAX LABEL = TAG %IF TAG > MAX LABEL
3625 @ 28306:            LINE   428 "regression-compile-tmp/gens400.imp"
3626 @ 28344:            PUSH   TAG
3627 @ 28347:            PUSH   MAXLABEL
3628 @ 28350:            JUMPIF <= L_0007
3629 @ 28354:            PUSH   MAXLABEL
3630 @ 28357:            PUSH   TAG
3631 @ 28360:            ASSVAL
3632 @ 28361:            LOCATE L_0007

   429        %IF TAG = CTAG %AND CCA = CA %AND UCA = CA %START
3633 @ 28364:            LINE   429 "regression-compile-tmp/gens400.imp"
3634 @ 28402:            PUSH   TAG
3635 @ 28405:            PUSH   CTAG
3636 @ 28408:            JUMPIF # L_0007
3637 @ 28412:            PUSH   CCA
3638 @ 28415:            PUSH   CA
3639 @ 28418:            JUMPIF # L_0007
3640 @ 28422:            PUSH   UCA
3641 @ 28425:            PUSH   CA
3642 @ 28428:            JUMPIF # L_0007

   430           DEFMOD = DEFMOD+2
3643 @ 28432:            LINE   430 "regression-compile-tmp/gens400.imp"
3644 @ 28470:            PUSH   DEFMOD
3645 @ 28473:            PUSH   DEFMOD
3646 @ 28476:            PUSHI  #0x00000002
3647 @ 28481:            ADD   
3648 @ 28482:            ASSVAL

   431           UREF_LAB = UREF_LAB!PERM!COND
3649 @ 28483:            LINE   431 "regression-compile-tmp/gens400.imp"
3650 @ 28521:            PUSH   UREF
3651 @ 28524:            SELECT 1
3652 @ 28527:            PUSH   UREF
3653 @ 28530:            SELECT 1
3654 @ 28533:            PUSHI  #0x00200000
3655 @ 28538:            OR    
3656 @ 28539:            PUSHI  #0x00400000
3657 @ 28544:            OR    
3658 @ 28545:            ASSVAL

   432           CREF_LAB = CREF_LAB!VERY!RT
3659 @ 28546:            LINE   432 "regression-compile-tmp/gens400.imp"
3660 @ 28584:            PUSH   CREF
3661 @ 28587:            SELECT 1
3662 @ 28590:            PUSH   CREF
3663 @ 28593:            SELECT 1
3664 @ 28596:            PUSHI  #0x00080000
3665 @ 28601:            OR    
3666 @ 28602:            PUSHI  #0x00100000
3667 @ 28607:            OR    
3668 @ 28608:            ASSVAL

   433           CTAG = UREF_LAB&LABEL
3669 @ 28609:            LINE   433 "regression-compile-tmp/gens400.imp"
3670 @ 28647:            PUSH   CTAG
3671 @ 28650:            PUSH   UREF
3672 @ 28653:            SELECT 1
3673 @ 28656:            PUSHI  #0x0000ffff
3674 @ 28661:            AND   
3675 @ 28662:            ASSVAL

   434           CREF == UREF
3676 @ 28663:            LINE   434 "regression-compile-tmp/gens400.imp"
3677 @ 28701:            PUSH   CREF
3678 @ 28704:            PUSH   UREF
3679 @ 28707:            ASSREF

   435           CCA = CA+2
3680 @ 28708:            LINE   435 "regression-compile-tmp/gens400.imp"
3681 @ 28746:            PUSH   CCA
3682 @ 28749:            PUSH   CA
3683 @ 28752:            PUSHI  #0x00000002
3684 @ 28757:            ADD   
3685 @ 28758:            ASSVAL

   436        %ELSE
3686 @ 28759:            LINE   436 "regression-compile-tmp/gens400.imp"
3687 @ 28797:            GOTO   L_0006
3688 @ 28800:            LOCATE L_0007

   437           CTAG = 0
3689 @ 28803:            LINE   437 "regression-compile-tmp/gens400.imp"
3690 @ 28841:            PUSH   CTAG
3691 @ 28844:            PUSHI  #0x00000000
3692 @ 28849:            ASSVAL

   438        %FINISH
3693 @ 28850:            LINE   438 "regression-compile-tmp/gens400.imp"
3694 @ 28888:            LOCATE L_0006

   439        LAB(TAG) = CA
3695 @ 28891:            LINE   439 "regression-compile-tmp/gens400.imp"
3696 @ 28929:            PUSH   LAB
3697 @ 28932:            PUSH   TAG
3698 @ 28935:            ACCESS
3699 @ 28936:            PUSH   CA
3700 @ 28939:            ASSVAL

   440        %CONTINUE
3701 @ 28940:            LINE   440 "regression-compile-tmp/gens400.imp"
3702 @ 28978:            GOTO   L_0005

   441  D(2):! CREF <REF>, <CA>
3703 @ 28981:            LINE   441 "regression-compile-tmp/gens400.imp"
3704 @ 29019:            PUSHI  #0x00000002
3705 @ 29024:            SLABEL 179

   442        FLAG = COND;  ->CURP
3706 @ 29027:            LINE   442 "regression-compile-tmp/gens400.imp"
3707 @ 29065:            PUSH   FLAG
3708 @ 29068:            PUSHI  #0x00400000
3709 @ 29073:            ASSVAL
3710 @ 29074:            LINE   442 "regression-compile-tmp/gens400.imp"
3711 @ 29112:            JUMP   L_00e2

   443  D(3):! UREF <REF>, <CA>
3712 @ 29115:            LINE   443 "regression-compile-tmp/gens400.imp"
3713 @ 29153:            PUSHI  #0x00000003
3714 @ 29158:            SLABEL 179

   444        FLAG = 0;     ->CURP
3715 @ 29161:            LINE   444 "regression-compile-tmp/gens400.imp"
3716 @ 29199:            PUSH   FLAG
3717 @ 29202:            PUSHI  #0x00000000
3718 @ 29207:            ASSVAL
3719 @ 29208:            LINE   444 "regression-compile-tmp/gens400.imp"
3720 @ 29246:            JUMP   L_00e2

   445  D(4):! RREF <REF>, <CA>
3721 @ 29249:            LINE   445 "regression-compile-tmp/gens400.imp"
3722 @ 29287:            PUSHI  #0x00000004
3723 @ 29292:            SLABEL 179

   446        FLAG = RT+LONG
3724 @ 29295:            LINE   446 "regression-compile-tmp/gens400.imp"
3725 @ 29333:            PUSH   FLAG
3726 @ 29336:            PUSHI  #0x00100000
3727 @ 29341:            PUSHI  #0x00800000
3728 @ 29346:            ADD   
3729 @ 29347:            ASSVAL

   447        RTNCALLS = RTNCALLS+1
3730 @ 29348:            LINE   447 "regression-compile-tmp/gens400.imp"
3731 @ 29386:            PUSH   RTNCALLS
3732 @ 29389:            PUSH   RTNCALLS
3733 @ 29392:            PUSHI  #0x00000001
3734 @ 29397:            ADD   
3735 @ 29398:            ASSVAL

   448        -> CURP
   449  
3736 @ 29399:            LINE   448 "regression-compile-tmp/gens400.imp"
3737 @ 29437:            JUMP   L_00e2

   450  D(5):! PREF <REF>, <CA>
3738 @ 29440:            LINE   450 "regression-compile-tmp/gens400.imp"
3739 @ 29478:            PUSHI  #0x00000005
3740 @ 29483:            SLABEL 179

   451        FLAG = PERM+LONG
3741 @ 29486:            LINE   451 "regression-compile-tmp/gens400.imp"
3742 @ 29524:            PUSH   FLAG
3743 @ 29527:            PUSHI  #0x00200000
3744 @ 29532:            PUSHI  #0x00800000
3745 @ 29537:            ADD   
3746 @ 29538:            ASSVAL

   452        PERMCALLS = PERMCALLS+1
   453  
3747 @ 29539:            LINE   452 "regression-compile-tmp/gens400.imp"
3748 @ 29577:            PUSH   PERMCALLS
3749 @ 29580:            PUSH   PERMCALLS
3750 @ 29583:            PUSHI  #0x00000001
3751 @ 29588:            ADD   
3752 @ 29589:            ASSVAL

   454  CURP: GET(TAG);  GET(CA)
3753 @ 29590:            LINE   454 "regression-compile-tmp/gens400.imp"
3754 @ 29628:            LABEL  L_00e2
3755 @ 29631:            LINE   454 "regression-compile-tmp/gens400.imp"
3756 @ 29669:            PUSH   GET
3757 @ 29672:            PUSH   TAG
3758 @ 29675:            ASSPAR
3759 @ 29676:            CALL  
3760 @ 29677:            LINE   454 "regression-compile-tmp/gens400.imp"
3761 @ 29715:            PUSH   GET
3762 @ 29718:            PUSH   CA
3763 @ 29721:            ASSPAR
3764 @ 29722:            CALL  

   455        REFS = REFS+1;  R == JUMP(REFS)
3765 @ 29723:            LINE   455 "regression-compile-tmp/gens400.imp"
3766 @ 29761:            PUSH   REFS
3767 @ 29764:            PUSH   REFS
3768 @ 29767:            PUSHI  #0x00000001
3769 @ 29772:            ADD   
3770 @ 29773:            ASSVAL
3771 @ 29774:            LINE   455 "regression-compile-tmp/gens400.imp"
3772 @ 29812:            PUSH   R
3773 @ 29815:            PUSH   JUMP
3774 @ 29818:            PUSH   REFS
3775 @ 29821:            ACCESS
3776 @ 29822:            ASSREF

   456        MONITOR(1) %IF REFS > MAX JUMPS
3777 @ 29823:            LINE   456 "regression-compile-tmp/gens400.imp"
3778 @ 29861:            PUSH   REFS
3779 @ 29864:            PUSHI  #0x00000bb8
3780 @ 29869:            JUMPIF <= L_0007
3781 @ 29873:            PUSH   MONITOR
3782 @ 29876:            PUSHI  #0x00000001
3783 @ 29881:            ASSPAR
3784 @ 29882:            CALL  
3785 @ 29883:            LOCATE L_0007

   457        R_LAB = TAG+FLAG
3786 @ 29886:            LINE   457 "regression-compile-tmp/gens400.imp"
3787 @ 29924:            PUSH   R
3788 @ 29927:            SELECT 1
3789 @ 29930:            PUSH   TAG
3790 @ 29933:            PUSH   FLAG
3791 @ 29936:            ADD   
3792 @ 29937:            ASSVAL

   458        R_CA = CA
3793 @ 29938:            LINE   458 "regression-compile-tmp/gens400.imp"
3794 @ 29976:            PUSH   R
3795 @ 29979:            SELECT 2
3796 @ 29982:            PUSH   CA
3797 @ 29985:            ASSVAL

   459        %IF FLAG = 0 %START;       ! UNCONDITIONAL
3798 @ 29986:            LINE   459 "regression-compile-tmp/gens400.imp"
3799 @ 30024:            PUSH   FLAG
3800 @ 30027:            PUSHI  #0x00000000
3801 @ 30032:            JUMPIF # L_0007

   460           UCA = CA+2;  UREF == R
3802 @ 30036:            LINE   460 "regression-compile-tmp/gens400.imp"
3803 @ 30074:            PUSH   UCA
3804 @ 30077:            PUSH   CA
3805 @ 30080:            PUSHI  #0x00000002
3806 @ 30085:            ADD   
3807 @ 30086:            ASSVAL
3808 @ 30087:            LINE   460 "regression-compile-tmp/gens400.imp"
3809 @ 30125:            PUSH   UREF
3810 @ 30128:            PUSH   R
3811 @ 30131:            ASSREF

   461        %ELSE %IF FLAG = COND;     ! CONDITIONAL
3812 @ 30132:            LINE   461 "regression-compile-tmp/gens400.imp"
3813 @ 30170:            GOTO   L_0006
3814 @ 30173:            LOCATE L_0007
3815 @ 30176:            PUSH   FLAG
3816 @ 30179:            PUSHI  #0x00400000
3817 @ 30184:            JUMPIF # L_0007

   462           CCA = CA+4;  CTAG = TAG;  CREF == R
3818 @ 30188:            LINE   462 "regression-compile-tmp/gens400.imp"
3819 @ 30226:            PUSH   CCA
3820 @ 30229:            PUSH   CA
3821 @ 30232:            PUSHI  #0x00000004
3822 @ 30237:            ADD   
3823 @ 30238:            ASSVAL
3824 @ 30239:            LINE   462 "regression-compile-tmp/gens400.imp"
3825 @ 30277:            PUSH   CTAG
3826 @ 30280:            PUSH   TAG
3827 @ 30283:            ASSVAL
3828 @ 30284:            LINE   462 "regression-compile-tmp/gens400.imp"
3829 @ 30322:            PUSH   CREF
3830 @ 30325:            PUSH   R
3831 @ 30328:            ASSREF

   463        %FINISH
3832 @ 30329:            LINE   463 "regression-compile-tmp/gens400.imp"
3833 @ 30367:            LOCATE L_0007
3834 @ 30370:            LOCATE L_0006

   464        %IF FLAG&PERM # 0 %START
3835 @ 30373:            LINE   464 "regression-compile-tmp/gens400.imp"
3836 @ 30411:            PUSH   FLAG
3837 @ 30414:            PUSHI  #0x00200000
3838 @ 30419:            AND   
3839 @ 30420:            PUSHI  #0x00000000
3840 @ 30425:            JUMPIF = L_0007

   465           %IF TAG > MAX PERM %OR PERMS(TAG) = 0 %START
3841 @ 30429:            LINE   465 "regression-compile-tmp/gens400.imp"
3842 @ 30467:            PUSH   TAG
3843 @ 30470:            PUSHI  #0x00000036
3844 @ 30475:            JUMPIF > L_000b
3845 @ 30479:            PUSH   PERMS
3846 @ 30482:            PUSH   TAG
3847 @ 30485:            ACCESS
3848 @ 30486:            PUSHI  #0x00000000
3849 @ 30491:            JUMPIF # L_000a
3850 @ 30495:            LOCATE L_000b

   466              SELECTOUTPUT(REPORT)
3851 @ 30498:            LINE   466 "regression-compile-tmp/gens400.imp"
3852 @ 30536:            PUSH   SELECTOUTPUT
3853 @ 30539:            PUSHI  #0x00000000
3854 @ 30544:            ASSPAR
3855 @ 30545:            CALL  

   467              PRINTSTRING("NO PERM");  WRITE(TAG, 1);  NEWLINE
3856 @ 30546:            LINE   467 "regression-compile-tmp/gens400.imp"
3857 @ 30584:            PUSH   PRINTSTRING
3858 @ 30587:            PUSHS  "NO PERM"
3859 @ 30596:            ASSPAR
3860 @ 30597:            CALL  
3861 @ 30598:            LINE   467 "regression-compile-tmp/gens400.imp"
3862 @ 30636:            PUSH   WRITE
3863 @ 30639:            PUSH   TAG
3864 @ 30642:            ASSPAR
3865 @ 30643:            PUSHI  #0x00000001
3866 @ 30648:            ASSPAR
3867 @ 30649:            CALL  
3868 @ 30650:            LINE   467 "regression-compile-tmp/gens400.imp"
3869 @ 30688:            PUSH   NEWLINE
3870 @ 30691:            CALL  

   468              SELECTOUTPUT(OBJECT)
3871 @ 30692:            LINE   468 "regression-compile-tmp/gens400.imp"
3872 @ 30730:            PUSH   SELECTOUTPUT
3873 @ 30733:            PUSHI  #0x00000002
3874 @ 30738:            ASSPAR
3875 @ 30739:            CALL  

   469           %ELSE
3876 @ 30740:            LINE   469 "regression-compile-tmp/gens400.imp"
3877 @ 30778:            GOTO   L_0009
3878 @ 30781:            LOCATE L_000a

   470              PEP(TAG) = 1
3879 @ 30784:            LINE   470 "regression-compile-tmp/gens400.imp"
3880 @ 30822:            PUSH   PEP
3881 @ 30825:            PUSH   TAG
3882 @ 30828:            ACCESS
3883 @ 30829:            PUSHI  #0x00000001
3884 @ 30834:            ASSVAL

   471           %FINISH
3885 @ 30835:            LINE   471 "regression-compile-tmp/gens400.imp"
3886 @ 30873:            LOCATE L_0009

   472        %FINISH
3887 @ 30876:            LINE   472 "regression-compile-tmp/gens400.imp"
3888 @ 30914:            LOCATE L_0007

   473        %CONTINUE
3889 @ 30917:            LINE   473 "regression-compile-tmp/gens400.imp"
3890 @ 30955:            GOTO   L_0005

   474  D(6):! GPATCH <WHAT>, <WHERE>
3891 @ 30958:            LINE   474 "regression-compile-tmp/gens400.imp"
3892 @ 30996:            PUSHI  #0x00000006
3893 @ 31001:            SLABEL 179

   475        GP = GP-1;  PAT == PATCH(GP);  ->PWW
3894 @ 31004:            LINE   475 "regression-compile-tmp/gens400.imp"
3895 @ 31042:            PUSH   GP
3896 @ 31045:            PUSH   GP
3897 @ 31048:            PUSHI  #0x00000001
3898 @ 31053:            SUB   
3899 @ 31054:            ASSVAL
3900 @ 31055:            LINE   475 "regression-compile-tmp/gens400.imp"
3901 @ 31093:            PUSH   PAT
3902 @ 31096:            PUSH   PATCH
3903 @ 31099:            PUSH   GP
3904 @ 31102:            ACCESS
3905 @ 31103:            ASSREF
3906 @ 31104:            LINE   475 "regression-compile-tmp/gens400.imp"
3907 @ 31142:            JUMP   L_00e3

   476  D(7):! CPATCH <WHAT>, <WHERE>
3908 @ 31145:            LINE   476 "regression-compile-tmp/gens400.imp"
3909 @ 31183:            PUSHI  #0x00000007
3910 @ 31188:            SLABEL 179

   477        CP = CP+1;  PAT == PATCH(CP)
3911 @ 31191:            LINE   477 "regression-compile-tmp/gens400.imp"
3912 @ 31229:            PUSH   CP
3913 @ 31232:            PUSH   CP
3914 @ 31235:            PUSHI  #0x00000001
3915 @ 31240:            ADD   
3916 @ 31241:            ASSVAL
3917 @ 31242:            LINE   477 "regression-compile-tmp/gens400.imp"
3918 @ 31280:            PUSH   PAT
3919 @ 31283:            PUSH   PATCH
3920 @ 31286:            PUSH   CP
3921 @ 31289:            ACCESS
3922 @ 31290:            ASSREF

   478  PWW:  GET(TAG);  GET(CA)
3923 @ 31291:            LINE   478 "regression-compile-tmp/gens400.imp"
3924 @ 31329:            LABEL  L_00e3
3925 @ 31332:            LINE   478 "regression-compile-tmp/gens400.imp"
3926 @ 31370:            PUSH   GET
3927 @ 31373:            PUSH   TAG
3928 @ 31376:            ASSPAR
3929 @ 31377:            CALL  
3930 @ 31378:            LINE   478 "regression-compile-tmp/gens400.imp"
3931 @ 31416:            PUSH   GET
3932 @ 31419:            PUSH   CA
3933 @ 31422:            ASSPAR
3934 @ 31423:            CALL  

   479        PAT_WHAT = TAG;  PAT_WHERE = CA
3935 @ 31424:            LINE   479 "regression-compile-tmp/gens400.imp"
3936 @ 31462:            PUSH   PAT
3937 @ 31465:            SELECT 1
3938 @ 31468:            PUSH   TAG
3939 @ 31471:            ASSVAL
3940 @ 31472:            LINE   479 "regression-compile-tmp/gens400.imp"
3941 @ 31510:            PUSH   PAT
3942 @ 31513:            SELECT 2
3943 @ 31516:            PUSH   CA
3944 @ 31519:            ASSVAL

   480        MONITOR(4) %IF CP = GP
3945 @ 31520:            LINE   480 "regression-compile-tmp/gens400.imp"
3946 @ 31558:            PUSH   CP
3947 @ 31561:            PUSH   GP
3948 @ 31564:            JUMPIF # L_0007
3949 @ 31568:            PUSH   MONITOR
3950 @ 31571:            PUSHI  #0x00000004
3951 @ 31576:            ASSPAR
3952 @ 31577:            CALL  
3953 @ 31578:            LOCATE L_0007

   481     %REPEAT
3954 @ 31581:            LINE   481 "regression-compile-tmp/gens400.imp"
3955 @ 31619:            LOCATE L_0005
3956 @ 31622:            REPEAT L_0003

   482  D(8):! END MARKER
3957 @ 31625:            LINE   482 "regression-compile-tmp/gens400.imp"
3958 @ 31663:            PUSHI  #0x00000008
3959 @ 31668:            SLABEL 179

   483     GET(CODE SIZE);  GET(GLA SIZE);  GET(LINE SIZE);  GET(DIAG SIZE)
3960 @ 31671:            LINE   483 "regression-compile-tmp/gens400.imp"
3961 @ 31709:            PUSH   GET
3962 @ 31712:            PUSH   CODESIZE
3963 @ 31715:            ASSPAR
3964 @ 31716:            CALL  
3965 @ 31717:            LINE   483 "regression-compile-tmp/gens400.imp"
3966 @ 31755:            PUSH   GET
3967 @ 31758:            PUSH   GLASIZE
3968 @ 31761:            ASSPAR
3969 @ 31762:            CALL  
3970 @ 31763:            LINE   483 "regression-compile-tmp/gens400.imp"
3971 @ 31801:            PUSH   GET
3972 @ 31804:            PUSH   LINESIZE
3973 @ 31807:            ASSPAR
3974 @ 31808:            CALL  
3975 @ 31809:            LINE   483 "regression-compile-tmp/gens400.imp"
3976 @ 31847:            PUSH   GET
3977 @ 31850:            PUSH   DIAGSIZE
3978 @ 31853:            ASSPAR
3979 @ 31854:            CALL  

   484     CODE SIZE = CODE SIZE-DEF MOD
3980 @ 31855:            LINE   484 "regression-compile-tmp/gens400.imp"
3981 @ 31893:            PUSH   CODESIZE
3982 @ 31896:            PUSH   CODESIZE
3983 @ 31899:            PUSH   DEFMOD
3984 @ 31902:            SUB   
3985 @ 31903:            ASSVAL

   485     REFS = REFS+1;  JUMP(REFS) = 0
3986 @ 31904:            LINE   485 "regression-compile-tmp/gens400.imp"
3987 @ 31942:            PUSH   REFS
3988 @ 31945:            PUSH   REFS
3989 @ 31948:            PUSHI  #0x00000001
3990 @ 31953:            ADD   
3991 @ 31954:            ASSVAL
3992 @ 31955:            LINE   485 "regression-compile-tmp/gens400.imp"
3993 @ 31993:            PUSH   JUMP
3994 @ 31996:            PUSH   REFS
3995 @ 31999:            ACCESS
3996 @ 32000:            PUSHI  #0x00000000
3997 @ 32005:            ASSVAL

   486     %IF DEF MOD # 0 %START
3998 @ 32006:            LINE   486 "regression-compile-tmp/gens400.imp"
3999 @ 32044:            PUSH   DEFMOD
4000 @ 32047:            PUSHI  #0x00000000
4001 @ 32052:            JUMPIF = L_0004

   487        REF EXTRA = 0
4002 @ 32056:            LINE   487 "regression-compile-tmp/gens400.imp"
4003 @ 32094:            PUSH   REFEXTRA
4004 @ 32097:            PUSHI  #0x00000000
4005 @ 32102:            ASSVAL

   488        %CYCLE L = 1, 1, REFS-1
4006 @ 32103:            LINE   488 "regression-compile-tmp/gens400.imp"
4007 @ 32141:            PUSH   L
4008 @ 32144:            PUSHI  #0x00000001
4009 @ 32149:            PUSH   REFS
4010 @ 32152:            PUSHI  #0x00000001
4011 @ 32157:            SUB   
4012 @ 32158:            PUSHI  #0x00000001
4013 @ 32163:            FOR    L_0006

   489           R == JUMP (L)
4014 @ 32166:            LINE   489 "regression-compile-tmp/gens400.imp"
4015 @ 32204:            PUSH   R
4016 @ 32207:            PUSH   JUMP
4017 @ 32210:            PUSH   L
4018 @ 32213:            ACCESS
4019 @ 32214:            ASSREF

   490           R_CA = R_CA-REF EXTRA
4020 @ 32215:            LINE   490 "regression-compile-tmp/gens400.imp"
4021 @ 32253:            PUSH   R
4022 @ 32256:            SELECT 2
4023 @ 32259:            PUSH   R
4024 @ 32262:            SELECT 2
4025 @ 32265:            PUSH   REFEXTRA
4026 @ 32268:            SUB   
4027 @ 32269:            ASSVAL

   491           %IF R_LAB&COND # 0 %AND R_LAB&RT # 0 %START
4028 @ 32270:            LINE   491 "regression-compile-tmp/gens400.imp"
4029 @ 32308:            PUSH   R
4030 @ 32311:            SELECT 1
4031 @ 32314:            PUSHI  #0x00400000
4032 @ 32319:            AND   
4033 @ 32320:            PUSHI  #0x00000000
4034 @ 32325:            JUMPIF = L_000a
4035 @ 32329:            PUSH   R
4036 @ 32332:            SELECT 1
4037 @ 32335:            PUSHI  #0x00100000
4038 @ 32340:            AND   
4039 @ 32341:            PUSHI  #0x00000000
4040 @ 32346:            JUMPIF = L_000a

   492              REF EXTRA = REF EXTRA+2
4041 @ 32350:            LINE   492 "regression-compile-tmp/gens400.imp"
4042 @ 32388:            PUSH   REFEXTRA
4043 @ 32391:            PUSH   REFEXTRA
4044 @ 32394:            PUSHI  #0x00000002
4045 @ 32399:            ADD   
4046 @ 32400:            ASSVAL

   493              %CYCLE K = 1, 1, CP
4047 @ 32401:            LINE   493 "regression-compile-tmp/gens400.imp"
4048 @ 32439:            PUSH   K
4049 @ 32442:            PUSHI  #0x00000001
4050 @ 32447:            PUSH   CP
4051 @ 32450:            PUSHI  #0x00000001
4052 @ 32455:            FOR    L_000c

   494                 PAT == PATCH(K)
4053 @ 32458:            LINE   494 "regression-compile-tmp/gens400.imp"
4054 @ 32496:            PUSH   PAT
4055 @ 32499:            PUSH   PATCH
4056 @ 32502:            PUSH   K
4057 @ 32505:            ACCESS
4058 @ 32506:            ASSREF

   495                 PAT_WHERE = PAT_WHERE-2 %IF PAT_WHERE > R_CA
4059 @ 32507:            LINE   495 "regression-compile-tmp/gens400.imp"
4060 @ 32545:            PUSH   PAT
4061 @ 32548:            SELECT 2
4062 @ 32551:            PUSH   R
4063 @ 32554:            SELECT 2
4064 @ 32557:            JUMPIF <= L_0010
4065 @ 32561:            PUSH   PAT
4066 @ 32564:            SELECT 2
4067 @ 32567:            PUSH   PAT
4068 @ 32570:            SELECT 2
4069 @ 32573:            PUSHI  #0x00000002
4070 @ 32578:            SUB   
4071 @ 32579:            ASSVAL
4072 @ 32580:            LOCATE L_0010

   496              %REPEAT
4073 @ 32583:            LINE   496 "regression-compile-tmp/gens400.imp"
4074 @ 32621:            REPEAT L_000c
4075 @ 32624:            LOCATE L_000d

   497              %IF GP <= MAX PATCH %START
4076 @ 32627:            LINE   497 "regression-compile-tmp/gens400.imp"
4077 @ 32665:            PUSH   GP
4078 @ 32668:            PUSHI  #0x000001c2
4079 @ 32673:            JUMPIF > L_000d

   498                 %CYCLE K = GP, 1, MAX PATCH
4080 @ 32677:            LINE   498 "regression-compile-tmp/gens400.imp"
4081 @ 32715:            PUSH   K
4082 @ 32718:            PUSHI  #0x00000001
4083 @ 32723:            PUSHI  #0x000001c2
4084 @ 32728:            PUSH   GP
4085 @ 32731:            FOR    L_000f

   499                    PAT == PATCH(K)
4086 @ 32734:            LINE   499 "regression-compile-tmp/gens400.imp"
4087 @ 32772:            PUSH   PAT
4088 @ 32775:            PUSH   PATCH
4089 @ 32778:            PUSH   K
4090 @ 32781:            ACCESS
4091 @ 32782:            ASSREF

   500                    PAT_WHAT = PAT_WHAT-2 %IF PAT_WHAT > R_CA
4092 @ 32783:            LINE   500 "regression-compile-tmp/gens400.imp"
4093 @ 32821:            PUSH   PAT
4094 @ 32824:            SELECT 1
4095 @ 32827:            PUSH   R
4096 @ 32830:            SELECT 2
4097 @ 32833:            JUMPIF <= L_0013
4098 @ 32837:            PUSH   PAT
4099 @ 32840:            SELECT 1
4100 @ 32843:            PUSH   PAT
4101 @ 32846:            SELECT 1
4102 @ 32849:            PUSHI  #0x00000002
4103 @ 32854:            SUB   
4104 @ 32855:            ASSVAL
4105 @ 32856:            LOCATE L_0013

   501                    PAT_WHERE = PAT_WHERE-2 %IF PAT_WHERE&1 # 0 %AND  %C
   502                                             PAT_WHERE > R_CA
4106 @ 32859:            LINE   501 "regression-compile-tmp/gens400.imp"
4107 @ 32897:            PUSH   PAT
4108 @ 32900:            SELECT 2
4109 @ 32903:            PUSHI  #0x00000001
4110 @ 32908:            AND   
4111 @ 32909:            PUSHI  #0x00000000
4112 @ 32914:            JUMPIF = L_0013
4113 @ 32918:            PUSH   PAT
4114 @ 32921:            SELECT 2
4115 @ 32924:            PUSH   R
4116 @ 32927:            SELECT 2
4117 @ 32930:            JUMPIF <= L_0013
4118 @ 32934:            PUSH   PAT
4119 @ 32937:            SELECT 2
4120 @ 32940:            PUSH   PAT
4121 @ 32943:            SELECT 2
4122 @ 32946:            PUSHI  #0x00000002
4123 @ 32951:            SUB   
4124 @ 32952:            ASSVAL
4125 @ 32953:            LOCATE L_0013

   503                 %REPEAT
4126 @ 32956:            LINE   503 "regression-compile-tmp/gens400.imp"
4127 @ 32994:            REPEAT L_000f
4128 @ 32997:            LOCATE L_0010

   504              %FINISH
4129 @ 33000:            LINE   504 "regression-compile-tmp/gens400.imp"
4130 @ 33038:            LOCATE L_000d

   505              %CYCLE K = 1, 1, MAX LABEL
4131 @ 33041:            LINE   505 "regression-compile-tmp/gens400.imp"
4132 @ 33079:            PUSH   K
4133 @ 33082:            PUSHI  #0x00000001
4134 @ 33087:            PUSH   MAXLABEL
4135 @ 33090:            PUSHI  #0x00000001
4136 @ 33095:            FOR    L_000c

   506                 LAB(K) = LAB(K)-2 %IF LAB(K) > R_CA
4137 @ 33098:            LINE   506 "regression-compile-tmp/gens400.imp"
4138 @ 33136:            PUSH   LAB
4139 @ 33139:            PUSH   K
4140 @ 33142:            ACCESS
4141 @ 33143:            PUSH   R
4142 @ 33146:            SELECT 2
4143 @ 33149:            JUMPIF <= L_0010
4144 @ 33153:            PUSH   LAB
4145 @ 33156:            PUSH   K
4146 @ 33159:            ACCESS
4147 @ 33160:            PUSH   LAB
4148 @ 33163:            PUSH   K
4149 @ 33166:            ACCESS
4150 @ 33167:            PUSHI  #0x00000002
4151 @ 33172:            SUB   
4152 @ 33173:            ASSVAL
4153 @ 33174:            LOCATE L_0010

   507              %REPEAT
4154 @ 33177:            LINE   507 "regression-compile-tmp/gens400.imp"
4155 @ 33215:            REPEAT L_000c
4156 @ 33218:            LOCATE L_000d

   508              DEFMOD = DEFMOD-2
4157 @ 33221:            LINE   508 "regression-compile-tmp/gens400.imp"
4158 @ 33259:            PUSH   DEFMOD
4159 @ 33262:            PUSH   DEFMOD
4160 @ 33265:            PUSHI  #0x00000002
4161 @ 33270:            SUB   
4162 @ 33271:            ASSVAL

   509           %FINISH
4163 @ 33272:            LINE   509 "regression-compile-tmp/gens400.imp"
4164 @ 33310:            LOCATE L_000a

   510        %REPEAT
4165 @ 33313:            LINE   510 "regression-compile-tmp/gens400.imp"
4166 @ 33351:            REPEAT L_0006
4167 @ 33354:            LOCATE L_0007

   511        MONITOR(5) %IF DEFMOD # 0
4168 @ 33357:            LINE   511 "regression-compile-tmp/gens400.imp"
4169 @ 33395:            PUSH   DEFMOD
4170 @ 33398:            PUSHI  #0x00000000
4171 @ 33403:            JUMPIF = L_0007
4172 @ 33407:            PUSH   MONITOR
4173 @ 33410:            PUSHI  #0x00000005
4174 @ 33415:            ASSPAR
4175 @ 33416:            CALL  
4176 @ 33417:            LOCATE L_0007

   512     %FINISH
   513  
   514  
   515  ! IDENTIFY THOSE PERM ROUTINES WHICH ARE REQUIRED.
4177 @ 33420:            LINE   512 "regression-compile-tmp/gens400.imp"
4178 @ 33458:            LOCATE L_0004

   516     PERM SIZE = 0
4179 @ 33461:            LINE   516 "regression-compile-tmp/gens400.imp"
4180 @ 33499:            PUSH   PERMSIZE
4181 @ 33502:            PUSHI  #0x00000000
4182 @ 33507:            ASSVAL

   517     SET PERM(J) %FOR J = 1,1,MAX PERM
4183 @ 33508:            LINE   517 "regression-compile-tmp/gens400.imp"
4184 @ 33546:            PUSH   J
4185 @ 33549:            PUSHI  #0x00000001
4186 @ 33554:            PUSHI  #0x00000036
4187 @ 33559:            PUSHI  #0x00000001
4188 @ 33564:            FOR    L_0003
4189 @ 33567:            PUSH   SETPERM
4190 @ 33570:            PUSH   J
4191 @ 33573:            ASSPAR
4192 @ 33574:            CALL  
4193 @ 33575:            REPEAT L_0003
4194 @ 33578:            LOCATE L_0004

   518     %CYCLE  J = 1,1,MAX PERM
4195 @ 33581:            LINE   518 "regression-compile-tmp/gens400.imp"
4196 @ 33619:            PUSH   J
4197 @ 33622:            PUSHI  #0x00000001
4198 @ 33627:            PUSHI  #0x00000036
4199 @ 33632:            PUSHI  #0x00000001
4200 @ 33637:            FOR    L_0003

   519        %IF PEP(J) # 0 %START
4201 @ 33640:            LINE   519 "regression-compile-tmp/gens400.imp"
4202 @ 33678:            PUSH   PEP
4203 @ 33681:            PUSH   J
4204 @ 33684:            ACCESS
4205 @ 33685:            PUSHI  #0x00000000
4206 @ 33690:            JUMPIF = L_0007

   520           PADDR(J) = CODE SIZE
4207 @ 33694:            LINE   520 "regression-compile-tmp/gens400.imp"
4208 @ 33732:            PUSH   PADDR
4209 @ 33735:            PUSH   J
4210 @ 33738:            ACCESS
4211 @ 33739:            PUSH   CODESIZE
4212 @ 33742:            ASSVAL

   521           L = PERMS(PERMS(J))*2
4213 @ 33743:            LINE   521 "regression-compile-tmp/gens400.imp"
4214 @ 33781:            PUSH   L
4215 @ 33784:            PUSH   PERMS
4216 @ 33787:            PUSH   PERMS
4217 @ 33790:            PUSH   J
4218 @ 33793:            ACCESS
4219 @ 33794:            ACCESS
4220 @ 33795:            PUSHI  #0x00000002
4221 @ 33800:            MUL   
4222 @ 33801:            ASSVAL

   522           CODE SIZE = CODE SIZE + L
4223 @ 33802:            LINE   522 "regression-compile-tmp/gens400.imp"
4224 @ 33840:            PUSH   CODESIZE
4225 @ 33843:            PUSH   CODESIZE
4226 @ 33846:            PUSH   L
4227 @ 33849:            ADD   
4228 @ 33850:            ASSVAL

   523           PERM SIZE = PERM SIZE + L
4229 @ 33851:            LINE   523 "regression-compile-tmp/gens400.imp"
4230 @ 33889:            PUSH   PERMSIZE
4231 @ 33892:            PUSH   PERMSIZE
4232 @ 33895:            PUSH   L
4233 @ 33898:            ADD   
4234 @ 33899:            ASSVAL

   524        %FINISH
4235 @ 33900:            LINE   524 "regression-compile-tmp/gens400.imp"
4236 @ 33938:            LOCATE L_0007

   525     %REPEAT
   526  
   527  
   528  ! PHASE 2 - IDENTIFY LONG JUMPS
   529  !
4237 @ 33941:            LINE   525 "regression-compile-tmp/gens400.imp"
4238 @ 33979:            REPEAT L_0003
4239 @ 33982:            LOCATE L_0004

   530     PHASE = 2
4240 @ 33985:            LINE   530 "regression-compile-tmp/gens400.imp"
4241 @ 34023:            PUSH   PHASE
4242 @ 34026:            PUSHI  #0x00000002
4243 @ 34031:            ASSVAL

   531     %IF REFS > 1 %START
4244 @ 34032:            LINE   531 "regression-compile-tmp/gens400.imp"
4245 @ 34070:            PUSH   REFS
4246 @ 34073:            PUSHI  #0x00000001
4247 @ 34078:            JUMPIF <= L_0004

   532     %CYCLE
4248 @ 34082:            LINE   532 "regression-compile-tmp/gens400.imp"
4249 @ 34120:            LOCATE L_0006

   533        FLAG = 0;  REF EXTRA = 0
4250 @ 34123:            LINE   533 "regression-compile-tmp/gens400.imp"
4251 @ 34161:            PUSH   FLAG
4252 @ 34164:            PUSHI  #0x00000000
4253 @ 34169:            ASSVAL
4254 @ 34170:            LINE   533 "regression-compile-tmp/gens400.imp"
4255 @ 34208:            PUSH   REFEXTRA
4256 @ 34211:            PUSHI  #0x00000000
4257 @ 34216:            ASSVAL

   534        %CYCLE L = 1, 1, REFS-1
4258 @ 34217:            LINE   534 "regression-compile-tmp/gens400.imp"
4259 @ 34255:            PUSH   L
4260 @ 34258:            PUSHI  #0x00000001
4261 @ 34263:            PUSH   REFS
4262 @ 34266:            PUSHI  #0x00000001
4263 @ 34271:            SUB   
4264 @ 34272:            PUSHI  #0x00000001
4265 @ 34277:            FOR    L_0009

   535           R == JUMP(L);! JUMP REFERENCE
4266 @ 34280:            LINE   535 "regression-compile-tmp/gens400.imp"
4267 @ 34318:            PUSH   R
4268 @ 34321:            PUSH   JUMP
4269 @ 34324:            PUSH   L
4270 @ 34327:            ACCESS
4271 @ 34328:            ASSREF

   536           R_CA = R_CA+REF EXTRA
4272 @ 34329:            LINE   536 "regression-compile-tmp/gens400.imp"
4273 @ 34367:            PUSH   R
4274 @ 34370:            SELECT 2
4275 @ 34373:            PUSH   R
4276 @ 34376:            SELECT 2
4277 @ 34379:            PUSH   REFEXTRA
4278 @ 34382:            ADD   
4279 @ 34383:            ASSVAL

   537           %CONTINUE %IF R_LAB&VERY # 0;! ALREADY VERY LONG
4280 @ 34384:            LINE   537 "regression-compile-tmp/gens400.imp"
4281 @ 34422:            PUSH   R
4282 @ 34425:            SELECT 1
4283 @ 34428:            PUSHI  #0x00080000
4284 @ 34433:            AND   
4285 @ 34434:            PUSHI  #0x00000000
4286 @ 34439:            JUMPIF = L_000d
4287 @ 34443:            GOTO   L_000b
4288 @ 34446:            LOCATE L_000d

   538           EXTRA = 0
4289 @ 34449:            LINE   538 "regression-compile-tmp/gens400.imp"
4290 @ 34487:            PUSH   EXTRA
4291 @ 34490:            PUSHI  #0x00000000
4292 @ 34495:            ASSVAL

   539           J = R_LAB&LABEL
4293 @ 34496:            LINE   539 "regression-compile-tmp/gens400.imp"
4294 @ 34534:            PUSH   J
4295 @ 34537:            PUSH   R
4296 @ 34540:            SELECT 1
4297 @ 34543:            PUSHI  #0x0000ffff
4298 @ 34548:            AND   
4299 @ 34549:            ASSVAL

   540           %IF R_LAB&PERM = 0 %OR R_LAB&COND # 0 %C
   541                  %THEN K = LAB(J) %ELSE K = PADDR(J)
4300 @ 34550:            LINE   540 "regression-compile-tmp/gens400.imp"
4301 @ 34588:            PUSH   R
4302 @ 34591:            SELECT 1
4303 @ 34594:            PUSHI  #0x00200000
4304 @ 34599:            AND   
4305 @ 34600:            PUSHI  #0x00000000
4306 @ 34605:            JUMPIF = L_000e
4307 @ 34609:            PUSH   R
4308 @ 34612:            SELECT 1
4309 @ 34615:            PUSHI  #0x00400000
4310 @ 34620:            AND   
4311 @ 34621:            PUSHI  #0x00000000
4312 @ 34626:            JUMPIF = L_000d
4313 @ 34630:            LOCATE L_000e
4314 @ 34633:            PUSH   K
4315 @ 34636:            PUSH   LAB
4316 @ 34639:            PUSH   J
4317 @ 34642:            ACCESS
4318 @ 34643:            ASSVAL
4319 @ 34644:            GOTO   L_000c
4320 @ 34647:            LOCATE L_000d
4321 @ 34650:            PUSH   K
4322 @ 34653:            PUSH   PADDR
4323 @ 34656:            PUSH   J
4324 @ 34659:            ACCESS
4325 @ 34660:            ASSVAL
4326 @ 34661:            LOCATE L_000c

   542           %UNLESS -30 <= K-R_CA <= 30 %START;  ! ...CAN'T BE SHORT
4327 @ 34664:            LINE   542 "regression-compile-tmp/gens400.imp"
4328 @ 34702:            PUSHI  #0x0000001e
4329 @ 34707:            NEGATE
4330 @ 34708:            PUSH   K
4331 @ 34711:            PUSH   R
4332 @ 34714:            SELECT 2
4333 @ 34717:            SUB   
4334 @ 34718:            JUMPIFD > L_000e
4335 @ 34722:            PUSHI  #0x0000001e
4336 @ 34727:            JUMPIF <= L_000d
4337 @ 34731:            LOCATE L_000e

   543              %IF R_LAB&LONG=0 %START;          ! ...BUT IT IS...
4338 @ 34734:            LINE   543 "regression-compile-tmp/gens400.imp"
4339 @ 34772:            PUSH   R
4340 @ 34775:            SELECT 1
4341 @ 34778:            PUSHI  #0x00800000
4342 @ 34783:            AND   
4343 @ 34784:            PUSHI  #0x00000000
4344 @ 34789:            JUMPIF # L_0010

   544                 %IF K < 16*1024 %OR -16*1024<=K-(R_CA+4)<16*1024 %START
   545                 ! 32 BIT FORM:  BASE+DISPLACEMENT  OR  PC RELATIVE
4345 @ 34793:            LINE   544 "regression-compile-tmp/gens400.imp"
4346 @ 34831:            PUSH   K
4347 @ 34834:            PUSHI  #0x00000010
4348 @ 34839:            PUSHI  #0x00000400
4349 @ 34844:            MUL   
4350 @ 34845:            JUMPIF < L_0014
4351 @ 34849:            PUSHI  #0x00000010
4352 @ 34854:            PUSHI  #0x00000400
4353 @ 34859:            MUL   
4354 @ 34860:            NEGATE
4355 @ 34861:            PUSH   K
4356 @ 34864:            PUSH   R
4357 @ 34867:            SELECT 2
4358 @ 34870:            PUSHI  #0x00000004
4359 @ 34875:            ADD   
4360 @ 34876:            SUB   
4361 @ 34877:            JUMPIFD > L_0013
4362 @ 34881:            PUSHI  #0x00000010
4363 @ 34886:            PUSHI  #0x00000400
4364 @ 34891:            MUL   
4365 @ 34892:            JUMPIF >= L_0013
4366 @ 34896:            LOCATE L_0014

   546                    EXTRA = 2;  R_LAB = R_LAB!LONG;  ! SHORT -> LONG
4367 @ 34899:            LINE   546 "regression-compile-tmp/gens400.imp"
4368 @ 34937:            PUSH   EXTRA
4369 @ 34940:            PUSHI  #0x00000002
4370 @ 34945:            ASSVAL
4371 @ 34946:            LINE   546 "regression-compile-tmp/gens400.imp"
4372 @ 34984:            PUSH   R
4373 @ 34987:            SELECT 1
4374 @ 34990:            PUSH   R
4375 @ 34993:            SELECT 1
4376 @ 34996:            PUSHI  #0x00800000
4377 @ 35001:            OR    
4378 @ 35002:            ASSVAL

   547                 %ELSE
   548                 ! 48 BIT FORM REQ'D:  BASE+DISP
4379 @ 35003:            LINE   547 "regression-compile-tmp/gens400.imp"
4380 @ 35041:            GOTO   L_0012
4381 @ 35044:            LOCATE L_0013

   549                    EXTRA = 4;  R_LAB = R_LAB!VERY;  ! SHORT -> VERY
4382 @ 35047:            LINE   549 "regression-compile-tmp/gens400.imp"
4383 @ 35085:            PUSH   EXTRA
4384 @ 35088:            PUSHI  #0x00000004
4385 @ 35093:            ASSVAL
4386 @ 35094:            LINE   549 "regression-compile-tmp/gens400.imp"
4387 @ 35132:            PUSH   R
4388 @ 35135:            SELECT 1
4389 @ 35138:            PUSH   R
4390 @ 35141:            SELECT 1
4391 @ 35144:            PUSHI  #0x00080000
4392 @ 35149:            OR    
4393 @ 35150:            ASSVAL

   550                 %FINISH
4394 @ 35151:            LINE   550 "regression-compile-tmp/gens400.imp"
4395 @ 35189:            LOCATE L_0012

   551              %ELSE
4396 @ 35192:            LINE   551 "regression-compile-tmp/gens400.imp"
4397 @ 35230:            GOTO   L_000f
4398 @ 35233:            LOCATE L_0010

   552                 %UNLESS K<16*1024 %OR -16*1024<=K-(R_CA+4)<16*1024 %START
4399 @ 35236:            LINE   552 "regression-compile-tmp/gens400.imp"
4400 @ 35274:            PUSH   K
4401 @ 35277:            PUSHI  #0x00000010
4402 @ 35282:            PUSHI  #0x00000400
4403 @ 35287:            MUL   
4404 @ 35288:            JUMPIF < L_0013
4405 @ 35292:            PUSHI  #0x00000010
4406 @ 35297:            PUSHI  #0x00000400
4407 @ 35302:            MUL   
4408 @ 35303:            NEGATE
4409 @ 35304:            PUSH   K
4410 @ 35307:            PUSH   R
4411 @ 35310:            SELECT 2
4412 @ 35313:            PUSHI  #0x00000004
4413 @ 35318:            ADD   
4414 @ 35319:            SUB   
4415 @ 35320:            JUMPIFD > L_0014
4416 @ 35324:            PUSHI  #0x00000010
4417 @ 35329:            PUSHI  #0x00000400
4418 @ 35334:            MUL   
4419 @ 35335:            JUMPIF < L_0013
4420 @ 35339:            LOCATE L_0014

   553                    EXTRA = 2;  R_LAB = R_LAB!!(LONG!VERY); ! LONG -> VERY
4421 @ 35342:            LINE   553 "regression-compile-tmp/gens400.imp"
4422 @ 35380:            PUSH   EXTRA
4423 @ 35383:            PUSHI  #0x00000002
4424 @ 35388:            ASSVAL
4425 @ 35389:            LINE   553 "regression-compile-tmp/gens400.imp"
4426 @ 35427:            PUSH   R
4427 @ 35430:            SELECT 1
4428 @ 35433:            PUSH   R
4429 @ 35436:            SELECT 1
4430 @ 35439:            PUSHI  #0x00800000
4431 @ 35444:            PUSHI  #0x00080000
4432 @ 35449:            OR    
4433 @ 35450:            XOR   
4434 @ 35451:            ASSVAL

   554                 %FINISH
4435 @ 35452:            LINE   554 "regression-compile-tmp/gens400.imp"
4436 @ 35490:            LOCATE L_0013

   555              %FINISH
4437 @ 35493:            LINE   555 "regression-compile-tmp/gens400.imp"
4438 @ 35531:            LOCATE L_000f

   556              %CONTINUE %IF EXTRA = 0;  ! ...NO CHANGES REQ'D
4439 @ 35534:            LINE   556 "regression-compile-tmp/gens400.imp"
4440 @ 35572:            PUSH   EXTRA
4441 @ 35575:            PUSHI  #0x00000000
4442 @ 35580:            JUMPIF # L_0010
4443 @ 35584:            GOTO   L_000b
4444 @ 35587:            LOCATE L_0010

   557              FLAG = 1
   558              ! ADJUST PATCHES
4445 @ 35590:            LINE   557 "regression-compile-tmp/gens400.imp"
4446 @ 35628:            PUSH   FLAG
4447 @ 35631:            PUSHI  #0x00000001
4448 @ 35636:            ASSVAL

   559              %IF CP > 0 %START
4449 @ 35637:            LINE   559 "regression-compile-tmp/gens400.imp"
4450 @ 35675:            PUSH   CP
4451 @ 35678:            PUSHI  #0x00000000
4452 @ 35683:            JUMPIF <= L_0010

   560                 %CYCLE K = 1, 1, CP
4453 @ 35687:            LINE   560 "regression-compile-tmp/gens400.imp"
4454 @ 35725:            PUSH   K
4455 @ 35728:            PUSHI  #0x00000001
4456 @ 35733:            PUSH   CP
4457 @ 35736:            PUSHI  #0x00000001
4458 @ 35741:            FOR    L_0012

   561                    PAT == PATCH(K)
4459 @ 35744:            LINE   561 "regression-compile-tmp/gens400.imp"
4460 @ 35782:            PUSH   PAT
4461 @ 35785:            PUSH   PATCH
4462 @ 35788:            PUSH   K
4463 @ 35791:            ACCESS
4464 @ 35792:            ASSREF

   562                    PAT_WHERE = PAT_WHERE+EXTRA %IF PAT_WHERE > R_CA
4465 @ 35793:            LINE   562 "regression-compile-tmp/gens400.imp"
4466 @ 35831:            PUSH   PAT
4467 @ 35834:            SELECT 2
4468 @ 35837:            PUSH   R
4469 @ 35840:            SELECT 2
4470 @ 35843:            JUMPIF <= L_0016
4471 @ 35847:            PUSH   PAT
4472 @ 35850:            SELECT 2
4473 @ 35853:            PUSH   PAT
4474 @ 35856:            SELECT 2
4475 @ 35859:            PUSH   EXTRA
4476 @ 35862:            ADD   
4477 @ 35863:            ASSVAL
4478 @ 35864:            LOCATE L_0016

   563                 %REPEAT
4479 @ 35867:            LINE   563 "regression-compile-tmp/gens400.imp"
4480 @ 35905:            REPEAT L_0012
4481 @ 35908:            LOCATE L_0013

   564              %FINISH
4482 @ 35911:            LINE   564 "regression-compile-tmp/gens400.imp"
4483 @ 35949:            LOCATE L_0010

   565              %IF GP <= MAX PATCH %START
4484 @ 35952:            LINE   565 "regression-compile-tmp/gens400.imp"
4485 @ 35990:            PUSH   GP
4486 @ 35993:            PUSHI  #0x000001c2
4487 @ 35998:            JUMPIF > L_0010

   566                 %CYCLE K = GP, 1, MAX PATCH
4488 @ 36002:            LINE   566 "regression-compile-tmp/gens400.imp"
4489 @ 36040:            PUSH   K
4490 @ 36043:            PUSHI  #0x00000001
4491 @ 36048:            PUSHI  #0x000001c2
4492 @ 36053:            PUSH   GP
4493 @ 36056:            FOR    L_0012

   567                    PAT == PATCH(K)
4494 @ 36059:            LINE   567 "regression-compile-tmp/gens400.imp"
4495 @ 36097:            PUSH   PAT
4496 @ 36100:            PUSH   PATCH
4497 @ 36103:            PUSH   K
4498 @ 36106:            ACCESS
4499 @ 36107:            ASSREF

   568                    PAT_WHAT = PAT_WHAT+EXTRA %IF PAT_WHAT > R_CA
4500 @ 36108:            LINE   568 "regression-compile-tmp/gens400.imp"
4501 @ 36146:            PUSH   PAT
4502 @ 36149:            SELECT 1
4503 @ 36152:            PUSH   R
4504 @ 36155:            SELECT 2
4505 @ 36158:            JUMPIF <= L_0016
4506 @ 36162:            PUSH   PAT
4507 @ 36165:            SELECT 1
4508 @ 36168:            PUSH   PAT
4509 @ 36171:            SELECT 1
4510 @ 36174:            PUSH   EXTRA
4511 @ 36177:            ADD   
4512 @ 36178:            ASSVAL
4513 @ 36179:            LOCATE L_0016

   569                 %REPEAT
4514 @ 36182:            LINE   569 "regression-compile-tmp/gens400.imp"
4515 @ 36220:            REPEAT L_0012
4516 @ 36223:            LOCATE L_0013

   570              %FINISH
   571              ! ADJUST REMAINING REFS
4517 @ 36226:            LINE   570 "regression-compile-tmp/gens400.imp"
4518 @ 36264:            LOCATE L_0010

   572              %CYCLE K = 1, 1, MAX LABEL
4519 @ 36267:            LINE   572 "regression-compile-tmp/gens400.imp"
4520 @ 36305:            PUSH   K
4521 @ 36308:            PUSHI  #0x00000001
4522 @ 36313:            PUSH   MAXLABEL
4523 @ 36316:            PUSHI  #0x00000001
4524 @ 36321:            FOR    L_000f

   573                 V == LAB(K)
4525 @ 36324:            LINE   573 "regression-compile-tmp/gens400.imp"
4526 @ 36362:            PUSH   V
4527 @ 36365:            PUSH   LAB
4528 @ 36368:            PUSH   K
4529 @ 36371:            ACCESS
4530 @ 36372:            ASSREF

   574                 V = V+EXTRA %IF V > R_CA
4531 @ 36373:            LINE   574 "regression-compile-tmp/gens400.imp"
4532 @ 36411:            PUSH   V
4533 @ 36414:            PUSH   R
4534 @ 36417:            SELECT 2
4535 @ 36420:            JUMPIF <= L_0013
4536 @ 36424:            PUSH   V
4537 @ 36427:            PUSH   V
4538 @ 36430:            PUSH   EXTRA
4539 @ 36433:            ADD   
4540 @ 36434:            ASSVAL
4541 @ 36435:            LOCATE L_0013

   575              %REPEAT
4542 @ 36438:            LINE   575 "regression-compile-tmp/gens400.imp"
4543 @ 36476:            REPEAT L_000f
4544 @ 36479:            LOCATE L_0010

   576              %CYCLE K = 1, 1, MAX PERM
4545 @ 36482:            LINE   576 "regression-compile-tmp/gens400.imp"
4546 @ 36520:            PUSH   K
4547 @ 36523:            PUSHI  #0x00000001
4548 @ 36528:            PUSHI  #0x00000036
4549 @ 36533:            PUSHI  #0x00000001
4550 @ 36538:            FOR    L_000f

   577                 PADDR(K) = PADDR(K)+EXTRA %IF PADDR(K) # 0
4551 @ 36541:            LINE   577 "regression-compile-tmp/gens400.imp"
4552 @ 36579:            PUSH   PADDR
4553 @ 36582:            PUSH   K
4554 @ 36585:            ACCESS
4555 @ 36586:            PUSHI  #0x00000000
4556 @ 36591:            JUMPIF = L_0013
4557 @ 36595:            PUSH   PADDR
4558 @ 36598:            PUSH   K
4559 @ 36601:            ACCESS
4560 @ 36602:            PUSH   PADDR
4561 @ 36605:            PUSH   K
4562 @ 36608:            ACCESS
4563 @ 36609:            PUSH   EXTRA
4564 @ 36612:            ADD   
4565 @ 36613:            ASSVAL
4566 @ 36614:            LOCATE L_0013

   578              %REPEAT
4567 @ 36617:            LINE   578 "regression-compile-tmp/gens400.imp"
4568 @ 36655:            REPEAT L_000f
4569 @ 36658:            LOCATE L_0010

   579              REF EXTRA = REF EXTRA+EXTRA
4570 @ 36661:            LINE   579 "regression-compile-tmp/gens400.imp"
4571 @ 36699:            PUSH   REFEXTRA
4572 @ 36702:            PUSH   REFEXTRA
4573 @ 36705:            PUSH   EXTRA
4574 @ 36708:            ADD   
4575 @ 36709:            ASSVAL

   580              CODE SIZE = CODE SIZE+EXTRA
4576 @ 36710:            LINE   580 "regression-compile-tmp/gens400.imp"
4577 @ 36748:            PUSH   CODESIZE
4578 @ 36751:            PUSH   CODESIZE
4579 @ 36754:            PUSH   EXTRA
4580 @ 36757:            ADD   
4581 @ 36758:            ASSVAL

   581           %FINISH
4582 @ 36759:            LINE   581 "regression-compile-tmp/gens400.imp"
4583 @ 36797:            LOCATE L_000d

   582        %REPEAT
4584 @ 36800:            LINE   582 "regression-compile-tmp/gens400.imp"
4585 @ 36838:            LOCATE L_000b
4586 @ 36841:            REPEAT L_0009
4587 @ 36844:            LOCATE L_000a

   583     %REPEAT %until flag = 0
4588 @ 36847:            LINE   583 "regression-compile-tmp/gens400.imp"
4589 @ 36885:            PUSH   FLAG
4590 @ 36888:            PUSHI  #0x00000000
4591 @ 36893:            JUMPIF = L_0007
4592 @ 36897:            REPEAT L_0006
4593 @ 36900:            LOCATE L_0007

   584     %FINISH
   585  !
   586  ! PHASE 3 - GENERATE OBJECT FILE
   587  !
4594 @ 36903:            LINE   584 "regression-compile-tmp/gens400.imp"
4595 @ 36941:            LOCATE L_0004

   588     PHASE = 3
4596 @ 36944:            LINE   588 "regression-compile-tmp/gens400.imp"
4597 @ 36982:            PUSH   PHASE
4598 @ 36985:            PUSHI  #0x00000003
4599 @ 36990:            ASSVAL

   589     J = MAX PATCH+1;  K = J
4600 @ 36991:            LINE   589 "regression-compile-tmp/gens400.imp"
4601 @ 37029:            PUSH   J
4602 @ 37032:            PUSHI  #0x000001c2
4603 @ 37037:            PUSHI  #0x00000001
4604 @ 37042:            ADD   
4605 @ 37043:            ASSVAL
4606 @ 37044:            LINE   589 "regression-compile-tmp/gens400.imp"
4607 @ 37082:            PUSH   K
4608 @ 37085:            PUSH   J
4609 @ 37088:            ASSVAL

   590     %WHILE J > GP %CYCLE
4610 @ 37089:            LINE   590 "regression-compile-tmp/gens400.imp"
4611 @ 37127:            LOCATE L_0003
4612 @ 37130:            PUSH   J
4613 @ 37133:            PUSH   GP
4614 @ 37136:            JUMPIF <= L_0004

   591        J = J-1
4615 @ 37140:            LINE   591 "regression-compile-tmp/gens400.imp"
4616 @ 37178:            PUSH   J
4617 @ 37181:            PUSH   J
4618 @ 37184:            PUSHI  #0x00000001
4619 @ 37189:            SUB   
4620 @ 37190:            ASSVAL

   592        PAT == PATCH(J)
4621 @ 37191:            LINE   592 "regression-compile-tmp/gens400.imp"
4622 @ 37229:            PUSH   PAT
4623 @ 37232:            PUSH   PATCH
4624 @ 37235:            PUSH   J
4625 @ 37238:            ACCESS
4626 @ 37239:            ASSREF

   593        %IF PAT_WHERE&1 # 0 %START
4627 @ 37240:            LINE   593 "regression-compile-tmp/gens400.imp"
4628 @ 37278:            PUSH   PAT
4629 @ 37281:            SELECT 2
4630 @ 37284:            PUSHI  #0x00000001
4631 @ 37289:            AND   
4632 @ 37290:            PUSHI  #0x00000000
4633 @ 37295:            JUMPIF = L_0007

   594           PAT_WHERE = PAT_WHERE&(\1)
4634 @ 37299:            LINE   594 "regression-compile-tmp/gens400.imp"
4635 @ 37337:            PUSH   PAT
4636 @ 37340:            SELECT 2
4637 @ 37343:            PUSH   PAT
4638 @ 37346:            SELECT 2
4639 @ 37349:            PUSHI  #0x00000001
4640 @ 37354:            NOT   
4641 @ 37355:            AND   
4642 @ 37356:            ASSVAL

   595           CP = CP+1;  PATCH(CP) = PAT
4643 @ 37357:            LINE   595 "regression-compile-tmp/gens400.imp"
4644 @ 37395:            PUSH   CP
4645 @ 37398:            PUSH   CP
4646 @ 37401:            PUSHI  #0x00000001
4647 @ 37406:            ADD   
4648 @ 37407:            ASSVAL
4649 @ 37408:            LINE   595 "regression-compile-tmp/gens400.imp"
4650 @ 37446:            PUSH   PATCH
4651 @ 37449:            PUSH   CP
4652 @ 37452:            ACCESS
4653 @ 37453:            PUSH   PAT
4654 @ 37456:            ASSVAL

   596        %ELSE
4655 @ 37457:            LINE   596 "regression-compile-tmp/gens400.imp"
4656 @ 37495:            GOTO   L_0006
4657 @ 37498:            LOCATE L_0007

   597           K = K-1;  PATCH(K) = PAT
4658 @ 37501:            LINE   597 "regression-compile-tmp/gens400.imp"
4659 @ 37539:            PUSH   K
4660 @ 37542:            PUSH   K
4661 @ 37545:            PUSHI  #0x00000001
4662 @ 37550:            SUB   
4663 @ 37551:            ASSVAL
4664 @ 37552:            LINE   597 "regression-compile-tmp/gens400.imp"
4665 @ 37590:            PUSH   PATCH
4666 @ 37593:            PUSH   K
4667 @ 37596:            ACCESS
4668 @ 37597:            PUSH   PAT
4669 @ 37600:            ASSVAL

   598        %FINISH
4670 @ 37601:            LINE   598 "regression-compile-tmp/gens400.imp"
4671 @ 37639:            LOCATE L_0006

   599     %REPEAT
4672 @ 37642:            LINE   599 "regression-compile-tmp/gens400.imp"
4673 @ 37680:            REPEAT L_0003
4674 @ 37683:            LOCATE L_0004

   600     GP = K
4675 @ 37686:            LINE   600 "regression-compile-tmp/gens400.imp"
4676 @ 37724:            PUSH   GP
4677 @ 37727:            PUSH   K
4678 @ 37730:            ASSVAL

   601     SORT(1, CP)
4679 @ 37731:            LINE   601 "regression-compile-tmp/gens400.imp"
4680 @ 37769:            PUSH   SORT
4681 @ 37772:            PUSHI  #0x00000001
4682 @ 37777:            ASSPAR
4683 @ 37778:            PUSH   CP
4684 @ 37781:            ASSPAR
4685 @ 37782:            CALL  

   602     SORT(GP, MAX PATCH)
   603  !
   604  !
4686 @ 37783:            LINE   602 "regression-compile-tmp/gens400.imp"
4687 @ 37821:            PUSH   SORT
4688 @ 37824:            PUSH   GP
4689 @ 37827:            ASSPAR
4690 @ 37828:            PUSHI  #0x000001c2
4691 @ 37833:            ASSPAR
4692 @ 37834:            CALL  

   605     SELECT OUTPUT(OBJECT);  PUT HALF(X'8282')
   606  !
   607  ! OUTPUT A CONTROL BLOCK GIVING CODE  AND GLA SEGMENT SIZES(IN
   608  ! HALF-WORDS).  OTHER PARAMETERS MAY BE ADDED AS REQ'D.
   609  !  USES 'GBUFF' AS WORKSPACE.
4693 @ 37835:            LINE   605 "regression-compile-tmp/gens400.imp"
4694 @ 37873:            PUSH   SELECTOUTPUT
4695 @ 37876:            PUSHI  #0x00000002
4696 @ 37881:            ASSPAR
4697 @ 37882:            CALL  
4698 @ 37883:            LINE   605 "regression-compile-tmp/gens400.imp"
4699 @ 37921:            PUSH   PUTHALF
4700 @ 37924:            PUSHI  #0x00008282
4701 @ 37929:            ASSPAR
4702 @ 37930:            CALL  

   610     GBUFF(1) = (CODE SIZE + 1)>>1
4703 @ 37931:            LINE   610 "regression-compile-tmp/gens400.imp"
4704 @ 37969:            PUSH   GBUFF
4705 @ 37972:            PUSHI  #0x00000001
4706 @ 37977:            ACCESS
4707 @ 37978:            PUSH   CODESIZE
4708 @ 37981:            PUSHI  #0x00000001
4709 @ 37986:            ADD   
4710 @ 37987:            PUSHI  #0x00000001
4711 @ 37992:            RSH   
4712 @ 37993:            ASSVAL

   611     GBUFF(2) = (GLA SIZE + 1)>>1
4713 @ 37994:            LINE   611 "regression-compile-tmp/gens400.imp"
4714 @ 38032:            PUSH   GBUFF
4715 @ 38035:            PUSHI  #0x00000002
4716 @ 38040:            ACCESS
4717 @ 38041:            PUSH   GLASIZE
4718 @ 38044:            PUSHI  #0x00000001
4719 @ 38049:            ADD   
4720 @ 38050:            PUSHI  #0x00000001
4721 @ 38055:            RSH   
4722 @ 38056:            ASSVAL

   612     GBUFF(3) = (DIAG SIZE+16)>>1;    ! ... +16 FOR EXTRA WORD AS TERMINATOR
4723 @ 38057:            LINE   612 "regression-compile-tmp/gens400.imp"
4724 @ 38095:            PUSH   GBUFF
4725 @ 38098:            PUSHI  #0x00000003
4726 @ 38103:            ACCESS
4727 @ 38104:            PUSH   DIAGSIZE
4728 @ 38107:            PUSHI  #0x00000010
4729 @ 38112:            ADD   
4730 @ 38113:            PUSHI  #0x00000001
4731 @ 38118:            RSH   
4732 @ 38119:            ASSVAL

   613     GBUFF(4) = (LINE SIZE+16)>>1
   614  ! -------REQUIRES LOADER DATA SIZE-----------
4733 @ 38120:            LINE   613 "regression-compile-tmp/gens400.imp"
4734 @ 38158:            PUSH   GBUFF
4735 @ 38161:            PUSHI  #0x00000004
4736 @ 38166:            ACCESS
4737 @ 38167:            PUSH   LINESIZE
4738 @ 38170:            PUSHI  #0x00000010
4739 @ 38175:            ADD   
4740 @ 38176:            PUSHI  #0x00000001
4741 @ 38181:            RSH   
4742 @ 38182:            ASSVAL

   615     PUT BLOCK((4<<4)!SEGMENT SIZE BLOCK,GBUFF)
   616  !
4743 @ 38183:            LINE   615 "regression-compile-tmp/gens400.imp"
4744 @ 38221:            PUSH   PUTBLOCK
4745 @ 38224:            PUSHI  #0x00000004
4746 @ 38229:            PUSHI  #0x00000004
4747 @ 38234:            LSH   
4748 @ 38235:            PUSHI  #0x0000000f
4749 @ 38240:            OR    
4750 @ 38241:            ASSPAR
4751 @ 38242:            PUSH   GBUFF
4752 @ 38245:            ASSPAR
4753 @ 38246:            CALL  

   617     SELECT INPUT(PSEUDO OBJ)
4754 @ 38247:            LINE   617 "regression-compile-tmp/gens400.imp"
4755 @ 38285:            PUSH   SELECTINPUT
4756 @ 38288:            PUSHI  #0x00000002
4757 @ 38293:            ASSPAR
4758 @ 38294:            CALL  

   618     CA = 0;  GA = INITGLA;  LA = 0;  DA = 0
4759 @ 38295:            LINE   618 "regression-compile-tmp/gens400.imp"
4760 @ 38333:            PUSH   CA
4761 @ 38336:            PUSHI  #0x00000000
4762 @ 38341:            ASSVAL
4763 @ 38342:            LINE   618 "regression-compile-tmp/gens400.imp"
4764 @ 38380:            PUSH   GA
4765 @ 38383:            PUSH   INITGLA
4766 @ 38386:            ASSVAL
4767 @ 38387:            LINE   618 "regression-compile-tmp/gens400.imp"
4768 @ 38425:            PUSH   LA
4769 @ 38428:            PUSHI  #0x00000000
4770 @ 38433:            ASSVAL
4771 @ 38434:            LINE   618 "regression-compile-tmp/gens400.imp"
4772 @ 38472:            PUSH   DA
4773 @ 38475:            PUSHI  #0x00000000
4774 @ 38480:            ASSVAL

   619     CURRENT LINE = 0;  CBP = 1;  CFLUSH
4775 @ 38481:            LINE   619 "regression-compile-tmp/gens400.imp"
4776 @ 38519:            PUSH   CURRENTLINE
4777 @ 38522:            PUSHI  #0x00000000
4778 @ 38527:            ASSVAL
4779 @ 38528:            LINE   619 "regression-compile-tmp/gens400.imp"
4780 @ 38566:            PUSH   CBP
4781 @ 38569:            PUSHI  #0x00000001
4782 @ 38574:            ASSVAL
4783 @ 38575:            LINE   619 "regression-compile-tmp/gens400.imp"
4784 @ 38613:            PUSH   CFLUSH
4785 @ 38616:            CALL  

   620     GBP = INIT GLA>>1;  LBP = 0;  DBP = 0;  TBP = 0
4786 @ 38617:            LINE   620 "regression-compile-tmp/gens400.imp"
4787 @ 38655:            PUSH   GBP
4788 @ 38658:            PUSH   INITGLA
4789 @ 38661:            PUSHI  #0x00000001
4790 @ 38666:            RSH   
4791 @ 38667:            ASSVAL
4792 @ 38668:            LINE   620 "regression-compile-tmp/gens400.imp"
4793 @ 38706:            PUSH   LBP
4794 @ 38709:            PUSHI  #0x00000000
4795 @ 38714:            ASSVAL
4796 @ 38715:            LINE   620 "regression-compile-tmp/gens400.imp"
4797 @ 38753:            PUSH   DBP
4798 @ 38756:            PUSHI  #0x00000000
4799 @ 38761:            ASSVAL
4800 @ 38762:            LINE   620 "regression-compile-tmp/gens400.imp"
4801 @ 38800:            PUSH   TBP
4802 @ 38803:            PUSHI  #0x00000000
4803 @ 38808:            ASSVAL

   621     NEXT CODE;  NEXT GLA
   622  
4804 @ 38809:            LINE   621 "regression-compile-tmp/gens400.imp"
4805 @ 38847:            PUSH   NEXTCODE
4806 @ 38850:            CALL  
4807 @ 38851:            LINE   621 "regression-compile-tmp/gens400.imp"
4808 @ 38889:            PUSH   NEXTGLA
4809 @ 38892:            CALL  

   623     READSYMBOL(CODE);! = 1
4810 @ 38893:            LINE   623 "regression-compile-tmp/gens400.imp"
4811 @ 38931:            PUSH   READSYMBOL
4812 @ 38934:            PUSH   CODE
4813 @ 38937:            ASSPAR
4814 @ 38938:            CALL  

   624     IGNORE = 0;  LAST = 0
4815 @ 38939:            LINE   624 "regression-compile-tmp/gens400.imp"
4816 @ 38977:            PUSH   IGNORE
4817 @ 38980:            PUSHI  #0x00000000
4818 @ 38985:            ASSVAL
4819 @ 38986:            LINE   624 "regression-compile-tmp/gens400.imp"
4820 @ 39024:            PUSH   LAST
4821 @ 39027:            PUSHI  #0x00000000
4822 @ 39032:            ASSVAL

   625     %CYCLE
4823 @ 39033:            LINE   625 "regression-compile-tmp/gens400.imp"
4824 @ 39071:            LOCATE L_0003

   626        READ SYMBOL(CODE);  -> C(CODE+IGNORE)
4825 @ 39074:            LINE   626 "regression-compile-tmp/gens400.imp"
4826 @ 39112:            PUSH   READSYMBOL
4827 @ 39115:            PUSH   CODE
4828 @ 39118:            ASSPAR
4829 @ 39119:            CALL  
4830 @ 39120:            LINE   626 "regression-compile-tmp/gens400.imp"
4831 @ 39158:            PUSH   CODE
4832 @ 39161:            PUSH   IGNORE
4833 @ 39164:            ADD   
4834 @ 39165:            SJUMP  180

   627  C(2):! CODE <VAL>
4835 @ 39168:            LINE   627 "regression-compile-tmp/gens400.imp"
4836 @ 39206:            PUSHI  #0x00000002
4837 @ 39211:            SLABEL 180

   628        GET(L)
4838 @ 39214:            LINE   628 "regression-compile-tmp/gens400.imp"
4839 @ 39252:            PUSH   GET
4840 @ 39255:            PUSH   L
4841 @ 39258:            ASSPAR
4842 @ 39259:            CALL  

   629        %IF CA = CADDR %START
4843 @ 39260:            LINE   629 "regression-compile-tmp/gens400.imp"
4844 @ 39298:            PUSH   CA
4845 @ 39301:            PUSH   CADDR
4846 @ 39304:            JUMPIF # L_0007

   630           %IF MODE # 0 %START;! CODE PATCH
4847 @ 39308:            LINE   630 "regression-compile-tmp/gens400.imp"
4848 @ 39346:            PUSH   MODE
4849 @ 39349:            PUSHI  #0x00000000
4850 @ 39354:            JUMPIF = L_000a

   631              CPUT(CVAL)
4851 @ 39358:            LINE   631 "regression-compile-tmp/gens400.imp"
4852 @ 39396:            PUSH   CPUT
4853 @ 39399:            PUSH   CVAL
4854 @ 39402:            ASSPAR
4855 @ 39403:            CALL  

   632           %ELSE;!  JUMP+PERM+RT
4856 @ 39404:            LINE   632 "regression-compile-tmp/gens400.imp"
4857 @ 39442:            GOTO   L_0009
4858 @ 39445:            LOCATE L_000a

   633              TAG = LAB(B_LAB&LABEL)
4859 @ 39448:            LINE   633 "regression-compile-tmp/gens400.imp"
4860 @ 39486:            PUSH   TAG
4861 @ 39489:            PUSH   LAB
4862 @ 39492:            PUSH   B
4863 @ 39495:            SELECT 1
4864 @ 39498:            PUSHI  #0x0000ffff
4865 @ 39503:            AND   
4866 @ 39504:            ACCESS
4867 @ 39505:            ASSVAL

   634              %IF B_LAB&(PERM!RT) = 0 %OR B_LAB&COND # 0 %START;! JUMP
4868 @ 39506:            LINE   634 "regression-compile-tmp/gens400.imp"
4869 @ 39544:            PUSH   B
4870 @ 39547:            SELECT 1
4871 @ 39550:            PUSHI  #0x00200000
4872 @ 39555:            PUSHI  #0x00100000
4873 @ 39560:            OR    
4874 @ 39561:            AND   
4875 @ 39562:            PUSHI  #0x00000000
4876 @ 39567:            JUMPIF = L_000e
4877 @ 39571:            PUSH   B
4878 @ 39574:            SELECT 1
4879 @ 39577:            PUSHI  #0x00400000
4880 @ 39582:            AND   
4881 @ 39583:            PUSHI  #0x00000000
4882 @ 39588:            JUMPIF = L_000d
4883 @ 39592:            LOCATE L_000e

   635                 %IF B_LAB&(PERM!RT) # 0 %START
4884 @ 39595:            LINE   635 "regression-compile-tmp/gens400.imp"
4885 @ 39633:            PUSH   B
4886 @ 39636:            SELECT 1
4887 @ 39639:            PUSHI  #0x00200000
4888 @ 39644:            PUSHI  #0x00100000
4889 @ 39649:            OR    
4890 @ 39650:            AND   
4891 @ 39651:            PUSHI  #0x00000000
4892 @ 39656:            JUMPIF = L_0010

   636                    %IF B_LAB&RT # 0 %START
4893 @ 39660:            LINE   636 "regression-compile-tmp/gens400.imp"
4894 @ 39698:            PUSH   B
4895 @ 39701:            SELECT 1
4896 @ 39704:            PUSHI  #0x00100000
4897 @ 39709:            AND   
4898 @ 39710:            PUSHI  #0x00000000
4899 @ 39715:            JUMPIF = L_0013

   637                       LAST = L %IF LAST = 0
4900 @ 39719:            LINE   637 "regression-compile-tmp/gens400.imp"
4901 @ 39757:            PUSH   LAST
4902 @ 39760:            PUSHI  #0x00000000
4903 @ 39765:            JUMPIF # L_0016
4904 @ 39769:            PUSH   LAST
4905 @ 39772:            PUSH   L
4906 @ 39775:            ASSVAL
4907 @ 39776:            LOCATE L_0016

   638                       LAST = NOT(LAST&15)!X'8000'
4908 @ 39779:            LINE   638 "regression-compile-tmp/gens400.imp"
4909 @ 39817:            PUSH   LAST
4910 @ 39820:            PUSH   NOT
4911 @ 39823:            PUSH   LAST
4912 @ 39826:            PUSHI  #0x0000000f
4913 @ 39831:            AND   
4914 @ 39832:            ACCESS
4915 @ 39833:            PUSHI  #0x00008000
4916 @ 39838:            OR    
4917 @ 39839:            ASSVAL

   639                       NEXT CODE
4918 @ 39840:            LINE   639 "regression-compile-tmp/gens400.imp"
4919 @ 39878:            PUSH   NEXTCODE
4920 @ 39881:            CALL  

   640                       %CONTINUE
4921 @ 39882:            LINE   640 "regression-compile-tmp/gens400.imp"
4922 @ 39920:            GOTO   L_0005

   641                    %FINISH
4923 @ 39923:            LINE   641 "regression-compile-tmp/gens400.imp"
4924 @ 39961:            LOCATE L_0013

   642                    L = LAST;  LAST = 0
4925 @ 39964:            LINE   642 "regression-compile-tmp/gens400.imp"
4926 @ 40002:            PUSH   L
4927 @ 40005:            PUSH   LAST
4928 @ 40008:            ASSVAL
4929 @ 40009:            LINE   642 "regression-compile-tmp/gens400.imp"
4930 @ 40047:            PUSH   LAST
4931 @ 40050:            PUSHI  #0x00000000
4932 @ 40055:            ASSVAL

   643                 %FINISH
4933 @ 40056:            LINE   643 "regression-compile-tmp/gens400.imp"
4934 @ 40094:            LOCATE L_0010

   644                 L = L&15
4935 @ 40097:            LINE   644 "regression-compile-tmp/gens400.imp"
4936 @ 40135:            PUSH   L
4937 @ 40138:            PUSH   L
4938 @ 40141:            PUSHI  #0x0000000f
4939 @ 40146:            AND   
4940 @ 40147:            ASSVAL

   645                 %IF B_LAB&(LONG!VERY) = 0 %START;! LEAVE IT SHORT
4941 @ 40148:            LINE   645 "regression-compile-tmp/gens400.imp"
4942 @ 40186:            PUSH   B
4943 @ 40189:            SELECT 1
4944 @ 40192:            PUSHI  #0x00800000
4945 @ 40197:            PUSHI  #0x00080000
4946 @ 40202:            OR    
4947 @ 40203:            AND   
4948 @ 40204:            PUSHI  #0x00000000
4949 @ 40209:            JUMPIF # L_0010

   646                    J = (TAG-CA)//2
4950 @ 40213:            LINE   646 "regression-compile-tmp/gens400.imp"
4951 @ 40251:            PUSH   J
4952 @ 40254:            PUSH   TAG
4953 @ 40257:            PUSH   CA
4954 @ 40260:            SUB   
4955 @ 40261:            PUSHI  #0x00000002
4956 @ 40266:            QUOT  
4957 @ 40267:            ASSVAL

   647                    MONITOR(5) %UNLESS -15 <= J <= 15
4958 @ 40268:            LINE   647 "regression-compile-tmp/gens400.imp"
4959 @ 40306:            PUSHI  #0x0000000f
4960 @ 40311:            NEGATE
4961 @ 40312:            PUSH   J
4962 @ 40315:            JUMPIFD > L_0014
4963 @ 40319:            PUSHI  #0x0000000f
4964 @ 40324:            JUMPIF <= L_0013
4965 @ 40328:            LOCATE L_0014
4966 @ 40331:            PUSH   MONITOR
4967 @ 40334:            PUSHI  #0x00000005
4968 @ 40339:            ASSPAR
4969 @ 40340:            CALL  
4970 @ 40341:            LOCATE L_0013

   648                    %IF J < 0 %THEN CPUT(SB(L)-J) %C
   649                              %ELSE CPUT(SF(L)+J)
4971 @ 40344:            LINE   648 "regression-compile-tmp/gens400.imp"
4972 @ 40382:            PUSH   J
4973 @ 40385:            PUSHI  #0x00000000
4974 @ 40390:            JUMPIF >= L_0013
4975 @ 40394:            PUSH   CPUT
4976 @ 40397:            PUSH   SB
4977 @ 40400:            PUSH   L
4978 @ 40403:            ACCESS
4979 @ 40404:            PUSH   J
4980 @ 40407:            SUB   
4981 @ 40408:            ASSPAR
4982 @ 40409:            CALL  
4983 @ 40410:            GOTO   L_0012
4984 @ 40413:            LOCATE L_0013
4985 @ 40416:            PUSH   CPUT
4986 @ 40419:            PUSH   SF
4987 @ 40422:            PUSH   L
4988 @ 40425:            ACCESS
4989 @ 40426:            PUSH   J
4990 @ 40429:            ADD   
4991 @ 40430:            ASSPAR
4992 @ 40431:            CALL  
4993 @ 40432:            LOCATE L_0012

   650                    SJ = SJ+1
4994 @ 40435:            LINE   650 "regression-compile-tmp/gens400.imp"
4995 @ 40473:            PUSH   SJ
4996 @ 40476:            PUSH   SJ
4997 @ 40479:            PUSHI  #0x00000001
4998 @ 40484:            ADD   
4999 @ 40485:            ASSVAL

   651                 %ELSE;               ! MAKE IT LONG
5000 @ 40486:            LINE   651 "regression-compile-tmp/gens400.imp"
5001 @ 40524:            GOTO   L_000f
5002 @ 40527:            LOCATE L_0010

   652                    L = LJ(L);  PLANT LONG JUMP
5003 @ 40530:            LINE   652 "regression-compile-tmp/gens400.imp"
5004 @ 40568:            PUSH   L
5005 @ 40571:            PUSH   LJ
5006 @ 40574:            PUSH   L
5007 @ 40577:            ACCESS
5008 @ 40578:            ASSVAL
5009 @ 40579:            LINE   652 "regression-compile-tmp/gens400.imp"
5010 @ 40617:            PUSH   PLANTLONGJUMP
5011 @ 40620:            CALL  

   653                 %FINISH
5012 @ 40621:            LINE   653 "regression-compile-tmp/gens400.imp"
5013 @ 40659:            LOCATE L_000f

   654              %ELSE;! PERM OR ROUTINE
5014 @ 40662:            LINE   654 "regression-compile-tmp/gens400.imp"
5015 @ 40700:            GOTO   L_000c
5016 @ 40703:            LOCATE L_000d

   655                 DIAG LINE
5017 @ 40706:            LINE   655 "regression-compile-tmp/gens400.imp"
5018 @ 40744:            PUSH   DIAGLINE
5019 @ 40747:            CALL  

   656                 IGNORE = 5
5020 @ 40748:            LINE   656 "regression-compile-tmp/gens400.imp"
5021 @ 40786:            PUSH   IGNORE
5022 @ 40789:            PUSHI  #0x00000005
5023 @ 40794:            ASSVAL

   657                 TAG = PADDR(B_LAB&LABEL) %IF B_LAB&PERM # 0
5024 @ 40795:            LINE   657 "regression-compile-tmp/gens400.imp"
5025 @ 40833:            PUSH   B
5026 @ 40836:            SELECT 1
5027 @ 40839:            PUSHI  #0x00200000
5028 @ 40844:            AND   
5029 @ 40845:            PUSHI  #0x00000000
5030 @ 40850:            JUMPIF = L_0010
5031 @ 40854:            PUSH   TAG
5032 @ 40857:            PUSH   PADDR
5033 @ 40860:            PUSH   B
5034 @ 40863:            SELECT 1
5035 @ 40866:            PUSHI  #0x0000ffff
5036 @ 40871:            AND   
5037 @ 40872:            ACCESS
5038 @ 40873:            ASSVAL
5039 @ 40874:            LOCATE L_0010

   658                 PLANT LONG JUMP
5040 @ 40877:            LINE   658 "regression-compile-tmp/gens400.imp"
5041 @ 40915:            PUSH   PLANTLONGJUMP
5042 @ 40918:            CALL  

   659              %FINISH
5043 @ 40919:            LINE   659 "regression-compile-tmp/gens400.imp"
5044 @ 40957:            LOCATE L_000c

   660           %FINISH
5045 @ 40960:            LINE   660 "regression-compile-tmp/gens400.imp"
5046 @ 40998:            LOCATE L_0009

   661           NEXT CODE
5047 @ 41001:            LINE   661 "regression-compile-tmp/gens400.imp"
5048 @ 41039:            PUSH   NEXTCODE
5049 @ 41042:            CALL  

   662        %FINISH %ELSE CPUT(L)
5050 @ 41043:            LINE   662 "regression-compile-tmp/gens400.imp"
5051 @ 41081:            GOTO   L_0006
5052 @ 41084:            LOCATE L_0007
5053 @ 41087:            PUSH   CPUT
5054 @ 41090:            PUSH   L
5055 @ 41093:            ASSPAR
5056 @ 41094:            CALL  
5057 @ 41095:            LOCATE L_0006

   663        %CONTINUE
5058 @ 41098:            LINE   663 "regression-compile-tmp/gens400.imp"
5059 @ 41136:            GOTO   L_0005

   664  C(11):GET(J)
5060 @ 41139:            LINE   664 "regression-compile-tmp/gens400.imp"
5061 @ 41177:            PUSHI  #0x0000000b
5062 @ 41182:            SLABEL 180
5063 @ 41185:            LINE   664 "regression-compile-tmp/gens400.imp"
5064 @ 41223:            PUSH   GET
5065 @ 41226:            PUSH   J
5066 @ 41229:            ASSPAR
5067 @ 41230:            CALL  

   665        %IF J = X'FFFF' %START
5068 @ 41231:            LINE   665 "regression-compile-tmp/gens400.imp"
5069 @ 41269:            PUSH   J
5070 @ 41272:            PUSHI  #0x0000ffff
5071 @ 41277:            JUMPIF # L_0007

   666           GET(J)
5072 @ 41281:            LINE   666 "regression-compile-tmp/gens400.imp"
5073 @ 41319:            PUSH   GET
5074 @ 41322:            PUSH   J
5075 @ 41325:            ASSPAR
5076 @ 41326:            CALL  

   667           TPUT(X'4000');  TPUT(CA)
5077 @ 41327:            LINE   667 "regression-compile-tmp/gens400.imp"
5078 @ 41365:            PUSH   TPUT
5079 @ 41368:            PUSHI  #0x00004000
5080 @ 41373:            ASSPAR
5081 @ 41374:            CALL  
5082 @ 41375:            LINE   667 "regression-compile-tmp/gens400.imp"
5083 @ 41413:            PUSH   TPUT
5084 @ 41416:            PUSH   CA
5085 @ 41419:            ASSPAR
5086 @ 41420:            CALL  

   668           %CONTINUE
5087 @ 41421:            LINE   668 "regression-compile-tmp/gens400.imp"
5088 @ 41459:            GOTO   L_0005

   669        %FINISH
5089 @ 41462:            LINE   669 "regression-compile-tmp/gens400.imp"
5090 @ 41500:            LOCATE L_0007

   670        TPUT(J)
5091 @ 41503:            LINE   670 "regression-compile-tmp/gens400.imp"
5092 @ 41541:            PUSH   TPUT
5093 @ 41544:            PUSH   J
5094 @ 41547:            ASSPAR
5095 @ 41548:            CALL  

   671        GET(K)
5096 @ 41549:            LINE   671 "regression-compile-tmp/gens400.imp"
5097 @ 41587:            PUSH   GET
5098 @ 41590:            PUSH   K
5099 @ 41593:            ASSPAR
5100 @ 41594:            CALL  

   672        K = CA %IF J&X'8000' # 0
5101 @ 41595:            LINE   672 "regression-compile-tmp/gens400.imp"
5102 @ 41633:            PUSH   J
5103 @ 41636:            PUSHI  #0x00008000
5104 @ 41641:            AND   
5105 @ 41642:            PUSHI  #0x00000000
5106 @ 41647:            JUMPIF = L_0007
5107 @ 41651:            PUSH   K
5108 @ 41654:            PUSH   CA
5109 @ 41657:            ASSVAL
5110 @ 41658:            LOCATE L_0007

   673                 TPUT(K)
5111 @ 41661:            LINE   673 "regression-compile-tmp/gens400.imp"
5112 @ 41699:            PUSH   TPUT
5113 @ 41702:            PUSH   K
5114 @ 41705:            ASSPAR
5115 @ 41706:            CALL  

   674        GET(K);  TPUT(K)
5116 @ 41707:            LINE   674 "regression-compile-tmp/gens400.imp"
5117 @ 41745:            PUSH   GET
5118 @ 41748:            PUSH   K
5119 @ 41751:            ASSPAR
5120 @ 41752:            CALL  
5121 @ 41753:            LINE   674 "regression-compile-tmp/gens400.imp"
5122 @ 41791:            PUSH   TPUT
5123 @ 41794:            PUSH   K
5124 @ 41797:            ASSPAR
5125 @ 41798:            CALL  

   675        GET(K);  TPUT(K)
5126 @ 41799:            LINE   675 "regression-compile-tmp/gens400.imp"
5127 @ 41837:            PUSH   GET
5128 @ 41840:            PUSH   K
5129 @ 41843:            ASSPAR
5130 @ 41844:            CALL  
5131 @ 41845:            LINE   675 "regression-compile-tmp/gens400.imp"
5132 @ 41883:            PUSH   TPUT
5133 @ 41886:            PUSH   K
5134 @ 41889:            ASSPAR
5135 @ 41890:            CALL  

   676        GET(K);  TPUT(K)
5136 @ 41891:            LINE   676 "regression-compile-tmp/gens400.imp"
5137 @ 41929:            PUSH   GET
5138 @ 41932:            PUSH   K
5139 @ 41935:            ASSPAR
5140 @ 41936:            CALL  
5141 @ 41937:            LINE   676 "regression-compile-tmp/gens400.imp"
5142 @ 41975:            PUSH   TPUT
5143 @ 41978:            PUSH   K
5144 @ 41981:            ASSPAR
5145 @ 41982:            CALL  

   677        GET(K);  TPUT(K)
5146 @ 41983:            LINE   677 "regression-compile-tmp/gens400.imp"
5147 @ 42021:            PUSH   GET
5148 @ 42024:            PUSH   K
5149 @ 42027:            ASSPAR
5150 @ 42028:            CALL  
5151 @ 42029:            LINE   677 "regression-compile-tmp/gens400.imp"
5152 @ 42067:            PUSH   TPUT
5153 @ 42070:            PUSH   K
5154 @ 42073:            ASSPAR
5155 @ 42074:            CALL  

   678        %CONTINUE
5156 @ 42075:            LINE   678 "regression-compile-tmp/gens400.imp"
5157 @ 42113:            GOTO   L_0005

   679  C(10): DIAG LINE;  %CONTINUE
5158 @ 42116:            LINE   679 "regression-compile-tmp/gens400.imp"
5159 @ 42154:            PUSHI  #0x0000000a
5160 @ 42159:            SLABEL 180
5161 @ 42162:            LINE   679 "regression-compile-tmp/gens400.imp"
5162 @ 42200:            PUSH   DIAGLINE
5163 @ 42203:            CALL  
5164 @ 42204:            LINE   679 "regression-compile-tmp/gens400.imp"
5165 @ 42242:            GOTO   L_0005

   680  C(4):
5166 @ 42245:            LINE   680 "regression-compile-tmp/gens400.imp"
5167 @ 42283:            PUSHI  #0x00000004
5168 @ 42288:            SLABEL 180

   681  C(9):CURRENT LINE = CURRENT LINE+1;  CFLUSH
5169 @ 42291:            LINE   681 "regression-compile-tmp/gens400.imp"
5170 @ 42329:            PUSHI  #0x00000009
5171 @ 42334:            SLABEL 180
5172 @ 42337:            LINE   681 "regression-compile-tmp/gens400.imp"
5173 @ 42375:            PUSH   CURRENTLINE
5174 @ 42378:            PUSH   CURRENTLINE
5175 @ 42381:            PUSHI  #0x00000001
5176 @ 42386:            ADD   
5177 @ 42387:            ASSVAL
5178 @ 42388:            LINE   681 "regression-compile-tmp/gens400.imp"
5179 @ 42426:            PUSH   CFLUSH
5180 @ 42429:            CALL  

   682       %CONTINUE;! LINE FLAG
5181 @ 42430:            LINE   682 "regression-compile-tmp/gens400.imp"
5182 @ 42468:            GOTO   L_0005

   683  C(7):IGNORE = 0;  GET(L);  %CONTINUE
5183 @ 42471:            LINE   683 "regression-compile-tmp/gens400.imp"
5184 @ 42509:            PUSHI  #0x00000007
5185 @ 42514:            SLABEL 180
5186 @ 42517:            LINE   683 "regression-compile-tmp/gens400.imp"
5187 @ 42555:            PUSH   IGNORE
5188 @ 42558:            PUSHI  #0x00000000
5189 @ 42563:            ASSVAL
5190 @ 42564:            LINE   683 "regression-compile-tmp/gens400.imp"
5191 @ 42602:            PUSH   GET
5192 @ 42605:            PUSH   L
5193 @ 42608:            ASSPAR
5194 @ 42609:            CALL  
5195 @ 42610:            LINE   683 "regression-compile-tmp/gens400.imp"
5196 @ 42648:            GOTO   L_0005

   684  C(6):L = NL
5197 @ 42651:            LINE   684 "regression-compile-tmp/gens400.imp"
5198 @ 42689:            PUSHI  #0x00000006
5199 @ 42694:            SLABEL 180
5200 @ 42697:            LINE   684 "regression-compile-tmp/gens400.imp"
5201 @ 42735:            PUSH   L
5202 @ 42738:            PUSHI  #0x0000000a
5203 @ 42743:            ASSVAL

   685       J = 0
5204 @ 42744:            LINE   685 "regression-compile-tmp/gens400.imp"
5205 @ 42782:            PUSH   J
5206 @ 42785:            PUSHI  #0x00000000
5207 @ 42790:            ASSVAL

   686       %CYCLE K = 1, 1, 9
5208 @ 42791:            LINE   686 "regression-compile-tmp/gens400.imp"
5209 @ 42829:            PUSH   K
5210 @ 42832:            PUSHI  #0x00000001
5211 @ 42837:            PUSHI  #0x00000009
5212 @ 42842:            PUSHI  #0x00000001
5213 @ 42847:            FOR    L_0006

   687          %IF L # 0 %START
5214 @ 42850:            LINE   687 "regression-compile-tmp/gens400.imp"
5215 @ 42888:            PUSH   L
5216 @ 42891:            PUSHI  #0x00000000
5217 @ 42896:            JUMPIF = L_000a

   688             READSYMBOL(L)
5218 @ 42900:            LINE   688 "regression-compile-tmp/gens400.imp"
5219 @ 42938:            PUSH   READSYMBOL
5220 @ 42941:            PUSH   L
5221 @ 42944:            ASSPAR
5222 @ 42945:            CALL  

   689             J = J+1;  LTEMP(J) = L
5223 @ 42946:            LINE   689 "regression-compile-tmp/gens400.imp"
5224 @ 42984:            PUSH   J
5225 @ 42987:            PUSH   J
5226 @ 42990:            PUSHI  #0x00000001
5227 @ 42995:            ADD   
5228 @ 42996:            ASSVAL
5229 @ 42997:            LINE   689 "regression-compile-tmp/gens400.imp"
5230 @ 43035:            PUSH   LTEMP
5231 @ 43038:            PUSH   J
5232 @ 43041:            ACCESS
5233 @ 43042:            PUSH   L
5234 @ 43045:            ASSVAL

   690          %FINISH
5235 @ 43046:            LINE   690 "regression-compile-tmp/gens400.imp"
5236 @ 43084:            LOCATE L_000a

   691       %REPEAT
5237 @ 43087:            LINE   691 "regression-compile-tmp/gens400.imp"
5238 @ 43125:            REPEAT L_0006
5239 @ 43128:            LOCATE L_0007

   692       READSYMBOL(L) %WHILE L # 0
5240 @ 43131:            LINE   692 "regression-compile-tmp/gens400.imp"
5241 @ 43169:            LOCATE L_0006
5242 @ 43172:            PUSH   L
5243 @ 43175:            PUSHI  #0x00000000
5244 @ 43180:            JUMPIF = L_0007
5245 @ 43184:            PUSH   READSYMBOL
5246 @ 43187:            PUSH   L
5247 @ 43190:            ASSPAR
5248 @ 43191:            CALL  
5249 @ 43192:            REPEAT L_0006
5250 @ 43195:            LOCATE L_0007

   693       J = J-1;  LTEMP(0) = J
5251 @ 43198:            LINE   693 "regression-compile-tmp/gens400.imp"
5252 @ 43236:            PUSH   J
5253 @ 43239:            PUSH   J
5254 @ 43242:            PUSHI  #0x00000001
5255 @ 43247:            SUB   
5256 @ 43248:            ASSVAL
5257 @ 43249:            LINE   693 "regression-compile-tmp/gens400.imp"
5258 @ 43287:            PUSH   LTEMP
5259 @ 43290:            PUSHI  #0x00000000
5260 @ 43295:            ACCESS
5261 @ 43296:            PUSH   J
5262 @ 43299:            ASSVAL

   694       LSYM(LTEMP(J)) %FOR J = 0, 1, 8
5263 @ 43300:            LINE   694 "regression-compile-tmp/gens400.imp"
5264 @ 43338:            PUSH   J
5265 @ 43341:            PUSHI  #0x00000001
5266 @ 43346:            PUSHI  #0x00000008
5267 @ 43351:            PUSHI  #0x00000000
5268 @ 43356:            FOR    L_0006
5269 @ 43359:            PUSH   LSYM
5270 @ 43362:            PUSH   LTEMP
5271 @ 43365:            PUSH   J
5272 @ 43368:            ACCESS
5273 @ 43369:            ASSPAR
5274 @ 43370:            CALL  
5275 @ 43371:            REPEAT L_0006
5276 @ 43374:            LOCATE L_0007

   695       GET(K);  READSYMBOL(L)
5277 @ 43377:            LINE   695 "regression-compile-tmp/gens400.imp"
5278 @ 43415:            PUSH   GET
5279 @ 43418:            PUSH   K
5280 @ 43421:            ASSPAR
5281 @ 43422:            CALL  
5282 @ 43423:            LINE   695 "regression-compile-tmp/gens400.imp"
5283 @ 43461:            PUSH   READSYMBOL
5284 @ 43464:            PUSH   L
5285 @ 43467:            ASSPAR
5286 @ 43468:            CALL  

   696       LSYM(L);  LPUT(K)
5287 @ 43469:            LINE   696 "regression-compile-tmp/gens400.imp"
5288 @ 43507:            PUSH   LSYM
5289 @ 43510:            PUSH   L
5290 @ 43513:            ASSPAR
5291 @ 43514:            CALL  
5292 @ 43515:            LINE   696 "regression-compile-tmp/gens400.imp"
5293 @ 43553:            PUSH   LPUT
5294 @ 43556:            PUSH   K
5295 @ 43559:            ASSPAR
5296 @ 43560:            CALL  

   697       %CONTINUE
5297 @ 43561:            LINE   697 "regression-compile-tmp/gens400.imp"
5298 @ 43599:            GOTO   L_0005

   698  C(8):
5299 @ 43602:            LINE   698 "regression-compile-tmp/gens400.imp"
5300 @ 43640:            PUSHI  #0x00000008
5301 @ 43645:            SLABEL 180

   699  C(3):! GLA <VAL>  -- SWITCH VECTOR ELEMENT
5302 @ 43648:            LINE   699 "regression-compile-tmp/gens400.imp"
5303 @ 43686:            PUSHI  #0x00000003
5304 @ 43691:            SLABEL 180

   700        GET(L)
5305 @ 43694:            LINE   700 "regression-compile-tmp/gens400.imp"
5306 @ 43732:            PUSH   GET
5307 @ 43735:            PUSH   L
5308 @ 43738:            ASSPAR
5309 @ 43739:            CALL  

   701        %IF GA = GADDR %START
5310 @ 43740:            LINE   701 "regression-compile-tmp/gens400.imp"
5311 @ 43778:            PUSH   GA
5312 @ 43781:            PUSH   GADDR
5313 @ 43784:            JUMPIF # L_0007

   702           L = GVAL
5314 @ 43788:            LINE   702 "regression-compile-tmp/gens400.imp"
5315 @ 43826:            PUSH   L
5316 @ 43829:            PUSH   GVAL
5317 @ 43832:            ASSVAL

   703           NEXT GLA
5318 @ 43833:            LINE   703 "regression-compile-tmp/gens400.imp"
5319 @ 43871:            PUSH   NEXTGLA
5320 @ 43874:            CALL  

   704        %FINISH
5321 @ 43875:            LINE   704 "regression-compile-tmp/gens400.imp"
5322 @ 43913:            LOCATE L_0007

   705        GPUT(L)
5323 @ 43916:            LINE   705 "regression-compile-tmp/gens400.imp"
5324 @ 43954:            PUSH   GPUT
5325 @ 43957:            PUSH   L
5326 @ 43960:            ASSPAR
5327 @ 43961:            CALL  

   706     %REPEAT
5328 @ 43962:            LINE   706 "regression-compile-tmp/gens400.imp"
5329 @ 44000:            LOCATE L_0005
5330 @ 44003:            REPEAT L_0003

   707  C(5):! END
5331 @ 44006:            LINE   707 "regression-compile-tmp/gens400.imp"
5332 @ 44044:            PUSHI  #0x00000005
5333 @ 44049:            SLABEL 180

   708     %CYCLE J = 1, 1, MAX PERM
5334 @ 44052:            LINE   708 "regression-compile-tmp/gens400.imp"
5335 @ 44090:            PUSH   J
5336 @ 44093:            PUSHI  #0x00000001
5337 @ 44098:            PUSHI  #0x00000036
5338 @ 44103:            PUSHI  #0x00000001
5339 @ 44108:            FOR    L_0003

   709        %IF PEP(J) # 0 %START
5340 @ 44111:            LINE   709 "regression-compile-tmp/gens400.imp"
5341 @ 44149:            PUSH   PEP
5342 @ 44152:            PUSH   J
5343 @ 44155:            ACCESS
5344 @ 44156:            PUSHI  #0x00000000
5345 @ 44161:            JUMPIF = L_0007

   710           K = PERMS(J);  MONITOR(6) %IF K = 0
5346 @ 44165:            LINE   710 "regression-compile-tmp/gens400.imp"
5347 @ 44203:            PUSH   K
5348 @ 44206:            PUSH   PERMS
5349 @ 44209:            PUSH   J
5350 @ 44212:            ACCESS
5351 @ 44213:            ASSVAL
5352 @ 44214:            LINE   710 "regression-compile-tmp/gens400.imp"
5353 @ 44252:            PUSH   K
5354 @ 44255:            PUSHI  #0x00000000
5355 @ 44260:            JUMPIF # L_000a
5356 @ 44264:            PUSH   MONITOR
5357 @ 44267:            PUSHI  #0x00000006
5358 @ 44272:            ASSPAR
5359 @ 44273:            CALL  
5360 @ 44274:            LOCATE L_000a

   711           L = PADDR(J)
5361 @ 44277:            LINE   711 "regression-compile-tmp/gens400.imp"
5362 @ 44315:            PUSH   L
5363 @ 44318:            PUSH   PADDR
5364 @ 44321:            PUSH   J
5365 @ 44324:            ACCESS
5366 @ 44325:            ASSVAL

   712           MONITOR(7) %IF CA # L
5367 @ 44326:            LINE   712 "regression-compile-tmp/gens400.imp"
5368 @ 44364:            PUSH   CA
5369 @ 44367:            PUSH   L
5370 @ 44370:            JUMPIF = L_000a
5371 @ 44374:            PUSH   MONITOR
5372 @ 44377:            PUSHI  #0x00000007
5373 @ 44382:            ASSPAR
5374 @ 44383:            CALL  
5375 @ 44384:            LOCATE L_000a

   713           CFLUSH %IF CBP+PERMS(K) > CODE BUFF SIZE
   714  {         %CYCLE L = K+1, 1, K+PERMS(K)      L is corrupted below!! }
5376 @ 44387:            LINE   713 "regression-compile-tmp/gens400.imp"
5377 @ 44425:            PUSH   CBP
5378 @ 44428:            PUSH   PERMS
5379 @ 44431:            PUSH   K
5380 @ 44434:            ACCESS
5381 @ 44435:            ADD   
5382 @ 44436:            PUSHI  #0x000000c8
5383 @ 44441:            JUMPIF <= L_000a
5384 @ 44445:            PUSH   CFLUSH
5385 @ 44448:            CALL  
5386 @ 44449:            LOCATE L_000a

   715           l = k;  z = k + perms(k)
5387 @ 44452:            LINE   715 "regression-compile-tmp/gens400.imp"
5388 @ 44490:            PUSH   L
5389 @ 44493:            PUSH   K
5390 @ 44496:            ASSVAL
5391 @ 44497:            LINE   715 "regression-compile-tmp/gens400.imp"
5392 @ 44535:            PUSH   Z
5393 @ 44538:            PUSH   K
5394 @ 44541:            PUSH   PERMS
5395 @ 44544:            PUSH   K
5396 @ 44547:            ACCESS
5397 @ 44548:            ADD   
5398 @ 44549:            ASSVAL

   716           %while l # z %cycle
5399 @ 44550:            LINE   716 "regression-compile-tmp/gens400.imp"
5400 @ 44588:            LOCATE L_0009
5401 @ 44591:            PUSH   L
5402 @ 44594:            PUSH   Z
5403 @ 44597:            JUMPIF = L_000a

   717              l = l+1
5404 @ 44601:            LINE   717 "regression-compile-tmp/gens400.imp"
5405 @ 44639:            PUSH   L
5406 @ 44642:            PUSH   L
5407 @ 44645:            PUSHI  #0x00000001
5408 @ 44650:            ADD   
5409 @ 44651:            ASSVAL

   718              TAG = PERMS(L)
5410 @ 44652:            LINE   718 "regression-compile-tmp/gens400.imp"
5411 @ 44690:            PUSH   TAG
5412 @ 44693:            PUSH   PERMS
5413 @ 44696:            PUSH   L
5414 @ 44699:            ACCESS
5415 @ 44700:            ASSVAL

   719              %IF TAG = EMARK %START
   720              !  USE PC RELATIVE UNCONDITIONAL BRANCH FOR INTERNAL
   721              !  LINKING BETWEEN PERM ROUTINES.
5416 @ 44701:            LINE   719 "regression-compile-tmp/gens400.imp"
5417 @ 44739:            PUSH   TAG
5418 @ 44742:            PUSHI  #0x00008888
5419 @ 44747:            JUMPIF # L_000d

   722                 CPUT(X'4300')
5420 @ 44751:            LINE   722 "regression-compile-tmp/gens400.imp"
5421 @ 44789:            PUSH   CPUT
5422 @ 44792:            PUSHI  #0x00004300
5423 @ 44797:            ASSPAR
5424 @ 44798:            CALL  

   723                 L = L+1;  CPUT((PADDR(PERMS(L))-CA-2)!X'8000')
5425 @ 44799:            LINE   723 "regression-compile-tmp/gens400.imp"
5426 @ 44837:            PUSH   L
5427 @ 44840:            PUSH   L
5428 @ 44843:            PUSHI  #0x00000001
5429 @ 44848:            ADD   
5430 @ 44849:            ASSVAL
5431 @ 44850:            LINE   723 "regression-compile-tmp/gens400.imp"
5432 @ 44888:            PUSH   CPUT
5433 @ 44891:            PUSH   PADDR
5434 @ 44894:            PUSH   PERMS
5435 @ 44897:            PUSH   L
5436 @ 44900:            ACCESS
5437 @ 44901:            ACCESS
5438 @ 44902:            PUSH   CA
5439 @ 44905:            SUB   
5440 @ 44906:            PUSHI  #0x00000002
5441 @ 44911:            SUB   
5442 @ 44912:            PUSHI  #0x00008000
5443 @ 44917:            OR    
5444 @ 44918:            ASSPAR
5445 @ 44919:            CALL  

   724              %ELSE
5446 @ 44920:            LINE   724 "regression-compile-tmp/gens400.imp"
5447 @ 44958:            GOTO   L_000c
5448 @ 44961:            LOCATE L_000d

   725                 CPUT(TAG)
5449 @ 44964:            LINE   725 "regression-compile-tmp/gens400.imp"
5450 @ 45002:            PUSH   CPUT
5451 @ 45005:            PUSH   TAG
5452 @ 45008:            ASSPAR
5453 @ 45009:            CALL  

   726              %FINISH
5454 @ 45010:            LINE   726 "regression-compile-tmp/gens400.imp"
5455 @ 45048:            LOCATE L_000c

   727           %REPEAT
5456 @ 45051:            LINE   727 "regression-compile-tmp/gens400.imp"
5457 @ 45089:            REPEAT L_0009
5458 @ 45092:            LOCATE L_000a

   728        %FINISH
5459 @ 45095:            LINE   728 "regression-compile-tmp/gens400.imp"
5460 @ 45133:            LOCATE L_0007

   729     %REPEAT
   730  !
5461 @ 45136:            LINE   729 "regression-compile-tmp/gens400.imp"
5462 @ 45174:            REPEAT L_0003
5463 @ 45177:            LOCATE L_0004

   731     CLOSE OBJECT FILE
   732  !
5464 @ 45180:            LINE   731 "regression-compile-tmp/gens400.imp"
5465 @ 45218:            PUSH   CLOSEOBJECTFILE
5466 @ 45221:            CALL  

   733     MONITOR(9) %UNLESS CADDR = NEVER
5467 @ 45222:            LINE   733 "regression-compile-tmp/gens400.imp"
5468 @ 45260:            PUSH   CADDR
5469 @ 45263:            PUSHI  #0x00007fff
5470 @ 45268:            JUMPIF = L_0004
5471 @ 45272:            PUSH   MONITOR
5472 @ 45275:            PUSHI  #0x00000009
5473 @ 45280:            ASSPAR
5474 @ 45281:            CALL  
5475 @ 45282:            LOCATE L_0004

   734     MONITOR(10) %UNLESS GADDR = NEVER
5476 @ 45285:            LINE   734 "regression-compile-tmp/gens400.imp"
5477 @ 45323:            PUSH   GADDR
5478 @ 45326:            PUSHI  #0x00007fff
5479 @ 45331:            JUMPIF = L_0004
5480 @ 45335:            PUSH   MONITOR
5481 @ 45338:            PUSHI  #0x0000000a
5482 @ 45343:            ASSPAR
5483 @ 45344:            CALL  
5484 @ 45345:            LOCATE L_0004

   735     SELECTOUTPUT(REPORT)
5485 @ 45348:            LINE   735 "regression-compile-tmp/gens400.imp"
5486 @ 45386:            PUSH   SELECTOUTPUT
5487 @ 45389:            PUSHI  #0x00000000
5488 @ 45394:            ASSPAR
5489 @ 45395:            CALL  

   736     DA = DA+DIAG SIZE
5490 @ 45396:            LINE   736 "regression-compile-tmp/gens400.imp"
5491 @ 45434:            PUSH   DA
5492 @ 45437:            PUSH   DA
5493 @ 45440:            PUSH   DIAGSIZE
5494 @ 45443:            ADD   
5495 @ 45444:            ASSVAL

   737     PRINTSTRING("CODE");  WRITE(CODE SIZE-PERM SIZE, 1)
5496 @ 45445:            LINE   737 "regression-compile-tmp/gens400.imp"
5497 @ 45483:            PUSH   PRINTSTRING
5498 @ 45486:            PUSHS  "CODE"
5499 @ 45492:            ASSPAR
5500 @ 45493:            CALL  
5501 @ 45494:            LINE   737 "regression-compile-tmp/gens400.imp"
5502 @ 45532:            PUSH   WRITE
5503 @ 45535:            PUSH   CODESIZE
5504 @ 45538:            PUSH   PERMSIZE
5505 @ 45541:            SUB   
5506 @ 45542:            ASSPAR
5507 @ 45543:            PUSHI  #0x00000001
5508 @ 45548:            ASSPAR
5509 @ 45549:            CALL  

   738     PRINTSTRING(" + GLA");  WRITE(GLA SIZE, 1)
5510 @ 45550:            LINE   738 "regression-compile-tmp/gens400.imp"
5511 @ 45588:            PUSH   PRINTSTRING
5512 @ 45591:            PUSHS  " + GLA"
5513 @ 45599:            ASSPAR
5514 @ 45600:            CALL  
5515 @ 45601:            LINE   738 "regression-compile-tmp/gens400.imp"
5516 @ 45639:            PUSH   WRITE
5517 @ 45642:            PUSH   GLASIZE
5518 @ 45645:            ASSPAR
5519 @ 45646:            PUSHI  #0x00000001
5520 @ 45651:            ASSPAR
5521 @ 45652:            CALL  

   739     PRINTSTRING(" + PERM");  WRITE(PERM SIZE, 1)
5522 @ 45653:            LINE   739 "regression-compile-tmp/gens400.imp"
5523 @ 45691:            PUSH   PRINTSTRING
5524 @ 45694:            PUSHS  " + PERM"
5525 @ 45703:            ASSPAR
5526 @ 45704:            CALL  
5527 @ 45705:            LINE   739 "regression-compile-tmp/gens400.imp"
5528 @ 45743:            PUSH   WRITE
5529 @ 45746:            PUSH   PERMSIZE
5530 @ 45749:            ASSPAR
5531 @ 45750:            PUSHI  #0x00000001
5532 @ 45755:            ASSPAR
5533 @ 45756:            CALL  

   740     PRINTSTRING(" + DIAGS");  WRITE(DA, 1)
5534 @ 45757:            LINE   740 "regression-compile-tmp/gens400.imp"
5535 @ 45795:            PUSH   PRINTSTRING
5536 @ 45798:            PUSHS  " + DIAGS"
5537 @ 45808:            ASSPAR
5538 @ 45809:            CALL  
5539 @ 45810:            LINE   740 "regression-compile-tmp/gens400.imp"
5540 @ 45848:            PUSH   WRITE
5541 @ 45851:            PUSH   DA
5542 @ 45854:            ASSPAR
5543 @ 45855:            PUSHI  #0x00000001
5544 @ 45860:            ASSPAR
5545 @ 45861:            CALL  

   741     PRINTSTRING(" =")
5546 @ 45862:            LINE   741 "regression-compile-tmp/gens400.imp"
5547 @ 45900:            PUSH   PRINTSTRING
5548 @ 45903:            PUSHS  " ="
5549 @ 45907:            ASSPAR
5550 @ 45908:            CALL  

   742     WRITE(CODE SIZE+GLA SIZE+DA, 1)
5551 @ 45909:            LINE   742 "regression-compile-tmp/gens400.imp"
5552 @ 45947:            PUSH   WRITE
5553 @ 45950:            PUSH   CODESIZE
5554 @ 45953:            PUSH   GLASIZE
5555 @ 45956:            ADD   
5556 @ 45957:            PUSH   DA
5557 @ 45960:            ADD   
5558 @ 45961:            ASSPAR
5559 @ 45962:            PUSHI  #0x00000001
5560 @ 45967:            ASSPAR
5561 @ 45968:            CALL  

   743     PRINTSTRING(" BYTES")
5562 @ 45969:            LINE   743 "regression-compile-tmp/gens400.imp"
5563 @ 46007:            PUSH   PRINTSTRING
5564 @ 46010:            PUSHS  " BYTES"
5565 @ 46018:            ASSPAR
5566 @ 46019:            CALL  

   744     NEWLINE
   745  
   746  
   747  !%ENDOFPROGRAM;     !**REMOVE FOR EXTRA MONITORING**
   748  
   749  ! ------TEMPORARY EXTRA MONITORING-------
5567 @ 46020:            LINE   744 "regression-compile-tmp/gens400.imp"
5568 @ 46058:            PUSH   NEWLINE
5569 @ 46061:            CALL  

   750     NEWLINE
5570 @ 46062:            LINE   750 "regression-compile-tmp/gens400.imp"
5571 @ 46100:            PUSH   NEWLINE
5572 @ 46103:            CALL  

   751     PRINT STRING("JUMPS:")
5573 @ 46104:            LINE   751 "regression-compile-tmp/gens400.imp"
5574 @ 46142:            PUSH   PRINTSTRING
5575 @ 46145:            PUSHS  "JUMPS:"
5576 @ 46153:            ASSPAR
5577 @ 46154:            CALL  

   752     WRITE(SJ,1);  PRINT STRING(" SHORT,")
5578 @ 46155:            LINE   752 "regression-compile-tmp/gens400.imp"
5579 @ 46193:            PUSH   WRITE
5580 @ 46196:            PUSH   SJ
5581 @ 46199:            ASSPAR
5582 @ 46200:            PUSHI  #0x00000001
5583 @ 46205:            ASSPAR
5584 @ 46206:            CALL  
5585 @ 46207:            LINE   752 "regression-compile-tmp/gens400.imp"
5586 @ 46245:            PUSH   PRINTSTRING
5587 @ 46248:            PUSHS  " SHORT,"
5588 @ 46257:            ASSPAR
5589 @ 46258:            CALL  

   753     WRITE(RX1,1); PRINT STRING(" RX1,")
5590 @ 46259:            LINE   753 "regression-compile-tmp/gens400.imp"
5591 @ 46297:            PUSH   WRITE
5592 @ 46300:            PUSH   RX1
5593 @ 46303:            ASSPAR
5594 @ 46304:            PUSHI  #0x00000001
5595 @ 46309:            ASSPAR
5596 @ 46310:            CALL  
5597 @ 46311:            LINE   753 "regression-compile-tmp/gens400.imp"
5598 @ 46349:            PUSH   PRINTSTRING
5599 @ 46352:            PUSHS  " RX1,"
5600 @ 46359:            ASSPAR
5601 @ 46360:            CALL  

   754     WRITE(RX2,1); PRINT STRING(" RX2,")
5602 @ 46361:            LINE   754 "regression-compile-tmp/gens400.imp"
5603 @ 46399:            PUSH   WRITE
5604 @ 46402:            PUSH   RX2
5605 @ 46405:            ASSPAR
5606 @ 46406:            PUSHI  #0x00000001
5607 @ 46411:            ASSPAR
5608 @ 46412:            CALL  
5609 @ 46413:            LINE   754 "regression-compile-tmp/gens400.imp"
5610 @ 46451:            PUSH   PRINTSTRING
5611 @ 46454:            PUSHS  " RX2,"
5612 @ 46461:            ASSPAR
5613 @ 46462:            CALL  

   755     WRITE(RX3,1); PRINT STRING(" RX3")
5614 @ 46463:            LINE   755 "regression-compile-tmp/gens400.imp"
5615 @ 46501:            PUSH   WRITE
5616 @ 46504:            PUSH   RX3
5617 @ 46507:            ASSPAR
5618 @ 46508:            PUSHI  #0x00000001
5619 @ 46513:            ASSPAR
5620 @ 46514:            CALL  
5621 @ 46515:            LINE   755 "regression-compile-tmp/gens400.imp"
5622 @ 46553:            PUSH   PRINTSTRING
5623 @ 46556:            PUSHS  " RX3"
5624 @ 46562:            ASSPAR
5625 @ 46563:            CALL  

   756     NEWLINE
5626 @ 46564:            LINE   756 "regression-compile-tmp/gens400.imp"
5627 @ 46602:            PUSH   NEWLINE
5628 @ 46605:            CALL  

   757     PRINT STRING("...INCLUDING")
5629 @ 46606:            LINE   757 "regression-compile-tmp/gens400.imp"
5630 @ 46644:            PUSH   PRINTSTRING
5631 @ 46647:            PUSHS  "...INCLUDING"
5632 @ 46661:            ASSPAR
5633 @ 46662:            CALL  

   758     WRITE(PERMCALLS,1); PRINT STRING(" PERMCALLS AND")
5634 @ 46663:            LINE   758 "regression-compile-tmp/gens400.imp"
5635 @ 46701:            PUSH   WRITE
5636 @ 46704:            PUSH   PERMCALLS
5637 @ 46707:            ASSPAR
5638 @ 46708:            PUSHI  #0x00000001
5639 @ 46713:            ASSPAR
5640 @ 46714:            CALL  
5641 @ 46715:            LINE   758 "regression-compile-tmp/gens400.imp"
5642 @ 46753:            PUSH   PRINTSTRING
5643 @ 46756:            PUSHS  " PERMCALLS AND"
5644 @ 46772:            ASSPAR
5645 @ 46773:            CALL  

   759     WRITE(RTNCALLS,1); PRINT STRING(" CALLS ON USER-DEFINED ROUTINES")
5646 @ 46774:            LINE   759 "regression-compile-tmp/gens400.imp"
5647 @ 46812:            PUSH   WRITE
5648 @ 46815:            PUSH   RTNCALLS
5649 @ 46818:            ASSPAR
5650 @ 46819:            PUSHI  #0x00000001
5651 @ 46824:            ASSPAR
5652 @ 46825:            CALL  
5653 @ 46826:            LINE   759 "regression-compile-tmp/gens400.imp"
5654 @ 46864:            PUSH   PRINTSTRING
5655 @ 46867:            PUSHS  " CALLS ON USER-DEFINED ROUTINES"
5656 @ 46900:            ASSPAR
5657 @ 46901:            CALL  

   760     NEWLINES(2)
5658 @ 46902:            LINE   760 "regression-compile-tmp/gens400.imp"
5659 @ 46940:            PUSH   NEWLINES
5660 @ 46943:            PUSHI  #0x00000002
5661 @ 46948:            ASSPAR
5662 @ 46949:            CALL  

   761  %ENDOFPROGRAM
   762  
5663 @ 46950:            LINE   761 "regression-compile-tmp/gens400.imp"
5664 @ 46988:         END    _lev0id0 {lev=1 --> 0}
5665 @ 46989:         END     {lev=0 --> -1}
5666 @ 46990: 

