📄 1602.asm
字号:
MOV A,#32H ;2
LCALL JUMP
MOV A,#56H ;V
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
MOV A,#52H ;R
LCALL JUMP
MOV A,#65H ;E
LCALL JUMP
MOV A,#61H ;A
LCALL JUMP
MOV A,#64H ;D
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
MOV R0,#3DH
MOV A,#3FH ;4FH
XCHD A,@R0
LCALL JUMP
INC R0
MOV A,#3FH
XCHD A,@R0
LCALL JUMP
MOV A,#2EH ;.
LCALL JUMP
INC R0
MOV A,#3FH ;
XCHD A,@R0
LCALL JUMP
MOV A,#56H ;V
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
RET
V51:
CLR P1.2
SETB P1.4
MOV DPTR,#0feFFH
MOV A,#10000000B ;DDRAM ADDRESS
MOVX @DPTR,A
CPL P1.4
LCALL DELAY
SETB P1.2
MOV A,#20H ;
LCALL JUMP
MOV A,#2BH ;+
LCALL JUMP
MOV A,#35H ;5
LCALL JUMP
MOV A,#56H ;V
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
MOV A,#52H ;R
LCALL JUMP
MOV A,#65H ;E
LCALL JUMP
MOV A,#61H ;A
LCALL JUMP
MOV A,#64H ;D
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
MOV A,#2BH ;+
LCALL JUMP
MOV R0,#3EH
MOV A,#3FH
XCHD A,@R0
LCALL JUMP
MOV A,#2EH ;.
LCALL JUMP
INC R0
MOV A,#3FH ;
XCHD A,@R0
LCALL JUMP
MOV A,#56H ;V
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
RET
V52:
CLR P1.2
SETB P1.4
MOV A,#0C0H ;ADDRESS
MOVX @DPTR,A
CPL P1.4
LCALL DELAY
SETB P1.2
MOV A,#20H ;
LCALL JUMP
MOV A,#2BH ;+
LCALL JUMP
MOV A,#35H ;5
LCALL JUMP
MOV A,#56H ;V
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
MOV A,#52H ;R
LCALL JUMP
MOV A,#65H ;E
LCALL JUMP
MOV A,#61H ;A
LCALL JUMP
MOV A,#64H ;D
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
MOV A,#2BH ;+
LCALL JUMP
MOV R0,#3EH
MOV A,#3FH
XCHD A,@R0
LCALL JUMP
MOV A,#2EH ;.
LCALL JUMP
INC R0
MOV A,#3FH ;
XCHD A,@R0
LCALL JUMP
MOV A,#56H ;V
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
RET
V5X1:
CLR P1.2
SETB P1.4
MOV DPTR,#0feFFH
MOV A,#10000000B ;DDRAM ADDRESS
MOVX @DPTR,A
CPL P1.4
LCALL DELAY
SETB P1.2
MOV A,#54H ;T
LCALL JUMP
MOV A,#65H ;E
LCALL JUMP
MOV A,#6DH ;M
LCALL JUMP
MOV A,#31H ;1
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
MOV A,#52H ;R
LCALL JUMP
MOV A,#65H ;E
LCALL JUMP
MOV A,#61H ;A
LCALL JUMP
MOV A,#64H ;D
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
MOV R0,#3EH
MOV A,#3FH
XCHD A,@R0
LCALL JUMP
INC R0
MOV A,#3FH ;
XCHD A,@R0
LCALL JUMP
MOV A,#2EH ;.
LCALL JUMP
MOV A,#30H ;0
LCALL JUMP
MOV A,#0DFH ;。
LCALL JUMP
MOV A,#43H ;C
LCALL JUMP
RET
V5X2:
CLR P1.2
SETB P1.4
MOV A,#0C0H ;ADDRESS
MOVX @DPTR,A
CPL P1.4
LCALL DELAY
SETB P1.2
MOV A,#54H ;T
LCALL JUMP
MOV A,#65H ;E
LCALL JUMP
MOV A,#6DH ;M
LCALL JUMP
MOV A,#31H ;1
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
MOV A,#52H ;R
LCALL JUMP
MOV A,#65H ;E
LCALL JUMP
MOV A,#61H ;A
LCALL JUMP
MOV A,#64H ;D
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
MOV R0,#3EH
MOV A,#3FH
XCHD A,@R0
LCALL JUMP
INC R0
MOV A,#3FH ;
XCHD A,@R0
LCALL JUMP
MOV A,#2EH ;.
LCALL JUMP
MOV A,#30H ;0
LCALL JUMP
MOV A,#0DFH ;.
LCALL JUMP
MOV A,#43H ;C
LCALL JUMP
RET
TEMP1:
CLR P1.2
SETB P1.4
MOV DPTR,#0feFFH
MOV A,#10000000B ;DDRAM ADDRESS
MOVX @DPTR,A
CPL P1.4
LCALL DELAY
SETB P1.2
MOV A,#54H ;T
LCALL JUMP
MOV A,#65H ;E
LCALL JUMP
MOV A,#6DH ;M
LCALL JUMP
MOV A,#32H ;2
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
MOV A,#52H ;R
LCALL JUMP
MOV A,#65H ;E
LCALL JUMP
MOV A,#61H ;A
LCALL JUMP
MOV A,#64H ;D
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
MOV R0,#3EH
MOV A,#3FH ;67H
XCHD A,@R0
LCALL JUMP
INC R0
MOV A,#3FH
XCHD A,@R0
LCALL JUMP
MOV A,#2EH ;.
LCALL JUMP
MOV A,#30H ;0
LCALL JUMP
MOV A,#0DFH ;.
LCALL JUMP
MOV A,#43H ;C
LCALL JUMP
RET
TEMP2:
CLR P1.2
SETB P1.4
MOV A,#0C0H ;ADDRESS
MOVX @DPTR,A
CPL P1.4
LCALL DELAY
SETB P1.2
MOV A,#54H ;T
LCALL JUMP
MOV A,#65H ;E
LCALL JUMP
MOV A,#6DH ;M
LCALL JUMP
MOV A,#32H ;2
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
MOV A,#52H ;R
LCALL JUMP
MOV A,#65H ;E
LCALL JUMP
MOV A,#61H ;A
LCALL JUMP
MOV A,#64H ;D
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
MOV R0,#3EH
MOV A,#3FH ;67H
XCHD A,@R0
LCALL JUMP
INC R0
MOV A,#3FH
XCHD A,@R0
LCALL JUMP
MOV A,#2EH ;.
LCALL JUMP
MOV A,#30H ;0
LCALL JUMP
MOV A,#0DFH ;.
LCALL JUMP
MOV A,#43H ;C
LCALL JUMP
RET
BIAS1: CLR P1.2
SETB P1.4
MOV DPTR,#0feFFH
MOV A,#10000000B ;DDRAM ADDRESS
MOVX @DPTR,A
CPL P1.4
LCALL DELAY
SETB P1.2
MOV A,#42H ;B
LCALL JUMP
MOV A,#69H ;I
LCALL JUMP
MOV A,#61H ;A
LCALL JUMP
MOV A,#31H ;1
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
MOV A,#52H ;R
LCALL JUMP
MOV A,#65H ;E
LCALL JUMP
MOV A,#61H ;A
LCALL JUMP
MOV A,#64H ;D
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
MOV A,#30H ;0
LCALL JUMP
MOV A,#2EH ;.
LCALL JUMP
MOV R0,#3EH
MOV A,#3FH ;6FH
XCHD A,@R0
LCALL JUMP
INC R0
MOV A,#3FH
XCHD A,@R0
LCALL JUMP
MOV A,#41H ;A
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
RET
BIAS2:
CLR P1.2
SETB P1.4
MOV A,#0C0H ;ADDRESS
MOVX @DPTR,A
CPL P1.4
LCALL DELAY
SETB P1.2
MOV A,#42H ;B
LCALL JUMP
MOV A,#69H ;I
LCALL JUMP
MOV A,#61H ;A
LCALL JUMP
MOV A,#31H ;1
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
MOV A,#52H ;R
LCALL JUMP
MOV A,#65H ;E
LCALL JUMP
MOV A,#61H ;A
LCALL JUMP
MOV A,#64H ;D
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
MOV A,#30H ;0
LCALL JUMP
MOV A,#2EH ;.
LCALL JUMP
MOV R0,#3EH
MOV A,#3FH ;6FH
XCHD A,@R0
LCALL JUMP
INC R0
MOV A,#3FH
XCHD A,@R0
LCALL JUMP
MOV A,#41H ;A
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
RET
TEC1:
CLR P1.2
SETB P1.4
MOV DPTR,#0feFFH
MOV A,#10000000B ;DDRAM ADDRESS
MOVX @DPTR,A
CPL P1.4
LCALL DELAY
SETB P1.2
MOV A,#42H ;B
LCALL JUMP
MOV A,#69H ;I
LCALL JUMP
MOV A,#61H ;A
LCALL JUMP
MOV A,#32H ;2
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
MOV A,#52H ;R
LCALL JUMP
MOV A,#65H ;E
LCALL JUMP
MOV A,#61H ;A
LCALL JUMP
MOV A,#64H ;D
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
MOV R0,#3DH
MOV A,#3FH ;77H
XCHD A,@R0
LCALL JUMP
MOV A,#2EH ;.
LCALL JUMP
INC R0
MOV A,#3FH
XCHD A,@R0
LCALL JUMP
INC R0
CLR C
MOV A,#3FH ;
XCHD A,@R0
LCALL JUMP
MOV A,#41H ;A
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
RET
TEC2:
CLR P1.2
SETB P1.4
MOV A,#0C0H ;ADDRESS
MOVX @DPTR,A
CPL P1.4
LCALL DELAY
SETB P1.2
MOV A,#42H ;B
LCALL JUMP
MOV A,#69H ;I
LCALL JUMP
MOV A,#61H ;A
LCALL JUMP
MOV A,#32H ;2
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
MOV A,#52H ;R
LCALL JUMP
MOV A,#65H ;E
LCALL JUMP
MOV A,#61H ;A
LCALL JUMP
MOV A,#64H ;D
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
MOV R0,#3DH
MOV A,#3FH ;77H
XCHD A,@R0
LCALL JUMP
MOV A,#2EH ;.
LCALL JUMP
INC R0
MOV A,#3FH
XCHD A,@R0
LCALL JUMP
INC R0
CLR C
MOV A,#3FH ;
XCHD A,@R0
LCALL JUMP
MOV A,#41H ;A
LCALL JUMP
MOV A,#20H ;
LCALL JUMP
RET
HTO: MOV R1,#00H ;十进制转换
MOV R5,#00H
CLR C
CHANN:SUBB A,#64H
JC CHAN1
INC R5
LJMP CHANN
CHAN1:ADD A,#64H
CHAN2:CLR C
SUBB A,#0AH
JC CHAN3
INC R1
LJMP CHAN2
CHAN3:ADD A,#0AH
MOV 3DH,#00H
MOV 3EH,#00H
MOV 3FH,#00H
MOV 3FH,A
MOV 3EH,R1
MOV 3DH,R5
RET
TIME: MOV R6,#0AH ;ADC0809转换时间
DLAY: NOP
NOP
NOP
NOP
NOP
DJNZ R6,DLAY
RET
DONE1: MOV R4,45H ;光功率求和,求平均值
MOV R5,46H
LCALL AVER
MOV 47H,R4
MOV A,R4
LCALL HTO
RET
DONE2: MOV R4,4DH
MOV R5,4EH
LCALL AVER
MOV 4FH,R4
MOV A,R4
LCALL HTO
RET
DONE3: MOV R4,55H
MOV R5,56H
LCALL AVER
MOV 57H,R4
MOV A,R4
LCALL HTO
RET
DONE4: MOV R4,5DH
MOV R5,5EH
LCALL AVER
MOV 5FH,R4
MOV A,R4
LCALL HTO
RET
DONE5:
MOV R4,65H
MOV R5,66H
LCALL AVER
MOV 67H,R4
MOV A,R4
LCALL HTO
RET
DONE6:
MOV R4,6DH
MOV R5,6EH
LCALL AVER
MOV 6FH,R4
MOV A,R4
LCALL HTO
RET
DONE7:
MOV R4,75H
MOV R5,76H
LCALL AVER
MOV A,R4
CLR C
SUBB A,#66H
JNC TY1
CLR C
MOV A,#00H
LJMP TY2
TY1:CLR C
RLC A
TY2:MOV R4,A
MOV 77H,R4
MOV A,R4
LCALL HTO
RET
DONE8:
MOV R4,7DH
MOV R5,7EH
LCALL AVER
MOV 7FH,R4
MOV A,R4
LCALL HTO
RET
AVER: ;求平均值
MOV R6,#05H
MOV R7,#08H
DV1:CLR C
MOV A,R4
RLC A
MOV R4,A
MOV A,R5
RLC A
MOV 00H,C
CLR C
SUBB A,R6
JB 00H,GOU
JNC GOU
ADD A,R6
LJMP DV2
GOU: INC R4
DV2: MOV R5,A
DJNZ R7,DV1
RET
DELAY: MOV R5,#02FH
D: NOP
NOP
MOV R4,#06FH
Y: NOP
NOP
DJNZ R4,Y
DJNZ R5,D
RET
DELAY1: MOV R5,#023H
D1: NOP
NOP
MOV R4,#02FH
Y1: NOP
NOP
MOV R6,#06FH
X11: NOP
NOP
DJNZ R6,X11
DJNZ R4,Y1
DJNZ R5,D1
RET
DELAY2:MOV R5,#023H
DE1: NOP
NOP
MOV R4,#02FH
YE1: NOP
NOP
MOV R6,#06FH
XE11: NOP
DJNZ R6,XE11
CJNE R3,#00H,GGG
DJNZ R4,YE1
CJNE R3,#00H,GGG
DJNZ R5,DE1
CJNE R3,#00H,GGG
GGG: NOP
RET
ADDTO: ;延时子程序
DJNZ 3CH,ADDTO1
MOV R3,#00H
SETB P1.5
MOV R2,#09H
MOV 3BH,#01H
ADDTO1:NOP
RET
INT2X: NOP
NOP
MOV R3,#01H
DEC R2
CJNE R2,#00H,E1
MOV R2,#08H
E1: NOP
MOV 3CH,#088H
CLR P1.5 ;激活背光源
RETI
END
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -