.TITLE	JOBA	test job A
	.IDENT	/01.01/
	.LIST	ME
	.NLIST	CND
	.ENABL	REG
	.LIBRARY	/JOBCTL.SML/
	.LIBRARY	/MEMORY.SML/
	.LIBRARY	/SYSCLL.SML/
	.LIBRARY	/IOSYS.SML/
	.LIBRARY	/CALL.SML/
	.MCALL	$EXIT,$WAIT
	.MCALL	$SYS
	.MCALL	.IMAGE,.CALL,.ENTRY,.RETRN
	.MCALL	.IOSYS,.IOFUNC,.IOCLR,.IOERR
	.MCALL	$IOREQ,$OPEN,$CLOS,$WRIT
	.MCALL	$M$ALLO,$P$INIT

	.IOSYS
	.IOFUNC
	.IOERR

	.IMAGE	JOB$A

	.CSECT
JOB$A:	.ENTRY
	$M$ALLO	#0,#200,#^RUSR,#^RA$P,#^ROOL
	BCS	.
	$P$INIT	R0,#200,#20
	.IOCLR	#IORQP
	MOV	#IORQP,R4
	$CLOS	#IORQP
	BCS	.
2$:	$OPEN	#IORQP,#^RTTY,#^R000,#^RTTY
	BCC	3$
	$WAIT	#^RTTY,#^R000
	BR	2$
3$:	MOVB	R0,IORQP
1$:	$WRIT	#IORQP,#10,#GRUMPF
	BCC	1$
	$CLOS	#IORQP
	BCS	.
	$EXIT

	.PSECT	DATA
IORQP:	.BLKW	10
GRUMPF:	.ASCIZ	/grumpf. /

	.END	JOB$A