; http://CPCrulez.fr ;        ORG #9000        ENT $ ;         LD     HL,#C000         LD     (HAUT+l),HL         LD     HL,#FF81         LD     (BAS+1),HL ; BOUCLE  PUSH  BC HAUT    LD     HL,#C000         CALL   AFF BAS     LD     HL,#FF81         CALL   AFF         LD     HL,(HAUT+1)         CALL   #BC26         LD     (HAUT+1),HL         LD     HL,(BAS+1)         CALL   #BC29         LD     (BAS+1),HL         POP    BC         DJNZ   BOUCLE         RET ; AFF     LD      BC,-#8000         LD      D,E         LD      E,L         ADD     HL,BC         LD      B,8 LIGNE   LDI         INC     BL         IHC     DE         LD      C,69 PAUSE   DEC     C         JR      NZ,PAUSE         DJNZ    LIGNE         RET