;
ORG #A000 adresse implantation routine
LD BC,ADTABLE adresse table des noms des RSX
LD HL,TAMPON adresse tampon octets pour le systeme
JP #BCD1 initialisation RSX
TAMPON DS 4
ADTABLE DW TABLE
JP LECTSECT
JP ECRISECT
TABLE DM LECTSEC
DB #80+"T"
DM ECRISEC
DB #80+"T"
LECTSECT LD A,(IX+#00) ;recuperation No secteur
LD D,(IX+#02) recuperation No piste
LD E,#00
LD H,(IX+#05) recuperation adresse tampon dans HL
LD L,(IX+#04)
PUSH AF
LD C,#07
CALL #B90F selectionne la ROM lecteur disquette
POP AF
PUSH DE
LD C,A
CALL #C666 routine lecture secteur de la ROM
POP BC
CALL #B918 retablit la ROM superieure
RET
NOP
ECRISECT LD A,(IX+#00) ;recuperation No secteur
LD D,(IX+#02) recuperation No piste
LD E,#00
LD H,(IX+#05) recuperation adresse tampon dans HL
LD L,(IX+#04)
PUSH AF
LD C,#07
CALL #B90F selectionne la ROM lecteur disquette
POP AF
PUSH DE
LD C,A
CALL #C64E routine ecriture secteur de la ROM
POP BC
CALL #B918 retablit la ROM superieure
RET
END