电话IC卡减一角的钱程序

        RST     EQU     P1.6    ;C2
        CLK     EQU     P1.5    ;C3
        DIO     EQU     P1.1    ;C7
        LCALL   DECMONEY
        LJMP    $
;========================
DECMONEY:
        MOV     R5,#0CH
DLOP1:  MOV     A,R5
        LCALL   POINT
        JNZ     NOZ
        DEC     R5
        CJNE    R5,#7,DLOP1
        RET
NOZ:    MOV     R4,A
        MOV     A,R5
        DEC     A
        LCALL   POINT
        MOV     A,R4
DLOP2:  RLC     A
        JC      DNEXT
        LCALL   CLOCK
        SJMP    DLOP2
DNEXT:  MOV     A,R5
        XRL     A,#0CH
        JZ      TS
        LCALL   TS
        LCALL   TS
        INC     R5
        SJMP    DLOP1
TS:     SETB    RST
        LCALL   DELAY
        CLR     RST
        LCALL   DELAY
        SETB    CLK
        MOV     R6,#10
        DJNZ    R7,$
        DJNZ    R6,$-2
        CLR     CLK
        LCALL   DELAY
        RET
;========================
POINT:  CLR     RST
        CLR     CLK
        LCALL   DELAY
        SETB    RST
        LCALL   DELAY
        LCALL   CLOCK
        CLR     RST
        LCALL   DELAY
        ADD     A,ACC
        ADD     A,ACC
        ADD     A,ACC
        LCALL   CLOCK
        DJNZ    ACC,$-3
        SETB    DIO
        MOV     R6,#8
R8BIT:  MOV     C,DIO
        RLC     A
        LCALL   CLOCK
        DJNZ    R6,R8BIT
        RET
CLOCK:  SETB    CLK
        LCALL   DELAY
        CLR     CLK
DELAY:  MOV     R7,#4
        DJNZ    R7,$
        RET

*博客内容为网友个人发布，仅代表博主个人观点，如有侵权请联系工作人员删除。