home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TUR6_101.ZIP / V2.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-06-07  |  1.9 KB  |  31 lines
  1. ;--------------------------------------------------------------------
  2. ; Author       : Kevin Dahl                                         :
  3. ; Last Revised : June 7, 1986                                       :
  4. ;                                                                   :
  5. ; FILENAME - V2.ENH                                                 :
  6. ;                                                                   :
  7. ; CLRWIN                                                            :
  8. ;        This routine clears the current window on the screen that  :
  9. ;        is defined by Turbo                                        :
  10. ; ENTRY                                                             :
  11. ;        None                                                       :
  12. ;                                                                   :
  13. ; EXIT                                                              :
  14. ;        Nothing is returned                                        :
  15. ;--------------------------------------------------------------------
  16. clrwin        proc      near
  17.               push      bp                       ; save stack
  18.               mov       bp,sp
  19.               mov       cx,[0004h]               ; col & row of upper left corner
  20.               mov       dx,cs:[016Ah]            ; col & row of lower right corner
  21.               dec       dh                       ; adjust for absolute lower row
  22.               dec       dl                       ; adjust for absolute right col
  23.               mov       ax,0600h                 ; scroll down - clear window
  24.               mov       bh,[0008h]               ; attribute byte for window color
  25.               push      bp                       ; save base pointer
  26.               int       10h                      ; use BIOS scrolling services
  27.               pop       sp                       ; restore stack pointer
  28.               pop       bp
  29.               ret
  30. clrwin        endp
  31.