MOVWF 0x72
BCF STATUS, 0x5
BCF STATUS, 0x6
BCF PORTA, 0x2
BCF PORTA, 0x1
BCF STATUS, 0x0
MOVLW 0x0
BTFSC STATUS, 0x0
MOVLW 0x1
MOVWF BITCOUNT
BCF STATUS, 0x0
MOVLW 0x0
BTFSC STATUS, 0x0
MOVLW 0x1
MOVWF BITCOUNT
MOVLW 0x8
SUBWF BITCOUNT, W
BTFSS STATUS, 0x0
GOTO 0x7AA
GOTO 0x7AB
GOTO 0x7AD
GOTO 0x7C6
GOTO 0x7C6
MOVLW 0x1
MOVWF 0x70
MOVF 0x70, W
ADDWF BITCOUNT, F
MOVLW 0x8
SUBWF BITCOUNT, W
BTFSS STATUS, 0x0
GOTO 0x7C4
GOTO 0x7C5
GOTO 0x7AD
GOTO 0x7C6
BCF PORTA, 0x0
BTFSS 0x72, 0x7
GOTO 0x7B1
GOTO 0x7B2
GOTO 0x7B3
BSF PORTA, 0x0
BSF PORTA, 0x2
BCF PORTA, 0x2
MOVF 0x72, W
MOVWF 0x70
ADDWF 0x70, W
MOVWF 0x71
MOVF 0x71, W
MOVWF 0x72
RETURN