.include "reg.s11"
	.include "cons.s11"
	.include "ascii.s11"
. = 200
	jmp	start
. = 1000
stacktop:
start:
	mov	#stacktop,sp
	mov	#foo,@#reg_pirq_vector
	mov	#340,@#reg_pirq_vector+2
	spl	7
	mov	#040000,@#reg_pirq
	clr	@#reg_pirq
	spl	1
	mov	#040000,@#reg_pirq
	mov	#bad_str,-(sp)
	jsr	pc,puts
	halt
	br	start
foo:	mov	#good_str,-(sp)
	jsr	pc,puts
	halt
	br	start
puts:
	mov	r0,-(sp)
	mov	4(sp),r0
	clr	-(sp)
putsl:	movb	(r0)+,(sp)
	beq	putsx
	jsr	pc,putc
	br	putsl
putsx:	tst	(sp)+
	mov	(sp)+,r0
	rts	pc
putc:
	bit	#cons_ocsr_rdy,@#cons_ocsr
	beq	putc
	movb	2(sp),@#cons_obuf
	rts	pc
bad_str:
	.asciz	<CR><LF>/PIRQ broken/
good_str:
	.asciz	<CR><LF>/PIRQ works/