PRSHAD1 PUSH BC

.......

POP BC
DJNZ PRSHAD1

И тут тоже можно использовать LX например, вместо того что сувать лишний раз в стек BC.