home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGASM.ZIP / PROG017.ASM < prev    next >
Assembly Source File  |  1988-04-10  |  677b  |  20 lines
  1.  
  2. ;************************************************************************
  3. ; Select video mode                                                     *
  4. ; Entry: Mode - Mode to be selected                                     *
  5. ;************************************************************************
  6.  
  7. Mode    EQU     [BP+4]
  8.  
  9.         PUBLIC  _Set_Mode
  10.  
  11. _Set_Mode       PROC NEAR
  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
  19. _Set_Mode       ENDP
  20.