; https://cpcrulez.fr ; ; ;       listing 2 ;         LD HL,ORIG         LD DE,DEST         LD BC,DEST-ORIG*46         LDIR ;         DI         LD (SAVSP+1),SP ; ;PILE SUR TABLE DES COORD ECRANS ;         LD SP,SINTAB         LD B,6 SCR     POP     HL ; ORIG         POP DE         LD A, (DE)         LD ( HL) , A         POP HL         LD A, (HL)         LD (DE) , A DEST         DEFS DEST-ORIG*46,0 ;         POP DE         LD A, (DE)         LD ( HL) , A         DEC B         JP NZ,SCR SAVSP   LD SP,0         EI