$JOB COS 300 SOURCE LISTINGS CONTROL
$MSG MOUNT COS 300 SOURCE DECTAPE #1 ON DRIVE 0
$MSG CHECK LINE PRINTER, BE SURE EVERYTHING IS OK
.COPY DSK:<DTA0:MONITR.PA,RK8E.PA,TD8E.PA
.R PAL8
*DSK:MONITR,DSK:MONITR<DSK:RK8E,DSK:TD8E,DSK:MONITR/K
.R CREF
*DSK:MONITR.LS<DSK:MONITR.LS/X/M
.R BITMAP
*DSK:MONITR.MP<DSK:MONITR$
.R PIP
*DSK:MONITR.LS<DSK:MONITR.LS,DSK:CREFM2.LS,DSK:MONITR.MP
.PRINT DSK:MONITR.LS/H
.DEL DSK:MONITR.PA,DSK:MONITR.BN,DSK:*.LS,DSK:*.MP
.DEL DSK:RK8E.PA,DSK:TD8E.PA
.COPY DSK:<DTA0:COMP.PA
.R PAL8
*DSK:COMP,DSK:COMP<DSK:COMP
.R BITMAP
*DSK:COMP.MP<DSK:COMP$
.R CREF
*DSK:COMP.LS<DSK:COMP.LS/X
.R PIP
*DSK:COMP.LS/D<DSK:COMP.LS,DSK:COMP.MP
.PRINT DSK:COMP.LS/H
.DEL DSK:COMP.PA,DSK:COMP.BN,DSK:*.LS,DSK:*.MP
.COPY DSK:<DTA0:RSYS.PA
.R PAL8
*DSK:RSYS,DSK:RSYS<DSK:RSYS
.R BITMAP
*DSK:RSYS.MP<DSK:RSYS$
.R CREF
*DSK:RSYS.LS<DSK:RSYS.LS/X
.R PIP
*DSK:RSYS.LS/D<DSK:RSYS.LS,DSK:RSYS.MP
.PRINT DSK:RSYS.LS/H
.DEL DSK:RSYS.PA,DSK:*.LS,DSK:*.MP,DSK:RSYS.BN
.COPY DSK:<DTA0:DDT.PA
.R PAL8
*DSK:DDT,DSK:DDT<DSK:DDT
.R BITMAP
*DSK:DDT.MP<DSK:DDT$
.R CREF
*DSK:DDT.LS<DSK:DDT.LS/X
.R PIP
*DSK:DDT.LS/D<DSK:DDT.LS,DSK:DDT.MP
.PRINT DSK:DDT.LS/H
.DEL DSK:DDT.PA,DSK:*.LS,DSK:*.MP,DSK:DDT.BN
.COPY DSK:<DTA0:CREF.PA
.R PAL8
*DSK:CREF,DSK:CREF<DSK:CREF
.R BITMAP
*DSK:CREF.MP<DSK:CREF$
.R CREF
*DSK:CREF.LS<DSK:CREF.LS/X
.R PIP
*DSK:CREF.LS/D<DSK:CREF.LS,DSK:CREF.MP
.PRINT DSK:CREF.LS/H
.DEL DSK:CREF.PA,DSK:CREF.BN,DSK:*.LS,DSK:*.MP
$MSG MOUNT COS 300 SOURCE DECTAPE #2 ON DRIVE 0
.COPY DSK:<DTA0:UPDATE.PA
.R PAL8
*DSK:UPDATE,DSK:UPDATE<DSK:UPDATE
.R BITMAP
*DSK:UPDATE.MP<DSK:UPDATE$
.R CREF
*DSK:UPDATE.LS<DSK:UPDATE.LS/X
.R PIP
*DSK:UPDATE.LS/D<DSK:UPDATE.LS,DSK:UPDATE.MP
.PRINT DSK:UPDATE.LS/H
.DEL DSK:UPDATE.PA,DSK:*.LS,DSK:*.MP,DSK:UPDATE.BN
.COPY DSK:<DTA0:CONVEX.PA
.R PAL8
*DSK:CONVEX,DSK:CONVEX<DSK:CONVEX
.R BITMAP
*DSK:CONVEX.MP<DSK:CONVEX$
.R CREF
*DSK:CONVEX.LS<DSK:CONVEX.LS/X
.R PIP
*DSK:CONVEX.LS/D<DSK:CONVEX.LS,DSK:CONVEX.MP
.PRINT DSK:CONVEX.LS/H
.DEL DSK:CONVEX.PA,DSK:*.LS,DSK:*.MP,DSK:CONVEX.BN
.COPY DSK:<DTA0:SORT.PA
.R PAL8
*DSK:SORT,DSK:SORT<DSK:SORT
.R BITMAP
*DSK:SORT.MP<DSK:SORT$
.R CREF
*DSK:SORT.LS<DSK:SORT.LS/X
.R PIP
*DSK:SORT.LS/D<DSK:SORT.LS,DSK:SORT.MP
.PRINT DSK:SORT.LS/H
.DEL DSK:SORT.PA,DSK:SORT.BN,DSK:*.LS,DSK:*.MP
.COPY DSK:<DTA0:PIP.PA
.R PAL8
*DSK:PIP,DSK:PIP<DSK:PIP
.R BITMAP
*DSK:PIP.MP<DSK:PIP$
.R CREF
*DSK:PIP.LS<DSK:PIP.LS/X
.R PIP
*DSK:PIP.LS/D<DSK:PIP.LS,DSK:PIP.MP
.PRINT DSK:PIP.LS/H
.DEL DSK:PIP.PA,DSK:PIP.BN,DSK:*.MP,DSK:*.LS
.COPY DSK:<DTA0:BUILD.PA
.R PAL8
*DSK:BUILD,DSK:BUILD<DSK:BUILD
.R BITMAP
*DSK:BUILD.MP<DSK:BUILD$
.R CREF
*DSK:BUILD.LS<DSK:BUILD.LS/X
.R PIP
*DSK:BUILD.LS/D<DSK:BUILD.LS,DSK:BUILD.MP
.PRINT DSK:BUILD.LS/H
.DEL DSK:BUILD.PA,DSK:BUILD.BN,DSK:*.LS,DSK:*.MP
$MSG MOUNT COS 300 SOURCE DECTAPE #3 ON DRIVE 0
.COPY DSK:<DTA0:BOOT.PA
.R PAL8
*DSK:BOOT,DSK:BOOT<DSK:BOOT
.R BITMAP
*DSK:BOOT.MP<DSK:BOOT$
.R CREF
*DSK:BOOT.LS<DSK:BOOT.LS/X
.R PIP
*DSK:BOOT.LS/D<DSK:BOOT.LS,DSK:BOOT.MP
.PRINT DSK:BOOT.LS/H
.DEL DSK:BOOT.PA,DSK:BOOT.BN,DSK:*.MP,DSK:*.LS
.COPY DSK:<DTA0:PATCH.PA
.R PAL8
*DSK:PATCH,DSK:PATCH<DSK:PATCH
.R BITMAP
*DSK:PATCH.MP<DSK:PATCH$
.R CREF
*DSK:PATCH.LS<DSK:PATCH.LS/X
.R PIP
*DSK:PATCH.LS/D<DSK:PATCH.LS,DSK:PATCH.MP
.PRINT DSK:PATCH.LS/H
.DEL DSK:PATCH.PA,DSK:PATCH.BN,DSK:*.MP,DSK:*.LS
.COPY DSK:<DTA0:DTMARK.PA
.R PAL8
*DSK:DTMARK,DSK:DTMARK<DSK:DTMARK
.R BITMAP
*DSK:DTMARK.MP<DSK:DTMARK$
.R CREF
*DSK:DTMARK.LS<DSK:DTMARK.LS/X
.R PIP
*DSK:DTMARK.LS/D<DSK:DTMARK.LS,DSK:DTMARK.MP
.PRINT DSK:DTMARK.LS/H
.DEL DSK:DTMARK.PA,DSK:DTMARK.BN,DSK:*.MP,DSK:*.LS
.COPY DSK:<DTA0:TDMARK.PA
.R PAL8
*DSK:TDMARK,DSK:TDMARK<DSK:TDMARK
.R BITMAP
*DSK:TDMARK.MP<DSK:TDMARK$
.R CREF
*DSK:TDMARK.LS<DSK:TDMARK.LS/X
.R PIP
*DSK:TDMARK.LS/D<DSK:TDMARK.LS,DSK:TDMARK.MP
.PRINT DSK:TDMARK.LS/H
.DEL DSK:TDMARK.PA,DSK:TDMARK.BN,DSK:*.MP,DSK:*.LS
.COPY DSK:<DTA0:RK8MRK.PA
.R PAL8
*DSK:RK8MRK,DSK:RK8MRK<DSK:RK8MRK
.R BITMAP
*DSK:RK8MRK.MP<DSK:RK8MRK$
.R CREF
*DSK:RK8MRK.LS<DSK:RK8MRK.LS/X
.R PIP
*DSK:RK8MRK.LS/D<DSK:RK8MRK.LS,DSK:RK8MRK.MP
.PRINT DSK:RK8MRK.LS/H
.DEL DSK:RK8MRK.PA,DSK:RK8MRK.BN,DSK:*.MP,DSK:*.LS
.COPY DSK:<DTA0:RKEMRK.PA
.R PAL8
*DSK:RKEMRK,DSK:RKEMRK<DSK:RKEMRK
.R BITMAP
*DSK:RKEMRK.MP<DSK:RKEMRK$
.R CREF
*DSK:RKEMRK.LS<DSK:RKEMRK.LS/X
.R PIP
*DSK:RKEMRK.LS/D<DSK:RKEMRK.LS,DSK:RKEMRK.MP
.PRINT DSK:RKEMRK.LS/H
.DEL DSK:RKEMRK.PA,DSK:RKEMRK.BN,DSK:*.MP,DSK:*.LS
.COPY DSK:<DTA0:SYSGEN.PA
.R PAL8
*DSK:SYSGEN,DSK:SYSGEN<DSK:SYSGEN
.R BITMAP
*DSK:SYSGEN.MP<DSK:SYSGEN$
.R CREF
*DSK:SYSGEN.LS<DSK:SYSGEN.LS/X
.R PIP
*DSK:SYSGEN.LS/D<DSK:SYSGEN.LS,DSK:SYSGEN.MP
.PRINT DSK:SYSGEN.LS/H
.DEL DSK:SYSGEN.PA,DSK:SYSGEN.BN,DSK:*.MP,DSK:*.LS
.COPY DSK:<DTA0:ZEROES.PA
.R PAL8
*DSK:ZEROES,DSK:ZEROES<DSK:ZEROES
.R BITMAP
*DSK:ZEROES.MP<DSK:ZEROES$
.R CREF
*DSK:ZEROES.LS<DSK:ZEROES.LS/X
.R PIP
*DSK:ZEROES.LS/D<DSK:ZEROES.LS,DSK:ZEROES.MP
.PRINT DSK:ZEROES.LS/H
.DEL DSK:ZEROES.PA,DSK:ZEROES.BN,DSK:*.MP,DSK:*.LS
$MSG MOUNT COS 300 SOURCE DECTAPE #4 ON DRIVE 0
.COPY DSK:<DTA0:FORMC.PA
.R PAL8
*DSK:FORMC,DSK:FORMC<DSK:FORMC
.R BITMAP
*DSK:FORMC.MP<DSK:FORMC$
.R CREF
*DSK:FORMC.LS<DSK:FORMC.LS/X
.R PIP
*DSK:FORMC.LS/D<DSK:FORMC.LS,DSK:FORMC.MP
.PRINT DSK:FORMC.LS/H
.DEL DSK:FORMC.PA,DSK:FORMC.BN,DSK:*.MP,DSK:*.LS
.COPY DSK:<DTA0:FGBG?.PA,DTA0:OVERLA.PA
.R PAL8
*DSK:FGBG,DSK:FGBG<DSK:FGBG1,FGBG2,FGBG3,FGBG4/K
.R BITMAP
*DSK:FGBG.MP<DSK:FGBG$
.R CREF
*DSK:FGBG.LS<DSK:FGBG.LS/X/M
.R PIP
*DSK:FGBG.LS<DSK:FGBG.LS,DSK:CREFM2.LS,DSK:FGBG.MP
.PRINT DSK:FGBG.LS/H
.DEL DSK:FGBG.BN,DSK:*.MP,DSK:*.LS
.R PAL8
*DSK:OVERLA,DSK:OVERLA<DSK:OVERLA,FGBG1,FGBG2,FGBG3,FGBG4/K
.R BITMAP
*DSK:OVERLA.MP<DSK:OVERLA$
.R CREF
*DSK:OVERLA.LS<DSK:OVERLA.LS/X
.R PIP
*DSK:OVERLA.LS/D<DSK:OVERLA.LS,DSK:OVERLA.MP
.PRINT DSK:OVERLA.LS/H
.DEL DSK:FGBG?.PA,DSK:OVERLA.PA,DSK:OVERLA.BN,DSK:*.MP,DSK:*.LS
$END COS 300 SOURCE LISTINGS CONTROL