16 bit substraction

11. Program to subtract two 16 bit numbers.    0000    11 01 50     LXI D,5001H    0003    21 03 50     LXI H,5003H    0006    06 00        MVI B,00H    0008    1A           LDAX D    0009    96           SUB M    000A    4F           MOV C,A    000B    1B           DCX D    000C    2B           DCX H    000D    1A           LDAX D    000E    9E           SBB M    000F    D2 20 00     JNC J1    0012    2F           CMA    0013    47           MOV B,A    0014    79           MOV A,C    0015    2F           CMA    0016    C6 01        ADI 01H    0018    D2 1C 00     JNC J2    001B    04           INR B    001C    4F          J2: MOV C,A    001D    78           MOV A,B    001E    06 01        MVI B,01H    0020    23          J1: INX H    0021    23           INX H    0022    77           MOV M,A    0023    23           INX H    0024    71           MOV M,C    0025    23           INX H    0026    70           MOV M,B    0027    76           HLT