prog8_8.asm

汇编语言-王爽 源代码 加 卜艳萍版源代码

sseg  segment stack
       dw  100 dup(?)
sseg  ends
cseg  segment
      assume  cs:cseg,ss:sseg
printo  proc far
        cli
        push  es
        push  di
        push  ds
        push  cx
        push  dx
        push  bx
        push  ax
        sti
        mov  dx,378h
        out  dx,al
        mov  dx,379h
        sub  bx,bx
  waitt:in  al,dx
        test  al,80h
        jnz  all
        jmp  waitt
   all: mov  al,0dh
        mov  dx,37ah
        out  dx,al
        mov  al,0ch
        out  dx,al
        pop  ax
        pop  bx
        pop  dx
        pop  cx
        pop  ds
        pop  di
        pop  es
        iret
printo  endp
main: mov  ax,sseg
      mov  ss,ax
      cld
      mov  ax,0
      mov  es,ax
      mov  di,4*70h
      mov  ax,offset printo
      stosw
      mov  ax,seg printo
      stosw
      mov  al,'a'
      int  70h
      mov  ah,4ch
      int  21h
cseg  ends
      end  main