*COMDECK MUXMACROS
*                                                           --  $00  -- 
NOPR      MAC    AC 
          VFD    N8/0,X3/"AC",N5/$00
          EMC 
ACTION    MAC    AC 
          IFC    "AC",NE, 
          IFA    "AC",NE,0
          NOPR   "AC" 
          EIF 
          EMC 
SKIP      MAC    LB 
          LOC    FW,NM,RL 
          NOREF  "FW","NM","RL" 
          IFA    "LB",EQ,*
          ERR    LBL-EQL-CURR-LOC 
          EIF 
          IFA    "LB",EQ,0
          EQU    "FW"(1),"NM"(0)
          EIF 
          IFA    "FW",NE,1
          EQU    "FW"(0),"NM"(*-"LB"+*-"LB")
          EIF 
          VFD    X8/"LB"-*+"NM",X3/"FW",N5/$00
FS        IFA    "FW",EQ,1
          IFA    *-MUXSTATE,LT,$80
          EQU    "RL"(127+*-MUXSTATE) 
          LBCHK  "LB","RL"             (PREVENT ASSEM -RL- ERROR) 
          EIF 
          IFA    *-MUXSTATE,GT,$7F
          LBCHK  "LB",255 
          EIF 
          EIF    FS 
          IFA    "FW",NE,1
          IFA    *-"LB",GT,$100 
          ERR    "LB"-OUT-OF-RANGE
          EIF 
          EMC 
SKIPB     MAC    LB 
          SKIP   "LB" 
          EMC 
*                                                           --  $01  -- 
TPRSTL    MAC    SD 
          VFD    N1/0,N3/0,X4/"SD",N3/0,N5/$01
          EMC 
TPSTLC    MAC    DP,CA
          IFA    "CA",EQ,0
          VFD    N1/0,N3/0,X4/"DP",N3/2,N5/$01
          EIF 
          IFA    "CA",EQ,1
          VFD    N1/0,N3/0,X4/"DP",N3/3,N5/$01
          EIF 
          EMC 
TPRSTR    MAC    SD 
          VFD    N1/1,N3/0,X4/"SD",N3/0,N5/$01
          EMC 
TPSTRC    MAC    DP,CA
          IFA    "CA",EQ,0
          VFD    N1/1,N3/0,X4/"DP",N3/2,N5/$01
          EIF 
          IFA    "CA",EQ,1
          VFD    N1/1,N3/0,X4/"DP",N3/3,N5/$01
          EIF 
          EMC 
*                                                           --  $02  -- 
RCHAR     MAC    CH,AC
          VFD    X8/"CH",X3/"AC",N5/$02 
          EMC 
*                                                           --  $03  -- 
BLDWL     MAC    WC,WL,AC,EP
          IFA    "WC",EQ,0
          VFD    N1/1,X7/"WC",X3/"AC",N5/$03
          EIF 
          IFA    "WC",NE,0
          VFD    N1/0,X7/"WC",X3/"AC",N5/$03
          EIF 
          VFD    X16/"WL" 
          EPCHK  "EP" 
          EMC 
*                                                           --  $04  -- 
SAVEWC    MAC    WC,AC
          VFD    N2/0,X6/"WC",X3/"AC",N5/$04
          EMC 
TIBWL     MAC    WC,WL,BC,AC,EP 
          TIBSWC "WC","BC"
          BLDWL  0,"WL","AC","EP" 
          EMC 
TIBSWC    MAC    WC,BC,AC 
          VFD    N1/1,X1/"BC",X6/"WC",X3/"AC",N5/$04
          EMC 
TRMBUF    MAC    BC,AC
          TIBSWC 0,"BC","AC"
          EMC 
*                                                           --  $05  -- 
CRCEQ     MAC    SB,LB
          VFD    X1/"SB",X5/"LB"-*-1,N2/0,N3/0,N5/$05 
          LBCHK  "LB",31
          EMC 
SPCHEQ    MAC    LB,AC
          VFD    X6/"LB"-*-1,N2/1,X3/"AC",N5/$05
          LBCHK  "LB",63
          EMC 
ALNBUF    MAC    FC,AC
          VFD    N1/0,X5/"FC",N2/2,X3/"AC",N5/$05 
          GTCHK  "FC",31
          EMC 
GETBUF    MAC    FC,AC
          VFD    N1/1,X5/"FC",N2/2,X3/"AC",N5/$05 
          GTCHK  "FC",31
          EMC 
RSTIME    MAC    TM,AC
          VFD    X6/"TM",N2/3,X3/"AC",N5/$05
          GTCHK  "TM",63
          EMC 
*                                                           --  $06  -- 
DCC       MAC    CO,LB,AC 
          RGCHK  "CO",1,2,COUNT 
          VFD    X1/"CO"-1,N1/0,N6/"LB"-*-1,X3/"AC",N5/$06
          LBCHK  "LB",63
          EMC 
DCC1      MAC    LB,AC
          DCC    1,"LB","AC"
          EMC 
DCC2      MAC    LB,AC
          DCC    2,"LB","AC"
          EMC 
INCRCL    MAC    DD,AC
          WDCHK  "DD",3 
          VFD    N2/3,N2/0,X4/"DD",X3/"AC",N5/$06 
          EMC 
INCRCR    MAC    DD,AC
          WDCHK  "DD",3 
          VFD    N2/3,N2/1,X4/"DD",X3/"AC",N5/$06 
          EMC 
INCRWD    MAC    DD,AC
          WDCHK  "DD",3 
          VFD    N2/3,N2/2,X4/"DD",X3/"AC",N5/$06 
          EMC 
ICC       MAC    CO,AC
          RGCHK  "CO",1,2,COUNT 
          IFA    "CO",EQ,1
          INCRCR 4,"AC" 
          EIF 
          IFA    "CO",EQ,2
          INCRWD 10,"AC"
          EIF 
          EMC 
ICC1      MAC    AC 
          ICC    1,"AC" 
          EMC 
ICC2      MAC    AC 
          ICC    2,"AC" 
          EMC 
*                                                           --  $07  -- 
TESTEQ    MAC    TW,CT,CO,LB
          VFD    X1/"TW",N3/0,N4/0,X3/"LB"-*-1,N5/07
          VFD    X8/"CT",X8/"CO"
          LBCHK  "LB",7 
          EMC 
* 
ECHOCH    MAC    AC 
          VFD    N4/0,N4/01,X3/"AC",N5/07 
          EMC 
*                                                           --  $08  -- 
STATE     MAC    ST,AC
          VFD    N1/0,N1/0,X6/"ST",X3/"AC",N5/$08 
          EMC 
JUMP      MAC    ST,R 
          IFA    "R",EQ,1 
          VFD    N1/0,X1/"R",X6/"ST",N3/0,N5/$08
          EIF 
          IFA    "R",NE,1 
          VFD    N1/1,X1/"R",X6/"ST",N3/0,N5/$08
          EIF 
          EMC 
*                                                           --  $09  -- 
SBLC      MAC    AJ,AC
          GTCHK  "AJ",63
          VFD    N2/0,X6/"AJ",X3/"AC",N5/$09
          EMC 
*                                                           --  $0A  -- 
CHARLS    MAC    CH,LB
          VFD    X8/"CH",X3/"LB"-*-1,N5/$0A 
          LBCHK  "LB",7 
          EMC 
*                                                           --  $0B  -- 
STATLS    MAC    ST,LB
          VFD    N1/0,X7/"ST",X3/"LB"-*-1,N5/$0B
          LBCHK  "LB",7 
          EMC 
MSTLS     MAC    ST,LB
          VFD    N1/1,X7/"ST",X3/"LB"-*-1,N5/$0B
          LBCHK  "LB",7 
          EMC 
*                                                           --  $0C  -- 
CHARNE    MAC    CH,LB
          VFD    X8/"CH",X3/"LB"-*-1,N5/$0C 
          LBCHK  "LB",7 
          EMC 
*                                                           --  $0D  -- 
SPC3EQ    MAC    AC 
          VFD    N8/0,X3/"AC",N5/$0D
          EMC 
STPOUT    MAC    AC 
          VFD    N8/1,X3/"AC",N5/$0D
          EMC 
*                                                           --  $0E  -- 
TPMOVE    MAC    SD,DD
          VFD    X4/"SD",X4/"DD",N3/0,N5/$0E
          EMC 
TPST      MAC    SD,DD
          VFD    X4/"SD",X4/"DD",N3/1,N5/$0E
          EMC 
TPSTR     MAC    SD,DD
          VFD    X4/"SD",X4/"DD",N3/2,N5/$0E
          EMC 
TPSTL     MAC    SD,DD
          VFD    X4/"SD",X4/"DD",N3/3,N5/$0E
          EMC 
TPLD      MAC    SD,DD
          VFD    X4/"SD",X4/"DD",N3/4,N5/$0E
          EMC 
TPLDR     MAC    SD,DD
          VFD    X4/"SD",X4/"DD",N3/5,N5/$0E
          EMC 
TPLDL     MAC    SD,DD
          VFD    X4/"SD",X4/"DD",N3/6,N5/$0E
          EMC 
*                                                           --  $0F  -- 
XLATE     MAC    MK,CA
          VFD    X8/"MK",X3/"CA",N5/$0F 
          EMC 
*                                                           --  $10  -- 
TPINCR    MAC    SD,VA
          VFD    N1/0,X3/"VA",X4/"SD",N3/0,N5/$10 
          EMC 
TPDECR    MAC    SD,VA
          VFD    N1/1,X3/"VA",X4/"SD",N3/0,N5/$10 
          EMC 
TPADDR    MAC    SD,DD
          VFD    X4/"SD",X4/"DD",N3/1,N5/$10
          EMC 
TPSUBR    MAC    SD,DD
          VFD    X4/"SD",X4/"DD",N3/2,N5/$10
          EMC 
TPCMPR    MAC    SD,DD
          VFD    X4/"SD",X4/"DD",N3/3,N5/$10
          EMC 
*                                                           --  $11  -- 
ADDC      MAC    CH,AC
          VFD    X8/"CH",X3/"AC",N5/$11 
          EMC 
RADDC     MAC    CH 
          VFD    X8/"CH",N3/6,N5/$11
          EMC 
CHRPT     MAC 
          VFD    N8/0,N3/7,N5/$11 
          EMC 
*                                                           --  $12  -- 
STORE     MAC    CA 
          IFA    "CA",EQ,0
          VFD    N8/0,N3/2,N5/$12 
          EIF 
          IFA    "CA",NE,0
          VFD    N8/0,X3/3,N5/$12 
          EIF 
          EMC 
*                                                           --  $13  -- 
SETFLG    MAC    FL,HF,AC 
          VFD    X7/"FL",X1/"HF",X3/"AC",N5/$13 
          EMC 
*                                                           --  $14  -- 
STORCL    MAC    SD,BI,AC 
          RGCHK  "BI",1,4,BUFINDEX
          VFD    N2/0,X2/"BI"-1,X4/"SD",X3/"AC",N5/$14
          EMC 
STORCR    MAC    SD,BI,AC 
          RGCHK  "BI",1,4,BUFINDEX
          VFD    N2/1,X2/"BI"-1,X4/"SD",X3/"AC",N5/$14
          EMC 
STORWD    MAC    SD,BI,AC 
          RGCHK  "BI",1,4,BUFINDEX
          VFD    N2/2,X2/"BI"-1,X4/"SD",X3/"AC",N5/$14
          EMC 
STORC     MAC    CO,AC
          RGCHK  "CO",1,2,COUNT 
          IFA    "CO",EQ,1
          STORCR 4,2,"AC" 
          EIF 
          IFA    "CO",EQ,2
          STORWD 10,2,"AC"
          EIF 
          EMC 
STORC1    MAC    AC 
          STORC  1,"AC" 
          EMC 
STORC2    MAC    AC 
          STORC  2,"AC" 
          EMC 
*                                                           --  $15  -- 
CMPCLA    MAC    CM,LB
          VFD    N1/0,N7/0,X3/"LB"-*-2,N5/$15 
          VFD    X16/"CM" 
          LBCHK  "LB",7 
          EMC 
TSTCLA    MAC    CM,LB
          VFD    N1/1,N7/0,X3/"LB"-*-2,N5/$15 
          VFD    X16/"CM" 
          LBCHK  "LB",7 
          EMC 
CMPCMD    MAC    CM,LB
          VFD    N1/0,N7/$40,X3/"LB"-*-2,N5/$15 
          VFD    X16/"CM" 
          LBCHK  "LB",7 
          EMC 
TSTCMD    MAC    CM,LB
          VFD    N1/1,N7/$40,X3/"LB"-*-2,N5/$15 
          VFD    X16/"CM" 
          LBCHK  "LB",7 
          EMC 
*                                                           --  $16  -- 
BLD01     MAC    CS,AC
          VFD    X8/"CS",X3/"AC",N5/$16 
          EMC 
*                                                           --  $17  -- 
SETMSK    MAC    SD,BT,AC,EP
          VFD    N4/0,X4/"SD",X3/"AC",N5/$17
          VFD    X16/"BT" 
          EPCHK  "EP" 
          EMC 
SETMXF    MAC    MF,AC
          LOC    MK 
          NOREF  "MK" 
          EQU    "MK"("MF") 
          SETMSK 7,"MK"*$10,"AC"
          EMC 
RSTMSK    MAC    SD,BT,AC,EP
          VFD    N4/1,X4/"SD",X3/"AC",N5/$17
          VFD    X16/"BT" 
          EPCHK  "EP" 
          EMC 
RSTMXF    MAC    MF,AC
          LOC    MK 
          NOREF  "MK" 
          EQU    "MK"("MF") 
          RSTMSK 7,"MK"*$10,"AC"
          EMC 
TSTMSK    MAC    SD,BT,LB,EP
          VFD    N4/2,N4/"SD",X3/"LB"-*-2,N5/$17
          VFD    X16/"BT" 
          EPCHK  "EP" 
          LBCHK  "LB",7 
          EMC 
TSTMXF    MAC    MF,LB
          LOC    MK 
          NOREF  "MK" 
          EQU    "MK"("MF") 
          TSTMSK 7,"MK"*$10,"LB"
          EMC 
SETWD     MAC    SD,WD,AC,EP
          VFD    N4/4,N4/"SD",X3/"AC",N5/$17
          VFD    X16/"WD" 
          EPCHK  "EP" 
          EMC 
STRNTB    MAC    TA,AC
          VFD    N4/4,N4/12,X3/"AC",N5/$17
          ADC    "TA" 
          EMC 
STRNTE    MAC    AC,EP
          STRNTB 0,"AC" 
          EPCHK  "EP" 
          EMC 
*                                                           --  $18  -- 
MVCHRR    MAC    SD,DD
          WDCHK  "DD",3 
          VFD    X4/"SD",X4/"DD",N3/0,N5/$18
          EMC 
MVCHRL    MAC    SD,DD
          WDCHK  "DD",3 
          VFD    X4/"SD",X4/"DD",N3/1,N5/$18
          EMC 
MVCHLR    MAC    SD,DD
          WDCHK  "DD",3 
          VFD    X4/"SD",X4/"DD",N3/2,N5/$18
          EMC 
MVCHLL    MAC    SD,DD
          WDCHK  "DD",3 
          VFD    X4/"SD",X4/"DD",N3/3,N5/$18
          EMC 
MVWORD    MAC    SD,DD
          WDCHK  "DD",3 
          VFD    X4/"SD",X4/"DD",N3/4,N5/$18
          EMC 
CLRWD     MAC    DD 
          WDCHK  "DD",3 
          VFD    X4/0,X4/"DD",N3/5,N5/$18 
          EMC 
CLRCHR    MAC    DD 
          WDCHK  "DD",3 
          VFD    X4/0,X4/"DD",N3/6,N5/$18 
          EMC 
CLRCHL    MAC    DD 
          WDCHK  "DD",3 
          VFD    X4/0,X4/"DD",N3/7,N5/$18 
          EMC 
INTCRC    MAC    IC,AC
          IFA    "IC",NE,1
          CLRWD  9
          ACTION "AC" 
          EIF 
          IFA    "IC",EQ,1
          SETWD  9,$FF00,"AC" 
          EIF 
          EMC 
INTCC     MAC    CO,AC
          RGCHK  "CO",1,2,COUNT 
          IFA    "CO",EQ,1
          MVCHLR 4,4
          EIF 
          IFA    "CO",EQ,2
          MVWORD 11,10
          EIF 
          ACTION "AC" 
          EMC 
INTCC1    MAC    AC 
          INTCC  1,"AC" 
          EMC 
INTCC2    MAC    AC 
          INTCC  2,"AC" 
          EMC 
*                                                           --  $19  -- 
MSTATE    MAC    ST,AC
          VFD    N1/0,N3/0,X4/"ST",X3/"AC",N5/$19 
          EMC 
MJUMP     MAC    ST 
          VFD    N1/1,N3/0,X4/"ST",N3/0,N5/$19
          EMC 
*                                                           --  $1A  -- 
SETBIT    MAC    SD,BT,AC 
          VFD    X4/"BT",X4/"SD",X3/"AC",N5/$1A 
          GTCHK  "BT",15
          EMC 
SETPAR    MAC    AC 
          SETBIT 3,10,"AC"
          EMC 
SETRAN    MAC    AC 
          SETBIT 3,11,"AC"
          EMC 
SETINP    MAC    AC 
          SETBIT 3,12,"AC"
          EMC 
*                                                           --  $1B  -- 
RSTBIT    MAC    SD,BT,AC 
          VFD    X4/"BT",X4/"SD",X3/"AC",N5/$1B 
          GTCHK  "BT",15
          EMC 
RSTPAR    MAC    AC 
          RSTBIT 3,10,"AC"
          EMC 
RSTRAN    MAC    AC 
          RSTBIT 3,11,"AC"
          EMC 
RSTINP    MAC    AC 
          RSTBIT 3,12,"AC"
          EMC 
*                                                           --  $1C  -- 
MODCC     MAC    CO,CV
          RGCHK  "CO",1,2,COUNT 
          VFD    X1/"CO"-1,N7/$00,N3/0,N5/$1C 
          VFD    X16/"CV" 
          EMC 
CNTNE     MAC    CO,CV,LB 
          RGCHK  "CO",1,2,COUNT 
          VFD    X1/"CO"-1,N7/$08,X3/"LB"-*-2,N5/$1C
          VFD    X16/"CV" 
          LBCHK  "LB",7 
          EMC 
CNT1NE    MAC    CV,LB
          CNTNE  1,"CV","LB"
          EMC 
CNT2NE    MAC    CV,LB
          CNTNE  2,"CV","LB"
          EMC 
CHRCC     MAC    CO,MK
          RGCHK  "CO",1,2,COUNT 
          VFD    X1/"CO"-1,N7/$10,N3/0,N5/$1C 
          VFD    X16/"MK" 
          EMC 
CHRCC1    MAC    MK 
          CHRCC  1,"MK" 
          EMC 
CHRCC2    MAC    MK 
          CHRCC  2,"MK" 
          EMC 
SETCC     MAC    CO,CV
          RGCHK  "CO",1,2,COUNT 
          VFD    X1/"CO"-1,N7/$20,N3/0,N5/$1C 
          VFD    X16/"CV" 
          EMC 
SETCC1    MAC    CV 
          SETCC  1,"CV" 
          EMC 
SETCC2    MAC    CV 
          SETCC  2,"CV" 
          EMC 
BLCNE     MAC    CO,LB
          RGCHK  "CO",1,2,COUNT 
          VFD    X1/"CO"-1,N7/$40,X3/"LB"-*-2,N5/$1C
          VFD    N16/0
          EMC 
BLC1NE    MAC    LB 
          BLCNE  1,"LB" 
          EMC 
BLC2NE    MAC    LB 
          BLCNE  2,"LB" 
          EMC 
*                                                           --  $1D  -- 
BKSPAC    MAC 
          VFD    N11/0,N5/$1D 
          EMC 
*                                                           --  $1E  -- 
TPMARK    MAC    LV,SC,DS 
          RGCHK  "LV",1,2,LEVEL 
          VFD    N1/0,N4/0,X1/"LV"-1,X2/"SC"+"DS",N3/0,N5/$1E 
          EMC 
TPBKUP    MAC    LV,SC,DS 
          RGCHK  "LV",1,2,LEVEL 
          VFD    N1/1,N4/0,X1/"LV"-1,X2/"SC"+"DS",N3/0,N5/$1E 
          EMC 
TPEXIT    MAC 
          VFD    N8/0,N3/1,N5/$1E 
          EMC 
*                                                           --  $1F  -- 
RTRN      MAC 
          VFD    N4/0,N4/0,N3/0,N5/$1F
          EMC 
RESYNC    MAC    AC 
          VFD    N4/0,N4/1,X3/"AC",N5/$1F 
          EMC 
TPHSP1    MAC 
          VFD    N4/0,N4/2,N3/0,N5/$1F
          EMC 
TPINSR    MAC    LV,CS,CR,IN
          RGCHK  "LV",1,2,LEVEL 
          VFD    X1/"LV"-1,N2/0,X1/"CS",N4/3,N3/0,N5/$1F
          VFD    X8/"IN",X8/"CR"
          EMC 
CHRMD4    MAC 
          VFD    N4/0,N4/4,N3/0,N5/$1F
          EMC 
TPHSP2    MAC    LB 
          VFD    N4/0,N4/5,N3/"LB"-*-1,N5/$1F 
          LBCHK  "LB",7 
          EMC 
TPDCC     MAC    CO,SD
          VFD    N4/"SD",N4/6,N2/"CO"-1,N1/0,N5/$1F 
          RGCHK  "CO",1,2,COUNT 
          EMC 
TPICC     MAC    CO,SD
          VFD    N4/"SD",N4/6,N2/"CO"-1,N1/1,N5/$1F 
          RGCHK  "CO",1,2,COUNT 
          EMC 
TPASY1    MAC    AC 
          VFD    N4/0,N4/7,X3/"AC",N5/$1F 
          EMC 
TPASY2    MAC    AC 
          VFD    N4/0,N4/8,X3/"AC",N5/$1F 
          EMC 
SAVUTC    MAC    AC 
          VFD    N4/0,N4/9,X3/"AC",N5/$1F 
          EMC 
RSTUTC    MAC    AC 
          VFD    N4/0,N4/$A,X3/"AC",N5/$1F
          EMC 
XCHRNE    MAC    CH,BT,LB 
          VFD    N4/0,N4/$B,X3/"LB"-*-2,N5/$1F
          VFD    X16/"BT" 
          EPCHK  "CH" 
          LBCHK  "LB",7 
          EMC 
SAVCST    MAC 
          VFD    N4/0,N4/$C,N3/0,N5/$1F 
          EMC 
RSTCST    MAC    AC 
          VFD    N4/0,N4/$D,X3/"AC",N5/$1F
          EMC 
X25PAR    MAC    AC 
          VFD    N4/0,N4/$F,X3/"AC",N5/$1F
          EMC 
RSTISO    MAC 
          VFD    N4/0,N4/$E,N3/0,N5/$1F 
          EMC 
*                                                           -- OTHER -- 
RPLACE    MAC    CH,CA
          RCHAR  "CH" 
          STORE  "CA" 
          EMC 
LBCHK     MAC    LB,RA
          IFA    "LB"-*,LT,0
          ERR    "LB"-OUT-OF-RANGE
          EIF 
          NLS 
          JMP*   "LB"+127-"RA"
          ORG    *-1
          LST 
          EMC 
WDCHK     MAC    W1,W2
          IFA    "W1",EQ,"W2" 
          ERR    CANNOT-CHANGE-WORD-"W2"
          EIF 
          EMC 
RGCHK     MAC    VA,LV,UV,TX
          IFA    "VA",LT,"LV" 
          ERR    "TX"-OUT-OF-RANGE
          EIF 
          IFA    "VA",GT,"UV" 
          ERR    "TX"-OUT-OF-RANGE
          EIF 
          EMC 
GTCHK     MAC    P1,P2
          IFA    "P1",GT,"P2" 
          ERR    "P1"-GREATER-THAN-"P2" 
          EIF 
          EMC 
EPCHK     MAC    EP 
          IFC    "EP",NE, 
          IFC    "EP",NE,0
          ENT    "EP" 
          EQU    "EP"(*-1)
          EIF 
          EMC 
          EJT 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*         STANDARD EQUATES USED FOR STATE MACRO INSTRUCTIONS          * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
* * * *   ACTION              (AC)
* 
          EQU    EXIT(1)     -         DISCARD AND EXIT 
          EQU    STOREXIT(2) -         STORE AND EXIT 
          EQU    CRCSTOREX(3)          CRC, STORE AND EXIT
          EQU    CRCEXIT(4)  -         CRC, DISCARD AND EXIT
          EQU    CRCNT(5)    -         CRC, CONTINUE NEXT INSTRUCTION 
* 
* * * *   TIBWL/TIBSWC/TRMBUF (BC)
* 
          EQU    NBC(1)      -         DONT CLEAR BUFFER COUNTER
          EQU    EOT(0)      -         (USE OF SETTING EOT IS OBSOLETE) 
* 
* * * *   CRCEQ               (SB)
* 
          EQU    B8(0)       -         8-BIT CRC
          EQU    B7(1)       -         7-BIT CRC (MODE 4) 
* 
* * * *   INTCRC              (IC)
* 
          EQU    ZCRC(0)     -         ZERO CRC INITIAL VALUE 
          EQU    OCRC(1)     -         ALL ONES CRC INITIAL VALUE 
          EQU    ODD(1)      -         INITIALIZE ODD CRC (MODE 4)
* 
* * * *   STORE/XLATE         (CA)
* 
          EQU    NOCRC(0)    -         DONT ACCUMULATE CRC
          EQU    CRCA(1)     -         ACCUMULATE CRC 
          EQU    XOR(2)      -         ACCUMULATE EXCL. OR (MODE 4) 
* 
* * * *   SETFLG              (HF)
* 
          EQU   FRST(0)      -         FIRST BUFFER 
          EQU   CURN(1)      -         CURRENT BUFFER 
* 
* * * *   JUMP                (R) 
* 
          EQU    CURRENT(0)  -         STATE IN MUX LCB 
          EQU    XCUTE(1)    -         XCUTE STATE-DONT CHANGE NCSTAI 
          EQU    RTN(1)      -         SAME AS XCUTE
* 
* * * *   TPMARK/TPBKUP/TPINSR
* 
          EQU    LEVEL1(1)
          EQU    LEVEL2(2)
          EQU    SUPPLIED(0) -         USE SUPPLIED CHARACTER 
          EQU    CURNT(1)    -         USE CURRENT SOURCE CHARACTER 
          EQU    SRC(1) 
          EQU    DST(2) 
* 
          EQU    MUXSTATE(*)
          NOREF  MUXSTATE 
          LST 
          SPC    5
          EJT 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*         MUX SUBSYSTEM EQUATES                                       * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
          EQU    MXETX($4)   ETX FLAG FOR CLA STATUS HANDLER (OBSOLETE) 
          EQU    MXMRTO(2)   RESPONS TIMEOUT
          EQU    MXCARR($1)  CONTROLLED CARRIER FLAG          (OBSOLETE)
* 
*      NOTE: THE NEXT TWO EQUS MUST BE MODIFIED IF THE MODEM STATE INDEX
*      FOR EITHER ONE OF THE EQUIVALENT STATES CHANGES. 
* 
          EQU    MSTIDL($A)  IDLE MODEM STATE INDEX 
          EQU    MSTINP($C)  INPUT MODEM STATE INDEX
* 
* * *     MUX FLAGS (NC), BITS (NB) AND MASKS (NM) IN WORD NCUOPS 
* 
          EQU    NCUOP1($800)          BIT 15 
          EQU    NBUOP1(15) 
          EQU    NMUOP1($8000)         WARNING...ASSEM GENERATES 0... 
          EQU    NCUOP2($400)          BIT 14 
          EQU    NBUOP2(14) 
          EQU    NMUOP2($4000)
          EQU    NCUOP3($200)          BIT 13 
          EQU    NBUOP3(13) 
          EQU    NMUOP3($2000)
          EQU    NCUOP4($100)          BIT 12 
          EQU    NBUOP4(12) 
          EQU    NMUOP4($1000)
          EQU    NCUOP5($080)          BIT 11 
          EQU    NBUOP5(11) 
          EQU    NMUOP5($800) 
          EQU    NCUOP6($040)          BIT 10 
          EQU    NBUOP6(10) 
          EQU    NMUOP6($400) 
          EQU    NCUOP7($020)          BIT 9
          EQU    NBUOP7(9)
          EQU    NMUOP7($200) 
          EQU    NCUOP8($010)          BIT 8
          EQU    NBUOP8(8)
          EQU    NMUOP8($100) 
          EQU    NCUOP9($008)          BIT 7
          EQU    NBUOP9(7)
          EQU    NMUOP9($80)
          EQU    NCUOPA($004)          BIT 6 (TEXT PROCESSING ONLY) 
          EQU    NBUOPA(6)
          EQU    NMUOPA($40)
          EQU    NCUOPB($002)          BIT 5
          EQU    NBUOPB(5)
          EQU    NMUOPB($20)
          EQU    NCUOPC($001)          BIT 4
          EQU    NBUOPC(4)
          EQU    NMUOPC($10)
          EJT 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*         WORK CODES                                                  * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
          EQU    MMBUTCH(3)  -         MUX BUFFER THRESHOLD 
          EQU    A0WK1($21)  -         TIP/LIP WORKCODE 1 
          EQU    A0WK2(A0WK1+1) 
          EQU    A0WK3(A0WK1+2) 
          EQU    A0WK4(A0WK1+3) 
          EQU    A0WK5(A0WK1+4) 
          EQU    A0WK6(A0WK1+5) 
          EQU    A0WK7(A0WK1+6) 
          EQU    A0WK8(A0WK1+7) 
          EQU    A0WK9(A0WK1+8) 
          EQU    A0WK10(A0WK1+9)
          EQU    A0WK11(A0WK1+10) 
          EQU    A0WK12(A0WK1+11) 
          EQU    A0WK13(A0WK1+12) 
          EQU    A0WK14(A0WK1+13) 
          EQU    A0WK15(A0WK1+14) 
          EQU    A0WK16(A0WK1+15) 
          EQU    A0WK17(A0WK1+16) 
          EQU    A0WK18(A0WK1+17) 
          EQU    A0WK19(A0WK1+18) 
          EQU    A0WK20(A0WK1+19) 
          EQU    A0WK21(A0WK1+20) 
          EQU    A0WK22(A0WK1+21) 
          EQU    A0WK23(A0WK1+22) 
          EQU    A0WK24(A0WK1+23) 
          EJT 
