----- Original Message ----- From: "Steve Judd" <sjudd@ffd2.com> To: <cbm-hackers@dot.tml.hut.fi> Sent: Friday, December 29, 2000 2:28 AM Subject: Re: FD2000 media detection > Hi Nathan, > > On Thu, 28 Dec 2000, Nathan Smith wrote: > > > Anyone know a reliable way of detecting, using drive code, how to > detect media currently inserted. Is the best way write some rubbish to > $0500-$05ff, raw read track 80, sector 1. if a read error then assume > 1581. if $0500-$05ff isn't touched then 800K else it is 1600K? Any better > methods? > > > > (Time to turn on 80-column mode in your email editor!) > > Here is how FD-tools does it (g-p is the "get partition" command): > > 1000 open15,dv,15:print#15,"i:":get#15,e:close15 > 1011 dt$=" unknown" > 1012 open15,dv,15:print#15,"g-p";chr$(255):get#15,pt$,d$:close15:dt=asc(d$+chr$(0 )) > 1020 if(dt and 128)thengoto1030:rem check for disk inserted > 1021 dt$=" no disk" > 1025 return > 1029 : > 1030 if(dt and 64)thengoto1040:rem check if disk is formatted > 1035 return > 1039 : > 1040 if(dt and 32)thengoto1050:rem check for valid cbm/cmd format > 1041 dt=(dt and 15) > 1042 ifdt=5thendt$="ibm 720k" > 1043 ifdt=6thendt$="ibm 1.44m" > 1044 ifdt=7thendt$="ibm 2.88m" > 1045 return > 1049 : > 1050 if(dt and 16)thendt$="1581 800k":return:rem cbm or cmd format > 1051 dt=(dt and 15) > 1052 ifdt=1thendt$="cmd 800k" > 1053 ifdt=2thendt$="cmd 1.60m" > 1054 ifdt=4thendt$="cmd 3.20m" > 1055 return > > -Steve > > - > This message was sent through the cbm-hackers mailing list. > To unsubscribe: echo unsubscribe | mail cbm-hackers-request@dot.tml.hut.fi. > Thanks but I was after code that is run within the drive, not from the C64. - This message was sent through the cbm-hackers mailing list. To unsubscribe: echo unsubscribe | mail cbm-hackers-request@dot.tml.hut.fi.
Archive generated by hypermail 2.1.1.