(C) A. Zaharzhevsky, Belgorod
reg., s.Kr.Berezovka
Bring to your attention
procedure for drawing a character with attributes, size 32x24
familiarity. Of those procedures that have been published to
date, the shortest was 47 bytes in N4-5/96g. My procedure is
somewhat shorter and occupies 42 bytes. However, if the
construction in lines 60-80 does not cause you approval, as a
particular solution task (ie, character set is located in ROM)
it can be replaced by:
144.
60 LD DE, 15360
70 LD H, 0
80 LD L, A
...
...
...
115 ADD HL, DE
ie length of the procedure is 44
bytes, but it is still a record.
10 ORG 30000
20 LD A, # 45
30 LD C, # 1954
40 CALL PROG
50 RET
60 PROG LD HL, 1920
70 ADD A, L
80 LD L, A
90 ADD HL, HL
100 ADD HL, HL
110 ADD HL, HL
120 LD DE, # 5800
130 L1 LD B, 3
140 L2 PUSH BC
150 LD A, (HL)
160 LD B, 8
170 L3 PUSH BC
180 RLA
190 PUSH AF
200 SBC A, A
210 AND C
220 LD B, 4
230 L4 LD (DE), A
240 INC DE
250 DJNZ L4
260 POP AF
270 POP BC
280 DJNZ L3
290 POP BC
300 LD A, # 5B
310 CP D
320 RET Z
330 DJNZ L2
340 INC HL
350 JR L1
2
*
