【正文】 另存為文件 WIN 0,3EH,1,0,6,10CALL BACKDISPLAYWIN 0,07H,15,10,17,61WIN 0,24H,14,9,16,60,MOV DH,15MOV DL,9MOV BH,0MOV AH,2INT 10HLEA DX,MESSAGE2MOV AH,9INT 21HMOV BX,0BLL:MOV AH,1INT 21HCMP AL,0DHJE BLLLMOV PATH[BX],ALINC BXJMP BLLBLLL:POS_GETPUSH DXWIN 0,3EH,1,0,23,79CALL BACKDISPLAYPOP DXPOS_CURSE 0,DH,DLLEA DX,PATHMOV AH,3CHMOV CX,00INT 21HMOV HANDLE,AXLEA DX,BUFFERMOV BX,HANDLEMOV CX,2000MOV AH,40HINT 21HMOV BX,HANDLEMOV AH,3EHINT 21HCALL BACKDISPLAYJMP CHAR_GETSAVEAS ENDPOPEN PROC NEAR 。打開文件CALL BACKDISPLAYWIN 0,07H,15,10,17,61 WIN 0,24H,14,9,16,60MOV DH,15MOV DL,9MOV BH,0MOV AH,2INT 10HLEA DX,MESSAGE3MOV AH,9INT 21HMOV BX,0CLL:MOV AH,1INT 21HCMP AL,13JE CLLLMOV PATH[BX],ALINC BXJMP CLLCLLL:WIN 0,3EH,1,0,23,79LEA DX,PATHMOV AH,3DHMOV AL,0INT 21HMOV HANDLE,AXLEA DX,BUFFERMOV BX,HANDLEMOV CX,2000MOV AH,3FHINT 21HWIN 0,3EH,1,23,1,79MOV DH,1MOV DL,0MOV BH,0MOV AH,2INT 10HMOV CX,1000SUB BX,BXREPLAY:MOV DL,BUFFER[BX]INC BXMOV AH,2INT 21HLOOP REPLAYMOV BX,HANDLEMOV AH,3EHINT 21HMOV DH,1MOV DL,0MOV BH,0MOV AH,2INT 10HMOV CX,10MOV BX,0CLEAPATH_3:MOV BL,0MOV PATH[BX],BLLOOP CLEAPATH_3JMP CHAR_GETOPEN ENDPSAVE PROC NEAR 。保存文件POS_GETPUSH DXWIN 0,3EH,1,0,6,10CALL BACKDISPLAYMOV AH,PATHCMP AH,21HJL J_3JMP J_4J_3:WIN 0,07H,15,10,17,61WIN 0,24H,14,9,16,60,MOV DH,15MOV DL,9MOV BH,0MOV AH,2INT 10HLEA DX,MESSAGE2MOV AH,9INT 21HMOV BX,0DLL:MOV AH,1INT 21HCMP AL,0DHJE DLLLMOV PATH[BX],ALINC BXJMP DLLDLLL:WIN 0,3EH,1,0,23,79POP DXPOS_CURSE 0,DH,DLJ_4: LEA DX,PATHMOV AH,3CHMOV CX,00INT 21HMOV HANDLE,AXLEA DX,BUFFERMOV BX,HANDLEMOV CX,2000MOV AH,40HINT 21HMOV BX,HANDLEMOV AH,3EHINT 21HCALL BACKDISPLAYJMP CHAR_GETSAVE ENDPSAVEDISPLAY PROC NEARPUSH AXPUSH BXPUSH CXPUSH DXPUSH DSMOV AX,0002HINT 33HMOV BX,0DMOV CX,3840DLOOP1:MOV AX,0B800HMOV DS,AXMOV DL,DS:[BX]MOV AX,DATAMOV DS,AXMOV BAK[BX],DLINC BXLOOP LOOP1MOV AX,0001HINT 33HPOP DSPOP DXPOP CXPOP BXPOP AXSAVEDISPLAY ENDPBACKDISPLAY PROC NEARPUSH AXPUSH BXPUSH CXPUSH DXPUSH DSMOV BX,0DMOV CX,3840DLOOP11:MOV AX,DATAMOV DS,AXMOV DL,BAK[BX]MOV AX,0B800HMOV DS,AXMOV DS:[BX],DLINC BXLOOP LOOP11POP DSPOP DXPOP CXPOP BXPOP AXRETBACKDISPLAY ENDPQUITT PROC NEAR 。退出CALL BACKDISPLAYWIN 0,07H,15,10,17,61WIN 0,24H,14,9,16,60,MOV DH,15MOV DL,9MOV BH,0MOV AH,2INT 10HLEA DX,MESSAGE2MOV AH,9INT 21HMOV BX,0QLL:MOV AH,1INT 21HCMP AL,0DHJE QLLLMOV PATH[BX],ALINC BXJMP QLLQLLL:WIN 0,07H,15,10,17,61WIN 0,3EH,14,9,16,60CALL BACKDISPLAYLEA DX,PATHMOV AH,3CHMOV CX,00INT 21HMOV HANDLE,AXLEA DX,BUFFERMOV BX,HANDLEMOV CX,2000MOV AH,40HINT 21HMOV BX,HANDLEMOV AH,3EHINT 21HCALL BACKDISPLAYWIN 0,07H,0,0,24,79MOV AH,4CHINT 21HRETQUITT ENDPEDIT ENDP WIN3 PROC NEAR 。顯示日期MOV AH,2AHINT 21HMOV BL,10DMOV AX,0MOV AL,DHDIV BLADD AX,3030HMOV [DATE+6],AL MOV [DATE+7],AHMOV AX,0MOV AL,DLDIV BLADD AX,3030HMOV [DATE+9],ALMOV [DATE+10],AHWIN 0,1DH,0,67,0,79POS_CURSE 0,0,67MOV DX,OFFSET DATEMOV AH,09HINT 21HRETWIN3 ENDPWIN4 PROC NEAR 。顯示行//列MOV AH,03HMOV BH,0INT 10H MOV BL,100DMOV BH,10DMOV AX,0MOV AL,DHDIV BLADD AL,30H MOV [HANGLIE+0],ALMOV AL,AHMOV AH,0 DIV BH ADD AX,3030HMOV [HANGLIE+1],ALMOV [HANGLIE+2],AH MOV AX,0 MOV AL,DLDIV BLADD AL,30H MOV [HANGLIE+5],ALMOV AL,AH MOV AH,0 DIV BH ADD AX,3030HMOV [HANGLIE+6],ALMOV [HANGLIE+7],AHWIN 0,1DH,24,60,24,70POS_CURSE 0,24,61MOV DX,OFFSET HANGLIEMOV AH,09HINT 21HRETWIN4 ENDPCODE ENDS END START 。結(jié)束