?? cs30d顯打.asm
字號:
;/30D運算顯示打印程序
;/創建人：YY
;/創建日期：2007.1.8
;/最后修改日期：2007.1.8
;/版本號：0001
ORG 0100H
LJMP MAIN
MAIN:NOP
DISP:clr P3.1;對零部分
dis2:;clr p3.7
;clr p3.7
mov r1,#20h
mov dptr,#3e00h
movx a,@dptr
mov @r1,a
inc r1
mov dptr,#3d00h
movx a,@dptr
mov 28h,a
anl a,#0fh
mov @r1,a
mov r2,21h
mov r3,20h
mov a,#00h
mov r4,a
mov r5,a
mov r6,a
mov r7,#16
loop:clr c
mov a,r3
rlc a
mov r3,a
mov a,r2
rlc a
mov r2,a
mov a,r6
addc a,r6
da a
mov r6,a
mov a,r5
addc a,r5
da a
mov r5,a
mov a,r4
addc a,r4
da a
mov r4,a
djnz r7,loop
mov 23h,r5
mov 24h,r6
jb p3.1,c1
mov a,28h
MOV 19H,#0C0H
jB ACC.4,ANL2
MOV 19H,#3FH
anl2:mov r0,#14h
ajmp d
c1:mov r0,#10h
mov a,28h
MOV 18H,#0C0H
JB ACC.4,d
MOV 18H,#3FH
D: mov a,23h
anl a,#0f0h
rr a
rr a
rr a
rr a
mov @r0, a
inc r0
mov a,23h
anl a,#0fh
mov @r0, a
inc r0
mov a,24h
anl a,#0f0h
rr a
rr a
rr a
rr a
mov @r0, a
inc r0
mov a,24h
anl a,#0fh
mov @r0, a
;mov 1ah,10h
;mov 1bh,11h
;mov 1ch,12h
;mov 1dh,13h
;mov 1eh,14h
;mov 1fh,15h
;mov 25h,16h
;mov 26h,17h
mov r0,#10h
movz:MOV A,@R0
nextb:CJNe a,#00h,nextb1
mov @r0,#0c0h
nextb1:cjne a,#01h,nextb2
mov @R0,#0f9h
nextb2:cjne a,#02h,nextb3
mov @r0,#0a4h
nextb3:cjne a,#03h,nextb4
mov @r0,#0b0h
nextb4:cjne a,#4h,nextb5
mov @r0,#99h
nextb5:cjne a,#05h,nextb6
mov @r0,#92h
nextb6:cjne a,#06h,nextb7
mov @r0,#82h
nextb7:cjne a,#07h,nextb8
mov @r0,#0f8h
nextb8:cjne a,#08h,nextb9
mov @r0,#80h
nextb9:CJNE A,#09H ,INC1
mov @r0,#90H
INC1:INC R0
CJNE R0,#018H,MOVZ
wait:setb P3.2
mov r0,#10h
mov r2,#00h
display:jNb p3.6,KA1
jb p3.3,next
ljmp dyyz;打印
next:mov a,r2
mov p2,a
mov a,@r0
mov p1,a
MOV r6,#5h
dl21:mov r7,#10h
dl22:djnz r7,dl22
djnz r6,dl21
mov a,#04h
add a,r2
mov r2,a
inc r0
cjne r2,#28h,display
jb p3.2,wait
cpl p3.1
ajmp dis2
KA1:ACALL YSAM
JNB P3.6,XSTP1
LJMP NEXT
;XSTP1:MOV P2,#20H
MOV P1,#83H
ACALL YS1M
MOV P2,#00H
MOV P1,#88H
ACALL YS1M
MOV P2,#04H
MOV P1,#0C7H
ACALL YS1M
MOV P2,#08H
MOV P1,#88H
ACALL YS1M
MOV P2,#0CH
MOV P1,#0ABH
ACALL YS1M
MOV P2,#24H
MOV P1,#0C6H
ACALL YS1M
MOV P2,#10H
MOV P1,#86H
ACALL YS1M
KS1:JNB P3.6,XSE1
LJMP KS2
XSE1:ACALL YSAM
JNB P3.6,XSE2;顯示0.25
KS2:JNB P3.7,TPQS0
LJMP XSTP1
TPQS0:ACALL YSAM
JNB P3.7,TPQS2;天平取數
LJMP XSTP1
TPQS2:LJMP TPQS
XSE2:MOV P2,#00H
MOV P1,#0C0H
ACALL YS1M
MOV P2,#04H
MOV P1,#0A4H
ACALL YS1M
MOV P2,#08H
MOV P1,#92H
ACALL YS1M
MOV P2,#0CH
MOV P1,#0C0H
ACALL YS1M
KS3:JNB P3.6,XSW1
LJMP KS4
XSW1:ACALL YSAM
JNB P3.6,XSW2;顯示0.5
KS4:JNB P3.7,EZH0
LJMP XSE2
EZH0:ACALL YSAM
JNB P3.7,EZH2;0.25轉換
LJMP XSE2
EZH2:LJMP EZH
XSW2:MOV P2,#00H
MOV P1,#0C0H
ACALL YS1M
MOV P2,#04H
MOV P1,#92H
ACALL YS1M
MOV P2,#08H
MOV P1,#0C0H
ACALL YS1M
MOV P2,#0CH
MOV P1,#0C0H
ACALL YS1M
KS5:JNB P3.6,XSY1
LJMP KS6
XSY1:ACALL YSAM
;JNB P3.6,XSY2;顯示1
KS6:JNB P3.7,WZH0
LJMP XSW2
WZH0:ACALL YSAM
JNB P3.7,WZH2;0.5轉換
LJMP XSW2
WZH2:LJMP WZH
XSY2:MOV P2,#00H
MOV P1,#0F9H
ACALL YS1M
MOV P2,#04H
MOV P1,#0C0H
ACALL YS1M
MOV P2,#08H
MOV P1,#0C0H
ACALL YS1M
MOV P2,#0CH
MOV P1,#0C0H
ACALL YS1M
KS7:JNB P3.6,XSTP0
LJMP KS8
XSTP0:ACALL YSAM
JNB P3.6,XSTP2;顯示天平
KS8:JNB P3.7,YZH0
LJMP XSY2
YZH0:ACALL YSAM
JNB P3.7,YZH2;1轉換
LJMP XSY2
YZH2:LJMP YZH
XSTP2:LJMP XSTP1
TPQS:MOV TL1,#0F3H;天平數據輸入
MOV TH1,#0F3H
MOV PCON,#00H
MOV TMOD,#20H
clr EA
SETB TR1
MOV SCON,#40H
MOV R1,#40H
MOV R7,#32
SETB REN
REC:JNB RI,$
CLR RI
MOV A,SBUF
MOV @R1,A
INC R1
DJNZ R7,REC
CLR TR1;
MOV A,50H
ANL A,#0FH
MOV 50H,A
MOV A,51H
ANL A,#0FH
MOV 51H,A
MOV A,52H
ANL A,#0FH
MOV 52H,A
MOV A,53H
ANL A,#0FH
MOV 53H,A
MOV A,54H
ANL A,#0FH
MOV 54H,A
MOV A,55H
ANL A,#0FH
MOV 55H,A
MOV A,56H
ANL A,#0FH
MOV 56H,A
MOV A,57H
ANL A,#0FH
MOV 57H,A
MOV A,58H
ANL A,#0FH
MOV 58H,A
MOV A,59H
ANL A,#0FH
MOV 59H,A
MOV A,5AH
ANL A,#0FH
MOV 5AH,A
MOV A,5bH
ANL A,#0FH
MOV 5bH,A
MOV A,5cH
ANL A,#0FH
MOV 5cH,A
MOV A,5dH
ANL A,#0FH
MOV 5dH,A
MOV A,5eH
ANL A,#0FH
MOV 5eH,A
MOV A,5fH
ANL A,#0FH
MOV 5fH,A;
mov a,51h
cjne a,#0bh,kn1
ljmp km1
kn1:mov a,52h
cjne a,#0bh,kn2
ljmp km2
kn2:mov a,53h
cjne a,#0bh,kn3
ljmp km3
kn3:mov a,54h
cjne a,#0bh,kn4
ljmp km4
kn4:mov a,55h
cjne a,#0bh,kn5
ljmp km5
kn5:mov a,56h
cjne a,#0bh,kn6
ljmp km6
kn6:mov a,57h
cjne a,#0bh,kn7
ljmp km7
kn7:ACALL YSAM
LJMP TPQS
km1:mov r1,55h
mov r2,57h
mov r3,58h
mov r4,59h
ljmp xxx
km2:mov r1,56h
mov r2,58h
mov r3,59h
mov r4,5ah
ljmp xxx
km3:mov r1,57h
mov r2,59h
mov r3,5ah
mov r4,5bh
ljmp xxx
km4:mov r1,58h
mov r2,5ah
mov r3,5bh
mov r4,5ch
ljmp xxx
km5:mov r1,59h
mov r2,5bh
mov r3,5ch
mov r4,5dh
ljmp xxx
km6:mov r1,5ah
mov r2,5ch
mov r3,5dh
mov r4,5eh
ljmp xxx
km7:mov r1,5bh
mov r2,5dh
mov r3,5eh
mov r4,5fh
ljmp xxx;
xxx:MOV P2,#20H ;天平數據顯示
mov P1,#0C0H
ACALL YS1M
MOV P2,#00H
MOV A,R1
acall NEXTA
MOV P2,#04H
MOV A,r2
ACALL NEXTA
MOV P2,#08H
MOV A,r3
ACALL NEXTA
MOV P2,#0cH
MOV A,r4
ACALL NEXTA
JNB P3.7,FX1
LJMP XXX
FX1:ACALL YSAM
JNB P3.7,JSA0
LJMP XXX
JSA0:LJMP JSA
NEXTA:CJNE A,#00H,NEXTA1
MOV P1,#0C0H
ACALL YS1M
RET
NEXTA1:CJNE A,#01H,NEXTA2
MOV P1,#0F9H
ACALL YS1M
RET
NEXTA2:CJNE A,#02H,NEXTA3
MOV P1,#0A4H
ACALL YS1M
RET
NEXTA3:CJNE A,#03H,NEXTA4
MOV P1,#0B0H
ACALL YS1M
RET
NEXTA4:CJNE A,#04H,NEXTA5
MOV P1,#99H
ACALL YS1M
RET
NEXTA5:CJNE A,#05H,NEXTA6
MOV P1,#92H
ACALL YS1M
RET
NEXTA6:CJNE A,#06H,NEXTA7
MOV P1,#82H
ACALL YS1M
RET
NEXTA7:CJNE A,#07H,NEXTA8
MOV P1,#0F8H
ACALL YS1M
RET
NEXTA8:CJNE A,#08H,NEXTA9
MOV P1,#80H
ACALL YS1M
RET
NEXTA9:CJNE A,#09H,NEXTA10
MOV P1,#90H
ACALL YS1M
RET
NEXTA10:CJNE A,#0AH,NEXTA11
MOV P1,#88H
ACALL YS1M
RET
NEXTA11:CJNE A,#0BH,NEXTA12
MOV P1,#83H
ACALL YS1M
RET
NEXTA12:CJNE A,#0CH,NEXTA13
MOV P1,#0C6H
ACALL YS1M
RET
NEXTA13:CJNE A,#0DH,NEXTA14
MOV P1,#0A1H
ACALL YS1M
RET
NEXTA14:CJNE A,#0EH,NEXTA15
MOV P1,#86H
ACALL YS1M
RET
NEXTA15:MOV P1,#88H
ACALL YS1M
RET
YSAM:MOV R0,#100;/原來150
YYM2:MOV R6,#250
YYM1:DJNZ R6,YYM1
DJNZ R0,YYM2
RET
YS1M:MOV R0,#8
Y2:MOV R6,#60
Y1:DJNZ R6,Y1
DJNZ R0,Y2
RET
EZH:MOV R1,#30H
MOV R2,#32H
MOV R3,#35H
MOV R4,#30H
LJMP JS1
WZH:MOV R1,#30H
MOV R2,#35H
MOV R3,#30H
MOV R4,#30H
LJMP JS1
YZH:MOV R1,#31H
MOV R2,#30H
MOV R3,#30H
MOV R4,#30H
LJMP JS1
jsa:mov a,r1
add a,#30h
mov r1,a
mov a,r2
add a,#30h
mov r2,a
mov a,r3
add a,#30h
mov r3,a
mov a,r4
add a,#30h
mov r4,a
ljmp js1
JS1:MOV 50H,R1
MOV 51H,R2
MOV 52H,R3
MOV 53H,R4
MOV A,50H
SUBB A,#30H
MOV 60H,A
MOV A,51H
SUBB A,#30H
MOV 61H,A
MOV A,52H
SUBB A,#30H
MOV 62H,A
MOV A,53H
SUBB A,#30H
MOV 63H,A
MOV A,60H ;SZL
SWAP A
ORL A,61H
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -