10 REM > BLib.LVFS 1.00 12-Dec-2010

   20 REM LaserDisk functions

   30 :

   40 DEFFNlvfs(addr%,cmd%,drv%,sect%,num%):IFsect%>&1FFFFF:=&10

   50 LOCALfs%:fs%=FNfs:IFfs%<>10:*FX143,18,10

   60 X%?0=0:X%!1=addr%:X%?5=cmd%:X%?6=drv%*32+((sect%AND&1F0000)DIV65536)

   70 X%?7=((sect%AND&FF00)DIV256):X%?8=sect%:X%!9=num%:X%!11=0

   80 A%=&62:CALL&FFF1:A%=?X%:IFfs%<>10:OSCLI"FX143,18,"+STR$fs%

   90 =A%

  100 :

  110 DEFFNlvfs_cmd(A$):LOCALfs%:fs%=FNfs

  120 $(X%+15)=A$:?X%=0:X%!1=X%+15:X%!5=&CA:X%!9=1:X%!11=LENA$

  130 A%=&62:CALL&FFF1:A%=?X%:IFfs%<>10:OSCLI"FX143,18,"+STR$fs%

  140 =A%

  150 :

  160 DEFFNlvfs_rd:LOCALfs%:fs%=FNfs

  170 A%=&64:!X%=0:CALL&FFF1:IFfs%<>10:OSCLI"FX143,18,"+STR$fs%

  180 =$X%

  190 :

  200 DEFFNlvfs_fcode(A$):A%=FNlvfs_cmd(A$):=FNlvfs_rd

  210 :

  220 DEFFNfs:LOCAL A%,E%,Y%:=(USR&FFDA)AND&FF

  230 :