?REMOVE TSS/PRT ?EXECUTE TSFILL/PRT ?FILE MCP=TSS/STUFF DISK SERIAL ?FILE INT=TSSINT/STUFF DISK SERIAL ?FILE DISK=TSS/PRT DISK ?REMOVE MCP/STUFF, MCP/DISK ?EXECUTE PATCH/MERGE ?FILE LINE=LINE PRINT ?DATA CARD $@ MERGE LIST CONFLICTS ZIP $. 36 PATCHES FOR MCP.XIII CONFLICTS $*EXECUTE ESPOL/DISK $*FILE STUFF=MCP/STUFF DISK $*FILE DISK=MCP/DISK DISK $*FILE TAPE=SYMBOL/MCP DISK SERIAL $*FILE LINE=LISTING/MCP BACK UP DISK $*DATA CARD $- $ TAPE STUFF LIST SINGLE PRT $ SET DATACOM=TRUE $ SET INQUIRY=FALSE $ SET DCSPO=TRUE $ SET DCLOG=FALSE $ SET DFX=TRUE $ SET DEBUGGING=FALSE $ SET CHECKLINK=TRUE $ SET DUMP=TRUE $ SET SAVERESULTS=FALSE $ SET AUXMEM=FALSE $ SET SHAREDISK=FALSE $ SET BREAKOUT=FALSE $ SET STATISTICS=FALSE $ SET RJE=FALSE $ SET B6500LOAD=FALSE $ SET DISKLOG=FALSE ?REMOVE DISK/INT,DISK/STUFF ?EXECUTE PATCH/MERGE ?FILE LINE=LINE PRINT ?DATA CARD $@ MERGE LIST CONFLICTS ZIP $. 8 PATCHES FOR INTRINSICS WITH CONFLICTS $*EXECUTE ESPOL/DISK $*STACK= 1024 $*FILE TAPE=SYMBOL/INTRINS SERIAL $*FILE STUFF=INT/STUFF DISK $*FILE DISK=DISK/INT $*FILE LINE=LINE PRINT $*CORE= 15000 $*DATA CARD $- DOLLAR CARDS FOR COMPILATION $ SET TIMESHARING=FALSE $ SET SHAREDISK=FALSE $ SET INQUIRY=FALSE $ TAPE LIST PRT SINGLE INTRINSIC STUFF ?EXECUTE W/FOR ?DATA CARD 0INT 0STUFF 0MCP 0STUFF ?REMOVE PRT/OLD ?CHANGE MCP/PRT TO PRT/OLD ?EXECUTE DCFILL/PRT ?FILE MCP=MCP/STUFF DISK SERIAL ?FILE INT=INT/STUFF DISK SERIAL ?FILE DISK=MCP/PRT DISK ?EXECUTE W/FOR ?DATA CARD 0INT 0DISK 0MCP 0DISK 0MCP 0PRT 0X 0X - PLEASE REBOOT NOW ?END