home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / MOUSE / MSMOUSE1.ZIP / EGA.ZIP / FORTRAN.ZIP / MTESTASM.ASM < prev   
Encoding:
Assembly Source File  |  1989-02-10  |  438 b   |  21 lines
  1. ; MTESTASM.ASM
  2. ;
  3. ; SUB1 - Sets video mode 6.  This routine is called
  4. ; from the FORTRAN program MTEST.FOR and should be
  5. ; linked with it.
  6.  
  7. mickey  segment para public 'CODE'
  8.         assume  cs:mickey
  9.         public  SUB1
  10. SUB1    proc    far
  11.         push    bp
  12.         mov     bp, sp
  13.         mov     ax, 6
  14.         int     10h
  15.         mov     sp, bp
  16.         pop     bp
  17.         ret
  18. SUB1    endp
  19. mickey  ends
  20.         end
  21.