; PROGRAMME DE LECTURE_PISTE DU LECTEUR DE DISQUETTE AMSTRAD
; Authors: Cyril BARTOLO and Laurent KUTIL
; Code unasm: Babar - http://CPCrulez.freefr

ld c,#07
call #b90f
ld de,#2500   ; o— DE contient le num‚ro de la piste
call #c045
di
ld hl,TABLE   ; voir tout en bas (codes correspondant … LIRE_PISTE)
ld bc,#fb7e
ld e,#09

la0ba:        ; cette boucle envoie au FDC les 9 octets de l'instruction lire piste
ld a,(hl)
call #c95c
inc hl
dec e
jr nz,la0ba
ld hl,ADRESSE ; c'est l'adresse o— on veut que les donn‚es soient stock‚es
ld de,#1800   ; c'est le nombre d'octets que l'on veut lire
jr la0d4

la0ca:        ; boucle de lecture piste (attention on y entre par la0d4: )
ld a,d
or e
jr z,la0d4    ; lit tant que DE n'est pas nul
inc c
in a,(c)      ; lit l'octet suivant
ld (hl),a     ; stocke dans HL l'octet lu
inc hl
dec c
dec de
la0d4:
in a,(c)
jp p,la0d4
and #20
jr nz,la0ca

ei
call #c91c

; ici les 3 flags de r‚sultat de la lecture de la piste se trouvent en:
; #BE4C, #BE4D, #BE4E

RET

TABLE: def #42,0,#24,0,#c1,2,#c1,#2a,#ff
; (de m‚moire ces codes n'ont pas grande importance, … part les 2 premiers; … v‚rifier dans le livre sur le "lecteur de disquette")