做推文的网站/什么平台可以打广告做宣传

提供8个子程序:

　　1. 字符串长度 STRLEN

　　2. 字符串替换 REPLACE

　　3. 字节查找 SEARCHB

　　4. 双字节查找 SEARCHW

　　5. 输入字符串 GETSTR

　　6. 输出字符串 OUTSTR

　　7. 复制字符串 COPYSTR

　　8. 查找字符串 SRCHSTR

具体功能及参数描述如下

; 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