Assembler 8086 retazec odzadu

org 100h

; print string           
lea dx, str1
mov ah, 09h
int 21h 
             
; get string               
mov dx, offset input
mov ah, 0ah
int 21h           

; print string           
lea dx, str2
mov ah, 09h
int 21h

xor cx, cx
                 
lea si, input                         
inc si   
; strlen
mov cl, [si]
; move to end of string
add si, cx         
   
; read down
std             

WRITE_REV:

   lodsb     

   mov dl, al
   ; write char
   mov ah, 02h      
   int 21h

loop WRITE_REV
   
; wait for any input
xor ax, ax
int 16h

ret

str1 db "Write string: $"
str2 db 13, 10, "Reverse string: $"
input db 255, 0, 253 dup(0)

org 100h

; print string           
lea dx, str1
mov ah, 09h
int 21h
             
; get string               
mov dx, offset input
mov ah, 0ah
int 21h           


xor cx, cx
                 
lea si, input                         
inc si   
; strlen
mov cl, [si]
; move to end of string
add si, cx

cmp [si], 35h
je JE_DEL_5

cmp [si], 30h
je JE_DEL_5

jmp NEXT

JE_DEL_5:

lea dx, str3
mov ah, 9h
int 21h

NEXT:

; print string           
lea dx, str2
mov ah, 09h
int 21h
   
; read down
std             

WRITE_REV:

   lodsb     

   mov dl, al
   ; write char
   mov ah, 02h     
   int 21h

loop WRITE_REV
   
; wait for any input
xor ax, ax
int 16h

ret

str1 db "Write string: $"
str2 db 13, 10, "Reverse string: $"
str3 db 13, 10, "Number is divisible by 5. $"
input db 255, 0, 253 dup(0)