.MACRO	SPBLK$	TASK,ID,OP,MES,LEN,LUN,EVF
	.MCALL	SPOFF$,RAD50$,CWORD$,FDBDF$,FDRC$A,FDBK$A,FDOP$A
	.IIF	NB,LUN,SP.LUN=LUN
	.IIF	NB,EVF,SP.EVF=EVF
	SPOFF$
...PC1=.
...PC3=.
	RAD50$	<TASK>,2
	.IF	NB,ID
		RAD50$	<ID>,3
	.IFF
		.RAD50	/SPOOL /
		.WORD	0
	.ENDC
	CWORD$	<OP>,SP.OP
	CWORD$	<MES>,SP.MES+2
	CWORD$	<LEN>,SP.MES
	CWORD$	256.,SP.BFL
.=...PC1+SP.FDB
	FDBDF$
	FDRC$A	FD.RWM
	FDBK$A	...PC3+SP.BUF,512.,,SP.EVF
	FDOP$A	SP.LUN,,,FO.WRT
.=...PC3+S.SPB
	.ENDM