READJog:
        JNB JOG,JOGZer
        ;JOG=1
        MOV C,P3.6
        MOV JOG,C
        JMP JOGNC

JOGZer: ;JOG=0
        JNB P3.6,JOGNC
        ;JOG changed
        
        MOV C,P3.6
        MOV JOG,C
        
        JNB P3.7,Fore

Back:
        ;<<<<<<Back routine here

        JMP JOGNC

Fore:
        ;<<<<<<Forward routine here

JOGNC:  ;JOG not changed, continue
        JMP READJog