identifikace podprogramu

Netusite nekdo co dela nasledujici podprogram (je to soucast Niposu):

PUSH AF
PUSH HL
jump:  LD A, I
PUSH AF
POP HL
LD A, I
LD A, L
PUSH AF
POP HL
CP L
JR NZ, jump
LD (adresa), A
DI
POP HL
POP AF
RET

Dik D.