;安装程序
assume cs:code
code segment
start:  mov ax,cs
        mov ds,ax
        mov si,offset do0
        mov ax,0
        mov es,ax
        mov di,200h
        mov cx,offset do0end-offset do0
        cld
        rep movsb
        mov ax,0
        mov es,ax
        mov word ptr es:[4*7ch+2],0
        mov word ptr es:[4*7ch],200h

        mov ax,4c00h
        int 21h

do0:        push cx
        mov al,bl 
        out 70h,al
        in al,71h
        mov ah,al
        mov cl,4
        shr ah,cl
        and al,00001111b
        add ah,30h
        add al,30h
        pop cx
        iret        
do0end:        mov ax,4c00h
        int 21h
code ends
end start
;测试程序
assume cs:code
data segment
        db 9,8,7,4,2,0
data ends

code segment
start:        mov ax,data
        mov ds,ax
        mov ax,0b800h
        mov es,ax
        mov di,160*12+30*2
        mov si,0
        mov bx,0
        mov cx,6
s:        mov bl,[si]
        int 7ch
        mov es:[di],ah
        mov es:[di+2],al                        
        cmp cx,4
        ja aa
        je ba
        jb ca
s1:        add di,6
        inc si
        loop s
        cmp byte ptr es:[160*12+30*2],31h   ;循环显示
        je start 
        mov ax,4c00h
        int 21h
aa:        mov byte ptr es:[di+4],'/'
        jmp s1
ba:        mov byte ptr es:[di+4],' '
        jmp s1        
ca:        cmp cx,1
        je s1
        mov byte ptr es:[di+4],':'        
        jmp s1

code ends
end start