How to set HPWM to generate 38khz signal? (16F870)

[CuriousOne]

Thanks, so I need this part of code, right?

ASM
_Pulse38
   bcf IRTX,PIN         ; 1uS, LED=on
   goto $+1             ; + 2uS = 3uS
   goto $+1             ; + 2uS = 5uS
   goto $+1             ; + 2uS = 7uS
   goto $+1             ; + 2uS = 9uS
   goto $+1             ; + 2uS = 11uS
   goto $+1             ; + 2uS = 13uS   
   bsf IRTX,PIN         ; 1uS, LED=on
   goto $+1             ; + 2uS = 3uS
   goto $+1             ; + 2uS = 5uS
   goto $+1             ; + 2uS = 7uS
   goto $+1             ; + 2uS = 9uS
   nop                  ; + 1uS = 10uS
   decfsz _Cycles,f     ; + 1uS = 11S    
   goto _Pulse38        ; + 2uS = 13uS
   return               ; Return to caller    
ENDASM