home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGASM.ZIP / PROG017P.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-04-17  |  449 b   |  20 lines
  1.  
  2. ;************************************************************************
  3. ; Select video mode                            *
  4. ; Entry: Mode - Mode to be selected                    *
  5. ;************************************************************************
  6.  
  7. Mode    EQU    [BP+6]
  8.  
  9.     PUBLIC    Set_Mode
  10.  
  11. Set_Mode    PROC FAR
  12.     PUSH    BP
  13.     MOV    BP,SP
  14.     MOV    AL,Mode         ;Fetch mode number
  15.     XOR    AH,AH            ;Function = SELECT MODE
  16.     INT    10H            ;Ask BIOS to set the mode
  17.     POP    BP
  18.     RET    2
  19. Set_Mode    ENDP
  20.