[futurebasic] Disk Initialization

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : June 1999 : Group Archive : Group : All Groups

From: Sylvain Guillemette <allmedia@...>
Date: Tue, 15 Jun 1999 23:25:37 -0400
Hi,

Can someone tell me what's wrong with this code...
I'm trying to initialize a disk from my app.

FJ II (the 'ScanVolumes' function), tells me that my mounted
diskette has a Vref of -3.
When i pass -3 to FN DIBADMOUNT, i always get an error -56.

Note: in InsideMac, this equivalent error is 56 (positive)
and FB returns a negative error (-56).

'---------------------------------
COMPILE 0, _dimmedVarsOnly
DIM Pnt.4
DIM Err%
END GLOBALS

LOCAL FN MyDILoad
  ` MOVE.W #$0002,-(sp)
  ` DC.W $A9E9
END FN

LOCAL FN MyDIUnload
  ` MOVE.W #$0004,-(sp)
  ` DC.W $A9E9
END FN

WINDOW 1
FN MyDILoad
CALL SETPT(Pnt, 120, 120)
Err% = FN DIBADMOUNT (Pnt, -3)
IF Err% <> 0 THEN PRINT Err%
FN MyDIUnload

DO
  HANDLEEVENTS
UNTIL 0
'---------------------------------

Thanks,
Sylvain