Advertisement
MHSS

palindrome

Oct 24th, 2015
102
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //palindrome
  2. data segment
  3. string db "HEllo World$"
  4. pal db 01h
  5. data ends
  6.  
  7. extra segment
  8. rev db ?
  9. extra ends
  10.  
  11. code segment
  12. assume cs:code,es:extra,ds:data
  13. start: mov ax,data
  14.        mov ds,ax
  15.  
  16.        mov ax,extra
  17.        mov es,ax
  18.  
  19.        mov cx,0000H
  20.  
  21.        lea si,string
  22.    up: mov al,[si]
  23.        cmp al,'$'
  24.        jz down
  25.        inc cx
  26.        inc si
  27.        jnp up
  28.  
  29. down:  mov bx,cx
  30.        dec si
  31.        lea di,rev
  32.  
  33. up1:   std
  34.        lodsb
  35.        dec bx
  36.        jnz up1
  37.        lea si,string
  38.        lea di,rev
  39.        cld
  40.        repe cmpsb
  41.        cmp cx,0000H
  42.        jz exit
  43.        mov pal,00h
  44.  
  45. exit:  int 03h
  46.  
  47. data ends
  48. end start
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement