ô > HDInit v1.16 J.G.Harston ¾Ië&87:ç¤fx(0,1)<6:ç¤fx(130,0)=&FFFF‹ñ"Must run on BBC I/O processor":à Èfs%=¤fs:ver$="1.16" Òadfs%=¹:î…adfs%=£ Üçadfs%:ç¤fs<>8:*FADFS æhadfs%=¹:î…hadfs%=£ ðçhadfs%:ç¤fs<>16:*HADFS úçfs%<>8:çfs%<>16:fs%=8 ok%=¹:î…ok%=£ )çok%:ÿ"FX143,18,"+Ãfs%:çfs%=8:MOUNT 0 fs%=¤fs:hd%=(fs%-8)/2:òinit "î…ç¤err:òend:à ,ë&87:õý¤menu:òend:à @ Ýòend:à:á TÝ¤err:ñ:ö:A%=¦(100):=¦-1 h Ýòinit r0Þctrl%31,mem%511,info%512:X%=ctrl%:Y%=X%256 |'safe%=¹:full%=¹:òasm:òinfo:*FX219,9 †á š Ýòinfo ¤Ebig%=0:hdsz%=0:rv%=0:ãA%=0¸511ˆ4:info%!A%=0:í:dev$="IDE":çhd%>3:á ®Œÿ"FADFS":Y%=?&DBC:!&F6=&BFFF:rv%=(º&FFB9)€255:!&F6=&8002:d4%=((º&FFB9)€128)/64+2:!&F6=&8008:A%=((º&FFB9)€6)/2:Y%=X%256:çA%<>1:scsz%=256 ¸/dev$=Á"SCSIIDE --- MMC ",A%*4+1,4+(A%>0)):á Ì Ý¤menu ÖEA$=" BBC "+dev$+À"r"+Ã~rv%,rv%>0)+" Hard Drive Initialiser "+ver$ à#Û:ñA$'Ä©A$+1,"=");½8:òDriveInfo ê.ñ'"D: Select drive I: Investigate drive" ô*ñ"S: Scan for size Z: Set drive size" þGñ"F: Format drive W: Wipe data (";À"on",¬safe%);À"off",safe%);")" 4çfull%:çsafe%:ñ‰17;‹çfull%:ñ"R: Randomise data"; !çfull%:ñ" Toggle width" $ñ'‰6"Press a key or X to exit:"; &VõA$=¾:ý§½9+"*DdIiFfWwRrSsXxZz",A$):ñ½13;‰32;½13;:çA$="*"õè†"*"A$:ÿA$:ýA$="":A$="*" 0A$=½(—A$€&DF) :çA$="D":òDrive:=0 DçA$="F":òFormat:=0 NçA$="I":òInvest:=0 XçA$="S":òScan:=0 bçA$="W":safe%=¬safe%:=0 lçA$="R":ç¬safe%:òRandom:=0 vçA$="Z":òSetSize:=0 € çA$=½9:ç¬¦-1:scsz%=768-scsz% ŠçA$=½9:ç¦-1:full%=¬full% ”=A$="X" ¨ÝòDriveInfo ²(çhd%<4:dev%=hd%d4%‹dev%=hd%8:d4%=4 ¼9ñ" Current drive: ";~hd%;" ("dev$" device ";dev%;")"; Ú)ñ'" Device width: ";scsz%32;" bits" ä@çfull%:ñ" Model: "¤str(info%+54,20)'‰11;¤str(info%+74,20) î)çfull%:ñ" Firmware: "¤str(info%+46,8) ø*çfull%:ñ" Serial: "¤str(info%+20,20) Añ'" Total sectors: &";¤h0(hdsz%,8)" (";¨(hdsz%/204.8)/10;"M)" Qñ" Physical size: C:&";¤h0(info%!&02,4);" H:";¤d(info%?&06,2);" S:";info%?&0C Qñ" Logical size: C:&";¤h0(info%!&6C,4);" H:";¤d(info%?&6E,2);" S:";info%?&70 Bñ" 8-bit Size: ";¤d(hdsz%4,8);"K (";¨(hdsz%/409.6)/10;"M)" *Jçhd%<4:òInfo(hd%,16-d4%,&200000,"ADFS")‹òInfo(hd%,12,&1000000,"HADFS") 4ñÄ34+©dev$,"="):á H"ÝòInfo(d%,m%,sz%,fs$):d%=d%€m% R%ñ" ";fs$;" drives:";:hsz%=hdsz%:õ \A%=sz%:çhsz%"`":A$=½(—A$-32) ¶,ç§"0123456789AB",A$):hd%= ("&"+A$):òinfo Àá ÔÝòInvest Þ"ãA%=0¸511ˆ4:mem%!A%=0:í:big%=£ èÐçdev$="SCSI":çhd%<4:A%=¤scsi(&1A,mem%,22,0,hd%):info%?2=mem%?14:info%!3=mem%?13:info%?6=mem%?15:info%?12=33:info%!&6C=info%!2:info%!&6E=info%?6:info%!&70=info%?12:hdsz%=info%!2*info%?6*info%?12:ÿ"MOUNT":á ò=çdev$="IDE":!addr%=mem%:A%=dev%*16:nm%?1=scsz%256-1:Öid% üAãA%=0¸255:info%?(A%*2)=mem%?A%:info%?(A%*2+1)=mem%?(A%+256):í £çinfo%?3+info%?109+info%?115=0:info%?109=info%?116:info%?115=info%?108:A%=(256*info%?109+info%?108)*info%?110*info%?112:info%?3=(A%((info%?6)*(info%?12)))256 7çinfo%?&74=0:big%=¹:info%?&74=info%?&72:info%?&72=0 $çinfo%?&79=0:info%?&79=info%?&6C $hdsz%=info%!&78 .á B ÝòScan L*ñ"Scanning drive ";hd%:sec%=&800:òinfo V0õsec%=sec%+sec%:ý¤scan(sec%)<>0„sec%>&1FFFFF `step%=sec%2:dir%=-1:õ j'sec%=sec%+step%*dir%:A%=¤scan(sec%) t&step%=step%2:çA%=0:dir%=1‹dir%=-1 ~ýstep%<1:hdsz%=sec%-1:ñ ˆá œ2Ý¤scan(sec%):ñ½13;"Drive size: ";sec%4;"K "; ¦,çadfs%:=¤scsi(&08,mem%,1,sec%-1,hd%)‹=-1 º ÝòSetSize ÄFè"Enter drive size, use , &, K or M :"A$ Î"òinfo:big%=0:hdsz%=¤rdsz(A$):á âÝòFormat:çhdsz%<1:òInvest ì1size%=hdsz%:max%=&200000:çhd%>3:max%=&1000000 ö4çd4%=2:A%=hd%=1„hd%=3‹A%=hd%=1„hd%=2„hd%=3„hd%>5 9çA%:A%=hd%:õsize%=size%-max%:A%=A%-1:ý(A%€3)=0„A%=d4% çsize%>max%:size%=max% 7çsize%<0:ñ"No space for drive ";~hd%;:òdelay(200):á /çsize%<&1000:ñ"This appears to be a floppy" (Bñ"Format ";À"H",hd%>3);"ADFS drive ";~hd%;" to ";¤sz(size%);½8 2QA$="":ç(hd%€(7-d4%))=0:ñ"Leave space for ";À"H",hd%<4);"ADFS system? ";:è""A$ hdsz%:part%=hdsz% FQçpart%:çhd%>3:ñ"ADFS space (";¤sz(part%);"): ";:è""A$:çA$<>"":part%=¤rdsz(A$) PRè"Format? Enter YES to confirm: "A$:çA$<>"YES":ñ"Not formatted";:òdelay(200):á Zçhd%<4:òInitADFS d(çhd%>3:òInitHADFS:çpart%:hdsz%=part% ná ‚ÝòInitHADFS Œ!X%=1:A%=14:Ö&FFF1 –,ãA%=0¸6:X%?A%=(X%?A%€15)+10*(X%?A%16):í !ç?X%<81:?X%=19+?X%‹?X%=?X%-81 ª1today%=(?X%16)+8*X%?2+256*X%?1+4096*(?X%€15) ´6start%=2:çpart%:start%=7:çsize%>&FFFF:start%=part% ¾-dskID%=³(65535):çsize%=&10000:size%=&FFFF Ò òclear Üçsafe%:òread(&46,hd%) æ$$mem%="IDEDISK"+Ã~hd%+" " ð$(mem%+16)=½0+"(C)JGH"+½0 úmem%!24=dskID% mem%!26=today% mem%!28=size% 7çsize%<&10000:mem%?30=&11:msz%=2‹mem%?31=&80:msz%=3 "-mem%!(32+0*msz%)=&02:mem%!(32+1*msz%)=&44 ,3mem%!(32+2*msz%)=&4A:mem%!(32+3*msz%)=size%-&4A 6+mem%!(32+4*msz%)=&00:mem%!(32+5*msz%)=0 @oçpart%:mem%?31=mem%?31„&41:mem%!32=start%:mem%!(32+msz%)=size%-start%:mem%!(32+2*msz%)=0:mem%!(32+3*msz%)=0 Jòwrite(&46,hd%) ^ òclear hçsafe%:òread(&47,hd%) r$mem%="$ " |mem%!10=&47:mem%!14=0 †mem%!16=dskID%:mem%!20=0 <çsize%>&FFFF:mem%!10=0:mem%!24=0:mem%!28=&47:mem%?12=&80 šòwrite(&47,hd%) ® òclear ¸ç¬safe%:òwrite(&48,hd%) Âç¬safe%:òwrite(&49,hd%) Ö<ñ"Drive ";~hd%;" initialised to ";¤sz(size%):òdelay(200) àá ôÝòInitADFS þ òclear mem%!0=7 çpart%:mem%!3=&4A mem%!252=size% &mem%?255=0:mem%?255=¤sum 0òwrite(0,hd%) D òclear Nmem%!0=size%-7 X&çpart%:mem%!0=&3F:mem%!3=size%-&4A bmem%!251=³(65535) lmem%?253=0 vmem%?254=3-3*(part%<>0) €mem%?255=1:mem%?255=¤sum Šòwrite(1,hd%) žãS%=2¸6:òclear ¨(çsafe%:òread(S%,hd%):òclrdir(S%*4-3) ²"çS%=2:$mem%=½0+"Hugo":mem%?5=0 ¼$çS%=6:$(mem%+204)="$":mem%!214=2 Æ(çS%=6:$(mem%+217)="$":$(mem%+227)="" Ð*çS%=6:$(mem%+250)=½0+"Hugo":mem%?255=0 Úòwrite(S%,hd%):í î/ñ"Drive ";hd%;" initialised to ";¤sz(size%) øFñ"**WARNING** You *MUST* reset ADFS to"'"prevent disk corruption." òdelay(200):á %Ýòclear:ãA%=0¸255ˆ4:mem%!A%=0:í:á ,Ýòclrdir(O%):ãA%=O%¸255ˆ26:mem%?A%=0:í:á 4Ý¤sum:êsum%:sum%=255 >GãA%=254¸0ˆ-1:sum%=(sum%+sum%256)€255:sum%=sum%+mem%?A%:í:=sum%€255 RÝòRandom \+ñ"Randomise contents of drive ";hd%;"?" fKè"Enter YES to confirm: "A$:çA$<>"YES":ñ"Not randomised";:òdelay(200):á p(ñ"Press ESCAPE to terminate "; z sec%=0:õñÄ6,½8);¤h0(sec%,6); „/ãA%=0¸255:mem%?A%=³(255):í:òwrite(sec%,hd%) Žsec%=sec%+1:ý0:á ¢HÝòwrite(sec%,drv%):cmd%=wr%:çdrv%<4:ç¤scsi(&0A,mem%,1,sec%,drv%)=0:á ¬GÝòread(sec%,drv%):cmd%=rd%:çdrv%<4:ç¤scsi(&08,mem%,1,sec%,drv%)=0:á ¶j!addr%=mem%:!sc%=sec%:A%=sc%?2:sc%?2=sc%?0:sc%?0=A%:?dv%=(d4%*32)€128:?nm%=1:nm%?1=0:çdrv%>3:?dv%=drv% ÀA%=ºcmd%:á Ô Ýòdelay(T%):T%=‘+T%:õý‘>T%:á è:Ý¤scsi(cmd%,addr%,num%,sect%,drv%):çsect%>&1EFFFF:=&21 òêfs%:fs%=¤fs:çfs%<>8:*FADFS üDX%?0=0:X%!1=addr%:X%?5=cmd%:X%?6=drv%*32+((sect%€&1F0000)65536) 9X%?7=((sect%€&FF00)256):X%?8=sect%:X%!9=num%:X%!11=0 2A%=114:Ö&FFF1:A%=?X%:çfs%<>8:ÿ"FX143,18,"+Ãfs% =A% . Ý¤fs:êA%,Y%,E%:=(º&FFDA)€&FF 85Ý¤fx(A%,X%):êY%:Y%=X%256:=((º&FFF4)€&FFFF00)256 L#Ý¤h0(A%,N%)=Â"0000000"+Ã~A%,N%) V"Ý¤d(A%,N%)=Â" "+ÃA%,N%) `Ý¤str(A%,N%):êA$:õ j"çA%?1>31:A$=A$+½A%?1‹A$=A$+"." t ç?A%>31:A$=A$+½?A%‹A$=A$+"." ~A%=A%+2:N%=N%-2:ýN%<1:=A$ ˆ+Ý¤sz(A%):=Ã(A%4)+"K ("+Ã(A%4096)+"M)" ’Ý¤rdsz(A$):çÀA$,1)="&":= A$ œ!çÂA$,1)="K"„ÂA$,1)="k":=»A$*4 ¦$çÂA$,1)="M"„ÂA$,1)="m":=»A$*4096 °=»A$256 ÄÝòasm:mc%=mc%:çmc%:á Î>Þmc%409:addr%=&80:dv%=&84:sc%=&85:nm%=&88:cmd%=&8A:tmp=&8B Ø?IDEdata=&FC40:IDEerror=&FC41:IDEcount=&FC42:IDEsector=&FC43 âDIDEcylinder=&FC44:IDEhead=&FC46:IDEstatus=&FC47:IDEcommand=&FC47 ì,scsz%=256:ç!IDEdata<>IDEdata!8:scsz%=512 dãP=0¸1:P%=mc%:[OPT P*2 n>.id%:TAY:.idlp:LDA &FF:BMI idescape:LDA IDEstatus:BMI idlp x0TYA:€#16:STA IDEhead:LDA #&EC:STA IDEcommand ‚