FUNCTION FC 7 : VOID
NAME: INSRES // INS RES // RESET INSULATION CHECK
//****************************************************************************
//* FB 80: RESET INSULATION CHECK *
//****************************************************************************
//
//THIS FB RESETS THE INSULATION CHECK FLAGS IN DB 25 IF THE CRANE IS SWITCHED
//OF. THE MEANING OF THE DATAWORDS AND DATABITS SEE COMMENT AT DATABLCOK 25
//
//FB - INPUTS:
//
//DB##: NUMBER OF USED DATABLOCK
//CRON: FLAG CRANE IS ON
//
//USED DATAS:
//DW1+DW2 : FLAGS "READY FOR CHECK"
// --> FLAGS FOR LAYERS ARE SET / FLAGS FOR MOTORS ARE RESET
//DW10+DW11 : FLAGS "RELEASE/ENABLE INSULATION CHECK"
// --> THIS ARE ALL RESET
//DW13 : NUMBER OF ACTUAL CHECK (D1.0 = 1.. D2.15 = 32) IS RESET
//DW12 : NUMBER OF CHECK OF LAST PLC-CYCLE IS RESET
//DW20 : NUMBER OF LAST INSULATION FAULT IS RESET
//DW5+DW6 : FLAGS CHEK IS NOT DONE ARE SET
//
//
VAR_INPUT
_DB :block_db; // DB##
CRON :bool; // CRON
END_VAR
BEGIN
NETWORK
A #CRON; // IF CRANE IS ON
BEC; // END OF FUNCTION BLOCK
OPN #_DB ; // OPEN DATA BLOCK
L 2#0011111111111111; // SET FLAGS: LAYERS READY
T DBW 2; // AND
L 2#0011000000000000; // RESET FLAGS: MOTORS READY
T DBW 4;
L 0; // RESET FLAGS:
T DBW 20; // -RELEASE INSULATION CHECK PART 1
T DBW 22; // - " " " " 2
T DBW 26; // -BITNUMBER
T DBW 24; // -LAST BITNUMBER
T DBW 40; // -INSU.-FAULT-NUMBER
L W#16#FFFF;
T DBW 10; // SET FLAGS: CHECK IS NOT DONE
T DBW 12; // SET FLAGS: CHECK IS NOT DONE


END_FUNCTION