Stekas SEGMENT STACK
    DB 256 dup(?)
Stekas ENDS




Duomenys SEGMENT
    a DB 3
    b DB 5
    du DB 2
    c DB 7
    des DB 10
    sv DB 'sveokoji dalis'
    rezsv DB 3 DUP(0), '$', 10,13
    liek DB 'liekana'
    rezl DB 3 DUP(0), '$'
Duomenys ENDS



Programa SEGMENT
    ASSUME CS:Programa, DS:Duomenys, SS:Stekas

    START:  MOV AX, Duomenys
        MOV DS, AX
        SUB AX, AX
        MOV AL, a
        ADD AL, b
        MUL du
        ADD AL, c
        DIV a       ; AX/a
        MOV TARP, AH
        MOV AH, 0

;ciklas del sveikosios dalies
        MOV CX, 3
        LEA DI, rezsv+2

    ciklas: DIV DES     ;AX/DES
        ADD AH, 30h
        MOV [DI], AH
        DEC DI      ;DI <- rezsv+1
        MOV AH, 0
        LOOP ciklas


Programa ENDS

    END START