Google
 

Trailing-Edge - PDP-10 Archives - k20v7d - utilities/p2011-make.mic
There is 1 other file named p2011-make.mic in the archive. Click here to see a list.
;
;	This Mic file creates a new P2011.CMD file from
;	PS:<UTILITIES>FE11.DIR to be used to install
;	Diagnostic magtape to the [6,11] area.
;
;	Note FE11.DIR must be already converted to 7-bit ascii.
;
;	Type "^P" to continue. (Type "A" to abort).
;
=^B
@ENA
@DEF DSK:
;
@VDIR <UTILITIES>P2011*
;
@VDIR <UTILITIES>FE11.DIR
;
@ERROR
!
;
@CONN <UTILITIES>
@TV <UTILITIES>FE11.DIR
@NOERROR
=S[6,11]S;0L-ZK
*<S;I0KI
>ZK0J
*<IDB0:[6,11]=FE:[340,33]S
>0K0J
*;XP2011.NEW
!
@ERROR
@SORT
*SORT/REC:50/KEY:1,50 P2011.NEW P2011.NEW
*EXIT
!
@NOERROR
@TV P2011.NEW
*<S[340,33]0XAE0XFGAGFLIFE:[340,33]GF-DI*/DEL
>0J
*;XP2011.NEW
;
@NOERROR
@COPY P2011.ASCII P2011.OLD
@COPY P2011.NEW P2011.ASCII
@ERROR
@RSXFMT
*CONVERT P2011.ASCII P2011.CMD
*EXIT
@
;
;
;	NOTE:	REFER TO KLAD20.BLD PROCEDURE FOR DIRECTIONS
;		FOR INSTALLING DIAGNOSTICS.
;
;	WARNING: Verify that P2011.NEW is valid before executing P2011.CMD!
;
@GOTO END
!
%ERR::
;
;	FATAL ERROR CAN'T CONTINUE
;
END::
;
;DONE!