home *** CD-ROM | disk | FTP | other *** search
- ; FUNCTION BORDER
- ; USAGE: BORDER(N)
- ; N IS THE COLOR NUMBER TO WHICH YOU WANT THE BORDER SET:
- ;
- ; 0 Black 8 Dark grey
- ; 1 Blue 9 Light blue
- ; 2 Green 10 Light green
- ; 3 Cyan 11 Light cyan
- ; 4 Red 12 Light red
- ; 5 Magenta 13 Light magenta
- ; 6 Brown 14 Yellow
- ; 7 Light grey 15 Bright white
-
- PUBLIC BORDER
-
- EXTRN _PARNI:FAR
-
- CODESG SEGMENT BYTE 'PROG'
- ASSUME CS:CODESG
-
- BORDER PROC FAR
-
- ; INITIALIZATION
- PUSH BP
- MOV BP,SP
-
- ; GET PARAMETER
- MOV AX,1
- PUSH AX
- CALL _PARNI
- ADD SP,2
-
- ; MOVE COLOR NUMBER INTO BH AND
- ; SET UP REGISTERS FOR INT 10H CALL
- MOV BH,AL
- MOV AH,10H
- MOV AL,1
- INT 10H
-
- POP BP
- RET
- BORDER ENDP
- CODESG ENDS
- END