; ASY (8250/16550A "com" port) interrupt hooks

include	asmglobal.h
	extrn	doret:proc,asyint:far,eoi:proc,fpint:far

	.DATA
	extrn	Sssave:word
	extrn	Spsave:word
	extrn	Stktop

	.CODE
dbase	dw	@Data

; asy0vec - asynch channel 0 interrupt handler
	public	asy0vec
	label	asy0vec	far
	cld
	push	ds		; save on user stack
	mov	ds,cs:dbase	; establish interrupt data segment

	mov	Sssave,ss	; stash user stack context
	mov	Spsave,sp

	mov	ss,cs:dbase
	lea	sp,Stktop

	PUSHALL
	push	es
	call	eoi

	mov	ax,0		; arg for service routine
	push	ax
	call	asyint
	inc	sp
	inc	sp
	jmp	doret

; asy1vec - asynch channel 1 interrupt handler
	public	asy1vec
	label	asy1vec	far
	cld
	push	ds		; save on user stack
	mov	ds,cs:dbase	; establish interrupt data segment

	mov	Sssave,ss	; stash user stack context
	mov	Spsave,sp

	mov	ss,cs:dbase
	lea	sp,Stktop

	PUSHALL
	push	es
	call	eoi

	mov	ax,1		; arg for service routine
	push	ax
	call	asyint
	inc	sp
	inc	sp
	jmp	doret

; asy2vec - asynch channel 2 interrupt handler
	public	asy2vec
	label	asy2vec	far
	cld
	push	ds		; save on user stack
	mov	ds,cs:dbase	; establish interrupt data segment

	mov	Sssave,ss	; stash user stack context
	mov	Spsave,sp

	mov	ss,cs:dbase
	lea	sp,Stktop

	PUSHALL
	push	es
	call	eoi

	mov	ax,2		; arg for service routine
	push	ax
	call	asyint
	inc	sp
	inc	sp
	jmp	doret

; asy3vec - asynch channel 3 interrupt handler
	public	asy3vec
	label	asy3vec	far
	cld
	push	ds		; save on user stack
	mov	ds,cs:dbase	; establish interrupt data segment

	mov	Sssave,ss	; stash user stack context
	mov	Spsave,sp

	mov	ss,cs:dbase
	lea	sp,Stktop

	PUSHALL
	push	es
	call	eoi

	mov	ax,3		; arg for service routine
	push	ax
	call	asyint
	inc	sp
	inc	sp
	jmp	doret

; asy4vec - asynch channel 4 interrupt handler
	public	asy4vec
	label	asy4vec	far
	cld
	push	ds		; save on user stack
	mov	ds,cs:dbase	; establish interrupt data segment

	mov	Sssave,ss	; stash user stack context
	mov	Spsave,sp

	mov	ss,cs:dbase
	lea	sp,Stktop

	PUSHALL
	push	es
	call	eoi

	mov	ax,4		; arg for service routine
	push	ax
	call	asyint
	inc	sp
	inc	sp
	jmp	doret

; asy5vec - asynch channel 5 interrupt handler
	public	asy5vec
	label	asy5vec	far
	cld
	push	ds		; save on user stack
	mov	ds,cs:dbase	; establish interrupt data segment

	mov	Sssave,ss	; stash user stack context
	mov	Spsave,sp

	mov	ss,cs:dbase
	lea	sp,Stktop

	PUSHALL
	push	es
	call	eoi

	mov	ax,5		; arg for service routine
	push	ax
	call	asyint
	inc	sp
	inc	sp
	jmp	doret

; fp0vec - Fourport channel 0 interrupt handler
	public	fp0vec
	label	fp0vec	far
	cld
	push	ds		; save on user stack
	mov	ds,cs:dbase	; establish interrupt data segment

	mov	Sssave,ss	; stash user stack context
	mov	Spsave,sp

	mov	ss,cs:dbase
	lea	sp,Stktop

	PUSHALL
	push	es
	call	eoi

	mov	ax,0		; arg for service routine
	push	ax
	call	fpint
	inc	sp
	inc	sp
	jmp	doret

	end