67.asm

汇编语言课后习题答案

;6_7.asm

;*************************************************************************
datasg  segment
grade   db 76,69,84,90,73,88,99,63,100,80
s6      db 0
s7      db 0
s8      db 0
s9      db 0
s10     db 0
datasg  ends
;*************************************************************************
codesg  segment
;-----------------------------------------------------------------------
main    proc  far
        assume cs:codesg,ds:datasg
start:
        push ds
        sub  ax,ax
        push ax
        mov  ax,datasg
        mov  ds,ax
        call sub1
        ret
main    endp
;-------------------------------------------------------------------------
sub1    proc near
        mov  cx,10
        mov  si,0
loop1:  mov  al,grade[si]
        cmp  al,60
        jl   next5
        cmp  al,70
        jge  next1
        inc  s6
        jmp  short next5
next1:  cmp  al,80
        jge  next2
        inc  s7
        jmp  short  next5
next2:  cmp  al,90
        jge  next3
        inc  s8
        jmp  short  next5
next3:  cmp  al,100
        jg  next5
        je  next4
        inc  s9
        jmp  short next5
next4:  inc  s10
next5:  inc  si
        loop loop1
        ret
sub1    endp
;-------------------------------------------------------------------------
codesg  ends
;*************************************************************************
        end  start