BIT8
.PROC,BIT8*I,\
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD1 
*CALL COMPROC 
. 
  
* BIT8 - 8-BIT SUBROUTINES
*CALL     PSRLEV
* 
  
.*
.*  START BIT8 VIA SUBPROC. 
.*
BEGIN(SUBPROC,INSTALL,BIT8,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF) 
REVERT.        BIT8.
EXIT. 
REVERT(ABORT)  BIT8.
  
  
.DATA,ZZZPROC 
.PROC,BIT8. 
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=BIT8,#PN=PN,#PR=PR,DISK=0)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=BE4) 
RETURN(BIT8)
RFL(61000)
COMPASS(A,I,S=IOTEXT,S=IPTEXT,B=BIT8,L=LIST)
COMPASS(A,I,S=IOTEXT,S=IPTEXT,B=LIB,L=LIST) 
COMPASS(A,I,S=IOTEXT,S=IPTEXT,B=CPY8,L=LIST)
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(OMIT=$GETFIT.$) 
LDSET(EPT=$T8.A0$/$T8.CAX$/$T8.CHR$/$T8.C6A$/$T8.C6C$/$T8.C6D$/$T8.C6I$)
LDSET(EPT=$T8.C6N$/$T8.C6S$/$T8.C6U$/$T8.C6X$/$T8.C6Z$/$T8.ENTR$) 
LDSET(EPT=$T8.GINT$/$T8.INRC$/$T8.I1$/$T8.I2$/$T8.MPTR$/$T8.MSG$) 
LDSET(EPT=$T8.MVBT$/$T8.M1$/$T8.M2$/$T8.NBL$/$T8.NCHR$/$T8.NNBL$) 
LDSET(EPT=$T8.NNUM$/$T8.NONE$/$T8.NUM$/$T8.NXTX$/$T8.OTRC$/$T8.P$)
LDSET(EPT=$T8.RECO$/$T8.REL1$/$T8.REL2$/$T8.SPTR$/$T8.STBT$/$T8.STRI$)
LDSET(EPT=$T8.SVB6$/$T8.TEMP$/$T8.TMP1$/$T8.TMP2$/$T8.T1$/$T8.T2$)
LDSET(EPT=$T8.W1$/$T8.W2$/$T8.6TAB$/$T8.COND$)
GROUP(BIT8) 
CAPSULE(XPACK,XPAND,XMOVE,XCOMP,TDCRACK,BDPTAB,XFILE,XREAD,XWRITE)
CAPSULE($T8.COM1$,$T8.COM2$,$T8.CHK$,$T8.C6.$,$T8.TSTC$,$T8.TSTT$)
CAPSULE($T8.TST6$,$T8.CN6P$,$T8.CN6T$,$T8.CN6C$)
SLOAD(BIT8/R,XPACK) 
SLOAD(BIT8/R,XPAND) 
SLOAD(BIT8/R,XMOVE) 
SLOAD(BIT8/R,XCOMP) 
SLOAD(BIT8/R,TDCRACK) 
SLOAD(BIT8/R,BDPTAB)
SLOAD(BIT8/R,XFILE) 
SLOAD(BIT8/R,XREAD) 
SLOAD(BIT8/R,XWRITE)
SLOAD(BIT8/R,$T8.COM1$) 
SLOAD(BIT8/R,$T8.HXTB$,$T8.6TAB$,$T8.ERR$)
SLOAD(BIT8/R,$T8.COM2$) 
SLOAD(BIT8/R,$T8.MVB$,$T8.NCH$,$T8.CNA$)
SLOAD(BIT8/R,$T8.PARS$,$T8.NNA$,$T8.TXT$,$T8.COM$)
SLOAD(BIT8/R,$T8.CHK$)
SLOAD(BIT8/R,$T8.C6.$)
SLOAD(BIT8/R,$T8.TSTC$) 
SLOAD(BIT8/R,$T8.CNC$,$T8.CNC6$)
SLOAD(BIT8/R,$T8.TSTT$) 
SLOAD(BIT8/R,$T8.CNT$,$T8.CNT6$)
SLOAD(BIT8/R,$T8.TST6$) 
SLOAD(BIT8/R,$T8.CN6$)
SLOAD(BIT8/R,$T8.CN6P$) 
SLOAD(BIT8/R,$T8.CN6T$) 
SLOAD(BIT8/R,$T8.CN6C$) 
NOGO(LIB) 
REWIND(CPY8)
LDSET(ERR=ALL,PRESET=ZERO)
LOAD(CPY8)
NOGO(LGO) 
BEGIN(SAVELIB,INSTALL,LIB=LIB,LIBNAME=BIT8LIB)
BEGIN(PRDOUT,INSTALL,PRDNAME=BIT8,#PNO=PNO,#PRO=PRO)
BEGIN(GENDIR,INSTALL,LIB=12)
BEGIN(SAVELGO,INSTALL,PRDNAME=BIT8) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  BIT8.
EXIT. 
REVERT(ABORT)  BIT8.
*WEOR 
