Mail - The procedure for proportional printing.

<b>Mail</b> - The procedure for proportional printing.


   So, the last issue I will
- Proportional printing.
It was made very long and not quite
fast, accurate, not fast, but
Still ahead of print in the ZX-Review. (although
it is quite less good comparison.
There, she emulates the RST # 10)
 Printing is up to the pixel
so if it is tied to the rows of Y,
printing will be considerably quicken. More
one option: the use of the stack.

The first byte character generator is proportional to print 
contains the character width. Except addition, the character in 
the character generator is pressed to right boundary to 
minimize the number rotations in print. Font taken from the 
procedure proportional to the press, published in

ZX-Revue, maybe 1994, I do not remember exactly.

; Procedure for proportional printing
, Version 5.13
; RELEASE DATE 21.09.1996
;


        ORG 35000

        CALL INIT; generation table

        CALL PROBE; test print

        RET


INIT PUSH IX

        LD IX, TABST; top of the table

        LD B, 192; 192 line screen
INID LD E, B

        LD A, 192; calculation of address (0, Y)

        SUB E; per-pixel

        LD E, A

        AND A

        RRA

        SCF

        RRA

        AND A

        RRA

        XOR E

        AND # F8

        XOR E

        LD H, A

        LD A, 0

        RLCA

        RLCA

        RLCA

        XOR E

        AND # C7

        XOR E

        RLCA

        RLCA

        LD L, A

        LD (IX), L; address in HL-

        INC IX; stored in a table

        LD (IX), H

        INC IX

        DJNZ INID

        POP IX

        RET


PROBE EXX; test print

        PUSH HL

        EXX

        LD A, 32
POWTOR PUSH AF

        CALL PROC

        POP AF

        INC A

        CP 128

        JR C, POWTOR

        EXX

        POP HL

        EXX

        RET


;------ Search address in a set of code ----- PROC LD L, A

        XOR A

        LD H, A

        LD DE, FONTST-256

        ADD HL, HL

        ADD HL, HL

        ADD HL, HL

        ADD HL, DE

        LD B, (HL); width

        INC HL; hl-pointer at the font

        LD C, 7; character height


;------ Control output abroad -------

        LD A, (XPOS)
ADDIT LD E, A; E-flowing postures. Pec.

        ADD A, B; not coming out for the pre

        JR NC, DAL1; limits for the press?

        LD A, (YPOS); newline

        ADD A, C

        LD (YPOS), A

        XOR A

        JR ADDIT
DAL1 LD (XPOS), A; koord.X-for mark.

        LD A, (YPOS); Print

        CP 192-6; there a way for

        JR C, DAL2; downhill?

        XOR A; there! take action!

        LD (YPOS), A; Eg: Print with 0.0


The calculation of the index table ;------ -------- DAL2 EXX

        LD DE, TABST

        LD L, A; L-Y coordinate

        XOR A

        LD H, A; cleaned H

        ADD HL, HL; multiplied coord.

        ADD HL, DE; 2

        EX DE, HL; DE-pointer

        EXX; address printing in the table


; Calculation addresses familiarity and position it

        LD A, E; Restore A tek.koord

        SRL A; divide by 8 residues

        SRL A

        SRL A

        EXX

        LD C, A; number of familiar. in C '

        EXX

        LD A, E

        AND C; position to sign.

        LD E, A; in the registers E and A

        LD D, 8


;---------- How to print will ?----------
        ADD A, B; amount of width

        CP D; D = 8

        JR C, BYT1;>-pech.v first sign.

        JR Z, NENADO; do not twist

                     ; Have
;--------- Printing in 2 bytes ----------- BYT2 LD A, D

        SUB E; 8-position

        LD D, A

        LD A, B; boot. width

        SUB D; A: = width .- (8-Pos.)

        LD D, A; how to twist

                     ; In the C-byte count
CUC LD A, D

        LD B, A

        XOR A

        LD E, (HL)

        INC HL
RROT RR E; rotate with the transfer

        RRA; from E to A

        DJNZ RROT

        EXX

        LD B, A; 2 nd floors. Save. B '

        EXX

        LD A, E; 1 st print

        EXX

        EX AF, AF '; bytes until needed

        LD A, (DE); MB ADRs sign (Y, 0)

        ADD A, C; arr. familiarity

        LD L, A; MB ADRs Print

        INC DE

        LD A, (DE)

        LD H, A; address on the screen

        INC DE

        EX AF, AF '; printable bytes

        OR (HL)

        LD (HL), A; print by 'OR'

        INC HL; trace and 2 nd floors

        LD A, B; incubation symbol on

        OR (HL); screen

        LD (HL), A

        EXX; 1 line character

        DEC C; ready

        JR NZ, CUC; repeat?

        RET; printing completed


;----- Print within a single byte-BYT1 LD A, D; A = 8

        SUB E

        SUB B; in the A-number of rotations

        LD B, A; B - //-//-//-
                     ; In the C-counter
PRINT LD D, B; save

        LD A, (HL); read Byte oven

        INC HL; sign
ROTOR SLA A

        DJNZ ROTOR; twist

        LD B, D

        EXX; A-B in print

        EX AF, AF '; further process

        LD A, (DE); similar to print

        ADD A, C; in 2 bytes

        LD L, A

        INC DE

        LD A, (DE)

        LD H, A

        INC DE

        EX AF, AF '

        OR (HL)

        LD (HL), A

        EXX

        DEC C

        JR NZ, PRINT

        RET; printing completed


;------------ Printing without rotation ------- NENADO LD A, C

        LD B, A
ROT1 LD A, (HL); read bytes

        INC HL

        EXX; and print it

        EX AF, AF '

        LD A, (DE)

        ADD A, C

        LD L, A

        INC DE

        LD A, (DE)

        LD H, A

        INC DE

        EX AF, AF '

        OR (HL)

        LD (HL), A

        EXX

        DJNZ ROT1

        RET; printing completed


XPOS DEFB 0
YPOS DEFB 0
FONTST INCBIN NEWFONT
TABST NOP; Here is a table.



      At that allow complete.

   Text written in ZxIbm Editor v.1.5

       Formatted in IS-Dos Editor.

            E2 Soft 26.04.1997

__________________________________________