zz.asm

微机原理——接口应用编程源码

stack segment stack
     dw 64 dup(?)
 stack ends
data segment
table db 41h,44h,30h,38h,30h,39h,3ah,49h,4eh,30h,20h,20h,00h
data ends
code segment
     assume cs:code,ds:data
start:  mov ax,data
      mov ds,ax
      out 00h,al
      call dally
      in al,00h
      mov ch,al
      add al,0f0h
      mov cl,04h
      shr al,cl
      cmp al,09h
      jg a1
      add al,30h
      jmp a1
a1:   add al,37h
a2:   mov bx,offset table
     mov ah,06h
      int 10h
      mov ax,01h
      int 10h
      mov al,0fh
      jg a3
      add al,30h
     jmp a4
a3:   add al,37h
a4:   mov al,01h
     int 10h

dally: proc 
      push cx
      push ax
      mov cx,0080h
a5:   mov ax,056ch
a6:   dec ax
      jnz a6
      loop a5
      pop ax
      pop cx
      ret
      dally endp 
end start 
code ends
end