
     1  %BEGIN;                               !HAL-70
     2  !    INPUT/OUTPUT STREAMS
503 @ 4405:         LINE   1 "regression-compile-tmp/hal70.imp"
504 @ 4441:         BEGIN  _lev0id0 {lev=0 --> 1}

     3  %OWNINTEGER MAIN=1, PRE=2;            !INPUT
505 @ 4442:            LINE   3 "regression-compile-tmp/hal70.imp"
506 @ 4478:            PUSHI  #0x00000001
507 @ 4483:            DEF    MAIN p1=V_0081 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
508 @ 4499:            INIT   1
509 @ 4502:            PUSHI  #0x00000002
510 @ 4507:            DEF    PRE p1=V_0082 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
511 @ 4522:            INIT   1

     4  %OWNINTEGER BIN=1, LIS=2;             !OUTPUT
     5  !    OPERAND TYPES
512 @ 4525:            LINE   4 "regression-compile-tmp/hal70.imp"
513 @ 4561:            PUSHI  #0x00000001
514 @ 4566:            DEF    BIN 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 @ 4581:            INIT   1
516 @ 4584:            PUSHI  #0x00000002
517 @ 4589:            DEF    LIS p1=V_0084 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
518 @ 4604:            INIT   1

     6  %OWNINTEGER OPMASK=16_F000;           !MACHINE INSTRUCTION OR MACRO
519 @ 4607:            LINE   6 "regression-compile-tmp/hal70.imp"
520 @ 4643:            PUSHI  #0x0000f000
521 @ 4648:            DEF    OPMASK p1=V_0085 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
522 @ 4666:            INIT   1

     7  %OWNINTEGER MACRO=16_A000
523 @ 4669:            LINE   7 "regression-compile-tmp/hal70.imp"
524 @ 4705:            PUSHI  #0x0000a000
525 @ 4710:            DEF    MACRO p1=V_0086 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
526 @ 4727:            INIT   1

     8  %OWNINTEGER SINGLE=16_5000
527 @ 4730:            LINE   8 "regression-compile-tmp/hal70.imp"
528 @ 4766:            PUSHI  #0x00005000
529 @ 4771:            DEF    SINGLE p1=V_0087 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
530 @ 4789:            INIT   1

     9  %OWNINTEGER FMASK=16_0800;            !FORWARD REF
531 @ 4792:            LINE   9 "regression-compile-tmp/hal70.imp"
532 @ 4828:            PUSHI  #0x00000800
533 @ 4833:            DEF    FMASK p1=V_0088 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
534 @ 4850:            INIT   1

    10  %OWNINTEGER OPFMASK=16_F800;          !=OPMASK+FMASK
535 @ 4853:            LINE   10 "regression-compile-tmp/hal70.imp"
536 @ 4889:            PUSHI  #0x0000f800
537 @ 4894:            DEF    OPFMASK p1=V_0089 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
538 @ 4913:            INIT   1

    11  %OWNINTEGER UMASK=16_0200;            !UNDEF (FORWARD REF)
539 @ 4916:            LINE   11 "regression-compile-tmp/hal70.imp"
540 @ 4952:            PUSHI  #0x00000200
541 @ 4957:            DEF    UMASK p1=V_008a 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
542 @ 4974:            INIT   1

    12  %OWNINTEGER BMASK=16_0100;            !BYTE
543 @ 4977:            LINE   12 "regression-compile-tmp/hal70.imp"
544 @ 5013:            PUSHI  #0x00000100
545 @ 5018:            DEF    BMASK p1=V_008b 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
546 @ 5035:            INIT   1

    13  %OWNINTEGER REG=16_0080;              !REGISTER
547 @ 5038:            LINE   13 "regression-compile-tmp/hal70.imp"
548 @ 5074:            PUSHI  #0x00000080
549 @ 5079:            DEF    REG p1=V_008c 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
550 @ 5094:            INIT   1

    14  %OWNINTEGER MEMMASK=16_0040;          !MEM REF
551 @ 5097:            LINE   14 "regression-compile-tmp/hal70.imp"
552 @ 5133:            PUSHI  #0x00000040
553 @ 5138:            DEF    MEMMASK p1=V_008d 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
554 @ 5157:            INIT   1

    15  %OWNINTEGER RELMASK=16_0020;          !RELOCATABLE
555 @ 5160:            LINE   15 "regression-compile-tmp/hal70.imp"
556 @ 5196:            PUSHI  #0x00000020
557 @ 5201:            DEF    RELMASK p1=V_008e 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
558 @ 5220:            INIT   1

    16  %OWNINTEGER XMASK=16_0010;            !INDEXED
559 @ 5223:            LINE   16 "regression-compile-tmp/hal70.imp"
560 @ 5259:            PUSHI  #0x00000010
561 @ 5264:            DEF    XMASK p1=V_008f 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
562 @ 5281:            INIT   1

    17  %OWNINTEGER REGXMASK=16_0090;         !=REG+XMASK
563 @ 5284:            LINE   17 "regression-compile-tmp/hal70.imp"
564 @ 5320:            PUSHI  #0x00000090
565 @ 5325:            DEF    REGXMASK p1=V_0090 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
566 @ 5345:            INIT   1

    18  %OWNINTEGER RELUXMASK=16_0230;        !=RELMASK+UMASK+XMASK
    19  !    TEXT POINTERS (BYTE ADDRESSES)
567 @ 5348:            LINE   18 "regression-compile-tmp/hal70.imp"
568 @ 5384:            PUSHI  #0x00000230
569 @ 5389:            DEF    RELUXMASK p1=V_0091 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
570 @ 5410:            INIT   1

    20  %OWNINTEGER CODEPOS;                  !(NOT ACTUALLY BYTE)
571 @ 5413:            LINE   20 "regression-compile-tmp/hal70.imp"
572 @ 5449:            DEF    CODEPOS p1=V_0092 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
573 @ 5468:            INIT   1

    21  %OWNINTEGER STARTPOS;                 !START OF CURRENT LINE
574 @ 5471:            LINE   21 "regression-compile-tmp/hal70.imp"
575 @ 5507:            DEF    STARTPOS p1=V_0093 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
576 @ 5527:            INIT   1

    22  %OWNINTEGER GETPOS;                   !INPUT POINTER (NEXT)
577 @ 5530:            LINE   22 "regression-compile-tmp/hal70.imp"
578 @ 5566:            DEF    GETPOS p1=V_0094 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
579 @ 5584:            INIT   1

    23  %OWNINTEGER PUTPOS
580 @ 5587:            LINE   23 "regression-compile-tmp/hal70.imp"
581 @ 5623:            DEF    PUTPOS p1=V_0095 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
582 @ 5641:            INIT   1

    24  %OWNINTEGER PSEUDOLIM
583 @ 5644:            LINE   24 "regression-compile-tmp/hal70.imp"
584 @ 5680:            DEF    PSEUDOLIM p1=V_0096 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
585 @ 5701:            INIT   1

    25  %OWNINTEGER PRINTPOS;                 !START OF PRINT LINE
586 @ 5704:            LINE   25 "regression-compile-tmp/hal70.imp"
587 @ 5740:            DEF    PRINTPOS p1=V_0097 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
588 @ 5760:            INIT   1

    26  %OWNINTEGER FAULTPOS
589 @ 5763:            LINE   26 "regression-compile-tmp/hal70.imp"
590 @ 5799:            DEF    FAULTPOS 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
591 @ 5819:            INIT   1

    27  %OWNINTEGER MACLIM;                   !MACRO DEF LIMIT
    28  !    OTHER POINTERS (WORD ADDRESSES)
592 @ 5822:            LINE   27 "regression-compile-tmp/hal70.imp"
593 @ 5858:            DEF    MACLIM 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
594 @ 5876:            INIT   1

    29  %OWNINTEGER MP;                       !MACRO-CALL PARAMETERS
595 @ 5879:            LINE   29 "regression-compile-tmp/hal70.imp"
596 @ 5915:            DEF    MP p1=V_009a 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
597 @ 5929:            INIT   1

    30  %OWNINTEGER QBASE,QSTART,QLIM,TRANSF; !OPERAND QUEUE
598 @ 5932:            LINE   30 "regression-compile-tmp/hal70.imp"
599 @ 5968:            DEF    QBASE p1=V_009b 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
600 @ 5985:            INIT   1
601 @ 5988:            DEF    QSTART p1=V_009c 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
602 @ 6006:            INIT   1
603 @ 6009:            DEF    QLIM p1=V_009d 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
604 @ 6025:            INIT   1
605 @ 6028:            DEF    TRANSF p1=V_009e 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
606 @ 6046:            INIT   1

    31  %OWNINTEGER DEFMIN;                   !TAG MIN (DOWN - RESET)
607 @ 6049:            LINE   31 "regression-compile-tmp/hal70.imp"
608 @ 6085:            DEF    DEFMIN p1=V_009f 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
609 @ 6103:            INIT   1

    32  %OWNINTEGER DEFLIM;                   !TAG LIM (FIXED)
610 @ 6106:            LINE   32 "regression-compile-tmp/hal70.imp"
611 @ 6142:            DEF    DEFLIM p1=V_00a0 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
612 @ 6160:            INIT   1

    33  %OWNINTEGER ALMAX;                    !ASSEMBLER LAB MAX (UP - RESET)
613 @ 6163:            LINE   33 "regression-compile-tmp/hal70.imp"
614 @ 6199:            DEF    ALMAX p1=V_00a1 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
615 @ 6216:            INIT   1

    34  %OWNINTEGER LABMIN;                   !USER LAB MIN (DOWN - RESET)
616 @ 6219:            LINE   34 "regression-compile-tmp/hal70.imp"
617 @ 6255:            DEF    LABMIN p1=V_00a2 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
618 @ 6273:            INIT   1

    35  %OWNINTEGER LABLIM;                   !USER LAB LIM (FIXED)
619 @ 6276:            LINE   35 "regression-compile-tmp/hal70.imp"
620 @ 6312:            DEF    LABLIM p1=V_00a3 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
621 @ 6330:            INIT   1

    36  %OWNINTEGER BP;                       !BLOCK POINTER (UP - DOWN)
622 @ 6333:            LINE   36 "regression-compile-tmp/hal70.imp"
623 @ 6369:            DEF    BP p1=V_00a4 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
624 @ 6383:            INIT   1

    37  %OWNINTEGER NP;                       !NEST POINTER (DOWN - UP)
625 @ 6386:            LINE   37 "regression-compile-tmp/hal70.imp"
626 @ 6422:            DEF    NP p1=V_00a5 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
627 @ 6436:            INIT   1

    38  %OWNINTEGER STORELIM;                 !(FIXED)
    39  
628 @ 6439:            LINE   38 "regression-compile-tmp/hal70.imp"
629 @ 6475:            DEF    STORELIM p1=V_00a6 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
630 @ 6495:            INIT   1

    40  %INTEGER SYM;                         !CURRENT SYMBOL
631 @ 6498:            LINE   40 "regression-compile-tmp/hal70.imp"
632 @ 6534:            DEF    SYM 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

    41  %INTEGER TERM;                        !TAG TERMINATOR
633 @ 6549:            LINE   41 "regression-compile-tmp/hal70.imp"
634 @ 6585:            DEF    TERM p1=V_00a8 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

    42  %INTEGER FSYM;                        !FAULT FLAG SYMBOL
635 @ 6601:            LINE   42 "regression-compile-tmp/hal70.imp"
636 @ 6637:            DEF    FSYM 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

    43  %OWNINTEGER CHARS=0;                  !PRINT CHAR COUNT
637 @ 6653:            LINE   43 "regression-compile-tmp/hal70.imp"
638 @ 6689:            PUSHI  #0x00000000
639 @ 6694:            DEF    CHARS p1=V_00aa 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
640 @ 6711:            INIT   1

    44  %OWNINTEGER LINES=0;                  !PRINT LINE COUNT
641 @ 6714:            LINE   44 "regression-compile-tmp/hal70.imp"
642 @ 6750:            PUSHI  #0x00000000
643 @ 6755:            DEF    LINES p1=V_00ab 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
644 @ 6772:            INIT   1

    45  %OWNINTEGER BINCOUNT=0;               !OUTPUT RECORD ITEM COUNT
645 @ 6775:            LINE   45 "regression-compile-tmp/hal70.imp"
646 @ 6811:            PUSHI  #0x00000000
647 @ 6816:            DEF    BINCOUNT p1=V_00ac 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
648 @ 6836:            INIT   1

    46  %OWNINTEGER CHECK=0;                  !OUTPUT RECORD CHECKSUM
649 @ 6839:            LINE   46 "regression-compile-tmp/hal70.imp"
650 @ 6875:            PUSHI  #0x00000000
651 @ 6880:            DEF    CHECK p1=V_00ad 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
652 @ 6897:            INIT   1

    47  %OWNINTEGER PASS=-1;                  !CURRENT PASS (-1,0,1)
653 @ 6900:            LINE   47 "regression-compile-tmp/hal70.imp"
654 @ 6936:            PUSHI  #0xffffffff
655 @ 6941:            DEF    PASS p1=V_00ae 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
656 @ 6957:            INIT   1

    48  %OWNINTEGER LIST=-1;                  !LISTING CONTROL
657 @ 6960:            LINE   48 "regression-compile-tmp/hal70.imp"
658 @ 6996:            PUSHI  #0xffffffff
659 @ 7001:            DEF    LIST p1=V_00af 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
660 @ 7017:            INIT   1

    49  %INTEGER ASSCOND,SKIP;                !ASSEMBLY CONDITIONS (BIT NEST)
661 @ 7020:            LINE   49 "regression-compile-tmp/hal70.imp"
662 @ 7056:            DEF    ASSCOND 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
663 @ 7075:            DEF    SKIP 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

    50  %OWNINTEGER SAVE=1;                   !REG SAVE DISPLACEMENT
664 @ 7091:            LINE   50 "regression-compile-tmp/hal70.imp"
665 @ 7127:            PUSHI  #0x00000001
666 @ 7132:            DEF    SAVE p1=V_00b2 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
667 @ 7148:            INIT   1

    51  %OWNINTEGER TEMPS=12;                 !TEMPORARY REGISTER SET (2,3)
668 @ 7151:            LINE   51 "regression-compile-tmp/hal70.imp"
669 @ 7187:            PUSHI  #0x0000000c
670 @ 7192:            DEF    TEMPS p1=V_00b3 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
671 @ 7209:            INIT   1

    52  %INTEGER LOCTYPE,LOC;                 !LOCATION COUNTER
672 @ 7212:            LINE   52 "regression-compile-tmp/hal70.imp"
673 @ 7248:            DEF    LOCTYPE p1=V_00b4 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
674 @ 7267:            DEF    LOC p1=V_00b5 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

    53  %INTEGER ACC,ATYPE,AVAL;              !MAIN TEMP REGISTER
675 @ 7282:            LINE   53 "regression-compile-tmp/hal70.imp"
676 @ 7318:            DEF    ACC p1=V_00b6 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
677 @ 7333:            DEF    ATYPE p1=V_00b7 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
678 @ 7350:            DEF    AVAL p1=V_00b8 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

    54  %INTEGER CREG,CTYPE,CVAL;             !CONDITION CODE
679 @ 7366:            LINE   54 "regression-compile-tmp/hal70.imp"
680 @ 7402:            DEF    CREG p1=V_00b9 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
681 @ 7418:            DEF    CTYPE 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
682 @ 7435:            DEF    CVAL 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

    55  %INTEGER COND;                        !CONDITION CODE MASK
683 @ 7451:            LINE   55 "regression-compile-tmp/hal70.imp"
684 @ 7487:            DEF    COND 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

    56  %INTEGER DREG,DUSE;                   !DESTINATION REGISTER
685 @ 7503:            LINE   56 "regression-compile-tmp/hal70.imp"
686 @ 7539:            DEF    DREG 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
687 @ 7555:            DEF    DUSE 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

    57  %INTEGER TYPE,VAL;                    !CURRENT TYPE,VALUE
688 @ 7571:            LINE   57 "regression-compile-tmp/hal70.imp"
689 @ 7607:            DEF    TYPE 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
690 @ 7623:            DEF    VAL 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

    58  %INTEGER TAG1,TAG2;                   !TAG (CHARS 1:3, 4:6)
691 @ 7638:            LINE   58 "regression-compile-tmp/hal70.imp"
692 @ 7674:            DEF    TAG1 p1=V_00c1 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
693 @ 7690:            DEF    TAG2 p1=V_00c2 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

    59  %INTEGER MODE;                        !ASSEMBLY MODE
694 @ 7706:            LINE   59 "regression-compile-tmp/hal70.imp"
695 @ 7742:            DEF    MODE p1=V_00c3 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

    60  %INTEGER PEND;                        !TAG ALREADY RECOGNISED
696 @ 7758:            LINE   60 "regression-compile-tmp/hal70.imp"
697 @ 7794:            DEF    PEND p1=V_00c4 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

    61  %INTEGER FLAG;                        !JUMPS / AHM
698 @ 7810:            LINE   61 "regression-compile-tmp/hal70.imp"
699 @ 7846:            DEF    FLAG p1=V_00c5 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

    62  %OWNINTEGER QQ='?'
    63  
700 @ 7862:            LINE   62 "regression-compile-tmp/hal70.imp"
701 @ 7898:            PUSHI  #0x0000003f
702 @ 7903:            DEF    QQ p1=V_00c6 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
703 @ 7917:            INIT   1

    64  %OWNINTEGERARRAY BREC(1:52);          !BINARY OUTPUT RECORD
    65  
    66  !!%INTEGER SBOUND
704 @ 7920:            LINE   64 "regression-compile-tmp/hal70.imp"
705 @ 7956:            PUSHI  #0x00000001
706 @ 7961:            PUSHI  #0x00000034
707 @ 7966:            BOUNDS
708 @ 7967:            DEF    BREC p1=V_00c7 a/tf=1b b/format=1 c/ostate=121  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
709 @ 7983:            INIT   52

    67  %constINTEGER SBOUND = 16_7F00
    68  !!    SBOUND = FREESTORE-260;           !ALLOW FOR INPUT BUFFER
    69  !!    SBOUND = SBOUND-256 %IF OUTDEV = 2
710 @ 7986:            LINE   67 "regression-compile-tmp/hal70.imp"

    70      SELECT OUTPUT(LIS)
    71  !!    SBOUND = SBOUND-256 %IF OUTDEV = 2
    72  
    73  !! Simulate 18-bit word-addressed PDP9/15 memory:
    74  
711 @ 8022:            LINE   70 "regression-compile-tmp/hal70.imp"
712 @ 8058:            PUSH   SELECTOUTPUT
713 @ 8061:            PUSH   LIS
714 @ 8064:            ASSPAR
715 @ 8065:            CALL  

    75  %ownINTEGERARRAY STORE(1:SBOUND)
    76  
716 @ 8066:            LINE   75 "regression-compile-tmp/hal70.imp"
717 @ 8102:            PUSHI  #0x00000001
718 @ 8107:            PUSHI  #0x00007f00
719 @ 8112:            BOUNDS
720 @ 8113:            DEF    STORE p1=V_00c8 a/tf=1b b/format=1 c/ostate=121  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
721 @ 8130:            INIT   32512

    77  %integerfn integer(%integer p)
722 @ 8133:            LINE   77 "regression-compile-tmp/hal70.imp"
723 @ 8169:            DEF    INTEGER (_lev0id0_INTEGER) p1=V_00c9 a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
724 @ 8188:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
725 @ 8189:                  DEF    P p1=V_00ca 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
726 @ 8202:               FINISH ) {lev=2}

    78      %if p&1 # 0 %start
727 @ 8203:               LINE   78 "regression-compile-tmp/hal70.imp"
728 @ 8239:               PUSH   P
729 @ 8242:               PUSHI  #0x00000001
730 @ 8247:               AND   
731 @ 8248:               PUSHI  #0x00000000
732 @ 8253:               JUMPIF = L_0004

    79        printstring("Integer fetch was not aligned at "); write(p, -1); newline
733 @ 8257:               LINE   79 "regression-compile-tmp/hal70.imp"
734 @ 8293:               PUSH   PRINTSTRING
735 @ 8296:               PUSHS  "Integer fetch was not aligned at "
736 @ 8331:               ASSPAR
737 @ 8332:               CALL  
738 @ 8333:               LINE   79 "regression-compile-tmp/hal70.imp"
739 @ 8369:               PUSH   WRITE
740 @ 8372:               PUSH   P
741 @ 8375:               ASSPAR
742 @ 8376:               PUSHI  #0x00000001
743 @ 8381:               NEGATE
744 @ 8382:               ASSPAR
745 @ 8383:               CALL  
746 @ 8384:               LINE   79 "regression-compile-tmp/hal70.imp"
747 @ 8420:               PUSH   NEWLINE
748 @ 8423:               CALL  

    80        %stop
749 @ 8424:               LINE   80 "regression-compile-tmp/hal70.imp"
750 @ 8460:               STOP  

    81      %finish
751 @ 8461:               LINE   81 "regression-compile-tmp/hal70.imp"
752 @ 8497:               LOCATE L_0004

    82      %result = store(P>>1)
753 @ 8500:               LINE   82 "regression-compile-tmp/hal70.imp"
754 @ 8536:               PUSH   STORE
755 @ 8539:               PUSH   P
756 @ 8542:               PUSHI  #0x00000001
757 @ 8547:               RSH   
758 @ 8548:               ACCESS
759 @ 8549:               RESULT

    83  %end
    84  
760 @ 8550:               LINE   83 "regression-compile-tmp/hal70.imp"
761 @ 8586:            END    _lev0id0_INTEGER {lev=2 --> 1}

    85  %INTEGERFN CHAR(%INTEGER P)
    86  !BYTE FETCH
    87  
762 @ 8587:            LINE   85 "regression-compile-tmp/hal70.imp"
763 @ 8623:            DEF    CHAR (_lev0id0_CHAR) p1=V_00ca a/tf=18 b/format=1 c/ostate=10  type=1 (integer) form=8 (function) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=1 unass=0
764 @ 8639:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
765 @ 8640:                  DEF    P p1=V_00cb 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
766 @ 8653:               FINISH ) {lev=2}

    88      %integer val = store(p>>1)
767 @ 8654:               LINE   88 "regression-compile-tmp/hal70.imp"
768 @ 8690:               DEF    VAL p1=V_00cc 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
769 @ 8705:               PUSH   VAL
770 @ 8708:               PUSH   STORE
771 @ 8711:               PUSH   P
772 @ 8714:               PUSHI  #0x00000001
773 @ 8719:               RSH   
774 @ 8720:               ACCESS
775 @ 8721:               ASSVAL

    89      %if p&1 = 0 %start
776 @ 8722:               LINE   89 "regression-compile-tmp/hal70.imp"
777 @ 8758:               PUSH   P
778 @ 8761:               PUSHI  #0x00000001
779 @ 8766:               AND   
780 @ 8767:               PUSHI  #0x00000000
781 @ 8772:               JUMPIF # L_0004

    90        %result = val&255
782 @ 8776:               LINE   90 "regression-compile-tmp/hal70.imp"
783 @ 8812:               PUSH   VAL
784 @ 8815:               PUSHI  #0x000000ff
785 @ 8820:               AND   
786 @ 8821:               RESULT

    91      %else
787 @ 8822:               LINE   91 "regression-compile-tmp/hal70.imp"
788 @ 8858:               LOCATE L_0004

    92        %result = (val>>8)&255
789 @ 8861:               LINE   92 "regression-compile-tmp/hal70.imp"
790 @ 8897:               PUSH   VAL
791 @ 8900:               PUSHI  #0x00000008
792 @ 8905:               RSH   
793 @ 8906:               PUSHI  #0x000000ff
794 @ 8911:               AND   
795 @ 8912:               RESULT

    93      %finish
    94      
    95  !!    %OPR 2064;!RCR;  %DAC P
    96  !!    %LAC* P;  %OPR 768;!SZL;  %JMP L1
    97  !!    %OPR 1040;!RTR;  %OPR 1040
    98  !!    %OPR 1040;  %OPR 1040
    99  !!L1: %AND #255;  %JMP* CHAR
   100  !!    %STOP
   101  
796 @ 8913:               LINE   93 "regression-compile-tmp/hal70.imp"

   102  %END
   103  
797 @ 8949:               LINE   102 "regression-compile-tmp/hal70.imp"
798 @ 8985:            END    _lev0id0_CHAR {lev=2 --> 1}

   104  %routine set integer(%integer p, k)
799 @ 8986:            LINE   104 "regression-compile-tmp/hal70.imp"
800 @ 9022:            DEF    SETINTEGER (_lev0id0_SETINTEGER) 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
801 @ 9044:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
802 @ 9045:                  DEF    P p1=V_00cc 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
803 @ 9058:                  DEF    K 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
804 @ 9071:               FINISH ) {lev=2}

   105      store(p>>1) = k
805 @ 9072:               LINE   105 "regression-compile-tmp/hal70.imp"
806 @ 9108:               PUSH   STORE
807 @ 9111:               PUSH   P
808 @ 9114:               PUSHI  #0x00000001
809 @ 9119:               RSH   
810 @ 9120:               ACCESS
811 @ 9121:               PUSH   K
812 @ 9124:               ASSVAL

   106  %end
   107  
813 @ 9125:               LINE   106 "regression-compile-tmp/hal70.imp"
814 @ 9161:            END    _lev0id0_SETINTEGER {lev=2 --> 1}

   108  %ROUTINE PUT CHAR(%INTEGER K)
   109  !AT PUTPOS WITH POST-INCREMENT
815 @ 9162:            LINE   108 "regression-compile-tmp/hal70.imp"
816 @ 9198:            DEF    PUTCHAR (_lev0id0_PUTCHAR) 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
817 @ 9217:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
818 @ 9218:                  DEF    K 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
819 @ 9231:               FINISH ) {lev=2}

   110  %INTEGER P
   111  !!    %MONITOR 21 %IF PUTPOS>>1-DEFMIN >= 0
   112  !{}    %signal 2,1 %IF PUTPOS>>1-DEFMIN >= 0
   113  
820 @ 9232:               LINE   110 "regression-compile-tmp/hal70.imp"
821 @ 9268:               DEF    P p1=V_00ce 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

   114      p = store(putpos>>1)
822 @ 9281:               LINE   114 "regression-compile-tmp/hal70.imp"
823 @ 9317:               PUSH   P
824 @ 9320:               PUSH   STORE
825 @ 9323:               PUSH   PUTPOS
826 @ 9326:               PUSHI  #0x00000001
827 @ 9331:               RSH   
828 @ 9332:               ACCESS
829 @ 9333:               ASSVAL

   115      %if putpos&1 = 0 %start
830 @ 9334:               LINE   115 "regression-compile-tmp/hal70.imp"
831 @ 9370:               PUSH   PUTPOS
832 @ 9373:               PUSHI  #0x00000001
833 @ 9378:               AND   
834 @ 9379:               PUSHI  #0x00000000
835 @ 9384:               JUMPIF # L_0004

   116        p = (p&16_FF00) ! (K&255)
836 @ 9388:               LINE   116 "regression-compile-tmp/hal70.imp"
837 @ 9424:               PUSH   P
838 @ 9427:               PUSH   P
839 @ 9430:               PUSHI  #0x0000ff00
840 @ 9435:               AND   
841 @ 9436:               PUSH   K
842 @ 9439:               PUSHI  #0x000000ff
843 @ 9444:               AND   
844 @ 9445:               OR    
845 @ 9446:               ASSVAL

   117      %else
846 @ 9447:               LINE   117 "regression-compile-tmp/hal70.imp"
847 @ 9483:               GOTO   L_0003
848 @ 9486:               LOCATE L_0004

   118        p = (p&16_00FF) ! ((K&255)<<8)
849 @ 9489:               LINE   118 "regression-compile-tmp/hal70.imp"
850 @ 9525:               PUSH   P
851 @ 9528:               PUSH   P
852 @ 9531:               PUSHI  #0x000000ff
853 @ 9536:               AND   
854 @ 9537:               PUSH   K
855 @ 9540:               PUSHI  #0x000000ff
856 @ 9545:               AND   
857 @ 9546:               PUSHI  #0x00000008
858 @ 9551:               LSH   
859 @ 9552:               OR    
860 @ 9553:               ASSVAL

   119      %finish
861 @ 9554:               LINE   119 "regression-compile-tmp/hal70.imp"
862 @ 9590:               LOCATE L_0003

   120      store(putpos>>1) = p
   121  
   122  !!    %LAC PUTPOS;  %OPR 2064;!RCR;  %DAC P
   123  !!    %OPR 768;!SZL;  %JMP L1
   124  !!    %LAC K;  %OPR 1032;!RTL;  %OPR 1032
   125  !!    %OPR 1032;  %OPR 1032;  %DAC K
   126  !!    %LAC #-256;  %OPR 513;!SKP!CMA
   127  !!L1: %LAC #-256;  %AND* P;  %TAD K;  %DAC* P
   128  !!    %ISZ PUTPOS
   129  
863 @ 9593:               LINE   120 "regression-compile-tmp/hal70.imp"
864 @ 9629:               PUSH   STORE
865 @ 9632:               PUSH   PUTPOS
866 @ 9635:               PUSHI  #0x00000001
867 @ 9640:               RSH   
868 @ 9641:               ACCESS
869 @ 9642:               PUSH   P
870 @ 9645:               ASSVAL

   130      putpos = putpos+1
871 @ 9646:               LINE   130 "regression-compile-tmp/hal70.imp"
872 @ 9682:               PUSH   PUTPOS
873 @ 9685:               PUSH   PUTPOS
874 @ 9688:               PUSHI  #0x00000001
875 @ 9693:               ADD   
876 @ 9694:               ASSVAL

   131  %END
   132  
877 @ 9695:               LINE   131 "regression-compile-tmp/hal70.imp"
878 @ 9731:            END    _lev0id0_PUTCHAR {lev=2 --> 1}

   133  %ROUTINE FAULT(%INTEGER K)
   134  !RECORD (FIRST) FAULT
   135  !NOT NECESSARILY CULPABLE IN PASS 0
879 @ 9732:            LINE   133 "regression-compile-tmp/hal70.imp"
880 @ 9768:            DEF    FAULT (_lev0id0_FAULT) 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
881 @ 9785:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
882 @ 9786:                  DEF    K p1=V_00ce 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
883 @ 9799:               FINISH ) {lev=2}

   136      FSYM = K %IF FSYM = ' '
884 @ 9800:               LINE   136 "regression-compile-tmp/hal70.imp"
885 @ 9836:               PUSH   FSYM
886 @ 9839:               PUSHI  #0x00000020
887 @ 9844:               JUMPIF # L_0004
888 @ 9848:               PUSH   FSYM
889 @ 9851:               PUSH   K
890 @ 9854:               ASSVAL
891 @ 9855:               LOCATE L_0004

   137  %END
   138  
892 @ 9858:               LINE   137 "regression-compile-tmp/hal70.imp"
893 @ 9894:            END    _lev0id0_FAULT {lev=2 --> 1}

   139  %ROUTINE PRINT(%INTEGER K)
   140  !!    INTEGER(CODEPOS+CHARS) = K
894 @ 9895:            LINE   139 "regression-compile-tmp/hal70.imp"
895 @ 9931:            DEF    PRINT (_lev0id0_PRINT) 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
896 @ 9948:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
897 @ 9949:                  DEF    K p1=V_00cf 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
898 @ 9962:               FINISH ) {lev=2}

   141      set INTEGER(CODEPOS+CHARS, K)
899 @ 9963:               LINE   141 "regression-compile-tmp/hal70.imp"
900 @ 9999:               PUSH   SETINTEGER
901 @ 10002:               PUSH   CODEPOS
902 @ 10005:               PUSH   CHARS
903 @ 10008:               ADD   
904 @ 10009:               ASSPAR
905 @ 10010:               PUSH   K
906 @ 10013:               ASSPAR
907 @ 10014:               CALL  

   142      CHARS = CHARS+1
908 @ 10015:               LINE   142 "regression-compile-tmp/hal70.imp"
909 @ 10051:               PUSH   CHARS
910 @ 10054:               PUSH   CHARS
911 @ 10057:               PUSHI  #0x00000001
912 @ 10062:               ADD   
913 @ 10063:               ASSVAL

   143  %END
   144  
914 @ 10064:               LINE   143 "regression-compile-tmp/hal70.imp"
915 @ 10100:            END    _lev0id0_PRINT {lev=2 --> 1}

   145  %ROUTINE PRINT WORD(%INTEGER V)
916 @ 10101:            LINE   145 "regression-compile-tmp/hal70.imp"
917 @ 10137:            DEF    PRINTWORD (_lev0id0_PRINTWORD) 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
918 @ 10158:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
919 @ 10159:                  DEF    V p1=V_00d0 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
920 @ 10172:               FINISH ) {lev=2}

   146      %ROUTINE PRINT HIT(%INTEGER V)
921 @ 10173:               LINE   146 "regression-compile-tmp/hal70.imp"
922 @ 10209:               DEF    PRINTHIT (_lev0id0_PRINTWORD_PRINTHIT) 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
923 @ 10229:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
924 @ 10230:                     DEF    V p1=V_00d2 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
925 @ 10243:                  FINISH ) {lev=3}

   147          V = V&15+'0';  V = V+7 %IF V > '9'
926 @ 10244:                  LINE   147 "regression-compile-tmp/hal70.imp"
927 @ 10280:                  PUSH   V
928 @ 10283:                  PUSH   V
929 @ 10286:                  PUSHI  #0x0000000f
930 @ 10291:                  AND   
931 @ 10292:                  PUSHI  #0x00000030
932 @ 10297:                  ADD   
933 @ 10298:                  ASSVAL
934 @ 10299:                  LINE   147 "regression-compile-tmp/hal70.imp"
935 @ 10335:                  PUSH   V
936 @ 10338:                  PUSHI  #0x00000039
937 @ 10343:                  JUMPIF <= L_0004
938 @ 10347:                  PUSH   V
939 @ 10350:                  PUSH   V
940 @ 10353:                  PUSHI  #0x00000007
941 @ 10358:                  ADD   
942 @ 10359:                  ASSVAL
943 @ 10360:                  LOCATE L_0004

   148          PRINT(V)
944 @ 10363:                  LINE   148 "regression-compile-tmp/hal70.imp"
945 @ 10399:                  PUSH   PRINT
946 @ 10402:                  PUSH   V
947 @ 10405:                  ASSPAR
948 @ 10406:                  CALL  

   149      %END
949 @ 10407:                  LINE   149 "regression-compile-tmp/hal70.imp"
950 @ 10443:               END    _lev0id0_PRINTWORD_PRINTHIT {lev=3 --> 2}

   150      %ROUTINE PRINT1(%INTEGER V)
951 @ 10444:               LINE   150 "regression-compile-tmp/hal70.imp"
952 @ 10480:               DEF    PRINT1 (_lev0id0_PRINTWORD_PRINT1) 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
953 @ 10498:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
954 @ 10499:                     DEF    V p1=V_00d3 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
955 @ 10512:                  FINISH ) {lev=3}

   151          PRINT HIT(V>>4);  PRINT HIT(V)
956 @ 10513:                  LINE   151 "regression-compile-tmp/hal70.imp"
957 @ 10549:                  PUSH   PRINTHIT
958 @ 10552:                  PUSH   V
959 @ 10555:                  PUSHI  #0x00000004
960 @ 10560:                  RSH   
961 @ 10561:                  ASSPAR
962 @ 10562:                  CALL  
963 @ 10563:                  LINE   151 "regression-compile-tmp/hal70.imp"
964 @ 10599:                  PUSH   PRINTHIT
965 @ 10602:                  PUSH   V
966 @ 10605:                  ASSPAR
967 @ 10606:                  CALL  

   152      %END
968 @ 10607:                  LINE   152 "regression-compile-tmp/hal70.imp"
969 @ 10643:               END    _lev0id0_PRINTWORD_PRINT1 {lev=3 --> 2}

   153      PRINT1(V>>8);  PRINT1(V)
970 @ 10644:               LINE   153 "regression-compile-tmp/hal70.imp"
971 @ 10680:               PUSH   PRINT1
972 @ 10683:               PUSH   V
973 @ 10686:               PUSHI  #0x00000008
974 @ 10691:               RSH   
975 @ 10692:               ASSPAR
976 @ 10693:               CALL  
977 @ 10694:               LINE   153 "regression-compile-tmp/hal70.imp"
978 @ 10730:               PUSH   PRINT1
979 @ 10733:               PUSH   V
980 @ 10736:               ASSPAR
981 @ 10737:               CALL  

   154  %END
   155  
982 @ 10738:               LINE   154 "regression-compile-tmp/hal70.imp"
983 @ 10774:            END    _lev0id0_PRINTWORD {lev=2 --> 1}

   156  %ROUTINE PRINT LOC
984 @ 10775:            LINE   156 "regression-compile-tmp/hal70.imp"
985 @ 10811:            DEF    PRINTLOC (_lev0id0_PRINTLOC) 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
986 @ 10831:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
987 @ 10832:               FINISH ) {lev=2}

   157      PRINT WORD(LOC)
988 @ 10833:               LINE   157 "regression-compile-tmp/hal70.imp"
989 @ 10869:               PUSH   PRINTWORD
990 @ 10872:               PUSH   LOC
991 @ 10875:               ASSPAR
992 @ 10876:               CALL  

   158      %IF LOCTYPE&RELMASK # 0 %THEN PRINT('''') %ELSE PRINT(' ')
993 @ 10877:               LINE   158 "regression-compile-tmp/hal70.imp"
994 @ 10913:               PUSH   LOCTYPE
995 @ 10916:               PUSH   RELMASK
996 @ 10919:               AND   
997 @ 10920:               PUSHI  #0x00000000
998 @ 10925:               JUMPIF = L_0004
999 @ 10929:               PUSH   PRINT
1000 @ 10932:               PUSHI  #0x00000027
1001 @ 10937:               ASSPAR
1002 @ 10938:               CALL  
1003 @ 10939:               GOTO   L_0003
1004 @ 10942:               LOCATE L_0004
1005 @ 10945:               PUSH   PRINT
1006 @ 10948:               PUSHI  #0x00000020
1007 @ 10953:               ASSPAR
1008 @ 10954:               CALL  
1009 @ 10955:               LOCATE L_0003

   159      PRINT(' ')
1010 @ 10958:               LINE   159 "regression-compile-tmp/hal70.imp"
1011 @ 10994:               PUSH   PRINT
1012 @ 10997:               PUSHI  #0x00000020
1013 @ 11002:               ASSPAR
1014 @ 11003:               CALL  

   160  %END
   161  
1015 @ 11004:               LINE   160 "regression-compile-tmp/hal70.imp"
1016 @ 11040:            END    _lev0id0_PRINTLOC {lev=2 --> 1}

   162  %ROUTINE DO NEWLINE
1017 @ 11041:            LINE   162 "regression-compile-tmp/hal70.imp"
1018 @ 11077:            DEF    DONEWLINE (_lev0id0_DONEWLINE) 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
1019 @ 11098:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1020 @ 11099:               FINISH ) {lev=2}

   163      NEWLINE;  LINES = LINES+1
1021 @ 11100:               LINE   163 "regression-compile-tmp/hal70.imp"
1022 @ 11136:               PUSH   NEWLINE
1023 @ 11139:               CALL  
1024 @ 11140:               LINE   163 "regression-compile-tmp/hal70.imp"
1025 @ 11176:               PUSH   LINES
1026 @ 11179:               PUSH   LINES
1027 @ 11182:               PUSHI  #0x00000001
1028 @ 11187:               ADD   
1029 @ 11188:               ASSVAL

   164      NEWLINES(2) %AND LINES = 0 %IF LINES = 61
1030 @ 11189:               LINE   164 "regression-compile-tmp/hal70.imp"
1031 @ 11225:               PUSH   LINES
1032 @ 11228:               PUSHI  #0x0000003d
1033 @ 11233:               JUMPIF # L_0004
1034 @ 11237:               PUSH   NEWLINES
1035 @ 11240:               PUSHI  #0x00000002
1036 @ 11245:               ASSPAR
1037 @ 11246:               CALL  
1038 @ 11247:               PUSH   LINES
1039 @ 11250:               PUSHI  #0x00000000
1040 @ 11255:               ASSVAL
1041 @ 11256:               LOCATE L_0004

   165  %END
   166  
1042 @ 11259:               LINE   165 "regression-compile-tmp/hal70.imp"
1043 @ 11295:            END    _lev0id0_DONEWLINE {lev=2 --> 1}

   167  %ROUTINE PRINT LINE
1044 @ 11296:            LINE   167 "regression-compile-tmp/hal70.imp"
1045 @ 11332:            DEF    PRINTLINE (_lev0id0_PRINTLINE) 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
1046 @ 11353:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1047 @ 11354:               FINISH ) {lev=2}

   168     %ROUTINE PRINTIT(%INTEGER SUB)
1048 @ 11355:               LINE   168 "regression-compile-tmp/hal70.imp"
1049 @ 11391:               DEF    PRINTIT (_lev0id0_PRINTLINE_PRINTIT) 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
1050 @ 11410:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
1051 @ 11411:                     DEF    SUB p1=V_00d4 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
1052 @ 11426:                  FINISH ) {lev=3}

   169     %OWNINTEGER MARKER=124;            !VERTICAL BAR
1053 @ 11427:                  LINE   169 "regression-compile-tmp/hal70.imp"
1054 @ 11463:                  PUSHI  #0x0000007c
1055 @ 11468:                  DEF    MARKER p1=V_00d5 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
1056 @ 11486:                  INIT   1

   170     %INTEGER P,Q,K
1057 @ 11489:                  LINE   170 "regression-compile-tmp/hal70.imp"
1058 @ 11525:                  DEF    P p1=V_00d6 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
1059 @ 11538:                  DEF    Q p1=V_00d7 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
1060 @ 11551:                  DEF    K p1=V_00d8 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

   171         %RETURN %IF CHARS = 0 %AND CHAR(PRINTPOS) = NL
1061 @ 11564:                  LINE   171 "regression-compile-tmp/hal70.imp"
1062 @ 11600:                  PUSH   CHARS
1063 @ 11603:                  PUSHI  #0x00000000
1064 @ 11608:                  JUMPIF # L_0004
1065 @ 11612:                  PUSH   CHAR
1066 @ 11615:                  PUSH   PRINTPOS
1067 @ 11618:                  ASSPAR
1068 @ 11619:                  CALL  
1069 @ 11620:                  PUSHI  #0x0000000a
1070 @ 11625:                  JUMPIF # L_0004
1071 @ 11629:                  RETURN
1072 @ 11630:                  LOCATE L_0004

   172         PRINT SYMBOL(FSYM);  SPACE
1073 @ 11633:                  LINE   172 "regression-compile-tmp/hal70.imp"
1074 @ 11669:                  PUSH   PRINTSYMBOL
1075 @ 11672:                  PUSH   FSYM
1076 @ 11675:                  ASSPAR
1077 @ 11676:                  CALL  
1078 @ 11677:                  LINE   172 "regression-compile-tmp/hal70.imp"
1079 @ 11713:                  PUSH   SPACE
1080 @ 11716:                  CALL  

   173         P = CODEPOS;  Q = P+CHARS
1081 @ 11717:                  LINE   173 "regression-compile-tmp/hal70.imp"
1082 @ 11753:                  PUSH   P
1083 @ 11756:                  PUSH   CODEPOS
1084 @ 11759:                  ASSVAL
1085 @ 11760:                  LINE   173 "regression-compile-tmp/hal70.imp"
1086 @ 11796:                  PUSH   Q
1087 @ 11799:                  PUSH   P
1088 @ 11802:                  PUSH   CHARS
1089 @ 11805:                  ADD   
1090 @ 11806:                  ASSVAL

   174         PRINT SYMBOL(INTEGER(P)) %AND P=P+1 %WHILE P # Q
1091 @ 11807:                  LINE   174 "regression-compile-tmp/hal70.imp"
1092 @ 11843:                  LOCATE L_0003
1093 @ 11846:                  PUSH   P
1094 @ 11849:                  PUSH   Q
1095 @ 11852:                  JUMPIF = L_0004
1096 @ 11856:                  PUSH   PRINTSYMBOL
1097 @ 11859:                  PUSH   INTEGER
1098 @ 11862:                  PUSH   P
1099 @ 11865:                  ASSPAR
1100 @ 11866:                  CALL  
1101 @ 11867:                  ASSPAR
1102 @ 11868:                  CALL  
1103 @ 11869:                  PUSH   P
1104 @ 11872:                  PUSH   P
1105 @ 11875:                  PUSHI  #0x00000001
1106 @ 11880:                  ADD   
1107 @ 11881:                  ASSVAL
1108 @ 11882:                  REPEAT L_0003
1109 @ 11885:                  LOCATE L_0004

   175         %RETURN %IF PRINTPOS = 0
1110 @ 11888:                  LINE   175 "regression-compile-tmp/hal70.imp"
1111 @ 11924:                  PUSH   PRINTPOS
1112 @ 11927:                  PUSHI  #0x00000000
1113 @ 11932:                  JUMPIF # L_0004
1114 @ 11936:                  RETURN
1115 @ 11937:                  LOCATE L_0004

   176         SPACES(17-CHARS)
1116 @ 11940:                  LINE   176 "regression-compile-tmp/hal70.imp"
1117 @ 11976:                  PUSH   SPACES
1118 @ 11979:                  PUSHI  #0x00000011
1119 @ 11984:                  PUSH   CHARS
1120 @ 11987:                  SUB   
1121 @ 11988:                  ASSPAR
1122 @ 11989:                  CALL  

   177         P = PRINTPOS;  Q = 0
1123 @ 11990:                  LINE   177 "regression-compile-tmp/hal70.imp"
1124 @ 12026:                  PUSH   P
1125 @ 12029:                  PUSH   PRINTPOS
1126 @ 12032:                  ASSVAL
1127 @ 12033:                  LINE   177 "regression-compile-tmp/hal70.imp"
1128 @ 12069:                  PUSH   Q
1129 @ 12072:                  PUSHI  #0x00000000
1130 @ 12077:                  ASSVAL

   178         %CYCLE
1131 @ 12078:                  LINE   178 "regression-compile-tmp/hal70.imp"
1132 @ 12114:                  LOCATE L_0003

   179            PRINT SYMBOL(MARKER) %IF P = FAULTPOS
1133 @ 12117:                  LINE   179 "regression-compile-tmp/hal70.imp"
1134 @ 12153:                  PUSH   P
1135 @ 12156:                  PUSH   FAULTPOS
1136 @ 12159:                  JUMPIF # L_0007
1137 @ 12163:                  PUSH   PRINTSYMBOL
1138 @ 12166:                  PUSH   MARKER
1139 @ 12169:                  ASSPAR
1140 @ 12170:                  CALL  
1141 @ 12171:                  LOCATE L_0007

   180            K = CHAR(P);  K = SUB %IF P = PSEUDOLIM
1142 @ 12174:                  LINE   180 "regression-compile-tmp/hal70.imp"
1143 @ 12210:                  PUSH   K
1144 @ 12213:                  PUSH   CHAR
1145 @ 12216:                  PUSH   P
1146 @ 12219:                  ASSPAR
1147 @ 12220:                  CALL  
1148 @ 12221:                  ASSVAL
1149 @ 12222:                  LINE   180 "regression-compile-tmp/hal70.imp"
1150 @ 12258:                  PUSH   P
1151 @ 12261:                  PUSH   PSEUDOLIM
1152 @ 12264:                  JUMPIF # L_0007
1153 @ 12268:                  PUSH   K
1154 @ 12271:                  PUSH   SUB
1155 @ 12274:                  ASSVAL
1156 @ 12275:                  LOCATE L_0007

   181            PRINT SYMBOL('''') %IF (K!!Q)&128 # 0
1157 @ 12278:                  LINE   181 "regression-compile-tmp/hal70.imp"
1158 @ 12314:                  PUSH   K
1159 @ 12317:                  PUSH   Q
1160 @ 12320:                  XOR   
1161 @ 12321:                  PUSHI  #0x00000080
1162 @ 12326:                  AND   
1163 @ 12327:                  PUSHI  #0x00000000
1164 @ 12332:                  JUMPIF = L_0007
1165 @ 12336:                  PUSH   PRINTSYMBOL
1166 @ 12339:                  PUSHI  #0x00000027
1167 @ 12344:                  ASSPAR
1168 @ 12345:                  CALL  
1169 @ 12346:                  LOCATE L_0007

   182            %RETURN %IF K = NL
1170 @ 12349:                  LINE   182 "regression-compile-tmp/hal70.imp"
1171 @ 12385:                  PUSH   K
1172 @ 12388:                  PUSHI  #0x0000000a
1173 @ 12393:                  JUMPIF # L_0007
1174 @ 12397:                  RETURN
1175 @ 12398:                  LOCATE L_0007

   183            PRINT SYMBOL(K&127)
1176 @ 12401:                  LINE   183 "regression-compile-tmp/hal70.imp"
1177 @ 12437:                  PUSH   PRINTSYMBOL
1178 @ 12440:                  PUSH   K
1179 @ 12443:                  PUSHI  #0x0000007f
1180 @ 12448:                  AND   
1181 @ 12449:                  ASSPAR
1182 @ 12450:                  CALL  

   184            P = P+1;  Q = K
1183 @ 12451:                  LINE   184 "regression-compile-tmp/hal70.imp"
1184 @ 12487:                  PUSH   P
1185 @ 12490:                  PUSH   P
1186 @ 12493:                  PUSHI  #0x00000001
1187 @ 12498:                  ADD   
1188 @ 12499:                  ASSVAL
1189 @ 12500:                  LINE   184 "regression-compile-tmp/hal70.imp"
1190 @ 12536:                  PUSH   Q
1191 @ 12539:                  PUSH   K
1192 @ 12542:                  ASSVAL

   185         %REPEAT
1193 @ 12543:                  LINE   185 "regression-compile-tmp/hal70.imp"
1194 @ 12579:                  REPEAT L_0003

   186     %END
1195 @ 12582:                  LINE   186 "regression-compile-tmp/hal70.imp"
1196 @ 12618:               END    _lev0id0_PRINTLINE_PRINTIT {lev=3 --> 2}

   187      %RETURN %IF PASS = 0
1197 @ 12619:               LINE   187 "regression-compile-tmp/hal70.imp"
1198 @ 12655:               PUSH   PASS
1199 @ 12658:               PUSHI  #0x00000000
1200 @ 12663:               JUMPIF # L_0004
1201 @ 12667:               RETURN
1202 @ 12668:               LOCATE L_0004

   188      %UNLESS LIST < 0 %OR (PRINTPOS=0 %AND FSYM=' ' %AND LIST&1=0) %START
1203 @ 12671:               LINE   188 "regression-compile-tmp/hal70.imp"
1204 @ 12707:               PUSH   LIST
1205 @ 12710:               PUSHI  #0x00000000
1206 @ 12715:               JUMPIF < L_0004
1207 @ 12719:               PUSH   PRINTPOS
1208 @ 12722:               PUSHI  #0x00000000
1209 @ 12727:               JUMPIF # L_0005
1210 @ 12731:               PUSH   FSYM
1211 @ 12734:               PUSHI  #0x00000020
1212 @ 12739:               JUMPIF # L_0005
1213 @ 12743:               PUSH   LIST
1214 @ 12746:               PUSHI  #0x00000001
1215 @ 12751:               AND   
1216 @ 12752:               PUSHI  #0x00000000
1217 @ 12757:               JUMPIF = L_0004
1218 @ 12761:               LOCATE L_0005

   189         NEWLINES(3) %IF LINES = 0
1219 @ 12764:               LINE   189 "regression-compile-tmp/hal70.imp"
1220 @ 12800:               PUSH   LINES
1221 @ 12803:               PUSHI  #0x00000000
1222 @ 12808:               JUMPIF # L_0007
1223 @ 12812:               PUSH   NEWLINES
1224 @ 12815:               PUSHI  #0x00000003
1225 @ 12820:               ASSPAR
1226 @ 12821:               CALL  
1227 @ 12822:               LOCATE L_0007

   190         PRINTIT(' ')
1228 @ 12825:               LINE   190 "regression-compile-tmp/hal70.imp"
1229 @ 12861:               PUSH   PRINTIT
1230 @ 12864:               PUSHI  #0x00000020
1231 @ 12869:               ASSPAR
1232 @ 12870:               CALL  

   191         DO NEWLINE
1233 @ 12871:               LINE   191 "regression-compile-tmp/hal70.imp"
1234 @ 12907:               PUSH   DONEWLINE
1235 @ 12910:               CALL  

   192      %FINISH
1236 @ 12911:               LINE   192 "regression-compile-tmp/hal70.imp"
1237 @ 12947:               LOCATE L_0004

   193      %IF FSYM # ' ' %AND OUTDEV # 1 %START
1238 @ 12950:               LINE   193 "regression-compile-tmp/hal70.imp"
1239 @ 12986:               PUSH   FSYM
1240 @ 12989:               PUSHI  #0x00000020
1241 @ 12994:               JUMPIF = L_0004
1242 @ 12998:               PUSH   OUTDEV
1243 @ 13001:               CALL  
1244 @ 13002:               PUSHI  #0x00000001
1245 @ 13007:               JUMPIF = L_0004

   194         SELECT OUTPUT(0)
1246 @ 13011:               LINE   194 "regression-compile-tmp/hal70.imp"
1247 @ 13047:               PUSH   SELECTOUTPUT
1248 @ 13050:               PUSHI  #0x00000000
1249 @ 13055:               ASSPAR
1250 @ 13056:               CALL  

   195         PRINTPOS = STARTPOS %IF PRINTPOS = 0
1251 @ 13057:               LINE   195 "regression-compile-tmp/hal70.imp"
1252 @ 13093:               PUSH   PRINTPOS
1253 @ 13096:               PUSHI  #0x00000000
1254 @ 13101:               JUMPIF # L_0007
1255 @ 13105:               PUSH   PRINTPOS
1256 @ 13108:               PUSH   STARTPOS
1257 @ 13111:               ASSVAL
1258 @ 13112:               LOCATE L_0007

   196         PRINT LOC %IF CHARS = 0
1259 @ 13115:               LINE   196 "regression-compile-tmp/hal70.imp"
1260 @ 13151:               PUSH   CHARS
1261 @ 13154:               PUSHI  #0x00000000
1262 @ 13159:               JUMPIF # L_0007
1263 @ 13163:               PUSH   PRINTLOC
1264 @ 13166:               CALL  
1265 @ 13167:               LOCATE L_0007

   197         PRINTIT(NL)
1266 @ 13170:               LINE   197 "regression-compile-tmp/hal70.imp"
1267 @ 13206:               PUSH   PRINTIT
1268 @ 13209:               PUSHI  #0x0000000a
1269 @ 13214:               ASSPAR
1270 @ 13215:               CALL  

   198         NEWLINE
1271 @ 13216:               LINE   198 "regression-compile-tmp/hal70.imp"
1272 @ 13252:               PUSH   NEWLINE
1273 @ 13255:               CALL  

   199         SELECT OUTPUT(LIS)
1274 @ 13256:               LINE   199 "regression-compile-tmp/hal70.imp"
1275 @ 13292:               PUSH   SELECTOUTPUT
1276 @ 13295:               PUSH   LIS
1277 @ 13298:               ASSPAR
1278 @ 13299:               CALL  

   200      %FINISH
1279 @ 13300:               LINE   200 "regression-compile-tmp/hal70.imp"
1280 @ 13336:               LOCATE L_0004

   201      FSYM = ' ';  PRINTPOS = 0;  CHARS = 0
1281 @ 13339:               LINE   201 "regression-compile-tmp/hal70.imp"
1282 @ 13375:               PUSH   FSYM
1283 @ 13378:               PUSHI  #0x00000020
1284 @ 13383:               ASSVAL
1285 @ 13384:               LINE   201 "regression-compile-tmp/hal70.imp"
1286 @ 13420:               PUSH   PRINTPOS
1287 @ 13423:               PUSHI  #0x00000000
1288 @ 13428:               ASSVAL
1289 @ 13429:               LINE   201 "regression-compile-tmp/hal70.imp"
1290 @ 13465:               PUSH   CHARS
1291 @ 13468:               PUSHI  #0x00000000
1292 @ 13473:               ASSVAL

   202  %END
   203  
1293 @ 13474:               LINE   202 "regression-compile-tmp/hal70.imp"
1294 @ 13510:            END    _lev0id0_PRINTLINE {lev=2 --> 1}

   204  %ROUTINE PUT(%INTEGER V)
   205  !STORE 4-BIT ITEM IN BINARY RECORD
1295 @ 13511:            LINE   204 "regression-compile-tmp/hal70.imp"
1296 @ 13547:            DEF    PUT (_lev0id0_PUT) 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
1297 @ 13562:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1298 @ 13563:                  DEF    V p1=V_00d4 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
1299 @ 13576:               FINISH ) {lev=2}

   206  %OWNINTEGER HOLD=0
1300 @ 13577:               LINE   206 "regression-compile-tmp/hal70.imp"
1301 @ 13613:               PUSHI  #0x00000000
1302 @ 13618:               DEF    HOLD p1=V_00d5 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
1303 @ 13634:               INIT   1

   207      V = V&15
1304 @ 13637:               LINE   207 "regression-compile-tmp/hal70.imp"
1305 @ 13673:               PUSH   V
1306 @ 13676:               PUSH   V
1307 @ 13679:               PUSHI  #0x0000000f
1308 @ 13684:               AND   
1309 @ 13685:               ASSVAL

   208      HOLD = HOLD<<4+V
1310 @ 13686:               LINE   208 "regression-compile-tmp/hal70.imp"
1311 @ 13722:               PUSH   HOLD
1312 @ 13725:               PUSH   HOLD
1313 @ 13728:               PUSHI  #0x00000004
1314 @ 13733:               LSH   
1315 @ 13734:               PUSH   V
1316 @ 13737:               ADD   
1317 @ 13738:               ASSVAL

   209      BINCOUNT = BINCOUNT+1
1318 @ 13739:               LINE   209 "regression-compile-tmp/hal70.imp"
1319 @ 13775:               PUSH   BINCOUNT
1320 @ 13778:               PUSH   BINCOUNT
1321 @ 13781:               PUSHI  #0x00000001
1322 @ 13786:               ADD   
1323 @ 13787:               ASSVAL

   210      %IF BINCOUNT&3 = 0 %START
1324 @ 13788:               LINE   210 "regression-compile-tmp/hal70.imp"
1325 @ 13824:               PUSH   BINCOUNT
1326 @ 13827:               PUSHI  #0x00000003
1327 @ 13832:               AND   
1328 @ 13833:               PUSHI  #0x00000000
1329 @ 13838:               JUMPIF # L_0004

   211         BREC(BINCOUNT>>2) = HOLD
1330 @ 13842:               LINE   211 "regression-compile-tmp/hal70.imp"
1331 @ 13878:               PUSH   BREC
1332 @ 13881:               PUSH   BINCOUNT
1333 @ 13884:               PUSHI  #0x00000002
1334 @ 13889:               RSH   
1335 @ 13890:               ACCESS
1336 @ 13891:               PUSH   HOLD
1337 @ 13894:               ASSVAL

   212         CHECK = CHECK!!HOLD
1338 @ 13895:               LINE   212 "regression-compile-tmp/hal70.imp"
1339 @ 13931:               PUSH   CHECK
1340 @ 13934:               PUSH   CHECK
1341 @ 13937:               PUSH   HOLD
1342 @ 13940:               XOR   
1343 @ 13941:               ASSVAL

   213         HOLD = 0
1344 @ 13942:               LINE   213 "regression-compile-tmp/hal70.imp"
1345 @ 13978:               PUSH   HOLD
1346 @ 13981:               PUSHI  #0x00000000
1347 @ 13986:               ASSVAL

   214      %FINISH
1348 @ 13987:               LINE   214 "regression-compile-tmp/hal70.imp"
1349 @ 14023:               LOCATE L_0004

   215  %END
   216  
1350 @ 14026:               LINE   215 "regression-compile-tmp/hal70.imp"
1351 @ 14062:            END    _lev0id0_PUT {lev=2 --> 1}

   217  %ROUTINE PUT WORD(%INTEGER V)
1352 @ 14063:            LINE   217 "regression-compile-tmp/hal70.imp"
1353 @ 14099:            DEF    PUTWORD (_lev0id0_PUTWORD) 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
1354 @ 14118:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1355 @ 14119:                  DEF    V p1=V_00d5 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
1356 @ 14132:               FINISH ) {lev=2}

   218      %ROUTINE PUT1(%INTEGER V)
1357 @ 14133:               LINE   218 "regression-compile-tmp/hal70.imp"
1358 @ 14169:               DEF    PUT1 (_lev0id0_PUTWORD_PUT1) 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
1359 @ 14185:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
1360 @ 14186:                     DEF    V p1=V_00d7 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
1361 @ 14199:                  FINISH ) {lev=3}

   219          PUT(V>>4);  PUT(V)
1362 @ 14200:                  LINE   219 "regression-compile-tmp/hal70.imp"
1363 @ 14236:                  PUSH   PUT
1364 @ 14239:                  PUSH   V
1365 @ 14242:                  PUSHI  #0x00000004
1366 @ 14247:                  RSH   
1367 @ 14248:                  ASSPAR
1368 @ 14249:                  CALL  
1369 @ 14250:                  LINE   219 "regression-compile-tmp/hal70.imp"
1370 @ 14286:                  PUSH   PUT
1371 @ 14289:                  PUSH   V
1372 @ 14292:                  ASSPAR
1373 @ 14293:                  CALL  

   220      %END
1374 @ 14294:                  LINE   220 "regression-compile-tmp/hal70.imp"
1375 @ 14330:               END    _lev0id0_PUTWORD_PUT1 {lev=3 --> 2}

   221      PUT1(V>>8);  PUT1(V)
1376 @ 14331:               LINE   221 "regression-compile-tmp/hal70.imp"
1377 @ 14367:               PUSH   PUT1
1378 @ 14370:               PUSH   V
1379 @ 14373:               PUSHI  #0x00000008
1380 @ 14378:               RSH   
1381 @ 14379:               ASSPAR
1382 @ 14380:               CALL  
1383 @ 14381:               LINE   221 "regression-compile-tmp/hal70.imp"
1384 @ 14417:               PUSH   PUT1
1385 @ 14420:               PUSH   V
1386 @ 14423:               ASSPAR
1387 @ 14424:               CALL  

   222  %END
   223  
1388 @ 14425:               LINE   222 "regression-compile-tmp/hal70.imp"
1389 @ 14461:            END    _lev0id0_PUTWORD {lev=2 --> 1}

   224  %ROUTINE OUTPUT RECORD
1390 @ 14462:            LINE   224 "regression-compile-tmp/hal70.imp"
1391 @ 14498:            DEF    OUTPUTRECORD (_lev0id0_OUTPUTRECORD) 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
1392 @ 14522:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1393 @ 14523:               FINISH ) {lev=2}

   225  %OWNINTEGER SEQ=0
1394 @ 14524:               LINE   225 "regression-compile-tmp/hal70.imp"
1395 @ 14560:               PUSHI  #0x00000000
1396 @ 14565:               DEF    SEQ p1=V_00d6 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
1397 @ 14580:               INIT   1

   226  %INTEGER I
1398 @ 14583:               LINE   226 "regression-compile-tmp/hal70.imp"
1399 @ 14619:               DEF    I p1=V_00d7 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

   227      %ROUTINE OUTPUT WORD(%INTEGER W)
1400 @ 14632:               LINE   227 "regression-compile-tmp/hal70.imp"
1401 @ 14668:               DEF    OUTPUTWORD (_lev0id0_OUTPUTRECORD_OUTPUTWORD) 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
1402 @ 14690:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
1403 @ 14691:                     DEF    W p1=V_00d9 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
1404 @ 14704:                  FINISH ) {lev=3}

   228          PRINT CH(W>>8&255);  PRINT CH(W&255)
1405 @ 14705:                  LINE   228 "regression-compile-tmp/hal70.imp"
1406 @ 14741:                  PUSH   PRINTCH
1407 @ 14744:                  PUSH   W
1408 @ 14747:                  PUSHI  #0x00000008
1409 @ 14752:                  RSH   
1410 @ 14753:                  PUSHI  #0x000000ff
1411 @ 14758:                  AND   
1412 @ 14759:                  ASSPAR
1413 @ 14760:                  CALL  
1414 @ 14761:                  LINE   228 "regression-compile-tmp/hal70.imp"
1415 @ 14797:                  PUSH   PRINTCH
1416 @ 14800:                  PUSH   W
1417 @ 14803:                  PUSHI  #0x000000ff
1418 @ 14808:                  AND   
1419 @ 14809:                  ASSPAR
1420 @ 14810:                  CALL  

   229      %END
1421 @ 14811:                  LINE   229 "regression-compile-tmp/hal70.imp"
1422 @ 14847:               END    _lev0id0_OUTPUTRECORD_OUTPUTWORD {lev=3 --> 2}

   230      PUT(0) %WHILE BINCOUNT # 208
1423 @ 14848:               LINE   230 "regression-compile-tmp/hal70.imp"
1424 @ 14884:               LOCATE L_0003
1425 @ 14887:               PUSH   BINCOUNT
1426 @ 14890:               PUSHI  #0x000000d0
1427 @ 14895:               JUMPIF = L_0004
1428 @ 14899:               PUSH   PUT
1429 @ 14902:               PUSHI  #0x00000000
1430 @ 14907:               ASSPAR
1431 @ 14908:               CALL  
1432 @ 14909:               REPEAT L_0003
1433 @ 14912:               LOCATE L_0004

   231      SELECT OUTPUT(BIN)
1434 @ 14915:               LINE   231 "regression-compile-tmp/hal70.imp"
1435 @ 14951:               PUSH   SELECTOUTPUT
1436 @ 14954:               PUSH   BIN
1437 @ 14957:               ASSPAR
1438 @ 14958:               CALL  

   232      %CYCLE I = 1,1,10
1439 @ 14959:               LINE   232 "regression-compile-tmp/hal70.imp"
1440 @ 14995:               PUSH   I
1441 @ 14998:               PUSHI  #0x00000001
1442 @ 15003:               PUSHI  #0x0000000a
1443 @ 15008:               PUSHI  #0x00000001
1444 @ 15013:               FOR    L_0003

   233         PRINT CH(0);                   !RUNOUT
1445 @ 15016:               LINE   233 "regression-compile-tmp/hal70.imp"
1446 @ 15052:               PUSH   PRINTCH
1447 @ 15055:               PUSHI  #0x00000000
1448 @ 15060:               ASSPAR
1449 @ 15061:               CALL  

   234      %REPEAT
1450 @ 15062:               LINE   234 "regression-compile-tmp/hal70.imp"
1451 @ 15098:               REPEAT L_0003
1452 @ 15101:               LOCATE L_0004

   235      PRINT CH(16_F0);                  !HEADER CODE
1453 @ 15104:               LINE   235 "regression-compile-tmp/hal70.imp"
1454 @ 15140:               PUSH   PRINTCH
1455 @ 15143:               PUSHI  #0x000000f0
1456 @ 15148:               ASSPAR
1457 @ 15149:               CALL  

   236      SEQ = SEQ-1
1458 @ 15150:               LINE   236 "regression-compile-tmp/hal70.imp"
1459 @ 15186:               PUSH   SEQ
1460 @ 15189:               PUSH   SEQ
1461 @ 15192:               PUSHI  #0x00000001
1462 @ 15197:               SUB   
1463 @ 15198:               ASSVAL

   237      OUTPUT WORD(SEQ);                 !SEQUENCE NUMBER
1464 @ 15199:               LINE   237 "regression-compile-tmp/hal70.imp"
1465 @ 15235:               PUSH   OUTPUTWORD
1466 @ 15238:               PUSH   SEQ
1467 @ 15241:               ASSPAR
1468 @ 15242:               CALL  

   238      OUTPUT WORD(\(CHECK!!SEQ));       !CHECKSUM
1469 @ 15243:               LINE   238 "regression-compile-tmp/hal70.imp"
1470 @ 15279:               PUSH   OUTPUTWORD
1471 @ 15282:               PUSH   CHECK
1472 @ 15285:               PUSH   SEQ
1473 @ 15288:               XOR   
1474 @ 15289:               NOT   
1475 @ 15290:               ASSPAR
1476 @ 15291:               CALL  

   239      %CYCLE I = 1,1,52
1477 @ 15292:               LINE   239 "regression-compile-tmp/hal70.imp"
1478 @ 15328:               PUSH   I
1479 @ 15331:               PUSHI  #0x00000001
1480 @ 15336:               PUSHI  #0x00000034
1481 @ 15341:               PUSHI  #0x00000001
1482 @ 15346:               FOR    L_0003

   240         OUTPUT WORD(BREC(I))
1483 @ 15349:               LINE   240 "regression-compile-tmp/hal70.imp"
1484 @ 15385:               PUSH   OUTPUTWORD
1485 @ 15388:               PUSH   BREC
1486 @ 15391:               PUSH   I
1487 @ 15394:               ACCESS
1488 @ 15395:               ASSPAR
1489 @ 15396:               CALL  

   241      %REPEAT
1490 @ 15397:               LINE   241 "regression-compile-tmp/hal70.imp"
1491 @ 15433:               REPEAT L_0003
1492 @ 15436:               LOCATE L_0004

   242      BINCOUNT = 0;  CHECK = 0
1493 @ 15439:               LINE   242 "regression-compile-tmp/hal70.imp"
1494 @ 15475:               PUSH   BINCOUNT
1495 @ 15478:               PUSHI  #0x00000000
1496 @ 15483:               ASSVAL
1497 @ 15484:               LINE   242 "regression-compile-tmp/hal70.imp"
1498 @ 15520:               PUSH   CHECK
1499 @ 15523:               PUSHI  #0x00000000
1500 @ 15528:               ASSVAL

   243      SELECT OUTPUT(LIS)
1501 @ 15529:               LINE   243 "regression-compile-tmp/hal70.imp"
1502 @ 15565:               PUSH   SELECTOUTPUT
1503 @ 15568:               PUSH   LIS
1504 @ 15571:               ASSPAR
1505 @ 15572:               CALL  

   244  %END
   245  
1506 @ 15573:               LINE   244 "regression-compile-tmp/hal70.imp"
1507 @ 15609:            END    _lev0id0_OUTPUTRECORD {lev=2 --> 1}

   246  %ROUTINE PLANT VAL
1508 @ 15610:            LINE   246 "regression-compile-tmp/hal70.imp"
1509 @ 15646:            DEF    PLANTVAL (_lev0id0_PLANTVAL) 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
1510 @ 15666:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1511 @ 15667:               FINISH ) {lev=2}

   247  %INTEGER I,J
1512 @ 15668:               LINE   247 "regression-compile-tmp/hal70.imp"
1513 @ 15704:               DEF    I p1=V_00d7 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
1514 @ 15717:               DEF    J p1=V_00d8 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

   248      TYPE = 0 %IF TYPE = SINGLE
1515 @ 15730:               LINE   248 "regression-compile-tmp/hal70.imp"
1516 @ 15766:               PUSH   TYPE
1517 @ 15769:               PUSH   SINGLE
1518 @ 15772:               JUMPIF # L_0004
1519 @ 15776:               PUSH   TYPE
1520 @ 15779:               PUSHI  #0x00000000
1521 @ 15784:               ASSVAL
1522 @ 15785:               LOCATE L_0004

   249      I = 2;  I = 4 %IF TYPE&OPMASK # 0
1523 @ 15788:               LINE   249 "regression-compile-tmp/hal70.imp"
1524 @ 15824:               PUSH   I
1525 @ 15827:               PUSHI  #0x00000002
1526 @ 15832:               ASSVAL
1527 @ 15833:               LINE   249 "regression-compile-tmp/hal70.imp"
1528 @ 15869:               PUSH   TYPE
1529 @ 15872:               PUSH   OPMASK
1530 @ 15875:               AND   
1531 @ 15876:               PUSHI  #0x00000000
1532 @ 15881:               JUMPIF = L_0004
1533 @ 15885:               PUSH   I
1534 @ 15888:               PUSHI  #0x00000004
1535 @ 15893:               ASSVAL
1536 @ 15894:               LOCATE L_0004

   250      %IF PASS > 0 %START
1537 @ 15897:               LINE   250 "regression-compile-tmp/hal70.imp"
1538 @ 15933:               PUSH   PASS
1539 @ 15936:               PUSHI  #0x00000000
1540 @ 15941:               JUMPIF <= L_0004

   251         OUTPUT RECORD %IF BINCOUNT+I+I >= 208
1541 @ 15945:               LINE   251 "regression-compile-tmp/hal70.imp"
1542 @ 15981:               PUSH   BINCOUNT
1543 @ 15984:               PUSH   I
1544 @ 15987:               ADD   
1545 @ 15988:               PUSH   I
1546 @ 15991:               ADD   
1547 @ 15992:               PUSHI  #0x000000d0
1548 @ 15997:               JUMPIF < L_0007
1549 @ 16001:               PUSH   OUTPUTRECORD
1550 @ 16004:               CALL  
1551 @ 16005:               LOCATE L_0007

   252         %IF I = 4 %START
1552 @ 16008:               LINE   252 "regression-compile-tmp/hal70.imp"
1553 @ 16044:               PUSH   I
1554 @ 16047:               PUSHI  #0x00000004
1555 @ 16052:               JUMPIF # L_0007

   253            %IF TYPE&16_4000 = 0 %START
1556 @ 16056:               LINE   253 "regression-compile-tmp/hal70.imp"
1557 @ 16092:               PUSH   TYPE
1558 @ 16095:               PUSHI  #0x00004000
1559 @ 16100:               AND   
1560 @ 16101:               PUSHI  #0x00000000
1561 @ 16106:               JUMPIF # L_000a

   254               PUT(11);  J = TYPE!!OPMASK
1562 @ 16110:               LINE   254 "regression-compile-tmp/hal70.imp"
1563 @ 16146:               PUSH   PUT
1564 @ 16149:               PUSHI  #0x0000000b
1565 @ 16154:               ASSPAR
1566 @ 16155:               CALL  
1567 @ 16156:               LINE   254 "regression-compile-tmp/hal70.imp"
1568 @ 16192:               PUSH   J
1569 @ 16195:               PUSH   TYPE
1570 @ 16198:               PUSH   OPMASK
1571 @ 16201:               XOR   
1572 @ 16202:               ASSVAL

   255               TYPE = RELMASK
1573 @ 16203:               LINE   255 "regression-compile-tmp/hal70.imp"
1574 @ 16239:               PUSH   TYPE
1575 @ 16242:               PUSH   RELMASK
1576 @ 16245:               ASSVAL

   256            %finish %ELSE %START
1577 @ 16246:               LINE   256 "regression-compile-tmp/hal70.imp"
1578 @ 16282:               GOTO   L_0009
1579 @ 16285:               LOCATE L_000a

   257               PUT(10);  J = TYPE;  TYPE = 0
1580 @ 16288:               LINE   257 "regression-compile-tmp/hal70.imp"
1581 @ 16324:               PUSH   PUT
1582 @ 16327:               PUSHI  #0x0000000a
1583 @ 16332:               ASSPAR
1584 @ 16333:               CALL  
1585 @ 16334:               LINE   257 "regression-compile-tmp/hal70.imp"
1586 @ 16370:               PUSH   J
1587 @ 16373:               PUSH   TYPE
1588 @ 16376:               ASSVAL
1589 @ 16377:               LINE   257 "regression-compile-tmp/hal70.imp"
1590 @ 16413:               PUSH   TYPE
1591 @ 16416:               PUSHI  #0x00000000
1592 @ 16421:               ASSVAL

   258            %FINISH
1593 @ 16422:               LINE   258 "regression-compile-tmp/hal70.imp"
1594 @ 16458:               LOCATE L_0009

   259            PUT WORD(J)
1595 @ 16461:               LINE   259 "regression-compile-tmp/hal70.imp"
1596 @ 16497:               PUSH   PUTWORD
1597 @ 16500:               PUSH   J
1598 @ 16503:               ASSPAR
1599 @ 16504:               CALL  

   260            PRINT LINE %IF CHARS # 0
1600 @ 16505:               LINE   260 "regression-compile-tmp/hal70.imp"
1601 @ 16541:               PUSH   CHARS
1602 @ 16544:               PUSHI  #0x00000000
1603 @ 16549:               JUMPIF = L_000a
1604 @ 16553:               PUSH   PRINTLINE
1605 @ 16556:               CALL  
1606 @ 16557:               LOCATE L_000a

   261            PRINT LOC
1607 @ 16560:               LINE   261 "regression-compile-tmp/hal70.imp"
1608 @ 16596:               PUSH   PRINTLOC
1609 @ 16599:               CALL  

   262            PRINT WORD(J);  PRINT(' ')
1610 @ 16600:               LINE   262 "regression-compile-tmp/hal70.imp"
1611 @ 16636:               PUSH   PRINTWORD
1612 @ 16639:               PUSH   J
1613 @ 16642:               ASSPAR
1614 @ 16643:               CALL  
1615 @ 16644:               LINE   262 "regression-compile-tmp/hal70.imp"
1616 @ 16680:               PUSH   PRINT
1617 @ 16683:               PUSHI  #0x00000020
1618 @ 16688:               ASSPAR
1619 @ 16689:               CALL  

   263         %finish %ELSE %START
1620 @ 16690:               LINE   263 "regression-compile-tmp/hal70.imp"
1621 @ 16726:               GOTO   L_0006
1622 @ 16729:               LOCATE L_0007

   264            %IF TYPE&RELMASK # 0 %THEN PUT(9) %ELSE PUT(8)
1623 @ 16732:               LINE   264 "regression-compile-tmp/hal70.imp"
1624 @ 16768:               PUSH   TYPE
1625 @ 16771:               PUSH   RELMASK
1626 @ 16774:               AND   
1627 @ 16775:               PUSHI  #0x00000000
1628 @ 16780:               JUMPIF = L_000a
1629 @ 16784:               PUSH   PUT
1630 @ 16787:               PUSHI  #0x00000009
1631 @ 16792:               ASSPAR
1632 @ 16793:               CALL  
1633 @ 16794:               GOTO   L_0009
1634 @ 16797:               LOCATE L_000a
1635 @ 16800:               PUSH   PUT
1636 @ 16803:               PUSHI  #0x00000008
1637 @ 16808:               ASSPAR
1638 @ 16809:               CALL  
1639 @ 16810:               LOCATE L_0009

   265            %IF CHARS # 0 %THEN PRINT(' ') %ELSE PRINT LOC
1640 @ 16813:               LINE   265 "regression-compile-tmp/hal70.imp"
1641 @ 16849:               PUSH   CHARS
1642 @ 16852:               PUSHI  #0x00000000
1643 @ 16857:               JUMPIF = L_000a
1644 @ 16861:               PUSH   PRINT
1645 @ 16864:               PUSHI  #0x00000020
1646 @ 16869:               ASSPAR
1647 @ 16870:               CALL  
1648 @ 16871:               GOTO   L_0009
1649 @ 16874:               LOCATE L_000a
1650 @ 16877:               PUSH   PRINTLOC
1651 @ 16880:               CALL  
1652 @ 16881:               LOCATE L_0009

   266         %FINISH
1653 @ 16884:               LINE   266 "regression-compile-tmp/hal70.imp"
1654 @ 16920:               LOCATE L_0006

   267         PUT WORD(VAL);  PRINT WORD(VAL)
1655 @ 16923:               LINE   267 "regression-compile-tmp/hal70.imp"
1656 @ 16959:               PUSH   PUTWORD
1657 @ 16962:               PUSH   VAL
1658 @ 16965:               ASSPAR
1659 @ 16966:               CALL  
1660 @ 16967:               LINE   267 "regression-compile-tmp/hal70.imp"
1661 @ 17003:               PUSH   PRINTWORD
1662 @ 17006:               PUSH   VAL
1663 @ 17009:               ASSPAR
1664 @ 17010:               CALL  

   268         PRINT('''') %IF TYPE&RELMASK # 0
1665 @ 17011:               LINE   268 "regression-compile-tmp/hal70.imp"
1666 @ 17047:               PUSH   TYPE
1667 @ 17050:               PUSH   RELMASK
1668 @ 17053:               AND   
1669 @ 17054:               PUSHI  #0x00000000
1670 @ 17059:               JUMPIF = L_0007
1671 @ 17063:               PUSH   PRINT
1672 @ 17066:               PUSHI  #0x00000027
1673 @ 17071:               ASSPAR
1674 @ 17072:               CALL  
1675 @ 17073:               LOCATE L_0007

   269         PRINT LINE %IF TYPE&RELMASK#0 %OR CHARS=15
1676 @ 17076:               LINE   269 "regression-compile-tmp/hal70.imp"
1677 @ 17112:               PUSH   TYPE
1678 @ 17115:               PUSH   RELMASK
1679 @ 17118:               AND   
1680 @ 17119:               PUSHI  #0x00000000
1681 @ 17124:               JUMPIF # L_0008
1682 @ 17128:               PUSH   CHARS
1683 @ 17131:               PUSHI  #0x0000000f
1684 @ 17136:               JUMPIF # L_0007
1685 @ 17140:               LOCATE L_0008
1686 @ 17143:               PUSH   PRINTLINE
1687 @ 17146:               CALL  
1688 @ 17147:               LOCATE L_0007

   270      %FINISH
1689 @ 17150:               LINE   270 "regression-compile-tmp/hal70.imp"
1690 @ 17186:               LOCATE L_0004

   271      LOC = LOC+I
1691 @ 17189:               LINE   271 "regression-compile-tmp/hal70.imp"
1692 @ 17225:               PUSH   LOC
1693 @ 17228:               PUSH   LOC
1694 @ 17231:               PUSH   I
1695 @ 17234:               ADD   
1696 @ 17235:               ASSVAL

   272  %END
   273  
1697 @ 17236:               LINE   272 "regression-compile-tmp/hal70.imp"
1698 @ 17272:            END    _lev0id0_PLANTVAL {lev=2 --> 1}

   274  %ROUTINE NEST(%INTEGER K)
   275  !!    NP = NP-1;  %MONITOR 23 %IF NP = BP
1699 @ 17273:            LINE   274 "regression-compile-tmp/hal70.imp"
1700 @ 17309:            DEF    NEST (_lev0id0_NEST) 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
1701 @ 17325:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1702 @ 17326:                  DEF    K p1=V_00d8 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
1703 @ 17339:               FINISH ) {lev=2}

   276      NP = NP-1;  !{}%signal 2,3 %IF NP = BP
   277  !!    INTEGER(NP) = K
1704 @ 17340:               LINE   276 "regression-compile-tmp/hal70.imp"
1705 @ 17376:               PUSH   NP
1706 @ 17379:               PUSH   NP
1707 @ 17382:               PUSHI  #0x00000001
1708 @ 17387:               SUB   
1709 @ 17388:               ASSVAL

   278      set INTEGER(NP, K)
1710 @ 17389:               LINE   278 "regression-compile-tmp/hal70.imp"
1711 @ 17425:               PUSH   SETINTEGER
1712 @ 17428:               PUSH   NP
1713 @ 17431:               ASSPAR
1714 @ 17432:               PUSH   K
1715 @ 17435:               ASSPAR
1716 @ 17436:               CALL  

   279  %END
   280  
1717 @ 17437:               LINE   279 "regression-compile-tmp/hal70.imp"
1718 @ 17473:            END    _lev0id0_NEST {lev=2 --> 1}

   281  %ROUTINE SET LAB(%INTEGER DEST)
1719 @ 17474:            LINE   281 "regression-compile-tmp/hal70.imp"
1720 @ 17510:            DEF    SETLAB (_lev0id0_SETLAB) 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
1721 @ 17528:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1722 @ 17529:                  DEF    DEST p1=V_00d9 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
1723 @ 17545:               FINISH ) {lev=2}

   282  %INTEGER D
1724 @ 17546:               LINE   282 "regression-compile-tmp/hal70.imp"
1725 @ 17582:               DEF    D p1=V_00da 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

   283      D = DEST
1726 @ 17595:               LINE   283 "regression-compile-tmp/hal70.imp"
1727 @ 17631:               PUSH   D
1728 @ 17634:               PUSH   DEST
1729 @ 17637:               ASSVAL

   284      %CYCLE
1730 @ 17638:               LINE   284 "regression-compile-tmp/hal70.imp"
1731 @ 17674:               LOCATE L_0003

   285         TYPE = INTEGER(NP)&16_FFF+DEFLIM; !DEST SLOT
1732 @ 17677:               LINE   285 "regression-compile-tmp/hal70.imp"
1733 @ 17713:               PUSH   TYPE
1734 @ 17716:               PUSH   INTEGER
1735 @ 17719:               PUSH   NP
1736 @ 17722:               ASSPAR
1737 @ 17723:               CALL  
1738 @ 17724:               PUSHI  #0x00000fff
1739 @ 17729:               AND   
1740 @ 17730:               PUSH   DEFLIM
1741 @ 17733:               ADD   
1742 @ 17734:               ASSVAL

   286         NP = NP+1
1743 @ 17735:               LINE   286 "regression-compile-tmp/hal70.imp"
1744 @ 17771:               PUSH   NP
1745 @ 17774:               PUSH   NP
1746 @ 17777:               PUSHI  #0x00000001
1747 @ 17782:               ADD   
1748 @ 17783:               ASSVAL

   287         VAL = INTEGER(NP);             !LOC OF JUMP
1749 @ 17784:               LINE   287 "regression-compile-tmp/hal70.imp"
1750 @ 17820:               PUSH   VAL
1751 @ 17823:               PUSH   INTEGER
1752 @ 17826:               PUSH   NP
1753 @ 17829:               ASSPAR
1754 @ 17830:               CALL  
1755 @ 17831:               ASSVAL

   288         NP = NP+1
1756 @ 17832:               LINE   288 "regression-compile-tmp/hal70.imp"
1757 @ 17868:               PUSH   NP
1758 @ 17871:               PUSH   NP
1759 @ 17874:               PUSHI  #0x00000001
1760 @ 17879:               ADD   
1761 @ 17880:               ASSVAL

   289         ATYPE = -1;  CREG = -1
1762 @ 17881:               LINE   289 "regression-compile-tmp/hal70.imp"
1763 @ 17917:               PUSH   ATYPE
1764 @ 17920:               PUSHI  #0x00000001
1765 @ 17925:               NEGATE
1766 @ 17926:               ASSVAL
1767 @ 17927:               LINE   289 "regression-compile-tmp/hal70.imp"
1768 @ 17963:               PUSH   CREG
1769 @ 17966:               PUSHI  #0x00000001
1770 @ 17971:               NEGATE
1771 @ 17972:               ASSVAL

   290         FLAG = 0;  FLAG = 2 %IF (D-VAL)>>1+PASS <= 16
1772 @ 17973:               LINE   290 "regression-compile-tmp/hal70.imp"
1773 @ 18009:               PUSH   FLAG
1774 @ 18012:               PUSHI  #0x00000000
1775 @ 18017:               ASSVAL
1776 @ 18018:               LINE   290 "regression-compile-tmp/hal70.imp"
1777 @ 18054:               PUSH   D
1778 @ 18057:               PUSH   VAL
1779 @ 18060:               SUB   
1780 @ 18061:               PUSHI  #0x00000001
1781 @ 18066:               RSH   
1782 @ 18067:               PUSH   PASS
1783 @ 18070:               ADD   
1784 @ 18071:               PUSHI  #0x00000010
1785 @ 18076:               JUMPIF > L_0007
1786 @ 18080:               PUSH   FLAG
1787 @ 18083:               PUSHI  #0x00000002
1788 @ 18088:               ASSVAL
1789 @ 18089:               LOCATE L_0007

   291         VAL = VAL-FLAG
1790 @ 18092:               LINE   291 "regression-compile-tmp/hal70.imp"
1791 @ 18128:               PUSH   VAL
1792 @ 18131:               PUSH   VAL
1793 @ 18134:               PUSH   FLAG
1794 @ 18137:               SUB   
1795 @ 18138:               ASSVAL

   292         %IF PASS = 0 %START
   293  !!          D = D-FLAG;  INTEGER(TYPE) = D
1796 @ 18139:               LINE   292 "regression-compile-tmp/hal70.imp"
1797 @ 18175:               PUSH   PASS
1798 @ 18178:               PUSHI  #0x00000000
1799 @ 18183:               JUMPIF # L_0007

   294            D = D-FLAG;  set INTEGER(TYPE, D)
1800 @ 18187:               LINE   294 "regression-compile-tmp/hal70.imp"
1801 @ 18223:               PUSH   D
1802 @ 18226:               PUSH   D
1803 @ 18229:               PUSH   FLAG
1804 @ 18232:               SUB   
1805 @ 18233:               ASSVAL
1806 @ 18234:               LINE   294 "regression-compile-tmp/hal70.imp"
1807 @ 18270:               PUSH   SETINTEGER
1808 @ 18273:               PUSH   TYPE
1809 @ 18276:               ASSPAR
1810 @ 18277:               PUSH   D
1811 @ 18280:               ASSPAR
1812 @ 18281:               CALL  

   295            %IF FLAG # 0 %START
1813 @ 18282:               LINE   295 "regression-compile-tmp/hal70.imp"
1814 @ 18318:               PUSH   FLAG
1815 @ 18321:               PUSHI  #0x00000000
1816 @ 18326:               JUMPIF = L_000a

   296               LOC = LOC-2;  DEST = DEST-2
1817 @ 18330:               LINE   296 "regression-compile-tmp/hal70.imp"
1818 @ 18366:               PUSH   LOC
1819 @ 18369:               PUSH   LOC
1820 @ 18372:               PUSHI  #0x00000002
1821 @ 18377:               SUB   
1822 @ 18378:               ASSVAL
1823 @ 18379:               LINE   296 "regression-compile-tmp/hal70.imp"
1824 @ 18415:               PUSH   DEST
1825 @ 18418:               PUSH   DEST
1826 @ 18421:               PUSHI  #0x00000002
1827 @ 18426:               SUB   
1828 @ 18427:               ASSVAL

   297               %WHILE TYPE # ALMAX %CYCLE
   298  !!                TYPE = TYPE+1;  INTEGER(TYPE) = INTEGER(TYPE)-2
1829 @ 18428:               LINE   297 "regression-compile-tmp/hal70.imp"
1830 @ 18464:               LOCATE L_000c
1831 @ 18467:               PUSH   TYPE
1832 @ 18470:               PUSH   ALMAX
1833 @ 18473:               JUMPIF = L_000d

   299                  TYPE = TYPE+1;  set INTEGER(TYPE,  INTEGER(TYPE)-2)
1834 @ 18477:               LINE   299 "regression-compile-tmp/hal70.imp"
1835 @ 18513:               PUSH   TYPE
1836 @ 18516:               PUSH   TYPE
1837 @ 18519:               PUSHI  #0x00000001
1838 @ 18524:               ADD   
1839 @ 18525:               ASSVAL
1840 @ 18526:               LINE   299 "regression-compile-tmp/hal70.imp"
1841 @ 18562:               PUSH   SETINTEGER
1842 @ 18565:               PUSH   TYPE
1843 @ 18568:               ASSPAR
1844 @ 18569:               PUSH   INTEGER
1845 @ 18572:               PUSH   TYPE
1846 @ 18575:               ASSPAR
1847 @ 18576:               CALL  
1848 @ 18577:               PUSHI  #0x00000002
1849 @ 18582:               SUB   
1850 @ 18583:               ASSPAR
1851 @ 18584:               CALL  

   300               %REPEAT
1852 @ 18585:               LINE   300 "regression-compile-tmp/hal70.imp"
1853 @ 18621:               REPEAT L_000c
1854 @ 18624:               LOCATE L_000d

   301            %FINISH
1855 @ 18627:               LINE   301 "regression-compile-tmp/hal70.imp"
1856 @ 18663:               LOCATE L_000a

   302         %finish %ELSE %START
1857 @ 18666:               LINE   302 "regression-compile-tmp/hal70.imp"
1858 @ 18702:               GOTO   L_0006
1859 @ 18705:               LOCATE L_0007

   303            FAULT('P') %IF INTEGER(TYPE) # D
1860 @ 18708:               LINE   303 "regression-compile-tmp/hal70.imp"
1861 @ 18744:               PUSH   INTEGER
1862 @ 18747:               PUSH   TYPE
1863 @ 18750:               ASSPAR
1864 @ 18751:               CALL  
1865 @ 18752:               PUSH   D
1866 @ 18755:               JUMPIF = L_000a
1867 @ 18759:               PUSH   FAULT
1868 @ 18762:               PUSHI  #0x00000050
1869 @ 18767:               ASSPAR
1870 @ 18768:               CALL  
1871 @ 18769:               LOCATE L_000a

   304         %FINISH
1872 @ 18772:               LINE   304 "regression-compile-tmp/hal70.imp"
1873 @ 18808:               LOCATE L_0006

   305         %RETURN %UNLESS INTEGER(NP)&16_1000 # 0
1874 @ 18811:               LINE   305 "regression-compile-tmp/hal70.imp"
1875 @ 18847:               PUSH   INTEGER
1876 @ 18850:               PUSH   NP
1877 @ 18853:               ASSPAR
1878 @ 18854:               CALL  
1879 @ 18855:               PUSHI  #0x00001000
1880 @ 18860:               AND   
1881 @ 18861:               PUSHI  #0x00000000
1882 @ 18866:               JUMPIF # L_0007
1883 @ 18870:               RETURN
1884 @ 18871:               LOCATE L_0007

   306         %IF INTEGER(NP)&16_2000 # 0 %START; !OR
1885 @ 18874:               LINE   306 "regression-compile-tmp/hal70.imp"
1886 @ 18910:               PUSH   INTEGER
1887 @ 18913:               PUSH   NP
1888 @ 18916:               ASSPAR
1889 @ 18917:               CALL  
1890 @ 18918:               PUSHI  #0x00002000
1891 @ 18923:               AND   
1892 @ 18924:               PUSHI  #0x00000000
1893 @ 18929:               JUMPIF = L_0007

   307            D = VAL+4 %IF D = DEST
1894 @ 18933:               LINE   307 "regression-compile-tmp/hal70.imp"
1895 @ 18969:               PUSH   D
1896 @ 18972:               PUSH   DEST
1897 @ 18975:               JUMPIF # L_000a
1898 @ 18979:               PUSH   D
1899 @ 18982:               PUSH   VAL
1900 @ 18985:               PUSHI  #0x00000004
1901 @ 18990:               ADD   
1902 @ 18991:               ASSVAL
1903 @ 18992:               LOCATE L_000a

   308         %finish %ELSE %START
1904 @ 18995:               LINE   308 "regression-compile-tmp/hal70.imp"
1905 @ 19031:               GOTO   L_0006
1906 @ 19034:               LOCATE L_0007

   309            D = DEST
1907 @ 19037:               LINE   309 "regression-compile-tmp/hal70.imp"
1908 @ 19073:               PUSH   D
1909 @ 19076:               PUSH   DEST
1910 @ 19079:               ASSVAL

   310         %FINISH
1911 @ 19080:               LINE   310 "regression-compile-tmp/hal70.imp"
1912 @ 19116:               LOCATE L_0006

   311      %REPEAT
1913 @ 19119:               LINE   311 "regression-compile-tmp/hal70.imp"
1914 @ 19155:               REPEAT L_0003

   312  %END
   313  
1915 @ 19158:               LINE   312 "regression-compile-tmp/hal70.imp"
1916 @ 19194:            END    _lev0id0_SETLAB {lev=2 --> 1}

   314  %ROUTINE ASSEMBLE
   315  !   INTERDATA OP-CODES (+FORMATS)
1917 @ 19195:            LINE   314 "regression-compile-tmp/hal70.imp"
1918 @ 19231:            DEF    ASSEMBLE (_lev0id0_ASSEMBLE) 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
1919 @ 19251:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1920 @ 19252:               FINISH ) {lev=2}

   316  %OWNINTEGER LOAD=16_080F, LB=16_9303
1921 @ 19253:               LINE   316 "regression-compile-tmp/hal70.imp"
1922 @ 19289:               PUSHI  #0x0000080f
1923 @ 19294:               DEF    LOAD 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
1924 @ 19310:               INIT   1
1925 @ 19313:               PUSHI  #0x00009303
1926 @ 19318:               DEF    LB p1=V_00db 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
1927 @ 19332:               INIT   1

   317  %OWNINTEGER ADD=16_0A0F, SUB=16_0B0F, AND=16_0407
1928 @ 19335:               LINE   317 "regression-compile-tmp/hal70.imp"
1929 @ 19371:               PUSHI  #0x00000a0f
1930 @ 19376:               DEF    ADD p1=V_00dc 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
1931 @ 19391:               INIT   1
1932 @ 19394:               PUSHI  #0x00000b0f
1933 @ 19399:               DEF    SUB p1=V_00dd 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
1934 @ 19414:               INIT   1
1935 @ 19417:               PUSHI  #0x00000407
1936 @ 19422:               DEF    AND p1=V_00de 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
1937 @ 19437:               INIT   1

   318  %OWNINTEGER OR=16_0607, XOR=16_0707
1938 @ 19440:               LINE   318 "regression-compile-tmp/hal70.imp"
1939 @ 19476:               PUSHI  #0x00000607
1940 @ 19481:               DEF    OR 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
1941 @ 19495:               INIT   1
1942 @ 19498:               PUSHI  #0x00000707
1943 @ 19503:               DEF    XOR 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
1944 @ 19518:               INIT   1

   319  %OWNINTEGER SLLS=16_7508, SRLS=16_7408, SLHL=16_0D04, SRHL=16_0C04
1945 @ 19521:               LINE   319 "regression-compile-tmp/hal70.imp"
1946 @ 19557:               PUSHI  #0x00007508
1947 @ 19562:               DEF    SLLS p1=V_00e1 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
1948 @ 19578:               INIT   1
1949 @ 19581:               PUSHI  #0x00007408
1950 @ 19586:               DEF    SRLS p1=V_00e2 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
1951 @ 19602:               INIT   1
1952 @ 19605:               PUSHI  #0x00000d04
1953 @ 19610:               DEF    SLHL p1=V_00e3 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
1954 @ 19626:               INIT   1
1955 @ 19629:               PUSHI  #0x00000c04
1956 @ 19634:               DEF    SRHL p1=V_00e4 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
1957 @ 19650:               INIT   1

   320  %OWNINTEGER COMP=16_0907, CLB=16_9402
1958 @ 19653:               LINE   320 "regression-compile-tmp/hal70.imp"
1959 @ 19689:               PUSHI  #0x00000907
1960 @ 19694:               DEF    COMP p1=V_00e5 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
1961 @ 19710:               INIT   1
1962 @ 19713:               PUSHI  #0x00009402
1963 @ 19718:               DEF    CLB p1=V_00e6 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
1964 @ 19733:               INIT   1

   321  %OWNINTEGER STORE=16_0002, STB=16_9202, AHM=16_2102
1965 @ 19736:               LINE   321 "regression-compile-tmp/hal70.imp"
1966 @ 19772:               PUSHI  #0x00000002
1967 @ 19777:               DEF    STORE p1=V_00e7 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
1968 @ 19794:               INIT   1
1969 @ 19797:               PUSHI  #0x00009202
1970 @ 19802:               DEF    STB p1=V_00e8 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
1971 @ 19817:               INIT   1
1972 @ 19820:               PUSHI  #0x00002102
1973 @ 19825:               DEF    AHM p1=V_00e9 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
1974 @ 19840:               INIT   1

   322  %OWNINTEGER BT=16_0203, BF=16_0303
   323  !    FORMAT CODES
1975 @ 19843:               LINE   322 "regression-compile-tmp/hal70.imp"
1976 @ 19879:               PUSHI  #0x00000203
1977 @ 19884:               DEF    BT p1=V_00ea 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
1978 @ 19898:               INIT   1
1979 @ 19901:               PUSHI  #0x00000303
1980 @ 19906:               DEF    BF p1=V_00eb 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
1981 @ 19920:               INIT   1

   324  %OWNINTEGER REGISTER=1, MEM=2, LIT=4, SHORT=8
   325  
1982 @ 19923:               LINE   324 "regression-compile-tmp/hal70.imp"
1983 @ 19959:               PUSHI  #0x00000001
1984 @ 19964:               DEF    REGISTER p1=V_00ec 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
1985 @ 19984:               INIT   1
1986 @ 19987:               PUSHI  #0x00000002
1987 @ 19992:               DEF    MEM p1=V_00ed 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
1988 @ 20007:               INIT   1
1989 @ 20010:               PUSHI  #0x00000004
1990 @ 20015:               DEF    LIT p1=V_00ee 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
1991 @ 20030:               INIT   1
1992 @ 20033:               PUSHI  #0x00000008
1993 @ 20038:               DEF    SHORT p1=V_00ef 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
1994 @ 20055:               INIT   1

   326  %OWNINTEGER ZQUERY=0
1995 @ 20058:               LINE   326 "regression-compile-tmp/hal70.imp"
1996 @ 20094:               PUSHI  #0x00000000
1997 @ 20099:               DEF    ZQUERY p1=V_00f0 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
1998 @ 20117:               INIT   1

   327  %INTEGER OP,K,Q,LITVAL,NQ,TYPE1,VAL1,FREE
1999 @ 20120:               LINE   327 "regression-compile-tmp/hal70.imp"
2000 @ 20156:               DEF    OP p1=V_00f1 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
2001 @ 20170:               DEF    K p1=V_00f2 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
2002 @ 20183:               DEF    Q p1=V_00f3 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
2003 @ 20196:               DEF    LITVAL p1=V_00f4 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
2004 @ 20214:               DEF    NQ p1=V_00f5 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
2005 @ 20228:               DEF    TYPE1 p1=V_00f6 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
2006 @ 20245:               DEF    VAL1 p1=V_00f7 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
2007 @ 20261:               DEF    FREE p1=V_00f8 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

   328  %SWITCH ASS(-30:-1)
   329  
2008 @ 20277:               LINE   328 "regression-compile-tmp/hal70.imp"
2009 @ 20313:               PUSHI  #0xffffffe2
2010 @ 20318:               PUSHI  #0xffffffff
2011 @ 20323:               BOUNDS
2012 @ 20324:               DEF    ASS p1=V_00f9 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

   330  %ROUTINE FORM INST(%INTEGER CODE)
   331  !    LS 4 BITS OF CODE DEFINE VALID FORMATS
   332  !    INTERDATA OP-CODES FOR DIFFERENT FORMATS
   333  !    ARE SYSTEMATICALLY RELATED
   334  !    SHORT=REGISTER+SINC, LIT=REGISTER+LINC, MEM=REGISTER+MINC
2013 @ 20339:               LINE   330 "regression-compile-tmp/hal70.imp"
2014 @ 20375:               DEF    FORMINST (_lev0id0_ASSEMBLE_FORMINST) p1=V_00fa 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
2015 @ 20395:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2016 @ 20396:                     DEF    CODE p1=V_00fb 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
2017 @ 20412:                  FINISH ) {lev=3}

   335  %OWNINTEGER SINC=16_1C00, LINC=16_C000, MINC=16_4000
2018 @ 20413:                  LINE   335 "regression-compile-tmp/hal70.imp"
2019 @ 20449:                  PUSHI  #0x00001c00
2020 @ 20454:                  DEF    SINC p1=V_00fc 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
2021 @ 20470:                  INIT   1
2022 @ 20473:                  PUSHI  #0x0000c000
2023 @ 20478:                  DEF    LINC p1=V_00fd 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
2024 @ 20494:                  INIT   1
2025 @ 20497:                  PUSHI  #0x00004000
2026 @ 20502:                  DEF    MINC p1=V_00fe 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
2027 @ 20518:                  INIT   1

   336  %INTEGER OP
2028 @ 20521:                  LINE   336 "regression-compile-tmp/hal70.imp"
2029 @ 20557:                  DEF    OP p1=V_00ff 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

   337      OP = CODE&16_FFF0
2030 @ 20571:                  LINE   337 "regression-compile-tmp/hal70.imp"
2031 @ 20607:                  PUSH   OP
2032 @ 20610:                  PUSH   CODE
2033 @ 20613:                  PUSHI  #0x0000fff0
2034 @ 20618:                  AND   
2035 @ 20619:                  ASSVAL

   338      %IF TYPE = REG %START
2036 @ 20620:                  LINE   338 "regression-compile-tmp/hal70.imp"
2037 @ 20656:                  PUSH   TYPE
2038 @ 20659:                  PUSH   REG
2039 @ 20662:                  JUMPIF # L_0004

   339         %IF CODE&REGISTER # 0 %START
2040 @ 20666:                  LINE   339 "regression-compile-tmp/hal70.imp"
2041 @ 20702:                  PUSH   CODE
2042 @ 20705:                  PUSH   REGISTER
2043 @ 20708:                  AND   
2044 @ 20709:                  PUSHI  #0x00000000
2045 @ 20714:                  JUMPIF = L_0007

   340            TYPE = SINGLE;  VAL = OP+VAL
2046 @ 20718:                  LINE   340 "regression-compile-tmp/hal70.imp"
2047 @ 20754:                  PUSH   TYPE
2048 @ 20757:                  PUSH   SINGLE
2049 @ 20760:                  ASSVAL
2050 @ 20761:                  LINE   340 "regression-compile-tmp/hal70.imp"
2051 @ 20797:                  PUSH   VAL
2052 @ 20800:                  PUSH   OP
2053 @ 20803:                  PUSH   VAL
2054 @ 20806:                  ADD   
2055 @ 20807:                  ASSVAL

   341            %RETURN
2056 @ 20808:                  LINE   341 "regression-compile-tmp/hal70.imp"
2057 @ 20844:                  RETURN

   342         %FINISH
2058 @ 20845:                  LINE   342 "regression-compile-tmp/hal70.imp"
2059 @ 20881:                  LOCATE L_0007

   343         TYPE = XMASK+VAL;  VAL = 0;    !COERCE TO INDEXED IMMEDIATE
2060 @ 20884:                  LINE   343 "regression-compile-tmp/hal70.imp"
2061 @ 20920:                  PUSH   TYPE
2062 @ 20923:                  PUSH   XMASK
2063 @ 20926:                  PUSH   VAL
2064 @ 20929:                  ADD   
2065 @ 20930:                  ASSVAL
2066 @ 20931:                  LINE   343 "regression-compile-tmp/hal70.imp"
2067 @ 20967:                  PUSH   VAL
2068 @ 20970:                  PUSHI  #0x00000000
2069 @ 20975:                  ASSVAL

   344      %FINISH
   345  !!    %IF TYPE=0 %AND !VAL!<=15 %AND CODE&SHORT#0 %START; !SHORT
2070 @ 20976:                  LINE   344 "regression-compile-tmp/hal70.imp"
2071 @ 21012:                  LOCATE L_0004

   346      %IF TYPE=0 %AND |VAL|<=15 %AND CODE&SHORT#0 %START; !SHORT
2072 @ 21015:                  LINE   346 "regression-compile-tmp/hal70.imp"
2073 @ 21051:                  PUSH   TYPE
2074 @ 21054:                  PUSHI  #0x00000000
2075 @ 21059:                  JUMPIF # L_0004
2076 @ 21063:                  PUSH   VAL
2077 @ 21066:                  MOD   
2078 @ 21067:                  PUSHI  #0x0000000f
2079 @ 21072:                  JUMPIF > L_0004
2080 @ 21076:                  PUSH   CODE
2081 @ 21079:                  PUSH   SHORT
2082 @ 21082:                  AND   
2083 @ 21083:                  PUSHI  #0x00000000
2084 @ 21088:                  JUMPIF = L_0004

   347         VAL = -VAL %AND OP = OP!!16_100 %IF VAL < 0
2085 @ 21092:                  LINE   347 "regression-compile-tmp/hal70.imp"
2086 @ 21128:                  PUSH   VAL
2087 @ 21131:                  PUSHI  #0x00000000
2088 @ 21136:                  JUMPIF >= L_0007
2089 @ 21140:                  PUSH   VAL
2090 @ 21143:                  PUSH   VAL
2091 @ 21146:                  NEGATE
2092 @ 21147:                  ASSVAL
2093 @ 21148:                  PUSH   OP
2094 @ 21151:                  PUSH   OP
2095 @ 21154:                  PUSHI  #0x00000100
2096 @ 21159:                  XOR   
2097 @ 21160:                  ASSVAL
2098 @ 21161:                  LOCATE L_0007

   348         TYPE = SINGLE;  VAL = OP+SINC+VAL
2099 @ 21164:                  LINE   348 "regression-compile-tmp/hal70.imp"
2100 @ 21200:                  PUSH   TYPE
2101 @ 21203:                  PUSH   SINGLE
2102 @ 21206:                  ASSVAL
2103 @ 21207:                  LINE   348 "regression-compile-tmp/hal70.imp"
2104 @ 21243:                  PUSH   VAL
2105 @ 21246:                  PUSH   OP
2106 @ 21249:                  PUSH   SINC
2107 @ 21252:                  ADD   
2108 @ 21253:                  PUSH   VAL
2109 @ 21256:                  ADD   
2110 @ 21257:                  ASSVAL

   349      %finish %ELSE %START
2111 @ 21258:                  LINE   349 "regression-compile-tmp/hal70.imp"
2112 @ 21294:                  GOTO   L_0003
2113 @ 21297:                  LOCATE L_0004

   350         FAULT('R') %IF TYPE&31 = XMASK; !R0 AS INDEX
2114 @ 21300:                  LINE   350 "regression-compile-tmp/hal70.imp"
2115 @ 21336:                  PUSH   TYPE
2116 @ 21339:                  PUSHI  #0x0000001f
2117 @ 21344:                  AND   
2118 @ 21345:                  PUSH   XMASK
2119 @ 21348:                  JUMPIF # L_0007
2120 @ 21352:                  PUSH   FAULT
2121 @ 21355:                  PUSHI  #0x00000052
2122 @ 21360:                  ASSPAR
2123 @ 21361:                  CALL  
2124 @ 21362:                  LOCATE L_0007

   351         %IF TYPE&MEMMASK = 0 %START;   !IMMEDIATE
2125 @ 21365:                  LINE   351 "regression-compile-tmp/hal70.imp"
2126 @ 21401:                  PUSH   TYPE
2127 @ 21404:                  PUSH   MEMMASK
2128 @ 21407:                  AND   
2129 @ 21408:                  PUSHI  #0x00000000
2130 @ 21413:                  JUMPIF # L_0007

   352            FAULT('I') %IF CODE&LIT = 0
2131 @ 21417:                  LINE   352 "regression-compile-tmp/hal70.imp"
2132 @ 21453:                  PUSH   CODE
2133 @ 21456:                  PUSH   LIT
2134 @ 21459:                  AND   
2135 @ 21460:                  PUSHI  #0x00000000
2136 @ 21465:                  JUMPIF # L_000a
2137 @ 21469:                  PUSH   FAULT
2138 @ 21472:                  PUSHI  #0x00000049
2139 @ 21477:                  ASSPAR
2140 @ 21478:                  CALL  
2141 @ 21479:                  LOCATE L_000a

   353            OP = OP+LINC
2142 @ 21482:                  LINE   353 "regression-compile-tmp/hal70.imp"
2143 @ 21518:                  PUSH   OP
2144 @ 21521:                  PUSH   OP
2145 @ 21524:                  PUSH   LINC
2146 @ 21527:                  ADD   
2147 @ 21528:                  ASSVAL

   354         %finish %ELSE %START;                  !MEMORY
2148 @ 21529:                  LINE   354 "regression-compile-tmp/hal70.imp"
2149 @ 21565:                  GOTO   L_0006
2150 @ 21568:                  LOCATE L_0007

   355            FAULT('I') %IF CODE&MEM = 0
2151 @ 21571:                  LINE   355 "regression-compile-tmp/hal70.imp"
2152 @ 21607:                  PUSH   CODE
2153 @ 21610:                  PUSH   MEM
2154 @ 21613:                  AND   
2155 @ 21614:                  PUSHI  #0x00000000
2156 @ 21619:                  JUMPIF # L_000a
2157 @ 21623:                  PUSH   FAULT
2158 @ 21626:                  PUSHI  #0x00000049
2159 @ 21631:                  ASSPAR
2160 @ 21632:                  CALL  
2161 @ 21633:                  LOCATE L_000a

   356            OP = OP+MINC
2162 @ 21636:                  LINE   356 "regression-compile-tmp/hal70.imp"
2163 @ 21672:                  PUSH   OP
2164 @ 21675:                  PUSH   OP
2165 @ 21678:                  PUSH   MINC
2166 @ 21681:                  ADD   
2167 @ 21682:                  ASSVAL

   357         %FINISH
2168 @ 21683:                  LINE   357 "regression-compile-tmp/hal70.imp"
2169 @ 21719:                  LOCATE L_0006

   358         OP = OP!!OPMASK %IF TYPE&RELMASK # 0
2170 @ 21722:                  LINE   358 "regression-compile-tmp/hal70.imp"
2171 @ 21758:                  PUSH   TYPE
2172 @ 21761:                  PUSH   RELMASK
2173 @ 21764:                  AND   
2174 @ 21765:                  PUSHI  #0x00000000
2175 @ 21770:                  JUMPIF = L_0007
2176 @ 21774:                  PUSH   OP
2177 @ 21777:                  PUSH   OP
2178 @ 21780:                  PUSH   OPMASK
2179 @ 21783:                  XOR   
2180 @ 21784:                  ASSVAL
2181 @ 21785:                  LOCATE L_0007

   359         TYPE = TYPE&15+OP
2182 @ 21788:                  LINE   359 "regression-compile-tmp/hal70.imp"
2183 @ 21824:                  PUSH   TYPE
2184 @ 21827:                  PUSH   TYPE
2185 @ 21830:                  PUSHI  #0x0000000f
2186 @ 21835:                  AND   
2187 @ 21836:                  PUSH   OP
2188 @ 21839:                  ADD   
2189 @ 21840:                  ASSVAL

   360      %FINISH
2190 @ 21841:                  LINE   360 "regression-compile-tmp/hal70.imp"
2191 @ 21877:                  LOCATE L_0003

   361  %END
   362  
2192 @ 21880:                  LINE   361 "regression-compile-tmp/hal70.imp"
2193 @ 21916:               END    _lev0id0_ASSEMBLE_FORMINST {lev=3 --> 2}

   363  %ROUTINE PLANT JUMP
2194 @ 21917:               LINE   363 "regression-compile-tmp/hal70.imp"
2195 @ 21953:               DEF    PLANTJUMP (_lev0id0_ASSEMBLE_PLANTJUMP) p1=V_00fb 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
2196 @ 21974:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2197 @ 21975:                  FINISH ) {lev=3}

   364  %INTEGER I,OP
2198 @ 21976:                  LINE   364 "regression-compile-tmp/hal70.imp"
2199 @ 22012:                  DEF    I p1=V_00fc 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 @ 22025:                  DEF    OP p1=V_00fd 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

   365      OP = BF;  COND=\COND %AND OP=BT %IF COND < 0
2201 @ 22039:                  LINE   365 "regression-compile-tmp/hal70.imp"
2202 @ 22075:                  PUSH   OP
2203 @ 22078:                  PUSH   BF
2204 @ 22081:                  ASSVAL
2205 @ 22082:                  LINE   365 "regression-compile-tmp/hal70.imp"
2206 @ 22118:                  PUSH   COND
2207 @ 22121:                  PUSHI  #0x00000000
2208 @ 22126:                  JUMPIF >= L_0004
2209 @ 22130:                  PUSH   COND
2210 @ 22133:                  PUSH   COND
2211 @ 22136:                  NOT   
2212 @ 22137:                  ASSVAL
2213 @ 22138:                  PUSH   OP
2214 @ 22141:                  PUSH   BT
2215 @ 22144:                  ASSVAL
2216 @ 22145:                  LOCATE L_0004

   366      %IF TYPE&(\UMASK) = LOCTYPE %START
2217 @ 22148:                  LINE   366 "regression-compile-tmp/hal70.imp"
2218 @ 22184:                  PUSH   TYPE
2219 @ 22187:                  PUSH   UMASK
2220 @ 22190:                  NOT   
2221 @ 22191:                  AND   
2222 @ 22192:                  PUSH   LOCTYPE
2223 @ 22195:                  JUMPIF # L_0004

   367         I = LOC>>1-VAL>>1
   368  !!       FAULT('J') %AND I=0 %IF FLAG # 0 %AND !I! > 15
2224 @ 22199:                  LINE   367 "regression-compile-tmp/hal70.imp"
2225 @ 22235:                  PUSH   I
2226 @ 22238:                  PUSH   LOC
2227 @ 22241:                  PUSHI  #0x00000001
2228 @ 22246:                  RSH   
2229 @ 22247:                  PUSH   VAL
2230 @ 22250:                  PUSHI  #0x00000001
2231 @ 22255:                  RSH   
2232 @ 22256:                  SUB   
2233 @ 22257:                  ASSVAL

   369         FAULT('J') %AND I=0 %IF FLAG # 0 %AND |I| > 15
   370  !!       %IF !I! <= 15 %START
2234 @ 22258:                  LINE   369 "regression-compile-tmp/hal70.imp"
2235 @ 22294:                  PUSH   FLAG
2236 @ 22297:                  PUSHI  #0x00000000
2237 @ 22302:                  JUMPIF = L_0007
2238 @ 22306:                  PUSH   I
2239 @ 22309:                  MOD   
2240 @ 22310:                  PUSHI  #0x0000000f
2241 @ 22315:                  JUMPIF <= L_0007
2242 @ 22319:                  PUSH   FAULT
2243 @ 22322:                  PUSHI  #0x0000004a
2244 @ 22327:                  ASSPAR
2245 @ 22328:                  CALL  
2246 @ 22329:                  PUSH   I
2247 @ 22332:                  PUSHI  #0x00000000
2248 @ 22337:                  ASSVAL
2249 @ 22338:                  LOCATE L_0007

   371         %IF |I| <= 15 %START
2250 @ 22341:                  LINE   371 "regression-compile-tmp/hal70.imp"
2251 @ 22377:                  PUSH   I
2252 @ 22380:                  MOD   
2253 @ 22381:                  PUSHI  #0x0000000f
2254 @ 22386:                  JUMPIF > L_0007

   372            %IF TYPE&UMASK = 0 %OR FLAG # 0 %START
2255 @ 22390:                  LINE   372 "regression-compile-tmp/hal70.imp"
2256 @ 22426:                  PUSH   TYPE
2257 @ 22429:                  PUSH   UMASK
2258 @ 22432:                  AND   
2259 @ 22433:                  PUSHI  #0x00000000
2260 @ 22438:                  JUMPIF = L_000b
2261 @ 22442:                  PUSH   FLAG
2262 @ 22445:                  PUSHI  #0x00000000
2263 @ 22450:                  JUMPIF = L_000a
2264 @ 22454:                  LOCATE L_000b

   373               OP = OP<<1+2;            !0408, 0608
2265 @ 22457:                  LINE   373 "regression-compile-tmp/hal70.imp"
2266 @ 22493:                  PUSH   OP
2267 @ 22496:                  PUSH   OP
2268 @ 22499:                  PUSHI  #0x00000001
2269 @ 22504:                  LSH   
2270 @ 22505:                  PUSHI  #0x00000002
2271 @ 22510:                  ADD   
2272 @ 22511:                  ASSVAL

   374               TYPE = 0;  VAL = I
2273 @ 22512:                  LINE   374 "regression-compile-tmp/hal70.imp"
2274 @ 22548:                  PUSH   TYPE
2275 @ 22551:                  PUSHI  #0x00000000
2276 @ 22556:                  ASSVAL
2277 @ 22557:                  LINE   374 "regression-compile-tmp/hal70.imp"
2278 @ 22593:                  PUSH   VAL
2279 @ 22596:                  PUSH   I
2280 @ 22599:                  ASSVAL

   375            %finish %ELSE %START
2281 @ 22600:                  LINE   375 "regression-compile-tmp/hal70.imp"
2282 @ 22636:                  GOTO   L_0009
2283 @ 22639:                  LOCATE L_000a

   376               FAULT('S') %IF LIST >= 0 %AND LIST&8 # 0
2284 @ 22642:                  LINE   376 "regression-compile-tmp/hal70.imp"
2285 @ 22678:                  PUSH   LIST
2286 @ 22681:                  PUSHI  #0x00000000
2287 @ 22686:                  JUMPIF < L_000d
2288 @ 22690:                  PUSH   LIST
2289 @ 22693:                  PUSHI  #0x00000008
2290 @ 22698:                  AND   
2291 @ 22699:                  PUSHI  #0x00000000
2292 @ 22704:                  JUMPIF = L_000d
2293 @ 22708:                  PUSH   FAULT
2294 @ 22711:                  PUSHI  #0x00000053
2295 @ 22716:                  ASSPAR
2296 @ 22717:                  CALL  
2297 @ 22718:                  LOCATE L_000d

   377            %FINISH
2298 @ 22721:                  LINE   377 "regression-compile-tmp/hal70.imp"
2299 @ 22757:                  LOCATE L_0009

   378         %FINISH
2300 @ 22760:                  LINE   378 "regression-compile-tmp/hal70.imp"
2301 @ 22796:                  LOCATE L_0007

   379      %FINISH
2302 @ 22799:                  LINE   379 "regression-compile-tmp/hal70.imp"
2303 @ 22835:                  LOCATE L_0004

   380      FORM INST(COND<<4+OP)
2304 @ 22838:                  LINE   380 "regression-compile-tmp/hal70.imp"
2305 @ 22874:                  PUSH   FORMINST
2306 @ 22877:                  PUSH   COND
2307 @ 22880:                  PUSHI  #0x00000004
2308 @ 22885:                  LSH   
2309 @ 22886:                  PUSH   OP
2310 @ 22889:                  ADD   
2311 @ 22890:                  ASSPAR
2312 @ 22891:                  CALL  

   381      PLANT VAL
2313 @ 22892:                  LINE   381 "regression-compile-tmp/hal70.imp"
2314 @ 22928:                  PUSH   PLANTVAL
2315 @ 22931:                  CALL  

   382      COND = 0
2316 @ 22932:                  LINE   382 "regression-compile-tmp/hal70.imp"
2317 @ 22968:                  PUSH   COND
2318 @ 22971:                  PUSHI  #0x00000000
2319 @ 22976:                  ASSVAL

   383  %END
   384  
2320 @ 22977:                  LINE   383 "regression-compile-tmp/hal70.imp"
2321 @ 23013:               END    _lev0id0_ASSEMBLE_PLANTJUMP {lev=3 --> 2}

   385  %ROUTINE SET JUMP(%INTEGER CASE)
2322 @ 23014:               LINE   385 "regression-compile-tmp/hal70.imp"
2323 @ 23050:               DEF    SETJUMP (_lev0id0_ASSEMBLE_SETJUMP) p1=V_00fc 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 @ 23069:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2325 @ 23070:                     DEF    CASE p1=V_00fd 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
2326 @ 23086:                  FINISH ) {lev=3}

   386  %INTEGER THOLD,VHOLD,FHOLD
   387  !!    ALMAX = ALMAX+1;  %MONITOR 22 %IF ALMAX = LABMIN
2327 @ 23087:                  LINE   386 "regression-compile-tmp/hal70.imp"
2328 @ 23123:                  DEF    THOLD p1=V_00fe 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
2329 @ 23140:                  DEF    VHOLD p1=V_00ff 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
2330 @ 23157:                  DEF    FHOLD p1=V_0100 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

   388      ALMAX = ALMAX+1;  !{}%signal 2,2 %IF ALMAX = LABMIN
2331 @ 23174:                  LINE   388 "regression-compile-tmp/hal70.imp"
2332 @ 23210:                  PUSH   ALMAX
2333 @ 23213:                  PUSH   ALMAX
2334 @ 23216:                  PUSHI  #0x00000001
2335 @ 23221:                  ADD   
2336 @ 23222:                  ASSVAL

   389      NEST(LOC);  NEST(ALMAX-DEFLIM+CASE)
2337 @ 23223:                  LINE   389 "regression-compile-tmp/hal70.imp"
2338 @ 23259:                  PUSH   NEST
2339 @ 23262:                  PUSH   LOC
2340 @ 23265:                  ASSPAR
2341 @ 23266:                  CALL  
2342 @ 23267:                  LINE   389 "regression-compile-tmp/hal70.imp"
2343 @ 23303:                  PUSH   NEST
2344 @ 23306:                  PUSH   ALMAX
2345 @ 23309:                  PUSH   DEFLIM
2346 @ 23312:                  SUB   
2347 @ 23313:                  PUSH   CASE
2348 @ 23316:                  ADD   
2349 @ 23317:                  ASSPAR
2350 @ 23318:                  CALL  

   390      THOLD = TYPE;  VHOLD = VAL;  FHOLD = FLAG
2351 @ 23319:                  LINE   390 "regression-compile-tmp/hal70.imp"
2352 @ 23355:                  PUSH   THOLD
2353 @ 23358:                  PUSH   TYPE
2354 @ 23361:                  ASSVAL
2355 @ 23362:                  LINE   390 "regression-compile-tmp/hal70.imp"
2356 @ 23398:                  PUSH   VHOLD
2357 @ 23401:                  PUSH   VAL
2358 @ 23404:                  ASSVAL
2359 @ 23405:                  LINE   390 "regression-compile-tmp/hal70.imp"
2360 @ 23441:                  PUSH   FHOLD
2361 @ 23444:                  PUSH   FLAG
2362 @ 23447:                  ASSVAL

   391      TYPE = LOCTYPE;  VAL = INTEGER(ALMAX);  FLAG = 0
2363 @ 23448:                  LINE   391 "regression-compile-tmp/hal70.imp"
2364 @ 23484:                  PUSH   TYPE
2365 @ 23487:                  PUSH   LOCTYPE
2366 @ 23490:                  ASSVAL
2367 @ 23491:                  LINE   391 "regression-compile-tmp/hal70.imp"
2368 @ 23527:                  PUSH   VAL
2369 @ 23530:                  PUSH   INTEGER
2370 @ 23533:                  PUSH   ALMAX
2371 @ 23536:                  ASSPAR
2372 @ 23537:                  CALL  
2373 @ 23538:                  ASSVAL
2374 @ 23539:                  LINE   391 "regression-compile-tmp/hal70.imp"
2375 @ 23575:                  PUSH   FLAG
2376 @ 23578:                  PUSHI  #0x00000000
2377 @ 23583:                  ASSVAL

   392      TYPE = TYPE+UMASK %IF PASS = 0
2378 @ 23584:                  LINE   392 "regression-compile-tmp/hal70.imp"
2379 @ 23620:                  PUSH   PASS
2380 @ 23623:                  PUSHI  #0x00000000
2381 @ 23628:                  JUMPIF # L_0004
2382 @ 23632:                  PUSH   TYPE
2383 @ 23635:                  PUSH   TYPE
2384 @ 23638:                  PUSH   UMASK
2385 @ 23641:                  ADD   
2386 @ 23642:                  ASSVAL
2387 @ 23643:                  LOCATE L_0004

   393      COND = \COND
2388 @ 23646:                  LINE   393 "regression-compile-tmp/hal70.imp"
2389 @ 23682:                  PUSH   COND
2390 @ 23685:                  PUSH   COND
2391 @ 23688:                  NOT   
2392 @ 23689:                  ASSVAL

   394      PLANT JUMP
2393 @ 23690:                  LINE   394 "regression-compile-tmp/hal70.imp"
2394 @ 23726:                  PUSH   PLANTJUMP
2395 @ 23729:                  CALL  

   395      TYPE = THOLD;  VAL = VHOLD;  FLAG = FHOLD
2396 @ 23730:                  LINE   395 "regression-compile-tmp/hal70.imp"
2397 @ 23766:                  PUSH   TYPE
2398 @ 23769:                  PUSH   THOLD
2399 @ 23772:                  ASSVAL
2400 @ 23773:                  LINE   395 "regression-compile-tmp/hal70.imp"
2401 @ 23809:                  PUSH   VAL
2402 @ 23812:                  PUSH   VHOLD
2403 @ 23815:                  ASSVAL
2404 @ 23816:                  LINE   395 "regression-compile-tmp/hal70.imp"
2405 @ 23852:                  PUSH   FLAG
2406 @ 23855:                  PUSH   FHOLD
2407 @ 23858:                  ASSVAL

   396  %END
   397  
2408 @ 23859:                  LINE   396 "regression-compile-tmp/hal70.imp"
2409 @ 23895:               END    _lev0id0_ASSEMBLE_SETJUMP {lev=3 --> 2}

   398  %ROUTINE PLANT INST(%INTEGER CODE)
2410 @ 23896:               LINE   398 "regression-compile-tmp/hal70.imp"
2411 @ 23932:               DEF    PLANTINST (_lev0id0_ASSEMBLE_PLANTINST) p1=V_00fd 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
2412 @ 23953:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2413 @ 23954:                     DEF    CODE p1=V_00fe 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
2414 @ 23970:                  FINISH ) {lev=3}

   399      FORM INST(CODE)
2415 @ 23971:                  LINE   399 "regression-compile-tmp/hal70.imp"
2416 @ 24007:                  PUSH   FORMINST
2417 @ 24010:                  PUSH   CODE
2418 @ 24013:                  ASSPAR
2419 @ 24014:                  CALL  

   400      SET JUMP(16_1000) %IF COND # 0
2420 @ 24015:                  LINE   400 "regression-compile-tmp/hal70.imp"
2421 @ 24051:                  PUSH   COND
2422 @ 24054:                  PUSHI  #0x00000000
2423 @ 24059:                  JUMPIF = L_0004
2424 @ 24063:                  PUSH   SETJUMP
2425 @ 24066:                  PUSHI  #0x00001000
2426 @ 24071:                  ASSPAR
2427 @ 24072:                  CALL  
2428 @ 24073:                  LOCATE L_0004

   401      PLANT VAL
2429 @ 24076:                  LINE   401 "regression-compile-tmp/hal70.imp"
2430 @ 24112:                  PUSH   PLANTVAL
2431 @ 24115:                  CALL  

   402  %END
   403  
2432 @ 24116:                  LINE   402 "regression-compile-tmp/hal70.imp"
2433 @ 24152:               END    _lev0id0_ASSEMBLE_PLANTINST {lev=3 --> 2}

   404  %ROUTINE LOAD REG(%INTEGER R)
2434 @ 24153:               LINE   404 "regression-compile-tmp/hal70.imp"
2435 @ 24189:               DEF    LOADREG (_lev0id0_ASSEMBLE_LOADREG) p1=V_00fe 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
2436 @ 24208:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2437 @ 24209:                     DEF    R p1=V_00ff 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
2438 @ 24222:                  FINISH ) {lev=3}

   405  %INTEGER OP
2439 @ 24223:                  LINE   405 "regression-compile-tmp/hal70.imp"
2440 @ 24259:                  DEF    OP p1=V_0100 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

   406      %IF ATYPE = TYPE %AND AVAL = VAL %START
2441 @ 24273:                  LINE   406 "regression-compile-tmp/hal70.imp"
2442 @ 24309:                  PUSH   ATYPE
2443 @ 24312:                  PUSH   TYPE
2444 @ 24315:                  JUMPIF # L_0004
2445 @ 24319:                  PUSH   AVAL
2446 @ 24322:                  PUSH   VAL
2447 @ 24325:                  JUMPIF # L_0004

   407         TYPE = REG;  VAL = ACC
2448 @ 24329:                  LINE   407 "regression-compile-tmp/hal70.imp"
2449 @ 24365:                  PUSH   TYPE
2450 @ 24368:                  PUSH   REG
2451 @ 24371:                  ASSVAL
2452 @ 24372:                  LINE   407 "regression-compile-tmp/hal70.imp"
2453 @ 24408:                  PUSH   VAL
2454 @ 24411:                  PUSH   ACC
2455 @ 24414:                  ASSVAL

   408         %RETURN %IF R = ACC
2456 @ 24415:                  LINE   408 "regression-compile-tmp/hal70.imp"
2457 @ 24451:                  PUSH   R
2458 @ 24454:                  PUSH   ACC
2459 @ 24457:                  JUMPIF # L_0007
2460 @ 24461:                  RETURN
2461 @ 24462:                  LOCATE L_0007

   409      %FINISH
2462 @ 24465:                  LINE   409 "regression-compile-tmp/hal70.imp"
2463 @ 24501:                  LOCATE L_0004

   410      ATYPE = TYPE %AND AVAL = VAL %IF R = ACC
2464 @ 24504:                  LINE   410 "regression-compile-tmp/hal70.imp"
2465 @ 24540:                  PUSH   R
2466 @ 24543:                  PUSH   ACC
2467 @ 24546:                  JUMPIF # L_0004
2468 @ 24550:                  PUSH   ATYPE
2469 @ 24553:                  PUSH   TYPE
2470 @ 24556:                  ASSVAL
2471 @ 24557:                  PUSH   AVAL
2472 @ 24560:                  PUSH   VAL
2473 @ 24563:                  ASSVAL
2474 @ 24564:                  LOCATE L_0004

   411      ATYPE = -1 %IF (ATYPE=REG %AND AVAL=R) %OR ATYPE&15=R#0
2475 @ 24567:                  LINE   411 "regression-compile-tmp/hal70.imp"
2476 @ 24603:                  PUSH   ATYPE
2477 @ 24606:                  PUSH   REG
2478 @ 24609:                  JUMPIF # L_0006
2479 @ 24613:                  PUSH   AVAL
2480 @ 24616:                  PUSH   R
2481 @ 24619:                  JUMPIF = L_0005
2482 @ 24623:                  LOCATE L_0006
2483 @ 24626:                  PUSH   ATYPE
2484 @ 24629:                  PUSHI  #0x0000000f
2485 @ 24634:                  AND   
2486 @ 24635:                  PUSH   R
2487 @ 24638:                  JUMPIFD # L_0004
2488 @ 24642:                  PUSHI  #0x00000000
2489 @ 24647:                  JUMPIF = L_0004
2490 @ 24651:                  LOCATE L_0005
2491 @ 24654:                  PUSH   ATYPE
2492 @ 24657:                  PUSHI  #0x00000001
2493 @ 24662:                  NEGATE
2494 @ 24663:                  ASSVAL
2495 @ 24664:                  LOCATE L_0004

   412      %IF TYPE&BMASK = 0 %START
2496 @ 24667:                  LINE   412 "regression-compile-tmp/hal70.imp"
2497 @ 24703:                  PUSH   TYPE
2498 @ 24706:                  PUSH   BMASK
2499 @ 24709:                  AND   
2500 @ 24710:                  PUSHI  #0x00000000
2501 @ 24715:                  JUMPIF # L_0004

   413         OP = LOAD
2502 @ 24719:                  LINE   413 "regression-compile-tmp/hal70.imp"
2503 @ 24755:                  PUSH   OP
2504 @ 24758:                  PUSH   LOAD
2505 @ 24761:                  ASSVAL

   414         OP = ADD %AND TYPE = 0 %IF TYPE!!XMASK = R # 0
2506 @ 24762:                  LINE   414 "regression-compile-tmp/hal70.imp"
2507 @ 24798:                  PUSH   TYPE
2508 @ 24801:                  PUSH   XMASK
2509 @ 24804:                  XOR   
2510 @ 24805:                  PUSH   R
2511 @ 24808:                  JUMPIFD # L_0007
2512 @ 24812:                  PUSHI  #0x00000000
2513 @ 24817:                  JUMPIF = L_0007
2514 @ 24821:                  PUSH   OP
2515 @ 24824:                  PUSH   ADD
2516 @ 24827:                  ASSVAL
2517 @ 24828:                  PUSH   TYPE
2518 @ 24831:                  PUSHI  #0x00000000
2519 @ 24836:                  ASSVAL
2520 @ 24837:                  LOCATE L_0007

   415         CREG = R;  CTYPE = 0;  CVAL = 0
2521 @ 24840:                  LINE   415 "regression-compile-tmp/hal70.imp"
2522 @ 24876:                  PUSH   CREG
2523 @ 24879:                  PUSH   R
2524 @ 24882:                  ASSVAL
2525 @ 24883:                  LINE   415 "regression-compile-tmp/hal70.imp"
2526 @ 24919:                  PUSH   CTYPE
2527 @ 24922:                  PUSHI  #0x00000000
2528 @ 24927:                  ASSVAL
2529 @ 24928:                  LINE   415 "regression-compile-tmp/hal70.imp"
2530 @ 24964:                  PUSH   CVAL
2531 @ 24967:                  PUSHI  #0x00000000
2532 @ 24972:                  ASSVAL

   416      %finish %ELSE %START
2533 @ 24973:                  LINE   416 "regression-compile-tmp/hal70.imp"
2534 @ 25009:                  GOTO   L_0003
2535 @ 25012:                  LOCATE L_0004

   417         OP = LB
2536 @ 25015:                  LINE   417 "regression-compile-tmp/hal70.imp"
2537 @ 25051:                  PUSH   OP
2538 @ 25054:                  PUSH   LB
2539 @ 25057:                  ASSVAL

   418         CREG = -1 %IF CREG = R
2540 @ 25058:                  LINE   418 "regression-compile-tmp/hal70.imp"
2541 @ 25094:                  PUSH   CREG
2542 @ 25097:                  PUSH   R
2543 @ 25100:                  JUMPIF # L_0007
2544 @ 25104:                  PUSH   CREG
2545 @ 25107:                  PUSHI  #0x00000001
2546 @ 25112:                  NEGATE
2547 @ 25113:                  ASSVAL
2548 @ 25114:                  LOCATE L_0007

   419      %FINISH
2549 @ 25117:                  LINE   419 "regression-compile-tmp/hal70.imp"
2550 @ 25153:                  LOCATE L_0003

   420      PLANT INST(R<<4+OP)
2551 @ 25156:                  LINE   420 "regression-compile-tmp/hal70.imp"
2552 @ 25192:                  PUSH   PLANTINST
2553 @ 25195:                  PUSH   R
2554 @ 25198:                  PUSHI  #0x00000004
2555 @ 25203:                  LSH   
2556 @ 25204:                  PUSH   OP
2557 @ 25207:                  ADD   
2558 @ 25208:                  ASSPAR
2559 @ 25209:                  CALL  

   421      TYPE = REG;  VAL = R
2560 @ 25210:                  LINE   421 "regression-compile-tmp/hal70.imp"
2561 @ 25246:                  PUSH   TYPE
2562 @ 25249:                  PUSH   REG
2563 @ 25252:                  ASSVAL
2564 @ 25253:                  LINE   421 "regression-compile-tmp/hal70.imp"
2565 @ 25289:                  PUSH   VAL
2566 @ 25292:                  PUSH   R
2567 @ 25295:                  ASSVAL

   422  %END
   423  
2568 @ 25296:                  LINE   422 "regression-compile-tmp/hal70.imp"
2569 @ 25332:               END    _lev0id0_ASSEMBLE_LOADREG {lev=3 --> 2}

   424  %ROUTINE RELEASE
2570 @ 25333:               LINE   424 "regression-compile-tmp/hal70.imp"
2571 @ 25369:               DEF    RELEASE (_lev0id0_ASSEMBLE_RELEASE) p1=V_00ff 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
2572 @ 25388:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2573 @ 25389:                  FINISH ) {lev=3}

   425  %INTEGER I
2574 @ 25390:                  LINE   425 "regression-compile-tmp/hal70.imp"
2575 @ 25426:                  DEF    I p1=V_0100 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

   426      %RETURN %IF TYPE&REGXMASK = 0
2576 @ 25439:                  LINE   426 "regression-compile-tmp/hal70.imp"
2577 @ 25475:                  PUSH   TYPE
2578 @ 25478:                  PUSH   REGXMASK
2579 @ 25481:                  AND   
2580 @ 25482:                  PUSHI  #0x00000000
2581 @ 25487:                  JUMPIF # L_0004
2582 @ 25491:                  RETURN
2583 @ 25492:                  LOCATE L_0004

   427      I = TYPE&15;  I = VAL %IF I = 0
2584 @ 25495:                  LINE   427 "regression-compile-tmp/hal70.imp"
2585 @ 25531:                  PUSH   I
2586 @ 25534:                  PUSH   TYPE
2587 @ 25537:                  PUSHI  #0x0000000f
2588 @ 25542:                  AND   
2589 @ 25543:                  ASSVAL
2590 @ 25544:                  LINE   427 "regression-compile-tmp/hal70.imp"
2591 @ 25580:                  PUSH   I
2592 @ 25583:                  PUSHI  #0x00000000
2593 @ 25588:                  JUMPIF # L_0004
2594 @ 25592:                  PUSH   I
2595 @ 25595:                  PUSH   VAL
2596 @ 25598:                  ASSVAL
2597 @ 25599:                  LOCATE L_0004

   428      %IF I = DREG %START
2598 @ 25602:                  LINE   428 "regression-compile-tmp/hal70.imp"
2599 @ 25638:                  PUSH   I
2600 @ 25641:                  PUSH   DREG
2601 @ 25644:                  JUMPIF # L_0004

   429         DUSE = DUSE-1
2602 @ 25648:                  LINE   429 "regression-compile-tmp/hal70.imp"
2603 @ 25684:                  PUSH   DUSE
2604 @ 25687:                  PUSH   DUSE
2605 @ 25690:                  PUSHI  #0x00000001
2606 @ 25695:                  SUB   
2607 @ 25696:                  ASSVAL

   430      %finish %ELSE %START
2608 @ 25697:                  LINE   430 "regression-compile-tmp/hal70.imp"
2609 @ 25733:                  GOTO   L_0003
2610 @ 25736:                  LOCATE L_0004

   431         I = 1<<I
2611 @ 25739:                  LINE   431 "regression-compile-tmp/hal70.imp"
2612 @ 25775:                  PUSH   I
2613 @ 25778:                  PUSHI  #0x00000001
2614 @ 25783:                  PUSH   I
2615 @ 25786:                  LSH   
2616 @ 25787:                  ASSVAL

   432         FREE = FREE!I %IF TEMPS&I # 0
2617 @ 25788:                  LINE   432 "regression-compile-tmp/hal70.imp"
2618 @ 25824:                  PUSH   TEMPS
2619 @ 25827:                  PUSH   I
2620 @ 25830:                  AND   
2621 @ 25831:                  PUSHI  #0x00000000
2622 @ 25836:                  JUMPIF = L_0007
2623 @ 25840:                  PUSH   FREE
2624 @ 25843:                  PUSH   FREE
2625 @ 25846:                  PUSH   I
2626 @ 25849:                  OR    
2627 @ 25850:                  ASSVAL
2628 @ 25851:                  LOCATE L_0007

   433      %FINISH
2629 @ 25854:                  LINE   433 "regression-compile-tmp/hal70.imp"
2630 @ 25890:                  LOCATE L_0003

   434  %END
   435  
2631 @ 25893:                  LINE   434 "regression-compile-tmp/hal70.imp"
2632 @ 25929:               END    _lev0id0_ASSEMBLE_RELEASE {lev=3 --> 2}

   436  %ROUTINE LOAD TEMP
2633 @ 25930:               LINE   436 "regression-compile-tmp/hal70.imp"
2634 @ 25966:               DEF    LOADTEMP (_lev0id0_ASSEMBLE_LOADTEMP) p1=V_0100 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
2635 @ 25986:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2636 @ 25987:                  FINISH ) {lev=3}

   437  %INTEGER I,J
2637 @ 25988:                  LINE   437 "regression-compile-tmp/hal70.imp"
2638 @ 26024:                  DEF    I p1=V_0101 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
2639 @ 26037:                  DEF    J p1=V_0102 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

   438      RELEASE
2640 @ 26050:                  LINE   438 "regression-compile-tmp/hal70.imp"
2641 @ 26086:                  PUSH   RELEASE
2642 @ 26089:                  CALL  

   439      %IF DREG >= ZQUERY %AND DUSE = 0 %START
2643 @ 26090:                  LINE   439 "regression-compile-tmp/hal70.imp"
2644 @ 26126:                  PUSH   DREG
2645 @ 26129:                  PUSH   ZQUERY
2646 @ 26132:                  JUMPIF < L_0004
2647 @ 26136:                  PUSH   DUSE
2648 @ 26139:                  PUSHI  #0x00000000
2649 @ 26144:                  JUMPIF # L_0004

   440         I = DREG;  DUSE = 1
2650 @ 26148:                  LINE   440 "regression-compile-tmp/hal70.imp"
2651 @ 26184:                  PUSH   I
2652 @ 26187:                  PUSH   DREG
2653 @ 26190:                  ASSVAL
2654 @ 26191:                  LINE   440 "regression-compile-tmp/hal70.imp"
2655 @ 26227:                  PUSH   DUSE
2656 @ 26230:                  PUSHI  #0x00000001
2657 @ 26235:                  ASSVAL

   441      %finish %ELSE %START
2658 @ 26236:                  LINE   441 "regression-compile-tmp/hal70.imp"
2659 @ 26272:                  GOTO   L_0003
2660 @ 26275:                  LOCATE L_0004

   442         J = 1+ZQUERY
2661 @ 26278:                  LINE   442 "regression-compile-tmp/hal70.imp"
2662 @ 26314:                  PUSH   J
2663 @ 26317:                  PUSHI  #0x00000001
2664 @ 26322:                  PUSH   ZQUERY
2665 @ 26325:                  ADD   
2666 @ 26326:                  ASSVAL

   443         %CYCLE I = ZQUERY,1,15
2667 @ 26327:                  LINE   443 "regression-compile-tmp/hal70.imp"
2668 @ 26363:                  PUSH   I
2669 @ 26366:                  PUSHI  #0x00000001
2670 @ 26371:                  PUSHI  #0x0000000f
2671 @ 26376:                  PUSH   ZQUERY
2672 @ 26379:                  FOR    L_0006

   444            ->OK %IF FREE&J # 0 %AND I # DREG
2673 @ 26382:                  LINE   444 "regression-compile-tmp/hal70.imp"
2674 @ 26418:                  PUSH   FREE
2675 @ 26421:                  PUSH   J
2676 @ 26424:                  AND   
2677 @ 26425:                  PUSHI  #0x00000000
2678 @ 26430:                  JUMPIF = L_000a
2679 @ 26434:                  PUSH   I
2680 @ 26437:                  PUSH   DREG
2681 @ 26440:                  JUMPIF = L_000a
2682 @ 26444:                  JUMP   L_0103
2683 @ 26447:                  LOCATE L_000a

   445            J = J<<1
2684 @ 26450:                  LINE   445 "regression-compile-tmp/hal70.imp"
2685 @ 26486:                  PUSH   J
2686 @ 26489:                  PUSH   J
2687 @ 26492:                  PUSHI  #0x00000001
2688 @ 26497:                  LSH   
2689 @ 26498:                  ASSVAL

   446         %REPEAT
2690 @ 26499:                  LINE   446 "regression-compile-tmp/hal70.imp"
2691 @ 26535:                  REPEAT L_0006
2692 @ 26538:                  LOCATE L_0007

   447         FAULT('R')
2693 @ 26541:                  LINE   447 "regression-compile-tmp/hal70.imp"
2694 @ 26577:                  PUSH   FAULT
2695 @ 26580:                  PUSHI  #0x00000052
2696 @ 26585:                  ASSPAR
2697 @ 26586:                  CALL  

   448  OK:    FREE = FREE-J
2698 @ 26587:                  LINE   448 "regression-compile-tmp/hal70.imp"
2699 @ 26623:                  LABEL  L_0103
2700 @ 26626:                  LINE   448 "regression-compile-tmp/hal70.imp"
2701 @ 26662:                  PUSH   FREE
2702 @ 26665:                  PUSH   FREE
2703 @ 26668:                  PUSH   J
2704 @ 26671:                  SUB   
2705 @ 26672:                  ASSVAL

   449      %FINISH
2706 @ 26673:                  LINE   449 "regression-compile-tmp/hal70.imp"
2707 @ 26709:                  LOCATE L_0003

   450      LOAD REG(I)
2708 @ 26712:                  LINE   450 "regression-compile-tmp/hal70.imp"
2709 @ 26748:                  PUSH   LOADREG
2710 @ 26751:                  PUSH   I
2711 @ 26754:                  ASSPAR
2712 @ 26755:                  CALL  

   451  %END
   452  
2713 @ 26756:                  LINE   451 "regression-compile-tmp/hal70.imp"
2714 @ 26792:               END    _lev0id0_ASSEMBLE_LOADTEMP {lev=3 --> 2}

   453  %ROUTINE SWOP
2715 @ 26793:               LINE   453 "regression-compile-tmp/hal70.imp"
2716 @ 26829:               DEF    SWOP (_lev0id0_ASSEMBLE_SWOP) p1=V_0101 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
2717 @ 26845:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2718 @ 26846:                  FINISH ) {lev=3}

   454  %INTEGER K
2719 @ 26847:                  LINE   454 "regression-compile-tmp/hal70.imp"
2720 @ 26883:                  DEF    K p1=V_0102 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

   455      K = TYPE1;  TYPE1 = TYPE;  TYPE = K
2721 @ 26896:                  LINE   455 "regression-compile-tmp/hal70.imp"
2722 @ 26932:                  PUSH   K
2723 @ 26935:                  PUSH   TYPE1
2724 @ 26938:                  ASSVAL
2725 @ 26939:                  LINE   455 "regression-compile-tmp/hal70.imp"
2726 @ 26975:                  PUSH   TYPE1
2727 @ 26978:                  PUSH   TYPE
2728 @ 26981:                  ASSVAL
2729 @ 26982:                  LINE   455 "regression-compile-tmp/hal70.imp"
2730 @ 27018:                  PUSH   TYPE
2731 @ 27021:                  PUSH   K
2732 @ 27024:                  ASSVAL

   456      K = VAL1;  VAL1 = VAL;  VAL = K
2733 @ 27025:                  LINE   456 "regression-compile-tmp/hal70.imp"
2734 @ 27061:                  PUSH   K
2735 @ 27064:                  PUSH   VAL1
2736 @ 27067:                  ASSVAL
2737 @ 27068:                  LINE   456 "regression-compile-tmp/hal70.imp"
2738 @ 27104:                  PUSH   VAL1
2739 @ 27107:                  PUSH   VAL
2740 @ 27110:                  ASSVAL
2741 @ 27111:                  LINE   456 "regression-compile-tmp/hal70.imp"
2742 @ 27147:                  PUSH   VAL
2743 @ 27150:                  PUSH   K
2744 @ 27153:                  ASSVAL

   457  %END
   458  
2745 @ 27154:                  LINE   457 "regression-compile-tmp/hal70.imp"
2746 @ 27190:               END    _lev0id0_ASSEMBLE_SWOP {lev=3 --> 2}

   459  %ROUTINE PROGREF
2747 @ 27191:               LINE   459 "regression-compile-tmp/hal70.imp"
2748 @ 27227:               DEF    PROGREF (_lev0id0_ASSEMBLE_PROGREF) p1=V_0102 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
2749 @ 27246:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2750 @ 27247:                  FINISH ) {lev=3}

   460      %IF TYPE&RELUXMASK = XMASK %AND VAL = 0 %START
2751 @ 27248:                  LINE   460 "regression-compile-tmp/hal70.imp"
2752 @ 27284:                  PUSH   TYPE
2753 @ 27287:                  PUSH   RELUXMASK
2754 @ 27290:                  AND   
2755 @ 27291:                  PUSH   XMASK
2756 @ 27294:                  JUMPIF # L_0004
2757 @ 27298:                  PUSH   VAL
2758 @ 27301:                  PUSHI  #0x00000000
2759 @ 27306:                  JUMPIF # L_0004

   461         VAL = TYPE&15;  TYPE = REG
2760 @ 27310:                  LINE   461 "regression-compile-tmp/hal70.imp"
2761 @ 27346:                  PUSH   VAL
2762 @ 27349:                  PUSH   TYPE
2763 @ 27352:                  PUSHI  #0x0000000f
2764 @ 27357:                  AND   
2765 @ 27358:                  ASSVAL
2766 @ 27359:                  LINE   461 "regression-compile-tmp/hal70.imp"
2767 @ 27395:                  PUSH   TYPE
2768 @ 27398:                  PUSH   REG
2769 @ 27401:                  ASSVAL

   462      %FINISH
2770 @ 27402:                  LINE   462 "regression-compile-tmp/hal70.imp"
2771 @ 27438:                  LOCATE L_0004

   463      TYPE = TYPE!MEMMASK %IF TYPE # REG
2772 @ 27441:                  LINE   463 "regression-compile-tmp/hal70.imp"
2773 @ 27477:                  PUSH   TYPE
2774 @ 27480:                  PUSH   REG
2775 @ 27483:                  JUMPIF = L_0004
2776 @ 27487:                  PUSH   TYPE
2777 @ 27490:                  PUSH   TYPE
2778 @ 27493:                  PUSH   MEMMASK
2779 @ 27496:                  OR    
2780 @ 27497:                  ASSVAL
2781 @ 27498:                  LOCATE L_0004

   464  %END
   465  
2782 @ 27501:                  LINE   464 "regression-compile-tmp/hal70.imp"
2783 @ 27537:               END    _lev0id0_ASSEMBLE_PROGREF {lev=3 --> 2}

   466      Q = QSTART
2784 @ 27538:               LINE   466 "regression-compile-tmp/hal70.imp"
2785 @ 27574:               PUSH   Q
2786 @ 27577:               PUSH   QSTART
2787 @ 27580:               ASSVAL

   467  NEW:NQ = QSTART;  FREE = TEMPS
2788 @ 27581:               LINE   467 "regression-compile-tmp/hal70.imp"
2789 @ 27617:               LABEL  L_0103
2790 @ 27620:               LINE   467 "regression-compile-tmp/hal70.imp"
2791 @ 27656:               PUSH   NQ
2792 @ 27659:               PUSH   QSTART
2793 @ 27662:               ASSVAL
2794 @ 27663:               LINE   467 "regression-compile-tmp/hal70.imp"
2795 @ 27699:               PUSH   FREE
2796 @ 27702:               PUSH   TEMPS
2797 @ 27705:               ASSVAL

   468      TYPE = INTEGER(Q);  Q = Q+1
2798 @ 27706:               LINE   468 "regression-compile-tmp/hal70.imp"
2799 @ 27742:               PUSH   TYPE
2800 @ 27745:               PUSH   INTEGER
2801 @ 27748:               PUSH   Q
2802 @ 27751:               ASSPAR
2803 @ 27752:               CALL  
2804 @ 27753:               ASSVAL
2805 @ 27754:               LINE   468 "regression-compile-tmp/hal70.imp"
2806 @ 27790:               PUSH   Q
2807 @ 27793:               PUSH   Q
2808 @ 27796:               PUSHI  #0x00000001
2809 @ 27801:               ADD   
2810 @ 27802:               ASSVAL

   469      VAL = INTEGER(Q);  Q = Q+1
   470  
2811 @ 27803:               LINE   469 "regression-compile-tmp/hal70.imp"
2812 @ 27839:               PUSH   VAL
2813 @ 27842:               PUSH   INTEGER
2814 @ 27845:               PUSH   Q
2815 @ 27848:               ASSPAR
2816 @ 27849:               CALL  
2817 @ 27850:               ASSVAL
2818 @ 27851:               LINE   469 "regression-compile-tmp/hal70.imp"
2819 @ 27887:               PUSH   Q
2820 @ 27890:               PUSH   Q
2821 @ 27893:               PUSHI  #0x00000001
2822 @ 27898:               ADD   
2823 @ 27899:               ASSVAL

   471  GET:%CYCLE
2824 @ 27900:               LINE   471 "regression-compile-tmp/hal70.imp"
2825 @ 27936:               LABEL  L_0104
2826 @ 27939:               LINE   471 "regression-compile-tmp/hal70.imp"
2827 @ 27975:               LOCATE L_0003

   472         %RETURN %IF Q = QLIM
2828 @ 27978:               LINE   472 "regression-compile-tmp/hal70.imp"
2829 @ 28014:               PUSH   Q
2830 @ 28017:               PUSH   QLIM
2831 @ 28020:               JUMPIF # L_0007
2832 @ 28024:               RETURN
2833 @ 28025:               LOCATE L_0007

   473         K = INTEGER(Q);  Q = Q+1
2834 @ 28028:               LINE   473 "regression-compile-tmp/hal70.imp"
2835 @ 28064:               PUSH   K
2836 @ 28067:               PUSH   INTEGER
2837 @ 28070:               PUSH   Q
2838 @ 28073:               ASSPAR
2839 @ 28074:               CALL  
2840 @ 28075:               ASSVAL
2841 @ 28076:               LINE   473 "regression-compile-tmp/hal70.imp"
2842 @ 28112:               PUSH   Q
2843 @ 28115:               PUSH   Q
2844 @ 28118:               PUSHI  #0x00000001
2845 @ 28123:               ADD   
2846 @ 28124:               ASSVAL

   474         ->ASS(K) %IF K < 0
   475  !!       INTEGER(NQ) = TYPE1;  INTEGER(NQ+1) = VAL1
2847 @ 28125:               LINE   474 "regression-compile-tmp/hal70.imp"
2848 @ 28161:               PUSH   K
2849 @ 28164:               PUSHI  #0x00000000
2850 @ 28169:               JUMPIF >= L_0007
2851 @ 28173:               PUSH   K
2852 @ 28176:               SJUMP  249
2853 @ 28179:               LOCATE L_0007

   476         set INTEGER(NQ, TYPE1);  set INTEGER(NQ+1, VAL1)
2854 @ 28182:               LINE   476 "regression-compile-tmp/hal70.imp"
2855 @ 28218:               PUSH   SETINTEGER
2856 @ 28221:               PUSH   NQ
2857 @ 28224:               ASSPAR
2858 @ 28225:               PUSH   TYPE1
2859 @ 28228:               ASSPAR
2860 @ 28229:               CALL  
2861 @ 28230:               LINE   476 "regression-compile-tmp/hal70.imp"
2862 @ 28266:               PUSH   SETINTEGER
2863 @ 28269:               PUSH   NQ
2864 @ 28272:               PUSHI  #0x00000001
2865 @ 28277:               ADD   
2866 @ 28278:               ASSPAR
2867 @ 28279:               PUSH   VAL1
2868 @ 28282:               ASSPAR
2869 @ 28283:               CALL  

   477         NQ = NQ+2
2870 @ 28284:               LINE   477 "regression-compile-tmp/hal70.imp"
2871 @ 28320:               PUSH   NQ
2872 @ 28323:               PUSH   NQ
2873 @ 28326:               PUSHI  #0x00000002
2874 @ 28331:               ADD   
2875 @ 28332:               ASSVAL

   478         TYPE1 = TYPE;  VAL1 = VAL
2876 @ 28333:               LINE   478 "regression-compile-tmp/hal70.imp"
2877 @ 28369:               PUSH   TYPE1
2878 @ 28372:               PUSH   TYPE
2879 @ 28375:               ASSVAL
2880 @ 28376:               LINE   478 "regression-compile-tmp/hal70.imp"
2881 @ 28412:               PUSH   VAL1
2882 @ 28415:               PUSH   VAL
2883 @ 28418:               ASSVAL

   479         TYPE = K;  VAL = INTEGER(Q);  Q = Q+1
2884 @ 28419:               LINE   479 "regression-compile-tmp/hal70.imp"
2885 @ 28455:               PUSH   TYPE
2886 @ 28458:               PUSH   K
2887 @ 28461:               ASSVAL
2888 @ 28462:               LINE   479 "regression-compile-tmp/hal70.imp"
2889 @ 28498:               PUSH   VAL
2890 @ 28501:               PUSH   INTEGER
2891 @ 28504:               PUSH   Q
2892 @ 28507:               ASSPAR
2893 @ 28508:               CALL  
2894 @ 28509:               ASSVAL
2895 @ 28510:               LINE   479 "regression-compile-tmp/hal70.imp"
2896 @ 28546:               PUSH   Q
2897 @ 28549:               PUSH   Q
2898 @ 28552:               PUSHI  #0x00000001
2899 @ 28557:               ADD   
2900 @ 28558:               ASSVAL

   480      %REPEAT
   481  
2901 @ 28559:               LINE   480 "regression-compile-tmp/hal70.imp"
2902 @ 28595:               REPEAT L_0003

   482  %PREDICATE TEMP
2903 @ 28598:               LINE   482 "regression-compile-tmp/hal70.imp"
2904 @ 28634:               DEF    TEMP (_lev0id0_ASSEMBLE_TEMP) p1=V_0105 a/tf=a b/format=0 c/ostate=0  type=0 (<type:0>) form=10 (predicate) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
2905 @ 28650:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2906 @ 28651:                  FINISH ) {lev=3}

   483      %FALSE %IF TYPE1 # REG
2907 @ 28652:                  LINE   483 "regression-compile-tmp/hal70.imp"
2908 @ 28688:                  PUSH   TYPE1
2909 @ 28691:                  PUSH   REG
2910 @ 28694:                  JUMPIF = L_0004
2911 @ 28698:                  FALSE 
2912 @ 28699:                  LOCATE L_0004

   484      %IF VAL1 = DREG %START
2913 @ 28702:                  LINE   484 "regression-compile-tmp/hal70.imp"
2914 @ 28738:                  PUSH   VAL1
2915 @ 28741:                  PUSH   DREG
2916 @ 28744:                  JUMPIF # L_0004

   485         %FALSE %IF DUSE # 1
2917 @ 28748:                  LINE   485 "regression-compile-tmp/hal70.imp"
2918 @ 28784:                  PUSH   DUSE
2919 @ 28787:                  PUSHI  #0x00000001
2920 @ 28792:                  JUMPIF = L_0007
2921 @ 28796:                  FALSE 
2922 @ 28797:                  LOCATE L_0007

   486      %finish %ELSE %START
2923 @ 28800:                  LINE   486 "regression-compile-tmp/hal70.imp"
2924 @ 28836:                  GOTO   L_0003
2925 @ 28839:                  LOCATE L_0004

   487         %FALSE %IF 1<<VAL1&TEMPS = 0
2926 @ 28842:                  LINE   487 "regression-compile-tmp/hal70.imp"
2927 @ 28878:                  PUSHI  #0x00000001
2928 @ 28883:                  PUSH   VAL1
2929 @ 28886:                  LSH   
2930 @ 28887:                  PUSH   TEMPS
2931 @ 28890:                  AND   
2932 @ 28891:                  PUSHI  #0x00000000
2933 @ 28896:                  JUMPIF # L_0007
2934 @ 28900:                  FALSE 
2935 @ 28901:                  LOCATE L_0007

   488      %FINISH
2936 @ 28904:                  LINE   488 "regression-compile-tmp/hal70.imp"
2937 @ 28940:                  LOCATE L_0003

   489      %TRUE
2938 @ 28943:                  LINE   489 "regression-compile-tmp/hal70.imp"
2939 @ 28979:                  TRUE  

   490  %END
   491  
2940 @ 28980:                  LINE   490 "regression-compile-tmp/hal70.imp"
2941 @ 29016:               END    _lev0id0_ASSEMBLE_TEMP {lev=3 --> 2}

   492  NOP: K = 0;                           !NOT SYMMETRIC
2942 @ 29017:               LINE   492 "regression-compile-tmp/hal70.imp"
2943 @ 29053:               LABEL  L_0106
2944 @ 29056:               LINE   492 "regression-compile-tmp/hal70.imp"
2945 @ 29092:               PUSH   K
2946 @ 29095:               PUSHI  #0x00000000
2947 @ 29100:               ASSVAL

   493  BOP:%IF MODE <= 0 %OR (TYPE = 0 %AND TYPE1 = 0) %START
2948 @ 29101:               LINE   493 "regression-compile-tmp/hal70.imp"
2949 @ 29137:               LABEL  L_0107
2950 @ 29140:               LINE   493 "regression-compile-tmp/hal70.imp"
2951 @ 29176:               PUSH   MODE
2952 @ 29179:               PUSHI  #0x00000000
2953 @ 29184:               JUMPIF <= L_0005
2954 @ 29188:               PUSH   TYPE
2955 @ 29191:               PUSHI  #0x00000000
2956 @ 29196:               JUMPIF # L_0004
2957 @ 29200:               PUSH   TYPE1
2958 @ 29203:               PUSHI  #0x00000000
2959 @ 29208:               JUMPIF # L_0004
2960 @ 29212:               LOCATE L_0005

   494         FAULT('A') %IF TYPE # 0
2961 @ 29215:               LINE   494 "regression-compile-tmp/hal70.imp"
2962 @ 29251:               PUSH   TYPE
2963 @ 29254:               PUSHI  #0x00000000
2964 @ 29259:               JUMPIF = L_0007
2965 @ 29263:               PUSH   FAULT
2966 @ 29266:               PUSHI  #0x00000041
2967 @ 29271:               ASSPAR
2968 @ 29272:               CALL  
2969 @ 29273:               LOCATE L_0007

   495         TYPE = TYPE1;  VAL = LITVAL
2970 @ 29276:               LINE   495 "regression-compile-tmp/hal70.imp"
2971 @ 29312:               PUSH   TYPE
2972 @ 29315:               PUSH   TYPE1
2973 @ 29318:               ASSVAL
2974 @ 29319:               LINE   495 "regression-compile-tmp/hal70.imp"
2975 @ 29355:               PUSH   VAL
2976 @ 29358:               PUSH   LITVAL
2977 @ 29361:               ASSVAL

   496      %finish %ELSE %START
2978 @ 29362:               LINE   496 "regression-compile-tmp/hal70.imp"
2979 @ 29398:               GOTO   L_0003
2980 @ 29401:               LOCATE L_0004

   497         %IF %NOT TEMP %OR (TYPE=REG %AND VAL=DREG %AND DUSE=1 %AND K#0) %START
2981 @ 29404:               LINE   497 "regression-compile-tmp/hal70.imp"
2982 @ 29440:               PUSH   TEMP
2983 @ 29443:               CALL  
2984 @ 29444:               bf     L_0008
2985 @ 29447:               PUSH   TYPE
2986 @ 29450:               PUSH   REG
2987 @ 29453:               JUMPIF # L_0007
2988 @ 29457:               PUSH   VAL
2989 @ 29460:               PUSH   DREG
2990 @ 29463:               JUMPIF # L_0007
2991 @ 29467:               PUSH   DUSE
2992 @ 29470:               PUSHI  #0x00000001
2993 @ 29475:               JUMPIF # L_0007
2994 @ 29479:               PUSH   K
2995 @ 29482:               PUSHI  #0x00000000
2996 @ 29487:               JUMPIF = L_0007
2997 @ 29491:               LOCATE L_0008

   498            SWOP
2998 @ 29494:               LINE   498 "regression-compile-tmp/hal70.imp"
2999 @ 29530:               PUSH   SWOP
3000 @ 29533:               CALL  

   499            %IF K = 0 %OR %NOT TEMP %START
3001 @ 29534:               LINE   499 "regression-compile-tmp/hal70.imp"
3002 @ 29570:               PUSH   K
3003 @ 29573:               PUSHI  #0x00000000
3004 @ 29578:               JUMPIF = L_000b
3005 @ 29582:               PUSH   TEMP
3006 @ 29585:               CALL  
3007 @ 29586:               bt     L_000a
3008 @ 29589:               LOCATE L_000b

   500               LOAD TEMP;  SWOP
3009 @ 29592:               LINE   500 "regression-compile-tmp/hal70.imp"
3010 @ 29628:               PUSH   LOADTEMP
3011 @ 29631:               CALL  
3012 @ 29632:               LINE   500 "regression-compile-tmp/hal70.imp"
3013 @ 29668:               PUSH   SWOP
3014 @ 29671:               CALL  

   501            %FINISH
3015 @ 29672:               LINE   501 "regression-compile-tmp/hal70.imp"
3016 @ 29708:               LOCATE L_000a

   502         %FINISH
3017 @ 29711:               LINE   502 "regression-compile-tmp/hal70.imp"
3018 @ 29747:               LOCATE L_0007

   503         LOAD TEMP %IF TYPE&BMASK # 0 %OR (OP&MEM=0 %AND TYPE&MEMMASK#0)
3019 @ 29750:               LINE   503 "regression-compile-tmp/hal70.imp"
3020 @ 29786:               PUSH   TYPE
3021 @ 29789:               PUSH   BMASK
3022 @ 29792:               AND   
3023 @ 29793:               PUSHI  #0x00000000
3024 @ 29798:               JUMPIF # L_0008
3025 @ 29802:               PUSH   OP
3026 @ 29805:               PUSH   MEM
3027 @ 29808:               AND   
3028 @ 29809:               PUSHI  #0x00000000
3029 @ 29814:               JUMPIF # L_0007
3030 @ 29818:               PUSH   TYPE
3031 @ 29821:               PUSH   MEMMASK
3032 @ 29824:               AND   
3033 @ 29825:               PUSHI  #0x00000000
3034 @ 29830:               JUMPIF = L_0007
3035 @ 29834:               LOCATE L_0008
3036 @ 29837:               PUSH   LOADTEMP
3037 @ 29840:               CALL  
3038 @ 29841:               LOCATE L_0007

   504         RELEASE
3039 @ 29844:               LINE   504 "regression-compile-tmp/hal70.imp"
3040 @ 29880:               PUSH   RELEASE
3041 @ 29883:               CALL  

   505         PLANT INST(VAL1<<4+OP)
3042 @ 29884:               LINE   505 "regression-compile-tmp/hal70.imp"
3043 @ 29920:               PUSH   PLANTINST
3044 @ 29923:               PUSH   VAL1
3045 @ 29926:               PUSHI  #0x00000004
3046 @ 29931:               LSH   
3047 @ 29932:               PUSH   OP
3048 @ 29935:               ADD   
3049 @ 29936:               ASSPAR
3050 @ 29937:               CALL  

   506         TYPE = REG;  VAL = VAL1
3051 @ 29938:               LINE   506 "regression-compile-tmp/hal70.imp"
3052 @ 29974:               PUSH   TYPE
3053 @ 29977:               PUSH   REG
3054 @ 29980:               ASSVAL
3055 @ 29981:               LINE   506 "regression-compile-tmp/hal70.imp"
3056 @ 30017:               PUSH   VAL
3057 @ 30020:               PUSH   VAL1
3058 @ 30023:               ASSVAL

   507         CREG = VAL;  CTYPE = 0;  CVAL = 0
3059 @ 30024:               LINE   507 "regression-compile-tmp/hal70.imp"
3060 @ 30060:               PUSH   CREG
3061 @ 30063:               PUSH   VAL
3062 @ 30066:               ASSVAL
3063 @ 30067:               LINE   507 "regression-compile-tmp/hal70.imp"
3064 @ 30103:               PUSH   CTYPE
3065 @ 30106:               PUSHI  #0x00000000
3066 @ 30111:               ASSVAL
3067 @ 30112:               LINE   507 "regression-compile-tmp/hal70.imp"
3068 @ 30148:               PUSH   CVAL
3069 @ 30151:               PUSHI  #0x00000000
3070 @ 30156:               ASSVAL

   508         ATYPE = -1 %IF ACC = VAL %OR ATYPE&15 = VAL # 0
3071 @ 30157:               LINE   508 "regression-compile-tmp/hal70.imp"
3072 @ 30193:               PUSH   ACC
3073 @ 30196:               PUSH   VAL
3074 @ 30199:               JUMPIF = L_0008
3075 @ 30203:               PUSH   ATYPE
3076 @ 30206:               PUSHI  #0x0000000f
3077 @ 30211:               AND   
3078 @ 30212:               PUSH   VAL
3079 @ 30215:               JUMPIFD # L_0007
3080 @ 30219:               PUSHI  #0x00000000
3081 @ 30224:               JUMPIF = L_0007
3082 @ 30228:               LOCATE L_0008
3083 @ 30231:               PUSH   ATYPE
3084 @ 30234:               PUSHI  #0x00000001
3085 @ 30239:               NEGATE
3086 @ 30240:               ASSVAL
3087 @ 30241:               LOCATE L_0007

   509         ATYPE = -1 %IF ATYPE = REG %AND AVAL = VAL
3088 @ 30244:               LINE   509 "regression-compile-tmp/hal70.imp"
3089 @ 30280:               PUSH   ATYPE
3090 @ 30283:               PUSH   REG
3091 @ 30286:               JUMPIF # L_0007
3092 @ 30290:               PUSH   AVAL
3093 @ 30293:               PUSH   VAL
3094 @ 30296:               JUMPIF # L_0007
3095 @ 30300:               PUSH   ATYPE
3096 @ 30303:               PUSHI  #0x00000001
3097 @ 30308:               NEGATE
3098 @ 30309:               ASSVAL
3099 @ 30310:               LOCATE L_0007

   510      %FINISH
   511  
3100 @ 30313:               LINE   510 "regression-compile-tmp/hal70.imp"
3101 @ 30349:               LOCATE L_0003

   512  POP:NQ = NQ-2
3102 @ 30352:               LINE   512 "regression-compile-tmp/hal70.imp"
3103 @ 30388:               LABEL  L_0108
3104 @ 30391:               LINE   512 "regression-compile-tmp/hal70.imp"
3105 @ 30427:               PUSH   NQ
3106 @ 30430:               PUSH   NQ
3107 @ 30433:               PUSHI  #0x00000002
3108 @ 30438:               SUB   
3109 @ 30439:               ASSVAL

   513      TYPE1 = INTEGER(NQ);  VAL1 = INTEGER(NQ+1)
3110 @ 30440:               LINE   513 "regression-compile-tmp/hal70.imp"
3111 @ 30476:               PUSH   TYPE1
3112 @ 30479:               PUSH   INTEGER
3113 @ 30482:               PUSH   NQ
3114 @ 30485:               ASSPAR
3115 @ 30486:               CALL  
3116 @ 30487:               ASSVAL
3117 @ 30488:               LINE   513 "regression-compile-tmp/hal70.imp"
3118 @ 30524:               PUSH   VAL1
3119 @ 30527:               PUSH   INTEGER
3120 @ 30530:               PUSH   NQ
3121 @ 30533:               PUSHI  #0x00000001
3122 @ 30538:               ADD   
3123 @ 30539:               ASSPAR
3124 @ 30540:               CALL  
3125 @ 30541:               ASSVAL

   514      ->GET
   515  
3126 @ 30542:               LINE   514 "regression-compile-tmp/hal70.imp"
3127 @ 30578:               JUMP   L_0104

   516  ASS(-2):
3128 @ 30581:               LINE   516 "regression-compile-tmp/hal70.imp"
3129 @ 30617:               PUSHI  #0xfffffffe
3130 @ 30622:               SLABEL 249

   517      OP = SUB
3131 @ 30625:               LINE   517 "regression-compile-tmp/hal70.imp"
3132 @ 30661:               PUSH   OP
3133 @ 30664:               PUSH   SUB
3134 @ 30667:               ASSVAL

   518      ->NOP %IF MODE > 0 %AND TYPE # 0
3135 @ 30668:               LINE   518 "regression-compile-tmp/hal70.imp"
3136 @ 30704:               PUSH   MODE
3137 @ 30707:               PUSHI  #0x00000000
3138 @ 30712:               JUMPIF <= L_0004
3139 @ 30716:               PUSH   TYPE
3140 @ 30719:               PUSHI  #0x00000000
3141 @ 30724:               JUMPIF = L_0004
3142 @ 30728:               JUMP   L_0106
3143 @ 30731:               LOCATE L_0004

   519      TYPE1 = 0 %AND TYPE = 0 %IF MODE <= 0 %AND TYPE1 = TYPE
3144 @ 30734:               LINE   519 "regression-compile-tmp/hal70.imp"
3145 @ 30770:               PUSH   MODE
3146 @ 30773:               PUSHI  #0x00000000
3147 @ 30778:               JUMPIF > L_0004
3148 @ 30782:               PUSH   TYPE1
3149 @ 30785:               PUSH   TYPE
3150 @ 30788:               JUMPIF # L_0004
3151 @ 30792:               PUSH   TYPE1
3152 @ 30795:               PUSHI  #0x00000000
3153 @ 30800:               ASSVAL
3154 @ 30801:               PUSH   TYPE
3155 @ 30804:               PUSHI  #0x00000000
3156 @ 30809:               ASSVAL
3157 @ 30810:               LOCATE L_0004

   520      VAL = -VAL
3158 @ 30813:               LINE   520 "regression-compile-tmp/hal70.imp"
3159 @ 30849:               PUSH   VAL
3160 @ 30852:               PUSH   VAL
3161 @ 30855:               NEGATE
3162 @ 30856:               ASSVAL

   521  ASS(-1):
3163 @ 30857:               LINE   521 "regression-compile-tmp/hal70.imp"
3164 @ 30893:               PUSHI  #0xffffffff
3165 @ 30898:               SLABEL 249

   522      OP = ADD;  LITVAL = VAL1+VAL
3166 @ 30901:               LINE   522 "regression-compile-tmp/hal70.imp"
3167 @ 30937:               PUSH   OP
3168 @ 30940:               PUSH   ADD
3169 @ 30943:               ASSVAL
3170 @ 30944:               LINE   522 "regression-compile-tmp/hal70.imp"
3171 @ 30980:               PUSH   LITVAL
3172 @ 30983:               PUSH   VAL1
3173 @ 30986:               PUSH   VAL
3174 @ 30989:               ADD   
3175 @ 30990:               ASSVAL

   523      ->BOP %UNLESS TYPE = 0
3176 @ 30991:               LINE   523 "regression-compile-tmp/hal70.imp"
3177 @ 31027:               PUSH   TYPE
3178 @ 31030:               PUSHI  #0x00000000
3179 @ 31035:               JUMPIF = L_0004
3180 @ 31039:               JUMP   L_0107
3181 @ 31042:               LOCATE L_0004

   524      %IF TYPE1&MEMMASK # 0 %AND MODE > 0 %START
3182 @ 31045:               LINE   524 "regression-compile-tmp/hal70.imp"
3183 @ 31081:               PUSH   TYPE1
3184 @ 31084:               PUSH   MEMMASK
3185 @ 31087:               AND   
3186 @ 31088:               PUSHI  #0x00000000
3187 @ 31093:               JUMPIF = L_0004
3188 @ 31097:               PUSH   MODE
3189 @ 31100:               PUSHI  #0x00000000
3190 @ 31105:               JUMPIF <= L_0004

   525         SWOP;  LOAD TEMP;  SWOP
3191 @ 31109:               LINE   525 "regression-compile-tmp/hal70.imp"
3192 @ 31145:               PUSH   SWOP
3193 @ 31148:               CALL  
3194 @ 31149:               LINE   525 "regression-compile-tmp/hal70.imp"
3195 @ 31185:               PUSH   LOADTEMP
3196 @ 31188:               CALL  
3197 @ 31189:               LINE   525 "regression-compile-tmp/hal70.imp"
3198 @ 31225:               PUSH   SWOP
3199 @ 31228:               CALL  

   526      %FINISH
3200 @ 31229:               LINE   526 "regression-compile-tmp/hal70.imp"
3201 @ 31265:               LOCATE L_0004

   527      %IF TYPE1 = REG %START
3202 @ 31268:               LINE   527 "regression-compile-tmp/hal70.imp"
3203 @ 31304:               PUSH   TYPE1
3204 @ 31307:               PUSH   REG
3205 @ 31310:               JUMPIF # L_0004

   528         ->BOP %IF VAL1 = 0
3206 @ 31314:               LINE   528 "regression-compile-tmp/hal70.imp"
3207 @ 31350:               PUSH   VAL1
3208 @ 31353:               PUSHI  #0x00000000
3209 @ 31358:               JUMPIF # L_0007
3210 @ 31362:               JUMP   L_0107
3211 @ 31365:               LOCATE L_0007

   529         TYPE1 = XMASK+VAL1;  LITVAL = VAL
3212 @ 31368:               LINE   529 "regression-compile-tmp/hal70.imp"
3213 @ 31404:               PUSH   TYPE1
3214 @ 31407:               PUSH   XMASK
3215 @ 31410:               PUSH   VAL1
3216 @ 31413:               ADD   
3217 @ 31414:               ASSVAL
3218 @ 31415:               LINE   529 "regression-compile-tmp/hal70.imp"
3219 @ 31451:               PUSH   LITVAL
3220 @ 31454:               PUSH   VAL
3221 @ 31457:               ASSVAL

   530      %FINISH
3222 @ 31458:               LINE   530 "regression-compile-tmp/hal70.imp"
3223 @ 31494:               LOCATE L_0004

   531      TYPE = TYPE1;  VAL = LITVAL
3224 @ 31497:               LINE   531 "regression-compile-tmp/hal70.imp"
3225 @ 31533:               PUSH   TYPE
3226 @ 31536:               PUSH   TYPE1
3227 @ 31539:               ASSVAL
3228 @ 31540:               LINE   531 "regression-compile-tmp/hal70.imp"
3229 @ 31576:               PUSH   VAL
3230 @ 31579:               PUSH   LITVAL
3231 @ 31582:               ASSVAL

   532      ->POP
3232 @ 31583:               LINE   532 "regression-compile-tmp/hal70.imp"
3233 @ 31619:               JUMP   L_0108

   533  ASS(-3):
3234 @ 31622:               LINE   533 "regression-compile-tmp/hal70.imp"
3235 @ 31658:               PUSHI  #0xfffffffd
3236 @ 31663:               SLABEL 249

   534      OP = AND;  LITVAL = VAL1&VAL
3237 @ 31666:               LINE   534 "regression-compile-tmp/hal70.imp"
3238 @ 31702:               PUSH   OP
3239 @ 31705:               PUSH   AND
3240 @ 31708:               ASSVAL
3241 @ 31709:               LINE   534 "regression-compile-tmp/hal70.imp"
3242 @ 31745:               PUSH   LITVAL
3243 @ 31748:               PUSH   VAL1
3244 @ 31751:               PUSH   VAL
3245 @ 31754:               AND   
3246 @ 31755:               ASSVAL

   535      ->BOP
3247 @ 31756:               LINE   535 "regression-compile-tmp/hal70.imp"
3248 @ 31792:               JUMP   L_0107

   536  ASS(-4):
3249 @ 31795:               LINE   536 "regression-compile-tmp/hal70.imp"
3250 @ 31831:               PUSHI  #0xfffffffc
3251 @ 31836:               SLABEL 249

   537      OP = OR;  LITVAL = VAL1!VAL
3252 @ 31839:               LINE   537 "regression-compile-tmp/hal70.imp"
3253 @ 31875:               PUSH   OP
3254 @ 31878:               PUSH   OR
3255 @ 31881:               ASSVAL
3256 @ 31882:               LINE   537 "regression-compile-tmp/hal70.imp"
3257 @ 31918:               PUSH   LITVAL
3258 @ 31921:               PUSH   VAL1
3259 @ 31924:               PUSH   VAL
3260 @ 31927:               OR    
3261 @ 31928:               ASSVAL

   538      ->BOP
3262 @ 31929:               LINE   538 "regression-compile-tmp/hal70.imp"
3263 @ 31965:               JUMP   L_0107

   539  ASS(-5):
3264 @ 31968:               LINE   539 "regression-compile-tmp/hal70.imp"
3265 @ 32004:               PUSHI  #0xfffffffb
3266 @ 32009:               SLABEL 249

   540      OP = XOR;  LITVAL = VAL1!!VAL
3267 @ 32012:               LINE   540 "regression-compile-tmp/hal70.imp"
3268 @ 32048:               PUSH   OP
3269 @ 32051:               PUSH   XOR
3270 @ 32054:               ASSVAL
3271 @ 32055:               LINE   540 "regression-compile-tmp/hal70.imp"
3272 @ 32091:               PUSH   LITVAL
3273 @ 32094:               PUSH   VAL1
3274 @ 32097:               PUSH   VAL
3275 @ 32100:               XOR   
3276 @ 32101:               ASSVAL

   541      ->BOP
3277 @ 32102:               LINE   541 "regression-compile-tmp/hal70.imp"
3278 @ 32138:               JUMP   L_0107

   542  ASS(-6):
3279 @ 32141:               LINE   542 "regression-compile-tmp/hal70.imp"
3280 @ 32177:               PUSHI  #0xfffffffa
3281 @ 32182:               SLABEL 249

   543      OP = SLLS;  LITVAL = VAL1<<VAL
3282 @ 32185:               LINE   543 "regression-compile-tmp/hal70.imp"
3283 @ 32221:               PUSH   OP
3284 @ 32224:               PUSH   SLLS
3285 @ 32227:               ASSVAL
3286 @ 32228:               LINE   543 "regression-compile-tmp/hal70.imp"
3287 @ 32264:               PUSH   LITVAL
3288 @ 32267:               PUSH   VAL1
3289 @ 32270:               PUSH   VAL
3290 @ 32273:               LSH   
3291 @ 32274:               ASSVAL

   544      OP = SLHL %IF TYPE # 0
3292 @ 32275:               LINE   544 "regression-compile-tmp/hal70.imp"
3293 @ 32311:               PUSH   TYPE
3294 @ 32314:               PUSHI  #0x00000000
3295 @ 32319:               JUMPIF = L_0004
3296 @ 32323:               PUSH   OP
3297 @ 32326:               PUSH   SLHL
3298 @ 32329:               ASSVAL
3299 @ 32330:               LOCATE L_0004

   545      ->NOP
3300 @ 32333:               LINE   545 "regression-compile-tmp/hal70.imp"
3301 @ 32369:               JUMP   L_0106

   546  ASS(-7):
3302 @ 32372:               LINE   546 "regression-compile-tmp/hal70.imp"
3303 @ 32408:               PUSHI  #0xfffffff9
3304 @ 32413:               SLABEL 249

   547      OP = SRLS;  LITVAL = VAL1>>VAL
3305 @ 32416:               LINE   547 "regression-compile-tmp/hal70.imp"
3306 @ 32452:               PUSH   OP
3307 @ 32455:               PUSH   SRLS
3308 @ 32458:               ASSVAL
3309 @ 32459:               LINE   547 "regression-compile-tmp/hal70.imp"
3310 @ 32495:               PUSH   LITVAL
3311 @ 32498:               PUSH   VAL1
3312 @ 32501:               PUSH   VAL
3313 @ 32504:               RSH   
3314 @ 32505:               ASSVAL

   548      OP = SRHL %IF TYPE # 0
3315 @ 32506:               LINE   548 "regression-compile-tmp/hal70.imp"
3316 @ 32542:               PUSH   TYPE
3317 @ 32545:               PUSHI  #0x00000000
3318 @ 32550:               JUMPIF = L_0004
3319 @ 32554:               PUSH   OP
3320 @ 32557:               PUSH   SRHL
3321 @ 32560:               ASSVAL
3322 @ 32561:               LOCATE L_0004

   549      ->NOP
   550  
3323 @ 32564:               LINE   549 "regression-compile-tmp/hal70.imp"
3324 @ 32600:               JUMP   L_0106

   551  ASS(-8):                              !TYPE_VAL
3325 @ 32603:               LINE   551 "regression-compile-tmp/hal70.imp"
3326 @ 32639:               PUSHI  #0xfffffff8
3327 @ 32644:               SLABEL 249

   552      TYPE = VAL1
3328 @ 32647:               LINE   552 "regression-compile-tmp/hal70.imp"
3329 @ 32683:               PUSH   TYPE
3330 @ 32686:               PUSH   VAL1
3331 @ 32689:               ASSVAL

   553      TYPE = 0 %IF TYPE&OPMASK = MACRO; !SAFETY
3332 @ 32690:               LINE   553 "regression-compile-tmp/hal70.imp"
3333 @ 32726:               PUSH   TYPE
3334 @ 32729:               PUSH   OPMASK
3335 @ 32732:               AND   
3336 @ 32733:               PUSH   MACRO
3337 @ 32736:               JUMPIF # L_0004
3338 @ 32740:               PUSH   TYPE
3339 @ 32743:               PUSHI  #0x00000000
3340 @ 32748:               ASSVAL
3341 @ 32749:               LOCATE L_0004

   554      TYPE = 0 %IF TYPE&(OPMASK+FMASK) = FMASK
3342 @ 32752:               LINE   554 "regression-compile-tmp/hal70.imp"
3343 @ 32788:               PUSH   TYPE
3344 @ 32791:               PUSH   OPMASK
3345 @ 32794:               PUSH   FMASK
3346 @ 32797:               ADD   
3347 @ 32798:               AND   
3348 @ 32799:               PUSH   FMASK
3349 @ 32802:               JUMPIF # L_0004
3350 @ 32806:               PUSH   TYPE
3351 @ 32809:               PUSHI  #0x00000000
3352 @ 32814:               ASSVAL
3353 @ 32815:               LOCATE L_0004

   555      ->POP
   556  
3354 @ 32818:               LINE   555 "regression-compile-tmp/hal70.imp"
3355 @ 32854:               JUMP   L_0108

   557  ASS(-11):                             !COMPARE
3356 @ 32857:               LINE   557 "regression-compile-tmp/hal70.imp"
3357 @ 32893:               PUSHI  #0xfffffff5
3358 @ 32898:               SLABEL 249

   558      K = INTEGER(Q);  Q = Q+1
3359 @ 32901:               LINE   558 "regression-compile-tmp/hal70.imp"
3360 @ 32937:               PUSH   K
3361 @ 32940:               PUSH   INTEGER
3362 @ 32943:               PUSH   Q
3363 @ 32946:               ASSPAR
3364 @ 32947:               CALL  
3365 @ 32948:               ASSVAL
3366 @ 32949:               LINE   558 "regression-compile-tmp/hal70.imp"
3367 @ 32985:               PUSH   Q
3368 @ 32988:               PUSH   Q
3369 @ 32991:               PUSHI  #0x00000001
3370 @ 32996:               ADD   
3371 @ 32997:               ASSVAL

   559      %IF MODE <= 0 %START
3372 @ 32998:               LINE   559 "regression-compile-tmp/hal70.imp"
3373 @ 33034:               PUSH   MODE
3374 @ 33037:               PUSHI  #0x00000000
3375 @ 33042:               JUMPIF > L_0004

   560         VAL1 = TYPE1 %AND VAL = TYPE %IF TYPE1 # TYPE
3376 @ 33046:               LINE   560 "regression-compile-tmp/hal70.imp"
3377 @ 33082:               PUSH   TYPE1
3378 @ 33085:               PUSH   TYPE
3379 @ 33088:               JUMPIF = L_0007
3380 @ 33092:               PUSH   VAL1
3381 @ 33095:               PUSH   TYPE1
3382 @ 33098:               ASSVAL
3383 @ 33099:               PUSH   VAL
3384 @ 33102:               PUSH   TYPE
3385 @ 33105:               ASSVAL
3386 @ 33106:               LOCATE L_0007

   561         LITVAL = \3
3387 @ 33109:               LINE   561 "regression-compile-tmp/hal70.imp"
3388 @ 33145:               PUSH   LITVAL
3389 @ 33148:               PUSHI  #0x00000003
3390 @ 33153:               NOT   
3391 @ 33154:               ASSVAL

   562         LITVAL = 1 %IF VAL1 < VAL
3392 @ 33155:               LINE   562 "regression-compile-tmp/hal70.imp"
3393 @ 33191:               PUSH   VAL1
3394 @ 33194:               PUSH   VAL
3395 @ 33197:               JUMPIF >= L_0007
3396 @ 33201:               PUSH   LITVAL
3397 @ 33204:               PUSHI  #0x00000001
3398 @ 33209:               ASSVAL
3399 @ 33210:               LOCATE L_0007

   563         LITVAL = 2 %IF VAL1 > VAL
3400 @ 33213:               LINE   563 "regression-compile-tmp/hal70.imp"
3401 @ 33249:               PUSH   VAL1
3402 @ 33252:               PUSH   VAL
3403 @ 33255:               JUMPIF <= L_0007
3404 @ 33259:               PUSH   LITVAL
3405 @ 33262:               PUSHI  #0x00000002
3406 @ 33267:               ASSVAL
3407 @ 33268:               LOCATE L_0007

   564         K = K&LITVAL;  K = \0 %IF K # 0
3408 @ 33271:               LINE   564 "regression-compile-tmp/hal70.imp"
3409 @ 33307:               PUSH   K
3410 @ 33310:               PUSH   K
3411 @ 33313:               PUSH   LITVAL
3412 @ 33316:               AND   
3413 @ 33317:               ASSVAL
3414 @ 33318:               LINE   564 "regression-compile-tmp/hal70.imp"
3415 @ 33354:               PUSH   K
3416 @ 33357:               PUSHI  #0x00000000
3417 @ 33362:               JUMPIF = L_0007
3418 @ 33366:               PUSH   K
3419 @ 33369:               PUSHI  #0x00000000
3420 @ 33374:               NOT   
3421 @ 33375:               ASSVAL
3422 @ 33376:               LOCATE L_0007

   565      %finish %ELSE %UNLESS CREG=16 %AND TYPE1=CTYPE %AND VAL1=CVAL %AND TYPE=VAL=0 %START
3423 @ 33379:               LINE   565 "regression-compile-tmp/hal70.imp"
3424 @ 33415:               GOTO   L_0003
3425 @ 33418:               LOCATE L_0004
3426 @ 33421:               PUSH   CREG
3427 @ 33424:               PUSHI  #0x00000010
3428 @ 33429:               JUMPIF # L_0005
3429 @ 33433:               PUSH   TYPE1
3430 @ 33436:               PUSH   CTYPE
3431 @ 33439:               JUMPIF # L_0005
3432 @ 33443:               PUSH   VAL1
3433 @ 33446:               PUSH   CVAL
3434 @ 33449:               JUMPIF # L_0005
3435 @ 33453:               PUSH   TYPE
3436 @ 33456:               PUSH   VAL
3437 @ 33459:               JUMPIFD # L_0005
3438 @ 33463:               PUSHI  #0x00000000
3439 @ 33468:               JUMPIF = L_0004
3440 @ 33472:               LOCATE L_0005

   566         %IF TYPE1 # REG %START
3441 @ 33475:               LINE   566 "regression-compile-tmp/hal70.imp"
3442 @ 33511:               PUSH   TYPE1
3443 @ 33514:               PUSH   REG
3444 @ 33517:               JUMPIF = L_0007

   567            SWOP
3445 @ 33521:               LINE   567 "regression-compile-tmp/hal70.imp"
3446 @ 33557:               PUSH   SWOP
3447 @ 33560:               CALL  

   568            %IF TYPE1 # REG %START
3448 @ 33561:               LINE   568 "regression-compile-tmp/hal70.imp"
3449 @ 33597:               PUSH   TYPE1
3450 @ 33600:               PUSH   REG
3451 @ 33603:               JUMPIF = L_000a

   569               LOAD TEMP;  SWOP
3452 @ 33607:               LINE   569 "regression-compile-tmp/hal70.imp"
3453 @ 33643:               PUSH   LOADTEMP
3454 @ 33646:               CALL  
3455 @ 33647:               LINE   569 "regression-compile-tmp/hal70.imp"
3456 @ 33683:               PUSH   SWOP
3457 @ 33686:               CALL  

   570            %finish %ELSE %START
3458 @ 33687:               LINE   570 "regression-compile-tmp/hal70.imp"
3459 @ 33723:               GOTO   L_0009
3460 @ 33726:               LOCATE L_000a

   571               K = K!!3 %UNLESS K = 3 %OR K = \3
3461 @ 33729:               LINE   571 "regression-compile-tmp/hal70.imp"
3462 @ 33765:               PUSH   K
3463 @ 33768:               PUSHI  #0x00000003
3464 @ 33773:               JUMPIF = L_000d
3465 @ 33777:               PUSH   K
3466 @ 33780:               PUSHI  #0x00000003
3467 @ 33785:               NOT   
3468 @ 33786:               JUMPIF = L_000d
3469 @ 33790:               PUSH   K
3470 @ 33793:               PUSH   K
3471 @ 33796:               PUSHI  #0x00000003
3472 @ 33801:               XOR   
3473 @ 33802:               ASSVAL
3474 @ 33803:               LOCATE L_000d

   572            %FINISH
3475 @ 33806:               LINE   572 "regression-compile-tmp/hal70.imp"
3476 @ 33842:               LOCATE L_0009

   573         %FINISH
3477 @ 33845:               LINE   573 "regression-compile-tmp/hal70.imp"
3478 @ 33881:               LOCATE L_0007

   574         %UNLESS CREG = VAL1 %AND CTYPE = TYPE %AND CVAL = VAL %START
3479 @ 33884:               LINE   574 "regression-compile-tmp/hal70.imp"
3480 @ 33920:               PUSH   CREG
3481 @ 33923:               PUSH   VAL1
3482 @ 33926:               JUMPIF # L_0008
3483 @ 33930:               PUSH   CTYPE
3484 @ 33933:               PUSH   TYPE
3485 @ 33936:               JUMPIF # L_0008
3486 @ 33940:               PUSH   CVAL
3487 @ 33943:               PUSH   VAL
3488 @ 33946:               JUMPIF = L_0007
3489 @ 33950:               LOCATE L_0008

   575            CREG = VAL1;  CTYPE = TYPE;  CVAL = VAL
3490 @ 33953:               LINE   575 "regression-compile-tmp/hal70.imp"
3491 @ 33989:               PUSH   CREG
3492 @ 33992:               PUSH   VAL1
3493 @ 33995:               ASSVAL
3494 @ 33996:               LINE   575 "regression-compile-tmp/hal70.imp"
3495 @ 34032:               PUSH   CTYPE
3496 @ 34035:               PUSH   TYPE
3497 @ 34038:               ASSVAL
3498 @ 34039:               LINE   575 "regression-compile-tmp/hal70.imp"
3499 @ 34075:               PUSH   CVAL
3500 @ 34078:               PUSH   VAL
3501 @ 34081:               ASSVAL

   576            %UNLESS TYPE = VAL = 0 %START
3502 @ 34082:               LINE   576 "regression-compile-tmp/hal70.imp"
3503 @ 34118:               PUSH   TYPE
3504 @ 34121:               PUSH   VAL
3505 @ 34124:               JUMPIFD # L_000b
3506 @ 34128:               PUSHI  #0x00000000
3507 @ 34133:               JUMPIF = L_000a
3508 @ 34137:               LOCATE L_000b

   577               OP = COMP
3509 @ 34140:               LINE   577 "regression-compile-tmp/hal70.imp"
3510 @ 34176:               PUSH   OP
3511 @ 34179:               PUSH   COMP
3512 @ 34182:               ASSVAL

   578               %IF TYPE = ATYPE %AND VAL = AVAL %START
3513 @ 34183:               LINE   578 "regression-compile-tmp/hal70.imp"
3514 @ 34219:               PUSH   TYPE
3515 @ 34222:               PUSH   ATYPE
3516 @ 34225:               JUMPIF # L_000d
3517 @ 34229:               PUSH   VAL
3518 @ 34232:               PUSH   AVAL
3519 @ 34235:               JUMPIF # L_000d

   579                  TYPE = REG;  VAL = ACC
3520 @ 34239:               LINE   579 "regression-compile-tmp/hal70.imp"
3521 @ 34275:               PUSH   TYPE
3522 @ 34278:               PUSH   REG
3523 @ 34281:               ASSVAL
3524 @ 34282:               LINE   579 "regression-compile-tmp/hal70.imp"
3525 @ 34318:               PUSH   VAL
3526 @ 34321:               PUSH   ACC
3527 @ 34324:               ASSVAL

   580               %FINISH
3528 @ 34325:               LINE   580 "regression-compile-tmp/hal70.imp"
3529 @ 34361:               LOCATE L_000d

   581               %IF TYPE&BMASK # 0 %START
3530 @ 34364:               LINE   581 "regression-compile-tmp/hal70.imp"
3531 @ 34400:               PUSH   TYPE
3532 @ 34403:               PUSH   BMASK
3533 @ 34406:               AND   
3534 @ 34407:               PUSHI  #0x00000000
3535 @ 34412:               JUMPIF = L_000d

   582                  OP = CLB
3536 @ 34416:               LINE   582 "regression-compile-tmp/hal70.imp"
3537 @ 34452:               PUSH   OP
3538 @ 34455:               PUSH   CLB
3539 @ 34458:               ASSVAL

   583                  FAULT('I') %UNLESS K = 3 %OR K = \3
3540 @ 34459:               LINE   583 "regression-compile-tmp/hal70.imp"
3541 @ 34495:               PUSH   K
3542 @ 34498:               PUSHI  #0x00000003
3543 @ 34503:               JUMPIF = L_0010
3544 @ 34507:               PUSH   K
3545 @ 34510:               PUSHI  #0x00000003
3546 @ 34515:               NOT   
3547 @ 34516:               JUMPIF = L_0010
3548 @ 34520:               PUSH   FAULT
3549 @ 34523:               PUSHI  #0x00000049
3550 @ 34528:               ASSPAR
3551 @ 34529:               CALL  
3552 @ 34530:               LOCATE L_0010

   584               %FINISH
3553 @ 34533:               LINE   584 "regression-compile-tmp/hal70.imp"
3554 @ 34569:               LOCATE L_000d

   585            %finish %ELSE %START
3555 @ 34572:               LINE   585 "regression-compile-tmp/hal70.imp"
3556 @ 34608:               GOTO   L_0009
3557 @ 34611:               LOCATE L_000a

   586               OP = LOAD
3558 @ 34614:               LINE   586 "regression-compile-tmp/hal70.imp"
3559 @ 34650:               PUSH   OP
3560 @ 34653:               PUSH   LOAD
3561 @ 34656:               ASSVAL

   587               TYPE = REG;  VAL = VAL1
3562 @ 34657:               LINE   587 "regression-compile-tmp/hal70.imp"
3563 @ 34693:               PUSH   TYPE
3564 @ 34696:               PUSH   REG
3565 @ 34699:               ASSVAL
3566 @ 34700:               LINE   587 "regression-compile-tmp/hal70.imp"
3567 @ 34736:               PUSH   VAL
3568 @ 34739:               PUSH   VAL1
3569 @ 34742:               ASSVAL

   588            %FINISH
3570 @ 34743:               LINE   588 "regression-compile-tmp/hal70.imp"
3571 @ 34779:               LOCATE L_0009

   589            PLANT INST(VAL1<<4+OP)
3572 @ 34782:               LINE   589 "regression-compile-tmp/hal70.imp"
3573 @ 34818:               PUSH   PLANTINST
3574 @ 34821:               PUSH   VAL1
3575 @ 34824:               PUSHI  #0x00000004
3576 @ 34829:               LSH   
3577 @ 34830:               PUSH   OP
3578 @ 34833:               ADD   
3579 @ 34834:               ASSPAR
3580 @ 34835:               CALL  

   590         %FINISH
3581 @ 34836:               LINE   590 "regression-compile-tmp/hal70.imp"
3582 @ 34872:               LOCATE L_0007

   591      %FINISH
3583 @ 34875:               LINE   591 "regression-compile-tmp/hal70.imp"
3584 @ 34911:               LOCATE L_0004
3585 @ 34914:               LOCATE L_0003

   592      COND = K
3586 @ 34917:               LINE   592 "regression-compile-tmp/hal70.imp"
3587 @ 34953:               PUSH   COND
3588 @ 34956:               PUSH   K
3589 @ 34959:               ASSVAL

   593      ->GET
   594  
3590 @ 34960:               LINE   593 "regression-compile-tmp/hal70.imp"
3591 @ 34996:               JUMP   L_0104

   595  ASS(-12):                             !TEST CC
3592 @ 34999:               LINE   595 "regression-compile-tmp/hal70.imp"
3593 @ 35035:               PUSHI  #0xfffffff4
3594 @ 35040:               SLABEL 249

   596      COND = \VAL
3595 @ 35043:               LINE   596 "regression-compile-tmp/hal70.imp"
3596 @ 35079:               PUSH   COND
3597 @ 35082:               PUSH   VAL
3598 @ 35085:               NOT   
3599 @ 35086:               ASSVAL

   597      ->GET
   598  
3600 @ 35087:               LINE   597 "regression-compile-tmp/hal70.imp"
3601 @ 35123:               JUMP   L_0104

   599  ASS(-13):                             !AND,WHILE
3602 @ 35126:               LINE   599 "regression-compile-tmp/hal70.imp"
3603 @ 35162:               PUSHI  #0xfffffff3
3604 @ 35167:               SLABEL 249

   600      %IF MODE > 0 %START
3605 @ 35170:               LINE   600 "regression-compile-tmp/hal70.imp"
3606 @ 35206:               PUSH   MODE
3607 @ 35209:               PUSHI  #0x00000000
3608 @ 35214:               JUMPIF <= L_0004

   601         SET JUMP(16_1000)
3609 @ 35218:               LINE   601 "regression-compile-tmp/hal70.imp"
3610 @ 35254:               PUSH   SETJUMP
3611 @ 35257:               PUSHI  #0x00001000
3612 @ 35262:               ASSPAR
3613 @ 35263:               CALL  

   602      %finish %ELSE %START
3614 @ 35264:               LINE   602 "regression-compile-tmp/hal70.imp"
3615 @ 35300:               GOTO   L_0003
3616 @ 35303:               LOCATE L_0004

   603         %RETURN %IF COND # 0;          !CONDITION FALSE
3617 @ 35306:               LINE   603 "regression-compile-tmp/hal70.imp"
3618 @ 35342:               PUSH   COND
3619 @ 35345:               PUSHI  #0x00000000
3620 @ 35350:               JUMPIF = L_0007
3621 @ 35354:               RETURN
3622 @ 35355:               LOCATE L_0007

   604      %FINISH
3623 @ 35358:               LINE   604 "regression-compile-tmp/hal70.imp"
3624 @ 35394:               LOCATE L_0003

   605      %RETURN %IF Q = QLIM
3625 @ 35397:               LINE   605 "regression-compile-tmp/hal70.imp"
3626 @ 35433:               PUSH   Q
3627 @ 35436:               PUSH   QLIM
3628 @ 35439:               JUMPIF # L_0004
3629 @ 35443:               RETURN
3630 @ 35444:               LOCATE L_0004

   606      ->NEW
   607  
3631 @ 35447:               LINE   606 "regression-compile-tmp/hal70.imp"
3632 @ 35483:               JUMP   L_0103

   608  ASS(-14):                             !OR
3633 @ 35486:               LINE   608 "regression-compile-tmp/hal70.imp"
3634 @ 35522:               PUSHI  #0xfffffff2
3635 @ 35527:               SLABEL 249

   609      %IF MODE > 0 %START
3636 @ 35530:               LINE   609 "regression-compile-tmp/hal70.imp"
3637 @ 35566:               PUSH   MODE
3638 @ 35569:               PUSHI  #0x00000000
3639 @ 35574:               JUMPIF <= L_0004

   610         COND = \COND
3640 @ 35578:               LINE   610 "regression-compile-tmp/hal70.imp"
3641 @ 35614:               PUSH   COND
3642 @ 35617:               PUSH   COND
3643 @ 35620:               NOT   
3644 @ 35621:               ASSVAL

   611         SET JUMP(16_3000)
3645 @ 35622:               LINE   611 "regression-compile-tmp/hal70.imp"
3646 @ 35658:               PUSH   SETJUMP
3647 @ 35661:               PUSHI  #0x00003000
3648 @ 35666:               ASSPAR
3649 @ 35667:               CALL  

   612      %finish %ELSE %START
3650 @ 35668:               LINE   612 "regression-compile-tmp/hal70.imp"
3651 @ 35704:               GOTO   L_0003
3652 @ 35707:               LOCATE L_0004

   613         %RETURN %IF COND = 0;          !CONDITION TRUE
3653 @ 35710:               LINE   613 "regression-compile-tmp/hal70.imp"
3654 @ 35746:               PUSH   COND
3655 @ 35749:               PUSHI  #0x00000000
3656 @ 35754:               JUMPIF # L_0007
3657 @ 35758:               RETURN
3658 @ 35759:               LOCATE L_0007

   614      %FINISH
3659 @ 35762:               LINE   614 "regression-compile-tmp/hal70.imp"
3660 @ 35798:               LOCATE L_0003

   615      ->NEW
   616  
3661 @ 35801:               LINE   615 "regression-compile-tmp/hal70.imp"
3662 @ 35837:               JUMP   L_0103

   617  ASS(-15):                             !IF
3663 @ 35840:               LINE   617 "regression-compile-tmp/hal70.imp"
3664 @ 35876:               PUSHI  #0xfffffff1
3665 @ 35881:               SLABEL 249

   618      SET JUMP(16_2000)
3666 @ 35884:               LINE   618 "regression-compile-tmp/hal70.imp"
3667 @ 35920:               PUSH   SETJUMP
3668 @ 35923:               PUSHI  #0x00002000
3669 @ 35928:               ASSPAR
3670 @ 35929:               CALL  

   619      %RETURN
   620  
3671 @ 35930:               LINE   619 "regression-compile-tmp/hal70.imp"
3672 @ 35966:               RETURN

   621  ASS(-16):                             !ELSE
3673 @ 35967:               LINE   621 "regression-compile-tmp/hal70.imp"
3674 @ 36003:               PUSHI  #0xfffffff0
3675 @ 36008:               SLABEL 249

   622      COND = \0
3676 @ 36011:               LINE   622 "regression-compile-tmp/hal70.imp"
3677 @ 36047:               PUSH   COND
3678 @ 36050:               PUSHI  #0x00000000
3679 @ 36055:               NOT   
3680 @ 36056:               ASSVAL

   623      SET JUMP(16_4000)
3681 @ 36057:               LINE   623 "regression-compile-tmp/hal70.imp"
3682 @ 36093:               PUSH   SETJUMP
3683 @ 36096:               PUSHI  #0x00004000
3684 @ 36101:               ASSPAR
3685 @ 36102:               CALL  

   624      %RETURN
   625  
3686 @ 36103:               LINE   624 "regression-compile-tmp/hal70.imp"
3687 @ 36139:               RETURN

   626  ASS(-17):                             !IF AFTER ELSE
3688 @ 36140:               LINE   626 "regression-compile-tmp/hal70.imp"
3689 @ 36176:               PUSHI  #0xffffffef
3690 @ 36181:               SLABEL 249

   627      SET JUMP(16_6000)
3691 @ 36184:               LINE   627 "regression-compile-tmp/hal70.imp"
3692 @ 36220:               PUSH   SETJUMP
3693 @ 36223:               PUSHI  #0x00006000
3694 @ 36228:               ASSPAR
3695 @ 36229:               CALL  

   628      %RETURN
   629  
3696 @ 36230:               LINE   628 "regression-compile-tmp/hal70.imp"
3697 @ 36266:               RETURN

   630  ASS(-18):                             !MACCALL IF
3698 @ 36267:               LINE   630 "regression-compile-tmp/hal70.imp"
3699 @ 36303:               PUSHI  #0xffffffee
3700 @ 36308:               SLABEL 249

   631      SET JUMP(16_8000)
3701 @ 36311:               LINE   631 "regression-compile-tmp/hal70.imp"
3702 @ 36347:               PUSH   SETJUMP
3703 @ 36350:               PUSHI  #0x00008000
3704 @ 36355:               ASSPAR
3705 @ 36356:               CALL  

   632      %RETURN
   633  
3706 @ 36357:               LINE   632 "regression-compile-tmp/hal70.imp"
3707 @ 36393:               RETURN

   634  ASS(-20):                             !HASH
3708 @ 36394:               LINE   634 "regression-compile-tmp/hal70.imp"
3709 @ 36430:               PUSHI  #0xffffffec
3710 @ 36435:               SLABEL 249

   635      TYPE = TYPE&(UMASK+63)
3711 @ 36438:               LINE   635 "regression-compile-tmp/hal70.imp"
3712 @ 36474:               PUSH   TYPE
3713 @ 36477:               PUSH   TYPE
3714 @ 36480:               PUSH   UMASK
3715 @ 36483:               PUSHI  #0x0000003f
3716 @ 36488:               ADD   
3717 @ 36489:               AND   
3718 @ 36490:               ASSVAL

   636      ->GET
   637  
3719 @ 36491:               LINE   636 "regression-compile-tmp/hal70.imp"
3720 @ 36527:               JUMP   L_0104

   638  ASS(-21):                             !INDEX
3721 @ 36530:               LINE   638 "regression-compile-tmp/hal70.imp"
3722 @ 36566:               PUSHI  #0xffffffeb
3723 @ 36571:               SLABEL 249

   639      FAULT('I') %IF TYPE1&REGXMASK # 0
3724 @ 36574:               LINE   639 "regression-compile-tmp/hal70.imp"
3725 @ 36610:               PUSH   TYPE1
3726 @ 36613:               PUSH   REGXMASK
3727 @ 36616:               AND   
3728 @ 36617:               PUSHI  #0x00000000
3729 @ 36622:               JUMPIF = L_0004
3730 @ 36626:               PUSH   FAULT
3731 @ 36629:               PUSHI  #0x00000049
3732 @ 36634:               ASSPAR
3733 @ 36635:               CALL  
3734 @ 36636:               LOCATE L_0004

   640      %IF TYPE&MEMMASK # 0 %START
3735 @ 36639:               LINE   640 "regression-compile-tmp/hal70.imp"
3736 @ 36675:               PUSH   TYPE
3737 @ 36678:               PUSH   MEMMASK
3738 @ 36681:               AND   
3739 @ 36682:               PUSHI  #0x00000000
3740 @ 36687:               JUMPIF = L_0004

   641         %IF MODE > 0 %START
3741 @ 36691:               LINE   641 "regression-compile-tmp/hal70.imp"
3742 @ 36727:               PUSH   MODE
3743 @ 36730:               PUSHI  #0x00000000
3744 @ 36735:               JUMPIF <= L_0007

   642            ZQUERY = 1
3745 @ 36739:               LINE   642 "regression-compile-tmp/hal70.imp"
3746 @ 36775:               PUSH   ZQUERY
3747 @ 36778:               PUSHI  #0x00000001
3748 @ 36783:               ASSVAL

   643            LOAD TEMP
3749 @ 36784:               LINE   643 "regression-compile-tmp/hal70.imp"
3750 @ 36820:               PUSH   LOADTEMP
3751 @ 36823:               CALL  

   644            ZQUERY = 0
3752 @ 36824:               LINE   644 "regression-compile-tmp/hal70.imp"
3753 @ 36860:               PUSH   ZQUERY
3754 @ 36863:               PUSHI  #0x00000000
3755 @ 36868:               ASSVAL

   645         %finish %ELSE FAULT('A')
3756 @ 36869:               LINE   645 "regression-compile-tmp/hal70.imp"
3757 @ 36905:               GOTO   L_0006
3758 @ 36908:               LOCATE L_0007
3759 @ 36911:               PUSH   FAULT
3760 @ 36914:               PUSHI  #0x00000041
3761 @ 36919:               ASSPAR
3762 @ 36920:               CALL  
3763 @ 36921:               LOCATE L_0006

   646      %FINISH
3764 @ 36924:               LINE   646 "regression-compile-tmp/hal70.imp"
3765 @ 36960:               LOCATE L_0004

   647      %IF TYPE = REG %START
3766 @ 36963:               LINE   647 "regression-compile-tmp/hal70.imp"
3767 @ 36999:               PUSH   TYPE
3768 @ 37002:               PUSH   REG
3769 @ 37005:               JUMPIF # L_0004

   648         TYPE = XMASK+VAL;  VAL = 0
3770 @ 37009:               LINE   648 "regression-compile-tmp/hal70.imp"
3771 @ 37045:               PUSH   TYPE
3772 @ 37048:               PUSH   XMASK
3773 @ 37051:               PUSH   VAL
3774 @ 37054:               ADD   
3775 @ 37055:               ASSVAL
3776 @ 37056:               LINE   648 "regression-compile-tmp/hal70.imp"
3777 @ 37092:               PUSH   VAL
3778 @ 37095:               PUSHI  #0x00000000
3779 @ 37100:               ASSVAL

   649      %FINISH
3780 @ 37101:               LINE   649 "regression-compile-tmp/hal70.imp"
3781 @ 37137:               LOCATE L_0004

   650      ZQUERY = 0
3782 @ 37140:               LINE   650 "regression-compile-tmp/hal70.imp"
3783 @ 37176:               PUSH   ZQUERY
3784 @ 37179:               PUSHI  #0x00000000
3785 @ 37184:               ASSVAL

   651      FAULT('I') %IF TYPE1&TYPE&RELMASK # 0
3786 @ 37185:               LINE   651 "regression-compile-tmp/hal70.imp"
3787 @ 37221:               PUSH   TYPE1
3788 @ 37224:               PUSH   TYPE
3789 @ 37227:               AND   
3790 @ 37228:               PUSH   RELMASK
3791 @ 37231:               AND   
3792 @ 37232:               PUSHI  #0x00000000
3793 @ 37237:               JUMPIF = L_0004
3794 @ 37241:               PUSH   FAULT
3795 @ 37244:               PUSHI  #0x00000049
3796 @ 37249:               ASSPAR
3797 @ 37250:               CALL  
3798 @ 37251:               LOCATE L_0004

   652      TYPE = TYPE1!TYPE!MEMMASK;  VAL = VAL1+VAL
3799 @ 37254:               LINE   652 "regression-compile-tmp/hal70.imp"
3800 @ 37290:               PUSH   TYPE
3801 @ 37293:               PUSH   TYPE1
3802 @ 37296:               PUSH   TYPE
3803 @ 37299:               OR    
3804 @ 37300:               PUSH   MEMMASK
3805 @ 37303:               OR    
3806 @ 37304:               ASSVAL
3807 @ 37305:               LINE   652 "regression-compile-tmp/hal70.imp"
3808 @ 37341:               PUSH   VAL
3809 @ 37344:               PUSH   VAL1
3810 @ 37347:               PUSH   VAL
3811 @ 37350:               ADD   
3812 @ 37351:               ASSVAL

   653      ->POP
   654  
3813 @ 37352:               LINE   653 "regression-compile-tmp/hal70.imp"
3814 @ 37388:               JUMP   L_0108

   655  ASS(-22):                             !MINST SEPARATOR
3815 @ 37391:               LINE   655 "regression-compile-tmp/hal70.imp"
3816 @ 37427:               PUSHI  #0xffffffea
3817 @ 37432:               SLABEL 249

   656      %IF TYPE1&OPMASK = 16_7000 %START
3818 @ 37435:               LINE   656 "regression-compile-tmp/hal70.imp"
3819 @ 37471:               PUSH   TYPE1
3820 @ 37474:               PUSH   OPMASK
3821 @ 37477:               AND   
3822 @ 37478:               PUSHI  #0x00007000
3823 @ 37483:               JUMPIF # L_0004

   657         %IF TYPE1&16_10 = 0 %START;    !REG-TYPE INST
3824 @ 37487:               LINE   657 "regression-compile-tmp/hal70.imp"
3825 @ 37523:               PUSH   TYPE1
3826 @ 37526:               PUSHI  #0x00000010
3827 @ 37531:               AND   
3828 @ 37532:               PUSHI  #0x00000000
3829 @ 37537:               JUMPIF # L_0007

   658            FAULT('I') %IF TYPE # REG
3830 @ 37541:               LINE   658 "regression-compile-tmp/hal70.imp"
3831 @ 37577:               PUSH   TYPE
3832 @ 37580:               PUSH   REG
3833 @ 37583:               JUMPIF = L_000a
3834 @ 37587:               PUSH   FAULT
3835 @ 37590:               PUSHI  #0x00000049
3836 @ 37595:               ASSPAR
3837 @ 37596:               CALL  
3838 @ 37597:               LOCATE L_000a

   659         %finish %ELSE %START
3839 @ 37600:               LINE   659 "regression-compile-tmp/hal70.imp"
3840 @ 37636:               GOTO   L_0006
3841 @ 37639:               LOCATE L_0007

   660            VAL = \VAL %AND VAL1 = VAL1!!16_0100 %IF VAL < 0
3842 @ 37642:               LINE   660 "regression-compile-tmp/hal70.imp"
3843 @ 37678:               PUSH   VAL
3844 @ 37681:               PUSHI  #0x00000000
3845 @ 37686:               JUMPIF >= L_000a
3846 @ 37690:               PUSH   VAL
3847 @ 37693:               PUSH   VAL
3848 @ 37696:               NOT   
3849 @ 37697:               ASSVAL
3850 @ 37698:               PUSH   VAL1
3851 @ 37701:               PUSH   VAL1
3852 @ 37704:               PUSHI  #0x00000100
3853 @ 37709:               XOR   
3854 @ 37710:               ASSVAL
3855 @ 37711:               LOCATE L_000a

   661            FAULT('I') %IF TYPE # 0 %OR VAL > 15
3856 @ 37714:               LINE   661 "regression-compile-tmp/hal70.imp"
3857 @ 37750:               PUSH   TYPE
3858 @ 37753:               PUSHI  #0x00000000
3859 @ 37758:               JUMPIF # L_000b
3860 @ 37762:               PUSH   VAL
3861 @ 37765:               PUSHI  #0x0000000f
3862 @ 37770:               JUMPIF <= L_000a
3863 @ 37774:               LOCATE L_000b
3864 @ 37777:               PUSH   FAULT
3865 @ 37780:               PUSHI  #0x00000049
3866 @ 37785:               ASSPAR
3867 @ 37786:               CALL  
3868 @ 37787:               LOCATE L_000a

   662         %FINISH
3869 @ 37790:               LINE   662 "regression-compile-tmp/hal70.imp"
3870 @ 37826:               LOCATE L_0006

   663         TYPE = TYPE1+16_8000;  VAL = VAL1&16_FF0F+VAL<<4
3871 @ 37829:               LINE   663 "regression-compile-tmp/hal70.imp"
3872 @ 37865:               PUSH   TYPE
3873 @ 37868:               PUSH   TYPE1
3874 @ 37871:               PUSHI  #0x00008000
3875 @ 37876:               ADD   
3876 @ 37877:               ASSVAL
3877 @ 37878:               LINE   663 "regression-compile-tmp/hal70.imp"
3878 @ 37914:               PUSH   VAL
3879 @ 37917:               PUSH   VAL1
3880 @ 37920:               PUSHI  #0x0000ff0f
3881 @ 37925:               AND   
3882 @ 37926:               PUSH   VAL
3883 @ 37929:               PUSHI  #0x00000004
3884 @ 37934:               LSH   
3885 @ 37935:               ADD   
3886 @ 37936:               ASSVAL

   664      %finish %ELSE %IF TYPE1&OPMASK = 16_F000 %START
3887 @ 37937:               LINE   664 "regression-compile-tmp/hal70.imp"
3888 @ 37973:               GOTO   L_0003
3889 @ 37976:               LOCATE L_0004
3890 @ 37979:               PUSH   TYPE1
3891 @ 37982:               PUSH   OPMASK
3892 @ 37985:               AND   
3893 @ 37986:               PUSHI  #0x0000f000
3894 @ 37991:               JUMPIF # L_0004

   665         PROGREF %IF VAL1&16_FC0F = 16_0003; !BAL,BTC,BFC
3895 @ 37995:               LINE   665 "regression-compile-tmp/hal70.imp"
3896 @ 38031:               PUSH   VAL1
3897 @ 38034:               PUSHI  #0x0000fc0f
3898 @ 38039:               AND   
3899 @ 38040:               PUSHI  #0x00000003
3900 @ 38045:               JUMPIF # L_0007
3901 @ 38049:               PUSH   PROGREF
3902 @ 38052:               CALL  
3903 @ 38053:               LOCATE L_0007

   666         FORM INST(VAL1)
3904 @ 38056:               LINE   666 "regression-compile-tmp/hal70.imp"
3905 @ 38092:               PUSH   FORMINST
3906 @ 38095:               PUSH   VAL1
3907 @ 38098:               ASSPAR
3908 @ 38099:               CALL  

   667      %finish %ELSE FAULT('I')
3909 @ 38100:               LINE   667 "regression-compile-tmp/hal70.imp"
3910 @ 38136:               GOTO   L_0003
3911 @ 38139:               LOCATE L_0004
3912 @ 38142:               PUSH   FAULT
3913 @ 38145:               PUSHI  #0x00000049
3914 @ 38150:               ASSPAR
3915 @ 38151:               CALL  
3916 @ 38152:               LOCATE L_0003

   668      ->POP
   669  
3917 @ 38155:               LINE   668 "regression-compile-tmp/hal70.imp"
3918 @ 38191:               JUMP   L_0108

   670  ASS(-23):                             !MACHINE INST
3919 @ 38194:               LINE   670 "regression-compile-tmp/hal70.imp"
3920 @ 38230:               PUSHI  #0xffffffe9
3921 @ 38235:               SLABEL 249

   671      SET JUMP(16_1000) %IF COND # 0
3922 @ 38238:               LINE   671 "regression-compile-tmp/hal70.imp"
3923 @ 38274:               PUSH   COND
3924 @ 38277:               PUSHI  #0x00000000
3925 @ 38282:               JUMPIF = L_0004
3926 @ 38286:               PUSH   SETJUMP
3927 @ 38289:               PUSHI  #0x00001000
3928 @ 38294:               ASSPAR
3929 @ 38295:               CALL  
3930 @ 38296:               LOCATE L_0004

   672      PLANT VAL
3931 @ 38299:               LINE   672 "regression-compile-tmp/hal70.imp"
3932 @ 38335:               PUSH   PLANTVAL
3933 @ 38338:               CALL  

   673      CREG = -1;  ATYPE = -1
3934 @ 38339:               LINE   673 "regression-compile-tmp/hal70.imp"
3935 @ 38375:               PUSH   CREG
3936 @ 38378:               PUSHI  #0x00000001
3937 @ 38383:               NEGATE
3938 @ 38384:               ASSVAL
3939 @ 38385:               LINE   673 "regression-compile-tmp/hal70.imp"
3940 @ 38421:               PUSH   ATYPE
3941 @ 38424:               PUSHI  #0x00000001
3942 @ 38429:               NEGATE
3943 @ 38430:               ASSVAL

   674      %RETURN
   675  
3944 @ 38431:               LINE   674 "regression-compile-tmp/hal70.imp"
3945 @ 38467:               RETURN

   676  ASS(-24):                             !LOAD
3946 @ 38468:               LINE   676 "regression-compile-tmp/hal70.imp"
3947 @ 38504:               PUSHI  #0xffffffe8
3948 @ 38509:               SLABEL 249

   677      LOAD TEMP %IF TYPE # REG
3949 @ 38512:               LINE   677 "regression-compile-tmp/hal70.imp"
3950 @ 38548:               PUSH   TYPE
3951 @ 38551:               PUSH   REG
3952 @ 38554:               JUMPIF = L_0004
3953 @ 38558:               PUSH   LOADTEMP
3954 @ 38561:               CALL  
3955 @ 38562:               LOCATE L_0004

   678      Q = QBASE
3956 @ 38565:               LINE   678 "regression-compile-tmp/hal70.imp"
3957 @ 38601:               PUSH   Q
3958 @ 38604:               PUSH   QBASE
3959 @ 38607:               ASSVAL

   679      ->GET
   680  
3960 @ 38608:               LINE   679 "regression-compile-tmp/hal70.imp"
3961 @ 38644:               JUMP   L_0104

   681  ASS(-25):                             !STORE (TYPE1,VAL1 -> TYPE,VAL)
3962 @ 38647:               LINE   681 "regression-compile-tmp/hal70.imp"
3963 @ 38683:               PUSHI  #0xffffffe7
3964 @ 38688:               SLABEL 249

   682      %IF TYPE = REG %START
3965 @ 38691:               LINE   682 "regression-compile-tmp/hal70.imp"
3966 @ 38727:               PUSH   TYPE
3967 @ 38730:               PUSH   REG
3968 @ 38733:               JUMPIF # L_0004

   683         SWOP %AND LOAD REG(VAL1) %IF VAL1 # VAL
3969 @ 38737:               LINE   683 "regression-compile-tmp/hal70.imp"
3970 @ 38773:               PUSH   VAL1
3971 @ 38776:               PUSH   VAL
3972 @ 38779:               JUMPIF = L_0007
3973 @ 38783:               PUSH   SWOP
3974 @ 38786:               CALL  
3975 @ 38787:               PUSH   LOADREG
3976 @ 38790:               PUSH   VAL1
3977 @ 38793:               ASSPAR
3978 @ 38794:               CALL  
3979 @ 38795:               LOCATE L_0007

   684      %finish %ELSE %START
3980 @ 38798:               LINE   684 "regression-compile-tmp/hal70.imp"
3981 @ 38834:               GOTO   L_0003
3982 @ 38837:               LOCATE L_0004

   685         ATYPE = -1 %IF ATYPE&MEMMASK # 0
3983 @ 38840:               LINE   685 "regression-compile-tmp/hal70.imp"
3984 @ 38876:               PUSH   ATYPE
3985 @ 38879:               PUSH   MEMMASK
3986 @ 38882:               AND   
3987 @ 38883:               PUSHI  #0x00000000
3988 @ 38888:               JUMPIF = L_0007
3989 @ 38892:               PUSH   ATYPE
3990 @ 38895:               PUSHI  #0x00000001
3991 @ 38900:               NEGATE
3992 @ 38901:               ASSVAL
3993 @ 38902:               LOCATE L_0007

   686         %IF FLAG = 0 %START
3994 @ 38905:               LINE   686 "regression-compile-tmp/hal70.imp"
3995 @ 38941:               PUSH   FLAG
3996 @ 38944:               PUSHI  #0x00000000
3997 @ 38949:               JUMPIF # L_0007

   687            %IF VAL1 = ACC %AND ATYPE < 0 %START
3998 @ 38953:               LINE   687 "regression-compile-tmp/hal70.imp"
3999 @ 38989:               PUSH   VAL1
4000 @ 38992:               PUSH   ACC
4001 @ 38995:               JUMPIF # L_000a
4002 @ 38999:               PUSH   ATYPE
4003 @ 39002:               PUSHI  #0x00000000
4004 @ 39007:               JUMPIF >= L_000a

   688               K = TYPE&15
4005 @ 39011:               LINE   688 "regression-compile-tmp/hal70.imp"
4006 @ 39047:               PUSH   K
4007 @ 39050:               PUSH   TYPE
4008 @ 39053:               PUSHI  #0x0000000f
4009 @ 39058:               AND   
4010 @ 39059:               ASSVAL

   689               ATYPE = TYPE %AND AVAL = VAL %IF K = 0 %OR 1<<K&TEMPS = 0
4011 @ 39060:               LINE   689 "regression-compile-tmp/hal70.imp"
4012 @ 39096:               PUSH   K
4013 @ 39099:               PUSHI  #0x00000000
4014 @ 39104:               JUMPIF = L_000e
4015 @ 39108:               PUSHI  #0x00000001
4016 @ 39113:               PUSH   K
4017 @ 39116:               LSH   
4018 @ 39117:               PUSH   TEMPS
4019 @ 39120:               AND   
4020 @ 39121:               PUSHI  #0x00000000
4021 @ 39126:               JUMPIF # L_000d
4022 @ 39130:               LOCATE L_000e
4023 @ 39133:               PUSH   ATYPE
4024 @ 39136:               PUSH   TYPE
4025 @ 39139:               ASSVAL
4026 @ 39140:               PUSH   AVAL
4027 @ 39143:               PUSH   VAL
4028 @ 39146:               ASSVAL
4029 @ 39147:               LOCATE L_000d

   690            %FINISH
4030 @ 39150:               LINE   690 "regression-compile-tmp/hal70.imp"
4031 @ 39186:               LOCATE L_000a

   691            OP = STORE;  OP = STB %IF TYPE&BMASK # 0
4032 @ 39189:               LINE   691 "regression-compile-tmp/hal70.imp"
4033 @ 39225:               PUSH   OP
4034 @ 39228:               PUSH   STORE
4035 @ 39231:               ASSVAL
4036 @ 39232:               LINE   691 "regression-compile-tmp/hal70.imp"
4037 @ 39268:               PUSH   TYPE
4038 @ 39271:               PUSH   BMASK
4039 @ 39274:               AND   
4040 @ 39275:               PUSHI  #0x00000000
4041 @ 39280:               JUMPIF = L_000a
4042 @ 39284:               PUSH   OP
4043 @ 39287:               PUSH   STB
4044 @ 39290:               ASSVAL
4045 @ 39291:               LOCATE L_000a

   692         %finish %ELSE %START
4046 @ 39294:               LINE   692 "regression-compile-tmp/hal70.imp"
4047 @ 39330:               GOTO   L_0006
4048 @ 39333:               LOCATE L_0007

   693            CREG = 16;  CTYPE = TYPE;  CVAL = VAL
4049 @ 39336:               LINE   693 "regression-compile-tmp/hal70.imp"
4050 @ 39372:               PUSH   CREG
4051 @ 39375:               PUSHI  #0x00000010
4052 @ 39380:               ASSVAL
4053 @ 39381:               LINE   693 "regression-compile-tmp/hal70.imp"
4054 @ 39417:               PUSH   CTYPE
4055 @ 39420:               PUSH   TYPE
4056 @ 39423:               ASSVAL
4057 @ 39424:               LINE   693 "regression-compile-tmp/hal70.imp"
4058 @ 39460:               PUSH   CVAL
4059 @ 39463:               PUSH   VAL
4060 @ 39466:               ASSVAL

   694            OP = AHM
4061 @ 39467:               LINE   694 "regression-compile-tmp/hal70.imp"
4062 @ 39503:               PUSH   OP
4063 @ 39506:               PUSH   AHM
4064 @ 39509:               ASSVAL

   695         %FINISH
4065 @ 39510:               LINE   695 "regression-compile-tmp/hal70.imp"
4066 @ 39546:               LOCATE L_0006

   696         PLANT INST(VAL1<<4+OP)
4067 @ 39549:               LINE   696 "regression-compile-tmp/hal70.imp"
4068 @ 39585:               PUSH   PLANTINST
4069 @ 39588:               PUSH   VAL1
4070 @ 39591:               PUSHI  #0x00000004
4071 @ 39596:               LSH   
4072 @ 39597:               PUSH   OP
4073 @ 39600:               ADD   
4074 @ 39601:               ASSPAR
4075 @ 39602:               CALL  

   697      %FINISH
4076 @ 39603:               LINE   697 "regression-compile-tmp/hal70.imp"
4077 @ 39639:               LOCATE L_0003

   698      %RETURN
   699  
4078 @ 39642:               LINE   698 "regression-compile-tmp/hal70.imp"
4079 @ 39678:               RETURN

   700  ASS(-26):                             !JUMP
4080 @ 39679:               LINE   700 "regression-compile-tmp/hal70.imp"
4081 @ 39715:               PUSHI  #0xffffffe6
4082 @ 39720:               SLABEL 249

   701      SET JUMP(16_1000) %IF INTEGER(NP)&16_F000 = 16_3000; !OR
4083 @ 39723:               LINE   701 "regression-compile-tmp/hal70.imp"
4084 @ 39759:               PUSH   INTEGER
4085 @ 39762:               PUSH   NP
4086 @ 39765:               ASSPAR
4087 @ 39766:               CALL  
4088 @ 39767:               PUSHI  #0x0000f000
4089 @ 39772:               AND   
4090 @ 39773:               PUSHI  #0x00003000
4091 @ 39778:               JUMPIF # L_0004
4092 @ 39782:               PUSH   SETJUMP
4093 @ 39785:               PUSHI  #0x00001000
4094 @ 39790:               ASSPAR
4095 @ 39791:               CALL  
4096 @ 39792:               LOCATE L_0004

   702      %IF FLAG < 0 %START;              !REPEAT
4097 @ 39795:               LINE   702 "regression-compile-tmp/hal70.imp"
4098 @ 39831:               PUSH   FLAG
4099 @ 39834:               PUSHI  #0x00000000
4100 @ 39839:               JUMPIF >= L_0004

   703         FLAG = 0
4101 @ 39843:               LINE   703 "regression-compile-tmp/hal70.imp"
4102 @ 39879:               PUSH   FLAG
4103 @ 39882:               PUSHI  #0x00000000
4104 @ 39887:               ASSVAL

   704         %IF PASS = 0 %START
4105 @ 39888:               LINE   704 "regression-compile-tmp/hal70.imp"
4106 @ 39924:               PUSH   PASS
4107 @ 39927:               PUSHI  #0x00000000
4108 @ 39932:               JUMPIF # L_0007

   705            K = NP;  LITVAL = LOC
4109 @ 39936:               LINE   705 "regression-compile-tmp/hal70.imp"
4110 @ 39972:               PUSH   K
4111 @ 39975:               PUSH   NP
4112 @ 39978:               ASSVAL
4113 @ 39979:               LINE   705 "regression-compile-tmp/hal70.imp"
4114 @ 40015:               PUSH   LITVAL
4115 @ 40018:               PUSH   LOC
4116 @ 40021:               ASSVAL

   706            %WHILE INTEGER(K)&16_1000 # 0 %CYCLE
4117 @ 40022:               LINE   706 "regression-compile-tmp/hal70.imp"
4118 @ 40058:               LOCATE L_0009
4119 @ 40061:               PUSH   INTEGER
4120 @ 40064:               PUSH   K
4121 @ 40067:               ASSPAR
4122 @ 40068:               CALL  
4123 @ 40069:               PUSHI  #0x00001000
4124 @ 40074:               AND   
4125 @ 40075:               PUSHI  #0x00000000
4126 @ 40080:               JUMPIF = L_000a

   707               K = K+2;  LITVAL = LITVAL-2
4127 @ 40084:               LINE   707 "regression-compile-tmp/hal70.imp"
4128 @ 40120:               PUSH   K
4129 @ 40123:               PUSH   K
4130 @ 40126:               PUSHI  #0x00000002
4131 @ 40131:               ADD   
4132 @ 40132:               ASSVAL
4133 @ 40133:               LINE   707 "regression-compile-tmp/hal70.imp"
4134 @ 40169:               PUSH   LITVAL
4135 @ 40172:               PUSH   LITVAL
4136 @ 40175:               PUSHI  #0x00000002
4137 @ 40180:               SUB   
4138 @ 40181:               ASSVAL

   708            %REPEAT
4139 @ 40182:               LINE   708 "regression-compile-tmp/hal70.imp"
4140 @ 40218:               REPEAT L_0009
4141 @ 40221:               LOCATE L_000a

   709            FLAG = 1 %IF LITVAL-VAL < 32
4142 @ 40224:               LINE   709 "regression-compile-tmp/hal70.imp"
4143 @ 40260:               PUSH   LITVAL
4144 @ 40263:               PUSH   VAL
4145 @ 40266:               SUB   
4146 @ 40267:               PUSHI  #0x00000020
4147 @ 40272:               JUMPIF >= L_000a
4148 @ 40276:               PUSH   FLAG
4149 @ 40279:               PUSHI  #0x00000001
4150 @ 40284:               ASSVAL
4151 @ 40285:               LOCATE L_000a

   710         %FINISH
4152 @ 40288:               LINE   710 "regression-compile-tmp/hal70.imp"
4153 @ 40324:               LOCATE L_0007

   711      %FINISH
4154 @ 40327:               LINE   711 "regression-compile-tmp/hal70.imp"
4155 @ 40363:               LOCATE L_0004

   712      PROGREF
4156 @ 40366:               LINE   712 "regression-compile-tmp/hal70.imp"
4157 @ 40402:               PUSH   PROGREF
4158 @ 40405:               CALL  

   713      PLANT JUMP
4159 @ 40406:               LINE   713 "regression-compile-tmp/hal70.imp"
4160 @ 40442:               PUSH   PLANTJUMP
4161 @ 40445:               CALL  

   714      %RETURN
   715  
4162 @ 40446:               LINE   714 "regression-compile-tmp/hal70.imp"
4163 @ 40482:               RETURN

   716  %END;  !ASSEMBLE
   717  
4164 @ 40483:               LINE   716 "regression-compile-tmp/hal70.imp"
4165 @ 40519:            END    _lev0id0_ASSEMBLE {lev=2 --> 1}

   718  %ROUTINE LOOKUP(%INTEGER CONTROL)
   719  !ALL DICT OPERATIONS LOCALISED HERE
   720  !CONTROL = 0 (LOOKUP ONLY), 1 (FORWARD OK),
   721  !          2 (REDEF), 3 (DEF),
   722  !          4 (MACPARM), 7 (LABEL)
4166 @ 40520:            LINE   718 "regression-compile-tmp/hal70.imp"
4167 @ 40556:            DEF    LOOKUP (_lev0id0_LOOKUP) 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
4168 @ 40574:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4169 @ 40575:                  DEF    CONTROL p1=V_00db 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
4170 @ 40594:               FINISH ) {lev=2}

   723  %INTEGER DP
4171 @ 40595:               LINE   723 "regression-compile-tmp/hal70.imp"
4172 @ 40631:               DEF    DP p1=V_00dc 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

   724      DP = DEFMIN;  DP = MP+5 %IF CONTROL = 4
   725      
4173 @ 40645:               LINE   724 "regression-compile-tmp/hal70.imp"
4174 @ 40681:               PUSH   DP
4175 @ 40684:               PUSH   DEFMIN
4176 @ 40687:               ASSVAL
4177 @ 40688:               LINE   724 "regression-compile-tmp/hal70.imp"
4178 @ 40724:               PUSH   CONTROL
4179 @ 40727:               PUSHI  #0x00000004
4180 @ 40732:               JUMPIF # L_0004
4181 @ 40736:               PUSH   DP
4182 @ 40739:               PUSH   MP
4183 @ 40742:               PUSHI  #0x00000005
4184 @ 40747:               ADD   
4185 @ 40748:               ASSVAL
4186 @ 40749:               LOCATE L_0004

   726  {}    %WHILE INTEGER(DP) # 0 %CYCLE
4187 @ 40752:               LINE   726 "regression-compile-tmp/hal70.imp"
4188 @ 40788:               LOCATE L_0003
4189 @ 40791:               PUSH   INTEGER
4190 @ 40794:               PUSH   DP
4191 @ 40797:               ASSPAR
4192 @ 40798:               CALL  
4193 @ 40799:               PUSHI  #0x00000000
4194 @ 40804:               JUMPIF = L_0004

   727  {}       ->YES %IF INTEGER(DP) = TAG1 %AND INTEGER(DP+1) = TAG2
4195 @ 40808:               LINE   727 "regression-compile-tmp/hal70.imp"
4196 @ 40844:               PUSH   INTEGER
4197 @ 40847:               PUSH   DP
4198 @ 40850:               ASSPAR
4199 @ 40851:               CALL  
4200 @ 40852:               PUSH   TAG1
4201 @ 40855:               JUMPIF # L_0007
4202 @ 40859:               PUSH   INTEGER
4203 @ 40862:               PUSH   DP
4204 @ 40865:               PUSHI  #0x00000001
4205 @ 40870:               ADD   
4206 @ 40871:               ASSPAR
4207 @ 40872:               CALL  
4208 @ 40873:               PUSH   TAG2
4209 @ 40876:               JUMPIF # L_0007
4210 @ 40880:               JUMP   L_00dd
4211 @ 40883:               LOCATE L_0007

   728  {}       DP = DP+4
4212 @ 40886:               LINE   728 "regression-compile-tmp/hal70.imp"
4213 @ 40922:               PUSH   DP
4214 @ 40925:               PUSH   DP
4215 @ 40928:               PUSHI  #0x00000004
4216 @ 40933:               ADD   
4217 @ 40934:               ASSVAL

   729  {}    %REPEAT
   730  
   731  !!%OWNINTEGER P
   732  !!    DP = DP-4
   733  !!REP:DP = DP+4
   734  !!    %LAC* DP; %OPR 640;!SNA; %JMP NO
   735  !!    %SAD TAG1; %OPR 512; %JMP REP
   736  !!    %LAC DP; %TAD #1; %DAC P
   737  !!    %LAC* P; %SAD TAG2; %JMP YES
   738  !!    ->REP
   739  !!NO:
4218 @ 40935:               LINE   729 "regression-compile-tmp/hal70.imp"
4219 @ 40971:               REPEAT L_0003
4220 @ 40974:               LOCATE L_0004

   740      %RETURN %IF CONTROL&1 = 0;        !NO CREATION
4221 @ 40977:               LINE   740 "regression-compile-tmp/hal70.imp"
4222 @ 41013:               PUSH   CONTROL
4223 @ 41016:               PUSHI  #0x00000001
4224 @ 41021:               AND   
4225 @ 41022:               PUSHI  #0x00000000
4226 @ 41027:               JUMPIF # L_0004
4227 @ 41031:               RETURN
4228 @ 41032:               LOCATE L_0004

   741  NEW:DEFMIN = DEFMIN-4;  DP = DEFMIN
   742  !!    %MONITOR 21 %IF DP-QLIM <= 0
   743      !{}%signal 2,1 %IF DP-QLIM <= 0
   744  !!    INTEGER(DP) = TAG1;  INTEGER(DP+1) = TAG2
4229 @ 41035:               LINE   741 "regression-compile-tmp/hal70.imp"
4230 @ 41071:               LABEL  L_00de
4231 @ 41074:               LINE   741 "regression-compile-tmp/hal70.imp"
4232 @ 41110:               PUSH   DEFMIN
4233 @ 41113:               PUSH   DEFMIN
4234 @ 41116:               PUSHI  #0x00000004
4235 @ 41121:               SUB   
4236 @ 41122:               ASSVAL
4237 @ 41123:               LINE   741 "regression-compile-tmp/hal70.imp"
4238 @ 41159:               PUSH   DP
4239 @ 41162:               PUSH   DEFMIN
4240 @ 41165:               ASSVAL

   745      set INTEGER(DP, TAG1);  set INTEGER(DP+1,  TAG2)
   746  !!SET:INTEGER(DP+2) = TYPE;  INTEGER(DP+3) = VAL
4241 @ 41166:               LINE   745 "regression-compile-tmp/hal70.imp"
4242 @ 41202:               PUSH   SETINTEGER
4243 @ 41205:               PUSH   DP
4244 @ 41208:               ASSPAR
4245 @ 41209:               PUSH   TAG1
4246 @ 41212:               ASSPAR
4247 @ 41213:               CALL  
4248 @ 41214:               LINE   745 "regression-compile-tmp/hal70.imp"
4249 @ 41250:               PUSH   SETINTEGER
4250 @ 41253:               PUSH   DP
4251 @ 41256:               PUSHI  #0x00000001
4252 @ 41261:               ADD   
4253 @ 41262:               ASSPAR
4254 @ 41263:               PUSH   TAG2
4255 @ 41266:               ASSPAR
4256 @ 41267:               CALL  

   747  SET:set INTEGER(DP+2, TYPE);  set INTEGER(DP+3, VAL)
4257 @ 41268:               LINE   747 "regression-compile-tmp/hal70.imp"
4258 @ 41304:               LABEL  L_00df
4259 @ 41307:               LINE   747 "regression-compile-tmp/hal70.imp"
4260 @ 41343:               PUSH   SETINTEGER
4261 @ 41346:               PUSH   DP
4262 @ 41349:               PUSHI  #0x00000002
4263 @ 41354:               ADD   
4264 @ 41355:               ASSPAR
4265 @ 41356:               PUSH   TYPE
4266 @ 41359:               ASSPAR
4267 @ 41360:               CALL  
4268 @ 41361:               LINE   747 "regression-compile-tmp/hal70.imp"
4269 @ 41397:               PUSH   SETINTEGER
4270 @ 41400:               PUSH   DP
4271 @ 41403:               PUSHI  #0x00000003
4272 @ 41408:               ADD   
4273 @ 41409:               ASSPAR
4274 @ 41410:               PUSH   VAL
4275 @ 41413:               ASSPAR
4276 @ 41414:               CALL  

   748      %RETURN
4277 @ 41415:               LINE   748 "regression-compile-tmp/hal70.imp"
4278 @ 41451:               RETURN

   749  YES:%IF CONTROL&2 = 0 %START;         !NOT DEF CLASS
4279 @ 41452:               LINE   749 "regression-compile-tmp/hal70.imp"
4280 @ 41488:               LABEL  L_00dd
4281 @ 41491:               LINE   749 "regression-compile-tmp/hal70.imp"
4282 @ 41527:               PUSH   CONTROL
4283 @ 41530:               PUSHI  #0x00000002
4284 @ 41535:               AND   
4285 @ 41536:               PUSHI  #0x00000000
4286 @ 41541:               JUMPIF # L_0004

   750         TYPE = INTEGER(DP+2);  VAL = INTEGER(DP+3)
4287 @ 41545:               LINE   750 "regression-compile-tmp/hal70.imp"
4288 @ 41581:               PUSH   TYPE
4289 @ 41584:               PUSH   INTEGER
4290 @ 41587:               PUSH   DP
4291 @ 41590:               PUSHI  #0x00000002
4292 @ 41595:               ADD   
4293 @ 41596:               ASSPAR
4294 @ 41597:               CALL  
4295 @ 41598:               ASSVAL
4296 @ 41599:               LINE   750 "regression-compile-tmp/hal70.imp"
4297 @ 41635:               PUSH   VAL
4298 @ 41638:               PUSH   INTEGER
4299 @ 41641:               PUSH   DP
4300 @ 41644:               PUSHI  #0x00000003
4301 @ 41649:               ADD   
4302 @ 41650:               ASSPAR
4303 @ 41651:               CALL  
4304 @ 41652:               ASSVAL

   751         %RETURN
4305 @ 41653:               LINE   751 "regression-compile-tmp/hal70.imp"
4306 @ 41689:               RETURN

   752      %FINISH
4307 @ 41690:               LINE   752 "regression-compile-tmp/hal70.imp"
4308 @ 41726:               LOCATE L_0004

   753      %IF CONTROL = 3 %START
4309 @ 41729:               LINE   753 "regression-compile-tmp/hal70.imp"
4310 @ 41765:               PUSH   CONTROL
4311 @ 41768:               PUSHI  #0x00000003
4312 @ 41773:               JUMPIF # L_0004

   754         ->NEW %IF DP-INTEGER(BP) >= 0; !GLOBAL
4313 @ 41777:               LINE   754 "regression-compile-tmp/hal70.imp"
4314 @ 41813:               PUSH   DP
4315 @ 41816:               PUSH   INTEGER
4316 @ 41819:               PUSH   BP
4317 @ 41822:               ASSPAR
4318 @ 41823:               CALL  
4319 @ 41824:               SUB   
4320 @ 41825:               PUSHI  #0x00000000
4321 @ 41830:               JUMPIF < L_0007
4322 @ 41834:               JUMP   L_00de
4323 @ 41837:               LOCATE L_0007

   755         FAULT('D')
4324 @ 41840:               LINE   755 "regression-compile-tmp/hal70.imp"
4325 @ 41876:               PUSH   FAULT
4326 @ 41879:               PUSHI  #0x00000044
4327 @ 41884:               ASSPAR
4328 @ 41885:               CALL  

   756      %FINISH
4329 @ 41886:               LINE   756 "regression-compile-tmp/hal70.imp"
4330 @ 41922:               LOCATE L_0004

   757      ->SET %IF CONTROL # 7
4331 @ 41925:               LINE   757 "regression-compile-tmp/hal70.imp"
4332 @ 41961:               PUSH   CONTROL
4333 @ 41964:               PUSHI  #0x00000007
4334 @ 41969:               JUMPIF = L_0004
4335 @ 41973:               JUMP   L_00df
4336 @ 41976:               LOCATE L_0004

   758      %IF INTEGER(DP+2)&OPFMASK = FMASK %START
4337 @ 41979:               LINE   758 "regression-compile-tmp/hal70.imp"
4338 @ 42015:               PUSH   INTEGER
4339 @ 42018:               PUSH   DP
4340 @ 42021:               PUSHI  #0x00000002
4341 @ 42026:               ADD   
4342 @ 42027:               ASSPAR
4343 @ 42028:               CALL  
4344 @ 42029:               PUSH   OPFMASK
4345 @ 42032:               AND   
4346 @ 42033:               PUSH   FMASK
4347 @ 42036:               JUMPIF # L_0004

   759         VAL = INTEGER(DP+3)
4348 @ 42040:               LINE   759 "regression-compile-tmp/hal70.imp"
4349 @ 42076:               PUSH   VAL
4350 @ 42079:               PUSH   INTEGER
4351 @ 42082:               PUSH   DP
4352 @ 42085:               PUSHI  #0x00000003
4353 @ 42090:               ADD   
4354 @ 42091:               ASSPAR
4355 @ 42092:               CALL  
4356 @ 42093:               ASSVAL

   760         %IF PASS = 0 %START
   761  !!          INTEGER(VAL) = LOC
4357 @ 42094:               LINE   760 "regression-compile-tmp/hal70.imp"
4358 @ 42130:               PUSH   PASS
4359 @ 42133:               PUSHI  #0x00000000
4360 @ 42138:               JUMPIF # L_0007

   762            set INTEGER(VAL, LOC)
4361 @ 42142:               LINE   762 "regression-compile-tmp/hal70.imp"
4362 @ 42178:               PUSH   SETINTEGER
4363 @ 42181:               PUSH   VAL
4364 @ 42184:               ASSPAR
4365 @ 42185:               PUSH   LOC
4366 @ 42188:               ASSPAR
4367 @ 42189:               CALL  

   763         %finish %ELSE %START
4368 @ 42190:               LINE   763 "regression-compile-tmp/hal70.imp"
4369 @ 42226:               GOTO   L_0006
4370 @ 42229:               LOCATE L_0007

   764            FAULT('P') %AND LOC=INTEGER(VAL) %IF INTEGER(VAL) # LOC
4371 @ 42232:               LINE   764 "regression-compile-tmp/hal70.imp"
4372 @ 42268:               PUSH   INTEGER
4373 @ 42271:               PUSH   VAL
4374 @ 42274:               ASSPAR
4375 @ 42275:               CALL  
4376 @ 42276:               PUSH   LOC
4377 @ 42279:               JUMPIF = L_000a
4378 @ 42283:               PUSH   FAULT
4379 @ 42286:               PUSHI  #0x00000050
4380 @ 42291:               ASSPAR
4381 @ 42292:               CALL  
4382 @ 42293:               PUSH   LOC
4383 @ 42296:               PUSH   INTEGER
4384 @ 42299:               PUSH   VAL
4385 @ 42302:               ASSPAR
4386 @ 42303:               CALL  
4387 @ 42304:               ASSVAL
4388 @ 42305:               LOCATE L_000a

   765         %FINISH
4389 @ 42308:               LINE   765 "regression-compile-tmp/hal70.imp"
4390 @ 42344:               LOCATE L_0006

   766         VAL = LOC
4391 @ 42347:               LINE   766 "regression-compile-tmp/hal70.imp"
4392 @ 42383:               PUSH   VAL
4393 @ 42386:               PUSH   LOC
4394 @ 42389:               ASSVAL

   767      %finish %ELSE %START
4395 @ 42390:               LINE   767 "regression-compile-tmp/hal70.imp"
4396 @ 42426:               GOTO   L_0003
4397 @ 42429:               LOCATE L_0004

   768         ->NEW %IF DP-INTEGER(BP) >= 0
4398 @ 42432:               LINE   768 "regression-compile-tmp/hal70.imp"
4399 @ 42468:               PUSH   DP
4400 @ 42471:               PUSH   INTEGER
4401 @ 42474:               PUSH   BP
4402 @ 42477:               ASSPAR
4403 @ 42478:               CALL  
4404 @ 42479:               SUB   
4405 @ 42480:               PUSHI  #0x00000000
4406 @ 42485:               JUMPIF < L_0007
4407 @ 42489:               JUMP   L_00de
4408 @ 42492:               LOCATE L_0007

   769         FAULT('D')
4409 @ 42495:               LINE   769 "regression-compile-tmp/hal70.imp"
4410 @ 42531:               PUSH   FAULT
4411 @ 42534:               PUSHI  #0x00000044
4412 @ 42539:               ASSPAR
4413 @ 42540:               CALL  

   770      %FINISH
4414 @ 42541:               LINE   770 "regression-compile-tmp/hal70.imp"
4415 @ 42577:               LOCATE L_0003

   771      ->SET
4416 @ 42580:               LINE   771 "regression-compile-tmp/hal70.imp"
4417 @ 42616:               JUMP   L_00df

   772  %END
   773  
4418 @ 42619:               LINE   772 "regression-compile-tmp/hal70.imp"
4419 @ 42655:            END    _lev0id0_LOOKUP {lev=2 --> 1}

   774  %ROUTINE TAGREF
4420 @ 42656:            LINE   774 "regression-compile-tmp/hal70.imp"
4421 @ 42692:            DEF    TAGREF (_lev0id0_TAGREF) 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
4422 @ 42710:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4423 @ 42711:               FINISH ) {lev=2}

   775  %OWNINTEGER B=2184, W=24717
4424 @ 42712:               LINE   775 "regression-compile-tmp/hal70.imp"
4425 @ 42748:               PUSHI  #0x00000888
4426 @ 42753:               DEF    B p1=V_00dc 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
4427 @ 42766:               INIT   1
4428 @ 42769:               PUSHI  #0x0000608d
4429 @ 42774:               DEF    W p1=V_00dd 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
4430 @ 42787:               INIT   1

   776      %IF TERM = '(' %START
4431 @ 42790:               LINE   776 "regression-compile-tmp/hal70.imp"
4432 @ 42826:               PUSH   TERM
4433 @ 42829:               PUSHI  #0x00000028
4434 @ 42834:               JUMPIF # L_0004

   777         TYPE = 0;  VAL = 0
4435 @ 42838:               LINE   777 "regression-compile-tmp/hal70.imp"
4436 @ 42874:               PUSH   TYPE
4437 @ 42877:               PUSHI  #0x00000000
4438 @ 42882:               ASSVAL
4439 @ 42883:               LINE   777 "regression-compile-tmp/hal70.imp"
4440 @ 42919:               PUSH   VAL
4441 @ 42922:               PUSHI  #0x00000000
4442 @ 42927:               ASSVAL

   778         %RETURN %IF TAG1 = W
4443 @ 42928:               LINE   778 "regression-compile-tmp/hal70.imp"
4444 @ 42964:               PUSH   TAG1
4445 @ 42967:               PUSH   W
4446 @ 42970:               JUMPIF # L_0007
4447 @ 42974:               RETURN
4448 @ 42975:               LOCATE L_0007

   779         TYPE = BMASK
4449 @ 42978:               LINE   779 "regression-compile-tmp/hal70.imp"
4450 @ 43014:               PUSH   TYPE
4451 @ 43017:               PUSH   BMASK
4452 @ 43020:               ASSVAL

   780         %RETURN %IF TAG1 = B
4453 @ 43021:               LINE   780 "regression-compile-tmp/hal70.imp"
4454 @ 43057:               PUSH   TAG1
4455 @ 43060:               PUSH   B
4456 @ 43063:               JUMPIF # L_0007
4457 @ 43067:               RETURN
4458 @ 43068:               LOCATE L_0007

   781      %FINISH
4459 @ 43071:               LINE   781 "regression-compile-tmp/hal70.imp"
4460 @ 43107:               LOCATE L_0004

   782      TYPE = LOCTYPE+FMASK+UMASK;  VAL = LABMIN-1
4461 @ 43110:               LINE   782 "regression-compile-tmp/hal70.imp"
4462 @ 43146:               PUSH   TYPE
4463 @ 43149:               PUSH   LOCTYPE
4464 @ 43152:               PUSH   FMASK
4465 @ 43155:               ADD   
4466 @ 43156:               PUSH   UMASK
4467 @ 43159:               ADD   
4468 @ 43160:               ASSVAL
4469 @ 43161:               LINE   782 "regression-compile-tmp/hal70.imp"
4470 @ 43197:               PUSH   VAL
4471 @ 43200:               PUSH   LABMIN
4472 @ 43203:               PUSHI  #0x00000001
4473 @ 43208:               SUB   
4474 @ 43209:               ASSVAL

   783      LOOKUP(1)
4475 @ 43210:               LINE   783 "regression-compile-tmp/hal70.imp"
4476 @ 43246:               PUSH   LOOKUP
4477 @ 43249:               PUSHI  #0x00000001
4478 @ 43254:               ASSPAR
4479 @ 43255:               CALL  

   784      %IF TYPE&OPFMASK = FMASK %START
4480 @ 43256:               LINE   784 "regression-compile-tmp/hal70.imp"
4481 @ 43292:               PUSH   TYPE
4482 @ 43295:               PUSH   OPFMASK
4483 @ 43298:               AND   
4484 @ 43299:               PUSH   FMASK
4485 @ 43302:               JUMPIF # L_0004

   785         %IF VAL = LABMIN-1 %START
   786  !!          LABMIN = VAL;  %MONITOR 22 %IF LABMIN = ALMAX
4486 @ 43306:               LINE   785 "regression-compile-tmp/hal70.imp"
4487 @ 43342:               PUSH   VAL
4488 @ 43345:               PUSH   LABMIN
4489 @ 43348:               PUSHI  #0x00000001
4490 @ 43353:               SUB   
4491 @ 43354:               JUMPIF # L_0007

   787            LABMIN = VAL;  !{}%signal 2,2 %IF LABMIN = ALMAX
4492 @ 43358:               LINE   787 "regression-compile-tmp/hal70.imp"
4493 @ 43394:               PUSH   LABMIN
4494 @ 43397:               PUSH   VAL
4495 @ 43400:               ASSVAL

   788         %FINISH
4496 @ 43401:               LINE   788 "regression-compile-tmp/hal70.imp"
4497 @ 43437:               LOCATE L_0007

   789         %IF PASS > 0 %START
4498 @ 43440:               LINE   789 "regression-compile-tmp/hal70.imp"
4499 @ 43476:               PUSH   PASS
4500 @ 43479:               PUSHI  #0x00000000
4501 @ 43484:               JUMPIF <= L_0007

   790            VAL = INTEGER(VAL)
4502 @ 43488:               LINE   790 "regression-compile-tmp/hal70.imp"
4503 @ 43524:               PUSH   VAL
4504 @ 43527:               PUSH   INTEGER
4505 @ 43530:               PUSH   VAL
4506 @ 43533:               ASSPAR
4507 @ 43534:               CALL  
4508 @ 43535:               ASSVAL

   791            FAULT('U') %IF VAL = 0
4509 @ 43536:               LINE   791 "regression-compile-tmp/hal70.imp"
4510 @ 43572:               PUSH   VAL
4511 @ 43575:               PUSHI  #0x00000000
4512 @ 43580:               JUMPIF # L_000a
4513 @ 43584:               PUSH   FAULT
4514 @ 43587:               PUSHI  #0x00000055
4515 @ 43592:               ASSPAR
4516 @ 43593:               CALL  
4517 @ 43594:               LOCATE L_000a

   792         %FINISH
4518 @ 43597:               LINE   792 "regression-compile-tmp/hal70.imp"
4519 @ 43633:               LOCATE L_0007

   793         TYPE = TYPE-FMASK
4520 @ 43636:               LINE   793 "regression-compile-tmp/hal70.imp"
4521 @ 43672:               PUSH   TYPE
4522 @ 43675:               PUSH   TYPE
4523 @ 43678:               PUSH   FMASK
4524 @ 43681:               SUB   
4525 @ 43682:               ASSVAL

   794      %FINISH
4526 @ 43683:               LINE   794 "regression-compile-tmp/hal70.imp"
4527 @ 43719:               LOCATE L_0004

   795  %END
   796  
4528 @ 43722:               LINE   795 "regression-compile-tmp/hal70.imp"
4529 @ 43758:            END    _lev0id0_TAGREF {lev=2 --> 1}

   797  %ROUTINE GET SYM
4530 @ 43759:            LINE   797 "regression-compile-tmp/hal70.imp"
4531 @ 43795:            DEF    GETSYM (_lev0id0_GETSYM) 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
4532 @ 43813:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4533 @ 43814:               FINISH ) {lev=2}

   798      %CYCLE
4534 @ 43815:               LINE   798 "regression-compile-tmp/hal70.imp"
4535 @ 43851:               LOCATE L_0003

   799         SYM = CHAR(GETPOS);  GETPOS = GETPOS+1
4536 @ 43854:               LINE   799 "regression-compile-tmp/hal70.imp"
4537 @ 43890:               PUSH   SYM
4538 @ 43893:               PUSH   CHAR
4539 @ 43896:               PUSH   GETPOS
4540 @ 43899:               ASSPAR
4541 @ 43900:               CALL  
4542 @ 43901:               ASSVAL
4543 @ 43902:               LINE   799 "regression-compile-tmp/hal70.imp"
4544 @ 43938:               PUSH   GETPOS
4545 @ 43941:               PUSH   GETPOS
4546 @ 43944:               PUSHI  #0x00000001
4547 @ 43949:               ADD   
4548 @ 43950:               ASSVAL

   800         %RETURN %IF SYM # ' '
4549 @ 43951:               LINE   800 "regression-compile-tmp/hal70.imp"
4550 @ 43987:               PUSH   SYM
4551 @ 43990:               PUSHI  #0x00000020
4552 @ 43995:               JUMPIF = L_0007
4553 @ 43999:               RETURN
4554 @ 44000:               LOCATE L_0007

   801      %REPEAT
4555 @ 44003:               LINE   801 "regression-compile-tmp/hal70.imp"
4556 @ 44039:               REPEAT L_0003

   802  %END
   803  
4557 @ 44042:               LINE   802 "regression-compile-tmp/hal70.imp"
4558 @ 44078:            END    _lev0id0_GETSYM {lev=2 --> 1}

   804  %PREDICATE S(%INTEGER K)
4559 @ 44079:            LINE   804 "regression-compile-tmp/hal70.imp"
4560 @ 44115:            DEF    S (_lev0id0_S) p1=V_00dd a/tf=a b/format=0 c/ostate=0  type=0 (<type:0>) form=10 (predicate) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
4561 @ 44128:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4562 @ 44129:                  DEF    K 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
4563 @ 44142:               FINISH ) {lev=2}

   805      %FALSE %UNLESS K = SYM
4564 @ 44143:               LINE   805 "regression-compile-tmp/hal70.imp"
4565 @ 44179:               PUSH   K
4566 @ 44182:               PUSH   SYM
4567 @ 44185:               JUMPIF = L_0004
4568 @ 44189:               FALSE 
4569 @ 44190:               LOCATE L_0004

   806      GET SYM
4570 @ 44193:               LINE   806 "regression-compile-tmp/hal70.imp"
4571 @ 44229:               PUSH   GETSYM
4572 @ 44232:               CALL  

   807      %TRUE
4573 @ 44233:               LINE   807 "regression-compile-tmp/hal70.imp"
4574 @ 44269:               TRUE  

   808  %END
   809  
4575 @ 44270:               LINE   808 "regression-compile-tmp/hal70.imp"
4576 @ 44306:            END    _lev0id0_S {lev=2 --> 1}

   810  %PREDICATE SS(%INTEGER K)
4577 @ 44307:            LINE   810 "regression-compile-tmp/hal70.imp"
4578 @ 44343:            DEF    SS (_lev0id0_SS) p1=V_00de a/tf=a b/format=0 c/ostate=0  type=0 (<type:0>) form=10 (predicate) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
4579 @ 44357:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4580 @ 44358:                  DEF    K 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
4581 @ 44371:               FINISH ) {lev=2}

   811      %FALSE %UNLESS K = SYM = CHAR(GETPOS)
4582 @ 44372:               LINE   811 "regression-compile-tmp/hal70.imp"
4583 @ 44408:               PUSH   K
4584 @ 44411:               PUSH   SYM
4585 @ 44414:               JUMPIFD # L_0005
4586 @ 44418:               PUSH   CHAR
4587 @ 44421:               PUSH   GETPOS
4588 @ 44424:               ASSPAR
4589 @ 44425:               CALL  
4590 @ 44426:               JUMPIF = L_0004
4591 @ 44430:               LOCATE L_0005
4592 @ 44433:               FALSE 
4593 @ 44434:               LOCATE L_0004

   812      GETPOS = GETPOS+1
4594 @ 44437:               LINE   812 "regression-compile-tmp/hal70.imp"
4595 @ 44473:               PUSH   GETPOS
4596 @ 44476:               PUSH   GETPOS
4597 @ 44479:               PUSHI  #0x00000001
4598 @ 44484:               ADD   
4599 @ 44485:               ASSVAL

   813      GET SYM
4600 @ 44486:               LINE   813 "regression-compile-tmp/hal70.imp"
4601 @ 44522:               PUSH   GETSYM
4602 @ 44525:               CALL  

   814      %TRUE
4603 @ 44526:               LINE   814 "regression-compile-tmp/hal70.imp"
4604 @ 44562:               TRUE  

   815  %END
   816  
4605 @ 44563:               LINE   815 "regression-compile-tmp/hal70.imp"
4606 @ 44599:            END    _lev0id0_SS {lev=2 --> 1}

   817  %PREDICATE TAG
4607 @ 44600:            LINE   817 "regression-compile-tmp/hal70.imp"
4608 @ 44636:            DEF    TAG (_lev0id0_TAG) p1=V_00df a/tf=a b/format=0 c/ostate=0  type=0 (<type:0>) form=10 (predicate) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
4609 @ 44651:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4610 @ 44652:               FINISH ) {lev=2}

   818  %INTEGER J,K
4611 @ 44653:               LINE   818 "regression-compile-tmp/hal70.imp"
4612 @ 44689:               DEF    J 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
4613 @ 44702:               DEF    K 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

   819      %ROUTINE CODE SYM
4614 @ 44715:               LINE   819 "regression-compile-tmp/hal70.imp"
4615 @ 44751:               DEF    CODESYM (_lev0id0_TAG_CODESYM) p1=V_00e2 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
4616 @ 44770:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
4617 @ 44771:                  FINISH ) {lev=3}

   820         SYM = CHAR(GETPOS);  GETPOS = GETPOS+1
4618 @ 44772:                  LINE   820 "regression-compile-tmp/hal70.imp"
4619 @ 44808:                  PUSH   SYM
4620 @ 44811:                  PUSH   CHAR
4621 @ 44814:                  PUSH   GETPOS
4622 @ 44817:                  ASSPAR
4623 @ 44818:                  CALL  
4624 @ 44819:                  ASSVAL
4625 @ 44820:                  LINE   820 "regression-compile-tmp/hal70.imp"
4626 @ 44856:                  PUSH   GETPOS
4627 @ 44859:                  PUSH   GETPOS
4628 @ 44862:                  PUSHI  #0x00000001
4629 @ 44867:                  ADD   
4630 @ 44868:                  ASSVAL

   821         K = SYM-'0'
4631 @ 44869:                  LINE   821 "regression-compile-tmp/hal70.imp"
4632 @ 44905:                  PUSH   K
4633 @ 44908:                  PUSH   SYM
4634 @ 44911:                  PUSHI  #0x00000030
4635 @ 44916:                  SUB   
4636 @ 44917:                  ASSVAL

   822         %IF K >= 0 %START
4637 @ 44918:                  LINE   822 "regression-compile-tmp/hal70.imp"
4638 @ 44954:                  PUSH   K
4639 @ 44957:                  PUSHI  #0x00000000
4640 @ 44962:                  JUMPIF < L_0004

   823            TERM = -1 %AND %RETURN %IF K < 10
4641 @ 44966:                  LINE   823 "regression-compile-tmp/hal70.imp"
4642 @ 45002:                  PUSH   K
4643 @ 45005:                  PUSHI  #0x0000000a
4644 @ 45010:                  JUMPIF >= L_0007
4645 @ 45014:                  PUSH   TERM
4646 @ 45017:                  PUSHI  #0x00000001
4647 @ 45022:                  NEGATE
4648 @ 45023:                  ASSVAL
4649 @ 45024:                  RETURN
4650 @ 45025:                  LOCATE L_0007

   824            K = SYM-'A'
4651 @ 45028:                  LINE   824 "regression-compile-tmp/hal70.imp"
4652 @ 45064:                  PUSH   K
4653 @ 45067:                  PUSH   SYM
4654 @ 45070:                  PUSHI  #0x00000041
4655 @ 45075:                  SUB   
4656 @ 45076:                  ASSVAL

   825            %RETURN %IF K >= 0 %AND K < 26 %AND TERM = 0
4657 @ 45077:                  LINE   825 "regression-compile-tmp/hal70.imp"
4658 @ 45113:                  PUSH   K
4659 @ 45116:                  PUSHI  #0x00000000
4660 @ 45121:                  JUMPIF < L_0007
4661 @ 45125:                  PUSH   K
4662 @ 45128:                  PUSHI  #0x0000001a
4663 @ 45133:                  JUMPIF >= L_0007
4664 @ 45137:                  PUSH   TERM
4665 @ 45140:                  PUSHI  #0x00000000
4666 @ 45145:                  JUMPIF # L_0007
4667 @ 45149:                  RETURN
4668 @ 45150:                  LOCATE L_0007

   826         %FINISH
4669 @ 45153:                  LINE   826 "regression-compile-tmp/hal70.imp"
4670 @ 45189:                  LOCATE L_0004

   827         TERM = SYM
4671 @ 45192:                  LINE   827 "regression-compile-tmp/hal70.imp"
4672 @ 45228:                  PUSH   TERM
4673 @ 45231:                  PUSH   SYM
4674 @ 45234:                  ASSVAL

   828      %END
4675 @ 45235:                  LINE   828 "regression-compile-tmp/hal70.imp"
4676 @ 45271:               END    _lev0id0_TAG_CODESYM {lev=3 --> 2}

   829      %ROUTINE PACK TRIPLE
4677 @ 45272:               LINE   829 "regression-compile-tmp/hal70.imp"
4678 @ 45308:               DEF    PACKTRIPLE (_lev0id0_TAG_PACKTRIPLE) p1=V_00e3 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
4679 @ 45330:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
4680 @ 45331:                  FINISH ) {lev=3}

   830         ->T1 %IF TERM < 0
4681 @ 45332:                  LINE   830 "regression-compile-tmp/hal70.imp"
4682 @ 45368:                  PUSH   TERM
4683 @ 45371:                  PUSHI  #0x00000000
4684 @ 45376:                  JUMPIF >= L_0004
4685 @ 45380:                  JUMP   L_00e4
4686 @ 45383:                  LOCATE L_0004

   831         J = ((K<<5+K)<<1+K)<<4+K+1111; !K*1073+1111
4687 @ 45386:                  LINE   831 "regression-compile-tmp/hal70.imp"
4688 @ 45422:                  PUSH   J
4689 @ 45425:                  PUSH   K
4690 @ 45428:                  PUSHI  #0x00000005
4691 @ 45433:                  LSH   
4692 @ 45434:                  PUSH   K
4693 @ 45437:                  ADD   
4694 @ 45438:                  PUSHI  #0x00000001
4695 @ 45443:                  LSH   
4696 @ 45444:                  PUSH   K
4697 @ 45447:                  ADD   
4698 @ 45448:                  PUSHI  #0x00000004
4699 @ 45453:                  LSH   
4700 @ 45454:                  PUSH   K
4701 @ 45457:                  ADD   
4702 @ 45458:                  PUSHI  #0x00000457
4703 @ 45463:                  ADD   
4704 @ 45464:                  ASSVAL

   832         CODE SYM
4705 @ 45465:                  LINE   832 "regression-compile-tmp/hal70.imp"
4706 @ 45501:                  PUSH   CODESYM
4707 @ 45504:                  CALL  

   833         ->T2 %IF TERM # 0
4708 @ 45505:                  LINE   833 "regression-compile-tmp/hal70.imp"
4709 @ 45541:                  PUSH   TERM
4710 @ 45544:                  PUSHI  #0x00000000
4711 @ 45549:                  JUMPIF = L_0004
4712 @ 45553:                  JUMP   L_00e5
4713 @ 45556:                  LOCATE L_0004

   834         J = (K<<3+K)<<2+K+111+J;       !J+K*37+111
4714 @ 45559:                  LINE   834 "regression-compile-tmp/hal70.imp"
4715 @ 45595:                  PUSH   J
4716 @ 45598:                  PUSH   K
4717 @ 45601:                  PUSHI  #0x00000003
4718 @ 45606:                  LSH   
4719 @ 45607:                  PUSH   K
4720 @ 45610:                  ADD   
4721 @ 45611:                  PUSHI  #0x00000002
4722 @ 45616:                  LSH   
4723 @ 45617:                  PUSH   K
4724 @ 45620:                  ADD   
4725 @ 45621:                  PUSHI  #0x0000006f
4726 @ 45626:                  ADD   
4727 @ 45627:                  PUSH   J
4728 @ 45630:                  ADD   
4729 @ 45631:                  ASSVAL

   835         CODE SYM
4730 @ 45632:                  LINE   835 "regression-compile-tmp/hal70.imp"
4731 @ 45668:                  PUSH   CODESYM
4732 @ 45671:                  CALL  

   836         ->T3 %IF TERM # 0
4733 @ 45672:                  LINE   836 "regression-compile-tmp/hal70.imp"
4734 @ 45708:                  PUSH   TERM
4735 @ 45711:                  PUSHI  #0x00000000
4736 @ 45716:                  JUMPIF = L_0004
4737 @ 45720:                  JUMP   L_00e6
4738 @ 45723:                  LOCATE L_0004

   837         J = J+K+11
4739 @ 45726:                  LINE   837 "regression-compile-tmp/hal70.imp"
4740 @ 45762:                  PUSH   J
4741 @ 45765:                  PUSH   J
4742 @ 45768:                  PUSH   K
4743 @ 45771:                  ADD   
4744 @ 45772:                  PUSHI  #0x0000000b
4745 @ 45777:                  ADD   
4746 @ 45778:                  ASSVAL

   838         CODE SYM
4747 @ 45779:                  LINE   838 "regression-compile-tmp/hal70.imp"
4748 @ 45815:                  PUSH   CODESYM
4749 @ 45818:                  CALL  

   839         %RETURN
4750 @ 45819:                  LINE   839 "regression-compile-tmp/hal70.imp"
4751 @ 45855:                  RETURN

   840  T1:    J = ((K<<1+K)<<1+K)<<4-K+1;    !K*111+1
4752 @ 45856:                  LINE   840 "regression-compile-tmp/hal70.imp"
4753 @ 45892:                  LABEL  L_00e4
4754 @ 45895:                  LINE   840 "regression-compile-tmp/hal70.imp"
4755 @ 45931:                  PUSH   J
4756 @ 45934:                  PUSH   K
4757 @ 45937:                  PUSHI  #0x00000001
4758 @ 45942:                  LSH   
4759 @ 45943:                  PUSH   K
4760 @ 45946:                  ADD   
4761 @ 45947:                  PUSHI  #0x00000001
4762 @ 45952:                  LSH   
4763 @ 45953:                  PUSH   K
4764 @ 45956:                  ADD   
4765 @ 45957:                  PUSHI  #0x00000004
4766 @ 45962:                  LSH   
4767 @ 45963:                  PUSH   K
4768 @ 45966:                  SUB   
4769 @ 45967:                  PUSHI  #0x00000001
4770 @ 45972:                  ADD   
4771 @ 45973:                  ASSVAL

   841         CODE SYM
4772 @ 45974:                  LINE   841 "regression-compile-tmp/hal70.imp"
4773 @ 46010:                  PUSH   CODESYM
4774 @ 46013:                  CALL  

   842  T2:    %RETURN %IF TERM > 0
4775 @ 46014:                  LINE   842 "regression-compile-tmp/hal70.imp"
4776 @ 46050:                  LABEL  L_00e5
4777 @ 46053:                  LINE   842 "regression-compile-tmp/hal70.imp"
4778 @ 46089:                  PUSH   TERM
4779 @ 46092:                  PUSHI  #0x00000000
4780 @ 46097:                  JUMPIF <= L_0004
4781 @ 46101:                  RETURN
4782 @ 46102:                  LOCATE L_0004

   843         J = (K<<2+K)<<1+K+1+J;         !J+K*11+1
4783 @ 46105:                  LINE   843 "regression-compile-tmp/hal70.imp"
4784 @ 46141:                  PUSH   J
4785 @ 46144:                  PUSH   K
4786 @ 46147:                  PUSHI  #0x00000002
4787 @ 46152:                  LSH   
4788 @ 46153:                  PUSH   K
4789 @ 46156:                  ADD   
4790 @ 46157:                  PUSHI  #0x00000001
4791 @ 46162:                  LSH   
4792 @ 46163:                  PUSH   K
4793 @ 46166:                  ADD   
4794 @ 46167:                  PUSHI  #0x00000001
4795 @ 46172:                  ADD   
4796 @ 46173:                  PUSH   J
4797 @ 46176:                  ADD   
4798 @ 46177:                  ASSVAL

   844         CODE SYM
4799 @ 46178:                  LINE   844 "regression-compile-tmp/hal70.imp"
4800 @ 46214:                  PUSH   CODESYM
4801 @ 46217:                  CALL  

   845  T3:    %RETURN %IF TERM > 0
4802 @ 46218:                  LINE   845 "regression-compile-tmp/hal70.imp"
4803 @ 46254:                  LABEL  L_00e6
4804 @ 46257:                  LINE   845 "regression-compile-tmp/hal70.imp"
4805 @ 46293:                  PUSH   TERM
4806 @ 46296:                  PUSHI  #0x00000000
4807 @ 46301:                  JUMPIF <= L_0004
4808 @ 46305:                  RETURN
4809 @ 46306:                  LOCATE L_0004

   846         J = J+K+1
4810 @ 46309:                  LINE   846 "regression-compile-tmp/hal70.imp"
4811 @ 46345:                  PUSH   J
4812 @ 46348:                  PUSH   J
4813 @ 46351:                  PUSH   K
4814 @ 46354:                  ADD   
4815 @ 46355:                  PUSHI  #0x00000001
4816 @ 46360:                  ADD   
4817 @ 46361:                  ASSVAL

   847         CODE SYM
4818 @ 46362:                  LINE   847 "regression-compile-tmp/hal70.imp"
4819 @ 46398:                  PUSH   CODESYM
4820 @ 46401:                  CALL  

   848      %END
4821 @ 46402:                  LINE   848 "regression-compile-tmp/hal70.imp"
4822 @ 46438:               END    _lev0id0_TAG_PACKTRIPLE {lev=3 --> 2}

   849      K = SYM-'A'
4823 @ 46439:               LINE   849 "regression-compile-tmp/hal70.imp"
4824 @ 46475:               PUSH   K
4825 @ 46478:               PUSH   SYM
4826 @ 46481:               PUSHI  #0x00000041
4827 @ 46486:               SUB   
4828 @ 46487:               ASSVAL

   850      %FALSE %UNLESS K >= 0 %AND K < 26
4829 @ 46488:               LINE   850 "regression-compile-tmp/hal70.imp"
4830 @ 46524:               PUSH   K
4831 @ 46527:               PUSHI  #0x00000000
4832 @ 46532:               JUMPIF < L_0005
4833 @ 46536:               PUSH   K
4834 @ 46539:               PUSHI  #0x0000001a
4835 @ 46544:               JUMPIF < L_0004
4836 @ 46548:               LOCATE L_0005
4837 @ 46551:               FALSE 
4838 @ 46552:               LOCATE L_0004

   851      %FALSE %IF SYM = 'X' %AND CHAR(GETPOS)&128 # 0
4839 @ 46555:               LINE   851 "regression-compile-tmp/hal70.imp"
4840 @ 46591:               PUSH   SYM
4841 @ 46594:               PUSHI  #0x00000058
4842 @ 46599:               JUMPIF # L_0004
4843 @ 46603:               PUSH   CHAR
4844 @ 46606:               PUSH   GETPOS
4845 @ 46609:               ASSPAR
4846 @ 46610:               CALL  
4847 @ 46611:               PUSHI  #0x00000080
4848 @ 46616:               AND   
4849 @ 46617:               PUSHI  #0x00000000
4850 @ 46622:               JUMPIF = L_0004
4851 @ 46626:               FALSE 
4852 @ 46627:               LOCATE L_0004

   852      TERM = 0
4853 @ 46630:               LINE   852 "regression-compile-tmp/hal70.imp"
4854 @ 46666:               PUSH   TERM
4855 @ 46669:               PUSHI  #0x00000000
4856 @ 46674:               ASSVAL

   853      PACK TRIPLE
4857 @ 46675:               LINE   853 "regression-compile-tmp/hal70.imp"
4858 @ 46711:               PUSH   PACKTRIPLE
4859 @ 46714:               CALL  

   854      TAG1 = J
4860 @ 46715:               LINE   854 "regression-compile-tmp/hal70.imp"
4861 @ 46751:               PUSH   TAG1
4862 @ 46754:               PUSH   J
4863 @ 46757:               ASSVAL

   855      %CYCLE
4864 @ 46758:               LINE   855 "regression-compile-tmp/hal70.imp"
4865 @ 46794:               LOCATE L_0003

   856         J = 0
4866 @ 46797:               LINE   856 "regression-compile-tmp/hal70.imp"
4867 @ 46833:               PUSH   J
4868 @ 46836:               PUSHI  #0x00000000
4869 @ 46841:               ASSVAL

   857         PACK TRIPLE %IF TERM <= 0
4870 @ 46842:               LINE   857 "regression-compile-tmp/hal70.imp"
4871 @ 46878:               PUSH   TERM
4872 @ 46881:               PUSHI  #0x00000000
4873 @ 46886:               JUMPIF > L_0007
4874 @ 46890:               PUSH   PACKTRIPLE
4875 @ 46893:               CALL  
4876 @ 46894:               LOCATE L_0007

   858         TAG2 = J
4877 @ 46897:               LINE   858 "regression-compile-tmp/hal70.imp"
4878 @ 46933:               PUSH   TAG2
4879 @ 46936:               PUSH   J
4880 @ 46939:               ASSVAL

   859         CODE SYM %WHILE TERM <= 0
4881 @ 46940:               LINE   859 "regression-compile-tmp/hal70.imp"
4882 @ 46976:               LOCATE L_0006
4883 @ 46979:               PUSH   TERM
4884 @ 46982:               PUSHI  #0x00000000
4885 @ 46987:               JUMPIF > L_0007
4886 @ 46991:               PUSH   CODESYM
4887 @ 46994:               CALL  
4888 @ 46995:               REPEAT L_0006
4889 @ 46998:               LOCATE L_0007

   860         %EXIT %UNLESS TERM = QQ
4890 @ 47001:               LINE   860 "regression-compile-tmp/hal70.imp"
4891 @ 47037:               PUSH   TERM
4892 @ 47040:               PUSH   QQ
4893 @ 47043:               JUMPIF = L_0007
4894 @ 47047:               GOTO   L_0004
4895 @ 47050:               LOCATE L_0007

   861         TYPE = 1;  LOOKUP(0)
4896 @ 47053:               LINE   861 "regression-compile-tmp/hal70.imp"
4897 @ 47089:               PUSH   TYPE
4898 @ 47092:               PUSHI  #0x00000001
4899 @ 47097:               ASSVAL
4900 @ 47098:               LINE   861 "regression-compile-tmp/hal70.imp"
4901 @ 47134:               PUSH   LOOKUP
4902 @ 47137:               PUSHI  #0x00000000
4903 @ 47142:               ASSPAR
4904 @ 47143:               CALL  

   862         FAULT('U') %IF TYPE # 0
4905 @ 47144:               LINE   862 "regression-compile-tmp/hal70.imp"
4906 @ 47180:               PUSH   TYPE
4907 @ 47183:               PUSHI  #0x00000000
4908 @ 47188:               JUMPIF = L_0007
4909 @ 47192:               PUSH   FAULT
4910 @ 47195:               PUSHI  #0x00000055
4911 @ 47200:               ASSPAR
4912 @ 47201:               CALL  
4913 @ 47202:               LOCATE L_0007

   863         TAG1 = VAL
4914 @ 47205:               LINE   863 "regression-compile-tmp/hal70.imp"
4915 @ 47241:               PUSH   TAG1
4916 @ 47244:               PUSH   VAL
4917 @ 47247:               ASSVAL

   864         TERM = 0;  CODE SYM
4918 @ 47248:               LINE   864 "regression-compile-tmp/hal70.imp"
4919 @ 47284:               PUSH   TERM
4920 @ 47287:               PUSHI  #0x00000000
4921 @ 47292:               ASSVAL
4922 @ 47293:               LINE   864 "regression-compile-tmp/hal70.imp"
4923 @ 47329:               PUSH   CODESYM
4924 @ 47332:               CALL  

   865      %REPEAT
4925 @ 47333:               LINE   865 "regression-compile-tmp/hal70.imp"
4926 @ 47369:               REPEAT L_0003
4927 @ 47372:               LOCATE L_0004

   866      GET SYM %IF TERM = ' '
4928 @ 47375:               LINE   866 "regression-compile-tmp/hal70.imp"
4929 @ 47411:               PUSH   TERM
4930 @ 47414:               PUSHI  #0x00000020
4931 @ 47419:               JUMPIF # L_0004
4932 @ 47423:               PUSH   GETSYM
4933 @ 47426:               CALL  
4934 @ 47427:               LOCATE L_0004

   867      %TRUE
4935 @ 47430:               LINE   867 "regression-compile-tmp/hal70.imp"
4936 @ 47466:               TRUE  

   868  %END
   869  
4937 @ 47467:               LINE   868 "regression-compile-tmp/hal70.imp"
4938 @ 47503:            END    _lev0id0_TAG {lev=2 --> 1}

   870  %PREDICATE TAGIF
4939 @ 47504:            LINE   870 "regression-compile-tmp/hal70.imp"
4940 @ 47540:            DEF    TAGIF (_lev0id0_TAGIF) p1=V_00e0 a/tf=a b/format=0 c/ostate=0  type=0 (<type:0>) form=10 (predicate) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
4941 @ 47557:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4942 @ 47558:               FINISH ) {lev=2}

   871      %FALSE %UNLESS SYM='I' %AND CHAR(GETPOS)='F' %AND CHAR(GETPOS+1)=' '
4943 @ 47559:               LINE   871 "regression-compile-tmp/hal70.imp"
4944 @ 47595:               PUSH   SYM
4945 @ 47598:               PUSHI  #0x00000049
4946 @ 47603:               JUMPIF # L_0005
4947 @ 47607:               PUSH   CHAR
4948 @ 47610:               PUSH   GETPOS
4949 @ 47613:               ASSPAR
4950 @ 47614:               CALL  
4951 @ 47615:               PUSHI  #0x00000046
4952 @ 47620:               JUMPIF # L_0005
4953 @ 47624:               PUSH   CHAR
4954 @ 47627:               PUSH   GETPOS
4955 @ 47630:               PUSHI  #0x00000001
4956 @ 47635:               ADD   
4957 @ 47636:               ASSPAR
4958 @ 47637:               CALL  
4959 @ 47638:               PUSHI  #0x00000020
4960 @ 47643:               JUMPIF = L_0004
4961 @ 47647:               LOCATE L_0005
4962 @ 47650:               FALSE 
4963 @ 47651:               LOCATE L_0004

   872      GETPOS = GETPOS+2
4964 @ 47654:               LINE   872 "regression-compile-tmp/hal70.imp"
4965 @ 47690:               PUSH   GETPOS
4966 @ 47693:               PUSH   GETPOS
4967 @ 47696:               PUSHI  #0x00000002
4968 @ 47701:               ADD   
4969 @ 47702:               ASSVAL

   873      GET SYM
4970 @ 47703:               LINE   873 "regression-compile-tmp/hal70.imp"
4971 @ 47739:               PUSH   GETSYM
4972 @ 47742:               CALL  

   874      %TRUE
4973 @ 47743:               LINE   874 "regression-compile-tmp/hal70.imp"
4974 @ 47779:               TRUE  

   875  %END
   876  
4975 @ 47780:               LINE   875 "regression-compile-tmp/hal70.imp"
4976 @ 47816:            END    _lev0id0_TAGIF {lev=2 --> 1}

   877  %ROUTINE QUEUE(%INTEGER K)
   878  !!    INTEGER(QLIM) = K
4977 @ 47817:            LINE   877 "regression-compile-tmp/hal70.imp"
4978 @ 47853:            DEF    QUEUE (_lev0id0_QUEUE) 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
4979 @ 47870:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4980 @ 47871:                  DEF    K 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
4981 @ 47884:               FINISH ) {lev=2}

   879      set INTEGER(QLIM, K)
   880  !!    QLIM = QLIM+1;  %MONITOR 21 %IF QLIM = DEFMIN
4982 @ 47885:               LINE   879 "regression-compile-tmp/hal70.imp"
4983 @ 47921:               PUSH   SETINTEGER
4984 @ 47924:               PUSH   QLIM
4985 @ 47927:               ASSPAR
4986 @ 47928:               PUSH   K
4987 @ 47931:               ASSPAR
4988 @ 47932:               CALL  

   881      QLIM = QLIM+1;  !{}%signal 2,1 %IF QLIM = DEFMIN
4989 @ 47933:               LINE   881 "regression-compile-tmp/hal70.imp"
4990 @ 47969:               PUSH   QLIM
4991 @ 47972:               PUSH   QLIM
4992 @ 47975:               PUSHI  #0x00000001
4993 @ 47980:               ADD   
4994 @ 47981:               ASSVAL

   882  %END
   883  
4995 @ 47982:               LINE   882 "regression-compile-tmp/hal70.imp"
4996 @ 48018:            END    _lev0id0_QUEUE {lev=2 --> 1}

   884  %ROUTINE GET EXP
4997 @ 48019:            LINE   884 "regression-compile-tmp/hal70.imp"
4998 @ 48055:            DEF    GETEXP (_lev0id0_GETEXP) p1=V_00e2 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
4999 @ 48073:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5000 @ 48074:               FINISH ) {lev=2}

   885  %INTEGER I,NBASE
   886  
5001 @ 48075:               LINE   885 "regression-compile-tmp/hal70.imp"
5002 @ 48111:               DEF    I 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
5003 @ 48124:               DEF    NBASE p1=V_00e4 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

   887      NBASE = NP
5004 @ 48141:               LINE   887 "regression-compile-tmp/hal70.imp"
5005 @ 48177:               PUSH   NBASE
5006 @ 48180:               PUSH   NP
5007 @ 48183:               ASSVAL

   888      ->E3 %IF PEND # 0
5008 @ 48184:               LINE   888 "regression-compile-tmp/hal70.imp"
5009 @ 48220:               PUSH   PEND
5010 @ 48223:               PUSHI  #0x00000000
5011 @ 48228:               JUMPIF = L_0004
5012 @ 48232:               JUMP   L_00e5
5013 @ 48235:               LOCATE L_0004

   889  E1: NEST(0) %WHILE S('(')
5014 @ 48238:               LINE   889 "regression-compile-tmp/hal70.imp"
5015 @ 48274:               LABEL  L_00e6
5016 @ 48277:               LINE   889 "regression-compile-tmp/hal70.imp"
5017 @ 48313:               LOCATE L_0003
5018 @ 48316:               PUSH   S
5019 @ 48319:               PUSHI  #0x00000028
5020 @ 48324:               ASSPAR
5021 @ 48325:               CALL  
5022 @ 48326:               bf     L_0004
5023 @ 48329:               PUSH   NEST
5024 @ 48332:               PUSHI  #0x00000000
5025 @ 48337:               ASSPAR
5026 @ 48338:               CALL  
5027 @ 48339:               REPEAT L_0003
5028 @ 48342:               LOCATE L_0004

   890      NEST(-20) %IF S('#')
5029 @ 48345:               LINE   890 "regression-compile-tmp/hal70.imp"
5030 @ 48381:               PUSH   S
5031 @ 48384:               PUSHI  #0x00000023
5032 @ 48389:               ASSPAR
5033 @ 48390:               CALL  
5034 @ 48391:               bf     L_0004
5035 @ 48394:               PUSH   NEST
5036 @ 48397:               PUSHI  #0x00000014
5037 @ 48402:               NEGATE
5038 @ 48403:               ASSPAR
5039 @ 48404:               CALL  
5040 @ 48405:               LOCATE L_0004

   891      %IF TAG %START
5041 @ 48408:               LINE   891 "regression-compile-tmp/hal70.imp"
5042 @ 48444:               PUSH   TAG
5043 @ 48447:               CALL  
5044 @ 48448:               bf     L_0004

   892  E3:    TAGREF %IF PEND >= 0
5045 @ 48451:               LINE   892 "regression-compile-tmp/hal70.imp"
5046 @ 48487:               LABEL  L_00e5
5047 @ 48490:               LINE   892 "regression-compile-tmp/hal70.imp"
5048 @ 48526:               PUSH   PEND
5049 @ 48529:               PUSHI  #0x00000000
5050 @ 48534:               JUMPIF < L_0007
5051 @ 48538:               PUSH   TAGREF
5052 @ 48541:               CALL  
5053 @ 48542:               LOCATE L_0007

   893         PEND = 0
5054 @ 48545:               LINE   893 "regression-compile-tmp/hal70.imp"
5055 @ 48581:               PUSH   PEND
5056 @ 48584:               PUSHI  #0x00000000
5057 @ 48589:               ASSVAL

   894         %IF TYPE = REG %AND TERM = '(' %START
5058 @ 48590:               LINE   894 "regression-compile-tmp/hal70.imp"
5059 @ 48626:               PUSH   TYPE
5060 @ 48629:               PUSH   REG
5061 @ 48632:               JUMPIF # L_0007
5062 @ 48636:               PUSH   TERM
5063 @ 48639:               PUSHI  #0x00000028
5064 @ 48644:               JUMPIF # L_0007

   895            TYPE = 0 %IF SAVE&1 = 0;  VAL = VAL+VAL+SAVE
5065 @ 48648:               LINE   895 "regression-compile-tmp/hal70.imp"
5066 @ 48684:               PUSH   SAVE
5067 @ 48687:               PUSHI  #0x00000001
5068 @ 48692:               AND   
5069 @ 48693:               PUSHI  #0x00000000
5070 @ 48698:               JUMPIF # L_000a
5071 @ 48702:               PUSH   TYPE
5072 @ 48705:               PUSHI  #0x00000000
5073 @ 48710:               ASSVAL
5074 @ 48711:               LOCATE L_000a
5075 @ 48714:               LINE   895 "regression-compile-tmp/hal70.imp"
5076 @ 48750:               PUSH   VAL
5077 @ 48753:               PUSH   VAL
5078 @ 48756:               PUSH   VAL
5079 @ 48759:               ADD   
5080 @ 48760:               PUSH   SAVE
5081 @ 48763:               ADD   
5082 @ 48764:               ASSVAL

   896         %FINISH
5083 @ 48765:               LINE   896 "regression-compile-tmp/hal70.imp"
5084 @ 48801:               LOCATE L_0007

   897         FAULT('I') %AND TYPE=0 %IF TYPE&OPMASK # 0
5085 @ 48804:               LINE   897 "regression-compile-tmp/hal70.imp"
5086 @ 48840:               PUSH   TYPE
5087 @ 48843:               PUSH   OPMASK
5088 @ 48846:               AND   
5089 @ 48847:               PUSHI  #0x00000000
5090 @ 48852:               JUMPIF = L_0007
5091 @ 48856:               PUSH   FAULT
5092 @ 48859:               PUSHI  #0x00000049
5093 @ 48864:               ASSPAR
5094 @ 48865:               CALL  
5095 @ 48866:               PUSH   TYPE
5096 @ 48869:               PUSHI  #0x00000000
5097 @ 48874:               ASSVAL
5098 @ 48875:               LOCATE L_0007

   898         %IF MODE # 0 %START
5099 @ 48878:               LINE   898 "regression-compile-tmp/hal70.imp"
5100 @ 48914:               PUSH   MODE
5101 @ 48917:               PUSHI  #0x00000000
5102 @ 48922:               JUMPIF = L_0007

   899            %IF TYPE&REGXMASK # 0 %START
5103 @ 48926:               LINE   899 "regression-compile-tmp/hal70.imp"
5104 @ 48962:               PUSH   TYPE
5105 @ 48965:               PUSH   REGXMASK
5106 @ 48968:               AND   
5107 @ 48969:               PUSHI  #0x00000000
5108 @ 48974:               JUMPIF = L_000a

   900               I = TYPE&15;  I = VAL %IF I = 0
5109 @ 48978:               LINE   900 "regression-compile-tmp/hal70.imp"
5110 @ 49014:               PUSH   I
5111 @ 49017:               PUSH   TYPE
5112 @ 49020:               PUSHI  #0x0000000f
5113 @ 49025:               AND   
5114 @ 49026:               ASSVAL
5115 @ 49027:               LINE   900 "regression-compile-tmp/hal70.imp"
5116 @ 49063:               PUSH   I
5117 @ 49066:               PUSHI  #0x00000000
5118 @ 49071:               JUMPIF # L_000d
5119 @ 49075:               PUSH   I
5120 @ 49078:               PUSH   VAL
5121 @ 49081:               ASSVAL
5122 @ 49082:               LOCATE L_000d

   901               DUSE = DUSE+1 %IF I = DREG
5123 @ 49085:               LINE   901 "regression-compile-tmp/hal70.imp"
5124 @ 49121:               PUSH   I
5125 @ 49124:               PUSH   DREG
5126 @ 49127:               JUMPIF # L_000d
5127 @ 49131:               PUSH   DUSE
5128 @ 49134:               PUSH   DUSE
5129 @ 49137:               PUSHI  #0x00000001
5130 @ 49142:               ADD   
5131 @ 49143:               ASSVAL
5132 @ 49144:               LOCATE L_000d

   902            %FINISH
5133 @ 49147:               LINE   902 "regression-compile-tmp/hal70.imp"
5134 @ 49183:               LOCATE L_000a

   903         %FINISH
5135 @ 49186:               LINE   903 "regression-compile-tmp/hal70.imp"
5136 @ 49222:               LOCATE L_0007

   904         %IF TERM = '(' %START
5137 @ 49225:               LINE   904 "regression-compile-tmp/hal70.imp"
5138 @ 49261:               PUSH   TERM
5139 @ 49264:               PUSHI  #0x00000028
5140 @ 49269:               JUMPIF # L_0007

   905            GET SYM
5141 @ 49273:               LINE   905 "regression-compile-tmp/hal70.imp"
5142 @ 49309:               PUSH   GETSYM
5143 @ 49312:               CALL  

   906            I = TYPE&31
5144 @ 49313:               LINE   906 "regression-compile-tmp/hal70.imp"
5145 @ 49349:               PUSH   I
5146 @ 49352:               PUSH   TYPE
5147 @ 49355:               PUSHI  #0x0000001f
5148 @ 49360:               AND   
5149 @ 49361:               ASSVAL

   907            QUEUE(TYPE-I);  QUEUE(VAL)
5150 @ 49362:               LINE   907 "regression-compile-tmp/hal70.imp"
5151 @ 49398:               PUSH   QUEUE
5152 @ 49401:               PUSH   TYPE
5153 @ 49404:               PUSH   I
5154 @ 49407:               SUB   
5155 @ 49408:               ASSPAR
5156 @ 49409:               CALL  
5157 @ 49410:               LINE   907 "regression-compile-tmp/hal70.imp"
5158 @ 49446:               PUSH   QUEUE
5159 @ 49449:               PUSH   VAL
5160 @ 49452:               ASSPAR
5161 @ 49453:               CALL  

   908            NEST(-21);  NEST(0)
5162 @ 49454:               LINE   908 "regression-compile-tmp/hal70.imp"
5163 @ 49490:               PUSH   NEST
5164 @ 49493:               PUSHI  #0x00000015
5165 @ 49498:               NEGATE
5166 @ 49499:               ASSPAR
5167 @ 49500:               CALL  
5168 @ 49501:               LINE   908 "regression-compile-tmp/hal70.imp"
5169 @ 49537:               PUSH   NEST
5170 @ 49540:               PUSHI  #0x00000000
5171 @ 49545:               ASSPAR
5172 @ 49546:               CALL  

   909            %IF I # 0 %START
5173 @ 49547:               LINE   909 "regression-compile-tmp/hal70.imp"
5174 @ 49583:               PUSH   I
5175 @ 49586:               PUSHI  #0x00000000
5176 @ 49591:               JUMPIF = L_000a

   910               QUEUE(REG);  QUEUE(I&15)
5177 @ 49595:               LINE   910 "regression-compile-tmp/hal70.imp"
5178 @ 49631:               PUSH   QUEUE
5179 @ 49634:               PUSH   REG
5180 @ 49637:               ASSPAR
5181 @ 49638:               CALL  
5182 @ 49639:               LINE   910 "regression-compile-tmp/hal70.imp"
5183 @ 49675:               PUSH   QUEUE
5184 @ 49678:               PUSH   I
5185 @ 49681:               PUSHI  #0x0000000f
5186 @ 49686:               AND   
5187 @ 49687:               ASSPAR
5188 @ 49688:               CALL  

   911               NEST(-1)
5189 @ 49689:               LINE   911 "regression-compile-tmp/hal70.imp"
5190 @ 49725:               PUSH   NEST
5191 @ 49728:               PUSHI  #0x00000001
5192 @ 49733:               NEGATE
5193 @ 49734:               ASSPAR
5194 @ 49735:               CALL  

   912            %FINISH
5195 @ 49736:               LINE   912 "regression-compile-tmp/hal70.imp"
5196 @ 49772:               LOCATE L_000a

   913            ->E1
5197 @ 49775:               LINE   913 "regression-compile-tmp/hal70.imp"
5198 @ 49811:               JUMP   L_00e6

   914         %FINISH
5199 @ 49814:               LINE   914 "regression-compile-tmp/hal70.imp"
5200 @ 49850:               LOCATE L_0007

   915      %finish %ELSE %IF '0' <= SYM <= '9' %START
5201 @ 49853:               LINE   915 "regression-compile-tmp/hal70.imp"
5202 @ 49889:               GOTO   L_0003
5203 @ 49892:               LOCATE L_0004
5204 @ 49895:               PUSHI  #0x00000030
5205 @ 49900:               PUSH   SYM
5206 @ 49903:               JUMPIFD > L_0004
5207 @ 49907:               PUSHI  #0x00000039
5208 @ 49912:               JUMPIF > L_0004

   916         TYPE = 0;  VAL = SYM-'0'
5209 @ 49916:               LINE   916 "regression-compile-tmp/hal70.imp"
5210 @ 49952:               PUSH   TYPE
5211 @ 49955:               PUSHI  #0x00000000
5212 @ 49960:               ASSVAL
5213 @ 49961:               LINE   916 "regression-compile-tmp/hal70.imp"
5214 @ 49997:               PUSH   VAL
5215 @ 50000:               PUSH   SYM
5216 @ 50003:               PUSHI  #0x00000030
5217 @ 50008:               SUB   
5218 @ 50009:               ASSVAL

   917         %CYCLE
5219 @ 50010:               LINE   917 "regression-compile-tmp/hal70.imp"
5220 @ 50046:               LOCATE L_0006

   918            SYM = CHAR(GETPOS)-'0'
5221 @ 50049:               LINE   918 "regression-compile-tmp/hal70.imp"
5222 @ 50085:               PUSH   SYM
5223 @ 50088:               PUSH   CHAR
5224 @ 50091:               PUSH   GETPOS
5225 @ 50094:               ASSPAR
5226 @ 50095:               CALL  
5227 @ 50096:               PUSHI  #0x00000030
5228 @ 50101:               SUB   
5229 @ 50102:               ASSVAL

   919            %EXIT %UNLESS 0 <= SYM <= 9
5230 @ 50103:               LINE   919 "regression-compile-tmp/hal70.imp"
5231 @ 50139:               PUSHI  #0x00000000
5232 @ 50144:               PUSH   SYM
5233 @ 50147:               JUMPIFD > L_000b
5234 @ 50151:               PUSHI  #0x00000009
5235 @ 50156:               JUMPIF <= L_000a
5236 @ 50160:               LOCATE L_000b
5237 @ 50163:               GOTO   L_0007
5238 @ 50166:               LOCATE L_000a

   920            VAL = (VAL<<2+VAL)<<1+SYM
5239 @ 50169:               LINE   920 "regression-compile-tmp/hal70.imp"
5240 @ 50205:               PUSH   VAL
5241 @ 50208:               PUSH   VAL
5242 @ 50211:               PUSHI  #0x00000002
5243 @ 50216:               LSH   
5244 @ 50217:               PUSH   VAL
5245 @ 50220:               ADD   
5246 @ 50221:               PUSHI  #0x00000001
5247 @ 50226:               LSH   
5248 @ 50227:               PUSH   SYM
5249 @ 50230:               ADD   
5250 @ 50231:               ASSVAL

   921            GETPOS = GETPOS+1
5251 @ 50232:               LINE   921 "regression-compile-tmp/hal70.imp"
5252 @ 50268:               PUSH   GETPOS
5253 @ 50271:               PUSH   GETPOS
5254 @ 50274:               PUSHI  #0x00000001
5255 @ 50279:               ADD   
5256 @ 50280:               ASSVAL

   922         %REPEAT
5257 @ 50281:               LINE   922 "regression-compile-tmp/hal70.imp"
5258 @ 50317:               REPEAT L_0006
5259 @ 50320:               LOCATE L_0007

   923         GET SYM
5260 @ 50323:               LINE   923 "regression-compile-tmp/hal70.imp"
5261 @ 50359:               PUSH   GETSYM
5262 @ 50362:               CALL  

   924      %finish %ELSE %IF SYM = 'X' %START
5263 @ 50363:               LINE   924 "regression-compile-tmp/hal70.imp"
5264 @ 50399:               GOTO   L_0003
5265 @ 50402:               LOCATE L_0004
5266 @ 50405:               PUSH   SYM
5267 @ 50408:               PUSHI  #0x00000058
5268 @ 50413:               JUMPIF # L_0004

   925         TYPE = 0;  VAL = 0
5269 @ 50417:               LINE   925 "regression-compile-tmp/hal70.imp"
5270 @ 50453:               PUSH   TYPE
5271 @ 50456:               PUSHI  #0x00000000
5272 @ 50461:               ASSVAL
5273 @ 50462:               LINE   925 "regression-compile-tmp/hal70.imp"
5274 @ 50498:               PUSH   VAL
5275 @ 50501:               PUSHI  #0x00000000
5276 @ 50506:               ASSVAL

   926         %CYCLE
5277 @ 50507:               LINE   926 "regression-compile-tmp/hal70.imp"
5278 @ 50543:               LOCATE L_0006

   927            SYM = CHAR(GETPOS)-128
5279 @ 50546:               LINE   927 "regression-compile-tmp/hal70.imp"
5280 @ 50582:               PUSH   SYM
5281 @ 50585:               PUSH   CHAR
5282 @ 50588:               PUSH   GETPOS
5283 @ 50591:               ASSPAR
5284 @ 50592:               CALL  
5285 @ 50593:               PUSHI  #0x00000080
5286 @ 50598:               SUB   
5287 @ 50599:               ASSVAL

   928            %EXIT %IF SYM < 0
5288 @ 50600:               LINE   928 "regression-compile-tmp/hal70.imp"
5289 @ 50636:               PUSH   SYM
5290 @ 50639:               PUSHI  #0x00000000
5291 @ 50644:               JUMPIF >= L_000a
5292 @ 50648:               GOTO   L_0007
5293 @ 50651:               LOCATE L_000a

   929            SYM = SYM-32 %IF SYM >= 96; !ENSURE UPPER-CASE
5294 @ 50654:               LINE   929 "regression-compile-tmp/hal70.imp"
5295 @ 50690:               PUSH   SYM
5296 @ 50693:               PUSHI  #0x00000060
5297 @ 50698:               JUMPIF < L_000a
5298 @ 50702:               PUSH   SYM
5299 @ 50705:               PUSH   SYM
5300 @ 50708:               PUSHI  #0x00000020
5301 @ 50713:               SUB   
5302 @ 50714:               ASSVAL
5303 @ 50715:               LOCATE L_000a

   930            %IF '0' <= SYM <= '9' %OR 'A' <= SYM <= 'F' %START
5304 @ 50718:               LINE   930 "regression-compile-tmp/hal70.imp"
5305 @ 50754:               PUSHI  #0x00000030
5306 @ 50759:               PUSH   SYM
5307 @ 50762:               JUMPIFD > L_000c
5308 @ 50766:               PUSHI  #0x00000039
5309 @ 50771:               JUMPIF <= L_000b
5310 @ 50775:               LOCATE L_000c
5311 @ 50778:               PUSHI  #0x00000041
5312 @ 50783:               PUSH   SYM
5313 @ 50786:               JUMPIFD > L_000a
5314 @ 50790:               PUSHI  #0x00000046
5315 @ 50795:               JUMPIF > L_000a
5316 @ 50799:               LOCATE L_000b

   931               VAL = VAL<<4+SYM-'0'
5317 @ 50802:               LINE   931 "regression-compile-tmp/hal70.imp"
5318 @ 50838:               PUSH   VAL
5319 @ 50841:               PUSH   VAL
5320 @ 50844:               PUSHI  #0x00000004
5321 @ 50849:               LSH   
5322 @ 50850:               PUSH   SYM
5323 @ 50853:               ADD   
5324 @ 50854:               PUSHI  #0x00000030
5325 @ 50859:               SUB   
5326 @ 50860:               ASSVAL

   932               VAL = VAL-7 %IF SYM >= 'A'
5327 @ 50861:               LINE   932 "regression-compile-tmp/hal70.imp"
5328 @ 50897:               PUSH   SYM
5329 @ 50900:               PUSHI  #0x00000041
5330 @ 50905:               JUMPIF < L_000d
5331 @ 50909:               PUSH   VAL
5332 @ 50912:               PUSH   VAL
5333 @ 50915:               PUSHI  #0x00000007
5334 @ 50920:               SUB   
5335 @ 50921:               ASSVAL
5336 @ 50922:               LOCATE L_000d

   933            %finish %ELSE FAULT('H')
5337 @ 50925:               LINE   933 "regression-compile-tmp/hal70.imp"
5338 @ 50961:               GOTO   L_0009
5339 @ 50964:               LOCATE L_000a
5340 @ 50967:               PUSH   FAULT
5341 @ 50970:               PUSHI  #0x00000048
5342 @ 50975:               ASSPAR
5343 @ 50976:               CALL  
5344 @ 50977:               LOCATE L_0009

   934            GETPOS = GETPOS+1
5345 @ 50980:               LINE   934 "regression-compile-tmp/hal70.imp"
5346 @ 51016:               PUSH   GETPOS
5347 @ 51019:               PUSH   GETPOS
5348 @ 51022:               PUSHI  #0x00000001
5349 @ 51027:               ADD   
5350 @ 51028:               ASSVAL

   935         %REPEAT
5351 @ 51029:               LINE   935 "regression-compile-tmp/hal70.imp"
5352 @ 51065:               REPEAT L_0006
5353 @ 51068:               LOCATE L_0007

   936         GET SYM
5354 @ 51071:               LINE   936 "regression-compile-tmp/hal70.imp"
5355 @ 51107:               PUSH   GETSYM
5356 @ 51110:               CALL  

   937      %finish %ELSE %IF SYM&128 # 0 %START
5357 @ 51111:               LINE   937 "regression-compile-tmp/hal70.imp"
5358 @ 51147:               GOTO   L_0003
5359 @ 51150:               LOCATE L_0004
5360 @ 51153:               PUSH   SYM
5361 @ 51156:               PUSHI  #0x00000080
5362 @ 51161:               AND   
5363 @ 51162:               PUSHI  #0x00000000
5364 @ 51167:               JUMPIF = L_0004

   938         TYPE = 0;  VAL = SYM-128
5365 @ 51171:               LINE   938 "regression-compile-tmp/hal70.imp"
5366 @ 51207:               PUSH   TYPE
5367 @ 51210:               PUSHI  #0x00000000
5368 @ 51215:               ASSVAL
5369 @ 51216:               LINE   938 "regression-compile-tmp/hal70.imp"
5370 @ 51252:               PUSH   VAL
5371 @ 51255:               PUSH   SYM
5372 @ 51258:               PUSHI  #0x00000080
5373 @ 51263:               SUB   
5374 @ 51264:               ASSVAL

   939         GET SYM
5375 @ 51265:               LINE   939 "regression-compile-tmp/hal70.imp"
5376 @ 51301:               PUSH   GETSYM
5377 @ 51304:               CALL  

   940         %IF MODE >= 0 %AND SYM&128 # 0 %START
5378 @ 51305:               LINE   940 "regression-compile-tmp/hal70.imp"
5379 @ 51341:               PUSH   MODE
5380 @ 51344:               PUSHI  #0x00000000
5381 @ 51349:               JUMPIF < L_0007
5382 @ 51353:               PUSH   SYM
5383 @ 51356:               PUSHI  #0x00000080
5384 @ 51361:               AND   
5385 @ 51362:               PUSHI  #0x00000000
5386 @ 51367:               JUMPIF = L_0007

   941            VAL = VAL<<8+SYM-128;  GET SYM
5387 @ 51371:               LINE   941 "regression-compile-tmp/hal70.imp"
5388 @ 51407:               PUSH   VAL
5389 @ 51410:               PUSH   VAL
5390 @ 51413:               PUSHI  #0x00000008
5391 @ 51418:               LSH   
5392 @ 51419:               PUSH   SYM
5393 @ 51422:               ADD   
5394 @ 51423:               PUSHI  #0x00000080
5395 @ 51428:               SUB   
5396 @ 51429:               ASSVAL
5397 @ 51430:               LINE   941 "regression-compile-tmp/hal70.imp"
5398 @ 51466:               PUSH   GETSYM
5399 @ 51469:               CALL  

   942         %FINISH
5400 @ 51470:               LINE   942 "regression-compile-tmp/hal70.imp"
5401 @ 51506:               LOCATE L_0007

   943      %finish %ELSE %IF S('.') %START
5402 @ 51509:               LINE   943 "regression-compile-tmp/hal70.imp"
5403 @ 51545:               GOTO   L_0003
5404 @ 51548:               LOCATE L_0004
5405 @ 51551:               PUSH   S
5406 @ 51554:               PUSHI  #0x0000002e
5407 @ 51559:               ASSPAR
5408 @ 51560:               CALL  
5409 @ 51561:               bf     L_0004

   944         ->ERR %IF %NOT TAG
5410 @ 51564:               LINE   944 "regression-compile-tmp/hal70.imp"
5411 @ 51600:               PUSH   TAG
5412 @ 51603:               CALL  
5413 @ 51604:               bt     L_0007
5414 @ 51607:               JUMP   L_00e7
5415 @ 51610:               LOCATE L_0007

   945         TYPE = 0;  VAL = TAG1
5416 @ 51613:               LINE   945 "regression-compile-tmp/hal70.imp"
5417 @ 51649:               PUSH   TYPE
5418 @ 51652:               PUSHI  #0x00000000
5419 @ 51657:               ASSVAL
5420 @ 51658:               LINE   945 "regression-compile-tmp/hal70.imp"
5421 @ 51694:               PUSH   VAL
5422 @ 51697:               PUSH   TAG1
5423 @ 51700:               ASSVAL

   946      %finish %ELSE %IF S('*') %START
5424 @ 51701:               LINE   946 "regression-compile-tmp/hal70.imp"
5425 @ 51737:               GOTO   L_0003
5426 @ 51740:               LOCATE L_0004
5427 @ 51743:               PUSH   S
5428 @ 51746:               PUSHI  #0x0000002a
5429 @ 51751:               ASSPAR
5430 @ 51752:               CALL  
5431 @ 51753:               bf     L_0004

   947         TYPE = LOCTYPE&63;  VAL = LOC
5432 @ 51756:               LINE   947 "regression-compile-tmp/hal70.imp"
5433 @ 51792:               PUSH   TYPE
5434 @ 51795:               PUSH   LOCTYPE
5435 @ 51798:               PUSHI  #0x0000003f
5436 @ 51803:               AND   
5437 @ 51804:               ASSVAL
5438 @ 51805:               LINE   947 "regression-compile-tmp/hal70.imp"
5439 @ 51841:               PUSH   VAL
5440 @ 51844:               PUSH   LOC
5441 @ 51847:               ASSVAL

   948         %IF SYM = 'L' %START;          !FOR NOW
5442 @ 51848:               LINE   948 "regression-compile-tmp/hal70.imp"
5443 @ 51884:               PUSH   SYM
5444 @ 51887:               PUSHI  #0x0000004c
5445 @ 51892:               JUMPIF # L_0007

   949            TYPE = 0;  VAL = LIST %IF TAG
5446 @ 51896:               LINE   949 "regression-compile-tmp/hal70.imp"
5447 @ 51932:               PUSH   TYPE
5448 @ 51935:               PUSHI  #0x00000000
5449 @ 51940:               ASSVAL
5450 @ 51941:               LINE   949 "regression-compile-tmp/hal70.imp"
5451 @ 51977:               PUSH   TAG
5452 @ 51980:               CALL  
5453 @ 51981:               bf     L_000a
5454 @ 51984:               PUSH   VAL
5455 @ 51987:               PUSH   LIST
5456 @ 51990:               ASSVAL
5457 @ 51991:               LOCATE L_000a

   950         %FINISH
5458 @ 51994:               LINE   950 "regression-compile-tmp/hal70.imp"
5459 @ 52030:               LOCATE L_0007

   951      %finish %ELSE %IF SYM = '-' %START
5460 @ 52033:               LINE   951 "regression-compile-tmp/hal70.imp"
5461 @ 52069:               GOTO   L_0003
5462 @ 52072:               LOCATE L_0004
5463 @ 52075:               PUSH   SYM
5464 @ 52078:               PUSHI  #0x0000002d
5465 @ 52083:               JUMPIF # L_0004

   952         TYPE = 0;  VAL = 0
5466 @ 52087:               LINE   952 "regression-compile-tmp/hal70.imp"
5467 @ 52123:               PUSH   TYPE
5468 @ 52126:               PUSHI  #0x00000000
5469 @ 52131:               ASSVAL
5470 @ 52132:               LINE   952 "regression-compile-tmp/hal70.imp"
5471 @ 52168:               PUSH   VAL
5472 @ 52171:               PUSHI  #0x00000000
5473 @ 52176:               ASSVAL

   953      %finish %ELSE %IF SYM = '\' %START
5474 @ 52177:               LINE   953 "regression-compile-tmp/hal70.imp"
5475 @ 52213:               GOTO   L_0003
5476 @ 52216:               LOCATE L_0004
5477 @ 52219:               PUSH   SYM
5478 @ 52222:               PUSHI  #0x0000005c
5479 @ 52227:               JUMPIF # L_0004

   954         TYPE = 0;  VAL = \0
5480 @ 52231:               LINE   954 "regression-compile-tmp/hal70.imp"
5481 @ 52267:               PUSH   TYPE
5482 @ 52270:               PUSHI  #0x00000000
5483 @ 52275:               ASSVAL
5484 @ 52276:               LINE   954 "regression-compile-tmp/hal70.imp"
5485 @ 52312:               PUSH   VAL
5486 @ 52315:               PUSHI  #0x00000000
5487 @ 52320:               NOT   
5488 @ 52321:               ASSVAL

   955      %finish %ELSE ->ERR
5489 @ 52322:               LINE   955 "regression-compile-tmp/hal70.imp"
5490 @ 52358:               GOTO   L_0003
5491 @ 52361:               LOCATE L_0004
5492 @ 52364:               JUMP   L_00e7
5493 @ 52367:               LOCATE L_0003

   956      QUEUE(TYPE);  QUEUE(VAL)
   957  
5494 @ 52370:               LINE   956 "regression-compile-tmp/hal70.imp"
5495 @ 52406:               PUSH   QUEUE
5496 @ 52409:               PUSH   TYPE
5497 @ 52412:               ASSPAR
5498 @ 52413:               CALL  
5499 @ 52414:               LINE   956 "regression-compile-tmp/hal70.imp"
5500 @ 52450:               PUSH   QUEUE
5501 @ 52453:               PUSH   VAL
5502 @ 52456:               ASSPAR
5503 @ 52457:               CALL  

   958      %WHILE NP # NBASE %CYCLE
5504 @ 52458:               LINE   958 "regression-compile-tmp/hal70.imp"
5505 @ 52494:               LOCATE L_0003
5506 @ 52497:               PUSH   NP
5507 @ 52500:               PUSH   NBASE
5508 @ 52503:               JUMPIF = L_0004

   959         %IF INTEGER(NP) < 0 %START
5509 @ 52507:               LINE   959 "regression-compile-tmp/hal70.imp"
5510 @ 52543:               PUSH   INTEGER
5511 @ 52546:               PUSH   NP
5512 @ 52549:               ASSPAR
5513 @ 52550:               CALL  
5514 @ 52551:               PUSHI  #0x00000000
5515 @ 52556:               JUMPIF >= L_0007

   960            QUEUE(INTEGER(NP))
5516 @ 52560:               LINE   960 "regression-compile-tmp/hal70.imp"
5517 @ 52596:               PUSH   QUEUE
5518 @ 52599:               PUSH   INTEGER
5519 @ 52602:               PUSH   NP
5520 @ 52605:               ASSPAR
5521 @ 52606:               CALL  
5522 @ 52607:               ASSPAR
5523 @ 52608:               CALL  

   961         %finish %ELSE %START
5524 @ 52609:               LINE   961 "regression-compile-tmp/hal70.imp"
5525 @ 52645:               GOTO   L_0006
5526 @ 52648:               LOCATE L_0007

   962            %EXIT %IF %NOT S(')')
5527 @ 52651:               LINE   962 "regression-compile-tmp/hal70.imp"
5528 @ 52687:               PUSH   S
5529 @ 52690:               PUSHI  #0x00000029
5530 @ 52695:               ASSPAR
5531 @ 52696:               CALL  
5532 @ 52697:               bt     L_000a
5533 @ 52700:               GOTO   L_0004
5534 @ 52703:               LOCATE L_000a

   963         %FINISH
5535 @ 52706:               LINE   963 "regression-compile-tmp/hal70.imp"
5536 @ 52742:               LOCATE L_0006

   964         NP = NP+1
5537 @ 52745:               LINE   964 "regression-compile-tmp/hal70.imp"
5538 @ 52781:               PUSH   NP
5539 @ 52784:               PUSH   NP
5540 @ 52787:               PUSHI  #0x00000001
5541 @ 52792:               ADD   
5542 @ 52793:               ASSVAL

   965      %REPEAT
   966  
5543 @ 52794:               LINE   965 "regression-compile-tmp/hal70.imp"
5544 @ 52830:               REPEAT L_0003
5545 @ 52833:               LOCATE L_0004

   967      I = 1
5546 @ 52836:               LINE   967 "regression-compile-tmp/hal70.imp"
5547 @ 52872:               PUSH   I
5548 @ 52875:               PUSHI  #0x00000001
5549 @ 52880:               ASSVAL

   968      NEST(-1) %AND ->E8 %IF S('+')
5550 @ 52881:               LINE   968 "regression-compile-tmp/hal70.imp"
5551 @ 52917:               PUSH   S
5552 @ 52920:               PUSHI  #0x0000002b
5553 @ 52925:               ASSPAR
5554 @ 52926:               CALL  
5555 @ 52927:               bf     L_0004
5556 @ 52930:               PUSH   NEST
5557 @ 52933:               PUSHI  #0x00000001
5558 @ 52938:               NEGATE
5559 @ 52939:               ASSPAR
5560 @ 52940:               CALL  
5561 @ 52941:               JUMP   L_00e8
5562 @ 52944:               LOCATE L_0004

   969      NEST(-2) %AND ->E8 %IF S('-')
5563 @ 52947:               LINE   969 "regression-compile-tmp/hal70.imp"
5564 @ 52983:               PUSH   S
5565 @ 52986:               PUSHI  #0x0000002d
5566 @ 52991:               ASSPAR
5567 @ 52992:               CALL  
5568 @ 52993:               bf     L_0004
5569 @ 52996:               PUSH   NEST
5570 @ 52999:               PUSHI  #0x00000002
5571 @ 53004:               NEGATE
5572 @ 53005:               ASSPAR
5573 @ 53006:               CALL  
5574 @ 53007:               JUMP   L_00e8
5575 @ 53010:               LOCATE L_0004

   970      NEST(-3) %AND ->E9 %IF S('&')
5576 @ 53013:               LINE   970 "regression-compile-tmp/hal70.imp"
5577 @ 53049:               PUSH   S
5578 @ 53052:               PUSHI  #0x00000026
5579 @ 53057:               ASSPAR
5580 @ 53058:               CALL  
5581 @ 53059:               bf     L_0004
5582 @ 53062:               PUSH   NEST
5583 @ 53065:               PUSHI  #0x00000003
5584 @ 53070:               NEGATE
5585 @ 53071:               ASSPAR
5586 @ 53072:               CALL  
5587 @ 53073:               JUMP   L_00e9
5588 @ 53076:               LOCATE L_0004

   971      NEST(-4) %AND ->E9 %IF S('!')
5589 @ 53079:               LINE   971 "regression-compile-tmp/hal70.imp"
5590 @ 53115:               PUSH   S
5591 @ 53118:               PUSHI  #0x00000021
5592 @ 53123:               ASSPAR
5593 @ 53124:               CALL  
5594 @ 53125:               bf     L_0004
5595 @ 53128:               PUSH   NEST
5596 @ 53131:               PUSHI  #0x00000004
5597 @ 53136:               NEGATE
5598 @ 53137:               ASSPAR
5599 @ 53138:               CALL  
5600 @ 53139:               JUMP   L_00e9
5601 @ 53142:               LOCATE L_0004

   972      NEST(-5) %AND ->E9 %IF S('\')
5602 @ 53145:               LINE   972 "regression-compile-tmp/hal70.imp"
5603 @ 53181:               PUSH   S
5604 @ 53184:               PUSHI  #0x0000005c
5605 @ 53189:               ASSPAR
5606 @ 53190:               CALL  
5607 @ 53191:               bf     L_0004
5608 @ 53194:               PUSH   NEST
5609 @ 53197:               PUSHI  #0x00000005
5610 @ 53202:               NEGATE
5611 @ 53203:               ASSPAR
5612 @ 53204:               CALL  
5613 @ 53205:               JUMP   L_00e9
5614 @ 53208:               LOCATE L_0004

   973      NEST(-6) %AND ->E9 %IF SS('<')
5615 @ 53211:               LINE   973 "regression-compile-tmp/hal70.imp"
5616 @ 53247:               PUSH   SS
5617 @ 53250:               PUSHI  #0x0000003c
5618 @ 53255:               ASSPAR
5619 @ 53256:               CALL  
5620 @ 53257:               bf     L_0004
5621 @ 53260:               PUSH   NEST
5622 @ 53263:               PUSHI  #0x00000006
5623 @ 53268:               NEGATE
5624 @ 53269:               ASSPAR
5625 @ 53270:               CALL  
5626 @ 53271:               JUMP   L_00e9
5627 @ 53274:               LOCATE L_0004

   974      NEST(-7) %AND ->E9 %IF SS('>')
5628 @ 53277:               LINE   974 "regression-compile-tmp/hal70.imp"
5629 @ 53313:               PUSH   SS
5630 @ 53316:               PUSHI  #0x0000003e
5631 @ 53321:               ASSPAR
5632 @ 53322:               CALL  
5633 @ 53323:               bf     L_0004
5634 @ 53326:               PUSH   NEST
5635 @ 53329:               PUSHI  #0x00000007
5636 @ 53334:               NEGATE
5637 @ 53335:               ASSPAR
5638 @ 53336:               CALL  
5639 @ 53337:               JUMP   L_00e9
5640 @ 53340:               LOCATE L_0004

   975      NEST(-8) %AND ->E9 %IF S('_')
5641 @ 53343:               LINE   975 "regression-compile-tmp/hal70.imp"
5642 @ 53379:               PUSH   S
5643 @ 53382:               PUSHI  #0x0000005f
5644 @ 53387:               ASSPAR
5645 @ 53388:               CALL  
5646 @ 53389:               bf     L_0004
5647 @ 53392:               PUSH   NEST
5648 @ 53395:               PUSHI  #0x00000008
5649 @ 53400:               NEGATE
5650 @ 53401:               ASSPAR
5651 @ 53402:               CALL  
5652 @ 53403:               JUMP   L_00e9
5653 @ 53406:               LOCATE L_0004

   976      %RETURN %IF NP = NBASE
5654 @ 53409:               LINE   976 "regression-compile-tmp/hal70.imp"
5655 @ 53445:               PUSH   NP
5656 @ 53448:               PUSH   NBASE
5657 @ 53451:               JUMPIF # L_0004
5658 @ 53455:               RETURN
5659 @ 53456:               LOCATE L_0004

   977  ERR:NP = NBASE
   978  !!    %MONITOR 19
   979  
5660 @ 53459:               LINE   977 "regression-compile-tmp/hal70.imp"
5661 @ 53495:               LABEL  L_00e7
5662 @ 53498:               LINE   977 "regression-compile-tmp/hal70.imp"
5663 @ 53534:               PUSH   NP
5664 @ 53537:               PUSH   NBASE
5665 @ 53540:               ASSVAL

   980  E8: I = 0
5666 @ 53541:               LINE   980 "regression-compile-tmp/hal70.imp"
5667 @ 53577:               LABEL  L_00e8
5668 @ 53580:               LINE   980 "regression-compile-tmp/hal70.imp"
5669 @ 53616:               PUSH   I
5670 @ 53619:               PUSHI  #0x00000000
5671 @ 53624:               ASSVAL

   981  E9: ->E1 %UNLESS MODE = 2 %AND NP+1 = NBASE
5672 @ 53625:               LINE   981 "regression-compile-tmp/hal70.imp"
5673 @ 53661:               LABEL  L_00e9
5674 @ 53664:               LINE   981 "regression-compile-tmp/hal70.imp"
5675 @ 53700:               PUSH   MODE
5676 @ 53703:               PUSHI  #0x00000002
5677 @ 53708:               JUMPIF # L_0005
5678 @ 53712:               PUSH   NP
5679 @ 53715:               PUSHI  #0x00000001
5680 @ 53720:               ADD   
5681 @ 53721:               PUSH   NBASE
5682 @ 53724:               JUMPIF = L_0004
5683 @ 53728:               LOCATE L_0005
5684 @ 53731:               JUMP   L_00e6
5685 @ 53734:               LOCATE L_0004

   982      %IF FLAG = I %THEN FLAG = QLIM %ELSE FLAG = -1
5686 @ 53737:               LINE   982 "regression-compile-tmp/hal70.imp"
5687 @ 53773:               PUSH   FLAG
5688 @ 53776:               PUSH   I
5689 @ 53779:               JUMPIF # L_0004
5690 @ 53783:               PUSH   FLAG
5691 @ 53786:               PUSH   QLIM
5692 @ 53789:               ASSVAL
5693 @ 53790:               GOTO   L_0003
5694 @ 53793:               LOCATE L_0004
5695 @ 53796:               PUSH   FLAG
5696 @ 53799:               PUSHI  #0x00000001
5697 @ 53804:               NEGATE
5698 @ 53805:               ASSVAL
5699 @ 53806:               LOCATE L_0003

   983      ->E1
5700 @ 53809:               LINE   983 "regression-compile-tmp/hal70.imp"
5701 @ 53845:               JUMP   L_00e6

   984  %END
   985  
5702 @ 53848:               LINE   984 "regression-compile-tmp/hal70.imp"
5703 @ 53884:            END    _lev0id0_GETEXP {lev=2 --> 1}

   986  %ROUTINE CONDIT(%INTEGER QVAL)
5704 @ 53885:            LINE   986 "regression-compile-tmp/hal70.imp"
5705 @ 53921:            DEF    CONDIT (_lev0id0_CONDIT) p1=V_00e3 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
5706 @ 53939:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5707 @ 53940:                  DEF    QVAL p1=V_00e4 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
5708 @ 53956:               FINISH ) {lev=2}

   987  %OWNINTEGER AND=1717, OR=16873
5709 @ 53957:               LINE   987 "regression-compile-tmp/hal70.imp"
5710 @ 53993:               PUSHI  #0x000006b5
5711 @ 53998:               DEF    AND p1=V_00e5 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
5712 @ 54013:               INIT   1
5713 @ 54016:               PUSHI  #0x000041e9
5714 @ 54021:               DEF    OR p1=V_00e6 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
5715 @ 54035:               INIT   1

   988  %INTEGER J,K
5716 @ 54038:               LINE   988 "regression-compile-tmp/hal70.imp"
5717 @ 54074:               DEF    J p1=V_00e7 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
5718 @ 54087:               DEF    K p1=V_00e8 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

   989      TRANSF = QSTART;  QSTART = QLIM
5719 @ 54100:               LINE   989 "regression-compile-tmp/hal70.imp"
5720 @ 54136:               PUSH   TRANSF
5721 @ 54139:               PUSH   QSTART
5722 @ 54142:               ASSVAL
5723 @ 54143:               LINE   989 "regression-compile-tmp/hal70.imp"
5724 @ 54179:               PUSH   QSTART
5725 @ 54182:               PUSH   QLIM
5726 @ 54185:               ASSVAL

   990      J = 0
5727 @ 54186:               LINE   990 "regression-compile-tmp/hal70.imp"
5728 @ 54222:               PUSH   J
5729 @ 54225:               PUSHI  #0x00000000
5730 @ 54230:               ASSVAL

   991      %CYCLE
5731 @ 54231:               LINE   991 "regression-compile-tmp/hal70.imp"
5732 @ 54267:               LOCATE L_0003

   992         GET EXP
5733 @ 54270:               LINE   992 "regression-compile-tmp/hal70.imp"
5734 @ 54306:               PUSH   GETEXP
5735 @ 54309:               CALL  

   993         %IF S('=') %START
5736 @ 54310:               LINE   993 "regression-compile-tmp/hal70.imp"
5737 @ 54346:               PUSH   S
5738 @ 54349:               PUSHI  #0x0000003d
5739 @ 54354:               ASSPAR
5740 @ 54355:               CALL  
5741 @ 54356:               bf     L_0007

   994            K = 3
5742 @ 54359:               LINE   994 "regression-compile-tmp/hal70.imp"
5743 @ 54395:               PUSH   K
5744 @ 54398:               PUSHI  #0x00000003
5745 @ 54403:               ASSVAL

   995         %finish %ELSE %IF S('#') %START
5746 @ 54404:               LINE   995 "regression-compile-tmp/hal70.imp"
5747 @ 54440:               GOTO   L_0006
5748 @ 54443:               LOCATE L_0007
5749 @ 54446:               PUSH   S
5750 @ 54449:               PUSHI  #0x00000023
5751 @ 54454:               ASSPAR
5752 @ 54455:               CALL  
5753 @ 54456:               bf     L_0007

   996            K = \3
5754 @ 54459:               LINE   996 "regression-compile-tmp/hal70.imp"
5755 @ 54495:               PUSH   K
5756 @ 54498:               PUSHI  #0x00000003
5757 @ 54503:               NOT   
5758 @ 54504:               ASSVAL

   997         %finish %ELSE %IF S('<') %START
5759 @ 54505:               LINE   997 "regression-compile-tmp/hal70.imp"
5760 @ 54541:               GOTO   L_0006
5761 @ 54544:               LOCATE L_0007
5762 @ 54547:               PUSH   S
5763 @ 54550:               PUSHI  #0x0000003c
5764 @ 54555:               ASSPAR
5765 @ 54556:               CALL  
5766 @ 54557:               bf     L_0007

   998            K = \1;  K = 2 %IF S('=')
5767 @ 54560:               LINE   998 "regression-compile-tmp/hal70.imp"
5768 @ 54596:               PUSH   K
5769 @ 54599:               PUSHI  #0x00000001
5770 @ 54604:               NOT   
5771 @ 54605:               ASSVAL
5772 @ 54606:               LINE   998 "regression-compile-tmp/hal70.imp"
5773 @ 54642:               PUSH   S
5774 @ 54645:               PUSHI  #0x0000003d
5775 @ 54650:               ASSPAR
5776 @ 54651:               CALL  
5777 @ 54652:               bf     L_000a
5778 @ 54655:               PUSH   K
5779 @ 54658:               PUSHI  #0x00000002
5780 @ 54663:               ASSVAL
5781 @ 54664:               LOCATE L_000a

   999         %finish %ELSE %IF S('>') %START
5782 @ 54667:               LINE   999 "regression-compile-tmp/hal70.imp"
5783 @ 54703:               GOTO   L_0006
5784 @ 54706:               LOCATE L_0007
5785 @ 54709:               PUSH   S
5786 @ 54712:               PUSHI  #0x0000003e
5787 @ 54717:               ASSPAR
5788 @ 54718:               CALL  
5789 @ 54719:               bf     L_0007

  1000            K = \2;  K = 1 %IF S('=')
5790 @ 54722:               LINE   1000 "regression-compile-tmp/hal70.imp"
5791 @ 54758:               PUSH   K
5792 @ 54761:               PUSHI  #0x00000002
5793 @ 54766:               NOT   
5794 @ 54767:               ASSVAL
5795 @ 54768:               LINE   1000 "regression-compile-tmp/hal70.imp"
5796 @ 54804:               PUSH   S
5797 @ 54807:               PUSHI  #0x0000003d
5798 @ 54812:               ASSPAR
5799 @ 54813:               CALL  
5800 @ 54814:               bf     L_000a
5801 @ 54817:               PUSH   K
5802 @ 54820:               PUSHI  #0x00000001
5803 @ 54825:               ASSVAL
5804 @ 54826:               LOCATE L_000a

  1001         %finish %ELSE %START
5805 @ 54829:               LINE   1001 "regression-compile-tmp/hal70.imp"
5806 @ 54865:               GOTO   L_0006
5807 @ 54868:               LOCATE L_0007

  1002            QUEUE(-12)
5808 @ 54871:               LINE   1002 "regression-compile-tmp/hal70.imp"
5809 @ 54907:               PUSH   QUEUE
5810 @ 54910:               PUSHI  #0x0000000c
5811 @ 54915:               NEGATE
5812 @ 54916:               ASSPAR
5813 @ 54917:               CALL  

  1003            ->ANDOR
5814 @ 54918:               LINE   1003 "regression-compile-tmp/hal70.imp"
5815 @ 54954:               JUMP   L_00e9

  1004         %FINISH
5816 @ 54957:               LINE   1004 "regression-compile-tmp/hal70.imp"
5817 @ 54993:               LOCATE L_0006

  1005         GET EXP
5818 @ 54996:               LINE   1005 "regression-compile-tmp/hal70.imp"
5819 @ 55032:               PUSH   GETEXP
5820 @ 55035:               CALL  

  1006         QUEUE(-11);  QUEUE(K)
5821 @ 55036:               LINE   1006 "regression-compile-tmp/hal70.imp"
5822 @ 55072:               PUSH   QUEUE
5823 @ 55075:               PUSHI  #0x0000000b
5824 @ 55080:               NEGATE
5825 @ 55081:               ASSPAR
5826 @ 55082:               CALL  
5827 @ 55083:               LINE   1006 "regression-compile-tmp/hal70.imp"
5828 @ 55119:               PUSH   QUEUE
5829 @ 55122:               PUSH   K
5830 @ 55125:               ASSPAR
5831 @ 55126:               CALL  

  1007  ANDOR:
5832 @ 55127:               LINE   1007 "regression-compile-tmp/hal70.imp"
5833 @ 55163:               LABEL  L_00e9

  1008         %EXIT %IF %NOT TAG
5834 @ 55166:               LINE   1008 "regression-compile-tmp/hal70.imp"
5835 @ 55202:               PUSH   TAG
5836 @ 55205:               CALL  
5837 @ 55206:               bt     L_0007
5838 @ 55209:               GOTO   L_0004
5839 @ 55212:               LOCATE L_0007

  1009         %IF TAG1 = AND %AND TAG2 = 0 %START
  1010  !!          %MONITOR 19 %IF J < 0
5840 @ 55215:               LINE   1009 "regression-compile-tmp/hal70.imp"
5841 @ 55251:               PUSH   TAG1
5842 @ 55254:               PUSH   AND
5843 @ 55257:               JUMPIF # L_0007
5844 @ 55261:               PUSH   TAG2
5845 @ 55264:               PUSHI  #0x00000000
5846 @ 55269:               JUMPIF # L_0007

  1011            J = 1;  QUEUE(-13)
5847 @ 55273:               LINE   1011 "regression-compile-tmp/hal70.imp"
5848 @ 55309:               PUSH   J
5849 @ 55312:               PUSHI  #0x00000001
5850 @ 55317:               ASSVAL
5851 @ 55318:               LINE   1011 "regression-compile-tmp/hal70.imp"
5852 @ 55354:               PUSH   QUEUE
5853 @ 55357:               PUSHI  #0x0000000d
5854 @ 55362:               NEGATE
5855 @ 55363:               ASSPAR
5856 @ 55364:               CALL  

  1012         %finish %ELSE %START
  1013  !!          %MONITOR 19 %IF TAG1 # OR %OR J > 0
5857 @ 55365:               LINE   1012 "regression-compile-tmp/hal70.imp"
5858 @ 55401:               GOTO   L_0006
5859 @ 55404:               LOCATE L_0007

  1014            J = -1;  QUEUE(-14)
5860 @ 55407:               LINE   1014 "regression-compile-tmp/hal70.imp"
5861 @ 55443:               PUSH   J
5862 @ 55446:               PUSHI  #0x00000001
5863 @ 55451:               NEGATE
5864 @ 55452:               ASSVAL
5865 @ 55453:               LINE   1014 "regression-compile-tmp/hal70.imp"
5866 @ 55489:               PUSH   QUEUE
5867 @ 55492:               PUSHI  #0x0000000e
5868 @ 55497:               NEGATE
5869 @ 55498:               ASSPAR
5870 @ 55499:               CALL  

  1015         %FINISH
5871 @ 55500:               LINE   1015 "regression-compile-tmp/hal70.imp"
5872 @ 55536:               LOCATE L_0006

  1016      %REPEAT
5873 @ 55539:               LINE   1016 "regression-compile-tmp/hal70.imp"
5874 @ 55575:               REPEAT L_0003
5875 @ 55578:               LOCATE L_0004

  1017      QUEUE(QVAL) %IF QVAL # 0
5876 @ 55581:               LINE   1017 "regression-compile-tmp/hal70.imp"
5877 @ 55617:               PUSH   QVAL
5878 @ 55620:               PUSHI  #0x00000000
5879 @ 55625:               JUMPIF = L_0004
5880 @ 55629:               PUSH   QUEUE
5881 @ 55632:               PUSH   QVAL
5882 @ 55635:               ASSPAR
5883 @ 55636:               CALL  
5884 @ 55637:               LOCATE L_0004

  1018      ASSEMBLE
5885 @ 55640:               LINE   1018 "regression-compile-tmp/hal70.imp"
5886 @ 55676:               PUSH   ASSEMBLE
5887 @ 55679:               CALL  

  1019      ATYPE=-1 %AND CREG=-1 %IF J < 0
5888 @ 55680:               LINE   1019 "regression-compile-tmp/hal70.imp"
5889 @ 55716:               PUSH   J
5890 @ 55719:               PUSHI  #0x00000000
5891 @ 55724:               JUMPIF >= L_0004
5892 @ 55728:               PUSH   ATYPE
5893 @ 55731:               PUSHI  #0x00000001
5894 @ 55736:               NEGATE
5895 @ 55737:               ASSVAL
5896 @ 55738:               PUSH   CREG
5897 @ 55741:               PUSHI  #0x00000001
5898 @ 55746:               NEGATE
5899 @ 55747:               ASSVAL
5900 @ 55748:               LOCATE L_0004

  1020  %END
  1021  
5901 @ 55751:               LINE   1020 "regression-compile-tmp/hal70.imp"
5902 @ 55787:            END    _lev0id0_CONDIT {lev=2 --> 1}

  1022  %ROUTINE GET INST
5903 @ 55788:            LINE   1022 "regression-compile-tmp/hal70.imp"
5904 @ 55824:            DEF    GETINST (_lev0id0_GETINST) p1=V_00e4 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
5905 @ 55843:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5906 @ 55844:               FINISH ) {lev=2}

  1023  %INTEGER I
  1024  !OPMASK VALUES
  1025  !    0100,0110,1100,1101,1110: DOUBLE WORD INSTRUCTIONS
  1026  !    1011,1001,0011,0010,0001: AS ABOVE BUT RELOCATABLE
  1027  !    0101: SINGLE WORD INSTRUCTION
  1028  !    0111: 2 OPERANDS TO COME
  1029  !    1111: 1 OPERAND TO COME
  1030  !    1010: MACRO
5907 @ 55845:               LINE   1023 "regression-compile-tmp/hal70.imp"
5908 @ 55881:               DEF    I p1=V_00e5 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

  1031      QUEUE(TYPE);  QUEUE(VAL)
5909 @ 55894:               LINE   1031 "regression-compile-tmp/hal70.imp"
5910 @ 55930:               PUSH   QUEUE
5911 @ 55933:               PUSH   TYPE
5912 @ 55936:               ASSPAR
5913 @ 55937:               CALL  
5914 @ 55938:               LINE   1031 "regression-compile-tmp/hal70.imp"
5915 @ 55974:               PUSH   QUEUE
5916 @ 55977:               PUSH   VAL
5917 @ 55980:               ASSPAR
5918 @ 55981:               CALL  

  1032      %RETURN %IF TYPE&16_7000 # 16_7000
5919 @ 55982:               LINE   1032 "regression-compile-tmp/hal70.imp"
5920 @ 56018:               PUSH   TYPE
5921 @ 56021:               PUSHI  #0x00007000
5922 @ 56026:               AND   
5923 @ 56027:               PUSHI  #0x00007000
5924 @ 56032:               JUMPIF = L_0004
5925 @ 56036:               RETURN
5926 @ 56037:               LOCATE L_0004

  1033      %RETURN %IF TERM # ' ';           !NO OPERAND FOLLOWING =>
5927 @ 56040:               LINE   1033 "regression-compile-tmp/hal70.imp"
5928 @ 56076:               PUSH   TERM
5929 @ 56079:               PUSHI  #0x00000020
5930 @ 56084:               JUMPIF = L_0004
5931 @ 56088:               RETURN
5932 @ 56089:               LOCATE L_0004

  1034      %CYCLE
5933 @ 56092:               LINE   1034 "regression-compile-tmp/hal70.imp"
5934 @ 56128:               LOCATE L_0003

  1035         GET EXP
5935 @ 56131:               LINE   1035 "regression-compile-tmp/hal70.imp"
5936 @ 56167:               PUSH   GETEXP
5937 @ 56170:               CALL  

  1036         QUEUE(-22)
5938 @ 56171:               LINE   1036 "regression-compile-tmp/hal70.imp"
5939 @ 56207:               PUSH   QUEUE
5940 @ 56210:               PUSHI  #0x00000016
5941 @ 56215:               NEGATE
5942 @ 56216:               ASSPAR
5943 @ 56217:               CALL  

  1037         %RETURN %IF %NOT S(',')
5944 @ 56218:               LINE   1037 "regression-compile-tmp/hal70.imp"
5945 @ 56254:               PUSH   S
5946 @ 56257:               PUSHI  #0x0000002c
5947 @ 56262:               ASSPAR
5948 @ 56263:               CALL  
5949 @ 56264:               bt     L_0007
5950 @ 56267:               RETURN
5951 @ 56268:               LOCATE L_0007

  1038      %REPEAT
5952 @ 56271:               LINE   1038 "regression-compile-tmp/hal70.imp"
5953 @ 56307:               REPEAT L_0003

  1039  %END
  1040  
5954 @ 56310:               LINE   1039 "regression-compile-tmp/hal70.imp"
5955 @ 56346:            END    _lev0id0_GETINST {lev=2 --> 1}

  1041  %ROUTINE READ LINE
5956 @ 56347:            LINE   1041 "regression-compile-tmp/hal70.imp"
5957 @ 56383:            DEF    READLINE (_lev0id0_READLINE) p1=V_00e5 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
5958 @ 56403:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5959 @ 56404:               FINISH ) {lev=2}

  1042  %INTEGER Q
5960 @ 56405:               LINE   1042 "regression-compile-tmp/hal70.imp"
5961 @ 56441:               DEF    Q p1=V_00e6 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

  1043      PUTPOS = STARTPOS
5962 @ 56454:               LINE   1043 "regression-compile-tmp/hal70.imp"
5963 @ 56490:               PUSH   PUTPOS
5964 @ 56493:               PUSH   STARTPOS
5965 @ 56496:               ASSVAL

  1044      %IF MP = 0 %START
5966 @ 56497:               LINE   1044 "regression-compile-tmp/hal70.imp"
5967 @ 56533:               PUSH   MP
5968 @ 56536:               PUSHI  #0x00000000
5969 @ 56541:               JUMPIF # L_0004

  1045         Q = 0;  PSEUDOLIM = 0
5970 @ 56545:               LINE   1045 "regression-compile-tmp/hal70.imp"
5971 @ 56581:               PUSH   Q
5972 @ 56584:               PUSHI  #0x00000000
5973 @ 56589:               ASSVAL
5974 @ 56590:               LINE   1045 "regression-compile-tmp/hal70.imp"
5975 @ 56626:               PUSH   PSEUDOLIM
5976 @ 56629:               PUSHI  #0x00000000
5977 @ 56634:               ASSVAL

  1046         %CYCLE
5978 @ 56635:               LINE   1046 "regression-compile-tmp/hal70.imp"
5979 @ 56671:               LOCATE L_0006

  1047            READ SYMBOL(SYM)
5980 @ 56674:               LINE   1047 "regression-compile-tmp/hal70.imp"
5981 @ 56710:               PUSH   READSYMBOL
5982 @ 56713:               PUSH   SYM
5983 @ 56716:               ASSPAR
5984 @ 56717:               CALL  

  1048            READ SYMBOL(SYM) %AND Q=Q!!128 %IF SYM = ''''
5985 @ 56718:               LINE   1048 "regression-compile-tmp/hal70.imp"
5986 @ 56754:               PUSH   SYM
5987 @ 56757:               PUSHI  #0x00000027
5988 @ 56762:               JUMPIF # L_000a
5989 @ 56766:               PUSH   READSYMBOL
5990 @ 56769:               PUSH   SYM
5991 @ 56772:               ASSPAR
5992 @ 56773:               CALL  
5993 @ 56774:               PUSH   Q
5994 @ 56777:               PUSH   Q
5995 @ 56780:               PUSHI  #0x00000080
5996 @ 56785:               XOR   
5997 @ 56786:               ASSVAL
5998 @ 56787:               LOCATE L_000a

  1049            %EXIT %IF SYM = NL
5999 @ 56790:               LINE   1049 "regression-compile-tmp/hal70.imp"
6000 @ 56826:               PUSH   SYM
6001 @ 56829:               PUSHI  #0x0000000a
6002 @ 56834:               JUMPIF # L_000a
6003 @ 56838:               GOTO   L_0007
6004 @ 56841:               LOCATE L_000a

  1050            SYM = SYM-32 %IF SYM-Q >= 96; !LOWER-CASE -> UPPER-CASE
6005 @ 56844:               LINE   1050 "regression-compile-tmp/hal70.imp"
6006 @ 56880:               PUSH   SYM
6007 @ 56883:               PUSH   Q
6008 @ 56886:               SUB   
6009 @ 56887:               PUSHI  #0x00000060
6010 @ 56892:               JUMPIF < L_000a
6011 @ 56896:               PUSH   SYM
6012 @ 56899:               PUSH   SYM
6013 @ 56902:               PUSHI  #0x00000020
6014 @ 56907:               SUB   
6015 @ 56908:               ASSVAL
6016 @ 56909:               LOCATE L_000a

  1051            SYM = SYM+Q
6017 @ 56912:               LINE   1051 "regression-compile-tmp/hal70.imp"
6018 @ 56948:               PUSH   SYM
6019 @ 56951:               PUSH   SYM
6020 @ 56954:               PUSH   Q
6021 @ 56957:               ADD   
6022 @ 56958:               ASSVAL

  1052            %EXIT %IF SYM = '/' %AND PSEUDOLIM # 0
6023 @ 56959:               LINE   1052 "regression-compile-tmp/hal70.imp"
6024 @ 56995:               PUSH   SYM
6025 @ 56998:               PUSHI  #0x0000002f
6026 @ 57003:               JUMPIF # L_000a
6027 @ 57007:               PUSH   PSEUDOLIM
6028 @ 57010:               PUSHI  #0x00000000
6029 @ 57015:               JUMPIF = L_000a
6030 @ 57019:               GOTO   L_0007
6031 @ 57022:               LOCATE L_000a

  1053            %IF SYM = ' ' %START
6032 @ 57025:               LINE   1053 "regression-compile-tmp/hal70.imp"
6033 @ 57061:               PUSH   SYM
6034 @ 57064:               PUSHI  #0x00000020
6035 @ 57069:               JUMPIF # L_000a

  1054               PSEUDOLIM = PUTPOS %IF PSEUDOLIM = 0
6036 @ 57073:               LINE   1054 "regression-compile-tmp/hal70.imp"
6037 @ 57109:               PUSH   PSEUDOLIM
6038 @ 57112:               PUSHI  #0x00000000
6039 @ 57117:               JUMPIF # L_000d
6040 @ 57121:               PUSH   PSEUDOLIM
6041 @ 57124:               PUSH   PUTPOS
6042 @ 57127:               ASSVAL
6043 @ 57128:               LOCATE L_000d

  1055            %finish %ELSE PSEUDOLIM = 0
6044 @ 57131:               LINE   1055 "regression-compile-tmp/hal70.imp"
6045 @ 57167:               GOTO   L_0009
6046 @ 57170:               LOCATE L_000a
6047 @ 57173:               PUSH   PSEUDOLIM
6048 @ 57176:               PUSHI  #0x00000000
6049 @ 57181:               ASSVAL
6050 @ 57182:               LOCATE L_0009

  1056            PUT CHAR(SYM)
6051 @ 57185:               LINE   1056 "regression-compile-tmp/hal70.imp"
6052 @ 57221:               PUSH   PUTCHAR
6053 @ 57224:               PUSH   SYM
6054 @ 57227:               ASSPAR
6055 @ 57228:               CALL  

  1057         %REPEAT
6056 @ 57229:               LINE   1057 "regression-compile-tmp/hal70.imp"
6057 @ 57265:               REPEAT L_0006
6058 @ 57268:               LOCATE L_0007

  1058         %IF PSEUDOLIM # 0 %START
6059 @ 57271:               LINE   1058 "regression-compile-tmp/hal70.imp"
6060 @ 57307:               PUSH   PSEUDOLIM
6061 @ 57310:               PUSHI  #0x00000000
6062 @ 57315:               JUMPIF = L_0007

  1059            Q = PUTPOS;  PUTPOS = PSEUDOLIM
6063 @ 57319:               LINE   1059 "regression-compile-tmp/hal70.imp"
6064 @ 57355:               PUSH   Q
6065 @ 57358:               PUSH   PUTPOS
6066 @ 57361:               ASSVAL
6067 @ 57362:               LINE   1059 "regression-compile-tmp/hal70.imp"
6068 @ 57398:               PUSH   PUTPOS
6069 @ 57401:               PUSH   PSEUDOLIM
6070 @ 57404:               ASSVAL

  1060            PUT CHAR(NL)
6071 @ 57405:               LINE   1060 "regression-compile-tmp/hal70.imp"
6072 @ 57441:               PUSH   PUTCHAR
6073 @ 57444:               PUSHI  #0x0000000a
6074 @ 57449:               ASSPAR
6075 @ 57450:               CALL  

  1061            PUTPOS = Q
6076 @ 57451:               LINE   1061 "regression-compile-tmp/hal70.imp"
6077 @ 57487:               PUSH   PUTPOS
6078 @ 57490:               PUSH   Q
6079 @ 57493:               ASSVAL

  1062         %FINISH
6080 @ 57494:               LINE   1062 "regression-compile-tmp/hal70.imp"
6081 @ 57530:               LOCATE L_0007

  1063         %CYCLE
6082 @ 57533:               LINE   1063 "regression-compile-tmp/hal70.imp"
6083 @ 57569:               LOCATE L_0006

  1064            PUT CHAR(SYM)
6084 @ 57572:               LINE   1064 "regression-compile-tmp/hal70.imp"
6085 @ 57608:               PUSH   PUTCHAR
6086 @ 57611:               PUSH   SYM
6087 @ 57614:               ASSPAR
6088 @ 57615:               CALL  

  1065            %EXIT %IF SYM = NL
6089 @ 57616:               LINE   1065 "regression-compile-tmp/hal70.imp"
6090 @ 57652:               PUSH   SYM
6091 @ 57655:               PUSHI  #0x0000000a
6092 @ 57660:               JUMPIF # L_000a
6093 @ 57664:               GOTO   L_0007
6094 @ 57667:               LOCATE L_000a

  1066            READ SYMBOL(SYM)
6095 @ 57670:               LINE   1066 "regression-compile-tmp/hal70.imp"
6096 @ 57706:               PUSH   READSYMBOL
6097 @ 57709:               PUSH   SYM
6098 @ 57712:               ASSPAR
6099 @ 57713:               CALL  

  1067         %REPEAT
6100 @ 57714:               LINE   1067 "regression-compile-tmp/hal70.imp"
6101 @ 57750:               REPEAT L_0006
6102 @ 57753:               LOCATE L_0007

  1068         PRINTPOS = STARTPOS
6103 @ 57756:               LINE   1068 "regression-compile-tmp/hal70.imp"
6104 @ 57792:               PUSH   PRINTPOS
6105 @ 57795:               PUSH   STARTPOS
6106 @ 57798:               ASSVAL

  1069      %finish %ELSE %START
6107 @ 57799:               LINE   1069 "regression-compile-tmp/hal70.imp"
6108 @ 57835:               GOTO   L_0003
6109 @ 57838:               LOCATE L_0004

  1070         GETPOS = INTEGER(MP)
6110 @ 57841:               LINE   1070 "regression-compile-tmp/hal70.imp"
6111 @ 57877:               PUSH   GETPOS
6112 @ 57880:               PUSH   INTEGER
6113 @ 57883:               PUSH   MP
6114 @ 57886:               ASSPAR
6115 @ 57887:               CALL  
6116 @ 57888:               ASSVAL

  1071         %IF CHAR(GETPOS) = 0 %START
6117 @ 57889:               LINE   1071 "regression-compile-tmp/hal70.imp"
6118 @ 57925:               PUSH   CHAR
6119 @ 57928:               PUSH   GETPOS
6120 @ 57931:               ASSPAR
6121 @ 57932:               CALL  
6122 @ 57933:               PUSHI  #0x00000000
6123 @ 57938:               JUMPIF # L_0007

  1072            QBASE = MP
6124 @ 57942:               LINE   1072 "regression-compile-tmp/hal70.imp"
6125 @ 57978:               PUSH   QBASE
6126 @ 57981:               PUSH   MP
6127 @ 57984:               ASSVAL

  1073            GETPOS = INTEGER(MP+2)
6128 @ 57985:               LINE   1073 "regression-compile-tmp/hal70.imp"
6129 @ 58021:               PUSH   GETPOS
6130 @ 58024:               PUSH   INTEGER
6131 @ 58027:               PUSH   MP
6132 @ 58030:               PUSHI  #0x00000002
6133 @ 58035:               ADD   
6134 @ 58036:               ASSPAR
6135 @ 58037:               CALL  
6136 @ 58038:               ASSVAL

  1074            STARTPOS = INTEGER(MP+3)
6137 @ 58039:               LINE   1074 "regression-compile-tmp/hal70.imp"
6138 @ 58075:               PUSH   STARTPOS
6139 @ 58078:               PUSH   INTEGER
6140 @ 58081:               PUSH   MP
6141 @ 58084:               PUSHI  #0x00000003
6142 @ 58089:               ADD   
6143 @ 58090:               ASSPAR
6144 @ 58091:               CALL  
6145 @ 58092:               ASSVAL

  1075            MP = INTEGER(MP+4)
6146 @ 58093:               LINE   1075 "regression-compile-tmp/hal70.imp"
6147 @ 58129:               PUSH   MP
6148 @ 58132:               PUSH   INTEGER
6149 @ 58135:               PUSH   MP
6150 @ 58138:               PUSHI  #0x00000004
6151 @ 58143:               ADD   
6152 @ 58144:               ASSPAR
6153 @ 58145:               CALL  
6154 @ 58146:               ASSVAL

  1076            %IF MP < 0 %START
6155 @ 58147:               LINE   1076 "regression-compile-tmp/hal70.imp"
6156 @ 58183:               PUSH   MP
6157 @ 58186:               PUSHI  #0x00000000
6158 @ 58191:               JUMPIF >= L_000a

  1077               MP = MP-8_700000
6159 @ 58195:               LINE   1077 "regression-compile-tmp/hal70.imp"
6160 @ 58231:               PUSH   MP
6161 @ 58234:               PUSH   MP
6162 @ 58237:               PUSHI  #0x00038000
6163 @ 58242:               SUB   
6164 @ 58243:               ASSVAL

  1078               %WHILE INTEGER(NP)&16_8000 = 0 %CYCLE
6165 @ 58244:               LINE   1078 "regression-compile-tmp/hal70.imp"
6166 @ 58280:               LOCATE L_000c
6167 @ 58283:               PUSH   INTEGER
6168 @ 58286:               PUSH   NP
6169 @ 58289:               ASSPAR
6170 @ 58290:               CALL  
6171 @ 58291:               PUSHI  #0x00008000
6172 @ 58296:               AND   
6173 @ 58297:               PUSHI  #0x00000000
6174 @ 58302:               JUMPIF # L_000d

  1079                  FAULT('C');  NP = NP+2
6175 @ 58306:               LINE   1079 "regression-compile-tmp/hal70.imp"
6176 @ 58342:               PUSH   FAULT
6177 @ 58345:               PUSHI  #0x00000043
6178 @ 58350:               ASSPAR
6179 @ 58351:               CALL  
6180 @ 58352:               LINE   1079 "regression-compile-tmp/hal70.imp"
6181 @ 58388:               PUSH   NP
6182 @ 58391:               PUSH   NP
6183 @ 58394:               PUSHI  #0x00000002
6184 @ 58399:               ADD   
6185 @ 58400:               ASSVAL

  1080               %REPEAT
6186 @ 58401:               LINE   1080 "regression-compile-tmp/hal70.imp"
6187 @ 58437:               REPEAT L_000c
6188 @ 58440:               LOCATE L_000d

  1081               SET LAB(LOC)
6189 @ 58443:               LINE   1081 "regression-compile-tmp/hal70.imp"
6190 @ 58479:               PUSH   SETLAB
6191 @ 58482:               PUSH   LOC
6192 @ 58485:               ASSPAR
6193 @ 58486:               CALL  

  1082            %FINISH
6194 @ 58487:               LINE   1082 "regression-compile-tmp/hal70.imp"
6195 @ 58523:               LOCATE L_000a

  1083            PRINTPOS = 0 %IF LIST&2 # 0
6196 @ 58526:               LINE   1083 "regression-compile-tmp/hal70.imp"
6197 @ 58562:               PUSH   LIST
6198 @ 58565:               PUSHI  #0x00000002
6199 @ 58570:               AND   
6200 @ 58571:               PUSHI  #0x00000000
6201 @ 58576:               JUMPIF = L_000a
6202 @ 58580:               PUSH   PRINTPOS
6203 @ 58583:               PUSHI  #0x00000000
6204 @ 58588:               ASSVAL
6205 @ 58589:               LOCATE L_000a

  1084            GET SYM;                    !TERMINATOR
6206 @ 58592:               LINE   1084 "regression-compile-tmp/hal70.imp"
6207 @ 58628:               PUSH   GETSYM
6208 @ 58631:               CALL  

  1085            GET SYM %IF SYM = ';'
6209 @ 58632:               LINE   1085 "regression-compile-tmp/hal70.imp"
6210 @ 58668:               PUSH   SYM
6211 @ 58671:               PUSHI  #0x0000003b
6212 @ 58676:               JUMPIF # L_000a
6213 @ 58680:               PUSH   GETSYM
6214 @ 58683:               CALL  
6215 @ 58684:               LOCATE L_000a

  1086            %RETURN
6216 @ 58687:               LINE   1086 "regression-compile-tmp/hal70.imp"
6217 @ 58723:               RETURN

  1087         %FINISH
6218 @ 58724:               LINE   1087 "regression-compile-tmp/hal70.imp"
6219 @ 58760:               LOCATE L_0007

  1088         PRINTPOS = STARTPOS %IF LIST&2 # 0
6220 @ 58763:               LINE   1088 "regression-compile-tmp/hal70.imp"
6221 @ 58799:               PUSH   LIST
6222 @ 58802:               PUSHI  #0x00000002
6223 @ 58807:               AND   
6224 @ 58808:               PUSHI  #0x00000000
6225 @ 58813:               JUMPIF = L_0007
6226 @ 58817:               PUSH   PRINTPOS
6227 @ 58820:               PUSH   STARTPOS
6228 @ 58823:               ASSVAL
6229 @ 58824:               LOCATE L_0007

  1089         QQ = 0
6230 @ 58827:               LINE   1089 "regression-compile-tmp/hal70.imp"
6231 @ 58863:               PUSH   QQ
6232 @ 58866:               PUSHI  #0x00000000
6233 @ 58871:               ASSVAL

  1090         %CYCLE
6234 @ 58872:               LINE   1090 "regression-compile-tmp/hal70.imp"
6235 @ 58908:               LOCATE L_0006

  1091            SYM = CHAR(GETPOS);  GETPOS = GETPOS+1
6236 @ 58911:               LINE   1091 "regression-compile-tmp/hal70.imp"
6237 @ 58947:               PUSH   SYM
6238 @ 58950:               PUSH   CHAR
6239 @ 58953:               PUSH   GETPOS
6240 @ 58956:               ASSPAR
6241 @ 58957:               CALL  
6242 @ 58958:               ASSVAL
6243 @ 58959:               LINE   1091 "regression-compile-tmp/hal70.imp"
6244 @ 58995:               PUSH   GETPOS
6245 @ 58998:               PUSH   GETPOS
6246 @ 59001:               PUSHI  #0x00000001
6247 @ 59006:               ADD   
6248 @ 59007:               ASSVAL

  1092            %IF TAG %START
6249 @ 59008:               LINE   1092 "regression-compile-tmp/hal70.imp"
6250 @ 59044:               PUSH   TAG
6251 @ 59047:               CALL  
6252 @ 59048:               bf     L_000a

  1093               SYM=TERM %AND GETPOS=GETPOS-1 %IF TERM = ' '
6253 @ 59051:               LINE   1093 "regression-compile-tmp/hal70.imp"
6254 @ 59087:               PUSH   TERM
6255 @ 59090:               PUSHI  #0x00000020
6256 @ 59095:               JUMPIF # L_000d
6257 @ 59099:               PUSH   SYM
6258 @ 59102:               PUSH   TERM
6259 @ 59105:               ASSVAL
6260 @ 59106:               PUSH   GETPOS
6261 @ 59109:               PUSH   GETPOS
6262 @ 59112:               PUSHI  #0x00000001
6263 @ 59117:               SUB   
6264 @ 59118:               ASSVAL
6265 @ 59119:               LOCATE L_000d

  1094               TYPE = INTEGER(MP);  VAL = GETPOS-1
6266 @ 59122:               LINE   1094 "regression-compile-tmp/hal70.imp"
6267 @ 59158:               PUSH   TYPE
6268 @ 59161:               PUSH   INTEGER
6269 @ 59164:               PUSH   MP
6270 @ 59167:               ASSPAR
6271 @ 59168:               CALL  
6272 @ 59169:               ASSVAL
6273 @ 59170:               LINE   1094 "regression-compile-tmp/hal70.imp"
6274 @ 59206:               PUSH   VAL
6275 @ 59209:               PUSH   GETPOS
6276 @ 59212:               PUSHI  #0x00000001
6277 @ 59217:               SUB   
6278 @ 59218:               ASSVAL

  1095               LOOKUP(4)
6279 @ 59219:               LINE   1095 "regression-compile-tmp/hal70.imp"
6280 @ 59255:               PUSH   LOOKUP
6281 @ 59258:               PUSHI  #0x00000004
6282 @ 59263:               ASSPAR
6283 @ 59264:               CALL  

  1096               %WHILE TYPE # VAL %CYCLE
6284 @ 59265:               LINE   1096 "regression-compile-tmp/hal70.imp"
6285 @ 59301:               LOCATE L_000c
6286 @ 59304:               PUSH   TYPE
6287 @ 59307:               PUSH   VAL
6288 @ 59310:               JUMPIF = L_000d

  1097                  PUT CHAR(CHAR(TYPE))
6289 @ 59314:               LINE   1097 "regression-compile-tmp/hal70.imp"
6290 @ 59350:               PUSH   PUTCHAR
6291 @ 59353:               PUSH   CHAR
6292 @ 59356:               PUSH   TYPE
6293 @ 59359:               ASSPAR
6294 @ 59360:               CALL  
6295 @ 59361:               ASSPAR
6296 @ 59362:               CALL  

  1098                  TYPE = TYPE+1
6297 @ 59363:               LINE   1098 "regression-compile-tmp/hal70.imp"
6298 @ 59399:               PUSH   TYPE
6299 @ 59402:               PUSH   TYPE
6300 @ 59405:               PUSHI  #0x00000001
6301 @ 59410:               ADD   
6302 @ 59411:               ASSVAL

  1099               %REPEAT
6303 @ 59412:               LINE   1099 "regression-compile-tmp/hal70.imp"
6304 @ 59448:               REPEAT L_000c
6305 @ 59451:               LOCATE L_000d

  1100            %FINISH
6306 @ 59454:               LINE   1100 "regression-compile-tmp/hal70.imp"
6307 @ 59490:               LOCATE L_000a

  1101            PUT CHAR(SYM)
  1102  !!          INTEGER(MP) = GETPOS
6308 @ 59493:               LINE   1101 "regression-compile-tmp/hal70.imp"
6309 @ 59529:               PUSH   PUTCHAR
6310 @ 59532:               PUSH   SYM
6311 @ 59535:               ASSPAR
6312 @ 59536:               CALL  

  1103            set INTEGER(MP, GETPOS)
6313 @ 59537:               LINE   1103 "regression-compile-tmp/hal70.imp"
6314 @ 59573:               PUSH   SETINTEGER
6315 @ 59576:               PUSH   MP
6316 @ 59579:               ASSPAR
6317 @ 59580:               PUSH   GETPOS
6318 @ 59583:               ASSPAR
6319 @ 59584:               CALL  

  1104            %EXIT %IF SYM = NL
6320 @ 59585:               LINE   1104 "regression-compile-tmp/hal70.imp"
6321 @ 59621:               PUSH   SYM
6322 @ 59624:               PUSHI  #0x0000000a
6323 @ 59629:               JUMPIF # L_000a
6324 @ 59633:               GOTO   L_0007
6325 @ 59636:               LOCATE L_000a

  1105         %REPEAT
6326 @ 59639:               LINE   1105 "regression-compile-tmp/hal70.imp"
6327 @ 59675:               REPEAT L_0006
6328 @ 59678:               LOCATE L_0007

  1106         QQ = '?'
6329 @ 59681:               LINE   1106 "regression-compile-tmp/hal70.imp"
6330 @ 59717:               PUSH   QQ
6331 @ 59720:               PUSHI  #0x0000003f
6332 @ 59725:               ASSVAL

  1107      %FINISH
6333 @ 59726:               LINE   1107 "regression-compile-tmp/hal70.imp"
6334 @ 59762:               LOCATE L_0003

  1108      QBASE = (PUTPOS+1)>>1
6335 @ 59765:               LINE   1108 "regression-compile-tmp/hal70.imp"
6336 @ 59801:               PUSH   QBASE
6337 @ 59804:               PUSH   PUTPOS
6338 @ 59807:               PUSHI  #0x00000001
6339 @ 59812:               ADD   
6340 @ 59813:               PUSHI  #0x00000001
6341 @ 59818:               RSH   
6342 @ 59819:               ASSVAL

  1109      GETPOS = STARTPOS;  GET SYM
6343 @ 59820:               LINE   1109 "regression-compile-tmp/hal70.imp"
6344 @ 59856:               PUSH   GETPOS
6345 @ 59859:               PUSH   STARTPOS
6346 @ 59862:               ASSVAL
6347 @ 59863:               LINE   1109 "regression-compile-tmp/hal70.imp"
6348 @ 59899:               PUSH   GETSYM
6349 @ 59902:               CALL  

  1110  %END
  1111  
6350 @ 59903:               LINE   1110 "regression-compile-tmp/hal70.imp"
6351 @ 59939:            END    _lev0id0_READLINE {lev=2 --> 1}

  1112  %ROUTINE SCAN ARG
  1113  !    SET TYPE,VAL TO START,LIM OF ARG IF NOT NULL
6352 @ 59940:            LINE   1112 "regression-compile-tmp/hal70.imp"
6353 @ 59976:            DEF    SCANARG (_lev0id0_SCANARG) p1=V_00e6 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
6354 @ 59995:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6355 @ 59996:               FINISH ) {lev=2}

  1114  %INTEGER I,J
6356 @ 59997:               LINE   1114 "regression-compile-tmp/hal70.imp"
6357 @ 60033:               DEF    I p1=V_00e7 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
6358 @ 60046:               DEF    J p1=V_00e8 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

  1115      %RETURN %IF SYM='I' %AND CHAR(GETPOS)='F' %AND CHAR(GETPOS+1)=' '
6359 @ 60059:               LINE   1115 "regression-compile-tmp/hal70.imp"
6360 @ 60095:               PUSH   SYM
6361 @ 60098:               PUSHI  #0x00000049
6362 @ 60103:               JUMPIF # L_0004
6363 @ 60107:               PUSH   CHAR
6364 @ 60110:               PUSH   GETPOS
6365 @ 60113:               ASSPAR
6366 @ 60114:               CALL  
6367 @ 60115:               PUSHI  #0x00000046
6368 @ 60120:               JUMPIF # L_0004
6369 @ 60124:               PUSH   CHAR
6370 @ 60127:               PUSH   GETPOS
6371 @ 60130:               PUSHI  #0x00000001
6372 @ 60135:               ADD   
6373 @ 60136:               ASSPAR
6374 @ 60137:               CALL  
6375 @ 60138:               PUSHI  #0x00000020
6376 @ 60143:               JUMPIF # L_0004
6377 @ 60147:               RETURN
6378 @ 60148:               LOCATE L_0004

  1116      I = GETPOS-1;  I = GETPOS %IF SYM = '['
6379 @ 60151:               LINE   1116 "regression-compile-tmp/hal70.imp"
6380 @ 60187:               PUSH   I
6381 @ 60190:               PUSH   GETPOS
6382 @ 60193:               PUSHI  #0x00000001
6383 @ 60198:               SUB   
6384 @ 60199:               ASSVAL
6385 @ 60200:               LINE   1116 "regression-compile-tmp/hal70.imp"
6386 @ 60236:               PUSH   SYM
6387 @ 60239:               PUSHI  #0x0000005b
6388 @ 60244:               JUMPIF # L_0004
6389 @ 60248:               PUSH   I
6390 @ 60251:               PUSH   GETPOS
6391 @ 60254:               ASSVAL
6392 @ 60255:               LOCATE L_0004

  1117      J = 0
6393 @ 60258:               LINE   1117 "regression-compile-tmp/hal70.imp"
6394 @ 60294:               PUSH   J
6395 @ 60297:               PUSHI  #0x00000000
6396 @ 60302:               ASSVAL

  1118      %CYCLE
6397 @ 60303:               LINE   1118 "regression-compile-tmp/hal70.imp"
6398 @ 60339:               LOCATE L_0003

  1119         %EXIT %IF SYM = NL
6399 @ 60342:               LINE   1119 "regression-compile-tmp/hal70.imp"
6400 @ 60378:               PUSH   SYM
6401 @ 60381:               PUSHI  #0x0000000a
6402 @ 60386:               JUMPIF # L_0007
6403 @ 60390:               GOTO   L_0004
6404 @ 60393:               LOCATE L_0007

  1120         %EXIT %IF (SYM=' ' %OR SYM=',' %OR SYM=';') %AND J<=0
6405 @ 60396:               LINE   1120 "regression-compile-tmp/hal70.imp"
6406 @ 60432:               PUSH   SYM
6407 @ 60435:               PUSHI  #0x00000020
6408 @ 60440:               JUMPIF = L_0008
6409 @ 60444:               PUSH   SYM
6410 @ 60447:               PUSHI  #0x0000002c
6411 @ 60452:               JUMPIF = L_0008
6412 @ 60456:               PUSH   SYM
6413 @ 60459:               PUSHI  #0x0000003b
6414 @ 60464:               JUMPIF # L_0007
6415 @ 60468:               LOCATE L_0008
6416 @ 60471:               PUSH   J
6417 @ 60474:               PUSHI  #0x00000000
6418 @ 60479:               JUMPIF > L_0007
6419 @ 60483:               GOTO   L_0004
6420 @ 60486:               LOCATE L_0007

  1121         J = J+1 %IF SYM = '['
6421 @ 60489:               LINE   1121 "regression-compile-tmp/hal70.imp"
6422 @ 60525:               PUSH   SYM
6423 @ 60528:               PUSHI  #0x0000005b
6424 @ 60533:               JUMPIF # L_0007
6425 @ 60537:               PUSH   J
6426 @ 60540:               PUSH   J
6427 @ 60543:               PUSHI  #0x00000001
6428 @ 60548:               ADD   
6429 @ 60549:               ASSVAL
6430 @ 60550:               LOCATE L_0007

  1122         %IF SYM = ']' %START
6431 @ 60553:               LINE   1122 "regression-compile-tmp/hal70.imp"
6432 @ 60589:               PUSH   SYM
6433 @ 60592:               PUSHI  #0x0000005d
6434 @ 60597:               JUMPIF # L_0007

  1123            J = J-1;  %EXIT %IF J = 0
6435 @ 60601:               LINE   1123 "regression-compile-tmp/hal70.imp"
6436 @ 60637:               PUSH   J
6437 @ 60640:               PUSH   J
6438 @ 60643:               PUSHI  #0x00000001
6439 @ 60648:               SUB   
6440 @ 60649:               ASSVAL
6441 @ 60650:               LINE   1123 "regression-compile-tmp/hal70.imp"
6442 @ 60686:               PUSH   J
6443 @ 60689:               PUSHI  #0x00000000
6444 @ 60694:               JUMPIF # L_000a
6445 @ 60698:               GOTO   L_0004
6446 @ 60701:               LOCATE L_000a

  1124         %FINISH
6447 @ 60704:               LINE   1124 "regression-compile-tmp/hal70.imp"
6448 @ 60740:               LOCATE L_0007

  1125         SYM = CHAR(GETPOS);  GETPOS = GETPOS+1
6449 @ 60743:               LINE   1125 "regression-compile-tmp/hal70.imp"
6450 @ 60779:               PUSH   SYM
6451 @ 60782:               PUSH   CHAR
6452 @ 60785:               PUSH   GETPOS
6453 @ 60788:               ASSPAR
6454 @ 60789:               CALL  
6455 @ 60790:               ASSVAL
6456 @ 60791:               LINE   1125 "regression-compile-tmp/hal70.imp"
6457 @ 60827:               PUSH   GETPOS
6458 @ 60830:               PUSH   GETPOS
6459 @ 60833:               PUSHI  #0x00000001
6460 @ 60838:               ADD   
6461 @ 60839:               ASSVAL

  1126      %REPEAT
6462 @ 60840:               LINE   1126 "regression-compile-tmp/hal70.imp"
6463 @ 60876:               REPEAT L_0003
6464 @ 60879:               LOCATE L_0004

  1127      %IF GETPOS-1 # I %START
6465 @ 60882:               LINE   1127 "regression-compile-tmp/hal70.imp"
6466 @ 60918:               PUSH   GETPOS
6467 @ 60921:               PUSHI  #0x00000001
6468 @ 60926:               SUB   
6469 @ 60927:               PUSH   I
6470 @ 60930:               JUMPIF = L_0004

  1128         TYPE = I;  VAL = GETPOS-1
6471 @ 60934:               LINE   1128 "regression-compile-tmp/hal70.imp"
6472 @ 60970:               PUSH   TYPE
6473 @ 60973:               PUSH   I
6474 @ 60976:               ASSVAL
6475 @ 60977:               LINE   1128 "regression-compile-tmp/hal70.imp"
6476 @ 61013:               PUSH   VAL
6477 @ 61016:               PUSH   GETPOS
6478 @ 61019:               PUSHI  #0x00000001
6479 @ 61024:               SUB   
6480 @ 61025:               ASSVAL

  1129      %FINISH
6481 @ 61026:               LINE   1129 "regression-compile-tmp/hal70.imp"
6482 @ 61062:               LOCATE L_0004

  1130      GET SYM %IF SYM = ']'
6483 @ 61065:               LINE   1130 "regression-compile-tmp/hal70.imp"
6484 @ 61101:               PUSH   SYM
6485 @ 61104:               PUSHI  #0x0000005d
6486 @ 61109:               JUMPIF # L_0004
6487 @ 61113:               PUSH   GETSYM
6488 @ 61116:               CALL  
6489 @ 61117:               LOCATE L_0004

  1131  %END
  1132  
  1133  
6490 @ 61120:               LINE   1131 "regression-compile-tmp/hal70.imp"
6491 @ 61156:            END    _lev0id0_SCANARG {lev=2 --> 1}

  1134  %ROUTINE SET ACC
6492 @ 61157:            LINE   1134 "regression-compile-tmp/hal70.imp"
6493 @ 61193:            DEF    SETACC (_lev0id0_SETACC) p1=V_00e7 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
6494 @ 61211:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6495 @ 61212:               FINISH ) {lev=2}

  1135  %INTEGER I
6496 @ 61213:               LINE   1135 "regression-compile-tmp/hal70.imp"
6497 @ 61249:               DEF    I p1=V_00e8 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

  1136      ACC = -1;  ATYPE = -1;  CREG = -1
6498 @ 61262:               LINE   1136 "regression-compile-tmp/hal70.imp"
6499 @ 61298:               PUSH   ACC
6500 @ 61301:               PUSHI  #0x00000001
6501 @ 61306:               NEGATE
6502 @ 61307:               ASSVAL
6503 @ 61308:               LINE   1136 "regression-compile-tmp/hal70.imp"
6504 @ 61344:               PUSH   ATYPE
6505 @ 61347:               PUSHI  #0x00000001
6506 @ 61352:               NEGATE
6507 @ 61353:               ASSVAL
6508 @ 61354:               LINE   1136 "regression-compile-tmp/hal70.imp"
6509 @ 61390:               PUSH   CREG
6510 @ 61393:               PUSHI  #0x00000001
6511 @ 61398:               NEGATE
6512 @ 61399:               ASSVAL

  1137      I = TEMPS
6513 @ 61400:               LINE   1137 "regression-compile-tmp/hal70.imp"
6514 @ 61436:               PUSH   I
6515 @ 61439:               PUSH   TEMPS
6516 @ 61442:               ASSVAL

  1138      %RETURN %IF I = 0
6517 @ 61443:               LINE   1138 "regression-compile-tmp/hal70.imp"
6518 @ 61479:               PUSH   I
6519 @ 61482:               PUSHI  #0x00000000
6520 @ 61487:               JUMPIF # L_0004
6521 @ 61491:               RETURN
6522 @ 61492:               LOCATE L_0004

  1139      %CYCLE
6523 @ 61495:               LINE   1139 "regression-compile-tmp/hal70.imp"
6524 @ 61531:               LOCATE L_0003

  1140         ACC = ACC+1
6525 @ 61534:               LINE   1140 "regression-compile-tmp/hal70.imp"
6526 @ 61570:               PUSH   ACC
6527 @ 61573:               PUSH   ACC
6528 @ 61576:               PUSHI  #0x00000001
6529 @ 61581:               ADD   
6530 @ 61582:               ASSVAL

  1141         %RETURN %IF I&1 # 0
6531 @ 61583:               LINE   1141 "regression-compile-tmp/hal70.imp"
6532 @ 61619:               PUSH   I
6533 @ 61622:               PUSHI  #0x00000001
6534 @ 61627:               AND   
6535 @ 61628:               PUSHI  #0x00000000
6536 @ 61633:               JUMPIF = L_0007
6537 @ 61637:               RETURN
6538 @ 61638:               LOCATE L_0007

  1142         I = I>>1
6539 @ 61641:               LINE   1142 "regression-compile-tmp/hal70.imp"
6540 @ 61677:               PUSH   I
6541 @ 61680:               PUSH   I
6542 @ 61683:               PUSHI  #0x00000001
6543 @ 61688:               RSH   
6544 @ 61689:               ASSVAL

  1143      %REPEAT
6545 @ 61690:               LINE   1143 "regression-compile-tmp/hal70.imp"
6546 @ 61726:               REPEAT L_0003

  1144  %END
  1145  
  1146  !MAIN PROGRAM
  1147  
  1148  !RADIX 36 CONSTANTS
6547 @ 61729:               LINE   1144 "regression-compile-tmp/hal70.imp"
6548 @ 61765:            END    _lev0id0_SETACC {lev=2 --> 1}

  1149  %OWNINTEGER B=2184, IF=9991, ELS=5950, E=5403, FIN=6907, ISH=10490
6549 @ 61766:            LINE   1149 "regression-compile-tmp/hal70.imp"
6550 @ 61802:            PUSHI  #0x00000888
6551 @ 61807:            DEF    B p1=V_00e8 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
6552 @ 61820:            INIT   1
6553 @ 61823:            PUSHI  #0x00002707
6554 @ 61828:            DEF    IF p1=V_00e9 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
6555 @ 61842:            INIT   1
6556 @ 61845:            PUSHI  #0x0000173e
6557 @ 61850:            DEF    ELS p1=V_00ea 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
6558 @ 61865:            INIT   1
6559 @ 61868:            PUSHI  #0x0000151b
6560 @ 61873:            DEF    E p1=V_00eb 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
6561 @ 61886:            INIT   1
6562 @ 61889:            PUSHI  #0x00001afb
6563 @ 61894:            DEF    FIN p1=V_00ec 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
6564 @ 61909:            INIT   1
6565 @ 61912:            PUSHI  #0x000028fa
6566 @ 61917:            DEF    ISH p1=V_00ed 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
6567 @ 61932:            INIT   1

  1150  %OWNINTEGER JUM=11642, P=17206, PS=17983, DEF=4605, END=6009
  1151  
6568 @ 61935:            LINE   1150 "regression-compile-tmp/hal70.imp"
6569 @ 61971:            PUSHI  #0x00002d7a
6570 @ 61976:            DEF    JUM p1=V_00ee 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
6571 @ 61991:            INIT   1
6572 @ 61994:            PUSHI  #0x00004336
6573 @ 61999:            DEF    P p1=V_00ef 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
6574 @ 62012:            INIT   1
6575 @ 62015:            PUSHI  #0x0000463f
6576 @ 62020:            DEF    PS p1=V_00f0 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
6577 @ 62034:            INIT   1
6578 @ 62037:            PUSHI  #0x000011fd
6579 @ 62042:            DEF    DEF p1=V_00f1 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
6580 @ 62057:            INIT   1
6581 @ 62060:            PUSHI  #0x00001779
6582 @ 62065:            DEF    END p1=V_00f2 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
6583 @ 62080:            INIT   1

  1152  %INTEGER I,J,K
  1153  !!%FAULT 19 ->ERR;                      !RECOGNITION ERROR
  1154  !!%FAULT 9 ->BEND;                      !INPUT ENDED
  1155  
6584 @ 62083:            LINE   1152 "regression-compile-tmp/hal70.imp"
6585 @ 62119:            DEF    I p1=V_00f3 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
6586 @ 62132:            DEF    J p1=V_00f4 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
6587 @ 62145:            DEF    K p1=V_00f5 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

  1156      %on %event 9,1 %start
6588 @ 62158:            LINE   1156 "regression-compile-tmp/hal70.imp"
6589 @ 62194:            ON     MASK=0202 L_0004

  1157         ->err %if event_event = 9
6590 @ 62200:            LINE   1157 "regression-compile-tmp/hal70.imp"
6591 @ 62236:            PUSH   EVENT
6592 @ 62239:            CALL  
6593 @ 62240:            SELECT 1
6594 @ 62243:            PUSHI  #0x00000009
6595 @ 62248:            JUMPIF # L_0007
6596 @ 62252:            JUMP   L_00f6
6597 @ 62255:            LOCATE L_0007

  1158         ->bend %if event_event = 1 %and event_sub = 9
6598 @ 62258:            LINE   1158 "regression-compile-tmp/hal70.imp"
6599 @ 62294:            PUSH   EVENT
6600 @ 62297:            CALL  
6601 @ 62298:            SELECT 1
6602 @ 62301:            PUSHI  #0x00000001
6603 @ 62306:            JUMPIF # L_0007
6604 @ 62310:            PUSH   EVENT
6605 @ 62313:            CALL  
6606 @ 62314:            SELECT 2
6607 @ 62317:            PUSHI  #0x00000009
6608 @ 62322:            JUMPIF # L_0007
6609 @ 62326:            JUMP   L_00f7
6610 @ 62329:            LOCATE L_0007

  1159         %stop
6611 @ 62332:            LINE   1159 "regression-compile-tmp/hal70.imp"
6612 @ 62368:            STOP  

  1160      %finish
  1161      
6613 @ 62369:            LINE   1160 "regression-compile-tmp/hal70.imp"
6614 @ 62405:            LOCATE L_0004

  1162      open input(MAIN, "interdata/test.hal")
6615 @ 62408:            LINE   1162 "regression-compile-tmp/hal70.imp"
6616 @ 62444:            PUSH   OPENINPUT
6617 @ 62447:            PUSH   MAIN
6618 @ 62450:            ASSPAR
6619 @ 62451:            PUSHS  "interdata/test.hal"
6620 @ 62471:            ASSPAR
6621 @ 62472:            CALL  

  1163      open input(PRE, "interdata/hal70.def")
6622 @ 62473:            LINE   1163 "regression-compile-tmp/hal70.imp"
6623 @ 62509:            PUSH   OPENINPUT
6624 @ 62512:            PUSH   PRE
6625 @ 62515:            ASSPAR
6626 @ 62516:            PUSHS  "interdata/hal70.def"
6627 @ 62537:            ASSPAR
6628 @ 62538:            CALL  

  1164      open output(BIN, "interdata/test.bin")
6629 @ 62539:            LINE   1164 "regression-compile-tmp/hal70.imp"
6630 @ 62575:            PUSH   OPENOUTPUT
6631 @ 62578:            PUSH   BIN
6632 @ 62581:            ASSPAR
6633 @ 62582:            PUSHS  "interdata/test.bin"
6634 @ 62602:            ASSPAR
6635 @ 62603:            CALL  

  1165      open output(LIS, "interdata/test.lis")
6636 @ 62604:            LINE   1165 "regression-compile-tmp/hal70.imp"
6637 @ 62640:            PUSH   OPENOUTPUT
6638 @ 62643:            PUSH   LIS
6639 @ 62646:            ASSPAR
6640 @ 62647:            PUSHS  "interdata/test.lis"
6641 @ 62667:            ASSPAR
6642 @ 62668:            CALL  

  1166      select output(0)
  1167  
6643 @ 62669:            LINE   1166 "regression-compile-tmp/hal70.imp"
6644 @ 62705:            PUSH   SELECTOUTPUT
6645 @ 62708:            PUSHI  #0x00000000
6646 @ 62713:            ASSPAR
6647 @ 62714:            CALL  

  1168      %CYCLE I = 1,1,SBOUND
6648 @ 62715:            LINE   1168 "regression-compile-tmp/hal70.imp"
6649 @ 62751:            PUSH   I
6650 @ 62754:            PUSHI  #0x00000001
6651 @ 62759:            PUSHI  #0x00007f00
6652 @ 62764:            PUSHI  #0x00000001
6653 @ 62769:            FOR    L_0003

  1169         STORE(I) = 0
6654 @ 62772:            LINE   1169 "regression-compile-tmp/hal70.imp"
6655 @ 62808:            PUSH   STORE
6656 @ 62811:            PUSH   I
6657 @ 62814:            ACCESS
6658 @ 62815:            PUSHI  #0x00000000
6659 @ 62820:            ASSVAL

  1170      %REPEAT
  1171  !!    CODEPOS = ADDR(STORE(1))
6660 @ 62821:            LINE   1170 "regression-compile-tmp/hal70.imp"
6661 @ 62857:            REPEAT L_0003
6662 @ 62860:            LOCATE L_0004

  1172  {}    CODEPOS = 1
6663 @ 62863:            LINE   1172 "regression-compile-tmp/hal70.imp"
6664 @ 62899:            PUSH   CODEPOS
6665 @ 62902:            PUSHI  #0x00000001
6666 @ 62907:            ASSVAL

  1173      MACLIM = (CODEPOS+20)<<1
  1174  !!    STORELIM = ADDR(STORE(SBOUND))
6667 @ 62908:            LINE   1173 "regression-compile-tmp/hal70.imp"
6668 @ 62944:            PUSH   MACLIM
6669 @ 62947:            PUSH   CODEPOS
6670 @ 62950:            PUSHI  #0x00000014
6671 @ 62955:            ADD   
6672 @ 62956:            PUSHI  #0x00000001
6673 @ 62961:            LSH   
6674 @ 62962:            ASSVAL

  1175  {}    STORELIM = sbound
6675 @ 62963:            LINE   1175 "regression-compile-tmp/hal70.imp"
6676 @ 62999:            PUSH   STORELIM
6677 @ 63002:            PUSHI  #0x00007f00
6678 @ 63007:            ASSVAL

  1176      NP = STORELIM
6679 @ 63008:            LINE   1176 "regression-compile-tmp/hal70.imp"
6680 @ 63044:            PUSH   NP
6681 @ 63047:            PUSH   STORELIM
6682 @ 63050:            ASSVAL

  1177      LABLIM = NP-60
6683 @ 63051:            LINE   1177 "regression-compile-tmp/hal70.imp"
6684 @ 63087:            PUSH   LABLIM
6685 @ 63090:            PUSH   NP
6686 @ 63093:            PUSHI  #0x0000003c
6687 @ 63098:            SUB   
6688 @ 63099:            ASSVAL

  1178      BP = LABLIM
6689 @ 63100:            LINE   1178 "regression-compile-tmp/hal70.imp"
6690 @ 63136:            PUSH   BP
6691 @ 63139:            PUSH   LABLIM
6692 @ 63142:            ASSVAL

  1179      DEFLIM = BP-(SBOUND>>2)
6693 @ 63143:            LINE   1179 "regression-compile-tmp/hal70.imp"
6694 @ 63179:            PUSH   DEFLIM
6695 @ 63182:            PUSH   BP
6696 @ 63185:            PUSHI  #0x00007f00
6697 @ 63190:            PUSHI  #0x00000002
6698 @ 63195:            RSH   
6699 @ 63196:            SUB   
6700 @ 63197:            ASSVAL

  1180      DEFMIN = DEFLIM
  1181  !!    INTEGER(BP) = DEFLIM
6701 @ 63198:            LINE   1180 "regression-compile-tmp/hal70.imp"
6702 @ 63234:            PUSH   DEFMIN
6703 @ 63237:            PUSH   DEFLIM
6704 @ 63240:            ASSVAL

  1182      set INTEGER(BP, DEFLIM)
6705 @ 63241:            LINE   1182 "regression-compile-tmp/hal70.imp"
6706 @ 63277:            PUSH   SETINTEGER
6707 @ 63280:            PUSH   BP
6708 @ 63283:            ASSPAR
6709 @ 63284:            PUSH   DEFLIM
6710 @ 63287:            ASSPAR
6711 @ 63288:            CALL  

  1183      SELECT INPUT(PRE)
6712 @ 63289:            LINE   1183 "regression-compile-tmp/hal70.imp"
6713 @ 63325:            PUSH   SELECTINPUT
6714 @ 63328:            PUSH   PRE
6715 @ 63331:            ASSPAR
6716 @ 63332:            CALL  

  1184  DO PASS:
6717 @ 63333:            LINE   1184 "regression-compile-tmp/hal70.imp"
6718 @ 63369:            LABEL  L_00f8

  1185      STARTPOS = MACLIM
6719 @ 63372:            LINE   1185 "regression-compile-tmp/hal70.imp"
6720 @ 63408:            PUSH   STARTPOS
6721 @ 63411:            PUSH   MACLIM
6722 @ 63414:            ASSVAL

  1186      MP = 0
6723 @ 63415:            LINE   1186 "regression-compile-tmp/hal70.imp"
6724 @ 63451:            PUSH   MP
6725 @ 63454:            PUSHI  #0x00000000
6726 @ 63459:            ASSVAL

  1187      ALMAX = DEFLIM
6727 @ 63460:            LINE   1187 "regression-compile-tmp/hal70.imp"
6728 @ 63496:            PUSH   ALMAX
6729 @ 63499:            PUSH   DEFLIM
6730 @ 63502:            ASSVAL

  1188      LABMIN = LABLIM
6731 @ 63503:            LINE   1188 "regression-compile-tmp/hal70.imp"
6732 @ 63539:            PUSH   LABMIN
6733 @ 63542:            PUSH   LABLIM
6734 @ 63545:            ASSVAL

  1189      ASSCOND = 1;  SKIP = 0
6735 @ 63546:            LINE   1189 "regression-compile-tmp/hal70.imp"
6736 @ 63582:            PUSH   ASSCOND
6737 @ 63585:            PUSHI  #0x00000001
6738 @ 63590:            ASSVAL
6739 @ 63591:            LINE   1189 "regression-compile-tmp/hal70.imp"
6740 @ 63627:            PUSH   SKIP
6741 @ 63630:            PUSHI  #0x00000000
6742 @ 63635:            ASSVAL

  1190      LOCTYPE = MEMMASK+RELMASK;  LOC = 0
6743 @ 63636:            LINE   1190 "regression-compile-tmp/hal70.imp"
6744 @ 63672:            PUSH   LOCTYPE
6745 @ 63675:            PUSH   MEMMASK
6746 @ 63678:            PUSH   RELMASK
6747 @ 63681:            ADD   
6748 @ 63682:            ASSVAL
6749 @ 63683:            LINE   1190 "regression-compile-tmp/hal70.imp"
6750 @ 63719:            PUSH   LOC
6751 @ 63722:            PUSHI  #0x00000000
6752 @ 63727:            ASSVAL

  1191      SET ACC
6753 @ 63728:            LINE   1191 "regression-compile-tmp/hal70.imp"
6754 @ 63764:            PUSH   SETACC
6755 @ 63767:            CALL  

  1192  READ: FSYM = ' ';  FAULTPOS = 0
6756 @ 63768:            LINE   1192 "regression-compile-tmp/hal70.imp"
6757 @ 63804:            LABEL  L_00f9
6758 @ 63807:            LINE   1192 "regression-compile-tmp/hal70.imp"
6759 @ 63843:            PUSH   FSYM
6760 @ 63846:            PUSHI  #0x00000020
6761 @ 63851:            ASSVAL
6762 @ 63852:            LINE   1192 "regression-compile-tmp/hal70.imp"
6763 @ 63888:            PUSH   FAULTPOS
6764 @ 63891:            PUSHI  #0x00000000
6765 @ 63896:            ASSVAL

  1193      READ LINE
6766 @ 63897:            LINE   1193 "regression-compile-tmp/hal70.imp"
6767 @ 63933:            PUSH   READLINE
6768 @ 63936:            CALL  

  1194  NEXT:
6769 @ 63937:            LINE   1194 "regression-compile-tmp/hal70.imp"
6770 @ 63973:            LABEL  L_00fa

  1195      DREG = -1
6771 @ 63976:            LINE   1195 "regression-compile-tmp/hal70.imp"
6772 @ 64012:            PUSH   DREG
6773 @ 64015:            PUSHI  #0x00000001
6774 @ 64020:            NEGATE
6775 @ 64021:            ASSVAL

  1196      MODE = 0
6776 @ 64022:            LINE   1196 "regression-compile-tmp/hal70.imp"
6777 @ 64058:            PUSH   MODE
6778 @ 64061:            PUSHI  #0x00000000
6779 @ 64066:            ASSVAL

  1197      PEND = 0;  COND = 0
6780 @ 64067:            LINE   1197 "regression-compile-tmp/hal70.imp"
6781 @ 64103:            PUSH   PEND
6782 @ 64106:            PUSHI  #0x00000000
6783 @ 64111:            ASSVAL
6784 @ 64112:            LINE   1197 "regression-compile-tmp/hal70.imp"
6785 @ 64148:            PUSH   COND
6786 @ 64151:            PUSHI  #0x00000000
6787 @ 64156:            ASSVAL

  1198      QSTART = QBASE;  QLIM = QSTART
6788 @ 64157:            LINE   1198 "regression-compile-tmp/hal70.imp"
6789 @ 64193:            PUSH   QSTART
6790 @ 64196:            PUSH   QBASE
6791 @ 64199:            ASSVAL
6792 @ 64200:            LINE   1198 "regression-compile-tmp/hal70.imp"
6793 @ 64236:            PUSH   QLIM
6794 @ 64239:            PUSH   QSTART
6795 @ 64242:            ASSVAL

  1199      FLAG = 0
6796 @ 64243:            LINE   1199 "regression-compile-tmp/hal70.imp"
6797 @ 64279:            PUSH   FLAG
6798 @ 64282:            PUSHI  #0x00000000
6799 @ 64287:            ASSVAL

  1200      %IF S('$') %START
6800 @ 64288:            LINE   1200 "regression-compile-tmp/hal70.imp"
6801 @ 64324:            PUSH   S
6802 @ 64327:            PUSHI  #0x00000024
6803 @ 64332:            ASSPAR
6804 @ 64333:            CALL  
6805 @ 64334:            bf     L_0004

  1201         ->NEWPAGE %IF SYM = '/'
6806 @ 64337:            LINE   1201 "regression-compile-tmp/hal70.imp"
6807 @ 64373:            PUSH   SYM
6808 @ 64376:            PUSHI  #0x0000002f
6809 @ 64381:            JUMPIF # L_0007
6810 @ 64385:            JUMP   L_00fb
6811 @ 64388:            LOCATE L_0007

  1202         ->ERR %IF %NOT TAG
6812 @ 64391:            LINE   1202 "regression-compile-tmp/hal70.imp"
6813 @ 64427:            PUSH   TAG
6814 @ 64430:            CALL  
6815 @ 64431:            bt     L_0007
6816 @ 64434:            JUMP   L_00f6
6817 @ 64437:            LOCATE L_0007

  1203         ->ASSIF %IF TAG1 = IF
6818 @ 64440:            LINE   1203 "regression-compile-tmp/hal70.imp"
6819 @ 64476:            PUSH   TAG1
6820 @ 64479:            PUSH   IF
6821 @ 64482:            JUMPIF # L_0007
6822 @ 64486:            JUMP   L_00fc
6823 @ 64489:            LOCATE L_0007

  1204         ->ASSELSE %IF TAG1 = ELS
6824 @ 64492:            LINE   1204 "regression-compile-tmp/hal70.imp"
6825 @ 64528:            PUSH   TAG1
6826 @ 64531:            PUSH   ELS
6827 @ 64534:            JUMPIF # L_0007
6828 @ 64538:            JUMP   L_00fd
6829 @ 64541:            LOCATE L_0007

  1205         ->ASSFIN %IF TAG1 = FIN
6830 @ 64544:            LINE   1205 "regression-compile-tmp/hal70.imp"
6831 @ 64580:            PUSH   TAG1
6832 @ 64583:            PUSH   FIN
6833 @ 64586:            JUMPIF # L_0007
6834 @ 64590:            JUMP   L_00fe
6835 @ 64593:            LOCATE L_0007

  1206         ->LEND %IF SKIP # 0
6836 @ 64596:            LINE   1206 "regression-compile-tmp/hal70.imp"
6837 @ 64632:            PUSH   SKIP
6838 @ 64635:            PUSHI  #0x00000000
6839 @ 64640:            JUMPIF = L_0007
6840 @ 64644:            JUMP   L_00ff
6841 @ 64647:            LOCATE L_0007

  1207         ->DEFINE %IF TAG1 = DEF
6842 @ 64650:            LINE   1207 "regression-compile-tmp/hal70.imp"
6843 @ 64686:            PUSH   TAG1
6844 @ 64689:            PUSH   DEF
6845 @ 64692:            JUMPIF # L_0007
6846 @ 64696:            JUMP   L_0100
6847 @ 64699:            LOCATE L_0007

  1208         ->DEFINE %IF TAG1 = 19625;     !RED
6848 @ 64702:            LINE   1208 "regression-compile-tmp/hal70.imp"
6849 @ 64738:            PUSH   TAG1
6850 @ 64741:            PUSHI  #0x00004ca9
6851 @ 64746:            JUMPIF # L_0007
6852 @ 64750:            JUMP   L_0100
6853 @ 64753:            LOCATE L_0007

  1209         ->LISTC %IF TAG1 = 13350;      !LIS
6854 @ 64756:            LINE   1209 "regression-compile-tmp/hal70.imp"
6855 @ 64792:            PUSH   TAG1
6856 @ 64795:            PUSHI  #0x00003426
6857 @ 64800:            JUMPIF # L_0007
6858 @ 64804:            JUMP   L_0101
6859 @ 64807:            LOCATE L_0007

  1210         ->TEMP %IF TAG1 = 21780;       !TEM
6860 @ 64810:            LINE   1210 "regression-compile-tmp/hal70.imp"
6861 @ 64846:            PUSH   TAG1
6862 @ 64849:            PUSHI  #0x00005514
6863 @ 64854:            JUMPIF # L_0007
6864 @ 64858:            JUMP   L_0102
6865 @ 64861:            LOCATE L_0007

  1211         ->LOCC %IF TAG1 = 13556;       !LOC
6866 @ 64864:            LINE   1211 "regression-compile-tmp/hal70.imp"
6867 @ 64900:            PUSH   TAG1
6868 @ 64903:            PUSHI  #0x000034f4
6869 @ 64908:            JUMPIF # L_0007
6870 @ 64912:            JUMP   L_0103
6871 @ 64915:            LOCATE L_0007

  1212         ->LOCC %IF TAG1 = 1917;        !ASS
6872 @ 64918:            LINE   1212 "regression-compile-tmp/hal70.imp"
6873 @ 64954:            PUSH   TAG1
6874 @ 64957:            PUSHI  #0x0000077d
6875 @ 64962:            JUMPIF # L_0007
6876 @ 64966:            JUMP   L_0103
6877 @ 64969:            LOCATE L_0007

  1213         ->SAVC %IF TAG1 = 20568;       !SAV
6878 @ 64972:            LINE   1213 "regression-compile-tmp/hal70.imp"
6879 @ 65008:            PUSH   TAG1
6880 @ 65011:            PUSHI  #0x00005058
6881 @ 65016:            JUMPIF # L_0007
6882 @ 65020:            JUMP   L_0104
6883 @ 65023:            LOCATE L_0007

  1214         ->MACDEF %IF TAG1 = 14111;     !MAC
6884 @ 65026:            LINE   1214 "regression-compile-tmp/hal70.imp"
6885 @ 65062:            PUSH   TAG1
6886 @ 65065:            PUSHI  #0x0000371f
6887 @ 65070:            JUMPIF # L_0007
6888 @ 65074:            JUMP   L_0105
6889 @ 65077:            LOCATE L_0007

  1215         ->BEGIN %IF TAG1 = 2460;       !BEG
6890 @ 65080:            LINE   1215 "regression-compile-tmp/hal70.imp"
6891 @ 65116:            PUSH   TAG1
6892 @ 65119:            PUSHI  #0x0000099c
6893 @ 65124:            JUMPIF # L_0007
6894 @ 65128:            JUMP   L_0106
6895 @ 65131:            LOCATE L_0007

  1216         ->BEND %IF TAG1 = END
6896 @ 65134:            LINE   1216 "regression-compile-tmp/hal70.imp"
6897 @ 65170:            PUSH   TAG1
6898 @ 65173:            PUSH   END
6899 @ 65176:            JUMPIF # L_0007
6900 @ 65180:            JUMP   L_00f7
6901 @ 65183:            LOCATE L_0007

  1217         FAULT('U')
6902 @ 65186:            LINE   1217 "regression-compile-tmp/hal70.imp"
6903 @ 65222:            PUSH   FAULT
6904 @ 65225:            PUSHI  #0x00000055
6905 @ 65230:            ASSPAR
6906 @ 65231:            CALL  

  1218         ->LEND
6907 @ 65232:            LINE   1218 "regression-compile-tmp/hal70.imp"
6908 @ 65268:            JUMP   L_00ff

  1219      %FINISH
6909 @ 65271:            LINE   1219 "regression-compile-tmp/hal70.imp"
6910 @ 65307:            LOCATE L_0004

  1220      ->LEND %IF SKIP # 0 %OR SYM = '/'
6911 @ 65310:            LINE   1220 "regression-compile-tmp/hal70.imp"
6912 @ 65346:            PUSH   SKIP
6913 @ 65349:            PUSHI  #0x00000000
6914 @ 65354:            JUMPIF # L_0005
6915 @ 65358:            PUSH   SYM
6916 @ 65361:            PUSHI  #0x0000002f
6917 @ 65366:            JUMPIF # L_0004
6918 @ 65370:            LOCATE L_0005
6919 @ 65373:            JUMP   L_00ff
6920 @ 65376:            LOCATE L_0004

  1221      ->LEND %IF SYM = NL
6921 @ 65379:            LINE   1221 "regression-compile-tmp/hal70.imp"
6922 @ 65415:            PUSH   SYM
6923 @ 65418:            PUSHI  #0x0000000a
6924 @ 65423:            JUMPIF # L_0004
6925 @ 65427:            JUMP   L_00ff
6926 @ 65430:            LOCATE L_0004

  1222      %IF TAG %START
6927 @ 65433:            LINE   1222 "regression-compile-tmp/hal70.imp"
6928 @ 65469:            PUSH   TAG
6929 @ 65472:            CALL  
6930 @ 65473:            bf     L_0004

  1223         ->LABDEF %IF TERM = ':'
6931 @ 65476:            LINE   1223 "regression-compile-tmp/hal70.imp"
6932 @ 65512:            PUSH   TERM
6933 @ 65515:            PUSHI  #0x0000003a
6934 @ 65520:            JUMPIF # L_0007
6935 @ 65524:            JUMP   L_0107
6936 @ 65527:            LOCATE L_0007

  1224         MODE = 1
6937 @ 65530:            LINE   1224 "regression-compile-tmp/hal70.imp"
6938 @ 65566:            PUSH   MODE
6939 @ 65569:            PUSHI  #0x00000001
6940 @ 65574:            ASSVAL

  1225         ->ASSIGN %IF TERM = '(' %OR SYM = '='
6941 @ 65575:            LINE   1225 "regression-compile-tmp/hal70.imp"
6942 @ 65611:            PUSH   TERM
6943 @ 65614:            PUSHI  #0x00000028
6944 @ 65619:            JUMPIF = L_0008
6945 @ 65623:            PUSH   SYM
6946 @ 65626:            PUSHI  #0x0000003d
6947 @ 65631:            JUMPIF # L_0007
6948 @ 65635:            LOCATE L_0008
6949 @ 65638:            JUMP   L_0108
6950 @ 65641:            LOCATE L_0007

  1226         ->JUMP %IF TAG1 = JUM %AND (TAG2=P %OR TAG2=PS)
6951 @ 65644:            LINE   1226 "regression-compile-tmp/hal70.imp"
6952 @ 65680:            PUSH   TAG1
6953 @ 65683:            PUSH   JUM
6954 @ 65686:            JUMPIF # L_0007
6955 @ 65690:            PUSH   TAG2
6956 @ 65693:            PUSH   P
6957 @ 65696:            JUMPIF = L_0008
6958 @ 65700:            PUSH   TAG2
6959 @ 65703:            PUSH   PS
6960 @ 65706:            JUMPIF # L_0007
6961 @ 65710:            LOCATE L_0008
6962 @ 65713:            JUMP   L_0109
6963 @ 65716:            LOCATE L_0007

  1227         ->IFC %IF TAG1 = IF
6964 @ 65719:            LINE   1227 "regression-compile-tmp/hal70.imp"
6965 @ 65755:            PUSH   TAG1
6966 @ 65758:            PUSH   IF
6967 @ 65761:            JUMPIF # L_0007
6968 @ 65765:            JUMP   L_010a
6969 @ 65768:            LOCATE L_0007

  1228         ->ELSE %IF TAG1 = ELS %AND TAG2 = E
6970 @ 65771:            LINE   1228 "regression-compile-tmp/hal70.imp"
6971 @ 65807:            PUSH   TAG1
6972 @ 65810:            PUSH   ELS
6973 @ 65813:            JUMPIF # L_0007
6974 @ 65817:            PUSH   TAG2
6975 @ 65820:            PUSH   E
6976 @ 65823:            JUMPIF # L_0007
6977 @ 65827:            JUMP   L_010b
6978 @ 65830:            LOCATE L_0007

  1229         ->FINISH %IF TAG1 = FIN %AND TAG2 = ISH
6979 @ 65833:            LINE   1229 "regression-compile-tmp/hal70.imp"
6980 @ 65869:            PUSH   TAG1
6981 @ 65872:            PUSH   FIN
6982 @ 65875:            JUMPIF # L_0007
6983 @ 65879:            PUSH   TAG2
6984 @ 65882:            PUSH   ISH
6985 @ 65885:            JUMPIF # L_0007
6986 @ 65889:            JUMP   L_010c
6987 @ 65892:            LOCATE L_0007

  1230         ->WHILE %IF TAG1 = 25106 %AND TAG2 = 13173
6988 @ 65895:            LINE   1230 "regression-compile-tmp/hal70.imp"
6989 @ 65931:            PUSH   TAG1
6990 @ 65934:            PUSHI  #0x00006212
6991 @ 65939:            JUMPIF # L_0007
6992 @ 65943:            PUSH   TAG2
6993 @ 65946:            PUSHI  #0x00003375
6994 @ 65951:            JUMPIF # L_0007
6995 @ 65955:            JUMP   L_010d
6996 @ 65958:            LOCATE L_0007

  1231         ->CYCLE %IF TAG1 = 4269 %AND TAG2 = 13173
6997 @ 65961:            LINE   1231 "regression-compile-tmp/hal70.imp"
6998 @ 65997:            PUSH   TAG1
6999 @ 66000:            PUSHI  #0x000010ad
7000 @ 66005:            JUMPIF # L_0007
7001 @ 66009:            PUSH   TAG2
7002 @ 66012:            PUSHI  #0x00003375
7003 @ 66017:            JUMPIF # L_0007
7004 @ 66021:            JUMP   L_010e
7005 @ 66024:            LOCATE L_0007

  1232         ->REPEAT %IF TAG1 = 19637 %AND TAG2 = 5544
7006 @ 66027:            LINE   1232 "regression-compile-tmp/hal70.imp"
7007 @ 66063:            PUSH   TAG1
7008 @ 66066:            PUSHI  #0x00004cb5
7009 @ 66071:            JUMPIF # L_0007
7010 @ 66075:            PUSH   TAG2
7011 @ 66078:            PUSHI  #0x000015a8
7012 @ 66083:            JUMPIF # L_0007
7013 @ 66087:            JUMP   L_010f
7014 @ 66090:            LOCATE L_0007

  1233         MODE=-2 %AND ->DATA %IF TAG1 = B
7015 @ 66093:            LINE   1233 "regression-compile-tmp/hal70.imp"
7016 @ 66129:            PUSH   TAG1
7017 @ 66132:            PUSH   B
7018 @ 66135:            JUMPIF # L_0007
7019 @ 66139:            PUSH   MODE
7020 @ 66142:            PUSHI  #0x00000002
7021 @ 66147:            NEGATE
7022 @ 66148:            ASSVAL
7023 @ 66149:            JUMP   L_0110
7024 @ 66152:            LOCATE L_0007

  1234         TYPE = UMASK;  LOOKUP(0)
7025 @ 66155:            LINE   1234 "regression-compile-tmp/hal70.imp"
7026 @ 66191:            PUSH   TYPE
7027 @ 66194:            PUSH   UMASK
7028 @ 66197:            ASSVAL
7029 @ 66198:            LINE   1234 "regression-compile-tmp/hal70.imp"
7030 @ 66234:            PUSH   LOOKUP
7031 @ 66237:            PUSHI  #0x00000000
7032 @ 66242:            ASSPAR
7033 @ 66243:            CALL  

  1235         ->MACCALL %IF TYPE&OPMASK = MACRO
7034 @ 66244:            LINE   1235 "regression-compile-tmp/hal70.imp"
7035 @ 66280:            PUSH   TYPE
7036 @ 66283:            PUSH   OPMASK
7037 @ 66286:            AND   
7038 @ 66287:            PUSH   MACRO
7039 @ 66290:            JUMPIF # L_0007
7040 @ 66294:            JUMP   L_0111
7041 @ 66297:            LOCATE L_0007

  1236         ->MINST %IF TYPE&OPMASK # 0
7042 @ 66300:            LINE   1236 "regression-compile-tmp/hal70.imp"
7043 @ 66336:            PUSH   TYPE
7044 @ 66339:            PUSH   OPMASK
7045 @ 66342:            AND   
7046 @ 66343:            PUSHI  #0x00000000
7047 @ 66348:            JUMPIF = L_0007
7048 @ 66352:            JUMP   L_0112
7049 @ 66355:            LOCATE L_0007

  1237         FAULT('U') %AND ->LEND %IF TYPE&UMASK # 0
7050 @ 66358:            LINE   1237 "regression-compile-tmp/hal70.imp"
7051 @ 66394:            PUSH   TYPE
7052 @ 66397:            PUSH   UMASK
7053 @ 66400:            AND   
7054 @ 66401:            PUSHI  #0x00000000
7055 @ 66406:            JUMPIF = L_0007
7056 @ 66410:            PUSH   FAULT
7057 @ 66413:            PUSHI  #0x00000055
7058 @ 66418:            ASSPAR
7059 @ 66419:            CALL  
7060 @ 66420:            JUMP   L_00ff
7061 @ 66423:            LOCATE L_0007

  1238         PEND = -1
7062 @ 66426:            LINE   1238 "regression-compile-tmp/hal70.imp"
7063 @ 66462:            PUSH   PEND
7064 @ 66465:            PUSHI  #0x00000001
7065 @ 66470:            NEGATE
7066 @ 66471:            ASSVAL

  1239      %FINISH
7067 @ 66472:            LINE   1239 "regression-compile-tmp/hal70.imp"
7068 @ 66508:            LOCATE L_0004

  1240      MODE = -1
7069 @ 66511:            LINE   1240 "regression-compile-tmp/hal70.imp"
7070 @ 66547:            PUSH   MODE
7071 @ 66550:            PUSHI  #0x00000001
7072 @ 66555:            NEGATE
7073 @ 66556:            ASSVAL

  1241  DATA:
7074 @ 66557:            LINE   1241 "regression-compile-tmp/hal70.imp"
7075 @ 66593:            LABEL  L_0110

  1242      %CYCLE
7076 @ 66596:            LINE   1242 "regression-compile-tmp/hal70.imp"
7077 @ 66632:            LOCATE L_0003

  1243         GET EXP;  ASSEMBLE
7078 @ 66635:            LINE   1243 "regression-compile-tmp/hal70.imp"
7079 @ 66671:            PUSH   GETEXP
7080 @ 66674:            CALL  
7081 @ 66675:            LINE   1243 "regression-compile-tmp/hal70.imp"
7082 @ 66711:            PUSH   ASSEMBLE
7083 @ 66714:            CALL  

  1244         FAULT('I') %IF TYPE&REGXMASK # 0
7084 @ 66715:            LINE   1244 "regression-compile-tmp/hal70.imp"
7085 @ 66751:            PUSH   TYPE
7086 @ 66754:            PUSH   REGXMASK
7087 @ 66757:            AND   
7088 @ 66758:            PUSHI  #0x00000000
7089 @ 66763:            JUMPIF = L_0007
7090 @ 66767:            PUSH   FAULT
7091 @ 66770:            PUSHI  #0x00000049
7092 @ 66775:            ASSPAR
7093 @ 66776:            CALL  
7094 @ 66777:            LOCATE L_0007

  1245         I = 1
7095 @ 66780:            LINE   1245 "regression-compile-tmp/hal70.imp"
7096 @ 66816:            PUSH   I
7097 @ 66819:            PUSHI  #0x00000001
7098 @ 66824:            ASSVAL

  1246         %IF S('$') %START
7099 @ 66825:            LINE   1246 "regression-compile-tmp/hal70.imp"
7100 @ 66861:            PUSH   S
7101 @ 66864:            PUSHI  #0x00000024
7102 @ 66869:            ASSPAR
7103 @ 66870:            CALL  
7104 @ 66871:            bf     L_0007

  1247            I = VAL %IF VAL < 1000
7105 @ 66874:            LINE   1247 "regression-compile-tmp/hal70.imp"
7106 @ 66910:            PUSH   VAL
7107 @ 66913:            PUSHI  #0x000003e8
7108 @ 66918:            JUMPIF >= L_000a
7109 @ 66922:            PUSH   I
7110 @ 66925:            PUSH   VAL
7111 @ 66928:            ASSVAL
7112 @ 66929:            LOCATE L_000a

  1248            QLIM = QSTART
7113 @ 66932:            LINE   1248 "regression-compile-tmp/hal70.imp"
7114 @ 66968:            PUSH   QLIM
7115 @ 66971:            PUSH   QSTART
7116 @ 66974:            ASSVAL

  1249            GET EXP;  ASSEMBLE
7117 @ 66975:            LINE   1249 "regression-compile-tmp/hal70.imp"
7118 @ 67011:            PUSH   GETEXP
7119 @ 67014:            CALL  
7120 @ 67015:            LINE   1249 "regression-compile-tmp/hal70.imp"
7121 @ 67051:            PUSH   ASSEMBLE
7122 @ 67054:            CALL  

  1250         %FINISH
7123 @ 67055:            LINE   1250 "regression-compile-tmp/hal70.imp"
7124 @ 67091:            LOCATE L_0007

  1251         %WHILE I > 0 %CYCLE
7125 @ 67094:            LINE   1251 "regression-compile-tmp/hal70.imp"
7126 @ 67130:            LOCATE L_0006
7127 @ 67133:            PUSH   I
7128 @ 67136:            PUSHI  #0x00000000
7129 @ 67141:            JUMPIF <= L_0007

  1252            %IF MODE # -1 %START
7130 @ 67145:            LINE   1252 "regression-compile-tmp/hal70.imp"
7131 @ 67181:            PUSH   MODE
7132 @ 67184:            PUSHI  #0x00000001
7133 @ 67189:            NEGATE
7134 @ 67190:            JUMPIF = L_000a

  1253               FAULT('T') %IF VAL&16_FF00 # 0
7135 @ 67194:            LINE   1253 "regression-compile-tmp/hal70.imp"
7136 @ 67230:            PUSH   VAL
7137 @ 67233:            PUSHI  #0x0000ff00
7138 @ 67238:            AND   
7139 @ 67239:            PUSHI  #0x00000000
7140 @ 67244:            JUMPIF = L_000d
7141 @ 67248:            PUSH   FAULT
7142 @ 67251:            PUSHI  #0x00000054
7143 @ 67256:            ASSPAR
7144 @ 67257:            CALL  
7145 @ 67258:            LOCATE L_000d

  1254               %IF MODE = -2 %START
7146 @ 67261:            LINE   1254 "regression-compile-tmp/hal70.imp"
7147 @ 67297:            PUSH   MODE
7148 @ 67300:            PUSHI  #0x00000002
7149 @ 67305:            NEGATE
7150 @ 67306:            JUMPIF # L_000d

  1255                  J = VAL<<8;  MODE = -3
7151 @ 67310:            LINE   1255 "regression-compile-tmp/hal70.imp"
7152 @ 67346:            PUSH   J
7153 @ 67349:            PUSH   VAL
7154 @ 67352:            PUSHI  #0x00000008
7155 @ 67357:            LSH   
7156 @ 67358:            ASSVAL
7157 @ 67359:            LINE   1255 "regression-compile-tmp/hal70.imp"
7158 @ 67395:            PUSH   MODE
7159 @ 67398:            PUSHI  #0x00000003
7160 @ 67403:            NEGATE
7161 @ 67404:            ASSVAL

  1256               %finish %ELSE %START
7162 @ 67405:            LINE   1256 "regression-compile-tmp/hal70.imp"
7163 @ 67441:            GOTO   L_000c
7164 @ 67444:            LOCATE L_000d

  1257                  VAL = VAL+J;  MODE = -2
7165 @ 67447:            LINE   1257 "regression-compile-tmp/hal70.imp"
7166 @ 67483:            PUSH   VAL
7167 @ 67486:            PUSH   VAL
7168 @ 67489:            PUSH   J
7169 @ 67492:            ADD   
7170 @ 67493:            ASSVAL
7171 @ 67494:            LINE   1257 "regression-compile-tmp/hal70.imp"
7172 @ 67530:            PUSH   MODE
7173 @ 67533:            PUSHI  #0x00000002
7174 @ 67538:            NEGATE
7175 @ 67539:            ASSVAL

  1258                  PLANT VAL;  VAL = VAL&255
7176 @ 67540:            LINE   1258 "regression-compile-tmp/hal70.imp"
7177 @ 67576:            PUSH   PLANTVAL
7178 @ 67579:            CALL  
7179 @ 67580:            LINE   1258 "regression-compile-tmp/hal70.imp"
7180 @ 67616:            PUSH   VAL
7181 @ 67619:            PUSH   VAL
7182 @ 67622:            PUSHI  #0x000000ff
7183 @ 67627:            AND   
7184 @ 67628:            ASSVAL

  1259               %FINISH
7185 @ 67629:            LINE   1259 "regression-compile-tmp/hal70.imp"
7186 @ 67665:            LOCATE L_000c

  1260            %finish %ELSE %START
7187 @ 67668:            LINE   1260 "regression-compile-tmp/hal70.imp"
7188 @ 67704:            GOTO   L_0009
7189 @ 67707:            LOCATE L_000a

  1261               PLANT VAL
7190 @ 67710:            LINE   1261 "regression-compile-tmp/hal70.imp"
7191 @ 67746:            PUSH   PLANTVAL
7192 @ 67749:            CALL  

  1262            %FINISH
7193 @ 67750:            LINE   1262 "regression-compile-tmp/hal70.imp"
7194 @ 67786:            LOCATE L_0009

  1263            I = I-1
7195 @ 67789:            LINE   1263 "regression-compile-tmp/hal70.imp"
7196 @ 67825:            PUSH   I
7197 @ 67828:            PUSH   I
7198 @ 67831:            PUSHI  #0x00000001
7199 @ 67836:            SUB   
7200 @ 67837:            ASSVAL

  1264         %REPEAT
7201 @ 67838:            LINE   1264 "regression-compile-tmp/hal70.imp"
7202 @ 67874:            REPEAT L_0006
7203 @ 67877:            LOCATE L_0007

  1265         %EXIT %UNLESS S(',') %OR SYM&128 # 0
7204 @ 67880:            LINE   1265 "regression-compile-tmp/hal70.imp"
7205 @ 67916:            PUSH   S
7206 @ 67919:            PUSHI  #0x0000002c
7207 @ 67924:            ASSPAR
7208 @ 67925:            CALL  
7209 @ 67926:            bt     L_0007
7210 @ 67929:            PUSH   SYM
7211 @ 67932:            PUSHI  #0x00000080
7212 @ 67937:            AND   
7213 @ 67938:            PUSHI  #0x00000000
7214 @ 67943:            JUMPIF # L_0007
7215 @ 67947:            GOTO   L_0004
7216 @ 67950:            LOCATE L_0007

  1266         %IF SYM = NL %START
7217 @ 67953:            LINE   1266 "regression-compile-tmp/hal70.imp"
7218 @ 67989:            PUSH   SYM
7219 @ 67992:            PUSHI  #0x0000000a
7220 @ 67997:            JUMPIF # L_0007

  1267            PRINT LINE %IF PRINTPOS # 0;  READ LINE
7221 @ 68001:            LINE   1267 "regression-compile-tmp/hal70.imp"
7222 @ 68037:            PUSH   PRINTPOS
7223 @ 68040:            PUSHI  #0x00000000
7224 @ 68045:            JUMPIF = L_000a
7225 @ 68049:            PUSH   PRINTLINE
7226 @ 68052:            CALL  
7227 @ 68053:            LOCATE L_000a
7228 @ 68056:            LINE   1267 "regression-compile-tmp/hal70.imp"
7229 @ 68092:            PUSH   READLINE
7230 @ 68095:            CALL  

  1268            QSTART = QBASE
7231 @ 68096:            LINE   1268 "regression-compile-tmp/hal70.imp"
7232 @ 68132:            PUSH   QSTART
7233 @ 68135:            PUSH   QBASE
7234 @ 68138:            ASSVAL

  1269         %FINISH
7235 @ 68139:            LINE   1269 "regression-compile-tmp/hal70.imp"
7236 @ 68175:            LOCATE L_0007

  1270         QLIM = QSTART
7237 @ 68178:            LINE   1270 "regression-compile-tmp/hal70.imp"
7238 @ 68214:            PUSH   QLIM
7239 @ 68217:            PUSH   QSTART
7240 @ 68220:            ASSVAL

  1271      %REPEAT
7241 @ 68221:            LINE   1271 "regression-compile-tmp/hal70.imp"
7242 @ 68257:            REPEAT L_0003
7243 @ 68260:            LOCATE L_0004

  1272      VAL=J %AND PLANT VAL %IF MODE = -3
7244 @ 68263:            LINE   1272 "regression-compile-tmp/hal70.imp"
7245 @ 68299:            PUSH   MODE
7246 @ 68302:            PUSHI  #0x00000003
7247 @ 68307:            NEGATE
7248 @ 68308:            JUMPIF # L_0004
7249 @ 68312:            PUSH   VAL
7250 @ 68315:            PUSH   J
7251 @ 68318:            ASSVAL
7252 @ 68319:            PUSH   PLANTVAL
7253 @ 68322:            CALL  
7254 @ 68323:            LOCATE L_0004

  1273      ->SEND
  1274  
7255 @ 68326:            LINE   1273 "regression-compile-tmp/hal70.imp"
7256 @ 68362:            JUMP   L_0113

  1275  LABDEF:
7257 @ 68365:            LINE   1275 "regression-compile-tmp/hal70.imp"
7258 @ 68401:            LABEL  L_0107

  1276      CREG = -1;  ATYPE = -1
7259 @ 68404:            LINE   1276 "regression-compile-tmp/hal70.imp"
7260 @ 68440:            PUSH   CREG
7261 @ 68443:            PUSHI  #0x00000001
7262 @ 68448:            NEGATE
7263 @ 68449:            ASSVAL
7264 @ 68450:            LINE   1276 "regression-compile-tmp/hal70.imp"
7265 @ 68486:            PUSH   ATYPE
7266 @ 68489:            PUSHI  #0x00000001
7267 @ 68494:            NEGATE
7268 @ 68495:            ASSVAL

  1277      GET SYM
7269 @ 68496:            LINE   1277 "regression-compile-tmp/hal70.imp"
7270 @ 68532:            PUSH   GETSYM
7271 @ 68535:            CALL  

  1278      FAULT('C') %AND NP=STORELIM %IF NP # STORELIM
7272 @ 68536:            LINE   1278 "regression-compile-tmp/hal70.imp"
7273 @ 68572:            PUSH   NP
7274 @ 68575:            PUSH   STORELIM
7275 @ 68578:            JUMPIF = L_0004
7276 @ 68582:            PUSH   FAULT
7277 @ 68585:            PUSHI  #0x00000043
7278 @ 68590:            ASSPAR
7279 @ 68591:            CALL  
7280 @ 68592:            PUSH   NP
7281 @ 68595:            PUSH   STORELIM
7282 @ 68598:            ASSVAL
7283 @ 68599:            LOCATE L_0004

  1279      TYPE = LOCTYPE;  VAL = LOC
7284 @ 68602:            LINE   1279 "regression-compile-tmp/hal70.imp"
7285 @ 68638:            PUSH   TYPE
7286 @ 68641:            PUSH   LOCTYPE
7287 @ 68644:            ASSVAL
7288 @ 68645:            LINE   1279 "regression-compile-tmp/hal70.imp"
7289 @ 68681:            PUSH   VAL
7290 @ 68684:            PUSH   LOC
7291 @ 68687:            ASSVAL

  1280      LOOKUP(7)
7292 @ 68688:            LINE   1280 "regression-compile-tmp/hal70.imp"
7293 @ 68724:            PUSH   LOOKUP
7294 @ 68727:            PUSHI  #0x00000007
7295 @ 68732:            ASSPAR
7296 @ 68733:            CALL  

  1281      ->NEXT
  1282  
7297 @ 68734:            LINE   1281 "regression-compile-tmp/hal70.imp"
7298 @ 68770:            JUMP   L_00fa

  1283  ASSIGN:
7299 @ 68773:            LINE   1283 "regression-compile-tmp/hal70.imp"
7300 @ 68809:            LABEL  L_0108

  1284      PEND = 1
7301 @ 68812:            LINE   1284 "regression-compile-tmp/hal70.imp"
7302 @ 68848:            PUSH   PEND
7303 @ 68851:            PUSHI  #0x00000001
7304 @ 68856:            ASSVAL

  1285      GET EXP
7305 @ 68857:            LINE   1285 "regression-compile-tmp/hal70.imp"
7306 @ 68893:            PUSH   GETEXP
7307 @ 68896:            CALL  

  1286      ->ERR %IF %NOT S('=')
7308 @ 68897:            LINE   1286 "regression-compile-tmp/hal70.imp"
7309 @ 68933:            PUSH   S
7310 @ 68936:            PUSHI  #0x0000003d
7311 @ 68941:            ASSPAR
7312 @ 68942:            CALL  
7313 @ 68943:            bt     L_0004
7314 @ 68946:            JUMP   L_00f6
7315 @ 68949:            LOCATE L_0004

  1287      QUEUE(-25);                       !'STORE'
7316 @ 68952:            LINE   1287 "regression-compile-tmp/hal70.imp"
7317 @ 68988:            PUSH   QUEUE
7318 @ 68991:            PUSHI  #0x00000019
7319 @ 68996:            NEGATE
7320 @ 68997:            ASSPAR
7321 @ 68998:            CALL  

  1288      %IF INTEGER(QBASE) = REG %START
7322 @ 68999:            LINE   1288 "regression-compile-tmp/hal70.imp"
7323 @ 69035:            PUSH   INTEGER
7324 @ 69038:            PUSH   QBASE
7325 @ 69041:            ASSPAR
7326 @ 69042:            CALL  
7327 @ 69043:            PUSH   REG
7328 @ 69046:            JUMPIF # L_0004

  1289         DREG = INTEGER(QBASE+1)
7329 @ 69050:            LINE   1289 "regression-compile-tmp/hal70.imp"
7330 @ 69086:            PUSH   DREG
7331 @ 69089:            PUSH   INTEGER
7332 @ 69092:            PUSH   QBASE
7333 @ 69095:            PUSHI  #0x00000001
7334 @ 69100:            ADD   
7335 @ 69101:            ASSPAR
7336 @ 69102:            CALL  
7337 @ 69103:            ASSVAL

  1290         DUSE = 0
7338 @ 69104:            LINE   1290 "regression-compile-tmp/hal70.imp"
7339 @ 69140:            PUSH   DUSE
7340 @ 69143:            PUSHI  #0x00000000
7341 @ 69148:            ASSVAL

  1291      %FINISH
7342 @ 69149:            LINE   1291 "regression-compile-tmp/hal70.imp"
7343 @ 69185:            LOCATE L_0004

  1292      QSTART = QLIM;  MODE = 2
7344 @ 69188:            LINE   1292 "regression-compile-tmp/hal70.imp"
7345 @ 69224:            PUSH   QSTART
7346 @ 69227:            PUSH   QLIM
7347 @ 69230:            ASSVAL
7348 @ 69231:            LINE   1292 "regression-compile-tmp/hal70.imp"
7349 @ 69267:            PUSH   MODE
7350 @ 69270:            PUSHI  #0x00000002
7351 @ 69275:            ASSVAL

  1293      GET EXP
7352 @ 69276:            LINE   1293 "regression-compile-tmp/hal70.imp"
7353 @ 69312:            PUSH   GETEXP
7354 @ 69315:            CALL  

  1294      %IF FLAG # 0 %START
7355 @ 69316:            LINE   1294 "regression-compile-tmp/hal70.imp"
7356 @ 69352:            PUSH   FLAG
7357 @ 69355:            PUSHI  #0x00000000
7358 @ 69360:            JUMPIF = L_0004

  1295         %IF DREG<0 %AND FLAG-QSTART=QSTART-QBASE-1 %C
  1296            %AND INTEGER(QBASE)&BMASK=0 %START
7359 @ 69364:            LINE   1295 "regression-compile-tmp/hal70.imp"
7360 @ 69400:            PUSH   DREG
7361 @ 69403:            PUSHI  #0x00000000
7362 @ 69408:            JUMPIF >= L_0007
7363 @ 69412:            PUSH   FLAG
7364 @ 69415:            PUSH   QSTART
7365 @ 69418:            SUB   
7366 @ 69419:            PUSH   QSTART
7367 @ 69422:            PUSH   QBASE
7368 @ 69425:            SUB   
7369 @ 69426:            PUSHI  #0x00000001
7370 @ 69431:            SUB   
7371 @ 69432:            JUMPIF # L_0007
7372 @ 69436:            PUSH   INTEGER
7373 @ 69439:            PUSH   QBASE
7374 @ 69442:            ASSPAR
7375 @ 69443:            CALL  
7376 @ 69444:            PUSH   BMASK
7377 @ 69447:            AND   
7378 @ 69448:            PUSHI  #0x00000000
7379 @ 69453:            JUMPIF # L_0007

  1297         I = QBASE;  J = QSTART
7380 @ 69457:            LINE   1297 "regression-compile-tmp/hal70.imp"
7381 @ 69493:            PUSH   I
7382 @ 69496:            PUSH   QBASE
7383 @ 69499:            ASSVAL
7384 @ 69500:            LINE   1297 "regression-compile-tmp/hal70.imp"
7385 @ 69536:            PUSH   J
7386 @ 69539:            PUSH   QSTART
7387 @ 69542:            ASSVAL

  1298         I = I+1 %AND J=J+1 %WHILE INTEGER(I) = INTEGER(J)
7388 @ 69543:            LINE   1298 "regression-compile-tmp/hal70.imp"
7389 @ 69579:            LOCATE L_0009
7390 @ 69582:            PUSH   INTEGER
7391 @ 69585:            PUSH   I
7392 @ 69588:            ASSPAR
7393 @ 69589:            CALL  
7394 @ 69590:            PUSH   INTEGER
7395 @ 69593:            PUSH   J
7396 @ 69596:            ASSPAR
7397 @ 69597:            CALL  
7398 @ 69598:            JUMPIF # L_000a
7399 @ 69602:            PUSH   I
7400 @ 69605:            PUSH   I
7401 @ 69608:            PUSHI  #0x00000001
7402 @ 69613:            ADD   
7403 @ 69614:            ASSVAL
7404 @ 69615:            PUSH   J
7405 @ 69618:            PUSH   J
7406 @ 69621:            PUSHI  #0x00000001
7407 @ 69626:            ADD   
7408 @ 69627:            ASSVAL
7409 @ 69628:            REPEAT L_0009
7410 @ 69631:            LOCATE L_000a

  1299         %IF J = FLAG %START
7411 @ 69634:            LINE   1299 "regression-compile-tmp/hal70.imp"
7412 @ 69670:            PUSH   J
7413 @ 69673:            PUSH   FLAG
7414 @ 69676:            JUMPIF # L_000a

  1300            %IF INTEGER(QLIM-1) = -2 %START; !MINUS
7415 @ 69680:            LINE   1300 "regression-compile-tmp/hal70.imp"
7416 @ 69716:            PUSH   INTEGER
7417 @ 69719:            PUSH   QLIM
7418 @ 69722:            PUSHI  #0x00000001
7419 @ 69727:            SUB   
7420 @ 69728:            ASSPAR
7421 @ 69729:            CALL  
7422 @ 69730:            PUSHI  #0x00000002
7423 @ 69735:            NEGATE
7424 @ 69736:            JUMPIF # L_000d

  1301               QSTART = J-2
  1302  !!             INTEGER(QSTART) = 0;  INTEGER(QSTART+1) = 0
7425 @ 69740:            LINE   1301 "regression-compile-tmp/hal70.imp"
7426 @ 69776:            PUSH   QSTART
7427 @ 69779:            PUSH   J
7428 @ 69782:            PUSHI  #0x00000002
7429 @ 69787:            SUB   
7430 @ 69788:            ASSVAL

  1303               set INTEGER(QSTART, 0);  set INTEGER(QSTART+1, 0)
7431 @ 69789:            LINE   1303 "regression-compile-tmp/hal70.imp"
7432 @ 69825:            PUSH   SETINTEGER
7433 @ 69828:            PUSH   QSTART
7434 @ 69831:            ASSPAR
7435 @ 69832:            PUSHI  #0x00000000
7436 @ 69837:            ASSPAR
7437 @ 69838:            CALL  
7438 @ 69839:            LINE   1303 "regression-compile-tmp/hal70.imp"
7439 @ 69875:            PUSH   SETINTEGER
7440 @ 69878:            PUSH   QSTART
7441 @ 69881:            PUSHI  #0x00000001
7442 @ 69886:            ADD   
7443 @ 69887:            ASSPAR
7444 @ 69888:            PUSHI  #0x00000000
7445 @ 69893:            ASSPAR
7446 @ 69894:            CALL  

  1304            %ELSE
7447 @ 69895:            LINE   1304 "regression-compile-tmp/hal70.imp"
7448 @ 69931:            GOTO   L_000c
7449 @ 69934:            LOCATE L_000d

  1305               QSTART = J;  QLIM = QLIM-1
7450 @ 69937:            LINE   1305 "regression-compile-tmp/hal70.imp"
7451 @ 69973:            PUSH   QSTART
7452 @ 69976:            PUSH   J
7453 @ 69979:            ASSVAL
7454 @ 69980:            LINE   1305 "regression-compile-tmp/hal70.imp"
7455 @ 70016:            PUSH   QLIM
7456 @ 70019:            PUSH   QLIM
7457 @ 70022:            PUSHI  #0x00000001
7458 @ 70027:            SUB   
7459 @ 70028:            ASSVAL

  1306            %FINISH
7460 @ 70029:            LINE   1306 "regression-compile-tmp/hal70.imp"
7461 @ 70065:            LOCATE L_000c

  1307         %finish %ELSE FLAG = 0
7462 @ 70068:            LINE   1307 "regression-compile-tmp/hal70.imp"
7463 @ 70104:            GOTO   L_0009
7464 @ 70107:            LOCATE L_000a
7465 @ 70110:            PUSH   FLAG
7466 @ 70113:            PUSHI  #0x00000000
7467 @ 70118:            ASSVAL
7468 @ 70119:            LOCATE L_0009

  1308         %finish %ELSE FLAG = 0
7469 @ 70122:            LINE   1308 "regression-compile-tmp/hal70.imp"
7470 @ 70158:            GOTO   L_0006
7471 @ 70161:            LOCATE L_0007
7472 @ 70164:            PUSH   FLAG
7473 @ 70167:            PUSHI  #0x00000000
7474 @ 70172:            ASSVAL
7475 @ 70173:            LOCATE L_0006

  1309      %FINISH
7476 @ 70176:            LINE   1309 "regression-compile-tmp/hal70.imp"
7477 @ 70212:            LOCATE L_0004

  1310      QUEUE(-24);                       !'LOAD'
  1311  
7478 @ 70215:            LINE   1310 "regression-compile-tmp/hal70.imp"
7479 @ 70251:            PUSH   QUEUE
7480 @ 70254:            PUSHI  #0x00000018
7481 @ 70259:            NEGATE
7482 @ 70260:            ASSPAR
7483 @ 70261:            CALL  

  1312  CONDQ:
7484 @ 70262:            LINE   1312 "regression-compile-tmp/hal70.imp"
7485 @ 70298:            LABEL  L_0114

  1313      %IF TAGIF %START
7486 @ 70301:            LINE   1313 "regression-compile-tmp/hal70.imp"
7487 @ 70337:            PUSH   TAGIF
7488 @ 70340:            CALL  
7489 @ 70341:            bf     L_0004

  1314         MODE = MODE+4;  DREG = DREG-16; !SCARIFY
7490 @ 70344:            LINE   1314 "regression-compile-tmp/hal70.imp"
7491 @ 70380:            PUSH   MODE
7492 @ 70383:            PUSH   MODE
7493 @ 70386:            PUSHI  #0x00000004
7494 @ 70391:            ADD   
7495 @ 70392:            ASSVAL
7496 @ 70393:            LINE   1314 "regression-compile-tmp/hal70.imp"
7497 @ 70429:            PUSH   DREG
7498 @ 70432:            PUSH   DREG
7499 @ 70435:            PUSHI  #0x00000010
7500 @ 70440:            SUB   
7501 @ 70441:            ASSVAL

  1315         CONDIT(0)
7502 @ 70442:            LINE   1315 "regression-compile-tmp/hal70.imp"
7503 @ 70478:            PUSH   CONDIT
7504 @ 70481:            PUSHI  #0x00000000
7505 @ 70486:            ASSPAR
7506 @ 70487:            CALL  

  1316         MODE = MODE-4;  DREG = DREG+16; !RESTORE
7507 @ 70488:            LINE   1316 "regression-compile-tmp/hal70.imp"
7508 @ 70524:            PUSH   MODE
7509 @ 70527:            PUSH   MODE
7510 @ 70530:            PUSHI  #0x00000004
7511 @ 70535:            SUB   
7512 @ 70536:            ASSVAL
7513 @ 70537:            LINE   1316 "regression-compile-tmp/hal70.imp"
7514 @ 70573:            PUSH   DREG
7515 @ 70576:            PUSH   DREG
7516 @ 70579:            PUSHI  #0x00000010
7517 @ 70584:            ADD   
7518 @ 70585:            ASSVAL

  1317         QLIM = QSTART;  QSTART = TRANSF
7519 @ 70586:            LINE   1317 "regression-compile-tmp/hal70.imp"
7520 @ 70622:            PUSH   QLIM
7521 @ 70625:            PUSH   QSTART
7522 @ 70628:            ASSVAL
7523 @ 70629:            LINE   1317 "regression-compile-tmp/hal70.imp"
7524 @ 70665:            PUSH   QSTART
7525 @ 70668:            PUSH   TRANSF
7526 @ 70671:            ASSVAL

  1318      %FINISH
7527 @ 70672:            LINE   1318 "regression-compile-tmp/hal70.imp"
7528 @ 70708:            LOCATE L_0004

  1319      ASSEMBLE
7529 @ 70711:            LINE   1319 "regression-compile-tmp/hal70.imp"
7530 @ 70747:            PUSH   ASSEMBLE
7531 @ 70750:            CALL  

  1320      ->SEND
  1321  
7532 @ 70751:            LINE   1320 "regression-compile-tmp/hal70.imp"
7533 @ 70787:            JUMP   L_0113

  1322  JUMP:
7534 @ 70790:            LINE   1322 "regression-compile-tmp/hal70.imp"
7535 @ 70826:            LABEL  L_0109

  1323      FLAG = TAG2-P;                    !POSITIVE IF SHORT
7536 @ 70829:            LINE   1323 "regression-compile-tmp/hal70.imp"
7537 @ 70865:            PUSH   FLAG
7538 @ 70868:            PUSH   TAG2
7539 @ 70871:            PUSH   P
7540 @ 70874:            SUB   
7541 @ 70875:            ASSVAL

  1324      GET EXP
7542 @ 70876:            LINE   1324 "regression-compile-tmp/hal70.imp"
7543 @ 70912:            PUSH   GETEXP
7544 @ 70915:            CALL  

  1325      QUEUE(-26);                       !'JUMP'
7545 @ 70916:            LINE   1325 "regression-compile-tmp/hal70.imp"
7546 @ 70952:            PUSH   QUEUE
7547 @ 70955:            PUSHI  #0x0000001a
7548 @ 70960:            NEGATE
7549 @ 70961:            ASSPAR
7550 @ 70962:            CALL  

  1326      ->CONDQ
  1327  
7551 @ 70963:            LINE   1326 "regression-compile-tmp/hal70.imp"
7552 @ 70999:            JUMP   L_0114

  1328  MINST:
7553 @ 71002:            LINE   1328 "regression-compile-tmp/hal70.imp"
7554 @ 71038:            LABEL  L_0112

  1329      MODE = -1
7555 @ 71041:            LINE   1329 "regression-compile-tmp/hal70.imp"
7556 @ 71077:            PUSH   MODE
7557 @ 71080:            PUSHI  #0x00000001
7558 @ 71085:            NEGATE
7559 @ 71086:            ASSVAL

  1330      GET INST
7560 @ 71087:            LINE   1330 "regression-compile-tmp/hal70.imp"
7561 @ 71123:            PUSH   GETINST
7562 @ 71126:            CALL  

  1331      QUEUE(-23);                       !'PLANT'
7563 @ 71127:            LINE   1331 "regression-compile-tmp/hal70.imp"
7564 @ 71163:            PUSH   QUEUE
7565 @ 71166:            PUSHI  #0x00000017
7566 @ 71171:            NEGATE
7567 @ 71172:            ASSPAR
7568 @ 71173:            CALL  

  1332      ->CONDQ
  1333  
7569 @ 71174:            LINE   1332 "regression-compile-tmp/hal70.imp"
7570 @ 71210:            JUMP   L_0114

  1334  MACCALL:
7571 @ 71213:            LINE   1334 "regression-compile-tmp/hal70.imp"
7572 @ 71249:            LABEL  L_0111

  1335      QUEUE(0);                         !(DEFPOS)
7573 @ 71252:            LINE   1335 "regression-compile-tmp/hal70.imp"
7574 @ 71288:            PUSH   QUEUE
7575 @ 71291:            PUSHI  #0x00000000
7576 @ 71296:            ASSPAR
7577 @ 71297:            CALL  

  1336      QUEUE(0);                         !SPARE
7578 @ 71298:            LINE   1336 "regression-compile-tmp/hal70.imp"
7579 @ 71334:            PUSH   QUEUE
7580 @ 71337:            PUSHI  #0x00000000
7581 @ 71342:            ASSPAR
7582 @ 71343:            CALL  

  1337      QUEUE(0);                         !(CALLPOS)
7583 @ 71344:            LINE   1337 "regression-compile-tmp/hal70.imp"
7584 @ 71380:            PUSH   QUEUE
7585 @ 71383:            PUSHI  #0x00000000
7586 @ 71388:            ASSPAR
7587 @ 71389:            CALL  

  1338      QUEUE(STARTPOS)
7588 @ 71390:            LINE   1338 "regression-compile-tmp/hal70.imp"
7589 @ 71426:            PUSH   QUEUE
7590 @ 71429:            PUSH   STARTPOS
7591 @ 71432:            ASSPAR
7592 @ 71433:            CALL  

  1339      QUEUE(MP)
7593 @ 71434:            LINE   1339 "regression-compile-tmp/hal70.imp"
7594 @ 71470:            PUSH   QUEUE
7595 @ 71473:            PUSH   MP
7596 @ 71476:            ASSPAR
7597 @ 71477:            CALL  

  1340      J = VAL;  QQ = 0
7598 @ 71478:            LINE   1340 "regression-compile-tmp/hal70.imp"
7599 @ 71514:            PUSH   J
7600 @ 71517:            PUSH   VAL
7601 @ 71520:            ASSVAL
7602 @ 71521:            LINE   1340 "regression-compile-tmp/hal70.imp"
7603 @ 71557:            PUSH   QQ
7604 @ 71560:            PUSHI  #0x00000000
7605 @ 71565:            ASSVAL

  1341      %CYCLE
7606 @ 71566:            LINE   1341 "regression-compile-tmp/hal70.imp"
7607 @ 71602:            LOCATE L_0003

  1342         %EXIT %IF CHAR(J) = NL;        !END OF MAC DEF
7608 @ 71605:            LINE   1342 "regression-compile-tmp/hal70.imp"
7609 @ 71641:            PUSH   CHAR
7610 @ 71644:            PUSH   J
7611 @ 71647:            ASSPAR
7612 @ 71648:            CALL  
7613 @ 71649:            PUSHI  #0x0000000a
7614 @ 71654:            JUMPIF # L_0007
7615 @ 71658:            GOTO   L_0004
7616 @ 71661:            LOCATE L_0007

  1343         I = GETPOS-1;                  !SAVE CALLPOS
7617 @ 71664:            LINE   1343 "regression-compile-tmp/hal70.imp"
7618 @ 71700:            PUSH   I
7619 @ 71703:            PUSH   GETPOS
7620 @ 71706:            PUSHI  #0x00000001
7621 @ 71711:            SUB   
7622 @ 71712:            ASSVAL

  1344         GETPOS = J;  GET SYM
  1345  !!       %MONITOR 24 %IF %NOT TAG
7623 @ 71713:            LINE   1344 "regression-compile-tmp/hal70.imp"
7624 @ 71749:            PUSH   GETPOS
7625 @ 71752:            PUSH   J
7626 @ 71755:            ASSVAL
7627 @ 71756:            LINE   1344 "regression-compile-tmp/hal70.imp"
7628 @ 71792:            PUSH   GETSYM
7629 @ 71795:            CALL  

  1346         TYPE = 0;  VAL = 0
7630 @ 71796:            LINE   1346 "regression-compile-tmp/hal70.imp"
7631 @ 71832:            PUSH   TYPE
7632 @ 71835:            PUSHI  #0x00000000
7633 @ 71840:            ASSVAL
7634 @ 71841:            LINE   1346 "regression-compile-tmp/hal70.imp"
7635 @ 71877:            PUSH   VAL
7636 @ 71880:            PUSHI  #0x00000000
7637 @ 71885:            ASSVAL

  1347         SCAN ARG
7638 @ 71886:            LINE   1347 "regression-compile-tmp/hal70.imp"
7639 @ 71922:            PUSH   SCANARG
7640 @ 71925:            CALL  

  1348         GET SYM %IF SYM = ','
7641 @ 71926:            LINE   1348 "regression-compile-tmp/hal70.imp"
7642 @ 71962:            PUSH   SYM
7643 @ 71965:            PUSHI  #0x0000002c
7644 @ 71970:            JUMPIF # L_0007
7645 @ 71974:            PUSH   GETSYM
7646 @ 71977:            CALL  
7647 @ 71978:            LOCATE L_0007

  1349         J = GETPOS-1;                  !SAVE DEFPOS
7648 @ 71981:            LINE   1349 "regression-compile-tmp/hal70.imp"
7649 @ 72017:            PUSH   J
7650 @ 72020:            PUSH   GETPOS
7651 @ 72023:            PUSHI  #0x00000001
7652 @ 72028:            SUB   
7653 @ 72029:            ASSVAL

  1350         GETPOS = I;  GET SYM;          !RESTORE CALLPOS
7654 @ 72030:            LINE   1350 "regression-compile-tmp/hal70.imp"
7655 @ 72066:            PUSH   GETPOS
7656 @ 72069:            PUSH   I
7657 @ 72072:            ASSVAL
7658 @ 72073:            LINE   1350 "regression-compile-tmp/hal70.imp"
7659 @ 72109:            PUSH   GETSYM
7660 @ 72112:            CALL  

  1351         SCAN ARG
7661 @ 72113:            LINE   1351 "regression-compile-tmp/hal70.imp"
7662 @ 72149:            PUSH   SCANARG
7663 @ 72152:            CALL  

  1352         GET SYM %IF SYM = ','
7664 @ 72153:            LINE   1352 "regression-compile-tmp/hal70.imp"
7665 @ 72189:            PUSH   SYM
7666 @ 72192:            PUSHI  #0x0000002c
7667 @ 72197:            JUMPIF # L_0007
7668 @ 72201:            PUSH   GETSYM
7669 @ 72204:            CALL  
7670 @ 72205:            LOCATE L_0007

  1353         QUEUE(TAG1);  QUEUE(TAG2)
7671 @ 72208:            LINE   1353 "regression-compile-tmp/hal70.imp"
7672 @ 72244:            PUSH   QUEUE
7673 @ 72247:            PUSH   TAG1
7674 @ 72250:            ASSPAR
7675 @ 72251:            CALL  
7676 @ 72252:            LINE   1353 "regression-compile-tmp/hal70.imp"
7677 @ 72288:            PUSH   QUEUE
7678 @ 72291:            PUSH   TAG2
7679 @ 72294:            ASSPAR
7680 @ 72295:            CALL  

  1354         QUEUE(TYPE);  QUEUE(VAL)
7681 @ 72296:            LINE   1354 "regression-compile-tmp/hal70.imp"
7682 @ 72332:            PUSH   QUEUE
7683 @ 72335:            PUSH   TYPE
7684 @ 72338:            ASSPAR
7685 @ 72339:            CALL  
7686 @ 72340:            LINE   1354 "regression-compile-tmp/hal70.imp"
7687 @ 72376:            PUSH   QUEUE
7688 @ 72379:            PUSH   VAL
7689 @ 72382:            ASSPAR
7690 @ 72383:            CALL  

  1355      %REPEAT
7691 @ 72384:            LINE   1355 "regression-compile-tmp/hal70.imp"
7692 @ 72420:            REPEAT L_0003
7693 @ 72423:            LOCATE L_0004

  1356      QQ = '?'
7694 @ 72426:            LINE   1356 "regression-compile-tmp/hal70.imp"
7695 @ 72462:            PUSH   QQ
7696 @ 72465:            PUSHI  #0x0000003f
7697 @ 72470:            ASSVAL

  1357      GET SYM %IF SYM = ' '
7698 @ 72471:            LINE   1357 "regression-compile-tmp/hal70.imp"
7699 @ 72507:            PUSH   SYM
7700 @ 72510:            PUSHI  #0x00000020
7701 @ 72515:            JUMPIF # L_0004
7702 @ 72519:            PUSH   GETSYM
7703 @ 72522:            CALL  
7704 @ 72523:            LOCATE L_0004

  1358      %IF TAGIF %START
7705 @ 72526:            LINE   1358 "regression-compile-tmp/hal70.imp"
7706 @ 72562:            PUSH   TAGIF
7707 @ 72565:            CALL  
7708 @ 72566:            bf     L_0004

  1359         CONDIT(-18)
7709 @ 72569:            LINE   1359 "regression-compile-tmp/hal70.imp"
7710 @ 72605:            PUSH   CONDIT
7711 @ 72608:            PUSHI  #0x00000012
7712 @ 72613:            NEGATE
7713 @ 72614:            ASSPAR
7714 @ 72615:            CALL  

  1360         QLIM = QSTART
  1361  !!       INTEGER(QBASE+4) = MP+8_700000
7715 @ 72616:            LINE   1360 "regression-compile-tmp/hal70.imp"
7716 @ 72652:            PUSH   QLIM
7717 @ 72655:            PUSH   QSTART
7718 @ 72658:            ASSVAL

  1362         set INTEGER(QBASE+4, MP+8_700000)
7719 @ 72659:            LINE   1362 "regression-compile-tmp/hal70.imp"
7720 @ 72695:            PUSH   SETINTEGER
7721 @ 72698:            PUSH   QBASE
7722 @ 72701:            PUSHI  #0x00000004
7723 @ 72706:            ADD   
7724 @ 72707:            ASSPAR
7725 @ 72708:            PUSH   MP
7726 @ 72711:            PUSHI  #0x00038000
7727 @ 72716:            ADD   
7728 @ 72717:            ASSPAR
7729 @ 72718:            CALL  

  1363      %FINISH
7730 @ 72719:            LINE   1363 "regression-compile-tmp/hal70.imp"
7731 @ 72755:            LOCATE L_0004

  1364      QUEUE(0)
7732 @ 72758:            LINE   1364 "regression-compile-tmp/hal70.imp"
7733 @ 72794:            PUSH   QUEUE
7734 @ 72797:            PUSHI  #0x00000000
7735 @ 72802:            ASSPAR
7736 @ 72803:            CALL  

  1365      STARTPOS = QLIM<<1
7737 @ 72804:            LINE   1365 "regression-compile-tmp/hal70.imp"
7738 @ 72840:            PUSH   STARTPOS
7739 @ 72843:            PUSH   QLIM
7740 @ 72846:            PUSHI  #0x00000001
7741 @ 72851:            LSH   
7742 @ 72852:            ASSVAL

  1366      MP = QBASE
  1367  !!    INTEGER(MP) = J+1;                !START OF BODY
7743 @ 72853:            LINE   1366 "regression-compile-tmp/hal70.imp"
7744 @ 72889:            PUSH   MP
7745 @ 72892:            PUSH   QBASE
7746 @ 72895:            ASSVAL

  1368      set INTEGER(MP, J+1);                !START OF BODY
  1369  !!    INTEGER(MP+2) = GETPOS-1
7747 @ 72896:            LINE   1368 "regression-compile-tmp/hal70.imp"
7748 @ 72932:            PUSH   SETINTEGER
7749 @ 72935:            PUSH   MP
7750 @ 72938:            ASSPAR
7751 @ 72939:            PUSH   J
7752 @ 72942:            PUSHI  #0x00000001
7753 @ 72947:            ADD   
7754 @ 72948:            ASSPAR
7755 @ 72949:            CALL  

  1370      set INTEGER(MP+2, GETPOS-1)
7756 @ 72950:            LINE   1370 "regression-compile-tmp/hal70.imp"
7757 @ 72986:            PUSH   SETINTEGER
7758 @ 72989:            PUSH   MP
7759 @ 72992:            PUSHI  #0x00000002
7760 @ 72997:            ADD   
7761 @ 72998:            ASSPAR
7762 @ 72999:            PUSH   GETPOS
7763 @ 73002:            PUSHI  #0x00000001
7764 @ 73007:            SUB   
7765 @ 73008:            ASSPAR
7766 @ 73009:            CALL  

  1371      ->LEND
  1372  
  1373  !CODING OF JUMPS: 1000 (SINGLE INST), 2000 (MAIN IF)
  1374  !                 4000 (ELSE), 6000 (IF AFTER ELSE)
  1375  
7767 @ 73010:            LINE   1371 "regression-compile-tmp/hal70.imp"
7768 @ 73046:            JUMP   L_00ff

  1376  IFC:
7769 @ 73049:            LINE   1376 "regression-compile-tmp/hal70.imp"
7770 @ 73085:            LABEL  L_010a

  1377      CONDIT(-15)
7771 @ 73088:            LINE   1377 "regression-compile-tmp/hal70.imp"
7772 @ 73124:            PUSH   CONDIT
7773 @ 73127:            PUSHI  #0x0000000f
7774 @ 73132:            NEGATE
7775 @ 73133:            ASSPAR
7776 @ 73134:            CALL  

  1378      ->SEND
  1379  
7777 @ 73135:            LINE   1378 "regression-compile-tmp/hal70.imp"
7778 @ 73171:            JUMP   L_0113

  1380  ELSE:
7779 @ 73174:            LINE   1380 "regression-compile-tmp/hal70.imp"
7780 @ 73210:            LABEL  L_010b

  1381      ->CERR %IF INTEGER(NP)&16_2000 = 0
7781 @ 73213:            LINE   1381 "regression-compile-tmp/hal70.imp"
7782 @ 73249:            PUSH   INTEGER
7783 @ 73252:            PUSH   NP
7784 @ 73255:            ASSPAR
7785 @ 73256:            CALL  
7786 @ 73257:            PUSHI  #0x00002000
7787 @ 73262:            AND   
7788 @ 73263:            PUSHI  #0x00000000
7789 @ 73268:            JUMPIF # L_0004
7790 @ 73272:            JUMP   L_0115
7791 @ 73275:            LOCATE L_0004

  1382      QUEUE(0);  QUEUE(0)
7792 @ 73278:            LINE   1382 "regression-compile-tmp/hal70.imp"
7793 @ 73314:            PUSH   QUEUE
7794 @ 73317:            PUSHI  #0x00000000
7795 @ 73322:            ASSPAR
7796 @ 73323:            CALL  
7797 @ 73324:            LINE   1382 "regression-compile-tmp/hal70.imp"
7798 @ 73360:            PUSH   QUEUE
7799 @ 73363:            PUSHI  #0x00000000
7800 @ 73368:            ASSPAR
7801 @ 73369:            CALL  

  1383      QUEUE(-16);  ASSEMBLE
7802 @ 73370:            LINE   1383 "regression-compile-tmp/hal70.imp"
7803 @ 73406:            PUSH   QUEUE
7804 @ 73409:            PUSHI  #0x00000010
7805 @ 73414:            NEGATE
7806 @ 73415:            ASSPAR
7807 @ 73416:            CALL  
7808 @ 73417:            LINE   1383 "regression-compile-tmp/hal70.imp"
7809 @ 73453:            PUSH   ASSEMBLE
7810 @ 73456:            CALL  

  1384      ATYPE = -1; CREG = -1
7811 @ 73457:            LINE   1384 "regression-compile-tmp/hal70.imp"
7812 @ 73493:            PUSH   ATYPE
7813 @ 73496:            PUSHI  #0x00000001
7814 @ 73501:            NEGATE
7815 @ 73502:            ASSVAL
7816 @ 73503:            LINE   1384 "regression-compile-tmp/hal70.imp"
7817 @ 73539:            PUSH   CREG
7818 @ 73542:            PUSHI  #0x00000001
7819 @ 73547:            NEGATE
7820 @ 73548:            ASSVAL

  1385      %IF TAGIF %START
7821 @ 73549:            LINE   1385 "regression-compile-tmp/hal70.imp"
7822 @ 73585:            PUSH   TAGIF
7823 @ 73588:            CALL  
7824 @ 73589:            bf     L_0004

  1386         CONDIT(-17)
7825 @ 73592:            LINE   1386 "regression-compile-tmp/hal70.imp"
7826 @ 73628:            PUSH   CONDIT
7827 @ 73631:            PUSHI  #0x00000011
7828 @ 73636:            NEGATE
7829 @ 73637:            ASSPAR
7830 @ 73638:            CALL  

  1387      %FINISH
7831 @ 73639:            LINE   1387 "regression-compile-tmp/hal70.imp"
7832 @ 73675:            LOCATE L_0004

  1388      ->SEND
  1389  
7833 @ 73678:            LINE   1388 "regression-compile-tmp/hal70.imp"
7834 @ 73714:            JUMP   L_0113

  1390  FINISH:
7835 @ 73717:            LINE   1390 "regression-compile-tmp/hal70.imp"
7836 @ 73753:            LABEL  L_010c

  1391      ->CERR %IF INTEGER(NP)&16_6000 = 0
7837 @ 73756:            LINE   1391 "regression-compile-tmp/hal70.imp"
7838 @ 73792:            PUSH   INTEGER
7839 @ 73795:            PUSH   NP
7840 @ 73798:            ASSPAR
7841 @ 73799:            CALL  
7842 @ 73800:            PUSHI  #0x00006000
7843 @ 73805:            AND   
7844 @ 73806:            PUSHI  #0x00000000
7845 @ 73811:            JUMPIF # L_0004
7846 @ 73815:            JUMP   L_0115
7847 @ 73818:            LOCATE L_0004

  1392      I = LOC
7848 @ 73821:            LINE   1392 "regression-compile-tmp/hal70.imp"
7849 @ 73857:            PUSH   I
7850 @ 73860:            PUSH   LOC
7851 @ 73863:            ASSVAL

  1393      %WHILE INTEGER(NP)&16_4000 # 0 %CYCLE
7852 @ 73864:            LINE   1393 "regression-compile-tmp/hal70.imp"
7853 @ 73900:            LOCATE L_0003
7854 @ 73903:            PUSH   INTEGER
7855 @ 73906:            PUSH   NP
7856 @ 73909:            ASSPAR
7857 @ 73910:            CALL  
7858 @ 73911:            PUSHI  #0x00004000
7859 @ 73916:            AND   
7860 @ 73917:            PUSHI  #0x00000000
7861 @ 73922:            JUMPIF = L_0004

  1394         %IF INTEGER(NP)&16_2000 # 0 %START; !IF AFTER ELSE
7862 @ 73926:            LINE   1394 "regression-compile-tmp/hal70.imp"
7863 @ 73962:            PUSH   INTEGER
7864 @ 73965:            PUSH   NP
7865 @ 73968:            ASSPAR
7866 @ 73969:            CALL  
7867 @ 73970:            PUSHI  #0x00002000
7868 @ 73975:            AND   
7869 @ 73976:            PUSHI  #0x00000000
7870 @ 73981:            JUMPIF = L_0007

  1395            SET LAB(I)
7871 @ 73985:            LINE   1395 "regression-compile-tmp/hal70.imp"
7872 @ 74021:            PUSH   SETLAB
7873 @ 74024:            PUSH   I
7874 @ 74027:            ASSPAR
7875 @ 74028:            CALL  

  1396         %finish %ELSE %START
7876 @ 74029:            LINE   1396 "regression-compile-tmp/hal70.imp"
7877 @ 74065:            GOTO   L_0006
7878 @ 74068:            LOCATE L_0007

  1397            SET LAB(LOC)
7879 @ 74071:            LINE   1397 "regression-compile-tmp/hal70.imp"
7880 @ 74107:            PUSH   SETLAB
7881 @ 74110:            PUSH   LOC
7882 @ 74113:            ASSPAR
7883 @ 74114:            CALL  

  1398            I = VAL+4
7884 @ 74115:            LINE   1398 "regression-compile-tmp/hal70.imp"
7885 @ 74151:            PUSH   I
7886 @ 74154:            PUSH   VAL
7887 @ 74157:            PUSHI  #0x00000004
7888 @ 74162:            ADD   
7889 @ 74163:            ASSVAL

  1399         %FINISH
7890 @ 74164:            LINE   1399 "regression-compile-tmp/hal70.imp"
7891 @ 74200:            LOCATE L_0006

  1400      %REPEAT
7892 @ 74203:            LINE   1400 "regression-compile-tmp/hal70.imp"
7893 @ 74239:            REPEAT L_0003
7894 @ 74242:            LOCATE L_0004

  1401      SET LAB(I)
7895 @ 74245:            LINE   1401 "regression-compile-tmp/hal70.imp"
7896 @ 74281:            PUSH   SETLAB
7897 @ 74284:            PUSH   I
7898 @ 74287:            ASSPAR
7899 @ 74288:            CALL  

  1402      ->SEND
  1403  
7900 @ 74289:            LINE   1402 "regression-compile-tmp/hal70.imp"
7901 @ 74325:            JUMP   L_0113

  1404  WHILE:
7902 @ 74328:            LINE   1404 "regression-compile-tmp/hal70.imp"
7903 @ 74364:            LABEL  L_010d

  1405      I = LOC;  ATYPE = -1;  CREG = -1
7904 @ 74367:            LINE   1405 "regression-compile-tmp/hal70.imp"
7905 @ 74403:            PUSH   I
7906 @ 74406:            PUSH   LOC
7907 @ 74409:            ASSVAL
7908 @ 74410:            LINE   1405 "regression-compile-tmp/hal70.imp"
7909 @ 74446:            PUSH   ATYPE
7910 @ 74449:            PUSHI  #0x00000001
7911 @ 74454:            NEGATE
7912 @ 74455:            ASSVAL
7913 @ 74456:            LINE   1405 "regression-compile-tmp/hal70.imp"
7914 @ 74492:            PUSH   CREG
7915 @ 74495:            PUSHI  #0x00000001
7916 @ 74500:            NEGATE
7917 @ 74501:            ASSVAL

  1406      CONDIT(-13)
7918 @ 74502:            LINE   1406 "regression-compile-tmp/hal70.imp"
7919 @ 74538:            PUSH   CONDIT
7920 @ 74541:            PUSHI  #0x0000000d
7921 @ 74546:            NEGATE
7922 @ 74547:            ASSPAR
7923 @ 74548:            CALL  

  1407      NEST(I);  NEST(1)
7924 @ 74549:            LINE   1407 "regression-compile-tmp/hal70.imp"
7925 @ 74585:            PUSH   NEST
7926 @ 74588:            PUSH   I
7927 @ 74591:            ASSPAR
7928 @ 74592:            CALL  
7929 @ 74593:            LINE   1407 "regression-compile-tmp/hal70.imp"
7930 @ 74629:            PUSH   NEST
7931 @ 74632:            PUSHI  #0x00000001
7932 @ 74637:            ASSPAR
7933 @ 74638:            CALL  

  1408      ->SEND
  1409  
7934 @ 74639:            LINE   1408 "regression-compile-tmp/hal70.imp"
7935 @ 74675:            JUMP   L_0113

  1410  CYCLE:
7936 @ 74678:            LINE   1410 "regression-compile-tmp/hal70.imp"
7937 @ 74714:            LABEL  L_010e

  1411      NEST(LOC);  NEST(1)
7938 @ 74717:            LINE   1411 "regression-compile-tmp/hal70.imp"
7939 @ 74753:            PUSH   NEST
7940 @ 74756:            PUSH   LOC
7941 @ 74759:            ASSPAR
7942 @ 74760:            CALL  
7943 @ 74761:            LINE   1411 "regression-compile-tmp/hal70.imp"
7944 @ 74797:            PUSH   NEST
7945 @ 74800:            PUSHI  #0x00000001
7946 @ 74805:            ASSPAR
7947 @ 74806:            CALL  

  1412      ATYPE = -1;  CREG = -1
7948 @ 74807:            LINE   1412 "regression-compile-tmp/hal70.imp"
7949 @ 74843:            PUSH   ATYPE
7950 @ 74846:            PUSHI  #0x00000001
7951 @ 74851:            NEGATE
7952 @ 74852:            ASSVAL
7953 @ 74853:            LINE   1412 "regression-compile-tmp/hal70.imp"
7954 @ 74889:            PUSH   CREG
7955 @ 74892:            PUSHI  #0x00000001
7956 @ 74897:            NEGATE
7957 @ 74898:            ASSVAL

  1413      ->SEND
  1414  
7958 @ 74899:            LINE   1413 "regression-compile-tmp/hal70.imp"
7959 @ 74935:            JUMP   L_0113

  1415  REPEAT:
7960 @ 74938:            LINE   1415 "regression-compile-tmp/hal70.imp"
7961 @ 74974:            LABEL  L_010f

  1416      ->CERR %IF INTEGER(NP) # 1
7962 @ 74977:            LINE   1416 "regression-compile-tmp/hal70.imp"
7963 @ 75013:            PUSH   INTEGER
7964 @ 75016:            PUSH   NP
7965 @ 75019:            ASSPAR
7966 @ 75020:            CALL  
7967 @ 75021:            PUSHI  #0x00000001
7968 @ 75026:            JUMPIF = L_0004
7969 @ 75030:            JUMP   L_0115
7970 @ 75033:            LOCATE L_0004

  1417      QUEUE(LOCTYPE);  QUEUE(INTEGER(NP+1))
7971 @ 75036:            LINE   1417 "regression-compile-tmp/hal70.imp"
7972 @ 75072:            PUSH   QUEUE
7973 @ 75075:            PUSH   LOCTYPE
7974 @ 75078:            ASSPAR
7975 @ 75079:            CALL  
7976 @ 75080:            LINE   1417 "regression-compile-tmp/hal70.imp"
7977 @ 75116:            PUSH   QUEUE
7978 @ 75119:            PUSH   INTEGER
7979 @ 75122:            PUSH   NP
7980 @ 75125:            PUSHI  #0x00000001
7981 @ 75130:            ADD   
7982 @ 75131:            ASSPAR
7983 @ 75132:            CALL  
7984 @ 75133:            ASSPAR
7985 @ 75134:            CALL  

  1418      NP = NP+2
7986 @ 75135:            LINE   1418 "regression-compile-tmp/hal70.imp"
7987 @ 75171:            PUSH   NP
7988 @ 75174:            PUSH   NP
7989 @ 75177:            PUSHI  #0x00000002
7990 @ 75182:            ADD   
7991 @ 75183:            ASSVAL

  1419      QUEUE(-26);                       !'JUMP'
7992 @ 75184:            LINE   1419 "regression-compile-tmp/hal70.imp"
7993 @ 75220:            PUSH   QUEUE
7994 @ 75223:            PUSHI  #0x0000001a
7995 @ 75228:            NEGATE
7996 @ 75229:            ASSPAR
7997 @ 75230:            CALL  

  1420      FLAG = -1
7998 @ 75231:            LINE   1420 "regression-compile-tmp/hal70.imp"
7999 @ 75267:            PUSH   FLAG
8000 @ 75270:            PUSHI  #0x00000001
8001 @ 75275:            NEGATE
8002 @ 75276:            ASSVAL

  1421      ->CONDQ
  1422  
8003 @ 75277:            LINE   1421 "regression-compile-tmp/hal70.imp"
8004 @ 75313:            JUMP   L_0114

  1423  CERR:
8005 @ 75316:            LINE   1423 "regression-compile-tmp/hal70.imp"
8006 @ 75352:            LABEL  L_0115

  1424      FAULT('C')
8007 @ 75355:            LINE   1424 "regression-compile-tmp/hal70.imp"
8008 @ 75391:            PUSH   FAULT
8009 @ 75394:            PUSHI  #0x00000043
8010 @ 75399:            ASSPAR
8011 @ 75400:            CALL  

  1425      ->LEND
  1426  
8012 @ 75401:            LINE   1425 "regression-compile-tmp/hal70.imp"
8013 @ 75437:            JUMP   L_00ff

  1427  SEND:
8014 @ 75440:            LINE   1427 "regression-compile-tmp/hal70.imp"
8015 @ 75476:            LABEL  L_0113

  1428      SET LAB(LOC) %IF INTEGER(NP)&16_1000 # 0
8016 @ 75479:            LINE   1428 "regression-compile-tmp/hal70.imp"
8017 @ 75515:            PUSH   INTEGER
8018 @ 75518:            PUSH   NP
8019 @ 75521:            ASSPAR
8020 @ 75522:            CALL  
8021 @ 75523:            PUSHI  #0x00001000
8022 @ 75528:            AND   
8023 @ 75529:            PUSHI  #0x00000000
8024 @ 75534:            JUMPIF = L_0004
8025 @ 75538:            PUSH   SETLAB
8026 @ 75541:            PUSH   LOC
8027 @ 75544:            ASSPAR
8028 @ 75545:            CALL  
8029 @ 75546:            LOCATE L_0004

  1429      ->LEND %IF SYM = NL
8030 @ 75549:            LINE   1429 "regression-compile-tmp/hal70.imp"
8031 @ 75585:            PUSH   SYM
8032 @ 75588:            PUSHI  #0x0000000a
8033 @ 75593:            JUMPIF # L_0004
8034 @ 75597:            JUMP   L_00ff
8035 @ 75600:            LOCATE L_0004

  1430      ->NEXT %IF S(';')
  1431  
8036 @ 75603:            LINE   1430 "regression-compile-tmp/hal70.imp"
8037 @ 75639:            PUSH   S
8038 @ 75642:            PUSHI  #0x0000003b
8039 @ 75647:            ASSPAR
8040 @ 75648:            CALL  
8041 @ 75649:            bf     L_0004
8042 @ 75652:            JUMP   L_00fa
8043 @ 75655:            LOCATE L_0004

  1432  ERR:FSYM = 'F';  FAULTPOS = GETPOS-1
8044 @ 75658:            LINE   1432 "regression-compile-tmp/hal70.imp"
8045 @ 75694:            LABEL  L_00f6
8046 @ 75697:            LINE   1432 "regression-compile-tmp/hal70.imp"
8047 @ 75733:            PUSH   FSYM
8048 @ 75736:            PUSHI  #0x00000046
8049 @ 75741:            ASSVAL
8050 @ 75742:            LINE   1432 "regression-compile-tmp/hal70.imp"
8051 @ 75778:            PUSH   FAULTPOS
8052 @ 75781:            PUSH   GETPOS
8053 @ 75784:            PUSHI  #0x00000001
8054 @ 75789:            SUB   
8055 @ 75790:            ASSVAL

  1433      PRINTPOS = STARTPOS
  1434  
8056 @ 75791:            LINE   1433 "regression-compile-tmp/hal70.imp"
8057 @ 75827:            PUSH   PRINTPOS
8058 @ 75830:            PUSH   STARTPOS
8059 @ 75833:            ASSVAL

  1435  LEND:
8060 @ 75834:            LINE   1435 "regression-compile-tmp/hal70.imp"
8061 @ 75870:            LABEL  L_00ff

  1436      ->READ %IF SKIP # 0 %AND LIST&4 = 0
8062 @ 75873:            LINE   1436 "regression-compile-tmp/hal70.imp"
8063 @ 75909:            PUSH   SKIP
8064 @ 75912:            PUSHI  #0x00000000
8065 @ 75917:            JUMPIF = L_0004
8066 @ 75921:            PUSH   LIST
8067 @ 75924:            PUSHI  #0x00000004
8068 @ 75929:            AND   
8069 @ 75930:            PUSHI  #0x00000000
8070 @ 75935:            JUMPIF # L_0004
8071 @ 75939:            JUMP   L_00f9
8072 @ 75942:            LOCATE L_0004

  1437      ->READ %IF FSYM = ' ' %AND CHARS = 0 %AND %C
  1438       (PRINTPOS = 0 %OR (MP#0 %AND LIST&2=0))
8073 @ 75945:            LINE   1437 "regression-compile-tmp/hal70.imp"
8074 @ 75981:            PUSH   FSYM
8075 @ 75984:            PUSHI  #0x00000020
8076 @ 75989:            JUMPIF # L_0004
8077 @ 75993:            PUSH   CHARS
8078 @ 75996:            PUSHI  #0x00000000
8079 @ 76001:            JUMPIF # L_0004
8080 @ 76005:            PUSH   PRINTPOS
8081 @ 76008:            PUSHI  #0x00000000
8082 @ 76013:            JUMPIF = L_0005
8083 @ 76017:            PUSH   MP
8084 @ 76020:            PUSHI  #0x00000000
8085 @ 76025:            JUMPIF = L_0004
8086 @ 76029:            PUSH   LIST
8087 @ 76032:            PUSHI  #0x00000002
8088 @ 76037:            AND   
8089 @ 76038:            PUSHI  #0x00000000
8090 @ 76043:            JUMPIF # L_0004
8091 @ 76047:            LOCATE L_0005
8092 @ 76050:            JUMP   L_00f9
8093 @ 76053:            LOCATE L_0004

  1439      PRINT LINE
8094 @ 76056:            LINE   1439 "regression-compile-tmp/hal70.imp"
8095 @ 76092:            PUSH   PRINTLINE
8096 @ 76095:            CALL  

  1440      ->READ
  1441  
8097 @ 76096:            LINE   1440 "regression-compile-tmp/hal70.imp"
8098 @ 76132:            JUMP   L_00f9

  1442  ASSIF:
8099 @ 76135:            LINE   1442 "regression-compile-tmp/hal70.imp"
8100 @ 76171:            LABEL  L_00fc

  1443      ASSCOND = ASSCOND<<1
8101 @ 76174:            LINE   1443 "regression-compile-tmp/hal70.imp"
8102 @ 76210:            PUSH   ASSCOND
8103 @ 76213:            PUSH   ASSCOND
8104 @ 76216:            PUSHI  #0x00000001
8105 @ 76221:            LSH   
8106 @ 76222:            ASSVAL

  1444      ->LEND %IF SKIP # 0
8107 @ 76223:            LINE   1444 "regression-compile-tmp/hal70.imp"
8108 @ 76259:            PUSH   SKIP
8109 @ 76262:            PUSHI  #0x00000000
8110 @ 76267:            JUMPIF = L_0004
8111 @ 76271:            JUMP   L_00ff
8112 @ 76274:            LOCATE L_0004

  1445  A1: CONDIT(0)
8113 @ 76277:            LINE   1445 "regression-compile-tmp/hal70.imp"
8114 @ 76313:            LABEL  L_0116
8115 @ 76316:            LINE   1445 "regression-compile-tmp/hal70.imp"
8116 @ 76352:            PUSH   CONDIT
8117 @ 76355:            PUSHI  #0x00000000
8118 @ 76360:            ASSPAR
8119 @ 76361:            CALL  

  1446      SKIP = ASSCOND %IF COND # 0
8120 @ 76362:            LINE   1446 "regression-compile-tmp/hal70.imp"
8121 @ 76398:            PUSH   COND
8122 @ 76401:            PUSHI  #0x00000000
8123 @ 76406:            JUMPIF = L_0004
8124 @ 76410:            PUSH   SKIP
8125 @ 76413:            PUSH   ASSCOND
8126 @ 76416:            ASSVAL
8127 @ 76417:            LOCATE L_0004

  1447      PRINT LINE %IF PRINTPOS # 0
8128 @ 76420:            LINE   1447 "regression-compile-tmp/hal70.imp"
8129 @ 76456:            PUSH   PRINTPOS
8130 @ 76459:            PUSHI  #0x00000000
8131 @ 76464:            JUMPIF = L_0004
8132 @ 76468:            PUSH   PRINTLINE
8133 @ 76471:            CALL  
8134 @ 76472:            LOCATE L_0004

  1448      ->LEND
  1449  
8135 @ 76475:            LINE   1448 "regression-compile-tmp/hal70.imp"
8136 @ 76511:            JUMP   L_00ff

  1450  ASSELSE:
8137 @ 76514:            LINE   1450 "regression-compile-tmp/hal70.imp"
8138 @ 76550:            LABEL  L_00fd

  1451      %IF SKIP = 0 %START
8139 @ 76553:            LINE   1451 "regression-compile-tmp/hal70.imp"
8140 @ 76589:            PUSH   SKIP
8141 @ 76592:            PUSHI  #0x00000000
8142 @ 76597:            JUMPIF # L_0004

  1452         ->CERR %IF ASSCOND&1 # 0
8143 @ 76601:            LINE   1452 "regression-compile-tmp/hal70.imp"
8144 @ 76637:            PUSH   ASSCOND
8145 @ 76640:            PUSHI  #0x00000001
8146 @ 76645:            AND   
8147 @ 76646:            PUSHI  #0x00000000
8148 @ 76651:            JUMPIF = L_0007
8149 @ 76655:            JUMP   L_0115
8150 @ 76658:            LOCATE L_0007

  1453         SKIP = ASSCOND
8151 @ 76661:            LINE   1453 "regression-compile-tmp/hal70.imp"
8152 @ 76697:            PUSH   SKIP
8153 @ 76700:            PUSH   ASSCOND
8154 @ 76703:            ASSVAL

  1454      %finish %ELSE %START
8155 @ 76704:            LINE   1454 "regression-compile-tmp/hal70.imp"
8156 @ 76740:            GOTO   L_0003
8157 @ 76743:            LOCATE L_0004

  1455         ->LEND %IF SKIP # ASSCOND
8158 @ 76746:            LINE   1455 "regression-compile-tmp/hal70.imp"
8159 @ 76782:            PUSH   SKIP
8160 @ 76785:            PUSH   ASSCOND
8161 @ 76788:            JUMPIF = L_0007
8162 @ 76792:            JUMP   L_00ff
8163 @ 76795:            LOCATE L_0007

  1456         SKIP = 0
8164 @ 76798:            LINE   1456 "regression-compile-tmp/hal70.imp"
8165 @ 76834:            PUSH   SKIP
8166 @ 76837:            PUSHI  #0x00000000
8167 @ 76842:            ASSVAL

  1457         ->A1 %IF TAGIF
8168 @ 76843:            LINE   1457 "regression-compile-tmp/hal70.imp"
8169 @ 76879:            PUSH   TAGIF
8170 @ 76882:            CALL  
8171 @ 76883:            bf     L_0007
8172 @ 76886:            JUMP   L_0116
8173 @ 76889:            LOCATE L_0007

  1458      %FINISH
8174 @ 76892:            LINE   1458 "regression-compile-tmp/hal70.imp"
8175 @ 76928:            LOCATE L_0003

  1459      ASSCOND = ASSCOND+1
8176 @ 76931:            LINE   1459 "regression-compile-tmp/hal70.imp"
8177 @ 76967:            PUSH   ASSCOND
8178 @ 76970:            PUSH   ASSCOND
8179 @ 76973:            PUSHI  #0x00000001
8180 @ 76978:            ADD   
8181 @ 76979:            ASSVAL

  1460      ->LEND
  1461  
8182 @ 76980:            LINE   1460 "regression-compile-tmp/hal70.imp"
8183 @ 77016:            JUMP   L_00ff

  1462  ASSFIN:
8184 @ 77019:            LINE   1462 "regression-compile-tmp/hal70.imp"
8185 @ 77055:            LABEL  L_00fe

  1463      ->CERR %IF ASSCOND = 1
8186 @ 77058:            LINE   1463 "regression-compile-tmp/hal70.imp"
8187 @ 77094:            PUSH   ASSCOND
8188 @ 77097:            PUSHI  #0x00000001
8189 @ 77102:            JUMPIF # L_0004
8190 @ 77106:            JUMP   L_0115
8191 @ 77109:            LOCATE L_0004

  1464      ASSCOND = ASSCOND>>1
8192 @ 77112:            LINE   1464 "regression-compile-tmp/hal70.imp"
8193 @ 77148:            PUSH   ASSCOND
8194 @ 77151:            PUSH   ASSCOND
8195 @ 77154:            PUSHI  #0x00000001
8196 @ 77159:            RSH   
8197 @ 77160:            ASSVAL

  1465      SKIP = 0 %IF SKIP>>1 = ASSCOND
8198 @ 77161:            LINE   1465 "regression-compile-tmp/hal70.imp"
8199 @ 77197:            PUSH   SKIP
8200 @ 77200:            PUSHI  #0x00000001
8201 @ 77205:            RSH   
8202 @ 77206:            PUSH   ASSCOND
8203 @ 77209:            JUMPIF # L_0004
8204 @ 77213:            PUSH   SKIP
8205 @ 77216:            PUSHI  #0x00000000
8206 @ 77221:            ASSVAL
8207 @ 77222:            LOCATE L_0004

  1466      ->LEND
  1467  
8208 @ 77225:            LINE   1466 "regression-compile-tmp/hal70.imp"
8209 @ 77261:            JUMP   L_00ff

  1468  DEFINE:
8210 @ 77264:            LINE   1468 "regression-compile-tmp/hal70.imp"
8211 @ 77300:            LABEL  L_0100

  1469      FAULT('C') %IF NP # STORELIM
8212 @ 77303:            LINE   1469 "regression-compile-tmp/hal70.imp"
8213 @ 77339:            PUSH   NP
8214 @ 77342:            PUSH   STORELIM
8215 @ 77345:            JUMPIF = L_0004
8216 @ 77349:            PUSH   FAULT
8217 @ 77352:            PUSHI  #0x00000043
8218 @ 77357:            ASSPAR
8219 @ 77358:            CALL  
8220 @ 77359:            LOCATE L_0004

  1470      I = TAG1
8221 @ 77362:            LINE   1470 "regression-compile-tmp/hal70.imp"
8222 @ 77398:            PUSH   I
8223 @ 77401:            PUSH   TAG1
8224 @ 77404:            ASSVAL

  1471      %CYCLE
8225 @ 77405:            LINE   1471 "regression-compile-tmp/hal70.imp"
8226 @ 77441:            LOCATE L_0003

  1472         ->ERR %IF %NOT (TAG %AND S('='))
8227 @ 77444:            LINE   1472 "regression-compile-tmp/hal70.imp"
8228 @ 77480:            PUSH   TAG
8229 @ 77483:            CALL  
8230 @ 77484:            bf     L_0008
8231 @ 77487:            PUSH   S
8232 @ 77490:            PUSHI  #0x0000003d
8233 @ 77495:            ASSPAR
8234 @ 77496:            CALL  
8235 @ 77497:            bt     L_0007
8236 @ 77500:            LOCATE L_0008
8237 @ 77503:            JUMP   L_00f6
8238 @ 77506:            LOCATE L_0007

  1473         J = TAG1;  K = TAG2
8239 @ 77509:            LINE   1473 "regression-compile-tmp/hal70.imp"
8240 @ 77545:            PUSH   J
8241 @ 77548:            PUSH   TAG1
8242 @ 77551:            ASSVAL
8243 @ 77552:            LINE   1473 "regression-compile-tmp/hal70.imp"
8244 @ 77588:            PUSH   K
8245 @ 77591:            PUSH   TAG2
8246 @ 77594:            ASSVAL

  1474         %IF TAG %START
8247 @ 77595:            LINE   1474 "regression-compile-tmp/hal70.imp"
8248 @ 77631:            PUSH   TAG
8249 @ 77634:            CALL  
8250 @ 77635:            bf     L_0007

  1475            TAGREF
8251 @ 77638:            LINE   1475 "regression-compile-tmp/hal70.imp"
8252 @ 77674:            PUSH   TAGREF
8253 @ 77677:            CALL  

  1476            %IF TYPE&OPMASK # 0 %START
8254 @ 77678:            LINE   1476 "regression-compile-tmp/hal70.imp"
8255 @ 77714:            PUSH   TYPE
8256 @ 77717:            PUSH   OPMASK
8257 @ 77720:            AND   
8258 @ 77721:            PUSHI  #0x00000000
8259 @ 77726:            JUMPIF = L_000a

  1477               GET INST
8260 @ 77730:            LINE   1477 "regression-compile-tmp/hal70.imp"
8261 @ 77766:            PUSH   GETINST
8262 @ 77769:            CALL  

  1478            %finish %ELSE %START
8263 @ 77770:            LINE   1478 "regression-compile-tmp/hal70.imp"
8264 @ 77806:            GOTO   L_0009
8265 @ 77809:            LOCATE L_000a

  1479               PEND = -1;  GET EXP
8266 @ 77812:            LINE   1479 "regression-compile-tmp/hal70.imp"
8267 @ 77848:            PUSH   PEND
8268 @ 77851:            PUSHI  #0x00000001
8269 @ 77856:            NEGATE
8270 @ 77857:            ASSVAL
8271 @ 77858:            LINE   1479 "regression-compile-tmp/hal70.imp"
8272 @ 77894:            PUSH   GETEXP
8273 @ 77897:            CALL  

  1480            %FINISH
8274 @ 77898:            LINE   1480 "regression-compile-tmp/hal70.imp"
8275 @ 77934:            LOCATE L_0009

  1481         %finish %ELSE GET EXP
8276 @ 77937:            LINE   1481 "regression-compile-tmp/hal70.imp"
8277 @ 77973:            GOTO   L_0006
8278 @ 77976:            LOCATE L_0007
8279 @ 77979:            PUSH   GETEXP
8280 @ 77982:            CALL  
8281 @ 77983:            LOCATE L_0006

  1482         ASSEMBLE
8282 @ 77986:            LINE   1482 "regression-compile-tmp/hal70.imp"
8283 @ 78022:            PUSH   ASSEMBLE
8284 @ 78025:            CALL  

  1483         TAG1 = J;  TAG2 = K
8285 @ 78026:            LINE   1483 "regression-compile-tmp/hal70.imp"
8286 @ 78062:            PUSH   TAG1
8287 @ 78065:            PUSH   J
8288 @ 78068:            ASSVAL
8289 @ 78069:            LINE   1483 "regression-compile-tmp/hal70.imp"
8290 @ 78105:            PUSH   TAG2
8291 @ 78108:            PUSH   K
8292 @ 78111:            ASSVAL

  1484         %IF I=DEF %THEN LOOKUP(3) %ELSE LOOKUP(2)
8293 @ 78112:            LINE   1484 "regression-compile-tmp/hal70.imp"
8294 @ 78148:            PUSH   I
8295 @ 78151:            PUSH   DEF
8296 @ 78154:            JUMPIF # L_0007
8297 @ 78158:            PUSH   LOOKUP
8298 @ 78161:            PUSHI  #0x00000003
8299 @ 78166:            ASSPAR
8300 @ 78167:            CALL  
8301 @ 78168:            GOTO   L_0006
8302 @ 78171:            LOCATE L_0007
8303 @ 78174:            PUSH   LOOKUP
8304 @ 78177:            PUSHI  #0x00000002
8305 @ 78182:            ASSPAR
8306 @ 78183:            CALL  
8307 @ 78184:            LOCATE L_0006

  1485         %EXIT %UNLESS S(',')
8308 @ 78187:            LINE   1485 "regression-compile-tmp/hal70.imp"
8309 @ 78223:            PUSH   S
8310 @ 78226:            PUSHI  #0x0000002c
8311 @ 78231:            ASSPAR
8312 @ 78232:            CALL  
8313 @ 78233:            bt     L_0007
8314 @ 78236:            GOTO   L_0004
8315 @ 78239:            LOCATE L_0007

  1486         QLIM = QSTART
8316 @ 78242:            LINE   1486 "regression-compile-tmp/hal70.imp"
8317 @ 78278:            PUSH   QLIM
8318 @ 78281:            PUSH   QSTART
8319 @ 78284:            ASSVAL

  1487      %REPEAT
8320 @ 78285:            LINE   1487 "regression-compile-tmp/hal70.imp"
8321 @ 78321:            REPEAT L_0003
8322 @ 78324:            LOCATE L_0004

  1488      ->SEND
  1489  
8323 @ 78327:            LINE   1488 "regression-compile-tmp/hal70.imp"
8324 @ 78363:            JUMP   L_0113

  1490  NEWPAGE:
8325 @ 78366:            LINE   1490 "regression-compile-tmp/hal70.imp"
8326 @ 78402:            LABEL  L_00fb

  1491      DO NEWLINE %WHILE LINES # 0
8327 @ 78405:            LINE   1491 "regression-compile-tmp/hal70.imp"
8328 @ 78441:            LOCATE L_0003
8329 @ 78444:            PUSH   LINES
8330 @ 78447:            PUSHI  #0x00000000
8331 @ 78452:            JUMPIF = L_0004
8332 @ 78456:            PUSH   DONEWLINE
8333 @ 78459:            CALL  
8334 @ 78460:            REPEAT L_0003
8335 @ 78463:            LOCATE L_0004

  1492      ->LEND
  1493  
8336 @ 78466:            LINE   1492 "regression-compile-tmp/hal70.imp"
8337 @ 78502:            JUMP   L_00ff

  1494  LISTC:
8338 @ 78505:            LINE   1494 "regression-compile-tmp/hal70.imp"
8339 @ 78541:            LABEL  L_0101

  1495      GET EXP;  ASSEMBLE
8340 @ 78544:            LINE   1495 "regression-compile-tmp/hal70.imp"
8341 @ 78580:            PUSH   GETEXP
8342 @ 78583:            CALL  
8343 @ 78584:            LINE   1495 "regression-compile-tmp/hal70.imp"
8344 @ 78620:            PUSH   ASSEMBLE
8345 @ 78623:            CALL  

  1496      LIST = VAL
8346 @ 78624:            LINE   1496 "regression-compile-tmp/hal70.imp"
8347 @ 78660:            PUSH   LIST
8348 @ 78663:            PUSH   VAL
8349 @ 78666:            ASSVAL

  1497      ->SEND
  1498  
8350 @ 78667:            LINE   1497 "regression-compile-tmp/hal70.imp"
8351 @ 78703:            JUMP   L_0113

  1499  TEMP:
8352 @ 78706:            LINE   1499 "regression-compile-tmp/hal70.imp"
8353 @ 78742:            LABEL  L_0102

  1500      I = 0
8354 @ 78745:            LINE   1500 "regression-compile-tmp/hal70.imp"
8355 @ 78781:            PUSH   I
8356 @ 78784:            PUSHI  #0x00000000
8357 @ 78789:            ASSVAL

  1501      %IF SYM # NL %START
8358 @ 78790:            LINE   1501 "regression-compile-tmp/hal70.imp"
8359 @ 78826:            PUSH   SYM
8360 @ 78829:            PUSHI  #0x0000000a
8361 @ 78834:            JUMPIF = L_0004

  1502         %CYCLE
8362 @ 78838:            LINE   1502 "regression-compile-tmp/hal70.imp"
8363 @ 78874:            LOCATE L_0006

  1503            GET EXP
8364 @ 78877:            LINE   1503 "regression-compile-tmp/hal70.imp"
8365 @ 78913:            PUSH   GETEXP
8366 @ 78916:            CALL  

  1504            FAULT('I') %IF TYPE # REG
8367 @ 78917:            LINE   1504 "regression-compile-tmp/hal70.imp"
8368 @ 78953:            PUSH   TYPE
8369 @ 78956:            PUSH   REG
8370 @ 78959:            JUMPIF = L_000a
8371 @ 78963:            PUSH   FAULT
8372 @ 78966:            PUSHI  #0x00000049
8373 @ 78971:            ASSPAR
8374 @ 78972:            CALL  
8375 @ 78973:            LOCATE L_000a

  1505            I = I!1<<VAL
8376 @ 78976:            LINE   1505 "regression-compile-tmp/hal70.imp"
8377 @ 79012:            PUSH   I
8378 @ 79015:            PUSH   I
8379 @ 79018:            PUSHI  #0x00000001
8380 @ 79023:            PUSH   VAL
8381 @ 79026:            LSH   
8382 @ 79027:            OR    
8383 @ 79028:            ASSVAL

  1506            %EXIT %UNLESS S(',')
8384 @ 79029:            LINE   1506 "regression-compile-tmp/hal70.imp"
8385 @ 79065:            PUSH   S
8386 @ 79068:            PUSHI  #0x0000002c
8387 @ 79073:            ASSPAR
8388 @ 79074:            CALL  
8389 @ 79075:            bt     L_000a
8390 @ 79078:            GOTO   L_0007
8391 @ 79081:            LOCATE L_000a

  1507         %REPEAT
8392 @ 79084:            LINE   1507 "regression-compile-tmp/hal70.imp"
8393 @ 79120:            REPEAT L_0006
8394 @ 79123:            LOCATE L_0007

  1508      %FINISH
8395 @ 79126:            LINE   1508 "regression-compile-tmp/hal70.imp"
8396 @ 79162:            LOCATE L_0004

  1509      TEMPS = I
8397 @ 79165:            LINE   1509 "regression-compile-tmp/hal70.imp"
8398 @ 79201:            PUSH   TEMPS
8399 @ 79204:            PUSH   I
8400 @ 79207:            ASSVAL

  1510      SET ACC
8401 @ 79208:            LINE   1510 "regression-compile-tmp/hal70.imp"
8402 @ 79244:            PUSH   SETACC
8403 @ 79247:            CALL  

  1511      ->SEND
  1512  
8404 @ 79248:            LINE   1511 "regression-compile-tmp/hal70.imp"
8405 @ 79284:            JUMP   L_0113

  1513  LOCC:
8406 @ 79287:            LINE   1513 "regression-compile-tmp/hal70.imp"
8407 @ 79323:            LABEL  L_0103

  1514      I = TAG1
8408 @ 79326:            LINE   1514 "regression-compile-tmp/hal70.imp"
8409 @ 79362:            PUSH   I
8410 @ 79365:            PUSH   TAG1
8411 @ 79368:            ASSVAL

  1515      GET EXP;  ASSEMBLE
8412 @ 79369:            LINE   1515 "regression-compile-tmp/hal70.imp"
8413 @ 79405:            PUSH   GETEXP
8414 @ 79408:            CALL  
8415 @ 79409:            LINE   1515 "regression-compile-tmp/hal70.imp"
8416 @ 79445:            PUSH   ASSEMBLE
8417 @ 79448:            CALL  

  1516      %IF TYPE&16_FF80 = 0 %START
8418 @ 79449:            LINE   1516 "regression-compile-tmp/hal70.imp"
8419 @ 79485:            PUSH   TYPE
8420 @ 79488:            PUSHI  #0x0000ff80
8421 @ 79493:            AND   
8422 @ 79494:            PUSHI  #0x00000000
8423 @ 79499:            JUMPIF # L_0004

  1517         %IF I = 13556 %START;          !LOC
8424 @ 79503:            LINE   1517 "regression-compile-tmp/hal70.imp"
8425 @ 79539:            PUSH   I
8426 @ 79542:            PUSHI  #0x000034f4
8427 @ 79547:            JUMPIF # L_0007

  1518            OUTPUT RECORD %IF BINCOUNT >= 203
8428 @ 79551:            LINE   1518 "regression-compile-tmp/hal70.imp"
8429 @ 79587:            PUSH   BINCOUNT
8430 @ 79590:            PUSHI  #0x000000cb
8431 @ 79595:            JUMPIF < L_000a
8432 @ 79599:            PUSH   OUTPUTRECORD
8433 @ 79602:            CALL  
8434 @ 79603:            LOCATE L_000a

  1519            PUT(3) %IF (LOCTYPE!!TYPE)&RELMASK # 0
8435 @ 79606:            LINE   1519 "regression-compile-tmp/hal70.imp"
8436 @ 79642:            PUSH   LOCTYPE
8437 @ 79645:            PUSH   TYPE
8438 @ 79648:            XOR   
8439 @ 79649:            PUSH   RELMASK
8440 @ 79652:            AND   
8441 @ 79653:            PUSHI  #0x00000000
8442 @ 79658:            JUMPIF = L_000a
8443 @ 79662:            PUSH   PUT
8444 @ 79665:            PUSHI  #0x00000003
8445 @ 79670:            ASSPAR
8446 @ 79671:            CALL  
8447 @ 79672:            LOCATE L_000a

  1520            PUT(5);  PUT WORD(VAL)
8448 @ 79675:            LINE   1520 "regression-compile-tmp/hal70.imp"
8449 @ 79711:            PUSH   PUT
8450 @ 79714:            PUSHI  #0x00000005
8451 @ 79719:            ASSPAR
8452 @ 79720:            CALL  
8453 @ 79721:            LINE   1520 "regression-compile-tmp/hal70.imp"
8454 @ 79757:            PUSH   PUTWORD
8455 @ 79760:            PUSH   VAL
8456 @ 79763:            ASSPAR
8457 @ 79764:            CALL  

  1521         %FINISH
8458 @ 79765:            LINE   1521 "regression-compile-tmp/hal70.imp"
8459 @ 79801:            LOCATE L_0007

  1522         LOCTYPE = TYPE&63+MEMMASK;  LOC = VAL
8460 @ 79804:            LINE   1522 "regression-compile-tmp/hal70.imp"
8461 @ 79840:            PUSH   LOCTYPE
8462 @ 79843:            PUSH   TYPE
8463 @ 79846:            PUSHI  #0x0000003f
8464 @ 79851:            AND   
8465 @ 79852:            PUSH   MEMMASK
8466 @ 79855:            ADD   
8467 @ 79856:            ASSVAL
8468 @ 79857:            LINE   1522 "regression-compile-tmp/hal70.imp"
8469 @ 79893:            PUSH   LOC
8470 @ 79896:            PUSH   VAL
8471 @ 79899:            ASSVAL

  1523      %finish %ELSE FAULT('I')
8472 @ 79900:            LINE   1523 "regression-compile-tmp/hal70.imp"
8473 @ 79936:            GOTO   L_0003
8474 @ 79939:            LOCATE L_0004
8475 @ 79942:            PUSH   FAULT
8476 @ 79945:            PUSHI  #0x00000049
8477 @ 79950:            ASSPAR
8478 @ 79951:            CALL  
8479 @ 79952:            LOCATE L_0003

  1524      ->SEND
  1525  
8480 @ 79955:            LINE   1524 "regression-compile-tmp/hal70.imp"
8481 @ 79991:            JUMP   L_0113

  1526  SAVC:
8482 @ 79994:            LINE   1526 "regression-compile-tmp/hal70.imp"
8483 @ 80030:            LABEL  L_0104

  1527      GET EXP;  ASSEMBLE
8484 @ 80033:            LINE   1527 "regression-compile-tmp/hal70.imp"
8485 @ 80069:            PUSH   GETEXP
8486 @ 80072:            CALL  
8487 @ 80073:            LINE   1527 "regression-compile-tmp/hal70.imp"
8488 @ 80109:            PUSH   ASSEMBLE
8489 @ 80112:            CALL  

  1528      SAVE = VAL
8490 @ 80113:            LINE   1528 "regression-compile-tmp/hal70.imp"
8491 @ 80149:            PUSH   SAVE
8492 @ 80152:            PUSH   VAL
8493 @ 80155:            ASSVAL

  1529      ->SEND
  1530  
8494 @ 80156:            LINE   1529 "regression-compile-tmp/hal70.imp"
8495 @ 80192:            JUMP   L_0113

  1531  MACDEF:
8496 @ 80195:            LINE   1531 "regression-compile-tmp/hal70.imp"
8497 @ 80231:            LABEL  L_0105

  1532      ->CERR %IF MP # 0
8498 @ 80234:            LINE   1532 "regression-compile-tmp/hal70.imp"
8499 @ 80270:            PUSH   MP
8500 @ 80273:            PUSHI  #0x00000000
8501 @ 80278:            JUMPIF = L_0004
8502 @ 80282:            JUMP   L_0115
8503 @ 80285:            LOCATE L_0004

  1533      ->ERR %IF %NOT TAG
8504 @ 80288:            LINE   1533 "regression-compile-tmp/hal70.imp"
8505 @ 80324:            PUSH   TAG
8506 @ 80327:            CALL  
8507 @ 80328:            bt     L_0004
8508 @ 80331:            JUMP   L_00f6
8509 @ 80334:            LOCATE L_0004

  1534      J = TAG1;  K = TAG2
8510 @ 80337:            LINE   1534 "regression-compile-tmp/hal70.imp"
8511 @ 80373:            PUSH   J
8512 @ 80376:            PUSH   TAG1
8513 @ 80379:            ASSVAL
8514 @ 80380:            LINE   1534 "regression-compile-tmp/hal70.imp"
8515 @ 80416:            PUSH   K
8516 @ 80419:            PUSH   TAG2
8517 @ 80422:            ASSVAL

  1535      I = GETPOS-1
8518 @ 80423:            LINE   1535 "regression-compile-tmp/hal70.imp"
8519 @ 80459:            PUSH   I
8520 @ 80462:            PUSH   GETPOS
8521 @ 80465:            PUSHI  #0x00000001
8522 @ 80470:            SUB   
8523 @ 80471:            ASSVAL

  1536      %IF SYM # NL %START
8524 @ 80472:            LINE   1536 "regression-compile-tmp/hal70.imp"
8525 @ 80508:            PUSH   SYM
8526 @ 80511:            PUSHI  #0x0000000a
8527 @ 80516:            JUMPIF = L_0004

  1537         %CYCLE
8528 @ 80520:            LINE   1537 "regression-compile-tmp/hal70.imp"
8529 @ 80556:            LOCATE L_0006

  1538            ->ERR %IF %NOT TAG
8530 @ 80559:            LINE   1538 "regression-compile-tmp/hal70.imp"
8531 @ 80595:            PUSH   TAG
8532 @ 80598:            CALL  
8533 @ 80599:            bt     L_000a
8534 @ 80602:            JUMP   L_00f6
8535 @ 80605:            LOCATE L_000a

  1539            SCAN ARG
8536 @ 80608:            LINE   1539 "regression-compile-tmp/hal70.imp"
8537 @ 80644:            PUSH   SCANARG
8538 @ 80647:            CALL  

  1540            %EXIT %IF %NOT S(',')
8539 @ 80648:            LINE   1540 "regression-compile-tmp/hal70.imp"
8540 @ 80684:            PUSH   S
8541 @ 80687:            PUSHI  #0x0000002c
8542 @ 80692:            ASSPAR
8543 @ 80693:            CALL  
8544 @ 80694:            bt     L_000a
8545 @ 80697:            GOTO   L_0007
8546 @ 80700:            LOCATE L_000a

  1541         %REPEAT
8547 @ 80703:            LINE   1541 "regression-compile-tmp/hal70.imp"
8548 @ 80739:            REPEAT L_0006
8549 @ 80742:            LOCATE L_0007

  1542      %FINISH
8550 @ 80745:            LINE   1542 "regression-compile-tmp/hal70.imp"
8551 @ 80781:            LOCATE L_0004

  1543      ->ERR %IF SYM # NL
8552 @ 80784:            LINE   1543 "regression-compile-tmp/hal70.imp"
8553 @ 80820:            PUSH   SYM
8554 @ 80823:            PUSHI  #0x0000000a
8555 @ 80828:            JUMPIF = L_0004
8556 @ 80832:            JUMP   L_00f6
8557 @ 80835:            LOCATE L_0004

  1544      TAG1 = J;  TAG2 = K
8558 @ 80838:            LINE   1544 "regression-compile-tmp/hal70.imp"
8559 @ 80874:            PUSH   TAG1
8560 @ 80877:            PUSH   J
8561 @ 80880:            ASSVAL
8562 @ 80881:            LINE   1544 "regression-compile-tmp/hal70.imp"
8563 @ 80917:            PUSH   TAG2
8564 @ 80920:            PUSH   K
8565 @ 80923:            ASSVAL

  1545      TYPE = MACRO;  VAL = I
8566 @ 80924:            LINE   1545 "regression-compile-tmp/hal70.imp"
8567 @ 80960:            PUSH   TYPE
8568 @ 80963:            PUSH   MACRO
8569 @ 80966:            ASSVAL
8570 @ 80967:            LINE   1545 "regression-compile-tmp/hal70.imp"
8571 @ 81003:            PUSH   VAL
8572 @ 81006:            PUSH   I
8573 @ 81009:            ASSVAL

  1546      LOOKUP(3)
8574 @ 81010:            LINE   1546 "regression-compile-tmp/hal70.imp"
8575 @ 81046:            PUSH   LOOKUP
8576 @ 81049:            PUSHI  #0x00000003
8577 @ 81054:            ASSPAR
8578 @ 81055:            CALL  

  1547      %CYCLE
8579 @ 81056:            LINE   1547 "regression-compile-tmp/hal70.imp"
8580 @ 81092:            LOCATE L_0003

  1548         PRINT LINE
8581 @ 81095:            LINE   1548 "regression-compile-tmp/hal70.imp"
8582 @ 81131:            PUSH   PRINTLINE
8583 @ 81134:            CALL  

  1549         %EXIT %IF S('$') %AND TAG %AND TAG1 = END
8584 @ 81135:            LINE   1549 "regression-compile-tmp/hal70.imp"
8585 @ 81171:            PUSH   S
8586 @ 81174:            PUSHI  #0x00000024
8587 @ 81179:            ASSPAR
8588 @ 81180:            CALL  
8589 @ 81181:            bf     L_0007
8590 @ 81184:            PUSH   TAG
8591 @ 81187:            CALL  
8592 @ 81188:            bf     L_0007
8593 @ 81191:            PUSH   TAG1
8594 @ 81194:            PUSH   END
8595 @ 81197:            JUMPIF # L_0007
8596 @ 81201:            GOTO   L_0004
8597 @ 81204:            LOCATE L_0007

  1550         STARTPOS = PUTPOS
8598 @ 81207:            LINE   1550 "regression-compile-tmp/hal70.imp"
8599 @ 81243:            PUSH   STARTPOS
8600 @ 81246:            PUSH   PUTPOS
8601 @ 81249:            ASSVAL

  1551         STARTPOS = PSEUDOLIM+1 %IF PSEUDOLIM # 0
8602 @ 81250:            LINE   1551 "regression-compile-tmp/hal70.imp"
8603 @ 81286:            PUSH   PSEUDOLIM
8604 @ 81289:            PUSHI  #0x00000000
8605 @ 81294:            JUMPIF = L_0007
8606 @ 81298:            PUSH   STARTPOS
8607 @ 81301:            PUSH   PSEUDOLIM
8608 @ 81304:            PUSHI  #0x00000001
8609 @ 81309:            ADD   
8610 @ 81310:            ASSVAL
8611 @ 81311:            LOCATE L_0007

  1552         READ LINE
8612 @ 81314:            LINE   1552 "regression-compile-tmp/hal70.imp"
8613 @ 81350:            PUSH   READLINE
8614 @ 81353:            CALL  

  1553      %REPEAT
8615 @ 81354:            LINE   1553 "regression-compile-tmp/hal70.imp"
8616 @ 81390:            REPEAT L_0003
8617 @ 81393:            LOCATE L_0004

  1554      PUTPOS = STARTPOS;  PUT CHAR(0)
8618 @ 81396:            LINE   1554 "regression-compile-tmp/hal70.imp"
8619 @ 81432:            PUSH   PUTPOS
8620 @ 81435:            PUSH   STARTPOS
8621 @ 81438:            ASSVAL
8622 @ 81439:            LINE   1554 "regression-compile-tmp/hal70.imp"
8623 @ 81475:            PUSH   PUTCHAR
8624 @ 81478:            PUSHI  #0x00000000
8625 @ 81483:            ASSPAR
8626 @ 81484:            CALL  

  1555      STARTPOS = PUTPOS
8627 @ 81485:            LINE   1555 "regression-compile-tmp/hal70.imp"
8628 @ 81521:            PUSH   STARTPOS
8629 @ 81524:            PUSH   PUTPOS
8630 @ 81527:            ASSVAL

  1556      MACLIM = STARTPOS
8631 @ 81528:            LINE   1556 "regression-compile-tmp/hal70.imp"
8632 @ 81564:            PUSH   MACLIM
8633 @ 81567:            PUSH   STARTPOS
8634 @ 81570:            ASSVAL

  1557      ->LEND
  1558  
8635 @ 81571:            LINE   1557 "regression-compile-tmp/hal70.imp"
8636 @ 81607:            JUMP   L_00ff

  1559  %ROUTINE BNEST
  1560  !!    BP = BP+4;  %MONITOR 23 %IF BP-NP >= 0
8637 @ 81610:            LINE   1559 "regression-compile-tmp/hal70.imp"
8638 @ 81646:            DEF    BNEST (_lev0id0_BNEST) p1=V_0117 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
8639 @ 81663:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8640 @ 81664:               FINISH ) {lev=2}

  1561      BP = BP+4;  !{}%signal 2,3 %IF BP-NP >= 0
  1562  !!    INTEGER(BP-3) = SAVE;  INTEGER(BP-2) = TEMPS
8641 @ 81665:               LINE   1561 "regression-compile-tmp/hal70.imp"
8642 @ 81701:               PUSH   BP
8643 @ 81704:               PUSH   BP
8644 @ 81707:               PUSHI  #0x00000004
8645 @ 81712:               ADD   
8646 @ 81713:               ASSVAL

  1563      set INTEGER(BP-3, SAVE);  set INTEGER(BP-2, TEMPS)
  1564  !!    INTEGER(BP-1) = MACLIM;  INTEGER(BP) = DEFMIN
8647 @ 81714:               LINE   1563 "regression-compile-tmp/hal70.imp"
8648 @ 81750:               PUSH   SETINTEGER
8649 @ 81753:               PUSH   BP
8650 @ 81756:               PUSHI  #0x00000003
8651 @ 81761:               SUB   
8652 @ 81762:               ASSPAR
8653 @ 81763:               PUSH   SAVE
8654 @ 81766:               ASSPAR
8655 @ 81767:               CALL  
8656 @ 81768:               LINE   1563 "regression-compile-tmp/hal70.imp"
8657 @ 81804:               PUSH   SETINTEGER
8658 @ 81807:               PUSH   BP
8659 @ 81810:               PUSHI  #0x00000002
8660 @ 81815:               SUB   
8661 @ 81816:               ASSPAR
8662 @ 81817:               PUSH   TEMPS
8663 @ 81820:               ASSPAR
8664 @ 81821:               CALL  

  1565      set INTEGER(BP-1, MACLIM);  set INTEGER(BP, DEFMIN)
8665 @ 81822:               LINE   1565 "regression-compile-tmp/hal70.imp"
8666 @ 81858:               PUSH   SETINTEGER
8667 @ 81861:               PUSH   BP
8668 @ 81864:               PUSHI  #0x00000001
8669 @ 81869:               SUB   
8670 @ 81870:               ASSPAR
8671 @ 81871:               PUSH   MACLIM
8672 @ 81874:               ASSPAR
8673 @ 81875:               CALL  
8674 @ 81876:               LINE   1565 "regression-compile-tmp/hal70.imp"
8675 @ 81912:               PUSH   SETINTEGER
8676 @ 81915:               PUSH   BP
8677 @ 81918:               ASSPAR
8678 @ 81919:               PUSH   DEFMIN
8679 @ 81922:               ASSPAR
8680 @ 81923:               CALL  

  1566  %END
  1567  
8681 @ 81924:               LINE   1566 "regression-compile-tmp/hal70.imp"
8682 @ 81960:            END    _lev0id0_BNEST {lev=2 --> 1}

  1568  BEGIN:
8683 @ 81961:            LINE   1568 "regression-compile-tmp/hal70.imp"
8684 @ 81997:            LABEL  L_0106

  1569      BNEST
8685 @ 82000:            LINE   1569 "regression-compile-tmp/hal70.imp"
8686 @ 82036:            PUSH   BNEST
8687 @ 82039:            CALL  

  1570      ->NEWPAGE %IF SYM # NL
8688 @ 82040:            LINE   1570 "regression-compile-tmp/hal70.imp"
8689 @ 82076:            PUSH   SYM
8690 @ 82079:            PUSHI  #0x0000000a
8691 @ 82084:            JUMPIF = L_0004
8692 @ 82088:            JUMP   L_00fb
8693 @ 82091:            LOCATE L_0004

  1571      ->LEND
  1572  
8694 @ 82094:            LINE   1571 "regression-compile-tmp/hal70.imp"
8695 @ 82130:            JUMP   L_00ff

  1573  BEND:
8696 @ 82133:            LINE   1573 "regression-compile-tmp/hal70.imp"
8697 @ 82169:            LABEL  L_00f7

  1574      FAULT('C') %IF NP # STORELIM %OR MP # 0
8698 @ 82172:            LINE   1574 "regression-compile-tmp/hal70.imp"
8699 @ 82208:            PUSH   NP
8700 @ 82211:            PUSH   STORELIM
8701 @ 82214:            JUMPIF # L_0005
8702 @ 82218:            PUSH   MP
8703 @ 82221:            PUSHI  #0x00000000
8704 @ 82226:            JUMPIF = L_0004
8705 @ 82230:            LOCATE L_0005
8706 @ 82233:            PUSH   FAULT
8707 @ 82236:            PUSHI  #0x00000043
8708 @ 82241:            ASSPAR
8709 @ 82242:            CALL  
8710 @ 82243:            LOCATE L_0004

  1575      MP = 0;  NP = STORELIM
8711 @ 82246:            LINE   1575 "regression-compile-tmp/hal70.imp"
8712 @ 82282:            PUSH   MP
8713 @ 82285:            PUSHI  #0x00000000
8714 @ 82290:            ASSVAL
8715 @ 82291:            LINE   1575 "regression-compile-tmp/hal70.imp"
8716 @ 82327:            PUSH   NP
8717 @ 82330:            PUSH   STORELIM
8718 @ 82333:            ASSVAL

  1576      %IF BP # LABLIM %START
8719 @ 82334:            LINE   1576 "regression-compile-tmp/hal70.imp"
8720 @ 82370:            PUSH   BP
8721 @ 82373:            PUSH   LABLIM
8722 @ 82376:            JUMPIF = L_0004

  1577         SAVE = INTEGER(BP-3);  TEMPS = INTEGER(BP-2)
8723 @ 82380:            LINE   1577 "regression-compile-tmp/hal70.imp"
8724 @ 82416:            PUSH   SAVE
8725 @ 82419:            PUSH   INTEGER
8726 @ 82422:            PUSH   BP
8727 @ 82425:            PUSHI  #0x00000003
8728 @ 82430:            SUB   
8729 @ 82431:            ASSPAR
8730 @ 82432:            CALL  
8731 @ 82433:            ASSVAL
8732 @ 82434:            LINE   1577 "regression-compile-tmp/hal70.imp"
8733 @ 82470:            PUSH   TEMPS
8734 @ 82473:            PUSH   INTEGER
8735 @ 82476:            PUSH   BP
8736 @ 82479:            PUSHI  #0x00000002
8737 @ 82484:            SUB   
8738 @ 82485:            ASSPAR
8739 @ 82486:            CALL  
8740 @ 82487:            ASSVAL

  1578         MACLIM = INTEGER(BP-1);  STARTPOS = MACLIM
8741 @ 82488:            LINE   1578 "regression-compile-tmp/hal70.imp"
8742 @ 82524:            PUSH   MACLIM
8743 @ 82527:            PUSH   INTEGER
8744 @ 82530:            PUSH   BP
8745 @ 82533:            PUSHI  #0x00000001
8746 @ 82538:            SUB   
8747 @ 82539:            ASSPAR
8748 @ 82540:            CALL  
8749 @ 82541:            ASSVAL
8750 @ 82542:            LINE   1578 "regression-compile-tmp/hal70.imp"
8751 @ 82578:            PUSH   STARTPOS
8752 @ 82581:            PUSH   MACLIM
8753 @ 82584:            ASSVAL

  1579         DEFMIN = INTEGER(BP)
8754 @ 82585:            LINE   1579 "regression-compile-tmp/hal70.imp"
8755 @ 82621:            PUSH   DEFMIN
8756 @ 82624:            PUSH   INTEGER
8757 @ 82627:            PUSH   BP
8758 @ 82630:            ASSPAR
8759 @ 82631:            CALL  
8760 @ 82632:            ASSVAL

  1580         SET ACC
8761 @ 82633:            LINE   1580 "regression-compile-tmp/hal70.imp"
8762 @ 82669:            PUSH   SETACC
8763 @ 82672:            CALL  

  1581         BP = BP-4
8764 @ 82673:            LINE   1581 "regression-compile-tmp/hal70.imp"
8765 @ 82709:            PUSH   BP
8766 @ 82712:            PUSH   BP
8767 @ 82715:            PUSHI  #0x00000004
8768 @ 82720:            SUB   
8769 @ 82721:            ASSVAL

  1582         ->LEND %IF BP # LABLIM
8770 @ 82722:            LINE   1582 "regression-compile-tmp/hal70.imp"
8771 @ 82758:            PUSH   BP
8772 @ 82761:            PUSH   LABLIM
8773 @ 82764:            JUMPIF = L_0007
8774 @ 82768:            JUMP   L_00ff
8775 @ 82771:            LOCATE L_0007

  1583      %FINISH
8776 @ 82774:            LINE   1583 "regression-compile-tmp/hal70.imp"
8777 @ 82810:            LOCATE L_0004

  1584      CLOSE INPUT;  SELECT INPUT(MAIN)
8778 @ 82813:            LINE   1584 "regression-compile-tmp/hal70.imp"
8779 @ 82849:            PUSH   CLOSEINPUT
8780 @ 82852:            CALL  
8781 @ 82853:            LINE   1584 "regression-compile-tmp/hal70.imp"
8782 @ 82889:            PUSH   SELECTINPUT
8783 @ 82892:            PUSH   MAIN
8784 @ 82895:            ASSPAR
8785 @ 82896:            CALL  

  1585      BNEST
8786 @ 82897:            LINE   1585 "regression-compile-tmp/hal70.imp"
8787 @ 82933:            PUSH   BNEST
8788 @ 82936:            CALL  

  1586      LIST = 5
8789 @ 82937:            LINE   1586 "regression-compile-tmp/hal70.imp"
8790 @ 82973:            PUSH   LIST
8791 @ 82976:            PUSHI  #0x00000005
8792 @ 82981:            ASSVAL

  1587      PASS = PASS+1
8793 @ 82982:            LINE   1587 "regression-compile-tmp/hal70.imp"
8794 @ 83018:            PUSH   PASS
8795 @ 83021:            PUSH   PASS
8796 @ 83024:            PUSHI  #0x00000001
8797 @ 83029:            ADD   
8798 @ 83030:            ASSVAL

  1588      ->DO PASS %IF PASS # 2
  1589  
8799 @ 83031:            LINE   1588 "regression-compile-tmp/hal70.imp"
8800 @ 83067:            PUSH   PASS
8801 @ 83070:            PUSHI  #0x00000002
8802 @ 83075:            JUMPIF = L_0004
8803 @ 83079:            JUMP   L_00f8
8804 @ 83082:            LOCATE L_0004

  1590      OUTPUT RECORD %IF BINCOUNT = 208
8805 @ 83085:            LINE   1590 "regression-compile-tmp/hal70.imp"
8806 @ 83121:            PUSH   BINCOUNT
8807 @ 83124:            PUSHI  #0x000000d0
8808 @ 83129:            JUMPIF # L_0004
8809 @ 83133:            PUSH   OUTPUTRECORD
8810 @ 83136:            CALL  
8811 @ 83137:            LOCATE L_0004

  1591      PUT(1)
8812 @ 83140:            LINE   1591 "regression-compile-tmp/hal70.imp"
8813 @ 83176:            PUSH   PUT
8814 @ 83179:            PUSHI  #0x00000001
8815 @ 83184:            ASSPAR
8816 @ 83185:            CALL  

  1592      OUTPUT RECORD
8817 @ 83186:            LINE   1592 "regression-compile-tmp/hal70.imp"
8818 @ 83222:            PUSH   OUTPUTRECORD
8819 @ 83225:            CALL  

  1593      FAULT('$')
8820 @ 83226:            LINE   1593 "regression-compile-tmp/hal70.imp"
8821 @ 83262:            PUSH   FAULT
8822 @ 83265:            PUSHI  #0x00000024
8823 @ 83270:            ASSPAR
8824 @ 83271:            CALL  

  1594      PRINT LOC;  PRINT LINE
  1595  
8825 @ 83272:            LINE   1594 "regression-compile-tmp/hal70.imp"
8826 @ 83308:            PUSH   PRINTLOC
8827 @ 83311:            CALL  
8828 @ 83312:            LINE   1594 "regression-compile-tmp/hal70.imp"
8829 @ 83348:            PUSH   PRINTLINE
8830 @ 83351:            CALL  

  1596  %ENDOFPROGRAM
8831 @ 83352:            LINE   1596 "regression-compile-tmp/hal70.imp"
8832 @ 83388:         END    _lev0id0 {lev=1 --> 0}
8833 @ 83389:         END     {lev=0 --> -1}
8834 @ 83390: 

