c15.asm

来自「文件中包括电子琴、步进电机控制、电子钟等实用程序控制」· 汇编 代码 · 共 28 行

;"探索式"   实验二十一  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