Драйвер: найти ошибки

DATA Segment byte public 'DATA'
   String DB 'Test printer!!!',13,10,0
   lpt_adr DW 0
DATA ENDS
CODE Segment byte public 'CODE'
ASSUME CS:CODE,DS:DATA,ES:DATA
 start:
        mov ax,data
        mov ds,ax
        push dx
        mov ax,40h
        mov dx,es:[08]
        mov lpt_adr,dx
        pop dx
        loop1:
        mov ah,ds:[bx]
        cmp ah,0h
        je exit
        call out_byte
        inc bx
        jmp loop1
        exit:
        mov ax,04Ch
        int 21h
        out_byte:
        push dx
        loop2:
        mov dx,lpt_adr
        inc dx
        test al,80h
        jz loop2
        dec dx
        mov al,ah
        out dx,al
        inc dx
        inc dx
        in al,dx
        and al,11111110b
        out dx,al
        or al,00000001b
        out dx,al
        and al,11111110b
        out dx,al
        pop dx
        ret
code ends
end start

mov ax,40h
mov es, ax
mov dx,es:[08]

out_byte:
        push dx
        mov dx, lpt_adr
        inc dx
loop2:
        in al, dx
        test al, 8  ; проверим на ошибку
        jnz pr_err
        test al,80h ; проверим на занятость
        jz loop2
 
        dec dx
        mov al,ah
        out dx,al   ; посылаем символ на принтер
        inc dx
        inc dx
        in al,dx
        and al,11111110b
        out dx,al   ; это как я понял стробирующие импульсы
        or al,00000001b
        out dx,al
        and al,11111110b
        out dx,al
        pop dx
pr_err:
; сообщение об ошибке
; и желательно какой нибудь флаг чтобы не продолжать цикл
        ret

test al, 8      ; проверим на ошибку

; Пример разработан на TASM.
DATA Segment byte public 'DATA'   ; Описываем сегмент
                                  ; данных
String   DB  'Test printer !!!',0Dh, 0Ah,0 ; выводимая строка
Lpt1_adr DW 0  ; Переменная для хранения базового адреса LPT1
 
DATA ENDS ; конец сегмента данных
 
 
; Сегмент кода - в нем расположим саму программу
CODE Segment byte public 'CODE'
ASSUME CS:CODE,DS:DATA,ES:DATA
 
START:   ; Начало программы
 mov ax, data ; установим ds на сегмент данных
 mov ds, ax
 push dx
 mov ax, 40h
 mov es, ax   ; в es - сегмент = 0040h
 mov  dx, es:[08] ; dx = базовый адрес порта lpt1
 mov lpt1_adr, dx ; запомнили адрес порта lpt1 в переменной lpt1_adr
 pop dx
LOOP1:          ; цикл печати строки
 mov ah, ds:[bx] ; прочитали очередной символ строки
 cmp ah, 0h      ; это конец строки ?
 je  exit        ; да, выход
 call out_byte   ; нет, печатаем его
 inc bx          ; на следующий символ
 jmp loop1       ; повторяем, пока не достигли конца строки
EXIT:            ; завершение программы
 mov ax,4C00h ; завершить с кодом возврата 0
 int 21h
 
;**** процедуры и функции программы ****
OUT_BYTE:   ; процедура вывода символа из ah на принтер с ожиданием
 push dx
 LOOP2:
  mov dx, lpt1_adr
  inc dx  ; адрес регистра состояния (lpt1_adr+1)
  in  al, dx  ; Читаем регистр состояния
  test al, 80h ; Проверим сигнал BUSY (<1> - принтер готов)
  jz  loop2   ; если нет, то повторим опрос
  dec dx      ; адрес регистра данных (lpt1_adr)
  mov al, ah  ; Загрузка передаваемого байта в AL
  out dx, al  ; Запись байта в регистр данных
  inc dx
  inc dx      ; адрес регистра управления (lpt1_adr+2)
  in  al, dx  ; Читаем регистр управления
  ; Формируем строб
  and al, 11111110b ; Бит 0 (Strobe):=0
  out dx, al   ; Запись в регистр управления
  or  al, 00000001b ; Бит 0 (Strobe):=1
  out dx, al   ; Запись в регистр управления
  and al, 11111110b ; Бит 0 (Strobe):=0
  out dx, al   ; Запись в регистр управления
  pop dx
 ret     ; выход в основную программу
code ends
end start

xor ah,ah
  int 16h

    Model   Tiny
    .Code
    Org 100h
 
Start:  mov ax, 40h
    mov es, ax
    mov bx, es:8
    xor ax, ax
    mov es, ax
    mov cx, es:408h
    mov dx, offset Moto
    cmp bx, cx
    je  _
    mov dx, offset Eth
_:  mov ah, 9
    int 21h
    ret
 
Moto    db  'Мотороллер - тормоз$'
Eth db  'Ethereal - тормоз$'
 
    End Start

    Model   Tiny
    .Code
    Org 100h
 
Start:  mov ax, 40h
    mov es, ax
    mov bx, es:8
    xor ax, ax
    mov es, ax
    mov cx, es:4008h
    mov dx, offset Eth
    cmp bx, cx
    je  _
    mov dx, offset Moto
_:  mov ah, 9
    int 21h
    ret
 
Moto    db  'Мотороллер - тормоз$'
Eth db  'Ethereal - тормоз$'
 
    End Start