10 REM > BLib.LVFS 1.00 12-Dec-2010
   20 REM LaserDisk functions
   30 :
   40 DEFFNlvfs(addr%,cmd%,drv%,sect%,num%):LOCALfs%
   50 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 :