SHARE
TWEET

Untitled

a guest Dec 14th, 2019 113 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  DOSSEG
  2.     .MODEL TINY
  3.     .STACK 100H
  4.     .DATA
  5. mess db 13, 10, 'Type string:$'
  6. ;       org 100h
  7. ;       jmp start
  8.  
  9. mes0 db 13,10, 'String:$'
  10. mes1 db 13,10, 'Symbol$'
  11. mes2 db 13,10, 'count:$'
  12. maxLen db 80
  13. strLen db 0
  14. string db 80 dup(0)
  15. symbol db 0
  16.       .CODE
  17.         start:
  18.         mov ax, @data
  19.         mov ds, ax
  20.     lea dx, mes0
  21.         call message
  22.         mov ah, 0Ah
  23.         lea dx, maxLen
  24.         int 21h
  25.  
  26.         lea dx, mes1
  27.         call message
  28.         mov ah,1
  29.         int 21h
  30.  
  31.         xor bx, bx
  32.         xor cx, cx
  33.         mov cl,[strLen]
  34.         lea di, string
  35.         mov al, ''
  36.  
  37.         find:
  38.     repne  scasb
  39.         jcxz stop
  40.         mov ah, byte[di]
  41.         or ah, 20h
  42.         cmp ah, [symbol]
  43.         jnl miss
  44.         inc bl
  45.  
  46.         miss:
  47.     jmp find
  48.  
  49.         stop:
  50.     mov al, [string]
  51.         or al, 20h
  52.         cmp al, [symbol]
  53.         jne okey
  54.         inc bl
  55.  
  56.         okey:
  57.         lea dx, mes2
  58.         call message
  59.         xchg ax, bx
  60.         aam
  61.         or ax, 3030h
  62.         xchg ah, al
  63.         int 29h
  64.         xchg ah, al
  65.         int 29h
  66.        
  67.         exit:
  68.         xor ax,ax
  69.         int 16h
  70.         int 20h
  71.        
  72.         message: mov ah, 9
  73.         int 21h
  74.         ret
  75. END
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top