	.ENABLE SUBSTITUTION
	.SETS DA ""
	.SETS PR ""
	.SETS CR ""
	.SETN N 1
.LOOP:
	.IF P'N' = "DEBUG" .SETS DA "/DA"
	.IF P'N' = "PRIV" .SETS PR "/PR:0"
	.IF P'N' = "CREF" .SETS CR "/CR"
	.INC N
	.IF N LE <STRLEN> .GOTO LOOP
.;
	MAC DSKPAT,DSKPAT/-SP'CR'=LB:[1,1]EXEMC/ML,SY:'<UIC>'DSKPAT
	.IF <EXSTAT> <> 1 .STOP
	.IF P1 NE "" .GOTO MAKFIL
	.TESTFILE DSKPAT.TKB
	.IF <FILERR> = 1 .GOTO TKB
.MAKFIL:
	.OPEN DSKPAT.TKB
	.DATA ; Build Disk Block Patcher - V003B
	.DATA ;
	.DATA DSKPAT'DA''PR',DSKPAT/-SP=DSKPAT
	.DATA /
	.DATA UNITS=4
	.DATA ; LUN 1 = Command input, LUN 2&3 = Dump devices, LUN 4 = Disk
	.DATA ASG=TI:1
	.DATA ASG=TI:2
	.DATA ASG=LP:3
	.DATA ASG=NL:4
	.DATA //
	.CLOSE
.TKB:
	TKB @DSKPAT.TKB
