Как правильно реализовать переключение видеостраниц в видеорежиме

use16
org 100h
 
 
    mov ax,0000h ; Инициализация мыши
    mov bx,0002h ; Количество клавиш
    int 33h
 
    mov ax,000Ch ; Установить обработчик событий
    mov cx,000Ch ; любое перемещение мыши
    mov dx,handler ; адрес обработчика
    int 33h
 
    mov ah,10h ; ждем нажатие любой кнопки
    int 16h
 
    mov ax,000Ch
    mov cx,0000h ; отменить обработчик
    int 33h
    ret ; конец программы
 
handler: ; обработчик
    mov ah,3 ;Определить состояние мыши
    int 33h
 
    cmp bx,0
    jg right
 
    mov ah,0
    mov al,12h
    int 10h
 
    mov dx,[currenty]
    mov cx,[linelength]
 
draw1:
  push cx
  mov ah,0Ch
  mov al,[color]
  mov bh,0
  mov cx,[currentx]
  int 10h
  add [currentx],1
  pop cx
  loop draw1
 
  mov dx,[currenty]
  mov cx,[linelength]
 
draw12:
  push cx
 
  mov ah,0Ch
  mov al,[color]
  mov bh,0
  mov cx,[currenty]
  int 10h
  add dx,1
  pop cx
  loop draw12
 
  mov dx,[currenty1]
  mov cx,[linelength]
 
draw13:
  push cx
 
  mov ah,0Ch
  mov al,[color]
  mov bh,0
  mov cx,[currentx]
  int 10h
  sub [currentx],1
  pop cx
  loop draw13
 
  mov dx,[currenty1]
  mov cx,[linelength]
 
draw14:
  push cx
 
  mov ah,0Ch
  mov al,[color]
  mov bh,0
  mov cx,[currentx1]
  int 10h
  sub dx,1
  pop cx
  loop draw14
 
  mov dx,[currenty]
  mov cx,[linelength1]
 
draw15:
  push cx
 
  mov ah,0Ch
  mov al,[color]
  mov bh,0
  mov cx,[currentx]
  int 10h
  add [currentx],1
  sub dx,1
  pop cx
  loop draw15
 
   mov dx,[currenty2]
   mov cx,[linelength1]
 
draw16:
  push cx
 
  mov ah,0Ch
  mov al,[color]
  mov bh,0
  mov cx,[currentx2]
  int 10h
  add [currentx2],1
  add dx,1
  pop cx
  loop draw16
 
  jmp exit
 
right:
   mov ah,0
   mov al,12h
   int 10h
 
   mov dx,[currenty]
   mov cx,[linelength]
 
draw2:
  push cx
  mov ah,0Ch
  mov al,[color2]
  mov bh,1
  mov cx,[currentx]
  int 10h
  add [currentx],1
  pop cx
  loop draw2
 
  mov dx,[currenty]
  mov cx,[linelength]
 
draw22:
  push cx
  mov ah,0Ch
  mov al,[color2]
  mov bh,1
  mov cx,[currenty]
  int 10h
  add dx,1
  pop cx
  loop draw22
 
  mov dx,[currenty1]
  mov cx,[linelength]
 
draw23:
  push cx
  mov ah,0Ch
  mov al,[color2]
  mov bh,1
  mov cx,[currentx]
  int 10h
  sub [currentx],1
  pop cx
  loop draw23
 
  mov dx,[currenty1]
  mov cx,[linelength]
 
draw24:
  push cx
  mov ah,0Ch
  mov al,[color2]
  mov bh,1
  mov cx,[currentx1]
  int 10h
  sub dx,1
  pop cx
  loop draw24
 
  mov dx,[currenty]
  mov cx,[linelength1]
 
draw25:
  push cx
  mov ah,0Ch
  mov al,[color2]
  mov bh,1
  mov cx,[currentx]
  int 10h
  add [currentx],1
  sub dx,1
  pop cx
  loop draw25
 
   mov dx,[currenty2]
   mov cx,[linelength1]
 
draw26:
  push cx
  mov ah,0Ch
  mov al,[color2]
  mov bh,1
  mov cx,[currentx2]
  int 10h
  add [currentx2],1
  add dx,1
  pop cx
  loop draw26
 
exit:
    retf
;-----------------
currentx dw 100
currenty dw 100
 
 
color db 2
color2 db 3
 
linelength dw 50
linelength1 dw 25
 
currenty1 dw 150
currentx1 dw 150
 
 
currentx2 dw 125
currenty2 dw 75