;**********************************
                ;*    The Delay routines          *
                ;*                                *
                ;* used by Wait <time>            *
                ;**********************************

 
        ifdef INCLONGDELAY


longdelay               movwf   tempone
ldloop1                 clrf    temptwo
ldloop2                 decfsz  temptwo, F
                        goto    ldloop2
                        decfsz  tempone, F
                        goto    ldloop1
                        return

        endif

        ifdef INCSHORTDELAY

shortdelay              movwf   tempone
sdloop                  decfsz  tempone, F
                        goto    sdloop
                        return

        endif