; http://www.cpcrulez.2ya.com
;

;
;        TRANSFERT DISK FORMATE 40 SUR LECTEUR 80
;
         ORG  #A000
;
;
         XOR  A
         LD   (PISTE),A
         LD   (PISTE2),A
         LD   B,5
         LD   A,(SECTEUR)
         LD   C,A
TOTAL    PUSH BC
         LD   A,(PISTE2)
         LD   D,A
         LD   B,8
         LD   HL,#A00
CONTLI   PUSH BC
         CALL LIREPIST
         POP  BC
         LD   A,(SECTEUR)
         LD   C,A
         DJNZ CONTLI
         LD   A,D
         LD   (PISTE2),A
         LD   HL,#A00
         LD   B,8
         LD   A,(PISTE)
         LD   D,A
CONTSA   PUSH BC
         CALL SAUVPIST
         POP  BC
         LD   A,(SECTEUR)
         LD   C,A
         DJNZ CONTSA
         LD   A,D
         LD   (PISTE),A
         POP  BC
         DJNZ TOTAL
KACOU    LD   A,2
         CALL #BC0E
         LD   HL,MESS1
         CALL AFFICHE
         CALL #BB06
         CP   "O"
         JR   Z,GLOC
         CP   "o"
         JR   Z,GLOC
         LD   HL,MESS2
         CALL AFFICHE
         CALL #BB06
         RST  0
GLOC
         LD   HL,MESS3
         CALL AFFICHE
GLOC2    CALL #BB06
         CP   "1"
         JR   Z,BLOUF
         CP   "2"
         JP   Z,#A000
         LD   A,7
         CALL #BB5A
         JR   GLOC2
BLOUF
         XOR  A
         LD   (PISTE),A
         LD   (PISTE2),A
         LD   B,5
         LD   A,(SECTEUR)
         LD   C,A
TOTAL1   PUSH BC
         LD   A,(PISTE2)
         LD   D,A
         LD   B,8
         LD   HL,#A00
CONTLI1  PUSH BC
         CALL LIPI
         POP  BC
         LD   A,(SECTEUR)
         LD   C,A
         DJNZ CONTLI1
         LD   A,D
         LD   (PISTE2),A
         LD   HL,#A00
         LD   B,8
         LD   A,(PISTE)
         LD   D,A
CONTSA1  PUSH BC
         CALL SAUPI2
         POP  BC
         LD   A,(SECTEUR)
         LD   C,A
         DJNZ CONTSA1
         LD   A,D
         LD   (PISTE),A
         POP  BC
         DJNZ TOTAL1
         JP   KACOU
;
AFFICHE
         LD   A,(HL)
         OR   A
         RET  Z
         CALL #BB5A
         INC  HL
         JR   AFFICHE
;
LIREPIST
         PUSH BC
         LD   C,7
         CALL #B90F
         POP  BC
         LD   B,9
         LD   E,1
;
SUITEL   PUSH HL
         PUSH DE
         PUSH BC
         CALL LIREAUX
         POP  BC
         POP  DE
         POP  HL
         INC  H
         INC  H
         INC  C
         DJNZ SUITEL
         CALL #B903
         INC  D
         INC  D
         RET
;
LIREAUX  DI
         CALL #C976
         LD   A,#66
         LD   B,#10
         LD   (#BE62),HL
         LD   H,A
         LD   L,C
         LD   (#BE74),HL
         LD   C,B
         LD   HL,SUITE
         JP   #C6FF
SUITE
         LD   A,D
         SRL  A
         LD   D,A
         JP   #C67C
;
;
SAUPI2
         LD   E,1
         JR   SA3
SAUVPIST
         LD   E,0
SA3      LD   B,9
CONTSAU  PUSH BC
         PUSH DE
         PUSH HL
         RST  #18
         DEFW SAUV
         POP  HL
         INC  H
         INC  H
         POP  DE
         POP  BC
         INC  C
         DJNZ CONTSAU
         INC  D
         RET
LIPI
         LD   E,0
         LD   B,9
LIPI1    PUSH HL
         PUSH DE
         PUSH BC
         RST  #18
         DEFW LOAD
         POP  BC
         POP  DE
         POP  HL
         INC  C
         INC  H
         INC  H
         DJNZ LIPI1
         INC  D
         RET
;
SAUV     DEFW #C64E
         DEFB 7
LOAD     DEFW #C666
         DEFB 7
PISTE    DEFB 0
PISTE2   DEFB 0
SECTEUR  DEFB #C1
MESS1    DEFM C'est fini les Enfants !!
         DEFB #0D,#0A,#0A
         DEFM Acore une fois ??? gaa ?!
         DEFM ?
         DEFB 0
MESS2    DEFB #0D,#0A,#0A
         DEFM Gn'au Revoir et a demain
         DEFB 32
         DEFM si on veut bien !
         DEFB 0
MESS3    DEFB #0D,#0A,#0A
         DEFM Gneu veux des nouvelles d
         DEFM isquettes !
         DEFB #0D,#0A,#0A
         DEFM Puis appuyez avec vos p
         DEFM etits Petons sur le c
         DEFM lavier :
         DEFB #0D,#0A,#0A
         DEFM (1) TRANSFERT A ==> B
         DEFB #0D,#0A
         DEFM (2) TRANSFERT B ==> A
         DEFB 0
