音影先锋亚洲天堂网|电影世界尽头的爱完整版播放|国产熟女 91|高清无码免费观看欧美日韩|韩国一区二区三区黄色录像|美女亚洲加勒比在线|亚洲综合网开心五月|7x成人在线入口|成人网站免费日韩毛片区|国产黄片?一级?二级?三级

<fieldset id="kopyi"></fieldset>

首頁(yè) | 行業(yè)黑名單 | 幫助

電子元器件

電子資訊

技術(shù)資料

請(qǐng)高手指教我修改的程序

作者：hunuseu　欄目：技術(shù)交流

請(qǐng)高手指教我修改的程序
小弟設(shè)計(jì)的一個(gè)用51單片機(jī)和ICL7135實(shí)現(xiàn)的A/D放大后顯示結(jié)果的程序,編譯同過(guò)了，因?yàn)闆](méi)有仿真器,所以請(qǐng)大家給點(diǎn)意見(jiàn),我是第一次寫(xiě),請(qǐng)不吝賜教

ORG 0000H
AJMP MAIN
ORG 0013H
AJMP INT1
ORG 0050H
MAIN: MOV SP,#70H
      MOV 30H,#00H
      MOV 40H,#00H
      MOV 31H,#00H
      MOV 32H,#00H
      MOV 41H,#00H
      MOV 42H,#00H
      MOV 50H,#00H
      MOV 51H,#00H
      MOV 52H,#00H
      MOV 60H,#00H
      MOV 61H,#00H
      MOV 62H,#00H
       ACALL INBCD
      NOP
      NOP
      AJMP ADD1
ORG  0090H
INBCD: MOV P2,#0FFH
       MOV P3,#80H
       MOV R0,#60H
       MOV P2,#7FH
       MOV @R0,A
       INC R0
       MOV P2,#0BFH
       MOV A,P2
       SWAP A
       MOV @R0,A
       MOV P2,#0DFH
       MOV A,P2
       XCHD A,@R0
       INC R0
       MOV P2,#0EFH
       MOV A,P2
       SWAP A
       XCH A,@R0
       MOV P2,#0F7H
       MOV A,P2
       XCHD A,@R0
RET
ADD1:SETB P3.4
     MOV IP ,#04H
     SETB IT1
     SETB EX1
     SETB EA
     CLR P3.4
      MOV P1,#0FFH
      MOV P3,#64H
      MOV R0,#30H
INT1: PUSH PSW
      PUSH A
      JB P3.6, OVER
      JNB P3.5,OVER
     MOV @R0,#00H
JUMP1:JB P1.7,LOOP1
      SJMP JUMP1
LOOP1:MOV P1,#0FH
      MOV @R0,A
      INC R0
JUMP2:JB P1.6,LOOP2
      SJMP JUMP2
LOOP2:MOV P1,#0FH
      MOV @R0,A
      ANL A,#0FH
      SWAP A
JUMP3: JB P1.5,LOOP3
      SJMP JUMP3
LOOP3:MOV P1,#0FH
      MOV A,P1
      MOV @R0,A
      INC R0
JUMP4: JB P1.4,LOOP4
      SJMP JUMP4
LOOP4: MOV P1,#0FH
      MOV A,P1
      ANL A,0FH
      SWAP A
      MOV @R0,A
JUMP5: JB P3.2,LOOP5
      SJMP JUMP5
LOOP5:MOV P1,#0FH
     MOV A,P1
     XCHD A,@R0
     POP A
     POP PSW
OVER:SETB P0.3
     RETI
AJUST: MOV R2,60H
       MOV A,30H
        CLR C
        ACALL  SUBB1
        JC ADD2
        JZ AJUST11
        AJMP OUT
OUT: SETB P0.3
AJUST11: MOV R2,61H
         MOV A,31H
         CLR C
         ACALL SUBB1
         JC ADD2
         JZ AJUST13
         AJMP OUT
AJUST13: MOV R2,62H
         MOV A,32H
         CLR C
         ACALL SUBB1
         JC ADD2
         AJMP OUT
         RET
ADD2: SETB P3.4
      MOV IP,#04H
      SETB IT1
      SETB EX1
      SETB EA
      CLR P3.4
      MOV P1,#0FFH
      MOV P3,#64H
      MOV R0,#40H
     LCALL INT1
AJUST2: MOV R1,#60H
        MOV R0,#40H
        CLR C
        ACALL SUBB1
        JC SUB
        JZ AJUST22
        AJMP OUT
SUBB1:MOV A,#9AH
     SUBB A ,@R1
     ADD A,@R0
     DA  A
     CPL C
     RET
AJUST22: MOV R1,#61H
         MOV R0,#41H
         CLR C
         ACALL SUBB1
         JC SUB
         JZ AJUST23
         AJMP OUT
AJUST23:MOV R1,#62H
        MOV R0,#42H
        CLR C
        ACALL SUBB1
        JC SUB
        AJMP OUT
SUB: MOV R1,#40H
     MOV R0,#30H
     CLR C
     ACALL BUSUBB
     MOV 52H,A
     ACALL BUSUBB
     MOV 51H,A
     ACALL BUSUBB
     MOV 50H,A
    AJMP TTTT
BUSUBB: MOV A,#9AH
        SUBB A,@R0
        ADD A,@R1
        DA A
        INC R0
        INC R1

參與討論

相關(guān)帖子

小弟第一次寫(xiě)程序請(qǐng)大家給指點(diǎn)

幫我看看我謝了

[分享]我的“移動(dòng)硬盤(pán)”做好了，^_^

電路復(fù)位問(wèn)題

誰(shuí)能給一個(gè)PI型濾波電路參考參考

免費(fèi)注冊(cè)為維庫(kù)電子開(kāi)發(fā)網(wǎng)會(huì)員，參與電子工程師社區(qū)討論，點(diǎn)此進(jìn)入