.8086

.MODEL large

EXTRN int_to_vpu_:BYTE
PUBLIC _vpu_inthdlr_stack
PUBLIC call_int_to_vpu


vpudint_TEXT               SEGMENT BYTE PUBLIC USE16 'CODE'

call_int_to_vpu proc far
  mov cs:ss_save, ss
  mov cs:sp_save, sp
  mov ss, word ptr cs:_vpu_inthdlr_stack+2
  mov sp, word ptr cs:_vpu_inthdlr_stack

;  push es
  call far ptr int_to_vpu_
;  pop es

  mov ss, cs:ss_save
  mov sp, cs:sp_save

  retf
call_int_to_vpu endp

ss_save: dw 0
sp_save: dw 0
_vpu_inthdlr_stack: dd 0

vpudint_TEXT ENDS

END

