q3_28.asm

关于8086汇编的一些作业程序

EXTRN COU:FAR
EXTRN FMAX:FAR
stack segment stack'stack'
      dw 32 dup(?)
stack ends
data segment
IBF DB 52,0,52 DUP(?)
COBF DB 'COUNT=',2 DUP(?),'$'
MOBF DB 'MAX=',4 DUP(?),'$'
MAX DW ?
data ends
code segment
begin proc far
      assume ss:stack,cs:code,ds:data
      push ds
      sub ax,ax
      push ax
      mov ax,data
      mov ds,ax

      MOV DX,OFFSET IBF
      MOV AH,10
      INT 21H


      mov dl,0ah
      mov ah,2
      int 21h
      mov dl,0dh
      mov ah,2
      int 21h
       
      CALL COU
       mov dl,0ah
       mov ah,2
       int 21h
       mov dl,0dh
       mov ah,2
       int 21h
       CALL FMAX
      
       
exit:
        ret
begin endp
code ends
      end begin