home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / QBASIC / VIDBASIC.ZIP / VDSPAT.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-11-29  |  1.2 KB  |  37 lines
  1. ;11/20/90
  2.  
  3. ;============================================================================
  4. ;   Copyright (C) Copr. 1990 by Sidney J. Kelly
  5. ;           All Rights Reserved.
  6. ;           Sidney J. Kelly
  7. ;           150 Woodhaven Drive
  8. ;           Pittsburgh, PA 15228
  9. ;           home phone 412-561-0950 (7pm to 9:30pm EST)
  10. ;============================================================================
  11.  
  12. DOSSEG
  13. .MODEL MEDIUM, BASIC
  14. .CODE
  15.  
  16. ;=======================================================================
  17. ;DECLARE FUNCTION DSPATTRIB% (BYVAL Foreground%, BYVAL Background%)
  18. ;Takes Background color * 16 plus Foreground color
  19. ;to make an attribute used by the system routines
  20. ;allows Background% > 15, so can blink
  21. ;=======================================================================
  22.  
  23. EVEN
  24. DSPATTRIB Proc FAR BASIC, FOREGROUND:PTR WORD, BACKGROUND:PTR WORD
  25.     Mov     BX,FOREGROUND
  26.     Mov     AX,BX
  27.     Mov     BX,BACKGROUND
  28.     Mov     DX,BX
  29.     Mov     CL,4                ;multiply by 16 by shifting
  30.     Shl     DL,CL               ;left 2^4 times
  31.     Add     AL,DL
  32.     Xor     DX,DX               ;cleared in case function defined
  33.     Xor     AH,AH               ;as long& or values too great used
  34.     Ret
  35. DSPATTRIB  ENDP
  36. END
  37.