; ; RUBI_DOUILLE (c) 1989 ;         ORG &9000         DI         LD HL,&C9FB ;EI ;RET         LD (&38),HL PRG         EI         LD B,&F5 PRG_1   IN A, (C)         RRA         JR NC,PRG_1         HALT         HALT         CALL SPRG         HALT         CALL SPRG         HALT         CALL SPRG         HALT         CALL SPRG         HALT         CALL SPRG         JR PRG SPRG         LD B,8    ; Petit Tempo 1 SPRG_1  DJNZ SPRG_1         NOP         NOP         NOP ; ; Initialisation du pointeur         LD HL,COLOR         LD D,35 SPRG_2  LD BC,&7F00         OUT (C ) ,C         OUTI         INC B         OUTI         INC B         OUTI         INC B         OUTI         INC B         OUTI         INC B         OUTI         INC B         OUTI         DEFS 12, 0 ; ; Tempo 2 ;         DEC D         JR NZ,SPRG_2         LD BC,&7F00         OUT (C),C ; ; Un peu de blanc ;         LD A,&4B         OUT (C),A         RET COLOR A1               EQU   &55 A2               EQU   &4A A3               EQU   &59 A4               EQU   &47 A5               EQU   &40 A6               EqU   &46 A7               EQU   &5D DEFB   A1,A2,A3,A4,A5,A6,A7 DEFB   A1,A2,A3,A4,A5,A6,A7 DEFB   A1,A2,A3,A4,A5,A6,A7 DEFB   A1,A2,A3,A4,A5,A6,A7 DEFB   A1,A2,A3,A4,A5,A6,A7 DEFB   A7,A1,A2,A3,A4,A5,A6 DEFB   A7,A1,A2,A3,A4,A5,A6 DEFB   A7,A1,A2,A3,A4,A5,A6 DEFB   A7,A1,A2,A3,A4,A5,A6 DEFB   A7,A1,A2,A3,A4,A5,A6 DEFB   A6,A7,A1,A2,A3,A4,A5 DEFB   A6,A7,A1,A2,A3,A4,A5 DEFB   A6,A7,A1,A2,A3,A4,A5 DEFB   A6,A7,A1,A2,A3,A4,A5 DEFB   A6,A7,A1,A2,A3,A4,A5 DEFB   A5,A6,A7,A1,A2,A3,A4 DEFB   A5,A6,A7,A1,A2,A3,A4 DEFB   A5,A6,A7,A1,A2,A3,A4 DEFB   A5,A6,A7,A1,A2,A3,A4 DEFB   A5,A6,A7,A1,A2,A3,A4 DEFB    A4,A5,A6,A7,A1,A2,A3 DEFB    A4,A5,A6,A7,A1,A2,A3 DEFB    A4,A5,A6,A7,A1,A2,A3 DEFB    A4,A5,A6,A7,A1,A2,A3 DEFB    A4,A5,A6,A7,A1,A2,A3 DEFB    A3,A4,A5,A6,A7,A1,A2 DEFB    A3,A4,A5,A6,A7,A1,A2 DEFB    A3,A4,A5,A6,A7,A1,A2 DEFB    A3,A4,A5,A6,A7,A1,A2 DEFB    A3,A4,A5,A6,A7,A1,A2 DEFB    A2,A3,A4,A5,A6,A7,A1 DEFB    A2,A3,A4,A5,A6,A7,A1 DEFB    A2,A3,A4,A5,A6,A7,A1 DEFB    A2,A3,A4,A5,A6,A7,A1 DEFB    A2,A3,A4,A5,A6,A7,A1 ; http://www.cpcrulez.2ya.com ;