home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
QBAS
/
VIDBASIC.ZIP
/
VDSPAT.ASM
< prev
next >
Wrap
Assembly Source File
|
1990-11-29
|
1KB
|
37 lines
;11/20/90
;============================================================================
; Copyright (C) Copr. 1990 by Sidney J. Kelly
; All Rights Reserved.
; Sidney J. Kelly
; 150 Woodhaven Drive
; Pittsburgh, PA 15228
; home phone 412-561-0950 (7pm to 9:30pm EST)
;============================================================================
DOSSEG
.MODEL MEDIUM, BASIC
.CODE
;=======================================================================
;DECLARE FUNCTION DSPATTRIB% (BYVAL Foreground%, BYVAL Background%)
;Takes Background color * 16 plus Foreground color
;to make an attribute used by the system routines
;allows Background% > 15, so can blink
;=======================================================================
EVEN
DSPATTRIB Proc FAR BASIC, FOREGROUND:PTR WORD, BACKGROUND:PTR WORD
Mov BX,FOREGROUND
Mov AX,BX
Mov BX,BACKGROUND
Mov DX,BX
Mov CL,4 ;multiply by 16 by shifting
Shl DL,CL ;left 2^4 times
Add AL,DL
Xor DX,DX ;cleared in case function defined
Xor AH,AH ;as long& or values too great used
Ret
DSPATTRIB ENDP
END