c15.asm

恒科试验平台的所有程序代码

;"探索式"   实验二十一  GAL16V8实验

         ORG     0000H
         MOV    SP, #30H
   DD:   LCALL     P11
         SJMP      DD
  P11:   CLR     P1.0
         MOV     R2, #8H
         LCALL   DELY
         SETB    P1.0
         MOV     R2,#8H
         LCALL   DELY
         RET
 DELY:   PUSH   02H
DELY1:   PUSH   02H
DELY2:   PUSH   02H
DELY3:   PUSH   02H
DELY4:   DJNZ   R2,DELY4
         POP     02H
         DJNZ   R2,DELY3
         POP     02H
         DJNZ   R2,DELY2
         POP     02H
         DJNZ   R2,DELY1
         POP     02H
         DJNZ   R2,DELY
         RET