c02.asm

来自「恒科试验平台的所有程序代码」· 汇编 代码 · 共 33 行

        ;"探索式"   实验八     程序存储器扩展实验
               
        ORG     0000H
        MOV     R0,#0AH        ;向RAM6264的1000H-100AH送01H-0AH
        MOV     DPTR,#1000H
        MOV     A,#01H
MAIN0:  MOVX    @DPTR,A
        INC     DPTR
        INC     A
        DJNZ    R0,MAIN0
MAIN2:  MOV     DPTR,#1000H    ;把1000H-100AH值读出，作为延时的基值
        MOV     R0,#0AH
MAIN1:  MOVX    A,@DPTR
        MOV     B,#10
        MUL     AB
        MOV     B,A
        CLR     P1.2
        ACALL   DELAY
        CPL     P1.2
        MOV     A,B
        ACALL   DELAY
        INC     DPTR
        DJNZ    R0,MAIN1
        SJMP    MAIN2
DELAY:
        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