OSDev

VIDEO_AOR equ 0x3C0
...
VIDEO_ISR1 equ 0x3DA
...
VIDEO_MAXATTR equ 0x14

  ...
  mov esi,video.regvaltab

  mov edx,VIDEO_ISR1
  in al,dx

  mov dl,VIDEO_AOR and 0xFF
  mov al,VIDEO_MAXATTR

@@:
  out dx,al
  outsb
  dec al
  cmp al,0x10
  jae @b

@@:
  out dx,al
  out dx,al
  sub al,1
  jnc @b

  mov al,0x20
  out dx,al
  ...

video.regvaltab:
  db 0x00 ; 14
  db 0x08 ; 13
  db 0x0F ; 12
  db 0x00 ; 11
  db 0x04 ; 10

ATC_INDEX               equ     03C0h
crtc_addr       dw      ?               ; I/O address of CRTC (3D4h or 3B4h)

;----------------------------------------------------------------------
;       GetIndexRegister - Read the value of an indexed register
;
;       Entry:  DX = I/O port
;               AL = Index to read
;       Exit:   AH = Data read
;
;       DX and AL are preserved
;----------------------------------------------------------------------

        public  GetIndexRegister
GetIndexRegister        proc    near
        assume  ds:nothing, es:nothing
        out     dx,al
        mov     ah,al
        inc     dx
        in      al,dx
        dec     dx
        xchg    al,ah
        ret
GetIndexRegister        endp

;       Subfunction 003h:
;       ToggleIntensityBlinkBit - Set the intensity or blinking bit in the ATC mode register
;
;       Entry:  DS = Seg0
;               BL = Toggle state:
;                 0: Enable intensity
;                 1: Enable blinking
;       Exit:   None
;
        public  ToggleIntensityBlinkBit
ToggleIntensityBlinkBit proc    near
        assume  ds:Seg0, es:nothing
        push    dx
        mov     dx,[crtc_addr]
        add     dl,6
        cli            
        in  al,dx
        mov     dl,ATC_INDEX and 0ffh
        mov     al,030h
        call    GetIndexRegister        ; This leaves ATC in data state
        mov     al,bl
        and     al,1
        shl     al,3
        and     ah,0F7h
        or      al,ah
        out     dx,al
        mov     al,20h
        out     dx,al
        sti
        pop     dx
        ret
ToggleIntensityBlinkBit endp