利用汇编语言编写的12864液晶显示

PA EQU 8000H PB EQU 8001H PCORT EQU 8002H CON EQU 8003H BUF EQU 50H ORG 0000H MOV SP,#60H MOV A,#00H MOV R7,A ;打开LCD LCALL WRLCDI MOV A,#0B8H MOV R7,A ;初始化X LCALL WRLCDI MOV R7,#40H MOV A,R7 ;初始化 Y LCALL WRLCDI MOV DPTR,#TABLE MOV R3,#4 LOOPP1: ;写左半屏上半行 MOV R1,#BUF MOV R2,#16 LOOPT1: CLR A MOVC A,@A+DPTR MOV @R1,A INC R1 INC DPTR DJNZ R2,LOOPT1 MOV R1,#BUF LCALL SENDLCDL DJNZ R3,LOOPP1 MOV A,#40H MOV R7,A ;初始化Y LCALL WRLCDI LOOPP2: ;写右半屏上 MOV R1,#BUF MOV R2,#16 LOOPT2: CLR A MOVC A,@A+DPTR MOV @R1,A INC R1 INC DPTR DJNZ R2,LOOPT2 MOV R1,#BUF LCALL SENDLCDR DJNZ R3,LOOPP2 MOV A,#0B9H MOV R7,A ;初始化X为下半行 LCALL WRLCDI MOV A,#40H MOV R7,A ;初始化Y地址 LCALL WRLCDI MOV R3,#4 LOOPP3: ;写左半屏下半行 MOV R1,#BUF MOV R2,#16 LOOPT3: CLR A MOVC A,@A+DPTR MOV @R1,A INC R1 INC DPTR DJNZ R2,LOOPT3 MOV R1,#BUF LCALL SENDLCDL DJNZ R3,LOOPP3 MOV R3,#4 LOOPP4: ;写右半屏下 MOV R1,#BUF MOV R2,#16 LOOPT4: CLR A MOVC A,@A+DPTR MOV @R1,A INC R1 INC DPTR DJNZ R2,LOOPT4 MOV R1,#BUF LCALL SENDLCDR DJNZ R3,LOOPP4 MOV R5,#3FH LOOPROLL: MOV A,#0C0H ;显示初始行值 XRL A,R5 MOV R7,A LCALL WRLCDI LCALL DELAY DEC R5 SJMP LOOPROLL SENDLCDL: PUSH DPH PUSH DPL MOV R2,#16 READLOOP: LCALL RDLCDI RLC A ;BUSY? JC READLOOP MOV R1,#BUF ;R1指向数据缓冲区 LCALL WRLCDL DJNZ R2,READLOOP POP DPL POP DPH RET SENDLCDR: PUSH DPH PUSH DPL MOV R2,#16 RDLOOP: LCALL RDLCDI RLC A ;BUSY? JC RDLOOP MOV R1,#BUF ;R1指向数据缓冲区 LCALL WRLCDR DJNZ R2,RDLOOP POP DPL POP DPH RET RDLCDI: ;读LCD状态 PUSH DPH PUSH DPL MOV DPTR,#CON MOV A,#90H ;A入口 MOVX @DPTR,A MOV DPTR,#PA MOVX A,@DPTR MOV R6,A POP DPL POP DPH RET WRLCDI: ;写LCD状态 PUSH DPH PUSH DPL MOV DPTR,#CON MOV A,#90H ;A入口 MOVX @DPTR,A MOV DPTR,#PCORT MOV A,R7 MOVX @DPTR,A MOV DPTR,#PA MOVX A,@DPTR MOV R6,A POP DPL POP DPH RET WRLCDR: ;写右半屏 PUSH DPH PUSH DPL MOV DPTR,#CON MOV A,#80H ;A口出 MOVX @DPTR,A MOV DPTR,#PCORT MOV A,#09 MOVX @DPTR,A MOV A,@R1 MOV DPTR,#PA MOVX @DPTR,A INC R1 POP DPL POP DPH RET WRLCDL: ;写左半屏 PUSH DPH PUSH DPL MOV DPTR,#CON MOV A,#80H ;A口出 MOVX @DPTR,A MOV DPTR,#PCORT MOV A,#0AH MOVX @DPTR,A MOV A,@R1 MOV DPTR,#PA MOVX @DPTR,A INC R1 POP DPL POP DPH RET DELAY:MOV 20H,#0FFH DELOOP: MOV 21H,#0FFH DJNZ 21H,$ DJNZ 20H,DELOOP RET TABLE: