;
;	TOMCON3.A86  by Y.Kurihara (Nif PDC01620)
;		INT 29H 割り込みのＣ言語インタフェース部
;

CGROUP	GROUP	TEXT

TEXT    CSEG
TSR_ID_::	DB	'-TOMCON-'
new_sp_::	RS	2
new_ds_::	RS	2
new_es_::	RS	2
new_ss_::	RS	2
save_sp_::	RS	2
save_ss_::	RS	2

_int29_::
	MOV   CS:[save_ss_].W,SS
	MOV   CS:[save_sp_].W,SP
	MOV   SS,CS:[new_ss_].W
	MOV   SP,CS:[new_sp_].w
	PUSH  AX
	PUSH  BX
	PUSH  CX
	PUSH  DX
	PUSH  SI
	PUSH  DI
	PUSH  BP
	PUSH  DS
	PUSH  ES
	MOV DS,CS:[new_ds_].W
	MOV ES,CS:[new_es_].W
	CALL int29_
	POP  ES
	POP  DS
	POP  BP
	POP  DI
	POP  SI
	POP  DX
	POP  CX
	POP  BX
	POP  AX
	MOV   SS,CS:[save_ss_].W
	MOV   SP,CS:[save_sp_].W
	IRET

	EXTRN	int29_

	END