7bcd.asm

来自「abel语言的相当优秀实例多媒体教程！这个在网上很少见的。」· 汇编 代码 · 共 43 行

        ORG 00H            ;By ClimberWin 2005.7.16
START: MOV P2,#11110000    ;0
       CALL DELAY
       MOV P2,#11110001B    ;1
       CALL DELAY
       MOV P2,#11110010B    ;2
       CALL DELAY
       MOV P2,#11110011B    ;3
       CALL DELAY
       MOV P2,#11110100B    ;4
       CALL DELAY
       MOV P2,#11110101B    ;5
       CALL DELAY
       MOV P2,#11110110B    ;6
       CALL DELAY
       MOV P2,#11110111B    ;7
       CALL DELAY
       MOV P2,#11111000B    ;8
       CALL DELAY
       MOV P2,#11111001B    ;9
       CALL DELAY
       MOV P2,#11111010B    ;a
       CALL DELAY
       MOV P2,#11111011B    ;b
       CALL DELAY
       MOV P2,#11111100B    ;c
       CALL DELAY
       MOV P2,#11111101B    ;d
       CALL DELAY
       MOV P2,#11111110B    ;e
       CALL DELAY
       MOV P2,#11111111B    ;f
       CALL DELAY
       JMP START
DELAY: MOV  R4,#50 ;延时;//
D1:    MOV  R6,#20H
D2:    MOV  R5,#248      ;//
       DJNZ R5,$         ;//
       DJNZ R6,D2        ;//
       DJNZ R4,D1
       RET
       END