1单片机与HD7279的子程序

1单片机与HD7279的子程序ORG0100HSTART:MOVSP,#2FHMOVP1,#11111001BLCALLDELAY25MMOVDATA_OUT,#0A4HLCALLSENDSETBCSMAIN:JBKEY,MAINMOVDATA_OUT,#15HLCALLSENDLCALLRECEIVSETBCSMOVA,DATA_INANIA,#0F0HSWAPAMOVTEN,AMOVA,DATA_INANLA,#0FHMOVDIGTT,AMOVDATA_OUT,#0A1HLCALLSENDMOVDATA_OUT,#81HLCALLSENDLCALLDELAY100MOVDATA_OUT,TENLCALLSENDMOVDATA_OUT,#80HLCALLSENDLCALLDELAY100MOVDATA_OUT,TENLCALLSENDMOVDATA_OUT,#80HLCALLSENDLCALLDELAY100MOVDATA-OUT,DIGITLCALLSENDSETBCSWAIT:INBKEY,WAITLJMPMAINSEND:MOVBIT_COUNT,#8CLRCSSEN_LOOP:LCALLDELAY100MOVC,DATA_OUT,7MOVDAT,CSETBCLK:CLKMOVA,DATA_OUTBLAMOVDATA_OUT,ALCALLDELAY100CLRCLKDJNZBIT_COUNT,SEND_LOOPCLRDATLCALLDELAY100RETEND2键盘子程序#includereg51.h#defineuintunsignedint#defineucharunsignedchar#defineulongunsignedlongvoiddelay10ms();//按键去抖。voidkeyboard(){P3.3=0;P3.0=0;P3.1=1;P3.6=0;P3.7=1;ucharkey;while(1){P2=0xff;P2_4=0;key=P2&0x0f;if(key!=0x0f){delay10ms();key=P2&0x0f;if(key!=0x0f){switch(key){case0x0e:display();break;case0x0d:dispbulai();break;case0x0b:shiftup();break;case0x07:shiftdown();break;}key=key&0x0f;while(key!=0x0f){key=P2key=key&0x0f;}}}P2=0xff;P2_5=0;key=P2;key=key&0x0f;if(key!=0x0f){delay10ms();key=P2&0x0f;if(key!=0x0f){switch(key){case0x0e:p1=1;break;case0x0d:p1=2;break;case0x0b:p1=3;break;case0x07:p1=0;break;}key=key&0x0f;while(key!=0x0f){key=P2;key=key&0x0f;}}}P2=0xff;P2_6=0;key=P2;key=key&0x0f;if(key!=0x0f){delay10ms();key=P2&0x0f;if(key!=0x0f){switch(key){case0x0e:p1=4；break;case0x0d:p1=5；break;case0x0b:p1=6;break;case0x07:send();break;}key=key&0x0f;while(key!=0x0f){key=P2;key=key&0x0f;}}}P2=0xff;P2_7=0;key=P2;key=key&0x0f;if(key!=0x0f){delay10ms();key=P2&0x0f;if(key!=0x0f){switch(key){case0x0e:p1=7;break;case0x0d:p1=8;break;case0x0b:p1=9;break;case0x07:;break;}key=key&0x0f;while(key!=0x0f){key=P2key=key&0x0f;}}}}}voiddelay10ms(){uchari，j;for(i=50;i0;i--)for(j=200;j0;j--);}3LCD液晶显示子程序#includereg51.h#includeintrins.hsbitbz=P3^5；sbitrq=P3^4；delay()//延时{unsignedchari，j;for(i=0;i2;i++){for(j=0;j5;j++);}}longdelay(){unsignedinti，j;for(i=0;i15;i++){for(j=0;j100;j++);}}disp(intdat){if(bz==0){P0=dat;delay();rq=1;}while(bz==0);rq=0;}hz(intff，intxx，intyy)//显示命令+坐标子程序{disp(ff);delay();disp(xx);delay();disp(yy);delay();}hz2(intgg，intdd)//汉字代码子程序{disp(gg);delay();disp(dd);delay();}displai()//显示辣菜{P3.3=0;P3.0=0;P3.1=0;P3.6=1;P3.7=0;longdelay();bz=1;rq=0;while(1){hz(0xc0,0x38,0x0c,0x1f,0x01,0x06,0x18,0x60,0x01,0x06,0x1c,0xfc,0xc4,0x34,0x0c,0x03,);//1longdelay();hz(0x80,0x41,0x31,0x11,0x19,0x15,0x13,0xff,0x11,0x11,0x13,0x15,0x19,0x11,0x21,0x40,);hz2(0x00,0x01,0x02,0x04,0x08,0x10,0x60,0xc0,0xc0,0x60,0x38,0x1c,0x0e,0x07,0x02,0x01,)；//夫longdelay();hz(0x80,0x44,0x75,0x55,0x5d,0x55,0x57,0xff,0x55,0x55,0x57,0x5f,0x4c,0x54,0x24,0x40,);hz2(0x40,0x41,0x43,0x45,0x59,0x7a,0xea,0x44,0xc4,0x4a,0x72,0x51,0x49,0x44,0x42,0x01,)；//妻longdelay();hz(0x80,0x40,0x7f,0x58,0x48,0x7f,0x22,0x27,0x24,0x25,0xff,0x24,0x2c,0x37,0x20,0x40,);hz2(0x02,0x0d,0xf2,0x84,0x8a,0xfc,0x20,0xf8,0x80,0x40,0xff,0x10,0x08,0xf4,0x02,0x01,)；//肺longdelay();hz(0x80,0x40,0x20,0x7f,0x08,0x0c,0x0a,0x09,0x08,0xf9,0x0a,0x0c,0x08,0x18,0x28,0x40,);hz2(0x01,0x03,0x0e,0xf4,0x88,0x90,0xa0,0xc0,0x80,0xc0,0xa0,0xff,0x08,0x04,0x02,0x01,)；//片longdelay();hz(0xc0,0x38,0x0c,0x1f,0x01,0x06,0x18,0x60,0x01,0x06,0x1c,0xfc,0xc4,0x34,0x0c,0x03,);hz2(0xc0,0x3f,0x1c,0x13,0x11,0x16,0x18,0x60,0x01,0x9e,0x9c,0x64,0xc4,0xb8,0x7c,0x03,)；//15longdelay();hz(0xc0,0x3e,0x1c,0x13,0x11,0x17,0x1e,0x60,0x01,0x0e,0x1c,0x64,0xc4,0xb4,0x0c,0x03,);//2longdelay();hz(0x81,0x5d,0x75,0x55,0x5d,0x45,0x7f,0x45,0x09,0x31,0xd7,0x14,0x1c,0x18,0x30,0x40,);hz2(0x00,0x79,0x4a,0x4c,0x7a,0x11,0xfe,0x42,0x84,0x58,0xe0,0x10,0x0c,0x07,0x02,0x01,)；//歌longdelay();hz(0x80,0x40,0x22,0x3f,0x2a,0x26,0x22,0x63,0x5f,0x43,0xc2,0xc6,0x4a,0x12,0x20,0x40,);hz2(0x00,0x05,0x1a,0x34,0xe8,0x58,0x24,0x42,0xfc,0x40,0x20,0x50,0x38,0x1c,0x0a,0x01,)；//乐longdelay();hz(0x80,0x40,0x27,0x10,0x08,0x04,0x02,0xff,0x00,0x01,0x02,0x04,0x08,0x17,0x20,0x40,);hz2(0x00,0x05,0xfe,0x04,0x0c,0x14,0x24,0xfc,0x84,0x44,0x24,0x14,0x0c,0xfe,0x02,0x01,)；//山longdelay();hz(0xa2,0x6a,0xa6,0x73,0x2e,0x2e,0x22,0x27,0x24,0x25,0xff,0x24,0x2c,0x37,0x20,0x40,);hz2(0x41,0x43,0x4e,0xf4,0x48,0x52,0x24,0xc8,0xb0,0xc0,0xff,0xb0,0x98,0x8c,0x0a,0x01,)；//辣longdelay();hz(0x80,0x40,0x60,0x50,0x48,0x44,0x42,0x47,0x48,0x51,0x62,0x44,0x08,0x11,0x20,0x40,);hz2(0x80,0x81,0x82,0x84,0x88,0x92,0xa1,0xfe,0x80,0xc0,0xa0,0x90,0x88,0x84,0x82,0x01,)；//子longdelay();hz(0xa0,0x68,0x26,0x31,0x2e,0x34,0x02,0x3f,0x30,0x6d,0xa2,0x25,0x3e,0x10,0x20,0x40,);hz2(0x08,0x11,0x62,0x84,0xc8,0x30,0x20,0xd0,0x90,0xd0,0xb0,0x92,0x89,0xfe,0x02,0x01,)；//鸡longdelay();hz(0xc0,0x3c,0x1c,0x13,0x11,0x16,0x1c,0x60,0x01,0x1e,0x1c,0x64,0xc4,0xb8,0x7c,0x03,);hz2(0xc0,0x3f,0x1c,0x13,0x11,0x16,0x18,0x60,0x01,0x9e,0x9c,0x64,0xc4,0xb8,0x7c,0x03,)；//35longdelay();hz(0xc0,0x3c,0x1c,0x13,0x11,0x16,0x1c,0x60,0x01,0x1e,0x1c,0x64,0xc4,0xb8,0x7c,0x03,);//3longdelay();hz(0xa2,0x6a,0xa6,0x73,0x2e,0x2e,0x22,0x27,0x24,0x25,0xff,0x24,0x2c,0x37,0x20,0x40,);hz20x41,0x43,0x4e,0xf4,0x48,0x52,0x24,0xc8,0xb0,0xc0