12232f_p.asm

基于msc单片机仿真机的仿真程序

;This program is for 12232-9  并行
; RS--------P2.0
; R/W-------P2.1
; E---------P2.2
; DB0~7-----P0
	RS EQU P2.0
	RW EQU P2.1
	E EQU P2.2
	ORG 0000H
	AJMP START
	ORG 0010H
START:
	LCALL SETUP
	LCALL DEF_CHAR
	MOV A,#80H
	LCALL WRITE_COM
	MOV R3,#8
TEST11:
	MOV DPTR,#CGRAM1 ;CGRAM TEST
	LCALL WRITE_CGRAM
	DJNZ R3,TEST11
	MOV A,#90H
	LCALL WRITE_COM
	MOV R3,#8
TEST12:
	MOV DPTR,#CGRAM1
	LCALL WRITE_CGRAM
	DJNZ R3,TEST12
	LCALL DELAY
	LCALL DELAY
	LCALL DELAY
	LCALL DELAY
	LCALL DELAY
	MOV A,#80H
	LCALL WRITE_COM
	MOV R3,#8
TEST21:
	MOV DPTR,#CGRAM2
	LCALL WRITE_CGRAM
	DJNZ R3,TEST21
	MOV A,#90H
	LCALL WRITE_COM
	MOV R3,#8
TEST22:
	MOV DPTR,#CGRAM2
	LCALL WRITE_CGRAM
	DJNZ R3,TEST22
	LCALL DELAY
	LCALL DELAY
	LCALL DELAY
	LCALL DELAY
	LCALL DELAY
	MOV A,#80H
	LCALL WRITE_COM
	MOV R3,#8
TEST31:
	MOV DPTR,#CGRAM3
	LCALL WRITE_CGRAM
	DJNZ R3,TEST31
	MOV A,#90H
	LCALL WRITE_COM
	MOV R3,#8
TEST32:
	MOV DPTR,#CGRAM3
	LCALL WRITE_CGRAM
	DJNZ R3,TEST32
	LCALL DELAY
	LCALL DELAY
	LCALL DELAY
	LCALL DELAY
	LCALL DELAY
	MOV A,#80H
	LCALL WRITE_COM
	MOV R3,#8
TEST41:
	MOV DPTR,#CGRAM4
	LCALL WRITE_CGRAM
	DJNZ R3,TEST41
	MOV A,#90H
	LCALL WRITE_COM
	MOV R3,#8
TEST42:
	MOV DPTR,#CGRAM4
	LCALL WRITE_CGRAM
	DJNZ R3,TEST42
	LCALL DELAY
	LCALL DELAY
	LCALL DELAY
	LCALL DELAY
	LCALL DELAY
	MOV A,#80H ;WORD TEST
	LCALL WRITE_COM
	MOV DPTR,#CHINESE
	LCALL WRITE_HZ
	MOV A,#90H
	LCALL WRITE_COM
	MOV DPTR,#TABLE1
	LCALL WRITE_ASCII	
	LCALL DELAY
	LCALL DELAY
	LCALL DELAY
	LCALL DELAY
	LCALL DELAY
AAA:    LJMP START
SETUP:
	LCALL DELAY
	LCALL DELAY
	LCALL DELAY
	MOV A,#01H ;CLEAR DISPLAY
	LCALL WRITE_COM
	MOV A,#00110000B ;FUNCTION SETTING
	LCALL WRITE_COM
	MOV A,#00000010B ;DDRAM SET TO '00H'
	LCALL WRITE_COM
	MOV A,#00000100B ;
	LCALL WRITE_COM
	MOV A,#00001100B ;DISPLAY ON
	LCALL WRITE_COM
	MOV A,#00000001B ;CLEARING SCREEN
	LCALL WRITE_COM
	MOV A,#10000000B ;SET DDRAM ADDRESS
	LCALL WRITE_COM
	RET
WRITE_COM: ;WRIT///cv
;WRITE COMMANDS TO ST7920
	LCALL DELAY1 ;INSTEAD OF CHECKING BF STATE
	CLR RS
	CLR RS
	CLR RW
	CLR RW
	MOV P0,A
	MOV P0,A
	SETB E
	SETB E
	NOP
	NOP
	CLR E
	CLR E
;LCALL DELAY1
	RET
WRITE_DAT: ;WRITE DISPLAY DATAS TO ST79220
	LCALL DELAY1
	SETB RS
	SETB RS
	CLR RW
	CLR RW
	MOV P0,A
	MOV P0,A
	SETB E
	SETB E
	NOP
	NOP
	CLR E
	CLR E
	RET
DELAY1:
	MOV R7,#010H
D11:    MOV R6,#010H
	DJNZ R6,$
	DJNZ R7,D11
	RET
DELAY:
	MOV R1,#00H
D2:     MOV R2,#00H
	DJNZ R2,$
	DJNZ R1,D2
	RET
DEF_CHAR: ;WRITE TO CGRAM
	MOV A,#01000000B ;SET CGRAM ADDRESS
	LCALL WRITE_COM
	MOV R3,#8
DEF1:
	MOV A,#000H
	LCALL WRITE_DAT
	LCALL WRITE_DAT
	MOV A,#0FFH
	LCALL WRITE_DAT
	LCALL WRITE_DAT
	DJNZ R3,DEF1
	MOV R3,#8
DEF2:
	MOV A,#0AAH
	LCALL WRITE_DAT
	LCALL WRITE_DAT
	MOV A,#0AAH
	LCALL WRITE_DAT
	LCALL WRITE_DAT
	DJNZ R3,DEF2
	MOV R3,#8
DEF3:
	MOV A,#055H
	LCALL WRITE_DAT
	LCALL WRITE_DAT
	MOV A,#0AAH
	LCALL WRITE_DAT
	LCALL WRITE_DAT
	DJNZ R3,DEF3
	MOV R3,#8
DEF4:
	MOV A,#0FFH
	LCALL WRITE_DAT
	LCALL WRITE_DAT
	LCALL WRITE_DAT
	LCALL WRITE_DAT
	DJNZ R3,DEF4
	RET
WRITE_ASCII:
	MOV R4,#16
DDDD:   CLR A
	MOVC A,@A+DPTR
	LCALL WRITE_DAT
	INC DPTR
	DJNZ R4,DDDD
	RET
WRITE_HZ: ;WRITE 8 CHINESE TO LCD
	MOV R4,#6
DD:     
	CLR A
	MOVC A,@A+DPTR
	INC DPTR
	LCALL WRITE_DAT
	CLR A
	MOVC A,@A+DPTR
	INC DPTR
	LCALL WRITE_DAT
	DJNZ R4,DD
	RET
WRITE_CGRAM: ;CGRAM TESTING
	CLR A
	MOVC A,@A+DPTR
	LCALL WRITE_DAT
	INC DPTR
	CLR A
	MOVC A,@A+DPTR
	LCALL WRITE_DAT
	RET
TABLE1:
DB 0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37
DB 0x38,0x39,0x3A,0x3B,0x3C,0x3D,0x3E,0x3F

;“这里是16*8 点阵的字符代码”
CGRAM1: DB 00H,00H ;这里是自造字符地址表
CGRAM2: DB 00H,02H
CGRAM3: DB 00H,04H
CGRAM4: DB 00H,06H
CHINESE:
DB 0B3H,0A7H,0B3H,0A8H,0B3H,0A9H,0B3H,0AAH,0B3H,0ABH,0B3H,0ACH
;“这里是16*16 点阵的汉字代码表”
	END