Body #06 20 июня 1997

Программирование

PUSH HL - Print the text up to a pixel.

                            PUSH HL

(C) SATSOFT PHN.270-72-36

I bring to your attention to the procedures Stephen Turner PRESS
Text messages anywhere on the screen with pixel precision,
And not only in the files of COORDINATES ZNAKOMEST.ETA was 
slightly ME Tested In ALASM'E OR THAT ERRORS IN IT SHOULD NOT

BE. COMMENTS, I HOPE TO MAKE THIS PROGRAM IS NOT
SHOULD, because ALL YOU PROBABLY FORMED LYUDI.MOGU only say
ONE - DO NOT forget to put the length of STRING.


               ; Print text with pixel precision

        ORG 40000
    LD A, 1, message number in kilograms:)
    LD D, 99, Y coordinate in pixels from 0 to 184
    LD E, 3; x coordinate in the familiarity 0 to 31
    CALL TEXT
    LD A, 2
    LD D, 120
    LD E, 8
    CALL TEXT
    RET
                         ; SUB-TEXT
                         ; A - NUMBER OF ITEMS
                         ; DE-CONTACT PRINTING
TEXT LD HL, TXADD
LOOK LD B, 0
    JR GOTRY
LONG LD C, (HL); Text Search
    INC HL
    ADD HL, BC
GOTRY DEC A
    JR NZ, LONG
    CALL PRINT
    RET
PRINT LD (INPUT), HL
    LD A, D
    AND # 38; Defines a set of
    ADD A, A
    ADD A, A
    ADD A, E; Add X
    LD E, A; Byte
    LD A, D
    RRA
    RRA
    RRA
    AND # 18, defines the third SCREEN
    LD C, A
    LD A, D
    AND # 07; ROW IN THE SERIES
    ADD A, C
    ADD A, # 40, High Byte
    LD D, A
    LD HL, (INPUT)
    LD A, (HL)
    AND A
    RET Z; Invalid value
    LD C, A
PROLET LD (OUTPUT), DE
    INC HL
    LD (INPUT), HL
    LD A, (HL)
    CP # FF
    JR NZ, CHAR
                         And the transition to a new line
                         Beneath the first position
                         ; PRESS
    LD DE, (OUTLIN)
    LD A, E
    ADD A, # 20
    LD E, A
    RET NC
    LD A, D; OTHER THIRD SCREEN
    ADD A, 8
    CP # 58
    RET NC
    LD D, A
    LD (OUTLIN), DE
    JR REJOIN
CHAR LD L, A; Find Symbol
    LD H, 0
    ADD HL, HL
    ADD HL, HL
    ADD HL, HL
    LD DE, (CHASET)
    ADD HL, DE
    LD DE, (OUTPUT)
    LD A, D
    CP # 58
    RET NC
     LD B, 8
EIGHT LD A, (HL); PRESENTS 8 rows SYMBOL
    LD (DE), A
    INC HL
    LD A, D
    AND 7
    INC A
    CP 8
    JR NZ, NONEW
    LD A, D
    AND # F8
    LD D, A
    LD A, E
    ADD A, # 20
    LD E, A
    JR NC, NEXTSL
    LD A, D
    ADD A, 8
    LD D, A
NONEW INC D
NEXTSL DJNZ EIGHT
    LD DE, (OUTPUT)
NEXTLT INC E
    JR NZ, REJOIN
    LD A, D
    ADD A, 8
    LD A, D
REJOIN LD HL, (INPUT)
    DEC C
    JR NZ, PROLET
    RET
OUTLIN DEFW 0; starting line
OUTPUT DEFW 0; ADDRESS PRINTING
INPUT DEFW 0; ADDRESS TEXT
CHASET EQU 23606; indicates the address of the fonts in ROM
                       ; MINUS 256 bytes
                           , TABLE TEXT
TXADD DEFB 26; the length of this string in characters
    DEFB "HELLO ALL READERS OF BODY!"

        DEFB 16; the length of this string in characters

        DEFB "TO BE CONTINUED!"

> ASSEMBLE
# 0079
 SYMBOLS: # C04B-# FED1
TOTAL ERRORS: # 0000