Technician Ted: Routine at B760

B760: Copy a UDG

Used by the routine at B140.

Input
HL	Screen address to copy to. On return contains the next address to the right, to allow quick copying of multiple UDGs
DE	Address of UDG graphic data
C	Bitmask to apply to all cells (or FF for none)

B760

LD DE,$A854

A854 is the UDG for "megaquickly" tasks

This entry point is used by the routines at AA65 and B140.

B763

PUSH HL

Remember this

B764

LD B,$08

8 lines to copy

B766

LD A,(DE)

Get the next line

B767

AND C

Apply the bitmask

B768

LD (HL),A

Set it

B769

INC DE

Next line in data

B76A

INC H

Next line on screen

B76B

DJNZ $B766

Loop back if more to do

B76D

POP HL

Restore HL

B76E

INC L

Point to next character

B76F

RET

All done