%Т > BLib.Context 1.01 12-Aug-2011 *Т Read and write filing system context *Т ------------------------------------ (: 25Т ----------------------------------------------- <5Т FNfs_RdCSD - Read current filing system context F5Т ----------------------------------------------- P9Т Returns 0 or a value to pass back to PROCfs_WrCSD() Z: dщєfs_RdCSD n.Й fs%,csd%,B%:fs%=єfs:Гfs%<4:X%?3=fs%:=!X% x&Гfs%=16:=єargs(&FE,25,0)└&A0000000 ┌?Гfs%=8:csd%=&1114:!X%=&FFDD:A%=5:ж&FFF1:ГX%?4=76:csd%=&C314 ▄OГfs%=8:ЦB%=0╦3:!X%=csd%+B%:ж&FFF1:X%?(5+B%)=X%?4:М:X%?8=(X%?8│32)└&80:=X%!5 √[Гfs%=5:B%=єNet_Info(6,0):csd%=▌"@":csd%=єNet_Info(7,(B%─&FF00FF)+csd%*256):=B%└&5000000 ═0Гfs%=4:B%=≈єgbpb(6):=B%+256*name%?1+&4000000 ╙=0 Є: Ў8Т -------------------------------------------------- х8Т PROCfs_WrCSD(csd%) - Restore filing system context р8Т -------------------------------------------------- э<Т On entry, csd%=0 or a previous context from FNfs_RdCSD Ф: ПщРfs_WrCSD(csd%):Гcsd%=0:А З;Й fs%,B%:X%!5=csd%:fs%=X%?8:Гcsd%<0:fs%=((fs%-96)│32)*8 Ъ"FX143,18,"+цfs%:Гfs%<4:А -Гfs%=16:A%=єargs(&FD,25,csd%─&1FFFFFFF):А LГfs%=8:X%?8=X%?8*32:csd%=&1114:!X%=&FFDD:A%=5:ж&FFF1:ГX%?4=76:csd%=&C314 "FГfs%=8:A%=6:ЦB%=0╦3:!X%=csd%+B%:X%?4=X%?(5+B%):ж&FFF1:М:Ъ"DIR @":А ,FГfs%=5:B%=єNet_Info(6,0):ы#((B%─&FF00)│256):B%=єNet_Info(7,csd%):А 6%Гfs%=4:Ъ"DIR :"+ҐX%?6+"."+ҐX%?5:А @А J: Ъ