//**************    EXECUTE PROCEDURE FOR ASSISTV         ************
// EXEC PGM=ASSISTV,REGION=128K
//STEPLIB DD DSN=ASSISTV.LOADMOD,DISP=OLD
//FT06F001 DD SYSOUT=A
//FT08F001 DD UNIT=SYSDA,SPACE=(3120,(0,10))
//VIRTPRT1 DD SYSOUT=A,DCB=(LRECL=133,BLKSIZE=133,RECFM=FBM)
//VIRTDSK1 DD UNIT=SYSDA,SPACE=(1692,(80))
//VIRTDRM1 DD UNIT=SYSDA,SPACE=(2048,(50,10))
//SYSIN DD *
//*VIRTRDR1 DD *     INCLUDED IF DEVICE X'00C' IS READ
//*VIRTRDR2 DD *     INCLUDED IF DEVICE X'00D' IS READ
//**************    END OF PROCEDURE TO EXECUTE ASSISTV   ************

//**************    ASSEMBLY PROCEDURE FOR ASSISTV        ************
//S1      EXEC PGM=IEBUPDTE,PARM=NEW
//SYSUT2    DD DSN=&&TLIB,DISP=(NEW,PASS),SPACE=(TRK,(2,2,1),RLSE),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3600),UNIT=SYSDA
//SYSPRINT  DD SYSOUT=A
//SYSIN     DD *
./ add name=assysgen
./ number new1=1000,incr=1000
         macro
         assysgen
         mend
./ endup
//S2      EXEC ASMGC,ASMREG=256K,COND=(4,LT),
//             PARM.ASM='TERM,SP=MAX-30K,NOL,NOLR,NOXR,UB=1,LINE=56'
//ASM.SYSLIN DD DSN=&&OBMOD,DISP=(NEW,PASS),SPACE=(TRK,(5,5),RLSE),
//             UNIT=SYSDA,DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//SYSLIB    DD DSN=&&TLIB,DISP=(OLD,PASS)
//          DD DSN=SYS1.MACLIB,DISP=SHR
//          DD DSN=UTCC.MACLIB,DISP=SHR
//ASM.SYSIN DD VOL=(,RETAIN,SER=ASVTAP),LABEL=11,DSN=ASVSRC1,
//             UNIT=(TAPE9,,DEFER)
//          DD VOL=(,RETAIN,SER=ASVTAP),LABEL=12,DSN=ASVSRC2,UNIT=TAPE9
//          DD VOL=(,RETAIN,SER=ASVTAP),LABEL=13,DSN=ASVSRC3,UNIT=TAPE9
//          DD VOL=(,RETAIN,SER=ASVTAP),LABEL=14,DSN=ASVSRC4,UNIT=TAPE9
//          DD VOL=(,RETAIN,SER=ASVTAP),LABEL=15,DSN=ASVSRC5,UNIT=TAPE9
//          DD VOL=(,RETAIN,SER=ASVTAP),LABEL=16,DSN=ASVSRC6,UNIT=TAPE9
//**************    END OF PROCEDURE TO ASSEMBLE ASSISTV  ************

//**************     LINKAGE EDITOR OVERLAY CARDS        *************
//OVERLAY EXEC ASMGL,PARM='OVLY,LIST,MAP'
//SYSLMOD DD DSN=ASSISTV.LOADMOD,DISP=OLD
//SYSIN DD *
  include obmod
    insert assist,xxxxdeci,xxxxioco,xxxxsnap,xxxxspie,vwxtabl
    insert xddtable,xxxxget,xxxxput
  overlay first
    insert execut,xxxxdeco,xddget,xxxxhexi,xxxxhexo
    insert virtio,vidaio,eiopcs
  overlay first
    insert aparms
  overlay first
    insert cacons,cbcons,cccons,cdecns,cfhcns,cpcons,cvcons,cxcons
    insert czcons,esdopr,evalut,ltoprs,mpcon0,output,sdterm,symops
    insert utoprs,xrefa,errors
  overlay two
    insert codtl1,iamop1,ibasm1,input1,mocon1,opcod1,scanrs
    insert macint,macfnd,macscn,mcatrm,mcdtrm,mcgtst,mcscop,mcsysr
    insert mcsysr,mcvscn,mxerrm,mxinst,mxmvsr
    insert maclex,macro1,mcbody,mcgncd
    insert mexpnd
  overlay two
    insert brops2,cndtl2,icmop2,idasm2,mtcon2,xrcoll
  overlay two
    insert xrprnt
  overlay first
    insert xxddfini
  overlay first
    insert aobjdk
  entry assist
  name assistv
//OBMOD DD DSN=ASSISTV.OBMOD,DISP=OLD

*****************      assysgen for min version            **********
         macro
         assysgen
         gbla &$bufno,&$prtsiz
         gblb &$deck,&$objin,&$page,&$reloc,&$hexi,&$hexo
         gblb &$xref
&$bufno  seta 1
&$deck   setb 0
&$objin  setb 0
&$page   setb 0
&$prtsiz seta 121
&$reloc  setb 0
&$hexi   setb 0
&$hexo   setb 0
&$xref   setb 1
         mend
*****************      end min assysgen version            **********

*****************      assysgen regular version            **********
         macro
         assysgen
         mend
*****************      end assysgen regular version        **********

*****************      assysgen max version                **********
         macro
         assysgen
         gbla  &$comnt,&$repl
         gblb  &$cmprs,&$flota,&$flotax,&$flote,&$flotex
         gblb  &$flotm,&$flotmx,&$kp26
&$comnt  seta  80
&$repl   seta  1
&$cmprs  setb  1
&$flota  setb  1
&$flotax setb  1
&$flote  setb  1
&$flotex setb  1
&$flotm  setb  1
&$flotmx setb  1
&$kp26   setb  1
         mend
*****************      end mex assysgen version            **********