12232f_s.asm

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

;以下为串口写指令和数据的子程序：
;This program is for 12232-9 串行
; CS--------P2.0
; SID-------P2.1
; CLK---------P2.2
	CS EQU P2.0
	SID EQU P2.1
	CLK 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
	LCALL DELAY
	LCALL DELAY
	LCALL DELAY
	LCALL DELAY
	MOV A,#80H
	LCALL WRITE_COM
	MOV DPTR,#table1
	LCALL WRITE_ascii
	MOV A,#90H
	LCALL WRITE_COM
	MOV DPTR,#chinese
	LCALL WRITE_hz
	LCALL DELAY
	LCALL DELAY
	LCALL DELAY
	LCALL DELAY
	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:
	LCALL DELAY1 ;INSTEAD OF CHECKING BF STATE
	SETB CS
	PUSH ACC
	MOV R0,#8
	MOV A,#11111000B
COMM1:
	CLR C
	RLC A
	MOV SID,C
	CLR CLK
	SETB CLK
	DJNZ R0,COMM1
	POP ACC
	MOV R5,A
	ANL A,#0F0H
	MOV R0,#8
COMM2:  CLR C
	RLC A
	MOV SID,C
	CLR CLK
	SETB CLK
	DJNZ R0,COMM2
	MOV A,R5
	SWAP A
	ANL A,#0F0H
	MOV R0,#8
COMM3:  CLR C
	RLC A
	MOV SID,C
	CLR CLK
	SETB CLK
	DJNZ R0,COMM3
	CLR CS
	RET
	WRITE_DAT:
	LCALL DELAY1
	SETB CS
	PUSH ACC
	MOV R0,#8
	MOV A,#11111010B
DATA1:  CLR C
	RLC A
	MOV SID,C
	CLR CLK
	SETB CLK
	DJNZ R0,DATA1
	POP ACC
	MOV R5,A
	ANL A,#0F0H
	MOV R0,#8
	DATA2: CLR C
	RLC A
	MOV SID,C
	CLR CLK
	SETB CLK
	DJNZ R0,DATA2
	MOV A,R5
	SWAP A
	ANL A,#0F0H
	MOV R0,#8
	DATA3: CLR C
	RLC A
	MOV SID,C
	CLR CLK
	SETB CLK
	DJNZ R0,DATA3
	CLR CS
	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,#8
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