Advertisement
green1ant

asdf

Mar 15th, 2019
221
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.         org 100h
  2.  
  3. Start:
  4.         ;mov     ax, 0
  5.         mov     si, 0
  6.         mov     di, 0
  7.  
  8.         ;1, 5, 2, 1
  9.         ;8, 2, 7, 1
  10.  
  11.  
  12.         ;1, 5, 2, 1, 8, 2, 7, 3
  13.         xor     ax, ax ;res here
  14.         xor     si, si
  15. ReviewRes:
  16.         movsx   bx, [res + si]
  17.  
  18.         ;mov     di, si
  19.         ;inc     di
  20.         mov      di, 0
  21.  
  22.         WatchFurther:
  23.                 movsx   cx, [res + di]
  24.  
  25.                 cmp     si, di
  26.                 je      Continue
  27.  
  28.                 cmp     bx, cx
  29.                 je      BreakInnerLoop
  30.  
  31.                 cmp     di, 7
  32.                 je      @F
  33.                 jmp     Continue
  34.  
  35.                 @@:
  36.                 ;cmp     di, 8
  37.                 inc     ax
  38.                 jmp     BreakInnerLoop
  39.  
  40.                 Continue:
  41.                 inc     di
  42.                 cmp     di, 8
  43.                 jne     WatchFurther
  44.  
  45.         BreakInnerLoop:
  46.  
  47.         inc     si
  48.         cmp     si, 8
  49.         jne     ReviewRes
  50.  
  51.  
  52.  
  53.    
  54.  
  55.  
  56.  
  57.  
  58. PrintRes:
  59.  
  60.         ;print ax
  61.         mov     bx, ax
  62.         add     bx, '0'
  63.  
  64.         mov     ah, $02
  65.         mov     dx, bx
  66.         int 21h
  67.  
  68.         mov     ah, $09
  69.         mov     dx, pak
  70.         int 21h
  71.         mov     ah, $08
  72.         int 21h
  73.  
  74.         ret
  75.  
  76.  
  77. pak  db 13, 10, 'Press any key to exit...$'
  78. arr1 db 1, 5, 2, 1
  79. arr2 db 8, 2, 7, 1
  80. res  db 6, 5, 2, 9, 8, 2, 7, 1
  81. ;res  db 8 dup (?)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement