Системное программное обеспечение. Рощин А.В. - 104 стр.

                                       104



      db     0,0abh,0ffh,0
      db     0,3fh,0fch,0
      db     0,0fh,0fch,0
      db     15h,0fh,0fch,0
      db     55h,55h,55h,0
      db     55h,55h,55h,0
colr  db     0,5,50h,0
      db     0,55h,0f5h,0
      db     5,55h,0fdh,50h
      db     15h,7fh,0ffh,40h
      db     55h,0ffh,0ffh,80h
      db     55h,0ffh,0feh,80h
      db     57h,0ffh,0feh,3fh
      db     3fh,0ffh,0ffh,0ffh
      db     3fh,0feh,0ffh,0f0h
      db     0fh,0ffh,0bfh,0c0h
      db     0,0ffh,0eah,0
      db     0,3fh,0fch,0
      db     0,3fh,0f0h,0
      db     0,3fh,0f0h,54h
      db     0,55h,55h,55h
      db     0,55h,55h,55h
start1:                     ; Установка видеорежима
        mov ah,0            ; Функция установки видеорежима
        mov al,5            ; Граф. реж. CGA 320 * 200 точек
        int  10h
        mov ah,0bh          ; Установка палитры
        mov bx,102h
        int  10h
        mov di,addr
        lea  si,colf
st2: call sprit0
        call sprite
; Сохранение исходных координат
st0: mov ax,addr
        mov addr0,ax
; Чтение клавиатуры
        call kbin
        cmp ah,1 ; Скан-код = Esc ?
        jnz  st3     ; Нет
        int  20h ; Выход при нажатии Esc
st3: cmp ah,48h             ; Вверх ?
        jnz  st4
        sub addr,80*2       ; Вверх на 4 строки
        lea  si,colb
        jmp st2
st4: cmp ah,50h             ; Вниз ?
        jnz  st5
        add addr,80*2       ; Вниз на 4 строки
        lea  si,colf