' *** WRITPRO2.LST *** 2nd GFA-Manual, page 11-24 FUNCTION drive_write_protected(drive$) ' ' *** Returns TRUE if drive (A or B) is write-protected ' ### does not work (not a good idea anyway?), happy experimenting ### ' LOCAL drive,a%,wp! drive=SUB(ASC(drive$),65) SDPOKE &H43E,1 ! flock on (DMA-access impossible) SPOKE &HFF8800,&HE ! select register 14 a%=PEEK(&HFF8800) ! ### why ? ### SPOKE &HFF8802,(a% OR &H6) AND NOT 2^(drive+1) ! select drive SDPOKE &HFF8606,&H80 ! select FDC-register wp!=BTST(DPEEK(&HFF8604),5) ! examine 6th bit (1 = write-protected) SPOKE &HFF8802,a% ! restore register 14 SDPOKE &H43E,0 ! flock off (DMA-access possible) IF wp! RETURN TRUE ELSE RETURN FALSE ENDIF ENDFUNC ' ***** '