PDP-10 Archive: uetp/lib/red-ts-save.mic from red405a2

Trailing-Edge - PDP-10 Archives - red405a2 - uetp/lib/red-ts-save.mic
There is 1 other file named red-ts-save.mic in the archive. Click here to see a list.
;<UETP.LIB>RED-TS-SAVE.MIC.1, 11-Jun-79 10:54:50, EDIT BY EIBEN
;Marlboro only !! creates the original RED-Backup tape 1
@DAYTIME
@terminal no page
@ENA
@DEF MAG: 'a
@ASS MAG:
@DEF PACK: ps:
@REW MAG:
@COPY PACK:<SYSTEM>KS10.RAM (TO) MAG:
@COPY PACK:<SYSTEM>MTBOOT.RDI (TO) MAG:
@COPY PACK:<SYSTEM>MONITR.EXE (TO) MAG:
@GET PACK:<SYSTEM>EXEC.EXE
@SAV MAG:
@COPY PACK:<UETP.LIB>INSTALL.CMD MAG:
@GET PACK:<SUBSYS>MIC.EXE
@SAVE MAG:
@COPY PACK:<UETP.LIB>RESTORE.MIC MAG:
@GET PACK:SYS:DLUSER.EXE
@SAV MAG:
@copy pack:<uetp.lib>users.txt mag:
@GET PACK:SYS:DUMPER.EXE
@SAV MAG:
*START
*TA MAG:
*SSNAME RED405-Original :<diagnostics>
*save pack:<DIAGNOSTICS>*.* ps:<DIAGNOSTICS>*.*
*SSNAME RED405-Original :<f-s>
*save pack:<F-S>*.* ps:<F-S>*.*
*SSNAME RED405-Original :<red>
*save pack:<RED>*.* ps:<RED>*.*
@ren <subsys>system.cmd <RED>system.cmd
@copy <uetp.lib>system.cmd <subsys>system.cmd.1
@cont
*SSNAME RED405-Original :<subsys>
*save pack:<SUBSYS>*.* ps:<SUBSYS>*.*
@rename <red>system.cmd <subsys>system.cmd.1
@del <system>dump.exe,<system>error.sys,<system>dump.cpy
@rename <system>sysjob.run <red>sysjob.run
@rename <system>4-config.cmd <red>4-config.cmd
@rename <system>ptycon.ato <red>ptycon.ato
@copy <uetp.lib>sysjob.run <system>sysjob.run.1
@copy <uetp.lib>4-config.cmd <system>4-config.cmd.1
@copy <uetp.lib>ptycon.ato <system>ptycon.ato.1
@cont
*SSNAME RED405-Original :<system>
*save pack:<SYSTEM>*.* ps:<SYSTEM>*.*
@rena <red>sysjob.run <system>sysjob.run.1
@rename <red>4-config.cmd <system>4-config.cmd.1
@rename <red>ptycon.ato <system>ptycon.ato.1
@undelete <system>*.*
@rename <uetp.lib>reliab.cmd <red>reliab.cmd
@copy <uetp.lib>original-reliab.cmd <uetp.lib>reliab.cmd.1
@cont
*SSNAME RED405-Original :<uetp.lib>
*save pack:<uetp.lib>*.* ps:<uetp.lib>*.*
@rename <red>reliab.cmd <uetp.lib>reliab.cmd.1
@cont
*SSNAME RED405-Original :<rel>
*save pack:<REL>*.* ps:<REL>*.*
*SSNAME RED405-Original :<uetp.mic>
*save pack:<uetp.MIC>*.* ps:<uetp.MIC>*.*
*SSNAME RED405-Original :<unsupported>
*save pack:<UNSUPPORTED>*.* ps:<UNSUPPORTED>*.*
*rew
*ex
@dea mag:
@CONNECT
@reset
@DEF MAG:
@DEF PACK:
@disable
@unload 'A
@DAYTIME
@terminal page