Mitsubishi FR-A800 Series - Page 68

68/83
BCN-P5999-1045-1a
Window screen 30003
Object
Numerical display
Object ID *1
10013
Script user ID
1
Data type
Unsigned BIN16
Trigger type
Rise GB40
//Obtain Today's Year & Month from Clock Data
[w: TMP950] = [w: GS650] & 0xF000;//Obtain Tenths Digit of "Last 2-Digits of Year" from Clock Data for
Setting
[w: TMP960] = [w: TMP950] >> 12;//Decimal Alignment
[w: TMP968] = [w: TMP960] * 10;//BCD->BIN
[w: TMP951] = [w: GS650] & 0x0F00;//Obtain Ones Digit of "Last 2-Digits of Year" from Clock Data for Setting
[w: TMP961] = [w: TMP951] >> 8;//BCD->BIN
[w: TMP973] = 2000 + [w: TMP968] + [w: TMP961];//Set Year to TMP973 as BIN
[w: GD63990] = [w: TMP973];//Set Year
[w: TMP952] = [w: GS650] & 0x00F0;//Obtain Tenths Digit of Month from Clock Data for Setting
[w: TMP962] = [w: TMP952] >> 4;//Decimal Alignment
[w: TMP969] = [w: TMP962] * 10;//BCD->BIN
[w: TMP953] = [w: GS650] & 0x000F;//Obtain Ones Digit of Month from Clock Data for Setting
[w: TMP974] = [w: TMP969] + [w: TMP953];//Set Month to TMP974 as BIN
[w: GD63991] = [w: TMP974];//Set Month
[w: TMP954] = [w: GS651] & 0xF000;//Obtain Tenths Digit of "Last 2-Digits of Day" from Clock Data for
Setting
[w: TMP963] = [w: TMP954] >> 12;//Decimal Alignment
[w: TMP970] = [w: TMP963] * 10;//BCD->BIN
[w: TMP955] = [w: GS651] & 0x0F00;//Obtain Ones Digit of "Last 2-Digits of Day" from Clock Data for Setting
[w: TMP964] = [w: TMP955] >> 8;//BCD->BIN
[w: TMP975] =[w: TMP970] + [w: TMP964];//Set Day to TMP975 as BIN
[w: GD63992] = [w: TMP975];//Set Day
[w: TMP956] = [w: GS651] & 0x00F0;//Obtain Tenths Digit of Hour from Clock Data for Setting
[w: TMP965] = [w: TMP956] >> 4;//Decimal Alignment
[w: TMP971] = [w: TMP965] * 10;//BCD->BIN
[w: TMP957] = [w: GS651] & 0x000F;//Obtain Ones Digit of Hour from Clock Data for Setting
[w: TMP976] = [w: TMP971] + [w: TMP957];//Set Hour to TMP976 as BIN
[w: GD63993] = [w: TMP976];//Set Hour
[w: TMP958] = [w: GS652] & 0xF000;//Obtain Tenths Digit of "Last 2-Digits of Minute" from Clock Data for
Setting
[w: TMP966] = [w: TMP958] >> 12;//Decimal Alignment
[w: TMP972] = [w: TMP966] * 10;//BCD->BIN
[w: TMP959] = [w: GS652] & 0x0F00;//Obtain Ones Digit of "Last 2-Digits of Minute" from Clock Data for
Setting
[w: TMP967] = [w: TMP959] >> 8;//BCD->BIN
[w: TMP977] =[w: TMP972] + [w: TMP967];//Set Minute to TMP977 as BIN
[w: GD63994] = [w: TMP977];//Set Minute
[w: TMP993] = [w: GS652] & 0x00F0;//Obtain Tenths Digit of Second from Clock Data for Setting
[w: TMP995] = [w: TMP993] >> 4;//Decimal Alignment
[w: TMP996] = [w: TMP995] * 10;//BCD->BIN
[w: TMP994] = [w: GS652] & 0x000F;//Obtain Ones Digit of Second from Clock Data for Setting
[w: TMP978] = [w: TMP996] + [w: TMP994];//Set Second to TMP978 as BIN
[w: GD63995] = [w: TMP978];//Set Second
Object
Numerical display
Object ID *1
10014
Script user ID
2
Data type
Unsigned BIN16
Trigger type
Ordinary
//BIN -> BCD Conversion
[w: TMP979] = [w: GD63990] - 2000; //Last 2-Digits of Year
[w: TMP980] = (([w: TMP979] / 10) << 4) + ([w: TMP979] % 10); //Year BIN -> BCD
[w: TMP981] = (([w: GD63991] / 10) << 4) + ([w: GD63991] % 10); //Month BIN -> BCD