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

     3  %OWNINTEGER MAIN=1, PRE=2;            !INPUT
505 @ 4444:            LINE   3 "regression-compile-tmp/hal7502.imp"
506 @ 4482:            PUSHI  #0x00000001
507 @ 4487:            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 @ 4503:            INIT   1
509 @ 4506:            PUSHI  #0x00000002
510 @ 4511:            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 @ 4526:            INIT   1

     4  %OWNINTEGER BIN=1, LIS=2;             !OUTPUT
     5  !    OPERAND TYPES
512 @ 4529:            LINE   4 "regression-compile-tmp/hal7502.imp"
513 @ 4567:            PUSHI  #0x00000001
514 @ 4572:            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 @ 4587:            INIT   1
516 @ 4590:            PUSHI  #0x00000002
517 @ 4595:            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 @ 4610:            INIT   1

     6  %OWNINTEGER OPMASK=16_F000;           !MACHINE INSTRUCTION OR MACRO
519 @ 4613:            LINE   6 "regression-compile-tmp/hal7502.imp"
520 @ 4651:            PUSHI  #0x0000f000
521 @ 4656:            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 @ 4674:            INIT   1

     7  %OWNINTEGER MACRO=16_A000
523 @ 4677:            LINE   7 "regression-compile-tmp/hal7502.imp"
524 @ 4715:            PUSHI  #0x0000a000
525 @ 4720:            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 @ 4737:            INIT   1

     8  %OWNINTEGER FMASK=16_0800;            !FORWARD REF
527 @ 4740:            LINE   8 "regression-compile-tmp/hal7502.imp"
528 @ 4778:            PUSHI  #0x00000800
529 @ 4783:            DEF    FMASK 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 @ 4800:            INIT   1

     9  %OWNINTEGER UMASK=16_0200;            !UNDEF (FORWARD REF)
531 @ 4803:            LINE   9 "regression-compile-tmp/hal7502.imp"
532 @ 4841:            PUSHI  #0x00000200
533 @ 4846:            DEF    UMASK 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 @ 4863:            INIT   1

    10  %OWNINTEGER REG=16_0080;              !REGISTER
535 @ 4866:            LINE   10 "regression-compile-tmp/hal7502.imp"
536 @ 4904:            PUSHI  #0x00000080
537 @ 4909:            DEF    REG 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 @ 4924:            INIT   1

    11  %OWNINTEGER MEMMASK=16_0040;          !MEM REF
539 @ 4927:            LINE   11 "regression-compile-tmp/hal7502.imp"
540 @ 4965:            PUSHI  #0x00000040
541 @ 4970:            DEF    MEMMASK 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 @ 4989:            INIT   1

    12  %OWNINTEGER RELMASK=16_0020;          !RELOCATABLE
543 @ 4992:            LINE   12 "regression-compile-tmp/hal7502.imp"
544 @ 5030:            PUSHI  #0x00000020
545 @ 5035:            DEF    RELMASK 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 @ 5054:            INIT   1

    13  %OWNINTEGER XMASK=16_0010;            !INDEXED
547 @ 5057:            LINE   13 "regression-compile-tmp/hal7502.imp"
548 @ 5095:            PUSHI  #0x00000010
549 @ 5100:            DEF    XMASK 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 @ 5117:            INIT   1

    14  %OWNINTEGER REGXMASK=16_0090;         !=REG+XMASK
551 @ 5120:            LINE   14 "regression-compile-tmp/hal7502.imp"
552 @ 5158:            PUSHI  #0x00000090
553 @ 5163:            DEF    REGXMASK 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 @ 5183:            INIT   1

    15  %OWNINTEGER RELUXMASK=16_0230;        !=RELMASK+UMASK+XMASK
    16  !    TEXT POINTERS (BYTE ADDRESSES)
555 @ 5186:            LINE   15 "regression-compile-tmp/hal7502.imp"
556 @ 5224:            PUSHI  #0x00000230
557 @ 5229:            DEF    RELUXMASK 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 @ 5250:            INIT   1

    17  %OWNINTEGER CODEPOS;                  !(NOT ACTUALLY BYTE)
559 @ 5253:            LINE   17 "regression-compile-tmp/hal7502.imp"
560 @ 5291:            DEF    CODEPOS 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
561 @ 5310:            INIT   1

    18  %OWNINTEGER STARTPOS;                 !START OF CURRENT LINE
562 @ 5313:            LINE   18 "regression-compile-tmp/hal7502.imp"
563 @ 5351:            DEF    STARTPOS 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
564 @ 5371:            INIT   1

    19  %OWNINTEGER GETPOS;                   !INPUT POINTER (NEXT)
565 @ 5374:            LINE   19 "regression-compile-tmp/hal7502.imp"
566 @ 5412:            DEF    GETPOS 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
567 @ 5430:            INIT   1

    20  %OWNINTEGER PUTPOS
568 @ 5433:            LINE   20 "regression-compile-tmp/hal7502.imp"
569 @ 5471:            DEF    PUTPOS 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
570 @ 5489:            INIT   1

    21  %OWNINTEGER PSEUDOLIM
571 @ 5492:            LINE   21 "regression-compile-tmp/hal7502.imp"
572 @ 5530:            DEF    PSEUDOLIM 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
573 @ 5551:            INIT   1

    22  %OWNINTEGER PRINTPOS;                 !START OF PRINT LINE
574 @ 5554:            LINE   22 "regression-compile-tmp/hal7502.imp"
575 @ 5592:            DEF    PRINTPOS 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
576 @ 5612:            INIT   1

    23  %OWNINTEGER FAULTPOS
577 @ 5615:            LINE   23 "regression-compile-tmp/hal7502.imp"
578 @ 5653:            DEF    FAULTPOS 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
579 @ 5673:            INIT   1

    24  %OWNINTEGER MACLIM;                   !MACRO DEF LIMIT
    25  !    OTHER POINTERS (WORD ADDRESSES)
580 @ 5676:            LINE   24 "regression-compile-tmp/hal7502.imp"
581 @ 5714:            DEF    MACLIM 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
582 @ 5732:            INIT   1

    26  %OWNINTEGER MP;                       !MACRO-CALL PARAMETERS
583 @ 5735:            LINE   26 "regression-compile-tmp/hal7502.imp"
584 @ 5773:            DEF    MP 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
585 @ 5787:            INIT   1

    27  %OWNINTEGER QBASE,QSTART,QLIM,TRANSF; !OPERAND QUEUE
586 @ 5790:            LINE   27 "regression-compile-tmp/hal7502.imp"
587 @ 5828:            DEF    QBASE 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
588 @ 5845:            INIT   1
589 @ 5848:            DEF    QSTART 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
590 @ 5866:            INIT   1
591 @ 5869:            DEF    QLIM 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
592 @ 5885:            INIT   1
593 @ 5888:            DEF    TRANSF 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
594 @ 5906:            INIT   1

    28  %OWNINTEGER DEFMIN;                   !TAG MIN (DOWN - RESET)
595 @ 5909:            LINE   28 "regression-compile-tmp/hal7502.imp"
596 @ 5947:            DEF    DEFMIN 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
597 @ 5965:            INIT   1

    29  %OWNINTEGER DEFLIM;                   !TAG LIM (FIXED)
598 @ 5968:            LINE   29 "regression-compile-tmp/hal7502.imp"
599 @ 6006:            DEF    DEFLIM 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
600 @ 6024:            INIT   1

    30  %OWNINTEGER ALMAX;                    !ASSEMBLER LAB MAX (UP - RESET)
601 @ 6027:            LINE   30 "regression-compile-tmp/hal7502.imp"
602 @ 6065:            DEF    ALMAX 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
603 @ 6082:            INIT   1

    31  %OWNINTEGER LABMIN;                   !USER LAB MIN (DOWN - RESET)
604 @ 6085:            LINE   31 "regression-compile-tmp/hal7502.imp"
605 @ 6123:            DEF    LABMIN 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
606 @ 6141:            INIT   1

    32  %OWNINTEGER LABLIM;                   !USER LAB LIM (FIXED)
607 @ 6144:            LINE   32 "regression-compile-tmp/hal7502.imp"
608 @ 6182:            DEF    LABLIM 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
609 @ 6200:            INIT   1

    33  %OWNINTEGER BP;                       !BLOCK POINTER (UP - DOWN)
610 @ 6203:            LINE   33 "regression-compile-tmp/hal7502.imp"
611 @ 6241:            DEF    BP 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
612 @ 6255:            INIT   1

    34  %OWNINTEGER NP;                       !NEST POINTER (DOWN - UP)
613 @ 6258:            LINE   34 "regression-compile-tmp/hal7502.imp"
614 @ 6296:            DEF    NP 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
615 @ 6310:            INIT   1

    35  %OWNINTEGER STORELIM;                 !(FIXED)
    36  
616 @ 6313:            LINE   35 "regression-compile-tmp/hal7502.imp"
617 @ 6351:            DEF    STORELIM 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
618 @ 6371:            INIT   1

    37  %INTEGER SYM;                         !CURRENT SYMBOL
619 @ 6374:            LINE   37 "regression-compile-tmp/hal7502.imp"
620 @ 6412:            DEF    SYM p1=V_00a4 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    38  %INTEGER TERM;                        !TAG TERMINATOR
621 @ 6427:            LINE   38 "regression-compile-tmp/hal7502.imp"
622 @ 6465:            DEF    TERM p1=V_00a5 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    39  %INTEGER FSYM;                        !FAULT FLAG SYMBOL
623 @ 6481:            LINE   39 "regression-compile-tmp/hal7502.imp"
624 @ 6519:            DEF    FSYM p1=V_00a6 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    40  %OWNINTEGER CHARS=0;                  !PRINT CHAR COUNT
625 @ 6535:            LINE   40 "regression-compile-tmp/hal7502.imp"
626 @ 6573:            PUSHI  #0x00000000
627 @ 6578:            DEF    CHARS p1=V_00a7 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
628 @ 6595:            INIT   1

    41  %OWNINTEGER LINES=0;                  !PRINT LINE COUNT
629 @ 6598:            LINE   41 "regression-compile-tmp/hal7502.imp"
630 @ 6636:            PUSHI  #0x00000000
631 @ 6641:            DEF    LINES p1=V_00a8 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
632 @ 6658:            INIT   1

    42  %OWNINTEGER PASS=-1;                  !CURRENT PASS (-1,0,1)
633 @ 6661:            LINE   42 "regression-compile-tmp/hal7502.imp"
634 @ 6699:            PUSHI  #0xffffffff
635 @ 6704:            DEF    PASS p1=V_00a9 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
636 @ 6720:            INIT   1

    43  %OWNINTEGER LIST=-1;                  !LISTING CONTROL
637 @ 6723:            LINE   43 "regression-compile-tmp/hal7502.imp"
638 @ 6761:            PUSHI  #0xffffffff
639 @ 6766:            DEF    LIST 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 @ 6782:            INIT   1

    44  %INTEGER ASSCOND,SKIP;                !ASSEMBLY CONDITIONS (BIT NEST)
641 @ 6785:            LINE   44 "regression-compile-tmp/hal7502.imp"
642 @ 6823:            DEF    ASSCOND p1=V_00ab a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
643 @ 6842:            DEF    SKIP p1=V_00ac a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    45  %OWNINTEGER SAVE=1;                   !REG SAVE DISPLACEMENT
644 @ 6858:            LINE   45 "regression-compile-tmp/hal7502.imp"
645 @ 6896:            PUSHI  #0x00000001
646 @ 6901:            DEF    SAVE 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
647 @ 6917:            INIT   1

    46  %OWNINTEGER TEMPS=12;                 !TEMPORARY REGISTER SET
648 @ 6920:            LINE   46 "regression-compile-tmp/hal7502.imp"
649 @ 6958:            PUSHI  #0x0000000c
650 @ 6963:            DEF    TEMPS 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
651 @ 6980:            INIT   1

    47  %OWNINTEGER CONTROL=16_40;            !OBJECT CODE CONTROL FIELD
652 @ 6983:            LINE   47 "regression-compile-tmp/hal7502.imp"
653 @ 7021:            PUSHI  #0x00000040
654 @ 7026:            DEF    CONTROL 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
655 @ 7045:            INIT   1

    48  %OWNINTEGER CHECK=0;  !BINARY CHECKSUM
656 @ 7048:            LINE   48 "regression-compile-tmp/hal7502.imp"
657 @ 7086:            PUSHI  #0x00000000
658 @ 7091:            DEF    CHECK p1=V_00b0 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
659 @ 7108:            INIT   1

    49  %INTEGER LOCTYPE,LOC;                 !LOCATION COUNTER
660 @ 7111:            LINE   49 "regression-compile-tmp/hal7502.imp"
661 @ 7149:            DEF    LOCTYPE 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
662 @ 7168:            DEF    LOC p1=V_00b2 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    50  %INTEGER ACC,ATYPE,AVAL;              !MAIN TEMP REGISTER
663 @ 7183:            LINE   50 "regression-compile-tmp/hal7502.imp"
664 @ 7221:            DEF    ACC p1=V_00b3 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
665 @ 7236:            DEF    ATYPE 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
666 @ 7253:            DEF    AVAL 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

    51  %INTEGER CREG;                        !CONDITION CODE
667 @ 7269:            LINE   51 "regression-compile-tmp/hal7502.imp"
668 @ 7307:            DEF    CREG 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

    52  %INTEGER COND;                        !CONDITION CODE MASK
669 @ 7323:            LINE   52 "regression-compile-tmp/hal7502.imp"
670 @ 7361:            DEF    COND 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

    53  %INTEGER DREG,DUSE;                   !DESTINATION REGISTER
671 @ 7377:            LINE   53 "regression-compile-tmp/hal7502.imp"
672 @ 7415:            DEF    DREG 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
673 @ 7431:            DEF    DUSE 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

    54  %INTEGER TYPE,VAL;                    !CURRENT TYPE,VALUE
674 @ 7447:            LINE   54 "regression-compile-tmp/hal7502.imp"
675 @ 7485:            DEF    TYPE 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
676 @ 7501:            DEF    VAL 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 TAG1,TAG2;                   !TAG (CHARS 1:3, 4:6)
677 @ 7516:            LINE   55 "regression-compile-tmp/hal7502.imp"
678 @ 7554:            DEF    TAG1 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
679 @ 7570:            DEF    TAG2 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

    56  %INTEGER MODE;                        !ASSEMBLY MODE
680 @ 7586:            LINE   56 "regression-compile-tmp/hal7502.imp"
681 @ 7624:            DEF    MODE 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 PEND;                        !TAG ALREADY RECOGNISED
682 @ 7640:            LINE   57 "regression-compile-tmp/hal7502.imp"
683 @ 7678:            DEF    PEND 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

    58  %INTEGER FLAG;                        !JUMPS
    59  
    60  
684 @ 7694:            LINE   58 "regression-compile-tmp/hal7502.imp"
685 @ 7732:            DEF    FLAG 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

    61  %INTEGER SBOUND
686 @ 7748:            LINE   61 "regression-compile-tmp/hal7502.imp"
687 @ 7786:            DEF    SBOUND 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

    62      SBOUND = FREESTORE-260;           !ALLOW FOR INPUT BUFFER
688 @ 7804:            LINE   62 "regression-compile-tmp/hal7502.imp"
689 @ 7842:            PUSH   SBOUND
690 @ 7845:            PUSH   FREESTORE
691 @ 7848:            CALL  
692 @ 7849:            PUSHI  #0x00000104
693 @ 7854:            SUB   
694 @ 7855:            ASSVAL

    63      SBOUND = SBOUND-256 %IF OUTDEV = 2
695 @ 7856:            LINE   63 "regression-compile-tmp/hal7502.imp"
696 @ 7894:            PUSH   OUTDEV
697 @ 7897:            CALL  
698 @ 7898:            PUSHI  #0x00000002
699 @ 7903:            JUMPIF # L_0004
700 @ 7907:            PUSH   SBOUND
701 @ 7910:            PUSH   SBOUND
702 @ 7913:            PUSHI  #0x00000100
703 @ 7918:            SUB   
704 @ 7919:            ASSVAL
705 @ 7920:            LOCATE L_0004

    64      SELECT OUTPUT(LIS)
706 @ 7923:            LINE   64 "regression-compile-tmp/hal7502.imp"
707 @ 7961:            PUSH   SELECTOUTPUT
708 @ 7964:            PUSH   LIS
709 @ 7967:            ASSPAR
710 @ 7968:            CALL  

    65      SBOUND = SBOUND-256 %IF OUTDEV = 2
711 @ 7969:            LINE   65 "regression-compile-tmp/hal7502.imp"
712 @ 8007:            PUSH   OUTDEV
713 @ 8010:            CALL  
714 @ 8011:            PUSHI  #0x00000002
715 @ 8016:            JUMPIF # L_0004
716 @ 8020:            PUSH   SBOUND
717 @ 8023:            PUSH   SBOUND
718 @ 8026:            PUSHI  #0x00000100
719 @ 8031:            SUB   
720 @ 8032:            ASSVAL
721 @ 8033:            LOCATE L_0004

    66  %INTEGERARRAY STORE(1:SBOUND)
    67  
722 @ 8036:            LINE   66 "regression-compile-tmp/hal7502.imp"
723 @ 8074:            DEF    STORE p1=V_00c2 a/tf=1b b/format=1 c/ostate=100  type=1 (integer) form=11 (array) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
724 @ 8091:            PUSHI  #0x00000001
725 @ 8096:            PUSH   SBOUND
726 @ 8099:            DIM    0001 0001

    68  %INTEGERFN CHAR(%INTEGER P)
    69  !BYTE FETCH
727 @ 8105:            LINE   68 "regression-compile-tmp/hal7502.imp"
728 @ 8143:            DEF    CHAR (_lev0id0_CHAR) p1=V_00c3 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
729 @ 8159:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
730 @ 8160:                  DEF    P 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
731 @ 8173:               FINISH ) {lev=2}

    70    %result = byteinteger(P)
732 @ 8174:               LINE   70 "regression-compile-tmp/hal7502.imp"
733 @ 8212:               PUSH   BYTEINTEGER
734 @ 8215:               PUSH   P
735 @ 8218:               ASSPAR
736 @ 8219:               CALL  
737 @ 8220:               RESULT

    71  %END
    72  
738 @ 8221:               LINE   71 "regression-compile-tmp/hal7502.imp"
739 @ 8259:            END    _lev0id0_CHAR {lev=2 --> 1}

    73  %ROUTINE PUT CHAR(%INTEGER K)
    74  !AT PUTPOS WITH POST-INCREMENT
740 @ 8260:            LINE   73 "regression-compile-tmp/hal7502.imp"
741 @ 8298:            DEF    PUTCHAR (_lev0id0_PUTCHAR) p1=V_00c4 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
742 @ 8317:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
743 @ 8318:                  DEF    K 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
744 @ 8331:               FINISH ) {lev=2}

    75     byteinteger(putpos) = k
745 @ 8332:               LINE   75 "regression-compile-tmp/hal7502.imp"
746 @ 8370:               PUSH   BYTEINTEGER
747 @ 8373:               PUSH   PUTPOS
748 @ 8376:               ASSPAR
749 @ 8377:               CALL  
750 @ 8378:               PUSH   K
751 @ 8381:               ASSVAL

    76     putpos = putpos + 1
752 @ 8382:               LINE   76 "regression-compile-tmp/hal7502.imp"
753 @ 8420:               PUSH   PUTPOS
754 @ 8423:               PUSH   PUTPOS
755 @ 8426:               PUSHI  #0x00000001
756 @ 8431:               ADD   
757 @ 8432:               ASSVAL

    77  %END
    78  
758 @ 8433:               LINE   77 "regression-compile-tmp/hal7502.imp"
759 @ 8471:            END    _lev0id0_PUTCHAR {lev=2 --> 1}

    79  %ROUTINE FAULT(%INTEGER K)
    80  !RECORD (FIRST) FAULT
    81  !NOT NECESSARILY CULPABLE IN PASS 0
760 @ 8472:            LINE   79 "regression-compile-tmp/hal7502.imp"
761 @ 8510:            DEF    FAULT (_lev0id0_FAULT) p1=V_00c5 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
762 @ 8527:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
763 @ 8528:                  DEF    K p1=V_00c6 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
764 @ 8541:               FINISH ) {lev=2}

    82      FSYM = K %IF FSYM = ' '
765 @ 8542:               LINE   82 "regression-compile-tmp/hal7502.imp"
766 @ 8580:               PUSH   FSYM
767 @ 8583:               PUSHI  #0x00000020
768 @ 8588:               JUMPIF # L_0004
769 @ 8592:               PUSH   FSYM
770 @ 8595:               PUSH   K
771 @ 8598:               ASSVAL
772 @ 8599:               LOCATE L_0004

    83  %END
    84  
773 @ 8602:               LINE   83 "regression-compile-tmp/hal7502.imp"
774 @ 8640:            END    _lev0id0_FAULT {lev=2 --> 1}

    85  %ROUTINE PRINT(%INTEGER K)
775 @ 8641:            LINE   85 "regression-compile-tmp/hal7502.imp"
776 @ 8679:            DEF    PRINT (_lev0id0_PRINT) p1=V_00c6 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
777 @ 8696:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
778 @ 8697:                  DEF    K p1=V_00c7 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
779 @ 8710:               FINISH ) {lev=2}

    86      INTEGER(CODEPOS+CHARS) = K
780 @ 8711:               LINE   86 "regression-compile-tmp/hal7502.imp"
781 @ 8749:               PUSH   INTEGER
782 @ 8752:               PUSH   CODEPOS
783 @ 8755:               PUSH   CHARS
784 @ 8758:               ADD   
785 @ 8759:               ASSPAR
786 @ 8760:               CALL  
787 @ 8761:               PUSH   K
788 @ 8764:               ASSVAL

    87      CHARS = CHARS+1
789 @ 8765:               LINE   87 "regression-compile-tmp/hal7502.imp"
790 @ 8803:               PUSH   CHARS
791 @ 8806:               PUSH   CHARS
792 @ 8809:               PUSHI  #0x00000001
793 @ 8814:               ADD   
794 @ 8815:               ASSVAL

    88  %END
    89  
795 @ 8816:               LINE   88 "regression-compile-tmp/hal7502.imp"
796 @ 8854:            END    _lev0id0_PRINT {lev=2 --> 1}

    90  %ROUTINE PRINT WORD(%INTEGER V)
797 @ 8855:            LINE   90 "regression-compile-tmp/hal7502.imp"
798 @ 8893:            DEF    PRINTWORD (_lev0id0_PRINTWORD) p1=V_00c7 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
799 @ 8914:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
800 @ 8915:                  DEF    V p1=V_00c8 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
801 @ 8928:               FINISH ) {lev=2}

    91      %ROUTINE PRINT HIT(%INTEGER V)
802 @ 8929:               LINE   91 "regression-compile-tmp/hal7502.imp"
803 @ 8967:               DEF    PRINTHIT (_lev0id0_PRINTWORD_PRINTHIT) p1=V_00c9 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
804 @ 8987:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
805 @ 8988:                     DEF    V 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
806 @ 9001:                  FINISH ) {lev=3}

    92      V = V&15+'0';  V = V+7 %IF V > '9'
807 @ 9002:                  LINE   92 "regression-compile-tmp/hal7502.imp"
808 @ 9040:                  PUSH   V
809 @ 9043:                  PUSH   V
810 @ 9046:                  PUSHI  #0x0000000f
811 @ 9051:                  AND   
812 @ 9052:                  PUSHI  #0x00000030
813 @ 9057:                  ADD   
814 @ 9058:                  ASSVAL
815 @ 9059:                  LINE   92 "regression-compile-tmp/hal7502.imp"
816 @ 9097:                  PUSH   V
817 @ 9100:                  PUSHI  #0x00000039
818 @ 9105:                  JUMPIF <= L_0004
819 @ 9109:                  PUSH   V
820 @ 9112:                  PUSH   V
821 @ 9115:                  PUSHI  #0x00000007
822 @ 9120:                  ADD   
823 @ 9121:                  ASSVAL
824 @ 9122:                  LOCATE L_0004

    93      PRINT(V)
825 @ 9125:                  LINE   93 "regression-compile-tmp/hal7502.imp"
826 @ 9163:                  PUSH   PRINT
827 @ 9166:                  PUSH   V
828 @ 9169:                  ASSPAR
829 @ 9170:                  CALL  

    94      %END
830 @ 9171:                  LINE   94 "regression-compile-tmp/hal7502.imp"
831 @ 9209:               END    _lev0id0_PRINTWORD_PRINTHIT {lev=3 --> 2}

    95      %ROUTINE PRINT1(%INTEGER V)
832 @ 9210:               LINE   95 "regression-compile-tmp/hal7502.imp"
833 @ 9248:               DEF    PRINT1 (_lev0id0_PRINTWORD_PRINT1) p1=V_00ca 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
834 @ 9266:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
835 @ 9267:                     DEF    V 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
836 @ 9280:                  FINISH ) {lev=3}

    96      PRINT HIT(V>>4);  PRINT HIT(V)
837 @ 9281:                  LINE   96 "regression-compile-tmp/hal7502.imp"
838 @ 9319:                  PUSH   PRINTHIT
839 @ 9322:                  PUSH   V
840 @ 9325:                  PUSHI  #0x00000004
841 @ 9330:                  RSH   
842 @ 9331:                  ASSPAR
843 @ 9332:                  CALL  
844 @ 9333:                  LINE   96 "regression-compile-tmp/hal7502.imp"
845 @ 9371:                  PUSH   PRINTHIT
846 @ 9374:                  PUSH   V
847 @ 9377:                  ASSPAR
848 @ 9378:                  CALL  

    97      %END
849 @ 9379:                  LINE   97 "regression-compile-tmp/hal7502.imp"
850 @ 9417:               END    _lev0id0_PRINTWORD_PRINT1 {lev=3 --> 2}

    98      PRINT1(V>>8);  PRINT1(V)
851 @ 9418:               LINE   98 "regression-compile-tmp/hal7502.imp"
852 @ 9456:               PUSH   PRINT1
853 @ 9459:               PUSH   V
854 @ 9462:               PUSHI  #0x00000008
855 @ 9467:               RSH   
856 @ 9468:               ASSPAR
857 @ 9469:               CALL  
858 @ 9470:               LINE   98 "regression-compile-tmp/hal7502.imp"
859 @ 9508:               PUSH   PRINT1
860 @ 9511:               PUSH   V
861 @ 9514:               ASSPAR
862 @ 9515:               CALL  

    99  %END
   100  
863 @ 9516:               LINE   99 "regression-compile-tmp/hal7502.imp"
864 @ 9554:            END    _lev0id0_PRINTWORD {lev=2 --> 1}

   101  %ROUTINE PRINT LOC
865 @ 9555:            LINE   101 "regression-compile-tmp/hal7502.imp"
866 @ 9593:            DEF    PRINTLOC (_lev0id0_PRINTLOC) p1=V_00c8 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
867 @ 9613:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
868 @ 9614:               FINISH ) {lev=2}

   102      PRINT WORD(LOC)
869 @ 9615:               LINE   102 "regression-compile-tmp/hal7502.imp"
870 @ 9653:               PUSH   PRINTWORD
871 @ 9656:               PUSH   LOC
872 @ 9659:               ASSPAR
873 @ 9660:               CALL  

   103      %IF LOCTYPE&RELMASK # 0 %THEN PRINT('''') %ELSE PRINT(' ')
874 @ 9661:               LINE   103 "regression-compile-tmp/hal7502.imp"
875 @ 9699:               PUSH   LOCTYPE
876 @ 9702:               PUSH   RELMASK
877 @ 9705:               AND   
878 @ 9706:               PUSHI  #0x00000000
879 @ 9711:               JUMPIF = L_0004
880 @ 9715:               PUSH   PRINT
881 @ 9718:               PUSHI  #0x00000027
882 @ 9723:               ASSPAR
883 @ 9724:               CALL  
884 @ 9725:               GOTO   L_0003
885 @ 9728:               LOCATE L_0004
886 @ 9731:               PUSH   PRINT
887 @ 9734:               PUSHI  #0x00000020
888 @ 9739:               ASSPAR
889 @ 9740:               CALL  
890 @ 9741:               LOCATE L_0003

   104      PRINT(' ')
891 @ 9744:               LINE   104 "regression-compile-tmp/hal7502.imp"
892 @ 9782:               PUSH   PRINT
893 @ 9785:               PUSHI  #0x00000020
894 @ 9790:               ASSPAR
895 @ 9791:               CALL  

   105  %END
   106  
896 @ 9792:               LINE   105 "regression-compile-tmp/hal7502.imp"
897 @ 9830:            END    _lev0id0_PRINTLOC {lev=2 --> 1}

   107  %ROUTINE DO NEWLINE
898 @ 9831:            LINE   107 "regression-compile-tmp/hal7502.imp"
899 @ 9869:            DEF    DONEWLINE (_lev0id0_DONEWLINE) p1=V_00c9 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
900 @ 9890:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
901 @ 9891:               FINISH ) {lev=2}

   108      NEWLINE;  LINES = LINES+1
902 @ 9892:               LINE   108 "regression-compile-tmp/hal7502.imp"
903 @ 9930:               PUSH   NEWLINE
904 @ 9933:               CALL  
905 @ 9934:               LINE   108 "regression-compile-tmp/hal7502.imp"
906 @ 9972:               PUSH   LINES
907 @ 9975:               PUSH   LINES
908 @ 9978:               PUSHI  #0x00000001
909 @ 9983:               ADD   
910 @ 9984:               ASSVAL

   109      NEWLINES(2) %AND LINES = 0 %IF LINES = 61
911 @ 9985:               LINE   109 "regression-compile-tmp/hal7502.imp"
912 @ 10023:               PUSH   LINES
913 @ 10026:               PUSHI  #0x0000003d
914 @ 10031:               JUMPIF # L_0004
915 @ 10035:               PUSH   NEWLINES
916 @ 10038:               PUSHI  #0x00000002
917 @ 10043:               ASSPAR
918 @ 10044:               CALL  
919 @ 10045:               PUSH   LINES
920 @ 10048:               PUSHI  #0x00000000
921 @ 10053:               ASSVAL
922 @ 10054:               LOCATE L_0004

   110  %END
   111  
923 @ 10057:               LINE   110 "regression-compile-tmp/hal7502.imp"
924 @ 10095:            END    _lev0id0_DONEWLINE {lev=2 --> 1}

   112  %ROUTINE PRINT LINE
925 @ 10096:            LINE   112 "regression-compile-tmp/hal7502.imp"
926 @ 10134:            DEF    PRINTLINE (_lev0id0_PRINTLINE) p1=V_00ca 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
927 @ 10155:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
928 @ 10156:               FINISH ) {lev=2}

   113      %ROUTINE PRINTIT(%INTEGER SUB)
929 @ 10157:               LINE   113 "regression-compile-tmp/hal7502.imp"
930 @ 10195:               DEF    PRINTIT (_lev0id0_PRINTLINE_PRINTIT) 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
931 @ 10214:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
932 @ 10215:                     DEF    SUB 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
933 @ 10230:                  FINISH ) {lev=3}

   114      %OWNINTEGER MARKER=124;            !VERTICAL BAR
934 @ 10231:                  LINE   114 "regression-compile-tmp/hal7502.imp"
935 @ 10269:                  PUSHI  #0x0000007c
936 @ 10274:                  DEF    MARKER p1=V_00cd 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
937 @ 10292:                  INIT   1

   115      %INTEGER P,Q,K
938 @ 10295:                  LINE   115 "regression-compile-tmp/hal7502.imp"
939 @ 10333:                  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
940 @ 10346:                  DEF    Q 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
941 @ 10359:                  DEF    K 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

   116      %RETURN %IF CHARS = 0 %AND CHAR(PRINTPOS) = NL
942 @ 10372:                  LINE   116 "regression-compile-tmp/hal7502.imp"
943 @ 10410:                  PUSH   CHARS
944 @ 10413:                  PUSHI  #0x00000000
945 @ 10418:                  JUMPIF # L_0004
946 @ 10422:                  PUSH   CHAR
947 @ 10425:                  PUSH   PRINTPOS
948 @ 10428:                  ASSPAR
949 @ 10429:                  CALL  
950 @ 10430:                  PUSHI  #0x0000000a
951 @ 10435:                  JUMPIF # L_0004
952 @ 10439:                  RETURN
953 @ 10440:                  LOCATE L_0004

   117      PRINT SYMBOL(FSYM);  SPACE
954 @ 10443:                  LINE   117 "regression-compile-tmp/hal7502.imp"
955 @ 10481:                  PUSH   PRINTSYMBOL
956 @ 10484:                  PUSH   FSYM
957 @ 10487:                  ASSPAR
958 @ 10488:                  CALL  
959 @ 10489:                  LINE   117 "regression-compile-tmp/hal7502.imp"
960 @ 10527:                  PUSH   SPACE
961 @ 10530:                  CALL  

   118      P = CODEPOS;  Q = P+CHARS
962 @ 10531:                  LINE   118 "regression-compile-tmp/hal7502.imp"
963 @ 10569:                  PUSH   P
964 @ 10572:                  PUSH   CODEPOS
965 @ 10575:                  ASSVAL
966 @ 10576:                  LINE   118 "regression-compile-tmp/hal7502.imp"
967 @ 10614:                  PUSH   Q
968 @ 10617:                  PUSH   P
969 @ 10620:                  PUSH   CHARS
970 @ 10623:                  ADD   
971 @ 10624:                  ASSVAL

   119      PRINT SYMBOL(INTEGER(P)) %AND P=P+1 %WHILE P # Q
972 @ 10625:                  LINE   119 "regression-compile-tmp/hal7502.imp"
973 @ 10663:                  LOCATE L_0003
974 @ 10666:                  PUSH   P
975 @ 10669:                  PUSH   Q
976 @ 10672:                  JUMPIF = L_0004
977 @ 10676:                  PUSH   PRINTSYMBOL
978 @ 10679:                  PUSH   INTEGER
979 @ 10682:                  PUSH   P
980 @ 10685:                  ASSPAR
981 @ 10686:                  CALL  
982 @ 10687:                  ASSPAR
983 @ 10688:                  CALL  
984 @ 10689:                  PUSH   P
985 @ 10692:                  PUSH   P
986 @ 10695:                  PUSHI  #0x00000001
987 @ 10700:                  ADD   
988 @ 10701:                  ASSVAL
989 @ 10702:                  REPEAT L_0003
990 @ 10705:                  LOCATE L_0004

   120      %RETURN %IF PRINTPOS = 0
991 @ 10708:                  LINE   120 "regression-compile-tmp/hal7502.imp"
992 @ 10746:                  PUSH   PRINTPOS
993 @ 10749:                  PUSHI  #0x00000000
994 @ 10754:                  JUMPIF # L_0004
995 @ 10758:                  RETURN
996 @ 10759:                  LOCATE L_0004

   121      SPACES(17-CHARS)
997 @ 10762:                  LINE   121 "regression-compile-tmp/hal7502.imp"
998 @ 10800:                  PUSH   SPACES
999 @ 10803:                  PUSHI  #0x00000011
1000 @ 10808:                  PUSH   CHARS
1001 @ 10811:                  SUB   
1002 @ 10812:                  ASSPAR
1003 @ 10813:                  CALL  

   122      P = PRINTPOS;  Q = 0
1004 @ 10814:                  LINE   122 "regression-compile-tmp/hal7502.imp"
1005 @ 10852:                  PUSH   P
1006 @ 10855:                  PUSH   PRINTPOS
1007 @ 10858:                  ASSVAL
1008 @ 10859:                  LINE   122 "regression-compile-tmp/hal7502.imp"
1009 @ 10897:                  PUSH   Q
1010 @ 10900:                  PUSHI  #0x00000000
1011 @ 10905:                  ASSVAL

   123      %CYCLE
1012 @ 10906:                  LINE   123 "regression-compile-tmp/hal7502.imp"
1013 @ 10944:                  LOCATE L_0003

   124      PRINT SYMBOL(MARKER) %IF P = FAULTPOS
1014 @ 10947:                  LINE   124 "regression-compile-tmp/hal7502.imp"
1015 @ 10985:                  PUSH   P
1016 @ 10988:                  PUSH   FAULTPOS
1017 @ 10991:                  JUMPIF # L_0007
1018 @ 10995:                  PUSH   PRINTSYMBOL
1019 @ 10998:                  PUSH   MARKER
1020 @ 11001:                  ASSPAR
1021 @ 11002:                  CALL  
1022 @ 11003:                  LOCATE L_0007

   125      K = CHAR(P);  K = SUB %IF P = PSEUDOLIM
1023 @ 11006:                  LINE   125 "regression-compile-tmp/hal7502.imp"
1024 @ 11044:                  PUSH   K
1025 @ 11047:                  PUSH   CHAR
1026 @ 11050:                  PUSH   P
1027 @ 11053:                  ASSPAR
1028 @ 11054:                  CALL  
1029 @ 11055:                  ASSVAL
1030 @ 11056:                  LINE   125 "regression-compile-tmp/hal7502.imp"
1031 @ 11094:                  PUSH   P
1032 @ 11097:                  PUSH   PSEUDOLIM
1033 @ 11100:                  JUMPIF # L_0007
1034 @ 11104:                  PUSH   K
1035 @ 11107:                  PUSH   SUB
1036 @ 11110:                  ASSVAL
1037 @ 11111:                  LOCATE L_0007

   126      PRINT SYMBOL('''') %IF (K!!Q)&128 # 0
1038 @ 11114:                  LINE   126 "regression-compile-tmp/hal7502.imp"
1039 @ 11152:                  PUSH   K
1040 @ 11155:                  PUSH   Q
1041 @ 11158:                  XOR   
1042 @ 11159:                  PUSHI  #0x00000080
1043 @ 11164:                  AND   
1044 @ 11165:                  PUSHI  #0x00000000
1045 @ 11170:                  JUMPIF = L_0007
1046 @ 11174:                  PUSH   PRINTSYMBOL
1047 @ 11177:                  PUSHI  #0x00000027
1048 @ 11182:                  ASSPAR
1049 @ 11183:                  CALL  
1050 @ 11184:                  LOCATE L_0007

   127      %RETURN %IF K = NL
1051 @ 11187:                  LINE   127 "regression-compile-tmp/hal7502.imp"
1052 @ 11225:                  PUSH   K
1053 @ 11228:                  PUSHI  #0x0000000a
1054 @ 11233:                  JUMPIF # L_0007
1055 @ 11237:                  RETURN
1056 @ 11238:                  LOCATE L_0007

   128      PRINT SYMBOL(K&127)
1057 @ 11241:                  LINE   128 "regression-compile-tmp/hal7502.imp"
1058 @ 11279:                  PUSH   PRINTSYMBOL
1059 @ 11282:                  PUSH   K
1060 @ 11285:                  PUSHI  #0x0000007f
1061 @ 11290:                  AND   
1062 @ 11291:                  ASSPAR
1063 @ 11292:                  CALL  

   129      P = P+1;  Q = K
1064 @ 11293:                  LINE   129 "regression-compile-tmp/hal7502.imp"
1065 @ 11331:                  PUSH   P
1066 @ 11334:                  PUSH   P
1067 @ 11337:                  PUSHI  #0x00000001
1068 @ 11342:                  ADD   
1069 @ 11343:                  ASSVAL
1070 @ 11344:                  LINE   129 "regression-compile-tmp/hal7502.imp"
1071 @ 11382:                  PUSH   Q
1072 @ 11385:                  PUSH   K
1073 @ 11388:                  ASSVAL

   130      %REPEAT
1074 @ 11389:                  LINE   130 "regression-compile-tmp/hal7502.imp"
1075 @ 11427:                  REPEAT L_0003

   131      %END
1076 @ 11430:                  LINE   131 "regression-compile-tmp/hal7502.imp"
1077 @ 11468:               END    _lev0id0_PRINTLINE_PRINTIT {lev=3 --> 2}

   132      %RETURN %IF PASS = 0
1078 @ 11469:               LINE   132 "regression-compile-tmp/hal7502.imp"
1079 @ 11507:               PUSH   PASS
1080 @ 11510:               PUSHI  #0x00000000
1081 @ 11515:               JUMPIF # L_0004
1082 @ 11519:               RETURN
1083 @ 11520:               LOCATE L_0004

   133      %UNLESS LIST < 0 %OR (PRINTPOS=0 %AND FSYM=' ' %AND LIST&1=0) %START
1084 @ 11523:               LINE   133 "regression-compile-tmp/hal7502.imp"
1085 @ 11561:               PUSH   LIST
1086 @ 11564:               PUSHI  #0x00000000
1087 @ 11569:               JUMPIF < L_0004
1088 @ 11573:               PUSH   PRINTPOS
1089 @ 11576:               PUSHI  #0x00000000
1090 @ 11581:               JUMPIF # L_0005
1091 @ 11585:               PUSH   FSYM
1092 @ 11588:               PUSHI  #0x00000020
1093 @ 11593:               JUMPIF # L_0005
1094 @ 11597:               PUSH   LIST
1095 @ 11600:               PUSHI  #0x00000001
1096 @ 11605:               AND   
1097 @ 11606:               PUSHI  #0x00000000
1098 @ 11611:               JUMPIF = L_0004
1099 @ 11615:               LOCATE L_0005

   134      NEWLINES(3) %IF LINES = 0
1100 @ 11618:               LINE   134 "regression-compile-tmp/hal7502.imp"
1101 @ 11656:               PUSH   LINES
1102 @ 11659:               PUSHI  #0x00000000
1103 @ 11664:               JUMPIF # L_0007
1104 @ 11668:               PUSH   NEWLINES
1105 @ 11671:               PUSHI  #0x00000003
1106 @ 11676:               ASSPAR
1107 @ 11677:               CALL  
1108 @ 11678:               LOCATE L_0007

   135      PRINTIT(' ')
1109 @ 11681:               LINE   135 "regression-compile-tmp/hal7502.imp"
1110 @ 11719:               PUSH   PRINTIT
1111 @ 11722:               PUSHI  #0x00000020
1112 @ 11727:               ASSPAR
1113 @ 11728:               CALL  

   136      DO NEWLINE
1114 @ 11729:               LINE   136 "regression-compile-tmp/hal7502.imp"
1115 @ 11767:               PUSH   DONEWLINE
1116 @ 11770:               CALL  

   137      %FINISH
1117 @ 11771:               LINE   137 "regression-compile-tmp/hal7502.imp"
1118 @ 11809:               LOCATE L_0004

   138      %IF FSYM # ' ' %AND OUTDEV # 1 %START
1119 @ 11812:               LINE   138 "regression-compile-tmp/hal7502.imp"
1120 @ 11850:               PUSH   FSYM
1121 @ 11853:               PUSHI  #0x00000020
1122 @ 11858:               JUMPIF = L_0004
1123 @ 11862:               PUSH   OUTDEV
1124 @ 11865:               CALL  
1125 @ 11866:               PUSHI  #0x00000001
1126 @ 11871:               JUMPIF = L_0004

   139      SELECT OUTPUT(0)
1127 @ 11875:               LINE   139 "regression-compile-tmp/hal7502.imp"
1128 @ 11913:               PUSH   SELECTOUTPUT
1129 @ 11916:               PUSHI  #0x00000000
1130 @ 11921:               ASSPAR
1131 @ 11922:               CALL  

   140      PRINTPOS = STARTPOS %IF PRINTPOS = 0
1132 @ 11923:               LINE   140 "regression-compile-tmp/hal7502.imp"
1133 @ 11961:               PUSH   PRINTPOS
1134 @ 11964:               PUSHI  #0x00000000
1135 @ 11969:               JUMPIF # L_0007
1136 @ 11973:               PUSH   PRINTPOS
1137 @ 11976:               PUSH   STARTPOS
1138 @ 11979:               ASSVAL
1139 @ 11980:               LOCATE L_0007

   141      PRINT LOC %IF CHARS = 0
1140 @ 11983:               LINE   141 "regression-compile-tmp/hal7502.imp"
1141 @ 12021:               PUSH   CHARS
1142 @ 12024:               PUSHI  #0x00000000
1143 @ 12029:               JUMPIF # L_0007
1144 @ 12033:               PUSH   PRINTLOC
1145 @ 12036:               CALL  
1146 @ 12037:               LOCATE L_0007

   142      PRINTIT(NL)
1147 @ 12040:               LINE   142 "regression-compile-tmp/hal7502.imp"
1148 @ 12078:               PUSH   PRINTIT
1149 @ 12081:               PUSHI  #0x0000000a
1150 @ 12086:               ASSPAR
1151 @ 12087:               CALL  

   143      NEWLINE
1152 @ 12088:               LINE   143 "regression-compile-tmp/hal7502.imp"
1153 @ 12126:               PUSH   NEWLINE
1154 @ 12129:               CALL  

   144      SELECT OUTPUT(LIS)
1155 @ 12130:               LINE   144 "regression-compile-tmp/hal7502.imp"
1156 @ 12168:               PUSH   SELECTOUTPUT
1157 @ 12171:               PUSH   LIS
1158 @ 12174:               ASSPAR
1159 @ 12175:               CALL  

   145      %FINISH
1160 @ 12176:               LINE   145 "regression-compile-tmp/hal7502.imp"
1161 @ 12214:               LOCATE L_0004

   146      FSYM = ' ';  PRINTPOS = 0;  CHARS = 0
1162 @ 12217:               LINE   146 "regression-compile-tmp/hal7502.imp"
1163 @ 12255:               PUSH   FSYM
1164 @ 12258:               PUSHI  #0x00000020
1165 @ 12263:               ASSVAL
1166 @ 12264:               LINE   146 "regression-compile-tmp/hal7502.imp"
1167 @ 12302:               PUSH   PRINTPOS
1168 @ 12305:               PUSHI  #0x00000000
1169 @ 12310:               ASSVAL
1170 @ 12311:               LINE   146 "regression-compile-tmp/hal7502.imp"
1171 @ 12349:               PUSH   CHARS
1172 @ 12352:               PUSHI  #0x00000000
1173 @ 12357:               ASSVAL

   147  %END
   148  
1174 @ 12358:               LINE   147 "regression-compile-tmp/hal7502.imp"
1175 @ 12396:            END    _lev0id0_PRINTLINE {lev=2 --> 1}

   149  %ROUTINE PUT WORD(%INTEGER V)
1176 @ 12397:            LINE   149 "regression-compile-tmp/hal7502.imp"
1177 @ 12435:            DEF    PUTWORD (_lev0id0_PUTWORD) 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
1178 @ 12454:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1179 @ 12455:                  DEF    V 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
1180 @ 12468:               FINISH ) {lev=2}

   150      CHECK = CHECK!!V
1181 @ 12469:               LINE   150 "regression-compile-tmp/hal7502.imp"
1182 @ 12507:               PUSH   CHECK
1183 @ 12510:               PUSH   CHECK
1184 @ 12513:               PUSH   V
1185 @ 12516:               XOR   
1186 @ 12517:               ASSVAL

   151      SELECT OUTPUT(BIN)
1187 @ 12518:               LINE   151 "regression-compile-tmp/hal7502.imp"
1188 @ 12556:               PUSH   SELECTOUTPUT
1189 @ 12559:               PUSH   BIN
1190 @ 12562:               ASSPAR
1191 @ 12563:               CALL  

   152      PRINT CH(V>>12&15+CONTROL)
1192 @ 12564:               LINE   152 "regression-compile-tmp/hal7502.imp"
1193 @ 12602:               PUSH   PRINTCH
1194 @ 12605:               PUSH   V
1195 @ 12608:               PUSHI  #0x0000000c
1196 @ 12613:               RSH   
1197 @ 12614:               PUSHI  #0x0000000f
1198 @ 12619:               AND   
1199 @ 12620:               PUSH   CONTROL
1200 @ 12623:               ADD   
1201 @ 12624:               ASSPAR
1202 @ 12625:               CALL  

   153      PRINT CH(V>>8&15+16_40)
1203 @ 12626:               LINE   153 "regression-compile-tmp/hal7502.imp"
1204 @ 12664:               PUSH   PRINTCH
1205 @ 12667:               PUSH   V
1206 @ 12670:               PUSHI  #0x00000008
1207 @ 12675:               RSH   
1208 @ 12676:               PUSHI  #0x0000000f
1209 @ 12681:               AND   
1210 @ 12682:               PUSHI  #0x00000040
1211 @ 12687:               ADD   
1212 @ 12688:               ASSPAR
1213 @ 12689:               CALL  

   154      PRINT CH(V>>4&15+16_40)
1214 @ 12690:               LINE   154 "regression-compile-tmp/hal7502.imp"
1215 @ 12728:               PUSH   PRINTCH
1216 @ 12731:               PUSH   V
1217 @ 12734:               PUSHI  #0x00000004
1218 @ 12739:               RSH   
1219 @ 12740:               PUSHI  #0x0000000f
1220 @ 12745:               AND   
1221 @ 12746:               PUSHI  #0x00000040
1222 @ 12751:               ADD   
1223 @ 12752:               ASSPAR
1224 @ 12753:               CALL  

   155      PRINT CH(V&15+16_40)
1225 @ 12754:               LINE   155 "regression-compile-tmp/hal7502.imp"
1226 @ 12792:               PUSH   PRINTCH
1227 @ 12795:               PUSH   V
1228 @ 12798:               PUSHI  #0x0000000f
1229 @ 12803:               AND   
1230 @ 12804:               PUSHI  #0x00000040
1231 @ 12809:               ADD   
1232 @ 12810:               ASSPAR
1233 @ 12811:               CALL  

   156      CONTROL = 16_50
1234 @ 12812:               LINE   156 "regression-compile-tmp/hal7502.imp"
1235 @ 12850:               PUSH   CONTROL
1236 @ 12853:               PUSHI  #0x00000050
1237 @ 12858:               ASSVAL

   157      SELECT OUTPUT(LIS)
1238 @ 12859:               LINE   157 "regression-compile-tmp/hal7502.imp"
1239 @ 12897:               PUSH   SELECTOUTPUT
1240 @ 12900:               PUSH   LIS
1241 @ 12903:               ASSPAR
1242 @ 12904:               CALL  

   158  %END
   159  
1243 @ 12905:               LINE   158 "regression-compile-tmp/hal7502.imp"
1244 @ 12943:            END    _lev0id0_PUTWORD {lev=2 --> 1}

   160  %ROUTINE PLANT VAL
1245 @ 12944:            LINE   160 "regression-compile-tmp/hal7502.imp"
1246 @ 12982:            DEF    PLANTVAL (_lev0id0_PLANTVAL) 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
1247 @ 13002:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1248 @ 13003:               FINISH ) {lev=2}

   161      %IF PASS > 0 %START
1249 @ 13004:               LINE   161 "regression-compile-tmp/hal7502.imp"
1250 @ 13042:               PUSH   PASS
1251 @ 13045:               PUSHI  #0x00000000
1252 @ 13050:               JUMPIF <= L_0004

   162      %IF CHARS = 0 %START
1253 @ 13054:               LINE   162 "regression-compile-tmp/hal7502.imp"
1254 @ 13092:               PUSH   CHARS
1255 @ 13095:               PUSHI  #0x00000000
1256 @ 13100:               JUMPIF # L_0007

   163      %IF PRINTPOS#0 %THEN PRINT LOC %ELSE %START
1257 @ 13104:               LINE   163 "regression-compile-tmp/hal7502.imp"
1258 @ 13142:               PUSH   PRINTPOS
1259 @ 13145:               PUSHI  #0x00000000
1260 @ 13150:               JUMPIF = L_000a
1261 @ 13154:               PUSH   PRINTLOC
1262 @ 13157:               CALL  
1263 @ 13158:               GOTO   L_0009
1264 @ 13161:               LOCATE L_000a

   164      PRINT(' '); PRINT(' '); PRINT(' ')
1265 @ 13164:               LINE   164 "regression-compile-tmp/hal7502.imp"
1266 @ 13202:               PUSH   PRINT
1267 @ 13205:               PUSHI  #0x00000020
1268 @ 13210:               ASSPAR
1269 @ 13211:               CALL  
1270 @ 13212:               LINE   164 "regression-compile-tmp/hal7502.imp"
1271 @ 13250:               PUSH   PRINT
1272 @ 13253:               PUSHI  #0x00000020
1273 @ 13258:               ASSPAR
1274 @ 13259:               CALL  
1275 @ 13260:               LINE   164 "regression-compile-tmp/hal7502.imp"
1276 @ 13298:               PUSH   PRINT
1277 @ 13301:               PUSHI  #0x00000020
1278 @ 13306:               ASSPAR
1279 @ 13307:               CALL  

   165      PRINT(' '); PRINT(' '); PRINT(' ')
1280 @ 13308:               LINE   165 "regression-compile-tmp/hal7502.imp"
1281 @ 13346:               PUSH   PRINT
1282 @ 13349:               PUSHI  #0x00000020
1283 @ 13354:               ASSPAR
1284 @ 13355:               CALL  
1285 @ 13356:               LINE   165 "regression-compile-tmp/hal7502.imp"
1286 @ 13394:               PUSH   PRINT
1287 @ 13397:               PUSHI  #0x00000020
1288 @ 13402:               ASSPAR
1289 @ 13403:               CALL  
1290 @ 13404:               LINE   165 "regression-compile-tmp/hal7502.imp"
1291 @ 13442:               PUSH   PRINT
1292 @ 13445:               PUSHI  #0x00000020
1293 @ 13450:               ASSPAR
1294 @ 13451:               CALL  

   166      %FINISH
1295 @ 13452:               LINE   166 "regression-compile-tmp/hal7502.imp"
1296 @ 13490:               LOCATE L_0009

   167      %FINISH
1297 @ 13493:               LINE   167 "regression-compile-tmp/hal7502.imp"
1298 @ 13531:               LOCATE L_0007

   168      PRINT(' ') %IF CHARS = 10
1299 @ 13534:               LINE   168 "regression-compile-tmp/hal7502.imp"
1300 @ 13572:               PUSH   CHARS
1301 @ 13575:               PUSHI  #0x0000000a
1302 @ 13580:               JUMPIF # L_0007
1303 @ 13584:               PUSH   PRINT
1304 @ 13587:               PUSHI  #0x00000020
1305 @ 13592:               ASSPAR
1306 @ 13593:               CALL  
1307 @ 13594:               LOCATE L_0007

   169      PRINT WORD(VAL); PUT WORD(VAL)
1308 @ 13597:               LINE   169 "regression-compile-tmp/hal7502.imp"
1309 @ 13635:               PUSH   PRINTWORD
1310 @ 13638:               PUSH   VAL
1311 @ 13641:               ASSPAR
1312 @ 13642:               CALL  
1313 @ 13643:               LINE   169 "regression-compile-tmp/hal7502.imp"
1314 @ 13681:               PUSH   PUTWORD
1315 @ 13684:               PUSH   VAL
1316 @ 13687:               ASSPAR
1317 @ 13688:               CALL  

   170      PRINT('''') %IF TYPE&RELMASK # 0
1318 @ 13689:               LINE   170 "regression-compile-tmp/hal7502.imp"
1319 @ 13727:               PUSH   TYPE
1320 @ 13730:               PUSH   RELMASK
1321 @ 13733:               AND   
1322 @ 13734:               PUSHI  #0x00000000
1323 @ 13739:               JUMPIF = L_0007
1324 @ 13743:               PUSH   PRINT
1325 @ 13746:               PUSHI  #0x00000027
1326 @ 13751:               ASSPAR
1327 @ 13752:               CALL  
1328 @ 13753:               LOCATE L_0007

   171      PRINT LINE %IF CHARS >= 15
1329 @ 13756:               LINE   171 "regression-compile-tmp/hal7502.imp"
1330 @ 13794:               PUSH   CHARS
1331 @ 13797:               PUSHI  #0x0000000f
1332 @ 13802:               JUMPIF < L_0007
1333 @ 13806:               PUSH   PRINTLINE
1334 @ 13809:               CALL  
1335 @ 13810:               LOCATE L_0007

   172      %FINISH
1336 @ 13813:               LINE   172 "regression-compile-tmp/hal7502.imp"
1337 @ 13851:               LOCATE L_0004

   173      LOC = LOC+1
1338 @ 13854:               LINE   173 "regression-compile-tmp/hal7502.imp"
1339 @ 13892:               PUSH   LOC
1340 @ 13895:               PUSH   LOC
1341 @ 13898:               PUSHI  #0x00000001
1342 @ 13903:               ADD   
1343 @ 13904:               ASSVAL

   174  %END
   175  
1344 @ 13905:               LINE   174 "regression-compile-tmp/hal7502.imp"
1345 @ 13943:            END    _lev0id0_PLANTVAL {lev=2 --> 1}

   176  %ROUTINE PLANT(%INTEGER V)
1346 @ 13944:            LINE   176 "regression-compile-tmp/hal7502.imp"
1347 @ 13982:            DEF    PLANT (_lev0id0_PLANT) 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
1348 @ 13999:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1349 @ 14000:                  DEF    V 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
1350 @ 14013:               FINISH ) {lev=2}

   177  %INTEGER THOLD,VHOLD
1351 @ 14014:               LINE   177 "regression-compile-tmp/hal7502.imp"
1352 @ 14052:               DEF    THOLD 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
1353 @ 14069:               DEF    VHOLD 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

   178      THOLD = TYPE;  VHOLD = VAL
1354 @ 14086:               LINE   178 "regression-compile-tmp/hal7502.imp"
1355 @ 14124:               PUSH   THOLD
1356 @ 14127:               PUSH   TYPE
1357 @ 14130:               ASSVAL
1358 @ 14131:               LINE   178 "regression-compile-tmp/hal7502.imp"
1359 @ 14169:               PUSH   VHOLD
1360 @ 14172:               PUSH   VAL
1361 @ 14175:               ASSVAL

   179      TYPE = 0;  VAL = V
1362 @ 14176:               LINE   179 "regression-compile-tmp/hal7502.imp"
1363 @ 14214:               PUSH   TYPE
1364 @ 14217:               PUSHI  #0x00000000
1365 @ 14222:               ASSVAL
1366 @ 14223:               LINE   179 "regression-compile-tmp/hal7502.imp"
1367 @ 14261:               PUSH   VAL
1368 @ 14264:               PUSH   V
1369 @ 14267:               ASSVAL

   180      PLANT VAL
1370 @ 14268:               LINE   180 "regression-compile-tmp/hal7502.imp"
1371 @ 14306:               PUSH   PLANTVAL
1372 @ 14309:               CALL  

   181      TYPE = THOLD;  VAL = THOLD
1373 @ 14310:               LINE   181 "regression-compile-tmp/hal7502.imp"
1374 @ 14348:               PUSH   TYPE
1375 @ 14351:               PUSH   THOLD
1376 @ 14354:               ASSVAL
1377 @ 14355:               LINE   181 "regression-compile-tmp/hal7502.imp"
1378 @ 14393:               PUSH   VAL
1379 @ 14396:               PUSH   THOLD
1380 @ 14399:               ASSVAL

   182  %END
   183  
1381 @ 14400:               LINE   182 "regression-compile-tmp/hal7502.imp"
1382 @ 14438:            END    _lev0id0_PLANT {lev=2 --> 1}

   184  %ROUTINE NEST(%INTEGER K)
1383 @ 14439:            LINE   184 "regression-compile-tmp/hal7502.imp"
1384 @ 14477:            DEF    NEST (_lev0id0_NEST) 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
1385 @ 14493:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1386 @ 14494:                  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
1387 @ 14507:               FINISH ) {lev=2}

   185      NP = NP-1;  !!%MONITOR 23 %IF NP = BP
1388 @ 14508:               LINE   185 "regression-compile-tmp/hal7502.imp"
1389 @ 14546:               PUSH   NP
1390 @ 14549:               PUSH   NP
1391 @ 14552:               PUSHI  #0x00000001
1392 @ 14557:               SUB   
1393 @ 14558:               ASSVAL

   186      INTEGER(NP) = K
1394 @ 14559:               LINE   186 "regression-compile-tmp/hal7502.imp"
1395 @ 14597:               PUSH   INTEGER
1396 @ 14600:               PUSH   NP
1397 @ 14603:               ASSPAR
1398 @ 14604:               CALL  
1399 @ 14605:               PUSH   K
1400 @ 14608:               ASSVAL

   187  %END
   188  
1401 @ 14609:               LINE   187 "regression-compile-tmp/hal7502.imp"
1402 @ 14647:            END    _lev0id0_NEST {lev=2 --> 1}

   189  %ROUTINE SET LAB(%INTEGER DEST)
1403 @ 14648:            LINE   189 "regression-compile-tmp/hal7502.imp"
1404 @ 14686:            DEF    SETLAB (_lev0id0_SETLAB) 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
1405 @ 14704:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1406 @ 14705:                  DEF    DEST 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
1407 @ 14721:               FINISH ) {lev=2}

   190  %INTEGER P,Q
1408 @ 14722:               LINE   190 "regression-compile-tmp/hal7502.imp"
1409 @ 14760:               DEF    P p1=V_00d1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
1410 @ 14773:               DEF    Q 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

   191      Q = 0
1411 @ 14786:               LINE   191 "regression-compile-tmp/hal7502.imp"
1412 @ 14824:               PUSH   Q
1413 @ 14827:               PUSHI  #0x00000000
1414 @ 14832:               ASSVAL

   192      %CYCLE
1415 @ 14833:               LINE   192 "regression-compile-tmp/hal7502.imp"
1416 @ 14871:               LOCATE L_0003

   193      TYPE = INTEGER(NP);  P = TYPE&16_3FF+DEFLIM; !DEST SLOT
1417 @ 14874:               LINE   193 "regression-compile-tmp/hal7502.imp"
1418 @ 14912:               PUSH   TYPE
1419 @ 14915:               PUSH   INTEGER
1420 @ 14918:               PUSH   NP
1421 @ 14921:               ASSPAR
1422 @ 14922:               CALL  
1423 @ 14923:               ASSVAL
1424 @ 14924:               LINE   193 "regression-compile-tmp/hal7502.imp"
1425 @ 14962:               PUSH   P
1426 @ 14965:               PUSH   TYPE
1427 @ 14968:               PUSHI  #0x000003ff
1428 @ 14973:               AND   
1429 @ 14974:               PUSH   DEFLIM
1430 @ 14977:               ADD   
1431 @ 14978:               ASSVAL

   194      NP = NP+1
1432 @ 14979:               LINE   194 "regression-compile-tmp/hal7502.imp"
1433 @ 15017:               PUSH   NP
1434 @ 15020:               PUSH   NP
1435 @ 15023:               PUSHI  #0x00000001
1436 @ 15028:               ADD   
1437 @ 15029:               ASSVAL

   195      VAL = INTEGER(NP);             !LOC OF JUMP
1438 @ 15030:               LINE   195 "regression-compile-tmp/hal7502.imp"
1439 @ 15068:               PUSH   VAL
1440 @ 15071:               PUSH   INTEGER
1441 @ 15074:               PUSH   NP
1442 @ 15077:               ASSPAR
1443 @ 15078:               CALL  
1444 @ 15079:               ASSVAL

   196      NP = NP+1
1445 @ 15080:               LINE   196 "regression-compile-tmp/hal7502.imp"
1446 @ 15118:               PUSH   NP
1447 @ 15121:               PUSH   NP
1448 @ 15124:               PUSHI  #0x00000001
1449 @ 15129:               ADD   
1450 @ 15130:               ASSVAL

   197      ATYPE = -1;  CREG = -1
1451 @ 15131:               LINE   197 "regression-compile-tmp/hal7502.imp"
1452 @ 15169:               PUSH   ATYPE
1453 @ 15172:               PUSHI  #0x00000001
1454 @ 15177:               NEGATE
1455 @ 15178:               ASSVAL
1456 @ 15179:               LINE   197 "regression-compile-tmp/hal7502.imp"
1457 @ 15217:               PUSH   CREG
1458 @ 15220:               PUSHI  #0x00000001
1459 @ 15225:               NEGATE
1460 @ 15226:               ASSVAL

   198      FLAG = 0;
1461 @ 15227:               LINE   198 "regression-compile-tmp/hal7502.imp"
1462 @ 15265:               PUSH   FLAG
1463 @ 15268:               PUSHI  #0x00000000
1464 @ 15273:               ASSVAL

   199      %IF TYPE&16_800 = 0 %START
1465 @ 15274:               LINE   199 "regression-compile-tmp/hal7502.imp"
1466 @ 15312:               PUSH   TYPE
1467 @ 15315:               PUSHI  #0x00000800
1468 @ 15320:               AND   
1469 @ 15321:               PUSHI  #0x00000000
1470 @ 15326:               JUMPIF # L_0007

   200      FLAG = 1 %IF DEST-VAL+PASS <= 128
1471 @ 15330:               LINE   200 "regression-compile-tmp/hal7502.imp"
1472 @ 15368:               PUSH   DEST
1473 @ 15371:               PUSH   VAL
1474 @ 15374:               SUB   
1475 @ 15375:               PUSH   PASS
1476 @ 15378:               ADD   
1477 @ 15379:               PUSHI  #0x00000080
1478 @ 15384:               JUMPIF > L_000a
1479 @ 15388:               PUSH   FLAG
1480 @ 15391:               PUSHI  #0x00000001
1481 @ 15396:               ASSVAL
1482 @ 15397:               LOCATE L_000a

   201      %finish %ELSE %IF TYPE&16_400 # 0 %START
1483 @ 15400:               LINE   201 "regression-compile-tmp/hal7502.imp"
1484 @ 15438:               GOTO   L_0006
1485 @ 15441:               LOCATE L_0007
1486 @ 15444:               PUSH   TYPE
1487 @ 15447:               PUSHI  #0x00000400
1488 @ 15452:               AND   
1489 @ 15453:               PUSHI  #0x00000000
1490 @ 15458:               JUMPIF = L_0007

   202      FLAG = 2 %IF DEST-VAL+PASS+PASS = 1
1491 @ 15462:               LINE   202 "regression-compile-tmp/hal7502.imp"
1492 @ 15500:               PUSH   DEST
1493 @ 15503:               PUSH   VAL
1494 @ 15506:               SUB   
1495 @ 15507:               PUSH   PASS
1496 @ 15510:               ADD   
1497 @ 15511:               PUSH   PASS
1498 @ 15514:               ADD   
1499 @ 15515:               PUSHI  #0x00000001
1500 @ 15520:               JUMPIF # L_000a
1501 @ 15524:               PUSH   FLAG
1502 @ 15527:               PUSHI  #0x00000002
1503 @ 15532:               ASSVAL
1504 @ 15533:               LOCATE L_000a

   203      %FINISH
1505 @ 15536:               LINE   203 "regression-compile-tmp/hal7502.imp"
1506 @ 15574:               LOCATE L_0007
1507 @ 15577:               LOCATE L_0006

   204      %IF PASS = 0 %START
1508 @ 15580:               LINE   204 "regression-compile-tmp/hal7502.imp"
1509 @ 15618:               PUSH   PASS
1510 @ 15621:               PUSHI  #0x00000000
1511 @ 15626:               JUMPIF # L_0007

   205      DEST = DEST-FLAG;  INTEGER(P) = DEST
1512 @ 15630:               LINE   205 "regression-compile-tmp/hal7502.imp"
1513 @ 15668:               PUSH   DEST
1514 @ 15671:               PUSH   DEST
1515 @ 15674:               PUSH   FLAG
1516 @ 15677:               SUB   
1517 @ 15678:               ASSVAL
1518 @ 15679:               LINE   205 "regression-compile-tmp/hal7502.imp"
1519 @ 15717:               PUSH   INTEGER
1520 @ 15720:               PUSH   P
1521 @ 15723:               ASSPAR
1522 @ 15724:               CALL  
1523 @ 15725:               PUSH   DEST
1524 @ 15728:               ASSVAL

   206      %IF FLAG # 0 %START
1525 @ 15729:               LINE   206 "regression-compile-tmp/hal7502.imp"
1526 @ 15767:               PUSH   FLAG
1527 @ 15770:               PUSHI  #0x00000000
1528 @ 15775:               JUMPIF = L_000a

   207      LOC = LOC-FLAG
1529 @ 15779:               LINE   207 "regression-compile-tmp/hal7502.imp"
1530 @ 15817:               PUSH   LOC
1531 @ 15820:               PUSH   LOC
1532 @ 15823:               PUSH   FLAG
1533 @ 15826:               SUB   
1534 @ 15827:               ASSVAL

   208      %WHILE P # ALMAX %CYCLE
1535 @ 15828:               LINE   208 "regression-compile-tmp/hal7502.imp"
1536 @ 15866:               LOCATE L_000c
1537 @ 15869:               PUSH   P
1538 @ 15872:               PUSH   ALMAX
1539 @ 15875:               JUMPIF = L_000d

   209      P = P+1;  INTEGER(P) = INTEGER(P)-FLAG
1540 @ 15879:               LINE   209 "regression-compile-tmp/hal7502.imp"
1541 @ 15917:               PUSH   P
1542 @ 15920:               PUSH   P
1543 @ 15923:               PUSHI  #0x00000001
1544 @ 15928:               ADD   
1545 @ 15929:               ASSVAL
1546 @ 15930:               LINE   209 "regression-compile-tmp/hal7502.imp"
1547 @ 15968:               PUSH   INTEGER
1548 @ 15971:               PUSH   P
1549 @ 15974:               ASSPAR
1550 @ 15975:               CALL  
1551 @ 15976:               PUSH   INTEGER
1552 @ 15979:               PUSH   P
1553 @ 15982:               ASSPAR
1554 @ 15983:               CALL  
1555 @ 15984:               PUSH   FLAG
1556 @ 15987:               SUB   
1557 @ 15988:               ASSVAL

   210      %REPEAT
1558 @ 15989:               LINE   210 "regression-compile-tmp/hal7502.imp"
1559 @ 16027:               REPEAT L_000c
1560 @ 16030:               LOCATE L_000d

   211      %FINISH
1561 @ 16033:               LINE   211 "regression-compile-tmp/hal7502.imp"
1562 @ 16071:               LOCATE L_000a

   212      %finish %ELSE %START
1563 @ 16074:               LINE   212 "regression-compile-tmp/hal7502.imp"
1564 @ 16112:               GOTO   L_0006
1565 @ 16115:               LOCATE L_0007

   213      FAULT('P') %IF INTEGER(P) # DEST
1566 @ 16118:               LINE   213 "regression-compile-tmp/hal7502.imp"
1567 @ 16156:               PUSH   INTEGER
1568 @ 16159:               PUSH   P
1569 @ 16162:               ASSPAR
1570 @ 16163:               CALL  
1571 @ 16164:               PUSH   DEST
1572 @ 16167:               JUMPIF = L_000a
1573 @ 16171:               PUSH   FAULT
1574 @ 16174:               PUSHI  #0x00000050
1575 @ 16179:               ASSPAR
1576 @ 16180:               CALL  
1577 @ 16181:               LOCATE L_000a

   214      %FINISH
1578 @ 16184:               LINE   214 "regression-compile-tmp/hal7502.imp"
1579 @ 16222:               LOCATE L_0006

   215      %RETURN %IF INTEGER(NP)&16_1000 = 0
1580 @ 16225:               LINE   215 "regression-compile-tmp/hal7502.imp"
1581 @ 16263:               PUSH   INTEGER
1582 @ 16266:               PUSH   NP
1583 @ 16269:               ASSPAR
1584 @ 16270:               CALL  
1585 @ 16271:               PUSHI  #0x00001000
1586 @ 16276:               AND   
1587 @ 16277:               PUSHI  #0x00000000
1588 @ 16282:               JUMPIF # L_0007
1589 @ 16286:               RETURN
1590 @ 16287:               LOCATE L_0007

   216      %IF INTEGER(NP)&16_2000 # 0 %AND Q = 0 %START; !OR
1591 @ 16290:               LINE   216 "regression-compile-tmp/hal7502.imp"
1592 @ 16328:               PUSH   INTEGER
1593 @ 16331:               PUSH   NP
1594 @ 16334:               ASSPAR
1595 @ 16335:               CALL  
1596 @ 16336:               PUSHI  #0x00002000
1597 @ 16341:               AND   
1598 @ 16342:               PUSHI  #0x00000000
1599 @ 16347:               JUMPIF = L_0007
1600 @ 16351:               PUSH   Q
1601 @ 16354:               PUSHI  #0x00000000
1602 @ 16359:               JUMPIF # L_0007

   217      DEST = VAL+1
1603 @ 16363:               LINE   217 "regression-compile-tmp/hal7502.imp"
1604 @ 16401:               PUSH   DEST
1605 @ 16404:               PUSH   VAL
1606 @ 16407:               PUSHI  #0x00000001
1607 @ 16412:               ADD   
1608 @ 16413:               ASSVAL

   218      DEST = VAL+2-FLAG %UNLESS TYPE&16_C00 = 16_C00
1609 @ 16414:               LINE   218 "regression-compile-tmp/hal7502.imp"
1610 @ 16452:               PUSH   TYPE
1611 @ 16455:               PUSHI  #0x00000c00
1612 @ 16460:               AND   
1613 @ 16461:               PUSHI  #0x00000c00
1614 @ 16466:               JUMPIF = L_000a
1615 @ 16470:               PUSH   DEST
1616 @ 16473:               PUSH   VAL
1617 @ 16476:               PUSHI  #0x00000002
1618 @ 16481:               ADD   
1619 @ 16482:               PUSH   FLAG
1620 @ 16485:               SUB   
1621 @ 16486:               ASSVAL
1622 @ 16487:               LOCATE L_000a

   219      Q = 1
1623 @ 16490:               LINE   219 "regression-compile-tmp/hal7502.imp"
1624 @ 16528:               PUSH   Q
1625 @ 16531:               PUSHI  #0x00000001
1626 @ 16536:               ASSVAL

   220      %FINISH
1627 @ 16537:               LINE   220 "regression-compile-tmp/hal7502.imp"
1628 @ 16575:               LOCATE L_0007

   221      %REPEAT
1629 @ 16578:               LINE   221 "regression-compile-tmp/hal7502.imp"
1630 @ 16616:               REPEAT L_0003

   222  %END
   223  
1631 @ 16619:               LINE   222 "regression-compile-tmp/hal7502.imp"
1632 @ 16657:            END    _lev0id0_SETLAB {lev=2 --> 1}

   224  %ROUTINE ASSEMBLE
   225  !   7502 OP-CODES
1633 @ 16658:            LINE   224 "regression-compile-tmp/hal7502.imp"
1634 @ 16696:            DEF    ASSEMBLE (_lev0id0_ASSEMBLE) 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
1635 @ 16716:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
1636 @ 16717:               FINISH ) {lev=2}

   226  %OWNINTEGER ADD=16_F400, SUB=16_F500, AND=16_F100
1637 @ 16718:               LINE   226 "regression-compile-tmp/hal7502.imp"
1638 @ 16756:               PUSHI  #0x0000f400
1639 @ 16761:               DEF    ADD p1=V_00d1 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
1640 @ 16776:               INIT   1
1641 @ 16779:               PUSHI  #0x0000f500
1642 @ 16784:               DEF    SUB p1=V_00d2 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
1643 @ 16799:               INIT   1
1644 @ 16802:               PUSHI  #0x0000f100
1645 @ 16807:               DEF    AND p1=V_00d3 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
1646 @ 16822:               INIT   1

   227  %OWNINTEGER OR=16_F000, XOR=16_F700, COMP=16_F200
1647 @ 16825:               LINE   227 "regression-compile-tmp/hal7502.imp"
1648 @ 16863:               PUSHI  #0x0000f000
1649 @ 16868:               DEF    OR p1=V_00d4 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
1650 @ 16882:               INIT   1
1651 @ 16885:               PUSHI  #0x0000f700
1652 @ 16890:               DEF    XOR 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
1653 @ 16905:               INIT   1
1654 @ 16908:               PUSHI  #0x0000f200
1655 @ 16913:               DEF    COMP 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
1656 @ 16929:               INIT   1

   228  %OWNINTEGER COPY=16_F300
1657 @ 16932:               LINE   228 "regression-compile-tmp/hal7502.imp"
1658 @ 16970:               PUSHI  #0x0000f300
1659 @ 16975:               DEF    COPY p1=V_00d7 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
1660 @ 16991:               INIT   1

   229  %OWNINTEGER LOADI=16_6000, SKIDI=16_7000, ADDI=16_8000
1661 @ 16994:               LINE   229 "regression-compile-tmp/hal7502.imp"
1662 @ 17032:               PUSHI  #0x00006000
1663 @ 17037:               DEF    LOADI p1=V_00d8 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
1664 @ 17054:               INIT   1
1665 @ 17057:               PUSHI  #0x00007000
1666 @ 17062:               DEF    SKIDI p1=V_00d9 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
1667 @ 17079:               INIT   1
1668 @ 17082:               PUSHI  #0x00008000
1669 @ 17087:               DEF    ADDI 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
1670 @ 17103:               INIT   1

   230  %OWNINTEGER ANDI=16_9000
1671 @ 17106:               LINE   230 "regression-compile-tmp/hal7502.imp"
1672 @ 17144:               PUSHI  #0x00009000
1673 @ 17149:               DEF    ANDI 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
1674 @ 17165:               INIT   1

   231  %OWNINTEGER BOC=16_5800, BOCR=16_5000, JUM=16_4000
1675 @ 17168:               LINE   231 "regression-compile-tmp/hal7502.imp"
1676 @ 17206:               PUSHI  #0x00005800
1677 @ 17211:               DEF    BOC 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
1678 @ 17226:               INIT   1
1679 @ 17229:               PUSHI  #0x00005000
1680 @ 17234:               DEF    BOCR 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
1681 @ 17250:               INIT   1
1682 @ 17253:               PUSHI  #0x00004000
1683 @ 17258:               DEF    JUM 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
1684 @ 17273:               INIT   1

   232  %OWNINTEGER SKIP=16_4002, LOADC=16_20F2, ROT=16_3000
1685 @ 17276:               LINE   232 "regression-compile-tmp/hal7502.imp"
1686 @ 17314:               PUSHI  #0x00004002
1687 @ 17319:               DEF    SKIP 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
1688 @ 17335:               INIT   1
1689 @ 17338:               PUSHI  #0x000020f2
1690 @ 17343:               DEF    LOADC 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
1691 @ 17360:               INIT   1
1692 @ 17363:               PUSHI  #0x00003000
1693 @ 17368:               DEF    ROT 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
1694 @ 17383:               INIT   1

   233  %OWNINTEGER LOAD=16_2000, STORE=16_2008
   234  
1695 @ 17386:               LINE   233 "regression-compile-tmp/hal7502.imp"
1696 @ 17424:               PUSHI  #0x00002000
1697 @ 17429:               DEF    LOAD 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
1698 @ 17445:               INIT   1
1699 @ 17448:               PUSHI  #0x00002008
1700 @ 17453:               DEF    STORE 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
1701 @ 17470:               INIT   1

   235  %INTEGER Q,NQ,OP,K,LITVAL,TYPE1,VAL1,FREE
1702 @ 17473:               LINE   235 "regression-compile-tmp/hal7502.imp"
1703 @ 17511:               DEF    Q 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
1704 @ 17524:               DEF    NQ 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
1705 @ 17538:               DEF    OP 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
1706 @ 17552:               DEF    K 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
1707 @ 17565:               DEF    LITVAL 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
1708 @ 17583:               DEF    TYPE1 p1=V_00e9 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
1709 @ 17600:               DEF    VAL1 p1=V_00ea 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
1710 @ 17616:               DEF    FREE p1=V_00eb 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

   236  %SWITCH ASS(-30:-1)
   237  
1711 @ 17632:               LINE   236 "regression-compile-tmp/hal7502.imp"
1712 @ 17670:               PUSHI  #0xffffffe2
1713 @ 17675:               PUSHI  #0xffffffff
1714 @ 17680:               BOUNDS
1715 @ 17681:               DEF    ASS p1=V_00ec 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

   238  %ROUTINE COMBINE
1716 @ 17696:               LINE   238 "regression-compile-tmp/hal7502.imp"
1717 @ 17734:               DEF    COMBINE (_lev0id0_ASSEMBLE_COMBINE) p1=V_00ed 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
1718 @ 17753:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
1719 @ 17754:                  FINISH ) {lev=3}

   239  %INTEGER I,J,K
1720 @ 17755:                  LINE   239 "regression-compile-tmp/hal7502.imp"
1721 @ 17793:                  DEF    I p1=V_00ee 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
1722 @ 17806:                  DEF    J p1=V_00ef 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 @ 17819:                  DEF    K p1=V_00f0 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

   240      I = 11; K = 2048
1724 @ 17832:                  LINE   240 "regression-compile-tmp/hal7502.imp"
1725 @ 17870:                  PUSH   I
1726 @ 17873:                  PUSHI  #0x0000000b
1727 @ 17878:                  ASSVAL
1728 @ 17879:                  LINE   240 "regression-compile-tmp/hal7502.imp"
1729 @ 17917:                  PUSH   K
1730 @ 17920:                  PUSHI  #0x00000800
1731 @ 17925:                  ASSVAL

   241      I=I-1 %AND K=K>>1 %WHILE K&TYPE1 = 0 %AND I # 0
1732 @ 17926:                  LINE   241 "regression-compile-tmp/hal7502.imp"
1733 @ 17964:                  LOCATE L_0003
1734 @ 17967:                  PUSH   K
1735 @ 17970:                  PUSH   TYPE1
1736 @ 17973:                  AND   
1737 @ 17974:                  PUSHI  #0x00000000
1738 @ 17979:                  JUMPIF # L_0004
1739 @ 17983:                  PUSH   I
1740 @ 17986:                  PUSHI  #0x00000000
1741 @ 17991:                  JUMPIF = L_0004
1742 @ 17995:                  PUSH   I
1743 @ 17998:                  PUSH   I
1744 @ 18001:                  PUSHI  #0x00000001
1745 @ 18006:                  SUB   
1746 @ 18007:                  ASSVAL
1747 @ 18008:                  PUSH   K
1748 @ 18011:                  PUSH   K
1749 @ 18014:                  PUSHI  #0x00000001
1750 @ 18019:                  RSH   
1751 @ 18020:                  ASSVAL
1752 @ 18021:                  REPEAT L_0003
1753 @ 18024:                  LOCATE L_0004

   242      J = K
1754 @ 18027:                  LINE   242 "regression-compile-tmp/hal7502.imp"
1755 @ 18065:                  PUSH   J
1756 @ 18068:                  PUSH   K
1757 @ 18071:                  ASSVAL

   243      I =I-1 %AND J=J>>1 %WHILE J&VAL1 = 0 %AND I # 0
1758 @ 18072:                  LINE   243 "regression-compile-tmp/hal7502.imp"
1759 @ 18110:                  LOCATE L_0003
1760 @ 18113:                  PUSH   J
1761 @ 18116:                  PUSH   VAL1
1762 @ 18119:                  AND   
1763 @ 18120:                  PUSHI  #0x00000000
1764 @ 18125:                  JUMPIF # L_0004
1765 @ 18129:                  PUSH   I
1766 @ 18132:                  PUSHI  #0x00000000
1767 @ 18137:                  JUMPIF = L_0004
1768 @ 18141:                  PUSH   I
1769 @ 18144:                  PUSH   I
1770 @ 18147:                  PUSHI  #0x00000001
1771 @ 18152:                  SUB   
1772 @ 18153:                  ASSVAL
1773 @ 18154:                  PUSH   J
1774 @ 18157:                  PUSH   J
1775 @ 18160:                  PUSHI  #0x00000001
1776 @ 18165:                  RSH   
1777 @ 18166:                  ASSVAL
1778 @ 18167:                  REPEAT L_0003
1779 @ 18170:                  LOCATE L_0004

   244      VAL = VAL<<I & (K<<1-1)
1780 @ 18173:                  LINE   244 "regression-compile-tmp/hal7502.imp"
1781 @ 18211:                  PUSH   VAL
1782 @ 18214:                  PUSH   VAL
1783 @ 18217:                  PUSH   I
1784 @ 18220:                  LSH   
1785 @ 18221:                  PUSH   K
1786 @ 18224:                  PUSHI  #0x00000001
1787 @ 18229:                  LSH   
1788 @ 18230:                  PUSHI  #0x00000001
1789 @ 18235:                  SUB   
1790 @ 18236:                  AND   
1791 @ 18237:                  ASSVAL

   245      TYPE = TYPE1-K
1792 @ 18238:                  LINE   245 "regression-compile-tmp/hal7502.imp"
1793 @ 18276:                  PUSH   TYPE
1794 @ 18279:                  PUSH   TYPE1
1795 @ 18282:                  PUSH   K
1796 @ 18285:                  SUB   
1797 @ 18286:                  ASSVAL

   246      VAL = VAL1-J+VAL
1798 @ 18287:                  LINE   246 "regression-compile-tmp/hal7502.imp"
1799 @ 18325:                  PUSH   VAL
1800 @ 18328:                  PUSH   VAL1
1801 @ 18331:                  PUSH   J
1802 @ 18334:                  SUB   
1803 @ 18335:                  PUSH   VAL
1804 @ 18338:                  ADD   
1805 @ 18339:                  ASSVAL

   247  %END
   248  
1806 @ 18340:                  LINE   247 "regression-compile-tmp/hal7502.imp"
1807 @ 18378:               END    _lev0id0_ASSEMBLE_COMBINE {lev=3 --> 2}

   249  %ROUTINE PLANT JUMP
1808 @ 18379:               LINE   249 "regression-compile-tmp/hal7502.imp"
1809 @ 18417:               DEF    PLANTJUMP (_lev0id0_ASSEMBLE_PLANTJUMP) p1=V_00ee 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
1810 @ 18438:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
1811 @ 18439:                  FINISH ) {lev=3}

   250  %INTEGER I,V
1812 @ 18440:                  LINE   250 "regression-compile-tmp/hal7502.imp"
1813 @ 18478:                  DEF    I p1=V_00ef 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
1814 @ 18491:                  DEF    V p1=V_00f0 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

   251      I = VAL-LOC
1815 @ 18504:                  LINE   251 "regression-compile-tmp/hal7502.imp"
1816 @ 18542:                  PUSH   I
1817 @ 18545:                  PUSH   VAL
1818 @ 18548:                  PUSH   LOC
1819 @ 18551:                  SUB   
1820 @ 18552:                  ASSVAL

   252      %IF COND&6 = 0 %START
1821 @ 18553:                  LINE   252 "regression-compile-tmp/hal7502.imp"
1822 @ 18591:                  PUSH   COND
1823 @ 18594:                  PUSHI  #0x00000006
1824 @ 18599:                  AND   
1825 @ 18600:                  PUSHI  #0x00000000
1826 @ 18605:                  JUMPIF # L_0004

   253      %IF COND = 8 %START
1827 @ 18609:                  LINE   253 "regression-compile-tmp/hal7502.imp"
1828 @ 18647:                  PUSH   COND
1829 @ 18650:                  PUSHI  #0x00000008
1830 @ 18655:                  JUMPIF # L_0007

   254      %RETURN %IF I=1
1831 @ 18659:                  LINE   254 "regression-compile-tmp/hal7502.imp"
1832 @ 18697:                  PUSH   I
1833 @ 18700:                  PUSHI  #0x00000001
1834 @ 18705:                  JUMPIF # L_000a
1835 @ 18709:                  RETURN
1836 @ 18710:                  LOCATE L_000a

   255      PLANT(SKIP)
1837 @ 18713:                  LINE   255 "regression-compile-tmp/hal7502.imp"
1838 @ 18751:                  PUSH   PLANT
1839 @ 18754:                  PUSH   SKIP
1840 @ 18757:                  ASSPAR
1841 @ 18758:                  CALL  

   256      %FINISH
1842 @ 18759:                  LINE   256 "regression-compile-tmp/hal7502.imp"
1843 @ 18797:                  LOCATE L_0007

   257      %finish %ELSE %START
1844 @ 18800:                  LINE   257 "regression-compile-tmp/hal7502.imp"
1845 @ 18838:                  GOTO   L_0003
1846 @ 18841:                  LOCATE L_0004

   258      FAULT('J') %AND I=0 %IF FLAG # 0 %AND |I| > 127
1847 @ 18844:                  LINE   258 "regression-compile-tmp/hal7502.imp"
1848 @ 18882:                  PUSH   FLAG
1849 @ 18885:                  PUSHI  #0x00000000
1850 @ 18890:                  JUMPIF = L_0007
1851 @ 18894:                  PUSH   I
1852 @ 18897:                  MOD   
1853 @ 18898:                  PUSHI  #0x0000007f
1854 @ 18903:                  JUMPIF <= L_0007
1855 @ 18907:                  PUSH   FAULT
1856 @ 18910:                  PUSHI  #0x0000004a
1857 @ 18915:                  ASSPAR
1858 @ 18916:                  CALL  
1859 @ 18917:                  PUSH   I
1860 @ 18920:                  PUSHI  #0x00000000
1861 @ 18925:                  ASSVAL
1862 @ 18926:                  LOCATE L_0007

   259      %IF |I| <= 127 %START
1863 @ 18929:                  LINE   259 "regression-compile-tmp/hal7502.imp"
1864 @ 18967:                  PUSH   I
1865 @ 18970:                  MOD   
1866 @ 18971:                  PUSHI  #0x0000007f
1867 @ 18976:                  JUMPIF > L_0007

   260      %IF TYPE&UMASK = 0 %OR FLAG # 0 %START
1868 @ 18980:                  LINE   260 "regression-compile-tmp/hal7502.imp"
1869 @ 19018:                  PUSH   TYPE
1870 @ 19021:                  PUSH   UMASK
1871 @ 19024:                  AND   
1872 @ 19025:                  PUSHI  #0x00000000
1873 @ 19030:                  JUMPIF = L_000b
1874 @ 19034:                  PUSH   FLAG
1875 @ 19037:                  PUSHI  #0x00000000
1876 @ 19042:                  JUMPIF = L_000a
1877 @ 19046:                  LOCATE L_000b

   261      PLANT(BOC+(COND!!1)<<8+I&255)
1878 @ 19049:                  LINE   261 "regression-compile-tmp/hal7502.imp"
1879 @ 19087:                  PUSH   PLANT
1880 @ 19090:                  PUSH   BOC
1881 @ 19093:                  PUSH   COND
1882 @ 19096:                  PUSHI  #0x00000001
1883 @ 19101:                  XOR   
1884 @ 19102:                  PUSHI  #0x00000008
1885 @ 19107:                  LSH   
1886 @ 19108:                  ADD   
1887 @ 19109:                  PUSH   I
1888 @ 19112:                  PUSHI  #0x000000ff
1889 @ 19117:                  AND   
1890 @ 19118:                  ADD   
1891 @ 19119:                  ASSPAR
1892 @ 19120:                  CALL  

   262      %RETURN
1893 @ 19121:                  LINE   262 "regression-compile-tmp/hal7502.imp"
1894 @ 19159:                  RETURN

   263      %FINISH
1895 @ 19160:                  LINE   263 "regression-compile-tmp/hal7502.imp"
1896 @ 19198:                  LOCATE L_000a

   264      FAULT('S') %IF LIST >= 0 %AND LIST&8 # 0
1897 @ 19201:                  LINE   264 "regression-compile-tmp/hal7502.imp"
1898 @ 19239:                  PUSH   LIST
1899 @ 19242:                  PUSHI  #0x00000000
1900 @ 19247:                  JUMPIF < L_000a
1901 @ 19251:                  PUSH   LIST
1902 @ 19254:                  PUSHI  #0x00000008
1903 @ 19259:                  AND   
1904 @ 19260:                  PUSHI  #0x00000000
1905 @ 19265:                  JUMPIF = L_000a
1906 @ 19269:                  PUSH   FAULT
1907 @ 19272:                  PUSHI  #0x00000053
1908 @ 19277:                  ASSPAR
1909 @ 19278:                  CALL  
1910 @ 19279:                  LOCATE L_000a

   265      %FINISH
1911 @ 19282:                  LINE   265 "regression-compile-tmp/hal7502.imp"
1912 @ 19320:                  LOCATE L_0007

   266      PLANT(BOC+COND<<8+2)
1913 @ 19323:                  LINE   266 "regression-compile-tmp/hal7502.imp"
1914 @ 19361:                  PUSH   PLANT
1915 @ 19364:                  PUSH   BOC
1916 @ 19367:                  PUSH   COND
1917 @ 19370:                  PUSHI  #0x00000008
1918 @ 19375:                  LSH   
1919 @ 19376:                  ADD   
1920 @ 19377:                  PUSHI  #0x00000002
1921 @ 19382:                  ADD   
1922 @ 19383:                  ASSPAR
1923 @ 19384:                  CALL  

   267      %FINISH
1924 @ 19385:                  LINE   267 "regression-compile-tmp/hal7502.imp"
1925 @ 19423:                  LOCATE L_0003

   268      PLANT(JUM+(VAL-LOC)&4095)
1926 @ 19426:                  LINE   268 "regression-compile-tmp/hal7502.imp"
1927 @ 19464:                  PUSH   PLANT
1928 @ 19467:                  PUSH   JUM
1929 @ 19470:                  PUSH   VAL
1930 @ 19473:                  PUSH   LOC
1931 @ 19476:                  SUB   
1932 @ 19477:                  PUSHI  #0x00000fff
1933 @ 19482:                  AND   
1934 @ 19483:                  ADD   
1935 @ 19484:                  ASSPAR
1936 @ 19485:                  CALL  

   269  %END
   270  
1937 @ 19486:                  LINE   269 "regression-compile-tmp/hal7502.imp"
1938 @ 19524:               END    _lev0id0_ASSEMBLE_PLANTJUMP {lev=3 --> 2}

   271  %ROUTINE SET JUMP(%INTEGER CASE)
1939 @ 19525:               LINE   271 "regression-compile-tmp/hal7502.imp"
1940 @ 19563:               DEF    SETJUMP (_lev0id0_ASSEMBLE_SETJUMP) p1=V_00ef 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
1941 @ 19582:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
1942 @ 19583:                     DEF    CASE p1=V_00f0 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
1943 @ 19599:                  FINISH ) {lev=3}

   272  %INTEGER THOLD,VHOLD,FHOLD
1944 @ 19600:                  LINE   272 "regression-compile-tmp/hal7502.imp"
1945 @ 19638:                  DEF    THOLD 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
1946 @ 19655:                  DEF    VHOLD 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
1947 @ 19672:                  DEF    FHOLD 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

   273      CASE = CASE+16_0800 %IF COND&6 = 0
1948 @ 19689:                  LINE   273 "regression-compile-tmp/hal7502.imp"
1949 @ 19727:                  PUSH   COND
1950 @ 19730:                  PUSHI  #0x00000006
1951 @ 19735:                  AND   
1952 @ 19736:                  PUSHI  #0x00000000
1953 @ 19741:                  JUMPIF # L_0004
1954 @ 19745:                  PUSH   CASE
1955 @ 19748:                  PUSH   CASE
1956 @ 19751:                  PUSHI  #0x00000800
1957 @ 19756:                  ADD   
1958 @ 19757:                  ASSVAL
1959 @ 19758:                  LOCATE L_0004

   274      CASE = CASE+16_0400 %IF COND&1 # 0
1960 @ 19761:                  LINE   274 "regression-compile-tmp/hal7502.imp"
1961 @ 19799:                  PUSH   COND
1962 @ 19802:                  PUSHI  #0x00000001
1963 @ 19807:                  AND   
1964 @ 19808:                  PUSHI  #0x00000000
1965 @ 19813:                  JUMPIF = L_0004
1966 @ 19817:                  PUSH   CASE
1967 @ 19820:                  PUSH   CASE
1968 @ 19823:                  PUSHI  #0x00000400
1969 @ 19828:                  ADD   
1970 @ 19829:                  ASSVAL
1971 @ 19830:                  LOCATE L_0004

   275      ALMAX = ALMAX+1;  !!%MONITOR 22 %IF ALMAX = LABMIN
1972 @ 19833:                  LINE   275 "regression-compile-tmp/hal7502.imp"
1973 @ 19871:                  PUSH   ALMAX
1974 @ 19874:                  PUSH   ALMAX
1975 @ 19877:                  PUSHI  #0x00000001
1976 @ 19882:                  ADD   
1977 @ 19883:                  ASSVAL

   276      NEST(LOC);  NEST(ALMAX-DEFLIM+CASE)
1978 @ 19884:                  LINE   276 "regression-compile-tmp/hal7502.imp"
1979 @ 19922:                  PUSH   NEST
1980 @ 19925:                  PUSH   LOC
1981 @ 19928:                  ASSPAR
1982 @ 19929:                  CALL  
1983 @ 19930:                  LINE   276 "regression-compile-tmp/hal7502.imp"
1984 @ 19968:                  PUSH   NEST
1985 @ 19971:                  PUSH   ALMAX
1986 @ 19974:                  PUSH   DEFLIM
1987 @ 19977:                  SUB   
1988 @ 19978:                  PUSH   CASE
1989 @ 19981:                  ADD   
1990 @ 19982:                  ASSPAR
1991 @ 19983:                  CALL  

   277      THOLD = TYPE;  VHOLD = VAL;  FHOLD = FLAG
1992 @ 19984:                  LINE   277 "regression-compile-tmp/hal7502.imp"
1993 @ 20022:                  PUSH   THOLD
1994 @ 20025:                  PUSH   TYPE
1995 @ 20028:                  ASSVAL
1996 @ 20029:                  LINE   277 "regression-compile-tmp/hal7502.imp"
1997 @ 20067:                  PUSH   VHOLD
1998 @ 20070:                  PUSH   VAL
1999 @ 20073:                  ASSVAL
2000 @ 20074:                  LINE   277 "regression-compile-tmp/hal7502.imp"
2001 @ 20112:                  PUSH   FHOLD
2002 @ 20115:                  PUSH   FLAG
2003 @ 20118:                  ASSVAL

   278      TYPE = LOCTYPE;  VAL = INTEGER(ALMAX);  FLAG = 0
2004 @ 20119:                  LINE   278 "regression-compile-tmp/hal7502.imp"
2005 @ 20157:                  PUSH   TYPE
2006 @ 20160:                  PUSH   LOCTYPE
2007 @ 20163:                  ASSVAL
2008 @ 20164:                  LINE   278 "regression-compile-tmp/hal7502.imp"
2009 @ 20202:                  PUSH   VAL
2010 @ 20205:                  PUSH   INTEGER
2011 @ 20208:                  PUSH   ALMAX
2012 @ 20211:                  ASSPAR
2013 @ 20212:                  CALL  
2014 @ 20213:                  ASSVAL
2015 @ 20214:                  LINE   278 "regression-compile-tmp/hal7502.imp"
2016 @ 20252:                  PUSH   FLAG
2017 @ 20255:                  PUSHI  #0x00000000
2018 @ 20260:                  ASSVAL

   279      TYPE = TYPE+UMASK %IF PASS = 0
2019 @ 20261:                  LINE   279 "regression-compile-tmp/hal7502.imp"
2020 @ 20299:                  PUSH   PASS
2021 @ 20302:                  PUSHI  #0x00000000
2022 @ 20307:                  JUMPIF # L_0004
2023 @ 20311:                  PUSH   TYPE
2024 @ 20314:                  PUSH   TYPE
2025 @ 20317:                  PUSH   UMASK
2026 @ 20320:                  ADD   
2027 @ 20321:                  ASSVAL
2028 @ 20322:                  LOCATE L_0004

   280      COND = COND!!1
2029 @ 20325:                  LINE   280 "regression-compile-tmp/hal7502.imp"
2030 @ 20363:                  PUSH   COND
2031 @ 20366:                  PUSH   COND
2032 @ 20369:                  PUSHI  #0x00000001
2033 @ 20374:                  XOR   
2034 @ 20375:                  ASSVAL

   281      PLANT JUMP;  COND = 0
2035 @ 20376:                  LINE   281 "regression-compile-tmp/hal7502.imp"
2036 @ 20414:                  PUSH   PLANTJUMP
2037 @ 20417:                  CALL  
2038 @ 20418:                  LINE   281 "regression-compile-tmp/hal7502.imp"
2039 @ 20456:                  PUSH   COND
2040 @ 20459:                  PUSHI  #0x00000000
2041 @ 20464:                  ASSVAL

   282      TYPE = THOLD;  VAL = VHOLD;  FLAG = FHOLD
2042 @ 20465:                  LINE   282 "regression-compile-tmp/hal7502.imp"
2043 @ 20503:                  PUSH   TYPE
2044 @ 20506:                  PUSH   THOLD
2045 @ 20509:                  ASSVAL
2046 @ 20510:                  LINE   282 "regression-compile-tmp/hal7502.imp"
2047 @ 20548:                  PUSH   VAL
2048 @ 20551:                  PUSH   VHOLD
2049 @ 20554:                  ASSVAL
2050 @ 20555:                  LINE   282 "regression-compile-tmp/hal7502.imp"
2051 @ 20593:                  PUSH   FLAG
2052 @ 20596:                  PUSH   FHOLD
2053 @ 20599:                  ASSVAL

   283  %END
   284  
2054 @ 20600:                  LINE   283 "regression-compile-tmp/hal7502.imp"
2055 @ 20638:               END    _lev0id0_ASSEMBLE_SETJUMP {lev=3 --> 2}

   285  %ROUTINE PLANT INST(%INTEGER CODE)
2056 @ 20639:               LINE   285 "regression-compile-tmp/hal7502.imp"
2057 @ 20677:               DEF    PLANTINST (_lev0id0_ASSEMBLE_PLANTINST) p1=V_00f0 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
2058 @ 20698:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2059 @ 20699:                     DEF    CODE 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
2060 @ 20715:                  FINISH ) {lev=3}

   286      SET JUMP(16_1000) %IF COND # 0
2061 @ 20716:                  LINE   286 "regression-compile-tmp/hal7502.imp"
2062 @ 20754:                  PUSH   COND
2063 @ 20757:                  PUSHI  #0x00000000
2064 @ 20762:                  JUMPIF = L_0004
2065 @ 20766:                  PUSH   SETJUMP
2066 @ 20769:                  PUSHI  #0x00001000
2067 @ 20774:                  ASSPAR
2068 @ 20775:                  CALL  
2069 @ 20776:                  LOCATE L_0004

   287      PLANT(CODE)
2070 @ 20779:                  LINE   287 "regression-compile-tmp/hal7502.imp"
2071 @ 20817:                  PUSH   PLANT
2072 @ 20820:                  PUSH   CODE
2073 @ 20823:                  ASSPAR
2074 @ 20824:                  CALL  

   288  %END
   289  
2075 @ 20825:                  LINE   288 "regression-compile-tmp/hal7502.imp"
2076 @ 20863:               END    _lev0id0_ASSEMBLE_PLANTINST {lev=3 --> 2}

   290  %ROUTINE RELEASE
2077 @ 20864:               LINE   290 "regression-compile-tmp/hal7502.imp"
2078 @ 20902:               DEF    RELEASE (_lev0id0_ASSEMBLE_RELEASE) p1=V_00f1 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
2079 @ 20921:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2080 @ 20922:                  FINISH ) {lev=3}

   291  %INTEGER I
2081 @ 20923:                  LINE   291 "regression-compile-tmp/hal7502.imp"
2082 @ 20961:                  DEF    I 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

   292      %RETURN %IF TYPE&REGXMASK = 0
2083 @ 20974:                  LINE   292 "regression-compile-tmp/hal7502.imp"
2084 @ 21012:                  PUSH   TYPE
2085 @ 21015:                  PUSH   REGXMASK
2086 @ 21018:                  AND   
2087 @ 21019:                  PUSHI  #0x00000000
2088 @ 21024:                  JUMPIF # L_0004
2089 @ 21028:                  RETURN
2090 @ 21029:                  LOCATE L_0004

   293      I = TYPE&15;  I = VAL %IF TYPE = REG
2091 @ 21032:                  LINE   293 "regression-compile-tmp/hal7502.imp"
2092 @ 21070:                  PUSH   I
2093 @ 21073:                  PUSH   TYPE
2094 @ 21076:                  PUSHI  #0x0000000f
2095 @ 21081:                  AND   
2096 @ 21082:                  ASSVAL
2097 @ 21083:                  LINE   293 "regression-compile-tmp/hal7502.imp"
2098 @ 21121:                  PUSH   TYPE
2099 @ 21124:                  PUSH   REG
2100 @ 21127:                  JUMPIF # L_0004
2101 @ 21131:                  PUSH   I
2102 @ 21134:                  PUSH   VAL
2103 @ 21137:                  ASSVAL
2104 @ 21138:                  LOCATE L_0004

   294      %IF I = DREG %START
2105 @ 21141:                  LINE   294 "regression-compile-tmp/hal7502.imp"
2106 @ 21179:                  PUSH   I
2107 @ 21182:                  PUSH   DREG
2108 @ 21185:                  JUMPIF # L_0004

   295      DUSE = DUSE-1
2109 @ 21189:                  LINE   295 "regression-compile-tmp/hal7502.imp"
2110 @ 21227:                  PUSH   DUSE
2111 @ 21230:                  PUSH   DUSE
2112 @ 21233:                  PUSHI  #0x00000001
2113 @ 21238:                  SUB   
2114 @ 21239:                  ASSVAL

   296      %finish %ELSE %START
2115 @ 21240:                  LINE   296 "regression-compile-tmp/hal7502.imp"
2116 @ 21278:                  GOTO   L_0003
2117 @ 21281:                  LOCATE L_0004

   297      I = 1<<I
2118 @ 21284:                  LINE   297 "regression-compile-tmp/hal7502.imp"
2119 @ 21322:                  PUSH   I
2120 @ 21325:                  PUSHI  #0x00000001
2121 @ 21330:                  PUSH   I
2122 @ 21333:                  LSH   
2123 @ 21334:                  ASSVAL

   298      FREE = FREE!I %IF TEMPS&I # 0
2124 @ 21335:                  LINE   298 "regression-compile-tmp/hal7502.imp"
2125 @ 21373:                  PUSH   TEMPS
2126 @ 21376:                  PUSH   I
2127 @ 21379:                  AND   
2128 @ 21380:                  PUSHI  #0x00000000
2129 @ 21385:                  JUMPIF = L_0007
2130 @ 21389:                  PUSH   FREE
2131 @ 21392:                  PUSH   FREE
2132 @ 21395:                  PUSH   I
2133 @ 21398:                  OR    
2134 @ 21399:                  ASSVAL
2135 @ 21400:                  LOCATE L_0007

   299      %FINISH
2136 @ 21403:                  LINE   299 "regression-compile-tmp/hal7502.imp"
2137 @ 21441:                  LOCATE L_0003

   300  %END
   301  
2138 @ 21444:                  LINE   300 "regression-compile-tmp/hal7502.imp"
2139 @ 21482:               END    _lev0id0_ASSEMBLE_RELEASE {lev=3 --> 2}

   302  %INTEGERFN TREG
2140 @ 21483:               LINE   302 "regression-compile-tmp/hal7502.imp"
2141 @ 21521:               DEF    TREG (_lev0id0_ASSEMBLE_TREG) p1=V_00f2 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
2142 @ 21537:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2143 @ 21538:                  FINISH ) {lev=3}

   303  %INTEGER I,J
2144 @ 21539:                  LINE   303 "regression-compile-tmp/hal7502.imp"
2145 @ 21577:                  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
2146 @ 21590:                  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

   304      %IF DREG >= 0 %AND DUSE = 0 %START
2147 @ 21603:                  LINE   304 "regression-compile-tmp/hal7502.imp"
2148 @ 21641:                  PUSH   DREG
2149 @ 21644:                  PUSHI  #0x00000000
2150 @ 21649:                  JUMPIF < L_0004
2151 @ 21653:                  PUSH   DUSE
2152 @ 21656:                  PUSHI  #0x00000000
2153 @ 21661:                  JUMPIF # L_0004

   305      DUSE = 1
2154 @ 21665:                  LINE   305 "regression-compile-tmp/hal7502.imp"
2155 @ 21703:                  PUSH   DUSE
2156 @ 21706:                  PUSHI  #0x00000001
2157 @ 21711:                  ASSVAL

   306      %RESULT = DREG
2158 @ 21712:                  LINE   306 "regression-compile-tmp/hal7502.imp"
2159 @ 21750:                  PUSH   DREG
2160 @ 21753:                  RESULT

   307      %FINISH
2161 @ 21754:                  LINE   307 "regression-compile-tmp/hal7502.imp"
2162 @ 21792:                  LOCATE L_0004

   308      J = 1
2163 @ 21795:                  LINE   308 "regression-compile-tmp/hal7502.imp"
2164 @ 21833:                  PUSH   J
2165 @ 21836:                  PUSHI  #0x00000001
2166 @ 21841:                  ASSVAL

   309      %CYCLE I = 0,1,15
2167 @ 21842:                  LINE   309 "regression-compile-tmp/hal7502.imp"
2168 @ 21880:                  PUSH   I
2169 @ 21883:                  PUSHI  #0x00000001
2170 @ 21888:                  PUSHI  #0x0000000f
2171 @ 21893:                  PUSHI  #0x00000000
2172 @ 21898:                  FOR    L_0003

   310      ->OK %IF FREE&J # 0 %AND I # DREG
2173 @ 21901:                  LINE   310 "regression-compile-tmp/hal7502.imp"
2174 @ 21939:                  PUSH   FREE
2175 @ 21942:                  PUSH   J
2176 @ 21945:                  AND   
2177 @ 21946:                  PUSHI  #0x00000000
2178 @ 21951:                  JUMPIF = L_0007
2179 @ 21955:                  PUSH   I
2180 @ 21958:                  PUSH   DREG
2181 @ 21961:                  JUMPIF = L_0007
2182 @ 21965:                  JUMP   L_00f5
2183 @ 21968:                  LOCATE L_0007

   311      J = J<<1
2184 @ 21971:                  LINE   311 "regression-compile-tmp/hal7502.imp"
2185 @ 22009:                  PUSH   J
2186 @ 22012:                  PUSH   J
2187 @ 22015:                  PUSHI  #0x00000001
2188 @ 22020:                  LSH   
2189 @ 22021:                  ASSVAL

   312      %REPEAT
2190 @ 22022:                  LINE   312 "regression-compile-tmp/hal7502.imp"
2191 @ 22060:                  REPEAT L_0003
2192 @ 22063:                  LOCATE L_0004

   313      FAULT('R')
2193 @ 22066:                  LINE   313 "regression-compile-tmp/hal7502.imp"
2194 @ 22104:                  PUSH   FAULT
2195 @ 22107:                  PUSHI  #0x00000052
2196 @ 22112:                  ASSPAR
2197 @ 22113:                  CALL  

   314  OK: FREE = FREE-J
2198 @ 22114:                  LINE   314 "regression-compile-tmp/hal7502.imp"
2199 @ 22152:                  LABEL  L_00f5
2200 @ 22155:                  LINE   314 "regression-compile-tmp/hal7502.imp"
2201 @ 22193:                  PUSH   FREE
2202 @ 22196:                  PUSH   FREE
2203 @ 22199:                  PUSH   J
2204 @ 22202:                  SUB   
2205 @ 22203:                  ASSVAL

   315      %RESULT = I
2206 @ 22204:                  LINE   315 "regression-compile-tmp/hal7502.imp"
2207 @ 22242:                  PUSH   I
2208 @ 22245:                  RESULT

   316  %END
   317  
2209 @ 22246:                  LINE   316 "regression-compile-tmp/hal7502.imp"
2210 @ 22284:               END    _lev0id0_ASSEMBLE_TREG {lev=3 --> 2}

   318  %ROUTINE LOAD CONST(%INTEGER R)
2211 @ 22285:               LINE   318 "regression-compile-tmp/hal7502.imp"
2212 @ 22323:               DEF    LOADCONST (_lev0id0_ASSEMBLE_LOADCONST) p1=V_00f3 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
2213 @ 22344:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2214 @ 22345:                     DEF    R 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
2215 @ 22358:                  FINISH ) {lev=3}

   319  %INTEGER I,J
2216 @ 22359:                  LINE   319 "regression-compile-tmp/hal7502.imp"
2217 @ 22397:                  DEF    I 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
2218 @ 22410:                  DEF    J 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

   320      I = LOADI+R<<8
2219 @ 22423:                  LINE   320 "regression-compile-tmp/hal7502.imp"
2220 @ 22461:                  PUSH   I
2221 @ 22464:                  PUSH   LOADI
2222 @ 22467:                  PUSH   R
2223 @ 22470:                  PUSHI  #0x00000008
2224 @ 22475:                  LSH   
2225 @ 22476:                  ADD   
2226 @ 22477:                  ASSVAL

   321      %IF VAL&(\255) = 0 %AND TYPE&UMASK = 0 %START
2227 @ 22478:                  LINE   321 "regression-compile-tmp/hal7502.imp"
2228 @ 22516:                  PUSH   VAL
2229 @ 22519:                  PUSHI  #0x000000ff
2230 @ 22524:                  NOT   
2231 @ 22525:                  AND   
2232 @ 22526:                  PUSHI  #0x00000000
2233 @ 22531:                  JUMPIF # L_0004
2234 @ 22535:                  PUSH   TYPE
2235 @ 22538:                  PUSH   UMASK
2236 @ 22541:                  AND   
2237 @ 22542:                  PUSHI  #0x00000000
2238 @ 22547:                  JUMPIF # L_0004

   322      PLANT INST(I+VAL)
2239 @ 22551:                  LINE   322 "regression-compile-tmp/hal7502.imp"
2240 @ 22589:                  PUSH   PLANTINST
2241 @ 22592:                  PUSH   I
2242 @ 22595:                  PUSH   VAL
2243 @ 22598:                  ADD   
2244 @ 22599:                  ASSPAR
2245 @ 22600:                  CALL  

   323      %finish %ELSE %IF \VAL&(\255) = 0 %AND TYPE&UMASK = 0 %START
2246 @ 22601:                  LINE   323 "regression-compile-tmp/hal7502.imp"
2247 @ 22639:                  GOTO   L_0003
2248 @ 22642:                  LOCATE L_0004
2249 @ 22645:                  PUSH   VAL
2250 @ 22648:                  NOT   
2251 @ 22649:                  PUSHI  #0x000000ff
2252 @ 22654:                  NOT   
2253 @ 22655:                  AND   
2254 @ 22656:                  PUSHI  #0x00000000
2255 @ 22661:                  JUMPIF # L_0004
2256 @ 22665:                  PUSH   TYPE
2257 @ 22668:                  PUSH   UMASK
2258 @ 22671:                  AND   
2259 @ 22672:                  PUSHI  #0x00000000
2260 @ 22677:                  JUMPIF # L_0004

   324      PLANT INST(I+(\VAL))
2261 @ 22681:                  LINE   324 "regression-compile-tmp/hal7502.imp"
2262 @ 22719:                  PUSH   PLANTINST
2263 @ 22722:                  PUSH   I
2264 @ 22725:                  PUSH   VAL
2265 @ 22728:                  NOT   
2266 @ 22729:                  ADD   
2267 @ 22730:                  ASSPAR
2268 @ 22731:                  CALL  

   325      PLANT INST(COMP+R<<4+R)
2269 @ 22732:                  LINE   325 "regression-compile-tmp/hal7502.imp"
2270 @ 22770:                  PUSH   PLANTINST
2271 @ 22773:                  PUSH   COMP
2272 @ 22776:                  PUSH   R
2273 @ 22779:                  PUSHI  #0x00000004
2274 @ 22784:                  LSH   
2275 @ 22785:                  ADD   
2276 @ 22786:                  PUSH   R
2277 @ 22789:                  ADD   
2278 @ 22790:                  ASSPAR
2279 @ 22791:                  CALL  

   326      CREG = R
2280 @ 22792:                  LINE   326 "regression-compile-tmp/hal7502.imp"
2281 @ 22830:                  PUSH   CREG
2282 @ 22833:                  PUSH   R
2283 @ 22836:                  ASSVAL

   327      %finish %ELSE %START
   328  !       PLANT INST(LOADC+R<<8)
   329  !       PLANT INST(SKIP)
   330  !       PLANT VAL
2284 @ 22837:                  LINE   327 "regression-compile-tmp/hal7502.imp"
2285 @ 22875:                  GOTO   L_0003
2286 @ 22878:                  LOCATE L_0004

   331      J = VAL>>8&255
2287 @ 22881:                  LINE   331 "regression-compile-tmp/hal7502.imp"
2288 @ 22919:                  PUSH   J
2289 @ 22922:                  PUSH   VAL
2290 @ 22925:                  PUSHI  #0x00000008
2291 @ 22930:                  RSH   
2292 @ 22931:                  PUSHI  #0x000000ff
2293 @ 22936:                  AND   
2294 @ 22937:                  ASSVAL

   332      J = J+1 %IF VAL&128 # 0
2295 @ 22938:                  LINE   332 "regression-compile-tmp/hal7502.imp"
2296 @ 22976:                  PUSH   VAL
2297 @ 22979:                  PUSHI  #0x00000080
2298 @ 22984:                  AND   
2299 @ 22985:                  PUSHI  #0x00000000
2300 @ 22990:                  JUMPIF = L_0007
2301 @ 22994:                  PUSH   J
2302 @ 22997:                  PUSH   J
2303 @ 23000:                  PUSHI  #0x00000001
2304 @ 23005:                  ADD   
2305 @ 23006:                  ASSVAL
2306 @ 23007:                  LOCATE L_0007

   333      PLANT INST(I+J)
2307 @ 23010:                  LINE   333 "regression-compile-tmp/hal7502.imp"
2308 @ 23048:                  PUSH   PLANTINST
2309 @ 23051:                  PUSH   I
2310 @ 23054:                  PUSH   J
2311 @ 23057:                  ADD   
2312 @ 23058:                  ASSPAR
2313 @ 23059:                  CALL  

   334      PLANT INST(ROT+R<<8+7<<4+R)
2314 @ 23060:                  LINE   334 "regression-compile-tmp/hal7502.imp"
2315 @ 23098:                  PUSH   PLANTINST
2316 @ 23101:                  PUSH   ROT
2317 @ 23104:                  PUSH   R
2318 @ 23107:                  PUSHI  #0x00000008
2319 @ 23112:                  LSH   
2320 @ 23113:                  ADD   
2321 @ 23114:                  PUSHI  #0x00000007
2322 @ 23119:                  PUSHI  #0x00000004
2323 @ 23124:                  LSH   
2324 @ 23125:                  ADD   
2325 @ 23126:                  PUSH   R
2326 @ 23129:                  ADD   
2327 @ 23130:                  ASSPAR
2328 @ 23131:                  CALL  

   335      PLANT INST(ADDI+R<<8+VAL&255) %IF VAL&255 # 0
2329 @ 23132:                  LINE   335 "regression-compile-tmp/hal7502.imp"
2330 @ 23170:                  PUSH   VAL
2331 @ 23173:                  PUSHI  #0x000000ff
2332 @ 23178:                  AND   
2333 @ 23179:                  PUSHI  #0x00000000
2334 @ 23184:                  JUMPIF = L_0007
2335 @ 23188:                  PUSH   PLANTINST
2336 @ 23191:                  PUSH   ADDI
2337 @ 23194:                  PUSH   R
2338 @ 23197:                  PUSHI  #0x00000008
2339 @ 23202:                  LSH   
2340 @ 23203:                  ADD   
2341 @ 23204:                  PUSH   VAL
2342 @ 23207:                  PUSHI  #0x000000ff
2343 @ 23212:                  AND   
2344 @ 23213:                  ADD   
2345 @ 23214:                  ASSPAR
2346 @ 23215:                  CALL  
2347 @ 23216:                  LOCATE L_0007

   336      %FINISH
2348 @ 23219:                  LINE   336 "regression-compile-tmp/hal7502.imp"
2349 @ 23257:                  LOCATE L_0003

   337  %END
   338  
2350 @ 23260:                  LINE   337 "regression-compile-tmp/hal7502.imp"
2351 @ 23298:               END    _lev0id0_ASSEMBLE_LOADCONST {lev=3 --> 2}

   339  %ROUTINE LOAD REG(%INTEGER R)
2352 @ 23299:               LINE   339 "regression-compile-tmp/hal7502.imp"
2353 @ 23337:               DEF    LOADREG (_lev0id0_ASSEMBLE_LOADREG) p1=V_00f4 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
2354 @ 23356:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2355 @ 23357:                     DEF    R 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
2356 @ 23370:                  FINISH ) {lev=3}

   340  %INTEGER OP
2357 @ 23371:                  LINE   340 "regression-compile-tmp/hal7502.imp"
2358 @ 23409:                  DEF    OP 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

   341      %IF ATYPE = TYPE %AND AVAL = VAL %START
2359 @ 23423:                  LINE   341 "regression-compile-tmp/hal7502.imp"
2360 @ 23461:                  PUSH   ATYPE
2361 @ 23464:                  PUSH   TYPE
2362 @ 23467:                  JUMPIF # L_0004
2363 @ 23471:                  PUSH   AVAL
2364 @ 23474:                  PUSH   VAL
2365 @ 23477:                  JUMPIF # L_0004

   342      TYPE = REG;  VAL = ACC
2366 @ 23481:                  LINE   342 "regression-compile-tmp/hal7502.imp"
2367 @ 23519:                  PUSH   TYPE
2368 @ 23522:                  PUSH   REG
2369 @ 23525:                  ASSVAL
2370 @ 23526:                  LINE   342 "regression-compile-tmp/hal7502.imp"
2371 @ 23564:                  PUSH   VAL
2372 @ 23567:                  PUSH   ACC
2373 @ 23570:                  ASSVAL

   343      %RETURN %IF R = ACC
2374 @ 23571:                  LINE   343 "regression-compile-tmp/hal7502.imp"
2375 @ 23609:                  PUSH   R
2376 @ 23612:                  PUSH   ACC
2377 @ 23615:                  JUMPIF # L_0007
2378 @ 23619:                  RETURN
2379 @ 23620:                  LOCATE L_0007

   344      %FINISH
2380 @ 23623:                  LINE   344 "regression-compile-tmp/hal7502.imp"
2381 @ 23661:                  LOCATE L_0004

   345      ATYPE = TYPE %AND AVAL = VAL %IF R = ACC
2382 @ 23664:                  LINE   345 "regression-compile-tmp/hal7502.imp"
2383 @ 23702:                  PUSH   R
2384 @ 23705:                  PUSH   ACC
2385 @ 23708:                  JUMPIF # L_0004
2386 @ 23712:                  PUSH   ATYPE
2387 @ 23715:                  PUSH   TYPE
2388 @ 23718:                  ASSVAL
2389 @ 23719:                  PUSH   AVAL
2390 @ 23722:                  PUSH   VAL
2391 @ 23725:                  ASSVAL
2392 @ 23726:                  LOCATE L_0004

   346      ATYPE = -1 %IF (ATYPE=REG %AND AVAL=R)
2393 @ 23729:                  LINE   346 "regression-compile-tmp/hal7502.imp"
2394 @ 23767:                  PUSH   ATYPE
2395 @ 23770:                  PUSH   REG
2396 @ 23773:                  JUMPIF # L_0004
2397 @ 23777:                  PUSH   AVAL
2398 @ 23780:                  PUSH   R
2399 @ 23783:                  JUMPIF # L_0004
2400 @ 23787:                  PUSH   ATYPE
2401 @ 23790:                  PUSHI  #0x00000001
2402 @ 23795:                  NEGATE
2403 @ 23796:                  ASSVAL
2404 @ 23797:                  LOCATE L_0004

   347      ATYPE = -1 %IF ATYPE&XMASK # 0 %AND ATYPE&15 = R
2405 @ 23800:                  LINE   347 "regression-compile-tmp/hal7502.imp"
2406 @ 23838:                  PUSH   ATYPE
2407 @ 23841:                  PUSH   XMASK
2408 @ 23844:                  AND   
2409 @ 23845:                  PUSHI  #0x00000000
2410 @ 23850:                  JUMPIF = L_0004
2411 @ 23854:                  PUSH   ATYPE
2412 @ 23857:                  PUSHI  #0x0000000f
2413 @ 23862:                  AND   
2414 @ 23863:                  PUSH   R
2415 @ 23866:                  JUMPIF # L_0004
2416 @ 23870:                  PUSH   ATYPE
2417 @ 23873:                  PUSHI  #0x00000001
2418 @ 23878:                  NEGATE
2419 @ 23879:                  ASSVAL
2420 @ 23880:                  LOCATE L_0004

   348      %IF TYPE = REG %START
2421 @ 23883:                  LINE   348 "regression-compile-tmp/hal7502.imp"
2422 @ 23921:                  PUSH   TYPE
2423 @ 23924:                  PUSH   REG
2424 @ 23927:                  JUMPIF # L_0004

   349      PLANT INST(COPY+R<<4+VAL)
2425 @ 23931:                  LINE   349 "regression-compile-tmp/hal7502.imp"
2426 @ 23969:                  PUSH   PLANTINST
2427 @ 23972:                  PUSH   COPY
2428 @ 23975:                  PUSH   R
2429 @ 23978:                  PUSHI  #0x00000004
2430 @ 23983:                  LSH   
2431 @ 23984:                  ADD   
2432 @ 23985:                  PUSH   VAL
2433 @ 23988:                  ADD   
2434 @ 23989:                  ASSPAR
2435 @ 23990:                  CALL  

   350      CREG = R
2436 @ 23991:                  LINE   350 "regression-compile-tmp/hal7502.imp"
2437 @ 24029:                  PUSH   CREG
2438 @ 24032:                  PUSH   R
2439 @ 24035:                  ASSVAL

   351      %finish %ELSE %IF TYPE&XMASK = 0 %START
2440 @ 24036:                  LINE   351 "regression-compile-tmp/hal7502.imp"
2441 @ 24074:                  GOTO   L_0003
2442 @ 24077:                  LOCATE L_0004
2443 @ 24080:                  PUSH   TYPE
2444 @ 24083:                  PUSH   XMASK
2445 @ 24086:                  AND   
2446 @ 24087:                  PUSHI  #0x00000000
2447 @ 24092:                  JUMPIF # L_0004

   352      LOAD CONST(R)
2448 @ 24096:                  LINE   352 "regression-compile-tmp/hal7502.imp"
2449 @ 24134:                  PUSH   LOADCONST
2450 @ 24137:                  PUSH   R
2451 @ 24140:                  ASSPAR
2452 @ 24141:                  CALL  

   353         PLANT INST(LOAD+R<<8+R<<4) %IF TYPE&MEMMASK # 0
2453 @ 24142:                  LINE   353 "regression-compile-tmp/hal7502.imp"
2454 @ 24180:                  PUSH   TYPE
2455 @ 24183:                  PUSH   MEMMASK
2456 @ 24186:                  AND   
2457 @ 24187:                  PUSHI  #0x00000000
2458 @ 24192:                  JUMPIF = L_0007
2459 @ 24196:                  PUSH   PLANTINST
2460 @ 24199:                  PUSH   LOAD
2461 @ 24202:                  PUSH   R
2462 @ 24205:                  PUSHI  #0x00000008
2463 @ 24210:                  LSH   
2464 @ 24211:                  ADD   
2465 @ 24212:                  PUSH   R
2466 @ 24215:                  PUSHI  #0x00000004
2467 @ 24220:                  LSH   
2468 @ 24221:                  ADD   
2469 @ 24222:                  ASSPAR
2470 @ 24223:                  CALL  
2471 @ 24224:                  LOCATE L_0007

   354      %finish %ELSE %START
2472 @ 24227:                  LINE   354 "regression-compile-tmp/hal7502.imp"
2473 @ 24265:                  GOTO   L_0003
2474 @ 24268:                  LOCATE L_0004

   355         %IF VAL&(\3) # 0 %OR TYPE&MEMMASK = 0 %START
2475 @ 24271:                  LINE   355 "regression-compile-tmp/hal7502.imp"
2476 @ 24309:                  PUSH   VAL
2477 @ 24312:                  PUSHI  #0x00000003
2478 @ 24317:                  NOT   
2479 @ 24318:                  AND   
2480 @ 24319:                  PUSHI  #0x00000000
2481 @ 24324:                  JUMPIF # L_0008
2482 @ 24328:                  PUSH   TYPE
2483 @ 24331:                  PUSH   MEMMASK
2484 @ 24334:                  AND   
2485 @ 24335:                  PUSHI  #0x00000000
2486 @ 24340:                  JUMPIF # L_0007
2487 @ 24344:                  LOCATE L_0008

   356            %IF TYPE&15 # R %START
2488 @ 24347:                  LINE   356 "regression-compile-tmp/hal7502.imp"
2489 @ 24385:                  PUSH   TYPE
2490 @ 24388:                  PUSHI  #0x0000000f
2491 @ 24393:                  AND   
2492 @ 24394:                  PUSH   R
2493 @ 24397:                  JUMPIF = L_000a

   357               %IF |VAL| <= 127 %START
2494 @ 24401:                  LINE   357 "regression-compile-tmp/hal7502.imp"
2495 @ 24439:                  PUSH   VAL
2496 @ 24442:                  MOD   
2497 @ 24443:                  PUSHI  #0x0000007f
2498 @ 24448:                  JUMPIF > L_000d

   358                  PLANT INST(COPY+R<<4+TYPE&15)
2499 @ 24452:                  LINE   358 "regression-compile-tmp/hal7502.imp"
2500 @ 24490:                  PUSH   PLANTINST
2501 @ 24493:                  PUSH   COPY
2502 @ 24496:                  PUSH   R
2503 @ 24499:                  PUSHI  #0x00000004
2504 @ 24504:                  LSH   
2505 @ 24505:                  ADD   
2506 @ 24506:                  PUSH   TYPE
2507 @ 24509:                  PUSHI  #0x0000000f
2508 @ 24514:                  AND   
2509 @ 24515:                  ADD   
2510 @ 24516:                  ASSPAR
2511 @ 24517:                  CALL  

   359                  PLANT INST(ADDI+R<<8+VAL&255) %IF VAL # 0
2512 @ 24518:                  LINE   359 "regression-compile-tmp/hal7502.imp"
2513 @ 24556:                  PUSH   VAL
2514 @ 24559:                  PUSHI  #0x00000000
2515 @ 24564:                  JUMPIF = L_0010
2516 @ 24568:                  PUSH   PLANTINST
2517 @ 24571:                  PUSH   ADDI
2518 @ 24574:                  PUSH   R
2519 @ 24577:                  PUSHI  #0x00000008
2520 @ 24582:                  LSH   
2521 @ 24583:                  ADD   
2522 @ 24584:                  PUSH   VAL
2523 @ 24587:                  PUSHI  #0x000000ff
2524 @ 24592:                  AND   
2525 @ 24593:                  ADD   
2526 @ 24594:                  ASSPAR
2527 @ 24595:                  CALL  
2528 @ 24596:                  LOCATE L_0010

   360               %finish %ELSE %START
2529 @ 24599:                  LINE   360 "regression-compile-tmp/hal7502.imp"
2530 @ 24637:                  GOTO   L_000c
2531 @ 24640:                  LOCATE L_000d

   361                  LOAD CONST(R)
2532 @ 24643:                  LINE   361 "regression-compile-tmp/hal7502.imp"
2533 @ 24681:                  PUSH   LOADCONST
2534 @ 24684:                  PUSH   R
2535 @ 24687:                  ASSPAR
2536 @ 24688:                  CALL  

   362                  PLANT INST(ADD+R<<4+TYPE&15)
2537 @ 24689:                  LINE   362 "regression-compile-tmp/hal7502.imp"
2538 @ 24727:                  PUSH   PLANTINST
2539 @ 24730:                  PUSH   ADD
2540 @ 24733:                  PUSH   R
2541 @ 24736:                  PUSHI  #0x00000004
2542 @ 24741:                  LSH   
2543 @ 24742:                  ADD   
2544 @ 24743:                  PUSH   TYPE
2545 @ 24746:                  PUSHI  #0x0000000f
2546 @ 24751:                  AND   
2547 @ 24752:                  ADD   
2548 @ 24753:                  ASSPAR
2549 @ 24754:                  CALL  

   363               %FINISH
2550 @ 24755:                  LINE   363 "regression-compile-tmp/hal7502.imp"
2551 @ 24793:                  LOCATE L_000c

   364               CREG = R
2552 @ 24796:                  LINE   364 "regression-compile-tmp/hal7502.imp"
2553 @ 24834:                  PUSH   CREG
2554 @ 24837:                  PUSH   R
2555 @ 24840:                  ASSVAL

   365            %finish %ELSE %START
2556 @ 24841:                  LINE   365 "regression-compile-tmp/hal7502.imp"
2557 @ 24879:                  GOTO   L_0009
2558 @ 24882:                  LOCATE L_000a

   366               %IF |VAL| <= 127 %START
2559 @ 24885:                  LINE   366 "regression-compile-tmp/hal7502.imp"
2560 @ 24923:                  PUSH   VAL
2561 @ 24926:                  MOD   
2562 @ 24927:                  PUSHI  #0x0000007f
2563 @ 24932:                  JUMPIF > L_000d

   367                  %IF VAL # 0 %START
2564 @ 24936:                  LINE   367 "regression-compile-tmp/hal7502.imp"
2565 @ 24974:                  PUSH   VAL
2566 @ 24977:                  PUSHI  #0x00000000
2567 @ 24982:                  JUMPIF = L_0010

   368                     PLANT INST(ADDI+R<<8+VAL&255)
2568 @ 24986:                  LINE   368 "regression-compile-tmp/hal7502.imp"
2569 @ 25024:                  PUSH   PLANTINST
2570 @ 25027:                  PUSH   ADDI
2571 @ 25030:                  PUSH   R
2572 @ 25033:                  PUSHI  #0x00000008
2573 @ 25038:                  LSH   
2574 @ 25039:                  ADD   
2575 @ 25040:                  PUSH   VAL
2576 @ 25043:                  PUSHI  #0x000000ff
2577 @ 25048:                  AND   
2578 @ 25049:                  ADD   
2579 @ 25050:                  ASSPAR
2580 @ 25051:                  CALL  

   369                     CREG = R
2581 @ 25052:                  LINE   369 "regression-compile-tmp/hal7502.imp"
2582 @ 25090:                  PUSH   CREG
2583 @ 25093:                  PUSH   R
2584 @ 25096:                  ASSVAL

   370                  %FINISH
2585 @ 25097:                  LINE   370 "regression-compile-tmp/hal7502.imp"
2586 @ 25135:                  LOCATE L_0010

   371                  %finish %ELSE %START
2587 @ 25138:                  LINE   371 "regression-compile-tmp/hal7502.imp"
2588 @ 25176:                  GOTO   L_000c
2589 @ 25179:                  LOCATE L_000d

   372                  OP = TREG
2590 @ 25182:                  LINE   372 "regression-compile-tmp/hal7502.imp"
2591 @ 25220:                  PUSH   OP
2592 @ 25223:                  PUSH   TREG
2593 @ 25226:                  CALL  
2594 @ 25227:                  ASSVAL

   373                  LOAD CONST(OP)
2595 @ 25228:                  LINE   373 "regression-compile-tmp/hal7502.imp"
2596 @ 25266:                  PUSH   LOADCONST
2597 @ 25269:                  PUSH   OP
2598 @ 25272:                  ASSPAR
2599 @ 25273:                  CALL  

   374                  TYPE = REG;  VAL = OP
2600 @ 25274:                  LINE   374 "regression-compile-tmp/hal7502.imp"
2601 @ 25312:                  PUSH   TYPE
2602 @ 25315:                  PUSH   REG
2603 @ 25318:                  ASSVAL
2604 @ 25319:                  LINE   374 "regression-compile-tmp/hal7502.imp"
2605 @ 25357:                  PUSH   VAL
2606 @ 25360:                  PUSH   OP
2607 @ 25363:                  ASSVAL

   375                  RELEASE
2608 @ 25364:                  LINE   375 "regression-compile-tmp/hal7502.imp"
2609 @ 25402:                  PUSH   RELEASE
2610 @ 25405:                  CALL  

   376                  PLANT INST(ADD+R<<4+OP)
2611 @ 25406:                  LINE   376 "regression-compile-tmp/hal7502.imp"
2612 @ 25444:                  PUSH   PLANTINST
2613 @ 25447:                  PUSH   ADD
2614 @ 25450:                  PUSH   R
2615 @ 25453:                  PUSHI  #0x00000004
2616 @ 25458:                  LSH   
2617 @ 25459:                  ADD   
2618 @ 25460:                  PUSH   OP
2619 @ 25463:                  ADD   
2620 @ 25464:                  ASSPAR
2621 @ 25465:                  CALL  

   377                  CREG = R
2622 @ 25466:                  LINE   377 "regression-compile-tmp/hal7502.imp"
2623 @ 25504:                  PUSH   CREG
2624 @ 25507:                  PUSH   R
2625 @ 25510:                  ASSVAL

   378                  %FINISH
2626 @ 25511:                  LINE   378 "regression-compile-tmp/hal7502.imp"
2627 @ 25549:                  LOCATE L_000c

   379                  %FINISH
2628 @ 25552:                  LINE   379 "regression-compile-tmp/hal7502.imp"
2629 @ 25590:                  LOCATE L_0009

   380                  TYPE = TYPE&MEMMASK+XMASK+R;  VAL = 0
2630 @ 25593:                  LINE   380 "regression-compile-tmp/hal7502.imp"
2631 @ 25631:                  PUSH   TYPE
2632 @ 25634:                  PUSH   TYPE
2633 @ 25637:                  PUSH   MEMMASK
2634 @ 25640:                  AND   
2635 @ 25641:                  PUSH   XMASK
2636 @ 25644:                  ADD   
2637 @ 25645:                  PUSH   R
2638 @ 25648:                  ADD   
2639 @ 25649:                  ASSVAL
2640 @ 25650:                  LINE   380 "regression-compile-tmp/hal7502.imp"
2641 @ 25688:                  PUSH   VAL
2642 @ 25691:                  PUSHI  #0x00000000
2643 @ 25696:                  ASSVAL

   381                  %FINISH
2644 @ 25697:                  LINE   381 "regression-compile-tmp/hal7502.imp"
2645 @ 25735:                  LOCATE L_0007

   382      %IF TYPE&MEMMASK # 0 %START
2646 @ 25738:                  LINE   382 "regression-compile-tmp/hal7502.imp"
2647 @ 25776:                  PUSH   TYPE
2648 @ 25779:                  PUSH   MEMMASK
2649 @ 25782:                  AND   
2650 @ 25783:                  PUSHI  #0x00000000
2651 @ 25788:                  JUMPIF = L_0007

   383      PLANT INST(LOAD+R<<8+(TYPE&15)<<4+VAL)
2652 @ 25792:                  LINE   383 "regression-compile-tmp/hal7502.imp"
2653 @ 25830:                  PUSH   PLANTINST
2654 @ 25833:                  PUSH   LOAD
2655 @ 25836:                  PUSH   R
2656 @ 25839:                  PUSHI  #0x00000008
2657 @ 25844:                  LSH   
2658 @ 25845:                  ADD   
2659 @ 25846:                  PUSH   TYPE
2660 @ 25849:                  PUSHI  #0x0000000f
2661 @ 25854:                  AND   
2662 @ 25855:                  PUSHI  #0x00000004
2663 @ 25860:                  LSH   
2664 @ 25861:                  ADD   
2665 @ 25862:                  PUSH   VAL
2666 @ 25865:                  ADD   
2667 @ 25866:                  ASSPAR
2668 @ 25867:                  CALL  

   384      CREG = -1
   385  !   %FINISH  -- commenting out this line allows the program to compile
2669 @ 25868:                  LINE   384 "regression-compile-tmp/hal7502.imp"
2670 @ 25906:                  PUSH   CREG
2671 @ 25909:                  PUSHI  #0x00000001
2672 @ 25914:                  NEGATE
2673 @ 25915:                  ASSVAL

   386      %finish %ELSE %START
2674 @ 25916:                  LINE   386 "regression-compile-tmp/hal7502.imp"
2675 @ 25954:                  GOTO   L_0006
2676 @ 25957:                  LOCATE L_0007

   387      LOAD CONST(R)
2677 @ 25960:                  LINE   387 "regression-compile-tmp/hal7502.imp"
2678 @ 25998:                  PUSH   LOADCONST
2679 @ 26001:                  PUSH   R
2680 @ 26004:                  ASSPAR
2681 @ 26005:                  CALL  

   388      PLANT INST(LOAD+R<<8+R<<4)
2682 @ 26006:                  LINE   388 "regression-compile-tmp/hal7502.imp"
2683 @ 26044:                  PUSH   PLANTINST
2684 @ 26047:                  PUSH   LOAD
2685 @ 26050:                  PUSH   R
2686 @ 26053:                  PUSHI  #0x00000008
2687 @ 26058:                  LSH   
2688 @ 26059:                  ADD   
2689 @ 26060:                  PUSH   R
2690 @ 26063:                  PUSHI  #0x00000004
2691 @ 26068:                  LSH   
2692 @ 26069:                  ADD   
2693 @ 26070:                  ASSPAR
2694 @ 26071:                  CALL  

   389      %FINISH
2695 @ 26072:                  LINE   389 "regression-compile-tmp/hal7502.imp"
2696 @ 26110:                  LOCATE L_0006

   390      %FINISH
2697 @ 26113:                  LINE   390 "regression-compile-tmp/hal7502.imp"
2698 @ 26151:                  LOCATE L_0003

   391      TYPE = REG;  VAL = R
2699 @ 26154:                  LINE   391 "regression-compile-tmp/hal7502.imp"
2700 @ 26192:                  PUSH   TYPE
2701 @ 26195:                  PUSH   REG
2702 @ 26198:                  ASSVAL
2703 @ 26199:                  LINE   391 "regression-compile-tmp/hal7502.imp"
2704 @ 26237:                  PUSH   VAL
2705 @ 26240:                  PUSH   R
2706 @ 26243:                  ASSVAL

   392  %END
   393  
2707 @ 26244:                  LINE   392 "regression-compile-tmp/hal7502.imp"
2708 @ 26282:               END    _lev0id0_ASSEMBLE_LOADREG {lev=3 --> 2}

   394  %ROUTINE LOAD TEMP
2709 @ 26283:               LINE   394 "regression-compile-tmp/hal7502.imp"
2710 @ 26321:               DEF    LOADTEMP (_lev0id0_ASSEMBLE_LOADTEMP) p1=V_00f5 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
2711 @ 26341:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2712 @ 26342:                  FINISH ) {lev=3}

   395      RELEASE
2713 @ 26343:                  LINE   395 "regression-compile-tmp/hal7502.imp"
2714 @ 26381:                  PUSH   RELEASE
2715 @ 26384:                  CALL  

   396      LOAD REG(TREG)
2716 @ 26385:                  LINE   396 "regression-compile-tmp/hal7502.imp"
2717 @ 26423:                  PUSH   LOADREG
2718 @ 26426:                  PUSH   TREG
2719 @ 26429:                  CALL  
2720 @ 26430:                  ASSPAR
2721 @ 26431:                  CALL  

   397  %END
   398  
2722 @ 26432:                  LINE   397 "regression-compile-tmp/hal7502.imp"
2723 @ 26470:               END    _lev0id0_ASSEMBLE_LOADTEMP {lev=3 --> 2}

   399  %ROUTINE SWOP
2724 @ 26471:               LINE   399 "regression-compile-tmp/hal7502.imp"
2725 @ 26509:               DEF    SWOP (_lev0id0_ASSEMBLE_SWOP) p1=V_00f6 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
2726 @ 26525:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2727 @ 26526:                  FINISH ) {lev=3}

   400  %INTEGER K
2728 @ 26527:                  LINE   400 "regression-compile-tmp/hal7502.imp"
2729 @ 26565:                  DEF    K 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

   401      K = TYPE1;  TYPE1 = TYPE;  TYPE = K
2730 @ 26578:                  LINE   401 "regression-compile-tmp/hal7502.imp"
2731 @ 26616:                  PUSH   K
2732 @ 26619:                  PUSH   TYPE1
2733 @ 26622:                  ASSVAL
2734 @ 26623:                  LINE   401 "regression-compile-tmp/hal7502.imp"
2735 @ 26661:                  PUSH   TYPE1
2736 @ 26664:                  PUSH   TYPE
2737 @ 26667:                  ASSVAL
2738 @ 26668:                  LINE   401 "regression-compile-tmp/hal7502.imp"
2739 @ 26706:                  PUSH   TYPE
2740 @ 26709:                  PUSH   K
2741 @ 26712:                  ASSVAL

   402      K = VAL1;  VAL1 = VAL;  VAL = K
2742 @ 26713:                  LINE   402 "regression-compile-tmp/hal7502.imp"
2743 @ 26751:                  PUSH   K
2744 @ 26754:                  PUSH   VAL1
2745 @ 26757:                  ASSVAL
2746 @ 26758:                  LINE   402 "regression-compile-tmp/hal7502.imp"
2747 @ 26796:                  PUSH   VAL1
2748 @ 26799:                  PUSH   VAL
2749 @ 26802:                  ASSVAL
2750 @ 26803:                  LINE   402 "regression-compile-tmp/hal7502.imp"
2751 @ 26841:                  PUSH   VAL
2752 @ 26844:                  PUSH   K
2753 @ 26847:                  ASSVAL

   403  %END
   404  
2754 @ 26848:                  LINE   403 "regression-compile-tmp/hal7502.imp"
2755 @ 26886:               END    _lev0id0_ASSEMBLE_SWOP {lev=3 --> 2}

   405      Q = QSTART
2756 @ 26887:               LINE   405 "regression-compile-tmp/hal7502.imp"
2757 @ 26925:               PUSH   Q
2758 @ 26928:               PUSH   QSTART
2759 @ 26931:               ASSVAL

   406  NEW:NQ = QSTART;  FREE = TEMPS
2760 @ 26932:               LINE   406 "regression-compile-tmp/hal7502.imp"
2761 @ 26970:               LABEL  L_00f7
2762 @ 26973:               LINE   406 "regression-compile-tmp/hal7502.imp"
2763 @ 27011:               PUSH   NQ
2764 @ 27014:               PUSH   QSTART
2765 @ 27017:               ASSVAL
2766 @ 27018:               LINE   406 "regression-compile-tmp/hal7502.imp"
2767 @ 27056:               PUSH   FREE
2768 @ 27059:               PUSH   TEMPS
2769 @ 27062:               ASSVAL

   407      TYPE = INTEGER(Q);  Q = Q+1
2770 @ 27063:               LINE   407 "regression-compile-tmp/hal7502.imp"
2771 @ 27101:               PUSH   TYPE
2772 @ 27104:               PUSH   INTEGER
2773 @ 27107:               PUSH   Q
2774 @ 27110:               ASSPAR
2775 @ 27111:               CALL  
2776 @ 27112:               ASSVAL
2777 @ 27113:               LINE   407 "regression-compile-tmp/hal7502.imp"
2778 @ 27151:               PUSH   Q
2779 @ 27154:               PUSH   Q
2780 @ 27157:               PUSHI  #0x00000001
2781 @ 27162:               ADD   
2782 @ 27163:               ASSVAL

   408      VAL = INTEGER(Q);  Q = Q+1
   409  
2783 @ 27164:               LINE   408 "regression-compile-tmp/hal7502.imp"
2784 @ 27202:               PUSH   VAL
2785 @ 27205:               PUSH   INTEGER
2786 @ 27208:               PUSH   Q
2787 @ 27211:               ASSPAR
2788 @ 27212:               CALL  
2789 @ 27213:               ASSVAL
2790 @ 27214:               LINE   408 "regression-compile-tmp/hal7502.imp"
2791 @ 27252:               PUSH   Q
2792 @ 27255:               PUSH   Q
2793 @ 27258:               PUSHI  #0x00000001
2794 @ 27263:               ADD   
2795 @ 27264:               ASSVAL

   410  GET:%CYCLE
2796 @ 27265:               LINE   410 "regression-compile-tmp/hal7502.imp"
2797 @ 27303:               LABEL  L_00f8
2798 @ 27306:               LINE   410 "regression-compile-tmp/hal7502.imp"
2799 @ 27344:               LOCATE L_0003

   411        %RETURN %IF Q = QLIM
2800 @ 27347:               LINE   411 "regression-compile-tmp/hal7502.imp"
2801 @ 27385:               PUSH   Q
2802 @ 27388:               PUSH   QLIM
2803 @ 27391:               JUMPIF # L_0007
2804 @ 27395:               RETURN
2805 @ 27396:               LOCATE L_0007

   412         K = INTEGER(Q);  Q = Q+1
2806 @ 27399:               LINE   412 "regression-compile-tmp/hal7502.imp"
2807 @ 27437:               PUSH   K
2808 @ 27440:               PUSH   INTEGER
2809 @ 27443:               PUSH   Q
2810 @ 27446:               ASSPAR
2811 @ 27447:               CALL  
2812 @ 27448:               ASSVAL
2813 @ 27449:               LINE   412 "regression-compile-tmp/hal7502.imp"
2814 @ 27487:               PUSH   Q
2815 @ 27490:               PUSH   Q
2816 @ 27493:               PUSHI  #0x00000001
2817 @ 27498:               ADD   
2818 @ 27499:               ASSVAL

   413         ->ASS(K) %IF K < 0
2819 @ 27500:               LINE   413 "regression-compile-tmp/hal7502.imp"
2820 @ 27538:               PUSH   K
2821 @ 27541:               PUSHI  #0x00000000
2822 @ 27546:               JUMPIF >= L_0007
2823 @ 27550:               PUSH   K
2824 @ 27553:               SJUMP  236
2825 @ 27556:               LOCATE L_0007

   414         INTEGER(NQ) = TYPE1;  INTEGER(NQ+1) = VAL1
2826 @ 27559:               LINE   414 "regression-compile-tmp/hal7502.imp"
2827 @ 27597:               PUSH   INTEGER
2828 @ 27600:               PUSH   NQ
2829 @ 27603:               ASSPAR
2830 @ 27604:               CALL  
2831 @ 27605:               PUSH   TYPE1
2832 @ 27608:               ASSVAL
2833 @ 27609:               LINE   414 "regression-compile-tmp/hal7502.imp"
2834 @ 27647:               PUSH   INTEGER
2835 @ 27650:               PUSH   NQ
2836 @ 27653:               PUSHI  #0x00000001
2837 @ 27658:               ADD   
2838 @ 27659:               ASSPAR
2839 @ 27660:               CALL  
2840 @ 27661:               PUSH   VAL1
2841 @ 27664:               ASSVAL

   415         NQ = NQ+2
2842 @ 27665:               LINE   415 "regression-compile-tmp/hal7502.imp"
2843 @ 27703:               PUSH   NQ
2844 @ 27706:               PUSH   NQ
2845 @ 27709:               PUSHI  #0x00000002
2846 @ 27714:               ADD   
2847 @ 27715:               ASSVAL

   416         TYPE1 = TYPE;  VAL1 = VAL
2848 @ 27716:               LINE   416 "regression-compile-tmp/hal7502.imp"
2849 @ 27754:               PUSH   TYPE1
2850 @ 27757:               PUSH   TYPE
2851 @ 27760:               ASSVAL
2852 @ 27761:               LINE   416 "regression-compile-tmp/hal7502.imp"
2853 @ 27799:               PUSH   VAL1
2854 @ 27802:               PUSH   VAL
2855 @ 27805:               ASSVAL

   417         TYPE = K;  VAL = INTEGER(Q);  Q = Q+1
2856 @ 27806:               LINE   417 "regression-compile-tmp/hal7502.imp"
2857 @ 27844:               PUSH   TYPE
2858 @ 27847:               PUSH   K
2859 @ 27850:               ASSVAL
2860 @ 27851:               LINE   417 "regression-compile-tmp/hal7502.imp"
2861 @ 27889:               PUSH   VAL
2862 @ 27892:               PUSH   INTEGER
2863 @ 27895:               PUSH   Q
2864 @ 27898:               ASSPAR
2865 @ 27899:               CALL  
2866 @ 27900:               ASSVAL
2867 @ 27901:               LINE   417 "regression-compile-tmp/hal7502.imp"
2868 @ 27939:               PUSH   Q
2869 @ 27942:               PUSH   Q
2870 @ 27945:               PUSHI  #0x00000001
2871 @ 27950:               ADD   
2872 @ 27951:               ASSVAL

   418      %REPEAT
   419  
2873 @ 27952:               LINE   418 "regression-compile-tmp/hal7502.imp"
2874 @ 27990:               REPEAT L_0003

   420  %PREDICATE TEMP
2875 @ 27993:               LINE   420 "regression-compile-tmp/hal7502.imp"
2876 @ 28031:               DEF    TEMP (_lev0id0_ASSEMBLE_TEMP) p1=V_00f9 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
2877 @ 28047:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
2878 @ 28048:                  FINISH ) {lev=3}

   421      %FALSE %IF TYPE1 # REG
2879 @ 28049:                  LINE   421 "regression-compile-tmp/hal7502.imp"
2880 @ 28087:                  PUSH   TYPE1
2881 @ 28090:                  PUSH   REG
2882 @ 28093:                  JUMPIF = L_0004
2883 @ 28097:                  FALSE 
2884 @ 28098:                  LOCATE L_0004

   422      %IF VAL1 = DREG %START
2885 @ 28101:                  LINE   422 "regression-compile-tmp/hal7502.imp"
2886 @ 28139:                  PUSH   VAL1
2887 @ 28142:                  PUSH   DREG
2888 @ 28145:                  JUMPIF # L_0004

   423      %FALSE %IF DUSE # 1
2889 @ 28149:                  LINE   423 "regression-compile-tmp/hal7502.imp"
2890 @ 28187:                  PUSH   DUSE
2891 @ 28190:                  PUSHI  #0x00000001
2892 @ 28195:                  JUMPIF = L_0007
2893 @ 28199:                  FALSE 
2894 @ 28200:                  LOCATE L_0007

   424      %finish %ELSE %START
2895 @ 28203:                  LINE   424 "regression-compile-tmp/hal7502.imp"
2896 @ 28241:                  GOTO   L_0003
2897 @ 28244:                  LOCATE L_0004

   425      %FALSE %IF 1<<VAL1&TEMPS = 0
2898 @ 28247:                  LINE   425 "regression-compile-tmp/hal7502.imp"
2899 @ 28285:                  PUSHI  #0x00000001
2900 @ 28290:                  PUSH   VAL1
2901 @ 28293:                  LSH   
2902 @ 28294:                  PUSH   TEMPS
2903 @ 28297:                  AND   
2904 @ 28298:                  PUSHI  #0x00000000
2905 @ 28303:                  JUMPIF # L_0007
2906 @ 28307:                  FALSE 
2907 @ 28308:                  LOCATE L_0007

   426      %FINISH
2908 @ 28311:                  LINE   426 "regression-compile-tmp/hal7502.imp"
2909 @ 28349:                  LOCATE L_0003

   427      %TRUE
2910 @ 28352:                  LINE   427 "regression-compile-tmp/hal7502.imp"
2911 @ 28390:                  TRUE  

   428  %END
   429  
2912 @ 28391:                  LINE   428 "regression-compile-tmp/hal7502.imp"
2913 @ 28429:               END    _lev0id0_ASSEMBLE_TEMP {lev=3 --> 2}

   430  NOP: K = 0;                           !NOT SYMMETRIC
2914 @ 28430:               LINE   430 "regression-compile-tmp/hal7502.imp"
2915 @ 28468:               LABEL  L_00fa
2916 @ 28471:               LINE   430 "regression-compile-tmp/hal7502.imp"
2917 @ 28509:               PUSH   K
2918 @ 28512:               PUSHI  #0x00000000
2919 @ 28517:               ASSVAL

   431  BOP:%IF MODE <= 0 %OR (TYPE = 0 %AND TYPE1 = 0) %START
2920 @ 28518:               LINE   431 "regression-compile-tmp/hal7502.imp"
2921 @ 28556:               LABEL  L_00fb
2922 @ 28559:               LINE   431 "regression-compile-tmp/hal7502.imp"
2923 @ 28597:               PUSH   MODE
2924 @ 28600:               PUSHI  #0x00000000
2925 @ 28605:               JUMPIF <= L_0005
2926 @ 28609:               PUSH   TYPE
2927 @ 28612:               PUSHI  #0x00000000
2928 @ 28617:               JUMPIF # L_0004
2929 @ 28621:               PUSH   TYPE1
2930 @ 28624:               PUSHI  #0x00000000
2931 @ 28629:               JUMPIF # L_0004
2932 @ 28633:               LOCATE L_0005

   432      FAULT('A') %IF TYPE # 0
2933 @ 28636:               LINE   432 "regression-compile-tmp/hal7502.imp"
2934 @ 28674:               PUSH   TYPE
2935 @ 28677:               PUSHI  #0x00000000
2936 @ 28682:               JUMPIF = L_0007
2937 @ 28686:               PUSH   FAULT
2938 @ 28689:               PUSHI  #0x00000041
2939 @ 28694:               ASSPAR
2940 @ 28695:               CALL  
2941 @ 28696:               LOCATE L_0007

   433      TYPE = TYPE1;  VAL = LITVAL
2942 @ 28699:               LINE   433 "regression-compile-tmp/hal7502.imp"
2943 @ 28737:               PUSH   TYPE
2944 @ 28740:               PUSH   TYPE1
2945 @ 28743:               ASSVAL
2946 @ 28744:               LINE   433 "regression-compile-tmp/hal7502.imp"
2947 @ 28782:               PUSH   VAL
2948 @ 28785:               PUSH   LITVAL
2949 @ 28788:               ASSVAL

   434      %finish %ELSE %START
2950 @ 28789:               LINE   434 "regression-compile-tmp/hal7502.imp"
2951 @ 28827:               GOTO   L_0003
2952 @ 28830:               LOCATE L_0004

   435      %IF %NOT TEMP %OR (TYPE=REG %AND VAL=DREG %AND DUSE=1 %AND K#0) %START
2953 @ 28833:               LINE   435 "regression-compile-tmp/hal7502.imp"
2954 @ 28871:               PUSH   TEMP
2955 @ 28874:               CALL  
2956 @ 28875:               bf     L_0008
2957 @ 28878:               PUSH   TYPE
2958 @ 28881:               PUSH   REG
2959 @ 28884:               JUMPIF # L_0007
2960 @ 28888:               PUSH   VAL
2961 @ 28891:               PUSH   DREG
2962 @ 28894:               JUMPIF # L_0007
2963 @ 28898:               PUSH   DUSE
2964 @ 28901:               PUSHI  #0x00000001
2965 @ 28906:               JUMPIF # L_0007
2966 @ 28910:               PUSH   K
2967 @ 28913:               PUSHI  #0x00000000
2968 @ 28918:               JUMPIF = L_0007
2969 @ 28922:               LOCATE L_0008

   436      SWOP
2970 @ 28925:               LINE   436 "regression-compile-tmp/hal7502.imp"
2971 @ 28963:               PUSH   SWOP
2972 @ 28966:               CALL  

   437      %IF K = 0 %OR %NOT TEMP %START
2973 @ 28967:               LINE   437 "regression-compile-tmp/hal7502.imp"
2974 @ 29005:               PUSH   K
2975 @ 29008:               PUSHI  #0x00000000
2976 @ 29013:               JUMPIF = L_000b
2977 @ 29017:               PUSH   TEMP
2978 @ 29020:               CALL  
2979 @ 29021:               bt     L_000a
2980 @ 29024:               LOCATE L_000b

   438      LOAD TEMP;  SWOP
2981 @ 29027:               LINE   438 "regression-compile-tmp/hal7502.imp"
2982 @ 29065:               PUSH   LOADTEMP
2983 @ 29068:               CALL  
2984 @ 29069:               LINE   438 "regression-compile-tmp/hal7502.imp"
2985 @ 29107:               PUSH   SWOP
2986 @ 29110:               CALL  

   439      %FINISH
2987 @ 29111:               LINE   439 "regression-compile-tmp/hal7502.imp"
2988 @ 29149:               LOCATE L_000a

   440      %FINISH
2989 @ 29152:               LINE   440 "regression-compile-tmp/hal7502.imp"
2990 @ 29190:               LOCATE L_0007

   441      %IF OP = AND %AND TYPE = 0 %AND VAL&(\255) = 0 %START
2991 @ 29193:               LINE   441 "regression-compile-tmp/hal7502.imp"
2992 @ 29231:               PUSH   OP
2993 @ 29234:               PUSH   AND
2994 @ 29237:               JUMPIF # L_0007
2995 @ 29241:               PUSH   TYPE
2996 @ 29244:               PUSHI  #0x00000000
2997 @ 29249:               JUMPIF # L_0007
2998 @ 29253:               PUSH   VAL
2999 @ 29256:               PUSHI  #0x000000ff
3000 @ 29261:               NOT   
3001 @ 29262:               AND   
3002 @ 29263:               PUSHI  #0x00000000
3003 @ 29268:               JUMPIF # L_0007

   442      PLANT INST(ANDI+VAL1<<8+VAL)
3004 @ 29272:               LINE   442 "regression-compile-tmp/hal7502.imp"
3005 @ 29310:               PUSH   PLANTINST
3006 @ 29313:               PUSH   ANDI
3007 @ 29316:               PUSH   VAL1
3008 @ 29319:               PUSHI  #0x00000008
3009 @ 29324:               LSH   
3010 @ 29325:               ADD   
3011 @ 29326:               PUSH   VAL
3012 @ 29329:               ADD   
3013 @ 29330:               ASSPAR
3014 @ 29331:               CALL  

   443      %finish %ELSE %START
3015 @ 29332:               LINE   443 "regression-compile-tmp/hal7502.imp"
3016 @ 29370:               GOTO   L_0006
3017 @ 29373:               LOCATE L_0007

   444      LOAD TEMP %IF TYPE # REG
3018 @ 29376:               LINE   444 "regression-compile-tmp/hal7502.imp"
3019 @ 29414:               PUSH   TYPE
3020 @ 29417:               PUSH   REG
3021 @ 29420:               JUMPIF = L_000a
3022 @ 29424:               PUSH   LOADTEMP
3023 @ 29427:               CALL  
3024 @ 29428:               LOCATE L_000a

   445      RELEASE
3025 @ 29431:               LINE   445 "regression-compile-tmp/hal7502.imp"
3026 @ 29469:               PUSH   RELEASE
3027 @ 29472:               CALL  

   446      PLANT INST(OP+VAL1<<4+VAL)
3028 @ 29473:               LINE   446 "regression-compile-tmp/hal7502.imp"
3029 @ 29511:               PUSH   PLANTINST
3030 @ 29514:               PUSH   OP
3031 @ 29517:               PUSH   VAL1
3032 @ 29520:               PUSHI  #0x00000004
3033 @ 29525:               LSH   
3034 @ 29526:               ADD   
3035 @ 29527:               PUSH   VAL
3036 @ 29530:               ADD   
3037 @ 29531:               ASSPAR
3038 @ 29532:               CALL  

   447      %FINISH
3039 @ 29533:               LINE   447 "regression-compile-tmp/hal7502.imp"
3040 @ 29571:               LOCATE L_0006

   448      TYPE = REG;  VAL = VAL1
3041 @ 29574:               LINE   448 "regression-compile-tmp/hal7502.imp"
3042 @ 29612:               PUSH   TYPE
3043 @ 29615:               PUSH   REG
3044 @ 29618:               ASSVAL
3045 @ 29619:               LINE   448 "regression-compile-tmp/hal7502.imp"
3046 @ 29657:               PUSH   VAL
3047 @ 29660:               PUSH   VAL1
3048 @ 29663:               ASSVAL

   449      CREG = VAL
3049 @ 29664:               LINE   449 "regression-compile-tmp/hal7502.imp"
3050 @ 29702:               PUSH   CREG
3051 @ 29705:               PUSH   VAL
3052 @ 29708:               ASSVAL

   450      ATYPE = -1 %IF ACC = VAL
3053 @ 29709:               LINE   450 "regression-compile-tmp/hal7502.imp"
3054 @ 29747:               PUSH   ACC
3055 @ 29750:               PUSH   VAL
3056 @ 29753:               JUMPIF # L_0007
3057 @ 29757:               PUSH   ATYPE
3058 @ 29760:               PUSHI  #0x00000001
3059 @ 29765:               NEGATE
3060 @ 29766:               ASSVAL
3061 @ 29767:               LOCATE L_0007

   451      ATYPE = -1 %IF ATYPE&XMASK # 0 %AND ATYPE&15 = VAL
3062 @ 29770:               LINE   451 "regression-compile-tmp/hal7502.imp"
3063 @ 29808:               PUSH   ATYPE
3064 @ 29811:               PUSH   XMASK
3065 @ 29814:               AND   
3066 @ 29815:               PUSHI  #0x00000000
3067 @ 29820:               JUMPIF = L_0007
3068 @ 29824:               PUSH   ATYPE
3069 @ 29827:               PUSHI  #0x0000000f
3070 @ 29832:               AND   
3071 @ 29833:               PUSH   VAL
3072 @ 29836:               JUMPIF # L_0007
3073 @ 29840:               PUSH   ATYPE
3074 @ 29843:               PUSHI  #0x00000001
3075 @ 29848:               NEGATE
3076 @ 29849:               ASSVAL
3077 @ 29850:               LOCATE L_0007

   452      ATYPE = -1 %IF ATYPE = REG %AND AVAL = VAL
3078 @ 29853:               LINE   452 "regression-compile-tmp/hal7502.imp"
3079 @ 29891:               PUSH   ATYPE
3080 @ 29894:               PUSH   REG
3081 @ 29897:               JUMPIF # L_0007
3082 @ 29901:               PUSH   AVAL
3083 @ 29904:               PUSH   VAL
3084 @ 29907:               JUMPIF # L_0007
3085 @ 29911:               PUSH   ATYPE
3086 @ 29914:               PUSHI  #0x00000001
3087 @ 29919:               NEGATE
3088 @ 29920:               ASSVAL
3089 @ 29921:               LOCATE L_0007

   453      %FINISH
   454  
3090 @ 29924:               LINE   453 "regression-compile-tmp/hal7502.imp"
3091 @ 29962:               LOCATE L_0003

   455  POP:NQ = NQ-2
3092 @ 29965:               LINE   455 "regression-compile-tmp/hal7502.imp"
3093 @ 30003:               LABEL  L_00fc
3094 @ 30006:               LINE   455 "regression-compile-tmp/hal7502.imp"
3095 @ 30044:               PUSH   NQ
3096 @ 30047:               PUSH   NQ
3097 @ 30050:               PUSHI  #0x00000002
3098 @ 30055:               SUB   
3099 @ 30056:               ASSVAL

   456      TYPE1 = INTEGER(NQ);  VAL1 = INTEGER(NQ+1)
3100 @ 30057:               LINE   456 "regression-compile-tmp/hal7502.imp"
3101 @ 30095:               PUSH   TYPE1
3102 @ 30098:               PUSH   INTEGER
3103 @ 30101:               PUSH   NQ
3104 @ 30104:               ASSPAR
3105 @ 30105:               CALL  
3106 @ 30106:               ASSVAL
3107 @ 30107:               LINE   456 "regression-compile-tmp/hal7502.imp"
3108 @ 30145:               PUSH   VAL1
3109 @ 30148:               PUSH   INTEGER
3110 @ 30151:               PUSH   NQ
3111 @ 30154:               PUSHI  #0x00000001
3112 @ 30159:               ADD   
3113 @ 30160:               ASSPAR
3114 @ 30161:               CALL  
3115 @ 30162:               ASSVAL

   457      ->GET
   458  
3116 @ 30163:               LINE   457 "regression-compile-tmp/hal7502.imp"
3117 @ 30201:               JUMP   L_00f8

   459  ASS(-2):
3118 @ 30204:               LINE   459 "regression-compile-tmp/hal7502.imp"
3119 @ 30242:               PUSHI  #0xfffffffe
3120 @ 30247:               SLABEL 236

   460      OP = SUB
3121 @ 30250:               LINE   460 "regression-compile-tmp/hal7502.imp"
3122 @ 30288:               PUSH   OP
3123 @ 30291:               PUSH   SUB
3124 @ 30294:               ASSVAL

   461      ->NOP %IF MODE > 0 %AND TYPE # 0
3125 @ 30295:               LINE   461 "regression-compile-tmp/hal7502.imp"
3126 @ 30333:               PUSH   MODE
3127 @ 30336:               PUSHI  #0x00000000
3128 @ 30341:               JUMPIF <= L_0004
3129 @ 30345:               PUSH   TYPE
3130 @ 30348:               PUSHI  #0x00000000
3131 @ 30353:               JUMPIF = L_0004
3132 @ 30357:               JUMP   L_00fa
3133 @ 30360:               LOCATE L_0004

   462      TYPE1 = 0 %AND TYPE = 0 %IF MODE <= 0 %AND TYPE1 = TYPE
3134 @ 30363:               LINE   462 "regression-compile-tmp/hal7502.imp"
3135 @ 30401:               PUSH   MODE
3136 @ 30404:               PUSHI  #0x00000000
3137 @ 30409:               JUMPIF > L_0004
3138 @ 30413:               PUSH   TYPE1
3139 @ 30416:               PUSH   TYPE
3140 @ 30419:               JUMPIF # L_0004
3141 @ 30423:               PUSH   TYPE1
3142 @ 30426:               PUSHI  #0x00000000
3143 @ 30431:               ASSVAL
3144 @ 30432:               PUSH   TYPE
3145 @ 30435:               PUSHI  #0x00000000
3146 @ 30440:               ASSVAL
3147 @ 30441:               LOCATE L_0004

   463      VAL = -VAL
3148 @ 30444:               LINE   463 "regression-compile-tmp/hal7502.imp"
3149 @ 30482:               PUSH   VAL
3150 @ 30485:               PUSH   VAL
3151 @ 30488:               NEGATE
3152 @ 30489:               ASSVAL

   464  ASS(-1):
3153 @ 30490:               LINE   464 "regression-compile-tmp/hal7502.imp"
3154 @ 30528:               PUSHI  #0xffffffff
3155 @ 30533:               SLABEL 236

   465      OP = ADD;  LITVAL = VAL1+VAL
3156 @ 30536:               LINE   465 "regression-compile-tmp/hal7502.imp"
3157 @ 30574:               PUSH   OP
3158 @ 30577:               PUSH   ADD
3159 @ 30580:               ASSVAL
3160 @ 30581:               LINE   465 "regression-compile-tmp/hal7502.imp"
3161 @ 30619:               PUSH   LITVAL
3162 @ 30622:               PUSH   VAL1
3163 @ 30625:               PUSH   VAL
3164 @ 30628:               ADD   
3165 @ 30629:               ASSVAL

   466      ->BOP %UNLESS TYPE = 0
3166 @ 30630:               LINE   466 "regression-compile-tmp/hal7502.imp"
3167 @ 30668:               PUSH   TYPE
3168 @ 30671:               PUSHI  #0x00000000
3169 @ 30676:               JUMPIF = L_0004
3170 @ 30680:               JUMP   L_00fb
3171 @ 30683:               LOCATE L_0004

   467      %IF TYPE1&MEMMASK # 0 %AND MODE > 0 %START
3172 @ 30686:               LINE   467 "regression-compile-tmp/hal7502.imp"
3173 @ 30724:               PUSH   TYPE1
3174 @ 30727:               PUSH   MEMMASK
3175 @ 30730:               AND   
3176 @ 30731:               PUSHI  #0x00000000
3177 @ 30736:               JUMPIF = L_0004
3178 @ 30740:               PUSH   MODE
3179 @ 30743:               PUSHI  #0x00000000
3180 @ 30748:               JUMPIF <= L_0004

   468      SWOP;  LOAD TEMP;  SWOP
3181 @ 30752:               LINE   468 "regression-compile-tmp/hal7502.imp"
3182 @ 30790:               PUSH   SWOP
3183 @ 30793:               CALL  
3184 @ 30794:               LINE   468 "regression-compile-tmp/hal7502.imp"
3185 @ 30832:               PUSH   LOADTEMP
3186 @ 30835:               CALL  
3187 @ 30836:               LINE   468 "regression-compile-tmp/hal7502.imp"
3188 @ 30874:               PUSH   SWOP
3189 @ 30877:               CALL  

   469      %FINISH
3190 @ 30878:               LINE   469 "regression-compile-tmp/hal7502.imp"
3191 @ 30916:               LOCATE L_0004

   470      %IF TYPE1 = REG %AND %NOT TYPE=VAL=0 %START
3192 @ 30919:               LINE   470 "regression-compile-tmp/hal7502.imp"
3193 @ 30957:               PUSH   TYPE1
3194 @ 30960:               PUSH   REG
3195 @ 30963:               JUMPIF # L_0004
3196 @ 30967:               PUSH   TYPE
3197 @ 30970:               PUSH   VAL
3198 @ 30973:               JUMPIFD # L_0005
3199 @ 30977:               PUSHI  #0x00000000
3200 @ 30982:               JUMPIF = L_0004
3201 @ 30986:               LOCATE L_0005

   471      TYPE1 = XMASK+VAL1;  LITVAL = VAL
3202 @ 30989:               LINE   471 "regression-compile-tmp/hal7502.imp"
3203 @ 31027:               PUSH   TYPE1
3204 @ 31030:               PUSH   XMASK
3205 @ 31033:               PUSH   VAL1
3206 @ 31036:               ADD   
3207 @ 31037:               ASSVAL
3208 @ 31038:               LINE   471 "regression-compile-tmp/hal7502.imp"
3209 @ 31076:               PUSH   LITVAL
3210 @ 31079:               PUSH   VAL
3211 @ 31082:               ASSVAL

   472      %FINISH
3212 @ 31083:               LINE   472 "regression-compile-tmp/hal7502.imp"
3213 @ 31121:               LOCATE L_0004

   473      TYPE = TYPE1;  VAL = LITVAL
3214 @ 31124:               LINE   473 "regression-compile-tmp/hal7502.imp"
3215 @ 31162:               PUSH   TYPE
3216 @ 31165:               PUSH   TYPE1
3217 @ 31168:               ASSVAL
3218 @ 31169:               LINE   473 "regression-compile-tmp/hal7502.imp"
3219 @ 31207:               PUSH   VAL
3220 @ 31210:               PUSH   LITVAL
3221 @ 31213:               ASSVAL

   474      ->POP
3222 @ 31214:               LINE   474 "regression-compile-tmp/hal7502.imp"
3223 @ 31252:               JUMP   L_00fc

   475  ASS(-6):
3224 @ 31255:               LINE   475 "regression-compile-tmp/hal7502.imp"
3225 @ 31293:               PUSHI  #0xfffffffa
3226 @ 31298:               SLABEL 236

   476      LITVAL = VAL1<<VAL;  K = (-1)<<VAL
3227 @ 31301:               LINE   476 "regression-compile-tmp/hal7502.imp"
3228 @ 31339:               PUSH   LITVAL
3229 @ 31342:               PUSH   VAL1
3230 @ 31345:               PUSH   VAL
3231 @ 31348:               LSH   
3232 @ 31349:               ASSVAL
3233 @ 31350:               LINE   476 "regression-compile-tmp/hal7502.imp"
3234 @ 31388:               PUSH   K
3235 @ 31391:               PUSHI  #0x00000001
3236 @ 31396:               NEGATE
3237 @ 31397:               PUSH   VAL
3238 @ 31400:               LSH   
3239 @ 31401:               ASSVAL

   477      VAL = 16-VAL
3240 @ 31402:               LINE   477 "regression-compile-tmp/hal7502.imp"
3241 @ 31440:               PUSH   VAL
3242 @ 31443:               PUSHI  #0x00000010
3243 @ 31448:               PUSH   VAL
3244 @ 31451:               SUB   
3245 @ 31452:               ASSVAL

   478      ->AS7
3246 @ 31453:               LINE   478 "regression-compile-tmp/hal7502.imp"
3247 @ 31491:               JUMP   L_00fd

   479  ASS(-7):
3248 @ 31494:               LINE   479 "regression-compile-tmp/hal7502.imp"
3249 @ 31532:               PUSHI  #0xfffffff9
3250 @ 31537:               SLABEL 236

   480      LITVAL = VAL1>>VAL;  K = (16_FFFF)>>VAL
3251 @ 31540:               LINE   480 "regression-compile-tmp/hal7502.imp"
3252 @ 31578:               PUSH   LITVAL
3253 @ 31581:               PUSH   VAL1
3254 @ 31584:               PUSH   VAL
3255 @ 31587:               RSH   
3256 @ 31588:               ASSVAL
3257 @ 31589:               LINE   480 "regression-compile-tmp/hal7502.imp"
3258 @ 31627:               PUSH   K
3259 @ 31630:               PUSHI  #0x0000ffff
3260 @ 31635:               PUSH   VAL
3261 @ 31638:               RSH   
3262 @ 31639:               ASSVAL

   481  AS7:K=0 %AND ->BOP %IF MODE <= 0
3263 @ 31640:               LINE   481 "regression-compile-tmp/hal7502.imp"
3264 @ 31678:               LABEL  L_00fd
3265 @ 31681:               LINE   481 "regression-compile-tmp/hal7502.imp"
3266 @ 31719:               PUSH   MODE
3267 @ 31722:               PUSHI  #0x00000000
3268 @ 31727:               JUMPIF > L_0004
3269 @ 31731:               PUSH   K
3270 @ 31734:               PUSHI  #0x00000000
3271 @ 31739:               ASSVAL
3272 @ 31740:               JUMP   L_00fb
3273 @ 31743:               LOCATE L_0004

   482      FAULT('I') %IF TYPE # 0 %OR VAL&(\15) # 0
3274 @ 31746:               LINE   482 "regression-compile-tmp/hal7502.imp"
3275 @ 31784:               PUSH   TYPE
3276 @ 31787:               PUSHI  #0x00000000
3277 @ 31792:               JUMPIF # L_0005
3278 @ 31796:               PUSH   VAL
3279 @ 31799:               PUSHI  #0x0000000f
3280 @ 31804:               NOT   
3281 @ 31805:               AND   
3282 @ 31806:               PUSHI  #0x00000000
3283 @ 31811:               JUMPIF = L_0004
3284 @ 31815:               LOCATE L_0005
3285 @ 31818:               PUSH   FAULT
3286 @ 31821:               PUSHI  #0x00000049
3287 @ 31826:               ASSPAR
3288 @ 31827:               CALL  
3289 @ 31828:               LOCATE L_0004

   483      %IF %NOT TEMP %START
3290 @ 31831:               LINE   483 "regression-compile-tmp/hal7502.imp"
3291 @ 31869:               PUSH   TEMP
3292 @ 31872:               CALL  
3293 @ 31873:               bt     L_0004

   484      SWOP;  LOAD TEMP;  SWOP
3294 @ 31876:               LINE   484 "regression-compile-tmp/hal7502.imp"
3295 @ 31914:               PUSH   SWOP
3296 @ 31917:               CALL  
3297 @ 31918:               LINE   484 "regression-compile-tmp/hal7502.imp"
3298 @ 31956:               PUSH   LOADTEMP
3299 @ 31959:               CALL  
3300 @ 31960:               LINE   484 "regression-compile-tmp/hal7502.imp"
3301 @ 31998:               PUSH   SWOP
3302 @ 32001:               CALL  

   485      %FINISH
3303 @ 32002:               LINE   485 "regression-compile-tmp/hal7502.imp"
3304 @ 32040:               LOCATE L_0004

   486      OP = ROT+VAL1<<8+VAL1
3305 @ 32043:               LINE   486 "regression-compile-tmp/hal7502.imp"
3306 @ 32081:               PUSH   OP
3307 @ 32084:               PUSH   ROT
3308 @ 32087:               PUSH   VAL1
3309 @ 32090:               PUSHI  #0x00000008
3310 @ 32095:               LSH   
3311 @ 32096:               ADD   
3312 @ 32097:               PUSH   VAL1
3313 @ 32100:               ADD   
3314 @ 32101:               ASSVAL

   487      PLANT INST(OP+16_0070) %IF VAL > 8
3315 @ 32102:               LINE   487 "regression-compile-tmp/hal7502.imp"
3316 @ 32140:               PUSH   VAL
3317 @ 32143:               PUSHI  #0x00000008
3318 @ 32148:               JUMPIF <= L_0004
3319 @ 32152:               PUSH   PLANTINST
3320 @ 32155:               PUSH   OP
3321 @ 32158:               PUSHI  #0x00000070
3322 @ 32163:               ADD   
3323 @ 32164:               ASSPAR
3324 @ 32165:               CALL  
3325 @ 32166:               LOCATE L_0004

   488      PLANT INST(OP+(VAL-1)<<4) %IF VAL # 0
3326 @ 32169:               LINE   488 "regression-compile-tmp/hal7502.imp"
3327 @ 32207:               PUSH   VAL
3328 @ 32210:               PUSHI  #0x00000000
3329 @ 32215:               JUMPIF = L_0004
3330 @ 32219:               PUSH   PLANTINST
3331 @ 32222:               PUSH   OP
3332 @ 32225:               PUSH   VAL
3333 @ 32228:               PUSHI  #0x00000001
3334 @ 32233:               SUB   
3335 @ 32234:               PUSHI  #0x00000004
3336 @ 32239:               LSH   
3337 @ 32240:               ADD   
3338 @ 32241:               ASSPAR
3339 @ 32242:               CALL  
3340 @ 32243:               LOCATE L_0004

   489      TYPE = 0;  VAL = K;  K = -3
3341 @ 32246:               LINE   489 "regression-compile-tmp/hal7502.imp"
3342 @ 32284:               PUSH   TYPE
3343 @ 32287:               PUSHI  #0x00000000
3344 @ 32292:               ASSVAL
3345 @ 32293:               LINE   489 "regression-compile-tmp/hal7502.imp"
3346 @ 32331:               PUSH   VAL
3347 @ 32334:               PUSH   K
3348 @ 32337:               ASSVAL
3349 @ 32338:               LINE   489 "regression-compile-tmp/hal7502.imp"
3350 @ 32376:               PUSH   K
3351 @ 32379:               PUSHI  #0x00000003
3352 @ 32384:               NEGATE
3353 @ 32385:               ASSVAL

   490  ASS(-3):
3354 @ 32386:               LINE   490 "regression-compile-tmp/hal7502.imp"
3355 @ 32424:               PUSHI  #0xfffffffd
3356 @ 32429:               SLABEL 236

   491      OP = AND;  LITVAL = VAL1&VAL
3357 @ 32432:               LINE   491 "regression-compile-tmp/hal7502.imp"
3358 @ 32470:               PUSH   OP
3359 @ 32473:               PUSH   AND
3360 @ 32476:               ASSVAL
3361 @ 32477:               LINE   491 "regression-compile-tmp/hal7502.imp"
3362 @ 32515:               PUSH   LITVAL
3363 @ 32518:               PUSH   VAL1
3364 @ 32521:               PUSH   VAL
3365 @ 32524:               AND   
3366 @ 32525:               ASSVAL

   492      ->BOP
3367 @ 32526:               LINE   492 "regression-compile-tmp/hal7502.imp"
3368 @ 32564:               JUMP   L_00fb

   493  ASS(-4):
3369 @ 32567:               LINE   493 "regression-compile-tmp/hal7502.imp"
3370 @ 32605:               PUSHI  #0xfffffffc
3371 @ 32610:               SLABEL 236

   494      OP = OR;  LITVAL = VAL1!VAL
3372 @ 32613:               LINE   494 "regression-compile-tmp/hal7502.imp"
3373 @ 32651:               PUSH   OP
3374 @ 32654:               PUSH   OR
3375 @ 32657:               ASSVAL
3376 @ 32658:               LINE   494 "regression-compile-tmp/hal7502.imp"
3377 @ 32696:               PUSH   LITVAL
3378 @ 32699:               PUSH   VAL1
3379 @ 32702:               PUSH   VAL
3380 @ 32705:               OR    
3381 @ 32706:               ASSVAL

   495      ->BOP
3382 @ 32707:               LINE   495 "regression-compile-tmp/hal7502.imp"
3383 @ 32745:               JUMP   L_00fb

   496  ASS(-5):
3384 @ 32748:               LINE   496 "regression-compile-tmp/hal7502.imp"
3385 @ 32786:               PUSHI  #0xfffffffb
3386 @ 32791:               SLABEL 236

   497      OP = XOR;  LITVAL = VAL1!!VAL
3387 @ 32794:               LINE   497 "regression-compile-tmp/hal7502.imp"
3388 @ 32832:               PUSH   OP
3389 @ 32835:               PUSH   XOR
3390 @ 32838:               ASSVAL
3391 @ 32839:               LINE   497 "regression-compile-tmp/hal7502.imp"
3392 @ 32877:               PUSH   LITVAL
3393 @ 32880:               PUSH   VAL1
3394 @ 32883:               PUSH   VAL
3395 @ 32886:               XOR   
3396 @ 32887:               ASSVAL

   498      ->BOP
   499  
3397 @ 32888:               LINE   498 "regression-compile-tmp/hal7502.imp"
3398 @ 32926:               JUMP   L_00fb

   500  ASS(-8):                              !TYPE_VAL
3399 @ 32929:               LINE   500 "regression-compile-tmp/hal7502.imp"
3400 @ 32967:               PUSHI  #0xfffffff8
3401 @ 32972:               SLABEL 236

   501      TYPE = VAL1
3402 @ 32975:               LINE   501 "regression-compile-tmp/hal7502.imp"
3403 @ 33013:               PUSH   TYPE
3404 @ 33016:               PUSH   VAL1
3405 @ 33019:               ASSVAL

   502      TYPE = 0 %IF TYPE&OPMASK = MACRO; !SAFETY
3406 @ 33020:               LINE   502 "regression-compile-tmp/hal7502.imp"
3407 @ 33058:               PUSH   TYPE
3408 @ 33061:               PUSH   OPMASK
3409 @ 33064:               AND   
3410 @ 33065:               PUSH   MACRO
3411 @ 33068:               JUMPIF # L_0004
3412 @ 33072:               PUSH   TYPE
3413 @ 33075:               PUSHI  #0x00000000
3414 @ 33080:               ASSVAL
3415 @ 33081:               LOCATE L_0004

   503      TYPE = 0 %IF TYPE&(OPMASK+FMASK) = FMASK
3416 @ 33084:               LINE   503 "regression-compile-tmp/hal7502.imp"
3417 @ 33122:               PUSH   TYPE
3418 @ 33125:               PUSH   OPMASK
3419 @ 33128:               PUSH   FMASK
3420 @ 33131:               ADD   
3421 @ 33132:               AND   
3422 @ 33133:               PUSH   FMASK
3423 @ 33136:               JUMPIF # L_0004
3424 @ 33140:               PUSH   TYPE
3425 @ 33143:               PUSHI  #0x00000000
3426 @ 33148:               ASSVAL
3427 @ 33149:               LOCATE L_0004

   504      ->POP
   505  
3428 @ 33152:               LINE   504 "regression-compile-tmp/hal7502.imp"
3429 @ 33190:               JUMP   L_00fc

   506  ASS(-11):                             !COMPARE
3430 @ 33193:               LINE   506 "regression-compile-tmp/hal7502.imp"
3431 @ 33231:               PUSHI  #0xfffffff5
3432 @ 33236:               SLABEL 236

   507      K = INTEGER(Q);  Q = Q+1
3433 @ 33239:               LINE   507 "regression-compile-tmp/hal7502.imp"
3434 @ 33277:               PUSH   K
3435 @ 33280:               PUSH   INTEGER
3436 @ 33283:               PUSH   Q
3437 @ 33286:               ASSPAR
3438 @ 33287:               CALL  
3439 @ 33288:               ASSVAL
3440 @ 33289:               LINE   507 "regression-compile-tmp/hal7502.imp"
3441 @ 33327:               PUSH   Q
3442 @ 33330:               PUSH   Q
3443 @ 33333:               PUSHI  #0x00000001
3444 @ 33338:               ADD   
3445 @ 33339:               ASSVAL

   508      %IF MODE <= 0 %START
3446 @ 33340:               LINE   508 "regression-compile-tmp/hal7502.imp"
3447 @ 33378:               PUSH   MODE
3448 @ 33381:               PUSHI  #0x00000000
3449 @ 33386:               JUMPIF > L_0004

   509      LITVAL = 2_01011000
3450 @ 33390:               LINE   509 "regression-compile-tmp/hal7502.imp"
3451 @ 33428:               PUSH   LITVAL
3452 @ 33431:               PUSHI  #0x00000058
3453 @ 33436:               ASSVAL

   510      LITVAL = 2_01100100 %IF VAL < 0
3454 @ 33437:               LINE   510 "regression-compile-tmp/hal7502.imp"
3455 @ 33475:               PUSH   VAL
3456 @ 33478:               PUSHI  #0x00000000
3457 @ 33483:               JUMPIF >= L_0007
3458 @ 33487:               PUSH   LITVAL
3459 @ 33490:               PUSHI  #0x00000064
3460 @ 33495:               ASSVAL
3461 @ 33496:               LOCATE L_0007

   511      LITVAL = 2_10101000 %IF VAL1 > VAL
3462 @ 33499:               LINE   511 "regression-compile-tmp/hal7502.imp"
3463 @ 33537:               PUSH   VAL1
3464 @ 33540:               PUSH   VAL
3465 @ 33543:               JUMPIF <= L_0007
3466 @ 33547:               PUSH   LITVAL
3467 @ 33550:               PUSHI  #0x000000a8
3468 @ 33555:               ASSVAL
3469 @ 33556:               LOCATE L_0007

   512      K = LITVAL>>K&1;
3470 @ 33559:               LINE   512 "regression-compile-tmp/hal7502.imp"
3471 @ 33597:               PUSH   K
3472 @ 33600:               PUSH   LITVAL
3473 @ 33603:               PUSH   K
3474 @ 33606:               RSH   
3475 @ 33607:               PUSHI  #0x00000001
3476 @ 33612:               AND   
3477 @ 33613:               ASSVAL

   513      %finish %ELSE  %START
3478 @ 33614:               LINE   513 "regression-compile-tmp/hal7502.imp"
3479 @ 33652:               GOTO   L_0003
3480 @ 33655:               LOCATE L_0004

   514      %UNLESS K&6=4 %AND -256<VAL<0 %AND TYPE&XMASK#0 %START
3481 @ 33658:               LINE   514 "regression-compile-tmp/hal7502.imp"
3482 @ 33696:               PUSH   K
3483 @ 33699:               PUSHI  #0x00000006
3484 @ 33704:               AND   
3485 @ 33705:               PUSHI  #0x00000004
3486 @ 33710:               JUMPIF # L_0008
3487 @ 33714:               PUSHI  #0x00000100
3488 @ 33719:               NEGATE
3489 @ 33720:               PUSH   VAL
3490 @ 33723:               JUMPIFD >= L_0008
3491 @ 33727:               PUSHI  #0x00000000
3492 @ 33732:               JUMPIF >= L_0008
3493 @ 33736:               PUSH   TYPE
3494 @ 33739:               PUSH   XMASK
3495 @ 33742:               AND   
3496 @ 33743:               PUSHI  #0x00000000
3497 @ 33748:               JUMPIF # L_0007
3498 @ 33752:               LOCATE L_0008

   515      LOAD TEMP %IF TYPE # REG
3499 @ 33755:               LINE   515 "regression-compile-tmp/hal7502.imp"
3500 @ 33793:               PUSH   TYPE
3501 @ 33796:               PUSH   REG
3502 @ 33799:               JUMPIF = L_000a
3503 @ 33803:               PUSH   LOADTEMP
3504 @ 33806:               CALL  
3505 @ 33807:               LOCATE L_000a

   516      PLANT INST(COPY+VAL<<4+VAL) %IF CREG # VAL
3506 @ 33810:               LINE   516 "regression-compile-tmp/hal7502.imp"
3507 @ 33848:               PUSH   CREG
3508 @ 33851:               PUSH   VAL
3509 @ 33854:               JUMPIF = L_000a
3510 @ 33858:               PUSH   PLANTINST
3511 @ 33861:               PUSH   COPY
3512 @ 33864:               PUSH   VAL
3513 @ 33867:               PUSHI  #0x00000004
3514 @ 33872:               LSH   
3515 @ 33873:               ADD   
3516 @ 33874:               PUSH   VAL
3517 @ 33877:               ADD   
3518 @ 33878:               ASSPAR
3519 @ 33879:               CALL  
3520 @ 33880:               LOCATE L_000a

   517      CREG = VAL
3521 @ 33883:               LINE   517 "regression-compile-tmp/hal7502.imp"
3522 @ 33921:               PUSH   CREG
3523 @ 33924:               PUSH   VAL
3524 @ 33927:               ASSVAL

   518      %finish %ELSE  %START
3525 @ 33928:               LINE   518 "regression-compile-tmp/hal7502.imp"
3526 @ 33966:               GOTO   L_0006
3527 @ 33969:               LOCATE L_0007

   519      PLANT INST(SKIDI+(TYPE&15)<<8-VAL)
3528 @ 33972:               LINE   519 "regression-compile-tmp/hal7502.imp"
3529 @ 34010:               PUSH   PLANTINST
3530 @ 34013:               PUSH   SKIDI
3531 @ 34016:               PUSH   TYPE
3532 @ 34019:               PUSHI  #0x0000000f
3533 @ 34024:               AND   
3534 @ 34025:               PUSHI  #0x00000008
3535 @ 34030:               LSH   
3536 @ 34031:               ADD   
3537 @ 34032:               PUSH   VAL
3538 @ 34035:               SUB   
3539 @ 34036:               ASSPAR
3540 @ 34037:               CALL  

   520      K = K+4;                    !8,9
3541 @ 34038:               LINE   520 "regression-compile-tmp/hal7502.imp"
3542 @ 34076:               PUSH   K
3543 @ 34079:               PUSH   K
3544 @ 34082:               PUSHI  #0x00000004
3545 @ 34087:               ADD   
3546 @ 34088:               ASSVAL

   521      %FINISH
3547 @ 34089:               LINE   521 "regression-compile-tmp/hal7502.imp"
3548 @ 34127:               LOCATE L_0006

   522      %FINISH
3549 @ 34130:               LINE   522 "regression-compile-tmp/hal7502.imp"
3550 @ 34168:               LOCATE L_0003

   523      COND = K
3551 @ 34171:               LINE   523 "regression-compile-tmp/hal7502.imp"
3552 @ 34209:               PUSH   COND
3553 @ 34212:               PUSH   K
3554 @ 34215:               ASSVAL

   524      ->GET
   525  
3555 @ 34216:               LINE   524 "regression-compile-tmp/hal7502.imp"
3556 @ 34254:               JUMP   L_00f8

   526  ASS(-12):                             !TEST CC
3557 @ 34257:               LINE   526 "regression-compile-tmp/hal7502.imp"
3558 @ 34295:               PUSHI  #0xfffffff4
3559 @ 34300:               SLABEL 236

   527      COND = VAL!!1
3560 @ 34303:               LINE   527 "regression-compile-tmp/hal7502.imp"
3561 @ 34341:               PUSH   COND
3562 @ 34344:               PUSH   VAL
3563 @ 34347:               PUSHI  #0x00000001
3564 @ 34352:               XOR   
3565 @ 34353:               ASSVAL

   528      ->GET
   529  
3566 @ 34354:               LINE   528 "regression-compile-tmp/hal7502.imp"
3567 @ 34392:               JUMP   L_00f8

   530  ASS(-13):                             !AND
3568 @ 34395:               LINE   530 "regression-compile-tmp/hal7502.imp"
3569 @ 34433:               PUSHI  #0xfffffff3
3570 @ 34438:               SLABEL 236

   531      %IF MODE > 0 %START
3571 @ 34441:               LINE   531 "regression-compile-tmp/hal7502.imp"
3572 @ 34479:               PUSH   MODE
3573 @ 34482:               PUSHI  #0x00000000
3574 @ 34487:               JUMPIF <= L_0004

   532      SET JUMP(16_1000)
3575 @ 34491:               LINE   532 "regression-compile-tmp/hal7502.imp"
3576 @ 34529:               PUSH   SETJUMP
3577 @ 34532:               PUSHI  #0x00001000
3578 @ 34537:               ASSPAR
3579 @ 34538:               CALL  

   533      %finish %ELSE  %START
3580 @ 34539:               LINE   533 "regression-compile-tmp/hal7502.imp"
3581 @ 34577:               GOTO   L_0003
3582 @ 34580:               LOCATE L_0004

   534      %RETURN %IF COND = 0
3583 @ 34583:               LINE   534 "regression-compile-tmp/hal7502.imp"
3584 @ 34621:               PUSH   COND
3585 @ 34624:               PUSHI  #0x00000000
3586 @ 34629:               JUMPIF # L_0007
3587 @ 34633:               RETURN
3588 @ 34634:               LOCATE L_0007

   535      %FINISH
3589 @ 34637:               LINE   535 "regression-compile-tmp/hal7502.imp"
3590 @ 34675:               LOCATE L_0003

   536      %RETURN %IF Q = QLIM
3591 @ 34678:               LINE   536 "regression-compile-tmp/hal7502.imp"
3592 @ 34716:               PUSH   Q
3593 @ 34719:               PUSH   QLIM
3594 @ 34722:               JUMPIF # L_0004
3595 @ 34726:               RETURN
3596 @ 34727:               LOCATE L_0004

   537      ->NEW
   538  
3597 @ 34730:               LINE   537 "regression-compile-tmp/hal7502.imp"
3598 @ 34768:               JUMP   L_00f7

   539  ASS(-14):                             !OR
3599 @ 34771:               LINE   539 "regression-compile-tmp/hal7502.imp"
3600 @ 34809:               PUSHI  #0xfffffff2
3601 @ 34814:               SLABEL 236

   540      %IF MODE > 0 %START
3602 @ 34817:               LINE   540 "regression-compile-tmp/hal7502.imp"
3603 @ 34855:               PUSH   MODE
3604 @ 34858:               PUSHI  #0x00000000
3605 @ 34863:               JUMPIF <= L_0004

   541      COND = COND!!1
3606 @ 34867:               LINE   541 "regression-compile-tmp/hal7502.imp"
3607 @ 34905:               PUSH   COND
3608 @ 34908:               PUSH   COND
3609 @ 34911:               PUSHI  #0x00000001
3610 @ 34916:               XOR   
3611 @ 34917:               ASSVAL

   542      SET JUMP(16_3000)
3612 @ 34918:               LINE   542 "regression-compile-tmp/hal7502.imp"
3613 @ 34956:               PUSH   SETJUMP
3614 @ 34959:               PUSHI  #0x00003000
3615 @ 34964:               ASSPAR
3616 @ 34965:               CALL  

   543      %finish %ELSE  %START
3617 @ 34966:               LINE   543 "regression-compile-tmp/hal7502.imp"
3618 @ 35004:               GOTO   L_0003
3619 @ 35007:               LOCATE L_0004

   544      %RETURN %IF COND # 0
3620 @ 35010:               LINE   544 "regression-compile-tmp/hal7502.imp"
3621 @ 35048:               PUSH   COND
3622 @ 35051:               PUSHI  #0x00000000
3623 @ 35056:               JUMPIF = L_0007
3624 @ 35060:               RETURN
3625 @ 35061:               LOCATE L_0007

   545      %FINISH
3626 @ 35064:               LINE   545 "regression-compile-tmp/hal7502.imp"
3627 @ 35102:               LOCATE L_0003

   546      ->NEW
   547  
3628 @ 35105:               LINE   546 "regression-compile-tmp/hal7502.imp"
3629 @ 35143:               JUMP   L_00f7

   548  ASS(-15):                             !IF
3630 @ 35146:               LINE   548 "regression-compile-tmp/hal7502.imp"
3631 @ 35184:               PUSHI  #0xfffffff1
3632 @ 35189:               SLABEL 236

   549      SET JUMP(16_2000)
3633 @ 35192:               LINE   549 "regression-compile-tmp/hal7502.imp"
3634 @ 35230:               PUSH   SETJUMP
3635 @ 35233:               PUSHI  #0x00002000
3636 @ 35238:               ASSPAR
3637 @ 35239:               CALL  

   550      %RETURN
   551  
3638 @ 35240:               LINE   550 "regression-compile-tmp/hal7502.imp"
3639 @ 35278:               RETURN

   552  ASS(-16):                             !ELSE
3640 @ 35279:               LINE   552 "regression-compile-tmp/hal7502.imp"
3641 @ 35317:               PUSHI  #0xfffffff0
3642 @ 35322:               SLABEL 236

   553      COND = 1
3643 @ 35325:               LINE   553 "regression-compile-tmp/hal7502.imp"
3644 @ 35363:               PUSH   COND
3645 @ 35366:               PUSHI  #0x00000001
3646 @ 35371:               ASSVAL

   554      SET JUMP(16_4000)
3647 @ 35372:               LINE   554 "regression-compile-tmp/hal7502.imp"
3648 @ 35410:               PUSH   SETJUMP
3649 @ 35413:               PUSHI  #0x00004000
3650 @ 35418:               ASSPAR
3651 @ 35419:               CALL  

   555      %RETURN
   556  
3652 @ 35420:               LINE   555 "regression-compile-tmp/hal7502.imp"
3653 @ 35458:               RETURN

   557  ASS(-17):                             !IF AFTER ELSE
3654 @ 35459:               LINE   557 "regression-compile-tmp/hal7502.imp"
3655 @ 35497:               PUSHI  #0xffffffef
3656 @ 35502:               SLABEL 236

   558      SET JUMP(16_6000)
3657 @ 35505:               LINE   558 "regression-compile-tmp/hal7502.imp"
3658 @ 35543:               PUSH   SETJUMP
3659 @ 35546:               PUSHI  #0x00006000
3660 @ 35551:               ASSPAR
3661 @ 35552:               CALL  

   559      %RETURN
   560  
3662 @ 35553:               LINE   559 "regression-compile-tmp/hal7502.imp"
3663 @ 35591:               RETURN

   561  ASS(-18):                             !MACCALL IF
3664 @ 35592:               LINE   561 "regression-compile-tmp/hal7502.imp"
3665 @ 35630:               PUSHI  #0xffffffee
3666 @ 35635:               SLABEL 236

   562      SET JUMP(16_8000)
3667 @ 35638:               LINE   562 "regression-compile-tmp/hal7502.imp"
3668 @ 35676:               PUSH   SETJUMP
3669 @ 35679:               PUSHI  #0x00008000
3670 @ 35684:               ASSPAR
3671 @ 35685:               CALL  

   563      %RETURN
   564  
3672 @ 35686:               LINE   563 "regression-compile-tmp/hal7502.imp"
3673 @ 35724:               RETURN

   565  ASS(-20):                             !HASH
3674 @ 35725:               LINE   565 "regression-compile-tmp/hal7502.imp"
3675 @ 35763:               PUSHI  #0xffffffec
3676 @ 35768:               SLABEL 236

   566      TYPE = TYPE&(UMASK+63)
3677 @ 35771:               LINE   566 "regression-compile-tmp/hal7502.imp"
3678 @ 35809:               PUSH   TYPE
3679 @ 35812:               PUSH   TYPE
3680 @ 35815:               PUSH   UMASK
3681 @ 35818:               PUSHI  #0x0000003f
3682 @ 35823:               ADD   
3683 @ 35824:               AND   
3684 @ 35825:               ASSVAL

   567      ->GET
   568  
3685 @ 35826:               LINE   567 "regression-compile-tmp/hal7502.imp"
3686 @ 35864:               JUMP   L_00f8

   569  ASS(-21):                             !INDEX
3687 @ 35867:               LINE   569 "regression-compile-tmp/hal7502.imp"
3688 @ 35905:               PUSHI  #0xffffffeb
3689 @ 35910:               SLABEL 236

   570      FAULT('I') %IF TYPE1&REGXMASK # 0
3690 @ 35913:               LINE   570 "regression-compile-tmp/hal7502.imp"
3691 @ 35951:               PUSH   TYPE1
3692 @ 35954:               PUSH   REGXMASK
3693 @ 35957:               AND   
3694 @ 35958:               PUSHI  #0x00000000
3695 @ 35963:               JUMPIF = L_0004
3696 @ 35967:               PUSH   FAULT
3697 @ 35970:               PUSHI  #0x00000049
3698 @ 35975:               ASSPAR
3699 @ 35976:               CALL  
3700 @ 35977:               LOCATE L_0004

   571      %IF TYPE&MEMMASK # 0 %START
3701 @ 35980:               LINE   571 "regression-compile-tmp/hal7502.imp"
3702 @ 36018:               PUSH   TYPE
3703 @ 36021:               PUSH   MEMMASK
3704 @ 36024:               AND   
3705 @ 36025:               PUSHI  #0x00000000
3706 @ 36030:               JUMPIF = L_0004

   572      %IF MODE > 0 %THEN LOAD TEMP %ELSE FAULT('A')
3707 @ 36034:               LINE   572 "regression-compile-tmp/hal7502.imp"
3708 @ 36072:               PUSH   MODE
3709 @ 36075:               PUSHI  #0x00000000
3710 @ 36080:               JUMPIF <= L_0007
3711 @ 36084:               PUSH   LOADTEMP
3712 @ 36087:               CALL  
3713 @ 36088:               GOTO   L_0006
3714 @ 36091:               LOCATE L_0007
3715 @ 36094:               PUSH   FAULT
3716 @ 36097:               PUSHI  #0x00000041
3717 @ 36102:               ASSPAR
3718 @ 36103:               CALL  
3719 @ 36104:               LOCATE L_0006

   573      %FINISH
3720 @ 36107:               LINE   573 "regression-compile-tmp/hal7502.imp"
3721 @ 36145:               LOCATE L_0004

   574      %IF TYPE = REG %START
3722 @ 36148:               LINE   574 "regression-compile-tmp/hal7502.imp"
3723 @ 36186:               PUSH   TYPE
3724 @ 36189:               PUSH   REG
3725 @ 36192:               JUMPIF # L_0004

   575      TYPE = XMASK+VAL;  VAL = 0
3726 @ 36196:               LINE   575 "regression-compile-tmp/hal7502.imp"
3727 @ 36234:               PUSH   TYPE
3728 @ 36237:               PUSH   XMASK
3729 @ 36240:               PUSH   VAL
3730 @ 36243:               ADD   
3731 @ 36244:               ASSVAL
3732 @ 36245:               LINE   575 "regression-compile-tmp/hal7502.imp"
3733 @ 36283:               PUSH   VAL
3734 @ 36286:               PUSHI  #0x00000000
3735 @ 36291:               ASSVAL

   576      %FINISH
3736 @ 36292:               LINE   576 "regression-compile-tmp/hal7502.imp"
3737 @ 36330:               LOCATE L_0004

   577      FAULT('I') %IF TYPE1&TYPE&RELMASK # 0
3738 @ 36333:               LINE   577 "regression-compile-tmp/hal7502.imp"
3739 @ 36371:               PUSH   TYPE1
3740 @ 36374:               PUSH   TYPE
3741 @ 36377:               AND   
3742 @ 36378:               PUSH   RELMASK
3743 @ 36381:               AND   
3744 @ 36382:               PUSHI  #0x00000000
3745 @ 36387:               JUMPIF = L_0004
3746 @ 36391:               PUSH   FAULT
3747 @ 36394:               PUSHI  #0x00000049
3748 @ 36399:               ASSPAR
3749 @ 36400:               CALL  
3750 @ 36401:               LOCATE L_0004

   578      TYPE = TYPE1!TYPE!MEMMASK;  VAL = VAL1+VAL
3751 @ 36404:               LINE   578 "regression-compile-tmp/hal7502.imp"
3752 @ 36442:               PUSH   TYPE
3753 @ 36445:               PUSH   TYPE1
3754 @ 36448:               PUSH   TYPE
3755 @ 36451:               OR    
3756 @ 36452:               PUSH   MEMMASK
3757 @ 36455:               OR    
3758 @ 36456:               ASSVAL
3759 @ 36457:               LINE   578 "regression-compile-tmp/hal7502.imp"
3760 @ 36495:               PUSH   VAL
3761 @ 36498:               PUSH   VAL1
3762 @ 36501:               PUSH   VAL
3763 @ 36504:               ADD   
3764 @ 36505:               ASSVAL

   579      ->POP
   580  
3765 @ 36506:               LINE   579 "regression-compile-tmp/hal7502.imp"
3766 @ 36544:               JUMP   L_00fc

   581  ASS(-22):                             !MINST SEPARATOR
3767 @ 36547:               LINE   581 "regression-compile-tmp/hal7502.imp"
3768 @ 36585:               PUSHI  #0xffffffea
3769 @ 36590:               SLABEL 236

   582      COMBINE
3770 @ 36593:               LINE   582 "regression-compile-tmp/hal7502.imp"
3771 @ 36631:               PUSH   COMBINE
3772 @ 36634:               CALL  

   583      ->POP
   584  
3773 @ 36635:               LINE   583 "regression-compile-tmp/hal7502.imp"
3774 @ 36673:               JUMP   L_00fc

   585  ASS(-23):                             !PLANT INST
3775 @ 36676:               LINE   585 "regression-compile-tmp/hal7502.imp"
3776 @ 36714:               PUSHI  #0xffffffe9
3777 @ 36719:               SLABEL 236

   586      MODE = 1
3778 @ 36722:               LINE   586 "regression-compile-tmp/hal7502.imp"
3779 @ 36760:               PUSH   MODE
3780 @ 36763:               PUSHI  #0x00000001
3781 @ 36768:               ASSVAL

   587      PLANT INST(VAL)
3782 @ 36769:               LINE   587 "regression-compile-tmp/hal7502.imp"
3783 @ 36807:               PUSH   PLANTINST
3784 @ 36810:               PUSH   VAL
3785 @ 36813:               ASSPAR
3786 @ 36814:               CALL  

   588      CREG = -1;  ATYPE = -1
3787 @ 36815:               LINE   588 "regression-compile-tmp/hal7502.imp"
3788 @ 36853:               PUSH   CREG
3789 @ 36856:               PUSHI  #0x00000001
3790 @ 36861:               NEGATE
3791 @ 36862:               ASSVAL
3792 @ 36863:               LINE   588 "regression-compile-tmp/hal7502.imp"
3793 @ 36901:               PUSH   ATYPE
3794 @ 36904:               PUSHI  #0x00000001
3795 @ 36909:               NEGATE
3796 @ 36910:               ASSVAL

   589      %RETURN
   590  
3797 @ 36911:               LINE   589 "regression-compile-tmp/hal7502.imp"
3798 @ 36949:               RETURN

   591  ASS(-24):                             !LOAD
3799 @ 36950:               LINE   591 "regression-compile-tmp/hal7502.imp"
3800 @ 36988:               PUSHI  #0xffffffe8
3801 @ 36993:               SLABEL 236

   592      LOAD TEMP %IF TYPE # REG
3802 @ 36996:               LINE   592 "regression-compile-tmp/hal7502.imp"
3803 @ 37034:               PUSH   TYPE
3804 @ 37037:               PUSH   REG
3805 @ 37040:               JUMPIF = L_0004
3806 @ 37044:               PUSH   LOADTEMP
3807 @ 37047:               CALL  
3808 @ 37048:               LOCATE L_0004

   593      Q = QBASE
3809 @ 37051:               LINE   593 "regression-compile-tmp/hal7502.imp"
3810 @ 37089:               PUSH   Q
3811 @ 37092:               PUSH   QBASE
3812 @ 37095:               ASSVAL

   594      ->GET
   595  
3813 @ 37096:               LINE   594 "regression-compile-tmp/hal7502.imp"
3814 @ 37134:               JUMP   L_00f8

   596  ASS(-25):                             !STORE (TYPE1,VAL1 -> TYPE,VAL)
3815 @ 37137:               LINE   596 "regression-compile-tmp/hal7502.imp"
3816 @ 37175:               PUSHI  #0xffffffe7
3817 @ 37180:               SLABEL 236

   597      %IF TYPE = REG %START
3818 @ 37183:               LINE   597 "regression-compile-tmp/hal7502.imp"
3819 @ 37221:               PUSH   TYPE
3820 @ 37224:               PUSH   REG
3821 @ 37227:               JUMPIF # L_0004

   598      SWOP %AND LOAD REG(VAL1) %IF VAL1 # VAL
3822 @ 37231:               LINE   598 "regression-compile-tmp/hal7502.imp"
3823 @ 37269:               PUSH   VAL1
3824 @ 37272:               PUSH   VAL
3825 @ 37275:               JUMPIF = L_0007
3826 @ 37279:               PUSH   SWOP
3827 @ 37282:               CALL  
3828 @ 37283:               PUSH   LOADREG
3829 @ 37286:               PUSH   VAL1
3830 @ 37289:               ASSPAR
3831 @ 37290:               CALL  
3832 @ 37291:               LOCATE L_0007

   599      %finish %ELSE  %START
3833 @ 37294:               LINE   599 "regression-compile-tmp/hal7502.imp"
3834 @ 37332:               GOTO   L_0003
3835 @ 37335:               LOCATE L_0004

   600      ATYPE = -1 %IF ATYPE&MEMMASK # 0
3836 @ 37338:               LINE   600 "regression-compile-tmp/hal7502.imp"
3837 @ 37376:               PUSH   ATYPE
3838 @ 37379:               PUSH   MEMMASK
3839 @ 37382:               AND   
3840 @ 37383:               PUSHI  #0x00000000
3841 @ 37388:               JUMPIF = L_0007
3842 @ 37392:               PUSH   ATYPE
3843 @ 37395:               PUSHI  #0x00000001
3844 @ 37400:               NEGATE
3845 @ 37401:               ASSVAL
3846 @ 37402:               LOCATE L_0007

   601      %IF VAL1 = ACC %AND ATYPE < 0 %START
3847 @ 37405:               LINE   601 "regression-compile-tmp/hal7502.imp"
3848 @ 37443:               PUSH   VAL1
3849 @ 37446:               PUSH   ACC
3850 @ 37449:               JUMPIF # L_0007
3851 @ 37453:               PUSH   ATYPE
3852 @ 37456:               PUSHI  #0x00000000
3853 @ 37461:               JUMPIF >= L_0007

   602      K = TYPE&15
3854 @ 37465:               LINE   602 "regression-compile-tmp/hal7502.imp"
3855 @ 37503:               PUSH   K
3856 @ 37506:               PUSH   TYPE
3857 @ 37509:               PUSHI  #0x0000000f
3858 @ 37514:               AND   
3859 @ 37515:               ASSVAL

   603      ATYPE = TYPE %AND AVAL = VAL %IF TYPE&XMASK = 0 %OR 1<<K&TEMPS = 0
3860 @ 37516:               LINE   603 "regression-compile-tmp/hal7502.imp"
3861 @ 37554:               PUSH   TYPE
3862 @ 37557:               PUSH   XMASK
3863 @ 37560:               AND   
3864 @ 37561:               PUSHI  #0x00000000
3865 @ 37566:               JUMPIF = L_000b
3866 @ 37570:               PUSHI  #0x00000001
3867 @ 37575:               PUSH   K
3868 @ 37578:               LSH   
3869 @ 37579:               PUSH   TEMPS
3870 @ 37582:               AND   
3871 @ 37583:               PUSHI  #0x00000000
3872 @ 37588:               JUMPIF # L_000a
3873 @ 37592:               LOCATE L_000b
3874 @ 37595:               PUSH   ATYPE
3875 @ 37598:               PUSH   TYPE
3876 @ 37601:               ASSVAL
3877 @ 37602:               PUSH   AVAL
3878 @ 37605:               PUSH   VAL
3879 @ 37608:               ASSVAL
3880 @ 37609:               LOCATE L_000a

   604      %FINISH
3881 @ 37612:               LINE   604 "regression-compile-tmp/hal7502.imp"
3882 @ 37650:               LOCATE L_0007

   605      %IF TYPE&XMASK = 0 %OR VAL&(\3) # 0 %START
3883 @ 37653:               LINE   605 "regression-compile-tmp/hal7502.imp"
3884 @ 37691:               PUSH   TYPE
3885 @ 37694:               PUSH   XMASK
3886 @ 37697:               AND   
3887 @ 37698:               PUSHI  #0x00000000
3888 @ 37703:               JUMPIF = L_0008
3889 @ 37707:               PUSH   VAL
3890 @ 37710:               PUSHI  #0x00000003
3891 @ 37715:               NOT   
3892 @ 37716:               AND   
3893 @ 37717:               PUSHI  #0x00000000
3894 @ 37722:               JUMPIF = L_0007
3895 @ 37726:               LOCATE L_0008

   606      TYPE = TYPE&(\MEMMASK)
3896 @ 37729:               LINE   606 "regression-compile-tmp/hal7502.imp"
3897 @ 37767:               PUSH   TYPE
3898 @ 37770:               PUSH   TYPE
3899 @ 37773:               PUSH   MEMMASK
3900 @ 37776:               NOT   
3901 @ 37777:               AND   
3902 @ 37778:               ASSVAL

   607      LOAD TEMP
3903 @ 37779:               LINE   607 "regression-compile-tmp/hal7502.imp"
3904 @ 37817:               PUSH   LOADTEMP
3905 @ 37820:               CALL  

   608      TYPE = MEMMASK+XMASK+VAL;  VAL = 0
3906 @ 37821:               LINE   608 "regression-compile-tmp/hal7502.imp"
3907 @ 37859:               PUSH   TYPE
3908 @ 37862:               PUSH   MEMMASK
3909 @ 37865:               PUSH   XMASK
3910 @ 37868:               ADD   
3911 @ 37869:               PUSH   VAL
3912 @ 37872:               ADD   
3913 @ 37873:               ASSVAL
3914 @ 37874:               LINE   608 "regression-compile-tmp/hal7502.imp"
3915 @ 37912:               PUSH   VAL
3916 @ 37915:               PUSHI  #0x00000000
3917 @ 37920:               ASSVAL

   609      %FINISH
3918 @ 37921:               LINE   609 "regression-compile-tmp/hal7502.imp"
3919 @ 37959:               LOCATE L_0007

   610      PLANT INST(STORE+VAL1<<8+(TYPE&15)<<4+VAL)
3920 @ 37962:               LINE   610 "regression-compile-tmp/hal7502.imp"
3921 @ 38000:               PUSH   PLANTINST
3922 @ 38003:               PUSH   STORE
3923 @ 38006:               PUSH   VAL1
3924 @ 38009:               PUSHI  #0x00000008
3925 @ 38014:               LSH   
3926 @ 38015:               ADD   
3927 @ 38016:               PUSH   TYPE
3928 @ 38019:               PUSHI  #0x0000000f
3929 @ 38024:               AND   
3930 @ 38025:               PUSHI  #0x00000004
3931 @ 38030:               LSH   
3932 @ 38031:               ADD   
3933 @ 38032:               PUSH   VAL
3934 @ 38035:               ADD   
3935 @ 38036:               ASSPAR
3936 @ 38037:               CALL  

   611      %FINISH
3937 @ 38038:               LINE   611 "regression-compile-tmp/hal7502.imp"
3938 @ 38076:               LOCATE L_0003

   612      %RETURN
   613  
3939 @ 38079:               LINE   612 "regression-compile-tmp/hal7502.imp"
3940 @ 38117:               RETURN

   614  ASS(-26):                             !JUMP
3941 @ 38118:               LINE   614 "regression-compile-tmp/hal7502.imp"
3942 @ 38156:               PUSHI  #0xffffffe6
3943 @ 38161:               SLABEL 236

   615      SET JUMP(16_1000) %IF INTEGER(NP)&16_F000 = 16_3000; !OR
3944 @ 38164:               LINE   615 "regression-compile-tmp/hal7502.imp"
3945 @ 38202:               PUSH   INTEGER
3946 @ 38205:               PUSH   NP
3947 @ 38208:               ASSPAR
3948 @ 38209:               CALL  
3949 @ 38210:               PUSHI  #0x0000f000
3950 @ 38215:               AND   
3951 @ 38216:               PUSHI  #0x00003000
3952 @ 38221:               JUMPIF # L_0004
3953 @ 38225:               PUSH   SETJUMP
3954 @ 38228:               PUSHI  #0x00001000
3955 @ 38233:               ASSPAR
3956 @ 38234:               CALL  
3957 @ 38235:               LOCATE L_0004

   616      TYPE = TYPE!MEMMASK %IF TYPE # REG
3958 @ 38238:               LINE   616 "regression-compile-tmp/hal7502.imp"
3959 @ 38276:               PUSH   TYPE
3960 @ 38279:               PUSH   REG
3961 @ 38282:               JUMPIF = L_0004
3962 @ 38286:               PUSH   TYPE
3963 @ 38289:               PUSH   TYPE
3964 @ 38292:               PUSH   MEMMASK
3965 @ 38295:               OR    
3966 @ 38296:               ASSVAL
3967 @ 38297:               LOCATE L_0004

   617      %IF TYPE&(\UMASK) = LOCTYPE %START
3968 @ 38300:               LINE   617 "regression-compile-tmp/hal7502.imp"
3969 @ 38338:               PUSH   TYPE
3970 @ 38341:               PUSH   UMASK
3971 @ 38344:               NOT   
3972 @ 38345:               AND   
3973 @ 38346:               PUSH   LOCTYPE
3974 @ 38349:               JUMPIF # L_0004

   618         PLANT JUMP
3975 @ 38353:               LINE   618 "regression-compile-tmp/hal7502.imp"
3976 @ 38391:               PUSH   PLANTJUMP
3977 @ 38394:               CALL  

   619      %finish %ELSE  %START
3978 @ 38395:               LINE   619 "regression-compile-tmp/hal7502.imp"
3979 @ 38433:               GOTO   L_0003
3980 @ 38436:               LOCATE L_0004

   620      TYPE = XMASK+VAL %AND VAL=0 %IF TYPE = REG
3981 @ 38439:               LINE   620 "regression-compile-tmp/hal7502.imp"
3982 @ 38477:               PUSH   TYPE
3983 @ 38480:               PUSH   REG
3984 @ 38483:               JUMPIF # L_0007
3985 @ 38487:               PUSH   TYPE
3986 @ 38490:               PUSH   XMASK
3987 @ 38493:               PUSH   VAL
3988 @ 38496:               ADD   
3989 @ 38497:               ASSVAL
3990 @ 38498:               PUSH   VAL
3991 @ 38501:               PUSHI  #0x00000000
3992 @ 38506:               ASSVAL
3993 @ 38507:               LOCATE L_0007

   621      FAULT('I') %IF TYPE&XMASK = 0 %OR VAL&(\15) # 0
3994 @ 38510:               LINE   621 "regression-compile-tmp/hal7502.imp"
3995 @ 38548:               PUSH   TYPE
3996 @ 38551:               PUSH   XMASK
3997 @ 38554:               AND   
3998 @ 38555:               PUSHI  #0x00000000
3999 @ 38560:               JUMPIF = L_0008
4000 @ 38564:               PUSH   VAL
4001 @ 38567:               PUSHI  #0x0000000f
4002 @ 38572:               NOT   
4003 @ 38573:               AND   
4004 @ 38574:               PUSHI  #0x00000000
4005 @ 38579:               JUMPIF = L_0007
4006 @ 38583:               LOCATE L_0008
4007 @ 38586:               PUSH   FAULT
4008 @ 38589:               PUSHI  #0x00000049
4009 @ 38594:               ASSPAR
4010 @ 38595:               CALL  
4011 @ 38596:               LOCATE L_0007

   622      %IF COND&8 # 0 %START
4012 @ 38599:               LINE   622 "regression-compile-tmp/hal7502.imp"
4013 @ 38637:               PUSH   COND
4014 @ 38640:               PUSHI  #0x00000008
4015 @ 38645:               AND   
4016 @ 38646:               PUSHI  #0x00000000
4017 @ 38651:               JUMPIF = L_0007

   623      PLANT(SKIP) %IF COND = 8
4018 @ 38655:               LINE   623 "regression-compile-tmp/hal7502.imp"
4019 @ 38693:               PUSH   COND
4020 @ 38696:               PUSHI  #0x00000008
4021 @ 38701:               JUMPIF # L_000a
4022 @ 38705:               PUSH   PLANT
4023 @ 38708:               PUSH   SKIP
4024 @ 38711:               ASSPAR
4025 @ 38712:               CALL  
4026 @ 38713:               LOCATE L_000a

   624      COND = 1
4027 @ 38716:               LINE   624 "regression-compile-tmp/hal7502.imp"
4028 @ 38754:               PUSH   COND
4029 @ 38757:               PUSHI  #0x00000001
4030 @ 38762:               ASSVAL

   625      %FINISH
4031 @ 38763:               LINE   625 "regression-compile-tmp/hal7502.imp"
4032 @ 38801:               LOCATE L_0007

   626      PLANT(BOCR+COND<<8+(TYPE&15)<<4+VAL)
4033 @ 38804:               LINE   626 "regression-compile-tmp/hal7502.imp"
4034 @ 38842:               PUSH   PLANT
4035 @ 38845:               PUSH   BOCR
4036 @ 38848:               PUSH   COND
4037 @ 38851:               PUSHI  #0x00000008
4038 @ 38856:               LSH   
4039 @ 38857:               ADD   
4040 @ 38858:               PUSH   TYPE
4041 @ 38861:               PUSHI  #0x0000000f
4042 @ 38866:               AND   
4043 @ 38867:               PUSHI  #0x00000004
4044 @ 38872:               LSH   
4045 @ 38873:               ADD   
4046 @ 38874:               PUSH   VAL
4047 @ 38877:               ADD   
4048 @ 38878:               ASSPAR
4049 @ 38879:               CALL  

   627      %FINISH
4050 @ 38880:               LINE   627 "regression-compile-tmp/hal7502.imp"
4051 @ 38918:               LOCATE L_0003

   628      COND = 0
4052 @ 38921:               LINE   628 "regression-compile-tmp/hal7502.imp"
4053 @ 38959:               PUSH   COND
4054 @ 38962:               PUSHI  #0x00000000
4055 @ 38967:               ASSVAL

   629      %RETURN
4056 @ 38968:               LINE   629 "regression-compile-tmp/hal7502.imp"
4057 @ 39006:               RETURN

   630  %END
   631  
4058 @ 39007:               LINE   630 "regression-compile-tmp/hal7502.imp"
4059 @ 39045:            END    _lev0id0_ASSEMBLE {lev=2 --> 1}

   632  %ROUTINE GET SYM
4060 @ 39046:            LINE   632 "regression-compile-tmp/hal7502.imp"
4061 @ 39084:            DEF    GETSYM (_lev0id0_GETSYM) 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
4062 @ 39102:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4063 @ 39103:               FINISH ) {lev=2}

   633      %CYCLE
4064 @ 39104:               LINE   633 "regression-compile-tmp/hal7502.imp"
4065 @ 39142:               LOCATE L_0003

   634      SYM = CHAR(GETPOS);  GETPOS = GETPOS+1
4066 @ 39145:               LINE   634 "regression-compile-tmp/hal7502.imp"
4067 @ 39183:               PUSH   SYM
4068 @ 39186:               PUSH   CHAR
4069 @ 39189:               PUSH   GETPOS
4070 @ 39192:               ASSPAR
4071 @ 39193:               CALL  
4072 @ 39194:               ASSVAL
4073 @ 39195:               LINE   634 "regression-compile-tmp/hal7502.imp"
4074 @ 39233:               PUSH   GETPOS
4075 @ 39236:               PUSH   GETPOS
4076 @ 39239:               PUSHI  #0x00000001
4077 @ 39244:               ADD   
4078 @ 39245:               ASSVAL

   635      %RETURN %IF SYM # ' '
4079 @ 39246:               LINE   635 "regression-compile-tmp/hal7502.imp"
4080 @ 39284:               PUSH   SYM
4081 @ 39287:               PUSHI  #0x00000020
4082 @ 39292:               JUMPIF = L_0007
4083 @ 39296:               RETURN
4084 @ 39297:               LOCATE L_0007

   636      %REPEAT
4085 @ 39300:               LINE   636 "regression-compile-tmp/hal7502.imp"
4086 @ 39338:               REPEAT L_0003

   637  %END
   638  
4087 @ 39341:               LINE   637 "regression-compile-tmp/hal7502.imp"
4088 @ 39379:            END    _lev0id0_GETSYM {lev=2 --> 1}

   639  %PREDICATE S(%INTEGER K)
4089 @ 39380:            LINE   639 "regression-compile-tmp/hal7502.imp"
4090 @ 39418:            DEF    S (_lev0id0_S) p1=V_00d2 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
4091 @ 39431:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4092 @ 39432:                  DEF    K 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
4093 @ 39445:               FINISH ) {lev=2}

   640      %FALSE %UNLESS K = SYM
4094 @ 39446:               LINE   640 "regression-compile-tmp/hal7502.imp"
4095 @ 39484:               PUSH   K
4096 @ 39487:               PUSH   SYM
4097 @ 39490:               JUMPIF = L_0004
4098 @ 39494:               FALSE 
4099 @ 39495:               LOCATE L_0004

   641      GET SYM
4100 @ 39498:               LINE   641 "regression-compile-tmp/hal7502.imp"
4101 @ 39536:               PUSH   GETSYM
4102 @ 39539:               CALL  

   642      %TRUE
4103 @ 39540:               LINE   642 "regression-compile-tmp/hal7502.imp"
4104 @ 39578:               TRUE  

   643  %END
   644  
4105 @ 39579:               LINE   643 "regression-compile-tmp/hal7502.imp"
4106 @ 39617:            END    _lev0id0_S {lev=2 --> 1}

   645  %PREDICATE SS(%INTEGER K)
4107 @ 39618:            LINE   645 "regression-compile-tmp/hal7502.imp"
4108 @ 39656:            DEF    SS (_lev0id0_SS) p1=V_00d3 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
4109 @ 39670:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4110 @ 39671:                  DEF    K 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
4111 @ 39684:               FINISH ) {lev=2}

   646      %FALSE %UNLESS K = SYM = CHAR(GETPOS)
4112 @ 39685:               LINE   646 "regression-compile-tmp/hal7502.imp"
4113 @ 39723:               PUSH   K
4114 @ 39726:               PUSH   SYM
4115 @ 39729:               JUMPIFD # L_0005
4116 @ 39733:               PUSH   CHAR
4117 @ 39736:               PUSH   GETPOS
4118 @ 39739:               ASSPAR
4119 @ 39740:               CALL  
4120 @ 39741:               JUMPIF = L_0004
4121 @ 39745:               LOCATE L_0005
4122 @ 39748:               FALSE 
4123 @ 39749:               LOCATE L_0004

   647      GETPOS = GETPOS+1
4124 @ 39752:               LINE   647 "regression-compile-tmp/hal7502.imp"
4125 @ 39790:               PUSH   GETPOS
4126 @ 39793:               PUSH   GETPOS
4127 @ 39796:               PUSHI  #0x00000001
4128 @ 39801:               ADD   
4129 @ 39802:               ASSVAL

   648      GET SYM
4130 @ 39803:               LINE   648 "regression-compile-tmp/hal7502.imp"
4131 @ 39841:               PUSH   GETSYM
4132 @ 39844:               CALL  

   649      %TRUE
4133 @ 39845:               LINE   649 "regression-compile-tmp/hal7502.imp"
4134 @ 39883:               TRUE  

   650  %END
   651  
4135 @ 39884:               LINE   650 "regression-compile-tmp/hal7502.imp"
4136 @ 39922:            END    _lev0id0_SS {lev=2 --> 1}

   652  %PREDICATE TAG
4137 @ 39923:            LINE   652 "regression-compile-tmp/hal7502.imp"
4138 @ 39961:            DEF    TAG (_lev0id0_TAG) p1=V_00d4 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
4139 @ 39976:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4140 @ 39977:               FINISH ) {lev=2}

   653  %INTEGER J,K
4141 @ 39978:               LINE   653 "regression-compile-tmp/hal7502.imp"
4142 @ 40016:               DEF    J 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
4143 @ 40029:               DEF    K 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

   654      %ROUTINE CODE SYM
4144 @ 40042:               LINE   654 "regression-compile-tmp/hal7502.imp"
4145 @ 40080:               DEF    CODESYM (_lev0id0_TAG_CODESYM) 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
4146 @ 40099:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
4147 @ 40100:                  FINISH ) {lev=3}

   655      SYM = CHAR(GETPOS);  GETPOS = GETPOS+1
4148 @ 40101:                  LINE   655 "regression-compile-tmp/hal7502.imp"
4149 @ 40139:                  PUSH   SYM
4150 @ 40142:                  PUSH   CHAR
4151 @ 40145:                  PUSH   GETPOS
4152 @ 40148:                  ASSPAR
4153 @ 40149:                  CALL  
4154 @ 40150:                  ASSVAL
4155 @ 40151:                  LINE   655 "regression-compile-tmp/hal7502.imp"
4156 @ 40189:                  PUSH   GETPOS
4157 @ 40192:                  PUSH   GETPOS
4158 @ 40195:                  PUSHI  #0x00000001
4159 @ 40200:                  ADD   
4160 @ 40201:                  ASSVAL

   656      K = SYM-'0'
4161 @ 40202:                  LINE   656 "regression-compile-tmp/hal7502.imp"
4162 @ 40240:                  PUSH   K
4163 @ 40243:                  PUSH   SYM
4164 @ 40246:                  PUSHI  #0x00000030
4165 @ 40251:                  SUB   
4166 @ 40252:                  ASSVAL

   657      %IF K >= 0 %START
4167 @ 40253:                  LINE   657 "regression-compile-tmp/hal7502.imp"
4168 @ 40291:                  PUSH   K
4169 @ 40294:                  PUSHI  #0x00000000
4170 @ 40299:                  JUMPIF < L_0004

   658      TERM = -1 %AND %RETURN %IF K < 10
4171 @ 40303:                  LINE   658 "regression-compile-tmp/hal7502.imp"
4172 @ 40341:                  PUSH   K
4173 @ 40344:                  PUSHI  #0x0000000a
4174 @ 40349:                  JUMPIF >= L_0007
4175 @ 40353:                  PUSH   TERM
4176 @ 40356:                  PUSHI  #0x00000001
4177 @ 40361:                  NEGATE
4178 @ 40362:                  ASSVAL
4179 @ 40363:                  RETURN
4180 @ 40364:                  LOCATE L_0007

   659      K = SYM-'A'
4181 @ 40367:                  LINE   659 "regression-compile-tmp/hal7502.imp"
4182 @ 40405:                  PUSH   K
4183 @ 40408:                  PUSH   SYM
4184 @ 40411:                  PUSHI  #0x00000041
4185 @ 40416:                  SUB   
4186 @ 40417:                  ASSVAL

   660      %RETURN %IF K >= 0 %AND K < 26 %AND TERM = 0
4187 @ 40418:                  LINE   660 "regression-compile-tmp/hal7502.imp"
4188 @ 40456:                  PUSH   K
4189 @ 40459:                  PUSHI  #0x00000000
4190 @ 40464:                  JUMPIF < L_0007
4191 @ 40468:                  PUSH   K
4192 @ 40471:                  PUSHI  #0x0000001a
4193 @ 40476:                  JUMPIF >= L_0007
4194 @ 40480:                  PUSH   TERM
4195 @ 40483:                  PUSHI  #0x00000000
4196 @ 40488:                  JUMPIF # L_0007
4197 @ 40492:                  RETURN
4198 @ 40493:                  LOCATE L_0007

   661      %FINISH
4199 @ 40496:                  LINE   661 "regression-compile-tmp/hal7502.imp"
4200 @ 40534:                  LOCATE L_0004

   662      TERM = SYM
4201 @ 40537:                  LINE   662 "regression-compile-tmp/hal7502.imp"
4202 @ 40575:                  PUSH   TERM
4203 @ 40578:                  PUSH   SYM
4204 @ 40581:                  ASSVAL

   663      %END
4205 @ 40582:                  LINE   663 "regression-compile-tmp/hal7502.imp"
4206 @ 40620:               END    _lev0id0_TAG_CODESYM {lev=3 --> 2}

   664      %ROUTINE PACK TRIPLE
4207 @ 40621:               LINE   664 "regression-compile-tmp/hal7502.imp"
4208 @ 40659:               DEF    PACKTRIPLE (_lev0id0_TAG_PACKTRIPLE) 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
4209 @ 40681:                  START  ( FORMAL PARAMETERS  {lev=3 --> 4, nested=0 --> 1}
4210 @ 40682:                  FINISH ) {lev=3}

   665      ->T1 %IF TERM < 0
4211 @ 40683:                  LINE   665 "regression-compile-tmp/hal7502.imp"
4212 @ 40721:                  PUSH   TERM
4213 @ 40724:                  PUSHI  #0x00000000
4214 @ 40729:                  JUMPIF >= L_0004
4215 @ 40733:                  JUMP   L_00d9
4216 @ 40736:                  LOCATE L_0004

   666      J = ((K<<5+K)<<1+K)<<4+K+1111; !K*1073+1111
4217 @ 40739:                  LINE   666 "regression-compile-tmp/hal7502.imp"
4218 @ 40777:                  PUSH   J
4219 @ 40780:                  PUSH   K
4220 @ 40783:                  PUSHI  #0x00000005
4221 @ 40788:                  LSH   
4222 @ 40789:                  PUSH   K
4223 @ 40792:                  ADD   
4224 @ 40793:                  PUSHI  #0x00000001
4225 @ 40798:                  LSH   
4226 @ 40799:                  PUSH   K
4227 @ 40802:                  ADD   
4228 @ 40803:                  PUSHI  #0x00000004
4229 @ 40808:                  LSH   
4230 @ 40809:                  PUSH   K
4231 @ 40812:                  ADD   
4232 @ 40813:                  PUSHI  #0x00000457
4233 @ 40818:                  ADD   
4234 @ 40819:                  ASSVAL

   667      CODE SYM
4235 @ 40820:                  LINE   667 "regression-compile-tmp/hal7502.imp"
4236 @ 40858:                  PUSH   CODESYM
4237 @ 40861:                  CALL  

   668      ->T2 %IF TERM # 0
4238 @ 40862:                  LINE   668 "regression-compile-tmp/hal7502.imp"
4239 @ 40900:                  PUSH   TERM
4240 @ 40903:                  PUSHI  #0x00000000
4241 @ 40908:                  JUMPIF = L_0004
4242 @ 40912:                  JUMP   L_00da
4243 @ 40915:                  LOCATE L_0004

   669      J = (K<<3+K)<<2+K+111+J;       !J+K*37+111
4244 @ 40918:                  LINE   669 "regression-compile-tmp/hal7502.imp"
4245 @ 40956:                  PUSH   J
4246 @ 40959:                  PUSH   K
4247 @ 40962:                  PUSHI  #0x00000003
4248 @ 40967:                  LSH   
4249 @ 40968:                  PUSH   K
4250 @ 40971:                  ADD   
4251 @ 40972:                  PUSHI  #0x00000002
4252 @ 40977:                  LSH   
4253 @ 40978:                  PUSH   K
4254 @ 40981:                  ADD   
4255 @ 40982:                  PUSHI  #0x0000006f
4256 @ 40987:                  ADD   
4257 @ 40988:                  PUSH   J
4258 @ 40991:                  ADD   
4259 @ 40992:                  ASSVAL

   670      CODE SYM
4260 @ 40993:                  LINE   670 "regression-compile-tmp/hal7502.imp"
4261 @ 41031:                  PUSH   CODESYM
4262 @ 41034:                  CALL  

   671      ->T3 %IF TERM # 0
4263 @ 41035:                  LINE   671 "regression-compile-tmp/hal7502.imp"
4264 @ 41073:                  PUSH   TERM
4265 @ 41076:                  PUSHI  #0x00000000
4266 @ 41081:                  JUMPIF = L_0004
4267 @ 41085:                  JUMP   L_00db
4268 @ 41088:                  LOCATE L_0004

   672      J = J+K+11
4269 @ 41091:                  LINE   672 "regression-compile-tmp/hal7502.imp"
4270 @ 41129:                  PUSH   J
4271 @ 41132:                  PUSH   J
4272 @ 41135:                  PUSH   K
4273 @ 41138:                  ADD   
4274 @ 41139:                  PUSHI  #0x0000000b
4275 @ 41144:                  ADD   
4276 @ 41145:                  ASSVAL

   673      CODE SYM
4277 @ 41146:                  LINE   673 "regression-compile-tmp/hal7502.imp"
4278 @ 41184:                  PUSH   CODESYM
4279 @ 41187:                  CALL  

   674      %RETURN
4280 @ 41188:                  LINE   674 "regression-compile-tmp/hal7502.imp"
4281 @ 41226:                  RETURN

   675  T1: J = ((K<<1+K)<<1+K)<<4-K+1;    !K*111+1
4282 @ 41227:                  LINE   675 "regression-compile-tmp/hal7502.imp"
4283 @ 41265:                  LABEL  L_00d9
4284 @ 41268:                  LINE   675 "regression-compile-tmp/hal7502.imp"
4285 @ 41306:                  PUSH   J
4286 @ 41309:                  PUSH   K
4287 @ 41312:                  PUSHI  #0x00000001
4288 @ 41317:                  LSH   
4289 @ 41318:                  PUSH   K
4290 @ 41321:                  ADD   
4291 @ 41322:                  PUSHI  #0x00000001
4292 @ 41327:                  LSH   
4293 @ 41328:                  PUSH   K
4294 @ 41331:                  ADD   
4295 @ 41332:                  PUSHI  #0x00000004
4296 @ 41337:                  LSH   
4297 @ 41338:                  PUSH   K
4298 @ 41341:                  SUB   
4299 @ 41342:                  PUSHI  #0x00000001
4300 @ 41347:                  ADD   
4301 @ 41348:                  ASSVAL

   676      CODE SYM
4302 @ 41349:                  LINE   676 "regression-compile-tmp/hal7502.imp"
4303 @ 41387:                  PUSH   CODESYM
4304 @ 41390:                  CALL  

   677  T2: %RETURN %IF TERM > 0
4305 @ 41391:                  LINE   677 "regression-compile-tmp/hal7502.imp"
4306 @ 41429:                  LABEL  L_00da
4307 @ 41432:                  LINE   677 "regression-compile-tmp/hal7502.imp"
4308 @ 41470:                  PUSH   TERM
4309 @ 41473:                  PUSHI  #0x00000000
4310 @ 41478:                  JUMPIF <= L_0004
4311 @ 41482:                  RETURN
4312 @ 41483:                  LOCATE L_0004

   678      J = (K<<2+K)<<1+K+1+J;         !J+K*11+1
4313 @ 41486:                  LINE   678 "regression-compile-tmp/hal7502.imp"
4314 @ 41524:                  PUSH   J
4315 @ 41527:                  PUSH   K
4316 @ 41530:                  PUSHI  #0x00000002
4317 @ 41535:                  LSH   
4318 @ 41536:                  PUSH   K
4319 @ 41539:                  ADD   
4320 @ 41540:                  PUSHI  #0x00000001
4321 @ 41545:                  LSH   
4322 @ 41546:                  PUSH   K
4323 @ 41549:                  ADD   
4324 @ 41550:                  PUSHI  #0x00000001
4325 @ 41555:                  ADD   
4326 @ 41556:                  PUSH   J
4327 @ 41559:                  ADD   
4328 @ 41560:                  ASSVAL

   679      CODE SYM
4329 @ 41561:                  LINE   679 "regression-compile-tmp/hal7502.imp"
4330 @ 41599:                  PUSH   CODESYM
4331 @ 41602:                  CALL  

   680  T3: %RETURN %IF TERM > 0
4332 @ 41603:                  LINE   680 "regression-compile-tmp/hal7502.imp"
4333 @ 41641:                  LABEL  L_00db
4334 @ 41644:                  LINE   680 "regression-compile-tmp/hal7502.imp"
4335 @ 41682:                  PUSH   TERM
4336 @ 41685:                  PUSHI  #0x00000000
4337 @ 41690:                  JUMPIF <= L_0004
4338 @ 41694:                  RETURN
4339 @ 41695:                  LOCATE L_0004

   681      J = J+K+1
4340 @ 41698:                  LINE   681 "regression-compile-tmp/hal7502.imp"
4341 @ 41736:                  PUSH   J
4342 @ 41739:                  PUSH   J
4343 @ 41742:                  PUSH   K
4344 @ 41745:                  ADD   
4345 @ 41746:                  PUSHI  #0x00000001
4346 @ 41751:                  ADD   
4347 @ 41752:                  ASSVAL

   682      CODE SYM
4348 @ 41753:                  LINE   682 "regression-compile-tmp/hal7502.imp"
4349 @ 41791:                  PUSH   CODESYM
4350 @ 41794:                  CALL  

   683      %END
4351 @ 41795:                  LINE   683 "regression-compile-tmp/hal7502.imp"
4352 @ 41833:               END    _lev0id0_TAG_PACKTRIPLE {lev=3 --> 2}

   684      K = SYM-'A'
4353 @ 41834:               LINE   684 "regression-compile-tmp/hal7502.imp"
4354 @ 41872:               PUSH   K
4355 @ 41875:               PUSH   SYM
4356 @ 41878:               PUSHI  #0x00000041
4357 @ 41883:               SUB   
4358 @ 41884:               ASSVAL

   685      %FALSE %UNLESS K >= 0 %AND K < 26
4359 @ 41885:               LINE   685 "regression-compile-tmp/hal7502.imp"
4360 @ 41923:               PUSH   K
4361 @ 41926:               PUSHI  #0x00000000
4362 @ 41931:               JUMPIF < L_0005
4363 @ 41935:               PUSH   K
4364 @ 41938:               PUSHI  #0x0000001a
4365 @ 41943:               JUMPIF < L_0004
4366 @ 41947:               LOCATE L_0005
4367 @ 41950:               FALSE 
4368 @ 41951:               LOCATE L_0004

   686      %FALSE %IF SYM = 'X' %AND CHAR(GETPOS)&128 # 0
4369 @ 41954:               LINE   686 "regression-compile-tmp/hal7502.imp"
4370 @ 41992:               PUSH   SYM
4371 @ 41995:               PUSHI  #0x00000058
4372 @ 42000:               JUMPIF # L_0004
4373 @ 42004:               PUSH   CHAR
4374 @ 42007:               PUSH   GETPOS
4375 @ 42010:               ASSPAR
4376 @ 42011:               CALL  
4377 @ 42012:               PUSHI  #0x00000080
4378 @ 42017:               AND   
4379 @ 42018:               PUSHI  #0x00000000
4380 @ 42023:               JUMPIF = L_0004
4381 @ 42027:               FALSE 
4382 @ 42028:               LOCATE L_0004

   687      TERM = 0
4383 @ 42031:               LINE   687 "regression-compile-tmp/hal7502.imp"
4384 @ 42069:               PUSH   TERM
4385 @ 42072:               PUSHI  #0x00000000
4386 @ 42077:               ASSVAL

   688      PACK TRIPLE
4387 @ 42078:               LINE   688 "regression-compile-tmp/hal7502.imp"
4388 @ 42116:               PUSH   PACKTRIPLE
4389 @ 42119:               CALL  

   689      TAG1 = J;  J = 0
4390 @ 42120:               LINE   689 "regression-compile-tmp/hal7502.imp"
4391 @ 42158:               PUSH   TAG1
4392 @ 42161:               PUSH   J
4393 @ 42164:               ASSVAL
4394 @ 42165:               LINE   689 "regression-compile-tmp/hal7502.imp"
4395 @ 42203:               PUSH   J
4396 @ 42206:               PUSHI  #0x00000000
4397 @ 42211:               ASSVAL

   690      PACK TRIPLE %IF TERM <= 0
4398 @ 42212:               LINE   690 "regression-compile-tmp/hal7502.imp"
4399 @ 42250:               PUSH   TERM
4400 @ 42253:               PUSHI  #0x00000000
4401 @ 42258:               JUMPIF > L_0004
4402 @ 42262:               PUSH   PACKTRIPLE
4403 @ 42265:               CALL  
4404 @ 42266:               LOCATE L_0004

   691      TAG2 = J
4405 @ 42269:               LINE   691 "regression-compile-tmp/hal7502.imp"
4406 @ 42307:               PUSH   TAG2
4407 @ 42310:               PUSH   J
4408 @ 42313:               ASSVAL

   692      CODE SYM %WHILE TERM <= 0
4409 @ 42314:               LINE   692 "regression-compile-tmp/hal7502.imp"
4410 @ 42352:               LOCATE L_0003
4411 @ 42355:               PUSH   TERM
4412 @ 42358:               PUSHI  #0x00000000
4413 @ 42363:               JUMPIF > L_0004
4414 @ 42367:               PUSH   CODESYM
4415 @ 42370:               CALL  
4416 @ 42371:               REPEAT L_0003
4417 @ 42374:               LOCATE L_0004

   693      GET SYM %IF TERM = ' '
4418 @ 42377:               LINE   693 "regression-compile-tmp/hal7502.imp"
4419 @ 42415:               PUSH   TERM
4420 @ 42418:               PUSHI  #0x00000020
4421 @ 42423:               JUMPIF # L_0004
4422 @ 42427:               PUSH   GETSYM
4423 @ 42430:               CALL  
4424 @ 42431:               LOCATE L_0004

   694      %TRUE
4425 @ 42434:               LINE   694 "regression-compile-tmp/hal7502.imp"
4426 @ 42472:               TRUE  

   695  %END
   696  
4427 @ 42473:               LINE   695 "regression-compile-tmp/hal7502.imp"
4428 @ 42511:            END    _lev0id0_TAG {lev=2 --> 1}

   697  %PREDICATE TAGIF
4429 @ 42512:            LINE   697 "regression-compile-tmp/hal7502.imp"
4430 @ 42550:            DEF    TAGIF (_lev0id0_TAGIF) p1=V_00d5 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
4431 @ 42567:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4432 @ 42568:               FINISH ) {lev=2}

   698      %FALSE %UNLESS SYM='I' %AND CHAR(GETPOS)='F' %AND CHAR(GETPOS+1)=' '
4433 @ 42569:               LINE   698 "regression-compile-tmp/hal7502.imp"
4434 @ 42607:               PUSH   SYM
4435 @ 42610:               PUSHI  #0x00000049
4436 @ 42615:               JUMPIF # L_0005
4437 @ 42619:               PUSH   CHAR
4438 @ 42622:               PUSH   GETPOS
4439 @ 42625:               ASSPAR
4440 @ 42626:               CALL  
4441 @ 42627:               PUSHI  #0x00000046
4442 @ 42632:               JUMPIF # L_0005
4443 @ 42636:               PUSH   CHAR
4444 @ 42639:               PUSH   GETPOS
4445 @ 42642:               PUSHI  #0x00000001
4446 @ 42647:               ADD   
4447 @ 42648:               ASSPAR
4448 @ 42649:               CALL  
4449 @ 42650:               PUSHI  #0x00000020
4450 @ 42655:               JUMPIF = L_0004
4451 @ 42659:               LOCATE L_0005
4452 @ 42662:               FALSE 
4453 @ 42663:               LOCATE L_0004

   699      GETPOS = GETPOS+2
4454 @ 42666:               LINE   699 "regression-compile-tmp/hal7502.imp"
4455 @ 42704:               PUSH   GETPOS
4456 @ 42707:               PUSH   GETPOS
4457 @ 42710:               PUSHI  #0x00000002
4458 @ 42715:               ADD   
4459 @ 42716:               ASSVAL

   700      GET SYM
4460 @ 42717:               LINE   700 "regression-compile-tmp/hal7502.imp"
4461 @ 42755:               PUSH   GETSYM
4462 @ 42758:               CALL  

   701      %TRUE
4463 @ 42759:               LINE   701 "regression-compile-tmp/hal7502.imp"
4464 @ 42797:               TRUE  

   702  %END
   703  
4465 @ 42798:               LINE   702 "regression-compile-tmp/hal7502.imp"
4466 @ 42836:            END    _lev0id0_TAGIF {lev=2 --> 1}

   704  %ROUTINE LOOKUP(%INTEGER CONTROL)
   705  !ALL DICT OPERATIONS LOCALISED HERE
   706  !CONTROL = 0 (LOOKUP ONLY), 1 (FORWARD OK),
   707  !          2 (REDEF), 3 (DEF),
   708  !          4 (MACPARM), 7 (LABEL)
4467 @ 42837:            LINE   704 "regression-compile-tmp/hal7502.imp"
4468 @ 42875:            DEF    LOOKUP (_lev0id0_LOOKUP) 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
4469 @ 42893:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4470 @ 42894:                  DEF    CONTROL 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
4471 @ 42913:               FINISH ) {lev=2}

   709  %INTEGER DP
4472 @ 42914:               LINE   709 "regression-compile-tmp/hal7502.imp"
4473 @ 42952:               DEF    DP 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

   710      DP = DEFMIN;  DP = MP+5 %IF CONTROL = 4
4474 @ 42966:               LINE   710 "regression-compile-tmp/hal7502.imp"
4475 @ 43004:               PUSH   DP
4476 @ 43007:               PUSH   DEFMIN
4477 @ 43010:               ASSVAL
4478 @ 43011:               LINE   710 "regression-compile-tmp/hal7502.imp"
4479 @ 43049:               PUSH   CONTROL
4480 @ 43052:               PUSHI  #0x00000004
4481 @ 43057:               JUMPIF # L_0004
4482 @ 43061:               PUSH   DP
4483 @ 43064:               PUSH   MP
4484 @ 43067:               PUSHI  #0x00000005
4485 @ 43072:               ADD   
4486 @ 43073:               ASSVAL
4487 @ 43074:               LOCATE L_0004

   711      %WHILE INTEGER(DP) # 0 %CYCLE
4488 @ 43077:               LINE   711 "regression-compile-tmp/hal7502.imp"
4489 @ 43115:               LOCATE L_0003
4490 @ 43118:               PUSH   INTEGER
4491 @ 43121:               PUSH   DP
4492 @ 43124:               ASSPAR
4493 @ 43125:               CALL  
4494 @ 43126:               PUSHI  #0x00000000
4495 @ 43131:               JUMPIF = L_0004

   712         ->YES %IF INTEGER(DP) = TAG1 %AND INTEGER(DP+1) = TAG2
4496 @ 43135:               LINE   712 "regression-compile-tmp/hal7502.imp"
4497 @ 43173:               PUSH   INTEGER
4498 @ 43176:               PUSH   DP
4499 @ 43179:               ASSPAR
4500 @ 43180:               CALL  
4501 @ 43181:               PUSH   TAG1
4502 @ 43184:               JUMPIF # L_0007
4503 @ 43188:               PUSH   INTEGER
4504 @ 43191:               PUSH   DP
4505 @ 43194:               PUSHI  #0x00000001
4506 @ 43199:               ADD   
4507 @ 43200:               ASSPAR
4508 @ 43201:               CALL  
4509 @ 43202:               PUSH   TAG2
4510 @ 43205:               JUMPIF # L_0007
4511 @ 43209:               JUMP   L_00d9
4512 @ 43212:               LOCATE L_0007

   713         DP = DP+4
4513 @ 43215:               LINE   713 "regression-compile-tmp/hal7502.imp"
4514 @ 43253:               PUSH   DP
4515 @ 43256:               PUSH   DP
4516 @ 43259:               PUSHI  #0x00000004
4517 @ 43264:               ADD   
4518 @ 43265:               ASSVAL

   714      %REPEAT
   715  !!%OWNINTEGER P
   716  !!    DP = DP-4
   717  !!REP:DP = DP+4
   718  !!    %LAC* DP; %OPR 640;!SNA; %JMP NO
   719  !!    %SAD TAG1; %OPR 512; %JMP REP
   720  !!    %LAC DP; %TAD #1; %DAC P
   721  !!    %LAC* P; %SAD TAG2; %JMP YES
   722  !!    ->REP
4519 @ 43266:               LINE   714 "regression-compile-tmp/hal7502.imp"
4520 @ 43304:               REPEAT L_0003
4521 @ 43307:               LOCATE L_0004

   723  NO:
4522 @ 43310:               LINE   723 "regression-compile-tmp/hal7502.imp"
4523 @ 43348:               LABEL  L_00da

   724      %RETURN %IF CONTROL&1 = 0;        !NO CREATION
4524 @ 43351:               LINE   724 "regression-compile-tmp/hal7502.imp"
4525 @ 43389:               PUSH   CONTROL
4526 @ 43392:               PUSHI  #0x00000001
4527 @ 43397:               AND   
4528 @ 43398:               PUSHI  #0x00000000
4529 @ 43403:               JUMPIF # L_0004
4530 @ 43407:               RETURN
4531 @ 43408:               LOCATE L_0004

   725  NEW:DEFMIN = DEFMIN-4;  DP = DEFMIN
   726      !!%MONITOR 21 %IF DP-QLIM <= 0
4532 @ 43411:               LINE   725 "regression-compile-tmp/hal7502.imp"
4533 @ 43449:               LABEL  L_00db
4534 @ 43452:               LINE   725 "regression-compile-tmp/hal7502.imp"
4535 @ 43490:               PUSH   DEFMIN
4536 @ 43493:               PUSH   DEFMIN
4537 @ 43496:               PUSHI  #0x00000004
4538 @ 43501:               SUB   
4539 @ 43502:               ASSVAL
4540 @ 43503:               LINE   725 "regression-compile-tmp/hal7502.imp"
4541 @ 43541:               PUSH   DP
4542 @ 43544:               PUSH   DEFMIN
4543 @ 43547:               ASSVAL

   727      INTEGER(DP) = TAG1;  INTEGER(DP+1) = TAG2
4544 @ 43548:               LINE   727 "regression-compile-tmp/hal7502.imp"
4545 @ 43586:               PUSH   INTEGER
4546 @ 43589:               PUSH   DP
4547 @ 43592:               ASSPAR
4548 @ 43593:               CALL  
4549 @ 43594:               PUSH   TAG1
4550 @ 43597:               ASSVAL
4551 @ 43598:               LINE   727 "regression-compile-tmp/hal7502.imp"
4552 @ 43636:               PUSH   INTEGER
4553 @ 43639:               PUSH   DP
4554 @ 43642:               PUSHI  #0x00000001
4555 @ 43647:               ADD   
4556 @ 43648:               ASSPAR
4557 @ 43649:               CALL  
4558 @ 43650:               PUSH   TAG2
4559 @ 43653:               ASSVAL

   728  SET:INTEGER(DP+2) = TYPE;  INTEGER(DP+3) = VAL
4560 @ 43654:               LINE   728 "regression-compile-tmp/hal7502.imp"
4561 @ 43692:               LABEL  L_00dc
4562 @ 43695:               LINE   728 "regression-compile-tmp/hal7502.imp"
4563 @ 43733:               PUSH   INTEGER
4564 @ 43736:               PUSH   DP
4565 @ 43739:               PUSHI  #0x00000002
4566 @ 43744:               ADD   
4567 @ 43745:               ASSPAR
4568 @ 43746:               CALL  
4569 @ 43747:               PUSH   TYPE
4570 @ 43750:               ASSVAL
4571 @ 43751:               LINE   728 "regression-compile-tmp/hal7502.imp"
4572 @ 43789:               PUSH   INTEGER
4573 @ 43792:               PUSH   DP
4574 @ 43795:               PUSHI  #0x00000003
4575 @ 43800:               ADD   
4576 @ 43801:               ASSPAR
4577 @ 43802:               CALL  
4578 @ 43803:               PUSH   VAL
4579 @ 43806:               ASSVAL

   729      %RETURN
4580 @ 43807:               LINE   729 "regression-compile-tmp/hal7502.imp"
4581 @ 43845:               RETURN

   730  YES:->NEW %IF CONTROL = 3 %AND DP-INTEGER(BP) >= 0
4582 @ 43846:               LINE   730 "regression-compile-tmp/hal7502.imp"
4583 @ 43884:               LABEL  L_00d9
4584 @ 43887:               LINE   730 "regression-compile-tmp/hal7502.imp"
4585 @ 43925:               PUSH   CONTROL
4586 @ 43928:               PUSHI  #0x00000003
4587 @ 43933:               JUMPIF # L_0004
4588 @ 43937:               PUSH   DP
4589 @ 43940:               PUSH   INTEGER
4590 @ 43943:               PUSH   BP
4591 @ 43946:               ASSPAR
4592 @ 43947:               CALL  
4593 @ 43948:               SUB   
4594 @ 43949:               PUSHI  #0x00000000
4595 @ 43954:               JUMPIF < L_0004
4596 @ 43958:               JUMP   L_00db
4597 @ 43961:               LOCATE L_0004

   731      %IF CONTROL&2 = 0 %START;         !NOT DEF CLASS
4598 @ 43964:               LINE   731 "regression-compile-tmp/hal7502.imp"
4599 @ 44002:               PUSH   CONTROL
4600 @ 44005:               PUSHI  #0x00000002
4601 @ 44010:               AND   
4602 @ 44011:               PUSHI  #0x00000000
4603 @ 44016:               JUMPIF # L_0004

   732      TYPE = INTEGER(DP+2);  VAL = INTEGER(DP+3)
4604 @ 44020:               LINE   732 "regression-compile-tmp/hal7502.imp"
4605 @ 44058:               PUSH   TYPE
4606 @ 44061:               PUSH   INTEGER
4607 @ 44064:               PUSH   DP
4608 @ 44067:               PUSHI  #0x00000002
4609 @ 44072:               ADD   
4610 @ 44073:               ASSPAR
4611 @ 44074:               CALL  
4612 @ 44075:               ASSVAL
4613 @ 44076:               LINE   732 "regression-compile-tmp/hal7502.imp"
4614 @ 44114:               PUSH   VAL
4615 @ 44117:               PUSH   INTEGER
4616 @ 44120:               PUSH   DP
4617 @ 44123:               PUSHI  #0x00000003
4618 @ 44128:               ADD   
4619 @ 44129:               ASSPAR
4620 @ 44130:               CALL  
4621 @ 44131:               ASSVAL

   733      %RETURN %UNLESS TYPE&OPMASK = MACRO %AND CONTROL = 0
4622 @ 44132:               LINE   733 "regression-compile-tmp/hal7502.imp"
4623 @ 44170:               PUSH   TYPE
4624 @ 44173:               PUSH   OPMASK
4625 @ 44176:               AND   
4626 @ 44177:               PUSH   MACRO
4627 @ 44180:               JUMPIF # L_0008
4628 @ 44184:               PUSH   CONTROL
4629 @ 44187:               PUSHI  #0x00000000
4630 @ 44192:               JUMPIF = L_0007
4631 @ 44196:               LOCATE L_0008
4632 @ 44199:               RETURN
4633 @ 44200:               LOCATE L_0007

   734      %IF TYPE&31#25 %THEN INTEGER(DP+2)=TYPE+1 %ELSE INTEGER(DP+2) = TYPE+7
4634 @ 44203:               LINE   734 "regression-compile-tmp/hal7502.imp"
4635 @ 44241:               PUSH   TYPE
4636 @ 44244:               PUSHI  #0x0000001f
4637 @ 44249:               AND   
4638 @ 44250:               PUSHI  #0x00000019
4639 @ 44255:               JUMPIF = L_0007
4640 @ 44259:               PUSH   INTEGER
4641 @ 44262:               PUSH   DP
4642 @ 44265:               PUSHI  #0x00000002
4643 @ 44270:               ADD   
4644 @ 44271:               ASSPAR
4645 @ 44272:               CALL  
4646 @ 44273:               PUSH   TYPE
4647 @ 44276:               PUSHI  #0x00000001
4648 @ 44281:               ADD   
4649 @ 44282:               ASSVAL
4650 @ 44283:               GOTO   L_0006
4651 @ 44286:               LOCATE L_0007
4652 @ 44289:               PUSH   INTEGER
4653 @ 44292:               PUSH   DP
4654 @ 44295:               PUSHI  #0x00000002
4655 @ 44300:               ADD   
4656 @ 44301:               ASSPAR
4657 @ 44302:               CALL  
4658 @ 44303:               PUSH   TYPE
4659 @ 44306:               PUSHI  #0x00000007
4660 @ 44311:               ADD   
4661 @ 44312:               ASSVAL
4662 @ 44313:               LOCATE L_0006

   735      %RETURN
4663 @ 44316:               LINE   735 "regression-compile-tmp/hal7502.imp"
4664 @ 44354:               RETURN

   736      %FINISH
4665 @ 44355:               LINE   736 "regression-compile-tmp/hal7502.imp"
4666 @ 44393:               LOCATE L_0004

   737      FAULT('D') %IF CONTROL = 3
4667 @ 44396:               LINE   737 "regression-compile-tmp/hal7502.imp"
4668 @ 44434:               PUSH   CONTROL
4669 @ 44437:               PUSHI  #0x00000003
4670 @ 44442:               JUMPIF # L_0004
4671 @ 44446:               PUSH   FAULT
4672 @ 44449:               PUSHI  #0x00000044
4673 @ 44454:               ASSPAR
4674 @ 44455:               CALL  
4675 @ 44456:               LOCATE L_0004

   738      ->SET %IF CONTROL # 7
4676 @ 44459:               LINE   738 "regression-compile-tmp/hal7502.imp"
4677 @ 44497:               PUSH   CONTROL
4678 @ 44500:               PUSHI  #0x00000007
4679 @ 44505:               JUMPIF = L_0004
4680 @ 44509:               JUMP   L_00dc
4681 @ 44512:               LOCATE L_0004

   739      %IF INTEGER(DP+2)&(OPMASK+FMASK) = FMASK %START
4682 @ 44515:               LINE   739 "regression-compile-tmp/hal7502.imp"
4683 @ 44553:               PUSH   INTEGER
4684 @ 44556:               PUSH   DP
4685 @ 44559:               PUSHI  #0x00000002
4686 @ 44564:               ADD   
4687 @ 44565:               ASSPAR
4688 @ 44566:               CALL  
4689 @ 44567:               PUSH   OPMASK
4690 @ 44570:               PUSH   FMASK
4691 @ 44573:               ADD   
4692 @ 44574:               AND   
4693 @ 44575:               PUSH   FMASK
4694 @ 44578:               JUMPIF # L_0004

   740      VAL = INTEGER(DP+3)
4695 @ 44582:               LINE   740 "regression-compile-tmp/hal7502.imp"
4696 @ 44620:               PUSH   VAL
4697 @ 44623:               PUSH   INTEGER
4698 @ 44626:               PUSH   DP
4699 @ 44629:               PUSHI  #0x00000003
4700 @ 44634:               ADD   
4701 @ 44635:               ASSPAR
4702 @ 44636:               CALL  
4703 @ 44637:               ASSVAL

   741      %IF PASS = 0 %START
4704 @ 44638:               LINE   741 "regression-compile-tmp/hal7502.imp"
4705 @ 44676:               PUSH   PASS
4706 @ 44679:               PUSHI  #0x00000000
4707 @ 44684:               JUMPIF # L_0007

   742      INTEGER(VAL) = LOC
4708 @ 44688:               LINE   742 "regression-compile-tmp/hal7502.imp"
4709 @ 44726:               PUSH   INTEGER
4710 @ 44729:               PUSH   VAL
4711 @ 44732:               ASSPAR
4712 @ 44733:               CALL  
4713 @ 44734:               PUSH   LOC
4714 @ 44737:               ASSVAL

   743      %finish %ELSE  %START
4715 @ 44738:               LINE   743 "regression-compile-tmp/hal7502.imp"
4716 @ 44776:               GOTO   L_0006
4717 @ 44779:               LOCATE L_0007

   744      FAULT('P') %AND LOC=INTEGER(VAL) %IF INTEGER(VAL) # LOC
4718 @ 44782:               LINE   744 "regression-compile-tmp/hal7502.imp"
4719 @ 44820:               PUSH   INTEGER
4720 @ 44823:               PUSH   VAL
4721 @ 44826:               ASSPAR
4722 @ 44827:               CALL  
4723 @ 44828:               PUSH   LOC
4724 @ 44831:               JUMPIF = L_000a
4725 @ 44835:               PUSH   FAULT
4726 @ 44838:               PUSHI  #0x00000050
4727 @ 44843:               ASSPAR
4728 @ 44844:               CALL  
4729 @ 44845:               PUSH   LOC
4730 @ 44848:               PUSH   INTEGER
4731 @ 44851:               PUSH   VAL
4732 @ 44854:               ASSPAR
4733 @ 44855:               CALL  
4734 @ 44856:               ASSVAL
4735 @ 44857:               LOCATE L_000a

   745      %FINISH
4736 @ 44860:               LINE   745 "regression-compile-tmp/hal7502.imp"
4737 @ 44898:               LOCATE L_0006

   746      VAL = LOC
4738 @ 44901:               LINE   746 "regression-compile-tmp/hal7502.imp"
4739 @ 44939:               PUSH   VAL
4740 @ 44942:               PUSH   LOC
4741 @ 44945:               ASSVAL

   747      %finish %ELSE  %START
4742 @ 44946:               LINE   747 "regression-compile-tmp/hal7502.imp"
4743 @ 44984:               GOTO   L_0003
4744 @ 44987:               LOCATE L_0004

   748      ->NEW %IF DP-INTEGER(BP) >= 0
4745 @ 44990:               LINE   748 "regression-compile-tmp/hal7502.imp"
4746 @ 45028:               PUSH   DP
4747 @ 45031:               PUSH   INTEGER
4748 @ 45034:               PUSH   BP
4749 @ 45037:               ASSPAR
4750 @ 45038:               CALL  
4751 @ 45039:               SUB   
4752 @ 45040:               PUSHI  #0x00000000
4753 @ 45045:               JUMPIF < L_0007
4754 @ 45049:               JUMP   L_00db
4755 @ 45052:               LOCATE L_0007

   749      FAULT('D')
4756 @ 45055:               LINE   749 "regression-compile-tmp/hal7502.imp"
4757 @ 45093:               PUSH   FAULT
4758 @ 45096:               PUSHI  #0x00000044
4759 @ 45101:               ASSPAR
4760 @ 45102:               CALL  

   750      %FINISH
4761 @ 45103:               LINE   750 "regression-compile-tmp/hal7502.imp"
4762 @ 45141:               LOCATE L_0003

   751      ->SET
4763 @ 45144:               LINE   751 "regression-compile-tmp/hal7502.imp"
4764 @ 45182:               JUMP   L_00dc

   752  %END
   753  
4765 @ 45185:               LINE   752 "regression-compile-tmp/hal7502.imp"
4766 @ 45223:            END    _lev0id0_LOOKUP {lev=2 --> 1}

   754  %ROUTINE QUEUE(%INTEGER K)
4767 @ 45224:            LINE   754 "regression-compile-tmp/hal7502.imp"
4768 @ 45262:            DEF    QUEUE (_lev0id0_QUEUE) 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
4769 @ 45279:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4770 @ 45280:                  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
4771 @ 45293:               FINISH ) {lev=2}

   755      INTEGER(QLIM) = K
4772 @ 45294:               LINE   755 "regression-compile-tmp/hal7502.imp"
4773 @ 45332:               PUSH   INTEGER
4774 @ 45335:               PUSH   QLIM
4775 @ 45338:               ASSPAR
4776 @ 45339:               CALL  
4777 @ 45340:               PUSH   K
4778 @ 45343:               ASSVAL

   756      QLIM = QLIM+1;  !!%MONITOR 21 %IF QLIM = DEFMIN
4779 @ 45344:               LINE   756 "regression-compile-tmp/hal7502.imp"
4780 @ 45382:               PUSH   QLIM
4781 @ 45385:               PUSH   QLIM
4782 @ 45388:               PUSHI  #0x00000001
4783 @ 45393:               ADD   
4784 @ 45394:               ASSVAL

   757  %END
   758  
4785 @ 45395:               LINE   757 "regression-compile-tmp/hal7502.imp"
4786 @ 45433:            END    _lev0id0_QUEUE {lev=2 --> 1}

   759  %ROUTINE GET EXP
4787 @ 45434:            LINE   759 "regression-compile-tmp/hal7502.imp"
4788 @ 45472:            DEF    GETEXP (_lev0id0_GETEXP) 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
4789 @ 45490:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
4790 @ 45491:               FINISH ) {lev=2}

   760  %OWNINTEGER W=24717
4791 @ 45492:               LINE   760 "regression-compile-tmp/hal7502.imp"
4792 @ 45530:               PUSHI  #0x0000608d
4793 @ 45535:               DEF    W p1=V_00d9 a/tf=11 b/format=1 c/ostate=21  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=1 (own) spec=0 indirect=0 unass=1
4794 @ 45548:               INIT   1

   761  %INTEGER I,NBASE
   762  
4795 @ 45551:               LINE   761 "regression-compile-tmp/hal7502.imp"
4796 @ 45589:               DEF    I 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
4797 @ 45602:               DEF    NBASE 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

   763      NBASE = NP
4798 @ 45619:               LINE   763 "regression-compile-tmp/hal7502.imp"
4799 @ 45657:               PUSH   NBASE
4800 @ 45660:               PUSH   NP
4801 @ 45663:               ASSVAL

   764      ->E3 %IF PEND # 0
4802 @ 45664:               LINE   764 "regression-compile-tmp/hal7502.imp"
4803 @ 45702:               PUSH   PEND
4804 @ 45705:               PUSHI  #0x00000000
4805 @ 45710:               JUMPIF = L_0004
4806 @ 45714:               JUMP   L_00dc
4807 @ 45717:               LOCATE L_0004

   765  E1: NEST(0) %WHILE S('(')
4808 @ 45720:               LINE   765 "regression-compile-tmp/hal7502.imp"
4809 @ 45758:               LABEL  L_00dd
4810 @ 45761:               LINE   765 "regression-compile-tmp/hal7502.imp"
4811 @ 45799:               LOCATE L_0003
4812 @ 45802:               PUSH   S
4813 @ 45805:               PUSHI  #0x00000028
4814 @ 45810:               ASSPAR
4815 @ 45811:               CALL  
4816 @ 45812:               bf     L_0004
4817 @ 45815:               PUSH   NEST
4818 @ 45818:               PUSHI  #0x00000000
4819 @ 45823:               ASSPAR
4820 @ 45824:               CALL  
4821 @ 45825:               REPEAT L_0003
4822 @ 45828:               LOCATE L_0004

   766      NEST(-20) %IF S('#')
4823 @ 45831:               LINE   766 "regression-compile-tmp/hal7502.imp"
4824 @ 45869:               PUSH   S
4825 @ 45872:               PUSHI  #0x00000023
4826 @ 45877:               ASSPAR
4827 @ 45878:               CALL  
4828 @ 45879:               bf     L_0004
4829 @ 45882:               PUSH   NEST
4830 @ 45885:               PUSHI  #0x00000014
4831 @ 45890:               NEGATE
4832 @ 45891:               ASSPAR
4833 @ 45892:               CALL  
4834 @ 45893:               LOCATE L_0004

   767      %IF TAG %START
4835 @ 45896:               LINE   767 "regression-compile-tmp/hal7502.imp"
4836 @ 45934:               PUSH   TAG
4837 @ 45937:               CALL  
4838 @ 45938:               bf     L_0004

   768  E3: %IF TAG1 = W %START;          !W
4839 @ 45941:               LINE   768 "regression-compile-tmp/hal7502.imp"
4840 @ 45979:               LABEL  L_00dc
4841 @ 45982:               LINE   768 "regression-compile-tmp/hal7502.imp"
4842 @ 46020:               PUSH   TAG1
4843 @ 46023:               PUSH   W
4844 @ 46026:               JUMPIF # L_0007

   769      TYPE = 0;  VAL = 0
4845 @ 46030:               LINE   769 "regression-compile-tmp/hal7502.imp"
4846 @ 46068:               PUSH   TYPE
4847 @ 46071:               PUSHI  #0x00000000
4848 @ 46076:               ASSVAL
4849 @ 46077:               LINE   769 "regression-compile-tmp/hal7502.imp"
4850 @ 46115:               PUSH   VAL
4851 @ 46118:               PUSHI  #0x00000000
4852 @ 46123:               ASSVAL

   770      %finish %ELSE  %START
4853 @ 46124:               LINE   770 "regression-compile-tmp/hal7502.imp"
4854 @ 46162:               GOTO   L_0006
4855 @ 46165:               LOCATE L_0007

   771      %IF PEND >= 0 %START
4856 @ 46168:               LINE   771 "regression-compile-tmp/hal7502.imp"
4857 @ 46206:               PUSH   PEND
4858 @ 46209:               PUSHI  #0x00000000
4859 @ 46214:               JUMPIF < L_000a

   772      TYPE = LOCTYPE+FMASK+UMASK;  VAL = LABMIN-1
4860 @ 46218:               LINE   772 "regression-compile-tmp/hal7502.imp"
4861 @ 46256:               PUSH   TYPE
4862 @ 46259:               PUSH   LOCTYPE
4863 @ 46262:               PUSH   FMASK
4864 @ 46265:               ADD   
4865 @ 46266:               PUSH   UMASK
4866 @ 46269:               ADD   
4867 @ 46270:               ASSVAL
4868 @ 46271:               LINE   772 "regression-compile-tmp/hal7502.imp"
4869 @ 46309:               PUSH   VAL
4870 @ 46312:               PUSH   LABMIN
4871 @ 46315:               PUSHI  #0x00000001
4872 @ 46320:               SUB   
4873 @ 46321:               ASSVAL

   773      LOOKUP(1)
4874 @ 46322:               LINE   773 "regression-compile-tmp/hal7502.imp"
4875 @ 46360:               PUSH   LOOKUP
4876 @ 46363:               PUSHI  #0x00000001
4877 @ 46368:               ASSPAR
4878 @ 46369:               CALL  

   774      %IF TYPE&(OPMASK+FMASK) = FMASK %START
4879 @ 46370:               LINE   774 "regression-compile-tmp/hal7502.imp"
4880 @ 46408:               PUSH   TYPE
4881 @ 46411:               PUSH   OPMASK
4882 @ 46414:               PUSH   FMASK
4883 @ 46417:               ADD   
4884 @ 46418:               AND   
4885 @ 46419:               PUSH   FMASK
4886 @ 46422:               JUMPIF # L_000d

   775      %IF VAL = LABMIN-1 %START
4887 @ 46426:               LINE   775 "regression-compile-tmp/hal7502.imp"
4888 @ 46464:               PUSH   VAL
4889 @ 46467:               PUSH   LABMIN
4890 @ 46470:               PUSHI  #0x00000001
4891 @ 46475:               SUB   
4892 @ 46476:               JUMPIF # L_0010

   776      LABMIN = VAL;  !!%MONITOR 22 %IF LABMIN = ALMAX
4893 @ 46480:               LINE   776 "regression-compile-tmp/hal7502.imp"
4894 @ 46518:               PUSH   LABMIN
4895 @ 46521:               PUSH   VAL
4896 @ 46524:               ASSVAL

   777      %FINISH
4897 @ 46525:               LINE   777 "regression-compile-tmp/hal7502.imp"
4898 @ 46563:               LOCATE L_0010

   778      VAL = INTEGER(VAL)
4899 @ 46566:               LINE   778 "regression-compile-tmp/hal7502.imp"
4900 @ 46604:               PUSH   VAL
4901 @ 46607:               PUSH   INTEGER
4902 @ 46610:               PUSH   VAL
4903 @ 46613:               ASSPAR
4904 @ 46614:               CALL  
4905 @ 46615:               ASSVAL

   779      FAULT('U') %IF VAL = 0
4906 @ 46616:               LINE   779 "regression-compile-tmp/hal7502.imp"
4907 @ 46654:               PUSH   VAL
4908 @ 46657:               PUSHI  #0x00000000
4909 @ 46662:               JUMPIF # L_0010
4910 @ 46666:               PUSH   FAULT
4911 @ 46669:               PUSHI  #0x00000055
4912 @ 46674:               ASSPAR
4913 @ 46675:               CALL  
4914 @ 46676:               LOCATE L_0010

   780      TYPE = TYPE-FMASK
4915 @ 46679:               LINE   780 "regression-compile-tmp/hal7502.imp"
4916 @ 46717:               PUSH   TYPE
4917 @ 46720:               PUSH   TYPE
4918 @ 46723:               PUSH   FMASK
4919 @ 46726:               SUB   
4920 @ 46727:               ASSVAL

   781      %FINISH
4921 @ 46728:               LINE   781 "regression-compile-tmp/hal7502.imp"
4922 @ 46766:               LOCATE L_000d

   782      %FINISH
4923 @ 46769:               LINE   782 "regression-compile-tmp/hal7502.imp"
4924 @ 46807:               LOCATE L_000a

   783      %FINISH
4925 @ 46810:               LINE   783 "regression-compile-tmp/hal7502.imp"
4926 @ 46848:               LOCATE L_0006

   784      PEND = 0
4927 @ 46851:               LINE   784 "regression-compile-tmp/hal7502.imp"
4928 @ 46889:               PUSH   PEND
4929 @ 46892:               PUSHI  #0x00000000
4930 @ 46897:               ASSVAL

   785      %IF TYPE = REG %AND TERM = '(' %START
4931 @ 46898:               LINE   785 "regression-compile-tmp/hal7502.imp"
4932 @ 46936:               PUSH   TYPE
4933 @ 46939:               PUSH   REG
4934 @ 46942:               JUMPIF # L_0007
4935 @ 46946:               PUSH   TERM
4936 @ 46949:               PUSHI  #0x00000028
4937 @ 46954:               JUMPIF # L_0007

   786      TYPE = 0 %IF SAVE&1 = 0;  VAL = VAL+SAVE;   !?
4938 @ 46958:               LINE   786 "regression-compile-tmp/hal7502.imp"
4939 @ 46996:               PUSH   SAVE
4940 @ 46999:               PUSHI  #0x00000001
4941 @ 47004:               AND   
4942 @ 47005:               PUSHI  #0x00000000
4943 @ 47010:               JUMPIF # L_000a
4944 @ 47014:               PUSH   TYPE
4945 @ 47017:               PUSHI  #0x00000000
4946 @ 47022:               ASSVAL
4947 @ 47023:               LOCATE L_000a
4948 @ 47026:               LINE   786 "regression-compile-tmp/hal7502.imp"
4949 @ 47064:               PUSH   VAL
4950 @ 47067:               PUSH   VAL
4951 @ 47070:               PUSH   SAVE
4952 @ 47073:               ADD   
4953 @ 47074:               ASSVAL

   787      %FINISH
4954 @ 47075:               LINE   787 "regression-compile-tmp/hal7502.imp"
4955 @ 47113:               LOCATE L_0007

   788      %IF MODE # 0 %START
4956 @ 47116:               LINE   788 "regression-compile-tmp/hal7502.imp"
4957 @ 47154:               PUSH   MODE
4958 @ 47157:               PUSHI  #0x00000000
4959 @ 47162:               JUMPIF = L_0007

   789      FAULT('I') %AND TYPE=0 %IF TYPE&OPMASK # 0
4960 @ 47166:               LINE   789 "regression-compile-tmp/hal7502.imp"
4961 @ 47204:               PUSH   TYPE
4962 @ 47207:               PUSH   OPMASK
4963 @ 47210:               AND   
4964 @ 47211:               PUSHI  #0x00000000
4965 @ 47216:               JUMPIF = L_000a
4966 @ 47220:               PUSH   FAULT
4967 @ 47223:               PUSHI  #0x00000049
4968 @ 47228:               ASSPAR
4969 @ 47229:               CALL  
4970 @ 47230:               PUSH   TYPE
4971 @ 47233:               PUSHI  #0x00000000
4972 @ 47238:               ASSVAL
4973 @ 47239:               LOCATE L_000a

   790      %IF TYPE&REGXMASK # 0 %START
4974 @ 47242:               LINE   790 "regression-compile-tmp/hal7502.imp"
4975 @ 47280:               PUSH   TYPE
4976 @ 47283:               PUSH   REGXMASK
4977 @ 47286:               AND   
4978 @ 47287:               PUSHI  #0x00000000
4979 @ 47292:               JUMPIF = L_000a

   791      I = TYPE&15;  I = VAL %IF I = 0
4980 @ 47296:               LINE   791 "regression-compile-tmp/hal7502.imp"
4981 @ 47334:               PUSH   I
4982 @ 47337:               PUSH   TYPE
4983 @ 47340:               PUSHI  #0x0000000f
4984 @ 47345:               AND   
4985 @ 47346:               ASSVAL
4986 @ 47347:               LINE   791 "regression-compile-tmp/hal7502.imp"
4987 @ 47385:               PUSH   I
4988 @ 47388:               PUSHI  #0x00000000
4989 @ 47393:               JUMPIF # L_000d
4990 @ 47397:               PUSH   I
4991 @ 47400:               PUSH   VAL
4992 @ 47403:               ASSVAL
4993 @ 47404:               LOCATE L_000d

   792      DUSE = DUSE+1 %IF I = DREG
4994 @ 47407:               LINE   792 "regression-compile-tmp/hal7502.imp"
4995 @ 47445:               PUSH   I
4996 @ 47448:               PUSH   DREG
4997 @ 47451:               JUMPIF # L_000d
4998 @ 47455:               PUSH   DUSE
4999 @ 47458:               PUSH   DUSE
5000 @ 47461:               PUSHI  #0x00000001
5001 @ 47466:               ADD   
5002 @ 47467:               ASSVAL
5003 @ 47468:               LOCATE L_000d

   793      %FINISH
5004 @ 47471:               LINE   793 "regression-compile-tmp/hal7502.imp"
5005 @ 47509:               LOCATE L_000a

   794      %FINISH
5006 @ 47512:               LINE   794 "regression-compile-tmp/hal7502.imp"
5007 @ 47550:               LOCATE L_0007

   795      %IF TERM = '(' %START
5008 @ 47553:               LINE   795 "regression-compile-tmp/hal7502.imp"
5009 @ 47591:               PUSH   TERM
5010 @ 47594:               PUSHI  #0x00000028
5011 @ 47599:               JUMPIF # L_0007

   796      GET SYM
5012 @ 47603:               LINE   796 "regression-compile-tmp/hal7502.imp"
5013 @ 47641:               PUSH   GETSYM
5014 @ 47644:               CALL  

   797      I = TYPE&31
5015 @ 47645:               LINE   797 "regression-compile-tmp/hal7502.imp"
5016 @ 47683:               PUSH   I
5017 @ 47686:               PUSH   TYPE
5018 @ 47689:               PUSHI  #0x0000001f
5019 @ 47694:               AND   
5020 @ 47695:               ASSVAL

   798      QUEUE(TYPE-I);  QUEUE(VAL)
5021 @ 47696:               LINE   798 "regression-compile-tmp/hal7502.imp"
5022 @ 47734:               PUSH   QUEUE
5023 @ 47737:               PUSH   TYPE
5024 @ 47740:               PUSH   I
5025 @ 47743:               SUB   
5026 @ 47744:               ASSPAR
5027 @ 47745:               CALL  
5028 @ 47746:               LINE   798 "regression-compile-tmp/hal7502.imp"
5029 @ 47784:               PUSH   QUEUE
5030 @ 47787:               PUSH   VAL
5031 @ 47790:               ASSPAR
5032 @ 47791:               CALL  

   799      NEST(-21);  NEST(0)
5033 @ 47792:               LINE   799 "regression-compile-tmp/hal7502.imp"
5034 @ 47830:               PUSH   NEST
5035 @ 47833:               PUSHI  #0x00000015
5036 @ 47838:               NEGATE
5037 @ 47839:               ASSPAR
5038 @ 47840:               CALL  
5039 @ 47841:               LINE   799 "regression-compile-tmp/hal7502.imp"
5040 @ 47879:               PUSH   NEST
5041 @ 47882:               PUSHI  #0x00000000
5042 @ 47887:               ASSPAR
5043 @ 47888:               CALL  

   800      %IF I # 0 %START
5044 @ 47889:               LINE   800 "regression-compile-tmp/hal7502.imp"
5045 @ 47927:               PUSH   I
5046 @ 47930:               PUSHI  #0x00000000
5047 @ 47935:               JUMPIF = L_000a

   801      QUEUE(REG);  QUEUE(I&15)
5048 @ 47939:               LINE   801 "regression-compile-tmp/hal7502.imp"
5049 @ 47977:               PUSH   QUEUE
5050 @ 47980:               PUSH   REG
5051 @ 47983:               ASSPAR
5052 @ 47984:               CALL  
5053 @ 47985:               LINE   801 "regression-compile-tmp/hal7502.imp"
5054 @ 48023:               PUSH   QUEUE
5055 @ 48026:               PUSH   I
5056 @ 48029:               PUSHI  #0x0000000f
5057 @ 48034:               AND   
5058 @ 48035:               ASSPAR
5059 @ 48036:               CALL  

   802      NEST(-1)
5060 @ 48037:               LINE   802 "regression-compile-tmp/hal7502.imp"
5061 @ 48075:               PUSH   NEST
5062 @ 48078:               PUSHI  #0x00000001
5063 @ 48083:               NEGATE
5064 @ 48084:               ASSPAR
5065 @ 48085:               CALL  

   803      %FINISH
5066 @ 48086:               LINE   803 "regression-compile-tmp/hal7502.imp"
5067 @ 48124:               LOCATE L_000a

   804      ->E1
5068 @ 48127:               LINE   804 "regression-compile-tmp/hal7502.imp"
5069 @ 48165:               JUMP   L_00dd

   805      %FINISH
5070 @ 48168:               LINE   805 "regression-compile-tmp/hal7502.imp"
5071 @ 48206:               LOCATE L_0007

   806      %finish %ELSE  %IF '0' <= SYM <= '9' %START
5072 @ 48209:               LINE   806 "regression-compile-tmp/hal7502.imp"
5073 @ 48247:               GOTO   L_0003
5074 @ 48250:               LOCATE L_0004
5075 @ 48253:               PUSHI  #0x00000030
5076 @ 48258:               PUSH   SYM
5077 @ 48261:               JUMPIFD > L_0004
5078 @ 48265:               PUSHI  #0x00000039
5079 @ 48270:               JUMPIF > L_0004

   807      TYPE = 0;  VAL = SYM-'0'
5080 @ 48274:               LINE   807 "regression-compile-tmp/hal7502.imp"
5081 @ 48312:               PUSH   TYPE
5082 @ 48315:               PUSHI  #0x00000000
5083 @ 48320:               ASSVAL
5084 @ 48321:               LINE   807 "regression-compile-tmp/hal7502.imp"
5085 @ 48359:               PUSH   VAL
5086 @ 48362:               PUSH   SYM
5087 @ 48365:               PUSHI  #0x00000030
5088 @ 48370:               SUB   
5089 @ 48371:               ASSVAL

   808      %CYCLE
5090 @ 48372:               LINE   808 "regression-compile-tmp/hal7502.imp"
5091 @ 48410:               LOCATE L_0006

   809      SYM = CHAR(GETPOS)-'0'
5092 @ 48413:               LINE   809 "regression-compile-tmp/hal7502.imp"
5093 @ 48451:               PUSH   SYM
5094 @ 48454:               PUSH   CHAR
5095 @ 48457:               PUSH   GETPOS
5096 @ 48460:               ASSPAR
5097 @ 48461:               CALL  
5098 @ 48462:               PUSHI  #0x00000030
5099 @ 48467:               SUB   
5100 @ 48468:               ASSVAL

   810      %EXIT %UNLESS 0 <= SYM <= 9
5101 @ 48469:               LINE   810 "regression-compile-tmp/hal7502.imp"
5102 @ 48507:               PUSHI  #0x00000000
5103 @ 48512:               PUSH   SYM
5104 @ 48515:               JUMPIFD > L_000b
5105 @ 48519:               PUSHI  #0x00000009
5106 @ 48524:               JUMPIF <= L_000a
5107 @ 48528:               LOCATE L_000b
5108 @ 48531:               GOTO   L_0007
5109 @ 48534:               LOCATE L_000a

   811      VAL = (VAL<<2+VAL)<<1+SYM
5110 @ 48537:               LINE   811 "regression-compile-tmp/hal7502.imp"
5111 @ 48575:               PUSH   VAL
5112 @ 48578:               PUSH   VAL
5113 @ 48581:               PUSHI  #0x00000002
5114 @ 48586:               LSH   
5115 @ 48587:               PUSH   VAL
5116 @ 48590:               ADD   
5117 @ 48591:               PUSHI  #0x00000001
5118 @ 48596:               LSH   
5119 @ 48597:               PUSH   SYM
5120 @ 48600:               ADD   
5121 @ 48601:               ASSVAL

   812      GETPOS = GETPOS+1
5122 @ 48602:               LINE   812 "regression-compile-tmp/hal7502.imp"
5123 @ 48640:               PUSH   GETPOS
5124 @ 48643:               PUSH   GETPOS
5125 @ 48646:               PUSHI  #0x00000001
5126 @ 48651:               ADD   
5127 @ 48652:               ASSVAL

   813      %REPEAT
5128 @ 48653:               LINE   813 "regression-compile-tmp/hal7502.imp"
5129 @ 48691:               REPEAT L_0006
5130 @ 48694:               LOCATE L_0007

   814      GET SYM
5131 @ 48697:               LINE   814 "regression-compile-tmp/hal7502.imp"
5132 @ 48735:               PUSH   GETSYM
5133 @ 48738:               CALL  

   815      %finish %ELSE  %IF SYM = 'X' %START
5134 @ 48739:               LINE   815 "regression-compile-tmp/hal7502.imp"
5135 @ 48777:               GOTO   L_0003
5136 @ 48780:               LOCATE L_0004
5137 @ 48783:               PUSH   SYM
5138 @ 48786:               PUSHI  #0x00000058
5139 @ 48791:               JUMPIF # L_0004

   816      TYPE = 0;  VAL = 0
5140 @ 48795:               LINE   816 "regression-compile-tmp/hal7502.imp"
5141 @ 48833:               PUSH   TYPE
5142 @ 48836:               PUSHI  #0x00000000
5143 @ 48841:               ASSVAL
5144 @ 48842:               LINE   816 "regression-compile-tmp/hal7502.imp"
5145 @ 48880:               PUSH   VAL
5146 @ 48883:               PUSHI  #0x00000000
5147 @ 48888:               ASSVAL

   817      %CYCLE
5148 @ 48889:               LINE   817 "regression-compile-tmp/hal7502.imp"
5149 @ 48927:               LOCATE L_0006

   818      SYM = CHAR(GETPOS)-128
5150 @ 48930:               LINE   818 "regression-compile-tmp/hal7502.imp"
5151 @ 48968:               PUSH   SYM
5152 @ 48971:               PUSH   CHAR
5153 @ 48974:               PUSH   GETPOS
5154 @ 48977:               ASSPAR
5155 @ 48978:               CALL  
5156 @ 48979:               PUSHI  #0x00000080
5157 @ 48984:               SUB   
5158 @ 48985:               ASSVAL

   819      %EXIT %IF SYM < 0
5159 @ 48986:               LINE   819 "regression-compile-tmp/hal7502.imp"
5160 @ 49024:               PUSH   SYM
5161 @ 49027:               PUSHI  #0x00000000
5162 @ 49032:               JUMPIF >= L_000a
5163 @ 49036:               GOTO   L_0007
5164 @ 49039:               LOCATE L_000a

   820      SYM = SYM-32 %IF SYM >= 96; !ENSURE UPPER-CASE
5165 @ 49042:               LINE   820 "regression-compile-tmp/hal7502.imp"
5166 @ 49080:               PUSH   SYM
5167 @ 49083:               PUSHI  #0x00000060
5168 @ 49088:               JUMPIF < L_000a
5169 @ 49092:               PUSH   SYM
5170 @ 49095:               PUSH   SYM
5171 @ 49098:               PUSHI  #0x00000020
5172 @ 49103:               SUB   
5173 @ 49104:               ASSVAL
5174 @ 49105:               LOCATE L_000a

   821      %IF '0' <= SYM <= '9' %OR 'A' <= SYM <= 'F' %START
5175 @ 49108:               LINE   821 "regression-compile-tmp/hal7502.imp"
5176 @ 49146:               PUSHI  #0x00000030
5177 @ 49151:               PUSH   SYM
5178 @ 49154:               JUMPIFD > L_000c
5179 @ 49158:               PUSHI  #0x00000039
5180 @ 49163:               JUMPIF <= L_000b
5181 @ 49167:               LOCATE L_000c
5182 @ 49170:               PUSHI  #0x00000041
5183 @ 49175:               PUSH   SYM
5184 @ 49178:               JUMPIFD > L_000a
5185 @ 49182:               PUSHI  #0x00000046
5186 @ 49187:               JUMPIF > L_000a
5187 @ 49191:               LOCATE L_000b

   822      VAL = VAL<<4+SYM-'0'
5188 @ 49194:               LINE   822 "regression-compile-tmp/hal7502.imp"
5189 @ 49232:               PUSH   VAL
5190 @ 49235:               PUSH   VAL
5191 @ 49238:               PUSHI  #0x00000004
5192 @ 49243:               LSH   
5193 @ 49244:               PUSH   SYM
5194 @ 49247:               ADD   
5195 @ 49248:               PUSHI  #0x00000030
5196 @ 49253:               SUB   
5197 @ 49254:               ASSVAL

   823      VAL = VAL-7 %IF SYM >= 'A'
5198 @ 49255:               LINE   823 "regression-compile-tmp/hal7502.imp"
5199 @ 49293:               PUSH   SYM
5200 @ 49296:               PUSHI  #0x00000041
5201 @ 49301:               JUMPIF < L_000d
5202 @ 49305:               PUSH   VAL
5203 @ 49308:               PUSH   VAL
5204 @ 49311:               PUSHI  #0x00000007
5205 @ 49316:               SUB   
5206 @ 49317:               ASSVAL
5207 @ 49318:               LOCATE L_000d

   824      %finish %ELSE  FAULT('H')
5208 @ 49321:               LINE   824 "regression-compile-tmp/hal7502.imp"
5209 @ 49359:               GOTO   L_0009
5210 @ 49362:               LOCATE L_000a
5211 @ 49365:               PUSH   FAULT
5212 @ 49368:               PUSHI  #0x00000048
5213 @ 49373:               ASSPAR
5214 @ 49374:               CALL  
5215 @ 49375:               LOCATE L_0009

   825      GETPOS = GETPOS+1
5216 @ 49378:               LINE   825 "regression-compile-tmp/hal7502.imp"
5217 @ 49416:               PUSH   GETPOS
5218 @ 49419:               PUSH   GETPOS
5219 @ 49422:               PUSHI  #0x00000001
5220 @ 49427:               ADD   
5221 @ 49428:               ASSVAL

   826      %REPEAT
5222 @ 49429:               LINE   826 "regression-compile-tmp/hal7502.imp"
5223 @ 49467:               REPEAT L_0006
5224 @ 49470:               LOCATE L_0007

   827      GET SYM
5225 @ 49473:               LINE   827 "regression-compile-tmp/hal7502.imp"
5226 @ 49511:               PUSH   GETSYM
5227 @ 49514:               CALL  

   828      %finish %ELSE  %IF SYM&128 # 0 %START
5228 @ 49515:               LINE   828 "regression-compile-tmp/hal7502.imp"
5229 @ 49553:               GOTO   L_0003
5230 @ 49556:               LOCATE L_0004
5231 @ 49559:               PUSH   SYM
5232 @ 49562:               PUSHI  #0x00000080
5233 @ 49567:               AND   
5234 @ 49568:               PUSHI  #0x00000000
5235 @ 49573:               JUMPIF = L_0004

   829      TYPE = 0;  VAL = SYM-128
5236 @ 49577:               LINE   829 "regression-compile-tmp/hal7502.imp"
5237 @ 49615:               PUSH   TYPE
5238 @ 49618:               PUSHI  #0x00000000
5239 @ 49623:               ASSVAL
5240 @ 49624:               LINE   829 "regression-compile-tmp/hal7502.imp"
5241 @ 49662:               PUSH   VAL
5242 @ 49665:               PUSH   SYM
5243 @ 49668:               PUSHI  #0x00000080
5244 @ 49673:               SUB   
5245 @ 49674:               ASSVAL

   830      GET SYM
5246 @ 49675:               LINE   830 "regression-compile-tmp/hal7502.imp"
5247 @ 49713:               PUSH   GETSYM
5248 @ 49716:               CALL  

   831      %IF MODE >= 0 %AND SYM&128 # 0 %START
5249 @ 49717:               LINE   831 "regression-compile-tmp/hal7502.imp"
5250 @ 49755:               PUSH   MODE
5251 @ 49758:               PUSHI  #0x00000000
5252 @ 49763:               JUMPIF < L_0007
5253 @ 49767:               PUSH   SYM
5254 @ 49770:               PUSHI  #0x00000080
5255 @ 49775:               AND   
5256 @ 49776:               PUSHI  #0x00000000
5257 @ 49781:               JUMPIF = L_0007

   832      VAL = VAL<<8+SYM-128;  GET SYM
5258 @ 49785:               LINE   832 "regression-compile-tmp/hal7502.imp"
5259 @ 49823:               PUSH   VAL
5260 @ 49826:               PUSH   VAL
5261 @ 49829:               PUSHI  #0x00000008
5262 @ 49834:               LSH   
5263 @ 49835:               PUSH   SYM
5264 @ 49838:               ADD   
5265 @ 49839:               PUSHI  #0x00000080
5266 @ 49844:               SUB   
5267 @ 49845:               ASSVAL
5268 @ 49846:               LINE   832 "regression-compile-tmp/hal7502.imp"
5269 @ 49884:               PUSH   GETSYM
5270 @ 49887:               CALL  

   833      %FINISH
5271 @ 49888:               LINE   833 "regression-compile-tmp/hal7502.imp"
5272 @ 49926:               LOCATE L_0007

   834      %finish %ELSE  %IF S('.') %START
5273 @ 49929:               LINE   834 "regression-compile-tmp/hal7502.imp"
5274 @ 49967:               GOTO   L_0003
5275 @ 49970:               LOCATE L_0004
5276 @ 49973:               PUSH   S
5277 @ 49976:               PUSHI  #0x0000002e
5278 @ 49981:               ASSPAR
5279 @ 49982:               CALL  
5280 @ 49983:               bf     L_0004

   835      ->ERR %IF %NOT TAG
5281 @ 49986:               LINE   835 "regression-compile-tmp/hal7502.imp"
5282 @ 50024:               PUSH   TAG
5283 @ 50027:               CALL  
5284 @ 50028:               bt     L_0007
5285 @ 50031:               JUMP   L_00de
5286 @ 50034:               LOCATE L_0007

   836      TYPE = 0;  VAL = TAG1
5287 @ 50037:               LINE   836 "regression-compile-tmp/hal7502.imp"
5288 @ 50075:               PUSH   TYPE
5289 @ 50078:               PUSHI  #0x00000000
5290 @ 50083:               ASSVAL
5291 @ 50084:               LINE   836 "regression-compile-tmp/hal7502.imp"
5292 @ 50122:               PUSH   VAL
5293 @ 50125:               PUSH   TAG1
5294 @ 50128:               ASSVAL

   837      %finish %ELSE  %IF S('*') %START
5295 @ 50129:               LINE   837 "regression-compile-tmp/hal7502.imp"
5296 @ 50167:               GOTO   L_0003
5297 @ 50170:               LOCATE L_0004
5298 @ 50173:               PUSH   S
5299 @ 50176:               PUSHI  #0x0000002a
5300 @ 50181:               ASSPAR
5301 @ 50182:               CALL  
5302 @ 50183:               bf     L_0004

   838      TYPE = LOCTYPE&63;  VAL = LOC
5303 @ 50186:               LINE   838 "regression-compile-tmp/hal7502.imp"
5304 @ 50224:               PUSH   TYPE
5305 @ 50227:               PUSH   LOCTYPE
5306 @ 50230:               PUSHI  #0x0000003f
5307 @ 50235:               AND   
5308 @ 50236:               ASSVAL
5309 @ 50237:               LINE   838 "regression-compile-tmp/hal7502.imp"
5310 @ 50275:               PUSH   VAL
5311 @ 50278:               PUSH   LOC
5312 @ 50281:               ASSVAL

   839      %IF SYM = 'L' %START;          !FOR NOW
5313 @ 50282:               LINE   839 "regression-compile-tmp/hal7502.imp"
5314 @ 50320:               PUSH   SYM
5315 @ 50323:               PUSHI  #0x0000004c
5316 @ 50328:               JUMPIF # L_0007

   840      TYPE = 0;  VAL = LIST %IF TAG
5317 @ 50332:               LINE   840 "regression-compile-tmp/hal7502.imp"
5318 @ 50370:               PUSH   TYPE
5319 @ 50373:               PUSHI  #0x00000000
5320 @ 50378:               ASSVAL
5321 @ 50379:               LINE   840 "regression-compile-tmp/hal7502.imp"
5322 @ 50417:               PUSH   TAG
5323 @ 50420:               CALL  
5324 @ 50421:               bf     L_000a
5325 @ 50424:               PUSH   VAL
5326 @ 50427:               PUSH   LIST
5327 @ 50430:               ASSVAL
5328 @ 50431:               LOCATE L_000a

   841      %FINISH
5329 @ 50434:               LINE   841 "regression-compile-tmp/hal7502.imp"
5330 @ 50472:               LOCATE L_0007

   842      %finish %ELSE  %IF SYM = '-' %START
5331 @ 50475:               LINE   842 "regression-compile-tmp/hal7502.imp"
5332 @ 50513:               GOTO   L_0003
5333 @ 50516:               LOCATE L_0004
5334 @ 50519:               PUSH   SYM
5335 @ 50522:               PUSHI  #0x0000002d
5336 @ 50527:               JUMPIF # L_0004

   843      TYPE = 0;  VAL = 0
5337 @ 50531:               LINE   843 "regression-compile-tmp/hal7502.imp"
5338 @ 50569:               PUSH   TYPE
5339 @ 50572:               PUSHI  #0x00000000
5340 @ 50577:               ASSVAL
5341 @ 50578:               LINE   843 "regression-compile-tmp/hal7502.imp"
5342 @ 50616:               PUSH   VAL
5343 @ 50619:               PUSHI  #0x00000000
5344 @ 50624:               ASSVAL

   844      %finish %ELSE  %IF SYM = '\' %START
5345 @ 50625:               LINE   844 "regression-compile-tmp/hal7502.imp"
5346 @ 50663:               GOTO   L_0003
5347 @ 50666:               LOCATE L_0004
5348 @ 50669:               PUSH   SYM
5349 @ 50672:               PUSHI  #0x0000005c
5350 @ 50677:               JUMPIF # L_0004

   845      TYPE = 0;  VAL = \0
5351 @ 50681:               LINE   845 "regression-compile-tmp/hal7502.imp"
5352 @ 50719:               PUSH   TYPE
5353 @ 50722:               PUSHI  #0x00000000
5354 @ 50727:               ASSVAL
5355 @ 50728:               LINE   845 "regression-compile-tmp/hal7502.imp"
5356 @ 50766:               PUSH   VAL
5357 @ 50769:               PUSHI  #0x00000000
5358 @ 50774:               NOT   
5359 @ 50775:               ASSVAL

   846      %finish %ELSE  ->ERR
5360 @ 50776:               LINE   846 "regression-compile-tmp/hal7502.imp"
5361 @ 50814:               GOTO   L_0003
5362 @ 50817:               LOCATE L_0004
5363 @ 50820:               JUMP   L_00de
5364 @ 50823:               LOCATE L_0003

   847      QUEUE(TYPE);  QUEUE(VAL)
   848  
5365 @ 50826:               LINE   847 "regression-compile-tmp/hal7502.imp"
5366 @ 50864:               PUSH   QUEUE
5367 @ 50867:               PUSH   TYPE
5368 @ 50870:               ASSPAR
5369 @ 50871:               CALL  
5370 @ 50872:               LINE   847 "regression-compile-tmp/hal7502.imp"
5371 @ 50910:               PUSH   QUEUE
5372 @ 50913:               PUSH   VAL
5373 @ 50916:               ASSPAR
5374 @ 50917:               CALL  

   849      %WHILE NP # NBASE %CYCLE
5375 @ 50918:               LINE   849 "regression-compile-tmp/hal7502.imp"
5376 @ 50956:               LOCATE L_0003
5377 @ 50959:               PUSH   NP
5378 @ 50962:               PUSH   NBASE
5379 @ 50965:               JUMPIF = L_0004

   850      %IF INTEGER(NP) < 0 %START
5380 @ 50969:               LINE   850 "regression-compile-tmp/hal7502.imp"
5381 @ 51007:               PUSH   INTEGER
5382 @ 51010:               PUSH   NP
5383 @ 51013:               ASSPAR
5384 @ 51014:               CALL  
5385 @ 51015:               PUSHI  #0x00000000
5386 @ 51020:               JUMPIF >= L_0007

   851      QUEUE(INTEGER(NP))
5387 @ 51024:               LINE   851 "regression-compile-tmp/hal7502.imp"
5388 @ 51062:               PUSH   QUEUE
5389 @ 51065:               PUSH   INTEGER
5390 @ 51068:               PUSH   NP
5391 @ 51071:               ASSPAR
5392 @ 51072:               CALL  
5393 @ 51073:               ASSPAR
5394 @ 51074:               CALL  

   852      %finish %ELSE  %START
5395 @ 51075:               LINE   852 "regression-compile-tmp/hal7502.imp"
5396 @ 51113:               GOTO   L_0006
5397 @ 51116:               LOCATE L_0007

   853      %EXIT %IF %NOT S(')')
5398 @ 51119:               LINE   853 "regression-compile-tmp/hal7502.imp"
5399 @ 51157:               PUSH   S
5400 @ 51160:               PUSHI  #0x00000029
5401 @ 51165:               ASSPAR
5402 @ 51166:               CALL  
5403 @ 51167:               bt     L_000a
5404 @ 51170:               GOTO   L_0004
5405 @ 51173:               LOCATE L_000a

   854      %FINISH
5406 @ 51176:               LINE   854 "regression-compile-tmp/hal7502.imp"
5407 @ 51214:               LOCATE L_0006

   855      NP = NP+1
5408 @ 51217:               LINE   855 "regression-compile-tmp/hal7502.imp"
5409 @ 51255:               PUSH   NP
5410 @ 51258:               PUSH   NP
5411 @ 51261:               PUSHI  #0x00000001
5412 @ 51266:               ADD   
5413 @ 51267:               ASSVAL

   856      %REPEAT
   857  
5414 @ 51268:               LINE   856 "regression-compile-tmp/hal7502.imp"
5415 @ 51306:               REPEAT L_0003
5416 @ 51309:               LOCATE L_0004

   858      NEST(-1) %AND ->E1 %IF S('+')
5417 @ 51312:               LINE   858 "regression-compile-tmp/hal7502.imp"
5418 @ 51350:               PUSH   S
5419 @ 51353:               PUSHI  #0x0000002b
5420 @ 51358:               ASSPAR
5421 @ 51359:               CALL  
5422 @ 51360:               bf     L_0004
5423 @ 51363:               PUSH   NEST
5424 @ 51366:               PUSHI  #0x00000001
5425 @ 51371:               NEGATE
5426 @ 51372:               ASSPAR
5427 @ 51373:               CALL  
5428 @ 51374:               JUMP   L_00dd
5429 @ 51377:               LOCATE L_0004

   859      NEST(-2) %AND ->E1 %IF S('-')
5430 @ 51380:               LINE   859 "regression-compile-tmp/hal7502.imp"
5431 @ 51418:               PUSH   S
5432 @ 51421:               PUSHI  #0x0000002d
5433 @ 51426:               ASSPAR
5434 @ 51427:               CALL  
5435 @ 51428:               bf     L_0004
5436 @ 51431:               PUSH   NEST
5437 @ 51434:               PUSHI  #0x00000002
5438 @ 51439:               NEGATE
5439 @ 51440:               ASSPAR
5440 @ 51441:               CALL  
5441 @ 51442:               JUMP   L_00dd
5442 @ 51445:               LOCATE L_0004

   860      NEST(-3) %AND ->E1 %IF S('&')
5443 @ 51448:               LINE   860 "regression-compile-tmp/hal7502.imp"
5444 @ 51486:               PUSH   S
5445 @ 51489:               PUSHI  #0x00000026
5446 @ 51494:               ASSPAR
5447 @ 51495:               CALL  
5448 @ 51496:               bf     L_0004
5449 @ 51499:               PUSH   NEST
5450 @ 51502:               PUSHI  #0x00000003
5451 @ 51507:               NEGATE
5452 @ 51508:               ASSPAR
5453 @ 51509:               CALL  
5454 @ 51510:               JUMP   L_00dd
5455 @ 51513:               LOCATE L_0004

   861      NEST(-4) %AND ->E1 %IF S('!')
5456 @ 51516:               LINE   861 "regression-compile-tmp/hal7502.imp"
5457 @ 51554:               PUSH   S
5458 @ 51557:               PUSHI  #0x00000021
5459 @ 51562:               ASSPAR
5460 @ 51563:               CALL  
5461 @ 51564:               bf     L_0004
5462 @ 51567:               PUSH   NEST
5463 @ 51570:               PUSHI  #0x00000004
5464 @ 51575:               NEGATE
5465 @ 51576:               ASSPAR
5466 @ 51577:               CALL  
5467 @ 51578:               JUMP   L_00dd
5468 @ 51581:               LOCATE L_0004

   862      NEST(-5) %AND ->E1 %IF S('\')
5469 @ 51584:               LINE   862 "regression-compile-tmp/hal7502.imp"
5470 @ 51622:               PUSH   S
5471 @ 51625:               PUSHI  #0x0000005c
5472 @ 51630:               ASSPAR
5473 @ 51631:               CALL  
5474 @ 51632:               bf     L_0004
5475 @ 51635:               PUSH   NEST
5476 @ 51638:               PUSHI  #0x00000005
5477 @ 51643:               NEGATE
5478 @ 51644:               ASSPAR
5479 @ 51645:               CALL  
5480 @ 51646:               JUMP   L_00dd
5481 @ 51649:               LOCATE L_0004

   863      NEST(-6) %AND ->E1 %IF SS('<')
5482 @ 51652:               LINE   863 "regression-compile-tmp/hal7502.imp"
5483 @ 51690:               PUSH   SS
5484 @ 51693:               PUSHI  #0x0000003c
5485 @ 51698:               ASSPAR
5486 @ 51699:               CALL  
5487 @ 51700:               bf     L_0004
5488 @ 51703:               PUSH   NEST
5489 @ 51706:               PUSHI  #0x00000006
5490 @ 51711:               NEGATE
5491 @ 51712:               ASSPAR
5492 @ 51713:               CALL  
5493 @ 51714:               JUMP   L_00dd
5494 @ 51717:               LOCATE L_0004

   864      NEST(-7) %AND ->E1 %IF SS('>')
5495 @ 51720:               LINE   864 "regression-compile-tmp/hal7502.imp"
5496 @ 51758:               PUSH   SS
5497 @ 51761:               PUSHI  #0x0000003e
5498 @ 51766:               ASSPAR
5499 @ 51767:               CALL  
5500 @ 51768:               bf     L_0004
5501 @ 51771:               PUSH   NEST
5502 @ 51774:               PUSHI  #0x00000007
5503 @ 51779:               NEGATE
5504 @ 51780:               ASSPAR
5505 @ 51781:               CALL  
5506 @ 51782:               JUMP   L_00dd
5507 @ 51785:               LOCATE L_0004

   865      NEST(-8) %AND ->E1 %IF S('_')
5508 @ 51788:               LINE   865 "regression-compile-tmp/hal7502.imp"
5509 @ 51826:               PUSH   S
5510 @ 51829:               PUSHI  #0x0000005f
5511 @ 51834:               ASSPAR
5512 @ 51835:               CALL  
5513 @ 51836:               bf     L_0004
5514 @ 51839:               PUSH   NEST
5515 @ 51842:               PUSHI  #0x00000008
5516 @ 51847:               NEGATE
5517 @ 51848:               ASSPAR
5518 @ 51849:               CALL  
5519 @ 51850:               JUMP   L_00dd
5520 @ 51853:               LOCATE L_0004

   866      %RETURN %IF NP = NBASE
5521 @ 51856:               LINE   866 "regression-compile-tmp/hal7502.imp"
5522 @ 51894:               PUSH   NP
5523 @ 51897:               PUSH   NBASE
5524 @ 51900:               JUMPIF # L_0004
5525 @ 51904:               RETURN
5526 @ 51905:               LOCATE L_0004

   867  ERR:NP = NBASE
   868      !!%MONITOR 19
5527 @ 51908:               LINE   867 "regression-compile-tmp/hal7502.imp"
5528 @ 51946:               LABEL  L_00de
5529 @ 51949:               LINE   867 "regression-compile-tmp/hal7502.imp"
5530 @ 51987:               PUSH   NP
5531 @ 51990:               PUSH   NBASE
5532 @ 51993:               ASSVAL

   869  %END
   870  
5533 @ 51994:               LINE   869 "regression-compile-tmp/hal7502.imp"
5534 @ 52032:            END    _lev0id0_GETEXP {lev=2 --> 1}

   871  %ROUTINE GET COND
5535 @ 52033:            LINE   871 "regression-compile-tmp/hal7502.imp"
5536 @ 52071:            DEF    GETCOND (_lev0id0_GETCOND) 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
5537 @ 52090:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5538 @ 52091:               FINISH ) {lev=2}

   872  %OWNINTEGER AND=1717, OR=16873
5539 @ 52092:               LINE   872 "regression-compile-tmp/hal7502.imp"
5540 @ 52130:               PUSHI  #0x000006b5
5541 @ 52135:               DEF    AND 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
5542 @ 52150:               INIT   1
5543 @ 52153:               PUSHI  #0x000041e9
5544 @ 52158:               DEF    OR 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
5545 @ 52172:               INIT   1

   873  %INTEGER J,K
5546 @ 52175:               LINE   873 "regression-compile-tmp/hal7502.imp"
5547 @ 52213:               DEF    J 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
5548 @ 52226:               DEF    K p1=V_00dd a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   874      TRANSF = QSTART;  QSTART = QLIM
5549 @ 52239:               LINE   874 "regression-compile-tmp/hal7502.imp"
5550 @ 52277:               PUSH   TRANSF
5551 @ 52280:               PUSH   QSTART
5552 @ 52283:               ASSVAL
5553 @ 52284:               LINE   874 "regression-compile-tmp/hal7502.imp"
5554 @ 52322:               PUSH   QSTART
5555 @ 52325:               PUSH   QLIM
5556 @ 52328:               ASSVAL

   875      J = 0
5557 @ 52329:               LINE   875 "regression-compile-tmp/hal7502.imp"
5558 @ 52367:               PUSH   J
5559 @ 52370:               PUSHI  #0x00000000
5560 @ 52375:               ASSVAL

   876      %CYCLE
5561 @ 52376:               LINE   876 "regression-compile-tmp/hal7502.imp"
5562 @ 52414:               LOCATE L_0003

   877      GET EXP
5563 @ 52417:               LINE   877 "regression-compile-tmp/hal7502.imp"
5564 @ 52455:               PUSH   GETEXP
5565 @ 52458:               CALL  

   878      %IF S('=') %START
5566 @ 52459:               LINE   878 "regression-compile-tmp/hal7502.imp"
5567 @ 52497:               PUSH   S
5568 @ 52500:               PUSHI  #0x0000003d
5569 @ 52505:               ASSPAR
5570 @ 52506:               CALL  
5571 @ 52507:               bf     L_0007

   879      K = 5
5572 @ 52510:               LINE   879 "regression-compile-tmp/hal7502.imp"
5573 @ 52548:               PUSH   K
5574 @ 52551:               PUSHI  #0x00000005
5575 @ 52556:               ASSVAL

   880      %finish %ELSE  %IF S('#') %START
5576 @ 52557:               LINE   880 "regression-compile-tmp/hal7502.imp"
5577 @ 52595:               GOTO   L_0006
5578 @ 52598:               LOCATE L_0007
5579 @ 52601:               PUSH   S
5580 @ 52604:               PUSHI  #0x00000023
5581 @ 52609:               ASSPAR
5582 @ 52610:               CALL  
5583 @ 52611:               bf     L_0007

   881      K = 4
5584 @ 52614:               LINE   881 "regression-compile-tmp/hal7502.imp"
5585 @ 52652:               PUSH   K
5586 @ 52655:               PUSHI  #0x00000004
5587 @ 52660:               ASSVAL

   882      %finish %ELSE  %IF S('<') %START
5588 @ 52661:               LINE   882 "regression-compile-tmp/hal7502.imp"
5589 @ 52699:               GOTO   L_0006
5590 @ 52702:               LOCATE L_0007
5591 @ 52705:               PUSH   S
5592 @ 52708:               PUSHI  #0x0000003c
5593 @ 52713:               ASSPAR
5594 @ 52714:               CALL  
5595 @ 52715:               bf     L_0007

   883      K = 3;  K = 7 %IF S('=')
5596 @ 52718:               LINE   883 "regression-compile-tmp/hal7502.imp"
5597 @ 52756:               PUSH   K
5598 @ 52759:               PUSHI  #0x00000003
5599 @ 52764:               ASSVAL
5600 @ 52765:               LINE   883 "regression-compile-tmp/hal7502.imp"
5601 @ 52803:               PUSH   S
5602 @ 52806:               PUSHI  #0x0000003d
5603 @ 52811:               ASSPAR
5604 @ 52812:               CALL  
5605 @ 52813:               bf     L_000a
5606 @ 52816:               PUSH   K
5607 @ 52819:               PUSHI  #0x00000007
5608 @ 52824:               ASSVAL
5609 @ 52825:               LOCATE L_000a

   884      %finish %ELSE  %IF S('>') %START
5610 @ 52828:               LINE   884 "regression-compile-tmp/hal7502.imp"
5611 @ 52866:               GOTO   L_0006
5612 @ 52869:               LOCATE L_0007
5613 @ 52872:               PUSH   S
5614 @ 52875:               PUSHI  #0x0000003e
5615 @ 52880:               ASSPAR
5616 @ 52881:               CALL  
5617 @ 52882:               bf     L_0007

   885      K = 6;  K = 2 %IF S('=')
5618 @ 52885:               LINE   885 "regression-compile-tmp/hal7502.imp"
5619 @ 52923:               PUSH   K
5620 @ 52926:               PUSHI  #0x00000006
5621 @ 52931:               ASSVAL
5622 @ 52932:               LINE   885 "regression-compile-tmp/hal7502.imp"
5623 @ 52970:               PUSH   S
5624 @ 52973:               PUSHI  #0x0000003d
5625 @ 52978:               ASSPAR
5626 @ 52979:               CALL  
5627 @ 52980:               bf     L_000a
5628 @ 52983:               PUSH   K
5629 @ 52986:               PUSHI  #0x00000002
5630 @ 52991:               ASSVAL
5631 @ 52992:               LOCATE L_000a

   886      %finish %ELSE  %START
5632 @ 52995:               LINE   886 "regression-compile-tmp/hal7502.imp"
5633 @ 53033:               GOTO   L_0006
5634 @ 53036:               LOCATE L_0007

   887      QUEUE(-12)
5635 @ 53039:               LINE   887 "regression-compile-tmp/hal7502.imp"
5636 @ 53077:               PUSH   QUEUE
5637 @ 53080:               PUSHI  #0x0000000c
5638 @ 53085:               NEGATE
5639 @ 53086:               ASSPAR
5640 @ 53087:               CALL  

   888      %RETURN
5641 @ 53088:               LINE   888 "regression-compile-tmp/hal7502.imp"
5642 @ 53126:               RETURN

   889      %FINISH
5643 @ 53127:               LINE   889 "regression-compile-tmp/hal7502.imp"
5644 @ 53165:               LOCATE L_0006

   890      GET EXP
5645 @ 53168:               LINE   890 "regression-compile-tmp/hal7502.imp"
5646 @ 53206:               PUSH   GETEXP
5647 @ 53209:               CALL  

   891      QUEUE(-2);  !SUBTRACT
5648 @ 53210:               LINE   891 "regression-compile-tmp/hal7502.imp"
5649 @ 53248:               PUSH   QUEUE
5650 @ 53251:               PUSHI  #0x00000002
5651 @ 53256:               NEGATE
5652 @ 53257:               ASSPAR
5653 @ 53258:               CALL  

   892      QUEUE(-11);  QUEUE(K)
5654 @ 53259:               LINE   892 "regression-compile-tmp/hal7502.imp"
5655 @ 53297:               PUSH   QUEUE
5656 @ 53300:               PUSHI  #0x0000000b
5657 @ 53305:               NEGATE
5658 @ 53306:               ASSPAR
5659 @ 53307:               CALL  
5660 @ 53308:               LINE   892 "regression-compile-tmp/hal7502.imp"
5661 @ 53346:               PUSH   QUEUE
5662 @ 53349:               PUSH   K
5663 @ 53352:               ASSPAR
5664 @ 53353:               CALL  

   893      %RETURN %IF %NOT TAG
5665 @ 53354:               LINE   893 "regression-compile-tmp/hal7502.imp"
5666 @ 53392:               PUSH   TAG
5667 @ 53395:               CALL  
5668 @ 53396:               bt     L_0007
5669 @ 53399:               RETURN
5670 @ 53400:               LOCATE L_0007

   894      %IF TAG1 = AND %AND TAG2 = 0 %START
   895      !!%MONITOR 19 %IF J < 0
5671 @ 53403:               LINE   894 "regression-compile-tmp/hal7502.imp"
5672 @ 53441:               PUSH   TAG1
5673 @ 53444:               PUSH   AND
5674 @ 53447:               JUMPIF # L_0007
5675 @ 53451:               PUSH   TAG2
5676 @ 53454:               PUSHI  #0x00000000
5677 @ 53459:               JUMPIF # L_0007

   896      J = 1;  QUEUE(-13)
5678 @ 53463:               LINE   896 "regression-compile-tmp/hal7502.imp"
5679 @ 53501:               PUSH   J
5680 @ 53504:               PUSHI  #0x00000001
5681 @ 53509:               ASSVAL
5682 @ 53510:               LINE   896 "regression-compile-tmp/hal7502.imp"
5683 @ 53548:               PUSH   QUEUE
5684 @ 53551:               PUSHI  #0x0000000d
5685 @ 53556:               NEGATE
5686 @ 53557:               ASSPAR
5687 @ 53558:               CALL  

   897      %finish %ELSE  %START
   898      !!%MONITOR 19 %IF TAG1 # OR %OR J > 0
5688 @ 53559:               LINE   897 "regression-compile-tmp/hal7502.imp"
5689 @ 53597:               GOTO   L_0006
5690 @ 53600:               LOCATE L_0007

   899      J = -1;  QUEUE(-14)
5691 @ 53603:               LINE   899 "regression-compile-tmp/hal7502.imp"
5692 @ 53641:               PUSH   J
5693 @ 53644:               PUSHI  #0x00000001
5694 @ 53649:               NEGATE
5695 @ 53650:               ASSVAL
5696 @ 53651:               LINE   899 "regression-compile-tmp/hal7502.imp"
5697 @ 53689:               PUSH   QUEUE
5698 @ 53692:               PUSHI  #0x0000000e
5699 @ 53697:               NEGATE
5700 @ 53698:               ASSPAR
5701 @ 53699:               CALL  

   900      %FINISH
5702 @ 53700:               LINE   900 "regression-compile-tmp/hal7502.imp"
5703 @ 53738:               LOCATE L_0006

   901      %REPEAT
5704 @ 53741:               LINE   901 "regression-compile-tmp/hal7502.imp"
5705 @ 53779:               REPEAT L_0003

   902  %END
   903  
5706 @ 53782:               LINE   902 "regression-compile-tmp/hal7502.imp"
5707 @ 53820:            END    _lev0id0_GETCOND {lev=2 --> 1}

   904  %ROUTINE GET INST
5708 @ 53821:            LINE   904 "regression-compile-tmp/hal7502.imp"
5709 @ 53859:            DEF    GETINST (_lev0id0_GETINST) 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
5710 @ 53878:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5711 @ 53879:               FINISH ) {lev=2}

   905  %INTEGER I
5712 @ 53880:               LINE   905 "regression-compile-tmp/hal7502.imp"
5713 @ 53918:               DEF    I 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

   906      QUEUE(TYPE);  QUEUE(VAL)
5714 @ 53931:               LINE   906 "regression-compile-tmp/hal7502.imp"
5715 @ 53969:               PUSH   QUEUE
5716 @ 53972:               PUSH   TYPE
5717 @ 53975:               ASSPAR
5718 @ 53976:               CALL  
5719 @ 53977:               LINE   906 "regression-compile-tmp/hal7502.imp"
5720 @ 54015:               PUSH   QUEUE
5721 @ 54018:               PUSH   VAL
5722 @ 54021:               ASSPAR
5723 @ 54022:               CALL  

   907      %RETURN %IF TERM # ' ';           !NO OPERAND FOLLOWING =>
5724 @ 54023:               LINE   907 "regression-compile-tmp/hal7502.imp"
5725 @ 54061:               PUSH   TERM
5726 @ 54064:               PUSHI  #0x00000020
5727 @ 54069:               JUMPIF = L_0004
5728 @ 54073:               RETURN
5729 @ 54074:               LOCATE L_0004

   908      %CYCLE
5730 @ 54077:               LINE   908 "regression-compile-tmp/hal7502.imp"
5731 @ 54115:               LOCATE L_0003

   909      GET EXP
5732 @ 54118:               LINE   909 "regression-compile-tmp/hal7502.imp"
5733 @ 54156:               PUSH   GETEXP
5734 @ 54159:               CALL  

   910      QUEUE(-22)
5735 @ 54160:               LINE   910 "regression-compile-tmp/hal7502.imp"
5736 @ 54198:               PUSH   QUEUE
5737 @ 54201:               PUSHI  #0x00000016
5738 @ 54206:               NEGATE
5739 @ 54207:               ASSPAR
5740 @ 54208:               CALL  

   911      %RETURN %IF %NOT S(',')
5741 @ 54209:               LINE   911 "regression-compile-tmp/hal7502.imp"
5742 @ 54247:               PUSH   S
5743 @ 54250:               PUSHI  #0x0000002c
5744 @ 54255:               ASSPAR
5745 @ 54256:               CALL  
5746 @ 54257:               bt     L_0007
5747 @ 54260:               RETURN
5748 @ 54261:               LOCATE L_0007

   912      %REPEAT
5749 @ 54264:               LINE   912 "regression-compile-tmp/hal7502.imp"
5750 @ 54302:               REPEAT L_0003

   913  %END
   914  
5751 @ 54305:               LINE   913 "regression-compile-tmp/hal7502.imp"
5752 @ 54343:            END    _lev0id0_GETINST {lev=2 --> 1}

   915  %ROUTINE READ LINE
5753 @ 54344:            LINE   915 "regression-compile-tmp/hal7502.imp"
5754 @ 54382:            DEF    READLINE (_lev0id0_READLINE) 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
5755 @ 54402:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
5756 @ 54403:               FINISH ) {lev=2}

   916  %INTEGER Q
5757 @ 54404:               LINE   916 "regression-compile-tmp/hal7502.imp"
5758 @ 54442:               DEF    Q 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

   917      PUTPOS = STARTPOS
5759 @ 54455:               LINE   917 "regression-compile-tmp/hal7502.imp"
5760 @ 54493:               PUSH   PUTPOS
5761 @ 54496:               PUSH   STARTPOS
5762 @ 54499:               ASSVAL

   918      %IF MP = 0 %START
5763 @ 54500:               LINE   918 "regression-compile-tmp/hal7502.imp"
5764 @ 54538:               PUSH   MP
5765 @ 54541:               PUSHI  #0x00000000
5766 @ 54546:               JUMPIF # L_0004

   919      Q = 0;  PSEUDOLIM = 0
5767 @ 54550:               LINE   919 "regression-compile-tmp/hal7502.imp"
5768 @ 54588:               PUSH   Q
5769 @ 54591:               PUSHI  #0x00000000
5770 @ 54596:               ASSVAL
5771 @ 54597:               LINE   919 "regression-compile-tmp/hal7502.imp"
5772 @ 54635:               PUSH   PSEUDOLIM
5773 @ 54638:               PUSHI  #0x00000000
5774 @ 54643:               ASSVAL

   920      %CYCLE
5775 @ 54644:               LINE   920 "regression-compile-tmp/hal7502.imp"
5776 @ 54682:               LOCATE L_0006

   921      READ SYMBOL(SYM)
5777 @ 54685:               LINE   921 "regression-compile-tmp/hal7502.imp"
5778 @ 54723:               PUSH   READSYMBOL
5779 @ 54726:               PUSH   SYM
5780 @ 54729:               ASSPAR
5781 @ 54730:               CALL  

   922      READ SYMBOL(SYM) %AND Q=Q!!128 %IF SYM = ''''
5782 @ 54731:               LINE   922 "regression-compile-tmp/hal7502.imp"
5783 @ 54769:               PUSH   SYM
5784 @ 54772:               PUSHI  #0x00000027
5785 @ 54777:               JUMPIF # L_000a
5786 @ 54781:               PUSH   READSYMBOL
5787 @ 54784:               PUSH   SYM
5788 @ 54787:               ASSPAR
5789 @ 54788:               CALL  
5790 @ 54789:               PUSH   Q
5791 @ 54792:               PUSH   Q
5792 @ 54795:               PUSHI  #0x00000080
5793 @ 54800:               XOR   
5794 @ 54801:               ASSVAL
5795 @ 54802:               LOCATE L_000a

   923      %EXIT %IF SYM = NL
5796 @ 54805:               LINE   923 "regression-compile-tmp/hal7502.imp"
5797 @ 54843:               PUSH   SYM
5798 @ 54846:               PUSHI  #0x0000000a
5799 @ 54851:               JUMPIF # L_000a
5800 @ 54855:               GOTO   L_0007
5801 @ 54858:               LOCATE L_000a

   924      SYM = SYM-32 %IF SYM-Q >= 96; !LOWER-CASE -> UPPER-CASE
5802 @ 54861:               LINE   924 "regression-compile-tmp/hal7502.imp"
5803 @ 54899:               PUSH   SYM
5804 @ 54902:               PUSH   Q
5805 @ 54905:               SUB   
5806 @ 54906:               PUSHI  #0x00000060
5807 @ 54911:               JUMPIF < L_000a
5808 @ 54915:               PUSH   SYM
5809 @ 54918:               PUSH   SYM
5810 @ 54921:               PUSHI  #0x00000020
5811 @ 54926:               SUB   
5812 @ 54927:               ASSVAL
5813 @ 54928:               LOCATE L_000a

   925      SYM = SYM+Q
5814 @ 54931:               LINE   925 "regression-compile-tmp/hal7502.imp"
5815 @ 54969:               PUSH   SYM
5816 @ 54972:               PUSH   SYM
5817 @ 54975:               PUSH   Q
5818 @ 54978:               ADD   
5819 @ 54979:               ASSVAL

   926      %EXIT %IF SYM = '/' %AND PSEUDOLIM # 0
5820 @ 54980:               LINE   926 "regression-compile-tmp/hal7502.imp"
5821 @ 55018:               PUSH   SYM
5822 @ 55021:               PUSHI  #0x0000002f
5823 @ 55026:               JUMPIF # L_000a
5824 @ 55030:               PUSH   PSEUDOLIM
5825 @ 55033:               PUSHI  #0x00000000
5826 @ 55038:               JUMPIF = L_000a
5827 @ 55042:               GOTO   L_0007
5828 @ 55045:               LOCATE L_000a

   927      %IF SYM = ' ' %START
5829 @ 55048:               LINE   927 "regression-compile-tmp/hal7502.imp"
5830 @ 55086:               PUSH   SYM
5831 @ 55089:               PUSHI  #0x00000020
5832 @ 55094:               JUMPIF # L_000a

   928      PSEUDOLIM = PUTPOS %IF PSEUDOLIM = 0
5833 @ 55098:               LINE   928 "regression-compile-tmp/hal7502.imp"
5834 @ 55136:               PUSH   PSEUDOLIM
5835 @ 55139:               PUSHI  #0x00000000
5836 @ 55144:               JUMPIF # L_000d
5837 @ 55148:               PUSH   PSEUDOLIM
5838 @ 55151:               PUSH   PUTPOS
5839 @ 55154:               ASSVAL
5840 @ 55155:               LOCATE L_000d

   929      %finish %ELSE  PSEUDOLIM = 0
5841 @ 55158:               LINE   929 "regression-compile-tmp/hal7502.imp"
5842 @ 55196:               GOTO   L_0009
5843 @ 55199:               LOCATE L_000a
5844 @ 55202:               PUSH   PSEUDOLIM
5845 @ 55205:               PUSHI  #0x00000000
5846 @ 55210:               ASSVAL
5847 @ 55211:               LOCATE L_0009

   930      PUT CHAR(SYM)
5848 @ 55214:               LINE   930 "regression-compile-tmp/hal7502.imp"
5849 @ 55252:               PUSH   PUTCHAR
5850 @ 55255:               PUSH   SYM
5851 @ 55258:               ASSPAR
5852 @ 55259:               CALL  

   931      %REPEAT
5853 @ 55260:               LINE   931 "regression-compile-tmp/hal7502.imp"
5854 @ 55298:               REPEAT L_0006
5855 @ 55301:               LOCATE L_0007

   932      %IF PSEUDOLIM # 0 %START
5856 @ 55304:               LINE   932 "regression-compile-tmp/hal7502.imp"
5857 @ 55342:               PUSH   PSEUDOLIM
5858 @ 55345:               PUSHI  #0x00000000
5859 @ 55350:               JUMPIF = L_0007

   933      Q = PUTPOS;  PUTPOS = PSEUDOLIM
5860 @ 55354:               LINE   933 "regression-compile-tmp/hal7502.imp"
5861 @ 55392:               PUSH   Q
5862 @ 55395:               PUSH   PUTPOS
5863 @ 55398:               ASSVAL
5864 @ 55399:               LINE   933 "regression-compile-tmp/hal7502.imp"
5865 @ 55437:               PUSH   PUTPOS
5866 @ 55440:               PUSH   PSEUDOLIM
5867 @ 55443:               ASSVAL

   934      PUT CHAR(NL)
5868 @ 55444:               LINE   934 "regression-compile-tmp/hal7502.imp"
5869 @ 55482:               PUSH   PUTCHAR
5870 @ 55485:               PUSHI  #0x0000000a
5871 @ 55490:               ASSPAR
5872 @ 55491:               CALL  

   935      PUTPOS = Q
5873 @ 55492:               LINE   935 "regression-compile-tmp/hal7502.imp"
5874 @ 55530:               PUSH   PUTPOS
5875 @ 55533:               PUSH   Q
5876 @ 55536:               ASSVAL

   936      %FINISH
5877 @ 55537:               LINE   936 "regression-compile-tmp/hal7502.imp"
5878 @ 55575:               LOCATE L_0007

   937      %CYCLE
5879 @ 55578:               LINE   937 "regression-compile-tmp/hal7502.imp"
5880 @ 55616:               LOCATE L_0006

   938      PUT CHAR(SYM)
5881 @ 55619:               LINE   938 "regression-compile-tmp/hal7502.imp"
5882 @ 55657:               PUSH   PUTCHAR
5883 @ 55660:               PUSH   SYM
5884 @ 55663:               ASSPAR
5885 @ 55664:               CALL  

   939      %EXIT %IF SYM = NL
5886 @ 55665:               LINE   939 "regression-compile-tmp/hal7502.imp"
5887 @ 55703:               PUSH   SYM
5888 @ 55706:               PUSHI  #0x0000000a
5889 @ 55711:               JUMPIF # L_000a
5890 @ 55715:               GOTO   L_0007
5891 @ 55718:               LOCATE L_000a

   940      READ SYMBOL(SYM)
5892 @ 55721:               LINE   940 "regression-compile-tmp/hal7502.imp"
5893 @ 55759:               PUSH   READSYMBOL
5894 @ 55762:               PUSH   SYM
5895 @ 55765:               ASSPAR
5896 @ 55766:               CALL  

   941      %REPEAT
5897 @ 55767:               LINE   941 "regression-compile-tmp/hal7502.imp"
5898 @ 55805:               REPEAT L_0006
5899 @ 55808:               LOCATE L_0007

   942      PRINTPOS = STARTPOS
5900 @ 55811:               LINE   942 "regression-compile-tmp/hal7502.imp"
5901 @ 55849:               PUSH   PRINTPOS
5902 @ 55852:               PUSH   STARTPOS
5903 @ 55855:               ASSVAL

   943      %finish %ELSE  %START
5904 @ 55856:               LINE   943 "regression-compile-tmp/hal7502.imp"
5905 @ 55894:               GOTO   L_0003
5906 @ 55897:               LOCATE L_0004

   944      GETPOS = INTEGER(MP)
5907 @ 55900:               LINE   944 "regression-compile-tmp/hal7502.imp"
5908 @ 55938:               PUSH   GETPOS
5909 @ 55941:               PUSH   INTEGER
5910 @ 55944:               PUSH   MP
5911 @ 55947:               ASSPAR
5912 @ 55948:               CALL  
5913 @ 55949:               ASSVAL

   945      %IF CHAR(GETPOS) = 0 %START
5914 @ 55950:               LINE   945 "regression-compile-tmp/hal7502.imp"
5915 @ 55988:               PUSH   CHAR
5916 @ 55991:               PUSH   GETPOS
5917 @ 55994:               ASSPAR
5918 @ 55995:               CALL  
5919 @ 55996:               PUSHI  #0x00000000
5920 @ 56001:               JUMPIF # L_0007

   946      QBASE = MP
5921 @ 56005:               LINE   946 "regression-compile-tmp/hal7502.imp"
5922 @ 56043:               PUSH   QBASE
5923 @ 56046:               PUSH   MP
5924 @ 56049:               ASSVAL

   947      %IF INTEGER(MP+1)&16_8000 # 0 %START
5925 @ 56050:               LINE   947 "regression-compile-tmp/hal7502.imp"
5926 @ 56088:               PUSH   INTEGER
5927 @ 56091:               PUSH   MP
5928 @ 56094:               PUSHI  #0x00000001
5929 @ 56099:               ADD   
5930 @ 56100:               ASSPAR
5931 @ 56101:               CALL  
5932 @ 56102:               PUSHI  #0x00008000
5933 @ 56107:               AND   
5934 @ 56108:               PUSHI  #0x00000000
5935 @ 56113:               JUMPIF = L_000a

   948      %WHILE INTEGER(NP)&16_8000 = 0 %CYCLE
5936 @ 56117:               LINE   948 "regression-compile-tmp/hal7502.imp"
5937 @ 56155:               LOCATE L_000c
5938 @ 56158:               PUSH   INTEGER
5939 @ 56161:               PUSH   NP
5940 @ 56164:               ASSPAR
5941 @ 56165:               CALL  
5942 @ 56166:               PUSHI  #0x00008000
5943 @ 56171:               AND   
5944 @ 56172:               PUSHI  #0x00000000
5945 @ 56177:               JUMPIF # L_000d

   949      FAULT('C');  NP = NP+2
5946 @ 56181:               LINE   949 "regression-compile-tmp/hal7502.imp"
5947 @ 56219:               PUSH   FAULT
5948 @ 56222:               PUSHI  #0x00000043
5949 @ 56227:               ASSPAR
5950 @ 56228:               CALL  
5951 @ 56229:               LINE   949 "regression-compile-tmp/hal7502.imp"
5952 @ 56267:               PUSH   NP
5953 @ 56270:               PUSH   NP
5954 @ 56273:               PUSHI  #0x00000002
5955 @ 56278:               ADD   
5956 @ 56279:               ASSVAL

   950      %REPEAT
5957 @ 56280:               LINE   950 "regression-compile-tmp/hal7502.imp"
5958 @ 56318:               REPEAT L_000c
5959 @ 56321:               LOCATE L_000d

   951      SET LAB(LOC)
5960 @ 56324:               LINE   951 "regression-compile-tmp/hal7502.imp"
5961 @ 56362:               PUSH   SETLAB
5962 @ 56365:               PUSH   LOC
5963 @ 56368:               ASSPAR
5964 @ 56369:               CALL  

   952      %FINISH
5965 @ 56370:               LINE   952 "regression-compile-tmp/hal7502.imp"
5966 @ 56408:               LOCATE L_000a

   953      GETPOS = INTEGER(MP+2)
5967 @ 56411:               LINE   953 "regression-compile-tmp/hal7502.imp"
5968 @ 56449:               PUSH   GETPOS
5969 @ 56452:               PUSH   INTEGER
5970 @ 56455:               PUSH   MP
5971 @ 56458:               PUSHI  #0x00000002
5972 @ 56463:               ADD   
5973 @ 56464:               ASSPAR
5974 @ 56465:               CALL  
5975 @ 56466:               ASSVAL

   954      STARTPOS = INTEGER(MP+3)
5976 @ 56467:               LINE   954 "regression-compile-tmp/hal7502.imp"
5977 @ 56505:               PUSH   STARTPOS
5978 @ 56508:               PUSH   INTEGER
5979 @ 56511:               PUSH   MP
5980 @ 56514:               PUSHI  #0x00000003
5981 @ 56519:               ADD   
5982 @ 56520:               ASSPAR
5983 @ 56521:               CALL  
5984 @ 56522:               ASSVAL

   955      MP = INTEGER(MP+4)
5985 @ 56523:               LINE   955 "regression-compile-tmp/hal7502.imp"
5986 @ 56561:               PUSH   MP
5987 @ 56564:               PUSH   INTEGER
5988 @ 56567:               PUSH   MP
5989 @ 56570:               PUSHI  #0x00000004
5990 @ 56575:               ADD   
5991 @ 56576:               ASSPAR
5992 @ 56577:               CALL  
5993 @ 56578:               ASSVAL

   956      PRINTPOS = 0 %IF LIST&2 # 0
5994 @ 56579:               LINE   956 "regression-compile-tmp/hal7502.imp"
5995 @ 56617:               PUSH   LIST
5996 @ 56620:               PUSHI  #0x00000002
5997 @ 56625:               AND   
5998 @ 56626:               PUSHI  #0x00000000
5999 @ 56631:               JUMPIF = L_000a
6000 @ 56635:               PUSH   PRINTPOS
6001 @ 56638:               PUSHI  #0x00000000
6002 @ 56643:               ASSVAL
6003 @ 56644:               LOCATE L_000a

   957      GET SYM;                    !TERMINATOR
6004 @ 56647:               LINE   957 "regression-compile-tmp/hal7502.imp"
6005 @ 56685:               PUSH   GETSYM
6006 @ 56688:               CALL  

   958      GET SYM %IF SYM = ';'
6007 @ 56689:               LINE   958 "regression-compile-tmp/hal7502.imp"
6008 @ 56727:               PUSH   SYM
6009 @ 56730:               PUSHI  #0x0000003b
6010 @ 56735:               JUMPIF # L_000a
6011 @ 56739:               PUSH   GETSYM
6012 @ 56742:               CALL  
6013 @ 56743:               LOCATE L_000a

   959      %RETURN
6014 @ 56746:               LINE   959 "regression-compile-tmp/hal7502.imp"
6015 @ 56784:               RETURN

   960      %FINISH
6016 @ 56785:               LINE   960 "regression-compile-tmp/hal7502.imp"
6017 @ 56823:               LOCATE L_0007

   961      PRINTPOS = STARTPOS %IF LIST&2 # 0
6018 @ 56826:               LINE   961 "regression-compile-tmp/hal7502.imp"
6019 @ 56864:               PUSH   LIST
6020 @ 56867:               PUSHI  #0x00000002
6021 @ 56872:               AND   
6022 @ 56873:               PUSHI  #0x00000000
6023 @ 56878:               JUMPIF = L_0007
6024 @ 56882:               PUSH   PRINTPOS
6025 @ 56885:               PUSH   STARTPOS
6026 @ 56888:               ASSVAL
6027 @ 56889:               LOCATE L_0007

   962      %CYCLE
6028 @ 56892:               LINE   962 "regression-compile-tmp/hal7502.imp"
6029 @ 56930:               LOCATE L_0006

   963      SYM = CHAR(GETPOS);  GETPOS = GETPOS+1
6030 @ 56933:               LINE   963 "regression-compile-tmp/hal7502.imp"
6031 @ 56971:               PUSH   SYM
6032 @ 56974:               PUSH   CHAR
6033 @ 56977:               PUSH   GETPOS
6034 @ 56980:               ASSPAR
6035 @ 56981:               CALL  
6036 @ 56982:               ASSVAL
6037 @ 56983:               LINE   963 "regression-compile-tmp/hal7502.imp"
6038 @ 57021:               PUSH   GETPOS
6039 @ 57024:               PUSH   GETPOS
6040 @ 57027:               PUSHI  #0x00000001
6041 @ 57032:               ADD   
6042 @ 57033:               ASSVAL

   964      %IF TAG %START
6043 @ 57034:               LINE   964 "regression-compile-tmp/hal7502.imp"
6044 @ 57072:               PUSH   TAG
6045 @ 57075:               CALL  
6046 @ 57076:               bf     L_000a

   965      SYM=TERM %AND GETPOS=GETPOS-1 %IF TERM = ' '
6047 @ 57079:               LINE   965 "regression-compile-tmp/hal7502.imp"
6048 @ 57117:               PUSH   TERM
6049 @ 57120:               PUSHI  #0x00000020
6050 @ 57125:               JUMPIF # L_000d
6051 @ 57129:               PUSH   SYM
6052 @ 57132:               PUSH   TERM
6053 @ 57135:               ASSVAL
6054 @ 57136:               PUSH   GETPOS
6055 @ 57139:               PUSH   GETPOS
6056 @ 57142:               PUSHI  #0x00000001
6057 @ 57147:               SUB   
6058 @ 57148:               ASSVAL
6059 @ 57149:               LOCATE L_000d

   966      TYPE = INTEGER(MP);  VAL = GETPOS-1
6060 @ 57152:               LINE   966 "regression-compile-tmp/hal7502.imp"
6061 @ 57190:               PUSH   TYPE
6062 @ 57193:               PUSH   INTEGER
6063 @ 57196:               PUSH   MP
6064 @ 57199:               ASSPAR
6065 @ 57200:               CALL  
6066 @ 57201:               ASSVAL
6067 @ 57202:               LINE   966 "regression-compile-tmp/hal7502.imp"
6068 @ 57240:               PUSH   VAL
6069 @ 57243:               PUSH   GETPOS
6070 @ 57246:               PUSHI  #0x00000001
6071 @ 57251:               SUB   
6072 @ 57252:               ASSVAL

   967      LOOKUP(4)
6073 @ 57253:               LINE   967 "regression-compile-tmp/hal7502.imp"
6074 @ 57291:               PUSH   LOOKUP
6075 @ 57294:               PUSHI  #0x00000004
6076 @ 57299:               ASSPAR
6077 @ 57300:               CALL  

   968      %WHILE TYPE # VAL %CYCLE
6078 @ 57301:               LINE   968 "regression-compile-tmp/hal7502.imp"
6079 @ 57339:               LOCATE L_000c
6080 @ 57342:               PUSH   TYPE
6081 @ 57345:               PUSH   VAL
6082 @ 57348:               JUMPIF = L_000d

   969      PUT CHAR(CHAR(TYPE))
6083 @ 57352:               LINE   969 "regression-compile-tmp/hal7502.imp"
6084 @ 57390:               PUSH   PUTCHAR
6085 @ 57393:               PUSH   CHAR
6086 @ 57396:               PUSH   TYPE
6087 @ 57399:               ASSPAR
6088 @ 57400:               CALL  
6089 @ 57401:               ASSPAR
6090 @ 57402:               CALL  

   970      TYPE = TYPE+1
6091 @ 57403:               LINE   970 "regression-compile-tmp/hal7502.imp"
6092 @ 57441:               PUSH   TYPE
6093 @ 57444:               PUSH   TYPE
6094 @ 57447:               PUSHI  #0x00000001
6095 @ 57452:               ADD   
6096 @ 57453:               ASSVAL

   971      %REPEAT
6097 @ 57454:               LINE   971 "regression-compile-tmp/hal7502.imp"
6098 @ 57492:               REPEAT L_000c
6099 @ 57495:               LOCATE L_000d

   972      %FINISH
6100 @ 57498:               LINE   972 "regression-compile-tmp/hal7502.imp"
6101 @ 57536:               LOCATE L_000a

   973      %IF SYM = '?' %START
6102 @ 57539:               LINE   973 "regression-compile-tmp/hal7502.imp"
6103 @ 57577:               PUSH   SYM
6104 @ 57580:               PUSHI  #0x0000003f
6105 @ 57585:               JUMPIF # L_000a

   974      PUT CHAR(INTEGER(MP+1)>>5&31+'A')
6106 @ 57589:               LINE   974 "regression-compile-tmp/hal7502.imp"
6107 @ 57627:               PUSH   PUTCHAR
6108 @ 57630:               PUSH   INTEGER
6109 @ 57633:               PUSH   MP
6110 @ 57636:               PUSHI  #0x00000001
6111 @ 57641:               ADD   
6112 @ 57642:               ASSPAR
6113 @ 57643:               CALL  
6114 @ 57644:               PUSHI  #0x00000005
6115 @ 57649:               RSH   
6116 @ 57650:               PUSHI  #0x0000001f
6117 @ 57655:               AND   
6118 @ 57656:               PUSHI  #0x00000041
6119 @ 57661:               ADD   
6120 @ 57662:               ASSPAR
6121 @ 57663:               CALL  

   975      SYM = INTEGER(MP+1)&31+'A'
6122 @ 57664:               LINE   975 "regression-compile-tmp/hal7502.imp"
6123 @ 57702:               PUSH   SYM
6124 @ 57705:               PUSH   INTEGER
6125 @ 57708:               PUSH   MP
6126 @ 57711:               PUSHI  #0x00000001
6127 @ 57716:               ADD   
6128 @ 57717:               ASSPAR
6129 @ 57718:               CALL  
6130 @ 57719:               PUSHI  #0x0000001f
6131 @ 57724:               AND   
6132 @ 57725:               PUSHI  #0x00000041
6133 @ 57730:               ADD   
6134 @ 57731:               ASSVAL

   976      %FINISH
6135 @ 57732:               LINE   976 "regression-compile-tmp/hal7502.imp"
6136 @ 57770:               LOCATE L_000a

   977      PUT CHAR(SYM)
6137 @ 57773:               LINE   977 "regression-compile-tmp/hal7502.imp"
6138 @ 57811:               PUSH   PUTCHAR
6139 @ 57814:               PUSH   SYM
6140 @ 57817:               ASSPAR
6141 @ 57818:               CALL  

   978      INTEGER(MP) = GETPOS
6142 @ 57819:               LINE   978 "regression-compile-tmp/hal7502.imp"
6143 @ 57857:               PUSH   INTEGER
6144 @ 57860:               PUSH   MP
6145 @ 57863:               ASSPAR
6146 @ 57864:               CALL  
6147 @ 57865:               PUSH   GETPOS
6148 @ 57868:               ASSVAL

   979      %EXIT %IF SYM = NL
6149 @ 57869:               LINE   979 "regression-compile-tmp/hal7502.imp"
6150 @ 57907:               PUSH   SYM
6151 @ 57910:               PUSHI  #0x0000000a
6152 @ 57915:               JUMPIF # L_000a
6153 @ 57919:               GOTO   L_0007
6154 @ 57922:               LOCATE L_000a

   980      %REPEAT
6155 @ 57925:               LINE   980 "regression-compile-tmp/hal7502.imp"
6156 @ 57963:               REPEAT L_0006
6157 @ 57966:               LOCATE L_0007

   981      %FINISH
6158 @ 57969:               LINE   981 "regression-compile-tmp/hal7502.imp"
6159 @ 58007:               LOCATE L_0003

   982      QBASE = (PUTPOS+1)>>1
6160 @ 58010:               LINE   982 "regression-compile-tmp/hal7502.imp"
6161 @ 58048:               PUSH   QBASE
6162 @ 58051:               PUSH   PUTPOS
6163 @ 58054:               PUSHI  #0x00000001
6164 @ 58059:               ADD   
6165 @ 58060:               PUSHI  #0x00000001
6166 @ 58065:               RSH   
6167 @ 58066:               ASSVAL

   983      GETPOS = STARTPOS;  GET SYM
6168 @ 58067:               LINE   983 "regression-compile-tmp/hal7502.imp"
6169 @ 58105:               PUSH   GETPOS
6170 @ 58108:               PUSH   STARTPOS
6171 @ 58111:               ASSVAL
6172 @ 58112:               LINE   983 "regression-compile-tmp/hal7502.imp"
6173 @ 58150:               PUSH   GETSYM
6174 @ 58153:               CALL  

   984  %END
   985  
6175 @ 58154:               LINE   984 "regression-compile-tmp/hal7502.imp"
6176 @ 58192:            END    _lev0id0_READLINE {lev=2 --> 1}

   986  %ROUTINE SCAN ARG
   987  !    SET TYPE,VAL TO START,LIM OF ARG IF NOT NULL
6177 @ 58193:            LINE   986 "regression-compile-tmp/hal7502.imp"
6178 @ 58231:            DEF    SCANARG (_lev0id0_SCANARG) 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
6179 @ 58250:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6180 @ 58251:               FINISH ) {lev=2}

   988  %INTEGER I,J
6181 @ 58252:               LINE   988 "regression-compile-tmp/hal7502.imp"
6182 @ 58290:               DEF    I p1=V_00dd a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6183 @ 58303:               DEF    J 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

   989      %RETURN %IF SYM='I' %AND CHAR(GETPOS)='F' %AND CHAR(GETPOS+1)=' '
6184 @ 58316:               LINE   989 "regression-compile-tmp/hal7502.imp"
6185 @ 58354:               PUSH   SYM
6186 @ 58357:               PUSHI  #0x00000049
6187 @ 58362:               JUMPIF # L_0004
6188 @ 58366:               PUSH   CHAR
6189 @ 58369:               PUSH   GETPOS
6190 @ 58372:               ASSPAR
6191 @ 58373:               CALL  
6192 @ 58374:               PUSHI  #0x00000046
6193 @ 58379:               JUMPIF # L_0004
6194 @ 58383:               PUSH   CHAR
6195 @ 58386:               PUSH   GETPOS
6196 @ 58389:               PUSHI  #0x00000001
6197 @ 58394:               ADD   
6198 @ 58395:               ASSPAR
6199 @ 58396:               CALL  
6200 @ 58397:               PUSHI  #0x00000020
6201 @ 58402:               JUMPIF # L_0004
6202 @ 58406:               RETURN
6203 @ 58407:               LOCATE L_0004

   990      I = GETPOS-1;  I = GETPOS %IF SYM = '['
6204 @ 58410:               LINE   990 "regression-compile-tmp/hal7502.imp"
6205 @ 58448:               PUSH   I
6206 @ 58451:               PUSH   GETPOS
6207 @ 58454:               PUSHI  #0x00000001
6208 @ 58459:               SUB   
6209 @ 58460:               ASSVAL
6210 @ 58461:               LINE   990 "regression-compile-tmp/hal7502.imp"
6211 @ 58499:               PUSH   SYM
6212 @ 58502:               PUSHI  #0x0000005b
6213 @ 58507:               JUMPIF # L_0004
6214 @ 58511:               PUSH   I
6215 @ 58514:               PUSH   GETPOS
6216 @ 58517:               ASSVAL
6217 @ 58518:               LOCATE L_0004

   991      J = 0
6218 @ 58521:               LINE   991 "regression-compile-tmp/hal7502.imp"
6219 @ 58559:               PUSH   J
6220 @ 58562:               PUSHI  #0x00000000
6221 @ 58567:               ASSVAL

   992      %CYCLE
6222 @ 58568:               LINE   992 "regression-compile-tmp/hal7502.imp"
6223 @ 58606:               LOCATE L_0003

   993      %EXIT %IF SYM = NL
6224 @ 58609:               LINE   993 "regression-compile-tmp/hal7502.imp"
6225 @ 58647:               PUSH   SYM
6226 @ 58650:               PUSHI  #0x0000000a
6227 @ 58655:               JUMPIF # L_0007
6228 @ 58659:               GOTO   L_0004
6229 @ 58662:               LOCATE L_0007

   994      %EXIT %IF (SYM=' ' %OR SYM=',' %OR SYM=';') %AND J<=0
6230 @ 58665:               LINE   994 "regression-compile-tmp/hal7502.imp"
6231 @ 58703:               PUSH   SYM
6232 @ 58706:               PUSHI  #0x00000020
6233 @ 58711:               JUMPIF = L_0008
6234 @ 58715:               PUSH   SYM
6235 @ 58718:               PUSHI  #0x0000002c
6236 @ 58723:               JUMPIF = L_0008
6237 @ 58727:               PUSH   SYM
6238 @ 58730:               PUSHI  #0x0000003b
6239 @ 58735:               JUMPIF # L_0007
6240 @ 58739:               LOCATE L_0008
6241 @ 58742:               PUSH   J
6242 @ 58745:               PUSHI  #0x00000000
6243 @ 58750:               JUMPIF > L_0007
6244 @ 58754:               GOTO   L_0004
6245 @ 58757:               LOCATE L_0007

   995      J = J+1 %IF SYM = '['
6246 @ 58760:               LINE   995 "regression-compile-tmp/hal7502.imp"
6247 @ 58798:               PUSH   SYM
6248 @ 58801:               PUSHI  #0x0000005b
6249 @ 58806:               JUMPIF # L_0007
6250 @ 58810:               PUSH   J
6251 @ 58813:               PUSH   J
6252 @ 58816:               PUSHI  #0x00000001
6253 @ 58821:               ADD   
6254 @ 58822:               ASSVAL
6255 @ 58823:               LOCATE L_0007

   996      %IF SYM = ']' %START
6256 @ 58826:               LINE   996 "regression-compile-tmp/hal7502.imp"
6257 @ 58864:               PUSH   SYM
6258 @ 58867:               PUSHI  #0x0000005d
6259 @ 58872:               JUMPIF # L_0007

   997      J = J-1;  %EXIT %IF J = 0
6260 @ 58876:               LINE   997 "regression-compile-tmp/hal7502.imp"
6261 @ 58914:               PUSH   J
6262 @ 58917:               PUSH   J
6263 @ 58920:               PUSHI  #0x00000001
6264 @ 58925:               SUB   
6265 @ 58926:               ASSVAL
6266 @ 58927:               LINE   997 "regression-compile-tmp/hal7502.imp"
6267 @ 58965:               PUSH   J
6268 @ 58968:               PUSHI  #0x00000000
6269 @ 58973:               JUMPIF # L_000a
6270 @ 58977:               GOTO   L_0004
6271 @ 58980:               LOCATE L_000a

   998      %FINISH
6272 @ 58983:               LINE   998 "regression-compile-tmp/hal7502.imp"
6273 @ 59021:               LOCATE L_0007

   999      SYM = CHAR(GETPOS);  GETPOS = GETPOS+1
6274 @ 59024:               LINE   999 "regression-compile-tmp/hal7502.imp"
6275 @ 59062:               PUSH   SYM
6276 @ 59065:               PUSH   CHAR
6277 @ 59068:               PUSH   GETPOS
6278 @ 59071:               ASSPAR
6279 @ 59072:               CALL  
6280 @ 59073:               ASSVAL
6281 @ 59074:               LINE   999 "regression-compile-tmp/hal7502.imp"
6282 @ 59112:               PUSH   GETPOS
6283 @ 59115:               PUSH   GETPOS
6284 @ 59118:               PUSHI  #0x00000001
6285 @ 59123:               ADD   
6286 @ 59124:               ASSVAL

  1000      %REPEAT
6287 @ 59125:               LINE   1000 "regression-compile-tmp/hal7502.imp"
6288 @ 59163:               REPEAT L_0003
6289 @ 59166:               LOCATE L_0004

  1001      %IF GETPOS-1 # I %START
6290 @ 59169:               LINE   1001 "regression-compile-tmp/hal7502.imp"
6291 @ 59207:               PUSH   GETPOS
6292 @ 59210:               PUSHI  #0x00000001
6293 @ 59215:               SUB   
6294 @ 59216:               PUSH   I
6295 @ 59219:               JUMPIF = L_0004

  1002      TYPE = I;  VAL = GETPOS-1
6296 @ 59223:               LINE   1002 "regression-compile-tmp/hal7502.imp"
6297 @ 59261:               PUSH   TYPE
6298 @ 59264:               PUSH   I
6299 @ 59267:               ASSVAL
6300 @ 59268:               LINE   1002 "regression-compile-tmp/hal7502.imp"
6301 @ 59306:               PUSH   VAL
6302 @ 59309:               PUSH   GETPOS
6303 @ 59312:               PUSHI  #0x00000001
6304 @ 59317:               SUB   
6305 @ 59318:               ASSVAL

  1003      %FINISH
6306 @ 59319:               LINE   1003 "regression-compile-tmp/hal7502.imp"
6307 @ 59357:               LOCATE L_0004

  1004      GET SYM %IF SYM = ']'
6308 @ 59360:               LINE   1004 "regression-compile-tmp/hal7502.imp"
6309 @ 59398:               PUSH   SYM
6310 @ 59401:               PUSHI  #0x0000005d
6311 @ 59406:               JUMPIF # L_0004
6312 @ 59410:               PUSH   GETSYM
6313 @ 59413:               CALL  
6314 @ 59414:               LOCATE L_0004

  1005  %END
  1006  
6315 @ 59417:               LINE   1005 "regression-compile-tmp/hal7502.imp"
6316 @ 59455:            END    _lev0id0_SCANARG {lev=2 --> 1}

  1007  %ROUTINE SET ACC
6317 @ 59456:            LINE   1007 "regression-compile-tmp/hal7502.imp"
6318 @ 59494:            DEF    SETACC (_lev0id0_SETACC) p1=V_00dd a/tf=7 b/format=0 c/ostate=0  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
6319 @ 59512:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
6320 @ 59513:               FINISH ) {lev=2}

  1008  %INTEGER I
6321 @ 59514:               LINE   1008 "regression-compile-tmp/hal7502.imp"
6322 @ 59552:               DEF    I 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

  1009      ACC = -1;  ATYPE = -1;  CREG = -1
6323 @ 59565:               LINE   1009 "regression-compile-tmp/hal7502.imp"
6324 @ 59603:               PUSH   ACC
6325 @ 59606:               PUSHI  #0x00000001
6326 @ 59611:               NEGATE
6327 @ 59612:               ASSVAL
6328 @ 59613:               LINE   1009 "regression-compile-tmp/hal7502.imp"
6329 @ 59651:               PUSH   ATYPE
6330 @ 59654:               PUSHI  #0x00000001
6331 @ 59659:               NEGATE
6332 @ 59660:               ASSVAL
6333 @ 59661:               LINE   1009 "regression-compile-tmp/hal7502.imp"
6334 @ 59699:               PUSH   CREG
6335 @ 59702:               PUSHI  #0x00000001
6336 @ 59707:               NEGATE
6337 @ 59708:               ASSVAL

  1010      I = TEMPS
6338 @ 59709:               LINE   1010 "regression-compile-tmp/hal7502.imp"
6339 @ 59747:               PUSH   I
6340 @ 59750:               PUSH   TEMPS
6341 @ 59753:               ASSVAL

  1011      %RETURN %IF I = 0
6342 @ 59754:               LINE   1011 "regression-compile-tmp/hal7502.imp"
6343 @ 59792:               PUSH   I
6344 @ 59795:               PUSHI  #0x00000000
6345 @ 59800:               JUMPIF # L_0004
6346 @ 59804:               RETURN
6347 @ 59805:               LOCATE L_0004

  1012      %CYCLE
6348 @ 59808:               LINE   1012 "regression-compile-tmp/hal7502.imp"
6349 @ 59846:               LOCATE L_0003

  1013      ACC = ACC+1
6350 @ 59849:               LINE   1013 "regression-compile-tmp/hal7502.imp"
6351 @ 59887:               PUSH   ACC
6352 @ 59890:               PUSH   ACC
6353 @ 59893:               PUSHI  #0x00000001
6354 @ 59898:               ADD   
6355 @ 59899:               ASSVAL

  1014      %RETURN %IF I&1 # 0
6356 @ 59900:               LINE   1014 "regression-compile-tmp/hal7502.imp"
6357 @ 59938:               PUSH   I
6358 @ 59941:               PUSHI  #0x00000001
6359 @ 59946:               AND   
6360 @ 59947:               PUSHI  #0x00000000
6361 @ 59952:               JUMPIF = L_0007
6362 @ 59956:               RETURN
6363 @ 59957:               LOCATE L_0007

  1015      I = I>>1
6364 @ 59960:               LINE   1015 "regression-compile-tmp/hal7502.imp"
6365 @ 59998:               PUSH   I
6366 @ 60001:               PUSH   I
6367 @ 60004:               PUSHI  #0x00000001
6368 @ 60009:               RSH   
6369 @ 60010:               ASSVAL

  1016      %REPEAT
6370 @ 60011:               LINE   1016 "regression-compile-tmp/hal7502.imp"
6371 @ 60049:               REPEAT L_0003

  1017  %END
  1018  
  1019  !MAIN PROGRAM
  1020  
  1021  !RADIX 36 CONSTANTS
6372 @ 60052:               LINE   1017 "regression-compile-tmp/hal7502.imp"
6373 @ 60090:            END    _lev0id0_SETACC {lev=2 --> 1}

  1022  %OWNINTEGER B=2184, IF=9991, ELS=5950, E=5403, FIN=6907, ISH=10490
6374 @ 60091:            LINE   1022 "regression-compile-tmp/hal7502.imp"
6375 @ 60129:            PUSHI  #0x00000888
6376 @ 60134:            DEF    B 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
6377 @ 60147:            INIT   1
6378 @ 60150:            PUSHI  #0x00002707
6379 @ 60155:            DEF    IF 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
6380 @ 60169:            INIT   1
6381 @ 60172:            PUSHI  #0x0000173e
6382 @ 60177:            DEF    ELS 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
6383 @ 60192:            INIT   1
6384 @ 60195:            PUSHI  #0x0000151b
6385 @ 60200:            DEF    E 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
6386 @ 60213:            INIT   1
6387 @ 60216:            PUSHI  #0x00001afb
6388 @ 60221:            DEF    FIN 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
6389 @ 60236:            INIT   1
6390 @ 60239:            PUSHI  #0x000028fa
6391 @ 60244:            DEF    ISH 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
6392 @ 60259:            INIT   1

  1023  %OWNINTEGER JUM=11642, P=17206, PS=17983, DEF=4605, END=6009
  1024  
6393 @ 60262:            LINE   1023 "regression-compile-tmp/hal7502.imp"
6394 @ 60300:            PUSHI  #0x00002d7a
6395 @ 60305:            DEF    JUM 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
6396 @ 60320:            INIT   1
6397 @ 60323:            PUSHI  #0x00004336
6398 @ 60328:            DEF    P 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
6399 @ 60341:            INIT   1
6400 @ 60344:            PUSHI  #0x0000463f
6401 @ 60349:            DEF    PS 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
6402 @ 60363:            INIT   1
6403 @ 60366:            PUSHI  #0x000011fd
6404 @ 60371:            DEF    DEF 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
6405 @ 60386:            INIT   1
6406 @ 60389:            PUSHI  #0x00001779
6407 @ 60394:            DEF    END 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
6408 @ 60409:            INIT   1

  1025  %INTEGER I,J,K
  1026  !!%FAULT 19 ->ERR;                      !RECOGNITION ERROR
  1027  !!%FAULT 9 ->BEND;                      !INPUT ENDED
  1028  
6409 @ 60412:            LINE   1025 "regression-compile-tmp/hal7502.imp"
6410 @ 60450:            DEF    I p1=V_00e9 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
6411 @ 60463:            DEF    J p1=V_00ea 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
6412 @ 60476:            DEF    K p1=V_00eb 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

  1029      %CYCLE I = 1,1,SBOUND
6413 @ 60489:            LINE   1029 "regression-compile-tmp/hal7502.imp"
6414 @ 60527:            PUSH   I
6415 @ 60530:            PUSHI  #0x00000001
6416 @ 60535:            PUSH   SBOUND
6417 @ 60538:            PUSHI  #0x00000001
6418 @ 60543:            FOR    L_0003

  1030      STORE(I) = 0
6419 @ 60546:            LINE   1030 "regression-compile-tmp/hal7502.imp"
6420 @ 60584:            PUSH   STORE
6421 @ 60587:            PUSH   I
6422 @ 60590:            ACCESS
6423 @ 60591:            PUSHI  #0x00000000
6424 @ 60596:            ASSVAL

  1031      %REPEAT
6425 @ 60597:            LINE   1031 "regression-compile-tmp/hal7502.imp"
6426 @ 60635:            REPEAT L_0003
6427 @ 60638:            LOCATE L_0004

  1032      CODEPOS = ADDR(STORE(1))
6428 @ 60641:            LINE   1032 "regression-compile-tmp/hal7502.imp"
6429 @ 60679:            PUSH   CODEPOS
6430 @ 60682:            PUSH   ADDR
6431 @ 60685:            PUSH   STORE
6432 @ 60688:            PUSHI  #0x00000001
6433 @ 60693:            ACCESS
6434 @ 60694:            ASSPAR
6435 @ 60695:            CALL  
6436 @ 60696:            ASSVAL

  1033      MACLIM = (CODEPOS+20)<<1
6437 @ 60697:            LINE   1033 "regression-compile-tmp/hal7502.imp"
6438 @ 60735:            PUSH   MACLIM
6439 @ 60738:            PUSH   CODEPOS
6440 @ 60741:            PUSHI  #0x00000014
6441 @ 60746:            ADD   
6442 @ 60747:            PUSHI  #0x00000001
6443 @ 60752:            LSH   
6444 @ 60753:            ASSVAL

  1034      STORELIM = ADDR(STORE(SBOUND))
6445 @ 60754:            LINE   1034 "regression-compile-tmp/hal7502.imp"
6446 @ 60792:            PUSH   STORELIM
6447 @ 60795:            PUSH   ADDR
6448 @ 60798:            PUSH   STORE
6449 @ 60801:            PUSH   SBOUND
6450 @ 60804:            ACCESS
6451 @ 60805:            ASSPAR
6452 @ 60806:            CALL  
6453 @ 60807:            ASSVAL

  1035      NP = STORELIM
6454 @ 60808:            LINE   1035 "regression-compile-tmp/hal7502.imp"
6455 @ 60846:            PUSH   NP
6456 @ 60849:            PUSH   STORELIM
6457 @ 60852:            ASSVAL

  1036      LABLIM = NP-60
6458 @ 60853:            LINE   1036 "regression-compile-tmp/hal7502.imp"
6459 @ 60891:            PUSH   LABLIM
6460 @ 60894:            PUSH   NP
6461 @ 60897:            PUSHI  #0x0000003c
6462 @ 60902:            SUB   
6463 @ 60903:            ASSVAL

  1037      BP = LABLIM
6464 @ 60904:            LINE   1037 "regression-compile-tmp/hal7502.imp"
6465 @ 60942:            PUSH   BP
6466 @ 60945:            PUSH   LABLIM
6467 @ 60948:            ASSVAL

  1038      DEFLIM = STORELIM-(SBOUND>>2)
6468 @ 60949:            LINE   1038 "regression-compile-tmp/hal7502.imp"
6469 @ 60987:            PUSH   DEFLIM
6470 @ 60990:            PUSH   STORELIM
6471 @ 60993:            PUSH   SBOUND
6472 @ 60996:            PUSHI  #0x00000002
6473 @ 61001:            RSH   
6474 @ 61002:            SUB   
6475 @ 61003:            ASSVAL

  1039      DEFMIN = DEFLIM
6476 @ 61004:            LINE   1039 "regression-compile-tmp/hal7502.imp"
6477 @ 61042:            PUSH   DEFMIN
6478 @ 61045:            PUSH   DEFLIM
6479 @ 61048:            ASSVAL

  1040      INTEGER(BP) = DEFLIM
6480 @ 61049:            LINE   1040 "regression-compile-tmp/hal7502.imp"
6481 @ 61087:            PUSH   INTEGER
6482 @ 61090:            PUSH   BP
6483 @ 61093:            ASSPAR
6484 @ 61094:            CALL  
6485 @ 61095:            PUSH   DEFLIM
6486 @ 61098:            ASSVAL

  1041      SELECT INPUT(PRE)
6487 @ 61099:            LINE   1041 "regression-compile-tmp/hal7502.imp"
6488 @ 61137:            PUSH   SELECTINPUT
6489 @ 61140:            PUSH   PRE
6490 @ 61143:            ASSPAR
6491 @ 61144:            CALL  

  1042  DO PASS:
6492 @ 61145:            LINE   1042 "regression-compile-tmp/hal7502.imp"
6493 @ 61183:            LABEL  L_00ec

  1043      PUT WORD(0) %AND CONTROL=16_20 %IF PASS > 0
6494 @ 61186:            LINE   1043 "regression-compile-tmp/hal7502.imp"
6495 @ 61224:            PUSH   PASS
6496 @ 61227:            PUSHI  #0x00000000
6497 @ 61232:            JUMPIF <= L_0004
6498 @ 61236:            PUSH   PUTWORD
6499 @ 61239:            PUSHI  #0x00000000
6500 @ 61244:            ASSPAR
6501 @ 61245:            CALL  
6502 @ 61246:            PUSH   CONTROL
6503 @ 61249:            PUSHI  #0x00000020
6504 @ 61254:            ASSVAL
6505 @ 61255:            LOCATE L_0004

  1044      STARTPOS = MACLIM
6506 @ 61258:            LINE   1044 "regression-compile-tmp/hal7502.imp"
6507 @ 61296:            PUSH   STARTPOS
6508 @ 61299:            PUSH   MACLIM
6509 @ 61302:            ASSVAL

  1045      MP = 0
6510 @ 61303:            LINE   1045 "regression-compile-tmp/hal7502.imp"
6511 @ 61341:            PUSH   MP
6512 @ 61344:            PUSHI  #0x00000000
6513 @ 61349:            ASSVAL

  1046      ALMAX = DEFLIM
6514 @ 61350:            LINE   1046 "regression-compile-tmp/hal7502.imp"
6515 @ 61388:            PUSH   ALMAX
6516 @ 61391:            PUSH   DEFLIM
6517 @ 61394:            ASSVAL

  1047      LABMIN = LABLIM
6518 @ 61395:            LINE   1047 "regression-compile-tmp/hal7502.imp"
6519 @ 61433:            PUSH   LABMIN
6520 @ 61436:            PUSH   LABLIM
6521 @ 61439:            ASSVAL

  1048      ASSCOND = 1;  SKIP = 0
6522 @ 61440:            LINE   1048 "regression-compile-tmp/hal7502.imp"
6523 @ 61478:            PUSH   ASSCOND
6524 @ 61481:            PUSHI  #0x00000001
6525 @ 61486:            ASSVAL
6526 @ 61487:            LINE   1048 "regression-compile-tmp/hal7502.imp"
6527 @ 61525:            PUSH   SKIP
6528 @ 61528:            PUSHI  #0x00000000
6529 @ 61533:            ASSVAL

  1049      LOCTYPE = MEMMASK+RELMASK;  LOC = 0
6530 @ 61534:            LINE   1049 "regression-compile-tmp/hal7502.imp"
6531 @ 61572:            PUSH   LOCTYPE
6532 @ 61575:            PUSH   MEMMASK
6533 @ 61578:            PUSH   RELMASK
6534 @ 61581:            ADD   
6535 @ 61582:            ASSVAL
6536 @ 61583:            LINE   1049 "regression-compile-tmp/hal7502.imp"
6537 @ 61621:            PUSH   LOC
6538 @ 61624:            PUSHI  #0x00000000
6539 @ 61629:            ASSVAL

  1050      SET ACC
6540 @ 61630:            LINE   1050 "regression-compile-tmp/hal7502.imp"
6541 @ 61668:            PUSH   SETACC
6542 @ 61671:            CALL  

  1051  READ: FSYM = ' ';  FAULTPOS = 0
6543 @ 61672:            LINE   1051 "regression-compile-tmp/hal7502.imp"
6544 @ 61710:            LABEL  L_00ed
6545 @ 61713:            LINE   1051 "regression-compile-tmp/hal7502.imp"
6546 @ 61751:            PUSH   FSYM
6547 @ 61754:            PUSHI  #0x00000020
6548 @ 61759:            ASSVAL
6549 @ 61760:            LINE   1051 "regression-compile-tmp/hal7502.imp"
6550 @ 61798:            PUSH   FAULTPOS
6551 @ 61801:            PUSHI  #0x00000000
6552 @ 61806:            ASSVAL

  1052      READ LINE
6553 @ 61807:            LINE   1052 "regression-compile-tmp/hal7502.imp"
6554 @ 61845:            PUSH   READLINE
6555 @ 61848:            CALL  

  1053  NEXT:
6556 @ 61849:            LINE   1053 "regression-compile-tmp/hal7502.imp"
6557 @ 61887:            LABEL  L_00ee

  1054      DREG = -1
6558 @ 61890:            LINE   1054 "regression-compile-tmp/hal7502.imp"
6559 @ 61928:            PUSH   DREG
6560 @ 61931:            PUSHI  #0x00000001
6561 @ 61936:            NEGATE
6562 @ 61937:            ASSVAL

  1055      MODE = 0
6563 @ 61938:            LINE   1055 "regression-compile-tmp/hal7502.imp"
6564 @ 61976:            PUSH   MODE
6565 @ 61979:            PUSHI  #0x00000000
6566 @ 61984:            ASSVAL

  1056      PEND = 0;  COND = 0
6567 @ 61985:            LINE   1056 "regression-compile-tmp/hal7502.imp"
6568 @ 62023:            PUSH   PEND
6569 @ 62026:            PUSHI  #0x00000000
6570 @ 62031:            ASSVAL
6571 @ 62032:            LINE   1056 "regression-compile-tmp/hal7502.imp"
6572 @ 62070:            PUSH   COND
6573 @ 62073:            PUSHI  #0x00000000
6574 @ 62078:            ASSVAL

  1057      QSTART = QBASE;  QLIM = QSTART
6575 @ 62079:            LINE   1057 "regression-compile-tmp/hal7502.imp"
6576 @ 62117:            PUSH   QSTART
6577 @ 62120:            PUSH   QBASE
6578 @ 62123:            ASSVAL
6579 @ 62124:            LINE   1057 "regression-compile-tmp/hal7502.imp"
6580 @ 62162:            PUSH   QLIM
6581 @ 62165:            PUSH   QSTART
6582 @ 62168:            ASSVAL

  1058      FLAG = 0
6583 @ 62169:            LINE   1058 "regression-compile-tmp/hal7502.imp"
6584 @ 62207:            PUSH   FLAG
6585 @ 62210:            PUSHI  #0x00000000
6586 @ 62215:            ASSVAL

  1059      %IF S('$') %START
6587 @ 62216:            LINE   1059 "regression-compile-tmp/hal7502.imp"
6588 @ 62254:            PUSH   S
6589 @ 62257:            PUSHI  #0x00000024
6590 @ 62262:            ASSPAR
6591 @ 62263:            CALL  
6592 @ 62264:            bf     L_0004

  1060      ->NEWPAGE %IF SYM = '/'
6593 @ 62267:            LINE   1060 "regression-compile-tmp/hal7502.imp"
6594 @ 62305:            PUSH   SYM
6595 @ 62308:            PUSHI  #0x0000002f
6596 @ 62313:            JUMPIF # L_0007
6597 @ 62317:            JUMP   L_00ef
6598 @ 62320:            LOCATE L_0007

  1061      ->ERR %IF %NOT TAG
6599 @ 62323:            LINE   1061 "regression-compile-tmp/hal7502.imp"
6600 @ 62361:            PUSH   TAG
6601 @ 62364:            CALL  
6602 @ 62365:            bt     L_0007
6603 @ 62368:            JUMP   L_00f0
6604 @ 62371:            LOCATE L_0007

  1062      ->ASSIF %IF TAG1 = IF
6605 @ 62374:            LINE   1062 "regression-compile-tmp/hal7502.imp"
6606 @ 62412:            PUSH   TAG1
6607 @ 62415:            PUSH   IF
6608 @ 62418:            JUMPIF # L_0007
6609 @ 62422:            JUMP   L_00f1
6610 @ 62425:            LOCATE L_0007

  1063      ->ASSELSE %IF TAG1 = ELS
6611 @ 62428:            LINE   1063 "regression-compile-tmp/hal7502.imp"
6612 @ 62466:            PUSH   TAG1
6613 @ 62469:            PUSH   ELS
6614 @ 62472:            JUMPIF # L_0007
6615 @ 62476:            JUMP   L_00f2
6616 @ 62479:            LOCATE L_0007

  1064      ->ASSFIN %IF TAG1 = FIN
6617 @ 62482:            LINE   1064 "regression-compile-tmp/hal7502.imp"
6618 @ 62520:            PUSH   TAG1
6619 @ 62523:            PUSH   FIN
6620 @ 62526:            JUMPIF # L_0007
6621 @ 62530:            JUMP   L_00f3
6622 @ 62533:            LOCATE L_0007

  1065      ->LEND %IF SKIP # 0
6623 @ 62536:            LINE   1065 "regression-compile-tmp/hal7502.imp"
6624 @ 62574:            PUSH   SKIP
6625 @ 62577:            PUSHI  #0x00000000
6626 @ 62582:            JUMPIF = L_0007
6627 @ 62586:            JUMP   L_00f4
6628 @ 62589:            LOCATE L_0007

  1066      ->DEFINE %IF TAG1 = DEF
6629 @ 62592:            LINE   1066 "regression-compile-tmp/hal7502.imp"
6630 @ 62630:            PUSH   TAG1
6631 @ 62633:            PUSH   DEF
6632 @ 62636:            JUMPIF # L_0007
6633 @ 62640:            JUMP   L_00f5
6634 @ 62643:            LOCATE L_0007

  1067      ->DEFINE %IF TAG1 = 19625;     !RED
6635 @ 62646:            LINE   1067 "regression-compile-tmp/hal7502.imp"
6636 @ 62684:            PUSH   TAG1
6637 @ 62687:            PUSHI  #0x00004ca9
6638 @ 62692:            JUMPIF # L_0007
6639 @ 62696:            JUMP   L_00f5
6640 @ 62699:            LOCATE L_0007

  1068      ->LISTC %IF TAG1 = 13350;      !LIS
6641 @ 62702:            LINE   1068 "regression-compile-tmp/hal7502.imp"
6642 @ 62740:            PUSH   TAG1
6643 @ 62743:            PUSHI  #0x00003426
6644 @ 62748:            JUMPIF # L_0007
6645 @ 62752:            JUMP   L_00f6
6646 @ 62755:            LOCATE L_0007

  1069      ->TEMP %IF TAG1 = 21780;       !TEM
6647 @ 62758:            LINE   1069 "regression-compile-tmp/hal7502.imp"
6648 @ 62796:            PUSH   TAG1
6649 @ 62799:            PUSHI  #0x00005514
6650 @ 62804:            JUMPIF # L_0007
6651 @ 62808:            JUMP   L_00f7
6652 @ 62811:            LOCATE L_0007

  1070      ->LOCC %IF TAG1 = 13556;       !LOC
6653 @ 62814:            LINE   1070 "regression-compile-tmp/hal7502.imp"
6654 @ 62852:            PUSH   TAG1
6655 @ 62855:            PUSHI  #0x000034f4
6656 @ 62860:            JUMPIF # L_0007
6657 @ 62864:            JUMP   L_00f8
6658 @ 62867:            LOCATE L_0007

  1071      ->LOCC %IF TAG1 = 1917;        !ASS
6659 @ 62870:            LINE   1071 "regression-compile-tmp/hal7502.imp"
6660 @ 62908:            PUSH   TAG1
6661 @ 62911:            PUSHI  #0x0000077d
6662 @ 62916:            JUMPIF # L_0007
6663 @ 62920:            JUMP   L_00f8
6664 @ 62923:            LOCATE L_0007

  1072      ->SAVC %IF TAG1 = 20568;       !SAV
6665 @ 62926:            LINE   1072 "regression-compile-tmp/hal7502.imp"
6666 @ 62964:            PUSH   TAG1
6667 @ 62967:            PUSHI  #0x00005058
6668 @ 62972:            JUMPIF # L_0007
6669 @ 62976:            JUMP   L_00f9
6670 @ 62979:            LOCATE L_0007

  1073      ->MACDEF %IF TAG1 = 14111;     !MAC
6671 @ 62982:            LINE   1073 "regression-compile-tmp/hal7502.imp"
6672 @ 63020:            PUSH   TAG1
6673 @ 63023:            PUSHI  #0x0000371f
6674 @ 63028:            JUMPIF # L_0007
6675 @ 63032:            JUMP   L_00fa
6676 @ 63035:            LOCATE L_0007

  1074      ->BEGIN %IF TAG1 = 2460;       !BEG
6677 @ 63038:            LINE   1074 "regression-compile-tmp/hal7502.imp"
6678 @ 63076:            PUSH   TAG1
6679 @ 63079:            PUSHI  #0x0000099c
6680 @ 63084:            JUMPIF # L_0007
6681 @ 63088:            JUMP   L_00fb
6682 @ 63091:            LOCATE L_0007

  1075      ->BEND %IF TAG1 = END
6683 @ 63094:            LINE   1075 "regression-compile-tmp/hal7502.imp"
6684 @ 63132:            PUSH   TAG1
6685 @ 63135:            PUSH   END
6686 @ 63138:            JUMPIF # L_0007
6687 @ 63142:            JUMP   L_00fc
6688 @ 63145:            LOCATE L_0007

  1076      FAULT('U')
6689 @ 63148:            LINE   1076 "regression-compile-tmp/hal7502.imp"
6690 @ 63186:            PUSH   FAULT
6691 @ 63189:            PUSHI  #0x00000055
6692 @ 63194:            ASSPAR
6693 @ 63195:            CALL  

  1077      ->LEND
6694 @ 63196:            LINE   1077 "regression-compile-tmp/hal7502.imp"
6695 @ 63234:            JUMP   L_00f4

  1078      %FINISH
6696 @ 63237:            LINE   1078 "regression-compile-tmp/hal7502.imp"
6697 @ 63275:            LOCATE L_0004

  1079      ->LEND %IF SKIP # 0 %OR SYM = '/'
6698 @ 63278:            LINE   1079 "regression-compile-tmp/hal7502.imp"
6699 @ 63316:            PUSH   SKIP
6700 @ 63319:            PUSHI  #0x00000000
6701 @ 63324:            JUMPIF # L_0005
6702 @ 63328:            PUSH   SYM
6703 @ 63331:            PUSHI  #0x0000002f
6704 @ 63336:            JUMPIF # L_0004
6705 @ 63340:            LOCATE L_0005
6706 @ 63343:            JUMP   L_00f4
6707 @ 63346:            LOCATE L_0004

  1080      %IF SYM = NL %START
6708 @ 63349:            LINE   1080 "regression-compile-tmp/hal7502.imp"
6709 @ 63387:            PUSH   SYM
6710 @ 63390:            PUSHI  #0x0000000a
6711 @ 63395:            JUMPIF # L_0004

  1081      ->LEND %IF LINES < 54
6712 @ 63399:            LINE   1081 "regression-compile-tmp/hal7502.imp"
6713 @ 63437:            PUSH   LINES
6714 @ 63440:            PUSHI  #0x00000036
6715 @ 63445:            JUMPIF >= L_0007
6716 @ 63449:            JUMP   L_00f4
6717 @ 63452:            LOCATE L_0007

  1082      DO NEWLINE %WHILE LINES # 0
6718 @ 63455:            LINE   1082 "regression-compile-tmp/hal7502.imp"
6719 @ 63493:            LOCATE L_0006
6720 @ 63496:            PUSH   LINES
6721 @ 63499:            PUSHI  #0x00000000
6722 @ 63504:            JUMPIF = L_0007
6723 @ 63508:            PUSH   DONEWLINE
6724 @ 63511:            CALL  
6725 @ 63512:            REPEAT L_0006
6726 @ 63515:            LOCATE L_0007

  1083      ->READ
6727 @ 63518:            LINE   1083 "regression-compile-tmp/hal7502.imp"
6728 @ 63556:            JUMP   L_00ed

  1084      %FINISH
6729 @ 63559:            LINE   1084 "regression-compile-tmp/hal7502.imp"
6730 @ 63597:            LOCATE L_0004

  1085      %IF TAG %START
6731 @ 63600:            LINE   1085 "regression-compile-tmp/hal7502.imp"
6732 @ 63638:            PUSH   TAG
6733 @ 63641:            CALL  
6734 @ 63642:            bf     L_0004

  1086      ->LABDEF %IF TERM = ':'
6735 @ 63645:            LINE   1086 "regression-compile-tmp/hal7502.imp"
6736 @ 63683:            PUSH   TERM
6737 @ 63686:            PUSHI  #0x0000003a
6738 @ 63691:            JUMPIF # L_0007
6739 @ 63695:            JUMP   L_00fd
6740 @ 63698:            LOCATE L_0007

  1087      MODE = 1
6741 @ 63701:            LINE   1087 "regression-compile-tmp/hal7502.imp"
6742 @ 63739:            PUSH   MODE
6743 @ 63742:            PUSHI  #0x00000001
6744 @ 63747:            ASSVAL

  1088      ->ASSIGN %IF TERM = '(' %OR SYM = '='
6745 @ 63748:            LINE   1088 "regression-compile-tmp/hal7502.imp"
6746 @ 63786:            PUSH   TERM
6747 @ 63789:            PUSHI  #0x00000028
6748 @ 63794:            JUMPIF = L_0008
6749 @ 63798:            PUSH   SYM
6750 @ 63801:            PUSHI  #0x0000003d
6751 @ 63806:            JUMPIF # L_0007
6752 @ 63810:            LOCATE L_0008
6753 @ 63813:            JUMP   L_00fe
6754 @ 63816:            LOCATE L_0007

  1089      ->JUMP %IF TAG1 = JUM %AND (TAG2=P %OR TAG2=PS)
6755 @ 63819:            LINE   1089 "regression-compile-tmp/hal7502.imp"
6756 @ 63857:            PUSH   TAG1
6757 @ 63860:            PUSH   JUM
6758 @ 63863:            JUMPIF # L_0007
6759 @ 63867:            PUSH   TAG2
6760 @ 63870:            PUSH   P
6761 @ 63873:            JUMPIF = L_0008
6762 @ 63877:            PUSH   TAG2
6763 @ 63880:            PUSH   PS
6764 @ 63883:            JUMPIF # L_0007
6765 @ 63887:            LOCATE L_0008
6766 @ 63890:            JUMP   L_00ff
6767 @ 63893:            LOCATE L_0007

  1090      ->IFC %IF TAG1 = IF
6768 @ 63896:            LINE   1090 "regression-compile-tmp/hal7502.imp"
6769 @ 63934:            PUSH   TAG1
6770 @ 63937:            PUSH   IF
6771 @ 63940:            JUMPIF # L_0007
6772 @ 63944:            JUMP   L_0100
6773 @ 63947:            LOCATE L_0007

  1091      ->ELSE %IF TAG1 = ELS %AND TAG2 = E
6774 @ 63950:            LINE   1091 "regression-compile-tmp/hal7502.imp"
6775 @ 63988:            PUSH   TAG1
6776 @ 63991:            PUSH   ELS
6777 @ 63994:            JUMPIF # L_0007
6778 @ 63998:            PUSH   TAG2
6779 @ 64001:            PUSH   E
6780 @ 64004:            JUMPIF # L_0007
6781 @ 64008:            JUMP   L_0101
6782 @ 64011:            LOCATE L_0007

  1092      ->FINISH %IF TAG1 = FIN %AND TAG2 = ISH
6783 @ 64014:            LINE   1092 "regression-compile-tmp/hal7502.imp"
6784 @ 64052:            PUSH   TAG1
6785 @ 64055:            PUSH   FIN
6786 @ 64058:            JUMPIF # L_0007
6787 @ 64062:            PUSH   TAG2
6788 @ 64065:            PUSH   ISH
6789 @ 64068:            JUMPIF # L_0007
6790 @ 64072:            JUMP   L_0102
6791 @ 64075:            LOCATE L_0007

  1093      ->WHILE %IF TAG1 = 25106 %AND TAG2 = 13173
6792 @ 64078:            LINE   1093 "regression-compile-tmp/hal7502.imp"
6793 @ 64116:            PUSH   TAG1
6794 @ 64119:            PUSHI  #0x00006212
6795 @ 64124:            JUMPIF # L_0007
6796 @ 64128:            PUSH   TAG2
6797 @ 64131:            PUSHI  #0x00003375
6798 @ 64136:            JUMPIF # L_0007
6799 @ 64140:            JUMP   L_0103
6800 @ 64143:            LOCATE L_0007

  1094      ->CYCLE %IF TAG1 = 4269 %AND TAG2 = 13173
6801 @ 64146:            LINE   1094 "regression-compile-tmp/hal7502.imp"
6802 @ 64184:            PUSH   TAG1
6803 @ 64187:            PUSHI  #0x000010ad
6804 @ 64192:            JUMPIF # L_0007
6805 @ 64196:            PUSH   TAG2
6806 @ 64199:            PUSHI  #0x00003375
6807 @ 64204:            JUMPIF # L_0007
6808 @ 64208:            JUMP   L_0104
6809 @ 64211:            LOCATE L_0007

  1095      ->REPEAT %IF TAG1 = 19637 %AND TAG2 = 5544
6810 @ 64214:            LINE   1095 "regression-compile-tmp/hal7502.imp"
6811 @ 64252:            PUSH   TAG1
6812 @ 64255:            PUSHI  #0x00004cb5
6813 @ 64260:            JUMPIF # L_0007
6814 @ 64264:            PUSH   TAG2
6815 @ 64267:            PUSHI  #0x000015a8
6816 @ 64272:            JUMPIF # L_0007
6817 @ 64276:            JUMP   L_0105
6818 @ 64279:            LOCATE L_0007

  1096      MODE=-2 %AND ->DATA %IF TAG1 = B
6819 @ 64282:            LINE   1096 "regression-compile-tmp/hal7502.imp"
6820 @ 64320:            PUSH   TAG1
6821 @ 64323:            PUSH   B
6822 @ 64326:            JUMPIF # L_0007
6823 @ 64330:            PUSH   MODE
6824 @ 64333:            PUSHI  #0x00000002
6825 @ 64338:            NEGATE
6826 @ 64339:            ASSVAL
6827 @ 64340:            JUMP   L_0106
6828 @ 64343:            LOCATE L_0007

  1097      TYPE = UMASK;  LOOKUP(0)
6829 @ 64346:            LINE   1097 "regression-compile-tmp/hal7502.imp"
6830 @ 64384:            PUSH   TYPE
6831 @ 64387:            PUSH   UMASK
6832 @ 64390:            ASSVAL
6833 @ 64391:            LINE   1097 "regression-compile-tmp/hal7502.imp"
6834 @ 64429:            PUSH   LOOKUP
6835 @ 64432:            PUSHI  #0x00000000
6836 @ 64437:            ASSPAR
6837 @ 64438:            CALL  

  1098      ->MACCALL %IF TYPE&OPMASK = MACRO
6838 @ 64439:            LINE   1098 "regression-compile-tmp/hal7502.imp"
6839 @ 64477:            PUSH   TYPE
6840 @ 64480:            PUSH   OPMASK
6841 @ 64483:            AND   
6842 @ 64484:            PUSH   MACRO
6843 @ 64487:            JUMPIF # L_0007
6844 @ 64491:            JUMP   L_0107
6845 @ 64494:            LOCATE L_0007

  1099      ->MINST %IF TYPE&OPMASK # 0
6846 @ 64497:            LINE   1099 "regression-compile-tmp/hal7502.imp"
6847 @ 64535:            PUSH   TYPE
6848 @ 64538:            PUSH   OPMASK
6849 @ 64541:            AND   
6850 @ 64542:            PUSHI  #0x00000000
6851 @ 64547:            JUMPIF = L_0007
6852 @ 64551:            JUMP   L_0108
6853 @ 64554:            LOCATE L_0007

  1100      FAULT('U') %AND ->LEND %IF TYPE&UMASK # 0
6854 @ 64557:            LINE   1100 "regression-compile-tmp/hal7502.imp"
6855 @ 64595:            PUSH   TYPE
6856 @ 64598:            PUSH   UMASK
6857 @ 64601:            AND   
6858 @ 64602:            PUSHI  #0x00000000
6859 @ 64607:            JUMPIF = L_0007
6860 @ 64611:            PUSH   FAULT
6861 @ 64614:            PUSHI  #0x00000055
6862 @ 64619:            ASSPAR
6863 @ 64620:            CALL  
6864 @ 64621:            JUMP   L_00f4
6865 @ 64624:            LOCATE L_0007

  1101      PEND = -1
6866 @ 64627:            LINE   1101 "regression-compile-tmp/hal7502.imp"
6867 @ 64665:            PUSH   PEND
6868 @ 64668:            PUSHI  #0x00000001
6869 @ 64673:            NEGATE
6870 @ 64674:            ASSVAL

  1102      %FINISH
6871 @ 64675:            LINE   1102 "regression-compile-tmp/hal7502.imp"
6872 @ 64713:            LOCATE L_0004

  1103      MODE = -1
6873 @ 64716:            LINE   1103 "regression-compile-tmp/hal7502.imp"
6874 @ 64754:            PUSH   MODE
6875 @ 64757:            PUSHI  #0x00000001
6876 @ 64762:            NEGATE
6877 @ 64763:            ASSVAL

  1104  DATA:
6878 @ 64764:            LINE   1104 "regression-compile-tmp/hal7502.imp"
6879 @ 64802:            LABEL  L_0106

  1105      %CYCLE
6880 @ 64805:            LINE   1105 "regression-compile-tmp/hal7502.imp"
6881 @ 64843:            LOCATE L_0003

  1106      GET EXP;  ASSEMBLE
6882 @ 64846:            LINE   1106 "regression-compile-tmp/hal7502.imp"
6883 @ 64884:            PUSH   GETEXP
6884 @ 64887:            CALL  
6885 @ 64888:            LINE   1106 "regression-compile-tmp/hal7502.imp"
6886 @ 64926:            PUSH   ASSEMBLE
6887 @ 64929:            CALL  

  1107      FAULT('I') %IF TYPE&REGXMASK # 0
6888 @ 64930:            LINE   1107 "regression-compile-tmp/hal7502.imp"
6889 @ 64968:            PUSH   TYPE
6890 @ 64971:            PUSH   REGXMASK
6891 @ 64974:            AND   
6892 @ 64975:            PUSHI  #0x00000000
6893 @ 64980:            JUMPIF = L_0007
6894 @ 64984:            PUSH   FAULT
6895 @ 64987:            PUSHI  #0x00000049
6896 @ 64992:            ASSPAR
6897 @ 64993:            CALL  
6898 @ 64994:            LOCATE L_0007

  1108      I = 1
6899 @ 64997:            LINE   1108 "regression-compile-tmp/hal7502.imp"
6900 @ 65035:            PUSH   I
6901 @ 65038:            PUSHI  #0x00000001
6902 @ 65043:            ASSVAL

  1109      %IF S('$') %START
6903 @ 65044:            LINE   1109 "regression-compile-tmp/hal7502.imp"
6904 @ 65082:            PUSH   S
6905 @ 65085:            PUSHI  #0x00000024
6906 @ 65090:            ASSPAR
6907 @ 65091:            CALL  
6908 @ 65092:            bf     L_0007

  1110      I = VAL %IF VAL < 1000
6909 @ 65095:            LINE   1110 "regression-compile-tmp/hal7502.imp"
6910 @ 65133:            PUSH   VAL
6911 @ 65136:            PUSHI  #0x000003e8
6912 @ 65141:            JUMPIF >= L_000a
6913 @ 65145:            PUSH   I
6914 @ 65148:            PUSH   VAL
6915 @ 65151:            ASSVAL
6916 @ 65152:            LOCATE L_000a

  1111      QLIM = QSTART
6917 @ 65155:            LINE   1111 "regression-compile-tmp/hal7502.imp"
6918 @ 65193:            PUSH   QLIM
6919 @ 65196:            PUSH   QSTART
6920 @ 65199:            ASSVAL

  1112      GET EXP;  ASSEMBLE
6921 @ 65200:            LINE   1112 "regression-compile-tmp/hal7502.imp"
6922 @ 65238:            PUSH   GETEXP
6923 @ 65241:            CALL  
6924 @ 65242:            LINE   1112 "regression-compile-tmp/hal7502.imp"
6925 @ 65280:            PUSH   ASSEMBLE
6926 @ 65283:            CALL  

  1113      %FINISH
6927 @ 65284:            LINE   1113 "regression-compile-tmp/hal7502.imp"
6928 @ 65322:            LOCATE L_0007

  1114      %WHILE I > 0 %CYCLE
6929 @ 65325:            LINE   1114 "regression-compile-tmp/hal7502.imp"
6930 @ 65363:            LOCATE L_0006
6931 @ 65366:            PUSH   I
6932 @ 65369:            PUSHI  #0x00000000
6933 @ 65374:            JUMPIF <= L_0007

  1115      %IF MODE # -1 %START
6934 @ 65378:            LINE   1115 "regression-compile-tmp/hal7502.imp"
6935 @ 65416:            PUSH   MODE
6936 @ 65419:            PUSHI  #0x00000001
6937 @ 65424:            NEGATE
6938 @ 65425:            JUMPIF = L_000a

  1116      FAULT('T') %IF VAL&16_FF00 # 0
6939 @ 65429:            LINE   1116 "regression-compile-tmp/hal7502.imp"
6940 @ 65467:            PUSH   VAL
6941 @ 65470:            PUSHI  #0x0000ff00
6942 @ 65475:            AND   
6943 @ 65476:            PUSHI  #0x00000000
6944 @ 65481:            JUMPIF = L_000d
6945 @ 65485:            PUSH   FAULT
6946 @ 65488:            PUSHI  #0x00000054
6947 @ 65493:            ASSPAR
6948 @ 65494:            CALL  
6949 @ 65495:            LOCATE L_000d

  1117      %IF MODE = -2 %START
6950 @ 65498:            LINE   1117 "regression-compile-tmp/hal7502.imp"
6951 @ 65536:            PUSH   MODE
6952 @ 65539:            PUSHI  #0x00000002
6953 @ 65544:            NEGATE
6954 @ 65545:            JUMPIF # L_000d

  1118      J = VAL<<8;  MODE = -3
6955 @ 65549:            LINE   1118 "regression-compile-tmp/hal7502.imp"
6956 @ 65587:            PUSH   J
6957 @ 65590:            PUSH   VAL
6958 @ 65593:            PUSHI  #0x00000008
6959 @ 65598:            LSH   
6960 @ 65599:            ASSVAL
6961 @ 65600:            LINE   1118 "regression-compile-tmp/hal7502.imp"
6962 @ 65638:            PUSH   MODE
6963 @ 65641:            PUSHI  #0x00000003
6964 @ 65646:            NEGATE
6965 @ 65647:            ASSVAL

  1119      %finish %ELSE  %START
6966 @ 65648:            LINE   1119 "regression-compile-tmp/hal7502.imp"
6967 @ 65686:            GOTO   L_000c
6968 @ 65689:            LOCATE L_000d

  1120      VAL = VAL+J;  MODE = -2
6969 @ 65692:            LINE   1120 "regression-compile-tmp/hal7502.imp"
6970 @ 65730:            PUSH   VAL
6971 @ 65733:            PUSH   VAL
6972 @ 65736:            PUSH   J
6973 @ 65739:            ADD   
6974 @ 65740:            ASSVAL
6975 @ 65741:            LINE   1120 "regression-compile-tmp/hal7502.imp"
6976 @ 65779:            PUSH   MODE
6977 @ 65782:            PUSHI  #0x00000002
6978 @ 65787:            NEGATE
6979 @ 65788:            ASSVAL

  1121      PLANT VAL
6980 @ 65789:            LINE   1121 "regression-compile-tmp/hal7502.imp"
6981 @ 65827:            PUSH   PLANTVAL
6982 @ 65830:            CALL  

  1122      %FINISH
6983 @ 65831:            LINE   1122 "regression-compile-tmp/hal7502.imp"
6984 @ 65869:            LOCATE L_000c

  1123      %finish %ELSE  %START
6985 @ 65872:            LINE   1123 "regression-compile-tmp/hal7502.imp"
6986 @ 65910:            GOTO   L_0009
6987 @ 65913:            LOCATE L_000a

  1124      PLANT VAL;  VAL = VAL&255
6988 @ 65916:            LINE   1124 "regression-compile-tmp/hal7502.imp"
6989 @ 65954:            PUSH   PLANTVAL
6990 @ 65957:            CALL  
6991 @ 65958:            LINE   1124 "regression-compile-tmp/hal7502.imp"
6992 @ 65996:            PUSH   VAL
6993 @ 65999:            PUSH   VAL
6994 @ 66002:            PUSHI  #0x000000ff
6995 @ 66007:            AND   
6996 @ 66008:            ASSVAL

  1125      %FINISH
6997 @ 66009:            LINE   1125 "regression-compile-tmp/hal7502.imp"
6998 @ 66047:            LOCATE L_0009

  1126      I = I-1
6999 @ 66050:            LINE   1126 "regression-compile-tmp/hal7502.imp"
7000 @ 66088:            PUSH   I
7001 @ 66091:            PUSH   I
7002 @ 66094:            PUSHI  #0x00000001
7003 @ 66099:            SUB   
7004 @ 66100:            ASSVAL

  1127      %REPEAT
7005 @ 66101:            LINE   1127 "regression-compile-tmp/hal7502.imp"
7006 @ 66139:            REPEAT L_0006
7007 @ 66142:            LOCATE L_0007

  1128      %EXIT %UNLESS S(',') %OR SYM&128 # 0
7008 @ 66145:            LINE   1128 "regression-compile-tmp/hal7502.imp"
7009 @ 66183:            PUSH   S
7010 @ 66186:            PUSHI  #0x0000002c
7011 @ 66191:            ASSPAR
7012 @ 66192:            CALL  
7013 @ 66193:            bt     L_0007
7014 @ 66196:            PUSH   SYM
7015 @ 66199:            PUSHI  #0x00000080
7016 @ 66204:            AND   
7017 @ 66205:            PUSHI  #0x00000000
7018 @ 66210:            JUMPIF # L_0007
7019 @ 66214:            GOTO   L_0004
7020 @ 66217:            LOCATE L_0007

  1129      %IF SYM = NL %START
7021 @ 66220:            LINE   1129 "regression-compile-tmp/hal7502.imp"
7022 @ 66258:            PUSH   SYM
7023 @ 66261:            PUSHI  #0x0000000a
7024 @ 66266:            JUMPIF # L_0007

  1130      PRINT LINE %IF PRINTPOS # 0;  READ LINE
7025 @ 66270:            LINE   1130 "regression-compile-tmp/hal7502.imp"
7026 @ 66308:            PUSH   PRINTPOS
7027 @ 66311:            PUSHI  #0x00000000
7028 @ 66316:            JUMPIF = L_000a
7029 @ 66320:            PUSH   PRINTLINE
7030 @ 66323:            CALL  
7031 @ 66324:            LOCATE L_000a
7032 @ 66327:            LINE   1130 "regression-compile-tmp/hal7502.imp"
7033 @ 66365:            PUSH   READLINE
7034 @ 66368:            CALL  

  1131      QSTART = QBASE
7035 @ 66369:            LINE   1131 "regression-compile-tmp/hal7502.imp"
7036 @ 66407:            PUSH   QSTART
7037 @ 66410:            PUSH   QBASE
7038 @ 66413:            ASSVAL

  1132      %FINISH
7039 @ 66414:            LINE   1132 "regression-compile-tmp/hal7502.imp"
7040 @ 66452:            LOCATE L_0007

  1133      QLIM = QSTART
7041 @ 66455:            LINE   1133 "regression-compile-tmp/hal7502.imp"
7042 @ 66493:            PUSH   QLIM
7043 @ 66496:            PUSH   QSTART
7044 @ 66499:            ASSVAL

  1134      %REPEAT
7045 @ 66500:            LINE   1134 "regression-compile-tmp/hal7502.imp"
7046 @ 66538:            REPEAT L_0003
7047 @ 66541:            LOCATE L_0004

  1135      VAL=J %AND PLANT VAL %IF MODE = -3
7048 @ 66544:            LINE   1135 "regression-compile-tmp/hal7502.imp"
7049 @ 66582:            PUSH   MODE
7050 @ 66585:            PUSHI  #0x00000003
7051 @ 66590:            NEGATE
7052 @ 66591:            JUMPIF # L_0004
7053 @ 66595:            PUSH   VAL
7054 @ 66598:            PUSH   J
7055 @ 66601:            ASSVAL
7056 @ 66602:            PUSH   PLANTVAL
7057 @ 66605:            CALL  
7058 @ 66606:            LOCATE L_0004

  1136      ->SEND
  1137  
7059 @ 66609:            LINE   1136 "regression-compile-tmp/hal7502.imp"
7060 @ 66647:            JUMP   L_0109

  1138  LABDEF:
7061 @ 66650:            LINE   1138 "regression-compile-tmp/hal7502.imp"
7062 @ 66688:            LABEL  L_00fd

  1139      CREG = -1;  ATYPE = -1
7063 @ 66691:            LINE   1139 "regression-compile-tmp/hal7502.imp"
7064 @ 66729:            PUSH   CREG
7065 @ 66732:            PUSHI  #0x00000001
7066 @ 66737:            NEGATE
7067 @ 66738:            ASSVAL
7068 @ 66739:            LINE   1139 "regression-compile-tmp/hal7502.imp"
7069 @ 66777:            PUSH   ATYPE
7070 @ 66780:            PUSHI  #0x00000001
7071 @ 66785:            NEGATE
7072 @ 66786:            ASSVAL

  1140      GET SYM
7073 @ 66787:            LINE   1140 "regression-compile-tmp/hal7502.imp"
7074 @ 66825:            PUSH   GETSYM
7075 @ 66828:            CALL  

  1141      FAULT('C') %AND NP=STORELIM %IF NP # STORELIM
7076 @ 66829:            LINE   1141 "regression-compile-tmp/hal7502.imp"
7077 @ 66867:            PUSH   NP
7078 @ 66870:            PUSH   STORELIM
7079 @ 66873:            JUMPIF = L_0004
7080 @ 66877:            PUSH   FAULT
7081 @ 66880:            PUSHI  #0x00000043
7082 @ 66885:            ASSPAR
7083 @ 66886:            CALL  
7084 @ 66887:            PUSH   NP
7085 @ 66890:            PUSH   STORELIM
7086 @ 66893:            ASSVAL
7087 @ 66894:            LOCATE L_0004

  1142      TYPE = LOCTYPE;  VAL = LOC
7088 @ 66897:            LINE   1142 "regression-compile-tmp/hal7502.imp"
7089 @ 66935:            PUSH   TYPE
7090 @ 66938:            PUSH   LOCTYPE
7091 @ 66941:            ASSVAL
7092 @ 66942:            LINE   1142 "regression-compile-tmp/hal7502.imp"
7093 @ 66980:            PUSH   VAL
7094 @ 66983:            PUSH   LOC
7095 @ 66986:            ASSVAL

  1143      LOOKUP(7)
7096 @ 66987:            LINE   1143 "regression-compile-tmp/hal7502.imp"
7097 @ 67025:            PUSH   LOOKUP
7098 @ 67028:            PUSHI  #0x00000007
7099 @ 67033:            ASSPAR
7100 @ 67034:            CALL  

  1144      ->NEXT
  1145  
7101 @ 67035:            LINE   1144 "regression-compile-tmp/hal7502.imp"
7102 @ 67073:            JUMP   L_00ee

  1146  ASSIGN:
7103 @ 67076:            LINE   1146 "regression-compile-tmp/hal7502.imp"
7104 @ 67114:            LABEL  L_00fe

  1147      PEND = 1
7105 @ 67117:            LINE   1147 "regression-compile-tmp/hal7502.imp"
7106 @ 67155:            PUSH   PEND
7107 @ 67158:            PUSHI  #0x00000001
7108 @ 67163:            ASSVAL

  1148      GET EXP
7109 @ 67164:            LINE   1148 "regression-compile-tmp/hal7502.imp"
7110 @ 67202:            PUSH   GETEXP
7111 @ 67205:            CALL  

  1149      ->ERR %IF %NOT S('=')
7112 @ 67206:            LINE   1149 "regression-compile-tmp/hal7502.imp"
7113 @ 67244:            PUSH   S
7114 @ 67247:            PUSHI  #0x0000003d
7115 @ 67252:            ASSPAR
7116 @ 67253:            CALL  
7117 @ 67254:            bt     L_0004
7118 @ 67257:            JUMP   L_00f0
7119 @ 67260:            LOCATE L_0004

  1150      QUEUE(-25);                       !'STORE'
7120 @ 67263:            LINE   1150 "regression-compile-tmp/hal7502.imp"
7121 @ 67301:            PUSH   QUEUE
7122 @ 67304:            PUSHI  #0x00000019
7123 @ 67309:            NEGATE
7124 @ 67310:            ASSPAR
7125 @ 67311:            CALL  

  1151      %IF INTEGER(QBASE) = REG %START
7126 @ 67312:            LINE   1151 "regression-compile-tmp/hal7502.imp"
7127 @ 67350:            PUSH   INTEGER
7128 @ 67353:            PUSH   QBASE
7129 @ 67356:            ASSPAR
7130 @ 67357:            CALL  
7131 @ 67358:            PUSH   REG
7132 @ 67361:            JUMPIF # L_0004

  1152      DREG = INTEGER(QBASE+1)
7133 @ 67365:            LINE   1152 "regression-compile-tmp/hal7502.imp"
7134 @ 67403:            PUSH   DREG
7135 @ 67406:            PUSH   INTEGER
7136 @ 67409:            PUSH   QBASE
7137 @ 67412:            PUSHI  #0x00000001
7138 @ 67417:            ADD   
7139 @ 67418:            ASSPAR
7140 @ 67419:            CALL  
7141 @ 67420:            ASSVAL

  1153      DUSE = 0
7142 @ 67421:            LINE   1153 "regression-compile-tmp/hal7502.imp"
7143 @ 67459:            PUSH   DUSE
7144 @ 67462:            PUSHI  #0x00000000
7145 @ 67467:            ASSVAL

  1154      %FINISH
7146 @ 67468:            LINE   1154 "regression-compile-tmp/hal7502.imp"
7147 @ 67506:            LOCATE L_0004

  1155      QSTART = QLIM;  MODE = 2
7148 @ 67509:            LINE   1155 "regression-compile-tmp/hal7502.imp"
7149 @ 67547:            PUSH   QSTART
7150 @ 67550:            PUSH   QLIM
7151 @ 67553:            ASSVAL
7152 @ 67554:            LINE   1155 "regression-compile-tmp/hal7502.imp"
7153 @ 67592:            PUSH   MODE
7154 @ 67595:            PUSHI  #0x00000002
7155 @ 67600:            ASSVAL

  1156      GET EXP
7156 @ 67601:            LINE   1156 "regression-compile-tmp/hal7502.imp"
7157 @ 67639:            PUSH   GETEXP
7158 @ 67642:            CALL  

  1157      QUEUE(-24);                       !'LOAD'
  1158  
7159 @ 67643:            LINE   1157 "regression-compile-tmp/hal7502.imp"
7160 @ 67681:            PUSH   QUEUE
7161 @ 67684:            PUSHI  #0x00000018
7162 @ 67689:            NEGATE
7163 @ 67690:            ASSPAR
7164 @ 67691:            CALL  

  1159  CONDQ:
7165 @ 67692:            LINE   1159 "regression-compile-tmp/hal7502.imp"
7166 @ 67730:            LABEL  L_010a

  1160      %IF TAGIF %START
7167 @ 67733:            LINE   1160 "regression-compile-tmp/hal7502.imp"
7168 @ 67771:            PUSH   TAGIF
7169 @ 67774:            CALL  
7170 @ 67775:            bf     L_0004

  1161      MODE = MODE+4;  DREG = DREG-16; !SCARIFY
7171 @ 67778:            LINE   1161 "regression-compile-tmp/hal7502.imp"
7172 @ 67816:            PUSH   MODE
7173 @ 67819:            PUSH   MODE
7174 @ 67822:            PUSHI  #0x00000004
7175 @ 67827:            ADD   
7176 @ 67828:            ASSVAL
7177 @ 67829:            LINE   1161 "regression-compile-tmp/hal7502.imp"
7178 @ 67867:            PUSH   DREG
7179 @ 67870:            PUSH   DREG
7180 @ 67873:            PUSHI  #0x00000010
7181 @ 67878:            SUB   
7182 @ 67879:            ASSVAL

  1162      GET COND;  ASSEMBLE
7183 @ 67880:            LINE   1162 "regression-compile-tmp/hal7502.imp"
7184 @ 67918:            PUSH   GETCOND
7185 @ 67921:            CALL  
7186 @ 67922:            LINE   1162 "regression-compile-tmp/hal7502.imp"
7187 @ 67960:            PUSH   ASSEMBLE
7188 @ 67963:            CALL  

  1163      MODE = MODE-4;  DREG = DREG+16; !RESTORE
7189 @ 67964:            LINE   1163 "regression-compile-tmp/hal7502.imp"
7190 @ 68002:            PUSH   MODE
7191 @ 68005:            PUSH   MODE
7192 @ 68008:            PUSHI  #0x00000004
7193 @ 68013:            SUB   
7194 @ 68014:            ASSVAL
7195 @ 68015:            LINE   1163 "regression-compile-tmp/hal7502.imp"
7196 @ 68053:            PUSH   DREG
7197 @ 68056:            PUSH   DREG
7198 @ 68059:            PUSHI  #0x00000010
7199 @ 68064:            ADD   
7200 @ 68065:            ASSVAL

  1164      QLIM = QSTART;  QSTART = TRANSF
7201 @ 68066:            LINE   1164 "regression-compile-tmp/hal7502.imp"
7202 @ 68104:            PUSH   QLIM
7203 @ 68107:            PUSH   QSTART
7204 @ 68110:            ASSVAL
7205 @ 68111:            LINE   1164 "regression-compile-tmp/hal7502.imp"
7206 @ 68149:            PUSH   QSTART
7207 @ 68152:            PUSH   TRANSF
7208 @ 68155:            ASSVAL

  1165      %FINISH
7209 @ 68156:            LINE   1165 "regression-compile-tmp/hal7502.imp"
7210 @ 68194:            LOCATE L_0004

  1166      ASSEMBLE
7211 @ 68197:            LINE   1166 "regression-compile-tmp/hal7502.imp"
7212 @ 68235:            PUSH   ASSEMBLE
7213 @ 68238:            CALL  

  1167      ->SEND
  1168  
7214 @ 68239:            LINE   1167 "regression-compile-tmp/hal7502.imp"
7215 @ 68277:            JUMP   L_0109

  1169  JUMP:
7216 @ 68280:            LINE   1169 "regression-compile-tmp/hal7502.imp"
7217 @ 68318:            LABEL  L_00ff

  1170      FLAG = TAG2-P;                    !POSITIVE IF SHORT
7218 @ 68321:            LINE   1170 "regression-compile-tmp/hal7502.imp"
7219 @ 68359:            PUSH   FLAG
7220 @ 68362:            PUSH   TAG2
7221 @ 68365:            PUSH   P
7222 @ 68368:            SUB   
7223 @ 68369:            ASSVAL

  1171      GET EXP
7224 @ 68370:            LINE   1171 "regression-compile-tmp/hal7502.imp"
7225 @ 68408:            PUSH   GETEXP
7226 @ 68411:            CALL  

  1172      QUEUE(-26);                       !'JUMP'
7227 @ 68412:            LINE   1172 "regression-compile-tmp/hal7502.imp"
7228 @ 68450:            PUSH   QUEUE
7229 @ 68453:            PUSHI  #0x0000001a
7230 @ 68458:            NEGATE
7231 @ 68459:            ASSPAR
7232 @ 68460:            CALL  

  1173      ->CONDQ
  1174  
7233 @ 68461:            LINE   1173 "regression-compile-tmp/hal7502.imp"
7234 @ 68499:            JUMP   L_010a

  1175  MINST:
7235 @ 68502:            LINE   1175 "regression-compile-tmp/hal7502.imp"
7236 @ 68540:            LABEL  L_0108

  1176      MODE = -1
7237 @ 68543:            LINE   1176 "regression-compile-tmp/hal7502.imp"
7238 @ 68581:            PUSH   MODE
7239 @ 68584:            PUSHI  #0x00000001
7240 @ 68589:            NEGATE
7241 @ 68590:            ASSVAL

  1177      GET INST
7242 @ 68591:            LINE   1177 "regression-compile-tmp/hal7502.imp"
7243 @ 68629:            PUSH   GETINST
7244 @ 68632:            CALL  

  1178      QUEUE(-23);                       !'PLANT'
7245 @ 68633:            LINE   1178 "regression-compile-tmp/hal7502.imp"
7246 @ 68671:            PUSH   QUEUE
7247 @ 68674:            PUSHI  #0x00000017
7248 @ 68679:            NEGATE
7249 @ 68680:            ASSPAR
7250 @ 68681:            CALL  

  1179      ->CONDQ
  1180  
7251 @ 68682:            LINE   1179 "regression-compile-tmp/hal7502.imp"
7252 @ 68720:            JUMP   L_010a

  1181  MACCALL:
7253 @ 68723:            LINE   1181 "regression-compile-tmp/hal7502.imp"
7254 @ 68761:            LABEL  L_0107

  1182      QUEUE(VAL);                       !DEFPOS
7255 @ 68764:            LINE   1182 "regression-compile-tmp/hal7502.imp"
7256 @ 68802:            PUSH   QUEUE
7257 @ 68805:            PUSH   VAL
7258 @ 68808:            ASSPAR
7259 @ 68809:            CALL  

  1183      QUEUE(TYPE&1023);                 !JOKER
7260 @ 68810:            LINE   1183 "regression-compile-tmp/hal7502.imp"
7261 @ 68848:            PUSH   QUEUE
7262 @ 68851:            PUSH   TYPE
7263 @ 68854:            PUSHI  #0x000003ff
7264 @ 68859:            AND   
7265 @ 68860:            ASSPAR
7266 @ 68861:            CALL  

  1184      QUEUE(0);                         !(CALLPOS)
7267 @ 68862:            LINE   1184 "regression-compile-tmp/hal7502.imp"
7268 @ 68900:            PUSH   QUEUE
7269 @ 68903:            PUSHI  #0x00000000
7270 @ 68908:            ASSPAR
7271 @ 68909:            CALL  

  1185      QUEUE(STARTPOS)
7272 @ 68910:            LINE   1185 "regression-compile-tmp/hal7502.imp"
7273 @ 68948:            PUSH   QUEUE
7274 @ 68951:            PUSH   STARTPOS
7275 @ 68954:            ASSPAR
7276 @ 68955:            CALL  

  1186      QUEUE(MP)
7277 @ 68956:            LINE   1186 "regression-compile-tmp/hal7502.imp"
7278 @ 68994:            PUSH   QUEUE
7279 @ 68997:            PUSH   MP
7280 @ 69000:            ASSPAR
7281 @ 69001:            CALL  

  1187      %CYCLE
7282 @ 69002:            LINE   1187 "regression-compile-tmp/hal7502.imp"
7283 @ 69040:            LOCATE L_0003

  1188      %EXIT %IF CHAR(INTEGER(QBASE)) = NL; !END OF MAC DEF
7284 @ 69043:            LINE   1188 "regression-compile-tmp/hal7502.imp"
7285 @ 69081:            PUSH   CHAR
7286 @ 69084:            PUSH   INTEGER
7287 @ 69087:            PUSH   QBASE
7288 @ 69090:            ASSPAR
7289 @ 69091:            CALL  
7290 @ 69092:            ASSPAR
7291 @ 69093:            CALL  
7292 @ 69094:            PUSHI  #0x0000000a
7293 @ 69099:            JUMPIF # L_0007
7294 @ 69103:            GOTO   L_0004
7295 @ 69106:            LOCATE L_0007

  1189      I = GETPOS-1;                  !SAVE CALLPOS
7296 @ 69109:            LINE   1189 "regression-compile-tmp/hal7502.imp"
7297 @ 69147:            PUSH   I
7298 @ 69150:            PUSH   GETPOS
7299 @ 69153:            PUSHI  #0x00000001
7300 @ 69158:            SUB   
7301 @ 69159:            ASSVAL

  1190      GETPOS = INTEGER(QBASE);  GET SYM
  1191      !!%MONITOR 24 %IF %NOT TAG
7302 @ 69160:            LINE   1190 "regression-compile-tmp/hal7502.imp"
7303 @ 69198:            PUSH   GETPOS
7304 @ 69201:            PUSH   INTEGER
7305 @ 69204:            PUSH   QBASE
7306 @ 69207:            ASSPAR
7307 @ 69208:            CALL  
7308 @ 69209:            ASSVAL
7309 @ 69210:            LINE   1190 "regression-compile-tmp/hal7502.imp"
7310 @ 69248:            PUSH   GETSYM
7311 @ 69251:            CALL  

  1192      TYPE = 0;  VAL = 0
7312 @ 69252:            LINE   1192 "regression-compile-tmp/hal7502.imp"
7313 @ 69290:            PUSH   TYPE
7314 @ 69293:            PUSHI  #0x00000000
7315 @ 69298:            ASSVAL
7316 @ 69299:            LINE   1192 "regression-compile-tmp/hal7502.imp"
7317 @ 69337:            PUSH   VAL
7318 @ 69340:            PUSHI  #0x00000000
7319 @ 69345:            ASSVAL

  1193      SCAN ARG
7320 @ 69346:            LINE   1193 "regression-compile-tmp/hal7502.imp"
7321 @ 69384:            PUSH   SCANARG
7322 @ 69387:            CALL  

  1194      GET SYM %IF SYM = ','
7323 @ 69388:            LINE   1194 "regression-compile-tmp/hal7502.imp"
7324 @ 69426:            PUSH   SYM
7325 @ 69429:            PUSHI  #0x0000002c
7326 @ 69434:            JUMPIF # L_0007
7327 @ 69438:            PUSH   GETSYM
7328 @ 69441:            CALL  
7329 @ 69442:            LOCATE L_0007

  1195      INTEGER(QBASE) = GETPOS-1;        !UPDATE DEFPOS
7330 @ 69445:            LINE   1195 "regression-compile-tmp/hal7502.imp"
7331 @ 69483:            PUSH   INTEGER
7332 @ 69486:            PUSH   QBASE
7333 @ 69489:            ASSPAR
7334 @ 69490:            CALL  
7335 @ 69491:            PUSH   GETPOS
7336 @ 69494:            PUSHI  #0x00000001
7337 @ 69499:            SUB   
7338 @ 69500:            ASSVAL

  1196      GETPOS = I;  GET SYM;             !RESTORE CALLPOS
7339 @ 69501:            LINE   1196 "regression-compile-tmp/hal7502.imp"
7340 @ 69539:            PUSH   GETPOS
7341 @ 69542:            PUSH   I
7342 @ 69545:            ASSVAL
7343 @ 69546:            LINE   1196 "regression-compile-tmp/hal7502.imp"
7344 @ 69584:            PUSH   GETSYM
7345 @ 69587:            CALL  

  1197      SCAN ARG
7346 @ 69588:            LINE   1197 "regression-compile-tmp/hal7502.imp"
7347 @ 69626:            PUSH   SCANARG
7348 @ 69629:            CALL  

  1198      GET SYM %IF SYM = ','
7349 @ 69630:            LINE   1198 "regression-compile-tmp/hal7502.imp"
7350 @ 69668:            PUSH   SYM
7351 @ 69671:            PUSHI  #0x0000002c
7352 @ 69676:            JUMPIF # L_0007
7353 @ 69680:            PUSH   GETSYM
7354 @ 69683:            CALL  
7355 @ 69684:            LOCATE L_0007

  1199      QUEUE(TAG1);  QUEUE(TAG2)
7356 @ 69687:            LINE   1199 "regression-compile-tmp/hal7502.imp"
7357 @ 69725:            PUSH   QUEUE
7358 @ 69728:            PUSH   TAG1
7359 @ 69731:            ASSPAR
7360 @ 69732:            CALL  
7361 @ 69733:            LINE   1199 "regression-compile-tmp/hal7502.imp"
7362 @ 69771:            PUSH   QUEUE
7363 @ 69774:            PUSH   TAG2
7364 @ 69777:            ASSPAR
7365 @ 69778:            CALL  

  1200      QUEUE(TYPE);  QUEUE(VAL)
7366 @ 69779:            LINE   1200 "regression-compile-tmp/hal7502.imp"
7367 @ 69817:            PUSH   QUEUE
7368 @ 69820:            PUSH   TYPE
7369 @ 69823:            ASSPAR
7370 @ 69824:            CALL  
7371 @ 69825:            LINE   1200 "regression-compile-tmp/hal7502.imp"
7372 @ 69863:            PUSH   QUEUE
7373 @ 69866:            PUSH   VAL
7374 @ 69869:            ASSPAR
7375 @ 69870:            CALL  

  1201      %REPEAT
7376 @ 69871:            LINE   1201 "regression-compile-tmp/hal7502.imp"
7377 @ 69909:            REPEAT L_0003
7378 @ 69912:            LOCATE L_0004

  1202      GET SYM %IF SYM = ' '
7379 @ 69915:            LINE   1202 "regression-compile-tmp/hal7502.imp"
7380 @ 69953:            PUSH   SYM
7381 @ 69956:            PUSHI  #0x00000020
7382 @ 69961:            JUMPIF # L_0004
7383 @ 69965:            PUSH   GETSYM
7384 @ 69968:            CALL  
7385 @ 69969:            LOCATE L_0004

  1203      %IF TAGIF %START
7386 @ 69972:            LINE   1203 "regression-compile-tmp/hal7502.imp"
7387 @ 70010:            PUSH   TAGIF
7388 @ 70013:            CALL  
7389 @ 70014:            bf     L_0004

  1204      GET COND; QUEUE(-18); ASSEMBLE
7390 @ 70017:            LINE   1204 "regression-compile-tmp/hal7502.imp"
7391 @ 70055:            PUSH   GETCOND
7392 @ 70058:            CALL  
7393 @ 70059:            LINE   1204 "regression-compile-tmp/hal7502.imp"
7394 @ 70097:            PUSH   QUEUE
7395 @ 70100:            PUSHI  #0x00000012
7396 @ 70105:            NEGATE
7397 @ 70106:            ASSPAR
7398 @ 70107:            CALL  
7399 @ 70108:            LINE   1204 "regression-compile-tmp/hal7502.imp"
7400 @ 70146:            PUSH   ASSEMBLE
7401 @ 70149:            CALL  

  1205      QLIM = QSTART
7402 @ 70150:            LINE   1205 "regression-compile-tmp/hal7502.imp"
7403 @ 70188:            PUSH   QLIM
7404 @ 70191:            PUSH   QSTART
7405 @ 70194:            ASSVAL

  1206      INTEGER(QBASE+1) = INTEGER(QBASE+1)+16_8000
7406 @ 70195:            LINE   1206 "regression-compile-tmp/hal7502.imp"
7407 @ 70233:            PUSH   INTEGER
7408 @ 70236:            PUSH   QBASE
7409 @ 70239:            PUSHI  #0x00000001
7410 @ 70244:            ADD   
7411 @ 70245:            ASSPAR
7412 @ 70246:            CALL  
7413 @ 70247:            PUSH   INTEGER
7414 @ 70250:            PUSH   QBASE
7415 @ 70253:            PUSHI  #0x00000001
7416 @ 70258:            ADD   
7417 @ 70259:            ASSPAR
7418 @ 70260:            CALL  
7419 @ 70261:            PUSHI  #0x00008000
7420 @ 70266:            ADD   
7421 @ 70267:            ASSVAL

  1207      %FINISH
7422 @ 70268:            LINE   1207 "regression-compile-tmp/hal7502.imp"
7423 @ 70306:            LOCATE L_0004

  1208      QUEUE(0)
7424 @ 70309:            LINE   1208 "regression-compile-tmp/hal7502.imp"
7425 @ 70347:            PUSH   QUEUE
7426 @ 70350:            PUSHI  #0x00000000
7427 @ 70355:            ASSPAR
7428 @ 70356:            CALL  

  1209      MP = QBASE; STARTPOS = QLIM<<1
7429 @ 70357:            LINE   1209 "regression-compile-tmp/hal7502.imp"
7430 @ 70395:            PUSH   MP
7431 @ 70398:            PUSH   QBASE
7432 @ 70401:            ASSVAL
7433 @ 70402:            LINE   1209 "regression-compile-tmp/hal7502.imp"
7434 @ 70440:            PUSH   STARTPOS
7435 @ 70443:            PUSH   QLIM
7436 @ 70446:            PUSHI  #0x00000001
7437 @ 70451:            LSH   
7438 @ 70452:            ASSVAL

  1210      INTEGER(MP) = INTEGER(MP)+1
7439 @ 70453:            LINE   1210 "regression-compile-tmp/hal7502.imp"
7440 @ 70491:            PUSH   INTEGER
7441 @ 70494:            PUSH   MP
7442 @ 70497:            ASSPAR
7443 @ 70498:            CALL  
7444 @ 70499:            PUSH   INTEGER
7445 @ 70502:            PUSH   MP
7446 @ 70505:            ASSPAR
7447 @ 70506:            CALL  
7448 @ 70507:            PUSHI  #0x00000001
7449 @ 70512:            ADD   
7450 @ 70513:            ASSVAL

  1211      INTEGER(MP+2) = GETPOS-1
7451 @ 70514:            LINE   1211 "regression-compile-tmp/hal7502.imp"
7452 @ 70552:            PUSH   INTEGER
7453 @ 70555:            PUSH   MP
7454 @ 70558:            PUSHI  #0x00000002
7455 @ 70563:            ADD   
7456 @ 70564:            ASSPAR
7457 @ 70565:            CALL  
7458 @ 70566:            PUSH   GETPOS
7459 @ 70569:            PUSHI  #0x00000001
7460 @ 70574:            SUB   
7461 @ 70575:            ASSVAL

  1212      PRINT LINE %IF PRINTPOS # 0 %AND LIST&2 # 0
7462 @ 70576:            LINE   1212 "regression-compile-tmp/hal7502.imp"
7463 @ 70614:            PUSH   PRINTPOS
7464 @ 70617:            PUSHI  #0x00000000
7465 @ 70622:            JUMPIF = L_0004
7466 @ 70626:            PUSH   LIST
7467 @ 70629:            PUSHI  #0x00000002
7468 @ 70634:            AND   
7469 @ 70635:            PUSHI  #0x00000000
7470 @ 70640:            JUMPIF = L_0004
7471 @ 70644:            PUSH   PRINTLINE
7472 @ 70647:            CALL  
7473 @ 70648:            LOCATE L_0004

  1213      ->READ
  1214  
  1215  !CODING OF JUMPS: 1000 (SINGLE INST), 2000 (MAIN IF)
  1216  !                 4000 (ELSE), 6000 (IF AFTER ELSE)
  1217  
7474 @ 70651:            LINE   1213 "regression-compile-tmp/hal7502.imp"
7475 @ 70689:            JUMP   L_00ed

  1218  IFC:
7476 @ 70692:            LINE   1218 "regression-compile-tmp/hal7502.imp"
7477 @ 70730:            LABEL  L_0100

  1219      GET COND;  QUEUE(-15);  ASSEMBLE
7478 @ 70733:            LINE   1219 "regression-compile-tmp/hal7502.imp"
7479 @ 70771:            PUSH   GETCOND
7480 @ 70774:            CALL  
7481 @ 70775:            LINE   1219 "regression-compile-tmp/hal7502.imp"
7482 @ 70813:            PUSH   QUEUE
7483 @ 70816:            PUSHI  #0x0000000f
7484 @ 70821:            NEGATE
7485 @ 70822:            ASSPAR
7486 @ 70823:            CALL  
7487 @ 70824:            LINE   1219 "regression-compile-tmp/hal7502.imp"
7488 @ 70862:            PUSH   ASSEMBLE
7489 @ 70865:            CALL  

  1220      ->SEND
  1221  
7490 @ 70866:            LINE   1220 "regression-compile-tmp/hal7502.imp"
7491 @ 70904:            JUMP   L_0109

  1222  ELSE:
7492 @ 70907:            LINE   1222 "regression-compile-tmp/hal7502.imp"
7493 @ 70945:            LABEL  L_0101

  1223      ->CERR %IF INTEGER(NP)&16_2000 = 0
7494 @ 70948:            LINE   1223 "regression-compile-tmp/hal7502.imp"
7495 @ 70986:            PUSH   INTEGER
7496 @ 70989:            PUSH   NP
7497 @ 70992:            ASSPAR
7498 @ 70993:            CALL  
7499 @ 70994:            PUSHI  #0x00002000
7500 @ 70999:            AND   
7501 @ 71000:            PUSHI  #0x00000000
7502 @ 71005:            JUMPIF # L_0004
7503 @ 71009:            JUMP   L_010b
7504 @ 71012:            LOCATE L_0004

  1224      QUEUE(0);  QUEUE(0)
7505 @ 71015:            LINE   1224 "regression-compile-tmp/hal7502.imp"
7506 @ 71053:            PUSH   QUEUE
7507 @ 71056:            PUSHI  #0x00000000
7508 @ 71061:            ASSPAR
7509 @ 71062:            CALL  
7510 @ 71063:            LINE   1224 "regression-compile-tmp/hal7502.imp"
7511 @ 71101:            PUSH   QUEUE
7512 @ 71104:            PUSHI  #0x00000000
7513 @ 71109:            ASSPAR
7514 @ 71110:            CALL  

  1225      QUEUE(-16);  ASSEMBLE
7515 @ 71111:            LINE   1225 "regression-compile-tmp/hal7502.imp"
7516 @ 71149:            PUSH   QUEUE
7517 @ 71152:            PUSHI  #0x00000010
7518 @ 71157:            NEGATE
7519 @ 71158:            ASSPAR
7520 @ 71159:            CALL  
7521 @ 71160:            LINE   1225 "regression-compile-tmp/hal7502.imp"
7522 @ 71198:            PUSH   ASSEMBLE
7523 @ 71201:            CALL  

  1226      ATYPE = -1; CREG = -1
7524 @ 71202:            LINE   1226 "regression-compile-tmp/hal7502.imp"
7525 @ 71240:            PUSH   ATYPE
7526 @ 71243:            PUSHI  #0x00000001
7527 @ 71248:            NEGATE
7528 @ 71249:            ASSVAL
7529 @ 71250:            LINE   1226 "regression-compile-tmp/hal7502.imp"
7530 @ 71288:            PUSH   CREG
7531 @ 71291:            PUSHI  #0x00000001
7532 @ 71296:            NEGATE
7533 @ 71297:            ASSVAL

  1227      %IF TAGIF %START
7534 @ 71298:            LINE   1227 "regression-compile-tmp/hal7502.imp"
7535 @ 71336:            PUSH   TAGIF
7536 @ 71339:            CALL  
7537 @ 71340:            bf     L_0004

  1228      GET COND;  QUEUE(-17);  ASSEMBLE
7538 @ 71343:            LINE   1228 "regression-compile-tmp/hal7502.imp"
7539 @ 71381:            PUSH   GETCOND
7540 @ 71384:            CALL  
7541 @ 71385:            LINE   1228 "regression-compile-tmp/hal7502.imp"
7542 @ 71423:            PUSH   QUEUE
7543 @ 71426:            PUSHI  #0x00000011
7544 @ 71431:            NEGATE
7545 @ 71432:            ASSPAR
7546 @ 71433:            CALL  
7547 @ 71434:            LINE   1228 "regression-compile-tmp/hal7502.imp"
7548 @ 71472:            PUSH   ASSEMBLE
7549 @ 71475:            CALL  

  1229      %FINISH
7550 @ 71476:            LINE   1229 "regression-compile-tmp/hal7502.imp"
7551 @ 71514:            LOCATE L_0004

  1230      ->SEND
  1231  
7552 @ 71517:            LINE   1230 "regression-compile-tmp/hal7502.imp"
7553 @ 71555:            JUMP   L_0109

  1232  FINISH:
7554 @ 71558:            LINE   1232 "regression-compile-tmp/hal7502.imp"
7555 @ 71596:            LABEL  L_0102

  1233      ->CERR %IF INTEGER(NP)&16_6000 = 0
7556 @ 71599:            LINE   1233 "regression-compile-tmp/hal7502.imp"
7557 @ 71637:            PUSH   INTEGER
7558 @ 71640:            PUSH   NP
7559 @ 71643:            ASSPAR
7560 @ 71644:            CALL  
7561 @ 71645:            PUSHI  #0x00006000
7562 @ 71650:            AND   
7563 @ 71651:            PUSHI  #0x00000000
7564 @ 71656:            JUMPIF # L_0004
7565 @ 71660:            JUMP   L_010b
7566 @ 71663:            LOCATE L_0004

  1234      I = LOC
7567 @ 71666:            LINE   1234 "regression-compile-tmp/hal7502.imp"
7568 @ 71704:            PUSH   I
7569 @ 71707:            PUSH   LOC
7570 @ 71710:            ASSVAL

  1235      %WHILE INTEGER(NP)&16_4000 # 0 %CYCLE
7571 @ 71711:            LINE   1235 "regression-compile-tmp/hal7502.imp"
7572 @ 71749:            LOCATE L_0003
7573 @ 71752:            PUSH   INTEGER
7574 @ 71755:            PUSH   NP
7575 @ 71758:            ASSPAR
7576 @ 71759:            CALL  
7577 @ 71760:            PUSHI  #0x00004000
7578 @ 71765:            AND   
7579 @ 71766:            PUSHI  #0x00000000
7580 @ 71771:            JUMPIF = L_0004

  1236      %IF INTEGER(NP)&16_2000 # 0 %START; !IF AFTER ELSE
7581 @ 71775:            LINE   1236 "regression-compile-tmp/hal7502.imp"
7582 @ 71813:            PUSH   INTEGER
7583 @ 71816:            PUSH   NP
7584 @ 71819:            ASSPAR
7585 @ 71820:            CALL  
7586 @ 71821:            PUSHI  #0x00002000
7587 @ 71826:            AND   
7588 @ 71827:            PUSHI  #0x00000000
7589 @ 71832:            JUMPIF = L_0007

  1237      SET LAB(I)
7590 @ 71836:            LINE   1237 "regression-compile-tmp/hal7502.imp"
7591 @ 71874:            PUSH   SETLAB
7592 @ 71877:            PUSH   I
7593 @ 71880:            ASSPAR
7594 @ 71881:            CALL  

  1238      %finish %ELSE  %START
7595 @ 71882:            LINE   1238 "regression-compile-tmp/hal7502.imp"
7596 @ 71920:            GOTO   L_0006
7597 @ 71923:            LOCATE L_0007

  1239      SET LAB(LOC)
7598 @ 71926:            LINE   1239 "regression-compile-tmp/hal7502.imp"
7599 @ 71964:            PUSH   SETLAB
7600 @ 71967:            PUSH   LOC
7601 @ 71970:            ASSPAR
7602 @ 71971:            CALL  

  1240      I = VAL+1
7603 @ 71972:            LINE   1240 "regression-compile-tmp/hal7502.imp"
7604 @ 72010:            PUSH   I
7605 @ 72013:            PUSH   VAL
7606 @ 72016:            PUSHI  #0x00000001
7607 @ 72021:            ADD   
7608 @ 72022:            ASSVAL

  1241      %FINISH
7609 @ 72023:            LINE   1241 "regression-compile-tmp/hal7502.imp"
7610 @ 72061:            LOCATE L_0006

  1242      %REPEAT
7611 @ 72064:            LINE   1242 "regression-compile-tmp/hal7502.imp"
7612 @ 72102:            REPEAT L_0003
7613 @ 72105:            LOCATE L_0004

  1243      SET LAB(I)
7614 @ 72108:            LINE   1243 "regression-compile-tmp/hal7502.imp"
7615 @ 72146:            PUSH   SETLAB
7616 @ 72149:            PUSH   I
7617 @ 72152:            ASSPAR
7618 @ 72153:            CALL  

  1244      ->SEND
  1245  
7619 @ 72154:            LINE   1244 "regression-compile-tmp/hal7502.imp"
7620 @ 72192:            JUMP   L_0109

  1246  WHILE:
7621 @ 72195:            LINE   1246 "regression-compile-tmp/hal7502.imp"
7622 @ 72233:            LABEL  L_0103

  1247      I = LOC;  ATYPE = -1;  CREG = -1
7623 @ 72236:            LINE   1247 "regression-compile-tmp/hal7502.imp"
7624 @ 72274:            PUSH   I
7625 @ 72277:            PUSH   LOC
7626 @ 72280:            ASSVAL
7627 @ 72281:            LINE   1247 "regression-compile-tmp/hal7502.imp"
7628 @ 72319:            PUSH   ATYPE
7629 @ 72322:            PUSHI  #0x00000001
7630 @ 72327:            NEGATE
7631 @ 72328:            ASSVAL
7632 @ 72329:            LINE   1247 "regression-compile-tmp/hal7502.imp"
7633 @ 72367:            PUSH   CREG
7634 @ 72370:            PUSHI  #0x00000001
7635 @ 72375:            NEGATE
7636 @ 72376:            ASSVAL

  1248      GET COND;  QUEUE(-13); ASSEMBLE
7637 @ 72377:            LINE   1248 "regression-compile-tmp/hal7502.imp"
7638 @ 72415:            PUSH   GETCOND
7639 @ 72418:            CALL  
7640 @ 72419:            LINE   1248 "regression-compile-tmp/hal7502.imp"
7641 @ 72457:            PUSH   QUEUE
7642 @ 72460:            PUSHI  #0x0000000d
7643 @ 72465:            NEGATE
7644 @ 72466:            ASSPAR
7645 @ 72467:            CALL  
7646 @ 72468:            LINE   1248 "regression-compile-tmp/hal7502.imp"
7647 @ 72506:            PUSH   ASSEMBLE
7648 @ 72509:            CALL  

  1249      NEST(I);  NEST(1)
7649 @ 72510:            LINE   1249 "regression-compile-tmp/hal7502.imp"
7650 @ 72548:            PUSH   NEST
7651 @ 72551:            PUSH   I
7652 @ 72554:            ASSPAR
7653 @ 72555:            CALL  
7654 @ 72556:            LINE   1249 "regression-compile-tmp/hal7502.imp"
7655 @ 72594:            PUSH   NEST
7656 @ 72597:            PUSHI  #0x00000001
7657 @ 72602:            ASSPAR
7658 @ 72603:            CALL  

  1250      ->SEND
  1251  
7659 @ 72604:            LINE   1250 "regression-compile-tmp/hal7502.imp"
7660 @ 72642:            JUMP   L_0109

  1252  CYCLE:
7661 @ 72645:            LINE   1252 "regression-compile-tmp/hal7502.imp"
7662 @ 72683:            LABEL  L_0104

  1253      NEST(LOC);  NEST(1)
7663 @ 72686:            LINE   1253 "regression-compile-tmp/hal7502.imp"
7664 @ 72724:            PUSH   NEST
7665 @ 72727:            PUSH   LOC
7666 @ 72730:            ASSPAR
7667 @ 72731:            CALL  
7668 @ 72732:            LINE   1253 "regression-compile-tmp/hal7502.imp"
7669 @ 72770:            PUSH   NEST
7670 @ 72773:            PUSHI  #0x00000001
7671 @ 72778:            ASSPAR
7672 @ 72779:            CALL  

  1254      ->SEND
  1255  
7673 @ 72780:            LINE   1254 "regression-compile-tmp/hal7502.imp"
7674 @ 72818:            JUMP   L_0109

  1256  REPEAT:
7675 @ 72821:            LINE   1256 "regression-compile-tmp/hal7502.imp"
7676 @ 72859:            LABEL  L_0105

  1257      ->CERR %IF INTEGER(NP) # 1
7677 @ 72862:            LINE   1257 "regression-compile-tmp/hal7502.imp"
7678 @ 72900:            PUSH   INTEGER
7679 @ 72903:            PUSH   NP
7680 @ 72906:            ASSPAR
7681 @ 72907:            CALL  
7682 @ 72908:            PUSHI  #0x00000001
7683 @ 72913:            JUMPIF = L_0004
7684 @ 72917:            JUMP   L_010b
7685 @ 72920:            LOCATE L_0004

  1258      QUEUE(LOCTYPE);  QUEUE(INTEGER(NP+1))
7686 @ 72923:            LINE   1258 "regression-compile-tmp/hal7502.imp"
7687 @ 72961:            PUSH   QUEUE
7688 @ 72964:            PUSH   LOCTYPE
7689 @ 72967:            ASSPAR
7690 @ 72968:            CALL  
7691 @ 72969:            LINE   1258 "regression-compile-tmp/hal7502.imp"
7692 @ 73007:            PUSH   QUEUE
7693 @ 73010:            PUSH   INTEGER
7694 @ 73013:            PUSH   NP
7695 @ 73016:            PUSHI  #0x00000001
7696 @ 73021:            ADD   
7697 @ 73022:            ASSPAR
7698 @ 73023:            CALL  
7699 @ 73024:            ASSPAR
7700 @ 73025:            CALL  

  1259      NP = NP+2
7701 @ 73026:            LINE   1259 "regression-compile-tmp/hal7502.imp"
7702 @ 73064:            PUSH   NP
7703 @ 73067:            PUSH   NP
7704 @ 73070:            PUSHI  #0x00000002
7705 @ 73075:            ADD   
7706 @ 73076:            ASSVAL

  1260      QUEUE(-26);                       !'JUMP'
7707 @ 73077:            LINE   1260 "regression-compile-tmp/hal7502.imp"
7708 @ 73115:            PUSH   QUEUE
7709 @ 73118:            PUSHI  #0x0000001a
7710 @ 73123:            NEGATE
7711 @ 73124:            ASSPAR
7712 @ 73125:            CALL  

  1261      FLAG = -1
7713 @ 73126:            LINE   1261 "regression-compile-tmp/hal7502.imp"
7714 @ 73164:            PUSH   FLAG
7715 @ 73167:            PUSHI  #0x00000001
7716 @ 73172:            NEGATE
7717 @ 73173:            ASSVAL

  1262      ->CONDQ
  1263  
7718 @ 73174:            LINE   1262 "regression-compile-tmp/hal7502.imp"
7719 @ 73212:            JUMP   L_010a

  1264  CERR:
7720 @ 73215:            LINE   1264 "regression-compile-tmp/hal7502.imp"
7721 @ 73253:            LABEL  L_010b

  1265      FAULT('C')
7722 @ 73256:            LINE   1265 "regression-compile-tmp/hal7502.imp"
7723 @ 73294:            PUSH   FAULT
7724 @ 73297:            PUSHI  #0x00000043
7725 @ 73302:            ASSPAR
7726 @ 73303:            CALL  

  1266      ->LEND
  1267  
7727 @ 73304:            LINE   1266 "regression-compile-tmp/hal7502.imp"
7728 @ 73342:            JUMP   L_00f4

  1268  SEND:
7729 @ 73345:            LINE   1268 "regression-compile-tmp/hal7502.imp"
7730 @ 73383:            LABEL  L_0109

  1269      SET LAB(LOC) %IF INTEGER(NP)&16_1000 # 0
7731 @ 73386:            LINE   1269 "regression-compile-tmp/hal7502.imp"
7732 @ 73424:            PUSH   INTEGER
7733 @ 73427:            PUSH   NP
7734 @ 73430:            ASSPAR
7735 @ 73431:            CALL  
7736 @ 73432:            PUSHI  #0x00001000
7737 @ 73437:            AND   
7738 @ 73438:            PUSHI  #0x00000000
7739 @ 73443:            JUMPIF = L_0004
7740 @ 73447:            PUSH   SETLAB
7741 @ 73450:            PUSH   LOC
7742 @ 73453:            ASSPAR
7743 @ 73454:            CALL  
7744 @ 73455:            LOCATE L_0004

  1270      ->LEND %IF SYM = NL
7745 @ 73458:            LINE   1270 "regression-compile-tmp/hal7502.imp"
7746 @ 73496:            PUSH   SYM
7747 @ 73499:            PUSHI  #0x0000000a
7748 @ 73504:            JUMPIF # L_0004
7749 @ 73508:            JUMP   L_00f4
7750 @ 73511:            LOCATE L_0004

  1271      ->NEXT %IF S(';')
  1272  
7751 @ 73514:            LINE   1271 "regression-compile-tmp/hal7502.imp"
7752 @ 73552:            PUSH   S
7753 @ 73555:            PUSHI  #0x0000003b
7754 @ 73560:            ASSPAR
7755 @ 73561:            CALL  
7756 @ 73562:            bf     L_0004
7757 @ 73565:            JUMP   L_00ee
7758 @ 73568:            LOCATE L_0004

  1273  ERR:FSYM = 'F';  FAULTPOS = GETPOS-1
7759 @ 73571:            LINE   1273 "regression-compile-tmp/hal7502.imp"
7760 @ 73609:            LABEL  L_00f0
7761 @ 73612:            LINE   1273 "regression-compile-tmp/hal7502.imp"
7762 @ 73650:            PUSH   FSYM
7763 @ 73653:            PUSHI  #0x00000046
7764 @ 73658:            ASSVAL
7765 @ 73659:            LINE   1273 "regression-compile-tmp/hal7502.imp"
7766 @ 73697:            PUSH   FAULTPOS
7767 @ 73700:            PUSH   GETPOS
7768 @ 73703:            PUSHI  #0x00000001
7769 @ 73708:            SUB   
7770 @ 73709:            ASSVAL

  1274      PRINTPOS = STARTPOS
  1275  
7771 @ 73710:            LINE   1274 "regression-compile-tmp/hal7502.imp"
7772 @ 73748:            PUSH   PRINTPOS
7773 @ 73751:            PUSH   STARTPOS
7774 @ 73754:            ASSVAL

  1276  LEND:
7775 @ 73755:            LINE   1276 "regression-compile-tmp/hal7502.imp"
7776 @ 73793:            LABEL  L_00f4

  1277      ->READ %IF SKIP # 0 %AND LIST&4 = 0
7777 @ 73796:            LINE   1277 "regression-compile-tmp/hal7502.imp"
7778 @ 73834:            PUSH   SKIP
7779 @ 73837:            PUSHI  #0x00000000
7780 @ 73842:            JUMPIF = L_0004
7781 @ 73846:            PUSH   LIST
7782 @ 73849:            PUSHI  #0x00000004
7783 @ 73854:            AND   
7784 @ 73855:            PUSHI  #0x00000000
7785 @ 73860:            JUMPIF # L_0004
7786 @ 73864:            JUMP   L_00ed
7787 @ 73867:            LOCATE L_0004

  1278      ->READ %IF FSYM = ' ' %AND CHARS = 0 %AND %C
  1279       (PRINTPOS = 0 %OR (MP#0 %AND LIST&2=0))
7788 @ 73870:            LINE   1278 "regression-compile-tmp/hal7502.imp"
7789 @ 73908:            PUSH   FSYM
7790 @ 73911:            PUSHI  #0x00000020
7791 @ 73916:            JUMPIF # L_0004
7792 @ 73920:            PUSH   CHARS
7793 @ 73923:            PUSHI  #0x00000000
7794 @ 73928:            JUMPIF # L_0004
7795 @ 73932:            PUSH   PRINTPOS
7796 @ 73935:            PUSHI  #0x00000000
7797 @ 73940:            JUMPIF = L_0005
7798 @ 73944:            PUSH   MP
7799 @ 73947:            PUSHI  #0x00000000
7800 @ 73952:            JUMPIF = L_0004
7801 @ 73956:            PUSH   LIST
7802 @ 73959:            PUSHI  #0x00000002
7803 @ 73964:            AND   
7804 @ 73965:            PUSHI  #0x00000000
7805 @ 73970:            JUMPIF # L_0004
7806 @ 73974:            LOCATE L_0005
7807 @ 73977:            JUMP   L_00ed
7808 @ 73980:            LOCATE L_0004

  1280      PRINT LINE
7809 @ 73983:            LINE   1280 "regression-compile-tmp/hal7502.imp"
7810 @ 74021:            PUSH   PRINTLINE
7811 @ 74024:            CALL  

  1281      ->READ
  1282  
7812 @ 74025:            LINE   1281 "regression-compile-tmp/hal7502.imp"
7813 @ 74063:            JUMP   L_00ed

  1283  ASSIF:
7814 @ 74066:            LINE   1283 "regression-compile-tmp/hal7502.imp"
7815 @ 74104:            LABEL  L_00f1

  1284      ASSCOND = ASSCOND<<1
7816 @ 74107:            LINE   1284 "regression-compile-tmp/hal7502.imp"
7817 @ 74145:            PUSH   ASSCOND
7818 @ 74148:            PUSH   ASSCOND
7819 @ 74151:            PUSHI  #0x00000001
7820 @ 74156:            LSH   
7821 @ 74157:            ASSVAL

  1285      ->LEND %IF SKIP # 0
7822 @ 74158:            LINE   1285 "regression-compile-tmp/hal7502.imp"
7823 @ 74196:            PUSH   SKIP
7824 @ 74199:            PUSHI  #0x00000000
7825 @ 74204:            JUMPIF = L_0004
7826 @ 74208:            JUMP   L_00f4
7827 @ 74211:            LOCATE L_0004

  1286  A1: GET COND; ASSEMBLE
7828 @ 74214:            LINE   1286 "regression-compile-tmp/hal7502.imp"
7829 @ 74252:            LABEL  L_010c
7830 @ 74255:            LINE   1286 "regression-compile-tmp/hal7502.imp"
7831 @ 74293:            PUSH   GETCOND
7832 @ 74296:            CALL  
7833 @ 74297:            LINE   1286 "regression-compile-tmp/hal7502.imp"
7834 @ 74335:            PUSH   ASSEMBLE
7835 @ 74338:            CALL  

  1287      SKIP = ASSCOND %IF COND # 0
7836 @ 74339:            LINE   1287 "regression-compile-tmp/hal7502.imp"
7837 @ 74377:            PUSH   COND
7838 @ 74380:            PUSHI  #0x00000000
7839 @ 74385:            JUMPIF = L_0004
7840 @ 74389:            PUSH   SKIP
7841 @ 74392:            PUSH   ASSCOND
7842 @ 74395:            ASSVAL
7843 @ 74396:            LOCATE L_0004

  1288      PRINT LINE %IF PRINTPOS # 0
7844 @ 74399:            LINE   1288 "regression-compile-tmp/hal7502.imp"
7845 @ 74437:            PUSH   PRINTPOS
7846 @ 74440:            PUSHI  #0x00000000
7847 @ 74445:            JUMPIF = L_0004
7848 @ 74449:            PUSH   PRINTLINE
7849 @ 74452:            CALL  
7850 @ 74453:            LOCATE L_0004

  1289      ->LEND
  1290  
7851 @ 74456:            LINE   1289 "regression-compile-tmp/hal7502.imp"
7852 @ 74494:            JUMP   L_00f4

  1291  ASSELSE:
7853 @ 74497:            LINE   1291 "regression-compile-tmp/hal7502.imp"
7854 @ 74535:            LABEL  L_00f2

  1292      %IF SKIP = 0 %START
7855 @ 74538:            LINE   1292 "regression-compile-tmp/hal7502.imp"
7856 @ 74576:            PUSH   SKIP
7857 @ 74579:            PUSHI  #0x00000000
7858 @ 74584:            JUMPIF # L_0004

  1293      ->CERR %IF ASSCOND&1 # 0
7859 @ 74588:            LINE   1293 "regression-compile-tmp/hal7502.imp"
7860 @ 74626:            PUSH   ASSCOND
7861 @ 74629:            PUSHI  #0x00000001
7862 @ 74634:            AND   
7863 @ 74635:            PUSHI  #0x00000000
7864 @ 74640:            JUMPIF = L_0007
7865 @ 74644:            JUMP   L_010b
7866 @ 74647:            LOCATE L_0007

  1294      SKIP = ASSCOND
7867 @ 74650:            LINE   1294 "regression-compile-tmp/hal7502.imp"
7868 @ 74688:            PUSH   SKIP
7869 @ 74691:            PUSH   ASSCOND
7870 @ 74694:            ASSVAL

  1295      %finish %ELSE  %START
7871 @ 74695:            LINE   1295 "regression-compile-tmp/hal7502.imp"
7872 @ 74733:            GOTO   L_0003
7873 @ 74736:            LOCATE L_0004

  1296      ->LEND %IF SKIP # ASSCOND
7874 @ 74739:            LINE   1296 "regression-compile-tmp/hal7502.imp"
7875 @ 74777:            PUSH   SKIP
7876 @ 74780:            PUSH   ASSCOND
7877 @ 74783:            JUMPIF = L_0007
7878 @ 74787:            JUMP   L_00f4
7879 @ 74790:            LOCATE L_0007

  1297      SKIP = 0
7880 @ 74793:            LINE   1297 "regression-compile-tmp/hal7502.imp"
7881 @ 74831:            PUSH   SKIP
7882 @ 74834:            PUSHI  #0x00000000
7883 @ 74839:            ASSVAL

  1298      ->A1 %IF TAGIF
7884 @ 74840:            LINE   1298 "regression-compile-tmp/hal7502.imp"
7885 @ 74878:            PUSH   TAGIF
7886 @ 74881:            CALL  
7887 @ 74882:            bf     L_0007
7888 @ 74885:            JUMP   L_010c
7889 @ 74888:            LOCATE L_0007

  1299      %FINISH
7890 @ 74891:            LINE   1299 "regression-compile-tmp/hal7502.imp"
7891 @ 74929:            LOCATE L_0003

  1300      ASSCOND = ASSCOND+1
7892 @ 74932:            LINE   1300 "regression-compile-tmp/hal7502.imp"
7893 @ 74970:            PUSH   ASSCOND
7894 @ 74973:            PUSH   ASSCOND
7895 @ 74976:            PUSHI  #0x00000001
7896 @ 74981:            ADD   
7897 @ 74982:            ASSVAL

  1301      ->LEND
  1302  
7898 @ 74983:            LINE   1301 "regression-compile-tmp/hal7502.imp"
7899 @ 75021:            JUMP   L_00f4

  1303  ASSFIN:
7900 @ 75024:            LINE   1303 "regression-compile-tmp/hal7502.imp"
7901 @ 75062:            LABEL  L_00f3

  1304      ->CERR %IF ASSCOND = 1
7902 @ 75065:            LINE   1304 "regression-compile-tmp/hal7502.imp"
7903 @ 75103:            PUSH   ASSCOND
7904 @ 75106:            PUSHI  #0x00000001
7905 @ 75111:            JUMPIF # L_0004
7906 @ 75115:            JUMP   L_010b
7907 @ 75118:            LOCATE L_0004

  1305      ASSCOND = ASSCOND>>1
7908 @ 75121:            LINE   1305 "regression-compile-tmp/hal7502.imp"
7909 @ 75159:            PUSH   ASSCOND
7910 @ 75162:            PUSH   ASSCOND
7911 @ 75165:            PUSHI  #0x00000001
7912 @ 75170:            RSH   
7913 @ 75171:            ASSVAL

  1306      SKIP = 0 %IF SKIP>>1 = ASSCOND
7914 @ 75172:            LINE   1306 "regression-compile-tmp/hal7502.imp"
7915 @ 75210:            PUSH   SKIP
7916 @ 75213:            PUSHI  #0x00000001
7917 @ 75218:            RSH   
7918 @ 75219:            PUSH   ASSCOND
7919 @ 75222:            JUMPIF # L_0004
7920 @ 75226:            PUSH   SKIP
7921 @ 75229:            PUSHI  #0x00000000
7922 @ 75234:            ASSVAL
7923 @ 75235:            LOCATE L_0004

  1307      ->LEND
  1308  
7924 @ 75238:            LINE   1307 "regression-compile-tmp/hal7502.imp"
7925 @ 75276:            JUMP   L_00f4

  1309  DEFINE:
7926 @ 75279:            LINE   1309 "regression-compile-tmp/hal7502.imp"
7927 @ 75317:            LABEL  L_00f5

  1310      FAULT('C') %IF NP # STORELIM
7928 @ 75320:            LINE   1310 "regression-compile-tmp/hal7502.imp"
7929 @ 75358:            PUSH   NP
7930 @ 75361:            PUSH   STORELIM
7931 @ 75364:            JUMPIF = L_0004
7932 @ 75368:            PUSH   FAULT
7933 @ 75371:            PUSHI  #0x00000043
7934 @ 75376:            ASSPAR
7935 @ 75377:            CALL  
7936 @ 75378:            LOCATE L_0004

  1311      I = TAG1
7937 @ 75381:            LINE   1311 "regression-compile-tmp/hal7502.imp"
7938 @ 75419:            PUSH   I
7939 @ 75422:            PUSH   TAG1
7940 @ 75425:            ASSVAL

  1312      %CYCLE
7941 @ 75426:            LINE   1312 "regression-compile-tmp/hal7502.imp"
7942 @ 75464:            LOCATE L_0003

  1313      ->ERR %IF %NOT (TAG %AND S('='))
7943 @ 75467:            LINE   1313 "regression-compile-tmp/hal7502.imp"
7944 @ 75505:            PUSH   TAG
7945 @ 75508:            CALL  
7946 @ 75509:            bf     L_0008
7947 @ 75512:            PUSH   S
7948 @ 75515:            PUSHI  #0x0000003d
7949 @ 75520:            ASSPAR
7950 @ 75521:            CALL  
7951 @ 75522:            bt     L_0007
7952 @ 75525:            LOCATE L_0008
7953 @ 75528:            JUMP   L_00f0
7954 @ 75531:            LOCATE L_0007

  1314      J = TAG1;  K = TAG2
7955 @ 75534:            LINE   1314 "regression-compile-tmp/hal7502.imp"
7956 @ 75572:            PUSH   J
7957 @ 75575:            PUSH   TAG1
7958 @ 75578:            ASSVAL
7959 @ 75579:            LINE   1314 "regression-compile-tmp/hal7502.imp"
7960 @ 75617:            PUSH   K
7961 @ 75620:            PUSH   TAG2
7962 @ 75623:            ASSVAL

  1315      %IF TAG %START
7963 @ 75624:            LINE   1315 "regression-compile-tmp/hal7502.imp"
7964 @ 75662:            PUSH   TAG
7965 @ 75665:            CALL  
7966 @ 75666:            bf     L_0007

  1316      TYPE = UMASK;  LOOKUP(0)
7967 @ 75669:            LINE   1316 "regression-compile-tmp/hal7502.imp"
7968 @ 75707:            PUSH   TYPE
7969 @ 75710:            PUSH   UMASK
7970 @ 75713:            ASSVAL
7971 @ 75714:            LINE   1316 "regression-compile-tmp/hal7502.imp"
7972 @ 75752:            PUSH   LOOKUP
7973 @ 75755:            PUSHI  #0x00000000
7974 @ 75760:            ASSPAR
7975 @ 75761:            CALL  

  1317      %IF TYPE&OPMASK # 0 %START
7976 @ 75762:            LINE   1317 "regression-compile-tmp/hal7502.imp"
7977 @ 75800:            PUSH   TYPE
7978 @ 75803:            PUSH   OPMASK
7979 @ 75806:            AND   
7980 @ 75807:            PUSHI  #0x00000000
7981 @ 75812:            JUMPIF = L_000a

  1318      GET INST
7982 @ 75816:            LINE   1318 "regression-compile-tmp/hal7502.imp"
7983 @ 75854:            PUSH   GETINST
7984 @ 75857:            CALL  

  1319      %finish %ELSE  %START
7985 @ 75858:            LINE   1319 "regression-compile-tmp/hal7502.imp"
7986 @ 75896:            GOTO   L_0009
7987 @ 75899:            LOCATE L_000a

  1320      PEND = -1;  GET EXP
7988 @ 75902:            LINE   1320 "regression-compile-tmp/hal7502.imp"
7989 @ 75940:            PUSH   PEND
7990 @ 75943:            PUSHI  #0x00000001
7991 @ 75948:            NEGATE
7992 @ 75949:            ASSVAL
7993 @ 75950:            LINE   1320 "regression-compile-tmp/hal7502.imp"
7994 @ 75988:            PUSH   GETEXP
7995 @ 75991:            CALL  

  1321      %FINISH
7996 @ 75992:            LINE   1321 "regression-compile-tmp/hal7502.imp"
7997 @ 76030:            LOCATE L_0009

  1322      %finish %ELSE  GET EXP
7998 @ 76033:            LINE   1322 "regression-compile-tmp/hal7502.imp"
7999 @ 76071:            GOTO   L_0006
8000 @ 76074:            LOCATE L_0007
8001 @ 76077:            PUSH   GETEXP
8002 @ 76080:            CALL  
8003 @ 76081:            LOCATE L_0006

  1323      ASSEMBLE
8004 @ 76084:            LINE   1323 "regression-compile-tmp/hal7502.imp"
8005 @ 76122:            PUSH   ASSEMBLE
8006 @ 76125:            CALL  

  1324      TAG1 = J;  TAG2 = K
8007 @ 76126:            LINE   1324 "regression-compile-tmp/hal7502.imp"
8008 @ 76164:            PUSH   TAG1
8009 @ 76167:            PUSH   J
8010 @ 76170:            ASSVAL
8011 @ 76171:            LINE   1324 "regression-compile-tmp/hal7502.imp"
8012 @ 76209:            PUSH   TAG2
8013 @ 76212:            PUSH   K
8014 @ 76215:            ASSVAL

  1325      %IF I=DEF %THEN LOOKUP(3) %ELSE LOOKUP(2)
8015 @ 76216:            LINE   1325 "regression-compile-tmp/hal7502.imp"
8016 @ 76254:            PUSH   I
8017 @ 76257:            PUSH   DEF
8018 @ 76260:            JUMPIF # L_0007
8019 @ 76264:            PUSH   LOOKUP
8020 @ 76267:            PUSHI  #0x00000003
8021 @ 76272:            ASSPAR
8022 @ 76273:            CALL  
8023 @ 76274:            GOTO   L_0006
8024 @ 76277:            LOCATE L_0007
8025 @ 76280:            PUSH   LOOKUP
8026 @ 76283:            PUSHI  #0x00000002
8027 @ 76288:            ASSPAR
8028 @ 76289:            CALL  
8029 @ 76290:            LOCATE L_0006

  1326      %EXIT %UNLESS S(',')
8030 @ 76293:            LINE   1326 "regression-compile-tmp/hal7502.imp"
8031 @ 76331:            PUSH   S
8032 @ 76334:            PUSHI  #0x0000002c
8033 @ 76339:            ASSPAR
8034 @ 76340:            CALL  
8035 @ 76341:            bt     L_0007
8036 @ 76344:            GOTO   L_0004
8037 @ 76347:            LOCATE L_0007

  1327      QLIM = QSTART
8038 @ 76350:            LINE   1327 "regression-compile-tmp/hal7502.imp"
8039 @ 76388:            PUSH   QLIM
8040 @ 76391:            PUSH   QSTART
8041 @ 76394:            ASSVAL

  1328      %REPEAT
8042 @ 76395:            LINE   1328 "regression-compile-tmp/hal7502.imp"
8043 @ 76433:            REPEAT L_0003
8044 @ 76436:            LOCATE L_0004

  1329      ->SEND
  1330  
8045 @ 76439:            LINE   1329 "regression-compile-tmp/hal7502.imp"
8046 @ 76477:            JUMP   L_0109

  1331  NEWPAGE:
8047 @ 76480:            LINE   1331 "regression-compile-tmp/hal7502.imp"
8048 @ 76518:            LABEL  L_00ef

  1332      DO NEWLINE %WHILE LINES # 0
8049 @ 76521:            LINE   1332 "regression-compile-tmp/hal7502.imp"
8050 @ 76559:            LOCATE L_0003
8051 @ 76562:            PUSH   LINES
8052 @ 76565:            PUSHI  #0x00000000
8053 @ 76570:            JUMPIF = L_0004
8054 @ 76574:            PUSH   DONEWLINE
8055 @ 76577:            CALL  
8056 @ 76578:            REPEAT L_0003
8057 @ 76581:            LOCATE L_0004

  1333      ->LEND
  1334  
8058 @ 76584:            LINE   1333 "regression-compile-tmp/hal7502.imp"
8059 @ 76622:            JUMP   L_00f4

  1335  LISTC:
8060 @ 76625:            LINE   1335 "regression-compile-tmp/hal7502.imp"
8061 @ 76663:            LABEL  L_00f6

  1336      GET EXP;  ASSEMBLE
8062 @ 76666:            LINE   1336 "regression-compile-tmp/hal7502.imp"
8063 @ 76704:            PUSH   GETEXP
8064 @ 76707:            CALL  
8065 @ 76708:            LINE   1336 "regression-compile-tmp/hal7502.imp"
8066 @ 76746:            PUSH   ASSEMBLE
8067 @ 76749:            CALL  

  1337      LIST = VAL
8068 @ 76750:            LINE   1337 "regression-compile-tmp/hal7502.imp"
8069 @ 76788:            PUSH   LIST
8070 @ 76791:            PUSH   VAL
8071 @ 76794:            ASSVAL

  1338      ->SEND
  1339  
8072 @ 76795:            LINE   1338 "regression-compile-tmp/hal7502.imp"
8073 @ 76833:            JUMP   L_0109

  1340  TEMP:
8074 @ 76836:            LINE   1340 "regression-compile-tmp/hal7502.imp"
8075 @ 76874:            LABEL  L_00f7

  1341      I = 0
8076 @ 76877:            LINE   1341 "regression-compile-tmp/hal7502.imp"
8077 @ 76915:            PUSH   I
8078 @ 76918:            PUSHI  #0x00000000
8079 @ 76923:            ASSVAL

  1342      %IF SYM # NL %START
8080 @ 76924:            LINE   1342 "regression-compile-tmp/hal7502.imp"
8081 @ 76962:            PUSH   SYM
8082 @ 76965:            PUSHI  #0x0000000a
8083 @ 76970:            JUMPIF = L_0004

  1343      %CYCLE
8084 @ 76974:            LINE   1343 "regression-compile-tmp/hal7502.imp"
8085 @ 77012:            LOCATE L_0006

  1344      GET EXP
8086 @ 77015:            LINE   1344 "regression-compile-tmp/hal7502.imp"
8087 @ 77053:            PUSH   GETEXP
8088 @ 77056:            CALL  

  1345      FAULT('I') %IF TYPE # REG
8089 @ 77057:            LINE   1345 "regression-compile-tmp/hal7502.imp"
8090 @ 77095:            PUSH   TYPE
8091 @ 77098:            PUSH   REG
8092 @ 77101:            JUMPIF = L_000a
8093 @ 77105:            PUSH   FAULT
8094 @ 77108:            PUSHI  #0x00000049
8095 @ 77113:            ASSPAR
8096 @ 77114:            CALL  
8097 @ 77115:            LOCATE L_000a

  1346      I = I!1<<VAL
8098 @ 77118:            LINE   1346 "regression-compile-tmp/hal7502.imp"
8099 @ 77156:            PUSH   I
8100 @ 77159:            PUSH   I
8101 @ 77162:            PUSHI  #0x00000001
8102 @ 77167:            PUSH   VAL
8103 @ 77170:            LSH   
8104 @ 77171:            OR    
8105 @ 77172:            ASSVAL

  1347      %EXIT %UNLESS S(',')
8106 @ 77173:            LINE   1347 "regression-compile-tmp/hal7502.imp"
8107 @ 77211:            PUSH   S
8108 @ 77214:            PUSHI  #0x0000002c
8109 @ 77219:            ASSPAR
8110 @ 77220:            CALL  
8111 @ 77221:            bt     L_000a
8112 @ 77224:            GOTO   L_0007
8113 @ 77227:            LOCATE L_000a

  1348      %REPEAT
8114 @ 77230:            LINE   1348 "regression-compile-tmp/hal7502.imp"
8115 @ 77268:            REPEAT L_0006
8116 @ 77271:            LOCATE L_0007

  1349      %FINISH
8117 @ 77274:            LINE   1349 "regression-compile-tmp/hal7502.imp"
8118 @ 77312:            LOCATE L_0004

  1350      TEMPS = I
8119 @ 77315:            LINE   1350 "regression-compile-tmp/hal7502.imp"
8120 @ 77353:            PUSH   TEMPS
8121 @ 77356:            PUSH   I
8122 @ 77359:            ASSVAL

  1351      SET ACC
8123 @ 77360:            LINE   1351 "regression-compile-tmp/hal7502.imp"
8124 @ 77398:            PUSH   SETACC
8125 @ 77401:            CALL  

  1352      ->SEND
  1353  
8126 @ 77402:            LINE   1352 "regression-compile-tmp/hal7502.imp"
8127 @ 77440:            JUMP   L_0109

  1354  LOCC:
8128 @ 77443:            LINE   1354 "regression-compile-tmp/hal7502.imp"
8129 @ 77481:            LABEL  L_00f8

  1355      I = TAG1
8130 @ 77484:            LINE   1355 "regression-compile-tmp/hal7502.imp"
8131 @ 77522:            PUSH   I
8132 @ 77525:            PUSH   TAG1
8133 @ 77528:            ASSVAL

  1356      GET EXP;  ASSEMBLE
8134 @ 77529:            LINE   1356 "regression-compile-tmp/hal7502.imp"
8135 @ 77567:            PUSH   GETEXP
8136 @ 77570:            CALL  
8137 @ 77571:            LINE   1356 "regression-compile-tmp/hal7502.imp"
8138 @ 77609:            PUSH   ASSEMBLE
8139 @ 77612:            CALL  

  1357      %IF TYPE&16_FF9F = 0 %START
8140 @ 77613:            LINE   1357 "regression-compile-tmp/hal7502.imp"
8141 @ 77651:            PUSH   TYPE
8142 @ 77654:            PUSHI  #0x0000ff9f
8143 @ 77659:            AND   
8144 @ 77660:            PUSHI  #0x00000000
8145 @ 77665:            JUMPIF # L_0004

  1358      LOCTYPE = TYPE&RELMASK+MEMMASK;  LOC = VAL
8146 @ 77669:            LINE   1358 "regression-compile-tmp/hal7502.imp"
8147 @ 77707:            PUSH   LOCTYPE
8148 @ 77710:            PUSH   TYPE
8149 @ 77713:            PUSH   RELMASK
8150 @ 77716:            AND   
8151 @ 77717:            PUSH   MEMMASK
8152 @ 77720:            ADD   
8153 @ 77721:            ASSVAL
8154 @ 77722:            LINE   1358 "regression-compile-tmp/hal7502.imp"
8155 @ 77760:            PUSH   LOC
8156 @ 77763:            PUSH   VAL
8157 @ 77766:            ASSVAL

  1359      PUT WORD(VAL-1) %AND CONTROL=16_30 %IF PASS > 0
8158 @ 77767:            LINE   1359 "regression-compile-tmp/hal7502.imp"
8159 @ 77805:            PUSH   PASS
8160 @ 77808:            PUSHI  #0x00000000
8161 @ 77813:            JUMPIF <= L_0007
8162 @ 77817:            PUSH   PUTWORD
8163 @ 77820:            PUSH   VAL
8164 @ 77823:            PUSHI  #0x00000001
8165 @ 77828:            SUB   
8166 @ 77829:            ASSPAR
8167 @ 77830:            CALL  
8168 @ 77831:            PUSH   CONTROL
8169 @ 77834:            PUSHI  #0x00000030
8170 @ 77839:            ASSVAL
8171 @ 77840:            LOCATE L_0007

  1360      %finish %ELSE  FAULT('I')
8172 @ 77843:            LINE   1360 "regression-compile-tmp/hal7502.imp"
8173 @ 77881:            GOTO   L_0003
8174 @ 77884:            LOCATE L_0004
8175 @ 77887:            PUSH   FAULT
8176 @ 77890:            PUSHI  #0x00000049
8177 @ 77895:            ASSPAR
8178 @ 77896:            CALL  
8179 @ 77897:            LOCATE L_0003

  1361      ->SEND
  1362  
8180 @ 77900:            LINE   1361 "regression-compile-tmp/hal7502.imp"
8181 @ 77938:            JUMP   L_0109

  1363  SAVC:
8182 @ 77941:            LINE   1363 "regression-compile-tmp/hal7502.imp"
8183 @ 77979:            LABEL  L_00f9

  1364      GET EXP;  ASSEMBLE
8184 @ 77982:            LINE   1364 "regression-compile-tmp/hal7502.imp"
8185 @ 78020:            PUSH   GETEXP
8186 @ 78023:            CALL  
8187 @ 78024:            LINE   1364 "regression-compile-tmp/hal7502.imp"
8188 @ 78062:            PUSH   ASSEMBLE
8189 @ 78065:            CALL  

  1365      SAVE = VAL
8190 @ 78066:            LINE   1365 "regression-compile-tmp/hal7502.imp"
8191 @ 78104:            PUSH   SAVE
8192 @ 78107:            PUSH   VAL
8193 @ 78110:            ASSVAL

  1366      ->SEND
  1367  
8194 @ 78111:            LINE   1366 "regression-compile-tmp/hal7502.imp"
8195 @ 78149:            JUMP   L_0109

  1368  MACDEF:
8196 @ 78152:            LINE   1368 "regression-compile-tmp/hal7502.imp"
8197 @ 78190:            LABEL  L_00fa

  1369      ->CERR %IF MP # 0
8198 @ 78193:            LINE   1369 "regression-compile-tmp/hal7502.imp"
8199 @ 78231:            PUSH   MP
8200 @ 78234:            PUSHI  #0x00000000
8201 @ 78239:            JUMPIF = L_0004
8202 @ 78243:            JUMP   L_010b
8203 @ 78246:            LOCATE L_0004

  1370      ->ERR %IF %NOT TAG
8204 @ 78249:            LINE   1370 "regression-compile-tmp/hal7502.imp"
8205 @ 78287:            PUSH   TAG
8206 @ 78290:            CALL  
8207 @ 78291:            bt     L_0004
8208 @ 78294:            JUMP   L_00f0
8209 @ 78297:            LOCATE L_0004

  1371      J = TAG1;  K = TAG2
8210 @ 78300:            LINE   1371 "regression-compile-tmp/hal7502.imp"
8211 @ 78338:            PUSH   J
8212 @ 78341:            PUSH   TAG1
8213 @ 78344:            ASSVAL
8214 @ 78345:            LINE   1371 "regression-compile-tmp/hal7502.imp"
8215 @ 78383:            PUSH   K
8216 @ 78386:            PUSH   TAG2
8217 @ 78389:            ASSVAL

  1372      I = GETPOS-1
8218 @ 78390:            LINE   1372 "regression-compile-tmp/hal7502.imp"
8219 @ 78428:            PUSH   I
8220 @ 78431:            PUSH   GETPOS
8221 @ 78434:            PUSHI  #0x00000001
8222 @ 78439:            SUB   
8223 @ 78440:            ASSVAL

  1373      %IF SYM # NL %START
8224 @ 78441:            LINE   1373 "regression-compile-tmp/hal7502.imp"
8225 @ 78479:            PUSH   SYM
8226 @ 78482:            PUSHI  #0x0000000a
8227 @ 78487:            JUMPIF = L_0004

  1374      %CYCLE
8228 @ 78491:            LINE   1374 "regression-compile-tmp/hal7502.imp"
8229 @ 78529:            LOCATE L_0006

  1375      ->ERR %IF %NOT TAG
8230 @ 78532:            LINE   1375 "regression-compile-tmp/hal7502.imp"
8231 @ 78570:            PUSH   TAG
8232 @ 78573:            CALL  
8233 @ 78574:            bt     L_000a
8234 @ 78577:            JUMP   L_00f0
8235 @ 78580:            LOCATE L_000a

  1376      SCAN ARG
8236 @ 78583:            LINE   1376 "regression-compile-tmp/hal7502.imp"
8237 @ 78621:            PUSH   SCANARG
8238 @ 78624:            CALL  

  1377      %EXIT %IF %NOT S(',')
8239 @ 78625:            LINE   1377 "regression-compile-tmp/hal7502.imp"
8240 @ 78663:            PUSH   S
8241 @ 78666:            PUSHI  #0x0000002c
8242 @ 78671:            ASSPAR
8243 @ 78672:            CALL  
8244 @ 78673:            bt     L_000a
8245 @ 78676:            GOTO   L_0007
8246 @ 78679:            LOCATE L_000a

  1378      %REPEAT
8247 @ 78682:            LINE   1378 "regression-compile-tmp/hal7502.imp"
8248 @ 78720:            REPEAT L_0006
8249 @ 78723:            LOCATE L_0007

  1379      %FINISH
8250 @ 78726:            LINE   1379 "regression-compile-tmp/hal7502.imp"
8251 @ 78764:            LOCATE L_0004

  1380      ->ERR %IF SYM # NL
8252 @ 78767:            LINE   1380 "regression-compile-tmp/hal7502.imp"
8253 @ 78805:            PUSH   SYM
8254 @ 78808:            PUSHI  #0x0000000a
8255 @ 78813:            JUMPIF = L_0004
8256 @ 78817:            JUMP   L_00f0
8257 @ 78820:            LOCATE L_0004

  1381      TAG1 = J;  TAG2 = K
8258 @ 78823:            LINE   1381 "regression-compile-tmp/hal7502.imp"
8259 @ 78861:            PUSH   TAG1
8260 @ 78864:            PUSH   J
8261 @ 78867:            ASSVAL
8262 @ 78868:            LINE   1381 "regression-compile-tmp/hal7502.imp"
8263 @ 78906:            PUSH   TAG2
8264 @ 78909:            PUSH   K
8265 @ 78912:            ASSVAL

  1382      TYPE = MACRO;  VAL = I
8266 @ 78913:            LINE   1382 "regression-compile-tmp/hal7502.imp"
8267 @ 78951:            PUSH   TYPE
8268 @ 78954:            PUSH   MACRO
8269 @ 78957:            ASSVAL
8270 @ 78958:            LINE   1382 "regression-compile-tmp/hal7502.imp"
8271 @ 78996:            PUSH   VAL
8272 @ 78999:            PUSH   I
8273 @ 79002:            ASSVAL

  1383      LOOKUP(3)
8274 @ 79003:            LINE   1383 "regression-compile-tmp/hal7502.imp"
8275 @ 79041:            PUSH   LOOKUP
8276 @ 79044:            PUSHI  #0x00000003
8277 @ 79049:            ASSPAR
8278 @ 79050:            CALL  

  1384      %CYCLE
8279 @ 79051:            LINE   1384 "regression-compile-tmp/hal7502.imp"
8280 @ 79089:            LOCATE L_0003

  1385      PRINT LINE
8281 @ 79092:            LINE   1385 "regression-compile-tmp/hal7502.imp"
8282 @ 79130:            PUSH   PRINTLINE
8283 @ 79133:            CALL  

  1386      %EXIT %IF S('$') %AND TAG %AND TAG1 = END
8284 @ 79134:            LINE   1386 "regression-compile-tmp/hal7502.imp"
8285 @ 79172:            PUSH   S
8286 @ 79175:            PUSHI  #0x00000024
8287 @ 79180:            ASSPAR
8288 @ 79181:            CALL  
8289 @ 79182:            bf     L_0007
8290 @ 79185:            PUSH   TAG
8291 @ 79188:            CALL  
8292 @ 79189:            bf     L_0007
8293 @ 79192:            PUSH   TAG1
8294 @ 79195:            PUSH   END
8295 @ 79198:            JUMPIF # L_0007
8296 @ 79202:            GOTO   L_0004
8297 @ 79205:            LOCATE L_0007

  1387      STARTPOS = PUTPOS
8298 @ 79208:            LINE   1387 "regression-compile-tmp/hal7502.imp"
8299 @ 79246:            PUSH   STARTPOS
8300 @ 79249:            PUSH   PUTPOS
8301 @ 79252:            ASSVAL

  1388      STARTPOS = PSEUDOLIM+1 %IF PSEUDOLIM # 0
8302 @ 79253:            LINE   1388 "regression-compile-tmp/hal7502.imp"
8303 @ 79291:            PUSH   PSEUDOLIM
8304 @ 79294:            PUSHI  #0x00000000
8305 @ 79299:            JUMPIF = L_0007
8306 @ 79303:            PUSH   STARTPOS
8307 @ 79306:            PUSH   PSEUDOLIM
8308 @ 79309:            PUSHI  #0x00000001
8309 @ 79314:            ADD   
8310 @ 79315:            ASSVAL
8311 @ 79316:            LOCATE L_0007

  1389      READ LINE
8312 @ 79319:            LINE   1389 "regression-compile-tmp/hal7502.imp"
8313 @ 79357:            PUSH   READLINE
8314 @ 79360:            CALL  

  1390      %REPEAT
8315 @ 79361:            LINE   1390 "regression-compile-tmp/hal7502.imp"
8316 @ 79399:            REPEAT L_0003
8317 @ 79402:            LOCATE L_0004

  1391      PUTPOS = STARTPOS;  PUT CHAR(0)
8318 @ 79405:            LINE   1391 "regression-compile-tmp/hal7502.imp"
8319 @ 79443:            PUSH   PUTPOS
8320 @ 79446:            PUSH   STARTPOS
8321 @ 79449:            ASSVAL
8322 @ 79450:            LINE   1391 "regression-compile-tmp/hal7502.imp"
8323 @ 79488:            PUSH   PUTCHAR
8324 @ 79491:            PUSHI  #0x00000000
8325 @ 79496:            ASSPAR
8326 @ 79497:            CALL  

  1392      STARTPOS = PUTPOS
8327 @ 79498:            LINE   1392 "regression-compile-tmp/hal7502.imp"
8328 @ 79536:            PUSH   STARTPOS
8329 @ 79539:            PUSH   PUTPOS
8330 @ 79542:            ASSVAL

  1393      MACLIM = STARTPOS
8331 @ 79543:            LINE   1393 "regression-compile-tmp/hal7502.imp"
8332 @ 79581:            PUSH   MACLIM
8333 @ 79584:            PUSH   STARTPOS
8334 @ 79587:            ASSVAL

  1394      ->LEND
  1395  
8335 @ 79588:            LINE   1394 "regression-compile-tmp/hal7502.imp"
8336 @ 79626:            JUMP   L_00f4

  1396  %ROUTINE BNEST
8337 @ 79629:            LINE   1396 "regression-compile-tmp/hal7502.imp"
8338 @ 79667:            DEF    BNEST (_lev0id0_BNEST) p1=V_010d 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
8339 @ 79684:               START  ( FORMAL PARAMETERS  {lev=2 --> 3, nested=0 --> 1}
8340 @ 79685:               FINISH ) {lev=2}

  1397      BP = BP+4;  !!%MONITOR 23 %IF BP-NP >= 0
8341 @ 79686:               LINE   1397 "regression-compile-tmp/hal7502.imp"
8342 @ 79724:               PUSH   BP
8343 @ 79727:               PUSH   BP
8344 @ 79730:               PUSHI  #0x00000004
8345 @ 79735:               ADD   
8346 @ 79736:               ASSVAL

  1398      INTEGER(BP-3) = SAVE;  INTEGER(BP-2) = TEMPS
8347 @ 79737:               LINE   1398 "regression-compile-tmp/hal7502.imp"
8348 @ 79775:               PUSH   INTEGER
8349 @ 79778:               PUSH   BP
8350 @ 79781:               PUSHI  #0x00000003
8351 @ 79786:               SUB   
8352 @ 79787:               ASSPAR
8353 @ 79788:               CALL  
8354 @ 79789:               PUSH   SAVE
8355 @ 79792:               ASSVAL
8356 @ 79793:               LINE   1398 "regression-compile-tmp/hal7502.imp"
8357 @ 79831:               PUSH   INTEGER
8358 @ 79834:               PUSH   BP
8359 @ 79837:               PUSHI  #0x00000002
8360 @ 79842:               SUB   
8361 @ 79843:               ASSPAR
8362 @ 79844:               CALL  
8363 @ 79845:               PUSH   TEMPS
8364 @ 79848:               ASSVAL

  1399      INTEGER(BP-1) = MACLIM;  INTEGER(BP) = DEFMIN
8365 @ 79849:               LINE   1399 "regression-compile-tmp/hal7502.imp"
8366 @ 79887:               PUSH   INTEGER
8367 @ 79890:               PUSH   BP
8368 @ 79893:               PUSHI  #0x00000001
8369 @ 79898:               SUB   
8370 @ 79899:               ASSPAR
8371 @ 79900:               CALL  
8372 @ 79901:               PUSH   MACLIM
8373 @ 79904:               ASSVAL
8374 @ 79905:               LINE   1399 "regression-compile-tmp/hal7502.imp"
8375 @ 79943:               PUSH   INTEGER
8376 @ 79946:               PUSH   BP
8377 @ 79949:               ASSPAR
8378 @ 79950:               CALL  
8379 @ 79951:               PUSH   DEFMIN
8380 @ 79954:               ASSVAL

  1400  %END
  1401  
8381 @ 79955:               LINE   1400 "regression-compile-tmp/hal7502.imp"
8382 @ 79993:            END    _lev0id0_BNEST {lev=2 --> 1}

  1402  BEGIN:
8383 @ 79994:            LINE   1402 "regression-compile-tmp/hal7502.imp"
8384 @ 80032:            LABEL  L_00fb

  1403      BNEST
8385 @ 80035:            LINE   1403 "regression-compile-tmp/hal7502.imp"
8386 @ 80073:            PUSH   BNEST
8387 @ 80076:            CALL  

  1404      ->NEWPAGE %IF SYM # NL
8388 @ 80077:            LINE   1404 "regression-compile-tmp/hal7502.imp"
8389 @ 80115:            PUSH   SYM
8390 @ 80118:            PUSHI  #0x0000000a
8391 @ 80123:            JUMPIF = L_0004
8392 @ 80127:            JUMP   L_00ef
8393 @ 80130:            LOCATE L_0004

  1405      ->LEND
  1406  
8394 @ 80133:            LINE   1405 "regression-compile-tmp/hal7502.imp"
8395 @ 80171:            JUMP   L_00f4

  1407  BEND:
8396 @ 80174:            LINE   1407 "regression-compile-tmp/hal7502.imp"
8397 @ 80212:            LABEL  L_00fc

  1408      FAULT('C') %IF NP # STORELIM %OR MP # 0
8398 @ 80215:            LINE   1408 "regression-compile-tmp/hal7502.imp"
8399 @ 80253:            PUSH   NP
8400 @ 80256:            PUSH   STORELIM
8401 @ 80259:            JUMPIF # L_0005
8402 @ 80263:            PUSH   MP
8403 @ 80266:            PUSHI  #0x00000000
8404 @ 80271:            JUMPIF = L_0004
8405 @ 80275:            LOCATE L_0005
8406 @ 80278:            PUSH   FAULT
8407 @ 80281:            PUSHI  #0x00000043
8408 @ 80286:            ASSPAR
8409 @ 80287:            CALL  
8410 @ 80288:            LOCATE L_0004

  1409      MP = 0;  NP = STORELIM
8411 @ 80291:            LINE   1409 "regression-compile-tmp/hal7502.imp"
8412 @ 80329:            PUSH   MP
8413 @ 80332:            PUSHI  #0x00000000
8414 @ 80337:            ASSVAL
8415 @ 80338:            LINE   1409 "regression-compile-tmp/hal7502.imp"
8416 @ 80376:            PUSH   NP
8417 @ 80379:            PUSH   STORELIM
8418 @ 80382:            ASSVAL

  1410      %IF BP # LABLIM %START
8419 @ 80383:            LINE   1410 "regression-compile-tmp/hal7502.imp"
8420 @ 80421:            PUSH   BP
8421 @ 80424:            PUSH   LABLIM
8422 @ 80427:            JUMPIF = L_0004

  1411      SAVE = INTEGER(BP-3);  TEMPS = INTEGER(BP-2)
8423 @ 80431:            LINE   1411 "regression-compile-tmp/hal7502.imp"
8424 @ 80469:            PUSH   SAVE
8425 @ 80472:            PUSH   INTEGER
8426 @ 80475:            PUSH   BP
8427 @ 80478:            PUSHI  #0x00000003
8428 @ 80483:            SUB   
8429 @ 80484:            ASSPAR
8430 @ 80485:            CALL  
8431 @ 80486:            ASSVAL
8432 @ 80487:            LINE   1411 "regression-compile-tmp/hal7502.imp"
8433 @ 80525:            PUSH   TEMPS
8434 @ 80528:            PUSH   INTEGER
8435 @ 80531:            PUSH   BP
8436 @ 80534:            PUSHI  #0x00000002
8437 @ 80539:            SUB   
8438 @ 80540:            ASSPAR
8439 @ 80541:            CALL  
8440 @ 80542:            ASSVAL

  1412      MACLIM = INTEGER(BP-1);  STARTPOS = MACLIM
8441 @ 80543:            LINE   1412 "regression-compile-tmp/hal7502.imp"
8442 @ 80581:            PUSH   MACLIM
8443 @ 80584:            PUSH   INTEGER
8444 @ 80587:            PUSH   BP
8445 @ 80590:            PUSHI  #0x00000001
8446 @ 80595:            SUB   
8447 @ 80596:            ASSPAR
8448 @ 80597:            CALL  
8449 @ 80598:            ASSVAL
8450 @ 80599:            LINE   1412 "regression-compile-tmp/hal7502.imp"
8451 @ 80637:            PUSH   STARTPOS
8452 @ 80640:            PUSH   MACLIM
8453 @ 80643:            ASSVAL

  1413      DEFMIN = INTEGER(BP)
8454 @ 80644:            LINE   1413 "regression-compile-tmp/hal7502.imp"
8455 @ 80682:            PUSH   DEFMIN
8456 @ 80685:            PUSH   INTEGER
8457 @ 80688:            PUSH   BP
8458 @ 80691:            ASSPAR
8459 @ 80692:            CALL  
8460 @ 80693:            ASSVAL

  1414      SET ACC
8461 @ 80694:            LINE   1414 "regression-compile-tmp/hal7502.imp"
8462 @ 80732:            PUSH   SETACC
8463 @ 80735:            CALL  

  1415      BP = BP-4
8464 @ 80736:            LINE   1415 "regression-compile-tmp/hal7502.imp"
8465 @ 80774:            PUSH   BP
8466 @ 80777:            PUSH   BP
8467 @ 80780:            PUSHI  #0x00000004
8468 @ 80785:            SUB   
8469 @ 80786:            ASSVAL

  1416      ->LEND %IF BP # LABLIM
8470 @ 80787:            LINE   1416 "regression-compile-tmp/hal7502.imp"
8471 @ 80825:            PUSH   BP
8472 @ 80828:            PUSH   LABLIM
8473 @ 80831:            JUMPIF = L_0007
8474 @ 80835:            JUMP   L_00f4
8475 @ 80838:            LOCATE L_0007

  1417      %FINISH
8476 @ 80841:            LINE   1417 "regression-compile-tmp/hal7502.imp"
8477 @ 80879:            LOCATE L_0004

  1418      CLOSE INPUT;  SELECT INPUT(MAIN)
8478 @ 80882:            LINE   1418 "regression-compile-tmp/hal7502.imp"
8479 @ 80920:            PUSH   CLOSEINPUT
8480 @ 80923:            CALL  
8481 @ 80924:            LINE   1418 "regression-compile-tmp/hal7502.imp"
8482 @ 80962:            PUSH   SELECTINPUT
8483 @ 80965:            PUSH   MAIN
8484 @ 80968:            ASSPAR
8485 @ 80969:            CALL  

  1419      BNEST
8486 @ 80970:            LINE   1419 "regression-compile-tmp/hal7502.imp"
8487 @ 81008:            PUSH   BNEST
8488 @ 81011:            CALL  

  1420      LIST = 5
8489 @ 81012:            LINE   1420 "regression-compile-tmp/hal7502.imp"
8490 @ 81050:            PUSH   LIST
8491 @ 81053:            PUSHI  #0x00000005
8492 @ 81058:            ASSVAL

  1421      PASS = PASS+1
8493 @ 81059:            LINE   1421 "regression-compile-tmp/hal7502.imp"
8494 @ 81097:            PUSH   PASS
8495 @ 81100:            PUSH   PASS
8496 @ 81103:            PUSHI  #0x00000001
8497 @ 81108:            ADD   
8498 @ 81109:            ASSVAL

  1422      ->DO PASS %IF PASS # 2
  1423  
8499 @ 81110:            LINE   1422 "regression-compile-tmp/hal7502.imp"
8500 @ 81148:            PUSH   PASS
8501 @ 81151:            PUSHI  #0x00000002
8502 @ 81156:            JUMPIF = L_0004
8503 @ 81160:            JUMP   L_00ec
8504 @ 81163:            LOCATE L_0004

  1424      PUT WORD(CHECK!!16_0100);  CONTROL = 16_30
8505 @ 81166:            LINE   1424 "regression-compile-tmp/hal7502.imp"
8506 @ 81204:            PUSH   PUTWORD
8507 @ 81207:            PUSH   CHECK
8508 @ 81210:            PUSHI  #0x00000100
8509 @ 81215:            XOR   
8510 @ 81216:            ASSPAR
8511 @ 81217:            CALL  
8512 @ 81218:            LINE   1424 "regression-compile-tmp/hal7502.imp"
8513 @ 81256:            PUSH   CONTROL
8514 @ 81259:            PUSHI  #0x00000030
8515 @ 81264:            ASSVAL

  1425      PUT WORD(16_0100)
8516 @ 81265:            LINE   1425 "regression-compile-tmp/hal7502.imp"
8517 @ 81303:            PUSH   PUTWORD
8518 @ 81306:            PUSHI  #0x00000100
8519 @ 81311:            ASSPAR
8520 @ 81312:            CALL  

  1426      SELECT OUTPUT(BIN);  PRINT CH(16_60);  SELECT OUTPUT(LIS)
8521 @ 81313:            LINE   1426 "regression-compile-tmp/hal7502.imp"
8522 @ 81351:            PUSH   SELECTOUTPUT
8523 @ 81354:            PUSH   BIN
8524 @ 81357:            ASSPAR
8525 @ 81358:            CALL  
8526 @ 81359:            LINE   1426 "regression-compile-tmp/hal7502.imp"
8527 @ 81397:            PUSH   PRINTCH
8528 @ 81400:            PUSHI  #0x00000060
8529 @ 81405:            ASSPAR
8530 @ 81406:            CALL  
8531 @ 81407:            LINE   1426 "regression-compile-tmp/hal7502.imp"
8532 @ 81445:            PUSH   SELECTOUTPUT
8533 @ 81448:            PUSH   LIS
8534 @ 81451:            ASSPAR
8535 @ 81452:            CALL  

  1427      FAULT('$')
8536 @ 81453:            LINE   1427 "regression-compile-tmp/hal7502.imp"
8537 @ 81491:            PUSH   FAULT
8538 @ 81494:            PUSHI  #0x00000024
8539 @ 81499:            ASSPAR
8540 @ 81500:            CALL  

  1428      PRINT LOC;  PRINT LINE
8541 @ 81501:            LINE   1428 "regression-compile-tmp/hal7502.imp"
8542 @ 81539:            PUSH   PRINTLOC
8543 @ 81542:            CALL  
8544 @ 81543:            LINE   1428 "regression-compile-tmp/hal7502.imp"
8545 @ 81581:            PUSH   PRINTLINE
8546 @ 81584:            CALL  

  1429      LINES = 60 %IF OUTDEV = 1
8547 @ 81585:            LINE   1429 "regression-compile-tmp/hal7502.imp"
8548 @ 81623:            PUSH   OUTDEV
8549 @ 81626:            CALL  
8550 @ 81627:            PUSHI  #0x00000001
8551 @ 81632:            JUMPIF # L_0004
8552 @ 81636:            PUSH   LINES
8553 @ 81639:            PUSHI  #0x0000003c
8554 @ 81644:            ASSVAL
8555 @ 81645:            LOCATE L_0004

  1430      DO NEWLINE %WHILE LINES # 0
  1431  
8556 @ 81648:            LINE   1430 "regression-compile-tmp/hal7502.imp"
8557 @ 81686:            LOCATE L_0003
8558 @ 81689:            PUSH   LINES
8559 @ 81692:            PUSHI  #0x00000000
8560 @ 81697:            JUMPIF = L_0004
8561 @ 81701:            PUSH   DONEWLINE
8562 @ 81704:            CALL  
8563 @ 81705:            REPEAT L_0003
8564 @ 81708:            LOCATE L_0004

  1432  %ENDOFPROGRAM
8565 @ 81711:            LINE   1432 "regression-compile-tmp/hal7502.imp"
8566 @ 81749:         END    _lev0id0 {lev=1 --> 0}
8567 @ 81750:         END     {lev=0 --> -1}
8568 @ 81751: 

