> BLib.DiskIO 1.03  Disk I/O functions : (7ݤdisk(addr%,cmd%,drv%,trk%,sec%,num%,den%):fs%,n% 2fs%=fs:fs%<>4:*FX143,18,4 <$:n%=num%:sec%+n%>10:n%=10-sec% FD:X%?0=drv%+den%*24+8+2*(trk%80):X%!1=addr%:X%?5=3-7*(cmd%>127) P@X%?6=cmd%:X%?7=trk%80:X%?8=sec%:X%!9=n%&1E20:A%=127:&FFF1 ZYA%=X%?(7+X%?5):A%<>&10:addr%=addr%+n%*256:num%=num%-n%:sec%=(sec%+n%)10:trk%=trk%+1 d+A%<>0num%<1:fs%<>4:"FX143,18,"+fs% n=A% x: :ݤscsi(addr%,cmd%,drv%,sect%,num%):sect%>&1FFFFF:=&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%=&72:&FFF1:A%=?X%:fs%<>8:"FX143,18,"+fs% =A% : :ݤlvfs(addr%,cmd%,drv%,sect%,num%):sect%>&1FFFFF:=&21 &fs%:fs%=fs:fs%<>10:*FX143,18,10 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 3A%=&62:&FFF1:A%=?X%:fs%<>10:"FX143,18,"+fs% =A% :  ݤfs:A%,E%,Y%:=(&FFDA)&FF : "ݤscsi_err(A%,S%) ,QA%:"Disk error ";h0(A%,2);" (";"fddhdd",(A%64)/64+1,3);") at ";h0(S%,6) 6=A% @: Jݤdisk_err(A%,S%) T1A%:"Disk error ";h0(A%,2);" at ";h0(S%,4) ^=A% h: