LineSearch Z80

SearchLine:
;Inputs:
;     HL points to the start
;     BC is the number of bytes to search
;     DE is the negative of the line number
;     A is the line byte
;Outputs:
;     A is not changed
;     BC is the number of bytes left in the search
;     DE points to the line
;     HL is the length of the line
;===============================================================
     or a                       ;B7
     ld (TempWord1),hl          ;22****
SearchLoop:                     ;
     cpir                       ;EDA0
     jp po,EndSearchLoop+1      ;E2****
     inc e \ jr nz,SearchLoop-3 ;1C20**
     inc d \ jr nz,SearchLoop-3 ;1420**
EndSearchLoop:                  ;
     scf                        ;37
     ld de,(TempWord1)          ;ED5B****
     sbc hl,de                  ;ED52
     ret                        ;C9        23 bytes