         SYSTEM   SIG7P
*
*
R0       EQU      0
R1       EQU      1
R2       EQU      2
R3       EQU      3
R4       EQU      4
R5       EQU      5
R6       EQU      6
R7       EQU      7
R8       EQU      8
R9       EQU      9
R10      EQU      10
R11      EQU      11
R12      EQU      12
R13      EQU      13
R14      EQU      14
R15      EQU      15
****************************************************
A1       LB,4     *15,4
*
         REF      J:BASE,TSTACK,Y02,M5
         DEF      H%CMP,H%CMP1
H%CMP    EQU      %
         LW,R5    J:BASE+3
         LW,R5    1,R5
H%CMP1   EQU      %
         PSW,R15  TSTACK
         PSW,R3   TSTACK
         CI,R5    CMPU
         BAZ      SRCBC
         LB,R12   *R15,R4
         B        SRCBIN
SRCBC    EQU      %
         LI,R12   X'81'
         CW,R8    Y02
         BAZ      SRCBIN1
         LB,R13   *R15,R4
         CI,R5    CMPP
         BANZ     SRCBP
         AI,R12   BINSRCB-X'20'
         LI,R13   0
SRCBP    EQU      %
         CI,R5    X'4000'
         BAZ      SRCBIN1
         CI,R13   X'60'
         BNE      %+3
         LI,R12   X'80'
         B        SRCBIN
         AND,R13  M5
         CI,R13   X'10'
         BANZ     SRCBP2
SRCBP1   EQU      %
         CI,R13   2
         BLE      SRCBP2
         MTB,-3   *R15,R4
         LI,R13   3
SRCBP15  EQU      %
         OR,R13   VFCM
         AI,R11   1
         LI,R5    3
         LI,R2    3
SRCBP3   EQU      %
         LB,R1    R13,R5
         STB,R1   *R14,R3
         AI,R3    1
         BDR,R5   SRCBP3
         B        COUT1
SRCBP2   EQU      %
         CI,R5    CMPC
         BAZ      SRCBP35
         AI,R13   0
         BEZ      SRCBIN
         LI,R12   X'C0'
         STB,R12  *R15,R4
         B        SRCBP15
SRCBP35  EQU      %
         AW,R12   R13
         AI,R12   X'20'
         CI,R12   X'10'
         BAZ      %+2
         AI,R12  -1
SRCBIN   EQU      %
         AI,R1    -1
         AI,R4    1
SRCBIN1  EQU      %
         STB,R12  *R14,R3
         AI,R3    1
         AI,R2    -1
COMP     EQU      %
         LW,5     3
         ANLZ,4   A1
         XW,1     4
         AI,2     -2
         AW,2     3
C1       LI,15    63
         LI,10    2
C2       EQU      %
         CW,3     2
         BGE      COUT
C25      EQU      %
         LB,13    0,1
         CB,13    *14,3
         BE       C5
         LI,10    2
C3       AI,3     1
         STB,13   *14,3
         BDR,4    C35
CEOR     EQU      %
         AI,3     1
         AI,15    -64
         LCW,15   15
         AI,15    SRCBMSK
         BAL,12   C4
         B        COUT
C35      EQU      %
         AI,1     1
         BDR,15   C2
         LI,12    C1
         LI,15    NCSRCB
         AI,3     1
C4       XW,3     5
         STB,15   *14,3
         LW,3     5
         B        *12
C5       EQU      %
         CW,3     5
         BE       C3
         BDR,10   C3
         AI,3     -1
         AI,15    -61
         BEZ      C55
         LCW,15   15
         AI,15    SRCBMSK
         BAL,12   C4
         AI,3     1
C55      EQU      %
         LI,15    29
         CW,15    4
         BLE      %+2
         LW,15    4
         STB,15   1
         CBS,0    55
         LB,12    1
         SW,15    12
         SW,4     15
         AI,15    BLNKSRCB+2
         CI,13    ' '
         BE       %+3
         AI,15    NBDUP
         AI,3     1
         BAL,12   C4
         AI,4     0
         BGZ      C1
COUT     EQU      %
         LI,1     0
         STB,1    *14,3
         AI,3     1
COUT1    EQU      %
         PLW,2    TSTACK
         SW,2     3
         LCW,2    2
         PLW,15   TSTACK
         B        *R11
CMPU     EQU      X'40000'
CMPC     EQU      X'20000'
CMPP     EQU      X'10000'
BINSRCB  EQU      X'10'
BLNKSRCB EQU      X'80'
SRCBMSK  EQU      X'C0'
NBDUP    EQU      X'20'
NCSRCB   EQU      X'FF'
X22      DATA     X'22'
VFCM     DATA     X'000081A0'
         END

