FORTH * (c) Copyright PPC-Paris 1987 here EQU #2FB93 lÈ oË est stockÅe la valeur * de HERE WORD 'MIX' (ad1 ad2 -- ad3) AD0EX R0=A sauvegarde de D0 en R0 D0=(5) here calcul de l'adresse de PAD : * HERE + 5A A=DAT0 A LC(5) #5A A=A+C A D0=A R1=A R1 := ^ PAD C=DAT1 A C=C+1 A ad2 := ad2+1 DAT1=C A rÅcuperer LE bon quartet ! LC(2) #84 prÅmice de boucle 1 È 132 D1=D1+ 5 D1 sur ad1 deb R2=C GOSUB adres rÅcupÅrer le quartet indexÅ * par ad2 ASL B rotation sur 1 bit D1=D1- 5 ad1 GOSUB adres rÅcupÅrer le quartet indexÅ * par ad1 DAT0=A B on range l'octet construit * È l'ad3 D0=D0+ 2 on se place 1 octet de + * sur ad3 D1=D1+ 5 ad2 C=R2 C=C-1 B ?C#0 B 132 boucles ? GOYES deb C=R1 on range ad3 dans la pile DAT1=C A C=R0 D0=C RTNCC * extraction d'un quartet È 1 adresse adres C=DAT1 A adresse CD1EX A=DAT1 1 A := (C) D1=D1+ 2 permet de pointer sur * l'octet suivant CD1EX DAT1=C A RTN