! THIS COMMAND FILE IS USED TO RE-MAKE TECO36
PIP *.OBJ;*/DE/NM,*.LST;*,*.TSK;*,*.MAP;*
ASN NL:=LS:
! CORTEC.CMD - APPLY FIXES TO BASE LEVEL OF TECO V36
!
.TESTFILE TEC.VGB
.IF <FILERR> NE 1 PIP TEC.VGB;1/CD=TEC.OLB
.IF <FILERR> NE 1 PIP TEC.VGB;1/PR/SY:R/OW:R/GR:R/WO:R
;PIP TEC.OLB;*/DE

.TESTFILE CRTRUB.VGN;1
.IF <FILERR> NE 1 PIP CRTRUB.VGN;1=CRTRUB.MAC;1
SLP @CRTRUB.SLP

.TESTFILE EXIT.VGN;1
.IF <FILERR> NE 1 PIP EXIT.VGN;1=EXIT.MAC;1
SLP @EXIT.SLP

.TESTFILE GETFLS.VGN;1
.IF <FILERR> NE 1 PIP GETFLS.VGN;1=GETFLS.MAC;1
SLP @GETFLS.SLP

;.TESTFILE GETPUT.VGN;1
.;.IF <FILERR> NE 1 PIP GETPUT.VGN;1=GETPUT.MAC;1
.;SLP @GETPUT.SLP

; "LISTEN" ONLY NEEDED FOR IAS & 11D
.TESTFILE LISTEN.VGN;1
.IF <FILERR> NE 1 PIP LISTEN.VGN;1=LISTEN.MAC;1
SLP @LISTEN.SLP

.TESTFILE RUBOUT.VGN;1
.IF <FILERR> NE 1 PIP RUBOUT.VGN;1=RUBOUT.MAC;1
SLP @RUBOUT.SLP

.TESTFILE TECINI.VGN;1
.IF <FILERR> NE 1 PIP TECINI.VGN;1=TECINI.MAC;1
SLP @TECINI.SLP


.TESTFILE TECOIO.VGN;1
.IF <FILERR> NE 1 PIP TECOIO.VGN;1=TECOIO.MAC;1
SLP @TECOIO.SLP

; "TIAST" FOR IAS & 11D
.TESTFILE TIAST.VGN;1
.IF <FILERR> NE 1 PIP TIAST.VGN;1=TIAST.MAC;1
SLP @TIAST.SLP

.TESTFILE TTYOUT.VGN;1
.IF <FILERR> NE 1 PIP TTYOUT.VGN;1=TTYOUT.MAC;1
SLP @TTYOUT.SLP
MAC @TIOASM
.IF <EXSTAT> NE 1 .STOP
PIP TEC.OLB/NV=TEC.VGB
LBR TEC/RP=CRTRUB,EXIT,GETFLS,LISTEN,RUBOUT,TTYOUT,TIAST,TECINI,TECOIO
; PATCH.CMD--APPLY THE PATCHES TO TECO MODULES
; these are for making split-screen better
MAC SCROLLPAT,SCROLLPAT/-SP=SCROLLPAT
MAC TECOPAT,TECOPAT/-SP=TECOPAT
PIP TECO.OBJ;*/DE/NM,SCROLL.OBJ;*
PIP SCRINS.OBJ;*/DE/NM,SCREEN.OBJ;*
LBR TECO.OBJ;1=TEC.VGB/EX:TECO
LBR SCROLL.OBJ;1=TEC.VGB/EX:SCROLL
PAT TECO;2=TECO;1,TECOPAT
PAT SCROLL;2=SCROLL;1,SCROLLPAT
LBR TEC.OLB/RP=TECO,SCROLL
TKB @TECBLD
TKB @TECFCSBLD
PIP *.MAC;777/DE
PIP *.OBJ;*/DE/NM
