home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung 2 / Power-Programmierung CD 2 (Tewi)(1994).iso / c / library / dos / diverses / cexpress / screen / setblink.asm < prev    next >
Encoding:
Assembly Source File  |  1989-05-03  |  835 b   |  35 lines
  1. ;void  set_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 _set_blink
  9. _set_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+4]    ;get code
  16.     cmp  al,2        ;CGA?
  17.     jne  L1            ;jump ahead if not
  18.     mov  dx,3d8H        ;video controller port
  19.     mov  al,41        ;new value for register
  20.     out  dx,al        ;enable 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        ;subfunction to set blink
  26.     mov  bl,1        ;blink ON
  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. _set_blink endp
  33. _TEXT    ENDS
  34.     END
  35.