王爽版《汇编语言》课程设计1

ASSUME CS:CODE

DATA SEGMENT
DB '1975', '1976', '1977', '1978', '1979', '1980', '1981'
DB '1982', '1983', '1984', '1985', '1986', '1987', '1988'
DB '1989', '1990', '1991', '1992', '1993', '1994', '1995'
;以上表示21年的21个字符串

DD 16, 22, 382, 1356, 2390, 8000, 16000, 24486, 50065, 97479, 140417, 197514
DD 345980, 590827, 803530, 1183000, 1843000, 2759000, 3753000, 4649000, 5937000
;以上表示21年公司总收入的21个DWORD型数据

DW 3, 7, 9, 13, 28, 38, 130, 220, 476, 778, 1001, 1442, 2258, 2793, 4037, 5635, 8226
DW 11542, 11430, 15257, 17800
;以上表示21年公司雇员人数的21个WORD型数据
DATA ENDS

TABLE SEGMENT
DB 672 DUP (0)
TABLE ENDS

STACK SEGMENT
DW 128 DUP (0)
STACK ENDS

CODE SEGMENT
START:
MOV AX, DATA
MOV DS, AX
;DS存放DATA段地址

MOV AX, TABLE
MOV ES, AX
;ES存放TABLE段地址

MOV AX, STACK
MOV SS, AX
MOV SP, 80H

SUB BX, BX
SUB DI, DI
SUB SI, SI
;清空BX, DI, SI

MOV CX, 21
S:
PUSH [DI]
POP ES:[BX]
PUSH [DI].2H
POP ES:[BX].2H
MOV AX, [DI].54H
MOV WORD PTR ES:[BX].8H, AX
MOV DX, [DI].56H
MOV WORD PTR ES:[BX].0AH, DX
PUSH [SI].0A8H
POP ES:[BX].10H
PUSH CX
MOV CX, [SI].0A8H
CALL DIVDW
POP CX
MOV WORD PTR ES:[BX].18H, AX

ADD BX, 20H
ADD DI, 4H
ADD SI, 2H

LOOP S

MOV AX, TABLE
MOV DS, AX
SUB SI, SI
;DS:SI指向TABLE

MOV CL, 21
SUB CH, CH
MOV BX, 1
S1:
PUSH CX
MOV DH, BL
MOV DL, 1
MOV CL, 2
;第一行第一列绿色显示

CALL SHOW_STR

ADD SI, 8H
MOV AX, [SI]
MOV DX, [SI].2H
;将总收入读入DX+AX中

CALL DTOC

MOV DH, BL
MOV DL, 11
MOV CL, 2
;显示

CALL SHOW_STR

ADD SI, 8H
MOV AX, [SI]
SUB DX, DX
;将总收入读入DX+AX中

CALL DTOC

MOV DH, BL
MOV DL, 21
MOV CL, 2
;显示

CALL SHOW_STR

ADD SI, 8H
MOV AX, [SI]
SUB DX, DX
;将总收入读入DX+AX中

CALL DTOC

MOV DH, BL
MOV DL, 31
MOV CL, 2
;显示

CALL SHOW_STR
POP CX

ADD SI, 8H
INC BL

LOOP S1

MOV AX, 4C00H
INT 21H
;显示DWORD型数
;参数:AX低16位  DX高16位  DS:SI指向字符串首地址
DTOC:
PUSH AX
PUSH BX
PUSH CX
PUSH DX
PUSH SI
SUB BX, BX
PUSH BX
DTOC_START:
MOV CX, 10
CALL DIVDW
PUSH CX
MOV CX, AX
JCXZ DTOC_JCXZ

POP CX
ADD CX, 30H
PUSH CX
INC BX
JMP DTOC_START

DTOC_JCXZ:
MOV CX, DX
JCXZ DTOC_POP

POP CX
ADD CX, 30H
PUSH CX
INC BX
JMP DTOC_START
DTOC_POP:
POP CX
ADD CX, 30H
PUSH CX
INC BX
MOV CX, BX
DTOC_LOOP:
POP BX
MOV DS:[SI], BL
INC SI
LOOP DTOC_LOOP
POP BX
POP SI
POP DX
POP CX
POP BX
POP AX
RET
;计算不会溢出的除法
;参数:AX低16位 DX高16位 CX除数
;结果:AX低16位 DX高16位 CX余数
DIVDW:
PUSH BX
MOV BX, AX
MOV AX, DX
SUB DX, DX
DIV CX
;计算H/N

PUSH AX                ;计算的商入栈
MOV AX, BX
DIV CX
;[REM(H/N)*65536+L]/N

MOV CX, DX
POP DX

POP BX
RET
;显示一个用0结束的字符串
;参数:DH行号  DL列号  CL颜色  DS:SI指向字符串首地址
SHOW_STR:
PUSH DX
PUSH CX
PUSH BX
PUSH AX
PUSH SI
PUSH ES
;用到的寄存器入栈
MOV AX, 0B800H
MOV ES, AX

MOV AL, 0A0H
MUL DH
;算出行偏移量
MOV BX, AX
MOV AL, 2
DEC DL
MUL DL
;算出列偏移量
ADD BX, AX

MOV AH, CL
SUB AL, AL
;AL存放颜色
SHOW_STR_START:
MOV CL, [SI]
SUB CH, CH
JCXZ SHOW_STR_END
;如果为0则结束

MOV AL, [SI]
MOV ES:[BX], AX
INC SI
INC BX
INC BX
JMP SHORT SHOW_STR_START
;不为0则给[bx]赋值并循环
SHOW_STR_END:
POP ES
POP SI
POP AX
POP BX
POP CX
POP DX
RET
;寄存器出栈
CODE ENDS
END START