📄 12232c.txt
字号:
;12232C.ASM 2003-2-12 For DW-3I.PCB(2001-5-18)
;12232.ASM 2003-2-12 For DW-3I.PCB(2001-5-18)
;12032.ASM 2003-2-11 For DW-3I.PCB(2001-5-18)
;============================================================================
;============================================================================
; 北京嘉甬富达电子公司
; 地址： 中发电子大厦 1038柜??415室
; 电话: (010)62569818 62581552 13801177978
;============================================================================
; 推广应用带汉字库的液晶屏 承揽项目研发
;============================================================================
; ++ -------- 技术支持 --------- ++
; ++ 姓 名： 刘德文 ++
; ++ 电 话: (010) 87961362 13693307338 ++
; ++ 电子信箱: LDW5@263.net ++
; ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;============================================================================
;============================================================================
;----------------------------------------------------------------------------
COM DATA 28H
DAT DATA 21H
POIN DATA 22H
COLUMN DATA 23H ;0-63H
PPAGE DATA 24H
DCODE DATA 25H
COUNT DATA 26H
COLUMNR DATA 27H
CHARACTERN DATA 29H ;disp Chiness character number
;----------------------------------------------------------------------------
;----------------------------------------------------------------------------
PPAGEO DATA 38H
CODEO DATA 39H
COLUMNO DATA 3AH
COUNTO DATA 3BH
DPHO DATA 3CH
DPLO DATA 3DH
;----------------------------------------------------------------------------
BUZZER BIT P2.6
;############################################################################
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
LCD_BUS EQU P0
A0 EQU P3.7 ;for DW-3I.PCB(2001-5-18)
E1 EQU P2.1
E2 EQU P2.2
RW EQU P3.6
;PD1 EQU 3CH ;10032=50=32H 12032=60=3CH 12232=61=3DH
PD1 EQU 3DH ;10032=50=32H 12032=60=3CH 12232=61=3DH
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;============================================================================
;############################################################################
ORG 0000H
LJMP MAIN
;############################################################################
ORG 0040H
MAIN: MOV A,#00H
MOV B,#00H
MOV SP,#67H
NOP
SETB A0
SETB RW
SETB E1
SETB E2
LCALL BUZZER2S ;BUZZER 0.1S
LCALL DL100MS
LCALL DISPINT
;---------------------------------------------------------------------------
MAINA: LCALL DISPCLR
LCALL DHYSYBXT ;欢迎使用
LCALL DL2S
LCALL DISPCLR
LCALL DHYSYJCY ;设计
LCALL FILLTELN ;fill 40-4fh
LCALL DISPTELN
LCALL DL2S
LCALL DL1S
LJMP MAINA
;----------------------------------------------------------------------------
;############################################################################
;============================================================================
; MAIN PROGRAMM BEGIN
;============================================================================
;============================================================================
; MAIN PROGRAM END
;============================================================================
;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
;############################################################################
;filename:12032B2 MGLS12032A with DW-3C.PCB(98,11,18) 1999,4,15
;filename:12032B1 MGLS12032A with DW-3C.PCB(98,11,18) 1999,4,15
;filename:12032B MGLS12032A 1999,4,13
;filename:12032A MGLS12032A 1997,11,1
;============================================================================
FILLTELN:NOP ;fill 40-4fh
MOV 40H,#34H ; T
MOV 41H,#25H ; L
MOV 42H,#2CH ; E
MOV 43H,#1AH ; ' : '
MOV 44H,#11H
MOV 45H,#13H
MOV 46H,#16H
MOV 47H,#19H
MOV 48H,#11H
MOV 49H,#14H
MOV 4AH,#10H
MOV 4BH,#18H
MOV 4CH,#17H
MOV 4DH,#10H
MOV 4EH,#13H
MOV 4FH,#00H
RET
;============================================================================
DISPTELN:NOP ;8x8 DOT
MOV COLUMNO,#00H
MOV R0,#40H
MOV R1,#0FH
;DISPTELN1:MOV PPAGE,#83H ;8x8 DOT
DISPTELN1:MOV PPAGE,#81H ;8x8 DOT
MOV A,@R0
MOV DCODE,A
MOV COLUMN, COLUMNO
LCALL CWPR
INC R0
MOV A,COLUMNO
ADD A,#08H
MOV COLUMNO,A
DJNZ R1,DISPTELN1
RET
;============================================================================
DISPTELNA:NOP ;8x6 DOT
; MOV PPAGE,#03H
MOV PPAGE,#01H
MOV COLUMNO,#04H
MOV R0,#40H
MOV R1,#0FH
;DISPTELNA1:MOV PPAGE,#03H ;8x6 DOT
DISPTELNA1:MOV PPAGE,#01H ;8x6 DOT
MOV A,@R0
MOV DCODE,A
MOV COLUMN, COLUMNO
LCALL CWPR
INC R0
MOV A,COLUMNO
ADD A,#06H
MOV COLUMNO,A
DJNZ R1,DISPTELNA1
RET
;============================================================================
;----------------------------------------------------------------------------
DHYSYJCY:NOP ;test Chiness character LCD display
MOV CHARACTERN,#07H
MOV DPTR,#HYSYJCY
;############################################################################
DISPLOOPE:MOV DPHO,DPH
MOV DPLO,DPL
MOV PPAGEO,#02H
MOV COLUMNO,#00H
MOV CODEO,#00H
MOV COUNTO,#00H
LJMP DISPLOOP
;DBJQXSYS:MOV CHARACTERN,#07H ;disp Beijing QingXin si yuan si
; MOV DPTR,#BJQXSYS
DHYSYBXT:NOP ;test Chiness character LCD display
MOV CHARACTERN,#07H ;disp ????
MOV DPTR,#HYSYBXT ;欢迎使用
DISPLOOPB:MOV DPHO,DPH
MOV DPLO,DPL
; MOV PPAGEO,#00H
MOV PPAGEO,#02H
MOV COLUMNO,#00H
MOV CODEO,#00H
MOV COUNTO,#00H
DISPLOOP:MOV DPH,DPHO
MOV DPL,DPLO
MOV PPAGE,PPAGEO
MOV A,COUNTO
MOV B,#10H
MUL AB
ADD A,COLUMNO
MOV COLUMN,A
MOV A,CODEO
ADD A,COUNTO
MOV DCODE,A
LCALL CCWPR
INC COUNTO
MOV A,COUNTO
CJNE A,CHARACTERN,DISPLOOP
RET
;############################################################################
;############################################################################
;############################################################################
NOP
NOP
NOP
;============================================================================
;CCWPR0:MOV DPTR,#BJQXSYS ;LDW
CCWPR:MOV A,DCODE
MOV B,#20H
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV DCODE,#00H
MOV A,PPAGE
; PUSH COLUMN
; PUSH COLUMN
MOV COLUMNR,COLUMN
MOV DCODE,#00H
CCW1:MOV COUNT,#10H
MOV A,PPAGE
ANL A,#03H
ORL A,#0B8H
MOV COM,A
LCALL PR0
LCALL PR3
; POP COLUMN
MOV COLUMN,COLUMNR
MOV A,COLUMN
CLR C
SUBB A,#PD1
JC CCW2
MOV COLUMN,A
MOV A,PPAGE
SETB ACC.3
MOV PPAGE,A
CCW2:MOV COM,COLUMN
MOV A,PPAGE
JNB ACC.3,CCW3
LCALL PR3
LJMP CCW4
CCW3:LCALL PR0
CCW4:MOV A,DCODE
MOVC A,@A+DPTR
MOV DAT,A
MOV A,PPAGE
JNB ACC.3,CCW5
LCALL PR4
LJMP CCW6
CCW5:LCALL PR1
CCW6:INC DCODE
; MOV COLUMN,COLUMNR ;99,4,14
INC COLUMN
MOV A,COLUMN
CJNE A,#PD1,CCW7
CCW7:JC CCW8
MOV A,PPAGE
JB ACC.3,CCW8
; JB ACC.3,CCW9
SETB ACC.3
MOV PPAGE,A
MOV COM,#00H
LCALL PR3
CCW8:DJNZ COUNT,CCW4
NOP
NOP
NOP
MOV A,PPAGE
JB ACC.7,CCW9
INC A
SETB ACC.7
CLR ACC.3
MOV PPAGE,A
MOV DCODE,#10H
LJMP CCW1
CCW9: NOP
NOP
NOP
SETB A0
SETB RW
SETB E1
SETB E2
RET
;============================================================================
;============================================================================
CWPR:MOV DPTR,#CTAB
MOV A,DCODE
MOV B,#08H
MUL AB
ADD A,DPL
MOV DPL,A
MOV A,B
ADDC A,DPH
MOV DPH,A
MOV DCODE,#00H
MOV A,PPAGE
JB ACC.7, CW1
MOV COUNT,#06H
LJMP CW2
CW1:MOV COUNT,#08H
CW2:ANL A,#03H
ORL A,#0B8H
MOV COM,A
LCALL PR0
LCALL PR3
MOV A,COLUMN
CLR C
SUBB A,#PD1
JC CW3
MOV COLUMN,A
MOV A,PPAGE
SETB ACC.3
MOV PPAGE,A
CW3:MOV COM,COLUMN
MOV A,PPAGE
JNB ACC.3,CW4
LCALL PR3
LJMP CW5
CW4:LCALL PR0
CW5:MOV A,DCODE
MOVC A,@A+DPTR
MOV DAT,A
MOV A,PPAGE
JNB ACC.3,CW6
LCALL PR4
LJMP CW7
CW6:LCALL PR1
CW7:INC DCODE
INC COLUMN
MOV A,COLUMN
CJNE A,#PD1,CW8
CW8:JC CW9
MOV A,PPAGE
JB ACC.3,CW9
SETB ACC.3
MOV PPAGE,A
MOV COM,#00H
LCALL PR3
CW9:DJNZ COUNT,CW5
SETB A0
SETB RW
SETB E1
SETB E2
RET
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;============================================================================
;****************************************************************************
; for DW-3I.PCB(2001-5-21) bisic disp programm revise begining
;****************************************************************************
;--------------------------------------------------------------------
PR0:
SETB A0 ;write disp command
CLR RW
PR01:MOV LCD_BUS,#0FFH
CLR E1
NOP
NOP
MOV A,LCD_BUS
SETB E1
NOP
JB ACC.7,PR01
NOP
NOP
SETB A0 ;write command
SETB RW
MOV LCD_BUS,COM
CLR E1
NOP
NOP
NOP
SETB E1
RET
;--------------------------------------------------------------------
PR1:
SETB A0 ;write disp data
CLR RW
PR11:MOV LCD_BUS,#0FFH
CLR E1
NOP
NOP
MOV A,LCD_BUS
SETB E1
JB ACC.7,PR11
NOP
NOP
CLR A0 ;write data
SETB RW
MOV LCD_BUS,DAT
CLR E1
NOP
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -