📄 cs30d显打（万）.asm
字号:
MOV A,62H
SWAP A
ORL A,63H
MOV 65H,A
MOV R2,64H
MOV R3,65H
MOV A,R3
MOV B,#10H
DIV AB
MOV R4,B
MOV B,#10
MUL AB
ADD A,R4
MOV R3,A
MOV A,R2
MOV B,#10H
DIV AB
MOV R4,B
MOV B,#10
MUL AB
ADD A,R4
MOV B,#100
MUL AB
ADD A,R3
MOV R3,A
CLR A
ADDC A,B
MOV R2,A
MOV 14H,R2
MOV 13H,R3;;
MOV 15H,#00H
MOV 16H,#00H
MOV 17H,#00H
MOV 18H,#00H
MOV 11H,#03H;;系数计算程序开始XSJS
MOV 12H,#0E8H
mov a,#00h
mov r1,a
mov r2,a
mov r3,a
mov r4,a
MOV A,11H
CJNE A,14H,Z1
LJMP Z4
Z1:JC Z3
LJMP Z6
Z4:MOV A,12H
CJNE A,13H,Z2
MOV 15H,#01H
MOV 16H,#00H
MOV 17H,#00H
MOV 18H,#00H
LJMP X11
Z2:JC Z3
Z6:CLR C
MOV A,12H
SUBB A,13H
MOV 12H,A
MOV A,11H
SUBB A,14H
MOV 11H,A
INC R1
MOV A,11H
CJNE A,14H,Z7
LJMP Z8
Z7:JC Z10
LJMP Z6
Z8:MOV A,12H
CJNE A,13H,Z9
INC R1
MOV 15H,R1
MOV 16H,#00H
MOV 17H,#00H
MOV 18H,#00H
LJMP X11
Z9:JC Z10
LJMP Z6
Z3:MOV 15H,#00H
LJMP Z11
Z10:MOV 15H,R1
Z11:MOV A,12H
MOV B,#0AH
MUL AB
MOV 12H,A
MOV 19H,B
MOV A,11H
MOV B,#0AH
MUL AB
ADD A,19H
MOV 11H,A
MOV A,11H
CJNE A,14H,T1
LJMP T4
T1:JC T3
LJMP T6
T4:MOV A,12H
CJNE A,13H,T2
T2:JC T3
T6:CLR C
MOV A,12H
SUBB A,13H
MOV 12H,A
MOV A,11H
SUBB A,14H
MOV 11H,A
INC R2
MOV A,11H
CJNE A,14H,T7
LJMP T8
T7:JC T10
LJMP T6
T8:MOV A,12H
CJNE A,13H,T9
INC R2
MOV 16H,R2
MOV 17H,#00H
MOV 18H,#00H
LJMP T11
T9:JC T10
LJMP T6
T3:MOV 16H,#00H
LJMP X11
T10:MOV 16H,R2
T11:MOV A,12H
MOV B,#0AH
MUL AB
MOV 12H,A
MOV 19H,B
MOV A,11H
MOV B,#0AH
MUL AB
ADD A,19H
MOV 11H,A
MOV A,11H
CJNE A,14H,W1
LJMP W4
W1:JC W3
LJMP W6
W4:MOV A,12H
CJNE A,13H,W2
W2:JC W3
W6:CLR C
MOV A,12H
SUBB A,13H
MOV 12H,A
MOV A,11H
SUBB A,14H
MOV 11H,A
INC R3
MOV A,11H
CJNE A,14H,W7
LJMP W8
W7:JC W10
LJMP W6
W8:MOV A,12H
CJNE A,13H,W9
INC R3
MOV 17H,R3
MOV 18H,#00H
LJMP X11
W9:JC W10
LJMP W6
W3:MOV 17H,#00H
LJMP W11
W10:MOV 17H,R3
W11:MOV A,12H
MOV B,#0AH
MUL AB
MOV 12H,A
MOV 19H,B
MOV A,11H
MOV B,#0AH
MUL AB
ADD A,19H
MOV 11H,A
MOV A,11H
CJNE A,14H,X1
LJMP X4
X1:JC X3
LJMP X6
X4:MOV A,12H
CJNE A,13H,X2
X2:JC X3
X6:CLR C
MOV A,12H
SUBB A,13H
MOV 12H,A
MOV A,11H
SUBB A,14H
MOV 11H,A
INC R4
MOV A,11H
CJNE A,14H,X7
LJMP X8
X7:JC X10
LJMP X6
X8:MOV A,12H
CJNE A,13H,X9
INC R4
MOV 18H,R4
LJMP X11
X9:JC X10
LJMP X6
X3:MOV 18H,#00H
LJMP X11
X10:MOV 18H,R4
X11:clr P3.1
X12:;clr p3.7;7109采样运算开始
;clr p3.7
mov r1,#20h
mov dptr,#3e00h
movx a,@dptr
mov @r1,a
inc r1
mov dptr,#3d00h
movx a,@dptr
anl a,#0fh
mov @r1,a
;mov r2,21h
;mov r3,20h
MOV A,#00H ;YS开始
MOV R1,A
MOV R2,A
MOV R3,A
MOV R4,A
MOV R3,15H
REL2:CJNE R3,#00H,REL1
MOV 24H,R1
LJMP REL3
REL1:MOV A,R1
ADD A,20H
MOV R1,A
MOV A,R2
ADDC A,#00H
MOV R2,A
DEC R3
LJMP REL2
REL3:MOV R3,15H
REL5:CJNE R3,#00H,REL4
MOV A,R4
ADD A,R2
MOV 25H,A
LJMP REL6
REL4:MOV A,R4
ADD A,21H
MOV R4,A
DEC R3
LJMP REL5
REL6:MOV A,#00H ;下一位
MOV R1,A
MOV R2,A
MOV R3,A
MOV R4,A
MOV R3,16H
REL7:CJNE R3,#00H,REL8
MOV 26H,R1
LJMP REL9
REL8:MOV A,R1
ADD A,20H
MOV R1,A
MOV A,R2
ADDC A,#00H
MOV R2,A
DEC R3
LJMP REL7
REL9:MOV R3,16H
REL10:CJNE R3,#00H,REL11
MOV A,R4
ADD A,R2
MOV 27H,A
LJMP REL12
REL11:MOV A,R4
ADD A,21H
MOV R4,A
DEC R3
LJMP REL10
REL12:MOV A,27H ;除10
CJNE A,#0AH,CS1
CS1:JC CS2
MOV B,#0AH
DIV AB
MOV R1,A
MOV A,B
MOV B,#16
MUL AB
MOV R6,A
LJMP CS3
CS2:MOV R1,#00H
MOV A,27H
MOV B,#16
MUL AB
MOV R6,A
CS3:MOV A,26H
ANL A,#0F0H
SWAP A
ADD A,R6
CJNE A,#0AH,CS4
CS4:JC CS5
MOV B,#0AH
DIV AB
MOV R2,A
MOV A,B
MOV B,#16
MUL AB
MOV R6,A
LJMP CS6
CS5:MOV R2,#00H
MOV B,#16
MUL AB
MOV R6,A
CS6:MOV A,26H
ANL A,#0FH
ADD A,R6
CJNE A,#0AH,CS7
CS7:JC CS8
MOV B,#0AH
DIV AB
MOV R3,A
LJMP CS9
CS8:MOV R3,#00H
CS9:MOV 27H,R1
MOV A,R2
SWAP A
MOV 26H,A
MOV A,R3
ORL 26H,A
MOV A,#00H
MOV R1,A
MOV R2,A
MOV R3,A
MOV R4,A
MOV R3,17H
REL13:CJNE R3,#00H,REL14
MOV 28H,R1
LJMP REL15
REL14:MOV A,R1
ADD A,20H
MOV R1,A
MOV A,R2
ADDC A,#00H
MOV R2,A
DEC R3
LJMP REL13
REL15:MOV R3,17H
REL16:CJNE R3,#00H,REL17
MOV A,R4
ADD A,R2
MOV 29H,A
LJMP REL18
REL17:MOV A,R4
ADD A,21H
MOV R4,A
DEC R3
LJMP REL16
REL18:MOV R7,#02H ;除100
CB:MOV A,29H
CJNE A,#0AH,CB1
CB1:JC CB2
MOV B,#0AH
DIV AB
MOV R1,A
MOV A,B
MOV B,#16
MUL AB
MOV R6,A
LJMP CB3
CB2:MOV R1,#00H
MOV A,29H
MOV B,#16
MUL AB
MOV R6,A
CB3:MOV A,28H
ANL A,#0F0H
SWAP A
ADD A,R6
CJNE A,#0AH,CB4
CB4:JC CB5
MOV B,#0AH
DIV AB
MOV R2,A
MOV A,B
MOV B,#16
MUL AB
MOV R6,A
LJMP CB6
CB5:MOV R2,#00H
MOV B,#16
MUL AB
MOV R6,A
CB6:MOV A,28H
ANL A,#0FH
ADD A,R6
CJNE A,#0AH,CB7
CB7:JC CB8
MOV B,#0AH
DIV AB
MOV R3,A
LJMP CB9
CB8:MOV R3,#00H
CB9:MOV 29H,R1
MOV A,R2
SWAP A
MOV 28H,A
MOV A,R3
ORL 28H,A
DJNZ R7,CB
MOV A,#00H ;下一位
MOV R1,A
MOV R2,A
MOV R3,A
MOV R4,A
MOV R3,18H
REL19:CJNE R3,#00H,REL20
MOV 30H,R1
LJMP REL21
REL20:MOV A,R1
ADD A,20H
MOV R1,A
MOV A,R2
ADDC A,#00H
MOV R2,A
DEC R3
LJMP REL19
REL21:MOV R3,18H
REL22:CJNE R3,#00H,REL23
MOV A,R4
ADD A,R2
MOV 31H,A
LJMP REL24
REL23:MOV A,R4
ADD A,21H
MOV R4,A
DEC R3
LJMP REL22
REL24:MOV R7,#03H ;除1000
CQ:MOV A,31H
CJNE A,#0AH,CQ1
CQ1:JC CQ2
MOV B,#0AH
DIV AB
MOV R1,A
MOV A,B
MOV B,#16
MUL AB
MOV R6,A
LJMP CQ3
CQ2:MOV R1,#00H
MOV A,31H
MOV B,#16
MUL AB
MOV R6,A
CQ3:MOV A,30H
ANL A,#0F0H
SWAP A
ADD A,R6
CJNE A,#0AH,CQ4
CQ4:JC CQ5
MOV B,#0AH
DIV AB
MOV R2,A
MOV A,B
MOV B,#16
MUL AB
MOV R6,A
LJMP CQ6
CQ5:MOV R2,#00H
MOV B,#16
MUL AB
MOV R6,A
CQ6:MOV A,30H
ANL A,#0FH
ADD A,R6
CJNE A,#0AH,CQ7
CQ7:JC CQ8
MOV B,#0AH
DIV AB
MOV R3,A
LJMP CQ9
CQ8:MOV R3,#00H
CQ9:MOV 31H,R1
MOV A,R2
SWAP A
MOV 30H,A
MOV A,R3
ORL 30H,A
DJNZ R7,CQ
CLR C ;加法
MOV A,24H
ADD A,26H
MOV R1,A
MOV A,25H
ADDC A,27H
MOV R2,A
CLR C
MOV A,R1
ADD A,28H
MOV R1,A
MOV A,R2
ADDC A,29H
MOV R2,A
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -