;=======================================================
; Проект 08. Генератор меандра ~1 кГц на RB0
; PIC16F84A, 4 МГц (1 команда = 1 мкс). Полупериод 500 мкс
;=======================================================
        LIST    p=16F84A
        #include <p16f84a.inc>
        __CONFIG _XT_OSC & _WDT_OFF & _PWRTE_ON & _CP_OFF

        cblock  0x0C
        cnt
        endc

        ORG     0x000
        goto    Start

Start
        bsf     STATUS,RP0
        clrf    TRISB
        bcf     STATUS,RP0

Main
        bsf     PORTB,0
        call    Half            ; пауза 500 мкс
        bcf     PORTB,0
        call    Half
        goto    Main

;--- ~500 мкс: 165 витков по 3 такта ---
Half
        movlw   .165
        movwf   cnt
HL      nop
        decfsz  cnt,f
        goto    HL
        return

        END