Прочитать системное время и вывести на принтер

;     Составить программу тестирования параллельного порта, к которому подключен
;принтер. Если принтер не включен, то "Принтер не включен", если нет бумаги -
;"Нет бумаги", печатать сообщение "Тест прошел успешно". Прерывание по Esc.
 
STACKS SEGMENT Stack  'Stack'
       DW      64     DUP (?)
STACKS ENDS
 
DATAS  SEGMENT
       MES1   DB   'НЕТ ПРИНТЕРА',13,10,'$'
       MES2   DB   'НЕТ БУМАГИ',13,10,'$'
       MES3   DB   'ПРИНТЕР НЕ ГОТОВ',13,10,'$'
       MES4   DB   'ПРИНТЕР ГОТОВ',13,10,'$'
       SAV    DB   ?     ;байт состояния переллельного порта
   psetup  db '',10,13  ;ввод стоки и каретки в новую строку
line db 'mmmmmmmmmmmmm',0,'$' ;текстовый буфер для работы буферезированной информации
vvod db  '!' ;переменная для АСКИ кода символа
A dw 33d     ;вспомогательная перменная
DATAS  ENDS
 
CODES  SEGMENT PUBLIC
BEGIN:
       ASSUME  CS:CODES, DS:DATAS, SS:STACKS
       MOV     AX,STACKS
       MOV     SS,AX
       MOV     AX,DATAS
       MOV     DS,AX
       MOV     AH,02H ;ф-ция инициализации переллельного порта
       MOV     DX,00H ;номер параллельного порта(LPT1)
       INT     17H    ;Вызов 17-го прерывания 
       MOV     SAV,AH ;сохранение байта состояния принтера
       AND     AH,40H ;выделение 6-го бита байта состояния
       CMP     AH,40H ;сравнение этого бита с единицей(есть принтер или нет)
       JNE     NE1    ;если =0, то вывод сообщения, что принтера нет, если=1, то след проверка
       MOV     DX,OFFSET MES1
       JMP     RESU
NE1:
       MOV     AH,SAV
       AND     AH,20H ;проверка бита номер 5 байта сотояния
       CMP     AH,20H ;сравнение (есть ли бумаги)
       JNE     NE2
       MOV     DX,OFFSET MES2  ;если нет бумаги(=0), то вывод сообщения
       JMP     RESU
NE2:
       MOV     AH,SAV
       AND     AH,08H ;выделение 3-го бита
       CMP     AH,08H ; проверка этого бита на 1
       JNE     NE3    ;если нет ошибки, переходим на метку
       MOV     DX,OFFSET MES3 ; принтер не готов
       JMP     RESU
NE3:
       MOV     AH,SAV
       AND     AH,90H ;проверка 7-го и 4-го бита (свободен ли принтер)
       CMP     AH,90H ;сравнение              (нах-ся ли он в режиме ONLINE)
       JNE     EXIT   ;если один из битов =0, то на выход
       MOV     DX,OFFSET MES4 ;если все норм, то вывод сообщения
 
 
RESU:
       MOV     AH,09H
       INT     21H
EXIT:      ;построчная печать
mov bx,0    ;номер строки
cicl:
  mov cx,60d   ;цикл на 60 символов в строке
  
 
p_cir1:        ; цикл настройки принта
  mov ah,0     ; вывод символа на принтер
  mov al,vvod  ; АСКИ код выводимого символ
  mov dx,0      ; номер порта LPT1
  int 17h      ;печать символа
  inc vvod     ;АСКИ код следующего символа
 
loop p_cir1   ;печать символов в одной строке
inc bx        ;ПЕРЕХОД НА СЛЕД СТРОКУ
mov vvod,'!'  ;
mov cx,bx     ;загружаем текущее значение номера строки
sdvig:        ;цикл сдвига символов в строке(новая строка будет сдвинута)
inc vvod
loop sdvig
mov ah,0     ;перврд коретки в новую строчку  вывод символа
  mov al,psetup  ; выводимый символ
  mov dx,0      ; LPT1
  int 17h
  
cmp bx,40  ;проверка на 40 строк
jne cicl
mov bx,0
     ;после печати 40 строк - завершение программы
   
  
MOV     AX,4C00H
       INT     21H
 
CODES  ENDS
       END     BEGIN