网络营销的基本概念企业seo顾问公司
提供8个子程序:
1. 字符串长度 STRLEN
2. 字符串替换 REPLACE
3. 字节查找 SEARCHB
4. 双字节查找 SEARCHW
5. 输入字符串 GETSTR
6. 输出字符串 OUTSTR
7. 复制字符串 COPYSTR
8. 查找字符串 SRCHSTR
具体功能及参数描述如下
| STRLEN PROC FAR |
; more source code at http://www.ahjoe.com/source/srcdown.asp.286PUBLIC REPLACE, SEARCHB, SEARCHW, GETSTR, OUTSTR, STRLENPUBLIC COPYSTR, SRCHSTR CODE SEGMENTASSUME CS:CODE REPLACE PROC FAR ; IN: ; DS:DX=STRING ; AL=OLD CHAR ; BL=NEW CHAR ; OUT: ; CF=0 OK ; CF=1 ERRORPUSH DIMOV DI, DX REPLR0:CMP [DI], ALJZ REPLOK0INC DIJC REPLAERRJMP REPLR0 REPLOK0:MOV [DI], BL REPLAERR:POP DIRETF REPLACE ENDPSTRLEN PROC FAR ; IN: ; DS:DX=STRING ; OUT: ; CF=0 AX=STRING LENGTH ; CF=1 ERRORPUSH DIMOV DI, DXXOR AX, AX STRLENREP:CMP BYTE PTR [DI], 0JZ STRLENOKINC DIJC STRLENOKINC AXJC STRLENOKJMP STRLENREP STRLENOK:POP DIRETF STRLEN ENDPSEARCHB PROC FAR ; IN: ; DS:DX=STRING ; AL=CHAR ; OUT: ; CF=0 ZF=1 DS:DX=STRING END (NULL) ; CF=0 ZF=0 DS:DX=CHAR POSITION ; CF=1 ERRORPUSH DIMOV DI, DXDEC DICLD RESCHB:INC DIJC SCHBOVERCMP BYTE PTR [DI], 00JZ SCHBOVERCMP BYTE PTR [DI], ALJNZ RESCHBOR AL, AL SCHBOVER:MOV DX, DIPOP DIRETF SEARCHB ENDPSEARCHW PROC FAR ; IN: ; DS:DX=STRING ; AX=CHAR WORD ; OUT: ; CF=0 ZF=1 DS:DX=STRING END (NULL) ; CF=0 ZF=0 DS:DX=CHAR POSITION ; CF=1 ERRORPUSH DIMOV DI, DXDEC DICLD RESCHW:INC DIJC SCHWOVERCALL SEARCHBMOV DI, DXJZ SCHWOVERCMP [DI+1], AHJNZ RESCHWOR AX, AX SCHWOVER:MOV DX, DIPOP DIRETF SEARCHW ENDPGETSTR PROC FAR ; IN: ; DS:DX=BUFFER [DX]=MAX LENGTH ; OUT: ; DS:DX=BUFFER WITH STRING (NULL END) [DX+1]=REALITY LENGTHPUSH BXMOV AH, 0AHINT 21HMOV AL, 0DHMOV BL, 0ADD DX, 2CALL REPLACESUB DX, 2POP BXRETF GETSTR ENDPOUTSTR PROC FAR ; IN: ; DS:DX=BUFFER WITH STRING (NULL END) ; BL=COLOR ; BH=0 OUT AT CURRENT POSITION ; 1 CH=X_CORD CL=Y_CORDPUSH AXPUSH BXPUSH CXPUSH DIMOV DI, DXMOV DX, CXXCHG DH, DLCMP BH, 0JNZ OUTNEXMOV AH, 03INT 10HOUTNEX:MOV BH, 0MOV AH, 02INT 10HOUTREP:MOV AL, [DI]INC DIOR AL, ALJZ OUTENDMOV AH, 09HCMP AL, 20HJA OUTJ0CMP AL, 09HJZ TABCHAMOV AH, 0EHINT 10HMOV AH, 3INT 10HJMP OUTREP TABCHA:ADD DL, 8AND DL, NOT 07HDEC DLJMP INCDLOUTJ0:MOV CX, 1INT 10HMOV AH, 03INT 10H INCDL:INC DLCMP DL, 50HJB OUTJ2MOV AX, 0E0DHINT 10HMOV AX, 0E0AHINT 10HJMP OUTJ3 OUTJ2:MOV AH, 02INT 10H OUTJ3:JMP OUTREP OUTEND:POP DIPOP CXPOP BXPOP AXRETFOUTSTR ENDPCOPYSTR PROC FAR ; IN: ; DS:SI = SOURCE STRING(NULL END) ; ES:DI = DEST STRINGCLD COPYREP:LODSBSTOSBOR AL, ALJNZ COPYREP COPYOK:RETF COPYSTR ENDPSRCHSTR PROC FAR ; IN: ; DS:SI = SUB_STRING ; ES:DI = MAIN_STRING ; OUT: ; ZF=0 FOUND, ES:BX = FOUND POSITION ; ZF=1 NOT FOUNDPUSH SIPUSH DIPUSH CXPUSH DXMOV CX, SIMOV DX, DICLD REPEA0: CMPREPEA:CMP BYTE PTR DS:[SI], 0JZ FOUNDSTRCMP BYTE PTR ES:[DI], 0JZ FOUNDOVERCMPSBJZ CMPREPEAINC DXMOV SI, CXMOV DI, DXJMP REPEA0FOUNDOVER:CMP BYTE PTR ES:[DI], 1JMP FOUNDSTRRETFFOUNDSTR:MOV BX, DXPOP DXPOP CXPOP DIPOP SIRETF SRCHSTR ENDPCODE ENDSEND REPLACE