1.txt

我们老师说很好

code segment
   Assume cs:code
   Main proc far
Start: push ds
       Mov  ax,0h
       Push ax
       Mov al,0feh
       mov dx,220h
       Out dx,al
       mov bl,al
Again: 
       Mov dx,200h
       In al,dx
       Cmp al,0fdh
       Jz Mo1
       Cmp al ,0fbh
       Jz Mo2
       Cmp al ,0f7h
       Jz Mo3

    
     
       Cmp al, 0efh
       Jz Mo4
       Cmp al, 0ffh
       jz Again
       jmp exit
       

Mo1:   mov cx,0ffffh  
lop1:  
       loop lop1
       rol bl,1h
       Mov al,bl
       mov dx,220h
       Out dx,al
       
       
       Jmp Again
   
Mo2:   mov cx,0ffffh  
lop2:  
       loop lop2
       ror bl,1h
       Mov al,bl
       mov dx,220h
       Out dx,al
       
       
       Jmp Again
Mo3:   mov bh,bl
       ror bh,1h
       and bh,bl
       jz ll
       not bl
ll:    Mov al,bl
       mov dx,220h
       Out dx,al
       jmp Again
Mo4:   mov bh,bl
       ror bh,1h
       and bh,bl
       jnz aa
       not bl
aa:    Mov al,bl
       mov dx,220h
       Out dx,al
       jmp Again
exit: ret
main endp
code ends
   end start