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

Hello, Знахарь

Этой процедурой мы давно пользуемся. Сначала генеришь таблицу:

PTABFIL
LD HL,PTABLE+#100
LD DE,#E0F8
LD BC,#FF80
PTF1 INC B
LD A,B
SRL A
SCF
RRA
SRL A
XOR B
AND E
XOR B
; OR #C0
LD (HL),A
DEC H
LD A,B
RLCA
RLCA
AND D
LD (HL),A
INC H
INC L
LD A,B
CP #BF
JR NZ,PTF1
PTF2 XOR A
LD (HL),A
DEC H
LD (HL),A
INC H
INC L
JR NZ,PTF2
INC H
PTF3 LD A,L
AND E
RRCA
RRCA
RRCA
LD (HL),A
INC H
LD (HL),C
DEC H
RRC C
INC L
JR NZ,PTF3
RET

Потом используешь:

XPLOT
LD H,'PTABLE ;7
LD L,D ;4
LD A,(HL) ;7
INC H ;4
LD D,(HL) ;7
INC H ;4
LD L,E ;4
ADD A,(HL) ;7
LD E,A ;4
INC H ;4
LD A,(DE) ;7
OR (HL) ;7
LD (DE),A ;7=73!!!
RET