; Recompile the network software if NETWRK changes (argh!)
.; Be sure the FAIL version of NETWRK is updated too!
.; To use this, say BATCH/NOW@TCPGEN to the monitor.
.
.Alias S,NET

.
.; User programs
.
.Prepare FTP/Compile
Swapping to SYS:FAIL.DMP
 FTP.FAI
Have you listed your changes at History: on page 2?

FTPSW(1),DIALSW(0),PTYSW(0),RSEXEC(0),LIMRIK(0),NEWPRO(0),DEBMOD(0)
GRFPRO(0),DPTSWT(0),DMFLG(1),FTVDIL(1),FTIP(1),VERBOSE(0)
   TTY:
FTPSW←←1	;this is the default, but make sure anyway
FTIP←←1		;this is the default, but make sure anyway
[D]
 FTP.FAI
FAIL:  FTP
   NETWRK.FAI
 FTP.FAI
LOADING

LOADER 40 PAGES

Exit
↑C
.Save SYS FTP
Job saved in 40 pages
↑C
.;;;Load IMP
.;;;Save SYS IMP
.Load NETWHO
Swapping to SYS:MIDAS.DMP
MIDAS:	NETWHO
LOADING

LOADER 4 PAGES

Exit
↑C
.Save SYS NETWHO
Job saved in 4 pages
↑C
.;;;Load RSEXEC
.;;;Save SYS RSEXEC
.Load SURVEY
Swapping to SYS:MIDAS.DMP
MIDAS:	SURVEY
LOADING

LOADER 4 PAGES

Exit
↑C
.Save SYS SURVEY
Job saved in 4 pages
↑C
.Load TALK
Swapping to SYS:MIDAS.DMP
MIDAS:	TALK
LOADING

LOADER 4 PAGES

Exit
↑C
.Save SYS TALK
Job saved in 4 pages
↑C
.Prepare TELNET
Swapping to SYS:MIDAS.DMP
MIDAS:	TELNET
FTDPYP (≠0 → display hacking) == 0
LOADING

LOADER 22 PAGES

Exit
↑C
.Save SYS TELNET
Job saved in 22 pages
↑C
.Prepare TELNET/Compile
Swapping to SYS:MIDAS.DMP
MIDAS:	TELNET
FTDPYP (≠0 → display hacking) == 1
DM simulator version
LOADING

LOADER 26 PAGES

Exit
↑C
.Save SYS DTN
Job saved in 26 pages
↑C
.
.; Server programs
.
.Load ECHSER
Swapping to SYS:MIDAS.DMP
MIDAS:	ECHSER
LOADING

LOADER 2 PAGES

Exit
↑C
.Save TCP007[NET,SYS]
Job saved in 2 pages
↑C
.Load DSCSER
Swapping to SYS:MIDAS.DMP
MIDAS:	DSCSER
LOADING

LOADER 2 PAGES

Exit
↑C
.Save TCP011[NET,SYS]
Job saved in 2 pages
↑C
.Load SYSSER
Swapping to SYS:MIDAS.DMP
MIDAS:	SYSSER
LOADING

LOADER 4 PAGES

Exit
↑C
.Save TCP013[NET,SYS]
Job saved in 4 pages
↑C
.Load DYTSER
Swapping to SYS:MIDAS.DMP
MIDAS:	DYTSER
LOADING

LOADER 4 PAGES

Exit
↑C
.Save TCP015[NET,SYS]
Job saved in 4 pages
↑C
.Load STASER
Swapping to SYS:MIDAS.DMP
MIDAS:	STASER
LOADING

LOADER 4 PAGES

Exit
↑C
.Save TCP017[NET,SYS]
Job saved in 4 pages
↑C
.Load LINSER
Swapping to SYS:MIDAS.DMP
MIDAS:	LINSER
LOADING

LOADER 4 PAGES

Exit
↑C
.Save TCP021[NET,SYS]
Job saved in 4 pages
↑C
.Load TSTSER
Swapping to SYS:MIDAS.DMP
MIDAS:	TSTSER
LOADING

LOADER 2 PAGES

Exit
↑C
.Save TCP023[NET,SYS]
Job saved in 2 pages
↑C
.Prepare FTPSER
Swapping to SYS:FAIL.DMP
 FTPSER.FAI
FAIL:  FTPSER
Have you listed your changes at History: on page 2?

To put up a new FTPSER, save core image as TCP025.DMP[NET,SYS].
   NETWRK.FAI
 FTPSER.FAI
LOADING

LOADER 36 PAGES

Exit
↑C
.Save TCP025[NET,SYS]
Job saved in 36 pages
↑C
.Prepare SMTPSR
Swapping to SYS:FAIL.DMP
 SMTPSR.FAI
FAIL:  SMTPSR
Have you listed your changes at History: on page 2?

To put up a new SMTPSR, save core image as TCP031.DMP[NET,SYS].
   NETWRK.FAI
 SMTPSR.FAI
LOADING

LOADER 36 PAGES

Exit
↑C
.Save TCP031[NET,SYS]
Job saved in 36 pages
↑C
.Load TIMSER
Swapping to SYS:MIDAS.DMP
MIDAS:	TIMSER
LOADING

LOADER 2 PAGES

Exit
↑C
.Save TCP045[NET,SYS]
Job saved in 2 pages
↑C
.Load FNGSER
Swapping to SYS:MIDAS.DMP
MIDAS:	FNGSER
LOADING

LOADER 4 PAGES

Exit
↑C
.Save TCP117[NET,SYS]
Job saved in 4 pages
↑C
.Load SUNSER
Swapping to SYS:MIDAS.DMP
MIDAS:	SUNSER
LOADING

LOADER 4 PAGES

Exit
↑C
.Save TCP131[NET,SYS]
Job saved in 4 pages
↑C
.Load SUPSER
Swapping to SYS:MIDAS.DMP
MIDAS:	SUPSER
LOADING

LOADER 6 PAGES

Exit
↑C
.Save TCP137[NET,SYS]
Job saved in 6 pages
↑C
.Load RSSER
Swapping to SYS:MIDAS.DMP
MIDAS:	RSSER
LOADING

LOADER 6 PAGES

Exit
↑C
.Save TCP365[NET,SYS]
Job saved in 6 pages
↑C
.;;;Load LAVSER
.;;;Save TCP371[NET,SYS]
.Load ARPSER
Swapping to SYS:FAIL.DMP
 ARPSER.FAI
FAIL:  ARPSER
   NETWRK.FAI
 NETWRK.FAI,  PAGE  2,  LINE  3
NETWRK.FAI on S,NET is being substituted for NETWRK.FAI on SUB,SYS./
     NETWRK.FAI
   NETWRK.FAI
 ARPSER.FAI
LOADING

LOADER 4 PAGES

Exit
↑C
.Save PUP131[NET,SYS]
Job saved in 4 pages
↑C
.
.; Clean up
.
.Delete *.REL/Q

Deleted:CHTSER REL
Deleted:FTP    REL
Deleted:NETWHO REL
Deleted:SURVEY REL
Deleted:TALK   REL
Deleted:ECHSER REL
Deleted:TELNET REL
Deleted:DSCSER REL
Deleted:SYSSER REL
Deleted:DYTSER REL
Deleted:STASER REL
Deleted:LINSER REL
Deleted:TSTSER REL
Deleted:FTPSER REL
Deleted:SMTPSR REL
Deleted:TIMSER REL
Deleted:FNGSER REL
Deleted:SUNSER REL
Deleted:SUPSER REL
Deleted:RSSER  REL
Deleted:ARPSER REL
Total space reclaimed = 37 Blk    26.3 Blk  71%  Free blocks = 489


Exit
↑C
.
.Alias HST,NET

.
.;Load HOST
.;Save SYS HOST
.Delete *.REL/Q


Exit
↑C
.
.K/F
Kjob
.