.TITLE	QFILE
	.MCALL	PRINT$
QFILE::				; ENTRY POINT
	TST	(R5)+		; BUMP PARAMETER POINTER
	MOV	@(R5)+,R0	; PUT FDB ADDRESS IN R0
	MOV	#DISPAT,R1	; PUT ADDRESS OF DISPATCH TABLE IN R1
	MOV	@(R5),R2	; PUT FORMS QUEUE IN R2
	ROL	R2		; MULTIPLY BY 2
	ADD	R2,R1		; ADD OFFSET TO DISPATCH TABLE
	JMP	@(R1)		; JUMP THROUGH DISPATCH TABLE
DISPAT:
	.WORD	QUEUE0		; FORMS 0 QUEUE
	.WORD	QUEUE1		; FORMS 1 QUEUE
	.WORD	QUEUEN		; AVAILABLE FOR EXPANSION
	.WORD	QUEUEN
	.WORD	QUEUEN
	.WORD	QUEUEN
	.WORD	QUEUE6
QUEUE0:
	PRINT$	,,,,,,0,1,		; SPOOL FILE TO FORMS 0 QUEUE
	RETURN
QUEUE1:
	PRINT$	,,,,,,1,1,		; SPOOL FILE TO FORMS 1 QUEUE
	RETURN
QUEUEN:
	RETURN
QUEUE6:
	PRINT$	,,,,,,6,1,		; spool file to forms 6 queue
	RETURN
        .END