Составить программу чтения информации из текстового файла и распечатки ее на принтере

STCK Segment Stack
dw 64 dup(?)
STCK EndS
DATA Segment
Sym db ?
Ch db '!'
STRING db 'Тест прошел успешно',13,10,'$'
MSG_Error db 'Printer not ready',13,10,'$'
New_In DB 10,13, 'Входные данные &'
New_Out DB 10,13, 'Выходные данные &'
DATA EndS
Code Segment
Assume CS:Code,DSata,SS:Stck
Ready PROC
BEG:
Mov DX,379h ;адрес порта состояния 379h
in AL,DX ;чтения байта состояния
Cmp AL,7Fh
Jne NEXT1
CALL Error
Mov AH,4Ch
Int 21h 
NEXT1:
Mov CX,0FFFFh ;
WAIT1: ;задержка на ответ принтера о готовности
Loop WAIT1 ;
Mov DX,379h ;379h
Mov CX,0FFFFh
BUSY:
in AL,DX ;чтения байта состояния
AND AL,10000000b ;принтер занят, если 7-й бит = 0
Cmp AL,10000000b
Je NEXT4
Loop BUSY
NEXT4:
;печать символа
Mov DX,37Ah ;адрес порта управления 37Ah
in AL,DX
Mov AH,AL ;сохранение старого слова управления
OR AL,00000001b ;установление 0-го бита для печати
out DX,AL ;печать символа
Mov AL,Sym
Mov DX,378h ;адрес порта данных 378h
out DX,AL ;посылка символа в порт данных
Mov AL,AH
Mov DX,37Ah ;адрес порта управления 37Ah
AND AL,0FEh ;сброс 0-го бита
out DX,AL
ret
Ready EndP
Error:
Mov AH,09h
Mov DX,offset MSG_Error
Int 21h
ret
Main PROC Far
Push DS
Xor AX,AX
Push AX
Mov AX,Data
Mov DS,AX
Mov SI,0
nx:
Mov AL,STRING[SI]
Mov Sym,AL
Cmp Sym,'$'
Je EndOfLine
CALL Ready
Inc SI
Jmp nx
EndOfLine:
Mov AH,4Ch
Int 21h
Main EndP
Code EndS
End Main