процедура точки by veka/cpu (mod. by xplrdg98/cpu) — ZXNet «code.zx»

процедура точки by veka/cpu (mod. by xplrdg98/cpu)

ZXNet echo conference «code.zx»



from: elfh
to: All
date: 8 May 2006
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