VPF::Вывод на печать - Форум программистов

udjal

Дата 2.11.2007, 15:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 2.11.2007

Репутация: нет
Всего: нет

как произвести вывод на печать через принтер с помощью turboasm

remax

Дата 6.1.2008, 21:48 (ссылка)

(нет голосов)

Загрузка ...

Доцент

Профиль
Группа: Участник Клуба
Сообщений: 686
Регистрация: 7.4.2002
Где: Украина, Харьков

Репутация: нет
Всего: 5

Есть такой пример

Код



;                     ЛИСТИНГ 7.1
;    Процедуры для вывода символа и посылки команды
;                   на принтер LPT1
;
; Автор текста программы Кулаков Владимир Геннадьевич.
; Файл list7_01.inc, 24.05.2002.

DATASEG
PErrTxt DB 12,27,"Принтер не готов к печати",0
ENDS

CODESEG
;*****************************
;* ВЫВЕСТИ СИМВОЛ НА ПРИНТЕР *
;* Параметры:                *
;* AL - код символа.         *
;*****************************
PROC OutCharToLPT1 near
        pusha
; Вывести символ на печать
        mov     AH,0
        mov     DX,0
        int     17h
        test    AH,00101001b
        jnz     @@PrintingError
        popa
        ret
; ВЫДАТЬ СООБЩЕНИЕ ОБ ОШИБКЕ И ВЫЙТИ ИЗ ПРОГРАММЫ
@@PrintingError:
        ; Вывести сообщение об ошибке
        MFatalError PErrTxt
ENDP OutCharToLPT1

;******************************************
;*       ПОСЛАТЬ КОМАНДУ НА ПРИНТЕР       *
;* Параметры:                             *
;* DS:SI - указатель на строку команды.   *
;* Первый байт строки содержит количество *
;* байтов команды, посылаемых на принтер. *
;******************************************
PROC OutCommandToLPT1 near
        pusha
        cld
; Загрузить счетчик байтов команды в CX
        lodsb
        xor     CX,CX
        mov     CL,AL
@@OutNextByte:
        lodsb
        call    OutCharToLPT1
        loop    @@OutNextByte
        popa
        ret
ENDP OutCommandToLPT1
ENDS

--------------------

Как бы ты не старался быть хорошим и правильным человеком с принципами и уважительным отношением к другим, всегда найдется кто-то, кто бросит в тебя какашку

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Asm для Windows/Dos \| Следующая тема »