home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / CPROG / CEXPRESS.ZIP / SCREEN.ASM / CLRBLINK.ASM < prev    next >
Assembly Source File  |  1989-05-03  |  840b  |  35 lines
  1. ;void  clear_blink(code);
  2. ;  unsigned short  code;
  3.  
  4.     EXTRN  _memory_model:byte
  5.  
  6. _TEXT    SEGMENT BYTE PUBLIC 'CODE'
  7.     ASSUME CS:_TEXT
  8.     PUBLIC _clear_blink
  9. _clear_blink proc near
  10.     mov  bx,sp        ;BX pts to stack
  11.     cmp  _memory_model,0    ;near or far?
  12.     jle  begin        ;jump if near
  13.     inc  bx            ;else add 2 to BX
  14.     inc  bx            ;
  15. begin:    mov  al,ss:[bx+2]    ;get code
  16.     cmp  al,2        ;CGA?
  17.     jne  L1            ;jump ahead if not
  18.     mov  dx,3d8H        ;video controller port
  19.     mov  al,9        ;new value for register
  20.     out  dx,al        ;disable blinking
  21.     jmp  short L2        ;quit
  22. L1:    cmp  al,3        ;EGA?
  23.     jne  L2            ;quit routine if not
  24.     mov  ah,10h        ;EGA BIOS function
  25.     mov  al,3        ;subfunc to set blink
  26.     mov  bl,0        ;blink off
  27.     int  10h        ;go do it
  28. L2:    cmp  _memory_model,0    ;quit
  29.     jle  quit        ;
  30.     db   0CBh        ;RET far
  31. quit:    ret            ;RET near
  32. _clear_blink endp
  33. _TEXT    ENDS
  34.     END
  35.