ô > HDInit v1.16 ¾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 ¤Abig%=0:hdsize%=0:ãA%=0¸511ˆ4:info%!A%=0:í:dev$="IDE":çhd%>3:á ®Rÿ"FADFS":?&F6=8:?&F7=&80:Y%=?&DBC:A%=((º&FFB9)€6)/2:Y%=X%256:çA%<>1:scsz%=256 ¸/dev$=Á"SCSIIDE --- MMC ",A%*4+1,4+(A%>0)):á Ì Ý¤menu ÖAÛ:ñ" BBC ";dev$;" Hard Drive Initialiser "ver$'Ä34+©dev$,"=") àò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%2‹dev%=hd%€1 ¼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) Eñ'" Total sectors: &";¤h0(hdsize%,8)" (";¨(hdsize%/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 Fñ" 8-bit Size: ";¤d(hdsize%4,8);"K (";¨(hdsize%/409.6)/10;"M)" *Gçhd%<4:òInfo(hd%,14,&200000,"ADFS")‹òInfo(hd%„4,5,&1000000,"HADFS") 4ñÄ34+©dev$,"="):á H"ÝòInfo(d%,m%,sz%,fs$):d%=d%€m% R'ñ" ";fs$;" drives:";:hsz%=hdsize%:õ \A%=sz%:çhsz%3);": ";¨(A%/409.6)/10;"M":hsz%=hsz%-A% „*d%=d%+2-2*(d%>3):ýd%=2„d%=4„(d%€-2)=12 Žá ¢ÝòDrive ¬9è"Enter logical drive (0-B) :"A$:çA$>"`":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:hdsize%=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 $hdsize%=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:hdsize%=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:hdsize%=¤rdsz(A$):á âÝòFormat:çhdsize%<1:òInvest ì3size%=hdsize%:max%=&200000:çhd%>3:max%=&1000000 ö=çhd%=1„hd%=3„hd%>5:A%=hd%:õsize%=size%-max%:A%=A%-2:ýA%<6 ç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 (WA$="":ç(hd%€13)=0„(hd%€14)=4:ñ"Leave space for ";À"H",hd%<4);"ADFS system? ";:è""A$ 2Fpart%=(ÀA$,1)="Y"„ÀA$,1)="y")€&400000:çpart%>hdsize%:part%=hdsize% 3:ñ"ADFS space (";¤sz(part%);"): ";:è""A$:çA$<>"":part%=¤rdsz(A$) FRè"Format? Enter YES to confirm: "A$:çA$<>"YES":ñ"Not formatted";:òdelay(200):á Pçhd%<4:òInitADFS Z*çhd%>3:òInitHADFS:çpart%:hdsize%=part% dá xÝò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 ,+mem%!(32+4*msz%)=&00:mem%!(32+5*msz%)=0 6oçpart%:mem%?31=mem%?31„&41:mem%!32=start%:mem%!(32+msz%)=size%-start%:mem%!(32+2*msz%)=0:mem%!(32+3*msz%)=0 @òwrite(&46,hd%) T òclear ^çsafe%:òread(&47,hd%) h$mem%="$ " rmem%!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 &òwrite(0,hd%) : òclear Dmem%!0=size%-7 N&çpart%:mem%!0=&3F:mem%!3=size%-&4A Xmem%!251=³(65535) bmem%?253=0 lmem%?254=3-3*(part%<>0) vmem%?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:í:á *Ý¤sum:êsum%:sum%=255 4GãA%=254¸0ˆ-1:sum%=(sum%+sum%256)€255:sum%=sum%+mem%?A%:í:=sum%€255 HÝòRandom R+ñ"Randomise contents of drive ";hd%;"?" \Kè"Enter YES to confirm: "A$:çA$<>"YES":ñ"Not randomised";:òdelay(200):á f(ñ"Press ESCAPE to terminate "; p sec%=0:õñÄ6,½8);¤h0(sec%,6); z/ã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:á ¬_!addr%=mem%:!sc%=sec%:A%=sc%?2:sc%?2=sc%?0:sc%?0=A%:?dv%=0:?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 .5Ý¤fx(A%,X%):êY%:Y%=X%256:=((º&FFF4)€&FFFF00)256 B#Ý¤h0(A%,N%)=Â"0000000"+Ã~A%,N%) L"Ý¤d(A%,N%)=Â" "+ÃA%,N%) VÝ¤str(A%,N%):êA$:õ `"çA%?1>31:A$=A$+½A%?1‹A$=A$+"." j ç?A%>31:A$=A$+½?A%‹A$=A$+"." tA%=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%399: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 ZãP=0¸1:P%=mc%:[OPT P*2 d>.id%:TAY:.idlp:LDA &FF:BMI idescape:LDA IDEstatus:BMI idlp n0TYA:€#16:STA IDEhead:LDA #&EC:STA IDEcommand x