˜Ëî}: ÎÒµÄÖДàÓІ–î}ÊÇʲôÇé›r£¿Çó½â£¡£¡£¡ [´òÓ¡±¾í“]

×÷Õß: ™Сµ¶    •rég: 2014-5-27 15:08
˜Ëî}: ÎÒµÄÖДàÓІ–î}ÊÇʲôÇé›r£¿Çó½â£¡£¡£¡
        ORG 0000H
        AJMP MAIN
        ORG 0003H
        AJMP JINGJI
        ORG 0030H


MAIN:        MOV SP,#80H
        SETB EX0
        SETB IT0
        SETB EA
        MOV P0,#00H
        MOV P1,#00H
        MOV P2,#00H
        MOV R7,#30
        MOV P1,#3EH
        MOV B,#10
        MOV R5,#0
        ACALL INTR
        MOV R7,#29

LOOP:        ACALL YANSHI
        ACALL INTR
        DEC R7
        CJNE R7,#9,LOOP
        ACALL HUANDENG
        MOV R7,#30

LOOP4:        MOV P1,#0E3H
        ACALL INTR
        ACALL YANSHI
        DEC R7
        CJNE R7,#10,LOOP4
        ACALL HUANDENG1
        AJMP MAIN

INTR:        MOV A,R7
        DIV AB
        MOV DPTR,#TAB
        MOVC A,@A+DPTR
        MOV P2,A
        MOV A,B
        MOVC A,@A+DPTR
        MOV P0,A
        MOV B,#10
        RET

YANSHI:        MOV R3,#10
LOOP3:        MOV R2,#100
LOOP2:        MOV R1,#250
LOOP1:        NOP
        NOP
        DJNZ R1,LOOP1
        DJNZ R2,LOOP2
        DJNZ R3,LOOP3
        RET

HUANDENG:MOV P1,#0DEH
        ACALL YANSHI
        DEC R7
        ACALL INTR
        MOV P1,#0FEH
        ACALL YANSHI
        DEC R7
        ACALL INTR
        INC R5
        CJNE R5,#5,HUANDENG
        MOV R5,#0
        RET

HUANDENG1:MOV P1,#0EDH
        ACALL YANSHI
        DEC R7
        ACALL INTR
        MOV P1,#0EFH
        ACALL YANSHI
        DEC R7
        ACALL INTR
        INC R5
        CJNE R5,#5,HUANDENG1
        MOV R5,#0
        RET

JINGJI:        PUSH P1
        PUSH ACC
        PUSH P0
        PUSH P2
        MOV A,#10
        MOV P0,#0C0H
        MOV P2,#0C0H
        MOV P1,#0EEH
LL:        DIV AB
        MOV DPTR,#TAB
        MOVC A,@A+DPTR
        MOV P2,A
        MOV A,B
        MOVC A,@A+DPTR
        MOV P0,A
        MOV B,#10
        ACALL YANSHI
        DEC A
        CJNE A,#0,LL
        POP P2
        POP P0
        POP ACC
        POP P1
        RETI

TAB:  DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
        END
       
       

360½ØˆD20140527150308902.jpg (70.4 KB, ÏÂÝd´Î”µ(sh¨´): 264)

360½ØˆD20140527150308902.jpg





šgÓ­¹âÅR (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1