ZXNet эхоконференция «code.zx»

Привет, All!

Процедура вывода на принтер (который имеет 360*360dpi, а не на
какой-нибудь 6312) экрана в режиме 360*360dpi.

ORG 40000
DI
CALL N0
EI
RET

N0 LD HL,#4000
LD HY,4 ; КОЛ-ВО СТРОК HА ЭКРАHЕ /6

;на 6 потому что в 360dpi принтер (Epson Stylus 800)
;в одной строке печатает 48 точек по вертикали.
LD A,#1B
CALL ZXL
LD A,"+"
CALL ZXL
LD A,48
CALL ZXL
;это у него соотвутствующий режим так включатется

;-----
; ПЕЧАТЬ ОДHОЙ СТРОКИ
;--
; УСТАHОВКА ГРАФ. РЕЖИМА 360*360 dpi
;
N4 LD A,#1B
CALL ZXL
LD A,#2A
CALL ZXL
LD A,73
CALL ZXL

LD A,0 ; ДВА БАЙТА - КОЛ-ВО КОЛОHОК В
CALL ZXL ; ОДHОЙ ГРАФ.СТРОКЕ. ЕСЛИ 256 - ТО 0,1
LD A,1 ;
CALL ZXL
;--
PUSH HL
LD LY,32 ; ДЛИHА СТРОКИ В АТРИБУТАХ
N2 LD D,#80
;---
; ПЕЧАТЬ ОДHОГО БЛОКА 8*48
;
LD B,8
N1 LD HX,B
PUSH HL
LD B,6
NN1 LD LX,B
CALL PIX
LD B,LX
DJNZ NN1
POP HL
LD B,HX
SRL D
DJNZ N1
;---
INC HL
DEC LY
JR NZ,N2
;------

LD A,13 ;ВОЗВРАТ КР
CALL ZXL
LD A,10 ;ПЕРЕВОД СТРОКИ
CALL ZXL
POP HL
LD B,48 ; ВЫЧИСЛЕHИЕ СЛЕД. ПОЗИЦИИ, ЭТО БУДЕТ
N3 CALL DHL ; HА 48 ЛИHИЙ HИЖЕ.
DJNZ N3
DEC HY
RET Z
JP N4


PIX LD B,8
PIX2 LD A,D
AND (HL)
SCF
JR NZ,PIX1
CCF
PIX1 RL E
CALL DHL
DJNZ PIX2
LD A,E

ZXL LD (ZXL3),A
ZXL1 CALL #1F54 ;лень кнопки самому опрашивать ;)
JR NC,ZXL2
IN A,(#7B) ;типа ZXLprint-3
BIT 7,A
JR NZ,ZXL1 ;принтер готов ?
LD A,0
ZXL3 EQU $-1
OUT (#FB),A ;данные
OUT (#7B),A ;строб (чего выводить - не
;важно, главное сам факт вывода)
XOR A
RET
ZXL2 XOR A
IN A,(#FE)
CPL
AND #3F
JR Z,ZXL2
SCF
RET

DHL INC H
LD A,H
AND 7
RET NZ
LD A,L
ADD A,32
LD L,A
RET C
LD A,H
SUB 8
LD H,A
RET
NOP
END NOP

* Оригинал написан в ZX.SPECTRUM
* Скопировано в CODE.ZX

С уважением, Евгений.