prog7_18.asm

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

stack  segment stack
       dw  64 dup(?)
stack  ends
data  segment
dog   db  8
      db  02h,07h,0,0
      db  53h,07h,0,5
      db  0dbh,07h,1,-4
      db  0dbh,07h,0,1
      db  0dbh,07h,0,1
      db  0dbh,07h,0,1
      db  0dbh,07h,1,-3
      db  0dbh,07h,0,3
data  ends
code  segment
      assume  cs:code,ds:data,ss:stack
main  proc far
      push  ds
      sub  ax,ax
      push  ax
      mov  ax,data
      mov  ds,ax
      call  clear
      lea  si,dog
      mov  dh,15
      mov  dl,15
      call  dogdis
      ret
      main  endp
clear  proc  near
      push  ax
      push  bx
      push  cx
      push  dx
      mov  ah,6
      mov  al,0
      mov  cx,0
      mov  dh,24
      mov  dl,79
      mov  bh,7
      int  10h
      pop  dx
      pop  cx
      pop  bx
      pop  ax
      ret
clear  endp
dogdis  proc near
      push  ax
      push  bx
      push  cx
      push  dx
      push  si
      mov  ah,0fh
      int  10h
      sub  ch,ch
      mov  cl,[si]
      inc  si
 next:add  dh,[si+2]
      add  dl,[si+3]
      mov  ah,2
      int  10h
      mov  al,[si]
      mov  bl,[si+1]
      push  cx
      mov  cx,1
      mov  ah,9
      int  10h
      pop  cx
      add  si,4
      loop  next
      pop  si
      pop  dx
      pop  cx
      pop  bx
      pop  ax
      ret
dogdis  endp
code  ends
      end  main