apl-mhd

online

Sep 29th, 2018
153
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. .code
  2.  
  3. main proc
  4.    
  5.      mov ax, 1991d;
  6.  
  7.      
  8.         call leap
  9.      
  10.      
  11.      ret
  12.      main endp
  13.      
  14.  
  15. leap proc
  16.    
  17.        push ax
  18.        
  19.      mov bx, 400d
  20.      
  21.      div bx;
  22.      
  23.      pop ax
  24.      cmp dx, 0d
  25.      
  26.      jz yleap  
  27.      jmp div4
  28.                
  29.                
  30.    
  31.      
  32.      yleap
  33.      mov ah,2
  34.      mov dl, '1'
  35.      int 21h
  36.      
  37.      
  38.       hlt
  39.      
  40.      
  41.      
  42.       div4:
  43.        push ax
  44.        
  45.        mov bx,4d
  46.        div bx
  47.        
  48.        pop ax
  49.        cmp dx,0d
  50.        jz div100
  51.        jmp dead
  52.        
  53.         div100:
  54.         push ax
  55.        
  56.         mov bx, 100d
  57.         div bx
  58.         pop ax
  59.         cmp dx, 0d
  60.         jnz yleap
  61.         jmp dead
  62.         hlt
  63.        
  64.        
  65.         dead:
  66.         mov ah,2
  67.      mov dl, '0'
  68.      int 21h
  69.        
  70.        
  71.      
  72.     ret
  73.    
  74.     leap endp  
  75.    
  76. binary proc
  77.    
  78.    mov dx, 10d;
  79.    ret
  80.    binary endp
RAW Paste Data