1
Download USER`S GUIDE
Transcript
Language Reference nb_written := nb_written + ana(FA_WRITE(file_id,vstart)); nb_written := nb_written + ana(FA_WRITE(file_id,vend)); nb_written := nb_written + ana(FA_WRITE(file_id,vinc)); nb_written := nb_written + ana(FA_WRITE(file_id,ana(delta_tim))); ok := F_CLOSE(file_id); IF ( nb_written <> 4) THEN ERROR := ERR_FILE; END_IF; (* IL Equivalence: *) LD 'voltramp.bin' F_ROPEN ST file_id LD 0 ST nb_written LD file_id (* write vstart *) FA_WRITE vstart ANA ADD nb_written ST nb_written LD file_id (* write vend *) FA_WRITE vend ANA ADD nb_written ST nb_written LD file_id (* write vinc *) FA_WRITE vinc ANA ADD nb_written LD (* write delta_tim *) ANA (* convert it to an integer *) ST ana_delta_tim LD file_id FA_WRITE ana_delta_tim ANA ADD nb_written ST nb_written F_CLOSE ST ok LD nb_written EQ 4 RETC (* return if equal 4 *) LD ERR_FILE (* else error *) ST ERROR FM_READ FM_READ ID ICS Triplex ISaGRAF Inc. Q B-319
