实验14

魔诀

assume cs:code
code segment
start: mov al,9
         mov cx,3
         mov si,0
     s:  push cx
         push ax
         out 70h,al
         in al,71h
            
           mov ah,al
           mov cl,4
           shr ah,cl
           and al,00001111b
          
           add ah,30h
           add al,30h
          
           mov bx,0b800h
           mov es,bx
           mov byte ptr es:[160*12+60+si],ah
           mov byte ptr es:[160*12+62+si],al
           pop ax
           pop cx
           dec cx
           jcxz s1
           mov byte ptr es:[160*12+64+si],2fh
           add si,6
           dec al
           jmp s
          
      s1: mov al,4
           add si,6
           mov cx,3
      s2: push cx
           push ax
           out 70h,al
           in al,71h
            
           mov ah,al
           mov cl,4
           shr ah,cl
           and al,00001111b
          
           add ah,30h
           add al,30h
          
           mov bx,0b800h
           mov es,bx
           mov byte ptr es:[160*12+60+si],ah
           mov byte ptr es:[160*12+62+si],al
           pop ax
           pop cx
           dec cx
           jcxz s3
           mov byte ptr es:[160*12+64+si],3ah
           add si,6
           dec al
           jmp s2
    s3：mov ax,4c00h
           int 21h       
code ends
end start