      title lab20
code  segment
;     ╥хъёЄют√щ Ёхцшь,  int 10h
;
      assume  cs:code,ds:code
tabl_pal  db    0,1,1,3,4,5,6,7,56,57,58,59,60,61,61,63,40
begin proc far
      push ds
      mov  ax,0
      push ax
      mov  ax,code
      mov  ds,ax
      mov  es,ax
; режим
      mov    ah,0
      mov    al,0dh
      int    10h
; страница
      mov    ah,5
      mov    al,0
      int    10h
; палитра
      mov    ah,10h
      mov    al,2
      lea    dx,tabl_pal
      int    10h
; точки
      mov    cx,16
      mov    dx,25
cycle: mov   al,cl
       dec   al
       mov   ah,0ch
       int   10h
       loop  cycle
       mov     ah,0
       int     16h
; восстановить режим
       mov   ah,0
       mov   al,3
       int   10h
       ret
begin endp
code  ends
      end  begin

