	.title	ctcast
	.mcall	astx$s
	.globl	intsrv
ctcast::
	mov	r0,-(sp)
	mov	r1,-(sp)
	mov	r2,-(sp)
	mov	r3,-(sp)
	mov	r4,-(sp)
	mov	r5,-(sp)
	call	intsrv			; call users interrupt service routine
	mov	(sp)+,r5
	mov	(sp)+,r4
	mov	(sp)+,r3
	mov	(sp)+,r2
	mov	(sp)+,r1
	mov	(sp)+,r0
	astx$s				; dismiss interrupt
	.end
