tongji.txt

编辑、统计学生成绩的源程序：设有10个学生的成绩,要求统计<60

源程序如下：
（源程序文件名定为：<学号>A.ASM; （例如：9804410A.ASM）
;PROGRAM TITLE GOES HERE--result
; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
datarea segment ;def ine data segment
grade dw 56,69,84,82,73,88,99,63,100,80
s5 dw 0
s6 dw 0
s7 dw 0
s8 dw 0
s9 dw 0
s10 dw 0
d at area ends
; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
p rogram segment ;define code segment
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
main proc fa r ;main par t of program
assume c s:program,ds:data rea
s tart: ; start in g execution address
; set up stack for re turn
push ds ;save ol d data segment
sub ax,ax ;put zero in AX
push ax ; save i t on stack
; set DS regis ter to current data segment
mov ax,dat area ;datarea segment addr
mov ds,ax ; into DS regis ter
;MAIN PART OF PROGRAM GOES HERE
mov s5,0 ;i ni tialize counter
mov s6,0
mov s7,0
mov s8,0
mov s9,0
mov s10,0
mov cx,10 ;i ni tia lize loop count value
mov bx,offset grade ; initi al ize fir st addr
compare:
mov ax,[bx] ;get a resul t
cmp ax,60 ;<60?
j l five
cmp ax,70 ;<70?
j1 s ix
cmp ax,80 ;<80?
j1 seven
cmp ax,90 ;<90?
j1 eight
cmp ax,100 ;=100?
jne nine
inc s10
jmp shor t change_addr
n ine: inc s9
jmp short change_addr
eight: inc s8
jmp short change_addr
seven: inc s7
jmp short change_addr
si x: inc s6
jmp short change_addr
five: inc s5
change_addr:
add bx,2
loop compare
re t ;re turn to DOS
main endp ;end of main part of program
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
p rogram ends
;* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
end star t ;end assembly