apl-mhd

last online

Sep 29th, 2018
116
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. main proc
  2.     mov ax,1990
  3.     call leap_year
  4.     call binary_year    
  5.     ret
  6. main endp
  7.  
  8.  
  9. leap_year proc
  10.     push ax
  11.     mov bx,4
  12.     div bx
  13.     cmp dx,0
  14.     je year100
  15.     jmp year400
  16.    
  17.     year100:
  18.         mov bx,100d
  19.         div bx
  20.         cmp dx,0
  21.         je exit_
  22.         jmp print
  23.         hlt
  24.        
  25.     year400:
  26.         mov bx,400
  27.         div bx
  28.         cmp dx,0
  29.         je print
  30.         jmp exit_
  31.         hlt
  32.    
  33.     print:
  34.         mov ah,2
  35.         mov dl,'1'
  36.         int 21h
  37.         hlt    
  38.    
  39.     exit_:
  40.         mov ah,2
  41.         mov dl,'0'
  42.         int 21h
  43.         hlt
  44.  
  45.     pop ax
  46.     ret
  47. leap_year endp
  48.  
  49.  
  50.  
  51. binary_year proc
  52.     push ax
  53.     mov bx,2
  54.     mov cx,0
  55.     divide_for_binary:
  56.         div bx
  57.         push dx
  58.         inc cx
  59.         cmp ax,0
  60.         jne divide_for_binary
  61.         jmp printstack
  62.         hlt
  63.        
  64.     printstack:
  65.         mov ah,2
  66.         loop1:
  67.             pop dx
  68.             int 21h
  69.             loop loop1
  70.         hlt
  71.    
  72.     pop ax
  73.     ret
  74. binary_year endp
RAW Paste Data