单片机液晶显示器程序

RS EQU P2.0;RW EQU P2.1;E EQU P2.2;ORG 0000H;AJMP MAIN;ORG 0100H;MAIN: MOV P0,#01H;LCALL XRT;MOV P0,#038H;LCALL XRT;MOV P0,#0CH;LCALL XRT;MOV P0,#080H;LCALL XRT;MOV R1,#080H;MOV P0,#01010011B;LCALL WXS;LCALL QJ;MOV P0,#01010000B;LCALL WXS;LCALL QJ;MOV P0,#01010011BLCALL WXS;LCALL QJ;MOV P0,#01010111BLCALL WXS;LCALL QJ;MOV P0,#01000100BLCALL WXS;LCALL QJ;MOV P0,#00111000BLCALL WXS;LCALL QJ;MOV P0,#01010101BLCALL WXS;LCALL QJ;WXS: SETB RS;CLR RW;CLR E;RET;QJ: MOV A,R1;INC A;MOV R1,A;MOV P0,A;LCALL XRT;RET;XRT: CLR RS;CLR RW;CLR E;LCALL CKMB;SETB E;RET;CKMB: MOV P0,#0FFH;CLR RS;SETB RW;CLR E;NOP SETB E;JB P0.7,CKMB;RETEND