         SYSTEM   SIG7FDP
         PCC      0
TXT      CNAME    0
TXTC     CNAME    1
         PROC
LF       EQU      %
         DISP     %
         LIST     0
         DO       NAME
         TEXTC    AF
         ELSE
         TEXT     AF
         FIN
         LIST     1
         PEND
*
PUSH     CNAME    9,11
PULL     CNAME    8,10
         PROC
         DO       NUM(AF)=1
LF       GEN,1,7,4,20 1,NAME(1),AF(1),J:TCB
         ELSE
         DO       AF(1)=1
LF       GEN,1,7,4,20 1,NAME(1),AF(2),J:TCB
         ELSE
         DO       AF(1)=16
LF       LCI      0
         ELSE
LF       LCI      AF(1)
         FIN
         GEN,1,7,4,20 1,NAME(2),AF(2),J:TCB
         FIN
         FIN
         PEND
*
*        REFS
*
         SREF     J:TCB
*
DEQU     CNAME    0
DRES     CNAME    1
DC       CNAME    2
         PROC
         DEF      LF
         DO       NAME=0
LF       EQU      AF
         ELSE
LF       EQU      %
         FIN
         DO       NAME=1
         RES      AF
         FIN
         DO       NAME=2
         DATA     AF
         FIN
         PEND
*
*        OBSCENE COMS.
*
BALL     COM,1,11,3,17 AFA(1),X'6AF',AF(2),AF(1)
BYE      COM,32   X'E800000F'
PUSHL    COM,12,3,17 X'89F',0,J:TCB
PULLL    COM,12,3,17 X'88F',0,J:TCB
*
* CAL3 PROCS
*
SLAVE    CNAME    0
PRIV     CNAME    1
MASTER   CNAME    2
         PROC
LF       GEN,8,4,20 6,NAME,AF(1)
         PEND
ENABLE   COM,32   X'6D000027'
DISABLE  COM,32   X'6D000037'
         END
