TEKSTY SEGMENT
T1 DB "Podaj b, a jest rowne 15",0Ah,0Dh,"$"
T2 DB 0Ah,0Dh,"Wynik to: $"
TEKSTY ENDS
PROGRAM SEGMENT
ASSUME CS:PROGRAM,DS:TEKSTY
START:
mov AX,TEKSTY
mov DS,AX
mov DX,OFFSET T1
mov AH,09h
int 21h
;wypisanie T1

mov AH,01h
int 21h
;pobranie b

mov bh,al ;do bh dajemy sobie b
mov ax,15d ;do ax dajemy 15
sub bh,30h
div bh ; dzielimy przez bh
mov bh,al ;w al jest wynik z dzielenia, reszta w ah



mov DX,OFFSET T2
mov AH,09h
int 21h
;wypisanie T2

mov dl,bh
add dl,30h
mov ah,02h
int 21h

mov ax,4C00h
int 21h
PROGRAM ENDS
END START