FileMemoryDump, dump memory on file

PROGRAM ST_FileMemoryDump
VAR
    Read : BOOL; (* Read command *)
    Write : BOOL; (* Write command *)
    ASelector : UDINT; (* Array selector *)
    DBuf : ARRAY[0..1, 0..15] OF BYTE; (* Data buffer *)
    MDump : FileMemoryDump_v1; (* FBinstance *)
END_VAR

// *****************************************************************************
// PROGRAM "ST_FileMemoryDump"
// *****************************************************************************
// Setting by debug the Read or Write command the selected data array is read or
// write on file. Please note than the write command must be executed before to
// execute the read. Otherwise file is not present and the read command fails. 
// -----------------------------------------------------------------------------

    // -------------------------------------------------------------------------
    // INITIALIZATION
    // -------------------------------------------------------------------------
    // Execute program initialization.

    IF (SysFirstLoop) THEN
        MDump.SpyOn:=TRUE; //SpyOn

        MDump.Mode:=FILEMDUMP_MODE#ASCII; //Execution mode
        MDump.Filename:=ADR('C:/MRetain.txt'); //Dump memory file
//      MDump.Filename:=ADR('D:/MRetain.txt'); //Dump memory file
    END_IF;

    // -------------------------------------------------------------------------
    // MEMORY DUMP
    // -------------------------------------------------------------------------
    // On set by debug the Read or Write command the selected data array is read
    // or write on file. please not

    MDump(); //Execute the FB
    IF (MDump.Done) THEN MDump.Read:=FALSE; END_IF;
    IF (MDump.Done) THEN MDump.Write:=FALSE; END_IF;

    // -------------------------------------------------------------------------
    // COMMAND MANAGEMENT
    // -------------------------------------------------------------------------
    // Data buffer read.

    IF (Read) THEN
        Read:=FALSE; //Read command
        MDump.MBAdd:=ADR(DBuf[ASelector, 0]); //Dump memory address
        MDump.MBSize:=16; //Dump memory size
        MDump.FPOfs:=ASelector*MDump.MBSize; //File position offset
        MDump.Read:=TRUE; //Read command
    END_IF;

    // Data buffer write.

    IF (Write) THEN
        Write:=FALSE; //Write command
        MDump.MBAdd:=ADR(DBuf[ASelector, 0]); //Dump memory address
        MDump.MBSize:=16; //Dump memory size
        MDump.FPOfs:=ASelector*MDump.MBSize; //File position offset
        MDump.Write:=TRUE; //Write command
    END_IF;

// [End of file]