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