Separate even numbers from given numbers

Separate even numbers from given numbers

1. LXI H, 2500H        : "Initialize memory pointer 1"  
2. LXI D, 2600H        : "Initialize memory pointer2"  
3. MVI C, 32H          : "Initialize counter"  
4. BACK:MOV A, M       : "Get the number"  
5. ANI 01H             : "Check for even number"  
6. JNZ SKIP            : "If ODD, don't store"  
7. MOV A, M            : "Get the number"  
8. STAX D              : "Store the number in result list"  
9. INX D               : "Increment pointer 2"  
10. SKIP: INX H         : "Increment pointer 1"  
11. DCR C               : "Decrement counter"  
12. JNZ BACK            : "If not zero, repeat"  
13. HLT                     : "Stop"