文件读写例程课件.ppt

将键盘输入的数据被2除，如果整除，输出“*2”，将商继续被2 除，直到不能被2整除。 将余下的商被3除，如果整除，输出“*3”，将商继续被3除，直 到不能被3整除。 重复以上的过程，直到商为1。;尖曳筏矩借致那莫自杏记纳联备童龚析您讹筛揪妖幼屿搞鸿五增肥歇蔼巡文件读写例程课件文件读写例程课件;INCLUDE YLIB.H DATA SEGMENT MESS1 DB 0DH, 0AH, Input a Number ( =0, Exit ): $ MESS2 DB = 1$ DATA ENDS ? CODE SEGMENT ASSUME CS: CODE, DS: DATA START: MOV AX, DATA MOV DS, AX;ONE: LEA DX, MESS1 ；从键盘输入一个无符号数 CALL READDEC CMP AX, 0 JZ EXIT ；如果输入数据为0，转EXIT结束程序? PUSH AX ；为了输出，保存AX中的输入数据 MOV DX, 0FFFFH CALL WRITEDEC ；输出这个数 LEA DX, MESS2 MOV AH, 9 INT 21H ；输出“=1”? MOV CX, 2 ；准备分解因数，预设除数CX=2 POP AX ；把输入数据从堆栈中弹出，恢复AX;TWO: CMP AX, 1 ；已分解结束（AX=1）? JE ONE ；分解结束，转ONE MOV DX, 0 ；通过除法试探是否含有该因数 PUSH AX ；除法进行之前保存AX的值 DIV CX CMP DX, 0 ；是否整除？ JNZ THREE ；不含有该因数，转THREE POP SI ；整除，含有该因数，废弃堆栈里的数据 PUSH AX ；把除法的商置入堆栈保护 MOV DL, * ；输出“*” MOV AH, 2 INT 21H MOV AX, CX ；输出该因数; MOV DX, 0FFFFH CALL WRITEDEC POP AX ；恢复堆栈中保存的商 JMP TWO ；转TWO，继续试探分解同一个因数? THREE:POP AX ；试探不成功，从堆栈恢复原数据 INC CX ；除数加1，试探下一个因数 JMP TWO ；转TWO继续分解 EXIT: CALL CRLF ；处理结束，输出一个空行 MOV AX, 4C00H INT 21H CODE ENDS END START;下面的程序首先要求输入一个磁盘文件名，随后把键盘输入的文字存放到这个磁盘文件中。; CODE SEGMENT ASSUME CS: CODE, DS: DATA START：MOV AX, DATA MOV DS, AX LEA DX, MESS0 ; 为输入文件名输出提示信息 MOV AH, 09H INT 21H LEA DX, BUFFER ; 输入文件名 MOV AH, 0AH INT 21H MOV BL, BUFFER+1 MOV BH, 0 MOV FILENAME[BX], 0 ; 把回车字符修改为00H，形成ASCIZ串; LEA DX, FILENAME ；ASCIZ串首地址装入DS: DX MOV AH, 3CH ；建立文件的功能代号 MOV CX, 00H ；文件属性（普通文件） INT 21H ；建立文件 JC ERR1 ；建立出错，转ERR1 MOV HANDLE, AX ；保存文件代号 LEA DX, PROMPT MOV AH, 09H INT 21H ；显示提示信息，要求用户键盘输入 LEA DX, DTA ；DTA首地址装入DS: DX MOV BX, HANDLE ；文件代号装入BX; AGAIN: MOV AH, 01H INT 21H MO