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