【正文】 MOV AH,3EH INT 21H WIN 0,3EH,1,0,23,79 MOV DH,1 MOV DL,0 MOV BH,0 MOV AH,2 INT 10H JMP CHAR_GET NEW ENDP OPEN_2: JMP OPEN SAVEAS PROC NEAR 。另存為文件 WIN 0,3EH,1,0,6,10 CALL BACKDISPLAY WIN 0,07H,15,10,17,61 WIN 0,24H,14,9,16,60, MOV DH,15 MOV DL,9 MOV BH,0 MOV AH,2 INT 10H LEA DX,MESSAGE2 MOV AH,9 INT 21H MOV BX,0 BLL: MOV AH,1 INT 21H CMP AL,0DH JE BLLL MOV PATH[BX],AL INC BX JMP BLL BLLL: POS_GET PUSH DX WIN 0,3EH,1,0,23,79 蘭州理工大學(xué)課程設(shè)計(jì) 21 CALL BACKDISPLAY POP DX POS_CURSE 0,DH,DL LEA DX,PATH MOV AH,3CH MOV CX,00 INT 21H MOV HANDLE,AX LEA DX,BUFFER MOV BX,HANDLE MOV CX,2021 MOV AH,40H INT 21H MOV BX,HANDLE MOV AH,3EH INT 21H CALL BACKDISPLAY JMP CHAR_GET SAVEAS ENDP OPEN PROC NEAR 。打開(kāi)文件 CALL BACKDISPLAY WIN 0,07H,15,10,17,61 WIN 0,24H,14,9,16,60 MOV DH,15 MOV DL,9 MOV BH,0 MOV AH,2 INT 10H LEA DX,MESSAGE3 MOV AH,9 INT 21H MOV BX,0 CLL: MOV AH,1 INT 21H CMP AL,13 JE CLLL MOV PATH[BX],AL INC BX JMP CLL CLLL: WIN 0,3EH,1,0,23,79 LEA DX,PATH MOV AH,3DH 蘭州理工大學(xué)課程設(shè)計(jì) 22 MOV AL,0 INT 21H MOV HANDLE,AX LEA DX,BUFFER MOV BX,HANDLE MOV CX,2021 MOV AH,3FH INT 21H WIN 0,3EH,1,23,1,79 MOV DH,1 MOV DL,0 MOV BH,0 MOV AH,2 INT 10H MOV CX,1000 SUB BX,BX REPLAY: MOV DL,BUFFER[BX] INC BX MOV AH,2 INT 21H LOOP REPLAY MOV BX,HANDLE MOV AH,3EH INT 21H MOV DH,1 MOV DL,0 MOV BH,0 MOV AH,2 INT 10H MOV CX,10 MOV BX,0 CLEAPATH_3: MOV BL,0 MOV PATH[BX],BL LOOP CLEAPATH_3 JMP CHAR_GET OPEN ENDP SAVE PROC NEAR 。保存文件 POS_GET PUSH DX WIN 0,3EH,1,0,6,10 CALL BACKDISPLAY MOV AH,PATH 蘭州理工大學(xué)課程設(shè)計(jì) 23 CMP AH,21H JL J_3 JMP J_4 J_3: WIN 0,07H,15,10,17,61 WIN 0,24H,14,9,16,60, MOV DH,15 MOV DL,9 MOV BH,0 MOV AH,2 INT 10H LEA DX,MESSAGE2 MOV AH,9 INT 21H MOV BX,0 DLL: MOV AH,1 INT 21H CMP AL,0DH JE DLLL MOV PATH[BX],AL INC BX JMP DLL DLLL: WIN 0,3EH,1,0,23,79 POP DX POS_CURSE 0,DH,DL J_4: LEA DX,PATH MOV AH,3CH MOV CX,00 INT 21H MOV HANDLE,AX LEA DX,BUFFER MOV BX,HANDLE MOV CX,2021 MOV AH,40H INT 21H MOV BX,HANDLE MOV AH,3EH INT 21H CALL BACKDISPLAY JMP CHAR_GET SAVE ENDP SAVEDISPLAY PROC NEAR 蘭州理工大學(xué)課程設(shè)計(jì) 24 PUSH AX PUSH BX PUSH CX PUSH DX PUSH DS MOV AX,0002H INT 33H MOV BX,0D MOV CX,3840D LOOP1: MOV AX,0B800H MOV DS,AX MOV DL,DS:[BX] MOV AX,DATA MOV DS,AX MOV BAK[BX],DL INC BX LOOP LOOP1 MOV AX,0001H INT 33H POP DS POP DX POP CX POP BX POP AX SAVEDISPLAY ENDP BACKDISPLAY PROC NEAR PUSH AX PUSH BX PUSH CX PUSH DX PUSH DS MOV BX,0D MOV CX,3840D LOOP11: MOV AX,DATA MOV DS,AX MOV DL,BAK[BX] MOV AX,0B800H MOV DS,AX MOV DS:[BX],DL INC BX LOOP LOOP11 POP DS 蘭州理工大學(xué)課程設(shè)計(jì) 25 POP DX POP CX POP BX POP AX RET BACKDISPLAY ENDP QUITT PROC NEAR 。退出 CALL BACKDISPLAY WIN 0,07H,15,10,17,61 WIN 0,24H,14,9,16,60, MOV DH,15 MOV DL,9 MOV BH,0 MOV AH,2 INT 10H LEA DX,MESSAGE2 MOV AH,9 INT 21H MOV BX,0 QLL: MOV AH,1 INT 21H CMP AL,0DH JE QLLL MOV PATH[BX],AL INC BX JMP QLL QLLL: WIN 0,07H,15,10,17,61 WIN 0,3EH,14,9,16,60 CALL BACKDISPLAY LEA DX,PATH MOV AH,3CH MOV CX,00 INT 21H MOV HANDLE,AX LEA DX,BUFFER MOV BX,HANDLE MOV CX,2021 MOV AH,40H INT 21H MOV BX,HANDLE MOV AH,3EH INT 21H 蘭州理工大學(xué)課程設(shè)計(jì) 26 CALL BACKDISPLAY WIN 0,07H,0,0,24,79 MOV AH,4CH INT 21H RET QUITT ENDP EDIT ENDP WIN3 PROC NEAR 。顯示日期 MOV AH,2AH INT 21H MOV BL,10D MOV AX,0 MOV AL,DH DIV BL ADD AX,3030H MOV [DATE+6],AL MOV [DATE+7],AH MOV AX,0 MOV AL,DL DIV BL ADD AX,3030H MOV [DATE+9],AL MOV [DATE+10],AH WIN 0,1DH,0,67,0,79 POS_CURSE 0,0,67 MOV DX,OFFSET DATE MOV AH,09H INT 21H RET WIN3 ENDP WIN4 PROC NEAR 。顯示行 //列 MOV AH,03H MOV BH,0 INT 10H MOV BL,100D MOV BH,10D MOV AX,0 MOV AL,DH DIV BL ADD AL,30H MOV [HANGLIE+0],AL MOV AL,AH MOV AH,0 DIV BH 蘭州理工大學(xué)課程設(shè)計(jì) 27 ADD AX,3030H MOV [HANGLIE+1],AL MOV [HANGLIE+2],AH MOV AX,0 MOV AL,DL DIV BL ADD AL,30H MOV [HANGLIE+5],AL MOV AL,AH MOV AH,0 DIV BH ADD AX,3030H MOV [HANGLIE+6],AL MOV [HANGLIE+7],AH WIN 0,1DH,24,60,24,70 POS_CURSE 0,24,61 MOV DX,OFFSET HANGLIE MOV AH,09H INT 21H RET WIN4 ENDP CODE ENDS END START 。結(jié)束