Category : Files from Magazines
Archive   : TSRPLUS.ZIP
Filename : INIT.ASM

; ------------- init.asm

_data segment word public 'data'
extrn _old2f:dword
extrn _oldvideo:dword
_data ends

_text segment byte public 'code'
_codeend label byte ; --- address of the top of init code
public _sendvectors
public _codeend
extrn old2f:dword
extrn oldvideo:dword
; -- function to post old vector pointers into cs: space pointers
_sendvectors proc near
les bx,dword ptr ds:_old2f
mov word ptr cs:old2f+2,es
mov word ptr cs:old2f,bx
les bx,dword ptr ds:_oldvideo
mov word ptr cs:oldvideo+2,es
mov word ptr cs:oldvideo,bx
ret
_sendvectors endp

_text ends

end