[Back to DRIVES SWAG index] [Back to Main SWAG index] [Original]

    (*
    =========================================================================
    Date: 10-02-93 (19:15)
    From: D.J. Murdoch
    Subj: Flashing The Disk Light
    =========================================================================

    THIS IS SAFE !!!!  All it does is turn the disk light ON/OFF.  Should
    only be used on Floppy drives.

    *)

    USES Crt;

    procedure turn_on_motor(drive:byte);
    { Remember to wait about a half second before trying to read! }
    begin
         port[$3F2] := 12 + drive + 1 SHL (4 + drive);
    end;

    procedure turn_off_motor(drive:byte);
    { drive A = 0, drive B = 1 }
    begin
         port[$3F2] := 12 + drive;
    end;

    VAR I : BYTE;

    BEGIN

    FOR I := 1 TO 10 DO  { let's make 'A' and 'B' flash for awhile }
        BEGIn
        Turn_On_Motor(0);
        Delay(100);
        Turn_Off_Motor(0);
        Delay(100);
        Turn_On_Motor(1);
        Delay(100);
        Turn_Off_Motor(1);
        Delay(100);
        END;
    END.

[Back to DRIVES SWAG index] [Back to Main SWAG index] [Original]