.TITLE	QIOR
	.LIST	MD,ME,TTM,MC
	.NLIST	TOC,SYM
 
Q.IOFN=2
Q.IOLU=4
Q.IOEF=5
Q.IOPR=6
Q.IOSB=10
Q.IOAE=12
Q.IOPL=14
 
.MACRO	QIO$R	DPBLK,FNC,LUN,EFN,PRI,ISB,AST,PRMLST,ERR
	.MACRO	MOVQ$	X,OFFSET
	.IF NB,X
		.IF DIF,<X>,<#0>
		MOV	X,DPBLK+Q.IO'OFFSET
		.IFF
		CLR	DPBLK+Q.IO'OFFSET
		.ENDC
	.ENDC
	.ENDM	MOVQ$
 
	.MACRO	MVBQ$	X,OFFSET
	.IF NB,X
		.IF DIF,<X>,<#0>
		MOVB	X,DPBLK+Q.IO'OFFSET
		.IFF
		CLRB	DPBLK+Q.IO'OFFSET
		.ENDC
	.ENDC
	.ENDM	MVBQ$
 
	.IF B,DPBLK
		.ERROR	; DPB NOT SPECIFIED TO QIO$R
	.IFF
		MOVQ$	FNC,FN
		MOVQ$	LUN,LU
		MVBQ$	EFN,EF
		.IIF NB,PRI,	MVBQ$	#0,PR
		MOVQ$	ISB,SB
		MOVQ$	AST,AE
		.IF NB <PRMLST>
			$$$ARG=0
			.IRP	P,<PRMLST>
				MOVQ$	P,PL+$$$ARG
				$$$ARG=$$$ARG+2
				.IIF LE 12.-$$$ARG	.MEXIT
			.ENDR
		.ENDC
		.MCALL	DIR$
		DIR$	#DPBLK,ERR
	.ENDC
.ENDM	QIO$R
 
	.MCALL	QIO$C
 
START:
	QIO$R	TTDPB,,#5,#5,,#IOSTAT,,<PARAM1,#5,,PARAM2>
	QIO$R	TTDPB,#IO.WBT
	QIO$R	TTDPB,,,,#0,#0,#0,<,,#0,PARAM1>
	QIO$R	TTDPB,,,,,,,<,,#8.>,ERROR
	QIO$R	PPDPB,#SF.SMC,#5,#5,,#IOSTAT,,<#P1,#P2,#P3,#P4,#P5,#P6,#P7>,ERR
	QIO$R	TTDPB,#IO.CCO,,,,,,<MESG,MSGEND-MESG,#0>
	QIO$R	,#SF.GMC
 
TTDPB:	QIO$C	IO.WLB,5,5,,IOSTAT,IOAST,<IOBUF,512,>
PPDPB:	QIO$C	IO.WVB,1,1,,IOSTAT,,<IOBUF,12,,OIBUF,1,0>
IOSTAT:	.BLKW	2
IOAST:ERROR:ERR:	HALT
IOBUF:	.BLKB	123.
OIBUF:	.BLKB	321.
MESG:	.ASCIZ	"MESSAGE"
MSGEND=.
 
	.END