; http://CPCrulez.fr
;

           ORG 40000
           LD HL,49152
           LD (MODIF+l),HL
           CALL AFF
           LD BC,0BC0CH
           LD A,48
           OUT (C),C
           INC B
           OUT (C),A
           LD BC,0BC0DH
           LD A,0
           OUT (C),C
           INC B
           OUT (C),A
 ;
           LD HL,50192
           LD (MODIF+l),HL
           CALL AFF
           LD BC,0BC0CH
           LD A,50
           OUT (C),C
           INC B
           OUT (C),A
           LD BC,0BC0DH
           LD A,8
           OUT (C),C
           INC B
           OUT (C),A
 ;
           LD HL,16384
           LD (MODIF+l),HL
           CALL AFF
           LD BC,0BC0CH
           LD A,16
           OUT (C),C
           INC B
           OUT (C),A
           LD BC,0BC0DH
           LD A,0
           OUT (C),C
           INC B
           OUT (C),A
 ;
           LD HL,17424
           LD (MODIF+l),HL
           CALL AFF
           LD BC,0BC0CH
           LD A,18
           OUT (C),C
           INC B
           OUT (C),A
           LD BC,0BC0DH
           LD A,8
           OUT (C),C
           INC B
           OUT (C),A
 ;
           RET

 AFF       CALL 0BD19H
           CALL CALCUL
 MODIF     LD BC,49152
           ADD HL,BC
           INC IX
           INC IX

           LD DE,7000
           LD B,16
 AFF1      PUSH BC
           PUSH HL
           LD B,8
 AFF2      NOP
 ;
           LD A, (DE)
           AND 088H
           JR Z,SAUT1
           LD C,A
           LD A, (HL)
           AND 077H
           OR C
           LD (HL) ,A
 ;
 SAUT1     LD A,(DE)
           AND 044H
           JR Z,SAUT2
           LD C,A
           LD A, (HL)
           AND 0BBH
           OR C
           LD (HL) ,A
 ;
 SAUT2     LD A,(DE)
           AND 022H
           JR Z,SAUT3
           LD C,A
           LD A, (HL)
           AND 0DDH
           OR C
           LD (HL) ,A
 ;
 SAUT3     LD A,(DE)
           AND 0llH
           JR Z,SAUT4
           LD C,A
           LD A, (HL)
           AND 0EEH
           OR C
           LD (HL) ,A
 ;
 SAUT4     INC HL
           INC DE
           DJNZ AFF2
           POP HL
           CALL 0BC26H
           POP BC
           DJNZ AFF1
           RET