新手刚学单片机，以下程序只能实现单片机交替闪烁，却不能加速或者减慢，请指点在什么位置加什么程序可以实现（老师说必须用以下指令中地关键字，其他指令几乎都没学过，不可以用其他指令哦！）
ORG  0000H
LJMP MAIN
ORG  0100H
MAIN:
     SETB P1.0
     LCALL DELAY
     CLR P1.0
     LCALL DELAY
DELAY:
     MOV 30H,#100
AA:  MOV 31H,#200
BB:  DJNZ 31H,BB
     DJNZ 30H,AA
     RET
END

刚学单片机，果断不给力啊，在MAIN里面少了一个LJMP MAIN，这里补上，这样才可以无限实现LED闪烁，之前那个程序只能闪烁一次。现在请帮忙解决实现LED变速闪烁程序怎么写，自己虽然也知道通过让延时逐步变低来实现加速闪烁，但是具体涉及到程序缺怎么也想不出，请大家帮帮忙啊，其实我说地老师是我们部门经理，上个星期六培训留地作业，这个星期六就得交作业，泪奔不会啊！想了3天么想出。。。。。。
ORG  0000H
LJMP MAIN
ORG  0100H
MAIN:
     SETB  P1.0
     LCALL DEL
     CLR   P1.0
     LCALL DEL
     LJMP  MAIN
DEL:
     MOV   30H,#250  ；延时100ms
AA:  MOV   31H,#200
     DJNZ  31H,$
     DJNZ  30H,AA
     RET
END

DEL1:
     MOV  32H,  #100
     DJNZ  32H,
     

程序如下，请指教哪些可以改进，让程序更加简化，谢谢
ORG    0000H
LJMP   MAIN
ORG    0100H
MAIN:
ST:    MOV   30H,#30             ;初始化
       MOV   31H,30H
       MOV   A,#100
CSQ:   JZ    MID        ;累加器不为0执行快速闪烁，为0转移到MID
       CLR   P1.0
       LCALL DELQ
       SETB  P1.0
       LCALL DELQ
       LJMP  CSQ
CSS:   CLR   P1.0        ;慢速闪烁
       LCALL DELS
       SETB  P1.0
       LCALL DELS
       LJMP  MID
MID:   CJNE  A,31H,CSS    ;累加器中值增加到30（30H中值）之前转移执行慢速闪烁 ,
                          ;到30转移执行快速闪烁。
       LJMP  CSQ

DELQ:                     ;快速闪烁从3S减少到0.1S
       MOV   A,30H
       DEC   A
DELQ1: MOV   32H,#250
DELQ2: MOV   33H,#200
       DJNZ  33H,$
       DJNZ  32H,DELQ2
       DJNZ  30H,DELQ1
       MOV   30H,A
       RET

DELS:                     ;慢速闪烁从0.1S延长到3S
       INC   A
       MOV   30H,A
DELS1: MOV   32H,#250
DELS2: MOV   33H,#200
       DJNZ  33H,$
       DJNZ  32H,DELQ2
       DJNZ  30H,DELQ1
       RET

END