c01.asm

单片机实验程序-13种-17.4M-pdf.zip

;  "探索式"方式   实验一  最小系统组成实验
;
;文件名:C01.ASM

        ORG 0000H

        MOV SP,#60H             ;送堆栈首址

MAIN:
        MOV R0,#10              ;LED闪亮次数,亮灭5次
AGAIN:
        MOV A,#4                ;置延时初值(100ms*4)延时400ms
        setb P1.2               ;清P1.2,LED灭
        ACALL DELAY             ;调用延时子程序
        CPL P1.2                ;P1.2取反,LED 亮灭反转
        MOV A,#4
        ACALL DELAY
        DJNZ R0,AGAIN           ;判闪亮结束否
        MOV R0,#5               ;LED闪亮次数,亮灭5次
AGAIN1: setb P1.2               ;清P1.2,LED灭
        MOV A,#30               ;置延时初值(100ms*30)延时3s
        ACALL DELAY             ;调用延时子程序
        CPL P1.2                ;P1.2取反
        MOV A,#30               ;置延时初值(100ms*30)延时3s
        ACALL DELAY             ;调用延时子程序
        DJNZ R0,AGAIN1          ;判闪亮结束否
        AJMP MAIN               ;重复
DELAY:                          ;延时100ms子程序
        MOV R7,#200     ;500us*200=100ms
DLY0:
        MOV R6,#250     ;2us*250=500us
        DJNZ R6,$
        DJNZ R7,DLY0
        DJNZ ACC,DELAY     ;200ms*ACC
        RET
        END