
     1  
     2  !*   Title      :  XII 
     3  !*   Version    :  I
     4  !*   Date       :  29 June 1984
     5  !*   Description:  Tests the ability to raise events within a program
     6  !*                 both in the standard procedures etc and by the user.
     7  
     8  
     9  %Begin
503 @ 4405:         LINE   9 "regression-compile-tmp/EVENTS.imp"
504 @ 4442:         BEGIN  _lev0id0 {lev=0 --> 1}

    10     %Switch   Trap (0 : 15)
505 @ 4443:            LINE   10 "regression-compile-tmp/EVENTS.imp"
506 @ 4480:            PUSHI  #0x00000000
507 @ 4485:            PUSHI  #0x0000000f
508 @ 4490:            BOUNDS
509 @ 4491:            DEF    TRAP p1=V_0081 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

    11     %Integer  Sub
    12  
510 @ 4507:            LINE   11 "regression-compile-tmp/EVENTS.imp"
511 @ 4544:            DEF    SUB p1=V_0082 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

    13  %owninteger failures=0
    14  
512 @ 4559:            LINE   13 "regression-compile-tmp/EVENTS.imp"
513 @ 4596:            PUSHI  #0x00000000
514 @ 4601:            DEF    FAILURES p1=V_0083 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
515 @ 4621:            INIT   1

    15  %routine pass
516 @ 4624:            LINE   15 "regression-compile-tmp/EVENTS.imp"
517 @ 4661:            DEF    PASS (_lev0id0_PASS) p1=V_0084 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
518 @ 4677:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
519 @ 4678:               FINISH ) {lev=2}

    16    printstring("Pass: ")
520 @ 4679:               LINE   16 "regression-compile-tmp/EVENTS.imp"
521 @ 4716:               PUSH   PRINTSTRING
522 @ 4719:               PUSHS  "Pass: "
523 @ 4727:               ASSPAR
524 @ 4728:               CALL  

    17  %end
525 @ 4729:               LINE   17 "regression-compile-tmp/EVENTS.imp"
526 @ 4766:            END    _lev0id0_PASS {lev=2 --> 1}

    18  %routine fail
527 @ 4767:            LINE   18 "regression-compile-tmp/EVENTS.imp"
528 @ 4804:            DEF    FAIL (_lev0id0_FAIL) p1=V_0085 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
529 @ 4820:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
530 @ 4821:               FINISH ) {lev=2}

    19    printstring("FAIL: ")
531 @ 4822:               LINE   19 "regression-compile-tmp/EVENTS.imp"
532 @ 4859:               PUSH   PRINTSTRING
533 @ 4862:               PUSHS  "FAIL: "
534 @ 4870:               ASSPAR
535 @ 4871:               CALL  

    20    failures = failures+1
536 @ 4872:               LINE   20 "regression-compile-tmp/EVENTS.imp"
537 @ 4909:               PUSH   FAILURES
538 @ 4912:               PUSH   FAILURES
539 @ 4915:               PUSHI  #0x00000001
540 @ 4920:               ADD   
541 @ 4921:               ASSVAL

    21  %end
    22  
542 @ 4922:               LINE   21 "regression-compile-tmp/EVENTS.imp"
543 @ 4959:            END    _lev0id0_FAIL {lev=2 --> 1}

    23     %On %Event 0, 10, 13, 15 %Start
    24  
544 @ 4960:            LINE   23 "regression-compile-tmp/EVENTS.imp"
545 @ 4997:            ON     MASK=a401 L_0004

    25         Sub = Event_Sub {Event}
546 @ 5003:            LINE   25 "regression-compile-tmp/EVENTS.imp"
547 @ 5040:            PUSH   SUB
548 @ 5043:            PUSH   EVENT
549 @ 5046:            CALL  
550 @ 5047:            SELECT 2
551 @ 5050:            ASSVAL

    26         -> Trap (Event_Event)
    27   
552 @ 5051:            LINE   26 "regression-compile-tmp/EVENTS.imp"
553 @ 5088:            PUSH   EVENT
554 @ 5091:            CALL  
555 @ 5092:            SELECT 1
556 @ 5095:            SJUMP  129

    28         Trap(10):     { Trap an event raised inside a %On block
    29                       { Raised inside local routine 'Eventful'.
    30   
557 @ 5098:            LINE   28 "regression-compile-tmp/EVENTS.imp"
558 @ 5135:            PUSHI  #0x0000000a
559 @ 5140:            SLABEL 129

    31         %If Sub = 116 %c
    32             %then Print String ("Trapped an event inside an %ON block")  %c
    33             %else Print String ("Error in _Sub Event field for event 10")
560 @ 5143:            LINE   31 "regression-compile-tmp/EVENTS.imp"
561 @ 5180:            PUSH   SUB
562 @ 5183:            PUSHI  #0x00000074
563 @ 5188:            JUMPIF # L_0007
564 @ 5192:            PUSH   PRINTSTRING
565 @ 5195:            PUSHS  "Trapped an event inside an %ON block"
566 @ 5233:            ASSPAR
567 @ 5234:            CALL  
568 @ 5235:            GOTO   L_0006
569 @ 5238:            LOCATE L_0007
570 @ 5241:            PUSH   PRINTSTRING
571 @ 5244:            PUSHS  "Error in _Sub Event field for event 10"
572 @ 5284:            ASSPAR
573 @ 5285:            CALL  
574 @ 5286:            LOCATE L_0006

    34         New Line
575 @ 5289:            LINE   34 "regression-compile-tmp/EVENTS.imp"
576 @ 5326:            PUSH   NEWLINE
577 @ 5329:            CALL  

    35         -> Resume2
    36  
578 @ 5330:            LINE   35 "regression-compile-tmp/EVENTS.imp"
579 @ 5367:            JUMP   L_0086

    37         Trap(15):     { Trapping events inside routines.
    38   
580 @ 5370:            LINE   37 "regression-compile-tmp/EVENTS.imp"
581 @ 5407:            PUSHI  #0x0000000f
582 @ 5412:            SLABEL 129

    39         Print String ("Trapped event inside a ")
583 @ 5415:            LINE   39 "regression-compile-tmp/EVENTS.imp"
584 @ 5452:            PUSH   PRINTSTRING
585 @ 5455:            PUSHS  "Trapped event inside a "
586 @ 5480:            ASSPAR
587 @ 5481:            CALL  

    40         %If Sub = 115 %then %Start
588 @ 5482:            LINE   40 "regression-compile-tmp/EVENTS.imp"
589 @ 5519:            PUSH   SUB
590 @ 5522:            PUSHI  #0x00000073
591 @ 5527:            JUMPIF # L_0007

    41             Print String ("local routine.")
592 @ 5531:            LINE   41 "regression-compile-tmp/EVENTS.imp"
593 @ 5568:            PUSH   PRINTSTRING
594 @ 5571:            PUSHS  "local routine."
595 @ 5587:            ASSPAR
596 @ 5588:            CALL  

    42             New Line
597 @ 5589:            LINE   42 "regression-compile-tmp/EVENTS.imp"
598 @ 5626:            PUSH   NEWLINE
599 @ 5629:            CALL  

    43             %If Event_Info{Extra} = 20 %then pass %else fail
600 @ 5630:            LINE   43 "regression-compile-tmp/EVENTS.imp"
601 @ 5667:            PUSH   EVENT
602 @ 5670:            CALL  
603 @ 5671:            SELECT 3
604 @ 5674:            PUSHI  #0x00000014
605 @ 5679:            JUMPIF # L_000a
606 @ 5683:            PUSH   PASS
607 @ 5686:            CALL  
608 @ 5687:            GOTO   L_0009
609 @ 5690:            LOCATE L_000a
610 @ 5693:            PUSH   FAIL
611 @ 5696:            CALL  
612 @ 5697:            LOCATE L_0009

    44             Print String ("Event_Extra field correctly assigned.")
613 @ 5700:            LINE   44 "regression-compile-tmp/EVENTS.imp"
614 @ 5737:            PUSH   PRINTSTRING
615 @ 5740:            PUSHS  "Event_Extra field correctly assigned."
616 @ 5779:            ASSPAR
617 @ 5780:            CALL  

    45             New Line
618 @ 5781:            LINE   45 "regression-compile-tmp/EVENTS.imp"
619 @ 5818:            PUSH   NEWLINE
620 @ 5821:            CALL  

    46             -> Resume3
621 @ 5822:            LINE   46 "regression-compile-tmp/EVENTS.imp"
622 @ 5859:            JUMP   L_0087

    47         %Finish %else %if Sub = 118 %then %start
623 @ 5862:            LINE   47 "regression-compile-tmp/EVENTS.imp"
624 @ 5899:            LOCATE L_0007
625 @ 5902:            PUSH   SUB
626 @ 5905:            PUSHI  #0x00000076
627 @ 5910:            JUMPIF # L_0007

    48             Print String ("nested, deeply recursed routine.")
628 @ 5914:            LINE   48 "regression-compile-tmp/EVENTS.imp"
629 @ 5951:            PUSH   PRINTSTRING
630 @ 5954:            PUSHS  "nested, deeply recursed routine."
631 @ 5988:            ASSPAR
632 @ 5989:            CALL  

    49             New Line
633 @ 5990:            LINE   49 "regression-compile-tmp/EVENTS.imp"
634 @ 6027:            PUSH   NEWLINE
635 @ 6030:            CALL  

    50             -> Resume4
636 @ 6031:            LINE   50 "regression-compile-tmp/EVENTS.imp"
637 @ 6068:            JUMP   L_0088

    51         %Finish
    52  
638 @ 6071:            LINE   51 "regression-compile-tmp/EVENTS.imp"
639 @ 6108:            LOCATE L_0007

    53         TRAP(*):
640 @ 6111:            LINE   53 "regression-compile-tmp/EVENTS.imp"
641 @ 6148:            DEFSW  129

    54            Print String("FAIL: Unexpected event")
642 @ 6151:            LINE   54 "regression-compile-tmp/EVENTS.imp"
643 @ 6188:            PUSH   PRINTSTRING
644 @ 6191:            PUSHS  "FAIL: Unexpected event"
645 @ 6215:            ASSPAR
646 @ 6216:            CALL  

    55            write(event_event,1);  newline
647 @ 6217:            LINE   55 "regression-compile-tmp/EVENTS.imp"
648 @ 6254:            PUSH   WRITE
649 @ 6257:            PUSH   EVENT
650 @ 6260:            CALL  
651 @ 6261:            SELECT 1
652 @ 6264:            ASSPAR
653 @ 6265:            PUSHI  #0x00000001
654 @ 6270:            ASSPAR
655 @ 6271:            CALL  
656 @ 6272:            LINE   55 "regression-compile-tmp/EVENTS.imp"
657 @ 6309:            PUSH   NEWLINE
658 @ 6312:            CALL  

    56            %stop
659 @ 6313:            LINE   56 "regression-compile-tmp/EVENTS.imp"
660 @ 6350:            STOP  

    57      %Finish
    58  
    59  
661 @ 6351:            LINE   57 "regression-compile-tmp/EVENTS.imp"
662 @ 6388:            LOCATE L_0004

    60     %Routine  Test Standard Events
    61  
    62         !*  This routine forces the standard events to be raised to
    63         !*  test their validity.
    64  
663 @ 6391:            LINE   60 "regression-compile-tmp/EVENTS.imp"
664 @ 6428:            DEF    TESTSTANDARDEVENTS (_lev0id0_TESTSTANDARDEVENTS) p1=V_0089 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
665 @ 6458:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
666 @ 6459:               FINISH ) {lev=2}

    65         %Label   Catch
    66  
667 @ 6460:               LINE   65 "regression-compile-tmp/EVENTS.imp"
668 @ 6497:               DEF    CATCH p1=V_008a a/tf=3 b/format=0 c/ostate=8  type=0 (<type:0>) form=3 (label) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=0 unass=0

    67         %Integer J
669 @ 6514:               LINE   67 "regression-compile-tmp/EVENTS.imp"
670 @ 6551:               DEF    J p1=V_008b 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

    68         %Integer K
671 @ 6564:               LINE   68 "regression-compile-tmp/EVENTS.imp"
672 @ 6601:               DEF    K p1=V_008c 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

    69         %Integer C
673 @ 6614:               LINE   69 "regression-compile-tmp/EVENTS.imp"
674 @ 6651:               DEF    C p1=V_008d 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

    70         %Integer A
    71  
675 @ 6664:               LINE   70 "regression-compile-tmp/EVENTS.imp"
676 @ 6701:               DEF    A 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

    72         %Integer Start = 0
    73   
677 @ 6714:               LINE   72 "regression-compile-tmp/EVENTS.imp"
678 @ 6751:               DEF    START 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
679 @ 6768:               PUSH   START
680 @ 6771:               PUSHI  #0x00000000
681 @ 6776:               ASSVAL

    74         %Integer Zero = 0
682 @ 6777:               LINE   74 "regression-compile-tmp/EVENTS.imp"
683 @ 6814:               DEF    ZERO 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
684 @ 6830:               PUSH   ZERO
685 @ 6833:               PUSHI  #0x00000000
686 @ 6838:               ASSVAL

    75         %Integer Minus = -1
687 @ 6839:               LINE   75 "regression-compile-tmp/EVENTS.imp"
688 @ 6876:               DEF    MINUS 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
689 @ 6893:               PUSH   MINUS
690 @ 6896:               PUSHI  #0x00000001
691 @ 6901:               NEGATE
692 @ 6902:               ASSVAL

    76         %Integer Unassigned
    77  
693 @ 6903:               LINE   76 "regression-compile-tmp/EVENTS.imp"
694 @ 6940:               DEF    UNASSIGNED 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

    78         %String(255) S, T
    79  
695 @ 6962:               LINE   78 "regression-compile-tmp/EVENTS.imp"
696 @ 6999:               DEF    S p1=V_0093 a/tf=31 b/format=ff c/ostate=0  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
697 @ 7012:               DEF    T p1=V_0094 a/tf=31 b/format=ff c/ostate=0  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    80         %Switch  EN (0 : 100)    { Event Number = Event * 10 + Sub
    81  
    82  
698 @ 7025:               LINE   80 "regression-compile-tmp/EVENTS.imp"
699 @ 7062:               PUSHI  #0x00000000
700 @ 7067:               PUSHI  #0x00000064
701 @ 7072:               BOUNDS
702 @ 7073:               DEF    EN p1=V_0095 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

    83         %On %Event 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10  %Start
    84  
703 @ 7087:               LINE   83 "regression-compile-tmp/EVENTS.imp"
704 @ 7124:               ON     MASK=07ff L_0004

    85             Select Output ({1}0) %if K = 90   { Revert back to old stream.
    86  
705 @ 7130:               LINE   85 "regression-compile-tmp/EVENTS.imp"
706 @ 7167:               PUSH   K
707 @ 7170:               PUSHI  #0x0000005a
708 @ 7175:               JUMPIF # L_0007
709 @ 7179:               PUSH   SELECTOUTPUT
710 @ 7182:               PUSHI  #0x00000000
711 @ 7187:               ASSPAR
712 @ 7188:               CALL  
713 @ 7189:               LOCATE L_0007

    87             %If Event_Event = K // 10 %and Event_Sub {Event} = Rem (K, 10) %Start
714 @ 7192:               LINE   87 "regression-compile-tmp/EVENTS.imp"
715 @ 7229:               PUSH   EVENT
716 @ 7232:               CALL  
717 @ 7233:               SELECT 1
718 @ 7236:               PUSH   K
719 @ 7239:               PUSHI  #0x0000000a
720 @ 7244:               QUOT  
721 @ 7245:               JUMPIF # L_0007
722 @ 7249:               PUSH   EVENT
723 @ 7252:               CALL  
724 @ 7253:               SELECT 2
725 @ 7256:               PUSH   REM
726 @ 7259:               PUSH   K
727 @ 7262:               ASSPAR
728 @ 7263:               PUSHI  #0x0000000a
729 @ 7268:               ASSPAR
730 @ 7269:               CALL  
731 @ 7270:               JUMPIF # L_0007

    88                Print String ("Successfully trapped:  Event =")
732 @ 7274:               LINE   88 "regression-compile-tmp/EVENTS.imp"
733 @ 7311:               PUSH   PRINTSTRING
734 @ 7314:               PUSHS  "Successfully trapped:  Event ="
735 @ 7346:               ASSPAR
736 @ 7347:               CALL  

    89                Write (K // 10, 1)
737 @ 7348:               LINE   89 "regression-compile-tmp/EVENTS.imp"
738 @ 7385:               PUSH   WRITE
739 @ 7388:               PUSH   K
740 @ 7391:               PUSHI  #0x0000000a
741 @ 7396:               QUOT  
742 @ 7397:               ASSPAR
743 @ 7398:               PUSHI  #0x00000001
744 @ 7403:               ASSPAR
745 @ 7404:               CALL  

    90                Print String ("   Sub =")
746 @ 7405:               LINE   90 "regression-compile-tmp/EVENTS.imp"
747 @ 7442:               PUSH   PRINTSTRING
748 @ 7445:               PUSHS  "   Sub ="
749 @ 7455:               ASSPAR
750 @ 7456:               CALL  

    91                Write (Rem (K, 10), 1)
751 @ 7457:               LINE   91 "regression-compile-tmp/EVENTS.imp"
752 @ 7494:               PUSH   WRITE
753 @ 7497:               PUSH   REM
754 @ 7500:               PUSH   K
755 @ 7503:               ASSPAR
756 @ 7504:               PUSHI  #0x0000000a
757 @ 7509:               ASSPAR
758 @ 7510:               CALL  
759 @ 7511:               ASSPAR
760 @ 7512:               PUSHI  #0x00000001
761 @ 7517:               ASSPAR
762 @ 7518:               CALL  

    92                New Line
763 @ 7519:               LINE   92 "regression-compile-tmp/EVENTS.imp"
764 @ 7556:               PUSH   NEWLINE
765 @ 7559:               CALL  

    93             %finish %else %start
766 @ 7560:               LINE   93 "regression-compile-tmp/EVENTS.imp"
767 @ 7597:               GOTO   L_0006
768 @ 7600:               LOCATE L_0007

    94                Print String ("Should have trapped:  Event =")
769 @ 7603:               LINE   94 "regression-compile-tmp/EVENTS.imp"
770 @ 7640:               PUSH   PRINTSTRING
771 @ 7643:               PUSHS  "Should have trapped:  Event ="
772 @ 7674:               ASSPAR
773 @ 7675:               CALL  

    95                Write (K // 10, 1)
774 @ 7676:               LINE   95 "regression-compile-tmp/EVENTS.imp"
775 @ 7713:               PUSH   WRITE
776 @ 7716:               PUSH   K
777 @ 7719:               PUSHI  #0x0000000a
778 @ 7724:               QUOT  
779 @ 7725:               ASSPAR
780 @ 7726:               PUSHI  #0x00000001
781 @ 7731:               ASSPAR
782 @ 7732:               CALL  

    96                Print String ("   Sub =")
783 @ 7733:               LINE   96 "regression-compile-tmp/EVENTS.imp"
784 @ 7770:               PUSH   PRINTSTRING
785 @ 7773:               PUSHS  "   Sub ="
786 @ 7783:               ASSPAR
787 @ 7784:               CALL  

    97                Write (Rem (K, 10), 1)
788 @ 7785:               LINE   97 "regression-compile-tmp/EVENTS.imp"
789 @ 7822:               PUSH   WRITE
790 @ 7825:               PUSH   REM
791 @ 7828:               PUSH   K
792 @ 7831:               ASSPAR
793 @ 7832:               PUSHI  #0x0000000a
794 @ 7837:               ASSPAR
795 @ 7838:               CALL  
796 @ 7839:               ASSPAR
797 @ 7840:               PUSHI  #0x00000001
798 @ 7845:               ASSPAR
799 @ 7846:               CALL  

    98                New Line
800 @ 7847:               LINE   98 "regression-compile-tmp/EVENTS.imp"
801 @ 7884:               PUSH   NEWLINE
802 @ 7887:               CALL  

    99                Print String ("Instead trapped:  Event =")
803 @ 7888:               LINE   99 "regression-compile-tmp/EVENTS.imp"
804 @ 7925:               PUSH   PRINTSTRING
805 @ 7928:               PUSHS  "Instead trapped:  Event ="
806 @ 7955:               ASSPAR
807 @ 7956:               CALL  

   100                Write (Event_Event, 1)
808 @ 7957:               LINE   100 "regression-compile-tmp/EVENTS.imp"
809 @ 7994:               PUSH   WRITE
810 @ 7997:               PUSH   EVENT
811 @ 8000:               CALL  
812 @ 8001:               SELECT 1
813 @ 8004:               ASSPAR
814 @ 8005:               PUSHI  #0x00000001
815 @ 8010:               ASSPAR
816 @ 8011:               CALL  

   101                Print String ("   Sub =")
817 @ 8012:               LINE   101 "regression-compile-tmp/EVENTS.imp"
818 @ 8049:               PUSH   PRINTSTRING
819 @ 8052:               PUSHS  "   Sub ="
820 @ 8062:               ASSPAR
821 @ 8063:               CALL  

   102                Write (Event_Sub {Event}, 1)
822 @ 8064:               LINE   102 "regression-compile-tmp/EVENTS.imp"
823 @ 8101:               PUSH   WRITE
824 @ 8104:               PUSH   EVENT
825 @ 8107:               CALL  
826 @ 8108:               SELECT 2
827 @ 8111:               ASSPAR
828 @ 8112:               PUSHI  #0x00000001
829 @ 8117:               ASSPAR
830 @ 8118:               CALL  

   103                New Line
831 @ 8119:               LINE   103 "regression-compile-tmp/EVENTS.imp"
832 @ 8156:               PUSH   NEWLINE
833 @ 8159:               CALL  

   104            %Finish
834 @ 8160:               LINE   104 "regression-compile-tmp/EVENTS.imp"
835 @ 8197:               LOCATE L_0006

   105            Start = K + 1
   106  
836 @ 8200:               LINE   105 "regression-compile-tmp/EVENTS.imp"
837 @ 8237:               PUSH   START
838 @ 8240:               PUSH   K
839 @ 8243:               PUSHI  #0x00000001
840 @ 8248:               ADD   
841 @ 8249:               ASSVAL

   107         %Finish
   108  
   109  
842 @ 8250:               LINE   107 "regression-compile-tmp/EVENTS.imp"
843 @ 8287:               LOCATE L_0004

   110          %For K = Start, 1, 100 %cycle
   111          
844 @ 8290:               LINE   110 "regression-compile-tmp/EVENTS.imp"
845 @ 8327:               PUSH   K
846 @ 8330:               PUSHI  #0x00000001
847 @ 8335:               PUSHI  #0x00000064
848 @ 8340:               PUSH   START
849 @ 8343:               FOR    L_0003

   112  write(k,1);newline
850 @ 8346:               LINE   112 "regression-compile-tmp/EVENTS.imp"
851 @ 8383:               PUSH   WRITE
852 @ 8386:               PUSH   K
853 @ 8389:               ASSPAR
854 @ 8390:               PUSHI  #0x00000001
855 @ 8395:               ASSPAR
856 @ 8396:               CALL  
857 @ 8397:               LINE   112 "regression-compile-tmp/EVENTS.imp"
858 @ 8434:               PUSH   NEWLINE
859 @ 8437:               CALL  

   113             -> EN(K)
   114  
   115        
860 @ 8438:               LINE   113 "regression-compile-tmp/EVENTS.imp"
861 @ 8475:               PUSH   K
862 @ 8478:               SJUMP  149

   116             EN(0):   { Normal Termination by the %STOP Instruction.
   117  
863 @ 8481:               LINE   116 "regression-compile-tmp/EVENTS.imp"
864 @ 8518:               PUSHI  #0x00000000
865 @ 8523:               SLABEL 149

   118                      %Stop
866 @ 8526:               LINE   118 "regression-compile-tmp/EVENTS.imp"
867 @ 8563:               STOP  

   119                      -> Catch
   120  
   121  
   122  
868 @ 8564:               LINE   119 "regression-compile-tmp/EVENTS.imp"
869 @ 8601:               JUMP   L_008a

   123             EN(11):  { Integer Overflow
   124  
870 @ 8604:               LINE   123 "regression-compile-tmp/EVENTS.imp"
871 @ 8641:               PUSHI  #0x0000000b
872 @ 8646:               SLABEL 149

   125                      J = 2147483600       { Two to the power of 32.
873 @ 8649:               LINE   125 "regression-compile-tmp/EVENTS.imp"
874 @ 8686:               PUSH   J
875 @ 8689:               PUSHI  #0x7fffffd0
876 @ 8694:               ASSVAL

   126                      C = J * 3
877 @ 8695:               LINE   126 "regression-compile-tmp/EVENTS.imp"
878 @ 8732:               PUSH   C
879 @ 8735:               PUSH   J
880 @ 8738:               PUSHI  #0x00000003
881 @ 8743:               MUL   
882 @ 8744:               ASSVAL

   127                      -> Catch
   128  
   129  
   130  
883 @ 8745:               LINE   127 "regression-compile-tmp/EVENTS.imp"
884 @ 8782:               JUMP   L_008a

   131             EN(13):  { String Overflow.
   132  
885 @ 8785:               LINE   131 "regression-compile-tmp/EVENTS.imp"
886 @ 8822:               PUSHI  #0x0000000d
887 @ 8827:               SLABEL 149

   133                      S = "1234567890"
888 @ 8830:               LINE   133 "regression-compile-tmp/EVENTS.imp"
889 @ 8867:               PUSH   S
890 @ 8870:               PUSHS  "1234567890"
891 @ 8882:               ASSVAL

   134                      T = ""
892 @ 8883:               LINE   134 "regression-compile-tmp/EVENTS.imp"
893 @ 8920:               PUSH   T
894 @ 8923:               PUSHS  ""
895 @ 8925:               ASSVAL

   135                      T = T . S  %for J = 1, 1, 30
896 @ 8926:               LINE   135 "regression-compile-tmp/EVENTS.imp"
897 @ 8963:               PUSH   J
898 @ 8966:               PUSHI  #0x00000001
899 @ 8971:               PUSHI  #0x0000001e
900 @ 8976:               PUSHI  #0x00000001
901 @ 8981:               FOR    L_0006
902 @ 8984:               PUSH   T
903 @ 8987:               PUSH   T
904 @ 8990:               PUSH   S
905 @ 8993:               CONCAT
906 @ 8994:               ASSVAL
907 @ 8995:               REPEAT L_0006
908 @ 8998:               LOCATE L_0007

   136                      -> Catch
   137  
   138  
909 @ 9001:               LINE   136 "regression-compile-tmp/EVENTS.imp"
910 @ 9038:               JUMP   L_008a

   139             EN(14):  { Division by zero.
   140  
911 @ 9041:               LINE   139 "regression-compile-tmp/EVENTS.imp"
912 @ 9078:               PUSHI  #0x0000000e
913 @ 9083:               SLABEL 149

   141                      J = Minus // Zero
914 @ 9086:               LINE   141 "regression-compile-tmp/EVENTS.imp"
915 @ 9123:               PUSH   J
916 @ 9126:               PUSH   MINUS
917 @ 9129:               PUSH   ZERO
918 @ 9132:               QUOT  
919 @ 9133:               ASSVAL

   142                      -> Catch
   143  
   144  
   145   
920 @ 9134:               LINE   142 "regression-compile-tmp/EVENTS.imp"
921 @ 9171:               JUMP   L_008a

   146          EN(21):  { Store Space Exhausted
   147  
922 @ 9174:               LINE   146 "regression-compile-tmp/EVENTS.imp"
923 @ 9211:               PUSHI  #0x00000015
924 @ 9216:               SLABEL 149

   148                   %Begin
925 @ 9219:               LINE   148 "regression-compile-tmp/EVENTS.imp"
926 @ 9256:               BEGIN  _lev0id0_TESTSTANDARDEVENTS_lev2id1 {lev=2 --> 3}

   149                      %Integer %Array Temp (1 : 10000000)
   150  
927 @ 9257:                  LINE   149 "regression-compile-tmp/EVENTS.imp"
928 @ 9294:                  DEF    TEMP p1=V_0096 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
929 @ 9310:                  PUSHI  #0x00000001
930 @ 9315:                  PUSHI  #0x00989680
931 @ 9320:                  DIM    0001 0001

   151                      J = 10000000
932 @ 9326:                  LINE   151 "regression-compile-tmp/EVENTS.imp"
933 @ 9363:                  PUSH   J
934 @ 9366:                  PUSHI  #0x00989680
935 @ 9371:                  ASSVAL

   152                      Temp (J) = 1 
936 @ 9372:                  LINE   152 "regression-compile-tmp/EVENTS.imp"
937 @ 9409:                  PUSH   TEMP
938 @ 9412:                  PUSH   J
939 @ 9415:                  ACCESS
940 @ 9416:                  PUSHI  #0x00000001
941 @ 9421:                  ASSVAL

   153                    %End
942 @ 9422:                  LINE   153 "regression-compile-tmp/EVENTS.imp"
943 @ 9459:               END    _lev0id0_TESTSTANDARDEVENTS_lev2id1 {lev=3 --> 2}

   154                    -> Catch
   155  
   156  
   157          
944 @ 9460:               LINE   154 "regression-compile-tmp/EVENTS.imp"
945 @ 9497:               JUMP   L_008a

   158          EN(33):   { Failure to open a file.
   159  
946 @ 9500:               LINE   158 "regression-compile-tmp/EVENTS.imp"
947 @ 9537:               PUSHI  #0x00000021
948 @ 9542:               SLABEL 149

   160                    Open Input (2, "ZZZZZ.ZZZ")   { Non-existent?
949 @ 9545:               LINE   160 "regression-compile-tmp/EVENTS.imp"
950 @ 9582:               PUSH   OPENINPUT
951 @ 9585:               PUSHI  #0x00000002
952 @ 9590:               ASSPAR
953 @ 9591:               PUSHS  "ZZZZZ.ZZZ"
954 @ 9602:               ASSPAR
955 @ 9603:               CALL  

   161                    -> Catch
   162  
   163  
   164  
956 @ 9604:               LINE   161 "regression-compile-tmp/EVENTS.imp"
957 @ 9641:               JUMP   L_008a

   165          EN(41):   { Non-numeric char for numeric input.
   166  
958 @ 9644:               LINE   165 "regression-compile-tmp/EVENTS.imp"
959 @ 9681:               PUSHI  #0x00000029
960 @ 9686:               SLABEL 149

   167                    Open Input (2, "Char.dat")
961 @ 9689:               LINE   167 "regression-compile-tmp/EVENTS.imp"
962 @ 9726:               PUSH   OPENINPUT
963 @ 9729:               PUSHI  #0x00000002
964 @ 9734:               ASSPAR
965 @ 9735:               PUSHS  "Char.dat"
966 @ 9745:               ASSPAR
967 @ 9746:               CALL  

   168                    Select Input (2)
968 @ 9747:               LINE   168 "regression-compile-tmp/EVENTS.imp"
969 @ 9784:               PUSH   SELECTINPUT
970 @ 9787:               PUSHI  #0x00000002
971 @ 9792:               ASSPAR
972 @ 9793:               CALL  

   169                    Read (J)
973 @ 9794:               LINE   169 "regression-compile-tmp/EVENTS.imp"
974 @ 9831:               PUSH   READ
975 @ 9834:               PUSH   J
976 @ 9837:               ASSPAR
977 @ 9838:               CALL  

   170                    -> Catch
   171  
   172  
   173          
978 @ 9839:               LINE   170 "regression-compile-tmp/EVENTS.imp"
979 @ 9876:               JUMP   L_008a

   174          EN(51):   { Inconsistent combination of values for %For loop.
   175  
980 @ 9879:               LINE   174 "regression-compile-tmp/EVENTS.imp"
981 @ 9916:               PUSHI  #0x00000033
982 @ 9921:               SLABEL 149

   176                    J = 0
983 @ 9924:               LINE   176 "regression-compile-tmp/EVENTS.imp"
984 @ 9961:               PUSH   J
985 @ 9964:               PUSHI  #0x00000000
986 @ 9969:               ASSVAL

   177                    A = 0
987 @ 9970:               LINE   177 "regression-compile-tmp/EVENTS.imp"
988 @ 10007:               PUSH   A
989 @ 10010:               PUSHI  #0x00000000
990 @ 10015:               ASSVAL

   178                    %For C = 2, 1, J %cycle
991 @ 10016:               LINE   178 "regression-compile-tmp/EVENTS.imp"
992 @ 10053:               PUSH   C
993 @ 10056:               PUSHI  #0x00000001
994 @ 10061:               PUSH   J
995 @ 10064:               PUSHI  #0x00000002
996 @ 10069:               FOR    L_0006

   179                       A = A + 1 
997 @ 10072:               LINE   179 "regression-compile-tmp/EVENTS.imp"
998 @ 10109:               PUSH   A
999 @ 10112:               PUSH   A
1000 @ 10115:               PUSHI  #0x00000001
1001 @ 10120:               ADD   
1002 @ 10121:               ASSVAL

   180                       %Exit %if A = 10   { Break an infinite loop.
1003 @ 10122:               LINE   180 "regression-compile-tmp/EVENTS.imp"
1004 @ 10159:               PUSH   A
1005 @ 10162:               PUSHI  #0x0000000a
1006 @ 10167:               JUMPIF # L_000a
1007 @ 10171:               GOTO   L_0007
1008 @ 10174:               LOCATE L_000a

   181                    %Repeat
1009 @ 10177:               LINE   181 "regression-compile-tmp/EVENTS.imp"
1010 @ 10214:               REPEAT L_0006
1011 @ 10217:               LOCATE L_0007

   182                    -> Catch
   183  
   184  
   185  
   186  
1012 @ 10220:               LINE   182 "regression-compile-tmp/EVENTS.imp"
1013 @ 10257:               JUMP   L_008a

   187          EN(52):   { Illegal exponent for exponentiation.
   188  
1014 @ 10260:               LINE   187 "regression-compile-tmp/EVENTS.imp"
1015 @ 10297:               PUSHI  #0x00000034
1016 @ 10302:               SLABEL 149

   189                    J = -4
1017 @ 10305:               LINE   189 "regression-compile-tmp/EVENTS.imp"
1018 @ 10342:               PUSH   J
1019 @ 10345:               PUSHI  #0x00000004
1020 @ 10350:               NEGATE
1021 @ 10351:               ASSVAL

   190                    C = 2 ^^ J
1022 @ 10352:               LINE   190 "regression-compile-tmp/EVENTS.imp"
1023 @ 10389:               PUSH   C
1024 @ 10392:               PUSHI  #0x00000002
1025 @ 10397:               PUSH   J
1026 @ 10400:               IEXP  
1027 @ 10401:               ASSVAL

   191                    -> Catch
   192  
   193  
   194  
1028 @ 10402:               LINE   191 "regression-compile-tmp/EVENTS.imp"
1029 @ 10439:               JUMP   L_008a

   195          EN(53):   { Upper bound less than lower in array declaration.
   196  
1030 @ 10442:               LINE   195 "regression-compile-tmp/EVENTS.imp"
1031 @ 10479:               PUSHI  #0x00000035
1032 @ 10484:               SLABEL 149

   197                    J = 20
1033 @ 10487:               LINE   197 "regression-compile-tmp/EVENTS.imp"
1034 @ 10524:               PUSH   J
1035 @ 10527:               PUSHI  #0x00000014
1036 @ 10532:               ASSVAL

   198                    %Begin
1037 @ 10533:               LINE   198 "regression-compile-tmp/EVENTS.imp"
1038 @ 10570:               BEGIN  _lev0id0_TESTSTANDARDEVENTS_lev2id2 {lev=2 --> 3}

   199                       %Integer %Array  Temp (40 : J)
   200    
1039 @ 10571:                  LINE   199 "regression-compile-tmp/EVENTS.imp"
1040 @ 10608:                  DEF    TEMP p1=V_0096 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
1041 @ 10624:                  PUSHI  #0x00000028
1042 @ 10629:                  PUSH   J
1043 @ 10632:                  DIM    0001 0001

   201                       J = 35
1044 @ 10638:                  LINE   201 "regression-compile-tmp/EVENTS.imp"
1045 @ 10675:                  PUSH   J
1046 @ 10678:                  PUSHI  #0x00000023
1047 @ 10683:                  ASSVAL

   202                       Temp(J) = 10
1048 @ 10684:                  LINE   202 "regression-compile-tmp/EVENTS.imp"
1049 @ 10721:                  PUSH   TEMP
1050 @ 10724:                  PUSH   J
1051 @ 10727:                  ACCESS
1052 @ 10728:                  PUSHI  #0x0000000a
1053 @ 10733:                  ASSVAL

   203                    %End
1054 @ 10734:                  LINE   203 "regression-compile-tmp/EVENTS.imp"
1055 @ 10771:               END    _lev0id0_TESTSTANDARDEVENTS_lev2id2 {lev=3 --> 2}

   204                    -> Catch
   205  
   206  
   207  
1056 @ 10772:               LINE   204 "regression-compile-tmp/EVENTS.imp"
1057 @ 10809:               JUMP   L_008a

   208          EN(54):   { First index greater than second for SUB STRING.
   209  
1058 @ 10812:               LINE   208 "regression-compile-tmp/EVENTS.imp"
1059 @ 10849:               PUSHI  #0x00000036
1060 @ 10854:               SLABEL 149

   210                    S = "1234567890"
1061 @ 10857:               LINE   210 "regression-compile-tmp/EVENTS.imp"
1062 @ 10894:               PUSH   S
1063 @ 10897:               PUSHS  "1234567890"
1064 @ 10909:               ASSVAL

   211                    J = 20
1065 @ 10910:               LINE   211 "regression-compile-tmp/EVENTS.imp"
1066 @ 10947:               PUSH   J
1067 @ 10950:               PUSHI  #0x00000014
1068 @ 10955:               ASSVAL

   212                    S = Sub String (S, J, 5)
1069 @ 10956:               LINE   212 "regression-compile-tmp/EVENTS.imp"
1070 @ 10993:               PUSH   S
1071 @ 10996:               PUSH   SUBSTRING
1072 @ 10999:               PUSH   S
1073 @ 11002:               ASSPAR
1074 @ 11003:               PUSH   J
1075 @ 11006:               ASSPAR
1076 @ 11007:               PUSHI  #0x00000005
1077 @ 11012:               ASSPAR
1078 @ 11013:               CALL  
1079 @ 11014:               ASSVAL

   213                    -> Catch
   214  
   215  
   216  
1080 @ 11015:               LINE   213 "regression-compile-tmp/EVENTS.imp"
1081 @ 11052:               JUMP   L_008a

   217          EN(62):   { Array index out of bounds.
   218  
1082 @ 11055:               LINE   217 "regression-compile-tmp/EVENTS.imp"
1083 @ 11092:               PUSHI  #0x0000003e
1084 @ 11097:               SLABEL 149

   219                    J = 20
1085 @ 11100:               LINE   219 "regression-compile-tmp/EVENTS.imp"
1086 @ 11137:               PUSH   J
1087 @ 11140:               PUSHI  #0x00000014
1088 @ 11145:               ASSVAL

   220                    %Begin
1089 @ 11146:               LINE   220 "regression-compile-tmp/EVENTS.imp"
1090 @ 11183:               BEGIN  _lev0id0_TESTSTANDARDEVENTS_lev2id3 {lev=2 --> 3}

   221                       %Integer %Array  Temp (0 : J)
   222  
1091 @ 11184:                  LINE   221 "regression-compile-tmp/EVENTS.imp"
1092 @ 11221:                  DEF    TEMP p1=V_0096 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
1093 @ 11237:                  PUSHI  #0x00000000
1094 @ 11242:                  PUSH   J
1095 @ 11245:                  DIM    0001 0001

   223                       Temp (J + 5) = 29
1096 @ 11251:                  LINE   223 "regression-compile-tmp/EVENTS.imp"
1097 @ 11288:                  PUSH   TEMP
1098 @ 11291:                  PUSH   J
1099 @ 11294:                  PUSHI  #0x00000005
1100 @ 11299:                  ADD   
1101 @ 11300:                  ACCESS
1102 @ 11301:                  PUSHI  #0x0000001d
1103 @ 11306:                  ASSVAL

   224                    %End
1104 @ 11307:                  LINE   224 "regression-compile-tmp/EVENTS.imp"
1105 @ 11344:               END    _lev0id0_TESTSTANDARDEVENTS_lev2id3 {lev=3 --> 2}

   225                    -> Catch
   226  
   227  
   228  
   229  
   230  
1106 @ 11345:               LINE   225 "regression-compile-tmp/EVENTS.imp"
1107 @ 11382:               JUMP   L_008a

   231          EN(65):   { CHAR NO index out of range 1 to max string length.
   232  
1108 @ 11385:               LINE   231 "regression-compile-tmp/EVENTS.imp"
1109 @ 11422:               PUSHI  #0x00000041
1110 @ 11427:               SLABEL 149

   233                    S = "1234567890"
1111 @ 11430:               LINE   233 "regression-compile-tmp/EVENTS.imp"
1112 @ 11467:               PUSH   S
1113 @ 11470:               PUSHS  "1234567890"
1114 @ 11482:               ASSVAL

   234                    J = 20
1115 @ 11483:               LINE   234 "regression-compile-tmp/EVENTS.imp"
1116 @ 11520:               PUSH   J
1117 @ 11523:               PUSHI  #0x00000014
1118 @ 11528:               ASSVAL

   235                    C = Char No (S, J)
1119 @ 11529:               LINE   235 "regression-compile-tmp/EVENTS.imp"
1120 @ 11566:               PUSH   C
1121 @ 11569:               PUSH   CHARNO
1122 @ 11572:               PUSH   S
1123 @ 11575:               ASSPAR
1124 @ 11576:               PUSH   J
1125 @ 11579:               ASSPAR
1126 @ 11580:               CALL  
1127 @ 11581:               ASSVAL

   236                    -> Catch
   237  
   238  
   239  
1128 @ 11582:               LINE   236 "regression-compile-tmp/EVENTS.imp"
1129 @ 11619:               JUMP   L_008a

   240          EN(66):   { Value out of range for TO STRING.
   241  
1130 @ 11622:               LINE   240 "regression-compile-tmp/EVENTS.imp"
1131 @ 11659:               PUSHI  #0x00000042
1132 @ 11664:               SLABEL 149

   242                    S = To String (Minus)
1133 @ 11667:               LINE   242 "regression-compile-tmp/EVENTS.imp"
1134 @ 11704:               PUSH   S
1135 @ 11707:               PUSH   TOSTRING
1136 @ 11710:               PUSH   MINUS
1137 @ 11713:               ASSPAR
1138 @ 11714:               CALL  
1139 @ 11715:               ASSVAL

   243                    -> Catch
   244  
   245  
   246  
1140 @ 11716:               LINE   243 "regression-compile-tmp/EVENTS.imp"
1141 @ 11753:               JUMP   L_008a

   247          EN(67):   { Value out of range of OPEN and SELECT.
   248  
1142 @ 11756:               LINE   247 "regression-compile-tmp/EVENTS.imp"
1143 @ 11793:               PUSHI  #0x00000043
1144 @ 11798:               SLABEL 149

   249                    SELECT INPUT (20)
1145 @ 11801:               LINE   249 "regression-compile-tmp/EVENTS.imp"
1146 @ 11838:               PUSH   SELECTINPUT
1147 @ 11841:               PUSHI  #0x00000014
1148 @ 11846:               ASSPAR
1149 @ 11847:               CALL  

   250                    -> Catch
   251  
   252  
   253  
1150 @ 11848:               LINE   250 "regression-compile-tmp/EVENTS.imp"
1151 @ 11885:               JUMP   L_008a

   254          EN(70):   { String Resolution error.
   255  
1152 @ 11888:               LINE   254 "regression-compile-tmp/EVENTS.imp"
1153 @ 11925:               PUSHI  #0x00000046
1154 @ 11930:               SLABEL 149

   256                    S = "ABCD"
1155 @ 11933:               LINE   256 "regression-compile-tmp/EVENTS.imp"
1156 @ 11970:               PUSH   S
1157 @ 11973:               PUSHS  "ABCD"
1158 @ 11979:               ASSVAL

   257                    S -> S.("EFGH")
1159 @ 11980:               LINE   257 "regression-compile-tmp/EVENTS.imp"
1160 @ 12017:               PUSH   S
1161 @ 12020:               PUSH   S
1162 @ 12023:               PUSHS  "EFGH"
1163 @ 12029:               RESOLVE flags=0002

   258                    -> Catch
   259  
   260  
   261  
1164 @ 12032:               LINE   258 "regression-compile-tmp/EVENTS.imp"
1165 @ 12069:               JUMP   L_008a

   262          EN(81):   { Unassigned variable.
   263  
1166 @ 12072:               LINE   262 "regression-compile-tmp/EVENTS.imp"
1167 @ 12109:               PUSHI  #0x00000051
1168 @ 12114:               SLABEL 149

   264                    J = Unassigned
1169 @ 12117:               LINE   264 "regression-compile-tmp/EVENTS.imp"
1170 @ 12154:               PUSH   J
1171 @ 12157:               PUSH   UNASSIGNED
1172 @ 12160:               ASSVAL

   265                    -> Catch
   266  
   267  
   268  
1173 @ 12161:               LINE   265 "regression-compile-tmp/EVENTS.imp"
1174 @ 12198:               JUMP   L_008a

   269          EN(90):   { End of Input
   270  
1175 @ 12201:               LINE   269 "regression-compile-tmp/EVENTS.imp"
1176 @ 12238:               PUSHI  #0x0000005a
1177 @ 12243:               SLABEL 149

   271                    Open Output (2, "Null.dat")
1178 @ 12246:               LINE   271 "regression-compile-tmp/EVENTS.imp"
1179 @ 12283:               PUSH   OPENOUTPUT
1180 @ 12286:               PUSHI  #0x00000002
1181 @ 12291:               ASSPAR
1182 @ 12292:               PUSHS  "Null.dat"
1183 @ 12302:               ASSPAR
1184 @ 12303:               CALL  

   272                    Select Output (2)
1185 @ 12304:               LINE   272 "regression-compile-tmp/EVENTS.imp"
1186 @ 12341:               PUSH   SELECTOUTPUT
1187 @ 12344:               PUSHI  #0x00000002
1188 @ 12349:               ASSPAR
1189 @ 12350:               CALL  

   273                    Close Output
1190 @ 12351:               LINE   273 "regression-compile-tmp/EVENTS.imp"
1191 @ 12388:               PUSH   CLOSEOUTPUT
1192 @ 12391:               CALL  

   274                    Open Input (2, "Null.dat")
1193 @ 12392:               LINE   274 "regression-compile-tmp/EVENTS.imp"
1194 @ 12429:               PUSH   OPENINPUT
1195 @ 12432:               PUSHI  #0x00000002
1196 @ 12437:               ASSPAR
1197 @ 12438:               PUSHS  "Null.dat"
1198 @ 12448:               ASSPAR
1199 @ 12449:               CALL  

   275                    Select Input (2)
1200 @ 12450:               LINE   275 "regression-compile-tmp/EVENTS.imp"
1201 @ 12487:               PUSH   SELECTINPUT
1202 @ 12490:               PUSHI  #0x00000002
1203 @ 12495:               ASSPAR
1204 @ 12496:               CALL  

   276                    Read (J)
1205 @ 12497:               LINE   276 "regression-compile-tmp/EVENTS.imp"
1206 @ 12534:               PUSH   READ
1207 @ 12537:               PUSH   J
1208 @ 12540:               ASSPAR
1209 @ 12541:               CALL  

   277                    -> Catch
   278  
   279   
   280          
1210 @ 12542:               LINE   277 "regression-compile-tmp/EVENTS.imp"
1211 @ 12579:               JUMP   L_008a

   281             Catch:  Print String ("FAILED to trap:  Event =")
1212 @ 12582:               LINE   281 "regression-compile-tmp/EVENTS.imp"
1213 @ 12619:               LABEL  L_008a
1214 @ 12622:               LINE   281 "regression-compile-tmp/EVENTS.imp"
1215 @ 12659:               PUSH   PRINTSTRING
1216 @ 12662:               PUSHS  "FAILED to trap:  Event ="
1217 @ 12688:               ASSPAR
1218 @ 12689:               CALL  

   282                     Write (K // 10, 1)
1219 @ 12690:               LINE   282 "regression-compile-tmp/EVENTS.imp"
1220 @ 12727:               PUSH   WRITE
1221 @ 12730:               PUSH   K
1222 @ 12733:               PUSHI  #0x0000000a
1223 @ 12738:               QUOT  
1224 @ 12739:               ASSPAR
1225 @ 12740:               PUSHI  #0x00000001
1226 @ 12745:               ASSPAR
1227 @ 12746:               CALL  

   283                     Print String ("   Sub =")
1228 @ 12747:               LINE   283 "regression-compile-tmp/EVENTS.imp"
1229 @ 12784:               PUSH   PRINTSTRING
1230 @ 12787:               PUSHS  "   Sub ="
1231 @ 12797:               ASSPAR
1232 @ 12798:               CALL  

   284                     Write (Rem (K, 10), 1)
1233 @ 12799:               LINE   284 "regression-compile-tmp/EVENTS.imp"
1234 @ 12836:               PUSH   WRITE
1235 @ 12839:               PUSH   REM
1236 @ 12842:               PUSH   K
1237 @ 12845:               ASSPAR
1238 @ 12846:               PUSHI  #0x0000000a
1239 @ 12851:               ASSPAR
1240 @ 12852:               CALL  
1241 @ 12853:               ASSPAR
1242 @ 12854:               PUSHI  #0x00000001
1243 @ 12859:               ASSPAR
1244 @ 12860:               CALL  

   285                     New Line
   286  
   287   
1245 @ 12861:               LINE   285 "regression-compile-tmp/EVENTS.imp"
1246 @ 12898:               PUSH   NEWLINE
1247 @ 12901:               CALL  

   288             EN(*):
   289  
1248 @ 12902:               LINE   288 "regression-compile-tmp/EVENTS.imp"
1249 @ 12939:               DEFSW  149

   290          %Repeat
   291          
   292  
1250 @ 12942:               LINE   290 "regression-compile-tmp/EVENTS.imp"
1251 @ 12979:               REPEAT L_0003
1252 @ 12982:               LOCATE L_0004

   293      %End   { of Test Standard Events
   294          
   295  
   296  
1253 @ 12985:               LINE   293 "regression-compile-tmp/EVENTS.imp"
1254 @ 13022:            END    _lev0id0_TESTSTANDARDEVENTS {lev=2 --> 1}

   297     %Routine  Eventful (%Integer Trap)
   298  
   299         !*  Tests the trapping of events within a routine block.
   300         !*  Does the control fall through the bottom of the %On
   301         !*  block?  If a trap is not present will control be passed
   302         !*  to the parent block?
   303  
1255 @ 13023:            LINE   297 "regression-compile-tmp/EVENTS.imp"
1256 @ 13060:            DEF    EVENTFUL (_lev0id0_EVENTFUL) p1=V_008a 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
1257 @ 13080:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1258 @ 13081:                  DEF    TRAP p1=V_008b 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
1259 @ 13097:               FINISH ) {lev=2}

   304         %Integer E = 14
   305   
1260 @ 13098:               LINE   304 "regression-compile-tmp/EVENTS.imp"
1261 @ 13135:               DEF    E p1=V_008c 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
1262 @ 13148:               PUSH   E
1263 @ 13151:               PUSHI  #0x0000000e
1264 @ 13156:               ASSVAL

   306         %On %Event 14 %Start
1265 @ 13157:               LINE   306 "regression-compile-tmp/EVENTS.imp"
1266 @ 13194:               ON     MASK=4000 L_0004

   307            %Signal %Event 10, 116 %if E = 14 %and Trap = 1
1267 @ 13200:               LINE   307 "regression-compile-tmp/EVENTS.imp"
1268 @ 13237:               PUSH   E
1269 @ 13240:               PUSHI  #0x0000000e
1270 @ 13245:               JUMPIF # L_0007
1271 @ 13249:               PUSH   TRAP
1272 @ 13252:               PUSHI  #0x00000001
1273 @ 13257:               JUMPIF # L_0007
1274 @ 13261:               PUSHI  #0x00000074
1275 @ 13266:               EVENT  000a
1276 @ 13269:               LOCATE L_0007

   308            E = E + 1
1277 @ 13272:               LINE   308 "regression-compile-tmp/EVENTS.imp"
1278 @ 13309:               PUSH   E
1279 @ 13312:               PUSH   E
1280 @ 13315:               PUSHI  #0x00000001
1281 @ 13320:               ADD   
1282 @ 13321:               ASSVAL

   309         %Finish
   310  
1283 @ 13322:               LINE   309 "regression-compile-tmp/EVENTS.imp"
1284 @ 13359:               LOCATE L_0004

   311         %Signal %Event 14  %if E = 14       
1285 @ 13362:               LINE   311 "regression-compile-tmp/EVENTS.imp"
1286 @ 13399:               PUSH   E
1287 @ 13402:               PUSHI  #0x0000000e
1288 @ 13407:               JUMPIF # L_0004
1289 @ 13411:               EVENT  000e
1290 @ 13414:               LOCATE L_0004

   312         %Signal %Event 15, 115, 20        { Test the _Extra field.
   313  
1291 @ 13417:               LINE   312 "regression-compile-tmp/EVENTS.imp"
1292 @ 13454:               PUSHI  #0x00000073
1293 @ 13459:               PUSHI  #0x00000014
1294 @ 13464:               EVENT  000f

   314     %End  { of Eventful
   315  
   316  
   317  
   318  
   319  
   320     !*   The following set of routines test various aspects of 
   321     !*  procedures.  Firstly, it checks whether routines nested
   322     !*  to depth four can be handled.  Then it checks %Routine %Specs
   323     !*  and mutual recursion.  Finally, at a very deep recursion and
   324     !*  level of nesting, the signalling of an event.  This severe 
   325     !*  test checks the possibility of stack corruption and automatic
   326     !*  %Return from a great, complex depth.
   327  
   328  
1295 @ 13467:               LINE   314 "regression-compile-tmp/EVENTS.imp"
1296 @ 13504:            END    _lev0id0_EVENTFUL {lev=2 --> 1}

   329     %Routine %Spec  Inc (%Integer D)
   330  
   331  
1297 @ 13505:            LINE   329 "regression-compile-tmp/EVENTS.imp"
1298 @ 13542:            DEF    INC (_lev0id0_INC) p1=V_008b a/tf=7 b/format=0 c/ostate=8  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=1 indirect=0 unass=0
1299 @ 13557:            START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
1300 @ 13558:               DEF    D p1=V_008c 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
1301 @ 13571:            FINISH ) {lev=1}

   332     %Routine  Inc2 (%Integer D)
   333   
1302 @ 13572:            LINE   332 "regression-compile-tmp/EVENTS.imp"
1303 @ 13609:            DEF    INC2 (_lev0id0_INC2) p1=V_008c 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
1304 @ 13625:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1305 @ 13626:                  DEF    D p1=V_008d 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
1306 @ 13639:               FINISH ) {lev=2}

   334         %Routine  Inc3 (%Integer D)
   335  
1307 @ 13640:               LINE   334 "regression-compile-tmp/EVENTS.imp"
1308 @ 13677:               DEF    INC3 (_lev0id0_INC2_INC3) p1=V_008e 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
1309 @ 13693:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
1310 @ 13694:                     DEF    D 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
1311 @ 13707:                  FINISH ) {lev=3}

   336             %Routine  Inc4 (%Integer D)
   337    
1312 @ 13708:                  LINE   336 "regression-compile-tmp/EVENTS.imp"
1313 @ 13745:                  DEF    INC4 (_lev0id0_INC2_INC3_INC4) p1=V_0090 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
1314 @ 13761:                     START  ( FORMAL PARAMETERS  {lev=4 --> 5, nested=0 --> 1}
1315 @ 13762:                        DEF    D 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
1316 @ 13775:                     FINISH ) {lev=4}

   338                 %Routine  Inc5 (%Integer D)
   339  
1317 @ 13776:                     LINE   338 "regression-compile-tmp/EVENTS.imp"
1318 @ 13813:                     DEF    INC5 (_lev0id0_INC2_INC3_INC4_INC5) p1=V_0092 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
1319 @ 13829:                        START  ( FORMAL PARAMETERS  {lev=5 --> 6, nested=0 --> 1}
1320 @ 13830:                           DEF    D 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
1321 @ 13843:                        FINISH ) {lev=5}

   340                     %If D > 400 %then %Start
1322 @ 13844:                        LINE   340 "regression-compile-tmp/EVENTS.imp"
1323 @ 13881:                        PUSH   D
1324 @ 13884:                        PUSHI  #0x00000190
1325 @ 13889:                        JUMPIF <= L_0004

   341                        %Signal %Event 15, 118
1326 @ 13893:                        LINE   341 "regression-compile-tmp/EVENTS.imp"
1327 @ 13930:                        PUSHI  #0x00000076
1328 @ 13935:                        EVENT  000f

   342                        Print String ("FAIL: To raise a deep event.")
1329 @ 13938:                        LINE   342 "regression-compile-tmp/EVENTS.imp"
1330 @ 13975:                        PUSH   PRINTSTRING
1331 @ 13978:                        PUSHS  "FAIL: To raise a deep event."
1332 @ 14008:                        ASSPAR
1333 @ 14009:                        CALL  

   343                        New Line
1334 @ 14010:                        LINE   343 "regression-compile-tmp/EVENTS.imp"
1335 @ 14047:                        PUSH   NEWLINE
1336 @ 14050:                        CALL  

   344                        %Return
1337 @ 14051:                        LINE   344 "regression-compile-tmp/EVENTS.imp"
1338 @ 14088:                        RETURN

   345                     %Finish
1339 @ 14089:                        LINE   345 "regression-compile-tmp/EVENTS.imp"
1340 @ 14126:                        LOCATE L_0004

   346                     Inc (D+1)    { Mutual Recursion.
   347  
1341 @ 14129:                        LINE   346 "regression-compile-tmp/EVENTS.imp"
1342 @ 14166:                        PUSH   INC
1343 @ 14169:                        PUSH   D
1344 @ 14172:                        PUSHI  #0x00000001
1345 @ 14177:                        ADD   
1346 @ 14178:                        ASSPAR
1347 @ 14179:                        CALL  

   348                 %End  { of Inc5
   349  
1348 @ 14180:                        LINE   348 "regression-compile-tmp/EVENTS.imp"
1349 @ 14217:                     END    _lev0id0_INC2_INC3_INC4_INC5 {lev=5 --> 4}

   350                 Inc5 (D+1)
   351  
1350 @ 14218:                     LINE   350 "regression-compile-tmp/EVENTS.imp"
1351 @ 14255:                     PUSH   INC5
1352 @ 14258:                     PUSH   D
1353 @ 14261:                     PUSHI  #0x00000001
1354 @ 14266:                     ADD   
1355 @ 14267:                     ASSPAR
1356 @ 14268:                     CALL  

   352             %End  { of Inc4
   353  
1357 @ 14269:                     LINE   352 "regression-compile-tmp/EVENTS.imp"
1358 @ 14306:                  END    _lev0id0_INC2_INC3_INC4 {lev=4 --> 3}

   354             Inc4 (D+1)
   355  
1359 @ 14307:                  LINE   354 "regression-compile-tmp/EVENTS.imp"
1360 @ 14344:                  PUSH   INC4
1361 @ 14347:                  PUSH   D
1362 @ 14350:                  PUSHI  #0x00000001
1363 @ 14355:                  ADD   
1364 @ 14356:                  ASSPAR
1365 @ 14357:                  CALL  

   356         %End  { of Inc3
   357  
1366 @ 14358:                  LINE   356 "regression-compile-tmp/EVENTS.imp"
1367 @ 14395:               END    _lev0id0_INC2_INC3 {lev=3 --> 2}

   358         Inc3 (D+1)
   359  
1368 @ 14396:               LINE   358 "regression-compile-tmp/EVENTS.imp"
1369 @ 14433:               PUSH   INC3
1370 @ 14436:               PUSH   D
1371 @ 14439:               PUSHI  #0x00000001
1372 @ 14444:               ADD   
1373 @ 14445:               ASSPAR
1374 @ 14446:               CALL  

   360     %End  { of Inc2
   361                     
   362  
   363  
   364  
1375 @ 14447:               LINE   360 "regression-compile-tmp/EVENTS.imp"
1376 @ 14484:            END    _lev0id0_INC2 {lev=2 --> 1}

   365     %Routine  Inc (%Integer D)
   366   
1377 @ 14485:            LINE   365 "regression-compile-tmp/EVENTS.imp"
1378 @ 14522:            DEF    INC (_lev0id0_INC) p1=V_008b 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
1379 @ 14537:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1380 @ 14538:                  DEF    D p1=V_008d 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
1381 @ 14551:               FINISH ) {lev=2}

   367         Inc2 (D+1)
   368  
1382 @ 14552:               LINE   367 "regression-compile-tmp/EVENTS.imp"
1383 @ 14589:               PUSH   INC2
1384 @ 14592:               PUSH   D
1385 @ 14595:               PUSHI  #0x00000001
1386 @ 14600:               ADD   
1387 @ 14601:               ASSPAR
1388 @ 14602:               CALL  

   369     %End  { of Inc
   370  
   371  
   372  
1389 @ 14603:               LINE   369 "regression-compile-tmp/EVENTS.imp"
1390 @ 14640:            END    _lev0id0_INC {lev=2 --> 1}

   373     %if cliparam = "" %start
1391 @ 14641:            LINE   373 "regression-compile-tmp/EVENTS.imp"
1392 @ 14678:            PUSH   CLIPARAM
1393 @ 14681:            CALL  
1394 @ 14682:            PUSHS  ""
1395 @ 14684:            JUMPIF # L_0004

   374       Open Output (1, "/tmp/EVENTS.out")
1396 @ 14688:            LINE   374 "regression-compile-tmp/EVENTS.imp"
1397 @ 14725:            PUSH   OPENOUTPUT
1398 @ 14728:            PUSHI  #0x00000001
1399 @ 14733:            ASSPAR
1400 @ 14734:            PUSHS  "/tmp/EVENTS.out"
1401 @ 14751:            ASSPAR
1402 @ 14752:            CALL  

   375     %else
1403 @ 14753:            LINE   375 "regression-compile-tmp/EVENTS.imp"
1404 @ 14790:            GOTO   L_0003
1405 @ 14793:            LOCATE L_0004

   376       print string("Writing to ".cliparam); newline
1406 @ 14796:            LINE   376 "regression-compile-tmp/EVENTS.imp"
1407 @ 14833:            PUSH   PRINTSTRING
1408 @ 14836:            PUSHS  "Writing to "
1409 @ 14849:            PUSH   CLIPARAM
1410 @ 14852:            CALL  
1411 @ 14853:            CONCAT
1412 @ 14854:            ASSPAR
1413 @ 14855:            CALL  
1414 @ 14856:            LINE   376 "regression-compile-tmp/EVENTS.imp"
1415 @ 14893:            PUSH   NEWLINE
1416 @ 14896:            CALL  

   377       Open Output (1, cliparam)
1417 @ 14897:            LINE   377 "regression-compile-tmp/EVENTS.imp"
1418 @ 14934:            PUSH   OPENOUTPUT
1419 @ 14937:            PUSHI  #0x00000001
1420 @ 14942:            ASSPAR
1421 @ 14943:            PUSH   CLIPARAM
1422 @ 14946:            CALL  
1423 @ 14947:            ASSPAR
1424 @ 14948:            CALL  

   378     %finish
1425 @ 14949:            LINE   378 "regression-compile-tmp/EVENTS.imp"
1426 @ 14986:            LOCATE L_0003

   379     Select Output (1)
   380  
1427 @ 14989:            LINE   379 "regression-compile-tmp/EVENTS.imp"
1428 @ 15026:            PUSH   SELECTOUTPUT
1429 @ 15029:            PUSHI  #0x00000001
1430 @ 15034:            ASSPAR
1431 @ 15035:            CALL  

   381     New Lines (3)
   382     
1432 @ 15036:            LINE   381 "regression-compile-tmp/EVENTS.imp"
1433 @ 15073:            PUSH   NEWLINES
1434 @ 15076:            PUSHI  #0x00000003
1435 @ 15081:            ASSPAR
1436 @ 15082:            CALL  

   383     Print String ("Test the Ability to Raise Standard Events"); New Line
1437 @ 15083:            LINE   383 "regression-compile-tmp/EVENTS.imp"
1438 @ 15120:            PUSH   PRINTSTRING
1439 @ 15123:            PUSHS  "Test the Ability to Raise Standard Events"
1440 @ 15166:            ASSPAR
1441 @ 15167:            CALL  
1442 @ 15168:            LINE   383 "regression-compile-tmp/EVENTS.imp"
1443 @ 15205:            PUSH   NEWLINE
1444 @ 15208:            CALL  

   384     Print String ("-----------------------------------------")
1445 @ 15209:            LINE   384 "regression-compile-tmp/EVENTS.imp"
1446 @ 15246:            PUSH   PRINTSTRING
1447 @ 15249:            PUSHS  "-----------------------------------------"
1448 @ 15292:            ASSPAR
1449 @ 15293:            CALL  

   385     New Lines (2)
   386  
1450 @ 15294:            LINE   385 "regression-compile-tmp/EVENTS.imp"
1451 @ 15331:            PUSH   NEWLINES
1452 @ 15334:            PUSHI  #0x00000002
1453 @ 15339:            ASSPAR
1454 @ 15340:            CALL  

   387     Test Standard Events
   388  
1455 @ 15341:            LINE   387 "regression-compile-tmp/EVENTS.imp"
1456 @ 15378:            PUSH   TESTSTANDARDEVENTS
1457 @ 15381:            CALL  

   389     New Lines (2)
   390  
1458 @ 15382:            LINE   389 "regression-compile-tmp/EVENTS.imp"
1459 @ 15419:            PUSH   NEWLINES
1460 @ 15422:            PUSHI  #0x00000002
1461 @ 15427:            ASSPAR
1462 @ 15428:            CALL  

   391               Eventful(1)
1463 @ 15429:            LINE   391 "regression-compile-tmp/EVENTS.imp"
1464 @ 15466:            PUSH   EVENTFUL
1465 @ 15469:            PUSHI  #0x00000001
1466 @ 15474:            ASSPAR
1467 @ 15475:            CALL  

   392     Resume2:  Eventful(0)
1468 @ 15476:            LINE   392 "regression-compile-tmp/EVENTS.imp"
1469 @ 15513:            LABEL  L_0086
1470 @ 15516:            LINE   392 "regression-compile-tmp/EVENTS.imp"
1471 @ 15553:            PUSH   EVENTFUL
1472 @ 15556:            PUSHI  #0x00000000
1473 @ 15561:            ASSPAR
1474 @ 15562:            CALL  

   393     Resume3:  Inc (1)
1475 @ 15563:            LINE   393 "regression-compile-tmp/EVENTS.imp"
1476 @ 15600:            LABEL  L_0087
1477 @ 15603:            LINE   393 "regression-compile-tmp/EVENTS.imp"
1478 @ 15640:            PUSH   INC
1479 @ 15643:            PUSHI  #0x00000001
1480 @ 15648:            ASSPAR
1481 @ 15649:            CALL  

   394     Resume4:  
1482 @ 15650:            LINE   394 "regression-compile-tmp/EVENTS.imp"
1483 @ 15687:            LABEL  L_0088

   395               Print String ("Returned from a depth correctly.")
1484 @ 15690:            LINE   395 "regression-compile-tmp/EVENTS.imp"
1485 @ 15727:            PUSH   PRINTSTRING
1486 @ 15730:            PUSHS  "Returned from a depth correctly."
1487 @ 15764:            ASSPAR
1488 @ 15765:            CALL  

   396               New Lines (2)
   397  
1489 @ 15766:            LINE   396 "regression-compile-tmp/EVENTS.imp"
1490 @ 15803:            PUSH   NEWLINES
1491 @ 15806:            PUSHI  #0x00000002
1492 @ 15811:            ASSPAR
1493 @ 15812:            CALL  

   398  select output(0)
1494 @ 15813:            LINE   398 "regression-compile-tmp/EVENTS.imp"
1495 @ 15850:            PUSH   SELECTOUTPUT
1496 @ 15853:            PUSHI  #0x00000000
1497 @ 15858:            ASSPAR
1498 @ 15859:            CALL  

   399  write(failures,1);  printstring(" failure(s)");  newline
   400  
1499 @ 15860:            LINE   399 "regression-compile-tmp/EVENTS.imp"
1500 @ 15897:            PUSH   WRITE
1501 @ 15900:            PUSH   FAILURES
1502 @ 15903:            ASSPAR
1503 @ 15904:            PUSHI  #0x00000001
1504 @ 15909:            ASSPAR
1505 @ 15910:            CALL  
1506 @ 15911:            LINE   399 "regression-compile-tmp/EVENTS.imp"
1507 @ 15948:            PUSH   PRINTSTRING
1508 @ 15951:            PUSHS  " failure(s)"
1509 @ 15964:            ASSPAR
1510 @ 15965:            CALL  
1511 @ 15966:            LINE   399 "regression-compile-tmp/EVENTS.imp"
1512 @ 16003:            PUSH   NEWLINE
1513 @ 16006:            CALL  

   401  %End %of %Program
1514 @ 16007:            LINE   401 "regression-compile-tmp/EVENTS.imp"
1515 @ 16044:         END    _lev0id0 {lev=1 --> 0}
1516 @ 16045:         END     {lev=0 --> -1}
1517 @ 16046: 

