;	use /LR for full listings
:T
ERASE *.OBJ=*.BAK[,0]
ERASE *.LIT=*.BAK[,0]
LOOKUP	VTAM.LIT/
GOTO	MVTAM
GOTO	CVTAR
;MVTAM
M68	VTAM[211,0]$0
SYMLIT  VTAM
PUTIT   VTAM
XY =2  VTAM
ERASE   VTAM.OBJ,VTAM.BAK[,0]
;CVTAR
LOOKUP	VTARUN.OBJ/
GOTO	MVTAR
GOTO	CVCMD
;MVTAR
M68	VTARUN[211,0]$0
XY =2  VTARUN
;CVCMD
LOOKUP  VCMD.OBJ/
GOTO	MVCMD
GOTO	CVSTAT
;MVCMD
M68	VCMD[211,0]$0
XY =2  VCMD
;CVSTAT
LOOKUP  VSTAT.OBJ/
GOTO	MVSTAT
GOTO	CJINIT
;MVSTAT
M68	VSTAT[211,0]$0
XY =2  VSTAT
;CJINIT
LOOKUP  JINIT.OBJ/
GOTO	MJINIT
GOTO	CVLOG
;MJINIT
M68	JINIT[211,0]$0
XY =2  JINIT
;CVLOG
LOOKUP  VLOG.OBJ/
GOTO	MVLOG
GOTO	CVOUT
;MVLOG
M68	VLOG[211,0]$0
XY =2  VLOG
;CVOUT
LOOKUP  VOUT.OBJ/
GOTO	MVOUT
GOTO	CXOUT
;MVOUT
M68	VOUT[211,0]$0
XY =2  VOUT
;CXOUT
LOOKUP  XOUT.OBJ/
GOTO	MXOUT
GOTO	CVHLP
;MXOUT
M68	XOUT[211,0]$0
XY =2  XOUT
;CVHLP
LOOKUP  VHLP.OBJ/
GOTO	MVHLP
GOTO	MAILNK
;MVHLP
M68	VHLP[211,0]$0
XY =2  VHLP
;MAILNK
SET              HEX
;NKLIT/E/M/S     VTARUN,VCMD,VSTAT,JINIT,VLOG,VOUT,XOUT,VHLP,SYSLIB/L
LNKLIT/E/S       VTARUN,VCMD,VSTAT,JINIT,VLOG,VOUT,XOUT,VHLP,SYSLIB/L
;LOBAL/W:79/L:20 VTARUN,VCMD,VSTAT,JINIT,VLOG,VOUT,XOUT,VHLP
SET              OCTAL
PUTIT VTARUN
ERASE *.BAK[,0]
;THEEND