;"探索式"方式   實驗一  最小系統組成實驗
;
;文件名: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