*COMDECK ASYCMSGS 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*         ASYNC BLOCK MODE DEFINITION OF CANNED MESSAGES              * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
          SPC    3
          NAM    ASYCMSG
* 
* * * *   ---- CMSG ---- DEFINE A CANNED MESSAGE FOR THE ASYNC TIP
* 
*         FOLLOWING MACRO GENERATES THE FIRST TWO WORDS OF A CANNED 
*         MESSAGE, AND ITS ENTRY INTO THE CANNED MESSAGE ARRAY FOR
*         REFERENCE BY ROUTINE -PTACMSG-. THE CHARACTER(S) OF THE 
*         CANNED MESSAGE MUST IMMEDIATELY FOLLOW ITS DEFINITION.
* 
*         "NM" IS THE (INTERNAL) NAME OF THE CANNED MESSAGE 
*         "IX" IS THE (EXTERNAL) GROUP NAME OF THE CANNED MESSAGE 
*         "CD" IS THE CODE SET OF THE CANNED MESSAGE
*         "LE" IS THE LENGTH IN CHARACTER OF THE CANNED MESSAGE 
*         "EQ" CAN BE USED TO EQUATE ONE CANNED MESSAGE TO ANOTHER
* 
CMSG      MAC    NM,IX,CD,LE,EQ 
          ORG    "CD"*A2MNR-N0CFRST*A2MNR+"IX"-A2MFRST+A4CMA
          ADC    "NM"        -         CANNED MSG POINTER 
          ORG*
          IFC    "EQ",EQ, 
          EQU    "NM"(*)
          VFD    X8/"LE"+3,X8/4        LCD/FCD
          NUM    $1500       -         FLAG WORD
          EIF 
          IFC    "EQ",NE, 
          EQU    "NM"("EQ") 
          EIF 
          EMC 
* 
* 
* * * *   CONSTANTS FOR SETTING UP CANNED MESSAGE ARRAY 
* 
* 
          EQU    A2MCR(1) 
          EQU    A2MLF(2) 
          EQU    A2MLFLF(3) 
          EQU    A2MXON(4)
          EQU    A2MXOFF(5) 
          EQU    A2MUNLK(A2MXON)
          EQU    A2MLOCK(A2MXOFF) 
          EQU    A2MWAIT(6) 
          EQU    A2MREPEAT(7) 
* 
          EQU    A2MFRST(A2MCR) 
          EQU    A2MLAST(A2MREPEAT) 
          EQU    A2MNR(A2MLAST-A2MFRST+1) 
          NOREF  A2MFRST,A2MLAST,A2MNR
* 
          EQU    N0ASCII(2) 
          EQU    N0TYPEP(3) 
          EQU    N0BITPA(4) 
          EQU    N0EBCDA(5) 
          EQU    N0EAPLA(6) 
          EQU    N0CORR(7)
          EQU    N0CORAP(8) 
* 
          EQU    N0CFRST(N0ASCII) 
          EQU    N0CLAST(N0CORAP) 
          EQU    N0CNR(N0CLAST-N0CFRST+1) 
          NOREF  N0CFRST,N0CLAST,N0CNR
* 
* 
* * * *   MAXIMUM NUMBER OF CR/LF IDLE NULL CHARACTERS
* 
* 
          EQU    MAXIDLES(127)
* 
* 
* * * *   ARRAY A4CMARR [N0ASCII..N0CORAPL,A2MCR..A2MREPEAT]
* 
* 
          BZS    A4CMARR(N0CNR*A2MNR) 
          ENT    A4CMARR
* 
          EQU    A4CMA(A4CMARR) 
          NOREF  A4CMA
          EJT 
* 
* 
* * * *    C A R R I A G E   R E T U R N   M E S S A G E
* 
* 
          CMSG   AMASCR,A2MCR,N0ASCII,1 
          NUM    $0D00       -              CR
          BZS    (MAXIDLES/2) 
* 
          CMSG   AMATCR,A2MCR,N0TYPEP,,AMASCR 
* 
          CMSG   AMABCR,A2MCR,N0BITPA,,AMASCR 
* 
          CMSG   AMEBCR,A2MCR,N0EBCDA,4 
          NUM    $343D,$2D7C -              CTL-D,NUL,NL,CTR-C
* 
          CMSG   AMEACR,A2MCR,N0EAPLA,,AMEBCR 
* 
          CMSG   AMCOCR,A2MCR,N0CORR,,AMEBCR
* 
          CMSG   AMCACR,A2MCR,N0CORAP,,AMEBCR 
* 
* 
* * * *    L I N E   F E E D   M E S S A G E
* 
* 
          CMSG   AMASLF,A2MLF,N0ASCII,1 
          NUM    $0A00       -              LF
          BZS    (MAXIDLES/2) 
* 
          CMSG   AMATLF,A2MLF,N0TYPEP,,AMASLF 
* 
          CMSG   AMABLF,A2MLF,N0BITPA,,AMASLF 
* 
          CMSG   AMEBLF,A2MLF,N0EBCDA,3 
          NUM    $343D,$2E00 -              CTL-D,NUL,LF (AUTO-REC ONLY)
* 
          CMSG   AMEALF,A2MLF,N0EAPLA,,AMEBLF 
* 
          CMSG   AMCOLF,A2MLF,N0CORR,,AMEBLF
* 
          CMSG   AMCALF,A2MLF,N0CORAP,,AMEBLF 
* 
* 
* * * *    D O U B L E   L I N E   F E E D   M E S S A G E   (AUTO-REC) 
* 
* 
          CMSG   AMASLL,A2MLFLF,N0ASCII,4 
          NUM    $0A00,$000A -              LF,LF 
* 
          CMSG   AMATLL,A2MLFLF,N0TYPEP,,AMASLL 
* 
          CMSG   AMABLL,A2MLFLF,N0BITPA,,AMASLL 
* 
          CMSG   AMEBLL,A2MLFLF,N0EBCDA,6 
          NUM    $343D,$6E3D,$6E7C          CTL-D,NUL,LF,NUL,LF,CTL-C 
* 
          CMSG   AMEALL,A2MLFLF,N0EAPLA,,AMEBLL 
* 
          CMSG   AMCOLL,A2MLFLF,N0CORR,,AMEBLL
* 
          CMSG   AMCALL,A2MLFLF,N0CORAP,,AMEBLL 
* 
* 
* * * *    X O N   M E S S A G E
* 
* 
          CMSG   AMASXON,A2MXON,N0ASCII,1 
          NUM    $1100       -              XON 
* 
          CMSG   AMATXON,A2MXON,N0TYPEP,,AMASXON
* 
          CMSG   AMABXON,A2MXON,N0BITPA,,AMASXON
* 
* 
* * * *    X O F F   M E S S A G E
* 
* 
          CMSG   AMASXFF,A2MXOFF,N0ASCII,1
          NUM    $1300       -              XOF 
* 
          CMSG   AMATXFF,A2MXOFF,N0TYPEP,,AMASXFF 
* 
          CMSG   AMABXFF,A2MXOFF,N0BITPA,,AMASXFF 
* 
* 
* * * *    L O C K   2 7 4 1   K E Y B O A R D   M E S S A G E
* 
* 
          CMSG   AMEBLK,A2MLOCK,N0EBCDA,2 
          NUM    $343D       -              CTL-D,NUL 
* 
          CMSG   AMEALK,A2MLOCK,N0EAPLA,,AMEBLK 
* 
          CMSG   AMCOLK,A2MLOCK,N0CORR,,AMEBLK
* 
          CMSG   AMCALK,A2MLOCK,N0CORAP,,AMEBLK 
* 
* 
* * * *    U N L O C K   2 7 4 1   K E Y B O A R D   M E S S A G E
* 
* 
          CMSG   AMEBUNL,A2MUNLK,N0EBCDA,1
          NUM    $3C00       -              CTL-C 
* 
          CMSG   AMEAUNL,A2MUNLK,N0EAPLA,,AMEBUNL 
* 
          CMSG   AMCOUNL,A2MUNLK,N0CORR,,AMEBUNL
* 
          CMSG   AMCAUNL,A2MUNLK,N0CORAP,,AMEBUNL 
* 
* 
* * * *    W A I T . .   M E S S A G E
* 
* 
          CMSG   AMASWT,A2MWAIT,N0ASCII,8 
          NUM    $0757,$4149,$542E,$2E07    BEL,W,A,I,T,DOT,DOT,BEL 
* 
          CMSG   AMATWT,A2MWAIT,N0TYPEP,,AMASWT 
* 
          CMSG   AMABWT,A2MWAIT,N0BITPA,,AMASWT 
* 
          CMSG   AMEBWT,A2MWAIT,N0EBCDA,6 
          NUM    $1A23,$2732,$3737          W,A,I,T,DOT,DOT 
* 
          CMSG   AMEAWT,A2MWAIT,N0EAPLA,,AMEBWT 
* 
          CMSG   AMCOWT,A2MWAIT,N0CORR,6
          NUM    $3539,$1902,$1111          W,A,I,T,DOT,DOT 
* 
          CMSG   AMCAWT,A2MWAIT,N0CORAP,,AMCOWT 
* 
* 
* * * *    R E P E A T . .   M E S S A G E
* 
* 
          CMSG   AMASRP,A2MREPEAT,N0ASCII,10
          NUM    $0752,$4550,$4541,$542E    BEL,R,E,P,E,A,T,DOT 
          NUM    $2E07       -              DOT,BEL 
* 
          CMSG   AMATRP,A2MREPEAT,N0TYPEP,,AMASRP 
* 
          CMSG   AMABRP,A2MREPEAT,N0BITPA,,AMASRP 
* 
          CMSG   AMEBRP,A2MREPEAT,N0EBCDA,8 
          NUM    $252B,$392B,$2332,$3737    R,E,P,E,A,T,DOT,DOT 
* 
          CMSG   AMEARP,A2MREPEAT,N0EAPLA,,AMEBRP 
* 
          CMSG   AMCORP,A2MREPEAT,N0CORR,8
          NUM    $290A,$0B0A,$3902,$1111    R,E,P,E,A,T,DOT,DOT 
* 
          CMSG   AMCARP,A2MREPEAT,N0CORAP,,AMCORP 
          EJT 
          END 
