#include <P16F877A.inc>
num1 equ 0x30
count equ 0x40
result equ 0x50
oddparity equ 0x51
evenparity equ 0x52
 
org 0x00
clrf result
clrf oddparity
clrf evenparity
 
movlw 0xA7
movwf num1
movlw 0x08
movwf count
 
loop: 
    btfsc num1,0    ; Check LSB of num1
    incf result     ; Increment result if bit is 1
    rrf num1,1      ; Rotate right num1
    decfsz count,1  ; Decrement count
    goto loop       ; Repeat until count is zero
 
btfsc result,0      ; If result LSB is 1 (odd number of 1s)
incf oddparity      ; Increment odd parity
 
btfss result,0      ; If result LSB is 0 (even number of 1s)
incf evenparity     ; Increment even parity
 
l1: goto l1         ; Infinite loop
 
end
 

I2luY2x1ZGUgPFAxNkY4NzdBLmluYz4KbnVtMSBlcXUgMHgzMApjb3VudCBlcXUgMHg0MApyZXN1bHQgZXF1IDB4NTAKb2RkcGFyaXR5IGVxdSAweDUxCmV2ZW5wYXJpdHkgZXF1IDB4NTIKCm9yZyAweDAwCmNscmYgcmVzdWx0CmNscmYgb2RkcGFyaXR5CmNscmYgZXZlbnBhcml0eQoKbW92bHcgMHhBNwptb3Z3ZiBudW0xCm1vdmx3IDB4MDgKbW92d2YgY291bnQKCmxvb3A6IAogICAgYnRmc2MgbnVtMSwwICAgIDsgQ2hlY2sgTFNCIG9mIG51bTEKICAgIGluY2YgcmVzdWx0ICAgICA7IEluY3JlbWVudCByZXN1bHQgaWYgYml0IGlzIDEKICAgIHJyZiBudW0xLDEgICAgICA7IFJvdGF0ZSByaWdodCBudW0xCiAgICBkZWNmc3ogY291bnQsMSAgOyBEZWNyZW1lbnQgY291bnQKICAgIGdvdG8gbG9vcCAgICAgICA7IFJlcGVhdCB1bnRpbCBjb3VudCBpcyB6ZXJvCgpidGZzYyByZXN1bHQsMCAgICAgIDsgSWYgcmVzdWx0IExTQiBpcyAxIChvZGQgbnVtYmVyIG9mIDFzKQppbmNmIG9kZHBhcml0eSAgICAgIDsgSW5jcmVtZW50IG9kZCBwYXJpdHkKCmJ0ZnNzIHJlc3VsdCwwICAgICAgOyBJZiByZXN1bHQgTFNCIGlzIDAgKGV2ZW4gbnVtYmVyIG9mIDFzKQppbmNmIGV2ZW5wYXJpdHkgICAgIDsgSW5jcmVtZW50IGV2ZW4gcGFyaXR5CgpsMTogZ290byBsMSAgICAgICAgIDsgSW5maW5pdGUgbG9vcAoKZW5kCg==