djd.asm

用于控制电剪刀的一段汇编代码

WORK_END_PAN:
         CLR      WDT1
         MOV      A,SECOND
         SUB      A,03
         SZ       C
         JMP      ERROR
         SZ       OPEN_SIN
         JMP      WORK_END_PAN
         MOV      A,0FFH
         MOV      COUNT_WAIT,A

WORK_K:
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         SDZ      COUNT_WAIT
         JMP      WORK_K 
         SZ       OPEN_SIN
         JMP      WORK_END_PAN 

         MOV      A,0FFH
         MOV      COUNT_WAIT,A

WORK_L:
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         SDZ      COUNT_WAIT
         JMP      WORK_L 
         SZ       OPEN_SIN
         JMP      WORK_END_PAN 

         MOV      A,0FFH
         MOV      COUNT_WAIT,A

WORK_T:
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         SDZ      COUNT_WAIT
         JMP      WORK_T 
         SZ       OPEN_SIN
         JMP      WORK_END_PAN

WORK_END_WAIT:
         CLR      WDT1
         CLR      OPEN_OUT
         CLR      CLOSE_OUT  
         SNZ      KZ_INPUT
         JMP      WORK_END_WAIT
         
         MOV      A,0FFH
         MOV      COUNT_WAIT,A

WORK_TT:
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         SDZ      COUNT_WAIT
         JMP      WORK_TT 

         SNZ      KZ_INPUT
         JMP      WORK_END_WAIT

         MOV      A,0FFH
         MOV      COUNT_WAIT,A

WORK_HH:
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         SDZ      COUNT_WAIT
         JMP      WORK_HH 

         SNZ      KZ_INPUT
         JMP      WORK_END_WAIT

         MOV      A,0FFH
         MOV      COUNT_WAIT,A

WORK_KK:
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         SDZ      COUNT_WAIT
         JMP      WORK_KK 
         SNZ      KZ_INPUT
         JMP      WORK_END_WAIT
         JMP      WORK_A 



POWER_STOP:
         CLR      OPEN_OUT
         CLR      CLOSE_OUT
         SET      OPEN_OUT

POWER_STOP_ST:
         CLR      WDT1
         SZ       OPEN_SIN
         JMP      POWER_STOP_ST
         MOV      A,0FFH
         MOV      COUNT_WAIT,A

WORK_AA:
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         SDZ      COUNT_WAIT
         JMP      WORK_AA 
         SZ       OPEN_SIN
         JMP      POWER_STOP_ST

         MOV      A,0FFH
         MOV      COUNT_WAIT,A

WORK_BB:
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         SDZ      COUNT_WAIT
         JMP      WORK_BB 
         SZ       OPEN_SIN
         JMP      POWER_STOP_ST 

         MOV      A,0FFH
         MOV      COUNT_WAIT,A

WORK_CC:
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         SDZ      COUNT_WAIT
         JMP      WORK_CC 
         SZ       OPEN_SIN
         JMP      POWER_STOP_ST
         CLR      OPEN_OUT
         CLR      CLOSE_OUT

WORK_STOP_WAIT:
         CLR      WDT1
         CLR      OPEN_OUT
         CLR      CLOSE_OUT  
         SZ       KZ_INPUT
         JMP      WORK_A  
         JMP      WORK_STOP_WAIT

         


DELAY:
         MOV     A,0FFH
         MOV     COUNTH,A
      

DELAY1:  
         MOV     A,0FFH
         MOV     COUNTL,A
         

DELAY2:
         NOP
         SDZ     COUNTL
         JMP     DELAY2
         SDZ     COUNTH
         JMP     DELAY1
         RET  

 
DELAY_A:
         MOV     A,3FH
         MOV     COUNTH,A
      

DELAY_A1:  
         MOV     A,0FFH
         MOV     COUNTL,A
         

DELAY_A2:
         NOP
         SDZ     COUNTL
         JMP     DELAY_A2
         SDZ     COUNTH
         JMP     DELAY_A1
         RET  
   
ERROR:
         CLR     OPEN_OUT   
         CLR     CLOSE_OUT 
         SET     ERROR_COUNT
         SNZ     KZ_INPUT
         JMP     ERROR
         MOV     A,0FFH
         MOV     COUNT_WAIT,A

ERROR_TT:
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         SDZ      COUNT_WAIT
         JMP      ERROR_TT 
         SNZ      KZ_INPUT
         JMP      ERROR

         MOV      A,0FFH
         MOV      COUNT_WAIT,A

ERROR_HH:
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         SDZ      COUNT_WAIT
         JMP      ERROR_HH 
         SNZ      KZ_INPUT
         JMP      ERROR
         MOV      A,0FFH
         MOV      COUNT_WAIT,A

ERROR_KK:
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         SDZ      COUNT_WAIT
         JMP      ERROR_KK 
         SNZ      KZ_INPUT
         JMP      ERROR
       

ERROR_KL:
         CLR    WDT1
         SZ     KZ_INPUT
         JMP     ERROR_KL
         MOV     A,0FFH
         MOV     COUNT_WAIT,A

ERROR_TTT:
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         SDZ      COUNT_WAIT
         JMP      ERROR_TTT 
         SZ       KZ_INPUT
         JMP      ERROR_KL
         MOV      A,0FFH
         MOV      COUNT_WAIT,A

ERROR_HHH:
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         SDZ      COUNT_WAIT
         JMP      ERROR_HHH 
         SZ       KZ_INPUT
         JMP      ERROR_KL
         MOV      A,0FFH
         MOV      COUNT_WAIT,A

ERROR_KKK:
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         TABRDC   TMP1
         SDZ      COUNT_WAIT
         JMP      ERROR_KKK 
         SZ       KZ_INPUT
         JMP      ERROR_KL
         JMP      BEGIN