Форум программистов, компьютерный форум, киберфорум
Assembler: DOS/Real Mode/16-bits
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 18.05.2012
Сообщений: 3
1

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

18.05.2012, 02:34. Показов 808. Ответов 2
Метки нет (Все метки)

Ребята помогите!У меня задание: Составить программу чтения информации из текстового файла и распечатки ее на принтере.Есть даже исходник программы как вывести на печать принтера, но доработать никак не могу!
Вот исходник:
Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
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
Помогите кто может!!!Заранее спасибо)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.05.2012, 02:34
Ответы с готовыми решениями:

Разработать программу в Delphi 7 для чтения текстового файла и определить количество абзацев из 5 строк.
Помогите пожалуйста составить программу!!!!: Разработать программу в Delphi 7 для чтения...

Простая печать одностраничного текстового файла на принтере
Нужно напечатать в одном случае при открытии формы, а в другом при нажатии кнопки одностраничный...

Составить программу шифрования русскоязычного текстового файла
Всем здравствуйте, помогите пожалуйста написать программу. Составить программу шифрования...

Составить программу, которая построчно печатает содержимое непустого текстового файла
Составить программу, которая построчно печатает содержимое непустого текстового файла, вставляя в...

2
650 / 337 / 37
Регистрация: 04.04.2012
Сообщений: 886
18.05.2012, 10:29 2
Есть код программы, которая выполняет команды, как из командной строки.
Что-то вроде copy txt.txt > prn. Распечатает на матричном принтере файл txt.txt.
1
116 / 136 / 0
Регистрация: 15.04.2012
Сообщений: 1,031
19.05.2012, 10:26 3
AFP, так можно и использовать Int 2eh. Досевую команду.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.05.2012, 10:26

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Составить программу, которая построчно печатает содержимое непустого текстового файла
Составить программу, которая построчно печатает содержимое непустого текстового файла, вставляя в...

Составить программу, которая подсчитывает наименьшее количество символов в строке текстового файла
Составить программу, которая подсчитывает наименьшее количество символов в строке текстового...

Чтения текстового файла по кускам
Добрый всем день! Помогите пожалуйста, разобраться с чтением файла по кускам. Есть текстовый файл,...

Чтения массива из текстового файла
У меня есть тхт файл который получился из Опен Офиса(нет у меня не чего кроме него) сл вида: ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.