КР580ВМ80А Попарно вычесть числа и сравнить

8000    21  LXI H
8001    67  
8002    80  
8003    36  MVI M, 26
8004    26  
8005    23  INX H
8006    36  MVI, 43
8007    43  
8008    23  INX H
8009    36  MVI, be
800A    BE  
800B    7E  MOV A, M
800C    2B  DCX M
800D    96  SUB M
800E    47  MOV B, A
800F    7E  MOV A, M
8010    2B  DCX M
8011    96  SUB M
8012    4F  MOV C, A
8013    7E  MOV A, M
8014    23  INX H
8015    23  INX H
8016    96  SUB M
8017    57  MOV D, A
8018    BA  CMP B
8019    F2  JP DMB (804A)
8020    4A  
802A    80  
802B    B9  CMP C
802C    F2  JP DMC (8043)
802D    43  
802E    80  
802F    2B  DCX H
8030    7E  MOV A, M
8031    BA  CMP B
8032    23  INX H
8033    23  INX H
8034    F2  JP CMB (803D)
8035    3D  
8036    80  
8037    62  MOV H,D
8038    23  INX H
8039    61  MOV H,C
803A    23  INX H
803B    60  MOV H,B
803C    76  HLT
CMB: 803D   62  MOV H,D
803E    23  INX H
803F    60  MOV H,B
8040    23  INX H
8041    61  MOV H,C
8042    76  HLT
DMC: 8043   23  INX H
8044    61  MOV H,C
8045    23  INX H
8046    62  MOV H,D
8047    23  INX H
8048    60  MOV H,B
8049    76  HLT
DMB: 804A   B9  CMP C
804B    F2  JP DMC2 (8053)
804C    23  INX H
804D    60  MOV H,B
804E    23  INX H
804F    62  MOV H,D
8050    23  INX H
8051    61  MOV H,C
8052    76  HLT
DMC2: 8053  2B  DCX H
8054    7E  MOV A, M
8055    BA  CMP B
8056    23  INX H
8057    23  INX H
8058    F2  JP CMB2 (8061)
8059    61  
805A    80  
805B    61  MOV H,C
805C    23  INX H
805D    60  MOV H,B
805E    23  INX H
805F    62  MOV H,D
8060    76  HLT
CMB2: 8061  60  MOV H,B
8062    23  INX H
8063    61  MOV H,C
8064    23  INX H
8065    62  MOV H,D
8066    76  HLT