[КР580] Написать программу вычисления функции

VAR X1,X2,X3:BYTE;
F:WORD;
BEGIN
READLN(X1,X2,X3);
F:=(X1+X2),3 DIV X3;
WRITELN(F);
ASM
MUL16:
   MOV C,L
   MOV B,H
   MOV D,E
   LXI L,X1
   LXI L,X2
   LXI H,X3
   MVI A,15
   ADD C
MLP:
   PUSH PSW
   ORA D
   JR MLP1
   DAD C
MLP1:
   DAD L
   XCHG
   DAD L
   XCHG
   POP PSW
   DCR A
   JNZ MLP
   ORA , D
   RP
   DAD B
DIL:
    MOV A,H
    STA SCREM
    XRA D
    STA SQUOT
    MOV A,D
    ORA A
    JP CHKDE
    SUB A
    SUB E
    MOV E,A
    SBB A
    SUB D
    MOV D,A

VAR X1,X2,X3:BYTE;
F:WORD;
BEGIN
READLN(X1,X2,X3);
F:=(X1+X2),3 DIV X3;
WRITELN(F);
ASM
ORG 100h
    LXI E,X1
    LXI E,X2
    ADD E
    SHLD 300H
    MVI A,E
    STA 302H
    LXI H,X3
    SHLD 303H
 
    LHLD 300H
    XCHG
    LDA 302H
    CALL MNZ
    SHLD 309H   
    
 
    XCHG
    LHLD 303H
    CALL DC
    LXI B,0H
    CALL DIL
    MOV H,B
    MOV L,C
    SHLD 30BH
    
    XCHG
    LHLD 309H
    CALL DC
    CALL DODVD
    SHLD 30CH
    
    XCHG
    LHLD 307H
    CALL DODVD
    SHLD 30EH
    
    NOP
HLT
 
MNZ:                                 
    LOOP2:
        DAD D
        DCR A
        JNZ LOOP2
RET
 
DIL:                                     
    LOOP:
        DAD D
        INX B
        JC LOOP
        DCX B
RET
 
DC:
    MOV A,E
    CMA
    ADI 1
    MOV E,A
    MOV A,D
    CMA
    MOV D,A
    MVI A,0
    ACI 0
RET
 
DODVD:                         
    DAD D
RET
END

ASM
ORG 100h      100H байт перед запущенным кодом резервируется;
    LXI E, X1      Загрузка данных;    
    LXI E, X2
    ADD E          Сложение;
    SHLD 300H      Сдвиг;
    MVI A, E       Передача данных;
    STA 302H       Содержимое А передается в ячейку памяти;
    
LXI H, X3
    SHLD 303H
LHLD 300H        Команда перехода;
    XCHG         Команда пересылки;
    LDA 302H     Загрузить А содержимое ячейки памяти;
    CALL MNZ     Вызвать подпрограмму умножения;
    SHLD 309H    
    
 
    XCHG
    LHLD 303H
    CALL DC
    LXI B, 0H
    CALL DIL
    MOV H, B
    MOV L, C
    SHLD 30BH
    
    XCHG
    LHLD 309H
    CALL DC
    CALL DODVD
    SHLD 30CH
    
    XCHG
    LHLD 307H
    CALL DODVD
    SHLD 30EH
    
    NOP        Команда для задержки;
HLT            Остановка процессора;
 
MNZ:           Умножение;                        
    LOOP2:
        DAD D       Содержимое DE сложить с HL;
        DCR A       Уменьшить значение в регистре А на 1;
        JNZ LOOP2   Метка;
RET                 Возврат из подпрограммы;
 
DIL:                 Деление;                    
    LOOP:
        DAD D
        INX B        Увеличить значение в паре регистров BC на 1;
        JC LOOP
        DCX B       Уменьшить значение в паре регистров BC на 1;
RET
 
DC:
    MOV A, E
    CMA               Инвертировать регистр А;
    ADI 1
    MOV E, A
    MOV A, D
    CMA
    MOV D, A
    MVI A, 0
    ACI 0
RET