CSEG SEGMENT
ASSUME CS:CSEG
START: SUB BX,BX
MOV DL,10H
MOV AH,02H
MOV CX,0F0H
LP:
INT 21H
PUSH DX
MOV DL,0
INT 21H
POP DX
INC DL
INC BL
CMP BX,10H
JNZ B
SUB BX,BX
PUSH DX
MOV DL,0DH
INT 21h
MOV DL,0AH
int 21h
POP DX
B: LOOP LP
MOV AH,4CH
INT 21H
CSEG ENDS
END START
我有很多种方法,这一种代码最短。。
lz是大2的吧,这个实验我几个星期前做过。。
这些实验还是自己做下比较好。要是实在做不出,再看看别人怎么写。网上很多的。。。
恩,是有个地方要改。。。
; 本程序通过编译、调试,运行正确。
Code Segment
Assume CS:Code,DS:Code
Start: mov dl,10h
mov ah,2
mov cx,15 ;行数
Line: push cx ;外循环,控制行数
mov cx,16 ;列数
Coloumn: push dx ;内循环,控制列数
int 21h ; 显示一个ASCII码字符
mov dl,20h
int 21h ;显示一个空格符
pop dx
inc dl ;ASCII码增1
loop Coloumn ;循环,准备显示下一个ASCII码字符
push dx
mov dl,0dh ;一行显示完,输出一个回车符
int 21h
mov dl,0ah ;输出一个换行符
int 21h
pop dx
pop cx
loop Line ;循环,准备显示下一行ASCII码字符
Exit_Proc: mov ah,4ch ;结束程序
int 21h
Code ENDS
END Start ;编译到此结束
上回画蛇添足,才得2分,LZ可参考一下:
显示ASCII码为10H-100H的所有字符
http://zhidao.baidu.com/question/91959790.html
我来学习汤叔的程序。