*COMDECK ATBLEQUS 
ACTBL  MAC  P1,P2,P3
       VFD  X8/'P2',X8/'P1' 
       VFD  N16/'P3'
       EMC
ENDTBL MAC  P1,P2 
       VFD  X16/'P1'
       ADC  'P2'
       EMC
       SPC  2 
       EQU  D0ATEND($7FFF)
       EJT
***    ACTION CODE EQUATES
* 
*           - IF CHANGES ARE MADE TO THESE EQUATES THE
*             CORRESPONDING CHANGES MUST BE MADE TO THE 
*             PASCAL CONSTANTS. 
* 
       SPC  1 
       EQU  D2VUL(0)
       EQU  D2VM(1) 
       EQU  D2CRIDLE(2) 
       EQU  D2LFIDLE(3) 
       EQU  D2TC2741(4) 
       EQU  D2TCM4HS(5) 
       EQU  D2TCBDFLT(6)
       EQU  D2UPPAIR(7) 
       EQU  D2LOPAIR(8) 
       EQU  D2PARITY(9) 
       EQU  D2CD2741(10)
       EQU  D2CHKCHAR(11) 
       EQU  D2ELX(12) 
       EQU  D2E2741(13) 
       EQU  D2CK2741(14)
       EQU  D2I2741(15) 
       EQU  D2IGNORE(16)
       EQU  D2ERROR(17) 
       EQU  D2CRLFNULS(19)
       EJT
       SPC  3 
***    TCB FIELD NUMBER *FN* EQUATES
* 
*           - IF CHANGES/ADDITIONS ARE MADE TO THESE EQUATES
*             THE CORRESPONDING CHANGES/ADDITIONS MUST ALSO 
*             BE MADE TO THE *MPEDIT* FIELD DESCRIPTION AND 
*             ACTION TABLES.
* 
       SPC 2
       EQU  BSSHN(20) 
       EQU  BSALOGIN(21)
       EQU  BSACON(22)
       EQU  BSIPRI(23)
       EQU  BSUBL(24) 
       EQU  BSUBZ(25) 
       EQU  BSABL(26) 
       EQU  BSDBL(27) 
       EQU  BSDBZMS(28) 
       EQU  BSDBZLS(29) 
       EQU  BSXBZMS(30) 
       EQU  BSLOCK(32)
       EQU  BSXBZLS(31) 
       EQU  BSHADON(33) 
       EQU  BSTCLASS(34)
       EQU  BSPGWIDTH(35) 
       EQU  BSPGLENGTH(36)
       EQU  BSPGWAIT(37)
       EQU  BSCANCHAR(38) 
       EQU  BSBSCHAR(39)
       EQU  BSCNTRLCHAR(40) 
       EQU  BSABTBLK(41)
       EQU  BSUSR1(42)
       EQU  BSUSR2(43)
       EQU  BSCRIDLES(44) 
       EQU  BSLFIDLES(45) 
       EQU  BSCRCALC(46)
       EQU  BSLFCALC(47)
       EQU  BSSPEDIT(48)
       EQU  BSECHOPLEX(49)
       EQU  BSPARITY(50)
       EQU  BSBRUSR1(51)
       EQU  BSXPT(52) 
       EQU  BSINDEV(53) 
       EQU  BSOUTDEV(54)
       EQU  BSFLASCII(55) 
       EQU  BSXDBCHAR(56) 
       EQU  BSXCNMS(57) 
       EQU  BSXCNLS(58) 
       EQU  BSXCHAR(59) 
       EQU  BSXDBTIM(60)
       EQU  BSELCHAR(61)
       EQU  BSELX(62) 
       EQU  BSCPEL(63)
       EQU  BSEBCHAR(64)
       EQU  BSEBX(65) 
       EQU  BSCPEB(66)
       EQU  BSRGLIN(67) 
       EQU  BSRGLOUT(68)
       EQU  BSMXCHAR(69)
       EQU  BSMXPT(70)
       EQU  BSCURPOS(71)
       EQU  LCW(72) 
       EQU  LCCTYP(73)
       EQU  LCNCIR(74)
       EQU  LCNEN(75) 
       EQU  BSSUBDT(76) 
       EQU  BSRIC(77) 
       EQU  BSBCOMP(78) 
       EQU  BSMR(79)
       EQU  BSDO(80)
       EQU  BSFTYPE(81) 
       EQU  BSSUPCC(82) 
       EQU  BSLACEC(83) 
       EQU  BS1LIMIT(84)
       EQU  BS2LIMIT(85)
       EQU  BSLIMC(86)
       EQU  BSFLDPLX(87)
       EQU  BSXWEPAY(88)
       EQU  BSAUREC(101)
       EQU  BSPACER(102)
       EQU  BS4LPEOF(111) 
       EQU  BSISYNC(112)
       EQU  BSMCI(147)
       EQU  BSMLI(148)
          EQU    BSXB12(149)
       SPC  1 
       EJT
       SPC  2 
***    LCB FIELD NUMBER *FN* EQUATES
* 
*          - IF CHANGES ARE MADE TO THESE EQUATES THE CORRESPONDING 
*            CHANGES MUST BE MADE TO THE MPEDIT INPUT.
* 
       SPC  2 
       EQU  BZSECURITY(1) 
       EQU  BZLNSPD(2)
       EQU  BZN2(3) 
       EQU  BZK(4)
       EQU  BZ1LPVC(5)
       EQU  BZ2LPVC(6)
       EQU  BZDCE(7)
       EQU  BZTRANSTYPE(8)
       EQU  BZ1LSVC(9)
       EQU  BZ2LSVC(10) 
       EQU  BZCDCRSRVD(11)
       EQU  BZT1(12)
       EQU  BZ1PKTLNTH(13)
       EQU  BZ2PKTLNTH(14)
       SPC  2 
***    COMMON ADDRESSES OF THE BASE SYSTEM ACTION TABLES
* 
* 
       SPC  1 
       EXT  DGLCBAT               ADDRESS OF BASE LCB AT
       EXT  DGTCBAT               ADDRESS OF BASE TCB AT
