.TITLE	FPROT
	.MCALL	.FPROT,.CSISPC,.SFDAT,.EXIT,.PRINT
	.NLIST	BEX

START:	.CSISPC	#OUTSPC,#DEFEXT
	MOV	#1,%4
	CLR	%3
	MOV	(SP)+,%1
	BEQ	20$
1$:	MOV	(SP)+,%2
	CMPB	%2,#'P
	BEQ	10$
	CMPB	%2,#'U
	BNE	5$
	CLR	%4
	BR	10$
; Note: supply date as /D:month:day:year-72 !!!
5$:	CMPB	%2,#'D
	BNE	10$
	TST	%2
	BPL	10$
	ASH	#5,%3
	BIS	(SP)+,%3
10$:	SOB	%1,1$
20$:	.FPROT	#PAREA,#0,#OUTSPC,%4
	BCC	30$
	BISB	ERRBYT,PFAILN
	.PRINT	#PFAIL
30$:	.SFDAT	#DAREA,#0,#OUTSPC,%3
	BCC	40$
	BISB	ERRBYT,DFAILN
	.PRINT	#DFAIL
40$:	.EXIT

PAREA:	.BLKW	3
DAREA:	.BLKW	4
OUTSPC:	.BLKW	39.
DEFEXT:	.RAD50	/TXTTXTTXTTXT/

PFAIL:	.ASCII	/Protect failed /
PFAILN:	.ASCIZ	/0/
DFAIL:	.ASCII	/Date set failed /
DFAILN:	.ASCIZ	/0/
	.EVEN

	.END	START