home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TUR6_101.ZIP / V13.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-06-07  |  1.6 KB  |  27 lines
  1. ;--------------------------------------------------------------------
  2. ; Author       : Kevin Dahl                                         :
  3. ; Last Revised : June 7, 1986                                       :
  4. ;                                                                   :
  5. ; FILENAME - V13.ENH                                                :
  6. ;                                                                   :
  7. ; INITVIDEO                                                         :
  8. ;        Initialize the video mode.  The screen is blanked.         :
  9. ;                                                                   :
  10. ; ENTRY                                                             :
  11. ;        [bp+4] = video mode to select.  (Range 0-7).  Range value  :
  12. ;                 not checked.                                      :
  13. ;                                                                   :
  14. ; EXIT                                                              :
  15. ;        Nothing is returned.                                       :
  16. ;--------------------------------------------------------------------
  17. initvideo     proc      near
  18.               push      bp                       ; save stack
  19.               mov       bp,sp
  20.               xor       ax,ax                    ; set ah = 0 for set mode
  21.               mov       al,[bp+4]                ; mode to select
  22.               int       10h
  23.               mov       sp,bp                    ; restore stack
  24.               pop       bp
  25.               ret       2                        ; remove params from stack
  26. initvideo     endp
  27.