home *** CD-ROM | disk | FTP | other *** search
-
- if1
- INCLUDE model.mac
- endif
-
- header
-
- begdataseg
- EXTRN _EMSVer :byte
- enddataseg
-
- begcodeseg
- procstart _majver
- push bp
- mov bp,sp
- mov al,_EMSVer ; get EMSVer
- mov cl,4 ; shift top into bottom
- shr al,cl ; return bottom half
- pop bp
- ret
- procend _majver
-
- procstart _minver
- push bp
- mov bp,sp
- mov al,_EMSVer ; get EMSVer
- mov cl,4
- shl al,cl ; shift bottom into top
- shr al,cl ; shift back
- pop bp
- ret
- procend _minver
- endcodeseg
- END
-
-