prog7_10.asm

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

stack  segment stack
       dw  256 dup(?)
stack  ends
data  segment
t  db 0
m  db 0
s  db 0
tn  equ 65520
mn  equ 1092
sn  equ 18
tasch  db 0
tascl  db 0
masch  db 0
mascl  db 0
sasch  db 0
sascl  db 0
data  ends
code  segment
      assume  cs:code,ds:data,ss:stack
start:mov  ax,data
      mov  ds,ax
      mov  cx,0
      mov  dx,0
      mov  ah,1
      int  1ah
      call  testpro
      mov  ah,0
      int  1ah
      xchg  ax,dx
      mov  dx,cx
      mov  cx,tn
      div  cx
      mov  t,al
      mov  ax,dx
      mov  cx,mn
      xor  dx,dx
      div  cx
      mov  m,al
      mov  ax,dx
      mov  cl,18
      div  cl
      mov  s,al
      xor  ah,ah
      aam
      or  ax,3030h
      mov  sasch,ah
      mov  sascl,al
      xor  ax,ax
      mov  al,m
      aam
      or  ax,3030h
      mov  masch,ah
      mov  mascl,al
      xor  ax,ax
      mov  al,t
      aam
      or  ax,3030h
      mov  tasch,ah
      mov  tascl,al
      mov  si,offset tasch
      mov  di,[si]
      mov  ah,2
      int  21h
      inc  si
      mov  dl,[si]
      int  21h
      mov  dl,':'
      int  21h
      inc  si
      mov  dl,[si]
      int  21h
      inc  si
      mov  dl,[si]
      int  21h
      mov  dl,':'
      int  21h
      inc  si
      mov  dl,[si]
      int  21h
      mov  dl,[si]
      int  21h 
      mov  ah,4ch
      int  21h
testpro  proc near
      push  ax
      push  dx
      push  cx
      mov  cx,5
      mov  dl,41h
again:mov  ah,2
      int  21h
      inc  dl
      loop  again
      pop  cx
      pop  dx
      pop  ax
      ret
testpro  endp
code  ends
      end  start