*DECK CGETCET 
          IDENT  CGETCET
          TITLE  CGETCET -  MOTLEY COLLECTION OF VERB PROCESSORS
  
          MACHINE  ANY,I
          SST 
          COMMENT  MOTLEY COLLECTION OF VERB PROCESSORS 
          SPACE  4
**        CGETCET -  MOTLEY COLLECTION OF VERB PROCESSORS 
* 
*         CONTAINS: 
* 
*                CGVERBD   - VERB-DESCRIPTION PROCESSOR 
*                CGSEPAR   - GT-SEPARATOR PROCESSOR 
*                CGABOR    - GT-ABORT PROCESSOR 
  
  
  
  
  
 CONTROL  OPSYN  NIL
  
  
  
*CALL CCT 
  
          EJECT 
CGETCET   MODULE
  
*      LINKAGE FROM CALLING ROUTINES IN OTHER MODULES 
  
 CGABORT  KNIL   CGABOR 
 CGVERBD  KNIL   CGVERBD
 CGSEPAR  KNIL   CGSEPAR
 CHKSEQ   LINK   CHKSEQ 
 ZEROMOD  LINK   ZEROMOD
  
  
*      MESSAGE NUMBER FOR CGABORT 
  
 ABTMSG   CONSTANT  #GETCAB 
 FIRSTVB  CONSTANT  347 
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*      THIS IS THE GT-ABORT PROCESSOR                                 * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
 CGABORT  EGO    1
          NOTE   CGABORT
  
*      UPDATE LINE NUMBER 
  
          MOVEZ  (GPTROF,REGB),CURRLINE 
          GEN    LINE,,CURRLINE 
          GEN    MASK,(VREGOF,VREG2)
          GEN    SXBPK,(VREGOF,VREG1),,ABTMSG 
          GEN    MASK,(VREGOF,VREG3)
          GEN    SXBPB,(VREGOF,VREG4),,VREGB1 
          GENOBJ N=C.MSG,I=(VREG1,VREG2,VREG3,VREG4)
          RETURN
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*      THIS IS THE VERB-DESCRIPTION PROCESSOR                         * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
 CGVERBD  EGO    1
          MOVEZ  (GPTROF,REGA),VERBDESC 
          MOVEZ  (GPTROF,REGB),CURRLINE 
          MOVEZ  (GSCODEOF,REGB),CURRCOL
          IFTHEN ((CCTBIT,IDBUG),NE,0)
            GEN    PLUS 
          ENDIFZ
          GEN    LINE,,CURRLINE 
      EXECUTE ZEROMOD 
          EXECUTE CHKSEQ
          IFTHEN (P1,NE,0)             START NEW SEQUENCE 
            GEN    STARTSEQ,,(SEQUENCE,0) 
          ENDIFZ
          IFTHEN ((CCTBIT,IDBUG),NE,0)
           ANDIF (VERBDESC,NE,FIRSTVB)
           ANDIF (CURRLINE,NE,LSTLNUM)
            MOVEZ  CURRLINE,LSTLNUM 
            GEN    PLUS 
            GEN    SABPK,(VREGOF,VREG1),,CURRLINE 
            GEN    RSTOR,VREG1,A0 
            GEN    MINUS
            GEN    RJ$,((EXT$OF,DBUG.LN)) 
            GEN    RFREE,VREG1
          ENDIFZ
          IFTHEN ((CCTBIT,TDF),NE,0)
           ANDIF ((CCTBIT,TRACE),NE,0)
           ANDIF (VERBDESC,NE,FIRSTVB)  NOT FIRST VERB DESC 
            GEN    SXBPK,(VREGOF,VREG1),,CURRLINE 
            GEN    SSRBPK,VREG1,,((EXT$OF,C.LINE))
          ENDIFZ
          RETURN
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*      THIS IS THE GT-SEPARATOR PROCESSOR                             * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
 CGSEPAR  EGO    1
          EXECUTE CHKSEQ
          IFTHEN (P1,NE,0)         START NEW SEQUENCE 
            GEN    STARTSEQ,,(SEQUENCE,0) 
          ENDIFZ
          RETURN
  
          END 
