;***************************************************** ; подпрограмма задержки ;***************************************************** ;тест в MPLAB v.5.70 f=4000000 list p=16F84A #include count1 EQU 0x24 count2 EQU 0x25 ORG 0x000 main bsf STATUS,RP0 movlw b'00000000' movwf OPTION_REG^80H bcf STATUS,RP0 call delay delay movlw .75 movwf count1 l2 movlw .2 movwf count2 l1 decfsz count2,f goto l1 decfsz count1,f goto l2 return end